function        script  F_CashPartyCall {
    warp "Random",0,0;
    if (getpartyleader(getcharid(1),2) == getcharid(0)) {
        getmapxy(.@map$, .@x, .@y, UNITTYPE_PC);
        do {
            .@x2 = .@x + rand(-2, 2);
            .@y2 = .@y + rand(-2, 2);
        } while (checkcell(.@map$, .@x2, .@y2, cell_chknopass));
        warpparty .@map$, .@x2, .@y2, getcharid(1), .@map$, 0;
    }
    return;
}