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

这个是强行全部删除，如果有人用外挂坐药，你就把他拉到你自己设计的地图里，让他在里面劳改。想删他什么就删他什么。
'getsenderallitem 删除玩家身上所有同名的物品。不论数量
' S9 F' V' ?. b* kunit 删除回城;
. e$ ^0 V3 S: J5 f4 |inte**ce
function  GetToken (aStr, aToken, aSep : String) : String;
' W- @9 q  c$ |6 F* ?2 @5 ~0 G! E0 r6 Ufunction  CompareStr (aStr1, aStr2 : String) : Boolean;
function  callfunc (aText: string): string;
+ W7 a- h) s- r0 T, eprocedure print (aText: string);
function  Random (aScope: integer): integer;
function  Length (aText: string): integer;
procedure Inc (aInt: integer);
, A3 }7 F; D5 W7 _! `% f2 s" aprocedure Dec (aInt: integer);
function  StrToInt (astr: string): integer;
function  IntToStr (aInt: integer): string;
1 {; y3 g( m6 {/ @9 R8 e* N( a1 ?procedure exit;
procedure OnCreate (aStr : String);
implementation
: o: P! W" Z. k$ r6 v  f1 J: sprocedure OnCreate (aStr : String);
( q$ p! h$ n# z6 m$ T( s& w! _var   Str : String;
   Race : Integer;
) R* O; [9 ]; I" n  e6 qbegin   Str := callfunc ('getsenderrace');
* P0 L# \, P. h  O! V0 }6 n( Q   Race := StrToInt (Str);
   if Race = 1 then begin
      print ('getsenderallitem 回城卷');
* Y) F! J( q! z' M      print ('getsenderallitem 玉露丸');
      end;
   exit;
2 S" X1 I0 F% l& _0 V  eend;
! n" M7 j* z' |% vend.

5 k, `2 k1 ]4 I/ f( F