« previous next »
Pages: [1]   Go Down

Author Topic: In the last Christmas holidays  (Read 11946 times)

0 Members and 1 Guest are viewing this topic.

Offline qb4ever

  • Newbie
  • Posts: 40
  • LOCATE 15,15: COLOR 14: PRINT "Hello World!"
    • View Profile
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.  
Logged

Offline bplus

  • Global Moderator
  • Forum Resident
  • Posts: 8053
  • b = b + ...
    • View Profile
Re: In the last Christmas holidays
« Reply #1 on: March 06, 2019, 09:01:00 am »
Hi qb4ever,

Very cute! I bet with line numbers this would work in old GW-BASIC.


« Last Edit: March 06, 2019, 09:23:33 am by bplus »
Logged

Offline qb4ever

  • Newbie
  • Posts: 40
  • LOCATE 15,15: COLOR 14: PRINT "Hello World!"
    • View Profile
Re: In the last Christmas holidays
« Reply #2 on: March 06, 2019, 09:21:02 am »
Quote from: bplus on March 06, 2019, 09:01:00 am
Very cute!

I bet with line numbers this would work in old GW-BASIC.

Thanks !
Exactly, I have used old command.
In 90' I used two way for create games, in the next days I will post the second way
Logged

Offline bplus

  • Global Moderator
  • Forum Resident
  • Posts: 8053
  • b = b + ...
    • View Profile
Re: In the last Christmas holidays
« Reply #3 on: March 06, 2019, 09:23:48 am »
Are you familiar with the conveniences of modular programming, ie using SUBs and FUNCTIONs?

For instance, instead of circle, paint use FillCircle:
Code: QB64: [Select]
  2.  
  3. 'test FillCircle
  4. FillCircle 320, 240, 150, 14 '<<<<<<<<<<<<<<<<< works for qb color numbers as well as rgb
  5. FillCircle 320 - 75, 240, 37, 9
  6. FillCircle 320 + 75, 240, 37, 9
  7. FillCircle 320, 240 + 80, 20, 12
  8.  
  9. 'fill circle
  10. SUB FillCircle (CX AS INTEGER, CY AS INTEGER, R AS INTEGER, C AS _UNSIGNED LONG)
  11.     DIM Radius AS INTEGER, RadiusError AS INTEGER
  12.     DIM X AS INTEGER, Y AS INTEGER
  13.  
  14.     Radius = ABS(R)
  15.     RadiusError = -Radius
  16.     X = Radius
  17.     Y = 0
  18.  
  19.     IF Radius = 0 THEN PSET (CX, CY), C: EXIT SUB
  20.  
  21.     ' Draw the middle span here so we don't draw it twice in the main loop,
  22.     ' which would be a problem with blending turned on.
  23.     LINE (CX - X, CY)-(CX + X, CY), C, BF
  24.  
  25.     WHILE X > Y
  26.         RadiusError = RadiusError + Y * 2 + 1
  27.         IF RadiusError >= 0 THEN
  28.             IF X <> Y + 1 THEN
  29.                 LINE (CX - Y, CY - X)-(CX + Y, CY - X), C, BF
  30.                 LINE (CX - Y, CY + X)-(CX + Y, CY + X), C, BF
  31.             END IF
  32.             X = X - 1
  33.             RadiusError = RadiusError - X * 2
  34.         END IF
  35.         Y = Y + 1
  36.         LINE (CX - X, CY - Y)-(CX + X, CY - Y), C, BF
  37.         LINE (CX - X, CY + Y)-(CX + X, CY + Y), C, BF
  38.     WEND
  40.  
  41.  
Logged

Offline qb4ever

  • Newbie
  • Posts: 40
  • LOCATE 15,15: COLOR 14: PRINT "Hello World!"
    • View Profile
Re: In the last Christmas holidays
« Reply #4 on: March 06, 2019, 09:31:52 am »
Quote from: bplus on March 06, 2019, 09:23:48 am
Are you familiar with the conveniences of modular programming, ie using SUBs and FUNCTIONs?

