Subversion Repositories svnkaklik

# naportovany algoritmus Callis, ovsem nefunguje.
program Callis;

var movement, line;

#define L 1
#define S 2
#define R 3

line:=2;

while true
do
  if LEYE > 0 or CEYE > 0 then          # Cara pod levim sensorem
    LMOT:=30;RMOT:=30;  # jed rovne
    line:=1;            # zaznamenej, kdes videl caru
    continue;
  end;

  if REYE > 0 or CEYE > 0 then
    LMOT:=30;RMOT:=30;
    line:=3;
    continue;
  end;
  
  if line=1 then 
    LMOT:=0;
    movement:=1;
    break;

  elif line=3 then
    RMOT:=0;
    movement:=3;
    break;
  end;
end;