home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / T_ROBS20.ZIP / ROBOT2.TR < prev    next >
Encoding:
Text File  |  1991-11-13  |  580 b   |  57 lines
  1. ;           My wierd robot...
  2.  
  3. Range 600
  4. shift 0
  5. angle 9
  6.  
  7. :1
  8. move 0
  9. turn 19
  10. if enemy goto 1000
  11. goto 1
  12.  
  13.  
  14. :1000
  15. move 100
  16. if enemy goto 2000
  17. goto 1
  18.  
  19. :2000
  20. lfire
  21. if enemy goto 2000
  22. goto 3000
  23.  
  24. :3000
  25. move 0
  26. if x<50 goto 4000
  27. if x>950 goto 5000
  28. if y>950 goto 6000
  29. if y<50 goto 7000
  30. goto 1
  31.  
  32. :4000
  33. head 90
  34. move 100
  35. if x<100 goto 4000
  36. goto 3000
  37.  
  38. :5000
  39. head 270
  40. move 100
  41. if x>900 goto 5000
  42. goto 3000
  43.  
  44. :6000
  45. head 0
  46. move 100
  47. if y>900 goto 6000
  48. goto 3000
  49.  
  50. :7000
  51. head 180
  52. move 100
  53. if y<100 goto 7000
  54. goto 3000
  55.  
  56. ;  END of this weird robot.
  57.