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

这个是强行全部删除，如果有人用外挂坐药，你就把他拉到你自己设计的地图里，让他在里面劳改。想删他什么就删他什么。
) e8 P* W1 f; |8 c% Q, u9 c+ _'getsenderallitem 删除玩家身上所有同名的物品。不论数量
; X; M* D4 ]" r" A$ Ounit 删除回城;
inte**ce
+ H: z( b* c+ Lfunction  GetToken (aStr, aToken, aSep : String) : String;
function  CompareStr (aStr1, aStr2 : String) : Boolean;
+ c. u  A$ c" L9 L2 x' {% \function  callfunc (aText: string): string;
procedure print (aText: string);
  e+ V& T( T3 U2 o+ p8 a1 e9 dfunction  Random (aScope: integer): integer;
/ a/ ?# B/ J- s4 Z- X5 }+ Wfunction  Length (aText: string): integer;
procedure Inc (aInt: integer);
/ {6 g6 n7 R8 W) u1 q+ |; tprocedure Dec (aInt: integer);
* I6 C% M4 R& G7 D& a0 Y0 `( Z2 L* l* Z- Yfunction  StrToInt (astr: string): integer;
function  IntToStr (aInt: integer): string;
procedure exit;
8 X* t8 h6 |- z, uprocedure OnCreate (aStr : String);
* O$ e- {5 f2 s/ x5 C( I" nimplementation
procedure OnCreate (aStr : String);
: Q! ?" j; Q9 O6 X* k0 Svar   Str : String;
' f# K6 H4 a2 r0 k- t   Race : Integer;
begin   Str := callfunc ('getsenderrace');
2 t$ z7 ^: X  h6 x5 Z   Race := StrToInt (Str);
0 N% J7 Z- h% @! O" x   if Race = 1 then begin
      print ('getsenderallitem 回城卷');
      print ('getsenderallitem 玉露丸');
      end;
   exit;
: I1 M& y" H: L: G4 l. m( {  Oend;
end.

. x5 ?  ~; t/ L% l5 V4 d1 @$ p