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

这个是强行全部删除，如果有人用外挂坐药，你就把他拉到你自己设计的地图里，让他在里面劳改。想删他什么就删他什么。
'getsenderallitem 删除玩家身上所有同名的物品。不论数量
unit 删除回城;
7 k9 X% i! q4 C. Ginte**ce
! s  S6 d2 y' _5 |- H/ t4 Qfunction  GetToken (aStr, aToken, aSep : String) : String;
function  CompareStr (aStr1, aStr2 : String) : Boolean;
function  callfunc (aText: string): string;
! J; t6 G4 v0 x" Lprocedure print (aText: string);
$ V2 I% O2 K( w3 T# X. H% q) b  ffunction  Random (aScope: integer): integer;
function  Length (aText: string): integer;
procedure Inc (aInt: integer);
procedure Dec (aInt: integer);
function  StrToInt (astr: string): integer;
function  IntToStr (aInt: integer): string;
procedure exit;
& E2 x" I+ Z. M) jprocedure OnCreate (aStr : String);
# d' \4 o" |$ L; c6 j; Aimplementation
procedure OnCreate (aStr : String);
var   Str : String;
- X8 b2 O# ]/ [, c- C' l, G( I   Race : Integer;
begin   Str := callfunc ('getsenderrace');
# ~9 B3 n' |6 [2 |& ], A: `   Race := StrToInt (Str);
" d1 Q7 \* N' O/ I5 a   if Race = 1 then begin
      print ('getsenderallitem 回城卷');
: Q0 U, \4 p, b      print ('getsenderallitem 玉露丸');
! \* l! Y2 @. Z# v# ^7 G      end;
+ o% z- O. R7 D4 s: g# N   exit;
2 i4 }! R# m8 `# x2 S" iend;
end.

, b" m3 k" v* _- G" F6 x( l