/* May the Force be with you /*


Crobots : Anakin
Type : MiniCrobots type2
Version : 1.0
Author : Maurizio Camangi
Begin : 30-ott-2002
Revision : 31-ott-2002


Anakin non si sposta mai dal suo angoletto,
in cui descrive un movimento triangolare che allarga
nel caso in cui sia rimasto un solo sopravvissuto.


*/


int ang, /* Angolo di scanning */
oang, /* Angolo di scanning precedente */
range, /* Gittata corrente */
orange, /* Gittata precedente */
dir, /* Direzione del cammino */
dist,
dist1,
dist2,
posx,
posy, /* Variabili temporanee ad un bit salva posizione */
enemy, /* Variabili temporanee */
cycle; /* Massimo numero di cicli virtuali */


scan_() {


if(scan(ang-8,4)) ang-=8;
if(scan(ang+8,4)) ang+=8;
if(scan(ang-4,2)) ang-=4;
if(scan(ang+4,2)) ang+=4;
if(scan(ang-1,1)) ang-=1;
if(scan(ang+1,1)) ang+=1;


}


int run_(x)
{
drive(dir,x);
if (orange=scan(ang,10)) {
        if (dist<160) {
                cannon(ang/*+=5+350*(scan(ang+355,5)>0)*/,2*scan(ang,10)-orange);
        } else {
                scan_();
                if (orange=scan(oang=ang,10)) {
                        scan_();
                        if (range=scan(ang,10)) {
                                cannon((oang+(ang-oang)*3-(sin(ang-dir)/19500)),(range*165/(165+orange-range-(cos(ang-dir)/4167))));
                        }
                }
        }
        return ang+=40*(orange>900);
}
if (orange=scan(ang+=340,10));
else if (orange=scan(ang+=40,10));
else if (orange=scan(dir,10)) ang=dir;
else return (ang+=40);
cannon(ang,2*scan(ang,10)-orange);
}


int goto_(x,d) {
        while (speed()>49) run_(0);
        if ((dir=x)%180)
                while((dist=(posy*(1000-loc_y())+!posy*loc_y()))>d) run_(100);
        else
                while((dist=(posx*(1000-loc_x())+!posx*loc_x()))>d) run_(100);
}


int main() /* Inizializza alcune variabili ed innesca la routine principale */
{


        dist2=1000-(dist1=300); /* 250-300 */
        posy=loc_y(posx=loc_x(cycle=1)>500)>500;
        goto_(270-180*posy,120);
        while (goto_(180+180*posx,120))
        {


                run_((dir=(90+180*posy))<0);
                if ((cycle-=1) <= (enemy=0)) {
                        while(cycle < 380) { enemy+=(scan(ang+(cycle+=20),10)!=0);}
                        if (enemy<=1) {
                                dist1=dist2=500;
                        } else cycle=6;
                }
                while((dist=(!posy*(dist1-loc_y())+posy*(loc_y()-dist2)))>0) run_(100) ;
                goto_((315-90*posx)-(270-180*posx)*posy,90);
        }
}