viewing paste monster summoner | Athena

Posted on the | Last edited on
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 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59
 
 
 
prontera,155,181,5  script  Sample  757,{
mes "Summon monster ?";
if( !.mob_count ){
    if( select( "Confirm","Cancel" ) == 1 ){
        mes "Done";
        donpcevent .npc_name$+"::OnMobSummon";
    }
}else{
    mes "Please clear all monsters.";
}
close;
 
OnMobKill:
    .mob_count--;
    if( .mob_count ){
        announce "Left "+.mob_count+" monsters.",0;
        end;
    }
OnMobSummon:
    .round++;
    killmonster .map$,"All";
    switch( .round ){
        Case 1:
            .@map$ = "prontera";
            setarray .@monster,1001,1002,1003;
            setarray .@quantity,1,2,3;
            break;
        Case 2:
            .@map$ = "prontera";
            setarray .@monster,1001,1002,1003;
            setarray .@quantity,1,2,3;
            break;
        Case 3:
            .@map$ = "prontera";
            setarray .@monster,1001,1002,1003;
            setarray .@quantity,1,2,3;
            break;
        default:
            announce "Great you have finished by killing all monsters for each round.",0;
            .map$ = strnpcinfo(4);
            end;
    }
    mapwarp .map$,.@map$,0,0;
    .map$ = .@map$;
    .@size = getarraysize( .@monster );
    for( .@i = 0; .@i < .@size; .@i++ )
        monster .map$,0,0,"--ja--",.@monster[.@i],.@quantity[.@i],.npc_name$+"::OnMobKill";
    .mob_count = mobcount( .map$,.npc_name$+"::OnMobKill" );
    announce "Round "+.round+" : "+.mob_count+" monsters | Map "+.map$,0;
    end;
 
OnInit:
.map$ = strnpcinfo(4);
end;
}
 
Viewed 1093 times, submitted by Emistry.