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

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

- x+ I  f" Q7 j5 `8 B方法:
( `# h, O/ v0 w- y- e% l
6 H3 Z5 U- m, c. A5 M8 R, S一、将"删除回城.txt"放到script文件夹,在Script.SDB中加入相应的编号,我这是135

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

  o* F1 x' d" a; f/ C" i三、"删除回城.txt"中回城卷的名字根据各服务器情况修改

$ H- u- d6 w, x- I四、由于不能检测技能栏中的回城卷 所以回城卷要设置成不能放入技能栏 也就是在Item.sdb里设置回城卷的boNotSkill为TRUE

删除回城.txt
& f: \" o( \0 R! p- P" `
unit 删除回城;
, m, N0 E' N$ u/ g3 @
interface

5 H5 @& ^5 [" V/ Y5 cfunction  GetToken (aStr, aToken, aSep : String) : String;
/ x4 ~1 X+ S" q" i; N1 ?6 @function  CompareStr (aStr1, aStr2 : String) : Boolean;
8 O! W8 y; Y8 G3 q2 Tfunction  callfunc (aText: string): string;
* t; y" T1 I5 c& _( mprocedure print (aText: string);
function  Random (aScope: integer): integer;
7 m' S! |- N& ~4 ]5 qfunction  Length (aText: string): integer;
procedure Inc (aInt: integer);
$ ^" V4 [2 f- \7 s  I% cprocedure Dec (aInt: integer);
# `. E/ t2 N' [5 q0 X: i' _. J, _function  StrToInt (astr: string): integer;
  {  A2 k3 \5 Y6 vfunction  IntToStr (aInt: integer): string;
" T7 Y; W5 S3 x9 m7 ^procedure exit;

procedure OnCreate (aStr : String);

implementation

procedure OnCreate (aStr : String);
8 \0 n& X) i" q" Yvar
# ^6 U8 n) b4 T7 t2 A3 b   Str : String;
   iCount : String;
) l* h% u/ b& E' L3 J9 v   GoBigMapItem : String = '回城卷';
: W. }+ o- x+ J, z# V) C: Wbegin
& e+ e1 {5 M. p1 |, [6 |      Str := 'getsenderitemcountbyname ' + GoBigMapItem;
      iCount := callfunc (Str);
: m+ ~( J$ L5 U$ C8 N      if iCount <> '0' then begin
4 k4 z6 R) ?! A2 N! q9 \0 v* U) `         Str := 'getsenderitem ' + GoBigMapItem;
4 W; G& f" z1 E$ u         Str := Str + ':';
! A) }5 Y" v' Q# g         Str := Str + iCount;
/ `& A* ~& h4 r7 Y+ \. m& f         print (Str);
8 J1 ~+ E9 @! Z1 I      end;
8 x2 F# B8 b% Y8 \* F   exit;
end;
4 D" b( r* Z5 D# R
4 J& j* {, k/ E  M( ^" P/ xend.