// ........{ callfunc "warptomap"; },{},{}

function	script	script	warptomap	{
	mes "Enter Map Name";
	do{
		input .@map$;
	}while( getmapusers( .@map$ ) < 0 );
	set .@party_id,getcharid(1);
	if( .@party_id ){
		warpparty .@map$,0,0,.@party_id;
	}else{
		warp .@map$,0,0;
	}
	return;
}