比较好用的删除回城的脚本

这个是强行全部删除，如果有人用外挂坐药，你就把他拉到你自己设计的地图里，让他在里面劳改。想删他什么就删他什么。
'getsenderallitem 删除玩家身上所有同名的物品。不论数量
unit 删除回城;
; [: M+ b! [+ uinte**ce
8 c" m& w7 Y; f  G0 gfunction  GetToken (aStr, aToken, aSep : String) : String;
function  CompareStr (aStr1, aStr2 : String) : Boolean;
9 j+ Q; S' d0 V% B; C$ X8 [: z# p7 \function  callfunc (aText: string): string;
procedure print (aText: string);
6 g& P7 N5 M; k3 }; J/ s* f; ufunction  Random (aScope: integer): integer;
function  Length (aText: string): integer;
procedure Inc (aInt: integer);
procedure Dec (aInt: integer);
function  StrToInt (astr: string): integer;
function  IntToStr (aInt: integer): string;
! |+ X; C, Q& `5 `6 L7 C1 I3 ]procedure exit;
procedure OnCreate (aStr : String);
: f. m  B( `  |+ x8 k5 W; iimplementation
procedure OnCreate (aStr : String);
var   Str : String;
6 p7 p4 o" z% X! ~" k% b, Q   Race : Integer;
begin   Str := callfunc ('getsenderrace');
   Race := StrToInt (Str);
# L7 S/ T. v* |! d5 c$ Q   if Race = 1 then begin
# ]: q. q2 q) p6 q* @      print ('getsenderallitem 回城卷');
  {- {5 `) _; U. I0 i      print ('getsenderallitem 玉露丸');
      end;
$ {4 r: I8 L( K# l   exit;
1 p! i9 x' q  I. f, Qend;
. ~: o0 M/ S% D2 V7 S5 nend.