Subversion Repositories svnkaklik

Rev

Rev 277 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | Download

program Orbis;

var line, movement, Rychlost;

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

line:=2;

Rychlost:=15;           # omezeni rychlosti (hlavne pro ladici ucely)

while true
do
  if LEYE = 1 and CEYE = 1 and REYE = 0 then 
    LMOT:=-1;RMOT:=Rychlost*0.75;                       # jed rovne
    line:=1;            # zaznamenej, kdes videl caru
    movement:=1;
    continue;
  end;

  if LEYE = 0 and CEYE = 1 and REYE = 1 then 
    LMOT:=Rychlost*0.75;RMOT:=-1;
    line:=3;
    movement:=3;
    continue;
  end;

  if LEYE = 1 and CEYE = 0 and REYE = 0 then 
    LMOT:=-Rychlost/2;RMOT:=Rychlost;                   # jed rovne
    line:=1;            # zaznamenej, kdes videl caru
    movement:=1;
    continue;
  end;

  if LEYE = 0 and CEYE = 0 and REYE = 1 then 
    LMOT:=Rychlost;RMOT:=-Rychlost/2;
    line:=3;
    movement:=3;
    continue;
  end;

  if (LEYE = 0 and CEYE = 1 and REYE = 0) then 
    LMOT:=Rychlost;RMOT:=Rychlost;
    line:=2;
    movement:=2;
    continue;
  end;

  if (LEYE = 1 and CEYE = 1 and REYE = 1) then 
    if movement = 1 then
      LMOT:=Rychlost;RMOT:=0;
      line:=2;
#      break;

    elif movement = 2 then
      LMOT:=Rychlost;RMOT:=Rychlost;
      line:=2;
#      break;

    elif movement = 3 then
      LMOT:=0;RMOT:=Rychlost;
      line:=2;
    end;
  end;

  if (LEYE = 0 and CEYE = 0 and REYE = 0) then 
    if line = 1 then
      LMOT:=0;RMOT:=Rychlost;
      line:=2;
      movement:=1;

    elif movement = 3 then
      LMOT:=Rychlost;RMOT:=0;
      line:=2;
      movement:=3;
    end;
  end;    
end;