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

原理:进入流放地后自动删除物品栏内所有回城卷
6 \" y* \2 i1 i" f* z0 v  [+ {
7 y7 i0 J' ~- Z3 O方法:

一、将"删除回城.txt"放到script文件夹,在Script.SDB中加入相应的编号,我这是135
9 ^3 J" X3 ^; C, P( \9 w
二、在流放地随便放个NPC Notice列加上script的编号135  坐标 58 78 要保证进去后就能看到
) Q. f  Q0 P4 a6 U
  L' z! G/ ^2 r1 ]- c- v三、"删除回城.txt"中回城卷的名字根据各服务器情况修改
' g! W* N, J5 m4 o
5 b4 d' P5 p4 ]/ W四、由于不能检测技能栏中的回城卷 所以回城卷要设置成不能放入技能栏 也就是在Item.sdb里设置回城卷的boNotSkill为TRUE
9 _$ w# M8 d" [$ L$ z: }, O, i
6 m8 f8 K6 a  `) r9 Q: ^0 `删除回城.txt

unit 删除回城;

2 }' W8 m) L! m, e" finterface

8 n* ?  Y& Y  c; D! c) g" a; pfunction  GetToken (aStr, aToken, aSep : String) : String;
function  CompareStr (aStr1, aStr2 : String) : Boolean;
function  callfunc (aText: string): string;
  Q% R7 C8 j: V! Z9 L4 \- Vprocedure print (aText: string);
function  Random (aScope: integer): integer;
function  Length (aText: string): integer;
: T5 E5 h1 t3 `procedure Inc (aInt: integer);
procedure Dec (aInt: integer);
$ b1 Q4 i9 K- d: Z8 s' t- s: ~function  StrToInt (astr: string): integer;
function  IntToStr (aInt: integer): string;
procedure exit;

* p4 A( B% {6 w5 ~1 vprocedure OnCreate (aStr : String);

) o. o. V% l7 o$ \. Timplementation

7 S& g: S# _; Gprocedure OnCreate (aStr : String);
. I; x5 E' L1 J: Bvar
   Str : String;
   iCount : String;
0 G7 n& g' Y4 c5 s   GoBigMapItem : String = '回城卷';
begin
" W' ~/ E3 F4 ?& `* p# `/ l      Str := 'getsenderitemcountbyname ' + GoBigMapItem;
      iCount := callfunc (Str);
9 D4 B3 q! y% T% W9 q) \, i, K2 z      if iCount <> '0' then begin
7 }- p( w8 |6 E/ J/ k8 c/ ]         Str := 'getsenderitem ' + GoBigMapItem;
9 e4 [) H: R" P: T1 F0 r         Str := Str + ':';
         Str := Str + iCount;
. M0 j/ W, C/ I         print (Str);
3 S  m% ?1 P  p2 u$ `      end;
. M; u! t/ i: u, X( u$ x$ U   exit;
. T5 R  j& U- p, H  Y0 fend;
$ a; U8 z1 O; x2 g( N. l
end.