/*                           T   I   G   R   E





Programmato da:  Alessandro Carlin


Premessa:

Tigre altro non e' che un'evoluzione di Cobra, il minibot che
avevo fatto l'anno scorso per il torneo under500 Vb
Poiche' gia' Cobra occupava quasi 500 Vb (490 se non erro) non ho avuto
molta liberta' di azione, soprattutto alla luce della mia scarsa attitudine
a crunchare con efficacia i robots.
Tuttavia Cobra era un robot abbastanza forte, quindi poche modifiche
dovrebbero essere sufficienti (spero) a non farlo sfigurare eccessivamente
nel presente torneo (Tigre non nutre certo ambizioni di vittoria)


Strategia:

Vedi Cobra... gli accorgimenti che lo differenziano da quest'ultimo sono piu'
tecnici che tattici


Ringraziamenti:

Un ringraziamento a tutti gli autori di robot che mi hanno ispirato, in
particolare Fizban ma anche Disco di Mich Messina e Dna di Daniele Nuzzo.
Un enorme grazie al misterioso benefattore che ci ha deliziato con il suo
meraviglioso debugger e a Mich e Simone per le utilities che continuano a
migliorare ed aggiornare, grazie alle quali lo sviluppo e il testaggio dei
robot e' davvero user-friendly.                                             */


int flagu,b,xa,ya,flag,flag1,nas,dri,d,oor,over,dver,danni,dor,daa,mm,ang,dr,do,aq,rng,t,dir,oldr,deg,odeg,dist,yora,xora;

main(){
if (ya=(loc_y()>500)) up(920); else dn(80);
if (xa=(loc_x(t=4)>500)) dx(920); else sx(80);
b=ya*2+(xa!=ya);           /* grazie a Simone Ascheri per la dritta */
while(t<10000){
daa=damage(flag1=2);
if (dver>0){
     if (xa){
     d=180;
     sx(790+daa);
     dx(920);         }
     else {
     d=0;
     dx(210-daa);
     sx(80);         }
     dver-=((damage()-daa+1));
     }
else{
     if (ya){
     d=270;
     dn(790+daa);
     up(920);         }
     else {
     d=90;
     up(210-daa);
     dn(80);         }
     dver+=((damage()-daa+1));
     }
         if (++t>4)
              {
               flag=flagu=90*b-30;
               while (flag1&&flag<flagu+160) flag1-=(scan(flag+=20,10)>0);
               t=10002*((flag1>0));
              }
}
while(1)
{
while(loc_y()>180) {zz(210,330);
                    }                                 
while(loc_y()<820) {zz(150,30);
                     }
}
}

up(limt) { while(loc_y()<limt) {Fire(0,90);}drive(90,0);}
dn(limt) {while(loc_y()>limt) {Fire(0,270);}drive(270,0);}
dx(limt) {while(loc_x()<limt) {Fire(0,360);}drive(0,0);}
sx(limt) {while(loc_x()>limt) {Fire(0,180);}drive(180,0);}


Fire(qwe,po)
{
    drive(po,100);
    if ((oldr=scan(odeg=deg,10))&&(oldr<850)) {
        if (!scan(deg+=355,5)) deg+=10;
        if (!scan(deg+=357,3)) deg+=6;
        cannon(deg+(deg-odeg)*qwe,2*scan(deg,10)-oldr);        

    } 
    else {
        if (oldr=scan(deg+=340,10)) return cannon(deg,oldr);
        if (oldr=scan(deg+=40,10)) return cannon(deg,oldr);
        if (scan(d,10)) return(deg=d);
        deg+=40;
    }
}

zz(aw,bw){
                    while(loc_x()>500) {Fire(1,aw);}
                    while(loc_x()<500) {Fire(1,bw);}
                    }