Subversion Repositories svnkaklik

Compare Revisions

Ignore whitespace Rev 295 → Rev 296

/programy/Robsim/Robiada2007/sumo_kakl.lab
2,7 → 2,6
 
var i;
var ble;
var last;
 
LMOT := 30;
RMOT := -30;
16,37 → 15,31
ble:=0;
while ble<125 do ble:=ble+1; end;
 
LMOT := 30;
RMOT := -30;
 
while true
do
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;
if LEYE = 1 and REYE = 1 then
LMOT := 30;
RMOT := -30;
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 := -30;
last := 1;
LMOT := -20;
end;
if RRTOUCH = 1 then
LMOT :=-30;
RMOT :=-30;
last := 0;
RMOT :=-20;
end;
 
if RFTOUCH = 1 and LFTOUCH =1 then
59,5 → 52,4
RMOT := -30;
end;
 
 
end;