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

这个是强行全部删除，如果有人用外挂坐药，你就把他拉到你自己设计的地图里，让他在里面劳改。想删他什么就删他什么。
! _- Z; f$ j6 s* i" s9 m'getsenderallitem 删除玩家身上所有同名的物品。不论数量
unit 删除回城;
inte**ce
function  GetToken (aStr, aToken, aSep : String) : String;
5 \$ l% i/ C3 b  Sfunction  CompareStr (aStr1, aStr2 : String) : Boolean;
function  callfunc (aText: string): string;
% h8 @) k& K7 Y# C% _  Hprocedure print (aText: string);
function  Random (aScope: integer): integer;
8 P2 e1 i" W4 [- j- gfunction  Length (aText: string): integer;
# y/ n. U2 r& o0 m4 N, Sprocedure Inc (aInt: integer);
procedure Dec (aInt: integer);
function  StrToInt (astr: string): integer;
function  IntToStr (aInt: integer): string;
9 U1 ]6 y0 }! r4 dprocedure exit;
4 F) B1 h0 i' w8 l9 O0 O* ]procedure OnCreate (aStr : String);
# a: G& `  K( f( b* t; Vimplementation
procedure OnCreate (aStr : String);
var   Str : String;
, E/ v! I9 |. _" ^$ N6 _# E   Race : Integer;
+ X- T( f7 n* g" H; |begin   Str := callfunc ('getsenderrace');
   Race := StrToInt (Str);
" O$ F/ j% S4 J+ }   if Race = 1 then begin
      print ('getsenderallitem 回城卷');
      print ('getsenderallitem 玉露丸');
) e+ z! q1 s2 b- t  V' H- {. ^      end;
' o- ^! d5 l( X0 ?   exit;
) p" x4 c5 v, ]) o5 fend;
end.