| | 1 | Фишинг с пристани |
| | 2 | |
| | 3 | Fishing: |
| | 4 | |
| | 5 | for #y -6 6 1 |
| | 6 | for #x -6 6 1 |
| | 7 | :fishing |
| | 8 | set lastobjectid 1099918735//айди вашей удочки |
| | 9 | set lastobjecttype 3519 //тип вашей удочки |
| | 10 | set lasttargetx charposx + #x |
| | 11 | set lasttargety charposy + #y |
| | 12 | set lasttargetkind 2 |
| | 13 | send F6 1000 // ЛастОбжект-ВаитФорТаргет-ЛастТаргет |
| | 14 | set timer 0 |
| | 15 | while (lastmsg would you like) and (timer < 10000) |
| | 16 | wait 10 |
| | 17 | end_while |
| | 18 | if_not (lastmsg are no fish) or (lastmsg fishing in) |
| | 19 | goto fishing |
| | 20 | end_if |
| | 21 | end_for |
| | 22 | end_for |
| | 23 | alarm |
