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:
next;
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 666 times, submitted by Guest.