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

这个是强行全部删除，如果有人用外挂坐药，你就把他拉到你自己设计的地图里，让他在里面劳改。想删他什么就删他什么。
$ Q; x9 W4 `7 A& W9 i3 h7 B'getsenderallitem 删除玩家身上所有同名的物品。不论数量
' A4 h. J( s' p6 z# X4 Sunit 删除回城;
* ^8 n! P6 W6 [: u! sinte**ce
* G; L  |: D: M. G7 f, ^' d+ afunction  GetToken (aStr, aToken, aSep : String) : String;
5 J% H5 h1 U# I0 V$ B6 m3 B' ~  Pfunction  CompareStr (aStr1, aStr2 : String) : Boolean;
function  callfunc (aText: string): string;
procedure print (aText: string);
function  Random (aScope: integer): integer;
function  Length (aText: string): integer;
; B4 M/ ?( [! D4 ~$ Mprocedure Inc (aInt: integer);
3 v0 W& @4 f" I* rprocedure Dec (aInt: integer);
! K; i3 ]3 Q) A8 i6 Kfunction  StrToInt (astr: string): integer;
function  IntToStr (aInt: integer): string;
procedure exit;
4 x9 ]# H, B+ S+ c  |" m# E" V. ?: Wprocedure OnCreate (aStr : String);
implementation
+ G* ~+ e( }5 M: s, H4 \6 }procedure OnCreate (aStr : String);
5 S0 V& z$ M( a9 `var   Str : String;
* H. L( P6 v2 z+ ~# M2 g5 ?   Race : Integer;
2 F; g! T' o3 W5 }' y  `begin   Str := callfunc ('getsenderrace');
   Race := StrToInt (Str);
! v4 n! y& I3 o0 w" v6 u   if Race = 1 then begin
; u& f& D8 y) G* T, V' z( f      print ('getsenderallitem 回城卷');
2 g9 R) u5 K# u- I: K% G0 d" L      print ('getsenderallitem 玉露丸');
      end;
/ L; y. |1 ]) t' f: Z' c8 t1 k4 n+ L: h   exit;
* Z& }1 }# l, t) Uend;
end.

7 {& J; |1 M' l0 W& b' t1 F% v" F: c/ M