Show Posts

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.


Topics - qb4ever

Pages: [1]
1
Programs / Alien
« on: April 09, 2019, 10:47:15 am »
Good morning / afternoon / evening

In the past few months, I have tried to reproduce a concept based on 80s / 90s platforms.
I attach the executable file of the first 3 levels.
Obviously this is a work in progress.
As soon as possible I will clean the code from many notes (7191 lines ...) and I will post the code, because it is definitely written in a prehistoric way and I will need your advice.
Run the program with audio, because the audio effects are definitely vintage.
In the HELP menu you will see the buttons to use (arrows and spacebar, in addition to the "f" key).
"F" key should be used for platforms near fish and where there is water.
Attention, as soon as you see the platform on the water, press "F" very quickly.
Maybe I'm crazy.
I await your comments.
Enjoy, bye

2
Programs / In the last Christmas holidays
« on: March 06, 2019, 05:29:46 am »
During the last Christmas holidays, I had some time and I wrote a few lines, but in QB45.

Just to show my son, incredulous, that not exist only Fortnite! (or similar) :D

It's a concept, just an idea ....

From the main screen, you can see the commands with the keys to use.

Any suggestion is well accepted!

Code: QB64: [Select]
  2. '================== DISEGNO SCHERMATA DI INIZIO ===============
  3. '*** TITLE GIFTS
  4.  
  5. XB = 30
  6. YB = 50
  7.  
  8. '*************** testa e naso
  9. PSET (XB, YB)
  10. DRAW "C88f3r8e3u8d5r1u1l1u4h3l8g3d8"
  11. PAINT (XB + 5, YB), 88
  12.  
  13.  
  14. '*************** bocca occhi e capelli
  15. PSET (XB + 13, YB)
  16. DRAW "C4l1h1BU6BR1C15D3L1U2L1D2R2C0U1BL6C15U6l3g3d7r2u6r3d3r2u7r4f1l4"
  17. PAINT (XB + 5, YB - 8), 15
  18.  
  19.  
  20.  
  21. '************** busto
  22. PSET (XB + 3, YB + 3)
  23. DRAW "c4g3d7r14u7h3l8bg3bd8c6r14d1l14"
  24. PAINT (XB + 5, YB + 8), 4
  25. PSET (XB + 4, YB + 8)
  26.  
  27.  
  28. '************ gambe
  29. PSET (XB, YB + 16)
  30. DRAW "c4d3f4d6r9u12e1l14"
  31. PAINT (XB + 5, YB + 20), 4
  32. PSET (XB + 4, YB + 35)
  33.  
  34. ' *********** scarpe
  35. DRAW "c6f1r9e1u2h1l9g1d2bu4br2c88u1r2d1l1"
  36. PAINT (XB + 7, YB + 35), 6
  37.  
  38. ' ********** braccio e mano
  39. PSET (XB + 4, YB + 8)
  40. DRAW "c120d10r1u10r1d10r1u10"
  41. PSET (XB + 5, YB + 19)
  42. DRAW "c88d1r1u1l1"
  43.  
  44. '********** BARBA
  45. PSET (XB + 13, YB - 2)
  46. DRAW "C15L2G3D2F4E2U7L2"
  47. PAINT (XB + 12, YB + 2), 15
  48. '*************** bocca
  49. PSET (XB + 13, YB)
  50. DRAW "C4l1h1"
  51.  
  52. '*********** CAPPELLO
  53. PSET (XB, YB - 10)
  54. DRAW "C4R14H7G7"
  55. PAINT (XB + 7, YB - 15), 4
  56. PSET (XB + 7, YB - 17)
  57. DRAW "C4L6F6"
  58. PAINT (XB + 4, YB - 16), 4
  59.  
  60. CIRCLE (XB - 2, YB - 17), 3, 15
  61. PAINT (XB - 2, YB - 17), 15
  62. 'GOTO SCR1
  63.  
  64.  
  65. '***** pietra innevata
  66. PIX = 15
  67. PIY = 90
  68.  
  69. PSET (PIX, PIY)
  70. DRAW "c186f25e25l50"
  71. PAINT (PIX + 15, PIY + 12), 186
  72. CIRCLE (PIX + 15, PIY + 8), 3, 6
  73. PAINT (PIX + 15, PIY + 8), 6
  74. CIRCLE (PIX + 25, PIY + 12), 3, 6
  75. PAINT (PIX + 25, PIY + 12), 6
  76. CIRCLE (PIX + 35, PIY + 10), 3, 6
  77. PAINT (PIX + 35, PIY + 10), 6
  78. PSET (PIX - 5, PIY)
  79. DRAW "C30f2R55E2U2H2L55G2D2"
  80. PAINT (PIX + 25, PIY), 30
  81. PSET (PIX, PIY - 2)
  82. DRAW "C15R50D1L50"
  83.  
  84.  
  85.  
  86. '****** SCRITTA IN ASCII
  87. AJ = 3 '35
  88. W1 = 4
  89. W2 = 14
  90. W3 = 2
  91.  
  92. LOCATE 10, 10: COLOR W1: PRINT CHR$(AJ)
  93. LOCATE 10, 11: COLOR W1: PRINT CHR$(AJ)
  94. LOCATE 10, 12: COLOR W1: PRINT CHR$(AJ)
  95. LOCATE 9, 13: COLOR W3: PRINT CHR$(AJ)
  96. LOCATE 8, 12: COLOR W1: PRINT CHR$(AJ)
  97. LOCATE 8, 11: COLOR W1: PRINT CHR$(AJ)
  98. 'LOCATE 8, 10: COLOR W1: PRINT CHR$(AJ)
  99. LOCATE 7, 10: COLOR W3: PRINT CHR$(AJ)
  100. 'LOCATE 6, 10: COLOR W1: PRINT CHR$(AJ)
  101. LOCATE 6, 11: COLOR W1: PRINT CHR$(AJ)
  102. LOCATE 6, 12: COLOR W1: PRINT CHR$(AJ)
  103. 'LOCATE 6, 13: COLOR W1: PRINT CHR$(AJ)
  104.  
  105.  
  106. LOCATE 10, 15: COLOR W1: PRINT CHR$(AJ)
  107. LOCATE 9, 15: COLOR W3: PRINT CHR$(AJ)
  108. LOCATE 8, 15: COLOR W1: PRINT CHR$(AJ)
  109. LOCATE 7, 15: COLOR W3: PRINT CHR$(AJ)
  110. LOCATE 6, 16: COLOR W1: PRINT CHR$(AJ)
  111. LOCATE 6, 17: COLOR W1: PRINT CHR$(AJ)
  112. LOCATE 8, 16: COLOR W1: PRINT CHR$(AJ)
  113. LOCATE 8, 17: COLOR W1: PRINT CHR$(AJ)
  114. LOCATE 10, 18: COLOR W1: PRINT CHR$(AJ)
  115. LOCATE 9, 18: COLOR W3: PRINT CHR$(AJ)
  116. LOCATE 8, 18: COLOR W1: PRINT CHR$(AJ)
  117. LOCATE 7, 18: COLOR W3: PRINT CHR$(AJ)
  118.  
  119. LOCATE 10, 20: COLOR W1: PRINT CHR$(AJ)
  120. LOCATE 9, 20: COLOR W3: PRINT CHR$(AJ)
  121. LOCATE 8, 20: COLOR W1: PRINT CHR$(AJ)
  122. LOCATE 7, 20: COLOR W3: PRINT CHR$(AJ)
  123. LOCATE 6, 20: COLOR W1: PRINT CHR$(AJ)
  124. LOCATE 8, 21: COLOR W1: PRINT CHR$(AJ)
  125. LOCATE 9, 22: COLOR W3: PRINT CHR$(AJ)
  126. LOCATE 10, 23: COLOR W1: PRINT CHR$(AJ)
  127. LOCATE 9, 23: COLOR W3: PRINT CHR$(AJ)
  128. LOCATE 8, 23: COLOR W1: PRINT CHR$(AJ)
  129. LOCATE 7, 23: COLOR W3: PRINT CHR$(AJ)
  130. LOCATE 6, 23: COLOR W1: PRINT CHR$(AJ)
  131.  
  132. LOCATE 10, 27: COLOR W1: PRINT CHR$(AJ)
  133. LOCATE 9, 27: COLOR W3: PRINT CHR$(AJ)
  134. LOCATE 8, 27: COLOR W1: PRINT CHR$(AJ)
  135. LOCATE 7, 27: COLOR W3: PRINT CHR$(AJ)
  136. LOCATE 6, 27: COLOR W1: PRINT CHR$(AJ)
  137. LOCATE 6, 25: COLOR W1: PRINT CHR$(AJ)
  138. LOCATE 6, 26: COLOR W1: PRINT CHR$(AJ)
  139. LOCATE 6, 27: COLOR W1: PRINT CHR$(AJ)
  140. LOCATE 6, 28: COLOR W1: PRINT CHR$(AJ)
  141. LOCATE 6, 29: COLOR W1: PRINT CHR$(AJ)
  142.  
  143. LOCATE 10, 31: COLOR W1: PRINT CHR$(AJ)
  144. LOCATE 9, 31: COLOR W3: PRINT CHR$(AJ)
  145. LOCATE 8, 31: COLOR W1: PRINT CHR$(AJ)
  146. LOCATE 7, 31: COLOR W3: PRINT CHR$(AJ)
  147. LOCATE 6, 32: COLOR W1: PRINT CHR$(AJ)
  148. LOCATE 6, 33: COLOR W1: PRINT CHR$(AJ)
  149. LOCATE 8, 32: COLOR W1: PRINT CHR$(AJ)
  150. LOCATE 8, 33: COLOR W1: PRINT CHR$(AJ)
  151. LOCATE 10, 34: COLOR W1: PRINT CHR$(AJ)
  152. LOCATE 9, 34: COLOR W3: PRINT CHR$(AJ)
  153. LOCATE 8, 34: COLOR W1: PRINT CHR$(AJ)
  154. LOCATE 7, 34: COLOR W3: PRINT CHR$(AJ)
  155.  
  156. LOCATE 5, 35: COLOR W1: PRINT CHR$(AJ)
  157. LOCATE 6, 35: COLOR W1: PRINT CHR$(AJ)
  158.  
  159.  
  160. LOCATE 10, 36: COLOR W1: PRINT CHR$(AJ)
  161. LOCATE 10, 37: COLOR W1: PRINT CHR$(AJ)
  162. LOCATE 10, 38: COLOR W1: PRINT CHR$(AJ)
  163. LOCATE 9, 39: COLOR W3: PRINT CHR$(AJ)
  164. LOCATE 8, 38: COLOR W1: PRINT CHR$(AJ)
  165. LOCATE 8, 37: COLOR W1: PRINT CHR$(AJ)
  166. 'LOCATE 8, 10: COLOR W1: PRINT CHR$(AJ)
  167. LOCATE 7, 36: COLOR W3: PRINT CHR$(AJ)
  168. 'LOCATE 6, 10: COLOR W1: PRINT CHR$(AJ)
  169. LOCATE 6, 37: COLOR W1: PRINT CHR$(AJ)
  170. LOCATE 6, 38: COLOR W1: PRINT CHR$(AJ)
  171. 'LOCATE 6, 13: COLOR W1: PRINT CHR$(AJ)
  172.  
  173.  
  174. LOCATE 17, 17: COLOR W1: PRINT CHR$(AJ)
  175. LOCATE 17, 16: COLOR W1: PRINT CHR$(AJ)
  176. LOCATE 16, 18: COLOR W3: PRINT CHR$(AJ)
  177.  
  178. 'LOCATE 17, 15: COLOR W1: PRINT CHR$(AJ)
  179. LOCATE 16, 15: COLOR W3: PRINT CHR$(AJ)
  180. LOCATE 15, 15: COLOR W1: PRINT CHR$(AJ)
  181. LOCATE 14, 15: COLOR W3: PRINT CHR$(AJ)
  182. LOCATE 13, 16: COLOR W1: PRINT CHR$(AJ)
  183. LOCATE 13, 17: COLOR W1: PRINT CHR$(AJ)
  184. 'LOCATE 13, 18: COLOR W1: PRINT CHR$(AJ)
  185. LOCATE 15, 17: COLOR W1: PRINT CHR$(AJ)
  186.  
  187. LOCATE 17, 20: COLOR W1: PRINT CHR$(AJ)
  188. LOCATE 16, 20: COLOR W3: PRINT CHR$(AJ)
  189. LOCATE 15, 20: COLOR W1: PRINT CHR$(AJ)
  190. LOCATE 14, 20: COLOR W3: PRINT CHR$(AJ)
  191. LOCATE 13, 20: COLOR W1: PRINT CHR$(AJ)
  192.  
  193. LOCATE 17, 22: COLOR W1: PRINT CHR$(AJ)
  194. LOCATE 16, 22: COLOR W3: PRINT CHR$(AJ)
  195. LOCATE 15, 22: COLOR W1: PRINT CHR$(AJ)
  196. LOCATE 14, 22: COLOR W3: PRINT CHR$(AJ)
  197. LOCATE 13, 22: COLOR W1: PRINT CHR$(AJ)
  198. LOCATE 13, 23: COLOR W1: PRINT CHR$(AJ)
  199. LOCATE 13, 24: COLOR W1: PRINT CHR$(AJ)
  200. LOCATE 13, 25: COLOR W1: PRINT CHR$(AJ)
  201. LOCATE 15, 23: COLOR W1: PRINT CHR$(AJ)
  202.  
  203. LOCATE 17, 29: COLOR W1: PRINT CHR$(AJ)
  204. LOCATE 16, 29: COLOR W3: PRINT CHR$(AJ)
  205. LOCATE 15, 29: COLOR W1: PRINT CHR$(AJ)
  206. LOCATE 14, 29: COLOR W3: PRINT CHR$(AJ)
  207. LOCATE 13, 29: COLOR W1: PRINT CHR$(AJ)
  208. LOCATE 13, 27: COLOR W1: PRINT CHR$(AJ)
  209. LOCATE 13, 28: COLOR W1: PRINT CHR$(AJ)
  210. LOCATE 13, 29: COLOR W1: PRINT CHR$(AJ)
  211. LOCATE 13, 30: COLOR W1: PRINT CHR$(AJ)
  212. LOCATE 13, 31: COLOR W1: PRINT CHR$(AJ)
  213.  
  214. LOCATE 17, 33: COLOR W1: PRINT CHR$(AJ)
  215. LOCATE 17, 34: COLOR W1: PRINT CHR$(AJ)
  216. LOCATE 17, 35: COLOR W1: PRINT CHR$(AJ)
  217. LOCATE 16, 36: COLOR W3: PRINT CHR$(AJ)
  218. LOCATE 15, 35: COLOR W1: PRINT CHR$(AJ)
  219. LOCATE 15, 34: COLOR W1: PRINT CHR$(AJ)
  220. 'LOCATE 8, 33: COLOR W1: PRINT CHR$(AJ)
  221. LOCATE 14, 33: COLOR W3: PRINT CHR$(AJ)
  222. 'LOCATE 6, 33: COLOR W1: PRINT CHR$(AJ)
  223. LOCATE 13, 34: COLOR W1: PRINT CHR$(AJ)
  224. LOCATE 13, 35: COLOR W1: PRINT CHR$(AJ)
  225. 'LOCATE 6, 13: COLOR W1: PRINT CHR$(AJ)
  226.  
  227. '*********
  228. LOCATE 22, 10: COLOR 41: PRINT "Programmato da DS"
  229. LOCATE 23, 18: COLOR 43: PRINT "v 0.9"
  230.  
  232.  
  233.  
  234. '================== FINE DISEGNO SCHERMATA DI INIZIO ===============
  235. 'ooO(§§)Ooo
  236. 'ooO(§§)Ooo
  237. '================== INIZIO MENU ===============
  238. MENU:
  240. PAINT (1, 1), 0
  241. W1 = 4
  242. W2 = 14
  243. W3 = 2
  244.  
  245. LOCATE 5, 15: COLOR W3, 0: PRINT " I N I Z I O"
  246. LOCATE 8, 15: COLOR W3, 0: PRINT "L I V E L L I"
  247. LOCATE 11, 15: COLOR W3, 0: PRINT "C O M A N D I"
  248.  
  249. LOCATE 5, 15: COLOR W1: PRINT " I"
  250. LOCATE 8, 15: COLOR W1: PRINT "L"
  251. LOCATE 11, 15: COLOR W1: PRINT "C"
  252.  
  253.  
  254. '****** pupazzo di neve
  255. CIRCLE (160, 170), 20, 15
  256. PAINT (160, 170), 15
  257. CIRCLE (160, 143), 15, 15
  258. PAINT (160, 143), 15
  259. CIRCLE (160, 143), 8, 4, 4.14, 5.28
  260. CIRCLE (152, 140), 3, 0
  261. PAINT (152, 140), 0
  262. CIRCLE (168, 140), 3, 0
  263. PAINT (168, 140), 0
  264. CIRCLE (160, 143), 3, 12
  265. PAINT (160, 143), 12
  266.  
  267. CIRCLE (160, 160), 3, 4
  268. PAINT (160, 160), 4
  269. CIRCLE (160, 170), 3, 4
  270. PAINT (160, 170), 4
  271. CIRCLE (160, 180), 3, 4
  272. PAINT (160, 180), 4
  273.  
  274. '************* pallina
  275.  
  276. CIRCLE (80, 80), 10, 4
  277. PAINT (80, 80), 4
  278. PSET (70, 80)
  279. DRAW "c2e2f4e4f4e4f2"
  280. PSET (79, 71)
  281. DRAW "c7u2r2d2u2l1c15u14"
  282.  
  283. CIRCLE (40, 70), 10, 2
  284. PAINT (40, 70), 2
  285. PSET (30, 70)
  286. DRAW "c4e2f4e4f4e4f2"
  287. PSET (39, 61)
  288. DRAW "c7u2r2d2u2l1c15u14"
  289.  
  290. CIRCLE (280, 80), 10, 14
  291. PAINT (280, 80), 14
  292. PSET (270, 80)
  293. DRAW "c2e2f4e4f4e4f2"
  294. PSET (279, 71)
  295. DRAW "c7u2r2d2u2l1c15u14"
  296.  
  297. CIRCLE (240, 70), 10, 42
  298. PAINT (240, 70), 42
  299. PSET (230, 70)
  300. DRAW "c2e2f4e4f4e4f2"
  301. PSET (239, 61)
  302. DRAW "c7u2r2d2u2l1c15u14"
  303.  
  304.  
  305.  
  306.  
  307.  
  308.  
  309.  
  310.  
  311.  
  312. PS7: A$ = INKEY$: IF A$ = "" THEN GOTO PS7
  313.  
  314.  
  315. IF A$ = "I" OR A$ = "i" THEN GOTO VAI
  316. IF A$ = "L" OR A$ = "l" THEN GOTO LEVEL
  317. IF A$ = "C" OR A$ = "c" THEN GOTO COMANDI
  318. GOTO PS7
  319. '============= INIZIO SCHERMATA LIVELLO ========
  320. LEVEL:
  322. XB = 30
  323. YB = 130
  324.  
  325. '*************** testa e naso
  326. PSET (XB, YB)
  327. DRAW "C88f3r8e3u8d5r1u1l1u4h3l8g3d8"
  328. PAINT (XB + 5, YB), 88
  329.  
  330.  
  331. '*************** bocca occhi e capelli
  332. PSET (XB + 13, YB)
  333. DRAW "C4l1h1BU6BR1C15D3L1U2L1D2R2C0U1BL6C15U6l3g3d7r2u6r3d3r2u7r4f1l4"
  334. PAINT (XB + 5, YB - 8), 15
  335.  
  336.  
  337.  
  338. '************** busto
  339. PSET (XB + 3, YB + 3)
  340. DRAW "c4g3d7r14u7h3l8bg3bd8c6r14d1l14"
  341. PAINT (XB + 5, YB + 8), 4
  342. PSET (XB + 4, YB + 8)
  343.  
  344.  
  345. '************ gambe
  346. PSET (XB, YB + 16)
  347. DRAW "c4d3f4d6r9u12e1l14"
  348. PAINT (XB + 5, YB + 20), 4
  349. PSET (XB + 4, YB + 35)
  350.  
  351. ' *********** scarpe
  352. DRAW "c6f1r9e1u2h1l9g1d2bu4br2c88u1r2d1l1"
  353. PAINT (XB + 7, YB + 35), 6
  354.  
  355. ' ********** braccio e mano
  356. PSET (XB + 4, YB + 8)
  357. DRAW "c120d10r1u10r1d10r1u10"
  358. PSET (XB + 5, YB + 19)
  359. DRAW "c88d1r1u1l1"
  360.  
  361. '********** BARBA
  362. PSET (XB + 13, YB - 2)
  363. DRAW "C15L2G3D2F4E2U7L2"
  364. PAINT (XB + 12, YB + 2), 15
  365. '*************** bocca
  366. PSET (XB + 13, YB)
  367. DRAW "C4l1h1"
  368.  
  369. '*********** CAPPELLO
  370. PSET (XB, YB - 10)
  371. DRAW "C4R14H7G7"
  372. PAINT (XB + 7, YB - 15), 4
  373. PSET (XB + 7, YB - 17)
  374. DRAW "C4L6F6"
  375. PAINT (XB + 4, YB - 16), 4
  376.  
  377. CIRCLE (XB - 2, YB - 17), 3, 15
  378. PAINT (XB - 2, YB - 17), 15
  379. 'GOTO SCR1
  380.  
  381.  
  382. '***** pietra innevata
  383. PIX = 15
  384. PIY = 170
  385.  
  386. PSET (PIX, PIY)
  387. DRAW "c186f25e25l50"
  388. PAINT (PIX + 15, PIY + 12), 186
  389. CIRCLE (PIX + 15, PIY + 8), 3, 6
  390. PAINT (PIX + 15, PIY + 8), 6
  391. CIRCLE (PIX + 25, PIY + 12), 3, 6
  392. PAINT (PIX + 25, PIY + 12), 6
  393. CIRCLE (PIX + 35, PIY + 10), 3, 6
  394. PAINT (PIX + 35, PIY + 10), 6
  395. PSET (PIX - 5, PIY)
  396. DRAW "C30f2R55E2U2H2L55G2D2"
  397. PAINT (PIX + 25, PIY), 30
  398. PSET (PIX, PIY - 2)
  399. DRAW "C15R50D1L50"
  400.  
  401. '****** fumetto *******
  402. CIRCLE (120, 40), 16, 15
  403. PAINT (120, 40), 15
  404. CIRCLE (280, 40), 16, 15
  405. PAINT (280, 40), 15
  406. CIRCLE (120, 140), 16, 15
  407. PAINT (120, 140), 15
  408. CIRCLE (280, 140), 16, 15
  409. PAINT (280, 140), 15
  410. LINE (104, 40)-(296, 140), 15, BF
  411. LINE (120, 27)-(280, 153), 15, BF
  412. LINE (50, 130)-(120, 130), 15
  413. LINE (50, 130)-(120, 100), 15
  414. PAINT (70, 128), 15
  415.  
  416. '********** scritte livello 1 ************
  417. LOCATE 7, 16: COLOR 41, 15: PRINT "Livello 1"
  418. LOCATE 8, 16: COLOR 2, 15: PRINT "Nessun vento"
  419. LOCATE 9, 16: COLOR 41, 15: PRINT "Quando si lancia il"
  420. LOCATE 10, 16: COLOR 41, 15: PRINT "pacco, non viene"
  421. LOCATE 11, 16: COLOR 41, 15: PRINT "influenzato dal vento."
  423. LOCATE 7, 16: COLOR 15, 15: PRINT "Livello 1"
  424. LOCATE 8, 16: COLOR 15, 15: PRINT "Nessun vento"
  425. LOCATE 9, 16: COLOR 15, 15: PRINT "Quando si lancia il"
  426. LOCATE 10, 16: COLOR 15, 15: PRINT "pacco, non viene"
  427. LOCATE 11, 16: COLOR 15, 15: PRINT "influenzato dal vento."
  428.  
  429. '********** scritte livello 2 ************
  430. LOCATE 7, 16: COLOR 41, 15: PRINT "Livello 2"
  431. LOCATE 8, 16: COLOR 2, 15: PRINT "Vento leggero"
  432. LOCATE 9, 16: COLOR 41, 15: PRINT "Quando si lancia il"
  433. LOCATE 10, 16: COLOR 41, 15: PRINT "pacco, viene spostato"
  434. LOCATE 11, 16: COLOR 41, 15: PRINT "dal vento da dx a sx."
  436. LOCATE 7, 16: COLOR 15, 15: PRINT "Livello 2"
  437. LOCATE 8, 16: COLOR 15, 15: PRINT "Vento leggero"
  438. LOCATE 9, 16: COLOR 15, 15: PRINT "Quando si lancia il"
  439. LOCATE 10, 16: COLOR 15, 15: PRINT "pacco, viene spostato"
  440. LOCATE 11, 16: COLOR 15, 15: PRINT "dal vento da dx a sx."
  441.  
  442. '********** scritte livello 3 ************
  443. LOCATE 7, 16: COLOR 41, 15: PRINT "Livello 3"
  444. LOCATE 8, 16: COLOR 2, 15: PRINT "Vento forte"
  445. LOCATE 9, 16: COLOR 41, 15: PRINT "Quando si lancia il"
  446. LOCATE 10, 16: COLOR 41, 15: PRINT "pacco, viene spostato"
  447. LOCATE 11, 16: COLOR 41, 15: PRINT "dal vento da dx a sx."
  449. LOCATE 7, 16: COLOR 15, 15: PRINT "Livello 3"
  450. LOCATE 8, 16: COLOR 15, 15: PRINT "Vento forte"
  451. LOCATE 9, 16: COLOR 15, 15: PRINT "Quando si lancia il"
  452. LOCATE 10, 16: COLOR 15, 15: PRINT "pacco, viene spostato"
  453. LOCATE 11, 16: COLOR 15, 15: PRINT "dal vento da dx a sx."
  454.  
  455.  
  457. LINE (50, 0)-(320, 160), 0, BF
  459. GOTO MENU
  460. '============= FINE SCHERMATA LIVELLO ========
  461.  
  462.  
  463. '============= INIZIO SCHERMATA COMANDI ========
  464. COMANDI:
  466. LOCATE 2, 10: COLOR 41: PRINT "Comandi di Gioco"
  467.  
  468. LOCATE 7, 10: COLOR 41: PRINT "G"
  469. LOCATE 12, 10: COLOR 41: PRINT "H"
  470. LOCATE 17, 10: COLOR 41: PRINT "Space Bar"
  471. LOCATE 22, 10: COLOR 41: PRINT "B"
  472. PSET (69, 46)
  473. DRAW "C15D10BD1BR1R10BU1BR1U10BU1BL1L10"
  474. PSET (69, 86)
  475. DRAW "C15D10BD1BR1R10BU1BR1U10BU1BL1L10"
  476. PSET (69, 126)
  477. DRAW "C15D10BD1BR1R75BU1BR1U10BU1BL1L75"
  478. PSET (69, 166)
  479. DRAW "C15D10BD1BR1R10BU1BR1U10BU1BL1L10"
  480.  
  481.  
  482.  
  483.  
  484. '************* SLITTA FRECCIA INDIETRO *************
  485. XASN = 200: YASN = 50
  486.  
  487. CIRCLE (XASN - 10, YASN), 10, 44
  488. PAINT (XASN - 10, YASN), 44
  489. CIRCLE (XASN + 14, YASN + 3), 6, 44
  490. PAINT (XASN + 14, YASN + 3), 44
  491. LINE (XASN - 10, YASN)-(XASN + 12, YASN + 8), 44, BF
  492. LINE (XASN - 18, YASN + 14)-(XASN + 15, YASN + 14), 130
  493. CIRCLE (XASN + 15, YASN + 9), 6, 130, 4.5, 0
  494. LINE (XASN - 4, YASN + 14)-(XASN + 6, YASN + 9), 130, B
  495. LINE (XASN + 2, YASN - 1)-(XASN + 9, YASN - 6), 4, BF
  496. CIRCLE (XASN + 5, YASN - 10), 4, 88
  497. PAINT (XASN + 5, YASN - 10), 88
  498. PSET (XASN + 5, YASN - 10)
  499. DRAW "BR1C0D1BR3BD1C15D4L1U4L1D3BU5BL4U3L1D3L1U3BU1C4R6H3G3R1U1R1U1R1D1R1BU3BL1C15U1L1D1"
  500. CIRCLE (XASN - 7, YASN - 2), 7, 6
  501. PAINT (XASN - 8, YASN - 2), 6
  502. PSET (XASN - 8, YASN - 8)
  503. DRAW "c6e3l3f3"
  504. PSET (XASN - 24, YASN)
  505. DRAW "c2l10F5H5E5"
  506.  
  507. '************* SLITTA FRECCIA AVANTI *************
  508. XASF = 200: YASF = 90
  509. CIRCLE (XASF - 10, YASF), 10, 44
  510. PAINT (XASF - 10, YASF), 44
  511. CIRCLE (XASF + 14, YASF + 3), 6, 44
  512. PAINT (XASF + 14, YASF + 3), 44
  513. LINE (XASF - 10, YASF)-(XASF + 12, YASF + 8), 44, BF
  514. LINE (XASF - 18, YASF + 14)-(XASF + 15, YASF + 14), 130
  515. CIRCLE (XASF + 15, YASF + 9), 6, 130, 4.5, 0
  516. LINE (XASF - 4, YASF + 14)-(XASF + 6, YASF + 9), 130, B
  517. LINE (XASF + 2, YASF - 1)-(XASF + 9, YASF - 6), 4, BF
  518. CIRCLE (XASF + 5, YASF - 10), 4, 88
  519. PAINT (XASF + 5, YASF - 10), 88
  520. PSET (XASF + 5, YASF - 10)
  521. DRAW "BR1C0D1BR3BD1C15D4L1U4L1D3BU5BL4U3L1D3L1U3BU1C4R6H3G3R1U1R1U1R1D1R1BU3BL1C15U1L1D1"
  522. CIRCLE (XASF - 7, YASF - 2), 7, 6
  523. PAINT (XASF - 8, YASF - 2), 6
  524. PSET (XASF - 8, YASF - 8)
  525. DRAW "c6e3l3f3"
  526. PSET (XASF + 24, YASF)
  527. DRAW "c2R10H5F5G5"
  528.  
  529. '************* SLITTA CON PACCO *************
  530.  
  531. XASP = 200: YASP = 130
  532. CIRCLE (XASP - 10, YASP), 10, 44
  533. PAINT (XASP - 10, YASP), 44
  534. CIRCLE (XASP + 14, YASP + 3), 6, 44
  535. PAINT (XASP + 14, YASP + 3), 44
  536. LINE (XASP - 10, YASP)-(XASP + 12, YASP + 8), 44, BF
  537. LINE (XASP - 18, YASP + 14)-(XASP + 15, YASP + 14), 130
  538. CIRCLE (XASP + 15, YASP + 9), 6, 130, 4.5, 0
  539. LINE (XASP - 4, YASP + 14)-(XASP + 6, YASP + 9), 130, B
  540. LINE (XASP + 2, YASP - 1)-(XASP + 9, YASP - 6), 4, BF
  541. CIRCLE (XASP + 5, YASP - 10), 4, 88
  542. PAINT (XASP + 5, YASP - 10), 88
  543. PSET (XASP + 5, YASP - 10)
  544. DRAW "BR1C0D1BR3BD1C15D4L1U4L1D3BU5BL4U3L1D3L1U3BU1C4R6H3G3R1U1R1U1R1D1R1BU3BL1C15U1L1D1"
  545. CIRCLE (XASP - 7, YASP - 2), 7, 6
  546. PAINT (XASP - 8, YASP - 2), 6
  547. PSET (XASP - 8, YASP - 8)
  548. DRAW "c6e3l3f3"
  549. LINE (XASP + 40, YASP)-(XASP + 48, YASP + 6), 4, BF
  550. LINE (XASP + 43, YASP)-(XASP + 45, YASP + 6), 14, BF
  551. LINE (XASP + 40, YASP + 2)-(XASP + 48, YASP + 4), 14, BF
  552.  
  553. '************* SLITTA CON BOMBA *************
  554. XASW = 200: YASW = 170
  555. CIRCLE (XASW - 10, YASW), 10, 44
  556. PAINT (XASW - 10, YASW), 44
  557. CIRCLE (XASW + 14, YASW + 3), 6, 44
  558. PAINT (XASW + 14, YASW + 3), 44
  559. LINE (XASW - 10, YASW)-(XASW + 12, YASW + 8), 44, BF
  560. LINE (XASW - 18, YASW + 14)-(XASW + 15, YASW + 14), 130
  561. CIRCLE (XASW + 15, YASW + 9), 6, 130, 4.5, 0
  562. LINE (XASW - 4, YASW + 14)-(XASW + 6, YASW + 9), 130, B
  563. LINE (XASW + 2, YASW - 1)-(XASW + 9, YASW - 6), 4, BF
  564. CIRCLE (XASW + 5, YASW - 10), 4, 88
  565. PAINT (XASW + 5, YASW - 10), 88
  566. PSET (XASW + 5, YASW - 10)
  567. DRAW "BR1C0D1BR3BD1C15D4L1U4L1D3BU5BL4U3L1D3L1U3BU1C4R6H3G3R1U1R1U1R1D1R1BU3BL1C15U1L1D1"
  568. CIRCLE (XASW - 7, YASW - 2), 7, 6
  569. PAINT (XASW - 8, YASW - 2), 6
  570. PSET (XASW - 8, YASW - 8)
  571. DRAW "c6e3l3f3"
  572.  
  573. CIRCLE (XASW + 44, YASW + 3), 4, 8
  574. PAINT (XASW + 44, YASW + 3), 8
  575. CIRCLE (XASW + 43, YASW + 2), 2, 7
  576. PAINT (XASW + 43, YASW + 2), 7
  577.  
  578. PSET (XASW + 44, YASW - 1)
  579. DRAW "C8U1BR1BU1C4U0"
  580. 'LINE (XASW + 44, YASW + 1)-(XASW + 48, YASW + 3), 7
  581. 'LINE (XASW + 43, YASW)-(XASW + 45, YASW + 6), 14, BF
  582. 'LINE (XASP + 40, YASP + 2)-(XASP + 48, YASP + 4), 14, BF
  583.  
  584.  
  585.  
  586.  
  588. GOTO MENU
  589. '============= FINE SCHERMATA COMANDI ========
  590.  
  591. VAI:
  593. FOR U = 1 TO 5
  594.     SLEEP 1
  595.     AJ = 3 '35
  596.     W1 = 4
  597.     W2 = 14
  598.     W3 = 2
  599.  
  600.     LOCATE 10, 10: COLOR W1: PRINT CHR$(AJ)
  601.     LOCATE 10, 11: COLOR W3: PRINT CHR$(AJ)
  602.     LOCATE 10, 12: COLOR W1: PRINT CHR$(AJ)
  603.     LOCATE 10, 13: COLOR W3: PRINT CHR$(AJ)
  604.     LOCATE 10, 14: COLOR W1: PRINT CHR$(AJ)
  605.     LOCATE 10, 15: COLOR W3: PRINT CHR$(AJ)
  606.     LOCATE 10, 16: COLOR W1: PRINT CHR$(AJ)
  607.     LOCATE 10, 17: COLOR W3: PRINT CHR$(AJ)
  608.     LOCATE 10, 18: COLOR W1: PRINT CHR$(AJ)
  609.     LOCATE 10, 19: COLOR W3: PRINT CHR$(AJ)
  610.     LOCATE 10, 20: COLOR W1: PRINT CHR$(AJ)
  611.     LOCATE 10, 21: COLOR W3: PRINT CHR$(AJ)
  612.     LOCATE 10, 22: COLOR W1: PRINT CHR$(AJ)
  613.     LOCATE 10, 23: COLOR W3: PRINT CHR$(AJ)
  614.     LOCATE 10, 24: COLOR W1: PRINT CHR$(AJ)
  615.     LOCATE 10, 25: COLOR W3: PRINT CHR$(AJ)
  616.     LOCATE 10, 26: COLOR W1: PRINT CHR$(AJ)
  617.     LOCATE 10, 27: COLOR W3: PRINT CHR$(AJ)
  618.     LOCATE 10, 28: COLOR W1: PRINT CHR$(AJ)
  619.     LOCATE 10, 29: COLOR W3: PRINT CHR$(AJ)
  620.     LOCATE 10, 30: COLOR W1: PRINT CHR$(AJ)
  621.  
  622.  
  623.  
  624.     LOCATE 14, 10: COLOR W1: PRINT CHR$(AJ)
  625.     LOCATE 14, 11: COLOR W3: PRINT CHR$(AJ)
  626.     LOCATE 14, 12: COLOR W1: PRINT CHR$(AJ)
  627.     LOCATE 14, 13: COLOR W3: PRINT CHR$(AJ)
  628.     LOCATE 14, 14: COLOR W1: PRINT CHR$(AJ)
  629.     LOCATE 14, 15: COLOR W3: PRINT CHR$(AJ)
  630.     LOCATE 14, 16: COLOR W1: PRINT CHR$(AJ)
  631.     LOCATE 14, 17: COLOR W3: PRINT CHR$(AJ)
  632.     LOCATE 14, 18: COLOR W1: PRINT CHR$(AJ)
  633.     LOCATE 14, 19: COLOR W3: PRINT CHR$(AJ)
  634.     LOCATE 14, 20: COLOR W1: PRINT CHR$(AJ)
  635.     LOCATE 14, 21: COLOR W3: PRINT CHR$(AJ)
  636.     LOCATE 14, 22: COLOR W1: PRINT CHR$(AJ)
  637.     LOCATE 14, 23: COLOR W3: PRINT CHR$(AJ)
  638.     LOCATE 14, 24: COLOR W1: PRINT CHR$(AJ)
  639.     LOCATE 14, 25: COLOR W3: PRINT CHR$(AJ)
  640.     LOCATE 14, 26: COLOR W1: PRINT CHR$(AJ)
  641.     LOCATE 14, 27: COLOR W3: PRINT CHR$(AJ)
  642.     LOCATE 14, 28: COLOR W1: PRINT CHR$(AJ)
  643.     LOCATE 14, 29: COLOR W3: PRINT CHR$(AJ)
  644.     LOCATE 14, 30: COLOR W1: PRINT CHR$(AJ)
  645.  
  646.  
  647.     LOCATE 12, 16: COLOR 41: PRINT "LIVELLO 1"
  648.  
  649.     SLEEP 1
  650.     W1 = 2
  651.     W2 = 14
  652.     W3 = 4
  653.  
  654.     LOCATE 10, 10: COLOR W1: PRINT CHR$(AJ)
  655.     LOCATE 10, 11: COLOR W3: PRINT CHR$(AJ)
  656.     LOCATE 10, 12: COLOR W1: PRINT CHR$(AJ)
  657.     LOCATE 10, 13: COLOR W3: PRINT CHR$(AJ)
  658.     LOCATE 10, 14: COLOR W1: PRINT CHR$(AJ)
  659.     LOCATE 10, 15: COLOR W3: PRINT CHR$(AJ)
  660.     LOCATE 10, 16: COLOR W1: PRINT CHR$(AJ)
  661.     LOCATE 10, 17: COLOR W3: PRINT CHR$(AJ)
  662.     LOCATE 10, 18: COLOR W1: PRINT CHR$(AJ)
  663.     LOCATE 10, 19: COLOR W3: PRINT CHR$(AJ)
  664.     LOCATE 10, 20: COLOR W1: PRINT CHR$(AJ)
  665.     LOCATE 10, 21: COLOR W3: PRINT CHR$(AJ)
  666.     LOCATE 10, 22: COLOR W1: PRINT CHR$(AJ)
  667.     LOCATE 10, 23: COLOR W3: PRINT CHR$(AJ)
  668.     LOCATE 10, 24: COLOR W1: PRINT CHR$(AJ)
  669.     LOCATE 10, 25: COLOR W3: PRINT CHR$(AJ)
  670.     LOCATE 10, 26: COLOR W1: PRINT CHR$(AJ)
  671.     LOCATE 10, 27: COLOR W3: PRINT CHR$(AJ)
  672.     LOCATE 10, 28: COLOR W1: PRINT CHR$(AJ)
  673.     LOCATE 10, 29: COLOR W3: PRINT CHR$(AJ)
  674.     LOCATE 10, 30: COLOR W1: PRINT CHR$(AJ)
  675.  
  676.  
  677.  
  678.     LOCATE 14, 10: COLOR W1: PRINT CHR$(AJ)
  679.     LOCATE 14, 11: COLOR W3: PRINT CHR$(AJ)
  680.     LOCATE 14, 12: COLOR W1: PRINT CHR$(AJ)
  681.     LOCATE 14, 13: COLOR W3: PRINT CHR$(AJ)
  682.     LOCATE 14, 14: COLOR W1: PRINT CHR$(AJ)
  683.     LOCATE 14, 15: COLOR W3: PRINT CHR$(AJ)
  684.     LOCATE 14, 16: COLOR W1: PRINT CHR$(AJ)
  685.     LOCATE 14, 17: COLOR W3: PRINT CHR$(AJ)
  686.     LOCATE 14, 18: COLOR W1: PRINT CHR$(AJ)
  687.     LOCATE 14, 19: COLOR W3: PRINT CHR$(AJ)
  688.     LOCATE 14, 20: COLOR W1: PRINT CHR$(AJ)
  689.     LOCATE 14, 21: COLOR W3: PRINT CHR$(AJ)
  690.     LOCATE 14, 22: COLOR W1: PRINT CHR$(AJ)
  691.     LOCATE 14, 23: COLOR W3: PRINT CHR$(AJ)
  692.     LOCATE 14, 24: COLOR W1: PRINT CHR$(AJ)
  693.     LOCATE 14, 25: COLOR W3: PRINT CHR$(AJ)
  694.     LOCATE 14, 26: COLOR W1: PRINT CHR$(AJ)
  695.     LOCATE 14, 27: COLOR W3: PRINT CHR$(AJ)
  696.     LOCATE 14, 28: COLOR W1: PRINT CHR$(AJ)
  697.     LOCATE 14, 29: COLOR W3: PRINT CHR$(AJ)
  698.     LOCATE 14, 30: COLOR W1: PRINT CHR$(AJ)
  700.  
  701.  
  702. DISEGNOMONDO:
  703. '******************** DISEGNO MONDO ***************************
  704. '================
  705. 'CIELO
  706.  
  707. LINE (0, 0)-(320, 120), 199, BF
  708. '================
  709. '================
  710. ' NUVOLE
  711.  
  712. NUVX = 200
  713. NUVY = 20
  714.  
  715. CIRCLE (20, 20), 8, 15
  716. PAINT (20, 20), 15
  717.  
  718. CIRCLE (26, 25), 8, 15
  719. PAINT (26, 25), 15
  720.  
  721. CIRCLE (38, 22), 8, 15
  722. PAINT (41, 22), 15
  723.  
  724. CIRCLE (20 + NUVX, 20 + NUVY), 8, 15
  725. PAINT (20 + NUVX, 20 + NUVY), 15
  726.  
  727. CIRCLE (26 + NUVX, 25 + NUVY), 8, 15
  728. PAINT (26 + NUVX, 25 + NUVY), 15
  729.  
  730. CIRCLE (38 + NUVX, 22 + NUVY), 8, 15
  731. PAINT (41 + NUVX, 22 + NUVY), 15
  732. '================
  733. '================
  734. 'TERRA
  735. LINE (0, 120)-(320, 200), 1, BF
  736. LINE (0, 100)-(40, 200), 1, BF
  737. LINE (80, 90)-(120, 200), 1, BF
  738. LINE (160, 110)-(200, 200), 1, BF
  739. LINE (240, 100)-(280, 200), 1, BF
  740.  
  741.  
  742. '================
  743. 'CAMINETTO
  744. CAMX = 140
  745. CAMY = 150
  746. CAMX1 = 140
  747. CAMX2 = 140
  748. FOR H = 1 TO 1
  749.     LINE (CAMX, CAMY)-(CAMX + 8, CAMY + 4), 8, BF
  750.     CAMX = CAMX + 10
  752. FOR HA = 1 TO 1
  753.     LINE (CAMX1, CAMY + 6)-(CAMX1 + 8, CAMY + 10), 8, BF
  754.     CAMX1 = CAMX1 + 10
  755. NEXT HA
  756. FOR HB = 1 TO 1
  757.     LINE (CAMX2, CAMY + 12)-(CAMX2 + 8, CAMY + 16), 8, BF
  758.     CAMX2 = CAMX2 + 10
  759. NEXT HB
  760. LINE (CAMX - 25, CAMY + 50)-(CAMX + 105, CAMY + 18), 55, BF
  761.  
  762. '******************** PUNTI E LIVELLO
  763. punt = 0
  764. LOCATE 1, 1: COLOR 14, 199: PRINT "Liv. 1"
  765. LOCATE 1, 28: COLOR 14, 199: PRINT "Punti"
  766. LOCATE 1, 33: COLOR 14, 199: PRINT punt
  767.  
  768.  
  769. '*********************************** FINE DISEGNO MONDO ***********
  770.  
  771.  
  772. 'ASTRONAVE
  773. XAST = 20 '*** POSIZIONE X INIZIALE
  774. YAST = 50 '*** POSIZIONE Y INIZIALE
  775.  
  776. PS0:
  777.  
  778. CIRCLE (XAST - 10, YAST), 10, 44
  779. PAINT (XAST - 10, YAST), 44
  780. CIRCLE (XAST + 14, YAST + 3), 6, 44
  781. PAINT (XAST + 14, YAST + 3), 44
  782. LINE (XAST - 10, YAST)-(XAST + 12, YAST + 8), 44, BF
  783. LINE (XAST - 18, YAST + 14)-(XAST + 15, YAST + 14), 130
  784. CIRCLE (XAST + 15, YAST + 9), 6, 130, 4.5, 0
  785. LINE (XAST - 4, YAST + 14)-(XAST + 6, YAST + 9), 130, B
  786. LINE (XAST + 2, YAST - 1)-(XAST + 9, YAST - 6), 4, BF
  787. CIRCLE (XAST + 5, YAST - 10), 4, 88
  788. PAINT (XAST + 5, YAST - 10), 88
  789. PSET (XAST + 5, YAST - 10)
  790. DRAW "BR1C0D1BR3BD1C15D4L1U4L1D3BU5BL4U3L1D3L1U3BU1C4R6H3G3R1U1R1U1R1D1R1BU3BL1C15U1L1D1"
  791. CIRCLE (XAST - 7, YAST - 2), 7, 6
  792. PAINT (XAST - 8, YAST - 2), 6
  793. PSET (XAST - 8, YAST - 8)
  794. DRAW "c6e3l3f3"
  795.  
  796.  
  797.  
  798. PS12: A$ = INKEY$: IF A$ = "" THEN GOTO PS12
  799.  
  800. IF A$ = " " THEN GOTO FIRE
  801. IF A$ = "G" OR A$ = "g" THEN GOTO AST1
  802. IF A$ = "H" OR A$ = "h" THEN GOTO AST2
  803. 'IF A$ = "Y" OR A$ = "y" THEN GOTO AST3
  804. 'IF A$ = "B" OR A$ = "b" THEN GOTO AST4
  805. IF A$ = "E" OR A$ = "e" THEN END
  806. GOTO PS12
  807.  
  808.  
  809.  
  810. '*** MOVIMENTO 4 DIREZIONI
  811. AST1: XAST = XAST - 10:
  812. IF XAST < 20 THEN XAST = 20 '**** ROUTINE MIGLIORATA PER NON FARE USCIRE DALLO SCHERMO
  813. GOTO DISEGNAAST
  814.  
  815. AST2: XAST = XAST + 10:
  816. IF XAST > 300 THEN XAST = 300 '**** ROUTINE MIGLIORATA PER NON FARE USCIRE DALLO SCHERMO
  817. GOTO DISEGNAAST
  818.  
  819. 'AST3: YAST = YAST - 10: GOTO DISEGNAAST     *** tolto il vert in alto
  820. 'AST4: YAST = YAST + 10: GOTO DISEGNAAST     *** tolto il vert in basso
  821. ' *** FINE MOVIMENTO 4 DIREZIONI
  822.  
  823. DISEGNAAST:
  824.  
  825. '******************** RI DISEGNO MONDO ***************************
  826. '================
  827. 'CIELO
  828.  
  829. LINE (0, 0)-(320, 120), 199, BF
  830. '================
  831. '================
  832. ' NUVOLE
  833.  
  834. NUVX = 200
  835. NUVY = 20
  836.  
  837. CIRCLE (20, 20), 8, 15
  838. PAINT (20, 20), 15
  839.  
  840. CIRCLE (26, 25), 8, 15
  841. PAINT (26, 25), 15
  842.  
  843. CIRCLE (38, 22), 8, 15
  844. PAINT (41, 22), 15
  845.  
  846. CIRCLE (20 + NUVX, 20 + NUVY), 8, 15
  847. PAINT (20 + NUVX, 20 + NUVY), 15
  848.  
  849. CIRCLE (26 + NUVX, 25 + NUVY), 8, 15
  850. PAINT (26 + NUVX, 25 + NUVY), 15
  851.  
  852. CIRCLE (38 + NUVX, 22 + NUVY), 8, 15
  853. PAINT (41 + NUVX, 22 + NUVY), 15
  854. '================
  855. '================
  856. 'TERRA
  857. LINE (0, 120)-(320, 200), 1, BF
  858. LINE (0, 100)-(40, 200), 1, BF
  859. LINE (80, 90)-(120, 200), 1, BF
  860. LINE (160, 110)-(200, 200), 1, BF
  861. LINE (240, 100)-(280, 200), 1, BF
  862.  
  863. 'CAMINETTO
  864. CAMX = 140
  865. CAMY = 150
  866. CAMX1 = 140
  867. CAMX2 = 140
  868. FOR H = 1 TO 1
  869.     LINE (CAMX, CAMY)-(CAMX + 8, CAMY + 4), 8, BF
  870.     CAMX = CAMX + 10
  872. FOR HA = 1 TO 1
  873.     LINE (CAMX1, CAMY + 6)-(CAMX1 + 8, CAMY + 10), 8, BF
  874.     CAMX1 = CAMX1 + 10
  875. NEXT HA
  876. FOR HB = 1 TO 1
  877.     LINE (CAMX2, CAMY + 12)-(CAMX2 + 8, CAMY + 16), 8, BF
  878.     CAMX2 = CAMX2 + 10
  879. NEXT HB
  880. LINE (CAMX - 25, CAMY + 50)-(CAMX + 105, CAMY + 18), 55, BF
  881.  
  882.  
  883. '================
  884. '================
  885.  
  886. '================
  887. '================
  888. '******************** PUNTI E LIVELLO
  889. punt = 0
  890. LOCATE 1, 1: COLOR 14, 199: PRINT "Liv. 1"
  891. LOCATE 1, 28: COLOR 14, 199: PRINT "Punti"
  892. LOCATE 1, 33: COLOR 14, 199: PRINT punt
  893.  
  894.  
  895. '*********************************** FINE DISEGNO MONDO ***********
  896.  
  897.  
  898.  
  899.  
  900. CIRCLE (XAST - 10, YAST), 10, 44
  901. PAINT (XAST - 10, YAST), 44
  902. CIRCLE (XAST + 14, YAST + 3), 6, 44
  903. PAINT (XAST + 14, YAST + 3), 44
  904. LINE (XAST - 10, YAST)-(XAST + 12, YAST + 8), 44, BF
  905. LINE (XAST - 18, YAST + 14)-(XAST + 15, YAST + 14), 130
  906. CIRCLE (XAST + 15, YAST + 9), 6, 130, 4.5, 0
  907. LINE (XAST - 4, YAST + 14)-(XAST + 6, YAST + 9), 130, B
  908. LINE (XAST + 2, YAST - 1)-(XAST + 9, YAST - 6), 4, BF
  909. CIRCLE (XAST + 5, YAST - 10), 4, 88
  910. PAINT (XAST + 5, YAST - 10), 88
  911. PSET (XAST + 5, YAST - 10)
  912. DRAW "BR1C0D1BR3BD1C15D4L1U4L1D3BU5BL4U3L1D3L1U3BU1C4R6H3G3R1U1R1U1R1D1R1BU3BL1C15U1L1D1"
  913. CIRCLE (XAST - 7, YAST - 2), 7, 6
  914. PAINT (XAST - 8, YAST - 2), 6
  915. PSET (XAST - 8, YAST - 8)
  916. DRAW "c6e3l3f3"
  917.  
  918.  
  919. GOTO PS12
  920.  
  921.  
  922.  
  923. '======================
  924. FIRE:
  925. ' ************ FIRE SPARA DA SOTTO DELLA ASTRONAVE
  926. XF = XAST: YF = YAST + 10
  927.  
  928. FOR T = 1 TO 10
  929.     YF = YF + 10
  930.     LINE (XF, YF)-(XF + 8, YF + 6), 4, BF
  931.     LINE (XF + 3, YF)-(XF + 5, YF + 6), 14, BF
  932.     LINE (XF, YF + 2)-(XF + 8, YF + 4), 14, BF
  933.     'SLEEP 1
  934.     FOR N = 1 TO 12000000: NEXT N
  935.     'ok su p2.8 6 gb ram
  936.     IF XF = 140 AND YF = 150 GOTO VITTORIA:
  937.     IF XF <> 140 AND YF = 150 GOTO KO
  938.     '******************** DISEGNO MONDO ***************************
  939.     '================
  940.     'CIELO
  941.  
  942.     LINE (0, 0)-(320, 120), 199, BF
  943.     '================
  944.     '================
  945.     ' NUVOLE
  946.  
  947.     NUVX = 200
  948.     NUVY = 20
  949.  
  950.     CIRCLE (20, 20), 8, 15
  951.     PAINT (20, 20), 15
  952.  
  953.     CIRCLE (26, 25), 8, 15
  954.     PAINT (26, 25), 15
  955.  
  956.     CIRCLE (38, 22), 8, 15
  957.     PAINT (41, 22), 15
  958.  
  959.     CIRCLE (20 + NUVX, 20 + NUVY), 8, 15
  960.     PAINT (20 + NUVX, 20 + NUVY), 15
  961.  
  962.     CIRCLE (26 + NUVX, 25 + NUVY), 8, 15
  963.     PAINT (26 + NUVX, 25 + NUVY), 15
  964.  
  965.     CIRCLE (38 + NUVX, 22 + NUVY), 8, 15
  966.     PAINT (41 + NUVX, 22 + NUVY), 15
  967.     '================
  968.     '================
  969.     'TERRA
  970.     LINE (0, 120)-(320, 200), 1, BF
  971.     LINE (0, 100)-(40, 200), 1, BF
  972.     LINE (80, 90)-(120, 200), 1, BF
  973.     LINE (160, 110)-(200, 200), 1, BF
  974.     LINE (240, 100)-(280, 200), 1, BF
  975.  
  976.     '================
  977.     'CAMINETTO
  978.     CAMX = 140
  979.     CAMY = 150
  980.     CAMX1 = 140
  981.     CAMX2 = 140
  982.     FOR H = 1 TO 1
  983.         LINE (CAMX, CAMY)-(CAMX + 8, CAMY + 4), 8, BF
  984.         CAMX = CAMX + 10
  985.     NEXT H
  986.     FOR HA = 1 TO 1
  987.         LINE (CAMX1, CAMY + 6)-(CAMX1 + 8, CAMY + 10), 8, BF
  988.         CAMX1 = CAMX1 + 10
  989.     NEXT HA
  990.     FOR HB = 1 TO 1
  991.         LINE (CAMX2, CAMY + 12)-(CAMX2 + 8, CAMY + 16), 8, BF
  992.         CAMX2 = CAMX2 + 10
  993.     NEXT HB
  994.     LINE (CAMX - 25, CAMY + 50)-(CAMX + 105, CAMY + 18), 55, BF
  995.  
  996.  
  997.  
  998.  
  999.  
  1000.     CIRCLE (XAST - 10, YAST), 10, 44
  1001.     PAINT (XAST - 10, YAST), 44
  1002.     CIRCLE (XAST + 14, YAST + 3), 6, 44
  1003.     PAINT (XAST + 14, YAST + 3), 44
  1004.     LINE (XAST - 10, YAST)-(XAST + 12, YAST + 8), 44, BF
  1005.     LINE (XAST - 18, YAST + 14)-(XAST + 15, YAST + 14), 130
  1006.     CIRCLE (XAST + 15, YAST + 9), 6, 130, 4.5, 0
  1007.     LINE (XAST - 4, YAST + 14)-(XAST + 6, YAST + 9), 130, B
  1008.     LINE (XAST + 2, YAST - 1)-(XAST + 9, YAST - 6), 4, BF
  1009.     CIRCLE (XAST + 5, YAST - 10), 4, 88
  1010.     PAINT (XAST + 5, YAST - 10), 88
  1011.     PSET (XAST + 5, YAST - 10)
  1012.     DRAW "BR1C0D1BR3BD1C15D4L1U4L1D3BU5BL4U3L1D3L1U3BU1C4R6H3G3R1U1R1U1R1D1R1BU3BL1C15U1L1D1"
  1013.     CIRCLE (XAST - 7, YAST - 2), 7, 6
  1014.     PAINT (XAST - 8, YAST - 2), 6
  1015.     PSET (XAST - 8, YAST - 8)
  1016.     DRAW "c6e3l3f3"
  1017.  
  1018.     '*********************************** FINE DISEGNO MONDO ***********
  1020.  
  1021. GOTO PS0
  1022.  
  1023.  
  1024. VITTORIA:
  1025. LOCATE 10, 12: COLOR 14, 199: PRINT "LIVELLO COMPLETATO": SLEEP 3: GOTO LEV2
  1026. KO:
  1027. LOCATE 10, 12: COLOR 43, 199: PRINT "G A M E    O V E R": SLEEP 3:
  1028. '*************************** QUI METTERE "GIOCHI ANCORA Y/N"
  1030.  
  1031. LEV2:
  1033. LINE (0, 0)-(320, 200), 0, BF
  1034. FOR U = 1 TO 5
  1035.     SLEEP 1
  1036.     AJ = 3 '35
  1037.     W1 = 4
  1038.     W2 = 14
  1039.     W3 = 2
  1040.  
  1041.     LOCATE 10, 10: COLOR W1: PRINT CHR$(AJ)
  1042.     LOCATE 10, 11: COLOR W3: PRINT CHR$(AJ)
  1043.     LOCATE 10, 12: COLOR W1: PRINT CHR$(AJ)
  1044.     LOCATE 10, 13: COLOR W3: PRINT CHR$(AJ)
  1045.     LOCATE 10, 14: COLOR W1: PRINT CHR$(AJ)
  1046.     LOCATE 10, 15: COLOR W3: PRINT CHR$(AJ)
  1047.     LOCATE 10, 16: COLOR W1: PRINT CHR$(AJ)
  1048.     LOCATE 10, 17: COLOR W3: PRINT CHR$(AJ)
  1049.     LOCATE 10, 18: COLOR W1: PRINT CHR$(AJ)
  1050.     LOCATE 10, 19: COLOR W3: PRINT CHR$(AJ)
  1051.     LOCATE 10, 20: COLOR W1: PRINT CHR$(AJ)
  1052.     LOCATE 10, 21: COLOR W3: PRINT CHR$(AJ)
  1053.     LOCATE 10, 22: COLOR W1: PRINT CHR$(AJ)
  1054.     LOCATE 10, 23: COLOR W3: PRINT CHR$(AJ)
  1055.     LOCATE 10, 24: COLOR W1: PRINT CHR$(AJ)
  1056.     LOCATE 10, 25: COLOR W3: PRINT CHR$(AJ)
  1057.     LOCATE 10, 26: COLOR W1: PRINT CHR$(AJ)
  1058.     LOCATE 10, 27: COLOR W3: PRINT CHR$(AJ)
  1059.     LOCATE 10, 28: COLOR W1: PRINT CHR$(AJ)
  1060.     LOCATE 10, 29: COLOR W3: PRINT CHR$(AJ)
  1061.     LOCATE 10, 30: COLOR W1: PRINT CHR$(AJ)
  1062.  
  1063.  
  1064.  
  1065.     LOCATE 14, 10: COLOR W1: PRINT CHR$(AJ)
  1066.     LOCATE 14, 11: COLOR W3: PRINT CHR$(AJ)
  1067.     LOCATE 14, 12: COLOR W1: PRINT CHR$(AJ)
  1068.     LOCATE 14, 13: COLOR W3: PRINT CHR$(AJ)
  1069.     LOCATE 14, 14: COLOR W1: PRINT CHR$(AJ)
  1070.     LOCATE 14, 15: COLOR W3: PRINT CHR$(AJ)
  1071.     LOCATE 14, 16: COLOR W1: PRINT CHR$(AJ)
  1072.     LOCATE 14, 17: COLOR W3: PRINT CHR$(AJ)
  1073.     LOCATE 14, 18: COLOR W1: PRINT CHR$(AJ)
  1074.     LOCATE 14, 19: COLOR W3: PRINT CHR$(AJ)
  1075.     LOCATE 14, 20: COLOR W1: PRINT CHR$(AJ)
  1076.     LOCATE 14, 21: COLOR W3: PRINT CHR$(AJ)
  1077.     LOCATE 14, 22: COLOR W1: PRINT CHR$(AJ)
  1078.     LOCATE 14, 23: COLOR W3: PRINT CHR$(AJ)
  1079.     LOCATE 14, 24: COLOR W1: PRINT CHR$(AJ)
  1080.     LOCATE 14, 25: COLOR W3: PRINT CHR$(AJ)
  1081.     LOCATE 14, 26: COLOR W1: PRINT CHR$(AJ)
  1082.     LOCATE 14, 27: COLOR W3: PRINT CHR$(AJ)
  1083.     LOCATE 14, 28: COLOR W1: PRINT CHR$(AJ)
  1084.     LOCATE 14, 29: COLOR W3: PRINT CHR$(AJ)
  1085.     LOCATE 14, 30: COLOR W1: PRINT CHR$(AJ)
  1086.  
  1087.  
  1088.     LOCATE 12, 16: COLOR 41, 0: PRINT "LIVELLO 2"
  1089.  
  1090.     SLEEP 1
  1091.     W1 = 2
  1092.     W2 = 14
  1093.     W3 = 4
  1094.  
  1095.     LOCATE 10, 10: COLOR W1: PRINT CHR$(AJ)
  1096.     LOCATE 10, 11: COLOR W3: PRINT CHR$(AJ)
  1097.     LOCATE 10, 12: COLOR W1: PRINT CHR$(AJ)
  1098.     LOCATE 10, 13: COLOR W3: PRINT CHR$(AJ)
  1099.     LOCATE 10, 14: COLOR W1: PRINT CHR$(AJ)
  1100.     LOCATE 10, 15: COLOR W3: PRINT CHR$(AJ)
  1101.     LOCATE 10, 16: COLOR W1: PRINT CHR$(AJ)
  1102.     LOCATE 10, 17: COLOR W3: PRINT CHR$(AJ)
  1103.     LOCATE 10, 18: COLOR W1: PRINT CHR$(AJ)
  1104.     LOCATE 10, 19: COLOR W3: PRINT CHR$(AJ)
  1105.     LOCATE 10, 20: COLOR W1: PRINT CHR$(AJ)
  1106.     LOCATE 10, 21: COLOR W3: PRINT CHR$(AJ)
  1107.     LOCATE 10, 22: COLOR W1: PRINT CHR$(AJ)
  1108.     LOCATE 10, 23: COLOR W3: PRINT CHR$(AJ)
  1109.     LOCATE 10, 24: COLOR W1: PRINT CHR$(AJ)
  1110.     LOCATE 10, 25: COLOR W3: PRINT CHR$(AJ)
  1111.     LOCATE 10, 26: COLOR W1: PRINT CHR$(AJ)
  1112.     LOCATE 10, 27: COLOR W3: PRINT CHR$(AJ)
  1113.     LOCATE 10, 28: COLOR W1: PRINT CHR$(AJ)
  1114.     LOCATE 10, 29: COLOR W3: PRINT CHR$(AJ)
  1115.     LOCATE 10, 30: COLOR W1: PRINT CHR$(AJ)
  1116.  
  1117.  
  1118.  
  1119.     LOCATE 14, 10: COLOR W1: PRINT CHR$(AJ)
  1120.     LOCATE 14, 11: COLOR W3: PRINT CHR$(AJ)
  1121.     LOCATE 14, 12: COLOR W1: PRINT CHR$(AJ)
  1122.     LOCATE 14, 13: COLOR W3: PRINT CHR$(AJ)
  1123.     LOCATE 14, 14: COLOR W1: PRINT CHR$(AJ)
  1124.     LOCATE 14, 15: COLOR W3: PRINT CHR$(AJ)
  1125.     LOCATE 14, 16: COLOR W1: PRINT CHR$(AJ)
  1126.     LOCATE 14, 17: COLOR W3: PRINT CHR$(AJ)
  1127.     LOCATE 14, 18: COLOR W1: PRINT CHR$(AJ)
  1128.     LOCATE 14, 19: COLOR W3: PRINT CHR$(AJ)
  1129.     LOCATE 14, 20: COLOR W1: PRINT CHR$(AJ)
  1130.     LOCATE 14, 21: COLOR W3: PRINT CHR$(AJ)
  1131.     LOCATE 14, 22: COLOR W1: PRINT CHR$(AJ)
  1132.     LOCATE 14, 23: COLOR W3: PRINT CHR$(AJ)
  1133.     LOCATE 14, 24: COLOR W1: PRINT CHR$(AJ)
  1134.     LOCATE 14, 25: COLOR W3: PRINT CHR$(AJ)
  1135.     LOCATE 14, 26: COLOR W1: PRINT CHR$(AJ)
  1136.     LOCATE 14, 27: COLOR W3: PRINT CHR$(AJ)
  1137.     LOCATE 14, 28: COLOR W1: PRINT CHR$(AJ)
  1138.     LOCATE 14, 29: COLOR W3: PRINT CHR$(AJ)
  1139.     LOCATE 14, 30: COLOR W1: PRINT CHR$(AJ)
  1141.  
  1142. '*************************************
  1143. '*
  1144. '* IN QUESTA VERSIONE, INVECE DI COLORARE UNO SCHERMO VERDE
  1145. '* RIDISEGNA IL MONDO.
  1146. '* LA STESSA COSA VA FATTA PER LO SPARO
  1147. '*
  1148. '*************************************
  1149.  
  1150.  
  1152.  
  1153.  
  1154. DISEGNOMONDO2:
  1155. '******************** DISEGNO MONDO ***************************
  1156. '================
  1157. 'CIELO
  1158.  
  1159. LINE (0, 0)-(320, 120), 199, BF
  1160. '================
  1161. '================
  1162. ' NUVOLE
  1163.  
  1164. NUVX = 200
  1165. NUVY = 20
  1166.  
  1167. CIRCLE (20, 20), 8, 15
  1168. PAINT (20, 20), 15
  1169.  
  1170. CIRCLE (26, 25), 8, 15
  1171. PAINT (26, 25), 15
  1172.  
  1173. CIRCLE (38, 22), 8, 15
  1174. PAINT (41, 22), 15
  1175.  
  1176. CIRCLE (20 + NUVX, 20 + NUVY), 8, 15
  1177. PAINT (20 + NUVX, 20 + NUVY), 15
  1178.  
  1179. CIRCLE (26 + NUVX, 25 + NUVY), 8, 15
  1180. PAINT (26 + NUVX, 25 + NUVY), 15
  1181.  
  1182. CIRCLE (38 + NUVX, 22 + NUVY), 8, 15
  1183. PAINT (41 + NUVX, 22 + NUVY), 15
  1184. '================
  1185. '================
  1186. 'TERRA
  1187. LINE (0, 120)-(320, 200), 1, BF
  1188. LINE (0, 100)-(40, 200), 1, BF
  1189. LINE (80, 90)-(120, 200), 1, BF
  1190. LINE (160, 110)-(200, 200), 1, BF
  1191. LINE (240, 100)-(280, 200), 1, BF
  1192.  
  1193.  
  1194. '================
  1195. 'CAMINETTO
  1196. CAMX = 140
  1197. CAMY = 150
  1198. CAMX1 = 140
  1199. CAMX2 = 140
  1200. FOR H = 1 TO 1
  1201.     LINE (CAMX, CAMY)-(CAMX + 8, CAMY + 4), 8, BF
  1202.     CAMX = CAMX + 10
  1204. FOR HA = 1 TO 1
  1205.     LINE (CAMX1, CAMY + 6)-(CAMX1 + 8, CAMY + 10), 8, BF
  1206.     CAMX1 = CAMX1 + 10
  1207. NEXT HA
  1208. FOR HB = 1 TO 1
  1209.     LINE (CAMX2, CAMY + 12)-(CAMX2 + 8, CAMY + 16), 8, BF
  1210.     CAMX2 = CAMX2 + 10
  1211. NEXT HB
  1212. LINE (CAMX - 25, CAMY + 50)-(CAMX + 105, CAMY + 18), 55, BF
  1213.  
  1214. '================
  1215. '******************** PUNTI E LIVELLO
  1216. punt = 50
  1217. LOCATE 1, 1: COLOR 14, 199: PRINT "Liv. 2"
  1218. LOCATE 1, 28: COLOR 14, 199: PRINT "Punti"
  1219. LOCATE 1, 33: COLOR 14, 199: PRINT punt
  1220.  
  1221.  
  1222.  
  1223. '*********************************** FINE DISEGNO MONDO ***********
  1224.  
  1225.  
  1226. '======================
  1227. '======================
  1228. 'ASTRONAVE
  1229. XAST = 20 '*** POSIZIONE X INIZIALE
  1230. YAST = 50 '*** POSIZIONE Y INIZIALE
  1231.  
  1232. PS0A:
  1233.  
  1234. CIRCLE (XAST - 10, YAST), 10, 44
  1235. PAINT (XAST - 10, YAST), 44
  1236. CIRCLE (XAST + 14, YAST + 3), 6, 44
  1237. PAINT (XAST + 14, YAST + 3), 44
  1238. LINE (XAST - 10, YAST)-(XAST + 12, YAST + 8), 44, BF
  1239. LINE (XAST - 18, YAST + 14)-(XAST + 15, YAST + 14), 130
  1240. CIRCLE (XAST + 15, YAST + 9), 6, 130, 4.5, 0
  1241. LINE (XAST - 4, YAST + 14)-(XAST + 6, YAST + 9), 130, B
  1242. LINE (XAST + 2, YAST - 1)-(XAST + 9, YAST - 6), 4, BF
  1243. CIRCLE (XAST + 5, YAST - 10), 4, 88
  1244. PAINT (XAST + 5, YAST - 10), 88
  1245. PSET (XAST + 5, YAST - 10)
  1246. DRAW "BR1C0D1BR3BD1C15D4L1U4L1D3BU5BL4U3L1D3L1U3BU1C4R6H3G3R1U1R1U1R1D1R1BU3BL1C15U1L1D1"
  1247. CIRCLE (XAST - 7, YAST - 2), 7, 6
  1248. PAINT (XAST - 8, YAST - 2), 6
  1249. PSET (XAST - 8, YAST - 8)
  1250. DRAW "c6e3l3f3"
  1251.  
  1252.  
  1253.  
  1254. PS1A: A$ = INKEY$: IF A$ = "" THEN GOTO PS1A
  1255.  
  1256. IF A$ = " " THEN GOTO FIREA
  1257. IF A$ = "G" OR A$ = "g" THEN GOTO AST1A
  1258. IF A$ = "H" OR A$ = "h" THEN GOTO AST2A
  1259. 'IF A$ = "Y" OR A$ = "y" THEN GOTO AST3
  1260. 'IF A$ = "B" OR A$ = "b" THEN GOTO AST4
  1261. IF A$ = "E" OR A$ = "e" THEN END
  1262. GOTO PS1A
  1263.  
  1264.  
  1265.  
  1266. '*** MOVIMENTO 4 DIREZIONI
  1267. AST1A: XAST = XAST - 10:
  1268. IF XAST < 20 THEN XAST = 20 '**** ROUTINE MIGLIORATA PER NON FARE USCIRE DALLO SCHERMO
  1269. GOTO DISEGNAASTA
  1270.  
  1271. AST2A: XAST = XAST + 10:
  1272. IF XAST > 300 THEN XAST = 300 '**** ROUTINE MIGLIORATA PER NON FARE USCIRE DALLO SCHERMO
  1273. GOTO DISEGNAASTA
  1274.  
  1275. 'AST3: YAST = YAST - 10: GOTO DISEGNAASTA     *** tolto il vert in alto
  1276. 'AST4: YAST = YAST + 10: GOTO DISEGNAASTA     *** tolto il vert in basso
  1277. ' *** FINE MOVIMENTO 4 DIREZIONI
  1278.  
  1279. DISEGNAASTA:
  1280.  
  1281. '******************** RI DISEGNO MONDO ***************************
  1282. '================
  1283. 'CIELO
  1284.  
  1285. LINE (0, 0)-(320, 120), 199, BF
  1286. '================
  1287. '================
  1288. ' NUVOLE
  1289.  
  1290. NUVX = 200
  1291. NUVY = 20
  1292.  
  1293. CIRCLE (20, 20), 8, 15
  1294. PAINT (20, 20), 15
  1295.  
  1296. CIRCLE (26, 25), 8, 15
  1297. PAINT (26, 25), 15
  1298.  
  1299. CIRCLE (38, 22), 8, 15
  1300. PAINT (41, 22), 15
  1301.  
  1302. CIRCLE (20 + NUVX, 20 + NUVY), 8, 15
  1303. PAINT (20 + NUVX, 20 + NUVY), 15
  1304.  
  1305. CIRCLE (26 + NUVX, 25 + NUVY), 8, 15
  1306. PAINT (26 + NUVX, 25 + NUVY), 15
  1307.  
  1308. CIRCLE (38 + NUVX, 22 + NUVY), 8, 15
  1309. PAINT (41 + NUVX, 22 + NUVY), 15
  1310. '================
  1311. '================
  1312. 'TERRA
  1313. LINE (0, 120)-(320, 200), 1, BF
  1314. LINE (0, 100)-(40, 200), 1, BF
  1315. LINE (80, 90)-(120, 200), 1, BF
  1316. LINE (160, 110)-(200, 200), 1, BF
  1317. LINE (240, 100)-(280, 200), 1, BF
  1318.  
  1319. 'CAMINETTO
  1320. CAMX = 140
  1321. CAMY = 150
  1322. CAMX1 = 140
  1323. CAMX2 = 140
  1324. FOR H = 1 TO 1
  1325.     LINE (CAMX, CAMY)-(CAMX + 8, CAMY + 4), 8, BF
  1326.     CAMX = CAMX + 10
  1328. FOR HA = 1 TO 1
  1329.     LINE (CAMX1, CAMY + 6)-(CAMX1 + 8, CAMY + 10), 8, BF
  1330.     CAMX1 = CAMX1 + 10
  1331. NEXT HA
  1332. FOR HB = 1 TO 1
  1333.     LINE (CAMX2, CAMY + 12)-(CAMX2 + 8, CAMY + 16), 8, BF
  1334.     CAMX2 = CAMX2 + 10
  1335. NEXT HB
  1336. LINE (CAMX - 25, CAMY + 50)-(CAMX + 105, CAMY + 18), 55, BF
  1337.  
  1338. '******************** PUNTI E LIVELLO
  1339. punt = 50
  1340. LOCATE 1, 1: COLOR 14, 199: PRINT "Liv. 2"
  1341. LOCATE 1, 28: COLOR 14, 199: PRINT "Punti"
  1342. LOCATE 1, 33: COLOR 14, 199: PRINT punt
  1343.  
  1344.  
  1345. '*********************************** FINE DISEGNO MONDO ***********
  1346.  
  1347.  
  1348.  
  1349. CIRCLE (XAST - 10, YAST), 10, 44
  1350. PAINT (XAST - 10, YAST), 44
  1351. CIRCLE (XAST + 14, YAST + 3), 6, 44
  1352. PAINT (XAST + 14, YAST + 3), 44
  1353. LINE (XAST - 10, YAST)-(XAST + 12, YAST + 8), 44, BF
  1354. LINE (XAST - 18, YAST + 14)-(XAST + 15, YAST + 14), 130
  1355. CIRCLE (XAST + 15, YAST + 9), 6, 130, 4.5, 0
  1356. LINE (XAST - 4, YAST + 14)-(XAST + 6, YAST + 9), 130, B
  1357. LINE (XAST + 2, YAST - 1)-(XAST + 9, YAST - 6), 4, BF
  1358. CIRCLE (XAST + 5, YAST - 10), 4, 88
  1359. PAINT (XAST + 5, YAST - 10), 88
  1360. PSET (XAST + 5, YAST - 10)
  1361. DRAW "BR1C0D1BR3BD1C15D4L1U4L1D3BU5BL4U3L1D3L1U3BU1C4R6H3G3R1U1R1U1R1D1R1BU3BL1C15U1L1D1"
  1362. CIRCLE (XAST - 7, YAST - 2), 7, 6
  1363. PAINT (XAST - 8, YAST - 2), 6
  1364. PSET (XAST - 8, YAST - 8)
  1365. DRAW "c6e3l3f3"
  1366.  
  1367.  
  1368. GOTO PS1A
  1369.  
  1370.  
  1371.  
  1372. '======================
  1373. FIREA:
  1374. ' ************ FIREA SPARA DA SOTTO DELLA ASTRONAVE
  1375. XF = XAST + 1: YF = YAST + 10 '**** modifica per vento
  1376.  
  1377. FOR T = 1 TO 10
  1378.     YF = YF + 10: XF = XF + 1 '********** vento
  1379.     LINE (XF, YF)-(XF + 8, YF + 6), 4, BF
  1380.     LINE (XF + 3, YF)-(XF + 5, YF + 6), 14, BF
  1381.     LINE (XF, YF + 2)-(XF + 8, YF + 4), 14, BF
  1382.     'SLEEP 1
  1383.     FOR N = 1 TO 12000000: NEXT N
  1384.     'ok su p2.8 6 gb ram
  1385.     IF XF = 140 AND YF = 150 GOTO VITTORIAA:
  1386.     IF XF <> 140 AND YF = 150 GOTO KOA
  1387.  
  1388.     '******************** DISEGNO MONDO ***************************
  1389.     '================
  1390.     'CIELO
  1391.  
  1392.     LINE (0, 0)-(320, 120), 199, BF
  1393.     '================
  1394.     '================
  1395.     ' NUVOLE
  1396.  
  1397.     NUVX = 200
  1398.     NUVY = 20
  1399.  
  1400.     CIRCLE (20, 20), 8, 15
  1401.     PAINT (20, 20), 15
  1402.  
  1403.     CIRCLE (26, 25), 8, 15
  1404.     PAINT (26, 25), 15
  1405.  
  1406.     CIRCLE (38, 22), 8, 15
  1407.     PAINT (41, 22), 15
  1408.  
  1409.     CIRCLE (20 + NUVX, 20 + NUVY), 8, 15
  1410.     PAINT (20 + NUVX, 20 + NUVY), 15
  1411.  
  1412.     CIRCLE (26 + NUVX, 25 + NUVY), 8, 15
  1413.     PAINT (26 + NUVX, 25 + NUVY), 15
  1414.  
  1415.     CIRCLE (38 + NUVX, 22 + NUVY), 8, 15
  1416.     PAINT (41 + NUVX, 22 + NUVY), 15
  1417.     '================
  1418.     '================
  1419.     'TERRA
  1420.     LINE (0, 120)-(320, 200), 1, BF
  1421.     LINE (0, 100)-(40, 200), 1, BF
  1422.     LINE (80, 90)-(120, 200), 1, BF
  1423.     LINE (160, 110)-(200, 200), 1, BF
  1424.     LINE (240, 100)-(280, 200), 1, BF
  1425.  
  1426.     '================
  1427.     'CAMINETTO
  1428.     CAMX = 140
  1429.     CAMY = 150
  1430.     CAMX1 = 140
  1431.     CAMX2 = 140
  1432.     FOR H = 1 TO 1
  1433.         LINE (CAMX, CAMY)-(CAMX + 8, CAMY + 4), 8, BF
  1434.         CAMX = CAMX + 10
  1435.     NEXT H
  1436.     FOR HA = 1 TO 1
  1437.         LINE (CAMX1, CAMY + 6)-(CAMX1 + 8, CAMY + 10), 8, BF
  1438.         CAMX1 = CAMX1 + 10
  1439.     NEXT HA
  1440.     FOR HB = 1 TO 1
  1441.         LINE (CAMX2, CAMY + 12)-(CAMX2 + 8, CAMY + 16), 8, BF
  1442.         CAMX2 = CAMX2 + 10
  1443.     NEXT HB
  1444.     LINE (CAMX - 25, CAMY + 50)-(CAMX + 105, CAMY + 18), 55, BF
  1445.  
  1446.  
  1447.  
  1448.  
  1449.     CIRCLE (XAST - 10, YAST), 10, 44
  1450.     PAINT (XAST - 10, YAST), 44
  1451.     CIRCLE (XAST + 14, YAST + 3), 6, 44
  1452.     PAINT (XAST + 14, YAST + 3), 44
  1453.     LINE (XAST - 10, YAST)-(XAST + 12, YAST + 8), 44, BF
  1454.     LINE (XAST - 18, YAST + 14)-(XAST + 15, YAST + 14), 130
  1455.     CIRCLE (XAST + 15, YAST + 9), 6, 130, 4.5, 0
  1456.     LINE (XAST - 4, YAST + 14)-(XAST + 6, YAST + 9), 130, B
  1457.     LINE (XAST + 2, YAST - 1)-(XAST + 9, YAST - 6), 4, BF
  1458.     CIRCLE (XAST + 5, YAST - 10), 4, 88
  1459.     PAINT (XAST + 5, YAST - 10), 88
  1460.     PSET (XAST + 5, YAST - 10)
  1461.     DRAW "BR1C0D1BR3BD1C15D4L1U4L1D3BU5BL4U3L1D3L1U3BU1C4R6H3G3R1U1R1U1R1D1R1BU3BL1C15U1L1D1"
  1462.     CIRCLE (XAST - 7, YAST - 2), 7, 6
  1463.     PAINT (XAST - 8, YAST - 2), 6
  1464.     PSET (XAST - 8, YAST - 8)
  1465.     DRAW "c6e3l3f3"
  1466.  
  1467.     '*********************************** FINE DISEGNO MONDO ***********
  1469.  
  1470. GOTO PS0A
  1471.  
  1472.  
  1473. VITTORIAA:
  1474. LOCATE 10, 12: COLOR 14, 199: PRINT "LIVELLO COMPLETATO": SLEEP 3: GOTO LEV3
  1475. KOA:
  1476. LOCATE 10, 12: COLOR 43, 199: PRINT "G A M E    O V E R": SLEEP 3: END
  1477.  
  1478. LEV3:
  1480. LINE (0, 0)-(320, 200), 0, BF
  1481. FOR U = 1 TO 5
  1482.     SLEEP 1
  1483.     AJ = 3 '35
  1484.     W1 = 4
  1485.     W2 = 14
  1486.     W3 = 2
  1487.  
  1488.     LOCATE 10, 10: COLOR W1: PRINT CHR$(AJ)
  1489.     LOCATE 10, 11: COLOR W3: PRINT CHR$(AJ)
  1490.     LOCATE 10, 12: COLOR W1: PRINT CHR$(AJ)
  1491.     LOCATE 10, 13: COLOR W3: PRINT CHR$(AJ)
  1492.     LOCATE 10, 14: COLOR W1: PRINT CHR$(AJ)
  1493.     LOCATE 10, 15: COLOR W3: PRINT CHR$(AJ)
  1494.     LOCATE 10, 16: COLOR W1: PRINT CHR$(AJ)
  1495.     LOCATE 10, 17: COLOR W3: PRINT CHR$(AJ)
  1496.     LOCATE 10, 18: COLOR W1: PRINT CHR$(AJ)
  1497.     LOCATE 10, 19: COLOR W3: PRINT CHR$(AJ)
  1498.     LOCATE 10, 20: COLOR W1: PRINT CHR$(AJ)
  1499.     LOCATE 10, 21: COLOR W3: PRINT CHR$(AJ)
  1500.     LOCATE 10, 22: COLOR W1: PRINT CHR$(AJ)
  1501.     LOCATE 10, 23: COLOR W3: PRINT CHR$(AJ)
  1502.     LOCATE 10, 24: COLOR W1: PRINT CHR$(AJ)
  1503.     LOCATE 10, 25: COLOR W3: PRINT CHR$(AJ)
  1504.     LOCATE 10, 26: COLOR W1: PRINT CHR$(AJ)
  1505.     LOCATE 10, 27: COLOR W3: PRINT CHR$(AJ)
  1506.     LOCATE 10, 28: COLOR W1: PRINT CHR$(AJ)
  1507.     LOCATE 10, 29: COLOR W3: PRINT CHR$(AJ)
  1508.     LOCATE 10, 30: COLOR W1: PRINT CHR$(AJ)
  1509.  
  1510.  
  1511.  
  1512.     LOCATE 14, 10: COLOR W1: PRINT CHR$(AJ)
  1513.     LOCATE 14, 11: COLOR W3: PRINT CHR$(AJ)
  1514.     LOCATE 14, 12: COLOR W1: PRINT CHR$(AJ)
  1515.     LOCATE 14, 13: COLOR W3: PRINT CHR$(AJ)
  1516.     LOCATE 14, 14: COLOR W1: PRINT CHR$(AJ)
  1517.     LOCATE 14, 15: COLOR W3: PRINT CHR$(AJ)
  1518.     LOCATE 14, 16: COLOR W1: PRINT CHR$(AJ)
  1519.     LOCATE 14, 17: COLOR W3: PRINT CHR$(AJ)
  1520.     LOCATE 14, 18: COLOR W1: PRINT CHR$(AJ)
  1521.     LOCATE 14, 19: COLOR W3: PRINT CHR$(AJ)
  1522.     LOCATE 14, 20: COLOR W1: PRINT CHR$(AJ)
  1523.     LOCATE 14, 21: COLOR W3: PRINT CHR$(AJ)
  1524.     LOCATE 14, 22: COLOR W1: PRINT CHR$(AJ)
  1525.     LOCATE 14, 23: COLOR W3: PRINT CHR$(AJ)
  1526.     LOCATE 14, 24: COLOR W1: PRINT CHR$(AJ)
  1527.     LOCATE 14, 25: COLOR W3: PRINT CHR$(AJ)
  1528.     LOCATE 14, 26: COLOR W1: PRINT CHR$(AJ)
  1529.     LOCATE 14, 27: COLOR W3: PRINT CHR$(AJ)
  1530.     LOCATE 14, 28: COLOR W1: PRINT CHR$(AJ)
  1531.     LOCATE 14, 29: COLOR W3: PRINT CHR$(AJ)
  1532.     LOCATE 14, 30: COLOR W1: PRINT CHR$(AJ)
  1533.  
  1534.  
  1535.     LOCATE 12, 16: COLOR 41, 0: PRINT "LIVELLO 3"
  1536.  
  1537.     SLEEP 1
  1538.     W1 = 2
  1539.     W2 = 14
  1540.     W3 = 4
  1541.  
  1542.     LOCATE 10, 10: COLOR W1: PRINT CHR$(AJ)
  1543.     LOCATE 10, 11: COLOR W3: PRINT CHR$(AJ)
  1544.     LOCATE 10, 12: COLOR W1: PRINT CHR$(AJ)
  1545.     LOCATE 10, 13: COLOR W3: PRINT CHR$(AJ)
  1546.     LOCATE 10, 14: COLOR W1: PRINT CHR$(AJ)
  1547.     LOCATE 10, 15: COLOR W3: PRINT CHR$(AJ)
  1548.     LOCATE 10, 16: COLOR W1: PRINT CHR$(AJ)
  1549.     LOCATE 10, 17: COLOR W3: PRINT CHR$(AJ)
  1550.     LOCATE 10, 18: COLOR W1: PRINT CHR$(AJ)
  1551.     LOCATE 10, 19: COLOR W3: PRINT CHR$(AJ)
  1552.     LOCATE 10, 20: COLOR W1: PRINT CHR$(AJ)
  1553.     LOCATE 10, 21: COLOR W3: PRINT CHR$(AJ)
  1554.     LOCATE 10, 22: COLOR W1: PRINT CHR$(AJ)
  1555.     LOCATE 10, 23: COLOR W3: PRINT CHR$(AJ)
  1556.     LOCATE 10, 24: COLOR W1: PRINT CHR$(AJ)
  1557.     LOCATE 10, 25: COLOR W3: PRINT CHR$(AJ)
  1558.     LOCATE 10, 26: COLOR W1: PRINT CHR$(AJ)
  1559.     LOCATE 10, 27: COLOR W3: PRINT CHR$(AJ)
  1560.     LOCATE 10, 28: COLOR W1: PRINT CHR$(AJ)
  1561.     LOCATE 10, 29: COLOR W3: PRINT CHR$(AJ)
  1562.     LOCATE 10, 30: COLOR W1: PRINT CHR$(AJ)
  1563.  
  1564.  
  1565.  
  1566.     LOCATE 14, 10: COLOR W1: PRINT CHR$(AJ)
  1567.     LOCATE 14, 11: COLOR W3: PRINT CHR$(AJ)
  1568.     LOCATE 14, 12: COLOR W1: PRINT CHR$(AJ)
  1569.     LOCATE 14, 13: COLOR W3: PRINT CHR$(AJ)
  1570.     LOCATE 14, 14: COLOR W1: PRINT CHR$(AJ)
  1571.     LOCATE 14, 15: COLOR W3: PRINT CHR$(AJ)
  1572.     LOCATE 14, 16: COLOR W1: PRINT CHR$(AJ)
  1573.     LOCATE 14, 17: COLOR W3: PRINT CHR$(AJ)
  1574.     LOCATE 14, 18: COLOR W1: PRINT CHR$(AJ)
  1575.     LOCATE 14, 19: COLOR W3: PRINT CHR$(AJ)
  1576.     LOCATE 14, 20: COLOR W1: PRINT CHR$(AJ)
  1577.     LOCATE 14, 21: COLOR W3: PRINT CHR$(AJ)
  1578.     LOCATE 14, 22: COLOR W1: PRINT CHR$(AJ)
  1579.     LOCATE 14, 23: COLOR W3: PRINT CHR$(AJ)
  1580.     LOCATE 14, 24: COLOR W1: PRINT CHR$(AJ)
  1581.     LOCATE 14, 25: COLOR W3: PRINT CHR$(AJ)
  1582.     LOCATE 14, 26: COLOR W1: PRINT CHR$(AJ)
  1583.     LOCATE 14, 27: COLOR W3: PRINT CHR$(AJ)
  1584.     LOCATE 14, 28: COLOR W1: PRINT CHR$(AJ)
  1585.     LOCATE 14, 29: COLOR W3: PRINT CHR$(AJ)
  1586.     LOCATE 14, 30: COLOR W1: PRINT CHR$(AJ)
  1588.  
  1589. DISEGNOMONDO3:
  1590. '******************** DISEGNO MONDO ***************************
  1591. '================
  1592. 'CIELO
  1593.  
  1594. LINE (0, 0)-(320, 120), 199, BF
  1595. '================
  1596. '================
  1597. ' NUVOLE
  1598.  
  1599. NUVX = 200
  1600. NUVY = 20
  1601.  
  1602. CIRCLE (20, 20), 8, 15
  1603. PAINT (20, 20), 15
  1604.  
  1605. CIRCLE (26, 25), 8, 15
  1606. PAINT (26, 25), 15
  1607.  
  1608. CIRCLE (38, 22), 8, 15
  1609. PAINT (41, 22), 15
  1610.  
  1611. CIRCLE (20 + NUVX, 20 + NUVY), 8, 15
  1612. PAINT (20 + NUVX, 20 + NUVY), 15
  1613.  
  1614. CIRCLE (26 + NUVX, 25 + NUVY), 8, 15
  1615. PAINT (26 + NUVX, 25 + NUVY), 15
  1616.  
  1617. CIRCLE (38 + NUVX, 22 + NUVY), 8, 15
  1618. PAINT (41 + NUVX, 22 + NUVY), 15
  1619. '================
  1620. '================
  1621. 'TERRA
  1622. LINE (0, 120)-(320, 200), 1, BF
  1623. LINE (0, 100)-(40, 200), 1, BF
  1624. LINE (80, 90)-(120, 200), 1, BF
  1625. LINE (160, 110)-(200, 200), 1, BF
  1626. LINE (240, 100)-(280, 200), 1, BF
  1627.  
  1628.  
  1629. '================
  1630. 'CAMINETTO
  1631. CAMX = 140
  1632. CAMY = 150
  1633. CAMX1 = 140
  1634. CAMX2 = 140
  1635. FOR H = 1 TO 1
  1636.     LINE (CAMX, CAMY)-(CAMX + 8, CAMY + 4), 8, BF
  1637.     CAMX = CAMX + 10
  1639. FOR HA = 1 TO 1
  1640.     LINE (CAMX1, CAMY + 6)-(CAMX1 + 8, CAMY + 10), 8, BF
  1641.     CAMX1 = CAMX1 + 10
  1642. NEXT HA
  1643. FOR HB = 1 TO 1
  1644.     LINE (CAMX2, CAMY + 12)-(CAMX2 + 8, CAMY + 16), 8, BF
  1645.     CAMX2 = CAMX2 + 10
  1646. NEXT HB
  1647. LINE (CAMX - 25, CAMY + 50)-(CAMX + 105, CAMY + 18), 55, BF
  1648.  
  1649.  
  1650.  
  1651.  
  1652. '*********************************** FINE DISEGNO MONDO ***********
  1653.  
  1654.  
  1655. '======================
  1656. '======================
  1657. 'ASTRONAVE
  1658. XAST = 20 '*** POSIZIONE X INIZIALE
  1659. YAST = 50 '*** POSIZIONE Y INIZIALE
  1660.  
  1661. PS0B:
  1662.  
  1663. CIRCLE (XAST - 10, YAST), 10, 44
  1664. PAINT (XAST - 10, YAST), 44
  1665. CIRCLE (XAST + 14, YAST + 3), 6, 44
  1666. PAINT (XAST + 14, YAST + 3), 44
  1667. LINE (XAST - 10, YAST)-(XAST + 12, YAST + 8), 44, BF
  1668. LINE (XAST - 18, YAST + 14)-(XAST + 15, YAST + 14), 130
  1669. CIRCLE (XAST + 15, YAST + 9), 6, 130, 4.5, 0
  1670. LINE (XAST - 4, YAST + 14)-(XAST + 6, YAST + 9), 130, B
  1671. LINE (XAST + 2, YAST - 1)-(XAST + 9, YAST - 6), 4, BF
  1672. CIRCLE (XAST + 5, YAST - 10), 4, 88
  1673. PAINT (XAST + 5, YAST - 10), 88
  1674. PSET (XAST + 5, YAST - 10)
  1675. DRAW "BR1C0D1BR3BD1C15D4L1U4L1D3BU5BL4U3L1D3L1U3BU1C4R6H3G3R1U1R1U1R1D1R1BU3BL1C15U1L1D1"
  1676. CIRCLE (XAST - 7, YAST - 2), 7, 6
  1677. PAINT (XAST - 8, YAST - 2), 6
  1678. PSET (XAST - 8, YAST - 8)
  1679. DRAW "c6e3l3f3"
  1680.  
  1681.  
  1682.  
  1683. PS1B: A$ = INKEY$: IF A$ = "" THEN GOTO PS1B
  1684.  
  1685. IF A$ = " " THEN GOTO FIREB
  1686. IF A$ = "G" OR A$ = "g" THEN GOTO AST1B
  1687. IF A$ = "H" OR A$ = "h" THEN GOTO AST2B
  1688. 'IF A$ = "Y" OR A$ = "y" THEN GOTO AST3
  1689. 'IF A$ = "B" OR A$ = "b" THEN GOTO AST4
  1690. IF A$ = "E" OR A$ = "e" THEN END
  1691. GOTO PS1B
  1692.  
  1693.  
  1694.  
  1695. '*** MOVIMENTO 4 DIREZIONI
  1696. AST1B: XAST = XAST - 10:
  1697. IF XAST < 20 THEN XAST = 20 '**** ROUTINE MIGLIORATA PER NON FARE USCIRE DALLO SCHERMO
  1698. GOTO DISEGNAASTB
  1699.  
  1700. AST2B: XAST = XAST + 10:
  1701. IF XAST > 300 THEN XAST = 300 '**** ROUTINE MIGLIORATA PER NON FARE USCIRE DALLO SCHERMO
  1702. GOTO DISEGNAASTB
  1703.  
  1704. 'AST3: YAST = YAST - 10: GOTO DISEGNAASTB     *** tolto il vert in alto
  1705. 'AST4: YAST = YAST + 10: GOTO DISEGNAASTB     *** tolto il vert in basso
  1706. ' *** FINE MOVIMENTO 4 DIREZIONI
  1707.  
  1708. DISEGNAASTB:
  1709.  
  1710. '******************** RI DISEGNO MONDO ***************************
  1711. '================
  1712. 'CIELO
  1713.  
  1714. LINE (0, 0)-(320, 120), 199, BF
  1715. '================
  1716. '================
  1717. ' NUVOLE
  1718.  
  1719. NUVX = 200
  1720. NUVY = 20
  1721.  
  1722. CIRCLE (20, 20), 8, 15
  1723. PAINT (20, 20), 15
  1724.  
  1725. CIRCLE (26, 25), 8, 15
  1726. PAINT (26, 25), 15
  1727.  
  1728. CIRCLE (38, 22), 8, 15
  1729. PAINT (41, 22), 15
  1730.  
  1731. CIRCLE (20 + NUVX, 20 + NUVY), 8, 15
  1732. PAINT (20 + NUVX, 20 + NUVY), 15
  1733.  
  1734. CIRCLE (26 + NUVX, 25 + NUVY), 8, 15
  1735. PAINT (26 + NUVX, 25 + NUVY), 15
  1736.  
  1737. CIRCLE (38 + NUVX, 22 + NUVY), 8, 15
  1738. PAINT (41 + NUVX, 22 + NUVY), 15
  1739. '================
  1740. '================
  1741. 'TERRA
  1742. LINE (0, 120)-(320, 200), 1, BF
  1743. LINE (0, 100)-(40, 200), 1, BF
  1744. LINE (80, 90)-(120, 200), 1, BF
  1745. LINE (160, 110)-(200, 200), 1, BF
  1746. LINE (240, 100)-(280, 200), 1, BF
  1747.  
  1748. 'CAMINETTO
  1749. CAMX = 140
  1750. CAMY = 150
  1751. CAMX1 = 140
  1752. CAMX2 = 140
  1753. FOR H = 1 TO 1
  1754.     LINE (CAMX, CAMY)-(CAMX + 8, CAMY + 4), 8, BF
  1755.     CAMX = CAMX + 10
  1757. FOR HA = 1 TO 1
  1758.     LINE (CAMX1, CAMY + 6)-(CAMX1 + 8, CAMY + 10), 8, BF
  1759.     CAMX1 = CAMX1 + 10
  1760. NEXT HA
  1761. FOR HB = 1 TO 1
  1762.     LINE (CAMX2, CAMY + 12)-(CAMX2 + 8, CAMY + 16), 8, BF
  1763.     CAMX2 = CAMX2 + 10
  1764. NEXT HB
  1765. LINE (CAMX - 25, CAMY + 50)-(CAMX + 105, CAMY + 18), 55, BF
  1766.  
  1767.  
  1768. '================
  1769. '******************** PUNTI E LIVELLO
  1770. punt = 100
  1771. LOCATE 1, 1: COLOR 14, 199: PRINT "Liv. 3"
  1772. LOCATE 1, 28: COLOR 14, 199: PRINT "Punti"
  1773. LOCATE 1, 33: COLOR 14, 199: PRINT punt
  1774.  
  1775.  
  1776. '*********************************** FINE DISEGNO MONDO ***********
  1777.  
  1778.  
  1779.  
  1780.  
  1781. CIRCLE (XAST - 10, YAST), 10, 44
  1782. PAINT (XAST - 10, YAST), 44
  1783. CIRCLE (XAST + 14, YAST + 3), 6, 44
  1784. PAINT (XAST + 14, YAST + 3), 44
  1785. LINE (XAST - 10, YAST)-(XAST + 12, YAST + 8), 44, BF
  1786. LINE (XAST - 18, YAST + 14)-(XAST + 15, YAST + 14), 130
  1787. CIRCLE (XAST + 15, YAST + 9), 6, 130, 4.5, 0
  1788. LINE (XAST - 4, YAST + 14)-(XAST + 6, YAST + 9), 130, B
  1789. LINE (XAST + 2, YAST - 1)-(XAST + 9, YAST - 6), 4, BF
  1790. CIRCLE (XAST + 5, YAST - 10), 4, 88
  1791. PAINT (XAST + 5, YAST - 10), 88
  1792. PSET (XAST + 5, YAST - 10)
  1793. DRAW "BR1C0D1BR3BD1C15D4L1U4L1D3BU5BL4U3L1D3L1U3BU1C4R6H3G3R1U1R1U1R1D1R1BU3BL1C15U1L1D1"
  1794. CIRCLE (XAST - 7, YAST - 2), 7, 6
  1795. PAINT (XAST - 8, YAST - 2), 6
  1796. PSET (XAST - 8, YAST - 8)
  1797. DRAW "c6e3l3f3"
  1798.  
  1799.  
  1800. GOTO PS1B
  1801.  
  1802.  
  1803.  
  1804. '======================
  1805. FIREB:
  1806. ' ************ FIREB SPARA DA SOTTO DELLA ASTRONAVE
  1807. XF = XAST + 2: YF = YAST + 10 '**** modifica per vento
  1808.  
  1809. FOR T = 1 TO 10
  1810.     YF = YF + 10: XF = XF + 2 '********** vento
  1811.     LINE (XF, YF)-(XF + 8, YF + 6), 4, BF
  1812.     LINE (XF + 3, YF)-(XF + 5, YF + 6), 14, BF
  1813.     LINE (XF, YF + 2)-(XF + 8, YF + 4), 14, BF
  1814.     'SLEEP 1
  1815.     FOR N = 1 TO 12000000: NEXT N
  1816.     'ok su p2.8 6 gb ram
  1817.     IF XF = 140 AND YF = 150 GOTO VITTORIAB:
  1818.     IF XF <> 140 AND YF = 150 GOTO KOB
  1819.  
  1820.     '******************** DISEGNO MONDO ***************************
  1821.     '================
  1822.     'CIELO
  1823.  
  1824.     LINE (0, 0)-(320, 120), 199, BF
  1825.     '================
  1826.     '================
  1827.     ' NUVOLE
  1828.  
  1829.     NUVX = 200
  1830.     NUVY = 20
  1831.  
  1832.     CIRCLE (20, 20), 8, 15
  1833.     PAINT (20, 20), 15
  1834.  
  1835.     CIRCLE (26, 25), 8, 15
  1836.     PAINT (26, 25), 15
  1837.  
  1838.     CIRCLE (38, 22), 8, 15
  1839.     PAINT (41, 22), 15
  1840.  
  1841.     CIRCLE (20 + NUVX, 20 + NUVY), 8, 15
  1842.     PAINT (20 + NUVX, 20 + NUVY), 15
  1843.  
  1844.     CIRCLE (26 + NUVX, 25 + NUVY), 8, 15
  1845.     PAINT (26 + NUVX, 25 + NUVY), 15
  1846.  
  1847.     CIRCLE (38 + NUVX, 22 + NUVY), 8, 15
  1848.     PAINT (41 + NUVX, 22 + NUVY), 15
  1849.     '================
  1850.     '================
  1851.     'TERRA
  1852.     LINE (0, 120)-(320, 200), 1, BF
  1853.     LINE (0, 100)-(40, 200), 1, BF
  1854.     LINE (80, 90)-(120, 200), 1, BF
  1855.     LINE (160, 110)-(200, 200), 1, BF
  1856.     LINE (240, 100)-(280, 200), 1, BF
  1857.  
  1858.     '================
  1859.     'CAMINETTO
  1860.     CAMX = 140
  1861.     CAMY = 150
  1862.     CAMX1 = 140
  1863.     CAMX2 = 140
  1864.     FOR H = 1 TO 1
  1865.         LINE (CAMX, CAMY)-(CAMX + 8, CAMY + 4), 8, BF
  1866.         CAMX = CAMX + 10
  1867.     NEXT H
  1868.     FOR HA = 1 TO 1
  1869.         LINE (CAMX1, CAMY + 6)-(CAMX1 + 8, CAMY + 10), 8, BF
  1870.         CAMX1 = CAMX1 + 10
  1871.     NEXT HA
  1872.     FOR HB = 1 TO 1
  1873.         LINE (CAMX2, CAMY + 12)-(CAMX2 + 8, CAMY + 16), 8, BF
  1874.         CAMX2 = CAMX2 + 10
  1875.     NEXT HB
  1876.     LINE (CAMX - 25, CAMY + 50)-(CAMX + 105, CAMY + 18), 55, BF
  1877.  
  1878.  
  1879.  
  1880.     '================
  1881.  
  1882.     '================
  1883.     '================
  1884.     '******************** PUNTI E LIVELLO
  1885.     punt = 100
  1886.     LOCATE 1, 1: COLOR 14, 199: PRINT "Liv. 3"
  1887.     LOCATE 1, 28: COLOR 14, 199: PRINT "Punti"
  1888.     LOCATE 1, 33: COLOR 14, 199: PRINT punt
  1889.  
  1890.  
  1891.  
  1892.     CIRCLE (XAST - 10, YAST), 10, 44
  1893.     PAINT (XAST - 10, YAST), 44
  1894.     CIRCLE (XAST + 14, YAST + 3), 6, 44
  1895.     PAINT (XAST + 14, YAST + 3), 44
  1896.     LINE (XAST - 10, YAST)-(XAST + 12, YAST + 8), 44, BF
  1897.     LINE (XAST - 18, YAST + 14)-(XAST + 15, YAST + 14), 130
  1898.     CIRCLE (XAST + 15, YAST + 9), 6, 130, 4.5, 0
  1899.     LINE (XAST - 4, YAST + 14)-(XAST + 6, YAST + 9), 130, B
  1900.     LINE (XAST + 2, YAST - 1)-(XAST + 9, YAST - 6), 4, BF
  1901.     CIRCLE (XAST + 5, YAST - 10), 4, 88
  1902.     PAINT (XAST + 5, YAST - 10), 88
  1903.     PSET (XAST + 5, YAST - 10)
  1904.     DRAW "BR1C0D1BR3BD1C15D4L1U4L1D3BU5BL4U3L1D3L1U3BU1C4R6H3G3R1U1R1U1R1D1R1BU3BL1C15U1L1D1"
  1905.     CIRCLE (XAST - 7, YAST - 2), 7, 6
  1906.     PAINT (XAST - 8, YAST - 2), 6
  1907.     PSET (XAST - 8, YAST - 8)
  1908.     DRAW "c6e3l3f3"
  1909.  
  1910.     '*********************************** FINE DISEGNO MONDO ***********
  1912.  
  1913. GOTO PS0B
  1914.  
  1915.  
  1916. VITTORIAB:
  1917. LOCATE 10, 12: COLOR 14, 199: PRINT "LIVELLO COMPLETATO": SLEEP 3: GOTO BONUS1
  1918. KOB:
  1919. LOCATE 10, 12: COLOR 43, 199: PRINT "G A M E    O V E R": SLEEP 3: END
  1920.  
  1921. '==========================================================================
  1922. '*****************
  1923. '*               *
  1924. '* BONUS 1       *
  1925. '*               *
  1926. '*****************
  1927.  
  1928.  
  1929. BONUS1:
  1931. LINE (0, 0)-(320, 200), 0, BF
  1932. 'PAINT (1, 1), 0
  1933. 'FOR U = 1 TO 3
  1935. AJ = 3 '35
  1936. W1 = 4
  1937. W2 = 14
  1938. W3 = 2
  1939.  
  1940. LOCATE 10, 10: COLOR W1: PRINT CHR$(AJ)
  1941. LOCATE 10, 11: COLOR W1: PRINT CHR$(AJ)
  1942. LOCATE 10, 12: COLOR W1: PRINT CHR$(AJ)
  1943. LOCATE 10, 13: COLOR W1: PRINT CHR$(AJ)
  1944. LOCATE 10, 14: COLOR W1: PRINT CHR$(AJ)
  1945. LOCATE 10, 15: COLOR W1: PRINT CHR$(AJ)
  1946. LOCATE 10, 16: COLOR W1: PRINT CHR$(AJ)
  1947. LOCATE 10, 17: COLOR W1: PRINT CHR$(AJ)
  1948. LOCATE 10, 18: COLOR W1: PRINT CHR$(AJ)
  1949. LOCATE 10, 19: COLOR W1: PRINT CHR$(AJ)
  1950. LOCATE 10, 20: COLOR W1: PRINT CHR$(AJ)
  1951. LOCATE 10, 21: COLOR W1: PRINT CHR$(AJ)
  1952. LOCATE 10, 22: COLOR W1: PRINT CHR$(AJ)
  1953. LOCATE 10, 23: COLOR W1: PRINT CHR$(AJ)
  1954. LOCATE 10, 24: COLOR W1: PRINT CHR$(AJ)
  1955. LOCATE 10, 25: COLOR W1: PRINT CHR$(AJ)
  1956. LOCATE 10, 26: COLOR W1: PRINT CHR$(AJ)
  1957. LOCATE 10, 27: COLOR W1: PRINT CHR$(AJ)
  1958. LOCATE 10, 28: COLOR W1: PRINT CHR$(AJ)
  1959. LOCATE 10, 29: COLOR W1: PRINT CHR$(AJ)
  1960. LOCATE 10, 30: COLOR W1: PRINT CHR$(AJ)
  1961.  
  1962.  
  1963.  
  1964. LOCATE 14, 10: COLOR W1: PRINT CHR$(AJ)
  1965. LOCATE 14, 11: COLOR W1: PRINT CHR$(AJ)
  1966. LOCATE 14, 12: COLOR W1: PRINT CHR$(AJ)
  1967. LOCATE 14, 13: COLOR W1: PRINT CHR$(AJ)
  1968. LOCATE 14, 14: COLOR W1: PRINT CHR$(AJ)
  1969. LOCATE 14, 15: COLOR W1: PRINT CHR$(AJ)
  1970. LOCATE 14, 16: COLOR W1: PRINT CHR$(AJ)
  1971. LOCATE 14, 17: COLOR W1: PRINT CHR$(AJ)
  1972. LOCATE 14, 18: COLOR W1: PRINT CHR$(AJ)
  1973. LOCATE 14, 19: COLOR W1: PRINT CHR$(AJ)
  1974. LOCATE 14, 20: COLOR W1: PRINT CHR$(AJ)
  1975. LOCATE 14, 21: COLOR W1: PRINT CHR$(AJ)
  1976. LOCATE 14, 22: COLOR W1: PRINT CHR$(AJ)
  1977. LOCATE 14, 23: COLOR W1: PRINT CHR$(AJ)
  1978. LOCATE 14, 24: COLOR W1: PRINT CHR$(AJ)
  1979. LOCATE 14, 25: COLOR W1: PRINT CHR$(AJ)
  1980. LOCATE 14, 26: COLOR W1: PRINT CHR$(AJ)
  1981. LOCATE 14, 27: COLOR W1: PRINT CHR$(AJ)
  1982. LOCATE 14, 28: COLOR W1: PRINT CHR$(AJ)
  1983. LOCATE 14, 29: COLOR W1: PRINT CHR$(AJ)
  1984. LOCATE 14, 30: COLOR W1: PRINT CHR$(AJ)
  1985.  
  1986.  
  1987. LOCATE 12, 18: COLOR 41: PRINT "BONUS"
  1988.  
  1990. W1 = 2
  1991. W2 = 14
  1992. W3 = 4
  1993.  
  1994. LOCATE 10, 10: COLOR W2: PRINT CHR$(AJ)
  1995. LOCATE 10, 11: COLOR W2: PRINT CHR$(AJ)
  1996. LOCATE 10, 12: COLOR W2: PRINT CHR$(AJ)
  1997. LOCATE 10, 13: COLOR W2: PRINT CHR$(AJ)
  1998. LOCATE 10, 14: COLOR W2: PRINT CHR$(AJ)
  1999. LOCATE 10, 15: COLOR W2: PRINT CHR$(AJ)
  2000. LOCATE 10, 16: COLOR W2: PRINT CHR$(AJ)
  2001. LOCATE 10, 17: COLOR W2: PRINT CHR$(AJ)
  2002. LOCATE 10, 18: COLOR W2: PRINT CHR$(AJ)
  2003. LOCATE 10, 19: COLOR W2: PRINT CHR$(AJ)
  2004. LOCATE 10, 20: COLOR W2: PRINT CHR$(AJ)
  2005. LOCATE 10, 21: COLOR W2: PRINT CHR$(AJ)
  2006. LOCATE 10, 22: COLOR W2: PRINT CHR$(AJ)
  2007. LOCATE 10, 23: COLOR W2: PRINT CHR$(AJ)
  2008. LOCATE 10, 24: COLOR W2: PRINT CHR$(AJ)
  2009. LOCATE 10, 25: COLOR W2: PRINT CHR$(AJ)
  2010. LOCATE 10, 26: COLOR W2: PRINT CHR$(AJ)
  2011. LOCATE 10, 27: COLOR W2: PRINT CHR$(AJ)
  2012. LOCATE 10, 28: COLOR W2: PRINT CHR$(AJ)
  2013. LOCATE 10, 29: COLOR W2: PRINT CHR$(AJ)
  2014. LOCATE 10, 30: COLOR W2: PRINT CHR$(AJ)
  2015.  
  2016.  
  2017.  
  2018. LOCATE 14, 10: COLOR W2: PRINT CHR$(AJ)
  2019. LOCATE 14, 11: COLOR W2: PRINT CHR$(AJ)
  2020. LOCATE 14, 12: COLOR W2: PRINT CHR$(AJ)
  2021. LOCATE 14, 13: COLOR W2: PRINT CHR$(AJ)
  2022. LOCATE 14, 14: COLOR W2: PRINT CHR$(AJ)
  2023. LOCATE 14, 15: COLOR W2: PRINT CHR$(AJ)
  2024. LOCATE 14, 16: COLOR W2: PRINT CHR$(AJ)
  2025. LOCATE 14, 17: COLOR W2: PRINT CHR$(AJ)
  2026. LOCATE 14, 18: COLOR W2: PRINT CHR$(AJ)
  2027. LOCATE 14, 19: COLOR W2: PRINT CHR$(AJ)
  2028. LOCATE 14, 20: COLOR W2: PRINT CHR$(AJ)
  2029. LOCATE 14, 21: COLOR W2: PRINT CHR$(AJ)
  2030. LOCATE 14, 22: COLOR W2: PRINT CHR$(AJ)
  2031. LOCATE 14, 23: COLOR W2: PRINT CHR$(AJ)
  2032. LOCATE 14, 24: COLOR W2: PRINT CHR$(AJ)
  2033. LOCATE 14, 25: COLOR W2: PRINT CHR$(AJ)
  2034. LOCATE 14, 26: COLOR W2: PRINT CHR$(AJ)
  2035. LOCATE 14, 27: COLOR W2: PRINT CHR$(AJ)
  2036. LOCATE 14, 28: COLOR W2: PRINT CHR$(AJ)
  2037. LOCATE 14, 29: COLOR W2: PRINT CHR$(AJ)
  2038. LOCATE 14, 30: COLOR W2: PRINT CHR$(AJ)
  2039.  
  2040. 'NEXT U
  2042.  
  2043. '********* QUI PASSA LA SLITTA CON CARTELLONE CON SCRITTO 30 PUNTI
  2044.  
  2045.  
  2046. '********** SLITTE
  2047. '************* SLITTA FRECCIA INDIETRO *************
  2048. AXSN = 100: AYSN = 90
  2049.  
  2050. CIRCLE (AXSN - 10, AYSN), 10, 44
  2051. PAINT (AXSN - 10, AYSN), 44
  2052. CIRCLE (AXSN + 14, AYSN + 3), 6, 44
  2053. PAINT (AXSN + 14, AYSN + 3), 44
  2054. LINE (AXSN - 10, AYSN)-(AXSN + 12, AYSN + 8), 44, BF
  2055. LINE (AXSN - 18, AYSN + 14)-(AXSN + 15, AYSN + 14), 130
  2056. CIRCLE (AXSN + 15, AYSN + 9), 6, 130, 4.5, 0
  2057. LINE (AXSN - 4, AYSN + 14)-(AXSN + 6, AYSN + 9), 130, B
  2058. LINE (AXSN + 2, AYSN - 1)-(AXSN + 9, AYSN - 6), 4, BF
  2059. CIRCLE (AXSN + 5, AYSN - 10), 4, 88
  2060. PAINT (AXSN + 5, AYSN - 10), 88
  2061. PSET (AXSN + 5, AYSN - 10)
  2062. DRAW "BR1C0D1BR3BD1C15D4L1U4L1D3BU5BL4U3L1D3L1U3BU1C4R6H3G3R1U1R1U1R1D1R1BU3BL1C15U1L1D1"
  2063. CIRCLE (AXSN - 7, AYSN - 2), 7, 6
  2064. PAINT (AXSN - 8, AYSN - 2), 6
  2065. PSET (AXSN - 8, AYSN - 8)
  2066. DRAW "c6e3l3f3"
  2067.  
  2068.  
  2070.  
  2071.  
  2072.  
  2073. SORT1A:
  2074. PRIMOSOR1 = INT(RND(1) * 2) + 1
  2075.  
  2076.  
  2077. IF PRIMOSOR1 = 1 THEN SQ$ = "1": GOTO TUR1A
  2078. IF PRIMOSOR1 = 2 THEN SQ$ = "2": GOTO TUR1B
  2079.  
  2080. TUR1A:
  2082. LOCATE 5, 14: PRINT SQ$
  2083. FOR UA = 1 TO 3
  2084.     'SLEEP 1
  2085.     AJ = 3 '35
  2086.  
  2087.     LINE (160, 80)-(180, 100), 4, BF
  2088.     LINE (168, 80)-(172, 100), 14, BF
  2089.     LINE (160, 90)-(180, 94), 14, BF
  2090.     LINE (159, 79)-(181, 84), 10, B
  2091.     LINE (160, 80)-(180, 83), 2, BF
  2092.  
  2093.  
  2094.     SLEEP 1
  2095.     LINE (159, 79)-(181, 100), 0, BF
  2096.  
  2097.     CIRCLE (170, 90), 10, 8
  2098.     PAINT (170, 90), 8
  2099.     CIRCLE (167, 86), 3, 7
  2100.     PAINT (167, 86), 7
  2101.     LINE (167, 81)-(173, 79), 8, BF
  2102.     SLEEP 1
  2103.     LINE (159, 79)-(181, 100), 0, BF
  2104.  
  2105. NEXT UA
  2106.  
  2107. LINE (160, 80)-(180, 100), 4, BF
  2108. LINE (168, 80)-(172, 100), 14, BF
  2109. LINE (160, 90)-(180, 94), 14, BF
  2110. LINE (159, 79)-(181, 84), 10, B
  2111. LINE (160, 80)-(180, 83), 2, BF
  2113. GOTO BONUSOK
  2114.  
  2116.  
  2117. TUR1B:
  2119. LOCATE 5, 14: PRINT SQ$
  2120. FOR UA = 1 TO 3
  2121.     'SLEEP 1
  2122.     AJ = 3 '35
  2123.  
  2124.     LINE (160, 80)-(180, 100), 4, BF
  2125.     LINE (168, 80)-(172, 100), 14, BF
  2126.     LINE (160, 90)-(180, 94), 14, BF
  2127.     LINE (159, 79)-(181, 84), 10, B
  2128.     LINE (160, 80)-(180, 83), 2, BF
  2129.  
  2130.  
  2131.     SLEEP 1
  2132.     LINE (159, 79)-(181, 100), 0, BF
  2133.  
  2134.     CIRCLE (170, 90), 10, 8
  2135.     PAINT (170, 90), 8
  2136.     CIRCLE (167, 86), 3, 7
  2137.     PAINT (167, 86), 7
  2138.     LINE (167, 81)-(173, 79), 8, BF
  2139.     SLEEP 1
  2140.     LINE (159, 79)-(181, 100), 0, BF
  2141.  
  2142. NEXT UA
  2143.  
  2144. CIRCLE (170, 90), 10, 8
  2145. PAINT (170, 90), 8
  2146. CIRCLE (167, 86), 3, 7
  2147. PAINT (167, 86), 7
  2148. LINE (167, 81)-(173, 79), 8, BF
  2150. GOTO BONUSKO:
  2151.  
  2152.  
  2153. BONUSOK:
  2154.  
  2155. LINE (160, 80)-(180, 100), 4, BF
  2156. LINE (168, 80)-(172, 100), 14, BF
  2157. LINE (160, 90)-(180, 94), 14, BF
  2158. 'LINE (159, 79)-(181, 84), 10, B
  2159. 'LINE (160, 80)-(180, 83), 2, BF
  2160.  
  2161. PSET (166, 80)
  2162. DRAW "C7R6U2L6U2R6U2L6U2R6U2L6U2R6"
  2163. CIRCLE (169, 60), 8, 88
  2164. PAINT (169, 60), 88
  2165. CIRCLE (166, 60), 2, 0
  2166. PAINT (166, 60), 0
  2167. CIRCLE (172, 60), 2, 0
  2168. PAINT (172, 60), 0
  2169. CIRCLE (166, 60), 0, 15
  2170. CIRCLE (172, 60), 0, 15
  2171.  
  2172. CIRCLE (169, 61), 5, 4, 4.14, 5.28
  2173. PSET (163, 55)
  2174. DRAW "C4R12H6G6"
  2175. PAINT (169, 50), 4
  2176. CIRCLE (169, 47), 3, 15
  2177. PAINT (169, 47), 15
  2178.  
  2179.  
  2180.  
  2181. punt = punt + 25
  2182. GOTO FINALGAME
  2183.  
  2184. BONUSKO:
  2185. CIRCLE (170, 87), 18, 4
  2186. PAINT (170, 87), 4
  2188. 'CIRCLE (170, 85), 15, 0
  2189. 'PAINT (170, 85), 0
  2190. CIRCLE (172, 88), 10, 41
  2191. PAINT (172, 88), 41
  2193. 'CIRCLE (174, 88), 10, 0
  2194. 'PAINT (174, 88), 0
  2195. CIRCLE (174, 93), 8, 42
  2196. PAINT (174, 93), 42
  2198. 'CIRCLE (176, 93), 10, 0
  2199. 'PAINT (176, 93), 0
  2200. CIRCLE (178, 86), 10, 43
  2201. PAINT (178, 86), 43
  2202.  
  2203. punt = punt + 0
  2204.  
  2205. GOTO FINALGAME
  2206.  
  2207. FINALGAME:
  2209. LOCATE 10, 10: PRINT "IL TUO PUNTEGGIO TOTALE E' : "
  2210. LOCATE 12, 20: PRINT punt
  2213.  
  2214.  
  2215.  
  2216.  
  2217.  

