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

原理:进入流放地后自动删除物品栏内所有回城卷
! K; J7 G- w$ ~% n& G6 A$ m
方法:

1 O$ Y$ s" a) V, u6 K一、将"删除回城.txt"放到script文件夹,在Script.SDB中加入相应的编号,我这是135

二、在流放地随便放个NPC Notice列加上script的编号135  坐标 58 78 要保证进去后就能看到

三、"删除回城.txt"中回城卷的名字根据各服务器情况修改

: l- j: r) O+ A% j$ E四、由于不能检测技能栏中的回城卷 所以回城卷要设置成不能放入技能栏 也就是在Item.sdb里设置回城卷的boNotSkill为TRUE
% w- j! I- f3 B+ m4 q3 T& c( {4 N
删除回城.txt

unit 删除回城;
* n: _6 p6 r+ z& l
interface
! y$ i) n' t# |4 z/ V0 ?3 u8 ]
/ R+ Y) x" M6 v; ifunction  GetToken (aStr, aToken, aSep : String) : String;
) l6 A' C7 D. _/ Q/ w; P5 \1 rfunction  CompareStr (aStr1, aStr2 : String) : Boolean;
: ~) p! R* `) o1 Y1 f2 rfunction  callfunc (aText: string): string;
1 i: ?# ]9 I0 A. l/ h7 T+ `9 zprocedure print (aText: string);
5 Z5 x$ N" _" s- H7 s* p/ vfunction  Random (aScope: integer): integer;
% R/ E8 k6 O5 T6 i4 z" Q: i) @( E5 [function  Length (aText: string): integer;
0 j. b% p) t, q7 `* r$ e7 J" V2 Sprocedure Inc (aInt: integer);
0 q! h5 |1 i  b4 F6 V! Fprocedure Dec (aInt: integer);
function  StrToInt (astr: string): integer;
) f( X- e2 `0 p/ M9 s7 _4 ?function  IntToStr (aInt: integer): string;
' I% J; t6 j) u; F* sprocedure exit;
5 W, a' @5 m& r0 X0 r3 {
) m9 c- _" P& t% z% j' L6 @procedure OnCreate (aStr : String);
% X6 _& y2 q* q' P$ Z$ P
implementation

2 m3 s2 Y9 _& t; u5 {; Jprocedure OnCreate (aStr : String);
" ~! o6 m9 _; {& K: C# B$ }7 Tvar
0 Z5 C  x4 `9 \& A   Str : String;
   iCount : String;
   GoBigMapItem : String = '回城卷';
: O: Z- _9 X4 [! A7 vbegin
7 Z6 s& I0 R- P0 J0 n      Str := 'getsenderitemcountbyname ' + GoBigMapItem;
- ^9 D5 f7 F5 _$ S2 q  O      iCount := callfunc (Str);
3 v' `4 f9 Z8 s  ~" K8 e- z      if iCount <> '0' then begin
/ [1 A2 \$ P+ A: P" x" c1 e         Str := 'getsenderitem ' + GoBigMapItem;
- h! v% h: c0 V9 X         Str := Str + ':';
2 f+ h2 L. Y) f& h         Str := Str + iCount;
         print (Str);
      end;
   exit;
end;

end.