GEE引擎宝石系统脚本，GEE传奇服务端升级器灵和吞噬经验脚本

(@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