Poring Punch Event!

[Mabuhay]

I dont claim to own this event script but i modify it to the way i needed it to be.

This belongs to its rightful owner ARTHistic from eAthena.

So i cant find any support from this anymore so im hoping on of you can help me modify this.

Here is the script

// ---		    ARTHistic's Property		    ---
// ---    Please visit http://thdesigns.co.nr	 ---
// ---		   Scripted By: ARTHistic		   ---
// ---		 Do Not Revomed the Credits		 ---

-    script    PPE_announce    -1,{
   OnInit:
   set $@PoringEventChecker, 0;
   set $@PoringEventPrizeChecker, 0;
   set $PPEDefendingChampion$,"no one";
   end;

OnClock0000:
OnClock0200:
OnClock0400:
OnClock0600:
OnClock0800:
OnClock1209:
OnClock1216:
set $@PoringEventChecker, 1;
announce "Poring Punch Event: Event is now starting, click me to join!", bc_all;
killmonsterall "pvp_n_1-2";
sleep2 10000;
initnpctimer;
end;



OnHour30:
   if ( $@PoringEventChecker == 0 ) {
       set $@PoringEventChecker, 1;
       initnpctimer;
       end;
   }

OnTimer10000:
   announce "Poring Punch Event has started.",0;
   monster "pvp_n_1-2",0,0,"1 Point",1002,50,"Poring Punch Event::OnPoringKill";
   monster "pvp_n_1-2",0,0,"5 Points",1002,10,"Poring Punch Event::OnDropsKill";
   monster "pvp_n_1-2",0,0,"-10 Ponts",1002,50,"Poring Punch Event::OnPoporingKill";
   end;

OnTimer70000:
   mapannounce "pvp_n_1-2.gat","Poring Punch Event: 4 minutes left.",0;
   monster "pvp_n_1-2",0,0,"1 Point",1002,50,"Poring Punch Event::OnPoringKill";
   monster "pvp_n_1-2",0,0,"5 Points",1002,5,"Poring Punch Event::OnDropsKill";
   monster "pvp_n_1-2",0,0,"-10 Ponts",1002,20,"Poring Punch Event::OnPoporingKill";
   end;

OnTimer130000:
   mapannounce "pvp_n_1-2.gat","Poring Punch Event: 3 minutes left.",0;
   monster "pvp_n_1-2",0,0,"1 Point",1002,30,"Poring Punch Event::OnPoringKill";
   monster "pvp_n_1-2",0,0,"5 Points",1002,5,"Poring Punch Event::OnDropsKill";
   monster "pvp_n_1-2",0,0,"-10 Ponts",1002,15,"Poring Punch Event::OnPoporingKill";
   end;

OnTimer190000:
   mapannounce "pvp_n_1-2.gat","Poring Punch Event: 2 minutes left.",0;
   monster "pvp_n_1-2",0,0,"1 Point",1002,30,"Poring Punch Event::OnPoringKill";
   monster "pvp_n_1-2",0,0,"5 Points",1002,5,"Poring Punch Event::OnDropsKill";
   monster "pvp_n_1-2",0,0,"-10 Ponts",1002,5,"Poring Punch Event::OnPoporingKill";
   end;

OnTimer250000:
   mapannounce "pvp_n_1-2.gat","Poring Punch Event: 1 minute left.",0;
   monster "pvp_n_1-2",0,0,"1 Point",1002,50,"Poring Punch Event::OnPoringKill";
   monster "pvp_n_1-2",0,0,"5 Points",1002,5,"Poring Punch Event::OnDropsKill";
   monster "pvp_n_1-2",0,0,"-10 Ponts",1002,5,"Poring Punch Event::OnPoporingKill";
   end;

OnTimer310000:
   stopnpctimer;
   announce "Poring Punch Event has ended and the event Winner is "+$HighestPoringPointsName$+".",bc_all;
   killmonsterall "pvp_n_1-2";
   set $@PoringEventChecker, 0;
   set $@PoringEventPrizeChecker, 1;
   sleep2 5000;
   mapannounce "pvp_n_1-2.gat","You'll be warp at prontera in a short while.",16;
   sleep2 10000;
   mapwarp "pvp_n_1-2","prontera",155,166;
   end;



}


