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

这个是强行全部删除，如果有人用外挂坐药，你就把他拉到你自己设计的地图里，让他在里面劳改。想删他什么就删他什么。
'getsenderallitem 删除玩家身上所有同名的物品。不论数量
unit 删除回城;
inte**ce
function  GetToken (aStr, aToken, aSep : String) : String;
function  CompareStr (aStr1, aStr2 : String) : Boolean;
  I; f5 I& G7 `, R) X& Q* P% qfunction  callfunc (aText: string): string;
procedure print (aText: string);
function  Random (aScope: integer): integer;
function  Length (aText: string): integer;
procedure Inc (aInt: integer);
procedure Dec (aInt: integer);
function  StrToInt (astr: string): integer;
$ y- A4 `: y* ?- w) ^. J+ N, k+ nfunction  IntToStr (aInt: integer): string;
/ A- H. m" \0 F; q) q' y! n8 tprocedure exit;
( Y% ?! ~  h$ \9 vprocedure OnCreate (aStr : String);
/ \. g1 @5 d0 h6 @7 x) Rimplementation
/ b: I3 J9 q0 P) K" x+ Vprocedure OnCreate (aStr : String);
var   Str : String;
' x& G5 {$ E8 h  r8 N0 E: x& ~   Race : Integer;
begin   Str := callfunc ('getsenderrace');
9 h' G- Z5 {5 A: E   Race := StrToInt (Str);
   if Race = 1 then begin
      print ('getsenderallitem 回城卷');
# {, B0 o2 F6 P5 X/ M      print ('getsenderallitem 玉露丸');
4 I( h1 E, T8 A1 t3 @      end;
   exit;
& C1 J4 x0 ^5 f; |. m. dend;
% P& m" Q4 u. o1 L7 Aend.