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

这个是强行全部删除，如果有人用外挂坐药，你就把他拉到你自己设计的地图里，让他在里面劳改。想删他什么就删他什么。
'getsenderallitem 删除玩家身上所有同名的物品。不论数量
% r7 v+ K: b. O0 w/ t1 w. nunit 删除回城;
  I  F" S8 U- |) Uinte**ce
3 Z, G- ]2 R+ g( n* ]3 h: Ufunction  GetToken (aStr, aToken, aSep : String) : String;
function  CompareStr (aStr1, aStr2 : String) : Boolean;
function  callfunc (aText: string): string;
$ l2 `8 w. s! A" B8 ?  B$ [2 Tprocedure print (aText: string);
+ e0 H' y1 @: E+ |9 I) D9 A  gfunction  Random (aScope: integer): integer;
% z" A0 z! D# w: h" Qfunction  Length (aText: string): integer;
5 R' {& E8 ]  Q% k5 Pprocedure Inc (aInt: integer);
; V# z; z7 e4 q5 Gprocedure Dec (aInt: integer);
; g8 t' r/ L+ h" v9 E  {function  StrToInt (astr: string): integer;
+ `4 S) \, c! P& _8 V& {function  IntToStr (aInt: integer): string;
  ~3 T) j! U! W$ T5 gprocedure exit;
; j, I. v) v4 Z* A6 V+ O5 x0 \procedure OnCreate (aStr : String);
, l8 u. i  R  f( Bimplementation
' h4 O/ W  L' u3 P% Fprocedure OnCreate (aStr : String);
var   Str : String;
   Race : Integer;
begin   Str := callfunc ('getsenderrace');
, v! k" y* r9 Z: e8 q" [. X   Race := StrToInt (Str);
  }+ c/ S3 Q  A  F* P0 H& h   if Race = 1 then begin
      print ('getsenderallitem 回城卷');
! {9 d9 s8 o% L  E+ F3 M! y      print ('getsenderallitem 玉露丸');
      end;
1 G& s! z3 X5 n+ o$ b& Q. b+ b  R   exit;
+ C1 {! I5 o0 Kend;
end.

: T1 J! I( T7 M/ r