/*
+ --------------------------------------------------------------------------- +
+                                                                             +
+  Torneo di MicroRobots 2000                                                 +
+                                                                             +
+  CROBOT: MD8.R  (MiniDav8)                                                  +
+                                                                             +
+  AUTORE: Lorenzi Davide                                                     +
+                                                                             +
+ --------------------------------------------------------------------------- +

                          SCHEDA TECNICA:

 Inizialmente il microbo si reca nell'angolo piu' vicino e comincia ad oscillare
 parallelamente al muro laterale con un'ampiezza di circa 140 metri.
 Oscilla per 30 volte o finche' un avversario si avvicina piu' di 350 metri.
 A questo punto si sposta su un angolo adiacente preferendo quello in verticale.
 Arrivato a circa meta' dell'incontro comincia la modalita' "offensiva" (umhhhh)
 nella quale cambia angolo molto piu' frequentemente.

 Un ringraziamento va agli autori di Goblin.r, Tox.r, Tornado.r, Son-Goku.r da
 cui ho ripreso e modificato parti di codice.
 Grazie anche ai responsabili della mailing list ed a tutti gli amici che vi
 hanno partecipato.

 DIFETTI: Questo robot e' quasi inoffensivo :(
   PREGI: Nessuno a parte la procedura di sparo che e' del tipo toxica ma molto ridotta :)
-------------------------------------------------------------------------------
*/


int eDist, eGradi;     /* Distanza e Gradi          */
int oeDist, oeGradi;   /* Distanza e Gradi Old      */
int dir;               /* La mia direzione          */
int i;
int danni;
int lim_o, lim_v;
int segno_o;
int back;
/* -------------------------------------------------------------- */


main()
{
    /* va sull'angolo piu' vicino */
    o (segno_o=(2*(loc_x(lim_v=(200+600*(loc_y(back=700)>500)))<500)-1));
    
    while (1) {
        danni=damage(i=30)+7;
        
        while ((damage(--back)<danni)&&(--i)) {
            while (loc_y()<lim_v+70) f(90);
            while (loc_y()>=lim_v-70) f(270);
             /*esce dal ciclo*/
            if (oeDist && (oeDist<350)) i=1;
        }

        if (back>0) {
            if (!scan (90+180*(loc_y()>500),10))
                lim_v=(200+600*(loc_y()<500));
            else
                o(segno_o*=-1);
        }
        else {
            o(segno_o*=-1); back=60; /* attacco */
        }
    }
}


/* si sposta in orizzontale */
o (segno)
{
    lim_o=500*segno-380;
    while ((segno*loc_x())>lim_o) f (90*(segno+1));
}



f (mdir)
{
    drive (mdir,100);
    if (oeDist=scan(oeGradi=eGradi,10)) {
        if (!scan(eGradi+=355,5)) eGradi+=10;
        if (!scan(eGradi+=357,3)) eGradi+=6;
        cannon(eGradi+(eGradi-oeGradi),2*scan(eGradi,10)-oeDist);        
        if (oeDist>750) eGradi+=40;
    } 
    else {
        if (scan(eGradi+=340,10)) return;
        if (scan(eGradi+=40,10)) return;
        eGradi+=40;
    }
}