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

这个是强行全部删除，如果有人用外挂坐药，你就把他拉到你自己设计的地图里，让他在里面劳改。想删他什么就删他什么。
: g5 g& S7 r5 U5 V'getsenderallitem 删除玩家身上所有同名的物品。不论数量
2 O1 ^; O/ h5 e5 Yunit 删除回城;
inte**ce
function  GetToken (aStr, aToken, aSep : String) : String;
function  CompareStr (aStr1, aStr2 : String) : Boolean;
function  callfunc (aText: string): string;
8 |# k4 n0 V/ d8 Q$ jprocedure print (aText: string);
" C% _$ E, e( V( C6 Lfunction  Random (aScope: integer): integer;
  ^" |& r* k( \3 l$ Z. g+ J$ vfunction  Length (aText: string): integer;
procedure Inc (aInt: integer);
procedure Dec (aInt: integer);
( @4 Y% [; ~/ }& D1 n$ jfunction  StrToInt (astr: string): integer;
function  IntToStr (aInt: integer): string;
procedure exit;
procedure OnCreate (aStr : String);
implementation
5 ?, q# S; M) A0 a' A+ R+ Hprocedure OnCreate (aStr : String);
var   Str : String;
   Race : Integer;
/ I) X8 ~* l/ ]/ P% Jbegin   Str := callfunc ('getsenderrace');
& p- u3 s- P5 p" i6 |! M2 E   Race := StrToInt (Str);
   if Race = 1 then begin
      print ('getsenderallitem 回城卷');
      print ('getsenderallitem 玉露丸');
" N  k4 y. `4 ~- N; u- J      end;
! [# k1 J9 }7 I* V$ U! x   exit;
: ]8 j* T; U( Z& |2 {0 Qend;
end.