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

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

方法:
0 @: S, H. k! N
$ J7 _" S9 Y" R+ @4 j6 P一、将"删除回城.txt"放到script文件夹,在Script.SDB中加入相应的编号,我这是135

2 u' s' ]7 q: n. a' J% g0 u二、在流放地随便放个NPC Notice列加上script的编号135  坐标 58 78 要保证进去后就能看到

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

" c# h0 }. O) {7 G. D( u7 L四、由于不能检测技能栏中的回城卷 所以回城卷要设置成不能放入技能栏 也就是在Item.sdb里设置回城卷的boNotSkill为TRUE
! g5 P5 t, ~' W) f: K3 B
7 w. a' E* S3 t/ o" a删除回城.txt

: H& z( f: ]% |/ i. j4 Punit 删除回城;

' m) T+ \2 F5 R/ `# \; [interface

function  GetToken (aStr, aToken, aSep : String) : String;
function  CompareStr (aStr1, aStr2 : String) : Boolean;
function  callfunc (aText: string): string;
procedure print (aText: string);
function  Random (aScope: integer): integer;
function  Length (aText: string): integer;
! Z) _2 _6 W8 S3 k! x1 Yprocedure Inc (aInt: integer);
7 L4 f& ?( e1 C3 o$ w1 h2 u' ?procedure Dec (aInt: integer);
function  StrToInt (astr: string): integer;
" J, L0 \# |/ [4 e0 jfunction  IntToStr (aInt: integer): string;
2 w7 u0 G/ k, H1 Sprocedure exit;
4 k  w% ^2 ^" d" d' E& \+ W* f
procedure OnCreate (aStr : String);
! O+ A/ j" A, u+ G' L
* I0 U6 ^4 A& U1 T: Wimplementation
! E! \& @/ }2 U
procedure OnCreate (aStr : String);
8 J" r, `) `1 B* Pvar
. _% y* q' _$ [! Y   Str : String;
   iCount : String;
( I' r4 s+ ]$ O, U9 c' H! b   GoBigMapItem : String = '回城卷';
begin
      Str := 'getsenderitemcountbyname ' + GoBigMapItem;
" L4 k2 c$ s& e! `. ]/ P      iCount := callfunc (Str);
+ S0 o8 T/ |" j# Y- Z9 g      if iCount <> '0' then begin
         Str := 'getsenderitem ' + GoBigMapItem;
! C" b4 Q2 m4 Q" }) M         Str := Str + ':';
         Str := Str + iCount;
         print (Str);
      end;
   exit;
6 r5 C: ]! K, S+ qend;

end.