1. #-1028.3,5120,115.2,112 grid1 105
  2. #-877.4,4058.1,-41.3,.5 grid1 106
  3. #32.6,4695.1,2.1,190.5 grid1 107
  4. #.4,4113.4,-25.8,201.3 grid1 108
  5. #-464.1,4492.2,95.8,202.1 grid1 109
  6. #-917.1,4679.2,43.4,74.9,1
  7.  
  8. #Aeolwind
  9.  
  10. my $a;
  11. my $b;
  12. my $c;
  13. my $d;
  14. my $e;
  15. my $f;
  16. my $g;
  17. my $MobToSpawn;
  18. $Night = undef;
  19.  
  20. sub EVENT_SPAWN { 
  21. 	quest::settimer(1,10);
  22. 	quest::delglobal("Night",1,3,F);
  23. 	quest::delglobal("Night",0,3,F);
  24. 	if ($zonetime < 800 || $zonetime > 1999) {
  25. 		quest::setglobal("Night",1,3,F);
  26. 		##quest::say("Night");
  27. 	}
  28.  
  29. 	else {
  30. 		quest::setglobal("Night",0,3,F);
  31. 		##quest::say("day");
  32. 	}
  33.  }
  34.  
  35. sub EVENT_WAYPOINT {
  36. 	if ($zonetime < 800 || $zonetime > 1999) {
  37. 		quest::setglobal("Night",1,3,F);
  38. 		##quest::say("Night");
  39. 	}
  40.  
  41. 	else {
  42. 		quest::setglobal("Night",0,3,F);
  43. 		##quest::say("day");
  44. 	}
  45.  }
  46.  
  47.  sub EVENT_SIGNAL {
  48. 	if ($signal == 1){
  49. 		#quest::shout("Got Signal");
  50. 		quest::stoptimer(1);
  51. 		quest::settimer(1, 3);
  52. 	}
  53. }
  54.  
  55. sub EVENT_TIMER {
  56. if($timer eq "1"){
  57. 	if(defined($qglobals{"Night"})) {
  58. 		if($qglobals{"Night"} == 1) {
  59. 		quest::stoptimer(1);
  60. 		my $random_result = int(rand(100));
  61. 		my $a = 1526; #npc - ##a_decaying_skeleton
  62. 		my $b = 1528; #npc - ##a_restless_skeleton
  63. 		my $c = 1530; #npc - ##a_putrid_skeleton
  64. 		my $d = 1532; #npc - ##a_dread_corpse		
  65. 		my $e = 1534; #npc - ##a_skeleton
  66. 		my $f = 4171; #npc - Varsoon
  67. 		my $g = 4147; #npc - Pyzjn
  68. 		my $MobToSpawn = quest::ChooseRandom($a,$b,$c,$d,$e,$f,$a,$b,$c,$d,$e,$f,$g);
  69. 		my $grid1 = quest::ChooseRandom(105,106,107,108,109);
  70. 		#quest::shout("$random_result, $MobToSpawn");
  71. 		quest::stoptimer(1);
  72. 			if($random_result<16){
  73. 			#quest::say("Spawning mariner trigger1");
  74. 			quest::unique_spawn($MobToSpawn,105,0,-1028.3,5120,115.2,112);
  75. 			}elsif(($random_result>=16) && ($random_result<32)){
  76. 			#quest::say("Spawning skeleton trigger2");
  77. 			quest::unique_spawn($MobToSpawn,106,0,-877.4,4058.1,-41.3,.5);
  78. 			}elsif(($random_result>=32) && ($random_result<48)){
  79. 			#quest::say("Spawning shaman trigger3");
  80. 			quest::unique_spawn($MobToSpawn,107,0,32.6,4695.1,2.1,190.5);
  81. 			}elsif(($random_result>=48) && ($random_result<64)){
  82. 			#quest::say("Spawning skeleton trigger2");
  83. 			quest::unique_spawn($MobToSpawn,109,0,-464.1,4492.2,95.8,202.1);
  84. 			}elsif(($random_result>=64) && ($random_result<80)){
  85. 			#quest::say("Spawning skeleton trigger2");
  86. 			quest::unique_spawn($MobToSpawn,108,0,.4,4113.4,-25.8,201.3);
  87. 			}elsif(($random_result>=80) && ($random_result<101)){
  88. 			#quest::say("Spawning skeleton trigger2");
  89. 			quest::unique_spawn($MobToSpawn,108,0,.4,4113.4,-25.8,201.3);
  90. 			}			
  91. 		}
  92. 		else {
  93. 		quest::stoptimer(1);
  94. 		my $random_result = int(rand(100));
  95. 		my $a=1524; #npc - ##a mangy Rat
  96. 		my $b=1525; #npc - ##a_brown_bear
  97. 		my $c=1527; #npc - ##a_grizzly_bea
  98. 		my $d=1529; #npc - ##a_large_rat
  99. 		my $e=1531; #npc - ##a_fire_beetle
  100. 		my $f=1533; #npc - ##a_gray_wolf
  101. 		my $g=1535; #npc - ##a_giant_rat
  102. 		my $MobToSpawn = quest::ChooseRandom($a,$b,$c,$d,$e,$f,$a,$b,$c,$d,$e,$f,$g);
  103. 		my $grid1 = quest::ChooseRandom(105,106,107,108,109);
  104. 		#quest::shout("$random_result, $MobToSpawn");		
  105. 			quest::stoptimer(1);
  106. 			if($random_result<16){
  107. 			#quest::say("Spawning mariner trigger1");
  108. 			quest::unique_spawn($MobToSpawn,105,0,-1028.3,5120,115.2,112);
  109. 			}elsif(($random_result>=16) && ($random_result<32)){
  110. 			#quest::say("Spawning skeleton trigger2");
  111. 			quest::unique_spawn($MobToSpawn,106,0,-877.4,4058.1,-41.3,.5);
  112. 			}elsif(($random_result>=32) && ($random_result<48)){
  113. 			#quest::say("Spawning shaman trigger3");
  114. 			quest::unique_spawn($MobToSpawn,107,0,32.6,4695.1,2.1,190.5);
  115. 			}elsif(($random_result>=48) && ($random_result<64)){
  116. 			#quest::say("Spawning skeleton trigger2");
  117. 			quest::unique_spawn($MobToSpawn,109,0,-464.1,4492.2,95.8,202.1);
  118. 			}elsif(($random_result>=64) && ($random_result<80)){
  119. 			#quest::say("Spawning skeleton trigger2");
  120. 			quest::unique_spawn($MobToSpawn,108,0,.4,4113.4,-25.8,201.3);
  121. 			}elsif(($random_result>=80) && ($random_result<101)){
  122. 			#quest::say("Spawning skeleton trigger2");
  123. 			quest::unique_spawn($MobToSpawn,108,0,.4,4113.4,-25.8,201.3);
  124. 			}
  125. 	}		
  126. }
  127. }
  128. }
  129.  
  130. ## End spawn Script