/*
G E R T Y

“I hope life on Earth is everything you remember it to be.”

Crobots  : Gerty
Version  : 1.0
Type     : Midi
Author   : Olga S
Begin    : 22-12-2010
Revision : 28-12-2010

That's an improved version of Jedi5. Differences: shrinked f2f boom-style of
Copia and an optimized movement routine.

*/


int ang,oang,range,orange,drange,dir,posx,posy,deg,enemy,dist,l,zdeg,timer,n,m;

int _cannon_() /* save memory space routine */
{
  return cannon(ang+(ang-oang),2*scan(ang,10)-range);
}

firef2f(dir) /* wall-e fire */
{
        drive(dir,100);
        if (range=scan(oang=ang,10)) {
                if (scan(ang-8,5))  { if (scan(ang-=5,2)) ; else ang-=4; return _cannon_(); }
                if (scan(ang+8,5))  { if (scan(ang+=5,2)) ; else ang+=4; return _cannon_(); }
                if (scan(ang,10))   { if (scan(ang-=2,2)) ; else ang+=4; return _cannon_(); }
        }
        else if(scan(ang+=20,10));
        else if(scan(ang-=40,10));
        else if(scan(dir,10)) ang=dir;
        else ang+=80;
}

wall(m,n,x) /* inspired by the check routine of Gantu */
{
  int l;
  if(m) l=loc_y(); else l=loc_x();
  if(n) return l-x; else return x-l;
}

va(x,d) {
 dir=d;
 m=dir&320; n=dir&384;
 while((dist=wall(m,n,x))>80) fire3(drive(dir,100));
 fire3(fire3(drive(dir,0)));
}

/* Fire routines */
search()
{
             if (range=scan(ang+=340,10));
             else if (range=scan(ang+=40,10));
             else if (range=scan(dir,10))
                 ang=dir;
             else
                  return (ang+=40);
             return cannon(ang,2*scan(ang,10)-range);
}

scan_()   
{
  if(scan((oang=ang)-7,3)) ang-=7;
  if(scan(ang+7,3)) ang+=7;
  if(scan(ang-4,2)) ang-=4;
  if(scan(ang+4,2)) ang+=4;
  if(scan(ang-2,1)) ang-=2;
  if(scan(ang+2,1)) ang+=2;
  return (scan(ang,10));
}

fire()
{
   if (orange=scan(ang,10)) {
      if (orange>700) return fire2();
      else {
         scan_();
         if (orange=scan(oang=ang,5))
           {
              scan_();
              if (range=scan(ang,10))
                {
                   return cannon(ang+(ang-oang)*((1200+range)>>9),
                                 range*172/(172+orange-range));
                }
           } else return fire2();
      }
   } else return search();
}

fire2() /* Thanks to Simone */
{
     if((orange=scan(ang,10))&&(orange<770))
     {
           if (range=scan(ang+353,4))
               cannon(ang+=353,range);
           else if (range=scan(ang,3))
                    cannon(ang,range);
           else if (range=scan(ang+7,4))
                    cannon(ang+=7,range);
     }
     else
         if((range=scan(ang+=339,10)))
             cannon(ang,range);
       else
           if((range=scan(ang+=42,10)))
               cannon(ang,range);
         else
                 return (ang+=40);
}

fire3()
{
  if (dist <= 160);
  else if (scan(ang,10))
    {
      if ((orange=scan_(/*drive(dir,100)*/))<850)
        {
          if (range=scan_())                
             return cannon((oang+(ang-oang)*3-(sin(ang-dir)/19500)),(range*200/(200+orange-range-(cos(ang-dir)/4167))));
        }
    }      
  if((range=scan(ang,10))&&(range<850));
  else
    if((range=scan(ang+=339,10)));
    else
      if((range=scan(ang+=42,10)));
      else
        if((range=scan(dir,10))) ang=dir;
        else
          return (ang+=40);
  cannon (ang,2*scan(ang,10)-range);
}

main()
{

int x0,y0,xd,yd,b;
 va(y0=1000*(posy=loc_y(posx=loc_x(timer=1)>499)>499),yd=(270 - 180*posy));
 va(x0=1000*posx,xd=180*!posx);
 l=(zdeg=(90*((posy<<1)+(posx^posy))+320))+131;
 while (deg=zdeg)
 {
  while (--timer) {
   if ((damage()<70 /*60*/) || (orange && (orange<740))) {
     va(350+300*posx,180*posx);
     va(x0,xd);
     va(350+300*posy,90 + 180*posy);
     va(y0,yd);
   } else fire();
  }
  while((deg<l)&&(timer<2)) timer+=(scan(deg+=20,10)>0);
  while(timer<2)
  {
      if (((posx=loc_x())%880)<120) dir=180*(posx>500);
      else if (((posy=loc_y())%880)<120) dir=90+180*(posy>500);
      else if (range>600) dir=ang+25;
      else if (range<150) dir=ang+195;
      else dir=ang+180*(b^=1);

      firef2f(dir);
      firef2f(dir);
      firef2f(dir);
  }
 }
}