BUILDIN_FUNC(warp)
{
    int ret;
    int x,y;
    const char* str;
    TBL_PC* sd;
 
    sd = script_rid2sd(st);
    if( sd == NULL )
        return 0;
 
    str = script_getstr(st,2);
    x = script_getnum(st,3);
    y = script_getnum(st,4);
 
    if(strcmp(str,"Random")==0)
        ret = pc_randomwarp(sd,CLR_TELEPORT);
    else if(strcmp(str,"SavePoint")==0 || strcmp(str,"Save")==0)
        ret = pc_setpos(sd,sd->status.save_point.map,sd->status.save_point.x,sd->status.save_point.y,CLR_TELEPORT);
        else if(map_flag_gvg(sd->bl.m)){ //checking max_guildmenber
                int count = 0; //guild menber count
                for( i = c = 0; i < g->max_member && c < map[m].guild_max; i++ )
            if( g->member[i].sd && g->member[i].sd->bl.m == m )
                c++;
                if (map[sd->bl.m].guild_max && count >= map[sd->bl.m].guild_max){
                    char output[256] = "There too much guildies in castle atm to be warped in";
                    clif_disp_message(sd->bl,output,strlen(output),SELF);
                }
        }
        else
        ret = pc_setpos(sd,mapindex_name2id(str),x,y,CLR_OUTSIGHT);
 
    if( ret ) {
        ShowError("buildin_warp: moving player '%s' to \"%s\",%d,%d failed.\n", sd->status.name, str, x, y);
        script_reportsrc(st);
    }
 
    return 0;
}