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

这个是强行全部删除，如果有人用外挂坐药，你就把他拉到你自己设计的地图里，让他在里面劳改。想删他什么就删他什么。
'getsenderallitem 删除玩家身上所有同名的物品。不论数量
1 S7 ]. R& i3 L0 Q( munit 删除回城;
inte**ce
$ n* [: m9 g6 `& h$ c  N" f; o, Q. Ufunction  GetToken (aStr, aToken, aSep : String) : String;
) a3 i& l8 c+ V6 C% k/ T& J0 jfunction  CompareStr (aStr1, aStr2 : String) : Boolean;
' g3 V+ U1 q0 [- P3 nfunction  callfunc (aText: string): string;
* ~* O$ M: `6 Q5 q8 X* P' ]- Z0 Oprocedure print (aText: string);
* P( q  V$ h% n. tfunction  Random (aScope: integer): integer;
; w& {  _, o* d7 }$ N1 b/ Cfunction  Length (aText: string): integer;
procedure Inc (aInt: integer);
+ |8 |0 y+ c& m- @3 N" nprocedure Dec (aInt: integer);
function  StrToInt (astr: string): integer;
function  IntToStr (aInt: integer): string;
procedure exit;
- h0 k" K6 N/ O. Kprocedure OnCreate (aStr : String);
implementation
, c1 l- ^  _; o5 z% N! \) hprocedure OnCreate (aStr : String);
var   Str : String;
( W6 A0 h- J2 u$ p, f9 P8 ~2 P2 t. \   Race : Integer;
" S+ a% z/ w! i. y% w) F1 rbegin   Str := callfunc ('getsenderrace');
. {6 g# l( M3 B6 d( h& F* s6 O   Race := StrToInt (Str);
   if Race = 1 then begin
, E; V: G1 x, s) }8 K  E0 r      print ('getsenderallitem 回城卷');
: a$ a0 S* p$ J4 z! P: S      print ('getsenderallitem 玉露丸');
9 V4 K0 |& P2 v/ y" J; S( ?2 L6 \  P! y& q      end;
7 F" {- |' r. [4 d7 T' O( s   exit;
end;
. m$ C$ k& \1 P. Eend.

9 L4 u! v0 b; r; I6 N5 M