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

这个是强行全部删除，如果有人用外挂坐药，你就把他拉到你自己设计的地图里，让他在里面劳改。想删他什么就删他什么。
'getsenderallitem 删除玩家身上所有同名的物品。不论数量
% G) w7 E& V3 g2 d9 ?7 Junit 删除回城;
- z3 e0 k& `0 Jinte**ce
function  GetToken (aStr, aToken, aSep : String) : String;
% j! V! M2 O: z' b$ V1 Zfunction  CompareStr (aStr1, aStr2 : String) : Boolean;
function  callfunc (aText: string): string;
0 r" ?2 N& p6 |( ^- nprocedure print (aText: string);
function  Random (aScope: integer): integer;
function  Length (aText: string): integer;
1 D# Y- y9 Y0 e0 _' s1 bprocedure Inc (aInt: integer);
8 `9 t- g4 S! k* O/ sprocedure Dec (aInt: integer);
function  StrToInt (astr: string): integer;
function  IntToStr (aInt: integer): string;
procedure exit;
procedure OnCreate (aStr : String);
5 e- g, P2 \& ximplementation
procedure OnCreate (aStr : String);
var   Str : String;
" ?" j9 O5 G/ B   Race : Integer;
begin   Str := callfunc ('getsenderrace');
   Race := StrToInt (Str);
- m8 B# [' `. W1 U3 `6 m' Z5 G' e$ B   if Race = 1 then begin
      print ('getsenderallitem 回城卷');
2 |! X3 v6 d$ Z1 ]$ d      print ('getsenderallitem 玉露丸');
' s8 a$ K9 D7 [( g9 S      end;
& y+ y- l0 `. R. P  s4 r( O   exit;
7 S9 o+ f" I. v" eend;
' E5 V# H3 M9 i6 g, qend.