For instance, instead of circle, paint use FillCircle:
Code: QB64: [Select]
  2.  
  3. 'test FillCircle
  4. FillCircle 320, 240, 150, 14 '<<<<<<<<<<<<<<<<< works for qb color numbers as well as rgb
  5. FillCircle 320 - 75, 240, 37, 9
  6. FillCircle 320 + 75, 240, 37, 9
  7. FillCircle 320, 240 + 80, 20, 12
  8.  
  9. 'fill circle
  10. SUB FillCircle (CX AS INTEGER, CY AS INTEGER, R AS INTEGER, C AS _UNSIGNED LONG)
  11.     DIM Radius AS INTEGER, RadiusError AS INTEGER
  12.     DIM X AS INTEGER, Y AS INTEGER
  13.  
  14.     Radius = ABS(R)
  15.     RadiusError = -Radius
  16.     X = Radius
  17.     Y = 0
  18.  
  19.     IF Radius = 0 THEN PSET (CX, CY), C: EXIT SUB
  20.  
  21.     ' Draw the middle span here so we don't draw it twice in the main loop,
  22.     ' which would be a problem with blending turned on.
  23.     LINE (CX - X, CY)-(CX + X, CY), C, BF
  24.  
  25.     WHILE X > Y
  26.         RadiusError = RadiusError + Y * 2 + 1
  27.         IF RadiusError >= 0 THEN
  28.             IF X <> Y + 1 THEN
  29.                 LINE (CX - Y, CY - X)-(CX + Y, CY - X), C, BF
  30.                 LINE (CX - Y, CY + X)-(CX + Y, CY + X), C, BF
  31.             END IF
  32.             X = X - 1
  33.             RadiusError = RadiusError - X * 2
  34.         END IF
  35.         Y = Y + 1
  36.         LINE (CX - X, CY - Y)-(CX + X, CY - Y), C, BF
  37.         LINE (CX - X, CY + Y)-(CX + X, CY + Y), C, BF
  38.     WEND
  40.  
  41.  

Thanks for your hel Bplus.
I must study QB64.
I know using a "circle" property for draw ellipses, part of circle, etc...
It's been about 25 years ... I hope that with my prehistoric programming I do not go off topic ....
Logged

Offline bplus

  • Global Moderator
  • Forum Resident
  • Posts: 8053
  • b = b + ...
    • View Profile
Re: In the last Christmas holidays
« Reply #5 on: March 06, 2019, 09:55:37 am »
Here is crash course of graphics with mouse, move the mouse:
Code: QB64: [Select]
  1. _TITLE "Face with moving eyes" 'B+ 2019-03-06
  3.  
  4. COLOR , 11
  6. WHILE _KEYDOWN(27) = 0 'until esc keypress
  7.     CLS
  8.     drawFace
  10.     mx = _MOUSEX: my = _MOUSEY
  11.     angle = _ATAN2(my - 240, mx - 320)
  12.     FOR i = 1 TO 8
  13.         IF i MOD 2 THEN bc = 0 ELSE bc = 14
  14.         FillCircle mx + i * 3, my + i * 3, 5, bc
  15.     NEXT
  16.     FillCircle mx - 15 + 20, my + 10, 8, 7
  17.     FillCircle mx + 8 + 20, my + 5, 8, 7
  18.     x1 = 320 - 75 + 37 / 2 * COS(angle)
  19.     y1 = 240 + 37 / 2 * SIN(angle)
  20.     x2 = 320 + 75 + 37 / 2 * COS(angle)
  21.     FillCircle x1, y1, 37 / 2, 0
  22.     FillCircle x2, y1, 37 / 2, 0
  23.     _DISPLAY 'prevent flicker
  24.     _LIMIT 60 'save CPU fan
  26.  
  27. SUB drawFace
  28.     FillCircle 320, 240, 150, 14 '<<<<<<<<<<<<<<<<< works for qb color numbers as well as rgb
  29.     FillCircle 320 - 75, 240, 37, 9
  30.     FillCircle 320 + 75, 240, 37, 9
  31.     FillCircle 320, 240 + 80, 20, 12
  33.  
  34. 'fill circle
  35. SUB FillCircle (CX AS INTEGER, CY AS INTEGER, R AS INTEGER, C AS _UNSIGNED LONG)
  36.     DIM Radius AS INTEGER, RadiusError AS INTEGER
  37.     DIM X AS INTEGER, Y AS INTEGER
  38.  
  39.     Radius = ABS(R)
  40.     RadiusError = -Radius
  41.     X = Radius
  42.     Y = 0
  43.  
  44.     IF Radius = 0 THEN PSET (CX, CY), C: EXIT SUB
  45.  
  46.     ' Draw the middle span here so we don't draw it twice in the main loop,
  47.     ' which would be a problem with blending turned on.
  48.     LINE (CX - X, CY)-(CX + X, CY), C, BF
  49.  
  50.     WHILE X > Y
  51.         RadiusError = RadiusError + Y * 2 + 1
  52.         IF RadiusError >= 0 THEN
  53.             IF X <> Y + 1 THEN
  54.                 LINE (CX - Y, CY - X)-(CX + Y, CY - X), C, BF
  55.                 LINE (CX - Y, CY + X)-(CX + Y, CY + X), C, BF
  56.             END IF
  57.             X = X - 1
  58.             RadiusError = RadiusError - X * 2
  59.         END IF
  60.         Y = Y + 1
  61.         LINE (CX - X, CY - Y)-(CX + X, CY - Y), C, BF
  62.         LINE (CX - X, CY + Y)-(CX + X, CY + Y), C, BF
  63.     WEND
  65.  
  66.  
