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

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

方法:

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

二、在流放地随便放个NPC Notice列加上script的编号135  坐标 58 78 要保证进去后就能看到

三、"删除回城.txt"中回城卷的名字根据各服务器情况修改
# X8 m$ h. t- i0 Q+ u
# y' J2 P1 O. Z; }5 f, Z/ j, @四、由于不能检测技能栏中的回城卷 所以回城卷要设置成不能放入技能栏 也就是在Item.sdb里设置回城卷的boNotSkill为TRUE
# f- s3 b- C( N; B
删除回城.txt

7 x& [; d: f- |8 ]" o5 O5 Y$ Hunit 删除回城;

interface

function  GetToken (aStr, aToken, aSep : String) : String;
function  CompareStr (aStr1, aStr2 : String) : Boolean;
: v' V& q1 r; V; Y" r0 z/ _" ^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);
8 A4 r* w7 r" U* z. Kfunction  StrToInt (astr: string): integer;
function  IntToStr (aInt: integer): string;
procedure exit;
9 [, E1 E. v; o* a2 S# t
procedure OnCreate (aStr : String);
, ~, c7 j; c3 O5 z2 Z( r; _
, O1 F6 }% E  M1 Z9 e. _% D" ^8 ?: N. @implementation
4 W4 S/ W8 o/ I4 N: S1 x
; K9 K8 O5 ~5 o- uprocedure OnCreate (aStr : String);
* h8 c7 W* o1 i0 Tvar
- F( K( A! K9 R, e# |   Str : String;
   iCount : String;
   GoBigMapItem : String = '回城卷';
5 ~9 ?2 l: E2 P+ ebegin
      Str := 'getsenderitemcountbyname ' + GoBigMapItem;
9 \9 ^$ o5 M9 l" G0 R      iCount := callfunc (Str);
5 V& H" V9 z& V6 S" s( B      if iCount <> '0' then begin
         Str := 'getsenderitem ' + GoBigMapItem;
         Str := Str + ':';
' T4 |& C5 V, ~. B$ k         Str := Str + iCount;
% G# D* ]# s5 Y0 r' N9 [         print (Str);
* @9 ^# A& i# B4 ]      end;
   exit;
end;

9 I& I! r" X. }* n& F$ _end.