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

, [% }4 b: C4 d0 s
: v( p' L+ l2 l
. v2 ?  u% X  ?8 B' e5 n: H3 E
2 S( ?% {  ^, o) Y3 k3 e# z; m[@MAIN]
#IF
#ACT
OPENMERCHANTBIGDLG 90 96 1 4 0 -80 0
#IF
CHECKUSEITEM 2
#ELSEACT
/ f- C6 U9 j4 @7 Y6 |, DMESSAGEBOX \提示：请先佩戴好将星石！
BREAK
#IF
+ R3 ?" d: }! G6 d' J' f- n/ f+ fCHECKITEMW 焚星石 1
/ S- W4 H& H3 d  U#ACT
MOV N0 0
#IF
6 o" R7 a0 ], ^" _; F, PCHECKITEMW 暴星石 1
#ACT
MOV N0 1
#IF
CHECKITEMW 狂星石 1
#ACT
MOV N0 2
#IF
CHECKITEMW 血星石 1
#ACT
MOV N0 3
#IF
) f4 z* R' Q, l9 b' B4 C" a& m* k; \CHECKITEMW 陨星石 1
; d$ I5 y+ ], r, i0 p) _#ACT
2 X8 _9 U4 L: M5 QMOV N0 4
#IF
#ACT
GETLISTSTRING ..\QuestDiary\QQ394099033\将星石系统\将星石属性.txt N0 S$将星石主属性 N$将星石主属性代码
# j) N, E  ]$ [) E! x#IF
# ~2 F; ^" ^1 A/ J, ^" G9 y, r2 W#SAY
<IMGEX:90:6:7:8:260:17/@EXIT>\ \
5 ^9 y. D, M5 }9 k<>                   <星石开光/AUTOCOLOR=251,21,250,70,254,103,242,243>\ \ \
- x0 |3 e6 d! O<>    <当前佩戴将星石/SCOLOR=250>: {<$RIGHTHAND>/SCOLOR=70}\ \
<>    <当前星石主属性/SCOLOR=250>: {<$STR(S$将星石主属性)>/SCOLOR=242}\ \
<>               <星石开光功能介绍/SCOLOR=254>\ \ \
<>    <将星石开光后，将赋予将星石五种元素属性！/SCOLOR=22>\ \
2 Y  C- N+ f, j( b! L<>    <五种元素属性分别是/SCOLOR=250>：\ \
<>        <暴击几率增加/SCOLOR=244>    <增加攻击伤害/SCOLOR=244>\
5 q7 D5 @0 b1 f- @5 J' K6 E<>        <物理伤害减少/SCOLOR=244>    <忽视目标防御/SCOLOR=244>\
# U5 k% \+ {  n( E8 k<>        <人物体力增加/SCOLOR=244>\ \ \
<>  <主属性随机增加6%-10%  其他属性随机增加1%-5%/SCOLOR=151>\ \ \ \ \ \
<>                 <充值点达到100/SCOLOR=154>\
<>                     <不扣除>\ \ \
& T" B6 ?; z4 O8 T4 l7 A: L<IMGEX:90:97:98:99:104:-7/@开始晋升>\
- M" l* q, @+ r
: I7 }: u' c# z5 U# i
[@开始晋升]
2 O1 F' R$ P, \/ w#IF
NOT CHECKUSEITEM 2
#ACT
MESSAGEBOX \提示：请先佩戴好将星石！
8 B  i0 e5 b- n6 ]* y3 l/ @BREAK
  h) {, X8 d( r' {" A; j  n#IF
CHECKGAMEGIRD < 100
- r% Z# h! D. x+ S1 s' ]8 K#ACT
6 N3 A7 V  o. p9 C1 X& aMESSAGEBOX \提示：充值金额不够！
BREAK
" t: s& l0 r. [- U5 g#IF
6 l1 y5 [% V. s" l1 d' wCHECKCUSTOMITEMVALUE 2 0 > 0
7 r2 L- N1 u( p" \9 o#ACT
MESSAGEBOX \提示：您的【<$RIGHTHAND>】已经开过光了！
BREAK
# Q$ |. ^% z+ T0 y#IF
CHECKUSEITEM 2
. p5 P3 q: P, E' x4 oCHECKGAMEGIRD ? 100
CHECKCUSTOMITEMVALUE 2 0 = 0
) L1 q) e" J' e( ?- x+ c#ACT
% F8 w2 Y- {: _3 M% dCHANGECUSTOMITEMVALUE 2 0 = 1
CHANGECUSTOMITEMTEXT 2 [已开光]
8 p3 O" q9 |2 VCHANGECUSTOMITEMTEXTCOLOR 2 250
. A! T/ {3 u9 a& J& E9 TGETLISTSTRING ..\QuestDiary\QQ394099033\将星石系统\将星石属性.txt N0 S$将星石主属性 N$将星石主属性代码
7 b& `9 ?) D/ c: ]# M1 }MOVR N$开光随机元素1 1 6
7 G& P: W' J6 T* l0 d% X. W1 wMOVR N$开光随机元素2 1 6
3 K7 |" w+ F6 J, A7 xMOVR N$开光随机元素3 1 6
3 S: [, B  p% o+ }# nMOVR N$开光随机元素4 1 6
! d1 {1 _, k% |% {' s* QMOVR N$开光随机元素5 1 6
" `2 ?7 l2 e( V- xMOVR N$开光随机元素6 6 11
SetNewItemValue 2 0 = <$STR(N$开光随机元素1)>
/ H  {( \9 Z' W: ]SetNewItemValue 2 1 = <$STR(N$开光随机元素2)>
SetNewItemValue 2 2 = <$STR(N$开光随机元素3)>
SetNewItemValue 2 4 = <$STR(N$开光随机元素4)>
SetNewItemValue 2 7 = <$STR(N$开光随机元素5)>
SetNewItemValue 2 <$STR(N$将星石主属性代码)> = <$STR(N$开光随机元素6)>
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}】开光！！！
GUILDNOTICEMSG 251 0 [号外]:>恭喜玩家「{<$USERNAME>|250:0:1}」成功将他的【{<$RIGHTHAND>|255:0:1}】开光！！！
MESSAGEBOX \提示：开光成功！
. z/ A- a" ?7 A3 |BREAK

# F( A' P. g0 O1 G7 ]# z1 i+ P  x+ V