home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / T_ROBS20.ZIP / TARGET2.TR < prev    next >
Encoding:
Text File  |  1991-11-19  |  828 b   |  59 lines
  1. ;  Settings
  2. Keepshift-off
  3. burn-off
  4. setshift 0
  5. angle 15
  6. range 1000
  7.  
  8. ;  Main Loop
  9. :1
  10. move 100
  11. if x<470 gosub 1000
  12. if x>530 gosub 2000
  13. if y>570 gosub 3000
  14. if y<430 gosub 4000
  15. if enemy gosub 9999
  16. goto 1
  17.  
  18. ;  X location control subroutine
  19. :1000
  20. head 90
  21. move 100
  22. if enemy gosub 9999
  23. if x<470 goto 1001
  24. return
  25.  
  26. ;  X location control subroutine
  27. :2000
  28. head 270
  29. move 100
  30. if enemy gosub 9999
  31. if x>530 goto 2000
  32. return
  33.  
  34. ;  Y location control subroutine
  35. :3000
  36. head 0
  37. move 100
  38. if enemy gosub 9999
  39. if y>530 goto 3000
  40. return
  41.  
  42. ;  Y location control subroutine
  43. :4000
  44. head 180
  45. move 100
  46. if enemy gosub 9999
  47. if y<470 goto 4000
  48. return
  49.  
  50. ;  Firing subroutine
  51. :9999
  52. stopturn
  53. :9998
  54. lfire
  55. sfire
  56. ; Un-remark the next line to make this robot a little nastier.
  57. ;if enemy and heat<300 goto 9998
  58. return
  59.