3
Programs / Knight VS Castle
« on: March 04, 2019, 07:03:13 am »
Good morning to everybody,

Yesterday I have write some QB lines....

I know, I stayed at the 90s, so I used the QB45 commands .....

You have to imagine a person who in about 1995 enters a time machine and finds himself in 2019 .... for this I still use the QB45.

However I see that the commands are perfectly compatible, but I have to learn the new "magic" commands (those with the underscore _ sign)

I only modified the screen (no screen 13).

It will be a very fast game ......

As soon as I can I will add lines ....

My biggest enemy is the lack of time for work commitments .....

Any suggestion is well accepted!

Have a nice day

Code: QB64: [Select]
  1. handle& = _NEWIMAGE(320, 240, 256)
  2. SCREEN handle&
  3.  
  4.  
  5.  
  6.  
  7. LINE (0, 0)-(320, 240), 54, BF
  8.  
  9. NVX = 50
  10. NVY = 50
  11. COLN = 15
  12.  
  13. CIRCLE (NVX - 10, NVY + 5), 5, COLN
  14. PAINT (NVX - 10, NVY + 5), COLN
  15.  
  16. CIRCLE (NVX, NVY), 10, COLN
  17. PAINT (NVX, NVY), COLN
  18. CIRCLE (NVX + 20, NVY - 10), 14, COLN
  19. PAINT (NVX + 20, NVY - 10), COLN
  20. CIRCLE (NVX + 40, NVY - 16), 18, COLN
  21. PAINT (NVX + 40, NVY - 16), COLN
  22. CIRCLE (NVX + 60, NVY - 10), 14, COLN
  23. PAINT (NVX + 60, NVY - 10), COLN
  24. CIRCLE (NVX + 80, NVY), 10, COLN
  25. PAINT (NVX + 80, NVY), COLN
  26. CIRCLE (NVX + 90, NVY + 5), 5, COLN
  27. PAINT (NVX + 90, NVY + 5), COLN
  28.  
  29.  
  30. LINE (NVX - 10, NVY)-(NVX + 90, NVY + 10), COLN, BF
  31. LINE (NVX - 15, NVY + 5)-(NVX + 95, NVY + 10), COLN, BF
  32. LINE (NVX - 18, NVY + 11)-(NVX + 98, NVY + 11), COLN
  33. LINE (NVX - 24, NVY + 12)-(NVX + 104, NVY + 12), COLN
  34. LINE (NVX - 34, NVY + 13)-(NVX + 114, NVY + 13), COLN
  35.  
  36.  
  37. '************** TERRENO
  38.  
  39. LINE (0, 200)-(320, 240), 262, BF
  40. LINE (0, 200)-(320, 208), 2, BF
  41. LINE (0, 200)-(320, 202), 10, BF
  42.  
  44. FOR T = 1 TO 80
  45.     TERX = INT(RND(1) * 320)
  46.     TERY = INT(RND(1) * 30) + 210
  47.  
  48.     LINE (TERX, TERY)-(TERX + 3, TERY + 2), 298, BF
  50.  
  51. '***** castello
  52.  
  53. CAX = 260
  54. CAY = 200
  55. CLCAS = 22
  56.  
  57.  
  58. PSET (CAX, CAY)
  59. DRAW "C22U100H20U20R20D20R20U20R20D20R20D120L60"
  60. PAINT (CAX + 20, CAY - 20), 22
  61.  
  63. 'PRZX = INT(RND(1) * 98) + 1
  64. 'RZY = INT(RND(1) * 98) + 1
  65.  
  66.  
  67. FOR T = 1 TO 40
  68.     PRZX = INT(RND(1) * 80) + 260
  69.     PRZY = INT(RND(1) * 100) + 95
  70.  
  71.     LINE (PRZX, PRZY)-(PRZX + 3, PRZY + 2), 20, BF
  73.  
  74.  
  75. ' WINDOWS
  76. CIRCLE (CAX + 40, CAY - 70), 8, 0
  77. PAINT (CAX + 40, CAY - 70), 0
  78. LINE (CAX + 32, CAY - 70)-(CAX + 48, CAY - 55), 0, BF
  79.  
  80. ' DOOR
  81. CIRCLE (CAX + 40, CAY - 25), 14, 0
  82. PAINT (CAX + 40, CAY - 25), 0
  83. LINE (CAX + 26, CAY - 25)-(CAX + 54, CAY), 0, BF
  84.  
  85.  
  86. LINE (CAX, CAY - 65)-(CAX + 10, CAY - 75), 0, BF
  87.  
  88.  
  89. '***** ATTACCANTE
  90.  
  91. ' GUN
  92. GUNX = 170
  93. GUNY = 193
  94.  
  95. LINE (GUNX - 12, GUNY - 5)-(GUNX + 16, GUNY), 21, BF
  96. LINE (GUNX + 16, GUNY - 6)-(GUNX + 17, GUNY + 1), 21, BF
  97.  
  98.  
  99. CIRCLE (GUNX, GUNY), 8, 0
  100. PSET (GUNX, GUNY)
  101. DRAW "C0U4D8U4R4L8R4E4G8E4F4H8"
  102.  
  103. FLX = 110
  104. FLY = 170
  105.  
  106. PSET (FLX, FLY)
  107.  
  108. DRAW "C42R12D18H6G6U18R12"
  109. PAINT (FLX + 2, FLY + 2), 42
  110.  
  111. LINE (FLX, FLY + 3)-(FLX + 12, FLY + 7), 14, BF
  112.  
  113. FLX = 265
  114. FLY = 80
  115.  
  116. PSET (FLX, FLY)
  117.  
  118. DRAW "C14R12D18H6G6U18R12"
  119. PAINT (FLX + 2, FLY + 2), 14
  120.  
  121. LINE (FLX, FLY + 3)-(FLX + 12, FLY + 7), 2, BF
  122.  
  123.  
  124. FLX = 305
  125. FLY = 80
  126.  
  127. PSET (FLX, FLY)
  128.  
  129. DRAW "C14R12D18H6G6U18R12"
  130. PAINT (FLX + 2, FLY + 2), 14
  131.  
  132. LINE (FLX, FLY + 3)-(FLX + 12, FLY + 7), 2, BF
  133.  
  134.  
  135.  
  136.  
  137.  

