欢迎登录八尾狐交易平台!
帮助中心

八尾狐

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

  • 时间:2019-09-18 19:25 编辑:八尾狐 来源:八尾狐 阅读:132
  • 扫一扫,手机访问
摘要:(@ArmRemoveStone)[@main]#IF#actReturnBoxItem 0ReturnBoxItem 1ReturnBoxItem 2ReturnBoxItem 3ReturnBoxItem 4ReturnBoxItem 5ReturnBoxItem 6MOV S$宝石名称 MOV N$距离升级经验 0MOV N$器灵经验 0MOV N$器灵基本经验1 0MOV N$器

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

  • 全部评论(0)
最新发布的资讯信息
【游戏相关|游戏播报】娱美德澄清:“盛趣游戏”及“江西国民传奇”散布不实信息(2019-10-18 23:47)
【游戏相关|游戏播报】传奇IP已经决定解除与椰子之间的一切合同关系(2019-10-18 23:45)
【技术类|开服教程】关于传奇3.0的沙巴克设置问题解决(2019-10-02 15:45)
【技术类|开服教程】传奇3修改怪物之后的各种效果介绍和教程(2019-10-02 15:42)
【游戏相关|游戏播报】仅需100元,开传奇合法授权!(2019-10-01 00:26)
【计算机|】计算机防御系统是什么(2019-09-28 12:17)
【技术类|网站技术】免费传奇虚拟主机空间申请(2019-09-25 18:42)
【技术类|开服教程】论开传奇游戏修改Boot.ini文件的重要性!(2019-09-21 10:41)
【技术类|网站技术】传奇网站被劫持怎么办?如何设置网站https防劫持 申请免费https和配置教程(2019-09-20 10:02)
【脚本大全|传奇脚本】传奇常见BUFF脚本适用于GOM引擎(2019-09-19 23:16)
联系我们

电话:15066888405

邮箱:kefu@baweihu.cn

时间:9:00-20:00


扫一扫关注我们