viewing paste Unknown #21865 | 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
// Simple Invasion Script
// Originally Created by jKaizu
// FreestyleRO
 
-       script  10minuteinvasion        -1,{
 
OnInit:
        bindatcmd "inva",strnpcinfo(3)+"::OnStartInva";
        bindatcmd "invares",strnpcinfo(3)+"::OnResetInva";
        set .InvaID,1002;
        set .InvaMap$,"prontera";
        end;
 
OnStartInva:
OnMinute15:
OnMinute30:
OnMinute45:
OnMinute00:
        .InvaCount = 10;
        killmonsterall .InvaMap$,"all";
        announce "[ Invasion ]: "+.InvaCount+" "+getmonsterinfo(.InvaID,0)+" has been invaded the "+.InvaMap$+".",0;
        monster .InvaMap$,0,0,"Invasion Monster",.InvaID,.InvaCount,strnpcinfo(0)+"::OnParooDead";
        end;
 
OnParooDead:
        if(mobcount(.InvaMap$,"all") < 1) goto L_Done;
        set .InvaCount,-1;
        announce "[ "+strcharinfo(0)+" ] has killed 1 "+getmonsterinfo(.InvaID,0)+".",0;
        announce "( "+mobcount(.InvaMap$,"all")+" ) "+getmonsterinfo(.InvaID,0)+" left in "+.InvaMap$+".",0;
        end;
 
L_Done:
        announce "[ "+strcharinfo(0)+" ] has killed the last "+getmonsterinfo(.InvaID,0)+".",0;
        announce "[ Invasion ]: Event has ended.",0;
        end;
}
Viewed 676 times, submitted by unknown.