4
Programs / Simple colours routine
« on: March 01, 2019, 07:40:36 am »
I started, many years ago, with GWbasic and then with QB45.
Between the end of the 80s and the beginning of the 90s I had fun programming videogames for my friends.
Then, I left the basic.
A few months ago I found QB64 and thank you for making me go back in years.
I enclose a small routine, which I use to remind me of the numbering of the first 256 colors.
It is not optimized, because I use it only for myself.
Sorry for any errors in English, but my level is just sufficient.
We stay in touch !

------------------------------
handle& = _NEWIMAGE(1000, 600, 256)
SCREEN handle&

CLR = 0

FOR BOX = 1 TO 25
    LINE (WLX, WLY)-(WLX + 30, WLY + 30), CLR, BF
    CLR = CLR + 1
    WLX = WLX + 34
NEXT BOX

WLX = 0

FOR BOX = 1 TO 25
    LINE (WLX, WLY + 40)-(WLX + 30, WLY + 70), CLR, BF
    CLR = CLR + 1
    WLX = WLX + 34
NEXT BOX

WLX = 0

FOR BOX = 1 TO 25
    LINE (WLX, WLY + 80)-(WLX + 30, WLY + 110), CLR, BF
    CLR = CLR + 1
    WLX = WLX + 34
NEXT BOX

