安安传奇宠物npc光吃蛋不干活脚本修改

jw7325

原贴：https://www.iopq.net/thread-17110785-1-1.html


把代码替换原来代码段

[@吞噬怪]
#if
CheckCustomItemProgressbarValue 29 1 1 = <$STR(N334)>
#ACT
goto @经验增长
break

#IF
checkitem 宠物 1
#ACT
TAKE 宠物 1
MOV N$经验值 300
goto @经验增长
break

#IF
checkitem 珍品一重 1
#ACT
TAKE 珍品一重 1
MOV N$经验值 400
goto @经验增长
break

#IF
checkitem 珍品二重 1
#ACT
TAKE 珍品二重 1
MOV N$经验值 500
goto @经验增长
break

#IF
checkitem 珍品三重 1
#ACT
TAKE 珍品三重 1
MOV N$经验值 600
GAMEGOLD + 1
SENDMSG 5 您的宠物异常兴奋，竟然送出1元元宝。
goto @经验增长
break

#IF
checkitem 绝品一重 1
#ACT
TAKE 绝品一重 1
MOV N$经验值 700
GAMEGOLD + 2
SENDMSG 5 您的宠物异常兴奋，竟然送出2元元宝。
goto @经验增长
break

#IF
checkitem 绝品二重 1
#ACT
TAKE 绝品二重 1
MOV N$经验值 800
GAMEGOLD + 3
SENDMSG 5 您的宠物异常兴奋，竟然送出3元元宝。
goto @经验增长
break

#IF
checkitem 绝品三重 1
#ACT
TAKE 绝品三重 1
MOV N$经验值 900
GAMEGOLD + 4
SENDMSG 5 您的宠物异常兴奋，竟然送出4元元宝。
goto @经验增长
break

#IF
checkitem 极品一重 1
#ACT
TAKE 极品一重 1
GAMEGOLD + 5
SENDMSG 5 您的宠物异常兴奋，竟然送出5元元宝。
MOV N$经验值 2000
goto @经验增长
break

#IF
checkitem 极品二重 1
#ACT
TAKE 极品二重 1
GAMEGOLD + 10
SENDMSG 5 您的宠物异常兴奋，竟然送出10元元宝。
MOV N$经验值3500
goto @经验增长
break
#IF
checkitem 极品三重 1
#ACT
TAKE 极品三重 1
GAMEGOLD + 13
SENDMSG 5 您的宠物异常兴奋，竟然送出13元元宝。
MOV N$经验值6800
goto @经验增长
break

#IF
checkitem 至尊绝品 1
#ACT
TAKE 至尊绝品 1
GAMEGOLD + 20
SENDMSG 5 您的宠物异常兴奋，竟然送出20元元宝。
MOV N$经验值 10000
goto @经验增长
break

#or
checkitem 宠物 1
checkitem 珍品一重 1
checkitem 珍品二重 1
checkitem 珍品三重 1
checkitem 绝品一重 1
checkitem 绝品二重 1
checkitem 绝品三重 1
checkitem 极品一重 1
checkitem 极品二重 1
checkitem 极品二重 1
checkitem 至尊绝品 1
#ACT
goto @吞噬怪
#ELSEACT
SENDMSG 5 您的背包内没有相关宠物。
break

[@经验增长]
#if
CheckCustomItemProgressbarValue 29 0 0 = <$STR(N333)>
CheckCustomItemProgressbarValue 29 0 1 = <$STR(N333)>
#act
SENDMSG 5 主人我终于吃饱了。。。。

break


#if
CheckCustomItemProgressbarValue 29 1 1 = <$STR(N334)>
CheckCustomItemProgressbarValue 29 0 1 < <$STR(N333)>
#act
SETCUSTOMITEMPROGRESSBARVALUE 29 0 1 + 1
SetCustomItemValue 29 9 + 6
SETCUSTOMITEMPROGRESSBARVALUE 29 1 1 = 0
SETCUSTOMITEMPROGRESSBARVALUE 29 1 0 + 200
GetCustomItemProgressbarValue 29 0 1 <$STR(N335)>
SENDMSG 5 你的宠物【{<$G_FASHIONCHARM>|250:0:1}】等级提升至{<$STR(N335)>|250:0:1}.【{成长点数+6|250:0:1}】
UpdateItem 29
GOTO @领悟宠物技能
goto @吞噬怪
break

