| 0,0 → 1,56 |
|---|
| program Orbis; |
| |
| var line, Rychlost, Zataceni, ble, Brzda; |
| |
| #define L 1 |
| #define S 2 |
| #define R 3 |
| |
| line:=2; |
| |
| Rychlost:=30; # omezeni rychlosti (hlavne pro ladici ucely) |
| Zataceni:=13; |
| Brzda:=6; |
| |
| while true |
| do |
| if LEYE = 1 and CEYE = 1 then # Cara pod levim sensorem |
| if line=2 then |
| LMOT:=-Rychlost;RMOT:=-Rychlost; |
| ble:=0; |
| while ble<Brzda do ble:=ble+1; end; |
| end; |
| LMOT:=0;RMOT:=Zataceni; # jed rovne |
| line:=1; # zaznamenej, kdes videl caru |
| continue; |
| end; |
| |
| if REYE = 1 and CEYE = 1 then |
| if line=2 then |
| LMOT:=-Rychlost;RMOT:=-Rychlost; |
| ble:=0; |
| while ble<Brzda do ble:=ble+1; end; |
| end; |
| LMOT:=Zataceni;RMOT:=0; |
| line:=3; |
| continue; |
| end; |
| |
| if CEYE = 1 then |
| LMOT:=Rychlost;RMOT:=Rychlost; |
| line:=2; |
| continue; |
| end; |
| |
| if LEYE = 0 and CEYE = 0 and REYE = 0 then |
| |
| LMOT:=-Rychlost;RMOT:=-Rychlost; |
| ble:=0; |
| while ble<Brzda do ble:=ble+1; end; |
| |
| LMOT:=Rychlost; RMOT:=0; |
| line:=2; |
| continue; |
| end; |
| |
| end; |