viewing paste Poring Summon Event | Athena

Posted on the
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
//Made by Light from MoonlightRO
splendide,187,199,4     script  Poring Summoner 99,{
 
mes "[Poring Summoner]";
if(getgmlevel() < 50) {
        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];
        }
        close;
}
mes "Please customize the Poring Summon Event:";
Main:
mes "[Poring Summoner]";
        switch(select("Item [" + getitemname(.ItemID) + "]:Location [" + .Map$ + "]:Special Porings [" + .SpecialPorings + "]:Normal Porings [" + .NormalPorings + "]:Start Event:End Event")) {
                case 1:
                        mes "Which item would you like Special Porings to drop?";
                        mes "Please input the item ID:";
                        input .ItemID;
                        goto Main;
                case 2:
                        mes "Which map would you like me to host this event?";
                        input .Map$;
                        goto Main;
                case 3:
                        mes "How many Special Porings would you like me to summon?";
                        input .SpecialPorings;
                        goto Main;
                case 4:
                        mes "How many Normal Porings would you like me to summon?";
                        input .NormalPorings;
                        goto Main;
                case 5:
                        mes "Starting the event now...";
OnHour02: //CHANGE THIS TO THE HOUR YOU WOULD LIKE THIS EVENT TO LOAD!
OnHour05:
OnHour09:
OnHour14:
OnHour17:
OnHour20:
OnHour23:
                        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 6:
                        mes "Ending the event now...";
                        goto EndEvent;
        }
OnSpecialKill:
        set .SpecialPorings[1],.SpecialPorings[1]-1;
        announce strcharinfo(0) + " got a " + getitemname(.ItemID) + "!",bc_map;
        getitem .ItemID,1;
        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;
        end;
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;
        close;
}
Viewed 330 times, submitted by unknown.