#if
CheckCustomItemProgressbarValue 29 0 0 > 0
#ACT
SETCUSTOMITEMPROGRESSBARVALUE 29 1 1 + <$STR(N$经验值)>
GetCustomItemProgressbarValue 29 0 0 <$STR(N333)>
GetCustomItemProgressbarValue 29 1 0 <$STR(N334)>
GetCustomItemProgressbarValue 29 1 1 <$STR(S$宠物当前经验)>
SENDMSG 5 宠物经验:<$STR(S$宠物当前经验)>/<$STR(N334)>
goto @吞噬怪
break

jw7325

目录看图

ErrorJ

感谢大佬分享

anzak

感谢大佬分享

ztao1228

谢谢分享！！！

神经病灬小峰

多谢楼主分享

ztao1228

安安第4季佣兵版 卡牌收集脚本也有问题  第一次收集物品如果是第二页的上缴后过一会回来看 第一页的物品却激活了 第二页的又得从新收集不过以后就好了，只是第一次会出现这种情况。谁能解决一下？

anzak

感谢大佬分享

xyz7220633

安安传奇宠物npc光吃蛋不干活脚本修改

quansx

厉害了，感谢分享！

skycancan

jw7325

ztao1228 发表于 2022-3-31 16:23
安安第4季佣兵版 卡牌收集脚本也有问题  第一次收集物品如果是第二页的上缴后过一会回来看 第一页的物品却 ...

我的没问题啊！！！

[@main]
#IF
#ACT
GetStringPos ..\QuestDiary\数据文件\卡牌\卡牌套装.txt end:end
DIV N$藏宝总页 <$Str(N0)> 9


#IF
EQUAL U41 0
#ACT
MOV N$藏宝一号位标识 410
MOV N$藏宝二号位标识 411
MOV N$藏宝三号位标识 412
MOV N$藏宝四号位标识 413
MOV N$藏宝五号位标识 414
MOV N$藏宝六号位标识 415
MOV N$藏宝七号位标识 416
MOV N$藏宝八号位标识 417
MOV N$藏宝九号位标识 418
MOV N$当前页 1
MOV U41 1
MOV N$藏宝行号 0
MOV N$图片 1150
goto @图片数据
goto @获取数据
goto @界面
break

#OR
SMALL U41 <$STR(N$藏宝总页)>
EQUAL U41 <$STR(N$藏宝总页)>
#act
MOV N$当前页 <$STR(U41)>
MOV N$藏宝行号 <$STR(U41)>
MUL N$藏宝行号 9
DEC N$藏宝行号 9
MOV N$标识基础 10
MUL N$标识基础 <$STR(U41)>
MOV N$藏宝一号位标识 410
INC N$藏宝一号位标识 <$STR(N$标识基础)>
MOV N$藏宝二号位标识 411
INC N$藏宝二号位标识 <$STR(N$标识基础)>
MOV N$藏宝三号位标识 412
INC N$藏宝三号位标识 <$STR(N$标识基础)>
MOV N$藏宝四号位标识 413
INC N$藏宝四号位标识 <$STR(N$标识基础)>
MOV N$藏宝五号位标识 414
INC N$藏宝五号位标识 <$STR(N$标识基础)>
MOV N$藏宝六号位标识 415
INC N$藏宝六号位标识 <$STR(N$标识基础)>
MOV N$藏宝七号位标识 416
INC N$藏宝七号位标识 <$STR(N$标识基础)>
MOV N$藏宝八号位标识 417
INC N$藏宝八号位标识 <$STR(N$标识基础)>
MOV N$藏宝九号位标识 418
INC N$藏宝九号位标识 <$STR(N$标识基础)>
goto @图片数据
goto @获取数据
goto @界面
break

#IF
#ACT
MOV U41 0
messagebox 页码错误，已归0，请重新打开NPC
break









