/*
 (praticamente ho preso il commento di pippo3 e ho cambiato una
  decina di parola,
  la modifica piu' sostanziale e' che ho messo due email e
  il nome del sito)

  Pippo4.r

  E' un involuzione di pippo3, che a sua volta era un involuzione di
  pippo2a o pippo2b, non ricordo e sul
  momento non ho tempo per vedere :-)


  Se in presenza di 4 amici all'arena:
     All'inizio si reca all'angolo vicino.
     Si mette ad oscillare a destra e sinistra per il bordo completo
     Questo lo fa fino a circa 150.000 cicli poi passa alla parte 2

 Parte2, che si ha quando Pippo conta un solo avversario oppure dopo
    150.000 cicli
    Si posiziona al centro del campo ed oscilla in orizzontale

 La funzione di sparo Š derivata dalle "toxiche".

 Altro? Aggiungetelo voi.

 Rilasciato sotto licenza GPL (forse il primo a dichiararlo).

 ciao

 Andrea Creola


*/
int rng,
    deg,  
    orng,
    odeg, 
    dir,
    un1,
    ody,
    od,
    tt,
    od2;
    
main()
{
 rng=od2=0;
 
 while (rng<360) { if (scan(rng+=20,10)) od2+=1; }
 
 un1=(loc_x(tt=1+40*(od2>1))>500)*300;
 if(od2>1)
 {
  if(loc_y()>500) up(900);
  else dw(100);
/*  vr(100+800*(loc_y()>500));*/
  while(--tt)
  {
   sx(200);
   dx(800);
  }
   
 }
 dw(500);up(500);
 while(1)
 {
  sx(200);
  dx(800);
 }
 
}


dx(xx)
 {
  while(loc_x(vs(00))<xx); 
  stop();
 }
sx(xx)
 {
  while(loc_x()>xx) vs(180);  
  stop();
 }


vs(xx) {  fuoco(drive(dir=xx,100)); }


stop()
 {  
  while(speed(drive(dir,0))>50);/* Fire(0);*/
 }

fuoco()
{
 if (orng=scan(deg,10));
 else if (orng=scan(deg-=20,10));
 else if (orng=scan(deg+=40,10));
 else return deg+=41; 

 if (!scan(deg+=354,6)) deg+=12;
 fnd();
 if (orng=scan(odeg=deg,10)) 
  { 
   fnd(); 
   if (rng=scan(deg,10)) 
    { 
     cannon(deg+((deg-odeg)*((700+rng))>>9)-(sin(deg-dir)>>14), 
                       rng*179/(179+orng-rng-(cos(deg-dir)>>12)));
     if (orng>850)  deg+=41;
     return;
    } 
  } 
 else
  {
   while(!(orng=scan(deg+=35,10)));
   cannon (deg, 2*scan(deg,10)-orng);
  }
 
} 



fnd()
{
 if(scan(deg-7,3)) deg-=7; 
 if(scan(deg+7,3)) deg+=7;
 if(scan(deg-4,1)) deg-=4;
 if(scan(deg+4,1)) deg+=4; 
 if(scan(deg-2,1)) deg-=2; 
 if(scan(deg+2,1)) deg+=2; 
}


up(xx)
 {
   while(loc_y()<xx) vs(90);
   stop();
 }
dw(xx)
 {
  while(loc_y()>xx) vs(270);
  stop();
 }