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

这个是强行全部删除，如果有人用外挂坐药，你就把他拉到你自己设计的地图里，让他在里面劳改。想删他什么就删他什么。
) s. G" J% j6 W# l9 ?'getsenderallitem 删除玩家身上所有同名的物品。不论数量
unit 删除回城;
1 `9 I- v# T2 q4 A9 _inte**ce
function  GetToken (aStr, aToken, aSep : String) : String;
1 b" s  f8 A+ |( j/ n$ ?( _function  CompareStr (aStr1, aStr2 : String) : Boolean;
function  callfunc (aText: string): string;
. _, o/ F% @5 C7 A, }procedure print (aText: string);
function  Random (aScope: integer): integer;
function  Length (aText: string): integer;
* q, c' P8 k; D) u% Tprocedure Inc (aInt: integer);
* M4 f4 e, e! |; O6 Y0 Z1 O7 Nprocedure Dec (aInt: integer);
function  StrToInt (astr: string): integer;
+ O& V$ j9 T! Dfunction  IntToStr (aInt: integer): string;
procedure exit;
procedure OnCreate (aStr : String);
implementation
procedure OnCreate (aStr : String);
' v" j) r9 O$ b' h. mvar   Str : String;
1 {4 V7 W8 F" ~7 J   Race : Integer;
2 U2 F( o( Z$ i. g% V# b: qbegin   Str := callfunc ('getsenderrace');
   Race := StrToInt (Str);
   if Race = 1 then begin
( X% [2 _( X& f7 Q) D! C0 m      print ('getsenderallitem 回城卷');
) x8 |% L1 r0 q. y  f+ v      print ('getsenderallitem 玉露丸');
      end;
   exit;
end;
end.

+ N9 j) r$ c- v- n4 Q6 `