User`s manual

12. Appendix B – Hydra scripting language definition v1.0
Barco – iStudio – R5976569 – user's manual – revision 09 – March-2007
__________________________________________________________________________________
12-20
:loop
select 1
get "left" left
expr + left left dirx
expr >= test left 0
goto test x1cont
gosub 1 randx
expr set left 0
goto 1 x2cont
:x1cont
expr <= test left resx
goto test x2cont
gosub 1 randx
expr set left resx
:x2cont
set "left" left
get "top" top
expr + top top diry
expr >= test top 0
goto test y1cont
gosub 1 randy
expr set top 0
goto 1 y2cont
:y1cont
expr <= test top resy
goto test y2cont
gosub 1 randy
expr set top resy
:y2cont
set "top" top
update module
expr set c 0
:wait
expr + c c 1
expr < test c 5000
goto test wait
goto 1 loop
:randx
expr random r 5
expr + r r 1
expr < test dirx 0
goto test randxc
expr - dirx 0 r
return
:randxc
expr set dirx r
return
:randy
expr random r 5
expr + r r 1
expr < test diry 0
goto test randyc
expr - diry 0 r
return
:randyc
expr set diry r
return