Subversion Repositories svnkaklik

Compare Revisions

Regard whitespace Rev 279 → Rev 280

/programy/Robsim/Robiada2007/kaklik.lab
1,3 → 1,5
#navaznost na verzi 277
 
program Orbis;
 
var line, movement, Rychlost;
13,7 → 15,7
while true
do
if LEYE = 1 and CEYE = 1 and REYE = 0 then
LMOT:=-1;RMOT:=Rychlost*0.75; # jed rovne
LMOT:=0;RMOT:=Rychlost; # jed rovne
line:=1; # zaznamenej, kdes videl caru
movement:=1;
continue;
20,14 → 22,14
end;
 
if LEYE = 0 and CEYE = 1 and REYE = 1 then
LMOT:=Rychlost*0.75;RMOT:=-1;
LMOT:=Rychlost;RMOT:=Rychlost;
line:=3;
movement:=3;
movement:=2;
continue;
end;
 
if LEYE = 1 and CEYE = 0 and REYE = 0 then
LMOT:=-Rychlost/2;RMOT:=Rychlost; # jed rovne
LMOT:=0;RMOT:=Rychlost; # jed rovne
line:=1; # zaznamenej, kdes videl caru
movement:=1;
continue;
34,7 → 36,7
end;
 
if LEYE = 0 and CEYE = 0 and REYE = 1 then
LMOT:=Rychlost;RMOT:=-Rychlost/2;
LMOT:=Rychlost;RMOT:=0;
line:=3;
movement:=3;
continue;
48,32 → 50,15
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;
movement:=1;
continue;
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;