/* Horse2.r by Summa Giovanni

    Horse si muove su 3 lati dell' arena con un movimento a U o ferro
    di cavallo sparando con una portata leggermente allungata o accorciata
    a seconda dell' aumento o diminuzione della portata.
    In caso di danneggiamento e in grado di invertire la marcia per sottrarsi
    al nemico (2 volte in una competizione)
*/
int Direz,Ang,Dest,OldPort,OldDir,Vers,Dam,Fuga,NewAng;
main()
{
 Dest=0;
 Ang=340;
 Vers=1;            /* 1 marcia antioraria  0 oraria */
 Dam=0;
 Fuga=270;
 drive(Dest,100);
 while (1)
 {
  OldPort=0;
  OldDir=0;
  Direz=Ang;
  if (Dest == 0)
    {
     while (loc_x() < 910 && (damage() < (Dam + 35)) && speed() > 0)
          {
           if (Vers)
              seek2();
           else
              seek();
          }
     drive(Dest,0);
    }
  else
    {
     if (Dest == 180)
       {
        while (loc_x() > 100 && (damage() < (Dam + 35)) && speed() > 0)
             {
               if (Vers)
                   seek2();
               else
                   seek();
             }
        drive(Dest,0);
       }
     else
       {
        if (Dest == 90)
          {
           while ( loc_y() < 910 && (damage() < (Dam + 35)) && speed() > 0)
                  seek2();
           drive(Dest,0);
          }
        else
          {
           while ( loc_y() > 100 && (damage() < (Dam + 35)) && speed() > 0)
                 seek();
           drive(Dest,0);
          }
       }
    }
  frena();
  /* in caso di danneggiamento  attua la fuga */
  if (damage() >= (Dam + 35) )
      {
       if (Fuga != 180)
          {
           if (Vers)
               Vers=0;
           else
               Vers=1;
          }
       Dam=damage();
       Dest=Fuga;
      }
  /* si decide la prossima traiettoria da seguire e si settano anche
     l' angolo iniziale di scansione e la destinazione di fuga, e nella
     marcia oraria anche l' angolo estremo di scansione
  */
  if (Dest==0)
    {
     if (Vers)
       {
        Dest=90;
        Ang=70;
        Fuga=0;
       }
     else
       {
        Dest=270;
        Ang=290;
        NewAng=Ang - 220;
        Fuga=0;
       }
    }
  else
    {
     if (Dest == 180)
       {
        if (Vers)
          {
           Dest=0;
           Ang=20;
           NewAng= 180;
           Vers=0;
           Fuga=90;
          }
        else
          {
           Dest=0;
           Ang=340;
           Vers=1;
           Fuga=270;
          }
       }
     else
       {
        if (Dest==90)
          {
           Dest=180;
           Ang=160;
           Fuga=180;
          }
        else
          {
           Dest=180;
           Ang=200;
           NewAng= Ang - 220;
           Fuga=180;
          }
       }
    }
  drive(Dest,100);
 }
}
/* Funzioni di scansione e attacco */
/* funzione usata durante la marcia in senso orario */
seek()
{
 int Portata,Por_Rid,Dir_Rid;
 if (Portata=scan(Direz,10))
    {
     if (Direz > (Dest - 10))
         Dir_Rid = Direz;
     else
         Dir_Rid = Direz - 4 ;
     if (Portata > OldPort)
         cannon(Dir_Rid, 8 * Portata / 7);
     else
         cannon(Dir_Rid, 7 * Portata / 8);
     Direz+= 20;
    }
 OldPort=Portata;
 OldDir=Direz;
 Direz-= 20;
 if (Direz < 0)
     Direz += 360;
 if (Dest == 0)
    {
     if (Direz < NewAng && Direz > 20)
         Direz=Ang;
    }
 else
    {
     if (Direz < NewAng)
         Direz=Ang;
    }
}
/* funzione usata durante la marcia in senso anti orario */
seek2()
{
 int Portata,Por_Rid,Dir_Rid;
 if (Portata=scan(Direz,10))
    {
     if (Direz < (Dest + 10))
         Dir_Rid = Direz;
     else
         Dir_Rid = Direz + 4 ;
     if (Portata > OldPort)
        cannon(Dir_Rid, 8 * Portata / 7);
     else
        cannon(Dir_Rid, 7 * Portata / 8);
     Direz-= 20;
    }
 OldPort=Portata;
 OldDir=Direz;
 Direz+=20;
 if (Direz > (Ang + 220))
     Direz=Ang;
}
frena()
{
        while (speed() > 49)
             {
              if (Vers)
                 seek2();
              else
                 seek();
             }
}