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

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