1992/pippo.r

view sourceprint?
01/*       Nome del robot ..........." PIPPO "                        */
02/*       Autori :                                                   */
03/*           Andrea Ferullo                                         */
04/*           David Coen                                             */
05/*       Data di realizzazione ... 28 settembre 1992                */
06 
07int angolo;
08main()
09{
10 
11    int x, y;
12 
13    /* Pippo si porta sul bordo destro del campo di gioco */
14 
15    x = loc_x();
16    y = loc_y();
17    while (loc_x() < 980) {
18        distruggi();
19        drive(0, 75);
20    }
21 
22    /* Pippo si muove su e giu lungo il bordo destro sparando ai nemici */
23 
24    while (1) {
25        while (loc_y() < 940) {
26            distruggi();
27            drive (90, 60);
28        }
29        while (loc_y() > 40) {
30            distruggi();
31            drive (270, 60);
32        }
33    }
34}
35 
36 
37/* Quella che segue � la procedura di sparo */
38 
39distruggi ()
40{
41    if (risultato = scan(angolo, 10)) {
42        cannon (angolo, (7 * risultato) / 8);
43        cannon (angolo, risultato);
44        angolo -= 15;
45        if (angolo < 75)
46            angolo = 270;
47    } else
48        angolo += 15;
49    if (angolo > 285)
50        angolo = 90;
51}