viewing paste Poring Summoner | Athena

Posted on the | Last edited on
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86
//Made by Light from MoonlightRO
//Modified by Nameless2you
izlude,179,228,4        script  Poring Summoner 99,{
 
set .SpecialPorings,50; //amount of special poring summoned
set .NormalPorings,200; //amount of normal poring summoned
set .Map$,"izlude"; //map used
set .@itemid,677; //itemid special poring drops
set .@itema,1; //amount of items special poring drops
 
mes "[Poring Summoner]";
if(getgmlevel() < 99) {
if(.Event) mes "There is no Poring Summon Event on now.";
else {
  mes "There is a Poring Summon Event on now!";
  mes "Location: " + .Map$;
  mes "Special Porings: " + .SpecialPorings[1];
  mes "Normal Porings: " + .NormalPorings[0];
}
}
mes "Please customize the Poring Summon Event:";
Main:
mes "[Poring Summoner]";
switch(select("Start Event:End Event")) {
  case 1:
   mes "Starting the event now...";
OnClock0200:
OnClock0400:
OnClock0600:
OnClock0800:
OnClock1000:
OnClock1200:
OnClock1400:
OnClock1600:
OnClock1800:
OnClock2000:
OnClock2200:
OnClock0000:
   set .Event,1;
   monster .Map$,0,0,"Poring",1002,.SpecialPorings,"Poring Summoner::OnSpecialKill";
   monster .Map$,0,0,"Poring",1002,.NormalPorings,"Poring Summoner::OnNormalKill";
   set .SpecialPorings[1],.SpecialPorings;
   set .NormalPorings[1],.NormalPorings;
   announce "The Poring Event has begun!",bc_all;
   announce "Location: " + .Map$,bc_all;
   announce "Special Porings: " + .SpecialPorings,bc_all;
   announce "Normal Porings: " + .NormalPorings,bc_all;
   close;
  case 2:
   mes "Ending the event now...";
OnClock0300:
OnClock0500:
OnClock0700:
OnClock0900:
OnClock1100:
OnClock1300:
OnClock1500:
OnClock1700:
OnClock1900:
OnClock2100:
OnClock2300:
OnClock0100:
   goto EndEvent;
}
OnSpecialKill:
set .SpecialPorings[1],.SpecialPorings[1]-1;
announce strcharinfo(0) + " got a " + getitemname(.ItemID) + "!",bc_map;
getitem .@itemid,.@itema;       //Change amount of item received here.
goto PoringCount;
OnNormalKill:
set .NormalPorings[1],.NormalPorings[1]-1;
goto PoringCount;
PoringCount:
announce "Special Porings: " + .SpecialPorings[1] + " || Normal Porings: " + .NormalPorings[1],bc_map;
if(!.SpecialPorings[1]) goto EndEvent;
EndEvent:
if(.Event) announce "The Poring Summon Event is now over!",bc_all;
killmonster .Map$,"All";
set .Event,0;
set .SpecialPorings[1],0;
set .NormalPorings[1],0;
}
Viewed 662 times, submitted by Streusel.