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

原理:进入流放地后自动删除物品栏内所有回城卷
: s: s9 L3 a6 E
方法:
/ P) A) N" a0 |' h! c* o3 I' A: d
一、将"删除回城.txt"放到script文件夹,在Script.SDB中加入相应的编号,我这是135

二、在流放地随便放个NPC Notice列加上script的编号135  坐标 58 78 要保证进去后就能看到
* v6 V: c; ?1 U6 A
; ?7 r2 m: T1 g6 i三、"删除回城.txt"中回城卷的名字根据各服务器情况修改
4 Z0 k. k- ]. g) F
) [) Y: l6 I, l' s6 ^  i! X; d四、由于不能检测技能栏中的回城卷 所以回城卷要设置成不能放入技能栏 也就是在Item.sdb里设置回城卷的boNotSkill为TRUE

删除回城.txt

unit 删除回城;
1 M( y$ _: \: I, w
interface
* t. F8 ?" I; M' [$ `! z9 i
7 l5 _! ?& y4 k; o' X6 Qfunction  GetToken (aStr, aToken, aSep : String) : String;
; @' t9 B% B, T( S$ `$ \2 C5 Y1 d2 cfunction  CompareStr (aStr1, aStr2 : String) : Boolean;
, k. q! y! y% Z5 E( lfunction  callfunc (aText: string): string;
( f5 e; ~# i+ q3 i% F; qprocedure print (aText: string);
function  Random (aScope: integer): integer;
function  Length (aText: string): integer;
0 k7 P. z% d  ]" M$ p* i5 J5 f( oprocedure Inc (aInt: integer);
! S; b% o  L2 N7 @/ r9 Wprocedure Dec (aInt: integer);
function  StrToInt (astr: string): integer;
function  IntToStr (aInt: integer): string;
% }5 [( W3 x2 Z; t& Z# i. }5 Rprocedure exit;
( y( d  t: [  H' e* N/ i% Y
procedure OnCreate (aStr : String);
* y( R$ C" p7 h
$ t4 [! n. U- J* Z$ b" a2 vimplementation
2 {8 Z4 j: C! ~4 O0 C" l+ P! R& J" [6 J
% }1 D4 V$ K  fprocedure OnCreate (aStr : String);
var
! m1 F) n2 b* G! O% h! }3 n, z0 R3 H   Str : String;
   iCount : String;
9 q) m5 a& g( E7 _6 u$ F   GoBigMapItem : String = '回城卷';
begin
7 m. X3 u: J' q. q% A' V      Str := 'getsenderitemcountbyname ' + GoBigMapItem;
      iCount := callfunc (Str);
      if iCount <> '0' then begin
# H; F9 h; u8 z7 ~% N         Str := 'getsenderitem ' + GoBigMapItem;
         Str := Str + ':';
; V4 f, h# x0 x, N' Z& I/ a         Str := Str + iCount;
         print (Str);
; z( {4 ~, X% i# t) \) ^1 p6 a: D; U      end;
   exit;
end;
/ `" Y6 p8 e, W& r5 ~  x( L, q
. j9 i  N0 N: I+ a6 ]0 z9 M' Bend.

' h! O/ O' A' R  ~