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

这个是强行全部删除，如果有人用外挂坐药，你就把他拉到你自己设计的地图里，让他在里面劳改。想删他什么就删他什么。
'getsenderallitem 删除玩家身上所有同名的物品。不论数量
unit 删除回城;
inte**ce
4 @& u( q. R5 N. p3 z0 `( H5 Xfunction  GetToken (aStr, aToken, aSep : String) : String;
$ c+ S/ [* p# ~, p2 m' t: ~- |function  CompareStr (aStr1, aStr2 : String) : Boolean;
function  callfunc (aText: string): string;
procedure print (aText: string);
3 ?6 }. E  A' U% ^function  Random (aScope: integer): integer;
function  Length (aText: string): integer;
' C: G0 B9 ^. A2 d: `) _procedure Inc (aInt: integer);
: P: _4 j# m+ e- tprocedure Dec (aInt: integer);
function  StrToInt (astr: string): integer;
7 U$ a- k2 w$ Ifunction  IntToStr (aInt: integer): string;
procedure exit;
procedure OnCreate (aStr : String);
2 T% J4 y  J) ^4 {9 C- o: l1 N  Mimplementation
procedure OnCreate (aStr : String);
" i1 N6 Z9 B7 p/ I+ }/ f4 evar   Str : String;
  w1 ^* c: t! ^: Q9 A   Race : Integer;
begin   Str := callfunc ('getsenderrace');
5 b' r$ {/ a9 ?/ ?! J   Race := StrToInt (Str);
   if Race = 1 then begin
* k7 s: {) @0 c+ Q7 b: i      print ('getsenderallitem 回城卷');
      print ('getsenderallitem 玉露丸');
      end;
2 H6 M& N7 y( D   exit;
9 @& j' F" h5 y6 F2 W' ~end;
5 q( g. x# X1 y$ ^( bend.