// 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;
}