Advertisement
Guest User

Untitled

a guest
Jul 6th, 2019
104
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Perl 2.33 KB | None | 0 0
  1. sub EVENT_ITEM_CLICK {
  2.  
  3.     if($itemid == 100137 && $ulevel <= 104 && !defined $qglobals{"IOG25DONE"}) {#CHANGEME
  4.         $client->Message(327, "You have skipped to level 104 and have received an IOG 2.5, spells and discs to level 99, Tier 4.5 Armor and 50,000 Guks!");
  5.         quest::level(104);
  6.         quest::summonitem(34991, 0);
  7.         quest::setglobal("IOG25DONE", 1, 5, "F");#CHANGEME
  8.         quest::setglobal("Phantom45ArmsFinished", 1, 5, "F");#CHANGEME
  9.         quest::setglobal("Phantom45HelmFinished", 1, 5, "F");#CHANGEME
  10.         quest::setglobal("Phantom45GlovesFinished", 1, 5, "F");#CHANGEME
  11.         quest::setglobal("Phantom45LegsFinished", 1, 5, "F");#CHANGEME
  12.         quest::setglobal("Phantom45WristFinished", 1, 5, "F");#CHANGEME
  13.         quest::setglobal("Phantom45BootsFinished", 1, 5, "F");#CHANGEME
  14.         quest::setglobal("Phantom45BPFinished", 1, 5, "F");#CHANGEME
  15.         quest::faction($_, 3000) for (1200, 1201, 1202);
  16.         quest::scribespells(99, 1);
  17.         quest::traindiscs(99, 1);
  18.         quest::summonitem($_) for (9523..9529, 9527, 700, 10242, 965, 34467, 23620, 567, 652, 143, 3538, 783);
  19.         quest::summonitem(9560, 0);
  20.     }else{
  21.     if($itemid == 100137 && $ulevel > 103 && !defined $qglobals{"IOG25DONE"}){#CHANGEME
  22.         $client->Message(327, "I dont think you want to go down to level 104, but here is an IOG 2.5, Tier 4 Armor and 50,000 Guks!");
  23.         quest::setglobal("IOG25DONE", 1, 5, "F");#CHANGEME
  24.         quest::setglobal("Phantom45ArmsFinished", 1, 5, "F");#CHANGEME
  25.         quest::setglobal("Phantom45HelmFinished", 1, 5, "F");#CHANGEME
  26.         quest::setglobal("Phantom45GlovesFinished", 1, 5, "F");#CHANGEME
  27.         quest::setglobal("Phantom45LegsFinished", 1, 5, "F");#CHANGEME
  28.         quest::setglobal("Phantom45WristFinished", 1, 5, "F");#CHANGEME
  29.         quest::setglobal("Phantom45BootsFinished", 1, 5, "F");#CHANGEME
  30.         quest::setglobal("Phantom45BPFinished", 1, 5, "F");#CHANGEME
  31.         quest::faction($_, 3000) for (1200, 1201, 1202);
  32.         quest::summonitem(34991, 0);
  33.         quest::summonitem($_) for (9523..9529, 9527, 700, 10242, 965, 34467, 23620, 567, 652, 143, 3538, 783);
  34.         quest::summonitem(9560, 0);
  35.         }
  36.     if($itemid == 100137 && defined $qglobals{"IOG25DONE"}){#CHANGEME
  37.         $client->Message(327, "You have already used this item once or you already have the IOG 2.5, give it to someone that needs it!!");
  38.         quest::summonitem(100137, 0);
  39.         }
  40.      
  41.     }
  42. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement