home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / T_ROBS20.ZIP / ROBOT3.TR < prev    next >
Encoding:
Text File  |  1991-11-13  |  1.1 KB  |  119 lines
  1. ;           My wierd robot...
  2.  
  3.  
  4. ;      --==>initialization<==--
  5.  
  6. Range 600
  7. shift 0
  8. angle 9
  9.  
  10. if random goto 2
  11.  
  12.  
  13. ;  First peice
  14.  
  15.  
  16. :1
  17. move 0
  18. turn -19
  19. if enemy goto 1000
  20. goto 1
  21.  
  22.  
  23. :1000
  24. move 100
  25. if enemy goto 2000
  26. goto 1
  27.  
  28. :2000
  29. fire
  30. if enemy goto 2000
  31. goto 3000
  32.  
  33. :3000
  34. move 0
  35. if x<50 goto 4000
  36. if x>950 goto 5000
  37. if y>950 goto 6000
  38. if y<50 goto 7000
  39. goto 1
  40.  
  41. :4000
  42. head 90
  43. move 100
  44. if x<100 goto 4000
  45. goto 3000
  46.  
  47. :5000
  48. head 270
  49. move 100
  50. if x>900 goto 5000
  51. goto 3000
  52.  
  53. :6000
  54. head 0
  55. move 100
  56. if y>900 goto 6000
  57. goto 3000
  58.  
  59. :7000
  60. head 180
  61. move 100
  62. if y<100 goto 7000
  63. goto 3000
  64.  
  65.  
  66. ;    Second peice
  67.  
  68.  
  69. :2
  70. move 0
  71. turn -19
  72. if enemy goto 1001
  73. goto 2
  74.  
  75.  
  76. :1001
  77. move 100
  78. if enemy goto 2001
  79. goto 2
  80.  
  81. :2001
  82. fire
  83. if enemy goto 2001
  84. goto 3001
  85.  
  86. :3001
  87. move 0
  88. if x<50 goto 4001
  89. if x>950 goto 5001
  90. if y>950 goto 6001
  91. if y<50 goto 7001
  92. goto 2
  93.  
  94. :4001
  95. head 90
  96. move 100
  97. if x<100 goto 4001
  98. goto 3001
  99.  
  100. :5001
  101. head 270
  102. move 100
  103. if x>900 goto 5001
  104. goto 3001
  105.  
  106. :6001
  107. head 0
  108. move 100
  109. if y>900 goto 6001
  110. goto 3001
  111.  
  112. :7001
  113. head 180
  114. move 100
  115. if y<100 goto 7001
  116. goto 3001
  117.  
  118. ;  END of this weird robot.
  119.