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

勇闯天涯

原贴：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