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

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

方法:
) F' i0 K/ `7 C! w/ W
一、将"删除回城.txt"放到script文件夹,在Script.SDB中加入相应的编号,我这是135
- p, y* c# A& D
( Q# d; m$ k" g' |2 A  O二、在流放地随便放个NPC Notice列加上script的编号135  坐标 58 78 要保证进去后就能看到
- v  [- Z3 @1 Q
三、"删除回城.txt"中回城卷的名字根据各服务器情况修改

/ Q. D7 v& \/ f3 h四、由于不能检测技能栏中的回城卷 所以回城卷要设置成不能放入技能栏 也就是在Item.sdb里设置回城卷的boNotSkill为TRUE

# |' y& G: Y3 W6 U2 s删除回城.txt
7 R2 k/ g: m) [# w
- Q5 h* J- t* T1 ~( tunit 删除回城;
- R& R2 ^: O9 b  j8 e( m3 T
( y: q0 ~2 J  h, [8 Yinterface
9 r( \" J' P, ?8 G
: u4 R7 Y$ u3 E" z- P2 xfunction  GetToken (aStr, aToken, aSep : String) : String;
function  CompareStr (aStr1, aStr2 : String) : Boolean;
0 _8 n) \: F" T6 G& w4 o0 lfunction  callfunc (aText: string): string;
( B4 O5 R1 B$ M! yprocedure print (aText: string);
function  Random (aScope: integer): integer;
function  Length (aText: string): integer;
procedure Inc (aInt: integer);
+ S) x  g) t( Z( b" A, v6 }9 Wprocedure Dec (aInt: integer);
function  StrToInt (astr: string): integer;
function  IntToStr (aInt: integer): string;
- _5 t# |3 {( [" Rprocedure exit;

procedure OnCreate (aStr : String);
1 N) k1 `( v: M& [
implementation

2 ?; T! d9 R, I9 m0 \procedure OnCreate (aStr : String);
* l, E6 x" m7 h# r# O6 jvar
) u# q- f3 C, t! M& Y, Z   Str : String;
* _5 }) J3 G' a$ Y. y5 V, Z   iCount : String;
   GoBigMapItem : String = '回城卷';
4 N+ K% R$ `/ p8 _7 A) _begin
      Str := 'getsenderitemcountbyname ' + GoBigMapItem;
0 Y& B! S: b8 E) O( l7 C: H% c4 ?      iCount := callfunc (Str);
8 ~3 }) q6 f) A9 l) l$ J0 H      if iCount <> '0' then begin
         Str := 'getsenderitem ' + GoBigMapItem;
         Str := Str + ':';
- ]# T: Z4 B  p6 X% ?) u$ W$ X         Str := Str + iCount;
% J5 V: S! W2 R9 {6 m         print (Str);
      end;
/ @- l7 @9 ?3 k' e   exit;
! H, L& H+ A" L/ [% W" k7 pend;
7 {+ V0 m* i! `  ?! T
3 ~1 A) X) q$ l4 L6 z2 d! kend.