Subversion Repositories svnkaklik

Rev

Rev 280 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log

Rev 280 Rev 281
Line 12... Line 12...
12 
 
 12 
 
13 
Rychlost:=15;		# omezeni rychlosti (hlavne pro ladici ucely)
 13 
Rychlost:=15;		# omezeni rychlosti (hlavne pro ladici ucely)
14 
 
 14 
 
15 
while true
 15 
while true
16 
do
 16 
do
17 
  if LEYE = 1 and CEYE = 1 and REYE = 0 then
17 
  if (LEYE = 0 and REYE = 0 and CEYE = 0) then
18 
    LMOT:=0;RMOT:=Rychlost;			# jed rovne
 18 
    LMOT:=Rychlost;RMOT:=0;
19 
    line:=1;		# zaznamenej, kdes videl caru
 19 
    line:=2;
20 
    movement:=1;
 20 
    movement:=3;
21 
    continue;
 21 
    continue;
22 
  end;
 22 
  end;
23 
 
 23 
 
24 
  if LEYE = 0 and CEYE = 1 and REYE = 1 then
24 
  if (LEYE = 0 and REYE = 0) then
25 
    LMOT:=Rychlost;RMOT:=Rychlost;
 25 
    LMOT:=Rychlost;RMOT:=Rychlost;
26 
    line:=3;
 26 
    line:=2;
27 
    movement:=2;
 27 
    movement:=2;
28 
    continue;
 28 
    continue;
29 
  end;
 29 
  end;
30 
 
 30 
 
31 
  if LEYE = 1 and CEYE = 0 and REYE = 0 then
31 
  if LEYE = 1 then
32 
    LMOT:=0;RMOT:=Rychlost;			# jed rovne
 32 
    LMOT:=0;RMOT:=Rychlost;			# jed rovne
33 
    line:=1;		# zaznamenej, kdes videl caru
 33 
    line:=1;		# zaznamenej, kdes videl caru
34 
    movement:=1;
 34 
    movement:=1;
35 
    continue;
 35 
    continue;
36 
  end;
 36 
  end;
37 
 
 37 
 
38 
  if LEYE = 0 and CEYE = 0 and REYE = 1 then
38 
  if REYE = 1 then
39 
    LMOT:=Rychlost;RMOT:=0;
 39 
    LMOT:=Rychlost;RMOT:=0;
40 
    line:=3;
 40 
    line:=3;
41 
    movement:=3;
 41 
    movement:=3;
42 
    continue;
 42 
    continue;
43 
  end;
 43 
  end;
44 
 
 - 
 
45 
  if (LEYE = 0 and CEYE = 1 and REYE = 0) then
- 
 
46 
    LMOT:=Rychlost;RMOT:=Rychlost;
 - 
 
47 
    line:=2;
 - 
 
48 
    movement:=2;
 - 
 
49 
    continue;
 - 
 
50 
  end;
 - 
 
51 
 
 - 
 
52 
  if (LEYE = 1 and CEYE = 1 and REYE = 1) then
- 
 
53 
    LMOT:=0;RMOT:=Rychlost;
 - 
 
54 
    line:=2;
 - 
 
55 
    movement:=1;
 - 
 
56 
    continue;
 - 
 
57 
  end;
 - 
 
58 
 
 44 
 
59 
  if (LEYE = 0 and CEYE = 0 and REYE = 0) then
- 
 
60 
      LMOT:=Rychlost;RMOT:=0;
 - 
 
61 
      line:=2;
 - 
 
62 
      movement:=3;
 - 
 
63 
  end;
- 
 
64 
end;
 45 
end;