安安传奇宠物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