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

admin

                               
登录/注册后可看大图

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

\  \  \
\  \
    \
    \
   \  \
     　　      　　　 \  \
   　　  \
     　 　   \
     　 　 \
\
\
\
\
\
\



[@吞噬3]
#OR
NOT Equal S$宝石名称
NOT Equal S$宝石名称
NOT Equal S$宝石名称
NOT Equal S$宝石名称
NOT Equal S$宝石名称
NOT Equal S$宝石名称
#ACT
MESSAGEBOX 提示:升级需要一颗与当前宝石同阶宝石+吞噬经验
GOTO @宝石系统
BREAK

#IF
NOT Equal S$进阶装备 艾泽拉斯灵魂结晶
NOT Equal S$进阶装备 克苏恩的永恒诅咒
NOT Equal S$进阶装备 永恒艾露恩之星
#ACT
DelBoxItem 0
Give
GiveBoxItem 0
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

#OR
Equal S$进阶装备 艾泽拉斯灵魂结晶
Equal S$进阶装备 克苏恩的永恒诅咒
Equal S$进阶装备 永恒艾露恩之星
#ACT
DelBoxItem 0
Give
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 提示:器灵升级成功！
BREAK


[@吞噬2]
#IF
SMALL N$器灵经验
#ACT
SetCustomItemProgressbarValue boxitem0 0 1 +
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$器灵经验
#ACT
ReadConfigFileItem ..\QuestDiary\宝石数据.txt  进阶装备
GOTO @吞噬3



[@吞噬1]
#IF
Equal
#ACT
GOTO @宝石系统
MESSAGEBOX 提示:请放入主器灵！
BREAK

#IF
Equal N$器灵经验 0
#ACT
GOTO @宝石系统
MESSAGEBOX 提示:无器灵经验，无法吞噬！
BREAK

#OR
Equal  艾露恩之星
Equal  异彩艾露恩之星
Equal  克苏恩的诅咒
Equal  克苏恩的灵魂诅咒
Equal  艾泽拉斯世界之心
Equal  克苏恩的永恒诅咒
#ACT
GOTO @吞噬2
BREAK

#IF
NOT Equal
#ACT
ReadConfigFileItem ..\QuestDiary\宝石数据.txt  进阶装备


#IF
SMALL N$器灵经验
#ACT
SetCustomItemProgressbarValue boxitem0 0 1 +
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$器灵经验
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
GiveBoxItem 0
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 提示:器灵升级成功！
BREAK

#IF
NOT Equal SMALL N$器灵经验
#ACT
DelBoxItem 0
Give
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 提示:器灵升级成功！
BREAK

[@ItemIntoBox0]
#OR
Equal  泪珠红曜石Lv.MAX
Equal  血色残阳Lv.MAX
Equal  刀锋之石Lv.MAX
Equal  泪珠翠榄石Lv.MAX
Equal  无瑕玉髓Lv.MAX
Equal  翡翠之心Lv.MAX
Equal  永恒艾露恩之星
Equal  克苏恩的永恒诅咒
Equal  艾泽拉斯灵魂结晶
Equal  器灵(小)
Equal  器灵(大)
Equal  器灵(混沌)
#ACT
ReturnBoxItem 0
GOTO @宝石系统
MESSAGEBOX 提示:此宝石已为**无法吞噬！
BREAK

#IF
NOT Equal
#ACT
MOV S$宝石名称
ReadConfigFileItem ..\QuestDiary\宝石数据.txt  吞噬经验

#IF
CHECKCUSTOMITEMPROGRESSBAR boxitem0 0
#ACT
GetCustomItemProgressbarValue boxitem0 0 1
MOV N$距离升级经验
DEC 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 =
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
#ACT
ReturnBoxItem 1
GOTO @宝石系统
MESSAGEBOX 提示:请先放入主器灵！
BREAK

#IF
NOT Equal
#ACT
MOV S$宝石名称1
ReadConfigFileItem ..\QuestDiary\宝石数据.txt  基本经验
goto @器灵经验计算

#IF
CHECKCUSTOMITEMPROGRESSBAR boxitem1 0
#ACT
GetCustomItemProgressbarValue boxitem1 0 1
goto @器灵经验计算

[@ItemIntoBox2]
#IF
Equal
#ACT
ReturnBoxItem 1
GOTO @宝石系统
MESSAGEBOX 提示:请先放入主器灵！
BREAK

#IF
NOT Equal
#ACT
MOV S$宝石名称2
ReadConfigFileItem ..\QuestDiary\宝石数据.txt  基本经验
goto @器灵经验计算

#IF
CHECKCUSTOMITEMPROGRESSBAR boxitem2 0
#ACT
GetCustomItemProgressbarValue boxitem2 0 1
goto @器灵经验计算

[@ItemIntoBox3]
#IF
Equal
#ACT
ReturnBoxItem 1
GOTO @宝石系统
MESSAGEBOX 提示:请先放入主器灵！
BREAK

#IF
NOT Equal
#ACT
MOV S$宝石名称3
ReadConfigFileItem ..\QuestDiary\宝石数据.txt  基本经验
goto @器灵经验计算

#IF
CHECKCUSTOMITEMPROGRESSBAR boxitem3 0
#ACT
GetCustomItemProgressbarValue boxitem3 0 1
goto @器灵经验计算

[@ItemIntoBox4]
#IF
Equal
#ACT
ReturnBoxItem 4
GOTO @宝石系统
MESSAGEBOX 提示:请先放入主器灵！
BREAK

#IF
NOT Equal
#ACT
MOV S$宝石名称4
ReadConfigFileItem ..\QuestDiary\宝石数据.txt  基本经验
goto @器灵经验计算

#IF
CHECKCUSTOMITEMPROGRESSBAR boxitem4 0
#ACT
GetCustomItemProgressbarValue boxitem4 0 1
goto @器灵经验计算


[@ItemIntoBox5]
#IF
Equal
#ACT
ReturnBoxItem 5
GOTO @宝石系统
MESSAGEBOX 提示:请先放入主器灵！
BREAK

#IF
NOT Equal
#ACT
MOV S$宝石名称5
ReadConfigFileItem ..\QuestDiary\宝石数据.txt  基本经验
goto @器灵经验计算

#IF
CHECKCUSTOMITEMPROGRESSBAR boxitem5 0
#ACT
GetCustomItemProgressbarValue boxitem5 0 1
goto @器灵经验计算

[@ItemIntoBox6]
#IF
Equal
#ACT
ReturnBoxItem 6
GOTO @宝石系统
MESSAGEBOX 提示:请先放入主器灵！
BREAK

#IF
NOT Equal
#ACT
MOV S$宝石名称6
ReadConfigFileItem ..\QuestDiary\宝石数据.txt  基本经验
goto @器灵经验计算

#IF
CHECKCUSTOMITEMPROGRESSBAR boxitem6 0
#ACT
GetCustomItemProgressbarValue boxitem6 0 1
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$器灵经验
INC N$器灵经验
INC N$器灵经验
INC N$器灵经验
INC N$器灵经验
INC N$器灵经验
INC N$器灵经验
INC N$器灵经验
INC N$器灵经验
INC N$器灵经验
INC N$器灵经验
INC N$器灵经验
GOTO @宝石系统

[@灵魂结晶]
#IF
#SAY
\
:\\
    =         \
    =         \
    =        \
;    =           \
;    =          \
;    =           \

                                                           \


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


来源：网络
免责声明：如果侵犯了您的权益，请联系站长，我们会及时删除侵权内容，谢谢合作！