
dim @a,@b,@c,@d,@e
dim @f,@pet
let @pet,=,1
print 脚本在鱼村24店运行，空出道具5格
print 在渔村24店（东25，南15）位置上使用脚本！
print 脚本会把你身上的宠物的忠诚全加到上升0忠为止

set 等待时间,5
set 吃补血肉,0
set 丢非血肉,0
check 人物,地图,=,2009,+2
print 请在鱼村24店运行。
check 座标,=,25,15,+3
walkpos 25,15,1
print 请在渔村24店（东25，南15）位置上使用脚本！
check 道具,空位,>=,5,+3
print 空出道具栏5格。
end

label 脚本开始

set 吃补血肉,0
set 丢非血肉,0

label 料理
delay 200
check 道具,大的肉,>,0,+11
walkpos 25,15,1
delay 500
EO
delay 800
check 座标,!=,25,15,-4
W 25,15,C
say 买
wait 对话,1,超商的肉店,-7
buy 3,1
delay 500
check 道具,新鲜的鱼,>,0,+11
walkpos 25,17,1
delay 500
EO
delay 800
check 座标,!=,25,17,-4
W 25,17,C
say 买
wait 对话,1,超商的鱼店,-7
buy 2,1
delay 500
check 道具,有光泽的橡树果,>,0,+12
walkpos 25,25,1
walkpos 25,26,1
delay 500
EO
delay 800
check 座标,!=,25,26,-4
W 25,26,C
say 买
wait 对话,1,蔬菜店,-7
buy 21,1
delay 500
check 道具,卡鲁它那产海藻,>,0,XX料理中
walkpos 25,36,1
walkpos 25,37,1
delay 500
EO
delay 800
check 座标,!=,25,37,-4
W 25,37,C
say 买
wait 对话,1,地方特产品贩卖员,-7
buy 19,1
delay 500
check 道具,卡鲁它那产海藻,=,0,-13
label XX料理中
let @a,=,@[寻找道具.大的肉]
let @b,=,@[寻找道具.新鲜的鱼]
let @c,=,@[寻找道具.有光泽的橡树果]
let @d,=,@[寻找道具.卡鲁它那产海藻]

let @f,=,@a
let @f,&,|
let @f,&,@b
let @f,&,|
let @f,&,@c
let @f,&,|
let @f,&,@d

LL 0,料理,@f

delay 2000
walkpos 25,17,1
walkpos 25,15,1
check 道具,?,=,俄式宠物食物2,使用料理
useitem 大的肉
useitem 小的肉
useitem 肉
delay 1000
check 道具,肉,!=,0,-4
goto 料理

label 使用料理
cls
delay 200

if @pet,=,1,使用1
if @pet,=,2,使用2
if @pet,=,3,使用3
if @pet,=,4,使用4
if @pet,=,5,使用5
set 吃补血肉,1
set 丢非血肉,1
end

label 使用1
check 宠物,1,=,空位,使用2
useitem 俄式宠物食物2,1
delay 600
check 道具,俄式宠物食物2,>,0,-2
check 说话,1-10,=,忠诚度上升0,宠1满忠
goto 脚本开始

label 使用2
check 宠物,2,=,空位,使用3
useitem 俄式宠物食物2,2
delay 600
check 道具,俄式宠物食物2,>,0,-2
check 说话,1-10,=,忠诚度上升0,宠2满忠
goto 脚本开始

label 使用3
check 宠物,3,=,空位,使用4
useitem 俄式宠物食物2,3
delay 600
check 道具,俄式宠物食物2,>,0,-2
check 说话,1-10,=,忠诚度上升0,宠3满忠
goto 脚本开始

label 使用4
check 宠物,4,=,空位,使用5
useitem 俄式宠物食物2,4
delay 600
check 道具,俄式宠物食物2,>,0,-2
check 说话,1-10,=,忠诚度上升0,宠4满忠
goto 脚本开始

label 使用5
check 宠物,5,=,空位,宠5满忠
useitem 俄式宠物食物2,5
delay 600
check 道具,俄式宠物食物2,>,0,-2
check 说话,1-10,=,忠诚度上升0,宠5满忠
goto 脚本开始

label 宠1满忠
let @pet,=,2
goto 脚本开始

label 宠2满忠
let @pet,=,3
goto 脚本开始

label 宠3满忠
let @pet,=,4
goto 脚本开始

label 宠4满忠
let @pet,=,5
goto 脚本开始

label 宠5满忠
let @pet,=,0
set 吃补血肉,1
set 丢非血肉,1
useitem 俄式宠物食物2,1
useitem 俄式宠物食物2,2
useitem 俄式宠物食物2,3
useitem 俄式宠物食物2,4
useitem 俄式宠物食物2,5
end
