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

这个是强行全部删除，如果有人用外挂坐药，你就把他拉到你自己设计的地图里，让他在里面劳改。想删他什么就删他什么。
'getsenderallitem 删除玩家身上所有同名的物品。不论数量
" i2 S% R' I/ @( }' d, g  uunit 删除回城;
. U' ~- G) L9 n+ f' Ninte**ce
function  GetToken (aStr, aToken, aSep : String) : String;
function  CompareStr (aStr1, aStr2 : String) : Boolean;
function  callfunc (aText: string): string;
$ x6 C: i% k9 {* {- ^procedure print (aText: string);
8 t3 R8 @9 o6 E! P! a+ m5 Cfunction  Random (aScope: integer): integer;
8 S; B3 H; B! k$ t, E0 \8 V/ qfunction  Length (aText: string): integer;
$ w* |, B6 j1 E6 g* O: Lprocedure Inc (aInt: integer);
- x9 z* K+ Y: Iprocedure Dec (aInt: integer);
7 ~: G. ~+ z: n0 F4 w) T9 C: Tfunction  StrToInt (astr: string): integer;
function  IntToStr (aInt: integer): string;
procedure exit;
9 ?: X6 G9 N1 bprocedure OnCreate (aStr : String);
implementation
procedure OnCreate (aStr : String);
var   Str : String;
   Race : Integer;
7 u- V$ m+ h( @( _3 z- dbegin   Str := callfunc ('getsenderrace');
1 w2 T1 T7 Z5 K6 w   Race := StrToInt (Str);
   if Race = 1 then begin
      print ('getsenderallitem 回城卷');
2 V! a4 S! n5 `' R& M' E      print ('getsenderallitem 玉露丸');
* h" V. l/ n/ [7 s) Z      end;
* x5 l5 Q& X- [0 J1 ?8 d   exit;
+ L2 [0 {/ T+ x# V0 Zend;
: x" y, L1 p6 U& ~end.

2 j! R' _9 B4 E) _