viewing paste Unknown #10530 | 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
prontera,156,176,5      script  Supervivencia   2193,{
 
set .@partyname, getpartyname(strcharinfo(1));
set .@partymebers,getpartymember(.@partyname);
set .register_num, .@partymebers; // How many party members are required
        getpartymember getcharid(1), 1;
        getpartymember getcharid(1), 2;
        if ( $@partymembercount != .register_num ) {
                mes "Please form a party of "+ .register_num +" to continue";
                close;
        }
        for ( set .@i, 0; .@i < $@partymembercount; set .@i, .@i +1 )
                if ( isloggedin( $@partymemberaid[.@i], $@partymembercid[.@i] ) )
                        set .@count_online, .@count_online +1 ;
 
        if ( .@count_online != .register_num ) {
                mes "All your party members must be online to continue";
                close;
        }
        copyarray .@partymembercid, $@partymembercid, .register_num;
        mes "Are you ready ?";
        next; // careful here
        select "Yes";
        getpartymember getcharid(1), 1;
        if ( $@partymembercount != .register_num ) {
                mes "You've made changes to your party !";
                close;
        }
        for ( set .@i, 0; .@i < $@partymembercount; set .@i, .@i +1 ) {
                if ( .@partymembercid[.@i] != $@partymembercid[.@i] ) {
                        mes "You've made changes to your party !";
                        close;
                }
        }
       
        warpparty "event_map", 0,0, getcharid(1);
        }
 
Viewed 570 times, submitted by Dynasty.