home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / T_ROBS20.ZIP / SUICIDAL.TR < prev    next >
Encoding:
Text File  |  1991-12-12  |  486 b   |  37 lines
  1. ; Robot- Suicidal
  2.  
  3. Angle 12
  4. burn-on
  5.  
  6. :10
  7.  if random goto 2
  8.  
  9.  
  10.  
  11.    :1
  12.         move 5
  13.         turn 16
  14.         if enemy goto 1000
  15.         if range<15 destruct
  16.         if enemy goto 1000
  17.     goto 1
  18.  
  19.    :2
  20.         move 5
  21.         turn -16
  22.         if enemy goto 1000
  23.         if range<15 destruct
  24.         if enemy goto 1000
  25.     goto 2
  26.  
  27.  
  28.    :1000
  29.         move 100
  30.         if range<15 destruct
  31.         Fire
  32.         if enemy goto 1000
  33.     goto 10
  34.  
  35.  
  36. ; End Robot.
  37.