[@界面]
#IF
#ACT
OPENMERCHANTBIGDLG 39 83 0 4 0 0 1 444 27 0
GetDBItemFieldValue <$Str(S$藏宝一号位)> idx <$STR(N$藏宝一号位)>
GetDBItemFieldValue <$Str(S$藏宝二号位)> idx <$STR(N$藏宝二号位)>
GetDBItemFieldValue <$Str(S$藏宝三号位)> idx <$STR(N$藏宝三号位)>
GetDBItemFieldValue <$Str(S$藏宝四号位)> idx <$STR(N$藏宝四号位)>
GetDBItemFieldValue <$Str(S$藏宝五号位)> idx <$STR(N$藏宝五号位)>
GetDBItemFieldValue <$Str(S$藏宝六号位)> idx <$STR(N$藏宝六号位)>
GetDBItemFieldValue <$Str(S$藏宝七号位)> idx <$STR(N$藏宝七号位)>
GetDBItemFieldValue <$Str(S$藏宝八号位)> idx <$STR(N$藏宝八号位)>
GetDBItemFieldValue <$Str(S$藏宝九号位)> idx <$STR(N$藏宝九号位)>
goto @是否获得
#say
<Img:<$STR(N$图片)>:39:43:88|250#每次完成一件装备收集，可获得2元宝+2属性点！^点击图片进行跳转/@@InPutInteger79(请输入1-58的数字:)>\ \ \
　　　　　　　　　　　　　　　　　　　　　　              　    收集装备\
　　　　　　　　　　　　　　　　　　　　　　              　    点亮卡牌\
　　　　　　　　　　　　　　　　　　　　　　              　    当前第<$STR(N$当前页)>页\
<ItemShow:<$Str(N$藏宝一号位)>:0:383:0:1/@激活一号位><$STR(S$藏宝一号位星)>\ \ \
<ItemShow:<$Str(N$藏宝二号位)>:0:383:0:1/@激活二号位><$STR(S$藏宝二号位星)>\ \ \
<ItemShow:<$Str(N$藏宝三号位)>:0:383:0:1/@激活三号位><$STR(S$藏宝三号位星)>\ \ \
<ItemShow:<$Str(N$藏宝四号位)>:0:383:0:1/@激活四号位><$STR(S$藏宝四号位星)>\ \ \
<ItemShow:<$Str(N$藏宝五号位)>:0:383:0:1/@激活五号位><$STR(S$藏宝五号位星)>\ \ \
<ItemShow:<$Str(N$藏宝六号位)>:0:383:0:1/@激活六号位><$STR(S$藏宝六号位星)>\ \ \
<ItemShow:<$Str(N$藏宝七号位)>:0:383:0:1/@激活七号位><$STR(S$藏宝七号位星)>\ \ \
<ItemShow:<$Str(N$藏宝八号位)>:0:383:0:1/@激活八号位><$STR(S$藏宝八号位星)>\ \ \
<ItemShow:<$Str(N$藏宝九号位)>:0:383:0:1/@激活九号位><$STR(S$藏宝九号位星)>\ \ \
　　　　　　　　　　　　　　　　　　　　　　                 　 <text:上一页:12:2{FCOLOR=251}>\ \
　　　　　　　　　　　　　　　　　　　　　　                 　 <text:下一页:12:-5{FCOLOR=251}>\

<ImgEx:49:51:52:53:375:-58/@上一页>\
<ImgEx:49:51:52:53:375:-49/@下一页>


[@InPutInteger79]
#IF
LARGE N79 0
SMALL N79 59
#act
MOV U41 <$Str(N79)>
GOTO @main
#elseact
messagebox 请输入1-59的数字！
break







[@激活一号位]
#if
check [<$Str(N$藏宝一号位标识)>] 1
#act
messagebox 该位置已经被激活了！
break

#If
checkitem <$Str(S$藏宝一号位)> 1
#act
take <$Str(S$藏宝一号位)> 1
BONUSPOINT + 2
GAMEGOLD + 2
SendMsg 6 恭喜您完成收集，获得属性点+2，元宝+2
messagebox <恭喜您！！/FCOLOR=250>\\激活成功，系统已从背包中回收【<$Str(S$藏宝一号位)>】一件！
SET [<$Str(N$藏宝一号位标识)>] 1
goto @图片数据
goto @界面
#elseact
goto @图片数据
goto @界面
messagebox <很遗憾！！/FCOLOR=249>\\激活失败，您的背包中没有【<$Str(S$藏宝一号位)>】！
break

[@激活二号位]
#if
check [<$Str(N$藏宝二号位标识)>] 1
#act
messagebox 该位置已经被激活了！
break

