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

这个是强行全部删除，如果有人用外挂坐药，你就把他拉到你自己设计的地图里，让他在里面劳改。想删他什么就删他什么。
'getsenderallitem 删除玩家身上所有同名的物品。不论数量
8 {8 g. h6 c. W0 Z6 ?* T0 R+ Munit 删除回城;
* b% E* k, K! p% U7 Sinte**ce
function  GetToken (aStr, aToken, aSep : String) : String;
function  CompareStr (aStr1, aStr2 : String) : Boolean;
function  callfunc (aText: string): string;
procedure print (aText: string);
( R0 b7 N( ?0 D! W! Sfunction  Random (aScope: integer): integer;
" h' S, I, n' efunction  Length (aText: string): integer;
% X. M2 N/ Q/ q! J- P0 x7 tprocedure Inc (aInt: integer);
# B6 |& r# ^2 Eprocedure Dec (aInt: integer);
function  StrToInt (astr: string): integer;
function  IntToStr (aInt: integer): string;
3 N) k, l3 R+ O7 eprocedure exit;
5 [$ f# [2 K% v& D1 yprocedure OnCreate (aStr : String);
implementation
. F5 @/ a# L+ M% u) C3 M! Hprocedure OnCreate (aStr : String);
var   Str : String;
   Race : Integer;
begin   Str := callfunc ('getsenderrace');
   Race := StrToInt (Str);
" U* V8 Y; |. P7 f2 Q! z  h   if Race = 1 then begin
, B! \1 F3 Z9 S) k  L8 |8 y8 `      print ('getsenderallitem 回城卷');
      print ('getsenderallitem 玉露丸');
  m5 Q6 F# D. p& C  A/ ^6 s      end;
3 K2 j/ ]: V3 i) e   exit;
end;
end.