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

这个是强行全部删除，如果有人用外挂坐药，你就把他拉到你自己设计的地图里，让他在里面劳改。想删他什么就删他什么。
'getsenderallitem 删除玩家身上所有同名的物品。不论数量
, S. k9 C2 i! L- @2 ]unit 删除回城;
inte**ce
2 R  r0 n# D/ ^" P3 x& b3 hfunction  GetToken (aStr, aToken, aSep : String) : String;
5 m2 c) B# g+ _7 a. D2 k3 C8 F: ]function  CompareStr (aStr1, aStr2 : String) : Boolean;
% T0 x& f1 H) c/ K9 O) B: Yfunction  callfunc (aText: string): string;
procedure print (aText: string);
2 d3 R# @) E. e- x  pfunction  Random (aScope: integer): integer;
' S- y. H" P9 l' s& m' l/ V. y7 hfunction  Length (aText: string): integer;
. T! X. M5 R# ]# l' Y- W7 ^2 _, Eprocedure Inc (aInt: integer);
! m4 \  N. K5 L1 @& Y) @procedure Dec (aInt: integer);
* J6 l/ v: T. n! \function  StrToInt (astr: string): integer;
function  IntToStr (aInt: integer): string;
! n5 n9 u$ p0 m# ~2 L" q# Xprocedure exit;
; Y: U% n0 y) Qprocedure OnCreate (aStr : String);
implementation
procedure OnCreate (aStr : String);
var   Str : String;
& \7 e8 Y: F. }% r" n   Race : Integer;
begin   Str := callfunc ('getsenderrace');
   Race := StrToInt (Str);
   if Race = 1 then begin
      print ('getsenderallitem 回城卷');
      print ('getsenderallitem 玉露丸');
      end;
; J2 D/ H  N( q) f: O   exit;
9 g3 j0 D$ r  F6 h) Bend;
end.

5 j" e  A! J" n" T