Logged

Offline qb4ever

  • Newbie
  • Posts: 40
  • LOCATE 15,15: COLOR 14: PRINT "Hello World!"
    • View Profile
Re: In the last Christmas holidays
« Reply #6 on: March 06, 2019, 10:01:33 am »
Quote from: bplus on March 06, 2019, 09:55:37 am
Here is crash course of graphics with mouse, move the mouse:
Code: QB64: [Select]
  1. _TITLE "Face with moving eyes" 'B+ 2019-03-06
  3.  
  4. COLOR , 11
  6. WHILE _KEYDOWN(27) = 0 'until esc keypress
  7.     CLS
  8.     drawFace
  10.     mx = _MOUSEX: my = _MOUSEY
  11.     angle = _ATAN2(my - 240, mx - 320)
  12.     FOR i = 1 TO 8
  13.         IF i MOD 2 THEN bc = 0 ELSE bc = 14
  14.         FillCircle mx + i * 3, my + i * 3, 5, bc
  15.     NEXT
  16.     FillCircle mx - 15 + 20, my + 10, 8, 7
  17.     FillCircle mx + 8 + 20, my + 5, 8, 7
  18.     x1 = 320 - 75 + 37 / 2 * COS(angle)
  19.     y1 = 240 + 37 / 2 * SIN(angle)
  20.     x2 = 320 + 75 + 37 / 2 * COS(angle)
  21.     FillCircle x1, y1, 37 / 2, 0
  22.     FillCircle x2, y1, 37 / 2, 0
  23.     _DISPLAY 'prevent flicker
  24.     _LIMIT 60 'save CPU fan
  26.  
  27. SUB drawFace
  28.     FillCircle 320, 240, 150, 14 '<<<<<<<<<<<<<<<<< works for qb color numbers as well as rgb
  29.     FillCircle 320 - 75, 240, 37, 9
  30.     FillCircle 320 + 75, 240, 37, 9
  31.     FillCircle 320, 240 + 80, 20, 12
  33.  
  34. 'fill circle
  35. SUB FillCircle (CX AS INTEGER, CY AS INTEGER, R AS INTEGER, C AS _UNSIGNED LONG)
  36.     DIM Radius AS INTEGER, RadiusError AS INTEGER
  37.     DIM X AS INTEGER, Y AS INTEGER
  38.  
  39.     Radius = ABS(R)
  40.     RadiusError = -Radius
  41.     X = Radius
  42.     Y = 0
  43.  
  44.     IF Radius = 0 THEN PSET (CX, CY), C: EXIT SUB
  45.  
  46.     ' Draw the middle span here so we don't draw it twice in the main loop,
  47.     ' which would be a problem with blending turned on.
  48.     LINE (CX - X, CY)-(CX + X, CY), C, BF
  49.  
  50.     WHILE X > Y
  51.         RadiusError = RadiusError + Y * 2 + 1
  52.         IF RadiusError >= 0 THEN
  53.             IF X <> Y + 1 THEN
  54.                 LINE (CX - Y, CY - X)-(CX + Y, CY - X), C, BF
  55.                 LINE (CX - Y, CY + X)-(CX + Y, CY + X), C, BF
  56.             END IF
  57.             X = X - 1
  58.             RadiusError = RadiusError - X * 2
  59.         END IF
  60.         Y = Y + 1
  61.         LINE (CX - X, CY - Y)-(CX + X, CY - Y), C, BF
  62.         LINE (CX - X, CY + Y)-(CX + X, CY + Y), C, BF
  63.     WEND
  65.  
  66.  

Fun animation !
Logged

Offline bplus

  • Global Moderator
  • Forum Resident
  • Posts: 8053
  • b = b + ...
    • View Profile
Re: In the last Christmas holidays
« Reply #7 on: March 06, 2019, 10:15:18 am »
Hi qb4ever,

That game you started with Santa, that still needs to be finished? It looks like a fun animation too!
Logged

Offline qb4ever

  • Newbie
  • Posts: 40
  • LOCATE 15,15: COLOR 14: PRINT "Hello World!"
    • View Profile
Re: In the last Christmas holidays
« Reply #8 on: March 06, 2019, 10:18:58 am »
Quote from: bplus on March 06, 2019, 10:15:18 am
Hi qb4ever,

That game you started with Santa, that still needs to be finished? It looks like a fun animation too!

As soon as possible i want finish the game. I have very few time disponible.....
Logged
Pages: [1]   Go Up
« previous next »