1994/robot1.r

view sourceprint?
01/*
02        ROBOT1.R
03        By Andrea Roncoroni
04*/
05 
06/*
07La strategia de robot e' molto semplice:
08Il robot continua a mouversi secondo uno schema fisso cercando in continuazione
09un altro robot da colpire. Quando lo trova, continua a muoversi ma segue con
10lo sparo il bersaglio.
11*/
12 
13int rad,range;
14main()
15{
16 rad=0;
17 if(loc_x()<450)
18  {
19   drive(0,100);
20   while(loc_x()<450) fire();
21   drive(0,0);
22  }
23 else
24  if(loc_x()>550)
25  {
26   drive(180,100);
27   while(loc_x()>550) fire();
28   drive(180,0);
29  }
30 while(speed()>10);
31 drive(90,100);
32 while(loc_y()<900) fire();
33 drive(90,0);
34 while(speed()>10);
35 while(1)
36 {
37 drive(315,100);
38 while(loc_x()<900)
39  fire();
40 drive(315,0);
41 while(speed()>40) fire();
42 drive(225,100);
43 while(loc_y()>100)
44  fire();
45 drive(225,0);
46 while(speed()>40) fire();
47 drive(135,100);
48 while(loc_x()>100)
49  fire();
50 drive(135,0);
51 while(speed()>40) fire();
52 drive(45,100);
53 while(loc_y()<900)
54  fire();
55 drive(45,0);
56 while(speed()>40) fire();
57 }
58}
59 
60fire()
61{
62   if(range=scan(rad,10))
63     cannon(rad,range);
64   rad+=20;
65}