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

原理:进入流放地后自动删除物品栏内所有回城卷
! A$ |: s2 G- i/ l* y
8 @7 L6 Z% v( S  @方法:
+ ^  W) D4 x6 ^! N; v: ]) e
" I3 W5 j+ @# p7 X/ P一、将"删除回城.txt"放到script文件夹,在Script.SDB中加入相应的编号,我这是135

二、在流放地随便放个NPC Notice列加上script的编号135  坐标 58 78 要保证进去后就能看到
, H  }2 }* w5 y; R7 j7 ^+ H0 l
三、"删除回城.txt"中回城卷的名字根据各服务器情况修改
2 P: G8 \8 H3 f
四、由于不能检测技能栏中的回城卷 所以回城卷要设置成不能放入技能栏 也就是在Item.sdb里设置回城卷的boNotSkill为TRUE

. a8 a+ j. `6 K$ e删除回城.txt
3 Y3 k. F  E3 ]/ o: \4 P
. q' q5 Y7 d7 e. N5 r  {; \unit 删除回城;
/ H9 X5 T$ e+ |' Z3 `8 o4 g
interface
6 n8 D* g" r7 r0 x1 a1 T
function  GetToken (aStr, aToken, aSep : String) : String;
( _' |8 o0 A! ~- X( Qfunction  CompareStr (aStr1, aStr2 : String) : Boolean;
7 g, c- l- X. \* V. {4 ffunction  callfunc (aText: string): string;
/ X$ _' s, N- K5 p- qprocedure print (aText: string);
function  Random (aScope: integer): integer;
function  Length (aText: string): integer;
: b  {/ W7 L+ ~2 y8 A# ~procedure Inc (aInt: integer);
procedure Dec (aInt: integer);
7 O& f0 @1 w0 t2 q( a" \function  StrToInt (astr: string): integer;
5 u% a  a- T, W- Y5 ]" C+ w# ffunction  IntToStr (aInt: integer): string;
; l3 N; g" r4 Q" xprocedure exit;

8 {; |: }5 }) w! ?" R$ [7 _procedure OnCreate (aStr : String);

implementation
/ w. M/ h. i. \) N/ N' ?+ y
procedure OnCreate (aStr : String);
var
   Str : String;
   iCount : String;
/ v* \: c# u9 K7 r8 u# G   GoBigMapItem : String = '回城卷';
  v; E2 t" F6 N. }begin
      Str := 'getsenderitemcountbyname ' + GoBigMapItem;
      iCount := callfunc (Str);
' P3 S9 a+ t. E8 x8 n      if iCount <> '0' then begin
         Str := 'getsenderitem ' + GoBigMapItem;
! H4 R1 [3 E/ `& E9 m/ U% f  B         Str := Str + ':';
: ~! A! h" ]8 ]) i3 O: F         Str := Str + iCount;
         print (Str);
      end;
. u6 H2 A: P4 Y, V, m1 R# z   exit;
2 u% T- {0 a' b% b+ X5 h7 A! }! G7 |end;
  X* z5 W! D8 D* H) m' n
2 h. `' r. {6 ~7 ~end.