4 use Time::HiRes qw(usleep nanosleep);
5 use NetServer::Generic;
7 my $tty = "/dev/ttyACM0";
9 my $digits = "1234567890";
10 #$digits=reverse($digits);
12 l_scroll($tty,$digits);
14 r_scroll($tty,$digits);
16 casino_all($tty,$digits);
18 casino_one_r($tty,$digits);
20 `/bin/echo ' ' > $tty`;
23 # print "input: $tmp ".length($tmp)."\n";
24 # if (length($tmp)==10) {
25 # if (int(rand(10))>=6) {
26 # casino_one_r($tty,$tmp);
28 # casino_all($tty,$tmp);
31 # if (int(rand(10))>=6) {
32 # l_scroll($tty,$tmp);
34 # r_scroll($tty,$tmp);
38 # `/bin/echo ' ' > $tty`;
46 my $length=length($digits);
47 my @chars=split('',$digits);
49 # `/bin/echo $digits > $tty`;
54 `/bin/echo '$display' > $tty`;
56 my $displaylen=10+$length;
57 while($i<=$displaylen) {
58 $display=$display.$chars[$i];
60 $display=$display." ";
63 $display=substr($display,1);
65 `/bin/echo '$display' > $tty`;
74 my $length=length($digits);
75 my @chars=split('',$digits);
77 # `/bin/echo $digits > $tty`;
82 `/bin/echo '$display' > $tty`;
83 my $displaylen=10+$length;
85 while($displaylen>0) {
86 $display=$chars[$i].$display;
88 $display=" ".$display;
92 $display=substr($display,0,-1);
94 `/bin/echo '$display' > $tty`;
97 `/bin/echo '$display' > $tty`;
104 $digits= reverse($digits);
105 my $length=length($digits);
106 print "Starting Casino Random\n";
110 my $r_digit=int(rand(10)).int(rand(10)).int(rand(10)).int(rand(10)).int(rand(10)).int(rand(10)).int(rand(10)).int(rand(10)).int(rand(10)).int(rand(10));
111 `/bin/echo $r_digit > $tty`;
116 `/bin/echo $digits > $tty`;
123 my $length=length($digits);
124 my @chars=split('',$digits);
125 print "Starting Casino Digit Random\n";
129 my $r_digit=int(rand(10)).int(rand(10)).int(rand(10)).int(rand(10)).int(rand(10)).int(rand(10)).int(rand(10)).int(rand(10)).int(rand(10)).int(rand(10));
130 `/bin/echo $r_digit > $tty`;
134 $digits=$chars[0].int(rand(10)).int(rand(10)).int(rand(10)).int(rand(10)).int(rand(10)).int(rand(10)).int(rand(10)).int(rand(10)).int(rand(10));
135 `/bin/echo $digits > $tty`;
138 my $r_digit=$chars[0].int(rand(10)).int(rand(10)).int(rand(10)).int(rand(10)).int(rand(10)).int(rand(10)).int(rand(10)).int(rand(10)).int(rand(10));
139 `/bin/echo $r_digit > $tty`;
143 $digits=$chars[0].$chars[1].int(rand(10)).int(rand(10)).int(rand(10)).int(rand(10)).int(rand(10)).int(rand(10)).int(rand(10)).int(rand(10));
144 `/bin/echo $digits > $tty`;
147 my $r_digit=$chars[0].$chars[1].int(rand(10)).int(rand(10)).int(rand(10)).int(rand(10)).int(rand(10)).int(rand(10)).int(rand(10)).int(rand(10));
148 `/bin/echo $r_digit > $tty`;
152 $digits=$chars[0].$chars[1].$chars[2].int(rand(10)).int(rand(10)).int(rand(10)).int(rand(10)).int(rand(10)).int(rand(10)).int(rand(10));
153 `/bin/echo $digits > $tty`;
156 my $r_digit=$chars[0].$chars[1].$chars[2].int(rand(10)).int(rand(10)).int(rand(10)).int(rand(10)).int(rand(10)).int(rand(10)).int(rand(10));
157 `/bin/echo $r_digit > $tty`;
161 $digits=$chars[0].$chars[1].$chars[2].$chars[3].int(rand(10)).int(rand(10)).int(rand(10)).int(rand(10)).int(rand(10));
162 `/bin/echo $digits > $tty`;
165 my $r_digit=$chars[0].$chars[1].$chars[2].$chars[3].int(rand(10)).int(rand(10)).int(rand(10)).int(rand(10)).int(rand(10)).int(rand(10));
166 `/bin/echo $r_digit > $tty`;
170 $digits=$chars[0].$chars[1].$chars[2].$chars[3].$chars[4].int(rand(10)).int(rand(10)).int(rand(10)).int(rand(10)).int(rand(10));
171 `/bin/echo $digits > $tty`;
174 my $r_digit=$chars[0].$chars[1].$chars[2].$chars[3].$chars[4].int(rand(10)).int(rand(10)).int(rand(10)).int(rand(10)).int(rand(10));
175 `/bin/echo $r_digit > $tty`;
179 $digits=$chars[0].$chars[1].$chars[2].$chars[3].$chars[4].$chars[5].int(rand(10)).int(rand(10)).int(rand(10)).int(rand(10));
180 `/bin/echo $digits > $tty`;
183 my $r_digit=$chars[0].$chars[1].$chars[2].$chars[3].$chars[4].$chars[5].int(rand(10)).int(rand(10)).int(rand(10)).int(rand(10));
184 `/bin/echo $r_digit > $tty`;
188 $digits=$chars[0].$chars[1].$chars[2].$chars[3].$chars[4].$chars[5].$chars[6].int(rand(10)).int(rand(10)).int(rand(10));
189 `/bin/echo $digits > $tty`;
192 my $r_digit=$chars[0].$chars[1].$chars[2].$chars[3].$chars[4].$chars[5].$chars[6].int(rand(10)).int(rand(10)).int(rand(10));
193 `/bin/echo $r_digit > $tty`;
197 $digits=$chars[0].$chars[1].$chars[2].$chars[3].$chars[4].$chars[5].$chars[6].$chars[7].int(rand(10)).int(rand(10));
198 `/bin/echo $digits > $tty`;
201 my $r_digit=$chars[0].$chars[1].$chars[2].$chars[3].$chars[4].$chars[5].$chars[6].$chars[7].int(rand(10)).int(rand(10));
202 `/bin/echo $r_digit > $tty`;
206 $digits=$chars[0].$chars[1].$chars[2].$chars[3].$chars[4].$chars[5].$chars[6].$chars[7].$chars[8].int(rand(10));
207 `/bin/echo $digits > $tty`;
210 my $r_digit=$chars[0].$chars[1].$chars[2].$chars[3].$chars[4].$chars[5].$chars[6].$chars[7].$chars[8].int(rand(10));
211 `/bin/echo $r_digit > $tty`;
215 $digits=$chars[0].$chars[1].$chars[2].$chars[3].$chars[4].$chars[5].$chars[6].$chars[7].$chars[8].$chars[9];
216 `/bin/echo $digits > $tty`;
223 my $length=length($digits);
224 my @chars=split('',$digits);
225 print "Starting Casino Digit Random\n";
229 my $r_digit=int(rand(10)).int(rand(10)).int(rand(10)).int(rand(10)).int(rand(10)).int(rand(10)).int(rand(10)).int(rand(10)).int(rand(10)).int(rand(10));
230 `/bin/echo $r_digit > $tty`;
234 $digits=int(rand(10)).int(rand(10)).int(rand(10)).int(rand(10)).int(rand(10)).int(rand(10)).int(rand(10)).int(rand(10)).int(rand(10)).$chars[0];
235 `/bin/echo $digits > $tty`;
238 my $r_digit=int(rand(10)).int(rand(10)).int(rand(10)).int(rand(10)).int(rand(10)).int(rand(10)).int(rand(10)).int(rand(10)).int(rand(10)).$chars[0];
239 `/bin/echo $r_digit > $tty`;
243 $digits=int(rand(10)).int(rand(10)).int(rand(10)).int(rand(10)).int(rand(10)).int(rand(10)).int(rand(10)).int(rand(10)).$chars[1].$chars[0];
244 `/bin/echo $digits > $tty`;
247 my $r_digit=int(rand(10)).int(rand(10)).int(rand(10)).int(rand(10)).int(rand(10)).int(rand(10)).int(rand(10)).int(rand(10)).$chars[1].$chars[0];
248 `/bin/echo $r_digit > $tty`;
252 $digits=int(rand(10)).int(rand(10)).int(rand(10)).int(rand(10)).int(rand(10)).int(rand(10)).int(rand(10)).$chars[2].$chars[1].$chars[0];
253 `/bin/echo $digits > $tty`;
256 my $r_digit=int(rand(10)).int(rand(10)).int(rand(10)).int(rand(10)).int(rand(10)).int(rand(10)).int(rand(10)).$chars[2].$chars[1].$chars[0];
257 `/bin/echo $r_digit > $tty`;
261 $digits=int(rand(10)).int(rand(10)).int(rand(10)).int(rand(10)).int(rand(10)).$chars[3].$chars[2].$chars[1].$chars[0];
262 `/bin/echo $digits > $tty`;
265 my $r_digit=int(rand(10)).int(rand(10)).int(rand(10)).int(rand(10)).int(rand(10)).int(rand(10)).$chars[3].$chars[2].$chars[1].$chars[0];
266 `/bin/echo $r_digit > $tty`;
270 $digits=int(rand(10)).int(rand(10)).int(rand(10)).int(rand(10)).int(rand(10)).$chars[4].$chars[3].$chars[2].$chars[1].$chars[0];
271 `/bin/echo $digits > $tty`;
274 my $r_digit=int(rand(10)).int(rand(10)).int(rand(10)).int(rand(10)).int(rand(10)).$chars[4].$chars[3].$chars[2].$chars[1].$chars[0];
275 `/bin/echo $r_digit > $tty`;
279 $digits=int(rand(10)).int(rand(10)).int(rand(10)).int(rand(10)).$chars[5].$chars[4].$chars[3].$chars[2].$chars[1].$chars[0];
280 `/bin/echo $digits > $tty`;
283 my $r_digit=int(rand(10)).int(rand(10)).int(rand(10)).int(rand(10)).$chars[5].$chars[4].$chars[3].$chars[2].$chars[1].$chars[0];
284 `/bin/echo $r_digit > $tty`;
288 $digits=int(rand(10)).int(rand(10)).int(rand(10)).$chars[6].$chars[5].$chars[4].$chars[3].$chars[2].$chars[1].$chars[0];
289 `/bin/echo $digits > $tty`;
292 my $r_digit=int(rand(10)).int(rand(10)).int(rand(10)).$chars[6].$chars[5].$chars[4].$chars[3].$chars[2].$chars[1].$chars[0];
293 `/bin/echo $r_digit > $tty`;
297 $digits=int(rand(10)).int(rand(10)).$chars[7].$chars[6].$chars[5].$chars[4].$chars[3].$chars[2].$chars[1].$chars[0];
298 `/bin/echo $digits > $tty`;
301 my $r_digit=int(rand(10)).int(rand(10)).$chars[7].$chars[6].$chars[5].$chars[4].$chars[3].$chars[2].$chars[1].$chars[0];
302 `/bin/echo $r_digit > $tty`;
306 $digits=int(rand(10)).$chars[8].$chars[7].$chars[6].$chars[5].$chars[4].$chars[3].$chars[2].$chars[1].$chars[0];
307 `/bin/echo $digits > $tty`;
310 my $r_digit=int(rand(10)).$chars[8].$chars[7].$chars[6].$chars[5].$chars[4].$chars[3].$chars[2].$chars[1].$chars[0];
311 `/bin/echo $r_digit > $tty`;
315 $digits=$chars[9].$chars[8].$chars[7].$chars[6].$chars[5].$chars[4].$chars[3].$chars[2].$chars[1].$chars[0];
316 `/bin/echo $digits > $tty`;