viewing paste Unknown #49946 | 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 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123
prontera,151,192,4      script  Kafra   895,{
 
.@Name$ = "[^00BFFFKafra^000000]";
.@Player$ = strcharinfo(0);
if(.EventOn == 1){ .@EventOn$ = "^00FF00On^000000";} else { .@EventOn$ = "^FF0000Off^000000";}
if(getgmlevel() == 99){
        mes .@Name$;
        mes "How can I help you today "+.@Player$+"?"," ","Event is currently "+.@EventOn$;
                switch(select("Start Event:Stop Event:Check Event:Reset Event:Spawn Boss")){
                case 1:
                        .EventOn = 1;
                        next;
                        mes .@Name$;
                        mes "Event has been turned on.";
                        monster "prontera",0,0,"Quest Poring",2698,1000,"Kafra::OnPoringKilled";
                        close2;
                        break;
                case 2:
                        .EventOn = 0;
                        next;
                        mes .@Name$;
                        mes "Event has been turned off.";
                        killmonster "prontera","Kafra::OnPoringKilled";
                        close;
                        break;
                case 3:
                        next;
                        goto NPC;
                        break;
                case 4:
                        $Poring = 0;
                        .EventOn = 0;
                        killmonster "prontera","Kafra::OnPoringKilled";
                        next;
                        mes .@Name$;
                        mes "Event has been reset.";
                        close;
                        break;
                case 5:
                        $Poring = 9999;
                        break;
                close;
}
}
 
NPC:
if(.EventOn = 1){
if($Poring >= 10000){
        cutin "kh_elly01",1;
        mes .@Name$;
        mes "Welcome "+.@Player$+", What can I help you with today?";
                        switch(select("^FFD700"+$Poring+"/10,000^000000:Participating in Event")){
                        case 1:
                                next;
                                cutin "kh_elly02",1;
                                mes .@Name$;
                                mes "Congratulations "+.@Player$+", Thanks to the efforts of everyone we have kept the ^FA8072Poring^000000 population in check!";
                                close2;
                                cutin "",255;
                                end;
                                break;
                        case 2:
                                next;
                                cutin "kh_elly02",1;
                                mes .@Name$;
                                mes "To participate in this event just kill as many ^FA8072Porings^000000 as you can."," ", "After 100 ^FA8072Porings^000000 have been slain something cool will happen!";
                                close2;
                                cutin "",255;
                                end;
                                break;
                        }
} else {
        cutin "kh_elly01",1;
        mes .@Name$;
        mes "Welcome "+.@Player$+", What can I help you with today?";
                        switch(select("^FF0000"+$Poring+"/10,000^000000:Participating in Event")){
                        case 1:
                                close2;
                                cutin "",255;
                                end;
                                break;
                        case 2:
                                next;
                                cutin "kh_elly02",1;
                                mes .@Name$;
                                mes "To participate in this event just kill as many ^FA8072Porings^000000 as you can."," ", "After 100 ^FA8072Porings^000000 have been slain something cool will happen!";
                                close2;
                                cutin "",255;
                                end;
                                break;
                        }
}}else{
                                cutin "kh_elly04",1;
                                mes .@Name$;
                                mes "I'm sorry "+.@Player$+", but there is no event going on right now.";
                                close2;
                                cutin "",255;
                                end;}
       
 
OnMinute30:
        if(.EventOn = 1 && $Poring >= 10000)
        end;
        if(.EventOn = 1)
        killmonster "prontera","Kafra::OnPoringKilled";
        monster "prontera",0,0,"Quest Poring",2698,1000,"Kafra::OnPoringKilled";
        announce "Kafra: Another wave of Porings have arrived!",bc_all;
        end;
       
OnPoringKilled:
        $Poring++;
        if($Poring == 100){ announce "Kafra: The first 100 Porings have been slain! Next update | 250 Porings Slain",bc_all;}
        if($Poring == 250){ announce "Kafra: 250 Porings have been slain! Next update | 500 Porings Slain",bc_all;}
        if($Poring == 500){ announce "Kafra: 500 Porings have been slain! Next update | 1,000 Porings Slain",bc_all;}
        if($Poring == 1000){ announce "Kafra: Amazing! 1,000 Porings have been slain! Next update | 2,500 Porings Slain",bc_all;}
        if($Poring == 2500){ announce "Kafra: Unbelievable! 2,500 Porings have been slain! Next update at: 5000 Porings Slain",bc_all;}
        if($Poring == 5000){ announce "Kafra: We're half way there! 5,000 Porings have been slain! Next update at: 10,000 Porings Slain",bc_all;}
        if($Poring == 10000){ announce "Kafra: Please come back to Prontera! We're under attack!",bc_all; killmonster "prontera","Kafra::OnPoringKilled";}{
        monster "prontera",155,180,"King Poring",2538,1,"Kafra::OnEventOver";}
        end;
OnEventOver:
}
Viewed 881 times, submitted by Pneuma.