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

这个是强行全部删除，如果有人用外挂坐药，你就把他拉到你自己设计的地图里，让他在里面劳改。想删他什么就删他什么。
'getsenderallitem 删除玩家身上所有同名的物品。不论数量
+ }* E- z2 i7 }: O% W: }unit 删除回城;
% Q3 s/ v- P: k: \1 m2 U. v" Jinte**ce
function  GetToken (aStr, aToken, aSep : String) : String;
' A' t; p/ V  u/ J8 d" g( ?function  CompareStr (aStr1, aStr2 : String) : Boolean;
! @' _- T: B2 d% `. f. Y* |5 Nfunction  callfunc (aText: string): string;
' ~! Q& F% F9 I* `procedure print (aText: string);
: R$ L' ~4 G2 X5 |# s& g( Hfunction  Random (aScope: integer): integer;
function  Length (aText: string): integer;
procedure Inc (aInt: integer);
procedure Dec (aInt: integer);
9 P* f: g; P# ?% p- h" l9 r" H6 O6 _function  StrToInt (astr: string): integer;
function  IntToStr (aInt: integer): string;
- ?7 u3 O' g+ A6 a+ Hprocedure exit;
procedure OnCreate (aStr : String);
implementation
9 {4 M, o' ~+ ]& L. zprocedure OnCreate (aStr : String);
var   Str : String;
) [( t$ M/ x; J3 m7 ^3 F   Race : Integer;
begin   Str := callfunc ('getsenderrace');
   Race := StrToInt (Str);
   if Race = 1 then begin
      print ('getsenderallitem 回城卷');
* R7 s% x) l# p: Q. D3 X      print ('getsenderallitem 玉露丸');
: u; s) F- a4 U3 i      end;
   exit;
3 _/ F" z$ h6 e; f1 xend;
3 c0 U2 g+ F5 t% }3 M1 J/ Eend.

! A* J: J+ R& [5 y! d