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

趣游论坛 · 发表于 2019-9-18 08:48:32

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

黑色的记忆 · 发表于 2019-9-18 08:48:33

沙发怎么能少了我？！

二O七班 · 发表于 2019-9-18 09:41:25

介是神马？！！

发表于 2019-9-18 09:46:30

为毛老子总也抢不到沙发？！！

困了累了 · 发表于 2019-9-18 10:13:45

路过帮顶嘿嘿

公益传奇 · 发表于 2019-9-18 10:14:41

向楼主学习

长情多浪漫 · 发表于 2019-9-18 10:19:48

为毛老子总也抢不到沙发？！！

彼此相爱 · 发表于 2019-9-18 11:43:38

路过帮顶嘿嘿

小苹果 · 发表于 2019-9-18 14:33:20

又学到一个脚本知识

黑白背影 · 发表于 2019-9-18 15:44:04

支持，赞一个

`设为首页收藏本站`

[传奇一键替换包]

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

映月传奇沉默神器三职业传奇版本-极寒宝座-

明月沉默复古单职业传奇版本带假人系统-蛮

斗破苍穹单职业传奇服务端带假人系统-无双

鬼书攻速超变单职业传奇版本-魔灵废墟-雪域

大闹西游剧情复古单职业-真龙秘境-地狱之门

上古问天无限刀速轻变传奇版本带假人功能-

华夏沉默专属单职业传奇版本带假人-奇遇地

灌水之王

活跃会员

突出贡献

优秀版主

荣誉管理

论坛元老