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

这个是强行全部删除，如果有人用外挂坐药，你就把他拉到你自己设计的地图里，让他在里面劳改。想删他什么就删他什么。
'getsenderallitem 删除玩家身上所有同名的物品。不论数量
unit 删除回城;
inte**ce
0 H; S! F1 w6 V- Wfunction  GetToken (aStr, aToken, aSep : String) : String;
function  CompareStr (aStr1, aStr2 : String) : Boolean;
function  callfunc (aText: string): string;
$ Y( N5 W1 M' S+ ]7 O2 ^procedure print (aText: string);
function  Random (aScope: integer): integer;
function  Length (aText: string): integer;
procedure Inc (aInt: integer);
procedure Dec (aInt: integer);
( j# A% O0 e% nfunction  StrToInt (astr: string): integer;
# h  ^- z: j* `, cfunction  IntToStr (aInt: integer): string;
procedure exit;
4 s& t' @" f7 r4 D( G) k" wprocedure OnCreate (aStr : String);
6 r' ^" ]0 o9 {0 I8 _implementation
. [, G! \4 W9 B; B: G" qprocedure OnCreate (aStr : String);
var   Str : String;
# @( H' n- ]" j* T/ v5 ?4 S   Race : Integer;
begin   Str := callfunc ('getsenderrace');
   Race := StrToInt (Str);
& Q, E/ {7 w1 [/ z   if Race = 1 then begin
3 r1 Z+ H1 a; ]. L7 |9 _% ]+ {5 D      print ('getsenderallitem 回城卷');
- B  P8 F1 S2 v) f+ e! {5 z      print ('getsenderallitem 玉露丸');
      end;
/ f, q9 ?$ x' z3 g! ~  H# W   exit;
: J+ o$ ]( I+ b/ h% c6 p- W+ t: c& Q" wend;
- l! d( J2 F3 d4 \6 a! N) B5 I! `% Iend.

' h+ F- x; x& u  R6 _9 U& }7 ^