// (межстрочный интервал 10)
set #h workwindow
set workwindow #h

  while_not #x1 > 0  
  
set $l findimage (792, 210 1094, 517   (image\стрелки\лево.bmp)%lv 2 20 1 5)
  if ($l > 0)
   set #x1 %lv[1 1]
   set #y1 %lv[1 2]
   set #x2 #x1 + 40
   set #y2 #y1
  end_if

set $v findimage (792, 210 1094, 517  (\image\стрелки\верх.bmp)%up 2 21 1 5)
  if ($v > 0)
   set #x1 %up[1 1]
   set #y1 %up[1 2]
   set #x2 #x1
   set #y2 #y1 + 40
  end_if
 if_not 840, 204 936748   
  goto end
 end_if 
  end_while
 
     wait 1000
     left #x1 #y1
     wait 1000  + random (1500)
     left #x2 #y2
     left #x2 #y2
     wait 1500
   
 :end 
 
 start_script  1
 stop_script