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

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

方法:
5 Y8 m3 A6 a7 l6 X2 g9 [
: M. P6 r* }5 ~  C. d( }% e一、将"删除回城.txt"放到script文件夹,在Script.SDB中加入相应的编号,我这是135
4 }+ r" \8 C4 z5 g6 X! W- r
. \8 x. p( Z3 C5 q! y( f2 j二、在流放地随便放个NPC Notice列加上script的编号135  坐标 58 78 要保证进去后就能看到
- R' {" M) |5 y* K* ?
5 u6 g9 S- o  Y1 |三、"删除回城.txt"中回城卷的名字根据各服务器情况修改

+ b0 e1 j9 S* B; X" u四、由于不能检测技能栏中的回城卷 所以回城卷要设置成不能放入技能栏 也就是在Item.sdb里设置回城卷的boNotSkill为TRUE
) ^& C' A" M+ Y3 y0 ^3 R/ P9 z
删除回城.txt

8 c$ E0 P6 k! |0 ]9 z; hunit 删除回城;

interface

function  GetToken (aStr, aToken, aSep : String) : String;
function  CompareStr (aStr1, aStr2 : String) : Boolean;
function  callfunc (aText: string): string;
procedure print (aText: string);
5 ^: m& S: L: F9 [# Zfunction  Random (aScope: integer): integer;
function  Length (aText: string): integer;
procedure Inc (aInt: integer);
/ z  P: c+ C: r  u' Z1 Tprocedure Dec (aInt: integer);
3 `8 O: ?& e, l* ~function  StrToInt (astr: string): integer;
function  IntToStr (aInt: integer): string;
procedure exit;
" N7 j7 ~. T! E# ~/ p
: f! F6 R* j: j) d, Z1 u' Kprocedure OnCreate (aStr : String);
/ T) X, |/ U- o0 _& h0 o
' ^+ g6 |  V0 w/ aimplementation
# _# M# U8 k8 C1 U7 H( }5 q6 L" Z
procedure OnCreate (aStr : String);
var
   Str : String;
   iCount : String;
   GoBigMapItem : String = '回城卷';
begin
9 T& m- E* y; I. l: E" Y; ^      Str := 'getsenderitemcountbyname ' + GoBigMapItem;
8 V. p8 c6 l6 p0 C  F      iCount := callfunc (Str);
* k  E/ h# X) c/ D6 w      if iCount <> '0' then begin
         Str := 'getsenderitem ' + GoBigMapItem;
  X7 O; L" k! m/ x  a, A% Y5 @         Str := Str + ':';
0 k# U7 E# D8 |3 g: `1 a         Str := Str + iCount;
9 E1 u9 t! ~* w9 Q- `. M         print (Str);
      end;
9 y( F; L- }% k$ V   exit;
end;
: }+ F/ I" Y3 S" U
& @# o; _7 d4 m2 [1 s9 C# Zend.