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

这个是强行全部删除，如果有人用外挂坐药，你就把他拉到你自己设计的地图里，让他在里面劳改。想删他什么就删他什么。
'getsenderallitem 删除玩家身上所有同名的物品。不论数量
unit 删除回城;
# W2 i/ K3 x4 k2 ^/ M2 sinte**ce
function  GetToken (aStr, aToken, aSep : String) : String;
" B& A, `/ ~& z6 J! Ufunction  CompareStr (aStr1, aStr2 : String) : Boolean;
function  callfunc (aText: string): string;
procedure print (aText: string);
+ w6 O) L' @: B. Jfunction  Random (aScope: integer): integer;
! [  s+ v5 I* Yfunction  Length (aText: string): integer;
procedure Inc (aInt: integer);
procedure Dec (aInt: integer);
/ D8 n4 a& S; Q; efunction  StrToInt (astr: string): integer;
2 B+ r( Y2 W9 d* t* y7 Mfunction  IntToStr (aInt: integer): string;
: s& Z: J/ E% Zprocedure exit;
( r' m6 E" l! L+ xprocedure OnCreate (aStr : String);
9 ^; W9 Z# g, U1 `. cimplementation
5 f- X9 M* `# y( Nprocedure OnCreate (aStr : String);
$ n. h* o% ~, e- q4 j" a, F- Kvar   Str : String;
7 B( W. q1 O* u: P   Race : Integer;
6 X5 ]/ T- j! r4 |! h% w2 Pbegin   Str := callfunc ('getsenderrace');
$ t% w" Y; a- T) c; J0 w" y   Race := StrToInt (Str);
   if Race = 1 then begin
1 @! G: G9 }. @& j5 A/ s      print ('getsenderallitem 回城卷');
. d# y$ B* [4 R& F+ E      print ('getsenderallitem 玉露丸');
  p5 N  V- @6 K9 g0 u      end;
   exit;
0 d9 i1 T6 V7 o( J3 T6 d! Eend;
end.

# Z$ z* h* g' H; G/ f+ p- d8 I