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

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

, i' K7 G% M1 g3 r方法:

一、将"删除回城.txt"放到script文件夹,在Script.SDB中加入相应的编号,我这是135

- `. |8 ~$ i% z二、在流放地随便放个NPC Notice列加上script的编号135  坐标 58 78 要保证进去后就能看到

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

$ ?1 Q4 ?* t( A! M$ @6 b四、由于不能检测技能栏中的回城卷 所以回城卷要设置成不能放入技能栏 也就是在Item.sdb里设置回城卷的boNotSkill为TRUE
- h, R+ n8 V" E, c- }
删除回城.txt

( ]; M3 K* Z8 O9 x& \unit 删除回城;

, c' @8 G. W8 Y& t+ H' Sinterface

' w' i3 c6 q5 w! W: P5 |( ?4 Lfunction  GetToken (aStr, aToken, aSep : String) : String;
  ^! u/ D/ U; }function  CompareStr (aStr1, aStr2 : String) : Boolean;
function  callfunc (aText: string): string;
; @8 n3 }  C0 z) Q. ~) u1 kprocedure print (aText: string);
function  Random (aScope: integer): integer;
function  Length (aText: string): integer;
procedure Inc (aInt: integer);
  N7 O0 ]  J& X; f3 Pprocedure Dec (aInt: integer);
0 t- I, `, x( x% H& Z% Z% jfunction  StrToInt (astr: string): integer;
, A0 ?% z* U5 q, ~function  IntToStr (aInt: integer): string;
, E# n$ n  Q- Wprocedure exit;
" x4 R+ |! _) H* O! L
procedure OnCreate (aStr : String);
9 s9 \+ z1 O+ u) L8 j; Y! b
( |- P: o$ e7 {( {* Limplementation
. p$ g8 F% c( D
9 a( u4 i" S, n1 gprocedure OnCreate (aStr : String);
var
5 \( }2 n' N! K2 q+ M   Str : String;
   iCount : String;
: s0 k) j) c9 j$ n   GoBigMapItem : String = '回城卷';
begin
      Str := 'getsenderitemcountbyname ' + GoBigMapItem;
      iCount := callfunc (Str);
, t2 t9 E; q! ~+ X! I; @      if iCount <> '0' then begin
2 M( Y: M0 ~' M% F: q$ z( X: F. F         Str := 'getsenderitem ' + GoBigMapItem;
, Z$ Z4 z7 v" p7 Y# j         Str := Str + ':';
1 x* W1 G. Y  N8 u6 G: _         Str := Str + iCount;
. g7 R2 E" h/ ~1 W" x; ?         print (Str);
  V' t  {& E1 C. j      end;
4 r6 ]8 F+ l0 k   exit;
' }' D) B5 j1 t% a/ G' d& Z  ]end;

end.

) f5 |* I* E) N$ z% g) l& X4 C5 E3 N