WLX = 0

FOR BOX = 1 TO 25
    LINE (WLX, WLY + 120)-(WLX + 30, WLY + 150), CLR, BF
    CLR = CLR + 1
    WLX = WLX + 34
NEXT BOX

WLX = 0

FOR BOX = 1 TO 25
    LINE (WLX, WLY + 160)-(WLX + 30, WLY + 190), CLR, BF
    CLR = CLR + 1
    WLX = WLX + 34
NEXT BOX

WLX = 0

FOR BOX = 1 TO 25
    LINE (WLX, WLY + 200)-(WLX + 30, WLY + 230), CLR, BF
    CLR = CLR + 1
    WLX = WLX + 34
NEXT BOX

WLX = 0

FOR BOX = 1 TO 25
    LINE (WLX, WLY + 240)-(WLX + 30, WLY + 270), CLR, BF
    CLR = CLR + 1
    WLX = WLX + 34
NEXT BOX

WLX = 0

FOR BOX = 1 TO 25
    LINE (WLX, WLY + 280)-(WLX + 30, WLY + 310), CLR, BF
    CLR = CLR + 1
    WLX = WLX + 34
NEXT BOX

WLX = 0

FOR BOX = 1 TO 25
    LINE (WLX, WLY + 320)-(WLX + 30, WLY + 350), CLR, BF
    CLR = CLR + 1
    WLX = WLX + 34
