home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / T_ROBS20.ZIP / LASBLAST.TR < prev    next >
Encoding:
Text File  |  1991-11-13  |  408 b   |  43 lines
  1. angle 4                                                                         
  2. range 1500
  3. setshift 0
  4. goto 20
  5.  
  6. :0
  7. delay 8
  8. :20
  9. if random goto 1
  10. goto 2
  11.  
  12. :1
  13. shift 10
  14. if enemy goto 10
  15. goto 1
  16.  
  17. :2
  18. shift -10
  19. if enemy goto 10
  20. goto 2
  21.  
  22. :10
  23. lfire
  24. lfire
  25. lfire
  26. lfire
  27. lfire
  28. lfire
  29. lfire
  30. lfire
  31. lfire
  32. lfire
  33. lfire
  34. lfire
  35. lfire
  36. lfire
  37. lfire
  38. lfire
  39. lfire
  40. lfire
  41. if heat>300 goto 0
  42. goto 10
  43.