// ........{ 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;
}