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