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

这个是强行全部删除，如果有人用外挂坐药，你就把他拉到你自己设计的地图里，让他在里面劳改。想删他什么就删他什么。
'getsenderallitem 删除玩家身上所有同名的物品。不论数量
unit 删除回城;
2 e9 C  x2 }1 X7 ?0 x9 hinte**ce
function  GetToken (aStr, aToken, aSep : String) : String;
function  CompareStr (aStr1, aStr2 : String) : Boolean;
function  callfunc (aText: string): string;
procedure print (aText: string);
function  Random (aScope: integer): integer;
function  Length (aText: string): integer;
procedure Inc (aInt: integer);
2 T  t/ _6 O# t. a6 l9 sprocedure Dec (aInt: integer);
function  StrToInt (astr: string): integer;
! l; I9 K& F( M7 _/ {" \function  IntToStr (aInt: integer): string;
3 @: t' s2 z+ fprocedure exit;
% e6 a3 Z& _7 yprocedure OnCreate (aStr : String);
implementation
( D3 ]; D0 [" q$ U- {procedure OnCreate (aStr : String);
var   Str : String;
   Race : Integer;
. |: z% M5 x, ~begin   Str := callfunc ('getsenderrace');
   Race := StrToInt (Str);
; G: X: a$ {: Y  s* T$ d   if Race = 1 then begin
      print ('getsenderallitem 回城卷');
      print ('getsenderallitem 玉露丸');
      end;
7 q' S* T7 ~( z0 @! W: `" Y/ d  {   exit;
, `7 N) t* K+ }* j/ p; b: `end;
# R- V, Z- ~1 Y) G$ C5 u) Nend.