立即注册 找回密码

搜索

[传奇脚本功能]宝石升级传奇器灵和吞噬经验(Gee引擎)

 火... [复制链接]
发表于 3 天前 | 显示全部楼层 |阅读模式
[传奇脚本功能]宝石升级传奇器灵和吞噬经验(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




上一篇:QFunction-0.txt文件添加“定时回血”BUFF脚本(Gee引擎)
下一篇:[传奇脚本功能]传奇添加鸿蒙秘境NPC对话框实例脚本(Gom引擎)
回复

使用道具 举报

发表于 3 天前 | 显示全部楼层
下次在来看脚本
回复

使用道具 举报

发表于 3 天前 | 显示全部楼层
下次在来看脚本
回复

使用道具 举报

发表于 3 天前 | 显示全部楼层
谢谢楼主!
回复

使用道具 举报

发表于 3 天前 | 显示全部楼层
下次在来看脚本
回复

使用道具 举报

发表于 3 天前 | 显示全部楼层
很专业的很全面的gm论坛
回复

使用道具 举报

发表于 前天 12:00 | 显示全部楼层
喜欢这里的东西,方便又好用!
回复

使用道具 举报

发表于 前天 20:00 | 显示全部楼层
谢谢.脚本收到.很好用
回复

使用道具 举报

发表于 前天 20:01 | 显示全部楼层
很专业的很全面的gm论坛
回复

使用道具 举报

发表于 前天 20:15 | 显示全部楼层
谢谢楼主!
回复

使用道具 举报

懒得打字嘛,点击右侧快捷回复 【64gm论坛,传奇版本库】
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

客服QQ:909928377

在线会员自助办理
传奇手游版本库
传奇世界版本库

顶部

QQ|传奇开区一条龙|私服服务端|传奇单机架设教程|手机版|64gm论坛 ( 鄂ICP备2021011479号-2 )|网站地图

GMT+8, 2024-9-28 06:19 , Processed in 0.180141 second(s), 47 queries .

Powered by 64gm X3.5 © 2009-2023 64gm论坛 Inc &

免责声明:本站所有资源均来至网络,仅供学习交流,严禁用于商业用途,请于24小时内删除!开区请获得授权.