#If
checkitem <$Str(S$藏宝二号位)> 1
#act
take <$Str(S$藏宝二号位)> 1
BONUSPOINT + 2
GAMEGOLD + 2
SendMsg 6 恭喜您完成收集，获得属性点+2，元宝+2
messagebox <恭喜您！！/FCOLOR=250>\\激活成功，系统已从背包中回收【<$Str(S$藏宝二号位)>】一件！
SET [<$Str(N$藏宝二号位标识)>] 1
goto @图片数据
goto @界面
#elseact
goto @图片数据
goto @界面
messagebox <很遗憾！！/FCOLOR=249>\\激活失败，您的背包中没有【<$Str(S$藏宝二号位)>】！
break

[@激活三号位]
#if
check [<$Str(N$藏宝三号位标识)>] 1
#act
messagebox 该位置已经被激活了！
break

#If
checkitem <$Str(S$藏宝三号位)> 1
#act
take <$Str(S$藏宝三号位)> 1
BONUSPOINT + 2
GAMEGOLD + 2
SendMsg 6 恭喜您完成收集，获得属性点+2，元宝+2
messagebox <恭喜您！！/FCOLOR=250>\\激活成功，系统已从背包中回收【<$Str(S$藏宝三号位)>】一件！
SET [<$Str(N$藏宝三号位标识)>] 1
goto @图片数据
goto @界面
#elseact
goto @图片数据
goto @界面
messagebox <很遗憾！！/FCOLOR=249>\\激活失败，您的背包中没有【<$Str(S$藏宝三号位)>】！
break

[@激活四号位]
#if
check [<$Str(N$藏宝四号位标识)>] 1
#act
messagebox 该位置已经被激活了！
break

#If
checkitem <$Str(S$藏宝四号位)> 1
#act
take <$Str(S$藏宝四号位)> 1
BONUSPOINT + 2
GAMEGOLD + 2
SendMsg 6 恭喜您完成收集，获得属性点+2，元宝+2
messagebox <恭喜您！！/FCOLOR=250>\\激活成功，系统已从背包中回收【<$Str(S$藏宝四号位)>】一件！
SET [<$Str(N$藏宝四号位标识)>] 1
goto @图片数据
goto @界面
#elseact
goto @图片数据
goto @界面
messagebox <很遗憾！！/FCOLOR=249>\\激活失败，您的背包中没有【<$Str(S$藏宝四号位)>】！
break

[@激活五号位]
#if
check [<$Str(N$藏宝五号位标识)>] 1
#act
messagebox 该位置已经被激活了！
break

#If
checkitem <$Str(S$藏宝五号位)> 1
#act
take <$Str(S$藏宝五号位)> 1
BONUSPOINT + 2
GAMEGOLD + 2
SendMsg 6 恭喜您完成收集，获得属性点+2，元宝+2
messagebox <恭喜您！！/FCOLOR=250>\\激活成功，系统已从背包中回收【<$Str(S$藏宝五号位)>】一件！
SET [<$Str(N$藏宝五号位标识)>] 1
goto @图片数据
goto @界面
#elseact
goto @图片数据
goto @界面
messagebox <很遗憾！！/FCOLOR=249>\\激活失败，您的背包中没有【<$Str(S$藏宝五号位)>】！
break

[@激活六号位]
#if
check [<$Str(N$藏宝六号位标识)>] 1
#act
messagebox 该位置已经被激活了！
break

#If
checkitem <$Str(S$藏宝六号位)> 1
#act
take <$Str(S$藏宝六号位)> 1
BONUSPOINT + 2
GAMEGOLD + 2
SendMsg 6 恭喜您完成收集，获得属性点+2，元宝+2
messagebox <恭喜您！！/FCOLOR=250>\\激活成功，系统已从背包中回收【<$Str(S$藏宝六号位)>】一件！
SET [<$Str(N$藏宝六号位标识)>] 1
goto @图片数据
goto @界面
#elseact
goto @图片数据
goto @界面
messagebox <很遗憾！！/FCOLOR=249>\\激活失败，您的背包中没有【<$Str(S$藏宝六号位)>】！
break

[@激活七号位]
#if
check [<$Str(N$藏宝七号位标识)>] 1
#act
messagebox 该位置已经被激活了！
break

