Please help with this quest

[rixcraven]

Just a few pointers, where am I going wrong?...
this is the Perl script.

sub EVENT_SPAWN {
quest::settimer("eddie", 30);
if ($zonetime < 700 || $zonetime > 1900) { # its after 7pm and before 8am and its night
quest::spawn_conditions($zonesn, 2,0); #live are 2
quest::spawn_conditions($zonesn, 1,1); #undead are 1
quest::shout ("They only come out at night");
}
else { #its between 8am and 7pm ie daylight
quest::spawn_conditions($zonesn, 2,1); #live are 2
quest::spawn_conditions($zonesn, 1,0); #undead are 1
quest::shout ("The Blessed Sunlight!.. Cleansing our world.");

}

}

sub EVENT_WAYPOINT{
if ($zonetime < 700 || $zonetime > 1900) {
quest::spawn_conditions($zonesn, 2,0); #live are 2
quest::spawn_conditions($zonesn, 1,1); #undead are 1
}
else {
quest::spawn_conditions($zonesn, 2,1); #live are 2
quest::spawn_conditions($zonesn, 1,0); #undead are 1
}
sub EVENT_TIMER
{
#$npc->SetAppearance(1);
if($timer eq "eddie")
{
#my $random_number = int(rand();
#if ($random_number == 0 || $random_number == 1 || $random_numer == 2)
{
#$npc->SetAppearance(1);
quest::shout ("I shall return later!");
$npc->Depop(1);
}
}
}
}

The idea is that this npc spawns, checks the zone time, then sets spawn_conditions as applicable.
he then despawns, and begins the cycle again.
I know the timer is short, just for testing, but it doesn't work, he spawns, says nothing, and despawns.
Please advise where I'm going wrong.