[Dibalamin]

Woops! I had the stop timer out of place, it was only stopping it on certain randoms.

#-1028.3,5120,115.2,112
#-877.4,4058.1,-41.3,.5
#32.6,4695.1,2.1,190.5
#.4,4113.4,-25.8,201.3
#-464.1,4492.2,95.8,202.1
#-917.1,4679.2,43.4,74.9,1

#Aeolwind
my $a;
my $b;
my $c;
my $d;
my $e;
my $f;
my $g;
my $MobToSpawn;
$Night = undef;

sub EVENT_SPAWN {
if (($zonetime >= 0)&&($zonetime <= 800)){           #nighttime
	quest::setglobal(Night,1,3,F);}
elsif (($zonetime >= 2000)&&($zonetime <= 2359)){    #nighttime
	quest::setglobal(Night,1,3,F);}     
else{		#daytime
	quest::setglobal(Night,0,3,F);}}

sub EVENT_WAYPOINT {
if (($zonetime >= 0)&&($zonetime <= 800)){           #nighttime
	quest::setglobal(Night,1,3,F);}
	#	quest::say("Night Global is $Night");}     #undead are 1
elsif (($zonetime >= 2000)&&($zonetime <= 2359)){    #nighttime
	quest::setglobal(Night,1,3,F);}
	#quest::say("Night Global is $Night");}     #undead are 1
else{		#daytime
	quest::setglobal(Night,0,3,F);}}
		#quest::say("Night Global is $Night");}}
## End spawn Script

sub EVENT_SIGNAL {
if ($signal == 1){
quest::settimer(1, 360);
}
}

sub EVENT_TIMER {
if($timer eq "1"){
	if(defined ($qglobals{Night})) {
		if($qglobals{Night} == 1) {
		my $random_result = int(rand(100));
		my $a = 1526; #npc - ##a_decaying_skeleton
		my $b = 1528; #npc - ##a_restless_skeleton
		my $c = 1530; #npc - ##a_putrid_skeleton
		my $d = 1532; #npc - ##a_dread_corpse		
		my $e = 1534; #npc - ##a_skeleton
		my $f = 4171; #npc - Varsoon
		my $g = 4147; #npc - Pyzjn
		my $MobToSpawn = quest::ChooseRandom($a,$d,$f,$a,$b,$c,$d,$e,$f,$a,$b,$c,$d,$e,$f,$g);	
		quest::shout("$random_result, $MobToSpawn");
		quest::stoptimer(1);
			if($random_result<16){
			quest::say("Spawning mariner trigger1");
			quest::spawn2($MobToSpawn,5,0,-1028.3,5120,115.2,112);
			}elsif(($random_result>=16) && ($random_result<32)){
			quest::say("Spawning skeleton trigger2");
			quest::spawn2($MobToSpawn,6,0,-877.4,4058.1,-41.3,.5);
			}elsif(($random_result>=32) && ($random_result<48)){
			quest::say("Spawning shaman trigger3");
			quest::spawn2($MobToSpawn,7,0,32.6,4695.1,2.1,190.5);
			}elsif(($random_result>=48) && ($random_result<64)){
			quest::say("Spawning skeleton trigger2");
			quest::spawn2($MobToSpawn,8,0,-464.1,4492.2,95.8,202.1);
			}elsif(($random_result>=64) && ($random_result<80)){
			quest::say("Spawning skeleton trigger2");
			quest::spawn2($MobToSpawn,8,0,-917.1,4679.2,43.4,74.9,1);
			}elsif(($random_result>=80) && ($random_result<101)){
			quest::say("Spawning skeleton trigger2");
			quest::spawn2($MobToSpawn,8,0,-917.1,4679.2,43.4,74.9,1);
			}			
		}
		if($qglobals{Night} != 1) {
		my $random_result = int(rand(100));
		my $a=1524; #npc - ##a mangy Rat
		my $b=1525; #npc - ##a_brown_bear
		my $c=1527; #npc - ##a_grizzly_bea
		my $d=1529; #npc - ##a_large_rat
		my $e=1531; #npc - ##a_fire_beetle
		my $f=1533; #npc - ##a_gray_wolf
		my $g=1535; #npc - ##a_giant_rat
		my $MobToSpawn = quest::ChooseRandom($a,$d,$f,$a,$b,$c,$d,$e,$f,$a,$b,$c,$d,$e,$f,$g);
			quest::stoptimer(1);
			if($random_result<16){
			quest::say("Spawning mariner trigger1");
			quest::spawn2($MobToSpawn,5,0,-1028.3,5120,115.2,112);
			}elsif(($random_result>=16) && ($random_result<32)){
			quest::say("Spawning skeleton trigger2");
			quest::spawn2($MobToSpawn,6,0,-877.4,4058.1,-41.3,.5);
			}elsif(($random_result>=32) && ($random_result<48)){
			quest::say("Spawning shaman trigger3");
			quest::spawn2($MobToSpawn,7,0,32.6,4695.1,2.1,190.5);
			}elsif(($random_result>=48) && ($random_result<64)){
			quest::say("Spawning skeleton trigger2");
			quest::spawn2($MobToSpawn,8,0,-464.1,4492.2,95.8,202.1);
			}elsif(($random_result>=64) && ($random_result<80)){
			quest::say("Spawning skeleton trigger2");
			quest::spawn2($MobToSpawn,8,0,-917.1,4679.2,43.4,74.9,1);
			}elsif(($random_result>=80) && ($random_result<101)){
			quest::say("Spawning skeleton trigger2");
			quest::spawn2($MobToSpawn,8,0,-917.1,4679.2,43.4,74.9,1);
			}
	}		
}
}
}