/*


Torneo di C Robots 2012
C Robots: british.r
Categoria: Micro
VB: 946 (47%)

Autore: Pizzocaro Marco

Scheda tecnica:
British č l'ennesima iterazione di neutron.r (del 2007),
con poche modifiche alle rotine di fuoco e al f2f.


*/


int range, dir, oang, ang;  	/*variabili per il cannone*/
int b, posy, posx;	 		/*variabili dell'attacco finale*/
int xora, dist, aq, mod; 	/*variabili dell'oscillazione*/
int t, count; 				/*timer*/
int sca, nemici; 			/*variabili per il conteggio dei nemici*/
int sc; 				/*angolo della scansione*/
int ver, hor; 			/*variabili dell'angolo*/

main()
	{
	/*si muove nell'angolo pių vicino*/
	if(ver=(loc_y()>500))  while(loc_y()<940)  fuoco(90); else while(loc_y()>60)  fuoco(270);
	if(hor=(loc_x()>500))  dx(940); else sx(60);
	
	
	drive(dir,0);
/*	sc=90*(ver*2+(ver!=hor))-15;*/
	sc=90*(ver*2+(ver!=hor))+5;

	
	/*controlla il numero dei nemici ed eventualmente attacca*/
	look();
	
		
	while(1) {		/*ciclo del 4vs4*/
		if (loc_x(++t)>500){
			while(speed()>49);
			drive(dir=180,100);
		
			if (!(dist=scan(170,10))) if (!(dist=scan(190,10))) dist=900+mod;
			if ((aq=dist-800+mod)>0) xora=loc_x()-aq;
			else xora=925-mod;
			sx(xora);
			dx(925);
		}
		else {
			while(speed()>49);
			drive(dir=0,100);
		
			if (!(dist=scan(10,10))) if (!(dist=scan(350,10))) dist=900+mod;
			if ((aq=dist-800+mod)>0) xora=aq+loc_x();
			else xora=75+mod;
			dx(xora);
			sx(75);
		}
		if(!(t%12)) look();	
				
	}
	
	


}/*end of main*/






/*routine di fuoco del 4vs4*/
fire(d) {
	drive(d,100);
	if((range=scan(oang=ang,10))&&(range<835))
        {
		if (scan(ang-8,5))  { if (scan(ang-=5,2)) ; else ang-=4; return(cannon(ang+(ang-oang),2*scan(ang,10)-range)); }
		if (scan(ang+8,5))  { if (scan(ang+=5,2)) ; else ang+=4; return(cannon(ang+(ang-oang),2*scan(ang,10)-range)); }
		if (scan(ang,10))     { if (scan(ang-=2,2)) ; else ang+=4; return(cannon(ang,3*scan(ang,10)-2*range)); } 
	}
	else if(range=scan(ang+=20,10)) veloce();
        else if(range=scan(ang-=40,10)) veloce();
	else if(scan(dir,10)) ang=dir;
	else return (ang+=80);
}




/*movimento*/

dx(limt) {while(loc_x()<limt) fire(0); drive(0,0);}
sx(limt) {while(loc_x()>limt) fire(180); drive(180,0);}




/*routine di fuoco del f2f*/
fuoco(d)
{
	drive(d,100);
	if ((range=scan(oang=ang,10))) {
		if (scan(ang-8,5))  { if (scan(ang-=5,2)) ; else ang-=4; return(cannon(ang+(ang-oang),2*scan(ang,10)-range)); }
		if (scan(ang+8,5))  { if (scan(ang+=5,2)) ; else ang+=4; return(cannon(ang+(ang-oang),2*scan(ang,10)-range)); }
		if (scan(ang,10))     { if (scan(ang-=3,3)) ; else ang+=6; return(cannon(ang,2*scan(ang,10)-range)); }
		
	} 
	else {
		if (range=scan(ang+=340,10)) return veloce();
		if (range=scan(ang+=40,10)) return veloce();
		if (range=scan(ang+=300,10)) return veloce();
		if (range=scan(ang+=80,10)) return veloce();
		if (range=scan(ang+=260,10)) return veloce();
		if (range=scan(ang+=120,10)) return veloce();
		ang+=80;
	}
}


veloce(){cannon(ang,2*scan(ang,10)-range);}


/*attacco da f2f*/
boom()
{

	int b=0;
		while(1) {
			
			if ((posx=loc_x())>880 ) dir=180;
			else if (posx<120 ) dir=0;
			else if ((posy=loc_y())>880 ) dir=270;
			else if (posy<120) dir=90;                        
			else if (range>600) dir=ang+25+(b^=1)*335;
			else if (range<150) dir=ang+170+(b^=1)*10;
			else dir=ang+180*(b^=1);
					
			
			fuoco(dir);
			fuoco(dir);
			fuoco(dir);
			
			drive(dir,60);
                       
                }
            
}




look() {
	/*conteggio dei nemici*/
	sca=sc+100;
	nemici=2;
	while(sca>sc&&nemici) nemici-=(scan(sca-=20,10)>0);

	if(nemici) boom();
	else if(t>260) boom();
	++t;
	mod=t;
	
	
}