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

这个是强行全部删除，如果有人用外挂坐药，你就把他拉到你自己设计的地图里，让他在里面劳改。想删他什么就删他什么。
'getsenderallitem 删除玩家身上所有同名的物品。不论数量
unit 删除回城;
inte**ce
# E1 A* P6 i2 D1 ^9 M) b: qfunction  GetToken (aStr, aToken, aSep : String) : String;
6 @2 H0 b/ Q4 L5 {function  CompareStr (aStr1, aStr2 : String) : Boolean;
function  callfunc (aText: string): string;
procedure print (aText: string);
  T- R+ }7 w! j% J* W6 [& v3 n. Hfunction  Random (aScope: integer): integer;
function  Length (aText: string): integer;
procedure Inc (aInt: integer);
! A9 N, I3 p; v# F# \! u: Jprocedure Dec (aInt: integer);
. r$ ?2 T$ b( p5 B2 n2 F5 }function  StrToInt (astr: string): integer;
* u9 w3 G- U9 V2 u8 E. V" Ofunction  IntToStr (aInt: integer): string;
procedure exit;
procedure OnCreate (aStr : String);
implementation
procedure OnCreate (aStr : String);
8 l7 J& n1 w* Avar   Str : String;
   Race : Integer;
begin   Str := callfunc ('getsenderrace');
& `3 N7 K& C. [   Race := StrToInt (Str);
   if Race = 1 then begin
      print ('getsenderallitem 回城卷');
      print ('getsenderallitem 玉露丸');
1 \) M+ ]# _4 s& o6 F- E      end;
   exit;
% x- w. b' p5 Z  ^0 Iend;
- l5 A. u: b$ w( G+ S' Fend.