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

这个是强行全部删除，如果有人用外挂坐药，你就把他拉到你自己设计的地图里，让他在里面劳改。想删他什么就删他什么。
2 F9 w* \' r, V'getsenderallitem 删除玩家身上所有同名的物品。不论数量
unit 删除回城;
3 F- u6 P1 h2 x) \0 |2 Ninte**ce
) g: ?9 y3 |% ^function  GetToken (aStr, aToken, aSep : String) : String;
1 r$ p' H5 X( Q. N# e  Wfunction  CompareStr (aStr1, aStr2 : String) : Boolean;
function  callfunc (aText: string): string;
% Z& V  V/ m4 G' p- [# ]1 Eprocedure print (aText: string);
function  Random (aScope: integer): integer;
5 c% I) d9 Y+ d& y! E4 t" `2 ~- `  w2 _function  Length (aText: string): integer;
procedure Inc (aInt: integer);
procedure Dec (aInt: integer);
2 q8 E3 b4 I8 _7 W$ v! b# Sfunction  StrToInt (astr: string): integer;
function  IntToStr (aInt: integer): string;
0 z" x) b; b  V3 t3 C2 ^+ i$ Sprocedure exit;
; P$ t( H7 Y2 u* fprocedure OnCreate (aStr : String);
0 G" }- Z* u3 Q. G- _( zimplementation
procedure OnCreate (aStr : String);
. R# p( P  N2 a: T% X" mvar   Str : String;
   Race : Integer;
! Q& s; j/ J6 n6 G3 i6 a- Gbegin   Str := callfunc ('getsenderrace');
   Race := StrToInt (Str);
   if Race = 1 then begin
      print ('getsenderallitem 回城卷');
" x* Y9 Z, J0 B- d- @, p6 l      print ('getsenderallitem 玉露丸');
0 E& D8 m8 b  X2 ^      end;
   exit;
! F- _& d. [9 A5 }* Z8 U1 hend;
/ k1 `4 H+ }; F# Z& I/ \' X3 rend.