传奇教程：装备淬炼随机获得元素，重新淬炼原来属性清零
{装备淬炼脚本}适用引擎：Gom引擎、Gee引擎脚本特色：随机获得元素，重新淬炼原来属性清零占用变量：无脚本补丁：无[@MAIN]
#IF
#ACT
CLOSEBIGDIALOGBOX
#SAY
<> <元素淬炼/AUTOCOLOR=251,21,250,70,254,103,242,243,253>\
<><温馨提示/SCOLOR=250>: <部分装备可以进行淬炼，淬炼后装备属性大幅提升。/SCOLOR=150>\
<><温馨提示/SCOLOR=250>: <可以淬炼的装备：武器、衣服、头盔、项链、手镯、戒指/SCOLOR=253>\
<><淬炼元素都是随机加的，有几率淬炼失败，淬炼失败原有元素将清空！/SCOLOR=70>\
<><如已淬炼成功的装备再次淬炼成功将替换原有元素属性！/SCOLOR=70>\
<><每件物品只能淬炼一种元素，最多3%。淬炼费用每次5万元宝！/SCOLOR=254>\ \
<>[<淬炼武器/@装备淬炼1>] [<淬炼衣服/@装备淬炼2>] [<淬炼头盔/@装备淬炼3>] [<淬炼项链/@装备淬炼4>]\
<>[<淬炼左手/@装备淬炼5>] [<淬炼右手/@装备淬炼6>] [<淬炼左戒/@装备淬炼7>] [<淬炼右戒/@装备淬炼8>]\
[@装备淬炼1]
#IF
#ACT
MOV N$装备淬炼位置 1
MOV S$装备淬炼名字 <$WEAPON>
GOTO @装备淬炼开始
BREAK
[@装备淬炼2]
#IF
#ACT
MOV N$装备淬炼位置 0
MOV S$装备淬炼名字 <$DRESS>
GOTO @装备淬炼开始
BREAK
[@装备淬炼3]
#IF
#ACT
MOV N$装备淬炼位置 4
MOV S$装备淬炼名字 <$HELMET>
GOTO @装备淬炼开始
BREAK
[@装备淬炼4]
#IF
#ACT
MOV N$装备淬炼位置 3
MOV S$装备淬炼名字 <$NECKLACE>
GOTO @装备淬炼开始
BREAK
[@装备淬炼5]
#IF
#ACT
MOV N$装备淬炼位置 5
MOV S$装备淬炼名字 <$ARMRING_L>
GOTO @装备淬炼开始
BREAK
[@装备淬炼6]
#IF
#ACT
MOV N$装备淬炼位置 6
MOV S$装备淬炼名字 <$ARMRING_R>
GOTO @装备淬炼开始
BREAK
[@装备淬炼7]
#IF
#ACT
MOV N$装备淬炼位置 7
MOV S$装备淬炼名字 <$RING_L>
GOTO @装备淬炼开始
BREAK
[@装备淬炼8]
#IF
#ACT
MOV N$装备淬炼位置 8
MOV S$装备淬炼名字 <$RING_R>
GOTO @装备淬炼开始
BREAK
[@装备淬炼开始]
#IF
CHECKUSEITEM <$STR(N$装备淬炼位置)>
#ELSEACT
MESSAGEBOX \提示：请先佩戴好装备再来升级！
BREAK
#IF
CHECKGAMEGOLD ? 50000
#ELSEACT
MESSAGEBOX \提示：元宝不够！
BREAK
#IF
CHECKGAMEGOLD ? 50000
CHECKUSEITEM <$STR(N$装备淬炼位置)>
#ACT
MOVR N$淬炼成功率 100
GAMEGOLD - 50000
#ELSEACT
BREAK
#IF
LARGE N$淬炼成功率 70
#ACT
SetNewItemValue <$STR(N$装备淬炼位置)> 1 = 0
SetNewItemValue <$STR(N$装备淬炼位置)> 2 = 0
SetNewItemValue <$STR(N$装备淬炼位置)> 3 = 0
SetNewItemValue <$STR(N$装备淬炼位置)> 4 = 0
SetNewItemValue <$STR(N$装备淬炼位置)> 5 = 0
SetNewItemValue <$STR(N$装备淬炼位置)> 6 = 0
SetNewItemValue <$STR(N$装备淬炼位置)> 7 = 0
MESSAGEBOX \提示：很遗憾！淬炼失败！
BREAK
#IF
#ACT
MOV N$淬炼装备加点 1
#IF
RANDOM 15
#ACT
MOV N$淬炼装备加点 3
#IF
RANDOM 5
#ACT
MOV N$淬炼装备加点 2
#IF
#ACT
MOVR N$淬炼装备属性位置 1 8
SetNewItemValue <$STR(N$装备淬炼位置)> 1 = 0
SetNewItemValue <$STR(N$装备淬炼位置)> 2 = 0
SetNewItemValue <$STR(N$装备淬炼位置)> 3 = 0
SetNewItemValue <$STR(N$装备淬炼位置)> 4 = 0
SetNewItemValue <$STR(N$装备淬炼位置)> 5 = 0
SetNewItemValue <$STR(N$装备淬炼位置)> 6 = 0
SetNewItemValue <$STR(N$装备淬炼位置)> 7 = 0
SetNewItemValue <$STR(N$装备淬炼位置)> <$STR(N$淬炼装备属性位置)> = <$STR(N$淬炼装备加点)>
#IF
EQUAL N$淬炼装备属性位置 1
#ACT
MOV S$元素属性名称 攻击伤害增加
#IF
EQUAL N$淬炼装备属性位置 2
#ACT
MOV S$元素属性名称 物理伤害减少
#IF
EQUAL N$淬炼装备属性位置 3
#ACT
MOV S$元素属性名称 魔法伤害减少
#IF
EQUAL N$淬炼装备属性位置 4
#ACT
MOV S$元素属性名称 忽视目标防御
#IF
EQUAL N$淬炼装备属性位置 5
#ACT
MOV S$元素属性名称 所有伤害反弹
#IF
EQUAL N$淬炼装备属性位置 6
#ACT
MOV S$元素属性名称 增加目标暴率
#IF
EQUAL N$淬炼装备属性位置 7
#ACT
MOV S$元素属性名称 人物体力增加
#IF
#ACT
MESSAGEBOX \提示：淬炼成功！<$STR(S$元素属性名称)> <$STR(N$淬炼装备加点)>%
BREAK
页:
[1]