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

原理:进入流放地后自动删除物品栏内所有回城卷
- ]' x# S& K1 O
7 t( R% O8 r- C( h2 Y方法:

一、将"删除回城.txt"放到script文件夹,在Script.SDB中加入相应的编号,我这是135
1 |! k' x2 ~+ U/ l# C$ n
二、在流放地随便放个NPC Notice列加上script的编号135  坐标 58 78 要保证进去后就能看到

三、"删除回城.txt"中回城卷的名字根据各服务器情况修改
- k+ t- M! ^6 N
四、由于不能检测技能栏中的回城卷 所以回城卷要设置成不能放入技能栏 也就是在Item.sdb里设置回城卷的boNotSkill为TRUE

删除回城.txt
9 m8 A* Z9 t" d. n
unit 删除回城;
% {' Q3 N& `  O& b
) w/ L+ R+ h4 @) Jinterface
: I  m: J6 E& c/ u
3 Z; g2 N% w' r0 B" `0 Xfunction  GetToken (aStr, aToken, aSep : String) : String;
function  CompareStr (aStr1, aStr2 : String) : Boolean;
function  callfunc (aText: string): string;
& k" P) `5 A9 a- C) bprocedure print (aText: string);
# H! v6 b" ~- efunction  Random (aScope: integer): integer;
3 `( n7 c" T+ W( Kfunction  Length (aText: string): integer;
procedure Inc (aInt: integer);
procedure Dec (aInt: integer);
function  StrToInt (astr: string): integer;
function  IntToStr (aInt: integer): string;
' ^: N% I) D2 o. H- R4 q! f! Q* O* aprocedure exit;
5 ?( K$ _$ w! Y
* r7 M) e1 c5 P9 fprocedure OnCreate (aStr : String);

+ z' a$ U, Q. q2 x3 Y) u% I1 P- Iimplementation

procedure OnCreate (aStr : String);
var
2 R& S3 [" V$ V: N   Str : String;
   iCount : String;
   GoBigMapItem : String = '回城卷';
begin
      Str := 'getsenderitemcountbyname ' + GoBigMapItem;
      iCount := callfunc (Str);
  |2 A  d( ]7 D      if iCount <> '0' then begin
$ I0 b; ?& |, n         Str := 'getsenderitem ' + GoBigMapItem;
: I* u( K+ ?0 D. u4 }0 Z         Str := Str + ':';
         Str := Str + iCount;
         print (Str);
+ x% f, r/ S, o      end;
0 x# \( T+ O) C) x2 E  ?   exit;
2 a9 a0 g( I' k9 y' ^( v/ L% `9 Iend;
& M$ k% \( v! Y* c0 r4 N8 E
; J( l( r- @3 B, w8 j: dend.

6 ^: V8 V0 ~6 x- b  ]