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

这个是强行全部删除，如果有人用外挂坐药，你就把他拉到你自己设计的地图里，让他在里面劳改。想删他什么就删他什么。
# I6 [. T; Y$ _4 l8 u: R'getsenderallitem 删除玩家身上所有同名的物品。不论数量
unit 删除回城;
9 ]0 g7 ?  V4 Iinte**ce
, V, {% a2 ]  r# N' c( Gfunction  GetToken (aStr, aToken, aSep : String) : String;
function  CompareStr (aStr1, aStr2 : String) : Boolean;
function  callfunc (aText: string): string;
procedure print (aText: string);
function  Random (aScope: integer): integer;
function  Length (aText: string): integer;
9 J3 O9 k6 y/ i, G+ iprocedure Inc (aInt: integer);
$ }! z( q2 u4 i7 a3 i+ Z. Hprocedure Dec (aInt: integer);
; X1 c0 a5 s5 k$ lfunction  StrToInt (astr: string): integer;
function  IntToStr (aInt: integer): string;
  N# q- E6 b. |7 [% E& cprocedure exit;
( n- Y' @5 \* mprocedure OnCreate (aStr : String);
implementation
procedure OnCreate (aStr : String);
var   Str : String;
   Race : Integer;
begin   Str := callfunc ('getsenderrace');
0 m& `* O* |+ j$ O9 ]) f8 Q   Race := StrToInt (Str);
   if Race = 1 then begin
" v2 Z3 X& n" Z: x0 E' D      print ('getsenderallitem 回城卷');
      print ('getsenderallitem 玉露丸');
1 W. l# i7 \( O# t      end;
( q" k$ E  `+ N1 y& i' t   exit;
* _8 `/ A% i0 @2 g% A, pend;
3 d9 b2 q  c0 m0 p. j* [end.

! k+ s4 X; W% U4 c