2004/gotar2.r

view sourceprint?
01/*
02 
03        ������  ������  �������  ������  ������  ������
04        �       �    �     �     �    �  �    �       �
05        �  ���  �    �     �     ������  ������  ������
06        �    �  �    �     �     �    �  �  �    �
07        ������  ������     �     �    �  �   �   ������
08 
09 
10 
11        Autori:      Alessio Gosmar
12                     Alessandro Savoiardo
13 
14        Robot:       Gotar2
15 
16        Anno:        2004
17 
18        Categoria:   Micro (216 istruzioni)
19 
20        Commenti:    Presenti al torneo 2k4 con: ~ Gotar
21                                                 ~ Rotar
22                                                 ~ Gotar2
23*/
24int r, dir, v, ogr, gr;
25 
26main()
27{
28/* Si muove lungo il bordo dell'arena. */
29  while(1)
30  {
31    while (loc_x()<900) Fuoco(0,100);
32    Fuoco(90,0); 
33    while (loc_y()<900) Fuoco(90,100);
34    Fuoco(180,0);
35    while (loc_x()>100) Fuoco(180,100);
36    Fuoco(270,0);    
37    while (loc_y()>100) Fuoco(270,100);
38    Fuoco(0,0);
39  }
40}
41/* Routine di Fuoco (e spostamento). */
42Fuoco(dir,v)
43{
44  drive(dir,v);
45  if (r=scan(ogr=gr,10)) 
46  {   
47    if (scan(gr+350,10)) gr-=5; else gr+=5;
48    if (scan(gr+10,10)) gr+=3; else gr-=3;
49    cannon(gr+(gr-ogr),(scan(gr,10)<<1)-r);
50  }
51  else
52  {
53    if (r=scan(gr+=340,10)) return cannon(gr,r);
54    if (r=scan(gr+=40,10)) return cannon(gr,r); 
55    while (!(r=scan(gr+=20,10))) ;
56    cannon(gr,r);
57  }
58}/*(gr,r);
59  }
60}*/