#If
checkitem <$Str(S$藏宝七号位)> 1
#act
take <$Str(S$藏宝七号位)> 1
BONUSPOINT + 2
GAMEGOLD + 2
SendMsg 6 恭喜您完成收集，获得属性点+2，元宝+2
messagebox <恭喜您！！/FCOLOR=250>\\激活成功，系统已从背包中回收【<$Str(S$藏宝七号位)>】一件！
SET [<$Str(N$藏宝七号位标识)>] 1
goto @图片数据
goto @界面
#elseact
goto @图片数据
goto @界面
messagebox <很遗憾！！/FCOLOR=249>\\激活失败，您的背包中没有【<$Str(S$藏宝七号位)>】！
break

[@激活八号位]
#if
check [<$Str(N$藏宝八号位标识)>] 1
#act
messagebox 该位置已经被激活了！
break

#If
checkitem <$Str(S$藏宝八号位)> 1
#act
take <$Str(S$藏宝八号位)> 1
BONUSPOINT + 2
GAMEGOLD + 2
SendMsg 6 恭喜您完成收集，获得属性点+2，元宝+2
messagebox <恭喜您！！/FCOLOR=250>\\激活成功，系统已从背包中回收【<$Str(S$藏宝八号位)>】一件！
SET [<$Str(N$藏宝八号位标识)>] 1
goto @图片数据
goto @界面
#elseact
goto @图片数据
goto @界面
messagebox <很遗憾！！/FCOLOR=249>\\激活失败，您的背包中没有【<$Str(S$藏宝八号位)>】！
break

[@激活九号位]
#if
check [<$Str(N$藏宝九号位标识)>] 1
#act
messagebox 该位置已经被激活了！
break

#If
checkitem <$Str(S$藏宝九号位)> 1
#act
take <$Str(S$藏宝九号位)> 1
BONUSPOINT + 2
GAMEGOLD + 2
SendMsg 6 恭喜您完成收集，获得属性点+2，元宝+2
messagebox <恭喜您！！/FCOLOR=250>\\激活成功，系统已从背包中回收【<$Str(S$藏宝九号位)>】一件！
SET [<$Str(N$藏宝九号位标识)>] 1
goto @图片数据
goto @界面
#elseact
goto @图片数据
goto @界面
messagebox <很遗憾！！/FCOLOR=249>\\激活失败，您的背包中没有【<$Str(S$藏宝九号位)>】！
break



[@是否获得]
#if
check [<$Str(N$藏宝一号位标识)>] 1
#act
MOV S$藏宝一号位星 <Img:42:49:384:10>
#elseact
MOV S$藏宝一号位星 <Img:41:49:384:10>
#if
check [<$Str(N$藏宝二号位标识)>] 1
#act
MOV S$藏宝二号位星 <Img:42:49:384:10>
#elseact
MOV S$藏宝二号位星 <Img:41:49:384:10>
#if
check [<$Str(N$藏宝三号位标识)>] 1
#act
MOV S$藏宝三号位星 <Img:42:49:384:10>
#elseact
MOV S$藏宝三号位星 <Img:41:49:384:10>
#if
check [<$Str(N$藏宝四号位标识)>] 1
#act
MOV S$藏宝四号位星 <Img:42:49:384:10>
#elseact
MOV S$藏宝四号位星 <Img:41:49:384:10>
#if
check [<$Str(N$藏宝五号位标识)>] 1
#act
MOV S$藏宝五号位星 <Img:42:49:384:10>
#elseact
MOV S$藏宝五号位星 <Img:41:49:384:10>
#if
check [<$Str(N$藏宝六号位标识)>] 1
#act
MOV S$藏宝六号位星 <Img:42:49:384:10>
#elseact
MOV S$藏宝六号位星 <Img:41:49:384:10>
#if
check [<$Str(N$藏宝七号位标识)>] 1
#act
MOV S$藏宝七号位星 <Img:42:49:384:10>
#elseact
MOV S$藏宝七号位星 <Img:41:49:384:10>
#if
check [<$Str(N$藏宝八号位标识)>] 1
#act
MOV S$藏宝八号位星 <Img:42:49:384:10>
#elseact
MOV S$藏宝八号位星 <Img:41:49:384:10>
#if
check [<$Str(N$藏宝九号位标识)>] 1
#act
MOV S$藏宝九号位星 <Img:42:49:384:10>
#elseact
MOV S$藏宝九号位星 <Img:41:49:384:10>
break

