/************************
 *                      *
 *  C A R I L L O N .r  *
 *                      *
 ************************

Last night I had a dream
Where I was all alone walking on the street
My carillon and me
Were two inseparable strange melodics

 Michelangelo Messina                         
 Torneo 2020

*/


int     deg,odeg, /*angolo di sparo*/
        dam, /*percentuale di danni attuale*/
        t,   /*conta cicli di attesa per l'attacco*/
        rng, /*distanza*/
        dir,dir0; /*direzione*/
        int orng,x,y;
        int b;
        int sc,sk;
        int dx,up;
        int ne;
        int fp;



main()
{
/*
All'inizio dell'incontro il robot si reca nell'angolo piu' vicino e controlla
se si tratta di un f2f.
Fino a quando non e' colpito, oscilla lungo i due lati principali dell'angolo
in modo rettilineo, con angolo non retto, avvicinandosi il piu' possibile ai 
bordi e senza fermarsi mai.
In caso di 3vs3 cerca di oscillare sull'eventuale lato libero, oppure attacca.
L'attacco e' quello classico di boom.r con piccoli ritocchi. 

That's all folks

*/
    if(dx=(loc_x(up=(loc_y(sk=fp=3)>500))>500)) {
    	if(up) deg=(sc=185)+21;
        else deg=(sc=95)+21;
	xmin(dir=360);
    } else {
        if(up) deg=(sc=275)+21;
	else deg=(sc=5)+21;
	xmag(dir=180);
    }
    if(up) attacco(ymin(dir=90)); else attacco(ymag(dir=270));
    sk=0;

    while(1) {
        while ( (damage() <= dam) ) { /*fino quando non e' colpito o limite di tempo*/
                if (dx) xmin(xyf(dir=(dir0=180)-28+56*(up)));
                else xmag(xyf(dir=(dir0=360)+28-56*(up)));
                if (up) ymin(xyf(dir=(dir0=270)+28-56*(dx)));
                else ymag(xyf(dir=(dir0=90)-28+56*(dx)));
		attacco();

        }
	dam=damage(b^=1)+5;
        if(ne==3) {
		if(up) {
                        if(occupato(260)) fuggi(); 
			else step(1);
	   	} else {
                        if(occupato(80)) fuggi(); 
			else step(1);
		}
        }
    } 
}

fuggi()
{
        if(dx) {
                if(occupato(170)) boom(); 
		else step(0);
        } else {
                if(occupato(350)) boom(); 
		else step(0);
        }
}

step(w)
{
        if(w) { /*verticale*/
                if(up) {while(loc_y()>480) spara(drive(270,100));dir=270;}
                else {while(loc_y()<520) spara(drive(90,100));dir=90;}
                sc=320-180*(dx);
        } else { /*orizzontale */
                if(dx) {while(loc_x()>480) spara(drive(180,100));dir=180;}
                else {while(loc_x()<520) spara(drive(360,100));dir=360;}
                sc=50+180*(up);
        }
        while(damage(attacco(drive(dir+=180,0))) <= dam) {
                spara(drive(dir,100));
                spara(drive(dir,100));
        }
	boom();
}

                


int occupato(w)
/* restituisce 1 se non ci sono nemici nella direzione w */
int w;
{
        return(((scan(w,10))||(scan(w+21,10))));
}


/* spostamento */
xmag() { while(loc_x()>88) spara(drive(dir,100)); while(loc_x()>50) drive(dir,100);stop();} 
xmin() { while(loc_x()<912) spara(drive(dir,100));while(loc_x()<950) drive(dir,100);stop(); } 
ymag() { while(loc_y()>88) spara(drive(dir,100)); while(loc_y()>50) drive(dir,100);drive(dir,0); } 
ymin() { while(loc_y()<912) spara(drive(dir,100)); while(loc_y()<950) drive(dir,100);drive(dir,0); } 

xyf()  {
        if(orng>710||orng==0) sk=deg=dir0;
        spara(drive(dir,100));
        if(b&&orng>300&&dam<69) fuoco(t+=2);
        /*if(b&&orng>450) fuoco(t+=2);*/
        spara(drive(dir,100));
        stop(sk=0);
        spara(drive(dir+=180,100));
}

stop() { 
        spara(drive(dir,0));
}

attacco()    
{
/* conta il nr dei nemici */
/*
ne=4 - 1 nemico
ne=3 - 2 nemici
ne=2 - 3 nemici
*/
    if((ne=((!scan(sc+80,10))+
        (!scan(sc+60,10))+
        (!scan(sc+40,10))+
        (!scan(sc+20,10))+
        (!scan(sc,10))))>3) boom();
    else if (t<1480) ++t;
    else {
        if(ne>2) {if (dam<75) boom(); else t=0;}
        else {if(dam<45) boom(); else t*=(dam<75);}
    } 
}


