| /programy/Robsim/Robiada2007/Callis.lab |
|---|
| 0,0 → 1,35 |
| 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; |