home *** CD-ROM | disk | FTP | other *** search
/ Sunny 1,000 Collection / SUNNY1000.iso / Files / W31 / Misc / WAR.ZIP / WAR.BAS next >
Encoding:
BASIC Source File  |  1997-06-27  |  2.4 KB  |  129 lines
  1. SCREEN 12
  2. CLS
  3. 3
  4. CLS
  5. COLOR 4
  6. PRINT "WAR!"
  7. PRINT "By: TwinAction Software"
  8. PRINT "What skill level?"
  9. PRINT "The higher the easier!"
  10. PRINT "500 - 2500"
  11. COLOR 12
  12. INPUT ">", skill
  13. IF skill > 2500 THEN 3
  14. IF skill < 500 THEN 3
  15. 4
  16. CLS
  17. PRINT "How much time do you need?"
  18. PRINT "1000 - 100000"
  19. INPUT ">", tim
  20. IF tim > 100000 THEN GOTO 4
  21. IF tim < 1000 THEN GOTO 4
  22. CLS
  23. x1 = 5
  24. y1 = 40
  25. x = 15
  26. y = 40
  27. 1
  28. DO
  29. tim = tim - 1
  30. IF tim = o THEN GOTO 9999
  31. delay = delay + 1
  32. IF delay = skill THEN GOSUB enem
  33. COLOR 12
  34. LOCATE 26, 1: PRINT "Score: "; points; "Time Left: "; tim
  35. a$ = INKEY$
  36. IF a$ = CHR$(56) THEN GOSUB UP
  37. IF a$ = CHR$(52) THEN GOSUB Left
  38. IF a$ = CHR$(54) THEN GOSUB RIGHT
  39. IF a$ = CHR$(50) THEN GOSUB DOWN
  40. IF a$ = CHR$(32) THEN GOSUB shoot
  41. COLOR 10
  42. LOCATE x, y: PRINT CHR$(254)
  43. COLOR 2
  44. LOCATE x, 80: PRINT "*"
  45. LOCATE x, 1: PRINT "*"
  46. LOCATE 25, y: PRINT "*"
  47. LOCATE 1, y: PRINT "*"
  48. COLOR 12
  49. LOCATE x1, y1: PRINT CHR$(234)
  50. LOOP
  51. UP:
  52. IF x = 1 THEN RETURN
  53. COLOR 0
  54. LOCATE x, y: PRINT CHR$(254)
  55. COLOR 0
  56. LOCATE x, 80: PRINT "*"
  57. LOCATE x, 1: PRINT "*"
  58. LOCATE 25, y: PRINT "*"
  59. LOCATE 1, y: PRINT "*"
  60. x = x - 1
  61. RETURN
  62. Left:
  63. IF y = 1 THEN RETURN
  64. COLOR 0
  65. LOCATE x, y: PRINT CHR$(254)
  66. COLOR 0
  67. LOCATE x, 80: PRINT "*"
  68. LOCATE x, 1: PRINT "*"
  69. LOCATE 25, y: PRINT "*"
  70. LOCATE 1, y: PRINT "*"
  71. y = y - 1
  72. RETURN
  73. RIGHT:
  74. IF y = 80 THEN RETURN
  75. COLOR 0
  76. LOCATE x, y: PRINT CHR$(254)
  77. COLOR 0
  78. LOCATE x, 80: PRINT "*"
  79. LOCATE x, 1: PRINT "*"
  80. LOCATE 25, y: PRINT "*"
  81. LOCATE 1, y: PRINT "*"
  82. y = y + 1
  83. RETURN
  84. DOWN:
  85. IF x = 25 THEN RETURN
  86. COLOR 0
  87. LOCATE x, y: PRINT CHR$(254)
  88. COLOR 0
  89. LOCATE x, 80: PRINT "*"
  90. LOCATE x, 1: PRINT "*"
  91. LOCATE 25, y: PRINT "*"
  92. LOCATE 1, y: PRINT "*"
  93. x = x + 1
  94. RETURN
  95. enem:
  96. RANDOMIZE TIMER
  97. COLOR 0
  98. LOCATE x1, y1: PRINT CHR$(234)
  99. x1 = INT(RND * 23) + 2
  100. y1 = INT(RND * 78) + 2
  101. delay = 0
  102. points = points - 2
  103. RETURN
  104. shoot:
  105. IF x = x1 AND y = y1 THEN GOTO 120 ELSE points = points - 1: RETURN
  106. 120
  107. points = points + 4
  108. FOR snd = 440 TO 447
  109. SOUND snd, snd / 1000
  110. NEXT snd
  111. GOSUB enem
  112. RETURN
  113. 9999
  114. GOSUB register
  115. register:
  116. CLS
  117. COLOR 7
  118. PRINT "TwinAction Software hopes you enjoyed this game."
  119. PRINT "Please contact us for registration information."
  120. PRINT "Our information is below!"
  121. PRINT
  122. PRINT
  123. PRINT "                 TwinAction Software"
  124. PRINT "                 TwinAction@hotmail.com"
  125. PRINT "                 http://www.angelfire.com/md/TwinAction"
  126. SLEEP 4
  127. SYSTEM
  128.  
  129.