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

$ K4 M5 r9 k) |( L) e+ B$ K+ L2 X- P
  @+ {% ~$ j0 V5 C) r+ B

/ Z8 ]: I: y+ _' ?6 Y# A
[@MAIN]
#IF
" _  N: g4 M' ^0 Y4 V8 t; y#ACT
OPENMERCHANTBIGDLG 90 96 1 4 0 -80 0
#IF
4 X1 r7 o. E2 p' BCHECKUSEITEM 2
# A% h' r4 q  Q7 b  S7 O: G, D#ELSEACT
9 }$ n& ^3 m9 b4 f4 a9 h. AMESSAGEBOX \提示：请先佩戴好将星石！
BREAK
: S8 `* d! K* [#IF
9 ?$ ?6 @* b* L- _& _; ~$ K/ d/ wCHECKITEMW 焚星石 1
- Y/ y7 \. u7 b0 w$ r2 K#ACT
MOV N0 0
) u8 T5 L! e" r#IF
CHECKITEMW 暴星石 1
#ACT
1 a+ p6 B7 G+ o- ~MOV N0 1
#IF
CHECKITEMW 狂星石 1
#ACT
MOV N0 2
: F6 \* R' T4 G: H8 G0 h#IF
CHECKITEMW 血星石 1
#ACT
5 m8 C$ I1 G/ E7 l' `  m- ^MOV N0 3
#IF
CHECKITEMW 陨星石 1
" T' o% B# p6 m; k5 o1 F. i- U) |#ACT
% k2 {) N" x; n. EMOV N0 4
#IF
* @' w: E4 C2 M0 t#ACT
GETLISTSTRING ..\QuestDiary\QQ394099033\将星石系统\将星石属性.txt N0 S$将星石主属性 N$将星石主属性代码
% b$ i( W1 J+ Y4 A1 V/ d; T$ x9 E#IF
. j- h9 j  [/ }' \( e#SAY
<IMGEX:90:6:7:8:260:17/@EXIT>\ \
7 r! ?% R) i+ O; }8 v* E<>                   <星石开光/AUTOCOLOR=251,21,250,70,254,103,242,243>\ \ \
<>    <当前佩戴将星石/SCOLOR=250>: {<$RIGHTHAND>/SCOLOR=70}\ \
' D( o7 ]6 z+ V& O<>    <当前星石主属性/SCOLOR=250>: {<$STR(S$将星石主属性)>/SCOLOR=242}\ \
<>               <星石开光功能介绍/SCOLOR=254>\ \ \
<>    <将星石开光后，将赋予将星石五种元素属性！/SCOLOR=22>\ \
<>    <五种元素属性分别是/SCOLOR=250>：\ \
7 G4 R6 r4 M6 `4 Z7 V3 l* N<>        <暴击几率增加/SCOLOR=244>    <增加攻击伤害/SCOLOR=244>\
, O1 z2 M% z6 w2 I  B, K<>        <物理伤害减少/SCOLOR=244>    <忽视目标防御/SCOLOR=244>\
% j, _; _% s8 T# j+ Q' s# M& L6 O<>        <人物体力增加/SCOLOR=244>\ \ \
( U0 S" F" }1 R: M: ]0 B" F<>  <主属性随机增加6%-10%  其他属性随机增加1%-5%/SCOLOR=151>\ \ \ \ \ \
<>                 <充值点达到100/SCOLOR=154>\
- U0 Q. U* W) o' V3 n) {6 y$ b<>                     <不扣除>\ \ \
5 A) z  E" h( X, R, i/ V<IMGEX:90:97:98:99:104:-7/@开始晋升>\
2 ?4 H$ O& U! {+ W* d  C

[@开始晋升]
* O3 ?/ ^- z1 A" X( S1 m  s, z9 a#IF
NOT CHECKUSEITEM 2
#ACT
MESSAGEBOX \提示：请先佩戴好将星石！
: t7 k7 C2 q! v  U& BBREAK
#IF
CHECKGAMEGIRD < 100
, _0 Y" T5 a$ j7 v; e; M& G#ACT
MESSAGEBOX \提示：充值金额不够！
BREAK
#IF
0 q1 g6 w* |2 z, KCHECKCUSTOMITEMVALUE 2 0 > 0
  c- n0 R* ?9 r2 h#ACT
; w; d, P) m: ^MESSAGEBOX \提示：您的【<$RIGHTHAND>】已经开过光了！
" h! I4 k# O& i6 YBREAK
; B8 t/ w- a  [& s" P  m6 p#IF
CHECKUSEITEM 2
CHECKGAMEGIRD ? 100
CHECKCUSTOMITEMVALUE 2 0 = 0
#ACT
6 ]% E8 I' F- e" R- E, |5 L3 CCHANGECUSTOMITEMVALUE 2 0 = 1
CHANGECUSTOMITEMTEXT 2 [已开光]
CHANGECUSTOMITEMTEXTCOLOR 2 250
- w# ~9 D7 I5 GGETLISTSTRING ..\QuestDiary\QQ394099033\将星石系统\将星石属性.txt N0 S$将星石主属性 N$将星石主属性代码
/ L" [1 W8 z6 cMOVR N$开光随机元素1 1 6
4 n& h! C$ D& Z$ g- E. K* EMOVR N$开光随机元素2 1 6
8 f- _2 X5 }5 [; M4 g3 oMOVR N$开光随机元素3 1 6
MOVR N$开光随机元素4 1 6
# U8 ~+ u% R; h3 Z6 O. Q: `" VMOVR N$开光随机元素5 1 6
MOVR N$开光随机元素6 6 11
" N, O  I5 S0 {! {SetNewItemValue 2 0 = <$STR(N$开光随机元素1)>
SetNewItemValue 2 1 = <$STR(N$开光随机元素2)>
2 n# A# |/ Z9 `: u5 mSetNewItemValue 2 2 = <$STR(N$开光随机元素3)>
) e% j: X8 p  ]1 SSetNewItemValue 2 4 = <$STR(N$开光随机元素4)>
; J# ~& X! f% y2 c6 G5 _SetNewItemValue 2 7 = <$STR(N$开光随机元素5)>
SetNewItemValue 2 <$STR(N$将星石主属性代码)> = <$STR(N$开光随机元素6)>
5 `6 {* n; g7 f' G" C! FSENDCENTERMSG 251 0 [号外]:>恭喜玩家「<$USERNAME>」成功为他的【<$RIGHTHAND>】开光！！！ 1 3
GUILDNOTICEMSG 251 0 [号外]:>恭喜玩家「{<$USERNAME>|250:0:1}」成功将他的【{<$RIGHTHAND>|255:0:1}】开光！！！
3 s$ D& g% z/ C6 U& T9 [GUILDNOTICEMSG 251 0 [号外]:>恭喜玩家「{<$USERNAME>|250:0:1}」成功将他的【{<$RIGHTHAND>|255:0:1}】开光！！！
GUILDNOTICEMSG 251 0 [号外]:>恭喜玩家「{<$USERNAME>|250:0:1}」成功将他的【{<$RIGHTHAND>|255:0:1}】开光！！！
6 [5 Z4 V1 C! oMESSAGEBOX \提示：开光成功！
6 `/ I, \' u. OBREAK
6 i$ v0 ?5 A7 I2 p2 d2 W- b8 O- G& P. ^