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

这个是强行全部删除，如果有人用外挂坐药，你就把他拉到你自己设计的地图里，让他在里面劳改。想删他什么就删他什么。
" G0 u5 M) v" E, F'getsenderallitem 删除玩家身上所有同名的物品。不论数量
2 v" |& W' I8 ^7 E8 W' _9 [) vunit 删除回城;
4 |& {! Z4 J3 N! Y+ Iinte**ce
5 j+ P8 g  }& i7 V: X7 Hfunction  GetToken (aStr, aToken, aSep : String) : String;
2 Q  w! s- v' J6 h. N4 Afunction  CompareStr (aStr1, aStr2 : String) : Boolean;
function  callfunc (aText: string): string;
0 L6 E/ M7 y6 E( Nprocedure print (aText: string);
& _. R* v  L) X8 ]function  Random (aScope: integer): integer;
' P+ U& m4 Y6 @* y: bfunction  Length (aText: string): integer;
* a4 G" V$ `+ p+ l9 u% Iprocedure Inc (aInt: integer);
procedure Dec (aInt: integer);
$ V) m6 F! A8 j+ v  b! Yfunction  StrToInt (astr: string): integer;
function  IntToStr (aInt: integer): string;
" p9 L8 o  ^- q& M, B, K" n1 Wprocedure exit;
6 B) S: L3 O- B1 gprocedure OnCreate (aStr : String);
4 t5 q/ r1 S1 R' {$ kimplementation
! ?, }1 U' r7 \: cprocedure OnCreate (aStr : String);
var   Str : String;
   Race : Integer;
: i7 I1 X. P3 s7 o/ @begin   Str := callfunc ('getsenderrace');
) B+ x9 d3 I* v* R) e/ |   Race := StrToInt (Str);
   if Race = 1 then begin
# X4 K/ Q6 {- f8 M9 c( e" V      print ('getsenderallitem 回城卷');
      print ('getsenderallitem 玉露丸');
9 \, d1 A! c  {3 F3 H      end;
   exit;
0 L* [4 I6 _: _5 Rend;
+ @3 a! z% A/ A7 j3 nend.