/* Bear */

Written by Anthony Li for use with CROBOTS. 8/30/88
In its current format, BEAR.R is only 110 bytes in size, but a formidable
opponent despite its simplicity. In an expanded format, BEAR.R might be:

/*-------------------------------------------------------------------------*/
/* Bear.R: A CRobot program */

main ()
{
int Enemy_Range;
int Heading;

Heading = 0; /* Initialize Heading, facing Bear towards coord 0 */
while (1) /* Perform a continuous loop */
{
Enemy_Range = scan (Heading, 5); /* Look for an enemy straight ahead */
if (Enemy_Range > 40)
{ /* If there is an enemy in range, */
cannon (Heading, Enemy_Range); /* then fire at it */
}
else
{ /* If no enemy was detected, */
if (Heading < 360) /* then turn around a little */
Heading += 5;
else
Heading = 0;
drive (Heading, 50); /* and move forward slowly */
}
}
}
/*-------------------------------------------------------------------------*/