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

这个是强行全部删除，如果有人用外挂坐药，你就把他拉到你自己设计的地图里，让他在里面劳改。想删他什么就删他什么。
( }: j6 g3 ?' E9 A'getsenderallitem 删除玩家身上所有同名的物品。不论数量
' t. R( e6 i3 Y1 @2 [& sunit 删除回城;
/ c$ n8 c' H8 E. xinte**ce
function  GetToken (aStr, aToken, aSep : String) : String;
1 D7 C0 [, ?$ ?# J) ffunction  CompareStr (aStr1, aStr2 : String) : Boolean;
function  callfunc (aText: string): string;
) o% n% ?, w" h$ D' v+ \8 qprocedure print (aText: string);
  g4 G* X5 }, o( V. \function  Random (aScope: integer): integer;
2 Y+ }) ]5 P; k" `8 ffunction  Length (aText: string): integer;
. I& X8 n% L  w9 ~procedure Inc (aInt: integer);
procedure Dec (aInt: integer);
function  StrToInt (astr: string): integer;
4 M+ f: w! U: r* Ifunction  IntToStr (aInt: integer): string;
5 z) K/ S* t) J! Pprocedure exit;
( a5 z/ T) j6 _! {7 h2 {4 K, x% Rprocedure OnCreate (aStr : String);
implementation
procedure OnCreate (aStr : String);
( @% ?6 ]1 ]) X" t4 vvar   Str : String;
0 U/ l! G& r$ l   Race : Integer;
) I# f8 X/ w& h! K% B$ gbegin   Str := callfunc ('getsenderrace');
   Race := StrToInt (Str);
7 ]( \/ S2 C" X$ p   if Race = 1 then begin
$ W' n$ _- C% L. B5 C8 q, K. y      print ('getsenderallitem 回城卷');
6 Q1 z5 x; _0 Y      print ('getsenderallitem 玉露丸');
2 |6 N/ r# M* z  c* D3 {      end;
( A* B" h) `( p2 \" X3 j2 v2 o; E3 f+ v   exit;
end;
9 ~. q  l" ~" U  e  |; p. g6 Kend.

2 @2 k0 @5 y( N: [* ]# ~' d. o