进入流放地后自动删除物品栏内所有回城卷

原理:进入流放地后自动删除物品栏内所有回城卷

方法:
% H2 |; _7 E# f% C
0 C: ?  b, t0 L& `: G3 H  h一、将"删除回城.txt"放到script文件夹,在Script.SDB中加入相应的编号,我这是135
) v: v9 J7 C! R( F) I! Z3 Q5 v
# M" a) V# ?9 j二、在流放地随便放个NPC Notice列加上script的编号135  坐标 58 78 要保证进去后就能看到
; S5 Y3 o# u# d% K' D2 p+ D
三、"删除回城.txt"中回城卷的名字根据各服务器情况修改
' V2 m0 B- x9 _1 l
' }8 b& ~9 f, W& P# r! r" _+ W  k四、由于不能检测技能栏中的回城卷 所以回城卷要设置成不能放入技能栏 也就是在Item.sdb里设置回城卷的boNotSkill为TRUE
# \$ T- w3 w% u% c" L2 i7 a, J
" f) T: I1 w( k删除回城.txt
% F' S) Z) E+ K+ k$ n7 ^9 q
unit 删除回城;
; q. W6 p) X) q- L& ^% h
interface
5 g0 \. I+ v7 y) ~
* F& R9 e* @0 f  V" f2 s- Wfunction  GetToken (aStr, aToken, aSep : String) : String;
1 m; W. c( P3 ^, Z* p0 kfunction  CompareStr (aStr1, aStr2 : String) : Boolean;
function  callfunc (aText: string): string;
/ z- `( X* o% t% P9 E% |! K' Y, @6 nprocedure print (aText: string);
! M, @8 T' ]4 R3 G6 g, bfunction  Random (aScope: integer): integer;
function  Length (aText: string): integer;
4 y+ H9 Q- s' Pprocedure Inc (aInt: integer);
procedure Dec (aInt: integer);
function  StrToInt (astr: string): integer;
8 [9 X! A- f# T) ]7 K1 ~* yfunction  IntToStr (aInt: integer): string;
5 a4 I( b$ d. c$ Nprocedure exit;
- D7 g6 ]1 s3 a5 t# [$ t" B
  `  e, e  o# ]! ~4 F; z, Yprocedure OnCreate (aStr : String);
$ I+ o  A4 H8 l7 @
# x. d" U/ P7 l3 X# E$ eimplementation

: l# {5 D5 K+ c" v7 bprocedure OnCreate (aStr : String);
var
. J6 O* J. ]; I   Str : String;
   iCount : String;
! j1 U( I8 I/ t' l" P! w  ]; E   GoBigMapItem : String = '回城卷';
begin
      Str := 'getsenderitemcountbyname ' + GoBigMapItem;
      iCount := callfunc (Str);
& C7 {3 J4 h0 T  D. ^: z) p: Z      if iCount <> '0' then begin
         Str := 'getsenderitem ' + GoBigMapItem;
# s, d% x3 k! c& R: G         Str := Str + ':';
1 H: A! ?6 r$ b1 X         Str := Str + iCount;
6 y- ?2 D( D1 v6 |: [         print (Str);
+ s& R/ \% _% v9 t& p      end;
, T  r: z' h* r" `2 e7 [2 f8 g   exit;
( e) ^1 N  R+ i% w2 [$ Z1 Rend;
1 m* J, c4 h7 w$ o+ }1 j
end.