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