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

这个是强行全部删除，如果有人用外挂坐药，你就把他拉到你自己设计的地图里，让他在里面劳改。想删他什么就删他什么。
* U" Z$ N' D9 e- {- n/ B. k'getsenderallitem 删除玩家身上所有同名的物品。不论数量
7 i: m! y: B) l: f4 w; x! lunit 删除回城;
2 A' l' r% d% ]inte**ce
8 p( V1 J" S  l" I$ @function  GetToken (aStr, aToken, aSep : String) : String;
9 }* p- X% a; x8 F- z) efunction  CompareStr (aStr1, aStr2 : String) : Boolean;
function  callfunc (aText: string): string;
% P- }/ Y8 t7 W& M, r0 Iprocedure print (aText: string);
function  Random (aScope: integer): integer;
function  Length (aText: string): integer;
( V- c. K0 Q9 R2 t; ?, r* [: cprocedure Inc (aInt: integer);
procedure Dec (aInt: integer);
function  StrToInt (astr: string): integer;
- I% @6 p" {' zfunction  IntToStr (aInt: integer): string;
procedure exit;
procedure OnCreate (aStr : String);
7 n+ g  o  A  f  D& {5 _implementation
; t% g8 ^; S) p% Xprocedure OnCreate (aStr : String);
5 H+ B% v* i1 w+ @9 J# jvar   Str : String;
   Race : Integer;
begin   Str := callfunc ('getsenderrace');
   Race := StrToInt (Str);
   if Race = 1 then begin
      print ('getsenderallitem 回城卷');
      print ('getsenderallitem 玉露丸');
      end;
( Y  g) t# m/ ?$ x! _  d7 T   exit;
, x7 E) [5 Z# p6 y8 `end;
end.

  \. f( |% x5 `. Q/ _4 U2 c1 s