home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1993 #2 / Image.iso / games1 / batwar.zip / BATWAR3.BAS < prev    next >
BASIC Source File  |  1993-06-14  |  65KB  |  1,485 lines

  1. DECLARE SUB intro ()
  2. DECLARE SUB SparklePause ()
  3. DECLARE SUB Erink ()
  4. DECLARE SUB Slime ()
  5. DECLARE SUB mountain ()
  6. DECLARE SUB town ()
  7. 1 CLS
  8. intro
  9. PRINT "     Press enter to play or enter code to continue"
  10. INPUT n$
  11. IF n$ = "Jurassic Park" THEN 2000
  12. 842 PRINT "                                                               "
  13. PRINT "                          ___                                    "
  14. PRINT "                    /--/\(0 0)                                   "
  15. PRINT "                   /   / \ ^ )                                   "
  16. PRINT "                  /    /* \__)                                   "
  17. PRINT "                 /__   /___\[                                 "
  18. PRINT "                 (  )  /\   [   /                             "
  19. PRINT "                (    ) / \__[__/                                "
  20. PRINT "               [      ]/    [                                    "
  21. PRINT "                (    )     / \                                   "
  22. PRINT "                 (__)     /   \                                  "
  23. PLAY "AAAABBBCDE"
  24. PRINT " "
  25. PRINT "Press 1 to continue"
  26. INPUT a
  27. IF a = 1 THEN 843
  28. END
  29. 843 PRINT "Press 1 to attack Elliott"
  30. PRINT "Press 2 to talk to Elliott"
  31. PRINT "Press 3 to run"
  32. INPUT a
  33. IF a = 1 THEN 844
  34. IF a = 2 THEN 850
  35. IF a = 3 THEN 847
  36. 844 PRINT "     You decide to attack Elliott right away......"
  37. PRINT "Press 1 to continue"
  38. INPUT a
  39. IF a = 1 THEN 845
  40. END
  41. 845 PRINT "     Before your sword hits Elliott shoots you, and you die."
  42. PRINT "Press 1 to continue"
  43. INPUT a
  44. IF a = 1 THEN 846
  45. END
  46. 846 CLS
  47. PRINT "                                                             "
  48. PRINT "                                  __________                     "
  49. PRINT "                                  [         \                   "
  50. PRINT "                                  ---------\ \                  "
  51. PRINT "                                            \/                   "
  52. PRINT "                                                                 "
  53. CLS
  54. PRINT "                                                             "
  55. PRINT "                                  __________                     "
  56. PRINT "                                 @[         \                   "
  57. PRINT "                                  ---------\ \                  "
  58. PRINT "                                            \/                   "
  59. PRINT "                                                                 "
  60. CLS
  61. PRINT "                                                             "
  62. PRINT "                                 /__________                     "
  63. PRINT "                                @-[         \                   "
  64. PRINT "                                 \---------\ \                  "
  65. PRINT "                                            \/                   "
  66. PRINT "                                                                 "
  67. CLS
  68. PRINT "                                  /                          "
  69. PRINT "                                 /__________                     "
  70. PRINT "                               @--[         \                   "
  71. PRINT "                                 \---------\ \                  "
  72. PRINT "                                  \         \/                   "
  73. PRINT "                                                                 "
  74. CLS
  75. PRINT "                                  /                          "
  76. PRINT "                                  __________                     "
  77. PRINT "                              @---[         \                   "
  78. PRINT "                                  ---------\ \                  "
  79. PRINT "                                  \         \/                   "
  80. PRINT "                                                                 "
  81. CLS
  82. PRINT "                                                            "
  83. PRINT "                                  __________                     "
  84. PRINT "                             @--- [         \                   "
  85. PRINT "                                  ---------\ \                  "
  86. PRINT "                                            \/                   "
  87. PRINT "                                                                 "
  88. CLS
  89. PRINT "                                                            "
  90. PRINT "                                  __________                     "
  91. PRINT "                            @--   [         \                   "
  92. PRINT "                                  ---------\ \                  "
  93. PRINT "                                            \/                   "
  94. PRINT "                                                                 "
  95. CLS
  96. PRINT "                                                            "
  97. PRINT "                                  __________                     "
  98. PRINT "                           @-     [         \                   "
  99. PRINT "                                  ---------\ \                  "
  100. PRINT "                                            \/                   "
  101. PRINT "                                                                 "
  102. CLS
  103. PRINT "                                                            "
  104. PRINT "                                  __________                     "
  105. PRINT "                          @       [         \                   "
  106. PRINT "                                  ---------\ \                  "
  107. PRINT "                                            \/                   "
  108. PRINT "                                                                 "
  109. CLS
  110. PRINT "                                                            "
  111. PRINT "                                  __________                     "
  112. PRINT "                         @        [         \                   "
  113. PRINT "                                  ---------\ \                  "
  114. PRINT "                                            \/                   "
  115. PRINT "                                                                 "
  116. CLS
  117. PRINT "                                                            "
  118. PRINT "                                  __________                     "
  119. PRINT "                        @         [         \                   "
  120. PRINT "                                  ---------\ \                  "
  121. PRINT "                                            \/                   "
  122. PRINT "                                                                 "
  123. SOUND 650, 25
  124. CLS
  125. PRINT "     _________                                                   "
  126. PRINT "     [        ]                                                  "
  127. PRINT "     [        ] - Your chest                                    "
  128. PRINT "     [        ]                                                  "
  129. PRINT "     [        ]                                                  "
  130. PRINT "     [        ]                                                  "
  131. PRINT "     [        ]                                                  "
  132. PRINT "     [________]                                                  "
  133. PRINT "                                                                 "
  134. CLS
  135. 1023 PRINT "     Press 1 to attack"
  136. INPUT a
  137. IF a = 1 THEN 1031
  138. END
  139. 1033 RANDOMIZE TIMER
  140. J% = INT(RND * 3) + 1
  141. LET z = b% + c% + d% + f% + g% + h% + J%
  142. PRINT "     You drained "; J%; " and "; z; " total HP."
  143. IF z > 15 THEN 2000
  144. IF z < 15 THEN BEEP
  145. PRINT "     Elliott attacks!"
  146. RANDOMIZE TIMER
  147. u% = INT(RND * 6) + 1
  148. LET x = a% + e% + i% + o% + y% + u%
  149. IF x > 20 THEN 680
  150. IF x < 20 THEN BEEP
  151. PRINT "     _________                                                   "
  152. PRINT "     [        ]                                                  "
  153. PRINT "     [        ] - Your chest                                    "
  154. PRINT "     [        ]                                                  "
  155. PRINT "     [        ]                                                  "
  156. PRINT "     [        ]                                                  "
  157. PRINT "     [        ]     @                                            "
  158. PRINT "     [________]                                                  "
  159. PRINT "                                                                 "
  160. CLS
  161. PRINT "     _________                                                   "
  162. PRINT "     [        ]                                                  "
  163. PRINT "     [        ] - Your chest                                    "
  164. PRINT "     [        ]                                                  "
  165. PRINT "     [        ]                                                  "
  166. PRINT "     [        ]    @                                             "
  167. PRINT "     [        ]                                                 "
  168. PRINT "     [________]                                                  "
  169. PRINT "                                                                 "
  170. CLS
  171. PRINT "     _________                                                   "
  172. PRINT "     [        ]                                                  "
  173. PRINT "     [        ] - Your chest                                    "
  174. PRINT "     [        ]                                                  "
  175. PRINT "     [        ]   @                                              "
  176. PRINT "     [        ]                                                 "
  177. PRINT "     [        ]                                                 "
  178. PRINT "     [________]                                                  "
  179. PRINT "                                                                 "
  180. CLS
  181. PRINT "     _________                                                   "
  182. PRINT "     [        ]                                                  "
  183. PRINT "     [        ] - Your chest                                    "
  184. PRINT "     [        ]  @                                               "
  185. PRINT "     [        ]                                                 "
  186. PRINT "     [        ]                                                 "
  187. PRINT "     [        ]                                                 "
  188. PRINT "     [________]                                                  "
  189. PRINT "                                                                 "
  190. CLS
  191. PRINT "     _________                                                   "
  192. PRINT "     [        ]                                                  "
  193. PRINT "     [        ] @                                   "
  194. PRINT "     [        ]                                                 "
  195. PRINT "     [        ]                                                 "
  196. PRINT "     [        ]                                                 "
  197. PRINT "     [        ]                                                 "
  198. PRINT "     [________]                                                  "
  199. PRINT "                                                                 "
  200. CLS
  201. PRINT "     _________                                                   "
  202. PRINT "     [        ]                                                  "
  203. PRINT "     [        ]@                                   "
  204. PRINT "     [        ]                                                 "
  205. PRINT "     [        ]                                                 "
  206. PRINT "     [        ]                                                 "
  207. PRINT "     [        ]                                                 "
  208. PRINT "     [________]                                                  "
  209. PRINT "                                                                 "
  210. CLS
  211. PRINT "     _________                                                   "
  212. PRINT "     [        ]                                                  "
  213. PRINT "     [        @                                   "
  214. PRINT "     [        ]                                                 "
  215. PRINT "     [        ]                                                 "
  216. PRINT "     [        ]                                                 "
  217. PRINT "     [        ]                                                 "
  218. PRINT "     [________]                                                  "
  219. PRINT "                                                                 "
  220. CLS
  221. PRINT "     _________                                                   "
  222. PRINT "     [        ]                                                  "
  223. PRINT "     [       @]                                   "
  224. PRINT "     [        ]                                                 "
  225. PRINT "     [        ]                                                 "
  226. PRINT "     [        ]                                                 "
  227. PRINT "     [        ]                                                 "
  228. PRINT "     [________]                                                  "
  229. PRINT "                                                                 "
  230. CLS
  231. PRINT "     _________                                                   "
  232. PRINT "     [      \ ]/                                                  "
  233. PRINT "     [       @]    - OUCH!!!!!                               "
  234. PRINT "     [      / ]\                                                 "
  235. PRINT "     [        ]                                                 "
  236. PRINT "     [        ]                                                 "
  237. PRINT "     [        ]                                                 "
  238. PRINT "     [________]                                                  "
  239. PRINT "                                                                 "
  240. SOUND 650, 25
  241. CLS
  242. PRINT "          _________                                                   "
  243. PRINT "          [        ]                                                  "
  244. PRINT "         /[       @]\                                  "
  245. PRINT "        / [        ] \                                               "
  246. PRINT "       / /[        ]\ \                                              "
  247. PRINT "       \/ [        ] \/                                              "
  248. PRINT "          [        ]                                                 "
  249. PRINT "          [________]                                                  "
  250. PRINT "                                                                 "
  251. CLS
  252. PRINT "          _________                                                   "
  253. PRINT "          [        ]                                                  "
  254. PRINT "         /[       @]\                                  "
  255. PRINT "        / [        ] \                                               "
  256. PRINT "        \/[        ]\/                                               "
  257. PRINT "          [        ]                                               "
  258. PRINT "          [        ]                                                 "
  259. PRINT "          [________]                                                  "
  260. PRINT "                                                                 "
  261. CLS
  262. PRINT "          _________                                                   "
  263. PRINT "          [        ]                                                  "
  264. PRINT "         /[       @]\                                  "
  265. PRINT "         \[        ]/                                               "
  266. PRINT "          [        ]                                               "
  267. PRINT "          [        ]                                               "
  268. PRINT "          [        ]                                                 "
  269. PRINT "          [________]                                                  "
  270. PRINT "                                                                 "
  271. CLS
  272. PRINT "          _________                                                   "
  273. PRINT "          [        ]                                                  "
  274. PRINT "          [       @]                                  "
  275. PRINT "          [        ]                                               "
  276. PRINT "          [        ]                                               "
  277. PRINT "          [        ]                                               "
  278. PRINT "          [        ]                                                 "
  279. PRINT "          [________]                                                  "
  280. PRINT "                                                                 "
  281. CLS
  282. PRINT "          _________                                                   "
  283. PRINT "          [        ]                                                  "
  284. PRINT "          [\      @]                                  "
  285. PRINT "          [/       ]                                               "
  286. PRINT "          [        ]                                               "
  287. PRINT "          [        ]                                               "
  288. PRINT "          [        ]                                                 "
  289. PRINT "          [________]                                                  "
  290. PRINT "                                                                 "
  291. CLS
  292. PRINT "          _________                                                   "
  293. PRINT "          [        ]                                                  "
  294. PRINT "          [__     @]                                  "
  295. PRINT "          [__]     ]                                               "
  296. PRINT "          [        ]                                               "
  297. PRINT "          [        ]                                               "
  298. PRINT "          [        ]                                                 "
  299. PRINT "          [________]                                                  "
  300. CLS
  301. PRINT "          _________                                                   "
  302. PRINT "          [        ]                                                  "
  303. PRINT "          [__     @]                                  "
  304. PRINT "          [__]     ]                                               "
  305. PRINT "          [        ]                                               "
  306. PRINT "          [        ]                                               "
  307. PRINT "          [        ]                                                 "
  308. PRINT "          [________]                                                  "
  309. CLS
  310. PRINT "          _________                                                   "
  311. PRINT "          [        ]                                                  "
  312. PRINT "          [___    @]                                  "
  313. PRINT "          [___]    ]                                               "
  314. PRINT "          [        ]                                               "
  315. PRINT "          [        ]                                               "
  316. PRINT "          [        ]                                                 "
  317. PRINT "          [________]                                                  "
  318. CLS
  319. PRINT "          _________                                                   "
  320. PRINT "          \[       \                                                   "
  321. PRINT "           \___    @\                                  "
  322. PRINT "            \__]     \                                               "
  323. PRINT "             \        \                                              "
  324. PRINT "              \        \                                             "
  325. PRINT "               \        \                                              "
  326. PRINT "                \________\                                              "
  327. CLS
  328. PRINT "                                                      "
  329. PRINT "              You are dead!!!                                        "
  330. PRINT "                                          "
  331. PRINT "                                                        "
  332. PRINT "                                                        "
  333. PRINT "                                                        "
  334. PRINT "                                                          "
  335. PRINT "                                                             "
  336. GOTO 680
  337. 847 PRINT "     You decide to run away."
  338. RANDOMIZE TIMER
  339. a% = INT(RND * 9) + 1
  340. IF a% > 8 THEN BEEP
  341. IF a% < 8 THEN 851
  342. 851 PRINT "     You don't make it!"
  343. GOTO 842
  344. PRINT "     You run away!"
  345. PRINT "Press 1 to go back into battle"
  346. PRINT "Press 2 to teleport to Erink's Cave"
  347. PRINT "Press 3 to teleport to Alexander's home"
  348. PRINT "Press 4 to teleport to Kinweke"
  349. INPUT a
  350. IF a = 1 THEN 842
  351. IF a = 2 THEN BEEP
  352. IF a = 3 THEN BEEP
  353. IF a = 4 THEN 848
  354. PRINT "     All around are the armies. There was no point in teleporting to "
  355. PRINT "anywhere around Ogausis. The armies instantly kill you. "
  356. GOTO 680
  357. 848 PRINT "     You teleport to Kinweke. You tell John what has happened."
  358. 849 PRINT "     'You better get back there and defend Ogausis,' he told you."
  359. PRINT "Press 1 to teleport to Ogausis"
  360. PRINT "Press 2 to stay here"
  361. INPUT a
  362. IF a = 2 THEN 849
  363. IF a = 1 THEN 842
  364. 850 PRINT "     'Why are you attackingt me?"; you; ask; Elliott.
  365. PRINT "     'You are the one most likely to destroy us. You are the one that "
  366. PRINT "must die first. I have heard of what you have done. "
  367. PRINT "     'Why don't you change sides? Together we would be unbeatable.'"
  368. PRINT "     'Naaaah,' said Elliott. 'Let's fight!'"
  369. PRINT "     You encounter the Elliott"
  370. PRINT "Press 1 to continue"
  371. INPUT a
  372. IF a = 1 THEN 855
  373. END
  374. 855 PRINT "Press 1 to attack"
  375. INPUT a
  376. IF a = 1 THEN 856
  377. END
  378. 856 CLS
  379. PRINT "                                               /\                "
  380. PRINT "                                              / /                "
  381. PRINT "                               /-------------/ /-----            "
  382. PRINT "                              <                     ]            "
  383. PRINT "                               \-------------\ \-----            "
  384. PRINT "                                              \ \                "
  385. PRINT "                                               \/                "
  386. CLS
  387. PRINT "                                             / /                "
  388. PRINT "                              /-------------/ /-----            "
  389. PRINT "                             <                     ]            "
  390. PRINT "                              \-------------\ \-----            "
  391. PRINT "                                             \ \                "
  392. PRINT "                                              \/                "
  393. CLS
  394. PRINT "                                            / /                "
  395. PRINT "                             /-------------/ /-----            "
  396. PRINT "                            <                     ]            "
  397. PRINT "                             \-------------\ \-----            "
  398. PRINT "                                            \ \                "
  399. PRINT "                                             \/                "
  400. CLS
  401. PRINT "                                           / /                "
  402. PRINT "                            /-------------/ /-----            "
  403. PRINT "                           <                     ]            "
  404. PRINT "                            \-------------\ \-----            "
  405. PRINT "                                           \ \                "
  406. PRINT "                                            \/                "
  407. CLS
  408. PRINT "                                          / /                "
  409. PRINT "                           /-------------/ /-----            "
  410. PRINT "                          <                     ]            "
  411. PRINT "                           \-------------\ \-----            "
  412. PRINT "                                          \ \                "
  413. PRINT "                                           \/                "
  414. CLS
  415. PRINT "                                         / /                "
  416. PRINT "                          /-------------/ /-----            "
  417. PRINT "                         <                     ]            "
  418. PRINT "                          \-------------\ \-----            "
  419. PRINT "                                         \ \                "
  420. PRINT "                                          \/                "
  421. CLS
  422. PRINT "                                        / /                "
  423. PRINT "                         /-------------/ /-----            "
  424. PRINT "                        <                     ]            "
  425. PRINT "                         \-------------\ \-----            "
  426. PRINT "                                        \ \                "
  427. PRINT "                                         \/                "
  428. CLS
  429. PRINT "                                       / /                "
  430. PRINT "                        /-------------/ /-----            "
  431. PRINT "                       <                     ]            "
  432. PRINT "                        \-------------\ \-----            "
  433. PRINT "                                       \ \                "
  434. PRINT "                                        \/                "
  435. CLS
  436. PRINT "                                      / /                "
  437. PRINT "                       /-------------/ /-----            "
  438. PRINT "                      <                     ]            "
  439. PRINT "                       \-------------\ \-----            "
  440. PRINT "                                      \ \                "
  441. PRINT "                                       \/                "
  442. CLS
  443. PRINT "                                     / /                "
  444. PRINT "                      /-------------/ /-----            "
  445. PRINT "                     <                     ]            "
  446. PRINT "                      \-------------\ \-----            "
  447. PRINT "                                     \ \                "
  448. PRINT "                                      \/                "
  449. CLS
  450. PRINT "                                    / /                "
  451. PRINT "                     /-------------/ /-----            "
  452. PRINT "                    <                     ]            "
  453. PRINT "                     \-------------\ \-----            "
  454. PRINT "                                    \ \                "
  455. PRINT "                                     \/                "
  456. CLS
  457. PRINT "                                   / /                "
  458. PRINT "                    /-------------/ /-----            "
  459. PRINT "                   <                     ]            "
  460. PRINT "                    \-------------\ \-----            "
  461. PRINT "                                   \ \                "
  462. PRINT "                                    \/                "
  463. CLS
  464. PRINT "                                  / /                "
  465. PRINT "                   /-------------/ /-----            "
  466. PRINT "                  <                     ]            "
  467. PRINT "                   \-------------\ \-----            "
  468. PRINT "                                  \ \                "
  469. PRINT "                                   \/                "
  470. CLS
  471. PRINT "                                 / /                "
  472. PRINT "                  /-------------/ /-----            "
  473. PRINT "                 <                     ]            "
  474. PRINT "                  \-------------\ \-----            "
  475. PRINT "                                 \ \                "
  476. PRINT "                                  \/                "
  477. CLS
  478. SOUND 650, 25
  479. RANDOMIZE TIMER
  480. b% = INT(RND * 3) + 1
  481. PRINT "    You drained "; b%; " off of Eliott so far."
  482. PRINT "    Elliott attacks with shot gun!"
  483. PRINT "    Press 1 to continue"
  484. INPUT a
  485. IF a = 1 THEN 560
  486. END
  487. 560 CLS
  488. PRINT "                                                             "
  489. PRINT "                                  __________                     "
  490. PRINT "                                  [         \                   "
  491. PRINT "                                  ---------\ \                  "
  492. PRINT "                                            \/                   "
  493. PRINT "                                                                 "
  494. CLS
  495. PRINT "                                                             "
  496. PRINT "                                  __________                     "
  497. PRINT "                                 @[         \                   "
  498. PRINT "                                  ---------\ \                  "
  499. PRINT "                                            \/                   "
  500. PRINT "                                                                 "
  501. CLS
  502. PRINT "                                                             "
  503. PRINT "                                 /__________                     "
  504. PRINT "                                @-[         \                   "
  505. PRINT "                                 \---------\ \                  "
  506. PRINT "                                            \/                   "
  507. PRINT "                                                                 "
  508. CLS
  509. PRINT "                                  /                          "
  510. PRINT "                                 /__________                     "
  511. PRINT "                               @--[         \                   "
  512. PRINT "                                 \---------\ \                  "
  513. PRINT "                                  \         \/                   "
  514. PRINT "                                                                 "
  515. CLS
  516. PRINT "                                  /                          "
  517. PRINT "                                  __________                     "
  518. PRINT "                              @---[         \                   "
  519. PRINT "                                  ---------\ \                  "
  520. PRINT "                                  \         \/                   "
  521. PRINT "                                                                 "
  522. CLS
  523. PRINT "                                                            "
  524. PRINT "                                  __________                     "
  525. PRINT "                             @--- [         \                   "
  526. PRINT "                                  ---------\ \                  "
  527. PRINT "                                            \/                   "
  528. PRINT "                                                                 "
  529. CLS
  530. PRINT "                                                            "
  531. PRINT "                                  __________                     "
  532. PRINT "                            @--   [         \                   "
  533. PRINT "                                  ---------\ \                  "
  534. PRINT "                                            \/                   "
  535. PRINT "                                                                 "
  536. CLS
  537. PRINT "                                                            "
  538. PRINT "                                  __________                     "
  539. PRINT "                           @-     [         \                   "
  540. PRINT "                                  ---------\ \                  "
  541. PRINT "                                            \/                   "
  542. PRINT "                                                                 "
  543. CLS
  544. PRINT "                                                            "
  545. PRINT "                                  __________                     "
  546. PRINT "                          @       [         \                   "
  547. PRINT "                                  ---------\ \                  "
  548. PRINT "                                            \/                   "
  549. PRINT "                                                                 "
  550. CLS
  551. PRINT "                                                            "
  552. PRINT "                                  __________                     "
  553. PRINT "                         @        [         \                   "
  554. PRINT "                                  ---------\ \                  "
  555. PRINT "                                            \/                   "
  556. PRINT "                                                                 "
  557. CLS
  558. PRINT "                                                            "
  559. PRINT "                                  __________                     "
  560. PRINT "                        @         [         \                   "
  561. PRINT "                                  ---------\ \                  "
  562. PRINT "                                            \/                   "
  563. PRINT "                                                                 "
  564. CLS
  565. PRINT "                                                            "
  566. PRINT "                                  __________                     "
  567. PRINT "                       @         @[         \                   "
  568. PRINT "                                  ---------\ \                  "
  569. PRINT "                                            \/                   "
  570. PRINT "                                                                 "
  571. CLS
  572. PRINT "                                                            "
  573. PRINT "                                 /__________                     "
  574. PRINT "                      @         @-[         \                   "
  575. PRINT "                                 \---------\ \                  "
  576. PRINT "                                            \/                   "
  577. PRINT "                                                                 "
  578. CLS
  579. PRINT "                                  /                          "
  580. PRINT "                                 /__________                     "
  581. PRINT "                     @         @--[         \                   "
  582. PRINT "                                 \---------\ \                  "
  583. PRINT "                                  \         \/                   "
  584. PRINT "                                                                 "
  585. CLS
  586. PRINT "                                  /                          "
  587. PRINT "                                  __________                     "
  588. PRINT "                    @         @---[         \                   "
  589. PRINT "                                  ---------\ \                  "
  590. PRINT "                                  \         \/                   "
  591. PRINT "                                                                 "
  592. CLS
  593. PRINT "                                                             "
  594. PRINT "                                  __________                     "
  595. PRINT "                   @         @--  [         \                   "
  596. PRINT "                                  ---------\ \                  "
  597. PRINT "                                            \/                   "
  598. PRINT "                                                                 "
  599. CLS
  600. PRINT "                                                             "
  601. PRINT "                                  __________                     "
  602. PRINT "                  @         @-    [         \                   "
  603. PRINT "                                  ---------\ \                  "
  604. PRINT "                                            \/                   "
  605. PRINT "                                                                 "
  606. CLS
  607. PRINT "                                                             "
  608. PRINT "                                  __________                     "
  609. PRINT "                 @         @      [         \                   "
  610. PRINT "                                  ---------\ \                  "
  611. PRINT "                                            \/                   "
  612. PRINT "                                                                 "
  613. CLS
  614. PRINT "                                                             "
  615. PRINT "                                  __________                     "
  616. PRINT "                @         @       [         \                   "
  617. PRINT "                                  ---------\ \                  "
  618. PRINT "                                            \/                   "
  619. PRINT "                                                                 "
  620. CLS
  621. PRINT "                                                             "
  622. PRINT "                                  __________                     "
  623. PRINT "               @         @        [         \                   "
  624. PRINT "                                  ---------\ \                  "
  625. PRINT "                                            \/                   "
  626. PRINT "                                                                 "
  627. CLS
  628. PRINT "                                                             "
  629. PRINT "                                  __________                     "
  630. PRINT "              @         @         [         \                   "
  631. PRINT "                                  ---------\ \                  "
  632. PRINT "                                            \/                   "
  633. PRINT "                                                                 "
  634. CLS
  635. PRINT "                                                             "
  636. PRINT "                                  __________                     "
  637. PRINT "             @         @          [         \                   "
  638. PRINT "                                  ---------\ \                  "
  639. PRINT "                                            \/                   "
  640. PRINT "                                                                 "
  641. CLS
  642. PRINT "                                                             "
  643. PRINT "                                  __________                     "
  644. PRINT "            @         @           [         \                   "
  645. PRINT "                                  ---------\ \                  "
  646. PRINT "                                            \/                   "
  647. PRINT "                                                                 "
  648. CLS
  649. PRINT "                                                             "
  650. PRINT "                                  __________                     "
  651. PRINT "           @         @            [         \                   "
  652. PRINT "                                  ---------\ \                  "
  653. PRINT "                                            \/                   "
  654. PRINT "                                                                 "
  655. CLS
  656. PRINT "                                                             "
  657. PRINT "                                  __________                     "
  658. PRINT "          @         @             [         \                   "
  659. PRINT "                                  ---------\ \                  "
  660. PRINT "                                            \/                   "
  661. PRINT "                                                                 "
  662. CLS
  663. PRINT "                                                             "
  664. PRINT "                                  __________                     "
  665. PRINT "         @         @              [         \                   "
  666. PRINT "                                  ---------\ \                  "
  667. PRINT "                                            \/                   "
  668. PRINT "                                                                 "
  669. CLS
  670. PRINT "                                                             "
  671. PRINT "                                  __________                     "
  672. PRINT "        @         @               [         \                   "
  673. PRINT "                                  ---------\ \                  "
  674. PRINT "                                            \/                   "
  675. PRINT "                                                                 "
  676. CLS
  677. PRINT "                                                             "
  678. PRINT "                                  __________                     "
  679. PRINT "       @         @                [         \                   "
  680. PRINT "                                  ---------\ \                  "
  681. PRINT "                                            \/                   "
  682. PRINT "                                                                 "
  683. CLS
  684. PRINT "                                                             "
  685. PRINT "                                  __________                     "
  686. PRINT "      @         @                 [         \                   "
  687. PRINT "                                  ---------\ \                  "
  688. PRINT "                                            \/                   "
  689. PRINT "                                                                 "
  690. CLS
  691. PRINT "                                                             "
  692. PRINT "                                  __________                     "
  693. PRINT "     @         @                  [         \                   "
  694. PRINT "                                  ---------\ \                  "
  695. PRINT "                                            \/                   "
  696. PRINT "                                                                 "
  697. CLS
  698. PRINT "                                                             "
  699. PRINT "                                  __________                     "
  700. PRINT "    @         @                   [         \                   "
  701. PRINT "                                  ---------\ \                  "
  702. PRINT "                                            \/                   "
  703. PRINT "                                                                 "
  704. CLS
  705. PRINT "                                                             "
  706. PRINT "                                  __________                     "
  707. PRINT "   @         @                    [         \                   "
  708. PRINT "                                  ---------\ \                  "
  709. PRINT "                                            \/                   "
  710. PRINT "                                                                 "
  711. CLS
  712. PRINT "                                                             "
  713. PRINT "                                  __________                     "
  714. PRINT "  @         @                     [         \                   "
  715. PRINT "                                  ---------\ \                  "
  716. PRINT "                                            \/                   "
  717. PRINT "                                                                 "
  718. CLS
  719. PRINT "                                                             "
  720. PRINT "                                  __________                     "
  721. PRINT " @         @                      [         \                   "
  722. PRINT "                                  ---------\ \                  "
  723. PRINT "                                            \/                   "
  724. PRINT "                                                                 "
  725. CLS
  726. PRINT "                                                             "
  727. PRINT "                                  __________                     "
  728. PRINT "@         @                       [         \                   "
  729. PRINT "                                  ---------\ \                  "
  730. PRINT "                                            \/                   "
  731. PRINT "                                                                 "
  732. CLS
  733. PRINT "                                                             "
  734. PRINT "                                  __________                     "
  735. PRINT "         @                        [         \                   "
  736. PRINT "                                  ---------\ \                  "
  737. PRINT "                                            \/                   "
  738. PRINT "                                                                 "
  739. CLS
  740. PRINT "                                                             "
  741. PRINT "                                  __________                     "
  742. PRINT "        @                         [         \                   "
  743. PRINT "                                  ---------\ \                  "
  744. PRINT "                                            \/                   "
  745. PRINT "                                                                 "
  746. SOUND 650, 25
  747. CLS
  748. RANDOMIZE TIMER
  749. a% = INT(RND * 6) + 1
  750. PRINT "     Elliott drained "; a%; " so far."
  751. PRINT "Press 1 to attack"
  752. INPUT a
  753. IF a = 1 THEN 561
  754. END
  755. 561 RANDOMIZE TIMER
  756. c% = INT(RND * 3) + 1
  757. LET z = b% + c%
  758. PRINT "     You drained "; c%; " and "; z; " total."
  759. PRINT "     Elliott attacks with shotgun!"
  760. RANDOMIZE TIMER
  761. e% = INT(RND * 6) + 1
  762. LET x = e% + a%
  763. PRINT "     Elliott drained "; e%; " and "; x; " so far."
  764. PRINT "     Press 1 to attack"
  765. INPUT a
  766. IF a = 1 THEN 663
  767. END
  768. 663 PRINT "     You attack!"
  769. RANDOMIZE TIMER
  770. d% = INT(RND * 3) + 1
  771. LET z = b% + c% + d%
  772. PRINT "     You drained "; d%; " and "; z; " HP so far."
  773. PRINT "     Elliott attacks!"
  774. RANDOMIZE TIMER
  775. i% = INT(RND * 6) + 1
  776. LET x = a% + e% + i%
  777. PRINT "     Elliott drained "; i%; " and "; x; " HP so far."
  778. PRINT "Press 1 to attack"
  779. INPUT a
  780. IF a = 1 THEN 664
  781. END
  782. 664 PRINT "     You attack!"
  783. RANDOMIZE TIMER
  784. f% = INT(RND * 3) + 1
  785. LET z = b% + c% + d% + f%
  786. PRINT "     You drained "; f%; " and "; z; " HP so far."
  787. IF z > 15 THEN 2000
  788. IF z < 15 THEN BEEP
  789. PRINT "     Elliott attacks with shotgun!"
  790. GOTO 1000
  791. 680 SCREEN 12
  792. 690 PRINT "*************************************************************"
  793. 700 PRINT "                                                             "
  794. 710 PRINT "                                                             "
  795. 720 PRINT "                         ____                                "
  796. 730 PRINT "                        /    \              /\               "
  797. 740 PRINT "   []                  /      \            /  \              "
  798. 750 PRINT " __[]__               [        ]          /    \             "
  799. 760 PRINT "[__  __]              [  R.I.P ]         /    /              "
  800. 770 PRINT "   []                 [        ]        /    /               "
  801. 780 PRINT "\/\[]/\/\/\/\         [WARRIOR ]       /    /                "
  802. 790 PRINT "/\/\/\/\              [        ]    \/\    /                 "
  803. 800 PRINT "                      [        ]     /\/\/\/                 "
  804. 810 PRINT "/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/"
  805. 820 PLAY "CCDCECDDECD"
  806. 830 END
  807. 1000 RANDOMIZE TIMER
  808. o% = INT(RND * 6) + 1
  809. LET x = a% + e% + i% + o%
  810. PRINT "     Elliott drained "; o%; " and "; x; " so far."
  811. IF x > 20 THEN 1010
  812. IF x < 20 THEN 1020
  813. 1010 PRINT "     Elliott kills you!"
  814. GOTO 680
  815.  
  816. 1020 PRINT "     Press 1 to attack"
  817. INPUT a
  818. IF a = 1 THEN 1030
  819. END
  820. 1030 RANDOMIZE TIMER
  821. h% = INT(RND * 5) + 1
  822. LET z = b% + c% + d% + f% + g% + h%
  823. PRINT "     You drained "; h%; " and "; z; " total HP."
  824. IF z > 15 THEN 2000
  825. IF z < 15 THEN BEEP
  826. PRINT "     Elliott attacks!"
  827. RANDOMIZE TIMER
  828. y% = INT(RND * 6) + 1
  829. LET x = a% + e% + i% + o% + y%
  830. IF x > 20 THEN 680
  831. IF x < 20 THEN BEEP
  832. PRINT "     Elliott drained "; y%; " and "; x; " total HP."
  833. 1021 PRINT "     Press 1 to attack"
  834. INPUT a
  835. IF a = 1 THEN 1031
  836. END
  837. 1031 RANDOMIZE TIMER
  838. J% = INT(RND * 5) + 1
  839. LET z = b% + c% + d% + f% + g% + h% + J%
  840. PRINT "     You drained "; J%; " and "; z; " total HP."
  841. IF z > 15 THEN 2000
  842. IF z < 15 THEN BEEP
  843. PRINT "     Elliott attacks!"
  844. RANDOMIZE TIMER
  845. u% = INT(RND * 4) + 1
  846. LET x = a% + e% + i% + o% + y% + u%
  847. PRINT "     Elliott drained "; u%; " and "; x; " total"
  848.  
  849. IF x > 20 THEN 680
  850. IF x < 20 THEN BEEP
  851. 1022 PRINT "     Press 1 to attack"
  852. INPUT a
  853. IF a = 1 THEN 1031
  854. END
  855. 1032 RANDOMIZE TIMER
  856. K% = INT(RND * 6) + 1
  857. LET z = b% + c% + d% + f% + g% + h% + J% + K%
  858. PRINT "     You drained "; K%; " and "; z; " total HP."
  859. IF z > 15 THEN 2000
  860. IF z < 15 THEN BEEP
  861. PRINT "     Elliott attacks!"
  862. RANDOMIZE TIMER
  863. z% = INT(RND * 6) + 1
  864. LET x = a% + e% + i% + o% + y% + u% + z%
  865. IF x > 20 THEN 680
  866. IF x < 20 THEN BEEP
  867.  
  868.  
  869.  
  870.  
  871.  
  872. 2000 PRINT "     Elliott seems really worn out! Good job! He tells his army"
  873. PRINT "to go back to their secret base so he can get medical treatment."
  874. PRINT "     Press any key to continue"
  875. INPUT a
  876. PRINT "     Your password is 'Jurassic Park'"
  877. PRINT "Press a key to continue"
  878. INPUT a
  879. PRINT "     After the battle you help clean up the town. You have a dinner at"
  880. PRINT "Chuck's. Afterwards he says that Alex would like to talk to you."
  881. PRINT "Press any key to comtinue"
  882. INPUT a
  883. 2001 PRINT "Press 1 to teleport to Erink's Cave"
  884. PRINT "Press 2 to teleport to Alex's home"
  885. PRINT "Press 3 to go into Ogausis  "
  886. PRINT "Press 4 to teleport to Kinweke"
  887. INPUT a
  888. IF a = 1 THEN 2010
  889. IF a = 2 THEN 2040
  890. IF a = 3 THEN 2030
  891. IF a = 4 THEN 2020
  892. 2010 PRINT "    You teleport to Erink's cave. You see nothing new except for "
  893. PRINT "the remains of the battle."
  894. PRINT "Press 1 to teleport to Alex's home"
  895. PRINT "Press 2 teleport to Ogausis  "
  896. PRINT "Press 3 to teleport to Kinweke"
  897. INPUT a
  898. IF a = 1 THEN 2040
  899. IF a = 2 THEN 2001
  900. IF a = 3 THEN 2020
  901. 2020 PRINT "    You decide to teleport to Kinweke. You tell John about the"
  902. PRINT "battle. He tells you to see Alex."
  903. PRINT "Press 1 teleport to Ogausis  "
  904. INPUT a
  905. IF a = 1 THEN 2001
  906. 2030 PRINT "    You go into Ogausis. You get a warm welcome. You see that the"
  907. PRINT "town is doing well. You eat & sleep at Chuck's house."
  908. GOTO 2001
  909. 2040 PRINT "    You decide to teleport to Alex's home."
  910. PRINT "     'Hello, "; a$; ". I have been expecting you. Please come in.'"
  911. PRINT "     You go into the hut. 'What do you have to tell me?' you ask."
  912. PRINT "     'It is almost time to wipe out all of the evil in this land. They"
  913. PRINT "have their base on Mt. Pakyu. Ask for directions in the town Hojay. It"
  914. PRINT "is on the other side of the mountains."
  915. PRINT "     'I will go there right away,' you tell him."
  916. PRINT "     'I will teleport you there. I have been there and as soon as you"
  917. PRINT "get there you will be able to teleport there, too."
  918. PRINT "Press a key to continue"
  919. INPUT a
  920. PRINT "     Before you know it you are in the town, Hojay."
  921. PRINT "     'Who are you,' a vilager asks."
  922. PRINT "     'My name is, "; a$; ". I have come to ask directions to Mr. Pakyu."
  923. PRINT "     'I know you!' he says excidenly. 'Come right this way. Talk to the"
  924. PRINT "mayor."
  925. PRINT " "
  926. PRINT "     'Hello. My name is "; a$; "."
  927. PRINT "     'I know your name. Mine is Mayor Jakeup. Take a seat."
  928. PRINT "     You sit down. The chair seems really soft. 'Can you tell me how"
  929. PRINT "to get t--'"
  930. PRINT "     'Mt. Pakyu,' Jakeup interrupts. 'It is to the North. All of the "
  931. PRINT "evil is concentrated there. It will take alot to make it there."
  932. PRINT "     'Thanks alot. I will be on my way!'"
  933. PRINT "     'Be carefull. You are always welcome in this town.'"
  934. PRINT "Press a key to continue"
  935. INPUT a
  936. town
  937. mountain
  938.  
  939. SUB Elliott
  940.  
  941. END SUB
  942.  
  943. SUB Erink
  944. 4210 PRINT "You encounter the Erink!"
  945. 4220 PLAY "DDDEFFFBCDE"
  946. 4230 SCREEN 12
  947. 4240 PRINT "                                                            "
  948. 4250 PRINT "                  ____                                      "
  949. 4260 PRINT "                 /. . \                                     "
  950. 4270 PRINT "                /      \                                    "
  951. 4280 PRINT "               [        ]                                   "
  952. 4290 PRINT "               [ @@@@@@ ]                                   "
  953. 4300 PRINT "                \ @  @ /                                    "
  954. 4310 PRINT "              /\ \____/ /\                                  "
  955. 4320 PRINT "               \\  II  //                                   "
  956. 4330 PRINT "                \\_II_//                                    "
  957. 4340 PRINT "                [      ]                                    "
  958. 4350 PRINT "                [__  __]                                    "
  959. 4360 PRINT "                  //\\                                      "
  960. 4370 PRINT "                 / /\ \                                     "
  961. 4380 PRINT "                /_/  \_\                                    "
  962. 4390 PRINT " "
  963. 4400 PRINT "Press 1 to attack"
  964. 4410 INPUT a
  965. 4420 IF a = 1 THEN BEEP
  966. 4430 PRINT "Before you attack Erink casts 'Weaken Foe.' You now have 15 HP "
  967. 4440 PRINT "left."
  968. 4450 PRINT "Press 1 to fight"
  969. 4451 INPUT a
  970. 4552 IF a = 1 THEN BEEP
  971. 4460 PRINT "You attack!"
  972. 4470 RANDOMIZE TIMER
  973. 4480 b% = INT(RND * 4) + 1
  974. 4490 PRINT "You drained "; b%; " total HP so far"
  975. 4500 PRINT "The Erink attacks!"
  976. 4510 RANDOMIZE TIMER
  977. 4520 a% = INT(RND * 6) + 1
  978. 4530 PRINT "Erink drained "; a%; " HP off of you!"
  979. 4540 PRINT "You have "; 15 - a%; " HP left"
  980. 4550 PRINT "Press 1 to attack"
  981. 4560 INPUT a
  982. 4570 IF a = 1 THEN BEEP
  983. 4580 PRINT "You attack!"
  984. 4590 RANDOMIZE TIMER
  985. 4600 c% = INT(RND * 5) + 1
  986. 4610 LET a = b% + c%
  987. 4620 PRINT "You drained "; a; " total HP so far"
  988. 4630 PRINT "Erink attacks!"
  989. 4640 RANDOMIZE TIMER
  990. 4650 e = INT(RND * 6) + 1
  991. 4660 LET e = a% + e%
  992. 4661 LET d = 15 - e
  993. 4670 PRINT "Erink drained "; e; " HP so far"
  994. 4680 PRINT "You have "; d; " total HP left"
  995. 4690 PRINT "Press 1 to attack"
  996. 4700 INPUT a
  997. 4710 IF a = 1 THEN BEEP
  998. 4720 PRINT "You attack!"
  999. 4730 RANDOMIZE TIMER
  1000. 4740 LET d% = INT(RND * 4) + 1
  1001. 4750 LET a = b% + c% + d%
  1002. 4760 PRINT "You drained "; a; " total HP so far"
  1003. 4770 IF a < 12 THEN BEEP
  1004. 4780 IF a > 11 THEN 5140
  1005. 4790 PRINT "Erink atacks!"
  1006. 4800 RANDOMIZE TIMER
  1007. 4810 i% = INT(RND * 6) + 1
  1008. 4820 LET e = a% + e% + i%
  1009. 4821 LET d = 15 - e
  1010. 4830 PRINT "Erink drained "; e; " total HP so far"
  1011. 4831 IF d > 14 THEN BEEP
  1012. 4832 IF d < 15 THEN 4840
  1013. 4833 PRINT "Erink has killed you!"
  1014. 4834 END
  1015. 4840 PRINT "You have "; d; " total HP left"
  1016. 4850 PRINT "Press 1 to attack"
  1017. 4860 INPUT a
  1018. 4870 IF a = 1 THEN BEEP
  1019. 4880 PRINT "You attack!"
  1020. 4890 RANDOMIZE TIMER
  1021. 4900 LET f% = INT(RND * 4) + 1
  1022. 4910 LET a = b% + c% + d% + f%
  1023. 4920 PRINT "You drained "; a; " total HP so far"
  1024. 4930 IF a > 11 THEN 5140
  1025. 4940 IF a < 12 THEN BEEP
  1026. 4950 PRINT "Erink attacks!"
  1027. 4960 RANDOMIZE TIMER
  1028. 4970 LET o% = INT(RND * 7) + 1
  1029. 4980 LET e = a% + e% + i% + o%
  1030. 4990 PRINT "Erink drained "; e; " total HP off of you so far"
  1031. LET d = 15 - e
  1032. 5010 IF d > 11 THEN 4833
  1033. 5020 IF d < 12 THEN BEEP
  1034. 5030 PRINT "Press 1 to attack"
  1035. 5040 INPUT a
  1036. 5050 IF a = 1 THEN BEEP
  1037. 5060 PRINT "You attack!"
  1038. 5070 RANDOMIZE TIMER
  1039. 5080 g% = INT(RND * 5) + 1
  1040. 5090 LET a = b% + c% + d% + f% + g%
  1041. 5100 IF a > 11 THEN 5140
  1042. 5110 IF a < 12 THEN BEEP
  1043. 5111 PRINT "You drained "; a; "total HP so far"
  1044. 5120 PRINT "Erink turns you to stone! You are dead (nice try, though!)."
  1045. 5130 END
  1046. 5140 PRINT "You finally defeated the Erink!"
  1047. 5150 SOUND 510, 10
  1048. 5160 SOUND 520, 10
  1049. 5170 SOUND 530, 10
  1050. 5180 SOUND 540, 10
  1051. 5190 SOUND 530, 5
  1052. 5200 SOUND 520, 5
  1053. 5210 SOUND 510, 5
  1054. 5220 SOUND 500, 5
  1055. 5230 SOUND 490, 5
  1056. 5340 SOUND 480, 5
  1057. 5350 SOUND 470, 5
  1058. 5360 SOUND 460, 5
  1059. 5370 SOUND 450, 1
  1060. 5380 SOUND 440, 1
  1061. 5390 SOUND 450, 1
  1062. 5400 SOUND 440, 1
  1063. 5410 SOUND 430, 1
  1064. 5420 SOUND 420, 1
  1065. 5430 SOUND 410, 1
  1066. 5440 SOUND 400, 1
  1067. 5450 SOUND 390, 1
  1068. 5460 SOUND 380, 1
  1069. 5470 SOUND 1000, 5
  1070. 5480 SOUND 1010, 5
  1071. 5490 SOUND 50, 10
  1072. 5500 SOUND 37, 5
  1073.  
  1074. END SUB
  1075.  
  1076. SUB intro
  1077.  CLS
  1078.  SCREEN 12
  1079. 10 PRINT "                                                              "
  1080. 20 PRINT "        AG Software Presents                                 "
  1081. 30 PRINT "                                                              "
  1082. 40 PRINT "            An Alexander Golden Program                       "
  1083. 50 PRINT "                                                              "
  1084. 60 PLAY "C D E"
  1085. 70 PLAY "E C D"
  1086. 80 PRINT "                                                              "
  1087. 90 PRINT "**************************************************************"
  1088. 100 PRINT " "
  1089. 110 PRINT "        Battle                                               "
  1090. 120 PRINT "                                                             "
  1091. 130 PRINT "                 Warrior                                     "
  1092. 140 PRINT "                                                             "
  1093. PRINT "         Press any key to continue"
  1094. SparklePause
  1095. 150 PRINT "    "
  1096. PRINT " "
  1097. PRINT " "
  1098. PRINT ""
  1099. PRINT ""
  1100. PRINT ""
  1101. PRINT ""
  1102. PRINT ""
  1103. PRINT ""
  1104. PRINT ""
  1105. PRINT ""
  1106. PRINT ""
  1107. PRINT ""
  1108. PRINT ""
  1109. PRINT ""
  1110. PRINT ""
  1111. PRINT ""
  1112. PRINT ""
  1113. PRINT ""
  1114. PRINT ""
  1115. PRINT ""
  1116. PRINT ""
  1117. PRINT ""
  1118.  PRINT "Enter your name, Warrior"
  1119.  INPUT a$
  1120.  
  1121.  
  1122. END SUB
  1123.  
  1124. SUB mountain
  1125. CLS
  1126. SOUND 1000, 5
  1127. PLAY "A"
  1128. SOUND 1050, 5
  1129. PLAY "b"
  1130. SOUND 1100, 5
  1131. PLAY "c"
  1132. SOUND 200, 5
  1133. PLAY "c"
  1134. SOUND 2005, 5
  1135. PLAY "cde"
  1136.  
  1137. SCREEN 1
  1138. LINE (237, 84)-(160, 77)
  1139. LINE (230, 84)-(160, 70)
  1140. LINE (223, 84)-(160, 63)
  1141. LINE (216, 84)-(160, 56)
  1142. LINE (209, 84)-(160, 49)
  1143. LINE (202, 84)-(160, 42)
  1144. LINE (195, 84)-(160, 35)        'Right half Mt. Pokyu
  1145. LINE (188, 84)-(160, 28)
  1146. LINE (181, 84)-(160, 21)
  1147. LINE (174, 84)-(160, 14)
  1148. LINE (167, 84)-(160, 7)
  1149. LINE (160, 84)-(160, 0)
  1150.  
  1151. LINE (76, 84)-(160, 77)
  1152. LINE (83, 84)-(160, 70)
  1153. LINE (90, 84)-(160, 63)
  1154. LINE (97, 84)-(160, 56)
  1155. LINE (104, 84)-(160, 49)
  1156. LINE (111, 84)-(160, 42)      'Left side of mountain
  1157. LINE (118, 84)-(160, 35)
  1158. LINE (125, 84)-(160, 28)
  1159. LINE (132, 84)-(160, 21)
  1160. LINE (139, 84)-(160, 14)
  1161. LINE (146, 84)-(160, 7)
  1162. LINE (153, 84)-(160, 0)
  1163.  
  1164. 5000 PRINT "Press 1 to head up the mountain"
  1165. PRINT "Press 2 to retreat"
  1166. INPUT a
  1167. IF a = 1 THEN BEEP
  1168. IF a = 2 THEN town
  1169. PRINT " "
  1170. PRINT " "
  1171. PRINT " "
  1172. PRINT " "
  1173. PRINT " "
  1174. PRINT " "
  1175. PRINT " "
  1176. PRINT " "
  1177. PRINT " "
  1178. PRINT " "
  1179. PRINT " "
  1180. PRINT " "
  1181.  
  1182. 5001 PRINT "Press 1 to continue up the mountain"
  1183. 5002 PRINT "Press 2 to retreat"
  1184. INPUT a
  1185. IF a = 1 THEN BEEP
  1186. IF a = 2 THEN 5000
  1187. 5003 PRINT "Press 1 to head up the montain"
  1188. PRINT "Press 2 to retreat"
  1189. INPUT a
  1190. IF a = 1 THEN BEEP
  1191. IF a = 2 THEN 5001
  1192. Slime
  1193. 5004 PRINT "Press 1 to head up the monutain"
  1194. PRINT "Press 2 to retreat"
  1195. INPUT a
  1196. IF a = 1 THEN BEEP
  1197. IF a = 2 THEN 5003
  1198. Erink
  1199. 5005 PRINT "Press 1 to continue"
  1200. PRINT "Press 2 to retreat"
  1201. INPUT a
  1202. IF a = 1 THEN BEEP
  1203. IF a = 2 THEN 5004
  1204. PRINT "     You see a building in the distance."
  1205. PRINT "Press 1 to continue"
  1206. PRINT "Press 2 to retreat"
  1207. INPUT a
  1208. IF a = 1 THEN BEEP
  1209. IF a = 2 THEN 5005
  1210. PRINT "     As you walk up to the base you are attacked by Elliott again!"
  1211. PRINT "Press a key to continue"
  1212. INPUT a
  1213. PRINT "         Load 'Batwar 4.bas'!"
  1214.  
  1215.  
  1216.  
  1217.  
  1218.  
  1219.  
  1220.  
  1221. END SUB
  1222.  
  1223. SUB Slime
  1224. 2350 PRINT "You encounter a slime (5 HP)!"
  1225. LINE (60, 80)-(240, 150), 1, BF
  1226.  LINE (70, 150)-(90, 80)
  1227.  LINE (90, 80)-(110, 150)
  1228.  LINE (70, 150)-(110, 150)
  1229.  PSET (80, 100)
  1230.  PLAY "CFECFEC     FA"
  1231.  PRINT "Press 1 to attack the slime"
  1232.  PRINT "Press 2 to make an attampt to run"
  1233.  INPUT a
  1234.  IF a = 1 THEN 2920
  1235.  IF a = 2 THEN BEEP
  1236.  RANDOMIZE TIMER
  1237.  a% = INT(RND * 3) + 1
  1238.  IF a% < 2 THEN BEEP
  1239.  IF a% > 1 THEN 2590
  1240. 2590 PRINT "You run away."
  1241.  GOTO 2350
  1242.  PRINT "You don't make it. Slime attacks!"
  1243.  RANDOMIZE TIMER
  1244.  b% = INT(RND * 2) = 1
  1245.  IF b% > 19 THEN 2630
  1246.  IF b% < 20 THEN 2660
  1247. 2630 PRINT "Slime kills you. You are dead. Press 1 to continue."
  1248.  INPUT a
  1249.  IF a = 1 THEN END
  1250. 2660 PRINT "Slime drained "; b%; " HP."
  1251.  PRINT "You have "; 20 - b%; " HP left"
  1252.  PRINT "Press 1 to fight"
  1253.  INPUT a
  1254.  IF a = 1 THEN BEEP
  1255.  RANDOMIZE TIMER
  1256.  c% = INT(RND * 4) + 1
  1257.  IF c% > 4 THEN 3600
  1258.  IF c% < 5 THEN BEEP
  1259.  PRINT "You drained "; c%; " HP so far."
  1260.  PRINT "Slime attacks"
  1261.  RANDOMIZE TIMER
  1262.  d% = INT(RND * 2) + 1
  1263.  IF d% > 19 THEN 2630
  1264.  IF d% < 20 THEN BEEP
  1265.  LET a = d% + b%
  1266.  PRINT "Slime drained "; a; " total HP so far."
  1267.  PRINT "Press 1 to fight"
  1268.  INPUT a
  1269.  IF a = 1 THEN BEEP
  1270.  RANDOMIZE TIMER
  1271.  c% = INT(RND * 4) + 1
  1272.  LET b = c% + e%
  1273.  PRINT "You drained "; b; " total HP so far."
  1274.  IF b > 4 THEN 3600
  1275.  PRINT "Slime attacks. Slime poisions you. You die!"
  1276.  PRINT "Press 1 to go on"
  1277.  INPUT a
  1278.  IF a = 1 THEN BEEP
  1279. END
  1280.  
  1281. 2920 INPUT a
  1282.  IF a = 1 THEN BEEP
  1283.  RANDOMIZE TIMER
  1284.  c% = INT(RND * 4) + 1
  1285.  IF c% > 4 THEN 3600
  1286.  IF c% < 5 THEN BEEP
  1287.  PRINT "You attack!"
  1288.  PRINT "You drained "; a%; " HP so far."
  1289.  PRINT "Slime attacks"
  1290.  RANDOMIZE TIMER
  1291.  a% = INT(RND * 2) + 1
  1292.  IF a% > 19 THEN 2630
  1293.  IF a% < 20 THEN BEEP
  1294.  PRINT "Slime drained "; a%; " total HP so far."
  1295.  PRINT "You have "; 20 - a%; " HP left"
  1296.  PRINT "Press 1 to attack"
  1297.  INPUT a
  1298.  IF a = 1 THEN BEEP
  1299.  RANDOMIZE TIMER
  1300.  e% = INT(RND * 4) + 1
  1301.  IF e% > 4 THEN 3600
  1302.  IF e% < 5 THEN BEEP
  1303.  PRINT "You attack!"
  1304.  LET b = e% + a%
  1305.  PRINT "You drained "; b; " HP so far."
  1306.  IF b > 4 THEN 3600
  1307.  IF b < 5 THEN BEEP
  1308.  PRINT "Slime attacks"
  1309.  RANDOMIZE TIMER
  1310.  g% = INT(RND * 2) + 1
  1311.  IF g% > 19 THEN 2630
  1312.  IF g% < 20 THEN BEEP
  1313. LET a = g% + h%
  1314.  PRINT "Slime drained "; a; " total HP so far."
  1315.  PRINT "You have "; 20 - a; " HP left"
  1316.  PRINT "Press 1 to attack"
  1317.  INPUT a
  1318.  IF a = 1 THEN BEEP
  1319.  RANDOMIZE TIMER
  1320.  o% = INT(RND * 4) + 1
  1321.  IF o% > 4 THEN 3600
  1322.  IF o% < 5 THEN BEEP
  1323.  PRINT "You attack!"
  1324.  LET b = e% + a% + o%
  1325.  PRINT "You drained "; b; " HP so far."
  1326.  IF b > 4 THEN 3600
  1327.  IF b < 5 THEN BEEP
  1328.  PRINT "Slime attacks"
  1329.  RANDOMIZE TIMER
  1330.  n% = INT(RND * 2) + 1
  1331.  IF n% > 19 THEN 2630
  1332.  IF n% < 20 THEN BEEP
  1333.  LET a = g% + h% + n%
  1334.  PRINT "Slime drained "; a; " total HP so far."
  1335.  IF a > 19 THEN 2630
  1336.  IF a < 20 THEN BEEP
  1337.  PRINT "You have "; 20 - a; " HP left"
  1338.  PRINT "Press 1 to attack"
  1339.  INPUT a
  1340.  IF a = 1 THEN BEEP
  1341.  RANDOMIZE TIMER
  1342.  p% = INT(RND * 4) + 1
  1343.  IF p% > 4 THEN 3600
  1344.  IF p% < 5 THEN BEEP
  1345.  PRINT "You attack!"
  1346.  LET b = e% + a% + o% + p%
  1347.  PRINT "You drained "; b; " HP so far."
  1348.  IF b > 4 THEN 3600
  1349.  IF b < 5 THEN BEEP
  1350.  PRINT "Slime attacks and poisions you."
  1351.  PRINT "Press 1 to continue"
  1352.  INPUT a
  1353.  IF a = 1 THEN END
  1354. 3600 PRINT "You defeated the slime!"
  1355.  PRINT "You have "; 20 - a; " total HP left"
  1356.  PRINT "Press 1 to continue"
  1357.  INPUT a
  1358.  IF a = 1 THEN BEEP
  1359.  
  1360. END SUB
  1361.  
  1362. SUB SparklePause
  1363. DEFINT A-Z
  1364.  
  1365. 'SparklePause:
  1366. '  Creates flashing border for intro screen
  1367.  
  1368.  
  1369.     a$ = "*    *    *    *    *    *    *    *    *    *    *    *    *    *    *    *    *    "
  1370.     WHILE INKEY$ <> "": WEND 'Clear keyboard buffer
  1371.  
  1372.     WHILE INKEY$ = ""
  1373.         FOR a = 1 TO 5
  1374.             LOCATE 1, 1                             'print horizontal sparkles
  1375.             PRINT MID$(a$, a, 80);
  1376.             LOCATE 22, 1
  1377.             PRINT MID$(a$, 6 - a, 80);
  1378.  
  1379.             FOR b = 2 TO 21                         'Print Vertical sparkles
  1380.                 c = (a + b) MOD 5
  1381.                 IF c = 1 THEN
  1382.                   
  1383.                     PRINT "*";
  1384.                     LOCATE 23 - b, 1
  1385.                     PRINT "*";
  1386.                 ELSE
  1387.                   
  1388.                     PRINT " ";
  1389.                     LOCATE 23 - b, 1
  1390.                     PRINT " ";
  1391.                 END IF
  1392.             NEXT b
  1393.         NEXT a
  1394.     WEND
  1395.  
  1396.  
  1397. END SUB
  1398.  
  1399. DEFSNG A-Z
  1400. SUB town
  1401. 3001 PRINT "Press 1 to teleport to Erink's Cave"
  1402. PRINT "Press 2 to teleport to Alex's home"
  1403. PRINT "Press 3 Teleport to Ogausis  "
  1404. PRINT "Press 4 to teleport to Kinweke"
  1405. PRINT "Press 5 to go into Hojay"
  1406. PRINT "Press 6 to head to Mt. Pokyu"
  1407. INPUT a
  1408. IF a = 1 THEN 3010
  1409. IF a = 2 THEN 3040
  1410. IF a = 3 THEN 3030
  1411. IF a = 4 THEN 3020
  1412. IF a = 5 THEN 3050
  1413. IF a = 6 THEN 4000
  1414. 3010 PRINT "    You teleport to Erink's cave. You see nothing new except for "
  1415. PRINT "the remains of the battle."
  1416. PRINT "Press 1 to teleport to Alex's home"
  1417. PRINT "Press 2 teleport to Ogausis  "
  1418. PRINT "Press 3 to teleport to Kinweke"
  1419. PRINT "Press 4 to teleport to Hojay"
  1420. INPUT a
  1421. IF a = 1 THEN 3040
  1422. IF a = 2 THEN 3001
  1423. IF a = 3 THEN 3020
  1424. IF a = 4 THEN 3050
  1425. 3050 PRINT "    You go into Hojay. You eat and sleep. "
  1426. PRINT "Press 1 to teleport to Erink's Cave"
  1427. PRINT "Press 2 to teleport to Alex's home"
  1428. PRINT "Press 3 Teleport to Ogausis  "
  1429. PRINT "Press 4 to teleport to Kinweke"
  1430. PRINT "Press 5 to go into Hojay"
  1431. PRINT "Press 6 to head to Mt. Pokyu"
  1432. INPUT a
  1433. IF a = 1 THEN 3010
  1434. IF a = 2 THEN 3040
  1435. IF a = 3 THEN 3030
  1436. IF a = 4 THEN 3020
  1437. IF a = 5 THEN 3050
  1438. IF a = 6 THEN 4000
  1439.  
  1440. 3020 PRINT "    You decide to teleport to Kinweke. You tell John about the"
  1441. PRINT "battle. He tells you to see Alex."
  1442. PRINT "Press 1 teleport to Ogausis  "
  1443. INPUT a
  1444. IF a = 1 THEN 3001
  1445. 3030 PRINT "    You go into Ogausis. You get a warm welcome. You see that the"
  1446. PRINT "town is doing well. You eat & sleep at Chuck's house."
  1447. GOTO 3001
  1448. 3040 PRINT "    You decide to teleport to Alex's hut. No one seems to be there."
  1449. PRINT "Press 1 teleport to Ogausis  "
  1450. PRINT "Press 2 to teleport to Kinweke"
  1451. PRINT "Press 3 to teleport to Erink's cave"
  1452. PRINT "Press 4 to teleport to Hojay"
  1453. INPUT a
  1454. IF a = 1 THEN 3001
  1455. IF a = 2 THEN 3010
  1456. IF a = 3 THEN 3020
  1457. IF a = 4 THEN 3050
  1458. 4000 PRINT "     You decide to start on your journey."
  1459. 4001 PRINT "Press 1 to head to Mt. Pokyu"
  1460. PRINT "Press 2 to retreat"
  1461. INPUT a
  1462. IF a = 1 THEN BEEP
  1463. IF a = 2 THEN 3001
  1464. 4002 PRINT "Press 1 to head to Mt. Pokyu"
  1465. PRINT "Press 2 to retreat"
  1466. INPUT a
  1467. IF a = 1 THEN BEEP
  1468. IF a = 2 THEN 4001
  1469. 4003 PRINT "Press 1 to head to Mt. Pokyu"
  1470. PRINT "Press 2 to retreat"
  1471. INPUT a
  1472. IF a = 1 THEN BEEP
  1473. IF a = 2 THEN 4002
  1474. 4004 PRINT "Press 1 to head to Mt. Pokyu"
  1475. PRINT "Press 2 to retreat"
  1476. INPUT a
  1477. IF a = 1 THEN BEEP
  1478. IF a = 2 THEN 4003
  1479. PRINT "     You arrive at the base of the mountain"
  1480. PRINT "Press a kay to continue"
  1481. INPUT a
  1482. SCREEN 1
  1483. END SUB
  1484.  
  1485.