API tools faq
paste
Advertisement
plirof2

CSSCGC 2*65534 in1 games BASIC ok SEND

plirof2
Jan 28th, 2023 (edited)
202
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 9.29 KB | None | 0 0
raw download clone embed print report
  1. ZX "2*65534 In 1 Games" instructions
  2. -------------------------------
  3.  
  4. Introduction
  5. ------------
  6. Thank you for buying Many-In-1 Games. The International release title is "2*65534 In 1 Games".
  7. Firelord Quality Games - Game Development Ideas Department.
  8. Our staff proudly stole code from 10liner contest and addapted it to create the "Ultimate Gaming Experience" for all spectrum owners or fans!
  9. Do you feel lucky? Try to select a random game!!!
  10.  
  11. Introduction 2
  12. --------------
  13. You have all played 10in1 games, 100in1 ,200in1,256in1 ,500in1 games and many under-1000-in1 games.
  14. Have you ever played 65534in1 game? No? We are happy to inform you that you will be able to play 2*65534in1 game!!!
  15.  
  16. Story
  17. -----
  18. Type A games: You control a hero and must avoid the obstacles!
  19. Type B games: You control a spaceship and must destroy enemy defences with your bouncing bomb weapon!
  20.  
  21.  
  22. Instructions
  23. ------------
  24. First select game type then select game number!
  25. Instructions for Type A games: You control a hero and must avoid the obstacles!
  26. Instructions for Type B games: You control a spaceship and must destroy enemy defences with your bouncing bomb weapon!
  27.  
  28.  
  29. Controls
  30. --------
  31. Game features many control options:
  32. 1. Voice Command - Need the 2GB ZX Spectrum memory expansion and the new Intel-based Z80 CPU.
  33. 2. Mind control - Has been disabled because it was discovered that the control commands were going both ways.
  34. 3. Joy-Stick. This is a prehistoric tool. It is a long stick that allows you to push keys from a distance.
  35.  
  36. If none of these work you can usekeys "1" or "o" for left and "0" or "p" for right !
  37.  
  38.  
  39. Features
  40. --------
  41. -Unlimited FUN!!!
  42. -Many unique games
  43. -It contains a practically unlimited number of addictive games with original graphics NEVER seen before in any other games!
  44. -Simple and addictive games!
  45. -Games that are fun to play!
  46. -Fun games that you can play!
  47. -You don't need to read huge manuals to play them!
  48. -You can play a new game each day for the rest of your life and you can pass the game to you r grandchildren and they can continue playing one game each day!
  49.  
  50.  
  51. Systems Supported
  52. -----------------
  53. ZX Spectrum
  54. ZX Spectrum +
  55. ZX Spectrum Clones
  56. ZX Spectrum Compatible
  57.  
  58.  
  59. TIPS
  60. ----
  61. -You can send tips in the Main building of"Firelord Quality Games"
  62. -Game Gurus suggest to note the game numbers you like so you can enjoy them again!
  63.  
  64.  
  65. Credits
  66. -------
  67. -Created by Firelord Quality Games
  68. using
  69. Games found on some very old 10liner type contests I believe both of them belong to user "Matt_B"
  70. -Type A games source: https://worldofspectrum.org/forums/discussion/comment/189660/#Comment_189660
  71. -Type B games source: (I think it was from Matt_B) - BASIC 1liner 20xx -Breakout v02
  72. ____________________________
  73. GFX LISTER
  74. 5 REM 2*65534 IN1 GAMESzx spectrum
  75. 6 PAPER 0:BORDER 0 :CLS
  76. 10 REM TODO: RANDOMIZE SELECTION
  77. 1030 FOR t=1 TO 10000 STEP 100
  78. 1035 RESTORE 9000: FOR f=65368 TO 65431: READ a: POKE f,a: NEXT f:
  79.  
  80. 1040 PRINT INK (1+RND*6);CHR$ 144;
  81. 1110 NEXT t:
  82. 8999 REM ====AMAZING GRAPHICS GENERATOR===========
  83. 9000 DATA INT (33+RND*33),INT (RND*254),INT (RND*254),INT (RND*254),INT (RND*254),INT (RND*254),INT (RND*254),INT (33+RND*33)
  84. 9010 DATA INT (RND*254),INT (RND*254),INT (RND*254),INT (RND*254),INT (RND*254),INT (RND*254),INT (RND*254),INT (RND*254)
  85. 9020 DATA INT (RND*254),INT (RND*254),INT (RND*254),INT (RND*254),INT (RND*254),INT (RND*254),INT (RND*254),INT (RND*254)
  86. 9030 DATA INT (RND*254),INT (RND*254),INT (RND*254),INT (RND*254),INT (RND*254),INT (RND*254),INT (RND*254),INT (RND*254)
  87. 9040 DATA INT (RND*254),INT (RND*254),INT (RND*254),INT (RND*254),INT (RND*254),INT (RND*254),INT (RND*254),INT (RND*254)
  88. 9050 DATA INT (RND*254),INT (RND*254),INT (RND*254),INT (RND*254),INT (RND*254),INT (RND*254),INT (RND*254),INT (RND*254)
  89. 9060 DATA INT (RND*254),INT (RND*254),INT (RND*254),INT (RND*254),INT (RND*254),INT (RND*254),INT (RND*254),INT (RND*254)
  90. 9070 DATA INT (RND*254),INT (RND*254),INT (RND*254),INT (RND*254),INT (RND*254),INT (RND*254),INT (RND*254),INT (RND*254)
  91. 9080 DATA INT (33+RND*33),INT (RND*254),INT (RND*254),INT (RND*254),INT (RND*254),INT (RND*254),INT (RND*254),INT (33+RND*33)
  92.  
  93.  
  94.  
  95.  
  96. _________________________________
  97. 9521 LET GAMEMAX=65534
  98. 9800 REM ====LOADER====
  99. 9810 PAPER 0:INK 4:BORDER 2:CLS:BEEP 1,5
  100. 9820 PRINT AT 3,5;"FIRELORD QUALITY GAMES";FLASH 0
  101. 9830 PRINT AT 4,11;"PRESENTS";FLASH 0
  102. 9840 FOR I=1 TO 5 :PRINT AT 7+I,5;FLASH 1;INK 1+I;"-- 2*";GAMEMAX;"IN 1 GAMES--";FLASH 0:NEXT I
  103. 9845 PRINT AT 16,7;BRIGHT 1;INK 3;PAPER 6;"UNLIMITED FUN!!!! ";BRIGHT 0
  104. 9850 PRINT AT 17,7;INK 3;"THE BIGGEST GAME "
  105. 9855 PRINT AT 18,7;INK 3;"COLLECTION - EVER!"
  106. 9860 PRINT AT 19,7;INK 6;" GET READY!!!!"
  107. 9890 BEEP 3,5: BEEP 1,5:BEEP 2,5:PAUSE 5:MERGE "":RUN
  108. _____________
  109.  
  110.  
  111.  
  112. 5 REM 2*65534 IN1 GAMESzx spectrum
  113. 10 REM TODO: RANDOMIZE SELECTION
  114. 50 GO SUB 9500
  115. 100 PAPER COLPAPER: BORDER COLPAPER: INK COLINK: CLS
  116. 110 LET SELECT=0
  117. 150 GO SUB LISTGAMES
  118. 200 GO SUB GAMESMENU
  119. 500 GO TO 100
  120. 1000 REM ======GAME type A======
  121. 1005 PRINT AT 10,9; FLASH 1;INK 1;"PLEASE WAIT";INK COLINK; FLASH 0
  122. 1010 RESTORE 9000: FOR f=65368 TO 65431: READ a: POKE f,a: NEXT f: GO SUB TYPEAINTRO
  123. 1020 LET s=0: BORDER 0: PAPER 0: INK 7: CLS : LET x=15:
  124. 1030 FOR f=0 TO 1:
  125. 1040 PRINT AT 0,x; INK 6;CHR$ 144:
  126.  
  127. 1050 FOR g=0 TO s/99:
  128. 1060 PRINT AT 21,RND*31; BRIGHT 1; INK 7-g;CHR$ (145+g):
  129. 1070 NEXT g:
  130. 1080 LET s=s+USR 3282-800:
  131. 1090 LET x=x+(INKEY$="0" AND x<31)+(INKEY$="p" AND x<31)-(INKEY$="1" AND x>0)-(INKEY$="o" AND x>0):
  132. 1100 LET f=ATTR (0,x)<>7:
  133. 1110 NEXT f:
  134. 1120 PRINT AT 0,0;"Score=";s: INPUT "Press Enter", LINE a$: RUN :
  135. 1500 RETURN
  136. 2000 REM ======GAME type B=======
  137. 2510 REM Breakout v02 keys:1,0 Copy to BASIN -Matt_B UDG
  138. 2515 PRINT AT 10,9; FLASH 1;INK 1;"PLEASE WAIT";INK COLINK; FLASH 0
  139. 2520 RESTORE 9000: FOR f=65368 TO 65391: READ a: POKE f,a: NEXT f: GO SUB TYPEBINTRO:
  140. 2530 BORDER 0: PAPER 0: INK 7: CLS :
  141. 2540 LET s=1:
  142. 2550 FOR f=1 TO 7:
  143. 2560 FOR g=1 TO 30:
  144. 2570 PRINT AT f,g; BRIGHT 1; INK f;CHR$ (145+s):
  145. 2580 LET s=NOT s: NEXT g: LET s=NOT s:
  146. 2590 NEXT f:
  147. 2600 LET x=9: LET y=1: LET p=9: LET a=1: LET b=1:
  148. 2610 FOR f=0 TO 1:
  149. 2620 PRINT AT x,y;" ": LET x=x+a: LET y=y+b: LET t=(ATTR (x,y)<>7):
  150. 2630 PRINT AT x,y;CHR$ 144;AT 21,p;" _____ ": LET a=a*-(2*t-1): LET s=s+t: LET f=(x=21 AND (y<p+1 OR y>p+5)):
  151. 2640 LET p=p+(INKEY$="0" AND p<25)+(INKEY$="p" AND p<25)-(INKEY$="1" AND p>0)-(INKEY$="o" AND p>0):
  152. 2650 LET b=b+2*(y=1)-2*(y=30): LET a=a+2*(x=0)-2*(x=21):
  153. 2660 NEXT f:
  154. 2670 PRINT AT 0,0;"Score=";s: INPUT "Press enter", LINE a$: RUN :
  155. 2800 RETURN
  156. 5100 REM ====DETAILED INSTRUCTIONS type -A===========
  157. 5110 PRINT AT 10,7;"----WELCOME----"
  158. 5120 PRINT AT 11,9;"OUR HERO ";CHR$ 144;","
  159. 5130 PRINT AT 12,8;"MUST AVOID ";CHR$ (145);" !"
  160. 5140 PRINT AT 13,5;"1/O LEFT , 0/P RIGHT"
  161. 5180 PRINT AT 15,5;"PRESS ANY KEY TO START"
  162. 5300 PAUSE 0
  163. 5400 RETURN
  164. 5500 REM ====DETAILED INSTRUCTIONS type -B===========
  165. 5510 PRINT AT 10,7;"----WELCOME----"
  166. 5520 PRINT AT 11,5;"GUIDE YOUR MISSILE :";CHR$ 144;
  167. 5530 PRINT AT 12,5;"TO DESTROY ENEMIES :";CHR$ (145);
  168. 5540 PRINT AT 13,5;"1/O LEFT , 0/P RIGHT"
  169. 5580 PRINT AT 15,5;"PRESS ANY KEY TO START"
  170. 5600 PAUSE 0
  171. 5700 RETURN
  172. 7000 REM ====GAMEMENU SELECTION ====
  173. 7020 INPUT "PLEASE ENTER GAME TYPE (A/B) : ";T$
  174. 7030 IF (T$<>"A" AND T$<>"a" AND T$<>"B" AND T$<>"b") THEN GO TO 7020
  175. 7120 INPUT "PLEASE ENTER GAME NUMBER : ";SELECTION
  176. 7130 IF (SELECTION<0 OR SELECTION>GAMEMAX) THEN GO TO 7120
  177. 7150 RANDOMIZE SELECTION
  178. 7160 IF (T$="A" OR T$="a") THEN GO SUB TYPEAGAME
  179. 7170 IF (T$="B" OR T$="b") THEN GO SUB TYPEBGAME
  180. 7500 RETURN
  181. 8000 REM =========LISTGAMES============
  182. 8050 PRINT AT 2,5; BRIGHT 1; INK 0; PAPER 7;"FIRELORD QUALITY GAMES"; FLASH 0; BRIGHT 0
  183. 8070 PRINT AT 4,0; INVERSE 1;"--PRESENTS : "; FLASH 1; BRIGHT 1; INK 0; PAPER 7;"2*";GAMEMAX;"IN1 GAMES"; FLASH 0; BRIGHT 0; INK COLINK; PAPER COLPAPER;"--"; INVERSE 0
  184. 8100 PRINT ,," SELECT GAME 1-";GAMEMAX
  185. 8105 REM PRINT INK 7;"REMEMBER TO NOTE THE GAME NUMBERS YOU LIKE!"
  186. 8900 RETURN
  187. 8999 REM ====AMAZING GRAPHICS GENERATOR===========
  188. 9000 DATA INT (33+RND*33),INT (RND*254),INT (RND*254),INT (RND*254),INT (RND*254),INT (RND*254),INT (RND*254),INT (33+RND*33)
  189. 9010 DATA INT (RND*254),INT (RND*254),INT (RND*254),INT (RND*254),INT (RND*254),INT (RND*254),INT (RND*254),INT (RND*254)
  190. 9020 DATA INT (RND*254),INT (RND*254),INT (RND*254),INT (RND*254),INT (RND*254),INT (RND*254),INT (RND*254),INT (RND*254)
  191. 9030 DATA INT (RND*254),INT (RND*254),INT (RND*254),INT (RND*254),INT (RND*254),INT (RND*254),INT (RND*254),INT (RND*254)
  192. 9040 DATA INT (RND*254),INT (RND*254),INT (RND*254),INT (RND*254),INT (RND*254),INT (RND*254),INT (RND*254),INT (RND*254)
  193. 9050 DATA INT (RND*254),INT (RND*254),INT (RND*254),INT (RND*254),INT (RND*254),INT (RND*254),INT (RND*254),INT (RND*254)
  194. 9060 DATA INT (RND*254),INT (RND*254),INT (RND*254),INT (RND*254),INT (RND*254),INT (RND*254),INT (RND*254),INT (RND*254)
  195. 9070 DATA INT (RND*254),INT (RND*254),INT (RND*254),INT (RND*254),INT (RND*254),INT (RND*254),INT (RND*254),INT (RND*254)
  196. 9080 DATA INT (33+RND*33),INT (RND*254),INT (RND*254),INT (RND*254),INT (RND*254),INT (RND*254),INT (RND*254),INT (33+RND*33)
  197. 9500 REM =====INIT======
  198. 9510 LET TYPEAGAME=1000: LET TYPEBGAME=2000: LET TYPEAINTRO=5100: LET TYPEBINTRO=5500: LET LISTGAMES=8000
  199. 9520 LET GAMEMAX=65534: LET GAMESMENU=7000
  200. 9525 LET COLPAPER=0: LET COLINK=3: LET COLBORDER=2
  201. 9600 RETURN
  202.  
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
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!