sub animalbirth {
	$time=time;
	push (@{$do{$time+2}},{sub=>"say",args=>["The gods smile down from above and the words \"Hello child\" are heard. Welcoming the new $user{$client}{name} into the world","$user{$client}{room}"]});
	push (@{$do{int($time+rand(15)+2)}},{sub=>"say",args=>["A small puff of smoke rises from below the bench.","$user{$client}{room}"]});
}
sub animalmain {
if ($incoming=~/hello/i or $incoming=~/hey/i){
	say("$user{$client}{name} says \'hi, I'm $user{$client}{name}\'","","");
	}
}
1;