Subversion Repositories svnkaklik

Compare Revisions

Ignore whitespace Rev 294 → Rev 295

/programy/Robsim/Robiada2007/sumo_kakl.lab
2,6 → 2,7
 
var i;
var ble;
var last;
 
LMOT := 30;
RMOT := -30;
15,31 → 16,37
ble:=0;
while ble<125 do ble:=ble+1; end;
 
LMOT := 30;
RMOT := -30;
 
while true
do
if LEYE = 1 and REYE = 1 then
LMOT := 30;
RMOT := -30;
if LEYE = 1 and REYE = 1 and RFTOUCH = 0 and LFTOUCH = 0 and RRTOUCH = 0 and LRTOUCH = 0 then
if last=1 then
RMOT := 30;
LMOT := -30;
else
LMOT := 30;
RMOT := -30;
end;
end;
 
if LEYE = 0 then
LMOT := -30;
RMOT := -30;
continue;
end;
if REYE = 0 then
RMOT := -30;
LMOT := 30;
continue;
end;
if LRTOUCH = 1 then
RMOT := -30;
LMOT := -20;
LMOT := -30;
last := 1;
end;
if RRTOUCH = 1 then
LMOT :=-30;
RMOT :=-20;
RMOT :=-30;
last := 0;
end;
 
if RFTOUCH = 1 and LFTOUCH =1 then