/*
 Pippo15a.r
 Torneo: Micro

 Strategia:
 Gia a forma di quadrilatro inclinato intorno all'aerna di gioco.

 Routine di fuoco, Š la stessa di quella dell'anno scorso con un
 alleggerimento di codice ( quindi di due anni fai, ma il tempo era
 poco e quindi..... ).

 ciao

 Andrea Creola
*/
int rng,
    deg,  
    orng,
    odeg, 
    dir,
    un1,
    ody,
    od,
    tt;
    
main()
{

 while(1)
  {
   while((loc_x()<800)&&(loc_y()<800)) fuoco(30);
   while((loc_x()>200)&&(loc_y()<800)) fuoco(120);
   while((loc_x()>200)&&(loc_y()>200)) fuoco(210);
   while((loc_x()<800)&&(loc_y()>200)) fuoco(300);
  }
}

fuoco(dd)
{
  int asin,acos;
  drive(dir=dd,100);

  if (scan(dir,10)) deg=dir;

  if (scan(deg,10))
  {
    asin=(sin(deg-dir)/14384);
    acos=(cos(deg-dir)/3796)-230;
    Find();
    if (orng=scan(odeg=deg,3))
    {
      Find();
      cannon(deg+(deg-odeg)*((880+(rng=scan(deg,10)))/482)-asin,
             rng*230/(orng-rng-acos));
      return;
    }
    
  }
  if (rng=scan(deg+=350,10));
  else if (rng=scan(deg+=20,10));
  else if (rng=scan(deg+=320,10));
  else if (rng=scan(deg+=60,10));
  else if (rng=scan(deg+=280,10));
  else if (scan(dir,10)) return(deg=dir);
  else
   {
    while (!scan(deg,10)) drive(dir,100+(deg+=21));
    return;
   }
 cannon(deg,rng);
}

Find()
{
  if(scan(deg-13,10)) deg-=5;
  else if(scan(deg+13,10)) deg+=5;
  if(scan(deg+12,10)) deg+=4;
  else if(scan(deg-12,10)) deg-=4;
  if(scan(deg-11,10)) deg-=2;
  if(scan(deg+11,10)) deg+=2;
}