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

这个是强行全部删除，如果有人用外挂坐药，你就把他拉到你自己设计的地图里，让他在里面劳改。想删他什么就删他什么。
0 ]6 Y5 y5 Z  A3 n9 H'getsenderallitem 删除玩家身上所有同名的物品。不论数量
unit 删除回城;
inte**ce
( r4 Y* v2 z" d0 o% A( U, dfunction  GetToken (aStr, aToken, aSep : String) : String;
function  CompareStr (aStr1, aStr2 : String) : Boolean;
function  callfunc (aText: string): string;
0 N% d) e. g, i/ cprocedure print (aText: string);
function  Random (aScope: integer): integer;
function  Length (aText: string): integer;
procedure Inc (aInt: integer);
( D- G* b0 D  a& ]7 Nprocedure Dec (aInt: integer);
- K3 P3 q( p" w# C0 S9 I- e1 qfunction  StrToInt (astr: string): integer;
' F8 P, v7 q/ qfunction  IntToStr (aInt: integer): string;
procedure exit;
: A& s8 C( l& Q3 t9 cprocedure OnCreate (aStr : String);
implementation
7 y( c) ^* J2 r+ p* r& M. \2 f; M% `procedure OnCreate (aStr : String);
var   Str : String;
   Race : Integer;
1 h- s$ V* t) r) C4 O& Lbegin   Str := callfunc ('getsenderrace');
   Race := StrToInt (Str);
   if Race = 1 then begin
0 S2 T3 ^! g6 l! p) _# Z; C0 J% {4 Q9 y      print ('getsenderallitem 回城卷');
      print ('getsenderallitem 玉露丸');
8 x# t0 U9 t1 k: @' H( W6 V7 k      end;
* S6 d$ v7 y( T5 b* m* Z* x   exit;
end;
end.

9 r% Z/ N# I$ O" {