API tools faq
paste
Guest User

QBasicGameHelpJun16

a guest
Jun 16th, 2015
279
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 19.09 KB | None | 0 0
raw download clone embed print report
  1. ==The Light Code==
  2. CLS
  3. D = 20000
  4. X = 15
  5. Y = 15
  6. VAR = 128
  7.  
  8. DO
  9. OUT 888, VAR
  10. FOR T = 1 TO D0: NEXT T
  11. VAR = VAR / 2
  12. IF VAR < 1 THEN GOSUB UP
  13. LOOP
  14.  
  15. UP:
  16. VAR = 1
  17. DO
  18. OUT 888, VAR
  19. FOR T = 1 TO D: NEXT T
  20. VAR = VAR * 2
  21. IF VAR > 128 THEN RETURN
  22. LOOP
  23.  
  24. ==Game==
  25. '--------------------------------START SCREEN----------------------------
  26.  
  27. SCREEN 8 'Changes screen width, length, character size and color
  28.  
  29. COLOR 2 'Delcares color to next line of code
  30.  
  31. LOCATE 12, 37: PRINT "WELCOME TO" 'displays "Welcome to" at 12, 37
  32. COLOR 3
  33. LOCATE 14, 36: PRINT "MOVING SPRITE"
  34.  
  35. FOR T = 1 TO 400000: NEXT T 'Adds a delay until reading next line
  36.  
  37. CLS 'Clears the screen
  38.  
  39. COLOR 1
  40. LOCATE 12, 37: PRINT "Controls are on the"
  41. COLOR 4
  42. LOCATE 14, 37: PRINT "RIGHT"
  43. COLOR 1
  44. LOCATE 14, 43: PRINT "Number pad"
  45. FOR T = 1 TO 500000: NEXT T
  46.  
  47. GOSUB level1 'Creates a subrutine and reads its code
  48.  
  49. '------------------------------------------------------------------------
  50.  
  51. level1: 'declared subrutine
  52.  
  53. CLS
  54. SCREEN 0
  55.  
  56. xt = 15 'Declares location for variable "XT"
  57. yt = 15
  58.  
  59. xt2 = 20
  60. yt2 = 20
  61.  
  62. xt3 = 21
  63. yt3 = 21
  64.  
  65.  
  66. time = 3000 'Declares a number for the variable "time"
  67. time2 = 500
  68. score = 0
  69.  
  70. x = 10 'sets a number for variable x
  71. y = 10 'sets a number for variable y
  72.  
  73. d = 1000
  74.  
  75. DO 'Executes the start of the loop
  76.  
  77. LOCATE y, x: PRINT "$" 'Prints character "$"
  78.  
  79. LOCATE yt, xt: PRINT "t" 'Gets set numbers for xt, yt
  80. 'Makes it a x and y location than displays it
  81. LOCATE yt2, xt2: PRINT "t"
  82. LOCATE yt3, xt3: PRINT "t"
  83.  
  84.  
  85. LOCATE 1, 35: PRINT "LEVEL 1"
  86.  
  87. LOCATE 1, 1: PRINT "TIME:"
  88. LOCATE 1, 69: PRINT "SCORE:"
  89.  
  90. LOCATE 1, 6: PRINT time
  91. LOCATE 1, 75: PRINT score
  92.  
  93. '----------------------------BORDER-------------------------------
  94.  
  95. LOCATE 2, 1: PRINT "--------------------------------------------------------------------------------"
  96. LOCATE 1, 21: PRINT "|"
  97. LOCATE 1, 55: PRINT "|"
  98. '-----------------------------------------------------------------
  99.  
  100. FOR T = 1 TO d: NEXT T
  101. CLS
  102. var$ = INKEY$ 'set variable connects to any key on keyboard
  103.  
  104. IF var$ = "8" THEN y = y - 1 'Declares key 8 to move character "$" up one
  105. IF var$ = "2" THEN y = y + 1 'Declares key 2 to move character "$" down one
  106. IF var$ = "4" THEN x = x - 1 'Declares key 4 to move character "$" left one
  107. IF var$ = "6" THEN x = x + 1 'Declares key 6 to move character "$" right one
  108. IF var$ = "5" THEN x = 35 'Declares key 5 to set character "$" at x value
  109. IF var$ = "5" THEN y = 12 'Declares key 5 to set character "$" at y value
  110.  
  111. IF var$ = "7" THEN x = x - 2
  112. IF var$ = "7" THEN y = y - 1
  113. IF var$ = "3" THEN x = x + 2
  114. IF var$ = "3" THEN y = y + 1
  115. IF var$ = "1" THEN x = x - 2
  116. IF var$ = "1" THEN y = y + 1
  117. IF var$ = "9" THEN x = x + 2
  118. IF var$ = "9" THEN y = y - 1
  119.  
  120. IF y > 25 THEN y = 2 '====
  121. IF y < 2 THEN y = 25 ' \
  122. IF x > 80 THEN x = 2 ' - Declares screen limit for "$"
  123. IF x < 2 THEN x = 80 ' /
  124. '====
  125.  
  126. time = time - 1 'Decreases set number for variable by 1
  127. time2 = time2 - 1
  128.  
  129. IF y = yt AND x = xt THEN GOSUB reward 'if character "$" touches character
  130. 'location of sprite "XT" go to
  131. ' subutine reward
  132.  
  133. IF y = yt2 AND x = xt2 THEN GOSUB reward
  134. IF y = yt3 AND x = xt3 THEN GOSUB reward
  135.  
  136.  
  137. IF score > 500 THEN GOSUB congradulations1 'If the score is greater than
  138. '500 go to subutine
  139. ' congradulations1
  140. IF time < 1 THEN GOSUB failtime1
  141. IF time2 < 1 THEN GOSUB flux
  142.  
  143. LOOP 'repeats program at most recent "DO"
  144.  
  145. reward:
  146. CLS
  147. SOUND 880, 2: SOUND 1760, 3 'play declaried sound
  148.  
  149. '=====
  150. yt = INT(RND * 20) + 3 '- Generates a number between 3 and 23
  151. xt = INT(RND * 70) + 1 '- and 1 and 71 so it moves yt, xt to a new place
  152. '=====
  153. yt2 = INT(RND * 20) + 3
  154. xt2 = INT(RND * 70) + 1
  155.  
  156. yt3 = INT(RND * 20) + 3
  157. xt3 = INT(RND * 70) + 1
  158.  
  159. score = score + 57 'Adds 57 digits to variable "score"
  160. time = time + 300
  161.  
  162. RETURN 'Returns to the previous loop
  163.  
  164. '-------------------------------------------------------------------------
  165.  
  166. failtime1:
  167.  
  168. DO
  169. SCREEN 8
  170. COLOR 4
  171. LOCATE 12, 37: PRINT "Game Over"
  172. FOR T = 1 TO 2000000: NEXT T
  173. LOOP
  174.  
  175. '-------------------------------------------------------------------------
  176.  
  177. congradulations1:
  178. CLS
  179.  
  180. SCREEN 8
  181. COLOR 2
  182.  
  183. LOCATE 12, 37: PRINT "WINNER"
  184. FOR T = 1 TO 400000: NEXT T
  185. CLS
  186. LOCATE 12, 37: PRINT "To easy for you?"
  187. FOR T = 1 TO 400000: NEXT T
  188. CLS
  189. LOCATE 12, 37: PRINT "LEVEL 2"
  190. FOR T = 1 TO 400000: NEXT T
  191. CLS
  192. GOSUB level2
  193.  
  194. '----------------------------------------------------------------
  195. flux:
  196. CLS
  197. SOUND 440, 2
  198. yt = INT(RND * 20) + 3
  199. xt = INT(RND * 70) + 1
  200.  
  201. yt2 = INT(RND * 20) + 3
  202. xt2 = INT(RND * 70) + 1
  203.  
  204. yt3 = INT(RND * 20) + 3
  205. xt3 = INT(RND * 70) + 1
  206. time2 = time2 + 550
  207. RETURN
  208. '-----------------------------------------
  209.  
  210.  
  211. '--------------------------------LEVEL 2-------------------------------------
  212.  
  213.  
  214. level2:
  215.  
  216. CLS
  217. SCREEN 0
  218. xt = 15
  219. yt = 15
  220.  
  221. xt2 = 20
  222. yt2 = 20
  223.  
  224.  
  225. time = 3000
  226. time3 = 350
  227. score = 0
  228.  
  229. x = 10
  230. y = 10
  231. d = 1000
  232. DO
  233. LOCATE y, x: PRINT "$"
  234. LOCATE yt, xt: PRINT "t"
  235. LOCATE yt2, xt2: PRINT "t"
  236.  
  237. LOCATE 1, 35: PRINT "LEVEL 2"
  238.  
  239. LOCATE 1, 1: PRINT "TIME:";
  240. LOCATE 1, 69: PRINT "SCORE:"
  241.  
  242. LOCATE 1, 6: PRINT time
  243. LOCATE 1, 75: PRINT score
  244.  
  245.  
  246. '------------------------------BORDER--------------------------------
  247. LOCATE 2, 1: PRINT "--------------------------------------------------------------------------------"
  248. LOCATE 1, 21: PRINT "|"
  249. LOCATE 1, 55: PRINT "|"
  250. '--------------------------------------------------------------------
  251.  
  252. FOR T = 1 TO d: NEXT T
  253. CLS
  254. var$ = INKEY$
  255. IF var$ = "8" THEN y = y - 1
  256. IF var$ = "2" THEN y = y + 1
  257. IF var$ = "4" THEN x = x - 1
  258. IF var$ = "6" THEN x = x + 1
  259. IF var$ = "5" THEN x = 35
  260. IF var$ = "5" THEN y = 12
  261.  
  262. IF var$ = "7" THEN x = x - 2
  263. IF var$ = "7" THEN y = y - 1
  264. IF var$ = "3" THEN x = x + 2
  265. IF var$ = "3" THEN y = y + 1
  266. IF var$ = "1" THEN x = x - 2
  267. IF var$ = "1" THEN y = y + 1
  268. IF var$ = "9" THEN x = x + 2
  269. IF var$ = "9" THEN y = y - 1
  270.  
  271. IF y > 25 THEN y = 2
  272. IF y < 2 THEN y = 25
  273. IF x > 80 THEN x = 2
  274. IF x < 2 THEN x = 80
  275.  
  276.  
  277.  
  278. time = time - 2
  279. time3 = time3 - 1
  280.  
  281. IF y = yt AND x = xt THEN GOSUB reward2
  282.  
  283. IF y = yt2 AND x = xt2 THEN GOSUB reward2
  284.  
  285. IF score > 850 THEN GOSUB congradulations2
  286.  
  287. IF time < 0 THEN GOSUB failtime2
  288. IF time3 < 1 THEN GOSUB flux3
  289.  
  290. LOOP
  291.  
  292.  
  293. flux3:
  294. CLS
  295. yt = INT(RND * 20) + 3
  296. xt = INT(RND * 70) + 1
  297.  
  298. yt2 = INT(RND * 20) + 3
  299. xt2 = INT(RND * 70) + 1
  300.  
  301. time3 = time3 + 350
  302. RETURN
  303.  
  304. failtime2:
  305.  
  306. DO
  307. SCREEN 8
  308. COLOR 4
  309. LOCATE 12, 37: PRINT "Game Over"
  310. FOR T = 1 TO 2000000: NEXT T
  311. LOOP
  312.  
  313. '--------------------------------------------------------------------------
  314.  
  315. reward2:
  316. CLS
  317. SOUND 880, 2: SOUND 1760, 3
  318.  
  319. yt = INT(RND * 20) + 3
  320. xt = INT(RND * 70) + 1
  321.  
  322. yt2 = INT(RND * 20) + 3
  323. xt2 = INT(RND * 70) + 1
  324.  
  325. score = score + 57
  326. time = time + 450
  327. RETURN
  328.  
  329. '-------------------------------------------------------------------------
  330.  
  331. congradulations2:
  332. CLS
  333.  
  334. SCREEN 8
  335. COLOR 2
  336.  
  337. LOCATE 12, 37: PRINT "WINNER"
  338. FOR T = 1 TO 400000: NEXT T
  339. CLS
  340. LOCATE 12, 37: PRINT "FINAL LEVEL"
  341. LOCATE 13, 37: PRINT "-----------"
  342. FOR T = 1 TO 400000: NEXT T
  343. CLS
  344. LOCATE 12, 37: PRINT "LEVEL 3"
  345. FOR T = 1 TO 400000: NEXT T
  346. CLS
  347. GOSUB level3
  348.  
  349. '--------------------------------LEVEL 3-------------------------------------
  350.  
  351.  
  352. level3:
  353.  
  354. CLS
  355. SCREEN 0
  356. xt = 15
  357. yt = 15
  358.  
  359. time = 3000
  360. time4 = 300
  361. score = 0
  362.  
  363. x = 10
  364. y = 10
  365. d = 1000
  366. DO
  367. LOCATE y, x: PRINT "$"
  368. LOCATE yt, xt: PRINT "t"
  369.  
  370. LOCATE 1, 35: PRINT "LEVEL 3"
  371.  
  372. LOCATE 1, 1: PRINT "TIME:";
  373. LOCATE 1, 69: PRINT "SCORE:"
  374.  
  375. LOCATE 1, 6: PRINT time
  376. LOCATE 1, 75: PRINT score
  377.  
  378.  
  379. '------------------------------BORDER--------------------------------
  380. LOCATE 2, 1: PRINT "--------------------------------------------------------------------------------"
  381. LOCATE 1, 21: PRINT "|"
  382. LOCATE 1, 55: PRINT "|"
  383. '--------------------------------------------------------------------
  384.  
  385. FOR T = 1 TO d: NEXT T
  386. CLS
  387. var$ = INKEY$
  388. IF var$ = "8" THEN y = y - 1
  389. IF var$ = "2" THEN y = y + 1
  390. IF var$ = "4" THEN x = x - 1
  391. IF var$ = "6" THEN x = x + 1
  392. IF var$ = "5" THEN x = 35
  393. IF var$ = "5" THEN y = 12
  394.  
  395. IF var$ = "7" THEN x = x - 2
  396. IF var$ = "7" THEN y = y - 1
  397. IF var$ = "3" THEN x = x + 2
  398. IF var$ = "3" THEN y = y + 1
  399. IF var$ = "1" THEN x = x - 2
  400. IF var$ = "1" THEN y = y + 1
  401. IF var$ = "9" THEN x = x + 2
  402. IF var$ = "9" THEN y = y - 1
  403.  
  404. IF y > 25 THEN y = 2
  405. IF y < 2 THEN y = 25
  406. IF x > 80 THEN x = 2
  407. IF x < 2 THEN x = 80
  408.  
  409.  
  410.  
  411. time = time - 2
  412. time4 = time4 - 1
  413.  
  414. IF y = yt AND x = xt THEN GOSUB reward4
  415.  
  416. IF score > 1500 THEN GOSUB congradulations4
  417.  
  418. IF time < 0 THEN GOSUB failtime4
  419.  
  420. IF time4 < 1 THEN GOSUB flux4
  421.  
  422. LOOP
  423.  
  424. flux4:
  425. CLS
  426.  
  427. yt = INT(RND * 20) + 3
  428. xt = INT(RND * 70) + 1
  429. time4 = time4 + 300
  430. RETURN
  431.  
  432. failtime4:
  433.  
  434. DO
  435. SCREEN 8
  436. COLOR 4
  437. LOCATE 12, 37: PRINT "Game Over"
  438. FOR T = 1 TO 2000000: NEXT T
  439. LOOP
  440.  
  441. '--------------------------------------------------------------------------
  442.  
  443. reward4:
  444. CLS
  445. SOUND 880, 2: SOUND 1760, 3
  446.  
  447. yt = INT(RND * 20) + 3
  448. xt = INT(RND * 70) + 1
  449.  
  450. score = score + 57
  451. time = time + 650
  452. RETURN
  453.  
  454. '-------------------------------------------------------------------------
  455.  
  456. congradulations4:
  457. CLS
  458. SCREEN 8
  459. COLOR 2
  460. LOCATE 12, 37: PRINT "WINNER"
  461. FOR T = 1 TO 400000: NEXT T
  462. CLS
  463. LOCATE 12, 37: PRINT ":ENDLESS MODE UNLOCKED:"
  464. FOR T = 1 TO 400000: NEXT T
  465. CLS
  466. LOCATE 11, 37: PRINT "CODES UNLOCKED"
  467. LOCATE 13, 37: PRINT "~~~~~~~~~~~~~~"
  468. LOCATE 15, 37: PRINT "LEVEL 1 MODE CODE: Q"
  469. LOCATE 16, 37: PRINT "---------------------"
  470. LOCATE 17, 37: PRINT "LEVEL 2 MODE CODE: W"
  471. LOCATE 18, 37: PRINT "---------------------"
  472. LOCATE 19, 37: PRINT "LEVEL 3 MODE CODE: E"
  473. LOCATE 20, 37: PRINT "---------------------"
  474. LOCATE 21, 37: PRINT "ENDLESS MODE CODE: P"
  475. FOR T = 1 TO 400000: NEXT T
  476. COLOR 3
  477. LOCATE 24, 25: PRINT "Please wait so you can write down the code"
  478. FOR T = 1 TO 2000000: NEXT T
  479. GOSUB endless
  480. '---------------------------ENDLESS MODE-----------------------------------
  481.  
  482.  
  483. endless:
  484.  
  485. CLS
  486. SCREEN 0
  487. xt = 15
  488. yt = 15
  489.  
  490. score = 0
  491.  
  492. x = 10
  493. y = 10
  494. d = 1000
  495. DO
  496. LOCATE y, x: PRINT "$"
  497. LOCATE yt, xt: PRINT "t"
  498.  
  499. LOCATE 1, 35: PRINT "ENDLESS"
  500.  
  501. LOCATE 1, 1: PRINT "TIME:";
  502. LOCATE 1, 69: PRINT "SCORE:"
  503.  
  504. LOCATE 1, 7: PRINT "*****"
  505. LOCATE 1, 75: PRINT score
  506.  
  507.  
  508. '------------------------------BORDER--------------------------------
  509. LOCATE 2, 1: PRINT "--------------------------------------------------------------------------------"
  510. LOCATE 1, 21: PRINT "|"
  511. LOCATE 1, 55: PRINT "|"
  512. '--------------------------------------------------------------------
  513.  
  514. FOR T = 1 TO d: NEXT T
  515. CLS
  516. var$ = INKEY$
  517. IF var$ = "8" THEN y = y - 1
  518. IF var$ = "2" THEN y = y + 1
  519. IF var$ = "4" THEN x = x - 1
  520. IF var$ = "6" THEN x = x + 1
  521. IF var$ = "5" THEN x = 35
  522. IF var$ = "5" THEN y = 12
  523.  
  524. IF var$ = "7" THEN x = x - 2
  525. IF var$ = "7" THEN y = y - 1
  526. IF var$ = "3" THEN x = x + 2
  527. IF var$ = "3" THEN y = y + 1
  528. IF var$ = "1" THEN x = x - 2
  529. IF var$ = "1" THEN y = y + 1
  530. IF var$ = "9" THEN x = x + 2
  531. IF var$ = "9" THEN y = y - 1
  532.  
  533. IF y > 25 THEN y = 2
  534. IF y < 2 THEN y = 25
  535. IF x > 80 THEN x = 2
  536. IF x < 2 THEN x = 80
  537.  
  538.  
  539. IF y = yt AND x = xt THEN GOSUB reward5
  540.  
  541. '-----------------------SKIP LEVEL CODE------------------
  542. IF var$ = "q" THEN GOSUB level1.2
  543. IF var$ = "w" THEN GOSUB level2.2
  544. IF var$ = "e" THEN GOSUB level3.2
  545. '--------------------------------------------------------
  546. LOOP
  547.  
  548. reward5:
  549. CLS
  550. SOUND 880, 2: SOUND 1760, 3
  551.  
  552. yt = INT(RND * 20) + 3
  553. xt = INT(RND * 70) + 1
  554.  
  555. score = score + 500
  556. RETURN
  557.  
  558. '-------------------------------LEVEL 1.2---------------------------------------
  559. level1.2:
  560. CLS
  561. SCREEN 0
  562. xt = 15
  563. yt = 15
  564.  
  565. xt2 = 20
  566. yt2 = 20
  567.  
  568. xt3 = 21
  569. yt3 = 21
  570.  
  571.  
  572. time = 3000
  573. time2.2 = 500
  574. score = 0
  575.  
  576. x = 10
  577. y = 10
  578. d = 1000
  579. DO
  580. LOCATE y, x: PRINT "$"
  581. LOCATE yt, xt: PRINT "t"
  582. LOCATE yt2, xt2: PRINT "t"
  583. LOCATE yt3, xt3: PRINT "t"
  584.  
  585.  
  586. LOCATE 1, 35: PRINT "LEVEL 1"
  587.  
  588. LOCATE 1, 1: PRINT "TIME:"
  589. LOCATE 1, 69: PRINT "SCORE:"
  590.  
  591. LOCATE 1, 6: PRINT time
  592. LOCATE 1, 75: PRINT score
  593.  
  594. '----------------------------BORDER-------------------------------
  595.  
  596. LOCATE 2, 1: PRINT "--------------------------------------------------------------------------------"
  597. LOCATE 1, 21: PRINT "|"
  598. LOCATE 1, 55: PRINT "|"
  599. '-----------------------------------------------------------------
  600.  
  601. FOR T = 1 TO d: NEXT T
  602. CLS
  603. var$ = INKEY$
  604. IF var$ = "8" THEN y = y - 1
  605. IF var$ = "2" THEN y = y + 1
  606. IF var$ = "4" THEN x = x - 1
  607. IF var$ = "6" THEN x = x + 1
  608. IF var$ = "5" THEN x = 35
  609. IF var$ = "5" THEN y = 12
  610.  
  611. IF var$ = "7" THEN x = x - 2
  612. IF var$ = "7" THEN y = y - 1
  613. IF var$ = "3" THEN x = x + 2
  614. IF var$ = "3" THEN y = y + 1
  615. IF var$ = "1" THEN x = x - 2
  616. IF var$ = "1" THEN y = y + 1
  617. IF var$ = "9" THEN x = x + 2
  618. IF var$ = "9" THEN y = y - 1
  619.  
  620. IF y > 25 THEN y = 2
  621. IF y < 2 THEN y = 25
  622. IF x > 80 THEN x = 2
  623. IF x < 2 THEN x = 80
  624.  
  625.  
  626. time = time - 1
  627. time2.2 = time2.2 - 1
  628.  
  629. IF y = yt AND x = xt THEN GOSUB reward1.2
  630. IF y = yt2 AND x = xt2 THEN GOSUB reward1.2
  631. IF y = yt3 AND x = xt3 THEN GOSUB reward1.2
  632.  
  633.  
  634. '----------------------SKIP LEVEL CODE---------------------------
  635. IF var$ = "w" THEN GOSUB level2.2
  636. IF var$ = "e" THEN GOSUB level3.2
  637. IF var$ = "p" THEN GOSUB endless
  638. '----------------------------------------------------------------
  639.  
  640. IF score > 500 THEN GOSUB congradulations1.2
  641. IF time < 1 THEN GOSUB failtime1.2
  642. IF time2.2 < 1 THEN GOSUB flux1.2
  643. LOOP
  644.  
  645. flux1.2:
  646. CLS
  647. yt = INT(RND * 20) + 3
  648. xt = INT(RND * 70) + 1
  649.  
  650. yt2 = INT(RND * 20) + 3
  651. xt2 = INT(RND * 70) + 1
  652.  
  653. yt3 = INT(RND * 20) + 3
  654. xt3 = INT(RND * 70) + 1
  655. time2.2 = time2.2 + 500
  656. RETURN
  657.  
  658. reward1.2:
  659. CLS
  660. SOUND 880, 2: SOUND 1760, 3
  661. yt = INT(RND * 20) + 3
  662. xt = INT(RND * 70) + 1
  663.  
  664. yt2 = INT(RND * 20) + 3
  665. xt2 = INT(RND * 70) + 1
  666.  
  667. yt3 = INT(RND * 20) + 3
  668. xt3 = INT(RND * 70) + 1
  669.  
  670. score = score + 57
  671. time = time + 300
  672. RETURN
  673.  
  674. '-------------------------------------------------------------------------
  675.  
  676. failtime1.2:
  677.  
  678. DO
  679. SCREEN 8
  680. COLOR 4
  681. LOCATE 12, 37: PRINT "Game Over"
  682. FOR T = 1 TO 2000000: NEXT T
  683. LOOP
  684.  
  685. '-------------------------------------------------------------------------
  686.  
  687. congradulations1.2:
  688. CLS
  689. LOCATE 15, 30: PRINT "Level 1 completed again, go again"
  690. FOR T = 1 TO 300000: NEXT T
  691. GOSUB level1.2
  692.  
  693. '--------------------------------LEVEL 2.2-------------------------------------
  694.  
  695.  
  696. level2.2:
  697.  
  698. CLS
  699. SCREEN 0
  700. xt = 15
  701. yt = 15
  702.  
  703. xt2 = 20
  704. yt2 = 20
  705.  
  706.  
  707. time = 3000
  708. time3.2 = 350
  709. score = 0
  710.  
  711. x = 10
  712. y = 10
  713. d = 1000
  714. DO
  715. LOCATE y, x: PRINT "$"
  716. LOCATE yt, xt: PRINT "t"
  717. LOCATE yt2, xt2: PRINT "t"
  718.  
  719. LOCATE 1, 35: PRINT "LEVEL 2"
  720.  
  721. LOCATE 1, 1: PRINT "TIME:";
  722. LOCATE 1, 69: PRINT "SCORE:"
  723.  
  724. LOCATE 1, 6: PRINT time
  725. LOCATE 1, 75: PRINT score
  726.  
  727.  
  728. '------------------------------BORDER--------------------------------
  729. LOCATE 2, 1: PRINT "--------------------------------------------------------------------------------"
  730. LOCATE 1, 21: PRINT "|"
  731. LOCATE 1, 55: PRINT "|"
  732. '--------------------------------------------------------------------
  733.  
  734. FOR T = 1 TO d: NEXT T
  735. CLS
  736. var$ = INKEY$
  737. IF var$ = "8" THEN y = y - 1
  738. IF var$ = "2" THEN y = y + 1
  739. IF var$ = "4" THEN x = x - 1
  740. IF var$ = "6" THEN x = x + 1
  741. IF var$ = "5" THEN x = 35
  742. IF var$ = "5" THEN y = 12
  743.  
  744. IF var$ = "7" THEN x = x - 2
  745. IF var$ = "7" THEN y = y - 1
  746. IF var$ = "3" THEN x = x + 2
  747. IF var$ = "3" THEN y = y + 1
  748. IF var$ = "1" THEN x = x - 2
  749. IF var$ = "1" THEN y = y + 1
  750. IF var$ = "9" THEN x = x + 2
  751. IF var$ = "9" THEN y = y - 1
  752.  
  753. IF y > 25 THEN y = 2
  754. IF y < 2 THEN y = 25
  755. IF x > 80 THEN x = 2
  756. IF x < 2 THEN x = 80
  757.  
  758.  
  759.  
  760. time = time - 2
  761. time3.2 = time3.2 - 1
  762.  
  763. IF y = yt AND x = xt THEN GOSUB reward2.2
  764.  
  765. IF y = yt2 AND x = xt2 THEN GOSUB reward2.2
  766.  
  767. IF score > 1000 THEN GOSUB congradulations2.2
  768.  
  769. IF time < 0 THEN GOSUB failtime2.2
  770.  
  771. IF time3.2 < 1 THEN GOSUB flux3.2
  772.  
  773. '-----------------------SKIP LEVEL CODE------------------
  774. IF var$ = "q" THEN GOSUB level1.2
  775. IF var$ = "e" THEN GOSUB level3.2
  776. IF var$ = "p" THEN GOSUB endless
  777. '--------------------------------------------------------
  778.  
  779. LOOP
  780.  
  781. flux3.2:
  782. CLS
  783. yt = INT(RND * 20) + 3
  784. xt = INT(RND * 70) + 1
  785.  
  786. yt2 = INT(RND * 20) + 3
  787. xt2 = INT(RND * 70) + 1
  788. time3.2 = time3.2 + 350
  789. RETURN
  790.  
  791. failtime2.2:
  792.  
  793. DO
  794. SCREEN 8
  795. COLOR 4
  796. LOCATE 12, 37: PRINT "Game Over"
  797. FOR T = 1 TO 2000000: NEXT T
  798. LOOP
  799.  
  800. '--------------------------------------------------------------------------
  801.  
  802. reward2.2:
  803. CLS
  804. SOUND 880, 2: SOUND 1760, 3
  805.  
  806. yt = INT(RND * 20) + 3
  807. xt = INT(RND * 70) + 1
  808.  
  809. yt2 = INT(RND * 20) + 3
  810. xt2 = INT(RND * 70) + 1
  811.  
  812. score = score + 57
  813. time = time + 450
  814. RETURN
  815.  
  816. '-------------------------------------------------------------------------
  817.  
  818. congradulations2.2:
  819. CLS
  820. LOCATE 15, 30: PRINT "Level 2 completed again, go again"
  821. FOR T = 1 TO 300000: NEXT T
  822. GOSUB level2.2
  823.  
  824. '--------------------------------LEVEL 3.2-------------------------------------
  825.  
  826.  
  827. level3.2:
  828.  
  829. CLS
  830. SCREEN 0
  831. xt = 15
  832. yt = 15
  833.  
  834. time = 3000
  835. time4.2 = 300
  836. score = 0
  837.  
  838. x = 10
  839. y = 10
  840. d = 1000
  841. DO
  842. LOCATE y, x: PRINT "$"
  843. LOCATE yt, xt: PRINT "t"
  844.  
  845. LOCATE 1, 35: PRINT "LEVEL 3"
  846.  
  847. LOCATE 1, 1: PRINT "TIME:";
  848. LOCATE 1, 69: PRINT "SCORE:"
  849.  
  850. LOCATE 1, 6: PRINT time
  851. LOCATE 1, 75: PRINT score
  852.  
  853.  
  854. '------------------------------BORDER--------------------------------
  855. LOCATE 2, 1: PRINT "--------------------------------------------------------------------------------"
  856. LOCATE 1, 21: PRINT "|"
  857. LOCATE 1, 55: PRINT "|"
  858. '--------------------------------------------------------------------
  859.  
  860. FOR T = 1 TO d: NEXT T
  861. CLS
  862. var$ = INKEY$
  863. IF var$ = "8" THEN y = y - 1
  864. IF var$ = "2" THEN y = y + 1
  865. IF var$ = "4" THEN x = x - 1
  866. IF var$ = "6" THEN x = x + 1
  867. IF var$ = "5" THEN x = 35
  868. IF var$ = "5" THEN y = 12
  869.  
  870. IF var$ = "7" THEN x = x - 2
  871. IF var$ = "7" THEN y = y - 1
  872. IF var$ = "3" THEN x = x + 2
  873. IF var$ = "3" THEN y = y + 1
  874. IF var$ = "1" THEN x = x - 2
  875. IF var$ = "1" THEN y = y + 1
  876. IF var$ = "9" THEN x = x + 2
  877. IF var$ = "9" THEN y = y - 1
  878.  
  879. IF y > 25 THEN y = 2
  880. IF y < 2 THEN y = 25
  881. IF x > 80 THEN x = 2
  882. IF x < 2 THEN x = 80
  883.  
  884.  
  885.  
  886. time = time - 2
  887. time4.2 = time4.2 - 1
  888.  
  889. IF y = yt AND x = xt THEN GOSUB reward4.2
  890.  
  891. IF score > 1000 THEN GOSUB congradulations4.2
  892.  
  893. IF time < 0 THEN GOSUB failtime4.2
  894.  
  895. IF time4.2 < 1 THEN GOSUB flux4.2
  896.  
  897. '-----------------------SKIP LEVEL CODE------------------
  898. IF var$ = "q" THEN GOSUB level1.2
  899. IF var$ = "w" THEN GOSUB level2.2
  900. IF var$ = "p" THEN GOSUB endless
  901. '--------------------------------------------------------
  902.  
  903. LOOP
  904.  
  905. flux4.2:
  906. CLS
  907. yt = INT(RND * 20) + 3
  908. xt = INT(RND * 70) + 1
  909. time4.2 = time4.2 + 300
  910. RETURN
  911.  
  912. failtime4.2:
  913.  
  914. DO
  915. SCREEN 8
  916. COLOR 4
  917. LOCATE 12, 37: PRINT "Game Over"
  918. FOR T = 1 TO 2000000: NEXT T
  919. LOOP
  920.  
  921. '--------------------------------------------------------------------------
  922.  
  923. reward4.2:
  924. CLS
  925. SOUND 880, 2: SOUND 1760, 3
  926.  
  927. yt = INT(RND * 20) + 3
  928. xt = INT(RND * 70) + 1
  929.  
  930. score = score + 57
  931. time = time + 500
  932. RETURN
  933.  
  934. '-------------------------------------------------------------------------
  935.  
  936. congradulations4.2:
  937. CLS
  938. LOCATE 15, 30: PRINT "Level 3 completed again, go again"
  939. FOR T = 1 TO 300000: NEXT T
  940. GOSUB level3.2
Advertisement
Add Comment
Please, Sign In to add comment
Public Pastes
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!