[@上一页]
#if
large N$当前页 1
#act
DEC N$藏宝一号位标识 10
DEC N$藏宝二号位标识 10
DEC N$藏宝三号位标识 10
DEC N$藏宝四号位标识 10
DEC N$藏宝五号位标识 10
DEC N$藏宝六号位标识 10
DEC N$藏宝七号位标识 10
DEC N$藏宝八号位标识 10
DEC N$藏宝九号位标识 10
DEC N$当前页 1
DEC U41 1
DEC N$藏宝行号 17
goto @图片数据
goto @获取数据
goto @界面
#elseact
messagebox 当前已经是第一页了！
break

[@下一页]
#if
SMALL N$当前页 <$Str(N$藏宝总页)>
#act
inc N$藏宝一号位标识 10
inc N$藏宝二号位标识 10
inc N$藏宝三号位标识 10
inc N$藏宝四号位标识 10
inc N$藏宝五号位标识 10
inc N$藏宝六号位标识 10
inc N$藏宝七号位标识 10
inc N$藏宝八号位标识 10
inc N$藏宝九号位标识 10
inc N$当前页 1
INC U41 1
inc N$藏宝行号 1
goto @图片数据
goto @获取数据
goto @界面
#elseact
messagebox 当前已经是最后一页了！
break


[@获取数据]
#if
#act
GetListString ..\QuestDiary\数据文件\卡牌\卡牌套装.txt <$Str(N$藏宝行号)> S$无用 S$藏宝一号位
inc N$藏宝行号 1
GetListString ..\QuestDiary\数据文件\卡牌\卡牌套装.txt <$Str(N$藏宝行号)> S$无用 S$藏宝二号位
inc N$藏宝行号 1
GetListString ..\QuestDiary\数据文件\卡牌\卡牌套装.txt <$Str(N$藏宝行号)> S$无用 S$藏宝三号位
inc N$藏宝行号 1
GetListString ..\QuestDiary\数据文件\卡牌\卡牌套装.txt <$Str(N$藏宝行号)> S$无用 S$藏宝四号位
inc N$藏宝行号 1
GetListString ..\QuestDiary\数据文件\卡牌\卡牌套装.txt <$Str(N$藏宝行号)> S$无用 S$藏宝五号位
inc N$藏宝行号 1
GetListString ..\QuestDiary\数据文件\卡牌\卡牌套装.txt <$Str(N$藏宝行号)> S$无用 S$藏宝六号位
inc N$藏宝行号 1
GetListString ..\QuestDiary\数据文件\卡牌\卡牌套装.txt <$Str(N$藏宝行号)> S$无用 S$藏宝七号位
inc N$藏宝行号 1
GetListString ..\QuestDiary\数据文件\卡牌\卡牌套装.txt <$Str(N$藏宝行号)> S$无用 S$藏宝八号位
inc N$藏宝行号 1
GetListString ..\QuestDiary\数据文件\卡牌\卡牌套装.txt <$Str(N$藏宝行号)> S$无用 S$藏宝九号位
break

[@图片数据]
#if
check [<$Str(N$藏宝一号位标识)>] 1
check [<$Str(N$藏宝二号位标识)>] 1
check [<$Str(N$藏宝三号位标识)>] 1
check [<$Str(N$藏宝四号位标识)>] 1
check [<$Str(N$藏宝五号位标识)>] 1
check [<$Str(N$藏宝六号位标识)>] 1
check [<$Str(N$藏宝七号位标识)>] 1
check [<$Str(N$藏宝八号位标识)>] 1
check [<$Str(N$藏宝九号位标识)>] 1
#act
GetListString ..\QuestDiary\数据文件\卡牌\集齐.txt <$Str(N$当前页)> N$图片
#elseact
GetListString ..\QuestDiary\数据文件\卡牌\未齐.txt <$Str(N$当前页)> N$图片
break

0313e516

传个替换文件。可能要好一点吧

sulliven

jw7325 发表于 2022-4-1 08:45
我的没问题啊！！！

[@main]

成长型武器貌似不能成长？这个脚本在哪里修改？

q7522478

感谢楼主分享