Request PvP Warper

[mR L]

hello, I want to request simple pvp warper

but with the following requirement

can enter if you have party with 4 members inside and online so you can warp at the map

but if you don't have party or you have party with 6 members but 4 member online & 2 member offline you still can't warp at the map
(so you must have 4 members inside & must be online too)

only player has party with 4 members online inside the party can warp

Thank you for helping  

[pajodex]

// Disclaimer :
// Yes this code is from example 2 of script_commands.txt

prontera,150,180,0	script	PvP Party Warper	100,{
	.@pvpmap$ = "guild_vs1"; // Pvp map
	.@register_num = 45; // How many party members are required?
	
	getpartymember getcharid(1), 1;
	getpartymember getcharid(1), 2;

	if ( !getcharid(1) || $@partymembercount != .@register_num ) {
		mes "Please form a party of " + .@register_num + " to continue";
		close;
	}
	for ( .@i = 0; .@i < $@partymembercount; .@i++ )
		if ( isloggedin( $@partymemberaid[.@i], $@partymembercid[.@i] ) )
			.@count_online++;
	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; 
	select("Yes");
	getpartymember getcharid(1), 1;
	if ( $@partymembercount != .@register_num ) {
		mes "You've made changes to your party !";
		close;
	}
	for ( .@i = 0; .@i < $@partymembercount; .@i++ ) {
		if ( .@partymembercid[.@i] != $@partymembercid[.@i] ) {
			mes "You've made changes to your party !";
			close;
		}
	}
	warpparty .@pvpmap$, 0,0, getcharid(1);
	end;
}

 

[mR L]

9 hours ago, pajodex said:

// Disclaimer :
// Yes this code is from example 2 of script_commands.txt

prontera,150,180,0	script	PvP Party Warper	100,{
	.@pvpmap$ = "guild_vs1"; // Pvp map
	.@register_num = 45; // How many party members are required?
	
	getpartymember getcharid(1), 1;
	getpartymember getcharid(1), 2;

	if ( !getcharid(1) || $@partymembercount != .@register_num ) {
		mes "Please form a party of " + .@register_num + " to continue";
		close;
	}
	for ( .@i = 0; .@i < $@partymembercount; .@i++ )
		if ( isloggedin( $@partymemberaid[.@i], $@partymembercid[.@i] ) )
			.@count_online++;
	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; 
	select("Yes");
	getpartymember getcharid(1), 1;
	if ( $@partymembercount != .@register_num ) {
		mes "You've made changes to your party !";
		close;
	}
	for ( .@i = 0; .@i < $@partymembercount; .@i++ ) {
		if ( .@partymembercid[.@i] != $@partymembercid[.@i] ) {
			mes "You've made changes to your party !";
			close;
		}
	}
	warpparty .@pvpmap$, 0,0, getcharid(1);
	end;
}

 

Thank you so much @pajodex