(@ArmRemoveStone)
[@main]
#IF
#act
ReturnBoxItem 0
ReturnBoxItem 1
ReturnBoxItem 2
ReturnBoxItem 3
ReturnBoxItem 4
ReturnBoxItem 5
ReturnBoxItem 6
MOV S$宝石名称
MOV N$距离升级经验 0
MOV N$器灵经验 0
MOV N$器灵基本经验1 0
MOV N$器灵基本经验2 0
MOV N$器灵基本经验3 0
MOV N$器灵基本经验4 0
MOV N$器灵基本经验5 0
MOV N$器灵基本经验6 0
MOV N$当前吞噬经验1 0
MOV N$当前吞噬经验2 0
MOV N$当前吞噬经验3 0
MOV N$当前吞噬经验4 0
MOV N$当前吞噬经验5 0
MOV N$当前吞噬经验6 0
goto @宝石系统
[@宝石系统]
#IF
#act
#say
\
<ITEMBOX:0:44:75:25:5:50:50:46:请放入主器灵！>\ \ \
\ \
<升级器灵名称：/FCOLOR=251><$STR(S$宝石名称)> \
<距离下级经验：/FCOLOR=251><$STR(N$距离升级经验)> \
<材料器灵经验：/FCOLOR=251><$STR(N$器灵经验)> \ \
<确定吞噬/@吞噬1> <注意：经验溢出最多一级，超出系统回收！/FCOLOR=253>\ \
<说明：/FCOLOR=249><经验进度条满后器灵自动升到下一级/FCOLOR=46> <拆除器灵/@ArmRemoveStone> <灵魂结晶/@灵魂结晶> \
<被吞噬器灵经验=初始经验+经度条经验/FCOLOR=46> \
<所有器灵之间可任意吞噬，每级器灵初始经验等于所有吞噬经验之和。/FCOLOR=46>\
<ITEMBOX:1:44:75:250:5:50:50:46:请放入被吞噬器灵！>\
<ITEMBOX:2:44:75:300:5:50:50:46:请放入被吞噬器灵！>\
<ITEMBOX:3:44:75:350:5:50:50:46:请放入被吞噬器灵！>\
<ITEMBOX:4:44:75:250:55:50:50:46:请放入被吞噬器灵！>\
<ITEMBOX:5:44:75:300:55:50:50:46:请放入被吞噬器灵！>\
<ITEMBOX:6:44:75:350:55:50:50:46:请放入被吞噬器灵！>\
<text: ↓↓放入主器灵↓↓ ↓↓被吞噬器灵↓↓:-20:-315/FCOLOR=67>
[@吞噬3]
#OR
NOT Equal S$宝石名称 <$BOXITEM[1].NAME>
NOT Equal S$宝石名称 <$BOXITEM[2].NAME>
NOT Equal S$宝石名称 <$BOXITEM[3].NAME>
NOT Equal S$宝石名称 <$BOXITEM[4].NAME>
NOT Equal S$宝石名称 <$BOXITEM[5].NAME>
NOT Equal S$宝石名称 <$BOXITEM[6].NAME>
#ACT
MESSAGEBOX 提示:升级需要一颗与当前宝石同阶宝石+吞噬经验
GOTO @宝石系统
BREAK
#IF
NOT Equal S$进阶装备 艾泽拉斯灵魂结晶
NOT Equal S$进阶装备 克苏恩的永恒诅咒
NOT Equal S$进阶装备 永恒艾露恩之星
#ACT
DelBoxItem 0
Give <$STR(S$进阶装备)>
GiveBoxItem 0 <$STR(S$进阶装备)>
DelBoxItem 1
DelBoxItem 2
DelBoxItem 3
DelBoxItem 4
DelBoxItem 5
DelBoxItem 6
UpdateItem boxitem0
UpdateAbil
MOV S$宝石名称
MOV N$距离升级经验 0
MOV N$器灵经验 0
MOV N$器灵基本经验1 0
MOV N$器灵基本经验2 0
MOV N$器灵基本经验3 0
MOV N$器灵基本经验4 0
MOV N$器灵基本经验5 0
MOV N$器灵基本经验6 0
MOV N$当前吞噬经验1 0
MOV N$当前吞噬经验2 0
MOV N$当前吞噬经验3 0
MOV N$当前吞噬经验4 0
MOV N$当前吞噬经验5 0
MOV N$当前吞噬经验6 0
GOTO @宝石系统
GOTO @ItemIntoBox0
MESSAGEBOX 提示:器灵升级成功！<$STR(S$进阶装备)>
BREAK
#OR
Equal S$进阶装备 艾泽拉斯灵魂结晶
Equal S$进阶装备 克苏恩的永恒诅咒
Equal S$进阶装备 永恒艾露恩之星
#ACT
DelBoxItem 0
Give <$STR(S$进阶装备)>
DelBoxItem 1
DelBoxItem 2
DelBoxItem 3
DelBoxItem 4
DelBoxItem 5
DelBoxItem 6
UpdateItem boxitem0
UpdateAbil
MOV N$器灵经验 0
MOV S$宝石名称
MOV N$距离升级经验 0
GOTO @宝石系统
MESSAGEBOX 提示:器灵升级成功！<$STR(S$进阶装备)>
BREAK
[@吞噬2]
#IF
SMALL N$器灵经验 <$STR(N$距离升级经验)>
#ACT
SetCustomItemProgressbarValue boxitem0 0 1 + <$STR(N$器灵经验)>
DelBoxItem 1
DelBoxItem 2
DelBoxItem 3
DelBoxItem 4
DelBoxItem 5
DelBoxItem 6
UpdateItem boxitem0
UpdateAbil
MOV N$器灵经验 0
GOTO @宝石系统
GOTO @ItemIntoBox0
MESSAGEBOX 提示:器灵吞噬成功！
BREAK
#IF
NOT SMALL N$器灵经验 <$STR(N$距离升级经验)>
#ACT
ReadConfigFileItem ..\QuestDiary\宝石数据.txt <$BOXITEM[0].NAME> 进阶装备 <$STR(S$进阶装备)>
GOTO @吞噬3
[@吞噬1]
#IF
Equal <$BOXITEM[0].NAME>
#ACT
GOTO @宝石系统
MESSAGEBOX 提示:请放入主器灵！
BREAK
#IF
Equal N$器灵经验 0
#ACT
GOTO @宝石系统
MESSAGEBOX 提示:无器灵经验，无法吞噬！
BREAK
#OR
Equal <$BOXITEM[0].NAME> 艾露恩之星
Equal <$BOXITEM[0].NAME> 异彩艾露恩之星
Equal <$BOXITEM[0].NAME> 克苏恩的诅咒
Equal <$BOXITEM[0].NAME> 克苏恩的灵魂诅咒
Equal <$BOXITEM[0].NAME> 艾泽拉斯世界之心
Equal <$BOXITEM[0].NAME> 克苏恩的永恒诅咒
#ACT
GOTO @吞噬2
BREAK
#IF
NOT Equal <$BOXITEM[0].NAME>
#ACT
ReadConfigFileItem ..\QuestDiary\宝石数据.txt <$BOXITEM[0].NAME> 进阶装备 <$STR(S$进阶装备)>
#IF
SMALL N$器灵经验 <$STR(N$距离升级经验)>
#ACT
SetCustomItemProgressbarValue boxitem0 0 1 + <$STR(N$器灵经验)>
DelBoxItem 1
DelBoxItem 2
DelBoxItem 3
DelBoxItem 4
DelBoxItem 5
DelBoxItem 6
UpdateItem boxitem0
UpdateAbil
MOV S$宝石名称
MOV N$距离升级经验 0
MOV N$器灵经验 0
MOV N$器灵基本经验1 0
MOV N$器灵基本经验2 0
MOV N$器灵基本经验3 0
MOV N$器灵基本经验4 0
MOV N$器灵基本经验5 0
MOV N$器灵基本经验6 0
MOV N$当前吞噬经验1 0
MOV N$当前吞噬经验2 0
MOV N$当前吞噬经验3 0
MOV N$当前吞噬经验4 0
MOV N$当前吞噬经验5 0
MOV N$当前吞噬经验6 0
GOTO @宝石系统
GOTO @ItemIntoBox0
MESSAGEBOX 提示:器灵吞噬成功！
BREAK
#IF
NOT Equal SMALL N$器灵经验 <$STR(N$距离升级经验)>
NOT Equal S$进阶装备 泪珠红曜石Lv.MAX
NOT Equal S$进阶装备 血色残阳Lv.MAX
NOT Equal S$进阶装备 刀锋之石Lv.MAX
NOT Equal S$进阶装备 泪珠翠榄石Lv.MAX
NOT Equal S$进阶装备 无瑕玉髓Lv.MAX
NOT Equal S$进阶装备 翡翠之心Lv.MAX
#ACT
DelBoxItem 0
Give <$STR(S$进阶装备)>
GiveBoxItem 0 <$STR(S$进阶装备)>
DelBoxItem 1
DelBoxItem 2
DelBoxItem 3
DelBoxItem 4
DelBoxItem 5
DelBoxItem 6
UpdateItem boxitem0
UpdateAbil
MOV S$宝石名称
MOV N$距离升级经验 0
MOV N$器灵经验 0
MOV N$器灵基本经验1 0
MOV N$器灵基本经验2 0
MOV N$器灵基本经验3 0
MOV N$器灵基本经验4 0
MOV N$器灵基本经验5 0
MOV N$器灵基本经验6 0
MOV N$当前吞噬经验1 0
MOV N$当前吞噬经验2 0
MOV N$当前吞噬经验3 0
MOV N$当前吞噬经验4 0
MOV N$当前吞噬经验5 0
MOV N$当前吞噬经验6 0
GOTO @ItemIntoBox0
MESSAGEBOX 提示:器灵升级成功！<$STR(S$进阶装备)>
BREAK
#IF
NOT Equal SMALL N$器灵经验 <$STR(N$距离升级经验)>
#ACT
DelBoxItem 0
Give <$STR(S$进阶装备)>
DelBoxItem 1
DelBoxItem 2
DelBoxItem 3
DelBoxItem 4
DelBoxItem 5
DelBoxItem 6
UpdateItem boxitem0
UpdateAbil
MOV S$宝石名称
MOV N$距离升级经验 0
MOV N$器灵经验 0
MOV N$器灵基本经验1 0
MOV N$器灵基本经验2 0
MOV N$器灵基本经验3 0
MOV N$器灵基本经验4 0
MOV N$器灵基本经验5 0
MOV N$器灵基本经验6 0
MOV N$当前吞噬经验1 0
MOV N$当前吞噬经验2 0
MOV N$当前吞噬经验3 0
MOV N$当前吞噬经验4 0
MOV N$当前吞噬经验5 0
MOV N$当前吞噬经验6 0
GOTO @宝石系统
MESSAGEBOX 提示:器灵升级成功！<$STR(S$进阶装备)>
BREAK
[@ItemIntoBox0]
#OR
Equal <$BOXITEM[0].NAME> 泪珠红曜石Lv.MAX
Equal <$BOXITEM[0].NAME> 血色残阳Lv.MAX
Equal <$BOXITEM[0].NAME> 刀锋之石Lv.MAX
Equal <$BOXITEM[0].NAME> 泪珠翠榄石Lv.MAX
Equal <$BOXITEM[0].NAME> 无瑕玉髓Lv.MAX
Equal <$BOXITEM[0].NAME> 翡翠之心Lv.MAX
Equal <$BOXITEM[0].NAME> 永恒艾露恩之星
Equal <$BOXITEM[0].NAME> 克苏恩的永恒诅咒
Equal <$BOXITEM[0].NAME> 艾泽拉斯灵魂结晶
Equal <$BOXITEM[0].NAME> 器灵(小)
Equal <$BOXITEM[0].NAME> 器灵(大)
Equal <$BOXITEM[0].NAME> 器灵(混沌)
#ACT
ReturnBoxItem 0
GOTO @宝石系统
MESSAGEBOX 提示:此宝石已为**无法吞噬！
BREAK
#IF
NOT Equal <$BOXITEM[0].NAME>
#ACT
MOV S$宝石名称 <$BOXITEM[0].NAME>
ReadConfigFileItem ..\QuestDiary\宝石数据.txt <$STR(S$宝石名称)> 吞噬经验 <$STR(N$吞噬经验)>
#IF
CHECKCUSTOMITEMPROGRESSBAR boxitem0 0
#ACT
GetCustomItemProgressbarValue boxitem0 0 1 <$STR(N$当前吞噬经验)>
MOV N$距离升级经验 <$STR(N$吞噬经验)>
DEC N$距离升级经验 <$STR(N$当前吞噬经验)>
#ELSEACT
SetCustomItemProgressbar boxitem0 0 0 1
SetCustomItemProgressbar boxitem0 0 1 吞噬经验
SetCustomItemProgressbar boxitem0 0 2 251
SetCustomItemProgressbar boxitem0 0 3 2
SetCustomItemProgressbar boxitem0 0 4 2
SetCustomItemProgressbarValue boxitem0 0 0 = <$STR(N$吞噬经验)>
SetCustomItemProgressbarValue boxitem0 0 1 = 0
UpdateItem boxitem0
UpdateAbil
GOTO @ItemIntoBox0
#IF
SMALL N$距离升级经验 1
#ACT
MOV N$距离升级经验 0
GOTO @宝石系统
BREAK
#ELSEACT
GOTO @宝石系统
BREAK
[@ItemIntoBox1]
#IF
Equal <$BOXITEM[0].NAME>
#ACT
ReturnBoxItem 1
GOTO @宝石系统
MESSAGEBOX 提示:请先放入主器灵！
BREAK
#IF
NOT Equal <$BOXITEM[1].NAME>
#ACT
MOV S$宝石名称1 <$BOXITEM[1].NAME>
ReadConfigFileItem ..\QuestDiary\宝石数据.txt <$STR(S$宝石名称1)> 基本经验 <$STR(N$器灵基本经验1)>
goto @器灵经验计算
#IF
CHECKCUSTOMITEMPROGRESSBAR boxitem1 0
#ACT
GetCustomItemProgressbarValue boxitem1 0 1 <$STR(N$当前吞噬经验1)>
goto @器灵经验计算
[@ItemIntoBox2]
#IF
Equal <$BOXITEM[0].NAME>
#ACT
ReturnBoxItem 1
GOTO @宝石系统
MESSAGEBOX 提示:请先放入主器灵！
BREAK
#IF
NOT Equal <$BOXITEM[2].NAME>
#ACT
MOV S$宝石名称2 <$BOXITEM[2].NAME>
ReadConfigFileItem ..\QuestDiary\宝石数据.txt <$STR(S$宝石名称2)> 基本经验 <$STR(N$器灵基本经验2)>
goto @器灵经验计算
#IF
CHECKCUSTOMITEMPROGRESSBAR boxitem2 0
#ACT
GetCustomItemProgressbarValue boxitem2 0 1 <$STR(N$当前吞噬经验2)>
goto @器灵经验计算
[@ItemIntoBox3]
#IF
Equal <$BOXITEM[0].NAME>
#ACT
ReturnBoxItem 1
GOTO @宝石系统
MESSAGEBOX 提示:请先放入主器灵！
BREAK
#IF
NOT Equal <$BOXITEM[3].NAME>
#ACT
MOV S$宝石名称3 <$BOXITEM[3].NAME>
ReadConfigFileItem ..\QuestDiary\宝石数据.txt <$STR(S$宝石名称3)> 基本经验 <$STR(N$器灵基本经验3)>
goto @器灵经验计算
#IF
CHECKCUSTOMITEMPROGRESSBAR boxitem3 0
#ACT
GetCustomItemProgressbarValue boxitem3 0 1 <$STR(N$当前吞噬经验3)>
goto @器灵经验计算
[@ItemIntoBox4]
#IF
Equal <$BOXITEM[0].NAME>
#ACT
ReturnBoxItem 4
GOTO @宝石系统
MESSAGEBOX 提示:请先放入主器灵！
BREAK
#IF
NOT Equal <$BOXITEM[4].NAME>
#ACT
MOV S$宝石名称4 <$BOXITEM[4].NAME>
ReadConfigFileItem ..\QuestDiary\宝石数据.txt <$STR(S$宝石名称4)> 基本经验 <$STR(N$器灵基本经验4)>
goto @器灵经验计算
#IF
CHECKCUSTOMITEMPROGRESSBAR boxitem4 0
#ACT
GetCustomItemProgressbarValue boxitem4 0 1 <$STR(N$当前吞噬经验4)>
goto @器灵经验计算
[@ItemIntoBox5]
#IF
Equal <$BOXITEM[0].NAME>
#ACT
ReturnBoxItem 5
GOTO @宝石系统
MESSAGEBOX 提示:请先放入主器灵！
BREAK
#IF
NOT Equal <$BOXITEM[5].NAME>
#ACT
MOV S$宝石名称5 <$BOXITEM[5].NAME>
ReadConfigFileItem ..\QuestDiary\宝石数据.txt <$STR(S$宝石名称5)> 基本经验 <$STR(N$器灵基本经验5)>
goto @器灵经验计算
#IF
CHECKCUSTOMITEMPROGRESSBAR boxitem5 0
#ACT
GetCustomItemProgressbarValue boxitem5 0 1 <$STR(N$当前吞噬经验5)>
goto @器灵经验计算
[@ItemIntoBox6]
#IF
Equal <$BOXITEM[0].NAME>
#ACT
ReturnBoxItem 6
GOTO @宝石系统
MESSAGEBOX 提示:请先放入主器灵！
BREAK
#IF
NOT Equal <$BOXITEM[6].NAME>
#ACT
MOV S$宝石名称6 <$BOXITEM[6].NAME>
ReadConfigFileItem ..\QuestDiary\宝石数据.txt <$STR(S$宝石名称6)> 基本经验 <$STR(N$器灵基本经验6)>
goto @器灵经验计算
#IF
CHECKCUSTOMITEMPROGRESSBAR boxitem6 0
#ACT
GetCustomItemProgressbarValue boxitem6 0 1 <$STR(N$当前吞噬经验6)>
goto @器灵经验计算
[@ItemOutBox0]
#IF
#ACT
;MOV S$宝石名称
;MOV N$距离升级经验 0
GOTO @main
[@ItemOutBox1]
#ACT
MOV N$器灵基本经验1 0
MOV N$当前吞噬经验1 0
goto @器灵经验计算
[@ItemOutBox2]
#ACT
MOV N$器灵基本经验2 0
MOV N$当前吞噬经验2 0
goto @器灵经验计算
[@ItemOutBox3]
#ACT
MOV N$器灵基本经验3 0
MOV N$当前吞噬经验3 0
goto @器灵经验计算
[@ItemOutBox4]
#ACT
MOV N$器灵基本经验4 0
MOV N$当前吞噬经验4 0
goto @器灵经验计算
[@ItemOutBox5]
#ACT
MOV N$器灵基本经验5 0
MOV N$当前吞噬经验5 0
goto @器灵经验计算
[@ItemOutBox6]
#ACT
MOV N$器灵基本经验6 0
MOV N$当前吞噬经验6 0
goto @器灵经验计算
[@器灵经验计算]
#IF
#ACT
MOV N$器灵经验 0
INC N$器灵经验 <$STR(N$器灵基本经验1)>
INC N$器灵经验 <$STR(N$器灵基本经验2)>
INC N$器灵经验 <$STR(N$器灵基本经验3)>
INC N$器灵经验 <$STR(N$器灵基本经验4)>
INC N$器灵经验 <$STR(N$器灵基本经验5)>
INC N$器灵经验 <$STR(N$器灵基本经验6)>
INC N$器灵经验 <$STR(N$当前吞噬经验1)>
INC N$器灵经验 <$STR(N$当前吞噬经验2)>
INC N$器灵经验 <$STR(N$当前吞噬经验3)>
INC N$器灵经验 <$STR(N$当前吞噬经验4)>
INC N$器灵经验 <$STR(N$当前吞噬经验5)>
INC N$器灵经验 <$STR(N$当前吞噬经验6)>
GOTO @宝石系统
[@灵魂结晶]
#IF
#SAY
<>\
<> <您可在我这里用灵魂晶石换取器灵,/SCOLOR=250><器灵可以提升宝石等级/SCOLOR=154>:\<>\
<> <器灵(小)/SCOLOR=253> = <灵魂晶石*10 可以为宝石提供10点器灵经验/SCOLOR=254> <点击合成/@HC1>\
<> <器灵(大)/SCOLOR=253> = <灵魂晶石*50 可以为宝石提供50点器灵经验/SCOLOR=254> <点击合成/@HC2>\
<> <器灵(混沌)/SCOLOR=253> = <灵魂晶石*100 可以为宝石提供100点器灵经验/SCOLOR=254> <点击合成/@HC3>\
;<> <血 羽/SCOLOR=253> = <上品蛮羽*10 + 5W金币/SCOLOR=254> <点击合成/@MH4>\
;<> <剑之源晶/SCOLOR=253> = <剑之碎片*10 + 10W金币> <点击合成/@H7>\
;<> <完美书页/SCOLOR=253> = <残缺书页*10 + 1W金币> <点击合成/@H8>\
<> <返回/@main>\
[@HC1]
#if
checkitem 灵魂晶石 10
#act
take 灵魂晶石 10
give 器灵(小) 1
sendmsg 6 换取器灵(小)成功...
#elseact
messagebox 材料不足！
break
[@HC2]
#if
checkitem 灵魂晶石 50
#act
take 灵魂晶石 50
give 器灵(大) 1
sendmsg 6 换取器灵(大)成功...
#elseact
messagebox 材料不足！
break
[@HC3]
#if
checkitem 灵魂晶石 100
#act
take 灵魂晶石 100
give 器灵(混沌) 1
sendmsg 6 换取器灵(混沌)成功...
#elseact
messagebox 材料不足！
break
[@MH4]
#if
checkitem 上品蛮羽 10
checkgold 50000
#act
take 金币 50000
take 上品蛮羽 10
give 血羽 1
sendmsg 6 换取成功...
#elseact
messagebox 材料不足！
break
|
[复制链接]
赣公网安备36050202000600号