传奇SF一条龙星石开光随机元素脚本制作教程

2 ?  o5 p% e( {
6 f- `- C) Y6 G0 x7 L! z0 v/ b
' z8 F* P* t0 i3 F
' O" N/ g3 M, Y/ Z1 g[@MAIN]
: q. C! E" k$ v. D5 g4 D' [#IF
: M# P3 ]  h. W' d: L#ACT
OPENMERCHANTBIGDLG 90 96 1 4 0 -80 0
#IF
CHECKUSEITEM 2
6 C" k& Q4 G* w9 a, @$ ?* k- q#ELSEACT
MESSAGEBOX \提示：请先佩戴好将星石！
6 H; C& e- [0 f& RBREAK
#IF
CHECKITEMW 焚星石 1
#ACT
& ^% @# p" O+ E7 [/ Q1 U, ^MOV N0 0
' z4 O5 S1 o  p9 N0 V: ^  t& X9 w- W9 w#IF
, [2 P8 ~. E+ ~* y. ?4 o4 X- q$ I  OCHECKITEMW 暴星石 1
$ S' x7 w' \, F: V: k#ACT
MOV N0 1
' u: z: z8 U* _# W( J#IF
# c6 O/ `5 S1 f# Y. W, k! ]CHECKITEMW 狂星石 1
8 ]/ N; e* \9 P1 ]2 ]#ACT
% d# I& V( x4 Y6 X! |* fMOV N0 2
+ O5 H1 K% {" X6 f8 R1 N#IF
CHECKITEMW 血星石 1
#ACT
9 R8 N" l  X  g8 U  o- \MOV N0 3
$ R+ m) f7 J' Q  @9 W5 Q#IF
/ r" a6 ]; P6 j$ RCHECKITEMW 陨星石 1
#ACT
MOV N0 4
#IF
: u# M- L! O0 {% @, l#ACT
GETLISTSTRING ..\QuestDiary\QQ394099033\将星石系统\将星石属性.txt N0 S$将星石主属性 N$将星石主属性代码
#IF
  I1 }( M) `) a#SAY
<IMGEX:90:6:7:8:260:17/@EXIT>\ \
& z8 m: ^0 R' a0 H; L# B<>                   <星石开光/AUTOCOLOR=251,21,250,70,254,103,242,243>\ \ \
* r% o. F+ v; Y" J  O<>    <当前佩戴将星石/SCOLOR=250>: {<$RIGHTHAND>/SCOLOR=70}\ \
- y% w. v5 P2 e3 P1 g3 O<>    <当前星石主属性/SCOLOR=250>: {<$STR(S$将星石主属性)>/SCOLOR=242}\ \
* G  q0 i( r( b4 n+ Y5 s$ i/ x<>               <星石开光功能介绍/SCOLOR=254>\ \ \
<>    <将星石开光后，将赋予将星石五种元素属性！/SCOLOR=22>\ \
<>    <五种元素属性分别是/SCOLOR=250>：\ \
; m: t# N8 l9 |. M* P<>        <暴击几率增加/SCOLOR=244>    <增加攻击伤害/SCOLOR=244>\
<>        <物理伤害减少/SCOLOR=244>    <忽视目标防御/SCOLOR=244>\
<>        <人物体力增加/SCOLOR=244>\ \ \
6 O9 ^7 O' ^( s' d; T! d, z" o* }<>  <主属性随机增加6%-10%  其他属性随机增加1%-5%/SCOLOR=151>\ \ \ \ \ \
8 d# V, h! a9 ^: U3 K# t% k<>                 <充值点达到100/SCOLOR=154>\
<>                     <不扣除>\ \ \
* Z/ e2 w; p2 o1 j( C1 u<IMGEX:90:97:98:99:104:-7/@开始晋升>\
8 ~. a+ f% m/ G- w+ r# h! L
9 `$ }$ G( r- D1 z3 [; x
% v- q+ e+ H3 ]) B" B) m, s[@开始晋升]
6 g) E6 v2 `; B( A#IF
NOT CHECKUSEITEM 2
#ACT
MESSAGEBOX \提示：请先佩戴好将星石！
BREAK
#IF
CHECKGAMEGIRD < 100
#ACT
MESSAGEBOX \提示：充值金额不够！
6 t9 Z' b. x* E; i# j/ ^BREAK
# V. G% P6 e3 b$ V/ Q#IF
CHECKCUSTOMITEMVALUE 2 0 > 0
& ]3 L0 k% w  Z& D: w& h7 X0 y#ACT
MESSAGEBOX \提示：您的【<$RIGHTHAND>】已经开过光了！
, S( s# C# @7 k7 P  e7 bBREAK
7 {+ b: `3 N0 e0 x#IF
CHECKUSEITEM 2
& z' ^, e1 z5 S- H: Y( \" F7 ?& YCHECKGAMEGIRD ? 100
9 |# e( i! f. g# Y3 v; D- k5 lCHECKCUSTOMITEMVALUE 2 0 = 0
& q& P4 `# F" o0 l#ACT
# z' D. j  c& P- M- n* b, b3 ]CHANGECUSTOMITEMVALUE 2 0 = 1
CHANGECUSTOMITEMTEXT 2 [已开光]
CHANGECUSTOMITEMTEXTCOLOR 2 250
, a; M. l/ j6 b. P4 B" kGETLISTSTRING ..\QuestDiary\QQ394099033\将星石系统\将星石属性.txt N0 S$将星石主属性 N$将星石主属性代码
MOVR N$开光随机元素1 1 6
MOVR N$开光随机元素2 1 6
MOVR N$开光随机元素3 1 6
MOVR N$开光随机元素4 1 6
/ D* I8 ^5 b3 |, B0 cMOVR N$开光随机元素5 1 6
- {, i9 n# n( e5 xMOVR N$开光随机元素6 6 11
SetNewItemValue 2 0 = <$STR(N$开光随机元素1)>
SetNewItemValue 2 1 = <$STR(N$开光随机元素2)>
SetNewItemValue 2 2 = <$STR(N$开光随机元素3)>
& R; q9 h+ v% lSetNewItemValue 2 4 = <$STR(N$开光随机元素4)>
SetNewItemValue 2 7 = <$STR(N$开光随机元素5)>
. v+ @3 v7 U% K0 z( m: WSetNewItemValue 2 <$STR(N$将星石主属性代码)> = <$STR(N$开光随机元素6)>
3 ~6 B9 j1 }8 W  }1 g: m9 N9 @SENDCENTERMSG 251 0 [号外]:>恭喜玩家「<$USERNAME>」成功为他的【<$RIGHTHAND>】开光！！！ 1 3
GUILDNOTICEMSG 251 0 [号外]:>恭喜玩家「{<$USERNAME>|250:0:1}」成功将他的【{<$RIGHTHAND>|255:0:1}】开光！！！
GUILDNOTICEMSG 251 0 [号外]:>恭喜玩家「{<$USERNAME>|250:0:1}」成功将他的【{<$RIGHTHAND>|255:0:1}】开光！！！
; S3 V# g  c9 Q5 E; v4 J0 ^GUILDNOTICEMSG 251 0 [号外]:>恭喜玩家「{<$USERNAME>|250:0:1}」成功将他的【{<$RIGHTHAND>|255:0:1}】开光！！！
MESSAGEBOX \提示：开光成功！
BREAK