boat 8x8

[fnurov]

set #lpc 1000
set %dist 9
set %lx #charposx
set %ly #charposy
event macro 1 0 slow forward
loop:
     set %dx abs ( #charposx - %lx )
     set %dy abs ( #charposy - %ly )
     if %dx >= %dist || %dy >= %dist
     {
        event macro 1 0 turn right
        set %lx #charposx
        set %ly #charposy
     }
     wait 1
goto loop