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