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 935 times, submitted by Dynasty.