home *** CD-ROM | disk | FTP | other *** search
/ PC Format Collection 5 / PCFORMAT5.iso / ZIPS / CZONE.ZIP / CZONE / ROBOTS / BLOCK.ROB < prev    next >
Encoding:
Text File  |  1993-12-14  |  402 b   |  13 lines
  1. {**** BLOCK.ROB - A standard building block for your robots ****}
  2.  
  3. MYANGLE=RND(360)            { Pick a random starting angle }
  4. REPEAT
  5.     RADAR(MYANGLE)            { Scan for objects }
  6.     IF OBJECT=TANK THEN        { Is there a tank? }
  7.         TURRET MYANGLE        { YEP, rotate the gun }
  8.         FIRE DISTANCE        { and BLAST }
  9.     ELSE
  10.         MYANGLE=MYANGLE+5    { Otherwise just increment the scan angle }
  11.     ENDIF
  12. FOREVER                { Do this forever. }
  13.