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

原理:进入流放地后自动删除物品栏内所有回城卷
' z' W) l6 o. d4 H2 X2 Z
方法:

+ Z! n1 |- P6 _+ S5 f3 m一、将"删除回城.txt"放到script文件夹,在Script.SDB中加入相应的编号,我这是135
) \' u2 F/ ?7 m# b
' N- g" {1 e% q/ T: u二、在流放地随便放个NPC Notice列加上script的编号135  坐标 58 78 要保证进去后就能看到
7 Q; l+ j% b8 }: U
三、"删除回城.txt"中回城卷的名字根据各服务器情况修改
: {8 @! m6 k. [4 f7 p
4 {7 `- {9 e) V) B5 |+ ]" ?5 \# C四、由于不能检测技能栏中的回城卷 所以回城卷要设置成不能放入技能栏 也就是在Item.sdb里设置回城卷的boNotSkill为TRUE
- p7 ~( q* m; p* H2 V7 I5 C
( ?8 S; O/ ?# p删除回城.txt

2 J  [; o8 K. `unit 删除回城;

0 M% v9 t6 k$ s2 _+ minterface

% K4 u7 _, @$ D  D# Q* K) |* e* Zfunction  GetToken (aStr, aToken, aSep : String) : String;
function  CompareStr (aStr1, aStr2 : String) : Boolean;
function  callfunc (aText: string): string;
procedure print (aText: string);
function  Random (aScope: integer): integer;
function  Length (aText: string): integer;
procedure Inc (aInt: integer);
procedure Dec (aInt: integer);
function  StrToInt (astr: string): integer;
- f1 A8 e0 m( @  t* h& D* u* E! {0 |# efunction  IntToStr (aInt: integer): string;
procedure exit;

' x+ r2 b  y7 D! X; kprocedure OnCreate (aStr : String);

implementation
5 z+ l. H8 r9 {- ]9 B. Q% O) K: e* O
8 o/ E1 O- O) ?$ C, a2 sprocedure OnCreate (aStr : String);
1 Z! O/ s4 r$ ^  p& wvar
) I9 J8 ~) U7 }- e+ P) Q; h   Str : String;
   iCount : String;
   GoBigMapItem : String = '回城卷';
- L4 X& B1 P  w- w: Q. B4 j1 k! g& J: bbegin
# L" L, _1 M4 `  p7 O' k8 L+ I$ B      Str := 'getsenderitemcountbyname ' + GoBigMapItem;
      iCount := callfunc (Str);
: e1 `% V# r1 L3 y" v% g      if iCount <> '0' then begin
$ t, z- }, L* T( c$ |" r         Str := 'getsenderitem ' + GoBigMapItem;
$ C8 l. ]: E. U$ \) J; P, F" U         Str := Str + ':';
         Str := Str + iCount;
3 K- }6 O6 `1 X4 D: v         print (Str);
      end;
   exit;
end;
' {7 r. j' a+ a- g5 k$ r" a. a4 d; h
' {% B/ o7 t9 P$ }end.

: S9 T2 E+ _- ]( ?  C