fuoco() 
{
  drive(dir,100);
  if (scan(deg,10));
  else if (scan(deg-=21,10));
  else if (scan(deg+=42,10));
  else if (scan(deg+=21,10));
  else return search();

  if (scan(deg-17,10)) deg-=6;  
  if (scan(deg+17,10)) deg+=6;


  
  if (orng=refine()) {
    if (rng=refine(odeg=deg))
      cannon(deg+(deg-odeg)*((1200+rng)>>9)-(sin(deg-dir)>>14),
                    rng*192/(192+orng-rng-(cos(deg-dir)>>12)));
    else if(rng=scan(deg-=21,10)) cannon(deg,rng); 
    else if(rng=scan(deg+=42,10)) cannon(deg,rng);
    else deg+=41;
  }
  else if(orng=scan(deg-=21,10)) cannon(deg,orng); 
  else if(orng=scan(deg+=42,10)) cannon(deg,orng);
  else deg+=41;
}

refine() {
  if (scan(deg+13,10)) deg+=4; if (scan(deg-13,10)) deg-=4;
  if (scan(deg+12,10)) deg+=2; if (scan(deg-12,10)) deg-=2;
  if (scan(deg+10,10)) ++deg; if (scan(deg-10,10)) --deg;
  return scan(deg,10);

}

search() {
  if ((orng=scan(deg-=84,10))) return cannon(deg,orng);
  else if ((orng=scan(deg-=21,10))) return cannon(deg,orng);
  else if ((orng=scan(deg+=126,10))) return cannon(deg,orng);
  else if ((orng=scan(deg+=21,10))) return cannon(deg,orng);
  else if ((orng=scan(deg-=168,10))) return cannon(deg,orng);
  else if ((orng=scan(deg-=21,10))) return cannon(deg,orng);
  else if ((orng=scan(deg+=210,10))) return cannon(deg,orng);
  else if ((orng=scan(deg-=231,10))) return cannon(deg,orng);
  else if ((orng=scan(deg+=252,10))) return cannon(deg,orng);
  else deg+=41;
}

spara() {
	sparafast(++t);
	if(sk) return;
	if(rng>680) if(rng>orng || rng>850) return deg+=42;
}


sparafast()
{
        if ((orng=scan(deg, 10)) ) { 
                if (scan(deg-9,4)) { 
                        if (scan(deg-=13,4)) { 
                                if(scan(deg-6,fp)) deg-=6;
                        }  else if (scan(deg-fp,fp)) --deg;
                } else if(scan(deg+9,fp)) { 
                        if (scan(deg+=13,fp)) deg+=fp;
                }  else if(scan(deg+4,fp)) deg+=fp;
                else deg-=2;
        }  else if ((orng=scan(deg-=21,10))) { 
                if (scan(deg-9,10)) { 
                        if (scan(deg-=13,fp)) deg-=fp;
                } else if(scan(deg+9,10)) deg+=6; 
        }  else if ((orng=scan(deg+=42,10))) { 
                if (scan(deg+9,10)) deg+=12;
        }  else if ((orng=scan(deg+=21,10)));
	else if(sk) return search();
	else {
               	if ((orng=scan(deg+=21,10))) return cannon(deg,rng=orng); 
		rng=0;
               	return deg+=41; 
	} 
        if (rng=scan(deg,10)){  
                cannon (deg, rng*145/(145+orng-rng) );
        }  else if(rng=scan(deg-=21,10)) cannon(deg,rng); 
        else if(rng=scan(deg+=42,10)) cannon(deg,rng);
	else deg+=41;
} 

boom()
{
	drive(dir=sc+40,100);
	fuoco(sparafast(fp=sk=5));
	    while(1) {
                if(orng>459) fuoco();
                if ((x=loc_x(y=loc_y()))>840 || x<160 || y>840 || y<160) {
			if(x>840) dir=160+40*(y>=500);
                	else if (x<160) dir=340+40*(y<=500);
                	else if (y>840) dir=250+40*(x<=500);
                	else            dir=70+40*(x>=500);
		}
		else if(orng<149) dir=((deg/90)+(b^=1))*90+180*(dam>85);
		else if(orng<640) dir=deg+80+(b^=1)*200+180*(dam>79);
		else              dir=deg+24+(b^=1)*(299-dam);
                dam=damage(sparafast(drive(dir,100)));
		if(scan(deg-15,10)) deg-=4;
		if(scan(deg+15,10)) deg+=4;
		sparafast(drive(dir,100));
            }
}