prontera,135,205,5    script    Poring Punch Event    952,{

   mes "[ ^FF0000Poring Punch Event^000000 ]";
   mes "Hello, I'm the Poring Punch Event Manager.";
   mes "My record says that the defending champion on this event was ^FF0000"+$PPEDefendingChampion$+"^000000.";
   mes "Anyways, what do you want to do?";
   next;
   menu "How does this work?",PPE_HowTo,"Join Event Now",PPE_Join,"Claim my reward",PPE_claim,"Nevermind",PPE_nvm;

   PPE_HowTo:
       mes "[ ^FF0000Poring Punch Event^000000 ]";
       mes "This is an event where everyone can join in.";
       next;
       mes "[ ^FF0000Poring Punch Event^000000 ]";
       mes "All you have to do is to punch the right monsters and to avoid the wrong ones. ";
       next;
       mes "[ ^FF0000Poring Punch Event^000000 ]";
       mes "Each kind of monster has its corresponsing points.";
       next;
       mes "[ ^FF0000Poring Punch Event^000000 ]";
       mes "You only have 5 minutes to earn points as much as you can.";
       next;
       mes "[ ^FF0000Poring Punch Event^000000 ]";
       mes "The Highest Scorer at the end of this event shall win Poring Coins";
       next;
       mes "[ ^FF0000Poring Punch Event^000000 ]";
       mes "Reminder: No weapons, cart, and pets is allowed in this event.";

       close;


   PPE_Join:
       if ( $@PoringEventChecker != 0 ){
           if (gethominfo(2) != "null"){
               mes "[ ^FF0000Poring Punch Event^000000 ]";
               mes "No homunculus is allowed in this event! Sorry ^FF0000"+strcharinfo(0)+"^000000 but you can't join this event!";
               close;
           }
           if (getpetinfo(2) != "null"){
               mes "[ ^FF0000Poring Punch Event^000000 ]";
               mes "No pet is allowed in this event! Sorry ^FF0000"+strcharinfo(0)+"^000000 but you can't join this event!";
               close;
           }
           if (checkcart()){
               mes "[ ^FF0000Poring Punch Event^000000 ]";
               mes "No cart is allowed! Sorry ^FF0000"+strcharinfo(0)+"^000000 but you can't join this event!";
               close;
           }
           if (checkfalcon()){
               mes "[ ^FF0000Poring Punch Event^000000 ]";
               mes "No falcon is allowed! Sorry ^FF0000"+strcharinfo(0)+"^000000 but you can't join this event!";
               close;
           }
           if (checkriding()){
               mes "[ ^FF0000Poring Punch Event^000000 ]";
               mes "No riding is allowed! Sorry ^FF0000"+strcharinfo(0)+"^000000 but you can't join this event!";
               close;
           }
           mes "[ ^FF0000Poring Punch Event^000000 ]";
           mes "Good luck ^FF0000"+strcharinfo(0)+"^000000.";

           close2;
           set @PoringPoints, 0;
           warp "pvp_n_1-2.gat",0,0;
           end;
       }else{
           mes "[ ^FF0000Poring Punch Event^000000 ]";
           mes "Sorry. No Poring Punch Event is held at the moment.";

           close;
       }end;

   PPE_claim:
       if ($HighestPoringPointsName$ == strcharinfo(0) && $@PoringEventPrizeChecker == 1) {
           mes "[Poring Punch Event]";
           mes "Congragulations "+strcharinfo(0)+". Here is your reward.";
           getitem 9500,2;
           set $HighestPoringPointsName$,"";
           set $HighestPoringPoints,0;
           set $@PoringEventPrizeChecker, 0;
           close;
       } else {
           mes "[ ^FF0000Poring Punch Event^000000 ]";
           mes "Sorry ^FF0000"+strcharinfo(0)+"^000000. You're not the winner so you can't claim anything";

           close;
       }end;

   PPE_nvm:
       mes "[ ^FF0000Poring Punch Event^000000 ]";
       mes "Okay. Maybe next time.";

       close;

   OnPoringKill:
       if (getequipweaponlv(4)==0 && getequipweaponlv(3)==0){
           set @PoringPoints,@PoringPoints+1;
           if (@PoringPoints > $HighestPoringPoints) {
               set $HighestPoringPointsName$,strcharinfo(0);
               set $PPEDefendingChampion$,strcharinfo(0);
               set $HighestPoringPoints,@PoringPoints;
           }
           dispbottom "You have "+@PoringPoints+" point(s)";
           end;
       }else {
           dispbottom "You have to punch the monster without any weapon.";
           warp "prontera",130,200;
           end;
       }

   OnDropsKill:
       if (getequipweaponlv(4)==0 && getequipweaponlv(3)==0){
           set @PoringPoints,@PoringPoints+5;
           if (@PoringPoints > $HighestPoringPoints) {
               set $HighestPoringPointsName$,strcharinfo(0);
               set $PPEDefendingChampion$,strcharinfo(0);
               set $HighestPoringPoints,@PoringPoints;
           }
           dispbottom "You have "+@PoringPoints+" point(s)";
           end;
       }else {
           dispbottom "You have to punch the monster without any weapon.";
           warp "prontera",130,200;
           end;
       }


   OnPoporingKill:
       if (getequipweaponlv(4)==0 && getequipweaponlv(3)==0){
           if (@PoringPoints < 10) {
               set @PoringPoints, 0;
               dispbottom "You have "+@PoringPoints+" point(s)";
               end;
           }else {
               set @PoringPoints,@PoringPoints-10;
               dispbottom "You have "+@PoringPoints+" point(s)";
               end;
           }end;
       }else {
           dispbottom "You have to punch the monster without any weapon.";
           warp "prontera",130,200;
           end;
       }

}

pvp_n_1-2    mapflag    nobranch
pvp_n_1-2    mapflag    noexp
pvp_n_1-2    mapflag    noskill
pvp_n_1-2    mapflag    nomemo
pvp_n_1-2    mapflag    nopenalty
pvp_n_1-2    mapflag    pvp    off
pvp_n_1-2    mapflag    nosave    SavePoint
pvp_n_1-2    mapflag    noteleport
pvp_n_1-2    mapflag    nowarp
pvp_n_1-2    mapflag    nowarpto
pvp_n_1-2    mapflag    noloot

Here is the scenario.

Game1: Player 1 wins the event with 20 points. ---> Receives rewards --> then goes offline

Game2: Player 2 won the event with 19 points. ---> dont receives the reward, the announcer still recognizes player 1 as the winner because player 1 has more points than player 2. when player 1 logs in, he can get the reward even if he didnt play game 2.

That is the problem here. Any part of the script where i missed? or has misconfigurated? please help