Log In
Sign Up
Go Gold
Home
Forum
Mail
Downloads
Game Search
Macro Editor
Notes
Membership
Fishlord_Lezom.pl - Quest File
General Info
Quest File
my $spawnLoc; my $spawnNpc; my $spawnNpcID; my $trashCount; my $numSpawned; my $miniNamedCount = 0; my $eventstarted = 0; sub EVENT_SPAWN { $spawnLoc = 0; $spawnNpc = 0; $spawnNpcID = 0; $trashCount = 0; $numSpawned = 0; $miniNamedCount = 1; $eventstarted = 0; } sub EVENT_SAY { if($text=~/Hail/i) { quest::say("Be like the water $name. The water spirits have fortold of your coming. I am a fishlord, summoner of the [dwellers] of the deep."); } elsif($text=~/dwellers/i) { quest::say("These are great creatures that dwell in the nether reaches of this reef. For 100 platinum I will summon them forth."); } } sub EVENT_ITEM { if($platinum == 100 && $eventstarted == 0) { quest::say("Very well, I will summon forth the creatures of the deep. They do not like being disturbed so you must protect me from harm. I am very vulnerable when summoning the dwellers of the deep. If death claims me the summoning will be finished. During the course of the summoning many powerful dwellers will appear. You must watch for them."); quest::settimer("Trash", 30); quest::settimer("MiniNamed", 120); quest::settimer("FinalNamed", 1200); $eventstarted = $eventstarted + 1; quest::moveto(143.8, 131.5, -377.9, 0, 1); } } sub EVENT_TIMER { if($timer eq "Trash") { quest::say("Listen oh spirits of water! I summon forth the dwellers of the deep.' He then begins to hum softly closing his eyes and seemingly settling into a deep focus. Suddenly he shouts a mystical chant saying, 'XAX XAX tomae tomae XAX podiggle podiggle XAX AZKHAZKKKY!"); $trashCount = int(rand(3)); while($numSpawned <= $trashCount) { $spawnNpc = int(rand(4)); if($spawnNpc == 1) { $spawnNpcID = 216085;#reef } elsif($spawnNpc == 2) { $spawnNpcID = 216079;#fierce } elsif($spawnNpc == 3) { $spawnNpcID = 216078;#ferocious } elsif($spawnNpc == 4) { $spawnNpcID = 216081;#furious } $spawnLoc = int(rand(6)); if($spawnLoc == 1) { quest::spawn2($spawnNpcID, 0, 0, 143, 16, -354, $h); } elsif($spawnLoc == 2) { quest::spawn2($spawnNpcID, 0, 0, 123, 61, -353, $h); } elsif($spawnLoc == 3) { quest::spawn2($spawnNpcID, 0, 0, 148, 99, -358, $h); } elsif($spawnLoc == 4) { quest::spawn2($spawnNpcID, 0, 0, 72, 254, -362, $h); } elsif($spawnLoc == 5) { quest::spawn2($spawnNpcID, 0, 0, 106, 209, -361.7, $h); } elsif($spawnLoc == 6) { quest::spawn2($spawnNpcID, 0, 0, 124, 172, -359, $h); } $numSpawned = $numSpawned + 1; } $numSpawned = 0; } elsif($timer eq "MiniNamed") { if($miniNamedCount <= 9) { quest::say("A dweller of some power comes, prepare yourself."); if($miniNamedCount == 1) { $spawnNpcID = 216082;#hungry } elsif($miniNamedCount == 2) { $spawnNpcID = 216086;#stringy } elsif($miniNamedCount == 3) { $spawnNpcID = 216090;#wicked } elsif($miniNamedCount == 4) { $spawnNpcID = 216089;#toughened } elsif($miniNamedCount == 5) { $spawnNpcID = 216080;#foul } elsif($miniNamedCount == 6) { $spawnNpcID = 216077;#dark } elsif($miniNamedCount == 7) { $spawnNpcID = 216087;#superior } elsif($miniNamedCount == 8) { $spawnNpcID = 216083;#prime } elsif($miniNamedCount == 9) { $spawnNpcID = 216084;#prismatic } $spawnLoc = int(rand(6)); if($spawnLoc == 1) { quest::spawn2($spawnNpcID, 0, 0, 149, 82, -369.7, $h); } elsif($spawnLoc == 2) { quest::spawn2($spawnNpcID, 0, 0, 149, 95, -347, $h); } elsif($spawnLoc == 3) { quest::spawn2($spawnNpcID, 0, 0, 151, 97, -368.5, $h); } elsif($spawnLoc == 4) { quest::spawn2($spawnNpcID, 0, 0, 119, 177, -370.9, $h); } elsif($spawnLoc == 5) { quest::spawn2($spawnNpcID, 0, 0, 119, 177, -345, $h); } elsif($spawnLoc == 6) { quest::spawn2($spawnNpcID, 0, 0, 123, 159, -361, $h); } $miniNamedCount = $miniNamedCount + 1; } elsif($miniNamedCount >= 10) { quest::stoptimer("MiniNamed"); } } elsif($timer eq "FinalNamed") { quest::say("I sense a creature of immense power has been summoned forth. My job here is finished. You all have done very well for mortals."); quest::spawn2(216088, 0, 0, $x, $y, $z, $h);#supreme quest::depop_withtimer(); } } sub EVENT_DEATH_COMPLETE { quest::stoptimer("Trash"); quest::stoptimer("MiniNamed"); quest::stoptimer("FinalNamed"); }
Source: 17 Jan 2022
Quest Source: 28 May 2022