Subversion Repositories svnkaklik

Rev

Go to most recent revision | Details | Last modification | View Log

Rev Author Line No. Line
310 kaklik 1 
program Cholerik;
2 
 
3 
var i, last;
4 
 
5 
LMOT:=30;
6 
RMOT:=20;
7 
 
8 
while true
9 
do
10 
 
11 
#last:= RRTOUCH & RFTOUCH & LRTOUCH & LFTOUCH;
12 
 
13 
  if LEYE = 0 then
14 
    LMOT:=-30;
15 
    RMOT:=-30;
16 
    i:=TIME;
17 
    while TIME < (i+0.5)
18 
    do
19 
    end;
20 
    LMOT:=-30;
21 
    RMOT:=30;
22 
    i:=TIME;
23 
    while TIME < (i+1)
24 
    do
25 
      if CEYE = 0 then
26 
        break;
27 
      end;
28 
    end;
29 
    LMOT:=30;
30 
    RMOT:=30;
31 
  end;
32 
 
33 
  if REYE = 0 then
34 
    LMOT:=-30;
35 
    RMOT:=-30;
36 
    while TIME < (i+0.5)
37 
    do
38 
    end;
39 
    LMOT:=30;
40 
    RMOT:=-30;
41 
    i:=TIME;
42 
    while TIME < (i+1)
43 
    do
44 
      if CEYE = 0 then
45 
        break;
46 
      end;
47 
    end;
48 
    LMOT:=30;
49 
    RMOT:=30;
50 
  end;
51 
 
52 
  if CEYE = 0 then
53 
    RMOT:=-30;
54 
    LMOT:=-30;
55 
    i:=TIME;
56 
    while TIME < (i+0.5)
57 
    do
58 
    end;
59 
    RMOT:=30;
60 
    LMOT:=-30;
61 
    i:=TIME;
62 
    while TIME < (i+1)
63 
    do
64 
      if RRADAR>0 or LRADAR>0 then
65 
      break;
66 
    end;
67 
    RMOT:=30;
68 
    LMOT:=30;
69 
  end;
70 
 
71 
  if RFTOUCH = 1 then
72 
    RMOT:=-30;
73 
    LMOT:=30;
74 
    i:=TIME;
75 
    while TIME < (i+1)
76 
    do
77 
      if CEYE = 0 then
78 
        break;
79 
      end;
80 
    end;
81 
    RMOT:=30;
82 
    LMOT:=0;
83 
    i:=TIME;
84 
    while TIME < (i+1)
85 
    do
86 
      if CEYE = 0 or RRADAR>0 or LRADAR>0 then
87 
        break;
88 
      end;
89 
    end;
90 
    RMOT:=30;
91 
    LMOT:=30;
92 
  end;
93 
 
94 
  if LFTOUCH = 1 then
95 
    RMOT:=30;
96 
    LMOT:=-30;
97 
    i:=TIME;
98 
    while TIME < (i+0.5)
99 
    do
100 
      if CEYE = 0 then
101 
        break;
102 
      end;
103 
    end;
104 
    RMOT:=0;
105 
    LMOT:=30;
106 
    i:=TIME;
107 
    while TIME < (i+0.5)
108 
    do
109 
      if CEYE = 0 or RRADAR>0 or LRADAR>0 then
110 
        break;
111 
      end;
112 
    end;
113 
    RMOT:=30;
114 
    LMOT:=30;
115 
  end;
116 
 
117 
  if RRTOUCH = 1 or LRTOUCH = 1 then
118 
    RMOT:=30;
119 
    LMOT:=-30;
120 
  end;
121 
end;
122 
end;