三千论坛

标题: 回城卷轴在流放地的BUG及解决方法 [打印本页]

作者: 快要发癫啦    时间: 2023-2-1 14:20
标题: 回城卷轴在流放地的BUG及解决方法
原理:进入流放地后自动删除物品栏内所有回城卷
& M  d) ~" \7 O+ J: N& d
方法: 1 }' b, ]) R0 B
一、将"删除回城.txt"放到script文件夹,在Script.SDB中加入相应的编号,我这是135 ' K% \$ y/ N7 |' I- E
二、在流放地随便放个NPC Notice列加上script的编号135  坐标 58 78 要保证进去后就能看到 8 u5 h! v" U9 D( F  C- J; ?
三、"删除回城.txt"中回城卷的名字根据各服务器情况修改
  V. ]( v" M/ r7 g0 y0 d9 o+ K4 g
四、由于不能检测技能栏中的回城卷 所以回城卷要设置成不能放入技能栏 也就是在Item.sdb里设置回城卷的boNotSkill为TRUE
2 H/ Z0 u( N! f# s: b
删除回城.txt
* f6 }' m* ?& Y9 H9 u" F: X
unit 删除回城;
7 C$ M: ^" C0 t0 ?- l3 \
inte**ce + C6 m3 O4 `% Y' y8 t+ r5 z1 h
function  GetToken (aStr, aToken, aSep : String) : String;
' r' O* f0 E. X: U9 E% l2 L9 \
function  CompareStr (aStr1, aStr2 : String) : Boolean;1 n) E1 o1 V0 H  A- f% m
function  callfunc (aText: string): string;9 ~4 W( d0 r# U" J, O
procedure print (aText: string);: H. E6 F  [% r) U' O* Z
function  Random (aScope: integer): integer;
, a+ p6 R" a. K* S; d8 M* D4 ^! \
function  Length (aText: string): integer;- T! ?; H" x1 @; D0 n% i9 z) P
procedure Inc (aInt: integer);5 a5 o; z0 z% y2 k) S+ [
procedure Dec (aInt: integer);4 y& x- U. z' ^% r
function  StrToInt (astr: string): integer;
0 O+ d0 g. ]$ m) S
function  IntToStr (aInt: integer): string;* ~/ q( [7 M. {
procedure exit;
) g# H% V$ }' b4 p4 Z2 _
procedure OnCreate (aStr : String);
/ h# u$ P9 C5 Q: w/ z; q
implementation
+ G7 Y# i; h6 T+ \! ]6 ]
procedure OnCreate (aStr : String);3 f' q6 D& b. ~. ^( P2 F4 h
var
% U+ d( A5 N5 A7 _
   Str : String;9 l/ Z( r) Y: p8 g) G
   iCount : String;5 c: w/ e5 q% ?; d, A
   GoBigMapItem : String = '回城卷';
, W) z+ |! D! j- ?# `9 u
begin
' z; s' J4 @, |  c* j) u0 [
      Str := 'getsenderitemcountbyname ' + GoBigMapItem;4 m3 R% w1 `. H+ V: p
      iCount := callfunc (Str);
3 }; t* F6 w$ m% P
      if iCount <> '0' then begin
2 {) W1 O! s) B9 f& A  I
         Str := 'getsenderitem ' + GoBigMapItem;3 s, S) }2 U" q9 t6 X6 N
         Str := Str + ':';
, d8 l' \) R* H1 Q! t/ u" H5 P
         Str := Str + iCount;& z6 |; Q" x6 V) u, M" x6 e2 ^
         print (Str);
2 a; P& F$ a% c
      end;
4 F* d+ \1 Y4 Y. L; h$ p! W1 H7 i$ @
   exit;/ a6 F9 R) z$ }
end; , o  }* n* v% u0 l
end.
. \1 J, T( G& R4 s+ f* a





欢迎光临 三千论坛 (http://www.3000y.vip/) Powered by Discuz! X3.4