#!/usr/bin/perl

use strict;
use warnings;

use POE;

*MATE = *STDOUT;

POE::Session->create(
	inline_states   => {
		_start		=> \&_start,
		make_baby	=> \&make_baby,
	},
);

$poe_kernel->run;

sub _start {
	my $kernel = $_[ KERNEL ];

	$kernel->alias_set('God');

	$kernel->post('God', 'make_baby');
}

sub make_baby {
	my $session = $_[ SESSION ];

	POE::Session->create(
		inline_states   => {
			_start  => \&born,
			_stop   => \&die,
			live    => \&live
		},
		args		=> [ $session ],
	);
}

sub born {
	my ($heap, $person, $kernel, $init) = @_[ HEAP, SESSION, KERNEL, ARG0 ];

	$heap->{age} = 0;
	$heap->{gender} = (int(rand(2)) ? 'male' : 'female');
	$heap->{person} = $person->ID - 2;
	$heap->{kids} = int(rand(5));

	@{$heap->{actions}} = qw/Crying Sleeping Eating Pooping/;

	print "Child $heap->{person} born, age $heap->{age}, gender $heap->{gender}.  Likely to have $heap->{kids} kids.  Actions: " . join(', ', @{$heap->{actions}}) . "\n";

	$kernel->delay('live', .1, $init);
}

sub live {
	my ($heap, $kernel, $init) = @_[ HEAP, KERNEL, ARG0 ];

	$heap->{age}++;

	if ($heap->{'age'} == 2) {
		@{$heap->{actions}} = qw/Screaming Crying/;
	} elsif (($heap->{'age'} >= 3) && ($heap->{'age'} <= 12)) {
		@{$heap->{actions}} = qw/Running Playing "Getting into Trouble"/;
	} elsif (($heap->{'age'} >= 13) && ($heap->{'age'} <= 15)) {
		if ($heap->{'gender'} eq "male") {
			@{$heap->{actions}} = qw/Eat Eat Eat Eat Eat Sleep/;
		} else {
			@{$heap->{actions}} = qw/Talk Talk Talk Shop Shop Sleep/;
		}
	} elsif ( ($heap->{'age'} >= 16) && ($heap->{'age'} <= 20) ) {
		@{$heap->{actions}} = qw/Flirt Flirt Flirt Flirt Flirt/;
	} elsif ($heap->{'age'} >= 21 && $heap->{'age'} <= ($heap->{'gender'} eq 'male' ? 74.1 : 79.5)) {
		select MATE;

		@{$heap->{actions}} = 'Making and raising kids';

		if(int(rand(5)) == 1 && $heap->{kids}) {
			print $init->ID . "\n";
			$kernel->post('God', 'make_baby') or die $!;
			$heap->{kids}--;
		}
	}

	print "Person $heap->{person} turned $heap->{age}.  Their activities are now: " . join(', ', @{$heap->{actions}}) . "\n";

	$kernel->delay('live', .1, $init);

	if ($heap->{'age'} >= ($heap->{'gender'} eq 'male' ? 74.1 : 79.5)) {
		print my $will = "I, Person $heap->{person}, do make and declare my last will and testament as follows: ...\n";
		$kernel->delay('live');
	}
}


sub die {
	my $heap = $_[ HEAP ];

	print "Person $heap->{person} died.\n";
}