GOM传奇服务端星石开光脚本 GOM开区一条龙开光随机元素脚本

[@MAIN]
#IF
#ACT
OPENMERCHANTBIGDLG 90 96 1 4 0 -80 0
#IF
CHECKUSEITEM 2
#ELSEACT
MESSAGEBOX \提示：请先佩戴好将星石！
BREAK
#IF
CHECKITEMW 焚星石 1
#ACT
MOV N0 0
#IF
CHECKITEMW 暴星石 1
#ACT
MOV N0 1
#IF
CHECKITEMW 狂星石 1
#ACT
MOV N0 2
#IF
CHECKITEMW 血星石 1
#ACT
MOV N0 3
#IF
CHECKITEMW 陨星石 1
#ACT
MOV N0 4
#IF
#ACT
GETLISTSTRING ..\QuestDiary\QQ394099033\将星石系统\将星石属性.txt N0 S$将星石主属性 N$将星石主属性代码
#IF
#SAY
<IMGEX:90:6:7:8:260:17/@EXIT>\ \
<>                   <星石开光/AUTOCOLOR=251,21,250,70,254,103,242,243>\ \ \
<>    <当前佩戴将星石/SCOLOR=250>: {<$RIGHTHAND>/SCOLOR=70}\ \
<>    <当前星石主属性/SCOLOR=250>: {<$STR(S$将星石主属性)>/SCOLOR=242}\ \
<>               <星石开光功能介绍/SCOLOR=254>\ \ \
<>    <将星石开光后，将赋予将星石五种元素属性！/SCOLOR=22>\ \
<>    <五种元素属性分别是/SCOLOR=250>：\ \
<>        <暴击几率增加/SCOLOR=244>    <增加攻击伤害/SCOLOR=244>\
<>        <物理伤害减少/SCOLOR=244>    <忽视目标防御/SCOLOR=244>\
<>        <人物体力增加/SCOLOR=244>\ \ \
<>  <主属性随机增加6%-10%  其他属性随机增加1%-5%/SCOLOR=151>\ \ \ \ \ \
<>                 <充值点达到100/SCOLOR=154>\
<>                     <不扣除>\ \ \
<IMGEX:90:97:98:99:104:-7/@开始晋升>\

[@开始晋升]
#IF
NOT CHECKUSEITEM 2
#ACT
MESSAGEBOX \提示：请先佩戴好将星石！
BREAK
#IF
CHECKGAMEGIRD < 100
#ACT
MESSAGEBOX \提示：充值金额不够！
BREAK
#IF
CHECKCUSTOMITEMVALUE 2 0 > 0
#ACT
MESSAGEBOX \提示：您的【<$RIGHTHAND>】已经开过光了！
BREAK
#IF
CHECKUSEITEM 2
CHECKGAMEGIRD ? 100
CHECKCUSTOMITEMVALUE 2 0 = 0
#ACT
CHANGECUSTOMITEMVALUE 2 0 = 1
CHANGECUSTOMITEMTEXT 2 [已开光]
CHANGECUSTOMITEMTEXTCOLOR 2 250
GETLISTSTRING ..\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
MOVR N$开光随机元素5 1 6
MOVR N$开光随机元素6 6 11
SetNewItemValue 2 0 = <$STR(N$开光随机元素1)>
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 \提示：开光成功！
BREAK

激动人心，无法言表！

无回帖，不论坛，这才是人道。

太生气了，无法HOLD啦 >_<......

太生气了，无法HOLD啦 >_<......

感恩无私的分享与奉献 :)

看到这帖子真是高兴！

太生气了，无法HOLD啦 >_<......

我只是路过打酱油的。

感恩无私的分享与奉献 :)