Category : A Collection of Games for DOS and Windows
Archive   : CROBLIB.ZIP
Filename : FOO.R

/* */
/* FOO : programmed by OBI-ONE */
/* */

int drv_dir; /* drive direction */
int scn_dir; /* scan direction */
int range; /* range to oponent */
int found; /* oponet found ? */

main()
{
drv_dir = rand( 360 ); /* initialize */
scn_dir = 0;
found = 0;

while ( 1 ) { /* main loop */

/* drive at full speed. */
/* when close to wall, turn around at random. */

drive( drv_dir, 100 );
if ( ( x = loc_x() ) < 150 )
drv_dir = rand( 90 );
else if ( x > 850 )
drv_dir = rand( 90 ) + 180;
if ( ( y = loc_y() ) < 150 )
drv_dir = rand( 90 ) + 90;
else if ( y > 850 )
drv_dir = rand( 90 ) + 270;

/* scan every 20 degrees resolution. */
/* if found oponent, cannon it. */

if ( range = scan( scn_dir, 10 ) ) {
found = 1;
cannon( scn_dir, range );
}
else if ( found ) {
found = 0;
scn_dir -= 30;
}
else
scn_dir += 10;

} /* end of main loop */
}