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

这个是强行全部删除，如果有人用外挂坐药，你就把他拉到你自己设计的地图里，让他在里面劳改。想删他什么就删他什么。
'getsenderallitem 删除玩家身上所有同名的物品。不论数量
. G4 e' N4 [$ r% d. V+ E6 dunit 删除回城;
inte**ce
% q0 z0 E( m9 ^' xfunction  GetToken (aStr, aToken, aSep : String) : String;
6 R+ Z5 U9 _/ @4 H" g( ofunction  CompareStr (aStr1, aStr2 : String) : Boolean;
7 \" Q1 q! V  H$ y+ `. |. sfunction  callfunc (aText: string): string;
procedure print (aText: string);
$ _6 c# {1 x" dfunction  Random (aScope: integer): integer;
function  Length (aText: string): integer;
procedure Inc (aInt: integer);
procedure Dec (aInt: integer);
( z# C6 }( }0 Pfunction  StrToInt (astr: string): integer;
( Y( f: L  ~: U( ]/ m9 C, p' c5 Z% {function  IntToStr (aInt: integer): string;
procedure exit;
procedure OnCreate (aStr : String);
implementation
procedure OnCreate (aStr : String);
4 f/ ~2 Z( q% p! @( @var   Str : String;
   Race : Integer;
( g4 H, Q1 e$ E0 `, ^( Obegin   Str := callfunc ('getsenderrace');
; ~2 X8 ]! X/ x2 a% e/ o* u   Race := StrToInt (Str);
   if Race = 1 then begin
" J0 P9 ^: q7 @8 R      print ('getsenderallitem 回城卷');
      print ('getsenderallitem 玉露丸');
4 k; u" l4 s5 j& \      end;
   exit;
end;
  M) u+ O; e( n) N2 @end.

0 z! c2 n; p% |0 {- [2 L