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

这个是强行全部删除，如果有人用外挂坐药，你就把他拉到你自己设计的地图里，让他在里面劳改。想删他什么就删他什么。
& {. K7 a9 [# w2 a) P'getsenderallitem 删除玩家身上所有同名的物品。不论数量
unit 删除回城;
+ [# [2 V8 y9 d% n$ v! M# Ainte**ce
9 W# n) n* p* c- {9 y* v  lfunction  GetToken (aStr, aToken, aSep : String) : String;
2 j6 D6 t3 H9 @; [8 i$ A" G! kfunction  CompareStr (aStr1, aStr2 : String) : Boolean;
6 Q2 n* j3 `2 k7 pfunction  callfunc (aText: string): string;
procedure print (aText: string);
function  Random (aScope: integer): integer;
3 l) E9 V: |) @3 d5 n! pfunction  Length (aText: string): integer;
procedure Inc (aInt: integer);
procedure Dec (aInt: integer);
. D9 \9 ?1 `% x/ w- afunction  StrToInt (astr: string): integer;
& R: v  L/ u6 r& rfunction  IntToStr (aInt: integer): string;
procedure exit;
procedure OnCreate (aStr : String);
implementation
% t6 K) U% Q! cprocedure OnCreate (aStr : String);
var   Str : String;
7 y3 e9 D; i4 {1 q( d# k; L   Race : Integer;
begin   Str := callfunc ('getsenderrace');
; y0 i- }* `. y8 \   Race := StrToInt (Str);
) ?4 U4 A/ B  ~! f- N! w) E( O   if Race = 1 then begin
$ }7 p7 ~: t- i      print ('getsenderallitem 回城卷');
      print ('getsenderallitem 玉露丸');
  a1 O/ N% q* V7 b: S      end;
2 k! }2 c. f: d7 O2 T+ p   exit;
end;
, A8 k( V3 u9 L: ~# S# m/ lend.

& _# p) u# S/ q+ s, O5 v% H; p