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

+ c6 X6 g" t+ `  ^6 a% ?5 p( u
. ?  @  i& i. A9 z7 s2 v4 M: x& D
[@MAIN]
  c  p; \6 l6 C3 a9 e#IF
* d* g" {' U# ^#ACT
OPENMERCHANTBIGDLG 90 96 1 4 0 -80 0
#IF
CHECKUSEITEM 2
#ELSEACT
MESSAGEBOX \提示：请先佩戴好将星石！
BREAK
3 @) O8 E* x5 X! D, q$ h% ^#IF
+ j" J5 G2 ^) V7 l, y% y9 ]; lCHECKITEMW 焚星石 1
: p: a8 t( q$ h2 X; B#ACT
& |- {; h0 C, R6 [MOV N0 0
#IF
CHECKITEMW 暴星石 1
+ e0 T/ H" r" o" v4 v# k* h6 f) `#ACT
MOV N0 1
#IF
: @0 l' N6 q4 J2 b! y! @CHECKITEMW 狂星石 1
5 I0 Z+ E  U- {" P#ACT
% y0 d) t6 U' v& L2 t7 `1 R" Z* CMOV N0 2
#IF
CHECKITEMW 血星石 1
#ACT
* T9 |) n& D. O& V' W* `MOV N0 3
#IF
8 r+ n- W8 s5 g, ~6 ]  RCHECKITEMW 陨星石 1
) j9 T1 G8 V; L* {4 q2 s- S#ACT
& |% N2 n. I5 YMOV N0 4
2 I2 ^. R0 B8 Y) Y$ }9 c" Z2 ?#IF
#ACT
7 B# U; W* U# m, W" d/ X! uGETLISTSTRING ..\QuestDiary\QQ394099033\将星石系统\将星石属性.txt N0 S$将星石主属性 N$将星石主属性代码
( D' Z) U4 T( J" t; w1 k/ c#IF
* ~2 I7 l0 }% y1 S" ^, k2 v3 A* u% g#SAY
<IMGEX:90:6:7:8:260:17/@EXIT>\ \
<>                   <星石开光/AUTOCOLOR=251,21,250,70,254,103,242,243>\ \ \
<>    <当前佩戴将星石/SCOLOR=250>: {<$RIGHTHAND>/SCOLOR=70}\ \
0 ~; w5 I; C' s5 n<>    <当前星石主属性/SCOLOR=250>: {<$STR(S$将星石主属性)>/SCOLOR=242}\ \
<>               <星石开光功能介绍/SCOLOR=254>\ \ \
<>    <将星石开光后，将赋予将星石五种元素属性！/SCOLOR=22>\ \
<>    <五种元素属性分别是/SCOLOR=250>：\ \
<>        <暴击几率增加/SCOLOR=244>    <增加攻击伤害/SCOLOR=244>\
<>        <物理伤害减少/SCOLOR=244>    <忽视目标防御/SCOLOR=244>\
<>        <人物体力增加/SCOLOR=244>\ \ \
: w" n5 n( R2 z/ A: g<>  <主属性随机增加6%-10%  其他属性随机增加1%-5%/SCOLOR=151>\ \ \ \ \ \
<>                 <充值点达到100/SCOLOR=154>\
6 \* |1 D# \) c9 I<>                     <不扣除>\ \ \
" T7 P* z/ @+ @$ }( N* `<IMGEX:90:97:98:99:104:-7/@开始晋升>\
+ X1 T4 `& |2 k# b

( P2 w: x) K( l6 E" @/ w- y) w2 b[@开始晋升]
#IF
1 F, P- t/ A1 }3 SNOT CHECKUSEITEM 2
#ACT
MESSAGEBOX \提示：请先佩戴好将星石！
  L9 g+ J8 j7 L2 {: [4 t) R4 _- ]BREAK
#IF
7 s; j) q2 C0 K6 B. {; W0 g  n+ r. \CHECKGAMEGIRD < 100
  }) T2 I. m$ K4 U) y' T8 Q" }#ACT
4 D( j' K# J4 w& Y0 w8 E4 \* uMESSAGEBOX \提示：充值金额不够！
- T" V, @6 z# a+ ]% `! o+ k1 WBREAK
% W$ ~" }) r. o6 c5 A& _3 H6 o#IF
; R: \" j9 ~, ~1 pCHECKCUSTOMITEMVALUE 2 0 > 0
#ACT
5 F3 y/ @" `; s3 PMESSAGEBOX \提示：您的【<$RIGHTHAND>】已经开过光了！
  I$ k' J. |3 ?7 O1 y8 ]* }BREAK
& h& ]7 G; b& K#IF
) r" E" Q  p0 ]5 d( ^, \# aCHECKUSEITEM 2
CHECKGAMEGIRD ? 100
0 a9 h* Y0 q' y: `# {  uCHECKCUSTOMITEMVALUE 2 0 = 0
#ACT
CHANGECUSTOMITEMVALUE 2 0 = 1
CHANGECUSTOMITEMTEXT 2 [已开光]
CHANGECUSTOMITEMTEXTCOLOR 2 250
GETLISTSTRING ..\QuestDiary\QQ394099033\将星石系统\将星石属性.txt N0 S$将星石主属性 N$将星石主属性代码
9 \+ F, r* H8 y( G  Y: p# Z8 l- UMOVR N$开光随机元素1 1 6
- `8 M: @5 D2 o' |4 YMOVR N$开光随机元素2 1 6
MOVR N$开光随机元素3 1 6
MOVR N$开光随机元素4 1 6
- h6 o# B1 x) j/ ~MOVR N$开光随机元素5 1 6
MOVR N$开光随机元素6 6 11
+ r: V5 y: ~, M$ }/ o1 e: lSetNewItemValue 2 0 = <$STR(N$开光随机元素1)>
0 b  m- h* X9 v% w4 ~  USetNewItemValue 2 1 = <$STR(N$开光随机元素2)>
# J6 T# ~4 y# {, U$ s8 {SetNewItemValue 2 2 = <$STR(N$开光随机元素3)>
% y: [$ G% |6 C" pSetNewItemValue 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}】开光！！！
9 m( E5 F0 V1 H5 a+ s9 Q3 x* zGUILDNOTICEMSG 251 0 [号外]:>恭喜玩家「{<$USERNAME>|250:0:1}」成功将他的【{<$RIGHTHAND>|255:0:1}】开光！！！
MESSAGEBOX \提示：开光成功！
BREAK