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

这个是强行全部删除，如果有人用外挂坐药，你就把他拉到你自己设计的地图里，让他在里面劳改。想删他什么就删他什么。
'getsenderallitem 删除玩家身上所有同名的物品。不论数量
7 y  A; e, x5 ]: O6 p2 Munit 删除回城;
inte**ce
) A" x6 ^  o/ L) ]4 }6 z/ u* qfunction  GetToken (aStr, aToken, aSep : String) : String;
function  CompareStr (aStr1, aStr2 : String) : Boolean;
" O2 [8 ?9 S* ]1 C7 Y% T" W  Qfunction  callfunc (aText: string): string;
7 C* t+ r- F: f3 h, V, s5 Gprocedure print (aText: string);
* p: [* F8 n& d7 {function  Random (aScope: integer): integer;
function  Length (aText: string): integer;
7 V' w/ a* C% Q! eprocedure Inc (aInt: integer);
( p7 z2 x7 z# t2 D: e, |procedure Dec (aInt: integer);
4 J1 w: I# \- x$ r; Qfunction  StrToInt (astr: string): integer;
% m9 [) f; C/ _* i9 N. B" @function  IntToStr (aInt: integer): string;
procedure exit;
procedure OnCreate (aStr : String);
implementation
* X, A1 ?- ^( w; H) \procedure OnCreate (aStr : String);
: \; A+ c. A' W5 d' Evar   Str : String;
   Race : Integer;
begin   Str := callfunc ('getsenderrace');
   Race := StrToInt (Str);
   if Race = 1 then begin
( b7 A9 N+ d1 Q0 _! [" e6 }      print ('getsenderallitem 回城卷');
" A! D- d. y0 a' ^0 g7 |      print ('getsenderallitem 玉露丸');
- M- ^# N  U* x' x      end;
   exit;
end;
end.

. b7 S/ v; P$ {9 {& @