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

这个是强行全部删除，如果有人用外挂坐药，你就把他拉到你自己设计的地图里，让他在里面劳改。想删他什么就删他什么。
, j4 x  D% u, V" o/ u'getsenderallitem 删除玩家身上所有同名的物品。不论数量
0 G/ z/ r. p2 munit 删除回城;
5 g; L* ?: T+ H! n1 B9 l' Ginte**ce
. `7 w/ z) B" @2 ]2 I- m6 {function  GetToken (aStr, aToken, aSep : String) : String;
: Z* c/ L) O5 H9 f6 G+ Ufunction  CompareStr (aStr1, aStr2 : String) : Boolean;
* k7 V& _' w' `6 D: r) `: ?function  callfunc (aText: string): string;
procedure print (aText: string);
/ s- D. X  I1 W+ jfunction  Random (aScope: integer): integer;
function  Length (aText: string): integer;
procedure Inc (aInt: integer);
" V/ @/ Z1 w6 M0 rprocedure Dec (aInt: integer);
function  StrToInt (astr: string): integer;
8 Y1 x% F6 _4 E  y- Yfunction  IntToStr (aInt: integer): string;
procedure exit;
procedure OnCreate (aStr : String);
implementation
( C- j6 T3 Z' G- F3 B9 v: aprocedure OnCreate (aStr : String);
1 j) l- h# O& v5 z6 T1 F7 Z) Dvar   Str : String;
   Race : Integer;
begin   Str := callfunc ('getsenderrace');
   Race := StrToInt (Str);
" r, N0 Q1 M6 j- L   if Race = 1 then begin
      print ('getsenderallitem 回城卷');
      print ('getsenderallitem 玉露丸');
9 T" ~/ o1 D2 l) w: H      end;
: X  v7 t  n4 y( R; E* c/ P   exit;
end;
end.