ifmap 2009,+2
goto +2
ifpos 25,15,+4
cls
print 請在漁村24店(東25南15)位置上使用腳本！
end
ifitem 1-4,=,空位,+4
cls
print 請空出道具欄1-4位！
end
check 寵物1,技能2,=,料理,+4
cls
print 請把料理寵物放在第一位，技能學在第二位！
end

LABEL PET2
ifpet 2,=,空位,PET3
check 寵物2,忠誠,=,100,PET3
CALL LL
useitem 1,2 
delay 650
GOTO -4

LABEL PET3
ifpet 3,=,空位,PET4
check 寵物3,忠誠,=,100,PET4
CALL LL
useitem 1,3 
delay 650
GOTO -4

LABEL PET4
ifpet 4,=,空位,PET5
check 寵物4,忠誠,=,100,PET5
CALL LL
useitem 1,4 
delay 650
GOTO -4

LABEL PET5
ifpet 5,=,空位,OK
check 寵物5,忠誠,=,100,OK
CALL LL
useitem 1,5
delay 650
GOTO -4

LABEL OK
CLS
PRINT 寵物加忠完成！腳本停止.
END

LABEL LL
delay 200
W 25,15,C
SAY 買,,25,15
WAITDLG 超商的肉店,1,5,-4
BUY 3,1
DELAY 1000
walkpos 25,15 
walkpos 25,17
W 25,17,C
SAY 買,,25,17
WAITDLG 超商的魚店,1,5,-4
BUY 2,1
DELAY 100
walkpos 25,17 
walkpos 25,19 
walkpos 25,21 
walkpos 25,23 
walkpos 25,25
walkpos 25,26
W 25,26,C
SAY 買,,25,26
WAITDLG 蔬菜店,1,5,-5
BUY 21,1
DELAY 100
walkpos 25,26 
walkpos 25,28 
walkpos 25,30 
walkpos 25,32 
walkpos 25,34 
walkpos 25,36
walkpos 25,37
W 25,37,C
SAY 買
WAITDLG 地方特產品販賣員,1,5,-4
BUY 19,1
DELAY 100
LL 1,2,1|2|3|4
walkpos 25,35
walkpos 25,33
walkpos 25,31
walkpos 25,29
walkpos 25,27
walkpos 25,25
walkpos 25,23
walkpos 25,21
walkpos 25,19
walkpos 25,17
walkpos 25,15
ifitem 1,=,俄式寵物食物2,+3
doffitem 1
GOTO LL
RETURN