/*
  ======  Crobot MARINE.R   29-11-2000  ======

ROBOT: MARINE.R
------

Derivato dal crobot SZ15E1.R di mio zio L. Cimini 

AUTORE:
-------

 Andrea Cimini Jasci


SCHEDA TECNICA: MARINE.R
--------------------------

La prima cosa che il crobot fa` e di controllare se lo scontro e` a 2.
In seguito si reca nell'angolo piu' vicino e incomincia ad oscillare.
Ogni 15 oscillazioni controlla se nell`arena è rimasto un solo avversario, 
in tal caso sferra l'attacco finale.

Il robot è ispirato ad un micro crobot di mio zio cui è stato innestato
una routine di fuoco più efficiente e ingombrante, ma che lo ha migliorato
in modo sostanziale.

*/

int a,d,nn,oa,r,t,x,o;

main()
{
   finale();
   go(x=816*(loc_x()>400)+92,999*(loc_y()>500));
   while(1)
   {
      oscilla(x,x,15);
      finale();
   }
}

oscilla(x1,x2,t)
{
   while(--t)
   {
      while(loc_x(fire(180))>=x1);
      while(loc_x(fire())<=x2);
   }
   if(x1<333) while(loc_x(fire(180))>x1);
   drive(0,0);
}

fire(d)
{
   drive(d, 100);
   if((r=scan(oa=a,10))&&(r<833))
   return(cannon(a+=5+350*(scan(a+355,5)>0)+a-oa,(scan(a,10)<<1)-r));
   else if (scan(a+=339,10));
   else if (scan(a+=42, 10));
   else if (scan(a+=21, 10));
   else return(a+=42);
}

go(xx,yy)
{
   int x,y;
   x=xx;
   d=(360+((x-=loc_x())<0)*180+atan(((yy-loc_y())*100000)/x));
   while((x=xx-loc_x())*x+(y=yy-loc_y())*y>2304) fire(d);
   drive(d,0);
}

finale()
int deg;
{
   nn=0; deg=350; while(deg<710) if (scan(deg+=20,10)) ++nn;
   if ((nn<2) && (damage()<88))
   {
      while(1)
      {
         d=180; while(loc_x()>666) {drive(d,100); fuoco();}
         d=0;   while(loc_x()<666) {drive(d,100); fuoco();}
         d=90;  while(loc_y()<500) {drive(d,100); fuoco();}
         d=270; while(loc_y()>500) {drive(d,100); fuoco();}
      }
   }
}

scan14()
{
   if(scan(a+353,3)) a+=353; if(scan(a+7,3)) a+=7;
   if(scan(a+356,2)) a+=356; if(scan(a+4,2)) a+=4;
   if(scan(a+358,1)) a+=358; if(scan(a+2,1)) a+=2;
}

fuoco()
{
   if((r=scan(a,10))&&(r<833))
   {
      if (scan(a+=355,5)); else a+=10;
      if (r<200)
      {
         return(cannon(a,(scan(a,10)<<1)-r));
      }
      else
      {
         scan14();
         if (o=scan(oa=a,7))
         {
            scan14();
            if (r=scan(a,10))
            {
               return(cannon(a+(a-oa)*((1100+r)>>9)-(sin(a-d)>>14), r*179/(179+o-r-(cos(a-d)>>12))));
            }
            else
            {
               if (r=scan(a+=339, 10));
               else
               {
                  if (r=scan(a+=42, 10)); else return(a+=42);
               }
               return(cannon(a,(scan(a,10)<<1)-r));
            }
         }
         else
         {
            if (r=scan(a+=339, 10));
            else
            {
               if (r=scan(a+=42, 10)); else return(a+=42);
            }
            return(cannon(a,(scan(a,10)<<1)-r));
         }
      }
   }
   else
   {
      if (r=scan(a+=340,10));
      else
      {
         if (r=scan(a+=40, 10));
         else
         {
            if (r=scan(a+=300,10));
            else
            {
               if (r=scan(a+=80, 10));
               else
               {
                  if (r=scan(a+=260,10));
                  else
                  {
                     if (r=scan(a+=120,10));
                     else
                     {
                        if (r=scan(a+=220,10));
                        else
                        {
                           if (r=scan(a+=160,10)); else return(a+=100);
                        }
                     }
                  }
               }
            }
         }
      }
      return(cannon(a,(scan(a,10)<<1)-r));
   }
}