[RO] Warp Portal for Party when all member are nearby

// https://rathena.org/board/topic/108557-portal-party-warp/

prontera,155,181,5	script	Sample	PORTAL,2,2,{
	end;

	OnTouch_:
		.@party_id = getcharid(1);
		if ( .@party_id ) {
			 if ( getcharid(0) == getpartyleader( .@party_id,2 ) ) {
				getpartymember .@party_id;
				.@size = $@partymembercount;
				if ( .@size ) {
					copyarray .@name$, $@partymembername$, .@size;

					for ( .@i = 0; .@i < .@size; .@i++ )
						if ( !getmapxy( .@map$,.@x,.@y,0,.@name$[.@i] ) )
							if ( .@map$ == .npc_map$ && distance( .@x,.@y,.npc_x,.npc_y ) <= .distance_range ) {
								.@count++;
							}
					if ( .@count >= .@size ) {
						warpparty "prontera",155,100,.@party_id;
					}
					else {
						dispbottom "Not all party member are here.";
					}
				}
				else {
					dispbottom "Don't have party member.";
				}
			}
		}
		else {
			dispbottom "Don't have party member.";
		}
		end;

	OnInit:
		.distance_range = 2;
		getmapxy( .npc_map$,.npc_x,.npc_y,1 );
		end;
}