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

原理:进入流放地后自动删除物品栏内所有回城卷
# G' h2 K' N# v
方法:
3 z5 d1 @0 R4 ]3 |
& P$ R3 A2 n9 S' ^1 {一、将"删除回城.txt"放到script文件夹,在Script.SDB中加入相应的编号,我这是135

二、在流放地随便放个NPC Notice列加上script的编号135  坐标 58 78 要保证进去后就能看到
2 \, [1 y6 \1 s- Z
三、"删除回城.txt"中回城卷的名字根据各服务器情况修改

: S: m/ d& B% X$ d3 K四、由于不能检测技能栏中的回城卷 所以回城卷要设置成不能放入技能栏 也就是在Item.sdb里设置回城卷的boNotSkill为TRUE
; |( w9 q5 l. T/ I
删除回城.txt
6 m- G1 `. k: A3 T( q2 U; Y7 s
  K# S6 A, f6 `! L! P, `* ounit 删除回城;
2 N) V  n3 g' \7 E: {6 k  f* X
# m! b" |9 @$ M! |! sinterface
! z4 Y9 Z/ ^" }1 ^% E2 i) ^8 j
9 r8 z$ y. c/ G- [function  GetToken (aStr, aToken, aSep : String) : String;
function  CompareStr (aStr1, aStr2 : String) : Boolean;
function  callfunc (aText: string): string;
procedure print (aText: string);
5 h% l/ q. d( w- Nfunction  Random (aScope: integer): integer;
6 S) h' x' T- @5 E+ ]# M; q+ mfunction  Length (aText: string): integer;
( @, e6 `6 V9 e. s+ u' P1 n/ C' P( dprocedure Inc (aInt: integer);
procedure Dec (aInt: integer);
, A" L6 z+ @/ M: v% ~function  StrToInt (astr: string): integer;
$ Q3 T5 g. M, L4 z" H* H0 Ffunction  IntToStr (aInt: integer): string;
procedure exit;

: S6 p6 e7 g. C$ J! [! k! w. j, Dprocedure OnCreate (aStr : String);

implementation

procedure OnCreate (aStr : String);
9 y9 V  J" ?9 D/ F/ S4 Y9 J, Dvar
7 h' d/ X6 D; G5 F1 _7 U7 [   Str : String;
2 N4 t* ^% a! e% Y( b  n& m1 `* @   iCount : String;
- K) \' H4 e6 h( |$ Q/ `3 @; i8 P& y   GoBigMapItem : String = '回城卷';
* }9 `- d$ H" Bbegin
      Str := 'getsenderitemcountbyname ' + GoBigMapItem;
      iCount := callfunc (Str);
; F1 _! {: C6 ~! C6 w5 S) I      if iCount <> '0' then begin
         Str := 'getsenderitem ' + GoBigMapItem;
: v. `  W0 F9 U         Str := Str + ':';
5 I  g, I) L( o! ?8 [* n: {         Str := Str + iCount;
         print (Str);
7 G  J- H3 G* N9 e8 `8 q9 O1 o      end;
   exit;
9 Q! Y7 [5 O; m  b* V( s1 P" `& `end;

7 N# r  S) Y! kend.

7 ~. O& ?. j- L: }, X% q