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;