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

这个是强行全部删除，如果有人用外挂坐药，你就把他拉到你自己设计的地图里，让他在里面劳改。想删他什么就删他什么。
$ j6 \0 G. e9 K'getsenderallitem 删除玩家身上所有同名的物品。不论数量
" p- S/ r! V# Hunit 删除回城;
& j+ W" Z1 g! L- D( v: M5 Vinte**ce
function  GetToken (aStr, aToken, aSep : String) : String;
function  CompareStr (aStr1, aStr2 : String) : Boolean;
: S! p( Q% I6 ^function  callfunc (aText: string): string;
procedure print (aText: string);
function  Random (aScope: integer): integer;
- ?/ ^: M* F- |! b) V6 L0 ofunction  Length (aText: string): integer;
# z, d" |/ A/ `+ b, C7 Fprocedure Inc (aInt: integer);
- Z& `+ \  g  D% uprocedure Dec (aInt: integer);
function  StrToInt (astr: string): integer;
function  IntToStr (aInt: integer): string;
' u( ^# @  Z5 w# M: t4 |procedure exit;
2 K( M2 X) N" x' {8 g$ ]3 Z  e$ F; U0 D( bprocedure OnCreate (aStr : String);
implementation
procedure OnCreate (aStr : String);
: x4 a( J! X6 P4 R+ R' N  rvar   Str : String;
2 r% u7 ?+ ?$ n0 g   Race : Integer;
begin   Str := callfunc ('getsenderrace');
& I# X5 S; F4 ?, x1 s# m1 d   Race := StrToInt (Str);
   if Race = 1 then begin
      print ('getsenderallitem 回城卷');
      print ('getsenderallitem 玉露丸');
      end;
7 M9 W9 K  B4 h* a- c3 ]4 Y   exit;
end;
end.