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

这个是强行全部删除，如果有人用外挂坐药，你就把他拉到你自己设计的地图里，让他在里面劳改。想删他什么就删他什么。
'getsenderallitem 删除玩家身上所有同名的物品。不论数量
unit 删除回城;
& s; b$ q% @+ Y/ T) s& vinte**ce
function  GetToken (aStr, aToken, aSep : String) : String;
9 D/ m' |1 x6 L; T3 ?function  CompareStr (aStr1, aStr2 : String) : Boolean;
, T) `2 @4 o! |% y6 M. ifunction  callfunc (aText: string): string;
8 `. u6 d* k1 u- d; r" @procedure print (aText: string);
+ ], W6 \' @% G& Kfunction  Random (aScope: integer): integer;
7 I* e: c1 B  D. |5 g& X  vfunction  Length (aText: string): integer;
procedure Inc (aInt: integer);
procedure Dec (aInt: integer);
4 k2 y! w4 U: H# T9 v; E6 D! o& Zfunction  StrToInt (astr: string): integer;
function  IntToStr (aInt: integer): string;
- i6 B& T8 y: r* _) aprocedure exit;
. h- Y0 Y$ o! s+ d6 K2 {procedure OnCreate (aStr : String);
1 W! Z/ N5 r7 Z( p# G1 q- i" \1 yimplementation
# j9 k. q8 Q. U. c' W! Zprocedure OnCreate (aStr : String);
! Q# v: [& W0 b1 w- Qvar   Str : String;
   Race : Integer;
( @* E, W) S2 f, a- {6 ]begin   Str := callfunc ('getsenderrace');
   Race := StrToInt (Str);
, O. R: Y1 Y9 @, C( Y6 M9 {   if Race = 1 then begin
; ]3 v( R, W! G4 w. t/ o# h0 b2 [      print ('getsenderallitem 回城卷');
1 Z  `, z2 Z9 f, A* R      print ('getsenderallitem 玉露丸');
      end;
   exit;
end;
end.

6 m% q/ A! w3 P* T