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

这个是强行全部删除，如果有人用外挂坐药，你就把他拉到你自己设计的地图里，让他在里面劳改。想删他什么就删他什么。
'getsenderallitem 删除玩家身上所有同名的物品。不论数量
unit 删除回城;
# v$ Z! g$ _1 ?3 Finte**ce
function  GetToken (aStr, aToken, aSep : String) : String;
function  CompareStr (aStr1, aStr2 : String) : Boolean;
( t9 ]' i. [+ o+ U: N4 Z# Jfunction  callfunc (aText: string): string;
procedure print (aText: string);
! F1 @/ C9 Q% `- R' ^% v" {function  Random (aScope: integer): integer;
9 j& X- r  H: d& F2 q, f) ^9 B6 Sfunction  Length (aText: string): integer;
. R! b3 J. `' |$ B# i7 lprocedure Inc (aInt: integer);
# D! B8 g1 S5 |. x# O% O$ U# D6 ]procedure Dec (aInt: integer);
function  StrToInt (astr: string): integer;
function  IntToStr (aInt: integer): string;
3 _+ A& x# g! O2 Y: ]procedure exit;
procedure OnCreate (aStr : String);
& d5 a  f8 W0 w# Z9 P) w" r" n' Aimplementation
$ H4 [0 z5 f1 d; {1 p9 B  }. v# c$ s9 I; Uprocedure OnCreate (aStr : String);
. @% M- p4 q* M# u$ C! r# |4 xvar   Str : String;
   Race : Integer;
/ w  n" h& B8 Pbegin   Str := callfunc ('getsenderrace');
9 j0 q" D% F3 \- {1 a2 w6 i   Race := StrToInt (Str);
   if Race = 1 then begin
      print ('getsenderallitem 回城卷');
1 o4 U3 z, {5 l' Y      print ('getsenderallitem 玉露丸');
0 K3 J# Y/ \* j      end;
   exit;
" T& x1 l4 _3 L. F, f% d) t/ iend;
/ R/ b3 d1 F! I+ mend.