NEXT BOX

WLX = 0

FOR BOX = 1 TO 25
    LINE (WLX, WLY + 360)-(WLX + 30, WLY + 390), CLR, BF
    CLR = CLR + 1
    WLX = WLX + 34
NEXT BOX
WLX = 0

FOR BOX = 1 TO 25
    LINE (WLX, WLY + 400)-(WLX + 30, WLY + 430), CLR, BF
    CLR = CLR + 1
    WLX = WLX + 34
NEXT BOX
WLX = 0

FOR BOX = 1 TO 25
    LINE (WLX, WLY + 440)-(WLX + 30, WLY + 470), CLR, BF
    CLR = CLR + 1
    WLX = WLX + 34
NEXT BOX
WLX = 0

FOR BOX = 1 TO 10
    LINE (WLX, WLY + 480)-(WLX + 30, WLY + 510), CLR, BF
    CLR = CLR + 1
    WLX = WLX + 34
NEXT BOX


JH:
WLX = 2: WLY = 0
LOCATE 34, 3: INPUT A
'LINE (WLX + (A + 4), WLY + 22)-(WLX + (A + 6), WLY + 27), 14, B

LINE (270, 150)-(370, 250), A, BF

LINE (0, 300)-(30, 330), A + 1, BF
LINE (40, 300)-(70, 330), A + 2, BF
LINE (80, 300)-(110, 330), A + 3, BF
LINE (120, 300)-(150, 330), A + 4, BF
LINE (160, 300)-(190, 330), A + 5, BF
LINE (200, 300)-(230, 330), A + 6, BF
LINE (240, 300)-(270, 330), A + 7, BF
LINE (280, 300)-(310, 330), A + 8, BF



GOTO JH

Pages: [1]