Фишинг с пристани

for #y -6 6 1

for #x -6 6 1

:fishing

set lasttargetx charposx + #x

set lasttargety charposy + #y

set lasttargetkind 2 send F6 1000 ЛастОбжект?-ВаитФорТаргет?-ЛастТаргет?

set timer 0 while (lastmsg would you like) and (timer < 10000) wait 10

end_while

if_not (lastmsg are no fish) or (lastmsg fishing in) goto fishing

end_if

end_for

end_for

alarm