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

这个是强行全部删除，如果有人用外挂坐药，你就把他拉到你自己设计的地图里，让他在里面劳改。想删他什么就删他什么。
# t: M% ~$ Q* L- t4 ]: a! h'getsenderallitem 删除玩家身上所有同名的物品。不论数量
unit 删除回城;
inte**ce
function  GetToken (aStr, aToken, aSep : String) : String;
function  CompareStr (aStr1, aStr2 : String) : Boolean;
, x$ v; m/ N" r- B( i# Qfunction  callfunc (aText: string): string;
+ n4 Q$ Z4 [+ m( J* gprocedure print (aText: string);
function  Random (aScope: integer): integer;
function  Length (aText: string): integer;
procedure Inc (aInt: integer);
procedure Dec (aInt: integer);
1 |: p. z: M( R) l/ _; Sfunction  StrToInt (astr: string): integer;
function  IntToStr (aInt: integer): string;
/ F) f# Y1 c* ]) r% F$ I7 kprocedure exit;
procedure OnCreate (aStr : String);
5 K6 d' ?. |0 U3 ~+ }+ Uimplementation
procedure OnCreate (aStr : String);
6 Q; q% `6 V( K9 v9 ^& [var   Str : String;
   Race : Integer;
* T- y% I  E* G% fbegin   Str := callfunc ('getsenderrace');
0 i, R( K( j# B0 y4 z! O5 @3 a4 l8 I   Race := StrToInt (Str);
   if Race = 1 then begin
      print ('getsenderallitem 回城卷');
2 t( D4 t' N' k0 Y$ b. k6 c% D      print ('getsenderallitem 玉露丸');
, [. V& }) S3 J, e# H      end;
) S* {3 X8 }1 z; m. U/ E( Z6 N   exit;
end;
1 k/ X' }) [1 B& Qend.

0 u3 ~- f. S" [5 o8 K! I( E' R2 V; ]  v