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: end; }