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;
}