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

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

& x' H4 Y: {! s: R方法:

一、将"删除回城.txt"放到script文件夹,在Script.SDB中加入相应的编号,我这是135

$ {$ r! O: T, n* e二、在流放地随便放个NPC Notice列加上script的编号135  坐标 58 78 要保证进去后就能看到

4 h; j5 y7 k& [1 g6 r! C- M三、"删除回城.txt"中回城卷的名字根据各服务器情况修改

. v' V, l8 l. U. ]) \+ w四、由于不能检测技能栏中的回城卷 所以回城卷要设置成不能放入技能栏 也就是在Item.sdb里设置回城卷的boNotSkill为TRUE

, O0 W5 z( Y4 @6 a2 j1 Z( W' S删除回城.txt
: h" C# }6 C; A8 [( s7 @
unit 删除回城;
6 v% w3 z8 I; L7 R
interface

function  GetToken (aStr, aToken, aSep : String) : String;
function  CompareStr (aStr1, aStr2 : String) : Boolean;
function  callfunc (aText: string): string;
1 O# x. G; q) B1 K6 Eprocedure print (aText: string);
- l# }0 n+ L4 t+ \! Zfunction  Random (aScope: integer): integer;
function  Length (aText: string): integer;
+ h& P; ^6 Z0 F% Xprocedure Inc (aInt: integer);
procedure Dec (aInt: integer);
! S- q, @" x' Mfunction  StrToInt (astr: string): integer;
8 [3 `, R: g. B. s2 zfunction  IntToStr (aInt: integer): string;
5 _: M' y( J  X0 S. bprocedure exit;
+ c! J% D3 H; f5 ~
procedure OnCreate (aStr : String);

9 w, Q: p2 k* U' b8 [. c" mimplementation
- z- n! M$ Y9 \- q: X" z2 h! G9 ?
procedure OnCreate (aStr : String);
var
$ p6 S& Z5 B) z  p" i$ T   Str : String;
   iCount : String;
   GoBigMapItem : String = '回城卷';
2 K! j& X, g0 E% O" x8 gbegin
      Str := 'getsenderitemcountbyname ' + GoBigMapItem;
      iCount := callfunc (Str);
      if iCount <> '0' then begin
7 B, e$ l( Q* d* N         Str := 'getsenderitem ' + GoBigMapItem;
  h: V' V9 J0 T         Str := Str + ':';
1 Z7 _* L1 }+ k& \         Str := Str + iCount;
         print (Str);
      end;
) q" G2 l1 F$ e; T$ e9 h   exit;
! @* n; Y. o, B) j( J0 G/ Gend;

- {5 T2 t1 }7 ?" l2 dend.