The Code-Bin
Links
Home
Add your code!
All Listings
About
Latest Entry
Featured Scripts
Author's Website
Latest Entries
FFMPEG Thumbnail Scr...
PHP, 0.8KB
Jul. 29, 10:24pm
John
Z80 Assembler, 190 bytes
Feb. 17, 3:36am
John
Z80 Assembler, 176 bytes
Sep. 13, 2:19am
John
Z80 Assembler, 77 bytes
Sep. 13, 2:18am
John
Z80 Assembler, 209 bytes
Sep. 13, 2:17am
stuff
Posted by: aeolwind | February 13, 2010 @ 10:19pm
PHP Code
[
Download
]
#-1028.3,5120,115.2,112 grid1 105 #-877.4,4058.1,-41.3,.5 grid1 106 #32.6,4695.1,2.1,190.5 grid1 107 #.4,4113.4,-25.8,201.3 grid1 108 #-464.1,4492.2,95.8,202.1 grid1 109 #-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 { quest::settimer(1,10); quest::delglobal("Night",1,3,F); quest::delglobal("Night",0,3,F); if ($zonetime < 800 || $zonetime > 1999) { quest::setglobal("Night",1,3,F); ##quest::say("Night"); } else { quest::setglobal("Night",0,3,F); ##quest::say("day"); } } sub EVENT_WAYPOINT { if ($zonetime < 800 || $zonetime > 1999) { quest::setglobal("Night",1,3,F); ##quest::say("Night"); } else { quest::setglobal("Night",0,3,F); ##quest::say("day"); } } sub EVENT_SIGNAL { if ($signal == 1){ #quest::shout("Got Signal"); quest::stoptimer(1); quest::settimer(1, 3); } } sub EVENT_TIMER { if($timer eq "1"){ if(defined($qglobals{"Night"})) { if($qglobals{"Night"} == 1) { quest::stoptimer(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,$b,$c,$d,$e,$f,$a,$b,$c,$d,$e,$f,$g); my $grid1 = quest::ChooseRandom(105,106,107,108,109); #quest::shout("$random_result, $MobToSpawn"); quest::stoptimer(1); if($random_result<16){ #quest::say("Spawning mariner trigger1"); quest::unique_spawn($MobToSpawn,105,0,-1028.3,5120,115.2,112); }elsif(($random_result>=16) && ($random_result<32)){ #quest::say("Spawning skeleton trigger2"); quest::unique_spawn($MobToSpawn,106,0,-877.4,4058.1,-41.3,.5); }elsif(($random_result>=32) && ($random_result<48)){ #quest::say("Spawning shaman trigger3"); quest::unique_spawn($MobToSpawn,107,0,32.6,4695.1,2.1,190.5); }elsif(($random_result>=48) && ($random_result<64)){ #quest::say("Spawning skeleton trigger2"); quest::unique_spawn($MobToSpawn,109,0,-464.1,4492.2,95.8,202.1); }elsif(($random_result>=64) && ($random_result<80)){ #quest::say("Spawning skeleton trigger2"); quest::unique_spawn($MobToSpawn,108,0,.4,4113.4,-25.8,201.3); }elsif(($random_result>=80) && ($random_result<101)){ #quest::say("Spawning skeleton trigger2"); quest::unique_spawn($MobToSpawn,108,0,.4,4113.4,-25.8,201.3); } } else { quest::stoptimer(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,$b,$c,$d,$e,$f,$a,$b,$c,$d,$e,$f,$g); my $grid1 = quest::ChooseRandom(105,106,107,108,109); #quest::shout("$random_result, $MobToSpawn"); quest::stoptimer(1); if($random_result<16){ #quest::say("Spawning mariner trigger1"); quest::unique_spawn($MobToSpawn,105,0,-1028.3,5120,115.2,112); }elsif(($random_result>=16) && ($random_result<32)){ #quest::say("Spawning skeleton trigger2"); quest::unique_spawn($MobToSpawn,106,0,-877.4,4058.1,-41.3,.5); }elsif(($random_result>=32) && ($random_result<48)){ #quest::say("Spawning shaman trigger3"); quest::unique_spawn($MobToSpawn,107,0,32.6,4695.1,2.1,190.5); }elsif(($random_result>=48) && ($random_result<64)){ #quest::say("Spawning skeleton trigger2"); quest::unique_spawn($MobToSpawn,109,0,-464.1,4492.2,95.8,202.1); }elsif(($random_result>=64) && ($random_result<80)){ #quest::say("Spawning skeleton trigger2"); quest::unique_spawn($MobToSpawn,108,0,.4,4113.4,-25.8,201.3); }elsif(($random_result>=80) && ($random_result<101)){ #quest::say("Spawning skeleton trigger2"); quest::unique_spawn($MobToSpawn,108,0,.4,4113.4,-25.8,201.3); } } } } } ## End spawn Script
Syntax Highlighting
[
Open in new window
]
Author Comments
none
Rating
4.49 / 8
49 Votes
http://codebin.yi.org/502
page generated in 0.01 seconds