home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / T_ROBS20.ZIP / TARGET.TR < prev    next >
Encoding:
Text File  |  1991-11-19  |  766 b   |  55 lines
  1. ;             This version of "Target" doesn't shoot back.
  2.  
  3. ;  Settings
  4. Keepshift-off
  5. burn-off
  6. setshift 0
  7. angle 15
  8. range 1000
  9.  
  10. ;  Main Loop
  11. :1
  12. move 100
  13. if x<470 gosub 1000
  14. if x>530 gosub 2000
  15. if y>570 gosub 3000
  16. if y<430 gosub 4000
  17. ;if enemy gosub 9999
  18. goto 1
  19.  
  20. ;  X location control subroutine
  21. :1000
  22. head 90
  23. move 100
  24. ;if enemy gosub 9999
  25. if x<470 goto 1001
  26. return
  27.  
  28. ;  X location control subroutine
  29. :2000
  30. head 270
  31. move 100
  32. ;if enemy gosub 9999
  33. if x>530 goto 2000
  34. return
  35.  
  36. ;  Y location control subroutine
  37. :3000
  38. head 0
  39. move 100
  40. ;if enemy gosub 9999
  41. if y>530 goto 3000
  42. return
  43.  
  44. ;  Y location control subroutine
  45. :4000
  46. head 180
  47. move 100
  48. ;if enemy gosub 9999
  49. if y<470 goto 4000
  50. return
  51.  
  52. ;  Firing subroutine
  53. :9999
  54. return
  55.