viewing paste Unknown #21719 | Text

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
-       script  10minuteinvasion        -1,{
 
OnInit:
        bindatcmd "inva",strnpcinfo(3)+"::OnStartInva";
        set .InvaID,3008;
        set .InvaMap$,"jupe_ele";
        end;
 
OnStartInva:
OnMinute10:
OnMinute20:
OnMinute30:
OnMinute40:
OnMinute50:
OnMinute00:
        if(.InvaStart == 1) end;
        .InvaStart = 1;
        .InvaCount = 10;
        announce "[ Invasion ]: "+.InvaCount+" "+getmonsterinfo(.InvaID,0)+" has been invaded the "+.InvaMap$+".",0;
        monster .InvaMap$,0,0,"Paroo Paroo",.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:
        .InvaStart = 0;
        announce "[ "+strcharinfo(0)+" ] killed the last "+getmonsterinfo(.InvaID,0)+".",0;
        announce "[ Invasion ]: Event has ended.",0;
        end;
}
Viewed 401 times, submitted by unknown.