杰哥自动加忠料理.txt

stoneage free server patch

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