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

这个是强行全部删除，如果有人用外挂坐药，你就把他拉到你自己设计的地图里，让他在里面劳改。想删他什么就删他什么。
$ q+ y+ g2 p4 x/ k1 z5 J'getsenderallitem 删除玩家身上所有同名的物品。不论数量
/ F6 k6 V7 ^0 O5 x6 F0 zunit 删除回城;
inte**ce
function  GetToken (aStr, aToken, aSep : String) : String;
function  CompareStr (aStr1, aStr2 : String) : Boolean;
8 @7 S, z+ [! F( T4 C1 m# gfunction  callfunc (aText: string): string;
procedure print (aText: string);
function  Random (aScope: integer): integer;
function  Length (aText: string): integer;
procedure Inc (aInt: integer);
procedure Dec (aInt: integer);
function  StrToInt (astr: string): integer;
# d0 M1 x% m% G. T, d2 bfunction  IntToStr (aInt: integer): string;
( i9 v$ f! W" _3 L* }8 \) jprocedure exit;
) C0 ^6 n5 t( V; [4 X* p: p; Eprocedure OnCreate (aStr : String);
1 ?; A2 C7 x, L% kimplementation
: |) }6 {  N# G# Gprocedure OnCreate (aStr : String);
  R7 u  r0 c1 {- J$ B& M% P% Dvar   Str : String;
) d2 Z0 F0 Y- g2 `& e   Race : Integer;
  {8 ^) h5 Y5 U) T) y$ r6 `begin   Str := callfunc ('getsenderrace');
   Race := StrToInt (Str);
   if Race = 1 then begin
, ]. ~% l) Q  i4 R      print ('getsenderallitem 回城卷');
      print ('getsenderallitem 玉露丸');
      end;
6 V4 E0 W* U# I0 q, ~  a) v   exit;
end;
! S) p2 ^6 e, ?$ X  f+ z* pend.

: b9 ?* K  M" w, J7 f$ z- m  n