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

Fishing:

for #y -6 6 1 for #x -6 6 1 

:fishing 

set lastobjectid 1099918735айди вашей удочки 

set lastobjecttype 3519 тип вашей удочки 

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