Text Only | Text with Attachments

QB64.org Forum

Active Forums => Programs => Topic started by: johnno56 on December 06, 2021, 02:25:21 pm

Title: 1945
Post by: johnno56 on December 06, 2021, 02:25:21 pm
Bplus,

Here is the QB64 conversion of Naalaa's 1945. It is not optimised. Just concentrated on getting to work. I have also included the '1945.txt' Naalaa listing as well. No. Your 'Accuracy' text formatting has not been applied... lol

Let me know what you think? Suggestions for improvement are always appreciated... and in my case, expected... lol

J
 
 [ This attachment cannot be displayed inline in 'Print Page' view ]  

Title: Re: 1945
Post by: bplus on December 06, 2021, 03:35:20 pm
@johnno56  Cool! I'll give it the old look see.
Title: Re: 1945
Post by: bplus on December 06, 2021, 04:48:02 pm
Every once and awhile I loose my plane and the new planes coming down just flash for moment and disappear while the ocean continues down as normal? Not sure what causes problem but some games play normal.

I found full screen much more enjoyable and I reworked the Splash / Menu screen:
Code: QB64: [Select]
  1. xmax = 640
  2. ymax = 480
  3. _Title "1945"
  4.  
  5. Screen _NewImage(xmax, ymax, 32)
  8.  
  9. '   ARRAYS
  10. Dim backgroundX(21)
  11. Dim backgroundY(16)
  12. Dim transitionX(21)
  13. Dim transitionY(16)
  14. Dim enemyX(5)
  15. Dim enemyY(5)
  16. Dim superenemyX(5)
  17. Dim superenemyY(5)
  18. Dim decision(2)
  19. Dim enemybulletX(2)
  20. Dim enemybulletY(2)
  21. Dim enemyshot(2)
  22. Dim islandImage(3)
  23. Dim islandX(3)
  24. Dim islandY(3)
  25. Dim img(34)
  26.  
  28.  
  30.  
  31. trans = _RGBA32(0, 0, 0, 0)
  32.  
  33. width0 = 65
  34. height0 = 65
  35. width3 = 9
  36. height3 = 19
  37. width5 = 32
  38. height5 = 32
  39. width27 = 5
  40. height27 = 5
  41. width28 = 94
  42. height28 = 31
  43. width29 = 6
  44. height29 = 11
  45. width30 = 278
  46. height30 = 141
  47. width32 = 115
  48. height32 = 58
  49.  
  50. quit = 0
  51. dead = false
  52. hit = 0
  53.  
  54. '   LOAD ASSETS
  55. '   ===========
  56.  
  57. '   Images
  58. '
  59. img(0) = _LoadImage("data/plane1.png")
  60. img(1) = _LoadImage("data/plane2.png")
  61. img(2) = _LoadImage("data/plane3.png")
  62. img(3) = _LoadImage("data/bullet.png")
  63. img(4) = _LoadImage("data/sea.png")
  64. img(5) = _LoadImage("data/enemy1.png")
  65. img(6) = _LoadImage("data/enemy2.png")
  66. img(7) = _LoadImage("data/enemy3.png")
  67. img(8) = _LoadImage("data/explosion1.png")
  68. img(9) = _LoadImage("data/explosion2.png")
  69. img(10) = _LoadImage("data/explosion3.png")
  70. img(11) = _LoadImage("data/explosion4.png")
  71. img(12) = _LoadImage("data/explosion5.png")
  72. img(13) = _LoadImage("data/explosion6.png")
  73. img(14) = _LoadImage("data/bigexplosion1.png")
  74. img(15) = _LoadImage("data/bigexplosion2.png")
  75. img(16) = _LoadImage("data/bigexplosion3.png")
  76. img(17) = _LoadImage("data/bigexplosion4.png")
  77. img(18) = _LoadImage("data/bigexplosion5.png")
  78. img(19) = _LoadImage("data/bigexplosion6.png")
  79. img(20) = _LoadImage("data/bigexplosion7.png")
  80. img(21) = _LoadImage("data/island1.png")
  81. img(22) = _LoadImage("data/island2.png")
  82. img(23) = _LoadImage("data/island3.png")
  83. img(24) = _LoadImage("data/superenemy1.png")
  84. img(25) = _LoadImage("data/superenemy2.png")
  85. img(26) = _LoadImage("data/superenemy3.png")
  86. img(27) = _LoadImage("data/enemybullet.png")
  87. img(28) = _LoadImage("data/menu.png")
  88. img(29) = _LoadImage("data/arrow.png")
  89. img(30) = _LoadImage("data/biglogo.png")
  90. img(31) = _LoadImage("data/life.png")
  91. img(32) = _LoadImage("data/logo.png")
  92. img(33) = _LoadImage("data/paused.png")
  93. img(34) = _LoadImage("data/gameover.png")
  94.  
  95. '   Sounds
  96. '
  97. shoot = _SndOpen("data/shoot.wav")
  98. explosion = _SndOpen("data/explosion.wav")
  99. collide = _SndOpen("data/collide.wav")
  100. plane_shot = _SndOpen("data/plane_shot.wav")
  101.  
  102. '   Fonts
  103. '
  104. arial14 = _LoadFont("data/arial.ttf", 14)
  105. War60 = _LoadFont("data/armalite.ttf", 60)
  106. War12 = _LoadFont("data/armalite.ttf", 12)
  108.  
  109. '   TILING THE BACKGROUND
  110. '   =====================
  111. 'backgroundX((640 / 32) + 1)
  112. 'backgroundY((480 / 32) + 1)
  113. 'transitionX((640 / 32) + 1)
  114. 'transitionY((480 / 32) + 1)
  115. For i = 0 To 640 / 32
  116.     backgroundX(i) = i * 32
  117.     transitionX(i) = i * 32
  118.     For a = 0 To 480 / 32
  119.         backgroundY(a) = a * 32
  120.         transitionY(a) = a * 32
  121.     Next
  123.  
  124.  
  125. '   A GAME MENU TO START WITH
  126. '   =========================
  127. menu = 0
  128. Color _RGB32(150, 0, 0)
  130.     Cls
  131.  
  132.  
  133.     '_PutImage ((640 - width30) / 2, 5), img(30)
  134.     _PutImage , img(30) ' full screen image
  135.  
  136.     If menu = 0 Then
  137.         _Font War60
  138.         Color _RGB32(255, 255, 255)
  139.         centerText 0, _Width, ymax * .6, "Play Game"
  140.         Color _RGB32(70, 0, 0)
  141.         _Font War12
  142.         centerText 0, _Width, ymax * .6 + 70, "Quit"
  143.     Else
  144.         _Font War12
  145.         Color _RGB32(70, 0, 0)
  146.         centerText 0, _Width, ymax * .6, "Play Game"
  147.         _Font War60
  148.         Color _RGB32(255, 255, 255)
  149.         centerText 0, _Width, ymax * .6 + 70, "Quit"
  150.     End If
  151.  
  152.     '_PutImage ((640 - width28) / 2, height30 + 30), img(28)
  153.     '_PutImage (((640 - width28) / 2) - width29, height30 + (30 + menu * 19)), img(29)
  154.     k& = _KeyHit
  155.     If k& = (18432) Then
  156.         menu = menu - 1
  157.     End If
  158.     If k& = (20480) Then
  159.         menu = menu + 1
  160.     End If
  161.  
  162.     If menu > 1 Then
  163.         menu = 0
  164.     End If
  165.     If menu < 0 Then
  166.         menu = 1
  167.     End If
  168.  
  169.     If _KeyDown(32) And menu = 0 Then
  170.         Exit Do
  171.     End If
  172.     If _KeyDown(32) And menu = 1 Then
  173.         For i = 0 To 640 / 32
  174.             For z = 0 To 480 / 32
  175.                 _PutImage (transitionX(i), transitionY(z)), img(4)
  176.                 _Display
  177.                 _Limit 300
  178.             Next
  179.         Next
  180.         _PutImage (0, 0), img(34)
  181.         _Display
  182.         _Delay 1
  183.         System: 'ExitGame()
  184.     End If
  185.     _Display
  186.     _Limit 20
  188.  
  189. _Font arial14
  190. For i = 0 To 640 / 32
  191.     For z = 0 To 480 / 32
  192.         _PutImage (transitionX(i), transitionY(z)), img(4)
  193.         _Display
  194.         _Delay 0.01
  195.     Next
  197.  
  198. '   INITIALIZING VARIABLES
  199. '   =================================
  200. frame = 0
  201. explo_frame = 0
  202. bigexplo_frame = 0
  203. bigexplox = -70
  204. bigexploy = -70
  205. explo2_frame = 0
  206. speed = 6
  207. scrollspeed = 1
  208. planex = 320
  209. planey = 480 - 128
  210. enemyshot(0) = 0
  211. enemyshot(1) = 0
  212. bulletx = -30
  213. bullety = -30
  214. shot = 0
  215. explox = -30
  216. exploy = -30
  217. explo2x = -30
  218. explo2y = -30
  219. score = 0
  220. lives = 3
  221. health = 100
  222. bullseye = 1
  223. shots_fired = 1
  224. bigexploactive = 0
  225.  
  226. '   SETTING THE POSITIONS OF THE ENEMY PLANES
  227. '   =========================================
  228. For i = 0 To 4
  229.     enemyX(i) = Int(Rnd * 608)
  230.     enemyY(i) = 0 - Int(Rnd * 480) - 32
  232. For i = 0 To 1
  233.     superenemyX(i) = Int(Rnd * 608)
  234.     superenemyY(i) = 0 - Int(Rnd * 480) - 32
  235.     enemybulletX(i) = superenemyX(i) + 13
  236.     enemybulletY(i) = superenemyY(i) + 17
  238.  
  239. '   SETTING THE POSITIONS AND STARTING IMAGES OF THE ISLANDS
  240. '   ========================================================
  241. For i = 0 To 2
  242.     islandX(i) = Int(Rnd * 576)
  243.     islandY(i) = 0 - Int(Rnd * 480)
  244.     islandImage(i) = img(i + 21)
  246.  
  247. '   THE 'ACTUAL' GAME LOOP
  248. '   ======================
  250.     If quit = 1 Then
  251.         For i = 0 To 640 / 32
  252.             For z = 0 To 480 / 32
  253.                 _PutImage (transitionX(i), transitionY(z)), img(4)
  254.                 _Display
  255.                 _Delay 0.01
  256.             Next
  257.         Next
  258.         _PutImage (0, 0), img(34)
  259.         _Display
  260.         _Delay 4
  261.         Exit Do
  262.     End If
  263.  
  264.     '   CLEARING THE SCREEN
  265.     '   ===================
  266.     Cls
  267.  
  268.     '   MOVING THE PLAYER WITH THE ARROW KEYS
  269.     '   =====================================
  270.     '   OH, AND SHOOTING WITH THE SPACEBAR
  271.     '   ==================================
  272.     If _KeyDown(27) Then
  273.         quit = 1
  274.     End If
  275.     If _KeyDown(18432) Then
  276.         planey = planey - speed
  277.     End If
  278.     If _KeyDown(20480) Then
  279.         planey = planey + 4
  280.     End If
  281.     If _KeyDown(19200) Then
  282.         planex = planex - speed
  283.     End If
  284.     If _KeyDown(19712) Then
  285.         planex = planex + speed
  286.     End If
  287.     If _KeyDown(32) And shot = 0 Then
  288.         _SndPlay (shoot)
  289.         bulletx = planex + 27 ' 17
  290.         bullety = planey + 5
  291.         shot = 1
  292.         shots_fired = shots_fired + 1
  293.     End If
  294.  
  295.     '   MOVING THE ENEMY PLANES
  296.     '   =======================
  297.     For z = 0 To 4
  298.         If enemyY(z) > 480 Then
  299.             enemyX(z) = Int(Rnd * 608)
  300.             enemyY(z) = 0 - Int(Rnd * 480)
  301.         Else
  302.             enemyY(z) = enemyY(z) + speed
  303.         End If
  304.     Next
  305.     For z = 0 To 1
  306.         If superenemyY(z) > 480 Then
  307.             superenemyX(z) = Int(Rnd * 608)
  308.             superenemyY(z) = 0 - Int(Rnd * 480)
  309.         Else
  310.             superenemyY(z) = superenemyY(z) + speed
  311.         End If
  312.     Next
  313.  
  314.     '   MOVING THE ISLANDS
  315.     '   ==================
  316.     For z = 0 To 2
  317.         If islandY(z) > 480 Then
  318.             islandX(z) = Int(Rnd * 576)
  319.             islandY(z) = 0 - Int(Rnd * 480)
  320.             islandImage(z) = img(Int(Rnd * 3) + 21)
  321.         Else
  322.             islandY(z) = islandY(z) + 3
  323.         End If
  324.     Next
  325.  
  326.     '   CHECKING WHEN WE BEAT OR BEING BEATEN
  327.     '   =====================================
  328.     For t = 0 To 4
  329.         '   Collision with enemy?
  330.         collision planex, planey, width0, height0, enemyX(t), enemyY(t), width5, height5
  331.         If hit = 1 Then
  332.             'collision(r1x, r1y, r1w, r1h, r2x, r2y, r2w, r2h)
  333.             If explox > 0 Then
  334.                 explo2x = enemyX(t)
  335.                 explo2y = enemyY(t)
  336.             Else
  337.                 explox = enemyX(t)
  338.                 exploy = enemyY(t)
  339.             End If
  340.             _SndPlay (explosion)
  341.             enemyX(t) = Int(Rnd * 608)
  342.             enemyY(t) = 0 - Int(Rnd * 480)
  343.             health = health - 25
  344.             If health <= 0 Then
  345.                 bigexploactive = 1
  346.                 bigexplox = planex
  347.                 bigexploy = planey
  348.                 planex = -70
  349.                 planey = -70
  350.             End If
  351.             enemyX(t) = Int(Rnd * 608)
  352.             enemyY(t) = 0 - Int(Rnd * 480)
  353.         End If
  354.         If shot = 1 Then
  355.             '   Collision with player bullet and enemy
  356.             collision bulletx, bullety, width3, height3, enemyX(t), enemyY(t), width5, height5
  357.             If hit = 1 Then
  358.                 If explox > 0 Then
  359.                     explo2x = enemyX(t)
  360.                     explo2y = enemyY(t)
  361.                 Else
  362.                     explox = enemyX(t)
  363.                     exploy = enemyY(t)
  364.                 End If
  365.                 _SndPlay (explosion)
  366.                 enemyX(t) = Int(Rnd * 608)
  367.                 enemyY(t) = 0 - Int(Rnd * 480)
  368.                 bulletx = -30
  369.                 bullety = -30
  370.                 score = score + 50
  371.                 bullseye = bullseye + 1
  372.             End If
  373.         End If
  374.     Next
  375.     For t = 0 To 1
  376.         '   Collision with player and superenemy
  377.         collision planex, planey, width0, height0, superenemyX(t), superenemyY(t), width5, height5
  378.         If hit = 1 Then
  379.             If explox > 0 Then
  380.                 explo2x = enemyX(t)
  381.                 explo2y = enemyY(t)
  382.             Else
  383.                 explox = enemyX(t)
  384.                 exploy = enemyY(t)
  385.             End If
  386.             _SndPlay (explosion)
  387.             enemyX(t) = Int(Rnd * 608)
  388.             enemyY(t) = 0 - Int(Rnd * 480)
  389.             health = health - 25
  390.             If health <= 0 Then
  391.                 bigexploactive = 1
  392.                 bigexplox = planex
  393.                 bigexploy = planey
  394.                 planex = -70
  395.                 planey = -70
  396.             End If
  397.             enemyX(t) = Int(Rnd * 608)
  398.             enemyY(t) = 0 - Int(Rnd * 480)
  399.         End If
  400.         '   Collision with player bullet and superenemy
  401.         collision bulletx, bullety, width3, height3, superenemyX(t), superenemyY(t), width5, height5
  402.         If hit = 1 Then
  403.             If explox > 0 Then
  404.                 explo2x = superenemyX(t)
  405.                 explo2y = superenemyY(t)
  406.             Else
  407.                 explox = superenemyX(t)
  408.                 exploy = superenemyY(t)
  409.             End If
  410.             _SndPlay (explosion)
  411.             superenemyX(t) = Int(Rnd * 608)
  412.             superenemyY(t) = 0 - Int(Rnd * 480)
  413.             bulletx = -30
  414.             bullety = -30
  415.             score = score + 100
  416.             bullseye = bullseye + 1
  417.         End If
  418.     Next
  419.     For t = 0 To 1
  420.         '   Collision with player and enemy bullet
  421.         If enemyshot(t) = 1 Then
  422.             collision planex, planey, width0, height0, enemybulletX(t), enemybulletY(t), width27, height27
  423.             If hit = 1 Then
  424.                 health = health - 10
  425.                 If health <= 0 Then
  426.                     bigexploactive = 1
  427.                     bigexplox = planex
  428.                     bigexploy = planey
  429.                     bulletx = -30
  430.                     bullety = -30
  431.                 End If
  432.                 _SndPlay (explosion)
  433.                 If explox > 0 And explox < 640 Then
  434.                     explox2 = enemybulletX(t)
  435.                     exploy2 = enemybulletY(t)
  436.                 Else
  437.                     explox = enemybulletX(t)
  438.                     exploy = enemybulletY(t)
  439.                 End If
  440.                 enemybulletX(t) = superenemyX(t) + 14 '1
  441.                 enemybulletY(t) = superenemyY(t) + 17 '7
  442.                 enemyshot(t) = 0
  443.             End If
  444.         End If
  445.     Next
  446.  
  447.     '   FLYING OVER THE ENDLESSLY SCROLLING SEA
  448.     '   =======================================
  449.     For w = 0 To 15
  450.         backgroundY(w) = backgroundY(w) + 3
  451.         If backgroundY(w) > 480 Then
  452.             backgroundY(w) = backgroundY(w) - 512
  453.         End If
  454.         For q = 0 To 19
  455.             _PutImage (backgroundX(q), backgroundY(w)), img(4)
  456.         Next
  457.     Next
  458.  
  459.     '   WHICH LOOKS DULL WITHOUT ISLANDS
  460.     '   ================================
  461.     For o = 0 To 2
  462.         _PutImage (islandX(o), islandY(o)), islandImage(o)
  463.     Next
  464.  
  465.     '   KEEPING OUR PLANE IN THE SCREEN AND DISPLAY IT
  466.     '   ==============================================
  467.     frame = frame + 1
  468.     If frame > 2 Then
  469.         frame = 0
  470.     End If
  471.     If planex < 0 And bigexploactive = 0 Then
  472.         planex = 0
  473.     End If
  474.     If planey < 0 And bigexploactive = 0 Then
  475.         planey = 0
  476.     End If
  477.     If planex + width0 > 640 Then
  478.         planex = 640 - width0
  479.     End If
  480.     If planey + height0 > 480 - 64 Then
  481.         planey = 480 - height0 - 64
  482.     End If
  483.     _PutImage (planex, planey), img(frame)
  484.  
  485.     '   WE HAVE TO SEE WHAT WE ARE FIGHTING
  486.     '   ===================================
  487.     For x = 0 To 4
  488.         _PutImage (enemyX(x), enemyY(x)), img(frame + 5)
  489.     Next
  490.     For i = 0 To 1
  491.         If enemyshot(i) = 0 Then
  492.             decision(i) = Int(Rnd * 199)
  493.         End If
  494.         If decision(i) = 9 Then
  495.             If enemybulletY(i) < 480 Then
  496.                 enemybulletY(i) = enemybulletY(i) + 10
  497.                 enemyshot(i) = 1
  498.             Else
  499.                 enemybulletX(i) = superenemyX(i) + 14 '1
  500.                 enemybulletY(i) = superenemyY(i) + 17 '7
  501.                 enemyshot(i) = 0
  502.             End If
  503.         Else
  504.             enemybulletX(i) = superenemyX(i) + 14 '1
  505.             enemybulletY(i) = superenemyY(i) + 17 '7
  506.             enemyshot(i) = 0
  507.         End If
  508.         If superenemyY(i) > 0 Then
  509.             _PutImage (enemybulletX(i), enemybulletY(i)), img(27)
  510.         End If
  511.     Next
  512.     For x = 0 To 1
  513.         _PutImage (superenemyX(x), superenemyY(x)), img(frame + 24)
  514.     Next
  515.  
  516.     '   AND WITH WHAT
  517.     '   =============
  518.     If bullety > 0 Then
  519.         bullety = bullety - speed * 2
  520.     Else
  521.         bulletx = -30
  522.         bullety = -30
  523.         shot = 0
  524.     End If
  525.     _PutImage (bulletx, bullety), img(3)
  526.  
  527.     '   A NICE EXPLOSION
  528.     '   ================
  529.     If explo_frame < 5 And explox > 0 Then
  530.         explo_frame = explo_frame + 1
  531.     Else
  532.         explo_frame = 0
  533.         explox = -30
  534.         exploy = -30
  535.     End If
  536.     _PutImage (explox, exploy), img(explo_frame + 8)
  537.  
  538.     '   A SECOND NICE EXPLOSION
  539.     '   =======================
  540.     If explo2_frame < 5 And explo2x > 0 Then
  541.         explo2_frame = explo2_frame + 1
  542.     Else
  543.         explo2_frame = 0
  544.         explo2x = -30
  545.         explo2y = -30
  546.     End If
  547.     _PutImage (explo2x, explo2y), img(explo2_frame + 8)
  548.  
  549.     '   A BIGGER EXPLOSION
  550.     '   ==================
  551.     If bigexploactive = 1 Then
  552.         For s = 0 To 4
  553.             enemyX(s) = Int(Rnd * 608)
  554.             enemyY(s) = 0 - Int(Rnd * 480)
  555.         Next
  556.         For s = 0 To 1
  557.             superenemyX(s) = Int(Rnd * 608)
  558.             superenemyY(s) = 0 - Int(Rnd * 480)
  559.         Next
  560.     End If
  561.     If bigexplox > 0 And bigexplox < 640 Then
  562.         bigexplo_frame = bigexplo_frame + 1
  563.     End If
  564.     If bigexplo_frame > 6 Then
  565.         bigexploactive = 0
  566.         bigexplo_frame = 0
  567.         bigexplox = -70
  568.         bigexploy = -70
  569.         lives = lives - 1
  570.         planex = 320
  571.         planey = 480 - 128
  572.         health = 100
  573.     End If
  574.     _PutImage (bigexplox, bigexploy), img(bigexplo_frame + 14)
  575.  
  576.     '   INFORMATION PANEL
  577.     '   =================
  578.     Line (0, 480 - 63)-Step(640, 63), _RGB32(220, 220, 220), BF
  579.     Line (5, 480 - 58)-Step(635, 58), _RGB32(180, 180, 180), BF
  580.     Line (5, 480 - 58)-Step(630, 58), _RGB32(120, 120, 120), BF
  581.     Line (6, 480 - 22)-Step(103, 12), _RGB32(0, 0, 255), B
  582.     Line (7, 480 - 21)-Step(100, 10), _RGB32(0, 0, 0), B
  583.     c = 143
  584.     For z = 1 To 10
  585.         Line (7, 480 - 22 + z)-(7 + health, 480 - 22 + z), _RGB32(255, c, 0)
  586.         If z > 5 Then
  587.             c = c - 44
  588.         Else
  589.             c = c + 44
  590.         End If
  591.     Next
  592.     _Font arial14
  593.     Color _RGB32(0, 0, 0), trans
  594.     _PrintString (5, 480 - 58), "Score: " + Str$(score)
  595.     _PrintString (5, 480 - 48), "Accuracy: " + Str$((bullseye / shots_fired) * 100) + "%"
  596.     For i = 1 To lives
  597.         _PutImage (120 + i * 32, 480 - 32), img(31)
  598.     Next
  599.     _PutImage (640 - width32, 480 - 58), img(32)
  600.  
  601.     '   IF ALL LIVES ARE GONE, THEN IT`S GAME OVER
  602.     '   =========================================
  603.     If lives < 0 Then
  604.         _PutImage (0, 0), img(34)
  605.         _Display
  606.         _Delay 4
  607.         System
  608.     End If
  609.  
  610.     '   DRAWING EVERYTHNG AND WAITING
  611.     '   =============================
  612.     '   AND PAUSING THE GAME IF HIS MAJESTY WANTS SO
  613.     '   ============================================
  614.     If InKey$ = "p" Or InKey$ = "P" Then
  615.         _PutImage (0, 0), img(33)
  616.         _Display
  617.         While InKey$ = "": Wend
  618.     End If
  619.  
  620.     _Delay 0.03
  621.     _Display
  623.  
  625.  
  626.  
  627.  
  628.  
  629. '=======================================================
  630. Sub collision (r1x, r1y, r1w, r1h, r2x, r2y, r2w, r2h)
  631.     If (r1x + r1w >= r2x And r1x <= r2x + r2w And r1y + r1h >= r2y And r1y <= r2y + r2h) Then
  632.         hit = 1
  633.     Else
  634.         hit = 0
  635.     End If
  637.  
  638. Sub centerText (x1, x2, midy, s$) ' ' if you want to center fit a string between two goal posts x1, and x2
  639.     _PrintString ((x1 + x2) / 2 - _PrintWidth(s$) / 2, midy - _FontHeight(_Font) / 2), s$
  641.  
  642.  

That War font is excellent so I made use of it in Open Splash / Menu.

A very nice translation from Naalaa, nice start!
Title: Re: 1945
Post by: johnno56 on December 07, 2021, 02:13:01 am
Cool menu. I like it.

"Nice start"? Are you possibly thinking of power-ups etc?

I have the complete sprite sheet of the game. There are LOTS of stuff that the basic Naalaa version did not include... eg: Multi-directional weapons; Submarines; Ships; POW; Flying fortress-type enemies; High Score system... Maybe add repair power up; extra life; (not sure about ammunition - that would require that ammo was limited to start with)

Food for thought...
Title: Re: 1945
Post by: bplus on December 07, 2021, 08:13:15 am
Yeah, waiting for bullet to hit top of screen before can shoot another is a bit boring.

I would say that is next thing to get going before adding more stuff plus of course the fix to whatever is causing the loss of the plane images occasionally.
Title: Re: 1945
Post by: johnno56 on December 07, 2021, 01:55:40 pm
Slow bullets? Boring? It is meant to be slow or boring. One of the power-ups is faster bullets. (obviously not implemented - either because of time constraints or lack of know-how or just getting the game to work). In the meantime, I will create faster bullets... *sigh*

I also noticed that "glitch" as well. It happens only when the play collides with the white planes. Shooting them is fine. It also happens in the RCBasic version... I will look into it... In the meantime, 'shoot' the white planes... lol
Title: Re: 1945
Post by: bplus on December 07, 2021, 02:05:14 pm
No not slow bullets, one bullet is what is boring. Having to wait for the one bullet to reach the top of the screen before another bullet can shoot is what I am talking about.
Title: Re: 1945
Post by: johnno56 on December 07, 2021, 02:11:27 pm
Temporary bullet speed fix: On or about line #531 within the section "and with what"... change 'bullety = bullety - speed * 2' to 'bullety = bullety - 25'

Originally the bullet speed was set to '6'

In regards to the 'glitch'... The same thing happens when running the Naalaa version... Looks like the conversion was a little 'too' accurate... lol
Title: Re: 1945
Post by: johnno56 on December 07, 2021, 02:16:10 pm
Multiple bullets? As there is no real 'challenge' by 'spraying' bullets at the enemy, an ammunition system would need to be implemented, so that the player does not just hold the space bar down 'ad infinitum'... Moo ha ha... (no more lessons in Latin...)
Title: Re: 1945
Post by: bplus on December 07, 2021, 03:33:52 pm
Multiple bullets but a .4 sec wait for next bullet activation, so you have to be a little accurate:
Code: QB64: [Select]
  1. ' 1945qb translated by Johnno from Naalaa
  2. '2021-12-06 bplus mod splash screen / menu
  3. '2021-12-07 bplus give the players plane more than 1 bullet!
  4.  
  5. xmax = 640
  6. ymax = 480
  7. _Title "1945"
  8.  
  9. Screen _NewImage(xmax, ymax, 32)
  12.  
  13. '   ARRAYS
  14. Dim backgroundX(21)
  15. Dim backgroundY(16)
  16. Dim transitionX(21)
  17. Dim transitionY(16)
  18. Dim enemyX(5)
  19. Dim enemyY(5)
  20. Dim superenemyX(5)
  21. Dim superenemyY(5)
  22. Dim decision(2)
  23. Dim enemybulletX(2)
  24. Dim enemybulletY(2)
  25. Dim enemyshot(2)
  26. Dim islandImage(3)
  27. Dim islandX(3)
  28. Dim islandY(3)
  29. Dim img(34)
  30.  
  32.  
  34.  
  35. trans = _RGBA32(0, 0, 0, 0)
  36.  
  37. width0 = 65
  38. height0 = 65
  39. width3 = 9
  40. height3 = 19
  41. width5 = 32
  42. height5 = 32
  43. width27 = 5
  44. height27 = 5
  45. width28 = 94
  46. height28 = 31
  47. width29 = 6
  48. height29 = 11
  49. width30 = 278
  50. height30 = 141
  51. width32 = 115
  52. height32 = 58
  53.  
  54. quit = 0
  55. dead = false
  56. hit = 0
  57.  
  58. '   LOAD ASSETS
  59. '   ===========
  60.  
  61. '   Images
  62. '
  63. img(0) = _LoadImage("data/plane1.png")
  64. img(1) = _LoadImage("data/plane2.png")
  65. img(2) = _LoadImage("data/plane3.png")
  66. img(3) = _LoadImage("data/bullet.png")
  67. img(4) = _LoadImage("data/sea.png")
  68. img(5) = _LoadImage("data/enemy1.png")
  69. img(6) = _LoadImage("data/enemy2.png")
  70. img(7) = _LoadImage("data/enemy3.png")
  71. img(8) = _LoadImage("data/explosion1.png")
  72. img(9) = _LoadImage("data/explosion2.png")
  73. img(10) = _LoadImage("data/explosion3.png")
  74. img(11) = _LoadImage("data/explosion4.png")
  75. img(12) = _LoadImage("data/explosion5.png")
  76. img(13) = _LoadImage("data/explosion6.png")
  77. img(14) = _LoadImage("data/bigexplosion1.png")
  78. img(15) = _LoadImage("data/bigexplosion2.png")
  79. img(16) = _LoadImage("data/bigexplosion3.png")
  80. img(17) = _LoadImage("data/bigexplosion4.png")
  81. img(18) = _LoadImage("data/bigexplosion5.png")
  82. img(19) = _LoadImage("data/bigexplosion6.png")
  83. img(20) = _LoadImage("data/bigexplosion7.png")
  84. img(21) = _LoadImage("data/island1.png")
  85. img(22) = _LoadImage("data/island2.png")
  86. img(23) = _LoadImage("data/island3.png")
  87. img(24) = _LoadImage("data/superenemy1.png")
  88. img(25) = _LoadImage("data/superenemy2.png")
  89. img(26) = _LoadImage("data/superenemy3.png")
  90. img(27) = _LoadImage("data/enemybullet.png")
  91. img(28) = _LoadImage("data/menu.png")
  92. img(29) = _LoadImage("data/arrow.png")
  93. img(30) = _LoadImage("data/biglogo.png")
  94. img(31) = _LoadImage("data/life.png")
  95. img(32) = _LoadImage("data/logo.png")
  96. img(33) = _LoadImage("data/paused.png")
  97. img(34) = _LoadImage("data/gameover.png")
  98.  
  99. '   Sounds
  100. '
  101. shoot = _SndOpen("data/shoot.wav")
  102. explosion = _SndOpen("data/explosion.wav")
  103. collide = _SndOpen("data/collide.wav")
  104. plane_shot = _SndOpen("data/plane_shot.wav")
  105.  
  106. '   Fonts
  107. '
  108. arial14 = _LoadFont("data/arial.ttf", 14)
  109. War60 = _LoadFont("data/armalite.ttf", 60)
  110. War12 = _LoadFont("data/armalite.ttf", 12)
  112.  
  113. '   TILING THE BACKGROUND
  114. '   =====================
  115. 'backgroundX((640 / 32) + 1)
  116. 'backgroundY((480 / 32) + 1)
  117. 'transitionX((640 / 32) + 1)
  118. 'transitionY((480 / 32) + 1)
  119. For i = 0 To 640 / 32
  120.     backgroundX(i) = i * 32
  121.     transitionX(i) = i * 32
  122.     For a = 0 To 480 / 32
  123.         backgroundY(a) = a * 32
  124.         transitionY(a) = a * 32
  125.     Next
  127.  
  128.  
  129. '   A GAME MENU TO START WITH
  130. '   =========================
  131. menu = 0
  132. Color _RGB32(150, 0, 0)
  134.     Cls
  135.  
  136.  
  137.     '_PutImage ((640 - width30) / 2, 5), img(30)
  138.     _PutImage , img(30) ' full screen image
  139.  
  140.     If menu = 0 Then
  141.         _Font War60
  142.         Color _RGB32(255, 255, 255)
  143.         centerText 0, _Width, ymax * .6, "Play Game"
  144.         Color _RGB32(70, 0, 0)
  145.         _Font War12
  146.         centerText 0, _Width, ymax * .6 + 70, "Quit"
  147.     Else
  148.         _Font War12
  149.         Color _RGB32(70, 0, 0)
  150.         centerText 0, _Width, ymax * .6, "Play Game"
  151.         _Font War60
  152.         Color _RGB32(255, 255, 255)
  153.         centerText 0, _Width, ymax * .6 + 70, "Quit"
  154.     End If
  155.  
  156.     '_PutImage ((640 - width28) / 2, height30 + 30), img(28)
  157.     '_PutImage (((640 - width28) / 2) - width29, height30 + (30 + menu * 19)), img(29)
  158.     k& = _KeyHit
  159.     If k& = (18432) Then
  160.         menu = menu - 1
  161.     End If
  162.     If k& = (20480) Then
  163.         menu = menu + 1
  164.     End If
  165.  
  166.     If menu > 1 Then
  167.         menu = 0
  168.     End If
  169.     If menu < 0 Then
  170.         menu = 1
  171.     End If
  172.  
  173.     If _KeyDown(32) And menu = 0 Then
  174.         Exit Do
  175.     End If
  176.     If _KeyDown(32) And menu = 1 Then
  177.         For i = 0 To 640 / 32
  178.             For z = 0 To 480 / 32
  179.                 _PutImage (transitionX(i), transitionY(z)), img(4)
  180.                 _Display
  181.                 _Limit 300
  182.             Next
  183.         Next
  184.         _PutImage (0, 0), img(34)
  185.         _Display
  186.         _Delay 1
  187.         System: 'ExitGame()
  188.     End If
  189.     _Display
  190.     _Limit 20
  192.  
  193. _Font arial14
  194. For i = 0 To 640 / 32
  195.     For z = 0 To 480 / 32
  196.         _PutImage (transitionX(i), transitionY(z)), img(4)
  197.         _Display
  198.         _Delay 0.01
  199.     Next
  201.  
  202. '   INITIALIZING VARIABLES
  203. '   =================================
  204. nBullets = 100
  205. Type bullet
  206.     As Single x, y, dx, dy, active
  208. ReDim bullets(1 To nBullets) As bullet
  209.  
  210. frame = 0
  211. explo_frame = 0
  212. bigexplo_frame = 0
  213. bigexplox = -70
  214. bigexploy = -70
  215. explo2_frame = 0
  216. speed = 6
  217. scrollspeed = 1
  218. planex = 320
  219. planey = 480 - 128
  220. enemyshot(0) = 0
  221. enemyshot(1) = 0
  222. shot = 0
  223. explox = -30
  224. exploy = -30
  225. explo2x = -30
  226. explo2y = -30
  227. score = 0
  228. lives = 3
  229. health = 100
  230. bullseye = 1
  231. shots_fired = 1
  232. bigexploactive = 0
  233.  
  234.  
  235. '   SETTING THE POSITIONS OF THE ENEMY PLANES
  236. '   =========================================
  237. For i = 0 To 4
  238.     enemyX(i) = Int(Rnd * 608)
  239.     enemyY(i) = 0 - Int(Rnd * 480) - 32
  241. For i = 0 To 1
  242.     superenemyX(i) = Int(Rnd * 608)
  243.     superenemyY(i) = 0 - Int(Rnd * 480) - 32
  244.     enemybulletX(i) = superenemyX(i) + 13
  245.     enemybulletY(i) = superenemyY(i) + 17
  247.  
  248. '   SETTING THE POSITIONS AND STARTING IMAGES OF THE ISLANDS
  249. '   ========================================================
  250. For i = 0 To 2
  251.     islandX(i) = Int(Rnd * 576)
  252.     islandY(i) = 0 - Int(Rnd * 480)
  253.     islandImage(i) = img(i + 21)
  255.  
  256. '   THE 'ACTUAL' GAME LOOP
  257. '   ======================
  259.     If quit = 1 Then
  260.         For i = 0 To 640 / 32
  261.             For z = 0 To 480 / 32
  262.                 _PutImage (transitionX(i), transitionY(z)), img(4)
  263.                 _Display
  264.  
  265.             Next
  266.         Next
  267.         _PutImage (0, 0), img(34)
  268.         _Display
  269.         _Delay 1
  270.         Exit Do
  271.     End If
  272.  
  273.     '   CLEARING THE SCREEN
  274.     '   ===================
  275.     Cls
  276.  
  277.     '   MOVING THE PLAYER WITH THE ARROW KEYS
  278.     '   =====================================
  279.     '   OH, AND SHOOTING WITH THE SPACEBAR
  280.     '   ==================================
  281.     If _KeyDown(27) Then
  282.         quit = 1
  283.     End If
  284.     If _KeyDown(18432) Then
  285.         planey = planey - speed
  286.     End If
  287.     If _KeyDown(20480) Then
  288.         planey = planey + 4
  289.     End If
  290.     If _KeyDown(19200) Then
  291.         planex = planex - speed
  292.     End If
  293.     If _KeyDown(19712) Then
  294.         planex = planex + speed
  295.     End If
  296.     If _KeyDown(32) Then
  297.         ' find inactive bullet
  298.         If Timer - lastFire > .4 Then
  299.             For i = 1 To nBullets
  300.                 If bullets(i).active = 0 Then
  301.                     bullets(i).x = planex + 27 ' 17
  302.                     bullets(i).y = planey + 5
  303.                     bullets(i).active = -1
  304.                     _SndPlay (shoot)
  305.                     shots_fired = shots_fired + 1
  306.                     lastFire = Timer(.001)
  307.                     Exit For
  308.                 End If
  309.             Next
  310.         End If
  311.     End If
  312.  
  313.     '   MOVING THE ENEMY PLANES
  314.     '   =======================
  315.     For z = 0 To 4
  316.         If enemyY(z) > 480 Then
  317.             enemyX(z) = Int(Rnd * 608)
  318.             enemyY(z) = 0 - Int(Rnd * 480)
  319.         Else
  320.             enemyY(z) = enemyY(z) + speed
  321.         End If
  322.     Next
  323.     For z = 0 To 1
  324.         If superenemyY(z) > 480 Then
  325.             superenemyX(z) = Int(Rnd * 608)
  326.             superenemyY(z) = 0 - Int(Rnd * 480)
  327.         Else
  328.             superenemyY(z) = superenemyY(z) + speed
  329.         End If
  330.     Next
  331.  
  332.     '   MOVING THE ISLANDS
  333.     '   ==================
  334.     For z = 0 To 2
  335.         If islandY(z) > 480 Then
  336.             islandX(z) = Int(Rnd * 576)
  337.             islandY(z) = 0 - Int(Rnd * 480)
  338.             islandImage(z) = img(Int(Rnd * 3) + 21)
  339.         Else
  340.             islandY(z) = islandY(z) + 3
  341.         End If
  342.     Next
  343.  
  344.     '   CHECKING WHEN WE BEAT OR BEING BEATEN
  345.     '   =====================================
  346.     For t = 0 To 4
  347.         '   Collision with enemy?
  348.         collision planex, planey, width0, height0, enemyX(t), enemyY(t), width5, height5
  349.         If hit = 1 Then
  350.             'collision(r1x, r1y, r1w, r1h, r2x, r2y, r2w, r2h)
  351.             If explox > 0 Then
  352.                 explo2x = enemyX(t)
  353.                 explo2y = enemyY(t)
  354.             Else
  355.                 explox = enemyX(t)
  356.                 exploy = enemyY(t)
  357.             End If
  358.             _SndPlay (explosion)
  359.             enemyX(t) = Int(Rnd * 608)
  360.             enemyY(t) = 0 - Int(Rnd * 480)
  361.             health = health - 25
  362.             If health <= 0 Then
  363.                 bigexploactive = 1
  364.                 bigexplox = planex
  365.                 bigexploy = planey
  366.                 planex = -70
  367.                 planey = -70
  368.             End If
  369.             enemyX(t) = Int(Rnd * 608)
  370.             enemyY(t) = 0 - Int(Rnd * 480)
  371.         End If
  372.  
  373.  
  374.         'If shot = 1 Then
  375.         For i = 1 To nBullets
  376.             '   Collision with player bullet and enemy
  377.             collision bullets(i).x, bullets(i).y, width3, height3, enemyX(t), enemyY(t), width5, height5
  378.             If hit = 1 Then
  379.                 If explox > 0 Then
  380.                     explo2x = enemyX(t)
  381.                     explo2y = enemyY(t)
  382.                 Else
  383.                     explox = enemyX(t)
  384.                     exploy = enemyY(t)
  385.                 End If
  386.                 _SndPlay (explosion)
  387.                 enemyX(t) = Int(Rnd * 608)
  388.                 enemyY(t) = 0 - Int(Rnd * 480)
  389.                 bullets(i).x = -30
  390.                 bullets(i).y = -30
  391.                 bullets(i).active = 0
  392.                 score = score + 50
  393.                 bullseye = bullseye + 1
  394.             End If
  395.             'End If
  396.         Next
  397.     Next
  398.     For t = 0 To 1
  399.         '   Collision with player and superenemy
  400.         collision planex, planey, width0, height0, superenemyX(t), superenemyY(t), width5, height5
  401.         If hit = 1 Then
  402.             If explox > 0 Then
  403.                 explo2x = enemyX(t)
  404.                 explo2y = enemyY(t)
  405.             Else
  406.                 explox = enemyX(t)
  407.                 exploy = enemyY(t)
  408.             End If
  409.             _SndPlay (explosion)
  410.             enemyX(t) = Int(Rnd * 608)
  411.             enemyY(t) = 0 - Int(Rnd * 480)
  412.             health = health - 25
  413.             If health <= 0 Then
  414.                 bigexploactive = 1
  415.                 bigexplox = planex
  416.                 bigexploy = planey
  417.                 planex = -70
  418.                 planey = -70
  419.             End If
  420.             enemyX(t) = Int(Rnd * 608)
  421.             enemyY(t) = 0 - Int(Rnd * 480)
  422.         End If
  423.  
  424.  
  425.         '   Collision with player bullet and superenemy
  426.         For i = 1 To nBullets
  427.             collision bullets(i).x, bullets(i).y, width3, height3, superenemyX(t), superenemyY(t), width5, height5
  428.             If hit = 1 Then
  429.                 If explox > 0 Then
  430.                     explo2x = superenemyX(t)
  431.                     explo2y = superenemyY(t)
  432.                 Else
  433.                     explox = superenemyX(t)
  434.                     exploy = superenemyY(t)
  435.                 End If
  436.                 _SndPlay (explosion)
  437.                 superenemyX(t) = Int(Rnd * 608)
  438.                 superenemyY(t) = 0 - Int(Rnd * 480)
  439.                 bullets(i).x = -30
  440.                 bullets(i).y = -30
  441.                 bullets(i).active = 0
  442.                 score = score + 100
  443.                 bullseye = bullseye + 1
  444.             End If
  445.         Next
  446.  
  447.  
  448.     Next
  449.     For t = 0 To 1
  450.         '   Collision with player and enemy bullet
  451.         If enemyshot(t) = 1 Then
  452.             collision planex, planey, width0, height0, enemybulletX(t), enemybulletY(t), width27, height27
  453.             If hit = 1 Then
  454.                 health = health - 10
  455.                 If health <= 0 Then
  456.                     bigexploactive = 1
  457.                     bigexplox = planex
  458.                     bigexploy = planey
  459.                     enemybulletX(t) = -30 'had players bullets here!!!
  460.                     enemybulletY(t) = -30
  461.                 End If
  462.                 _SndPlay (explosion)
  463.                 If explox > 0 And explox < 640 Then
  464.                     explox2 = enemybulletX(t)
  465.                     exploy2 = enemybulletY(t)
  466.                 Else
  467.                     explox = enemybulletX(t)
  468.                     exploy = enemybulletY(t)
  469.                 End If
  470.                 enemybulletX(t) = superenemyX(t) + 14 '1
  471.                 enemybulletY(t) = superenemyY(t) + 17 '7
  472.                 enemyshot(t) = 0
  473.             End If
  474.         End If
  475.     Next
  476.  
  477.     '   FLYING OVER THE ENDLESSLY SCROLLING SEA
  478.     '   =======================================
  479.     For w = 0 To 15
  480.         backgroundY(w) = backgroundY(w) + 3
  481.         If backgroundY(w) > 480 Then
  482.             backgroundY(w) = backgroundY(w) - 512
  483.         End If
  484.         For q = 0 To 19
  485.             _PutImage (backgroundX(q), backgroundY(w)), img(4)
  486.         Next
  487.     Next
  488.  
  489.     '   WHICH LOOKS DULL WITHOUT ISLANDS
  490.     '   ================================
  491.     For o = 0 To 2
  492.         _PutImage (islandX(o), islandY(o)), islandImage(o)
  493.     Next
  494.  
  495.     '   KEEPING OUR PLANE IN THE SCREEN AND DISPLAY IT
  496.     '   ==============================================
  497.     frame = frame + 1
  498.     If frame > 2 Then
  499.         frame = 0
  500.     End If
  501.     If planex < 0 And bigexploactive = 0 Then
  502.         planex = 0
  503.     End If
  504.     If planey < 0 And bigexploactive = 0 Then
  505.         planey = 0
  506.     End If
  507.     If planex + width0 > 640 Then
  508.         planex = 640 - width0
  509.     End If
  510.     If planey + height0 > 480 - 64 Then
  511.         planey = 480 - height0 - 64
  512.     End If
  513.     _PutImage (planex, planey), img(frame)
  514.  
  515.     '   WE HAVE TO SEE WHAT WE ARE FIGHTING
  516.     '   ===================================
  517.     For x = 0 To 4
  518.         _PutImage (enemyX(x), enemyY(x)), img(frame + 5)
  519.     Next
  520.     For i = 0 To 1
  521.         If enemyshot(i) = 0 Then
  522.             decision(i) = Int(Rnd * 199)
  523.         End If
  524.         If decision(i) = 9 Then
  525.             If enemybulletY(i) < 480 Then
  526.                 enemybulletY(i) = enemybulletY(i) + 10
  527.                 enemyshot(i) = 1
  528.             Else
  529.                 enemybulletX(i) = superenemyX(i) + 14 '1
  530.                 enemybulletY(i) = superenemyY(i) + 17 '7
  531.                 enemyshot(i) = 0
  532.             End If
  533.         Else
  534.             enemybulletX(i) = superenemyX(i) + 14 '1
  535.             enemybulletY(i) = superenemyY(i) + 17 '7
  536.             enemyshot(i) = 0
  537.         End If
  538.         If superenemyY(i) > 0 Then
  539.             _PutImage (enemybulletX(i), enemybulletY(i)), img(27)
  540.         End If
  541.     Next
  542.     For x = 0 To 1
  543.         _PutImage (superenemyX(x), superenemyY(x)), img(frame + 24)
  544.     Next
  545.  
  546.  
  547.  
  548.     '   AND WITH WHAT
  549.     '   =============
  550.     For j = 1 To nBullets
  551.         If bullets(j).y > 0 And bullets(j).active Then
  552.             bullets(j).y = bullets(j).y - speed * 2
  553.             _PutImage (bullets(j).x, bullets(j).y), img(3)
  554.         Else
  555.             bullets(j).x = -30
  556.             bullets(j).y = -30
  557.             bullets(j).active = 0
  558.         End If
  559.     Next
  560.  
  561.  
  562.  
  563.  
  564.     '   A NICE EXPLOSION
  565.     '   ================
  566.     If explo_frame < 5 And explox > 0 Then
  567.         explo_frame = explo_frame + 1
  568.         _PutImage (explox, exploy), img(explo_frame + 8)
  569.     Else
  570.         explo_frame = 0
  571.         explox = -30
  572.         exploy = -30
  573.     End If
  574.  
  575.  
  576.     '   A SECOND NICE EXPLOSION
  577.     '   =======================
  578.     If explo2_frame < 5 And explo2x > 0 Then
  579.         explo2_frame = explo2_frame + 1
  580.         _PutImage (explo2x, explo2y), img(explo2_frame + 8)
  581.     Else
  582.         explo2_frame = 0
  583.         explo2x = -30
  584.         explo2y = -30
  585.     End If
  586.  
  587.  
  588.     '   A BIGGER EXPLOSION
  589.     '   ==================
  590.     If bigexploactive = 1 Then
  591.         For s = 0 To 4
  592.             enemyX(s) = Int(Rnd * 608)
  593.             enemyY(s) = 0 - Int(Rnd * 480)
  594.         Next
  595.         For s = 0 To 1
  596.             superenemyX(s) = Int(Rnd * 608)
  597.             superenemyY(s) = 0 - Int(Rnd * 480)
  598.         Next
  599.     End If
  600.     If bigexplox > 0 And bigexplox < 640 Then
  601.         bigexplo_frame = bigexplo_frame + 1
  602.     End If
  603.     If bigexplo_frame > 6 Then
  604.         bigexploactive = 0
  605.         bigexplo_frame = 0
  606.         bigexplox = -70
  607.         bigexploy = -70
  608.         lives = lives - 1
  609.         planex = 320
  610.         planey = 480 - 128
  611.         health = 100
  612.     End If
  613.     _PutImage (bigexplox, bigexploy), img(bigexplo_frame + 14)
  614.  
  615.     '   INFORMATION PANEL
  616.     '   =================
  617.     Line (0, 480 - 63)-Step(640, 63), _RGB32(220, 220, 220), BF
  618.     Line (5, 480 - 58)-Step(635, 58), _RGB32(180, 180, 180), BF
  619.     Line (5, 480 - 58)-Step(630, 58), _RGB32(120, 120, 120), BF
  620.     Line (6, 480 - 22)-Step(103, 12), _RGB32(0, 0, 255), B
  621.     Line (7, 480 - 21)-Step(100, 10), _RGB32(0, 0, 0), B
  622.     c = 143
  623.     For z = 1 To 10
  624.         Line (7, 480 - 22 + z)-(7 + health, 480 - 22 + z), _RGB32(255, c, 0)
  625.         If z > 5 Then
  626.             c = c - 44
  627.         Else
  628.             c = c + 44
  629.         End If
  630.     Next
  631.     _Font arial14
  632.     Color _RGB32(0, 0, 0), trans
  633.     _PrintString (5, 480 - 58), "Score: " + Str$(score)
  634.     _PrintString (5, 480 - 48), "Accuracy: " + Str$((bullseye / shots_fired) * 100) + "%"
  635.     For i = 1 To lives
  636.         _PutImage (120 + i * 32, 480 - 32), img(31)
  637.     Next
  638.     _PutImage (640 - width32, 480 - 58), img(32)
  639.  
  640.     '   IF ALL LIVES ARE GONE, THEN IT`S GAME OVER
  641.     '   =========================================
  642.     If lives < 0 Then
  643.         _PutImage (0, 0), img(34)
  644.         _Display
  645.         _Delay 1
  646.         System
  647.     End If
  648.  
  649.     '   DRAWING EVERYTHNG AND WAITING
  650.     '   =============================
  651.     '   AND PAUSING THE GAME IF HIS MAJESTY WANTS SO
  652.     '   ============================================
  653.     If InKey$ = "p" Or InKey$ = "P" Then
  654.         _PutImage (0, 0), img(33)
  655.         _Display
  656.         While InKey$ = "": Wend
  657.     End If
  658.  
  659.     _Limit 30
  660.     _Display
  662.  
  664.  
  665.  
  666.  
  667.  
  668. '=======================================================
  669. Sub collision (r1x, r1y, r1w, r1h, r2x, r2y, r2w, r2h)
  670.     If (r1x + r1w >= r2x And r1x <= r2x + r2w And r1y + r1h >= r2y And r1y <= r2y + r2h) Then
  671.         hit = 1
  672.     Else
  673.         hit = 0
  674.     End If
  676.  
  677. Sub centerText (x1, x2, midy, s$) ' ' if you want to center fit a string between two goal posts x1, and x2
  678.     _PrintString ((x1 + x2) / 2 - _PrintWidth(s$) / 2, midy - _FontHeight(_Font) / 2), s$
  680.  
  681.  

PS I may have fixed glitch, fixed something because you had place where it should have been enemy bullet but had player bullet instead.
Title: Re: 1945
Post by: George McGinn on December 07, 2021, 05:55:40 pm
I like this game. Thanks.
Title: Re: 1945
Post by: johnno56 on December 07, 2021, 06:50:55 pm
Thanks George... But it is not 'my' work. Created by the guys at Naalaa. I only did a 'convert'.

Bplus: There was a game, not sure if it was a top-down shooter for pygame or not, but the player, by default, used a gun that fired one bullet at a time... admittedly, there was a delay between shots, but still single-shot. Picking up a machine-gun, increased the firing rate, but because of the recoil, accuracy was sacrificed... Food for thought

Were did you find the "random feature" involving enemy bullets? Because crashing into the white plane still causes all planes to vanish...
Title: Re: 1945
Post by: bplus on December 07, 2021, 06:55:24 pm
@johnno56

Lines 459, 460 in last post, I marked the place with a comment. It was not random feature, it was the wrong bullet, instead of enemy bullet you had the player's bullet. This is right after doing a collision test with player plane and enemy  bullet, so clearly enemy bullets were meant to be reassigned.

So it's crashing into white plane, no did not catch that. That's good intell, now we have places to check.
Title: Re: 1945
Post by: bplus on December 07, 2021, 07:53:52 pm
Moved some stuff around, haven't been able to replicate the glitch even purposely crashing into white planes!

Code: QB64: [Select]
  1. ' 1945qb translated by Johnno from Naalaa
  2. '2021-12-06 bplus mod splash screen / menu
  3. '2021-12-07 bplus give the players plane more than 1 bullet!
  4.  
  5. xmax = 640
  6. ymax = 480
  7. _Title "1945"
  8.  
  9. Screen _NewImage(xmax, ymax, 32)
  12.  
  13. '   ARRAYS
  14. Dim backgroundX(21)
  15. Dim backgroundY(16)
  16. Dim transitionX(21)
  17. Dim transitionY(16)
  18. Dim enemyX(5)
  19. Dim enemyY(5)
  20. Dim superenemyX(5)
  21. Dim superenemyY(5)
  22. Dim decision(2)
  23. Dim enemybulletX(2)
  24. Dim enemybulletY(2)
  25. Dim enemyshot(2)
  26. Dim islandImage(3)
  27. Dim islandX(3)
  28. Dim islandY(3)
  29. Dim img(34)
  30.  
  32.  
  34.  
  35. trans = _RGBA32(0, 0, 0, 0)
  36.  
  37. width0 = 65
  38. height0 = 65
  39. width3 = 9
  40. height3 = 19
  41. width5 = 32
  42. height5 = 32
  43. width27 = 5
  44. height27 = 5
  45. width28 = 94
  46. height28 = 31
  47. width29 = 6
  48. height29 = 11
  49. width30 = 278
  50. height30 = 141
  51. width32 = 115
  52. height32 = 58
  53.  
  54. quit = 0
  55. dead = false
  56. hit = 0
  57.  
  58. '   LOAD ASSETS
  59. '   ===========
  60.  
  61. '   Images
  62. '
  63. img(0) = _LoadImage("data/plane1.png")
  64. img(1) = _LoadImage("data/plane2.png")
  65. img(2) = _LoadImage("data/plane3.png")
  66. img(3) = _LoadImage("data/bullet.png")
  67. img(4) = _LoadImage("data/sea.png")
  68. img(5) = _LoadImage("data/enemy1.png")
  69. img(6) = _LoadImage("data/enemy2.png")
  70. img(7) = _LoadImage("data/enemy3.png")
  71. img(8) = _LoadImage("data/explosion1.png")
  72. img(9) = _LoadImage("data/explosion2.png")
  73. img(10) = _LoadImage("data/explosion3.png")
  74. img(11) = _LoadImage("data/explosion4.png")
  75. img(12) = _LoadImage("data/explosion5.png")
  76. img(13) = _LoadImage("data/explosion6.png")
  77. img(14) = _LoadImage("data/bigexplosion1.png")
  78. img(15) = _LoadImage("data/bigexplosion2.png")
  79. img(16) = _LoadImage("data/bigexplosion3.png")
  80. img(17) = _LoadImage("data/bigexplosion4.png")
  81. img(18) = _LoadImage("data/bigexplosion5.png")
  82. img(19) = _LoadImage("data/bigexplosion6.png")
  83. img(20) = _LoadImage("data/bigexplosion7.png")
  84. img(21) = _LoadImage("data/island1.png")
  85. img(22) = _LoadImage("data/island2.png")
  86. img(23) = _LoadImage("data/island3.png")
  87. img(24) = _LoadImage("data/superenemy1.png")
  88. img(25) = _LoadImage("data/superenemy2.png")
  89. img(26) = _LoadImage("data/superenemy3.png")
  90. img(27) = _LoadImage("data/enemybullet.png")
  91. img(28) = _LoadImage("data/menu.png")
  92. img(29) = _LoadImage("data/arrow.png")
  93. img(30) = _LoadImage("data/biglogo.png")
  94. img(31) = _LoadImage("data/life.png")
  95. img(32) = _LoadImage("data/logo.png")
  96. img(33) = _LoadImage("data/paused.png")
  97. img(34) = _LoadImage("data/gameover.png")
  98.  
  99. '   Sounds
  100. '
  101. shoot = _SndOpen("data/shoot.wav")
  102. explosion = _SndOpen("data/explosion.wav")
  103. collide = _SndOpen("data/collide.wav")
  104. plane_shot = _SndOpen("data/plane_shot.wav")
  105.  
  106. '   Fonts
  107. '
  108. arial14 = _LoadFont("data/arial.ttf", 14)
  109. War60 = _LoadFont("data/armalite.ttf", 60)
  110. War12 = _LoadFont("data/armalite.ttf", 12)
  112.  
  113. '   TILING THE BACKGROUND
  114. '   =====================
  115. 'backgroundX((640 / 32) + 1)
  116. 'backgroundY((480 / 32) + 1)
  117. 'transitionX((640 / 32) + 1)
  118. 'transitionY((480 / 32) + 1)
  119. For i = 0 To 640 / 32
  120.     backgroundX(i) = i * 32
  121.     transitionX(i) = i * 32
  122.     For a = 0 To 480 / 32
  123.         backgroundY(a) = a * 32
  124.         transitionY(a) = a * 32
  125.     Next
  127.  
  128.  
  129. '   A GAME MENU TO START WITH
  130. '   =========================
  131. menu = 0
  132. Color _RGB32(150, 0, 0)
  134.     Cls
  135.  
  136.  
  137.     '_PutImage ((640 - width30) / 2, 5), img(30)
  138.     _PutImage , img(30) ' full screen image
  139.  
  140.     If menu = 0 Then
  141.         _Font War60
  142.         Color _RGB32(255, 255, 255)
  143.         centerText 0, _Width, ymax * .6, "Play Game"
  144.         Color _RGB32(70, 0, 0)
  145.         _Font War12
  146.         centerText 0, _Width, ymax * .6 + 70, "Quit"
  147.     Else
  148.         _Font War12
  149.         Color _RGB32(70, 0, 0)
  150.         centerText 0, _Width, ymax * .6, "Play Game"
  151.         _Font War60
  152.         Color _RGB32(255, 255, 255)
  153.         centerText 0, _Width, ymax * .6 + 70, "Quit"
  154.     End If
  155.  
  156.     '_PutImage ((640 - width28) / 2, height30 + 30), img(28)
  157.     '_PutImage (((640 - width28) / 2) - width29, height30 + (30 + menu * 19)), img(29)
  158.     k& = _KeyHit
  159.     If k& = (18432) Then
  160.         menu = menu - 1
  161.     End If
  162.     If k& = (20480) Then
  163.         menu = menu + 1
  164.     End If
  165.  
  166.     If menu > 1 Then
  167.         menu = 0
  168.     End If
  169.     If menu < 0 Then
  170.         menu = 1
  171.     End If
  172.  
  173.     If _KeyDown(32) And menu = 0 Then
  174.         Exit Do
  175.     End If
  176.     If _KeyDown(32) And menu = 1 Then
  177.         For i = 0 To 640 / 32
  178.             For z = 0 To 480 / 32
  179.                 _PutImage (transitionX(i), transitionY(z)), img(4)
  180.                 _Display
  181.                 _Limit 300
  182.             Next
  183.         Next
  184.         _PutImage (0, 0), img(34)
  185.         _Display
  186.         _Delay 1
  187.         System: 'ExitGame()
  188.     End If
  189.     _Display
  190.     _Limit 20
  192.  
  193. _Font arial14
  194. For i = 0 To 640 / 32
  195.     For z = 0 To 480 / 32
  196.         _PutImage (transitionX(i), transitionY(z)), img(4)
  197.         _Display
  198.         _Delay 0.01
  199.     Next
  201.  
  202. '   INITIALIZING VARIABLES
  203. '   =================================
  204. nBullets = 100
  205. Type bullet
  206.     As Single x, y, dx, dy, active
  208. ReDim bullets(1 To nBullets) As bullet
  209.  
  210. frame = 0
  211. explo_frame = 0
  212. bigexplo_frame = 0
  213. bigexplox = -70
  214. bigexploy = -70
  215. explo2_frame = 0
  216. speed = 6
  217. scrollspeed = 1
  218. planex = 320
  219. planey = 480 - 128
  220. enemyshot(0) = 0
  221. enemyshot(1) = 0
  222. shot = 0
  223. explox = -30
  224. exploy = -30
  225. explo2x = -30
  226. explo2y = -30
  227. score = 0
  228. lives = 3
  229. health = 100
  230. bullseye = 1
  231. shots_fired = 1
  232. bigexploactive = 0
  233.  
  234.  
  235. '   SETTING THE POSITIONS OF THE ENEMY PLANES
  236. '   =========================================
  237. For i = 0 To 4
  238.     enemyX(i) = Int(Rnd * 608)
  239.     enemyY(i) = 0 - Int(Rnd * 480) - 32
  241. For i = 0 To 1
  242.     superenemyX(i) = Int(Rnd * 608)
  243.     superenemyY(i) = 0 - Int(Rnd * 480) - 32
  244.     enemybulletX(i) = superenemyX(i) + 13
  245.     enemybulletY(i) = superenemyY(i) + 17
  247.  
  248. '   SETTING THE POSITIONS AND STARTING IMAGES OF THE ISLANDS
  249. '   ========================================================
  250. For i = 0 To 2
  251.     islandX(i) = Int(Rnd * 576)
  252.     islandY(i) = 0 - Int(Rnd * 480)
  253.     islandImage(i) = img(i + 21)
  255.  
  256. '   THE 'ACTUAL' GAME LOOP
  257. '   ======================
  259.     If quit = 1 Then
  260.         For i = 0 To 640 / 32
  261.             For z = 0 To 480 / 32
  262.                 _PutImage (transitionX(i), transitionY(z)), img(4)
  263.                 _Display
  264.  
  265.             Next
  266.         Next
  267.         _PutImage (0, 0), img(34)
  268.         _Display
  269.         _Delay 1
  270.         Exit Do
  271.     End If
  272.  
  273.     '   CLEARING THE SCREEN
  274.     '   ===================
  275.     Cls
  276.  
  277.     '   MOVING THE PLAYER WITH THE ARROW KEYS
  278.     '   =====================================
  279.     '   OH, AND SHOOTING WITH THE SPACEBAR
  280.     '   ==================================
  281.     If _KeyDown(27) Then
  282.         quit = 1
  283.     End If
  284.     If _KeyDown(18432) Then
  285.         planey = planey - speed
  286.     End If
  287.     If _KeyDown(20480) Then
  288.         planey = planey + 4
  289.     End If
  290.     If _KeyDown(19200) Then
  291.         planex = planex - speed
  292.     End If
  293.     If _KeyDown(19712) Then
  294.         planex = planex + speed
  295.     End If
  296.     If _KeyDown(32) Then
  297.         ' find inactive bullet
  298.         If Timer - lastFire > .4 Then
  299.             For i = 1 To nBullets
  300.                 If bullets(i).active = 0 Then
  301.                     bullets(i).x = planex + 27 ' 17
  302.                     bullets(i).y = planey + 5
  303.                     bullets(i).active = -1
  304.                     _SndPlay (shoot)
  305.                     shots_fired = shots_fired + 1
  306.                     lastFire = Timer(.001)
  307.                     Exit For
  308.                 End If
  309.             Next
  310.         End If
  311.     End If
  312.  
  313.     '   MOVING THE ENEMY PLANES
  314.     '   =======================
  315.     For z = 0 To 4
  316.         enemyY(z) = enemyY(z) + speed
  317.         If enemyY(z) > 480 Then
  318.             enemyX(z) = Int(Rnd * 608)
  319.             enemyY(z) = 0 - Int(Rnd * 480)
  320.         End If
  321.     Next
  322.     For z = 0 To 1
  323.         superenemyY(z) = superenemyY(z) + speed
  324.         If superenemyY(z) > 480 Then
  325.             superenemyX(z) = Int(Rnd * 608)
  326.             superenemyY(z) = 0 - Int(Rnd * 480)
  327.         End If
  328.     Next
  329.  
  330.     '   MOVING THE ISLANDS
  331.     '   ==================
  332.     For z = 0 To 2
  333.         islandY(z) = islandY(z) + 3
  334.         If islandY(z) > 480 Then
  335.             islandX(z) = Int(Rnd * 576)
  336.             islandY(z) = 0 - Int(Rnd * 480)
  337.             islandImage(z) = img(Int(Rnd * 3) + 21)
  338.         End If
  339.     Next
  340.  
  341.     '   CHECKING WHEN WE BEAT OR BEING BEATEN
  342.     '   =====================================
  343.     For t = 0 To 4
  344.         '   Collision with enemy?
  345.         collision planex, planey, width0, height0, enemyX(t), enemyY(t), width5, height5
  346.         If hit = 1 Then
  347.             'collision(r1x, r1y, r1w, r1h, r2x, r2y, r2w, r2h)
  348.             If explox > 0 Then
  349.                 explo2x = enemyX(t)
  350.                 explo2y = enemyY(t)
  351.             Else
  352.                 explox = enemyX(t)
  353.                 exploy = enemyY(t)
  354.             End If
  355.             _SndPlay (explosion)
  356.             enemyX(t) = Int(Rnd * 608)
  357.             enemyY(t) = 0 - Int(Rnd * 480)
  358.             health = health - 25
  359.             If health <= 0 Then
  360.                 bigexploactive = 1
  361.                 bigexplox = planex
  362.                 bigexploy = planey
  363.                 planex = -70 '>>>>>>>>>>>>>>>>>>>>>>> this could disappear the plane !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  364.                 planey = -70
  365.             End If
  366.             'enemyX(t) = Int(Rnd * 608)         ' you have this twice???????????????
  367.             'enemyY(t) = 0 - Int(Rnd * 480)
  368.         End If
  369.  
  370.  
  371.         'If shot = 1 Then
  372.         For i = 1 To nBullets
  373.             '   Collision with player bullet and enemy
  374.             collision bullets(i).x, bullets(i).y, width3, height3, enemyX(t), enemyY(t), width5, height5
  375.             If hit = 1 Then
  376.                 If explox > 0 Then
  377.                     explo2x = enemyX(t)
  378.                     explo2y = enemyY(t)
  379.                 Else
  380.                     explox = enemyX(t)
  381.                     exploy = enemyY(t)
  382.                 End If
  383.                 _SndPlay (explosion)
  384.                 enemyX(t) = Int(Rnd * 608)
  385.                 enemyY(t) = 0 - Int(Rnd * 480)
  386.                 bullets(i).x = -30
  387.                 bullets(i).y = -30
  388.                 bullets(i).active = 0
  389.                 score = score + 50
  390.                 bullseye = bullseye + 1
  391.             End If
  392.             'End If
  393.         Next
  394.     Next
  395.     For t = 0 To 1
  396.         '   Collision with player and superenemy
  397.         collision planex, planey, width0, height0, superenemyX(t), superenemyY(t), width5, height5
  398.         If hit = 1 Then
  399.             If explox > 0 Then
  400.                 explo2x = enemyX(t)
  401.                 explo2y = enemyY(t)
  402.             Else
  403.                 explox = enemyX(t)
  404.                 exploy = enemyY(t)
  405.             End If
  406.             _SndPlay (explosion)
  407.             enemyX(t) = Int(Rnd * 608)
  408.             enemyY(t) = 0 - Int(Rnd * 480)
  409.             health = health - 25
  410.             If health <= 0 Then
  411.                 bigexploactive = 1
  412.                 bigexplox = planex
  413.                 bigexploy = planey
  414.                 planex = -70 '>>>>>>>>>>>>>>>>>>>>>>> this could disappear the plane !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  415.                 planey = -70
  416.             End If
  417.             enemyX(t) = Int(Rnd * 608)
  418.             enemyY(t) = 0 - Int(Rnd * 480)
  419.         End If
  420.  
  421.  
  422.         '   Collision with player bullet and superenemy
  423.         For i = 1 To nBullets
  424.             collision bullets(i).x, bullets(i).y, width3, height3, superenemyX(t), superenemyY(t), width5, height5
  425.             If hit = 1 Then
  426.                 If explox > 0 Then
  427.                     explo2x = superenemyX(t)
  428.                     explo2y = superenemyY(t)
  429.                 Else
  430.                     explox = superenemyX(t)
  431.                     exploy = superenemyY(t)
  432.                 End If
  433.                 _SndPlay (explosion)
  434.                 superenemyX(t) = Int(Rnd * 608)
  435.                 superenemyY(t) = 0 - Int(Rnd * 480)
  436.                 bullets(i).x = -30
  437.                 bullets(i).y = -30
  438.                 bullets(i).active = 0
  439.                 score = score + 100
  440.                 bullseye = bullseye + 1
  441.             End If
  442.         Next
  443.  
  444.  
  445.     Next
  446.     For t = 0 To 1
  447.         '   Collision with player and enemy bullet
  448.         If enemyshot(t) = 1 Then
  449.             collision planex, planey, width0, height0, enemybulletX(t), enemybulletY(t), width27, height27
  450.             If hit = 1 Then
  451.                 health = health - 10
  452.                 If health <= 0 Then
  453.                     bigexploactive = 1
  454.                     bigexplox = planex
  455.                     bigexploy = planey
  456.                     enemybulletX(t) = -30 'had players bullets here!!!
  457.                     enemybulletY(t) = -30
  458.                 End If
  459.                 _SndPlay (explosion)
  460.                 If explox > 0 And explox < 640 Then
  461.                     explox2 = enemybulletX(t)
  462.                     exploy2 = enemybulletY(t)
  463.                 Else
  464.                     explox = enemybulletX(t)
  465.                     exploy = enemybulletY(t)
  466.                 End If
  467.                 enemybulletX(t) = superenemyX(t) + 14 '1
  468.                 enemybulletY(t) = superenemyY(t) + 17 '7
  469.                 enemyshot(t) = 0
  470.             End If
  471.         End If
  472.     Next
  473.  
  474.     '   FLYING OVER THE ENDLESSLY SCROLLING SEA
  475.     '   =======================================
  476.     For w = 0 To 15
  477.         backgroundY(w) = backgroundY(w) + 3
  478.         If backgroundY(w) > 480 Then
  479.             backgroundY(w) = backgroundY(w) - 512
  480.         End If
  481.         For q = 0 To 19
  482.             _PutImage (backgroundX(q), backgroundY(w)), img(4)
  483.         Next
  484.     Next
  485.  
  486.     '   WHICH LOOKS DULL WITHOUT ISLANDS
  487.     '   ================================
  488.     For o = 0 To 2
  489.         _PutImage (islandX(o), islandY(o)), islandImage(o)
  490.     Next
  491.  
  492.     '   KEEPING OUR PLANE IN THE SCREEN AND DISPLAY IT
  493.     '   ==============================================
  494.     frame = frame + 1
  495.     If frame > 2 Then
  496.         frame = 0
  497.     End If
  498.     If planex < 0 And bigexploactive = 0 Then
  499.         planex = 0
  500.     End If
  501.     If planey < 0 And bigexploactive = 0 Then
  502.         planey = 0
  503.     End If
  504.     If planex + width0 > 640 Then
  505.         planex = 640 - width0
  506.     End If
  507.     If planey + height0 > 480 - 64 Then
  508.         planey = 480 - height0 - 64
  509.     End If
  510.     _PutImage (planex, planey), img(frame)
  511.  
  512.     '   WE HAVE TO SEE WHAT WE ARE FIGHTING
  513.     '   ===================================
  514.     For x = 0 To 4
  515.         _PutImage (enemyX(x), enemyY(x)), img(frame + 5)
  516.     Next
  517.     For i = 0 To 1
  518.         If enemyshot(i) = 0 Then
  519.             decision(i) = Int(Rnd * 199)
  520.         End If
  521.         If decision(i) = 9 Then
  522.             If enemybulletY(i) < 480 Then
  523.                 enemybulletY(i) = enemybulletY(i) + 10
  524.                 enemyshot(i) = 1
  525.             Else
  526.                 enemybulletX(i) = superenemyX(i) + 14 '1
  527.                 enemybulletY(i) = superenemyY(i) + 17 '7
  528.                 enemyshot(i) = 0
  529.             End If
  530.         Else
  531.             enemybulletX(i) = superenemyX(i) + 14 '1
  532.             enemybulletY(i) = superenemyY(i) + 17 '7
  533.             enemyshot(i) = 0
  534.         End If
  535.         If superenemyY(i) > 0 Then
  536.             _PutImage (enemybulletX(i), enemybulletY(i)), img(27)
  537.         End If
  538.     Next
  539.     For x = 0 To 1
  540.         _PutImage (superenemyX(x), superenemyY(x)), img(frame + 24)
  541.     Next
  542.  
  543.  
  544.  
  545.     '   AND WITH WHAT
  546.     '   =============
  547.     For j = 1 To nBullets
  548.         If bullets(j).y > 0 And bullets(j).active Then
  549.             bullets(j).y = bullets(j).y - speed * 2
  550.             _PutImage (bullets(j).x, bullets(j).y), img(3)
  551.         Else
  552.             bullets(j).x = -30
  553.             bullets(j).y = -30
  554.             bullets(j).active = 0
  555.         End If
  556.     Next
  557.  
  558.  
  559.  
  560.  
  561.     '   A NICE EXPLOSION
  562.     '   ================
  563.     If explo_frame < 5 And explox > 0 Then
  564.         explo_frame = explo_frame + 1
  565.         _PutImage (explox, exploy), img(explo_frame + 8)
  566.     Else
  567.         explo_frame = 0
  568.         explox = -30
  569.         exploy = -30
  570.     End If
  571.  
  572.  
  573.     '   A SECOND NICE EXPLOSION
  574.     '   =======================
  575.     If explo2_frame < 5 And explo2x > 0 Then
  576.         explo2_frame = explo2_frame + 1
  577.         _PutImage (explo2x, explo2y), img(explo2_frame + 8)
  578.     Else
  579.         explo2_frame = 0
  580.         explo2x = -30
  581.         explo2y = -30
  582.     End If
  583.  
  584.  
  585.     '   A BIGGER EXPLOSION
  586.     '   ==================
  587.     If bigexploactive = 1 Then
  588.         For s = 0 To 4
  589.             enemyX(s) = Int(Rnd * 608)
  590.             enemyY(s) = 0 - Int(Rnd * 480)
  591.         Next
  592.         For s = 0 To 1
  593.             superenemyX(s) = Int(Rnd * 608)
  594.             superenemyY(s) = 0 - Int(Rnd * 480)
  595.         Next
  596.     End If
  597.     If bigexplox > 0 And bigexplox < 640 Then
  598.         bigexplo_frame = bigexplo_frame + 1
  599.     End If
  600.     If bigexplo_frame > 6 Then
  601.         bigexploactive = 0
  602.         bigexplo_frame = 0
  603.         bigexplox = -70
  604.         bigexploy = -70
  605.         lives = lives - 1
  606.         planex = 320
  607.         planey = 480 - 128
  608.         health = 100
  609.     End If
  610.     _PutImage (bigexplox, bigexploy), img(bigexplo_frame + 14)
  611.  
  612.     '   INFORMATION PANEL
  613.     '   =================
  614.     Line (0, 480 - 63)-Step(640, 63), _RGB32(220, 220, 220), BF
  615.     Line (5, 480 - 58)-Step(635, 58), _RGB32(180, 180, 180), BF
  616.     Line (5, 480 - 58)-Step(630, 58), _RGB32(120, 120, 120), BF
  617.     Line (6, 480 - 22)-Step(103, 12), _RGB32(0, 0, 255), B
  618.     Line (7, 480 - 21)-Step(100, 10), _RGB32(0, 0, 0), B
  619.     c = 143
  620.     For z = 1 To 10
  621.         Line (7, 480 - 22 + z)-(7 + health, 480 - 22 + z), _RGB32(255, c, 0)
  622.         If z > 5 Then
  623.             c = c - 44
  624.         Else
  625.             c = c + 44
  626.         End If
  627.     Next
  628.     _Font arial14
  629.     Color _RGB32(0, 0, 0), trans
  630.     _PrintString (5, 480 - 58), "Score: " + Str$(score)
  631.     _PrintString (5, 480 - 48), "Accuracy: " + Str$((bullseye / shots_fired) * 100) + "%"
  632.     For i = 1 To lives
  633.         _PutImage (120 + i * 32, 480 - 32), img(31)
  634.     Next
  635.     _PutImage (640 - width32, 480 - 58), img(32)
  636.  
  637.     '   IF ALL LIVES ARE GONE, THEN IT`S GAME OVER
  638.     '   =========================================
  639.     If lives < 0 Then
  640.         _PutImage (0, 0), img(34)
  641.         _Display
  642.         _Delay 1
  643.         Exit Do
  644.     End If
  645.  
  646.     '   DRAWING EVERYTHNG AND WAITING
  647.     '   =============================
  648.     '   AND PAUSING THE GAME IF HIS MAJESTY WANTS SO
  649.     '   ============================================
  650.     If InKey$ = "p" Or InKey$ = "P" Then
  651.         _PutImage (0, 0), img(33)
  652.         _Display
  653.         While InKey$ = "": Wend
  654.     End If
  655.  
  656.     _Limit 30
  657.     _Display
  660.  
  661.  
  662.  
  663.  
  664. '=======================================================
  665. Sub collision (r1x, r1y, r1w, r1h, r2x, r2y, r2w, r2h)
  666.     If (r1x + r1w >= r2x And r1x <= r2x + r2w And r1y + r1h >= r2y And r1y <= r2y + r2h) Then
  667.         hit = 1
  668.     Else
  669.         hit = 0
  670.     End If
  672.  
  673. Sub centerText (x1, x2, midy, s$) ' ' if you want to center fit a string between two goal posts x1, and x2
  674.     _PrintString ((x1 + x2) / 2 - _PrintWidth(s$) / 2, midy - _FontHeight(_Font) / 2), s$
  676.  
  677.  
Title: Re: 1945
Post by: johnno56 on December 07, 2021, 09:00:53 pm
The reason why the 'player bullets' was used is because that was in the original Naalaa listing... But yeah. I'm also having fun and games trying to find the cause of the glitch. I have a sneaking suspicion that the collision detect may be involved somehow...
Title: Re: 1945
Post by: bplus on December 07, 2021, 09:52:11 pm
Here's an example of something I moved around:
Code: QB64: [Select]
  1.     For z = 0 To 1
  2.         superenemyY(z) = superenemyY(z) + speed
  3.         If superenemyY(z) > 480 Then
  4.             superenemyX(z) = Int(Rnd * 608)
  5.             superenemyY(z) = 0 - Int(Rnd * 480)
  6.         End If
  7.     Next
  8.  
  9.  

I changed the position with speed and then I checked where the new location was and if beyond then reassign.

The code before was checking before the move, then doing the move. That could screw things up.
Title: Re: 1945
Post by: johnno56 on December 07, 2021, 11:34:41 pm
The problem has been fixed!

I suspected that the problem was with the collision detection parts of the game... obviously...
Trial and error commenting out each detection routine with varying results but no solution.
The problem involved colliding with the white planes, the Super Enemy, so I isolated all the other detection sections (just in case) and ran only with 'collide with superenemy'. Picked it to bits with no joy.

The phrase, "None are as blind as those that do not see", finally sprang to mind.

The solution was within the comment of the section: "Collision with player and superenemy"

Look closely at 'that' section.... In the program you have already installed... The routine 'detects' superenemies but only handles enemies !!

Code: QB64: [Select]
  1. ' 1945qb translated by Johnno from Naalaa
  2. '2021-12-06 bplus mod splash screen / menu
  3. '2021-12-07 bplus give the players plane more than 1 bullet!
  4.  
  5. xmax = 640
  6. ymax = 480
  7. _Title "1945"
  8.  
  9. Screen _NewImage(xmax, ymax, 32)
  12.  
  13. '   ARRAYS
  14. Dim backgroundX(21)
  15. Dim backgroundY(16)
  16. Dim transitionX(21)
  17. Dim transitionY(16)
  18. Dim enemyX(5)
  19. Dim enemyY(5)
  20. Dim superenemyX(5)
  21. Dim superenemyY(5)
  22. Dim decision(2)
  23. Dim enemybulletX(2)
  24. Dim enemybulletY(2)
  25. Dim enemyshot(2)
  26. Dim islandImage(3)
  27. Dim islandX(3)
  28. Dim islandY(3)
  29. Dim img(34)
  30.  
  32.  
  34.  
  35. trans = _RGBA32(0, 0, 0, 0)
  36.  
  37. width0 = 65
  38. height0 = 65
  39. width3 = 9
  40. height3 = 19
  41. width5 = 32
  42. height5 = 32
  43. width27 = 5
  44. height27 = 5
  45. width28 = 94
  46. height28 = 31
  47. width29 = 6
  48. height29 = 11
  49. width30 = 278
  50. height30 = 141
  51. width32 = 115
  52. height32 = 58
  53.  
  54. quit = 0
  55. dead = false
  56. hit = 0
  57.  
  58. '   LOAD ASSETS
  59. '   ===========
  60.  
  61. '   Images
  62. '
  63. img(0) = _LoadImage("data/plane1.png")
  64. img(1) = _LoadImage("data/plane2.png")
  65. img(2) = _LoadImage("data/plane3.png")
  66. img(3) = _LoadImage("data/bullet.png")
  67. img(4) = _LoadImage("data/sea.png")
  68. img(5) = _LoadImage("data/enemy1.png")
  69. img(6) = _LoadImage("data/enemy2.png")
  70. img(7) = _LoadImage("data/enemy3.png")
  71. img(8) = _LoadImage("data/explosion1.png")
  72. img(9) = _LoadImage("data/explosion2.png")
  73. img(10) = _LoadImage("data/explosion3.png")
  74. img(11) = _LoadImage("data/explosion4.png")
  75. img(12) = _LoadImage("data/explosion5.png")
  76. img(13) = _LoadImage("data/explosion6.png")
  77. img(14) = _LoadImage("data/bigexplosion1.png")
  78. img(15) = _LoadImage("data/bigexplosion2.png")
  79. img(16) = _LoadImage("data/bigexplosion3.png")
  80. img(17) = _LoadImage("data/bigexplosion4.png")
  81. img(18) = _LoadImage("data/bigexplosion5.png")
  82. img(19) = _LoadImage("data/bigexplosion6.png")
  83. img(20) = _LoadImage("data/bigexplosion7.png")
  84. img(21) = _LoadImage("data/island1.png")
  85. img(22) = _LoadImage("data/island2.png")
  86. img(23) = _LoadImage("data/island3.png")
  87. img(24) = _LoadImage("data/superenemy1.png")
  88. img(25) = _LoadImage("data/superenemy2.png")
  89. img(26) = _LoadImage("data/superenemy3.png")
  90. img(27) = _LoadImage("data/enemybullet.png")
  91. img(28) = _LoadImage("data/menu.png")
  92. img(29) = _LoadImage("data/arrow.png")
  93. img(30) = _LoadImage("data/biglogo.png")
  94. img(31) = _LoadImage("data/life.png")
  95. img(32) = _LoadImage("data/logo.png")
  96. img(33) = _LoadImage("data/paused.png")
  97. img(34) = _LoadImage("data/gameover.png")
  98.  
  99. '   Sounds
  100. '
  101. shoot = _SndOpen("data/shoot.wav")
  102. explosion = _SndOpen("data/explosion.wav")
  103. collide = _SndOpen("data/collide.wav")
  104. plane_shot = _SndOpen("data/plane_shot.wav")
  105.  
  106. '   Fonts
  107. '
  108. arial14 = _LoadFont("data/arial.ttf", 14)
  109. War60 = _LoadFont("data/armalite.ttf", 60)
  110. War12 = _LoadFont("data/armalite.ttf", 12)
  112.  
  113. '   TILING THE BACKGROUND
  114. '   =====================
  115. 'backgroundX((640 / 32) + 1)
  116. 'backgroundY((480 / 32) + 1)
  117. 'transitionX((640 / 32) + 1)
  118. 'transitionY((480 / 32) + 1)
  119. For i = 0 To 640 / 32
  120.     backgroundX(i) = i * 32
  121.     transitionX(i) = i * 32
  122.     For a = 0 To 480 / 32
  123.         backgroundY(a) = a * 32
  124.         transitionY(a) = a * 32
  125.     Next
  127.  
  128.  
  129. '   A GAME MENU TO START WITH
  130. '   =========================
  131. menu = 0
  132. Color _RGB32(150, 0, 0)
  134.     Cls
  135.  
  136.  
  137.     '_PutImage ((640 - width30) / 2, 5), img(30)
  138.     _PutImage , img(30) ' full screen image
  139.  
  140.     If menu = 0 Then
  141.         _Font War60
  142.         Color _RGB32(255, 255, 255)
  143.         centerText 0, _Width, ymax * .6, "Play Game"
  144.         Color _RGB32(70, 0, 0)
  145.         _Font War12
  146.         centerText 0, _Width, ymax * .6 + 70, "Quit"
  147.     Else
  148.         _Font War12
  149.         Color _RGB32(70, 0, 0)
  150.         centerText 0, _Width, ymax * .6, "Play Game"
  151.         _Font War60
  152.         Color _RGB32(255, 255, 255)
  153.         centerText 0, _Width, ymax * .6 + 70, "Quit"
  154.     End If
  155.  
  156.     '_PutImage ((640 - width28) / 2, height30 + 30), img(28)
  157.     '_PutImage (((640 - width28) / 2) - width29, height30 + (30 + menu * 19)), img(29)
  158.     k& = _KeyHit
  159.     If k& = (18432) Then
  160.         menu = menu - 1
  161.     End If
  162.     If k& = (20480) Then
  163.         menu = menu + 1
  164.     End If
  165.  
  166.     If menu > 1 Then
  167.         menu = 0
  168.     End If
  169.     If menu < 0 Then
  170.         menu = 1
  171.     End If
  172.  
  173.     If _KeyDown(32) And menu = 0 Then
  174.         Exit Do
  175.     End If
  176.     If _KeyDown(32) And menu = 1 Then
  177.         For i = 0 To 640 / 32
  178.             For z = 0 To 480 / 32
  179.                 _PutImage (transitionX(i), transitionY(z)), img(4)
  180.                 _Display
  181.                 _Limit 300
  182.             Next
  183.         Next
  184.         _PutImage (0, 0), img(34)
  185.         _Display
  186.         _Delay 1
  187.         System: 'ExitGame()
  188.     End If
  189.     _Display
  190.     _Limit 20
  192.  
  193. _Font arial14
  194. For i = 0 To 640 / 32
  195.     For z = 0 To 480 / 32
  196.         _PutImage (transitionX(i), transitionY(z)), img(4)
  197.         _Display
  198.         _Delay 0.01
  199.     Next
  201.  
  202. '   INITIALIZING VARIABLES
  203. '   =================================
  204. nBullets = 100
  205. Type bullet
  206.     As Single x, y, dx, dy, active
  208. ReDim bullets(1 To nBullets) As bullet
  209.  
  210. frame = 0
  211. explo_frame = 0
  212. bigexplo_frame = 0
  213. bigexplox = -70
  214. bigexploy = -70
  215. explo2_frame = 0
  216. speed = 6
  217. scrollspeed = 1
  218. planex = 320
  219. planey = 480 - 128
  220. enemyshot(0) = 0
  221. enemyshot(1) = 0
  222. shot = 0
  223. explox = -30
  224. exploy = -30
  225. explo2x = -30
  226. explo2y = -30
  227. score = 0
  228. lives = 3
  229. health = 100
  230. bullseye = 1
  231. shots_fired = 1
  232. bigexploactive = 0
  233.  
  234.  
  235. '   SETTING THE POSITIONS OF THE ENEMY PLANES
  236. '   =========================================
  237. For i = 0 To 4
  238.     enemyX(i) = Int(Rnd * 608)
  239.     enemyY(i) = 0 - Int(Rnd * 480) - 32
  241. For i = 0 To 1
  242.     superenemyX(i) = Int(Rnd * 608)
  243.     superenemyY(i) = 0 - Int(Rnd * 480) - 32
  244.     enemybulletX(i) = superenemyX(i) + 13
  245.     enemybulletY(i) = superenemyY(i) + 17
  247.  
  248. '   SETTING THE POSITIONS AND STARTING IMAGES OF THE ISLANDS
  249. '   ========================================================
  250. For i = 0 To 2
  251.     islandX(i) = Int(Rnd * 576)
  252.     islandY(i) = 0 - Int(Rnd * 480)
  253.     islandImage(i) = img(i + 21)
  255.  
  256. '   THE 'ACTUAL' GAME LOOP
  257. '   ======================
  259.     If quit = 1 Then
  260.         For i = 0 To 640 / 32
  261.             For z = 0 To 480 / 32
  262.                 _PutImage (transitionX(i), transitionY(z)), img(4)
  263.                 _Display
  264.  
  265.             Next
  266.         Next
  267.         _PutImage (0, 0), img(34)
  268.         _Display
  269.         _Delay 1
  270.         Exit Do
  271.     End If
  272.  
  273.     '   CLEARING THE SCREEN
  274.     '   ===================
  275.     Cls
  276.  
  277.     '   MOVING THE PLAYER WITH THE ARROW KEYS
  278.     '   =====================================
  279.     '   OH, AND SHOOTING WITH THE SPACEBAR
  280.     '   ==================================
  281.     If _KeyDown(27) Then
  282.         quit = 1
  283.     End If
  284.     If _KeyDown(18432) Then
  285.         planey = planey - speed
  286.     End If
  287.     If _KeyDown(20480) Then
  288.         planey = planey + 4
  289.     End If
  290.     If _KeyDown(19200) Then
  291.         planex = planex - speed
  292.     End If
  293.     If _KeyDown(19712) Then
  294.         planex = planex + speed
  295.     End If
  296.     If _KeyDown(32) Then
  297.         ' find inactive bullet
  298.         If Timer - lastFire > .4 Then
  299.             For i = 1 To nBullets
  300.                 If bullets(i).active = 0 Then
  301.                     bullets(i).x = planex + 27 ' 17
  302.                     bullets(i).y = planey + 5
  303.                     bullets(i).active = -1
  304.                     _SndPlay (shoot)
  305.                     shots_fired = shots_fired + 1
  306.                     lastFire = Timer(.001)
  307.                     Exit For
  308.                 End If
  309.             Next
  310.         End If
  311.     End If
  312.  
  313.     '   MOVING THE ENEMY PLANES
  314.     '   =======================
  315.     For z = 0 To 4
  316.         If enemyY(z) > 480 Then
  317.             enemyX(z) = Int(Rnd * 608)
  318.             enemyY(z) = 0 - Int(Rnd * 480)
  319.         Else
  320.             enemyY(z) = enemyY(z) + speed
  321.         End If
  322.     Next
  323.     For z = 0 To 1
  324.         If superenemyY(z) > 480 Then
  325.             superenemyX(z) = Int(Rnd * 608)
  326.             superenemyY(z) = 0 - Int(Rnd * 480)
  327.         Else
  328.             superenemyY(z) = superenemyY(z) + speed
  329.         End If
  330.     Next
  331.  
  332.     '   MOVING THE ISLANDS
  333.     '   ==================
  334.     For z = 0 To 2
  335.         If islandY(z) > 480 Then
  336.             islandX(z) = Int(Rnd * 576)
  337.             islandY(z) = 0 - Int(Rnd * 480)
  338.             islandImage(z) = img(Int(Rnd * 3) + 21)
  339.         Else
  340.             islandY(z) = islandY(z) + 3
  341.         End If
  342.     Next
  343.  
  344.     '   CHECKING WHEN WE BEAT OR BEING BEATEN
  345.     '   =====================================
  346.     For t = 0 To 4
  347.         '   Collision with enemy?
  348.         collision planex, planey, width0, height0, enemyX(t), enemyY(t), width5, height5
  349.         If hit = 1 Then
  350.             'collision(r1x, r1y, r1w, r1h, r2x, r2y, r2w, r2h)
  351.             If explox > 0 Then
  352.                 explo2x = enemyX(t)
  353.                 explo2y = enemyY(t)
  354.             Else
  355.                 explox = enemyX(t)
  356.                 exploy = enemyY(t)
  357.             End If
  358.             _SndPlay (explosion)
  359.             enemyX(t) = Int(Rnd * 608)
  360.             enemyY(t) = 0 - Int(Rnd * 480)
  361.             health = health - 25
  362.             If health <= 0 Then
  363.                 bigexploactive = 1
  364.                 bigexplox = planex
  365.                 bigexploy = planey
  366.                 planex = -70
  367.                 planey = -70
  368.             End If
  369.             enemyX(t) = Int(Rnd * 608)
  370.             enemyY(t) = 0 - Int(Rnd * 480)
  371.         End If
  372.  
  373.  
  374.         'If shot = 1 Then
  375.         For i = 1 To nBullets
  376.             '   Collision with player bullet and enemy
  377.             collision bullets(i).x, bullets(i).y, width3, height3, enemyX(t), enemyY(t), width5, height5
  378.             If hit = 1 Then
  379.                 If explox > 0 Then
  380.                     explo2x = enemyX(t)
  381.                     explo2y = enemyY(t)
  382.                 Else
  383.                     explox = enemyX(t)
  384.                     exploy = enemyY(t)
  385.                 End If
  386.                 _SndPlay (explosion)
  387.                 enemyX(t) = Int(Rnd * 608)
  388.                 enemyY(t) = 0 - Int(Rnd * 480)
  389.                 bullets(i).x = -30
  390.                 bullets(i).y = -30
  391.                 bullets(i).active = 0
  392.                 score = score + 50
  393.                 bullseye = bullseye + 1
  394.             End If
  395.             'End If
  396.         Next
  397.     Next
  398.     For t = 0 To 1
  399.         '   Collision with player and superenemy  <<==========
  400.         collision planex, planey, width0, height0, superenemyX(t), superenemyY(t), width5, height5
  401.         If hit = 1 Then
  402.             If explox > 0 Then
  403.                 explo2x = superenemyX(t) ' <<======
  404.                 explo2y = superenemyY(t) ' <<======
  405.             Else
  406.                 explox = enemyX(t)
  407.                 exploy = enemyY(t)
  408.             End If
  409.             _SndPlay (explosion)
  410.             superenemyX(t) = Int(Rnd * 608) ' <<======
  411.             superenemyY(t) = 0 - Int(Rnd * 480) ' <<======
  412.             health = health - 25
  413.             If health <= 0 Then
  414.                 bigexploactive = 1
  415.                 bigexplox = planex
  416.                 bigexploy = planey
  417.                 planex = -70
  418.                 planey = -70
  419.             End If
  420.             superenemyX(t) = Int(Rnd * 608) ' <<======
  421.             superenemyY(t) = 0 - Int(Rnd * 480) ' <<======
  422.         End If
  423.  
  424.  
  425.         '   Collision with player bullet and superenemy
  426.         For i = 1 To nBullets
  427.             collision bullets(i).x, bullets(i).y, width3, height3, superenemyX(t), superenemyY(t), width5, height5
  428.             If hit = 1 Then
  429.                 If explox > 0 Then
  430.                     explo2x = superenemyX(t)
  431.                     explo2y = superenemyY(t)
  432.                 Else
  433.                     explox = superenemyX(t)
  434.                     exploy = superenemyY(t)
  435.                 End If
  436.                 _SndPlay (explosion)
  437.                 superenemyX(t) = Int(Rnd * 608)
  438.                 superenemyY(t) = 0 - Int(Rnd * 480)
  439.                 bullets(i).x = -30
  440.                 bullets(i).y = -30
  441.                 bullets(i).active = 0
  442.                 score = score + 100
  443.                 bullseye = bullseye + 1
  444.             End If
  445.         Next
  446.     Next
  447.     For t = 0 To 1
  448.         '   Collision with player and enemy bullet
  449.         If enemyshot(t) = 1 Then
  450.             collision planex, planey, width0, height0, enemybulletX(t), enemybulletY(t), width27, height27
  451.             If hit = 1 Then
  452.                 health = health - 10
  453.                 If health <= 0 Then
  454.                     bigexploactive = 1
  455.                     bigexplox = planex
  456.                     bigexploy = planey
  457.                     enemybulletX(t) = -30 'had players bullets here!!!
  458.                     enemybulletY(t) = -30
  459.                 End If
  460.                 _SndPlay (explosion)
  461.                 If explox > 0 And explox < 640 Then
  462.                     explox2 = enemybulletX(t)
  463.                     exploy2 = enemybulletY(t)
  464.                 Else
  465.                     explox = enemybulletX(t)
  466.                     exploy = enemybulletY(t)
  467.                 End If
  468.                 enemybulletX(t) = superenemyX(t) + 14 '1
  469.                 enemybulletY(t) = superenemyY(t) + 17 '7
  470.                 enemyshot(t) = 0
  471.             End If
  472.         End If
  473.     Next
  474.  
  475.     '   FLYING OVER THE ENDLESSLY SCROLLING SEA
  476.     '   =======================================
  477.     For w = 0 To 15
  478.         backgroundY(w) = backgroundY(w) + 3
  479.         If backgroundY(w) > 480 Then
  480.             backgroundY(w) = backgroundY(w) - 512
  481.         End If
  482.         For q = 0 To 19
  483.             _PutImage (backgroundX(q), backgroundY(w)), img(4)
  484.         Next
  485.     Next
  486.  
  487.     '   WHICH LOOKS DULL WITHOUT ISLANDS
  488.     '   ================================
  489.     For o = 0 To 2
  490.         _PutImage (islandX(o), islandY(o)), islandImage(o)
  491.     Next
  492.  
  493.     '   KEEPING OUR PLANE IN THE SCREEN AND DISPLAY IT
  494.     '   ==============================================
  495.     frame = frame + 1
  496.     If frame > 2 Then
  497.         frame = 0
  498.     End If
  499.     If planex < 0 And bigexploactive = 0 Then
  500.         planex = 0
  501.     End If
  502.     If planey < 0 And bigexploactive = 0 Then
  503.         planey = 0
  504.     End If
  505.     If planex + width0 > 640 Then
  506.         planex = 640 - width0
  507.     End If
  508.     If planey + height0 > 480 - 64 Then
  509.         planey = 480 - height0 - 64
  510.     End If
  511.     _PutImage (planex, planey), img(frame)
  512.  
  513.     '   WE HAVE TO SEE WHAT WE ARE FIGHTING
  514.     '   ===================================
  515.     For x = 0 To 4
  516.         _PutImage (enemyX(x), enemyY(x)), img(frame + 5)
  517.     Next
  518.     For i = 0 To 1
  519.         If enemyshot(i) = 0 Then
  520.             decision(i) = Int(Rnd * 199)
  521.         End If
  522.         If decision(i) = 9 Then
  523.             If enemybulletY(i) < 480 Then
  524.                 enemybulletY(i) = enemybulletY(i) + 10
  525.                 enemyshot(i) = 1
  526.             Else
  527.                 enemybulletX(i) = superenemyX(i) + 14 '1
  528.                 enemybulletY(i) = superenemyY(i) + 17 '7
  529.                 enemyshot(i) = 0
  530.             End If
  531.         Else
  532.             enemybulletX(i) = superenemyX(i) + 14 '1
  533.             enemybulletY(i) = superenemyY(i) + 17 '7
  534.             enemyshot(i) = 0
  535.         End If
  536.         If superenemyY(i) > 0 Then
  537.             _PutImage (enemybulletX(i), enemybulletY(i)), img(27)
  538.         End If
  539.     Next
  540.     For x = 0 To 1
  541.         _PutImage (superenemyX(x), superenemyY(x)), img(frame + 24)
  542.     Next
  543.  
  544.     '   AND WITH WHAT
  545.     '   =============
  546.     For j = 1 To nBullets
  547.         If bullets(j).y > 0 And bullets(j).active Then
  548.             bullets(j).y = bullets(j).y - speed * 2
  549.             _PutImage (bullets(j).x, bullets(j).y), img(3)
  550.         Else
  551.             bullets(j).x = -30
  552.             bullets(j).y = -30
  553.             bullets(j).active = 0
  554.         End If
  555.     Next
  556.  
  557.     '   A NICE EXPLOSION
  558.     '   ================
  559.     If explo_frame < 5 And explox > 0 Then
  560.         explo_frame = explo_frame + 1
  561.         _PutImage (explox, exploy), img(explo_frame + 8)
  562.     Else
  563.         explo_frame = 0
  564.         explox = -30
  565.         exploy = -30
  566.     End If
  567.  
  568.     '   A SECOND NICE EXPLOSION
  569.     '   =======================
  570.     If explo2_frame < 5 And explo2x > 0 Then
  571.         explo2_frame = explo2_frame + 1
  572.         _PutImage (explo2x, explo2y), img(explo2_frame + 8)
  573.     Else
  574.         explo2_frame = 0
  575.         explo2x = -30
  576.         explo2y = -30
  577.     End If
  578.  
  579.  
  580.     '   A BIGGER EXPLOSION
  581.     '   ==================
  582.     If bigexploactive = 1 Then
  583.         For s = 0 To 4
  584.             enemyX(s) = Int(Rnd * 608)
  585.             enemyY(s) = 0 - Int(Rnd * 480)
  586.         Next
  587.         For s = 0 To 1
  588.             superenemyX(s) = Int(Rnd * 608)
  589.             superenemyY(s) = 0 - Int(Rnd * 480)
  590.         Next
  591.     End If
  592.     If bigexplox > 0 And bigexplox < 640 Then
  593.         bigexplo_frame = bigexplo_frame + 1
  594.     End If
  595.     If bigexplo_frame > 6 Then
  596.         bigexploactive = 0
  597.         bigexplo_frame = 0
  598.         bigexplox = -70
  599.         bigexploy = -70
  600.         lives = lives - 1
  601.         planex = 320
  602.         planey = 480 - 128
  603.         health = 100
  604.     End If
  605.     _PutImage (bigexplox, bigexploy), img(bigexplo_frame + 14)
  606.  
  607.     '   INFORMATION PANEL
  608.     '   =================
  609.     Line (0, 480 - 63)-Step(640, 63), _RGB32(220, 220, 220), BF
  610.     Line (5, 480 - 58)-Step(635, 58), _RGB32(180, 180, 180), BF
  611.     Line (5, 480 - 58)-Step(630, 58), _RGB32(120, 120, 120), BF
  612.     Line (6, 480 - 22)-Step(103, 12), _RGB32(0, 0, 255), B
  613.     Line (7, 480 - 21)-Step(100, 10), _RGB32(0, 0, 0), B
  614.     c = 143
  615.     For z = 1 To 10
  616.         Line (7, 480 - 22 + z)-(7 + health, 480 - 22 + z), _RGB32(255, c, 0)
  617.         If z > 5 Then
  618.             c = c - 44
  619.         Else
  620.             c = c + 44
  621.         End If
  622.     Next
  623.     _Font arial14
  624.     Color _RGB32(0, 0, 0), trans
  625.     _PrintString (5, 480 - 58), "Score: " + Str$(score)
  626.     _PrintString (5, 480 - 48), "Accuracy: " + Str$((bullseye / shots_fired) * 100) + "%"
  627.     For i = 1 To lives
  628.         _PutImage (120 + i * 32, 480 - 32), img(31)
  629.     Next
  630.     _PutImage (640 - width32, 480 - 58), img(32)
  631.  
  632.     '   IF ALL LIVES ARE GONE, THEN IT`S GAME OVER
  633.     '   =========================================
  634.     If lives < 0 Then
  635.         _PutImage (0, 0), img(34)
  636.         _Display
  637.         _Delay 1
  638.         System
  639.     End If
  640.  
  641.     '   DRAWING EVERYTHNG AND WAITING
  642.     '   =============================
  643.     '   AND PAUSING THE GAME IF HIS MAJESTY WANTS SO
  644.     '   ============================================
  645.     If InKey$ = "p" Or InKey$ = "P" Then
  646.         _PutImage (0, 0), img(33)
  647.         _Display
  648.         While InKey$ = "": Wend
  649.     End If
  650.  
  651.     _Limit 30
  652.     _Display
  654.  
  656.  
  657.  
  658.  
  659.  
  660. '=======================================================
  661. Sub collision (r1x, r1y, r1w, r1h, r2x, r2y, r2w, r2h)
  662.     If (r1x + r1w >= r2x And r1x <= r2x + r2w And r1y + r1h >= r2y And r1y <= r2y + r2h) Then
  663.         hit = 1
  664.     Else
  665.         hit = 0
  666.     End If
  668.  
  669. Sub centerText (x1, x2, midy, s$) ' ' if you want to center fit a string between two goal posts x1, and x2
  670.     _PrintString ((x1 + x2) / 2 - _PrintWidth(s$) / 2, midy - _FontHeight(_Font) / 2), s$
  672.  
  673.  
Title: Re: 1945
Post by: bplus on December 07, 2021, 11:42:48 pm
Ah I see it, shouldn't 406 and 407 be changed also to SuperEnemies?
Title: Re: 1945
Post by: johnno56 on December 07, 2021, 11:58:34 pm
Well spotted. Remind me to give you a Gold Star as you move to the top of the class.... lol
Title: Re: 1945
Post by: bplus on December 08, 2021, 12:01:23 am
Yeah give yourself one too, these things so easy to overlook.

Ding dong, the glitch is dead!
Title: Re: 1945
Post by: johnno56 on December 08, 2021, 12:06:16 am
What was happening was that the Super Enemy would continue to move 'through' the player. Subtracting 25% health through every cycle. The program, detecting that the health has dropped below zero, resets all the 'enemy' and the player. Instead of resetting only the Super Enemy.

But what surprises me, is that, this existed in the original Naalaa version. I am no where near as clever as those guys yet I picked it up. Mind you, it took me ages to find it... lol

Anyway. Nuff said. Time for a coffee before I think about power ups...
Title: Re: 1945
Post by: johnno56 on December 08, 2021, 05:24:59 am
Bplus

Ok. I have simple health and ammo power/pick ups. How many rounds of ammo do you think is fair to start with and at what figure do you think the ammo should drop to before pickup and how many rounds should be added?

Rare pickups... Extra life; Bonus score; etc... anything else?

I was also toying with the idea of slightly increasing the speed of all enemy planes in relation to the score but keeping the power up speeds fixed on slow... Moo ha ha...

A high score table could be an option. That would mean a change to the main menu... and just after it has been fixed so well....
Title: Re: 1945
Post by: bplus on December 08, 2021, 08:24:54 am
Yeah I was thinking High Score Keeper also. I have some code for that and we can pop in the Player log-in at start pretty easily too.

Higher levels the enemy should start attacking the plane's position, Zero in on it so to speak!

Did you say you had ships and subs and bombs?
Title: Re: 1945
Post by: johnno56 on December 08, 2021, 04:32:29 pm
Ships; Subs; Bombs; Flying Fortresses; Torpedo Planes (obviously for the Ships and Subs) and a bunch of other stuff I have never seen before... lol

So, the short answer is , yes.

  [ This attachment cannot be displayed inline in 'Print Page' view ]  
Title: Re: 1945
Post by: johnno56 on December 11, 2021, 03:13:55 am
Ok. Here is a small update.

The game now includes power-ups for health and ammunition. After Health and Ammunition drop below a certain amount, the appropriate icon will "slowly" move down the screen. Icon 'must' be in contact with the player to register. If you have a better, or more efficient method, be my guest... Ignore the collection sound effects. I just grabbed what I had at hand... If you have a better set of sounds, I insist, that you replace them... lol

J

  [ This attachment cannot be displayed inline in 'Print Page' view ]  
Title: Re: 1945
Post by: bplus on December 11, 2021, 11:02:16 am
OK to tie shooting in with ammo status you need this:
Code: QB64: [Select]
  1.     If _KeyDown(32) Then
  2.         ' find inactive bullet
  3.         If Timer - lastFire > .4 And ammo > 0 Then   ' <<<< check if you have ammo before starting another bullet
  4.             For i = 1 To nBullets
  5.                 If bullets(i).active = 0 Then
  6.                     bullets(i).x = planex + 27 ' 17
  7.                     bullets(i).y = planey + 5
  8.                     bullets(i).active = -1
  9.                     _SndPlay (shoot)
  10.                     shots_fired = shots_fired + 1
  11.                     ammo = ammo - 1
  12.                     lastFire = Timer(.001)
  13.                     Exit For
  14.                 End If
  15.             Next
  16.         End If
  17.     End If
  18.  
Title: Re: 1945
Post by: bplus on December 11, 2021, 08:44:41 pm
I added Top Ten score keeper, very rudimentary but we can fix up if you like
Code: QB64: [Select]
  1. ' 1945qb translated by Johnno from Naalaa
  2. '2021-12-06 bplus mod splash screen / menu
  3. '2021-12-07 bplus give the players plane more than 1 bullet!
  4.  
  5. xmax = 640
  6. ymax = 480
  7. _Title "1945"
  8.  
  9. Screen _NewImage(xmax, ymax, 32)
  12.  
  13. '   ARRAYS
  14. Dim backgroundX(21)
  15. Dim backgroundY(16)
  16. Dim transitionX(21)
  17. Dim transitionY(16)
  18. Dim enemyX(5)
  19. Dim enemyY(5)
  20. Dim superenemyX(5)
  21. Dim superenemyY(5)
  22. Dim decision(2)
  23. Dim enemybulletX(2)
  24. Dim enemybulletY(2)
  25. Dim enemyshot(2)
  26. Dim islandImage(3)
  27. Dim islandX(3)
  28. Dim islandY(3)
  29. Dim img(60)
  30.  
  32.  
  34.  
  35. trans = _RGBA32(0, 0, 0, 0)
  36.  
  37. width0 = 65
  38. height0 = 65
  39. width3 = 9
  40. height3 = 19
  41. width5 = 32
  42. height5 = 32
  43. width27 = 5
  44. height27 = 5
  45. width28 = 94
  46. height28 = 31
  47. width29 = 6
  48. height29 = 11
  49. width30 = 278
  50. height30 = 141
  51. width32 = 115
  52. height32 = 58
  53.  
  54. width35 = 32
  55. height35 = 32
  56. width36 = 32
  57. height36 = 32
  58.  
  59. quit = 0
  60. dead = false
  61. hit = 0
  62. ammo = 300
  63.  
  64. repairActive = 0
  65. ammoActive = 0
  66.  
  67. '   LOAD ASSETS
  68. '   ===========
  69.  
  70. '   Images
  71. '
  72. img(0) = _LoadImage("data/plane1.png")
  73. img(1) = _LoadImage("data/plane2.png")
  74. img(2) = _LoadImage("data/plane3.png")
  75. img(3) = _LoadImage("data/bullet.png")
  76. img(4) = _LoadImage("data/sea.png")
  77. img(5) = _LoadImage("data/enemy1.png")
  78. img(6) = _LoadImage("data/enemy2.png")
  79. img(7) = _LoadImage("data/enemy3.png")
  80. img(8) = _LoadImage("data/explosion1.png")
  81. img(9) = _LoadImage("data/explosion2.png")
  82. img(10) = _LoadImage("data/explosion3.png")
  83. img(11) = _LoadImage("data/explosion4.png")
  84. img(12) = _LoadImage("data/explosion5.png")
  85. img(13) = _LoadImage("data/explosion6.png")
  86. img(14) = _LoadImage("data/bigexplosion1.png")
  87. img(15) = _LoadImage("data/bigexplosion2.png")
  88. img(16) = _LoadImage("data/bigexplosion3.png")
  89. img(17) = _LoadImage("data/bigexplosion4.png")
  90. img(18) = _LoadImage("data/bigexplosion5.png")
  91. img(19) = _LoadImage("data/bigexplosion6.png")
  92. img(20) = _LoadImage("data/bigexplosion7.png")
  93. img(21) = _LoadImage("data/island1.png")
  94. img(22) = _LoadImage("data/island2.png")
  95. img(23) = _LoadImage("data/island3.png")
  96. img(24) = _LoadImage("data/superenemy1.png")
  97. img(25) = _LoadImage("data/superenemy2.png")
  98. img(26) = _LoadImage("data/superenemy3.png")
  99. img(27) = _LoadImage("data/enemybullet.png")
  100. img(28) = _LoadImage("data/menu.png")
  101. img(29) = _LoadImage("data/arrow.png")
  102. img(30) = _LoadImage("data/biglogo.png")
  103. img(31) = _LoadImage("data/life.png")
  104. img(32) = _LoadImage("data/logo.png")
  105. img(33) = _LoadImage("data/paused.png")
  106. img(34) = _LoadImage("data/gameover.png")
  107.  
  108. '   Power ups
  109. img(35) = _LoadImage("data/repair.png") '   health
  110. img(36) = _LoadImage("data/ammo.png") '     ammunition
  111.  
  112. '   Sounds
  113. '
  114. shoot = _SndOpen("data/shoot.wav")
  115. explosion = _SndOpen("data/explosion.wav")
  116. collide = _SndOpen("data/collide.wav")
  117. plane_shot = _SndOpen("data/plane_shot.wav")
  118. pu_health = _SndOpen("data/health.wav")
  119. pu_ammo = _SndOpen("data/ammo.wav")
  120.  
  121. '   Fonts
  122. '
  123. arial14 = _LoadFont("data/arial.ttf", 14)
  124. War60 = _LoadFont("data/armalite.ttf", 60)
  125. War12 = _LoadFont("data/armalite.ttf", 12)
  127.  
  128. '   TILING THE BACKGROUND
  129. '   =====================
  130. 'backgroundX((640 / 32) + 1)
  131. 'backgroundY((480 / 32) + 1)
  132. 'transitionX((640 / 32) + 1)
  133. 'transitionY((480 / 32) + 1)
  134. For i = 0 To 640 / 32
  135.     backgroundX(i) = i * 32
  136.     transitionX(i) = i * 32
  137.     For a = 0 To 480 / 32
  138.         backgroundY(a) = a * 32
  139.         transitionY(a) = a * 32
  140.     Next
  142.  
  143.  
  144. '   A GAME MENU TO START WITH
  145. '   =========================
  146. menu = 0
  147. Color _RGB32(150, 0, 0)
  149.     Cls
  150.  
  151.  
  152.     '_PutImage ((640 - width30) / 2, 5), img(30)
  153.     _PutImage , img(30) ' full screen image
  154.  
  155.     If menu = 0 Then
  156.         _Font War60
  157.         Color _RGB32(255, 255, 255)
  158.         centerText 0, _Width, ymax * .6, "Play Game"
  159.         Color _RGB32(70, 0, 0)
  160.         _Font War12
  161.         centerText 0, _Width, ymax * .6 + 70, "Quit"
  162.     Else
  163.         _Font War12
  164.         Color _RGB32(70, 0, 0)
  165.         centerText 0, _Width, ymax * .6, "Play Game"
  166.         _Font War60
  167.         Color _RGB32(255, 255, 255)
  168.         centerText 0, _Width, ymax * .6 + 70, "Quit"
  169.     End If
  170.  
  171.     '_PutImage ((640 - width28) / 2, height30 + 30), img(28)
  172.     '_PutImage (((640 - width28) / 2) - width29, height30 + (30 + menu * 19)), img(29)
  173.     k& = _KeyHit
  174.     If k& = (18432) Then
  175.         menu = menu - 1
  176.     End If
  177.     If k& = (20480) Then
  178.         menu = menu + 1
  179.     End If
  180.  
  181.     If menu > 1 Then
  182.         menu = 0
  183.     End If
  184.     If menu < 0 Then
  185.         menu = 1
  186.     End If
  187.  
  188.     If _KeyDown(32) And menu = 0 Then
  189.         Exit Do
  190.     End If
  191.     If _KeyDown(32) And menu = 1 Then
  192.         For i = 0 To 640 / 32
  193.             For z = 0 To 480 / 32
  194.                 _PutImage (transitionX(i), transitionY(z)), img(4)
  195.                 _Display
  196.                 _Limit 300
  197.             Next
  198.         Next
  199.         _PutImage (0, 0), img(34)
  200.         _Display
  201.         _Delay 1
  202.         System 'ExitGame()
  203.     End If
  204.     _Display
  205.     _Limit 20
  207.  
  208. For i = 0 To 640 / 32
  209.     For z = 0 To 480 / 32
  210.         _PutImage (transitionX(i), transitionY(z)), img(4)
  211.         _Display
  212.         _Delay 0.01
  213.     Next
  215.  
  216. restart:
  217. _Font arial14
  218. '   INITIALIZING VARIABLES
  219. '   =================================
  220. nBullets = 100
  221. Type bullet
  222.     As Single x, y, active
  224. ReDim bullets(1 To nBullets) As bullet
  225.  
  226. frame = 0
  227. explo_frame = 0
  228. bigexplo_frame = 0
  229. bigexplox = -70
  230. bigexploy = -70
  231. explo2_frame = 0
  232. speed = 6
  233. scrollspeed = 1
  234. planex = 320
  235. planey = 480 - 128
  236. enemyshot(0) = 0
  237. enemyshot(1) = 0
  238. shot = 0
  239. explox = -30
  240. exploy = -30
  241. explo2x = -30
  242. explo2y = -30
  243. score = 0
  244. lives = 3
  245. health = 100
  246. bullseye = 1
  247. shots_fired = 1
  248. bigexploactive = 0
  249.  
  250.  
  251. '   SETTING THE POSITIONS OF THE ENEMY PLANES
  252. '   =========================================
  253. For i = 0 To 4
  254.     enemyX(i) = Int(Rnd * 608)
  255.     enemyY(i) = 0 - Int(Rnd * 480) - 32
  257. For i = 0 To 1
  258.     superenemyX(i) = Int(Rnd * 608)
  259.     superenemyY(i) = 0 - Int(Rnd * 480) - 32
  260.     enemybulletX(i) = superenemyX(i) + 13
  261.     enemybulletY(i) = superenemyY(i) + 17
  263.  
  264. '   SETTING THE POSITIONS AND STARTING IMAGES OF THE ISLANDS
  265. '   ========================================================
  266. For i = 0 To 2
  267.     islandX(i) = Int(Rnd * 576)
  268.     islandY(i) = 0 - Int(Rnd * 480)
  269.     islandImage(i) = img(i + 21)
  271.  
  272. '   SETUP POWER UPS
  273. '   ===============
  274. repairX = Int(Rnd * 608)
  275. repairY = 0 - Int(Rnd * 480)
  276. repairSpeed = 2
  277.  
  278. ammoX = Int(Rnd * 608)
  279. ammoY = 0 - Int(Rnd * 480)
  280. ammoSpeed = 2
  281.  
  282. '   THE 'ACTUAL' GAME LOOP
  283. '   ======================
  285.     If quit = 1 Then
  286.         For i = 0 To 640 / 32
  287.             For z = 0 To 480 / 32
  288.                 _PutImage (transitionX(i), transitionY(z)), img(4)
  289.                 _Display
  290.  
  291.             Next
  292.         Next
  293.         _PutImage (0, 0), img(34)
  294.         _Display
  295.         _Delay 1
  296.         Exit Do
  297.     End If
  298.  
  299.     '   CLEARING THE SCREEN
  300.     '   ===================
  301.     Cls
  302.  
  303.     '   MOVING THE PLAYER WITH THE ARROW KEYS
  304.     '   =====================================
  305.     '   OH, AND SHOOTING WITH THE SPACEBAR
  306.     '   ==================================
  307.     If _KeyDown(27) Then
  308.         End
  309.     End If
  310.     If _KeyDown(18432) Then
  311.         planey = planey - speed
  312.     End If
  313.     If _KeyDown(20480) Then
  314.         planey = planey + 4
  315.     End If
  316.     If _KeyDown(19200) Then
  317.         planex = planex - speed
  318.     End If
  319.     If _KeyDown(19712) Then
  320.         planex = planex + speed
  321.     End If
  322.     If _KeyDown(32) Then
  323.         ' find inactive bullet
  324.         If Timer - lastFire > .4 Then
  325.             For i = 1 To nBullets
  326.                 If bullets(i).active = 0 Then
  327.                     bullets(i).x = planex + 27 ' 17
  328.                     bullets(i).y = planey + 5
  329.                     bullets(i).active = -1
  330.                     _SndPlay (shoot)
  331.                     shots_fired = shots_fired + 1
  332.                     ammo = ammo - 1
  333.                     lastFire = Timer(.001)
  334.                     Exit For
  335.                 End If
  336.             Next
  337.         End If
  338.     End If
  339.  
  340.     '   MOVING THE ENEMY PLANES
  341.     '   =======================
  342.     For z = 0 To 4
  343.         If enemyY(z) > 480 Then
  344.             enemyX(z) = Int(Rnd * 608)
  345.             enemyY(z) = 0 - Int(Rnd * 480)
  346.         Else
  347.             enemyY(z) = enemyY(z) + speed
  348.         End If
  349.     Next
  350.     For z = 0 To 1
  351.         If superenemyY(z) > 480 Then
  352.             superenemyX(z) = Int(Rnd * 608)
  353.             superenemyY(z) = 0 - Int(Rnd * 480)
  354.         Else
  355.             superenemyY(z) = superenemyY(z) + speed
  356.         End If
  357.     Next
  358.  
  359.     '   MOVING THE ISLANDS
  360.     '   ==================
  361.     For z = 0 To 2
  362.         If islandY(z) > 480 Then
  363.             islandX(z) = Int(Rnd * 576)
  364.             islandY(z) = 0 - Int(Rnd * 480)
  365.             islandImage(z) = img(Int(Rnd * 3) + 21)
  366.         Else
  367.             islandY(z) = islandY(z) + 3
  368.         End If
  369.     Next
  370.  
  371.     '   CHECKING WHEN WE BEAT OR BEING BEATEN
  372.     '   =====================================
  373.     For t = 0 To 4
  374.         '   Collision with enemy?
  375.         collision planex, planey, width0, height0, enemyX(t), enemyY(t), width5, height5
  376.         If hit = 1 Then
  377.             'collision(r1x, r1y, r1w, r1h, r2x, r2y, r2w, r2h)
  378.             If explox > 0 Then
  379.                 explo2x = enemyX(t)
  380.                 explo2y = enemyY(t)
  381.             Else
  382.                 explox = enemyX(t)
  383.                 exploy = enemyY(t)
  384.             End If
  385.             _SndPlay (explosion)
  386.             enemyX(t) = Int(Rnd * 608)
  387.             enemyY(t) = 0 - Int(Rnd * 480)
  388.             health = health - 25
  389.             If health <= 0 Then
  390.                 bigexploactive = 1
  391.                 bigexplox = planex
  392.                 bigexploy = planey
  393.                 planex = -70
  394.                 planey = -70
  395.             End If
  396.             enemyX(t) = Int(Rnd * 608)
  397.             enemyY(t) = 0 - Int(Rnd * 480)
  398.         End If
  399.  
  400.  
  401.         'If shot = 1 Then
  402.         For i = 1 To nBullets
  403.             '   Collision with player bullet and enemy
  404.             collision bullets(i).x, bullets(i).y, width3, height3, enemyX(t), enemyY(t), width5, height5
  405.             If hit = 1 Then
  406.                 If explox > 0 Then
  407.                     explo2x = enemyX(t)
  408.                     explo2y = enemyY(t)
  409.                 Else
  410.                     explox = enemyX(t)
  411.                     exploy = enemyY(t)
  412.                 End If
  413.                 _SndPlay (explosion)
  414.                 enemyX(t) = Int(Rnd * 608)
  415.                 enemyY(t) = 0 - Int(Rnd * 480)
  416.                 bullets(i).x = -30
  417.                 bullets(i).y = -30
  418.                 bullets(i).active = 0
  419.                 score = score + 50
  420.                 bullseye = bullseye + 1
  421.             End If
  422.             'End If
  423.         Next
  424.     Next
  425.     For t = 0 To 1
  426.         '   Collision with player and superenemy
  427.         collision planex, planey, width0, height0, superenemyX(t), superenemyY(t), width5, height5
  428.         If hit = 1 Then
  429.             If explox > 0 Then
  430.                 explo2x = superenemyX(t)
  431.                 explo2y = superenemyY(t)
  432.             Else
  433.                 explox = superenemyX(t)
  434.                 exploy = superenemyY(t)
  435.             End If
  436.             _SndPlay (explosion)
  437.             superenemyX(t) = Int(Rnd * 608)
  438.             superenemyY(t) = 0 - Int(Rnd * 480)
  439.             health = health - 25
  440.             If health <= 0 Then
  441.                 bigexploactive = 1
  442.                 bigexplox = planex
  443.                 bigexploy = planey
  444.                 planex = -70
  445.                 planey = -70
  446.             End If
  447.             superenemyX(t) = Int(Rnd * 608)
  448.             superenemyY(t) = 0 - Int(Rnd * 480)
  449.         End If
  450.  
  451.  
  452.         '   Collision with player bullet and superenemy
  453.         For i = 1 To nBullets
  454.             collision bullets(i).x, bullets(i).y, width3, height3, superenemyX(t), superenemyY(t), width5, height5
  455.             If hit = 1 Then
  456.                 If explox > 0 Then
  457.                     explo2x = superenemyX(t)
  458.                     explo2y = superenemyY(t)
  459.                 Else
  460.                     explox = superenemyX(t)
  461.                     exploy = superenemyY(t)
  462.                 End If
  463.                 _SndPlay (explosion)
  464.                 superenemyX(t) = Int(Rnd * 608)
  465.                 superenemyY(t) = 0 - Int(Rnd * 480)
  466.                 bullets(i).x = -30
  467.                 bullets(i).y = -30
  468.                 bullets(i).active = 0
  469.                 score = score + 100
  470.                 bullseye = bullseye + 1
  471.             End If
  472.         Next
  473.     Next
  474.     For t = 0 To 1
  475.         '   Collision with player and enemy bullet
  476.         If enemyshot(t) = 1 Then
  477.             collision planex, planey, width0, height0, enemybulletX(t), enemybulletY(t), width27, height27
  478.             If hit = 1 Then
  479.                 health = health - 10
  480.                 If health <= 0 Then
  481.                     bigexploactive = 1
  482.                     bigexplox = planex
  483.                     bigexploy = planey
  484.                     enemybulletX(t) = -30 'had players bullets here!!!
  485.                     enemybulletY(t) = -30
  486.                 End If
  487.                 _SndPlay (explosion)
  488.                 If explox > 0 And explox < 640 Then
  489.                     explox2 = enemybulletX(t)
  490.                     exploy2 = enemybulletY(t)
  491.                 Else
  492.                     explox = enemybulletX(t)
  493.                     exploy = enemybulletY(t)
  494.                 End If
  495.                 enemybulletX(t) = superenemyX(t) + 14 '1
  496.                 enemybulletY(t) = superenemyY(t) + 17 '7
  497.                 enemyshot(t) = 0
  498.             End If
  499.         End If
  500.     Next
  501.  
  502.  
  503.     '   FLYING OVER THE ENDLESSLY SCROLLING SEA
  504.     '   =======================================
  505.     For w = 0 To 15
  506.         backgroundY(w) = backgroundY(w) + 3
  507.         If backgroundY(w) > 480 Then
  508.             backgroundY(w) = backgroundY(w) - 512
  509.         End If
  510.         For q = 0 To 19
  511.             _PutImage (backgroundX(q), backgroundY(w)), img(4)
  512.         Next
  513.     Next
  514.  
  515.     '   WHICH LOOKS DULL WITHOUT ISLANDS
  516.     '   ================================
  517.     For o = 0 To 2
  518.         _PutImage (islandX(o), islandY(o)), islandImage(o)
  519.     Next
  520.  
  521.     '   KEEPING OUR PLANE IN THE SCREEN AND DISPLAY IT
  522.     '   ==============================================
  523.     frame = frame + 1
  524.     If frame > 2 Then
  525.         frame = 0
  526.     End If
  527.     If planex < 0 And bigexploactive = 0 Then
  528.         planex = 0
  529.     End If
  530.     If planey < 0 And bigexploactive = 0 Then
  531.         planey = 0
  532.     End If
  533.     If planex + width0 > 640 Then
  534.         planex = 640 - width0
  535.     End If
  536.     If planey + height0 > 480 - 64 Then
  537.         planey = 480 - height0 - 64
  538.     End If
  539.     _PutImage (planex, planey), img(frame)
  540.  
  541.     '   WE HAVE TO SEE WHAT WE ARE FIGHTING
  542.     '   ===================================
  543.     For x = 0 To 4
  544.         _PutImage (enemyX(x), enemyY(x)), img(frame + 5)
  545.     Next
  546.     For i = 0 To 1
  547.         If enemyshot(i) = 0 Then
  548.             decision(i) = Int(Rnd * 199)
  549.         End If
  550.         If decision(i) = 9 Then
  551.             If enemybulletY(i) < 480 Then
  552.                 enemybulletY(i) = enemybulletY(i) + 10
  553.                 enemyshot(i) = 1
  554.             Else
  555.                 enemybulletX(i) = superenemyX(i) + 14 '1
  556.                 enemybulletY(i) = superenemyY(i) + 17 '7
  557.                 enemyshot(i) = 0
  558.             End If
  559.         Else
  560.             enemybulletX(i) = superenemyX(i) + 14 '1
  561.             enemybulletY(i) = superenemyY(i) + 17 '7
  562.             enemyshot(i) = 0
  563.         End If
  564.         If superenemyY(i) > 0 Then
  565.             _PutImage (enemybulletX(i), enemybulletY(i)), img(27)
  566.         End If
  567.     Next
  568.     For x = 0 To 1
  569.         _PutImage (superenemyX(x), superenemyY(x)), img(frame + 24)
  570.     Next
  571.  
  572.     '   AND WITH WHAT
  573.     '   =============
  574.     For j = 1 To nBullets
  575.         If bullets(j).y > 0 And bullets(j).active Then
  576.             bullets(j).y = bullets(j).y - speed * 2
  577.             _PutImage (bullets(j).x, bullets(j).y), img(3)
  578.         Else
  579.             bullets(j).x = -30
  580.             bullets(j).y = -30
  581.             bullets(j).active = 0
  582.         End If
  583.     Next
  584.  
  585.     '   A NICE EXPLOSION
  586.     '   ================
  587.     If explo_frame < 5 And explox > 0 Then
  588.         explo_frame = explo_frame + 1
  589.         _PutImage (explox, exploy), img(explo_frame + 8)
  590.     Else
  591.         explo_frame = 0
  592.         explox = -30
  593.         exploy = -30
  594.     End If
  595.  
  596.     '   A SECOND NICE EXPLOSION
  597.     '   =======================
  598.     If explo2_frame < 5 And explo2x > 0 Then
  599.         explo2_frame = explo2_frame + 1
  600.         _PutImage (explo2x, explo2y), img(explo2_frame + 8)
  601.     Else
  602.         explo2_frame = 0
  603.         explo2x = -30
  604.         explo2y = -30
  605.     End If
  606.  
  607.  
  608.     '   A BIGGER EXPLOSION
  609.     '   ==================
  610.     If bigexploactive = 1 Then
  611.         For s = 0 To 4
  612.             enemyX(s) = Int(Rnd * 608)
  613.             enemyY(s) = 0 - Int(Rnd * 480)
  614.         Next
  615.         For s = 0 To 1
  616.             superenemyX(s) = Int(Rnd * 608)
  617.             superenemyY(s) = 0 - Int(Rnd * 480)
  618.         Next
  619.     End If
  620.     If bigexplox > 0 And bigexplox < 640 Then
  621.         bigexplo_frame = bigexplo_frame + 1
  622.     End If
  623.     If bigexplo_frame > 6 Then
  624.         bigexploactive = 0
  625.         bigexplo_frame = 0
  626.         bigexplox = -70
  627.         bigexploy = -70
  628.         lives = lives - 1
  629.         planex = 320
  630.         planey = 480 - 128
  631.         health = 100
  632.     End If
  633.     _PutImage (bigexplox, bigexploy), img(bigexplo_frame + 14)
  634.  
  635.  
  636.     '   Power Ups
  637.  
  638.     '   HEALTH
  639.     '
  640.     If health < 80 Then
  641.         repairActive = 1
  642.     End If
  643.     If repairActive = 1 Then
  644.         _PutImage (repairX, repairY), img(35)
  645.         repairY = repairY + repairSpeed
  646.         If repairY > ymax Then
  647.             repairActive = 0
  648.             repairX = Int(Rnd * 608)
  649.             repairY = 0 - Int(Rnd * 480)
  650.         End If
  651.     End If
  652.     collision planex, planey, width0, height0, repairX, repairY, width35, height35
  653.     If hit = 1 Then
  654.         If health < 80 Then
  655.             health = health + 20
  656.             repairX = Int(Rnd * 608)
  657.             repairY = 0 - Int(Rnd * 480)
  658.             repairActive = 0
  659.             _SndPlay (pu_health)
  660.         End If
  661.     End If
  662.  
  663.  
  664.     '   AMMUNITION
  665.     '
  666.     If ammo < 290 Then
  667.         ammoActive = 1
  668.     End If
  669.     If ammoActive = 1 Then
  670.         _PutImage (ammoX, ammoY), img(36)
  671.         ammoY = ammoY + ammoSpeed
  672.         If ammoY > ymax Then
  673.             ammoActive = 0
  674.             ammoX = Int(Rnd * 608)
  675.             ammoY = 0 - Int(Rnd * 480)
  676.         End If
  677.     End If
  678.     collision planex, planey, width0, height0, ammoX, ammoY, width36, height36
  679.     If hit = 1 Then
  680.         If ammo < 290 Then
  681.             ammo = ammo + 10
  682.             ammoX = Int(Rnd * 608)
  683.             ammoY = 0 - Int(Rnd * 480)
  684.             ammoActive = 0
  685.             _SndPlay (pu_ammo)
  686.         End If
  687.     End If
  688.  
  689.  
  690.     '   INFORMATION PANEL
  691.     '   =================
  692.     Line (0, 480 - 63)-Step(640, 63), _RGB32(220, 220, 220), BF
  693.     Line (5, 480 - 58)-Step(635, 58), _RGB32(180, 180, 180), BF
  694.     Line (5, 480 - 58)-Step(630, 58), _RGB32(120, 120, 120), BF
  695.     Line (6, 480 - 22)-Step(103, 12), _RGB32(0, 0, 255), B
  696.     Line (7, 480 - 21)-Step(100, 10), _RGB32(0, 0, 0), B
  697.     c = 143
  698.     For z = 1 To 10
  699.         Line (7, 480 - 22 + z)-(7 + health, 480 - 22 + z), _RGB32(255, c, 0)
  700.         If z > 5 Then
  701.             c = c - 44
  702.         Else
  703.             c = c + 44
  704.         End If
  705.     Next
  706.     _Font arial14
  707.     Color _RGB32(0, 0, 0), trans
  708.     _PrintString (5, 480 - 58), "Score: " + Str$(score)
  709.     _PrintString (5, 480 - 48), "Accuracy: " + Str$((bullseye / shots_fired) * 100) + "%"
  710.     _PrintString (300, 480 - 48), "Ammo: " + Str$(ammo)
  711.     For i = 1 To lives
  712.         _PutImage (120 + i * 32, 480 - 32), img(31)
  713.     Next
  714.     _PutImage (640 - width32, 480 - 58), img(32)
  715.  
  716.     '   IF ALL LIVES ARE GONE, THEN IT`S GAME OVER
  717.     '   =========================================
  718.     If lives < 0 Then
  719.         _PutImage (0, 0), img(34)
  720.         _Display
  721.         _Delay 1
  722.         Exit Do
  723.     End If
  724.  
  725.     '   DRAWING EVERYTHNG AND WAITING
  726.     '   =============================
  727.     '   AND PAUSING THE GAME IF HIS MAJESTY WANTS SO
  728.     '   ============================================
  729.     If InKey$ = "p" Or InKey$ = "P" Then
  730.         _PutImage (0, 0), img(33)
  731.         _Display
  732.         While InKey$ = "": Wend
  733.     End If
  734.  
  735.     _Limit 30
  736.     _Display
  738. goAgain$ = topTenGoAgain$(score)
  739. If Len(goAgain$) = 0 Then GoTo restart
  740.  
  741.  
  742. '=======================================================
  743. Sub collision (r1x, r1y, r1w, r1h, r2x, r2y, r2w, r2h)
  744.     If (r1x + r1w >= r2x And r1x <= r2x + r2w And r1y + r1h >= r2y And r1y <= r2y + r2h) Then
  745.         hit = 1
  746.     Else
  747.         hit = 0
  748.     End If
  750.  
  751. Sub centerText (x1, x2, midy, s$) ' ' if you want to center fit a string between two goal posts x1, and x2
  752.     _PrintString ((x1 + x2) / 2 - _PrintWidth(s$) / 2, midy - _FontHeight(_Font) / 2), s$
  754.  
  755. ' This FUNCTION creates a file in the same folder as your .bas source or .exe
  756. 'EDIT: 2019-07-29 change to FUNCTION to combine Top Ten update functions with Go Again reply.
  757. Function topTenGoAgain$ (compareScore As Integer)
  758.     Dim fName$, n As Integer, names$(1 To 10), scores(1 To 10), name$, score As Integer
  759.     Dim settleScore As Integer, i As Integer, dummy$
  761.     Color &HFFFFFFFF, &HFF000000
  762.  
  763.     fName$ = "Top 10 Scores for 1945.txt" '<<<  since this is toolbox code change this as needed for app
  764.     Cls: Print: Print "Your score was:"; compareScore: Print: Print "Top Ten Scorers and Scores:"
  765.     If _FileExists(fName$) Then
  766.         Open fName$ For Input As #1
  767.         While EOF(1) = 0 And n < 10
  768.             n = n + 1
  769.             Input #1, name$
  770.             Input #1, score
  771.             If compareScore >= score And settleScore = 0 Then
  772.                 Print "You have made the Top Ten!"
  773.                 Input "Type your name here: ", names$(n)
  774.                 scores(n) = compareScore
  775.                 settleScore = -1
  776.                 n = n + 1
  777.                 If n <= 10 Then names$(n) = name$: scores(n) = score
  778.             Else
  779.                 scores(n) = score: names$(n) = name$
  780.             End If
  781.         Wend
  782.         Close #1
  783.         If n < 10 And settleScore = 0 Then
  784.             Print "There is a slot open for your name and score."
  785.             Input "Enter your name here (nothing quits): ", name$
  786.             If name$ <> "" Then
  787.                 n = n + 1: names$(n) = name$: scores(n) = compareScore
  788.             Else
  789.                 System
  790.             End If
  791.         End If
  792.         Open fName$ For Output As #1
  793.         If n > 10 Then n = 10
  794.         For i = 1 To n
  795.             Print #1, names$(i): Print #1, scores(i)
  796.             Print i, names$(i), scores(i)
  797.         Next
  798.         Close #1
  799.     Else
  800.         Print "You are first into file!"
  801.         Input "Enter your name here (nothing quits):"; name$
  802.         If name$ = "" Then System
  803.         Open fName$ For Output As #1
  804.         Print #1, name$: Print #1, compareScore
  805.         Close #1
  806.     End If
  807.     Print: Input "Press Enter to play again, any + Enter to quit... "; dummy$
  808.     topTenGoAgain$ = dummy$
  810.  
  811.  
  812.  

I ran into that glitch again while testing code plus when you exit with End or System you just hang with a black screen until you hit a key.
Title: Re: 1945
Post by: johnno56 on December 12, 2021, 05:37:39 am
I ran into the same glitch.

I was trying to refine the 'hit boxes' of the images... Tested by drawing a box around all the sprites. Found some collision area were a little too generous. But, what I did notice, was the enemy bullets were showing up at the very top of the screen then vanished.

About line #564  "If superenemyY(i) > 0 then" was changed to "If superenemyY(i) > 0 and enemyshot(i) then"

I have played many times since and the glitch no longer appears. I do not know if the above fix has soled the problem or I was just extremely lucky by not repeating the condition that may have caused said glitch.

In refining the hit boxes, some data and images were modified.

J

  [ This attachment cannot be displayed inline in 'Print Page' view ]  
Title: Re: 1945
Post by: Aurel on December 12, 2021, 01:30:07 pm
hi johnno B++

I just download your zip and compile with v1.5
at first game not respond then i figured that is started without data folder
then i add data folder in same folder where is created exe and voila game start...
well ...looking strange at first because it is in full screen (i remember versions in windowed mode)
this one work very well...
Title: Re: 1945
Post by: bplus on December 12, 2021, 02:00:13 pm
Yikes glitch on first run of v5. The Health was -35 and our plane was gone and line on top had all kinds of flashes of planes displayed and gone. Moving left and right maybe up, down, I jiggled the thing onto next plane life and was able to continue game from there.
Title: Re: 1945
Post by: johnno56 on December 12, 2021, 02:27:52 pm
Aurel,

Good to know. Thank you.

Bplus,

I knew it! I just knew it!  Looks like it was blind luck on my part... Died on the first try? The second try?

I have been updating the rcbasic version as well... The only problem I had was the "rapid firing". RC recognises "Timer" but not "Timer(.001)". At the moment, RC, has "normal" shooting... but that's another story... Yes. Back to the updating of RC... No glitches whatsoever... That would indicate that my ability to convert Naalaa to QB is questionable at best. Back to the drawing board... *sigh*  So much for version 5....
Title: Re: 1945
Post by: bplus on December 12, 2021, 03:04:15 pm
@johnno56

I am wondering how things can continue when the health < 0, for several frames this continued. I suspect a simple little logic error or missed check somewhere.

For RC timer, if you can't get a timer below parts of a second, how about counting loops before allowing a bullet to be fired. ie fired a bullet, fired = 10 and fired =fired - 1 each loop if fired < 0 then another bullet allowed. I think I will try that now, today.

PS I worked the green Health Bar to show more 3D coloring of green, first get rid of red, 2nd start at 50 not 143 3rd increment colors by 50.

It's possible when set something off to side, things are still colliding with it. Should not be necessary to move things to the side but to check both objects are active before display or collision checks.
Title: Re: 1945
Post by: johnno56 on December 12, 2021, 03:53:46 pm
I have created an "ExitGame" routine (except for running out of lives - gotta keep the high scores...) and error trapping. Escaping from all other screens will exit the game.

I am not getting any negative values for health... "Several frames"? Probably why I did not see it... lol

Any improvements to the "Panel" would be great... The original did look a little, shall we say, spartan.

Moving objects "off to the side" is the direct result of the conversion. Poor excuse saying, "That is how the original was coded". Appreciate anything you can do to correct that.

Oh. I have also modified the ammo and health power-ups. As well as the normal reasons for dropping the power-ups, I have also included a random number to drop the power-ups. Not sure how that will effect the CPU... Not overly familiar with QB64 timer function to make it more efficient.

  [ This attachment cannot be displayed inline in 'Print Page' view ]  

ps: Let us hope you will last longer than one game... lol
Title: Re: 1945
Post by: bplus on December 12, 2021, 05:28:15 pm
Dang! you have v6 up, oh well working from v5 I did this:

Bullets off the timer now optional after 10 frames from last fired.
I have reworked much running everything under Option _Explicit. Removed 2 variables abandoned, DIM'd a million more and found a typo explox2 supposed to be explo2X. I reduced ammo to 100 same as max bullets that can be active and increased repairs to 50 because usually lose more trying to get repair!! I made bullet hits same loss as collision so if you hear 4 hits, you know goodbye plane:

 
Code: QB64: [Select]
  2. ' 1945qb translated by Johnno from Naalaa
  3. '2021-12-06 bplus mod splash screen / menu
  4. '2021-12-07 bplus give the players plane more than 1 bullet!
  5. '2021-12-11 bplus added Top Ten Score tracker combined with Go again function v4
  6. ' from v5 johnno's fixed collision rectangles
  7. '2021-12-12 bplus allows bullet if 10 frames have passed since last, fired, variable
  8. '2021-12-12 bplus review all variables under Option _Explicit and search
  9. ' removed quit, dead variables found typo explox2 supposed to be explo2x
  10. ' decreased ammo to 100 same as max active bullets
  11. ' increased health +50 because loose health getting to health st it's no help!!!
  12. ' made bullet hitting plane same as crashes -25, so you hear 4 hits on plane you know goodbye plane
  13.  
  14. Const xmax = 640, ymax = 480
  15. _Title "1945"
  16.  
  17. Screen _NewImage(xmax, ymax, 32)
  20.  
  21. '   ARRAYS
  22. Dim backgroundX(21)
  23. Dim backgroundY(16)
  24. Dim transitionX(21)
  25. Dim transitionY(16)
  26. Dim enemyX(5)
  27. Dim enemyY(5)
  28. Dim superenemyX(5)
  29. Dim superenemyY(5)
  30. Dim decision(2)
  31. Dim enemybulletX(2)
  32. Dim enemybulletY(2)
  33. Dim enemyshot(2)
  34. Dim islandImage(3)
  35. Dim islandX(3)
  36. Dim islandY(3)
  37. Dim img(60)
  38.  
  40.  
  42.  
  43. trans = _RGBA32(0, 0, 0, 0)
  44.  
  45.  
  46. Dim width0, height0, width3, height3, width5, height5, width27, height27, width28, height28, width29, height29
  47. Dim width30, height30, width32, height32, width35, height35, width36, height36, ammo, repairActive, ammoActive
  48.  
  49. width0 = 57
  50. height0 = 42
  51. width3 = 9
  52. height3 = 19
  53. width5 = 32
  54. height5 = 32
  55. width27 = 5
  56. height27 = 5
  57. width28 = 94
  58. height28 = 31
  59. width29 = 6
  60. height29 = 11
  61. width30 = 278
  62. height30 = 141
  63. width32 = 115
  64. height32 = 58
  65. width35 = 18
  66. height35 = 28
  67. width36 = 18
  68. height36 = 28
  69.  
  70. hit = 0
  71. ammo = 100
  72. repairActive = 0
  73. ammoActive = 0
  74.  
  75. '   LOAD ASSETS
  76. '   ===========
  77.  
  78. '   Images
  79. '
  80. img(0) = _LoadImage("data/plane1.png")
  81. img(1) = _LoadImage("data/plane2.png")
  82. img(2) = _LoadImage("data/plane3.png")
  83. img(3) = _LoadImage("data/bullet.png")
  84. img(4) = _LoadImage("data/sea.png")
  85. img(5) = _LoadImage("data/enemy1.png")
  86. img(6) = _LoadImage("data/enemy2.png")
  87. img(7) = _LoadImage("data/enemy3.png")
  88. img(8) = _LoadImage("data/explosion1.png")
  89. img(9) = _LoadImage("data/explosion2.png")
  90. img(10) = _LoadImage("data/explosion3.png")
  91. img(11) = _LoadImage("data/explosion4.png")
  92. img(12) = _LoadImage("data/explosion5.png")
  93. img(13) = _LoadImage("data/explosion6.png")
  94. img(14) = _LoadImage("data/bigexplosion1.png")
  95. img(15) = _LoadImage("data/bigexplosion2.png")
  96. img(16) = _LoadImage("data/bigexplosion3.png")
  97. img(17) = _LoadImage("data/bigexplosion4.png")
  98. img(18) = _LoadImage("data/bigexplosion5.png")
  99. img(19) = _LoadImage("data/bigexplosion6.png")
  100. img(20) = _LoadImage("data/bigexplosion7.png")
  101. img(21) = _LoadImage("data/island1.png")
  102. img(22) = _LoadImage("data/island2.png")
  103. img(23) = _LoadImage("data/island3.png")
  104. img(24) = _LoadImage("data/superenemy1.png")
  105. img(25) = _LoadImage("data/superenemy2.png")
  106. img(26) = _LoadImage("data/superenemy3.png")
  107. img(27) = _LoadImage("data/enemybullet.png")
  108. img(28) = _LoadImage("data/menu.png")
  109. img(29) = _LoadImage("data/arrow.png")
  110. img(30) = _LoadImage("data/biglogo.png")
  111. img(31) = _LoadImage("data/life.png")
  112. img(32) = _LoadImage("data/logo.png")
  113. img(33) = _LoadImage("data/paused.png")
  114. img(34) = _LoadImage("data/gameover.png")
  115.  
  116. '   Power ups
  117. img(35) = _LoadImage("data/repair.png") '   health
  118. img(36) = _LoadImage("data/ammo.png") '     ammunition
  119.  
  120. '   Sounds
  121. '
  122. Dim As Long shoot, explosion, collide, plane_shot, pu_health, pu_ammo
  123. shoot = _SndOpen("data/shoot.wav")
  124. explosion = _SndOpen("data/explosion.wav")
  125. collide = _SndOpen("data/collide.wav")
  126. plane_shot = _SndOpen("data/plane_shot.wav")
  127. pu_health = _SndOpen("data/health.wav")
  128. pu_ammo = _SndOpen("data/ammo.wav")
  129.  
  130. '   Fonts
  131. '
  132. Dim As Long arial14, war60, war12
  133. arial14 = _LoadFont("data/arial.ttf", 14)
  134. war60 = _LoadFont("data/armalite.ttf", 60)
  135. war12 = _LoadFont("data/armalite.ttf", 12)
  137.  
  138. Dim i, a
  139.  
  140.  
  141.  
  142. '   TILING THE BACKGROUND
  143. '   =====================
  144. 'backgroundX((640 / 32) + 1)
  145. 'backgroundY((480 / 32) + 1)
  146. 'transitionX((640 / 32) + 1)
  147. 'transitionY((480 / 32) + 1)
  148. For i = 0 To 640 / 32
  149.     backgroundX(i) = i * 32
  150.     transitionX(i) = i * 32
  151.     For a = 0 To 480 / 32
  152.         backgroundY(a) = a * 32
  153.         transitionY(a) = a * 32
  154.     Next
  156.  
  157.  
  158. '   A GAME MENU TO START WITH
  159. '   =========================
  160.  
  161. Dim menu, k&, z
  162.  
  163. menu = 0
  164. Color _RGB32(150, 0, 0)
  166.     Cls
  167.  
  168.  
  169.     '_PutImage ((640 - width30) / 2, 5), img(30)
  170.     _PutImage , img(30) ' full screen image
  171.  
  172.     If menu = 0 Then
  173.         _Font war60
  174.         Color _RGB32(255, 255, 255)
  175.         centerText 0, _Width, ymax * .6, "Play Game"
  176.         Color _RGB32(70, 0, 0)
  177.         _Font war12
  178.         centerText 0, _Width, ymax * .6 + 70, "Quit"
  179.     Else
  180.         _Font war12
  181.         Color _RGB32(70, 0, 0)
  182.         centerText 0, _Width, ymax * .6, "Play Game"
  183.         _Font war60
  184.         Color _RGB32(255, 255, 255)
  185.         centerText 0, _Width, ymax * .6 + 70, "Quit"
  186.     End If
  187.  
  188.     '_PutImage ((640 - width28) / 2, height30 + 30), img(28)
  189.     '_PutImage (((640 - width28) / 2) - width29, height30 + (30 + menu * 19)), img(29)
  190.     k& = _KeyHit
  191.     If k& = (18432) Then
  192.         menu = menu - 1
  193.     End If
  194.     If k& = (20480) Then
  195.         menu = menu + 1
  196.     End If
  197.  
  198.     If menu > 1 Then
  199.         menu = 0
  200.     End If
  201.     If menu < 0 Then
  202.         menu = 1
  203.     End If
  204.  
  205.     If _KeyDown(32) And menu = 0 Then
  206.         Exit Do
  207.     End If
  208.     If _KeyDown(32) And menu = 1 Then
  209.         For i = 0 To 640 / 32
  210.             For z = 0 To 480 / 32
  211.                 _PutImage (transitionX(i), transitionY(z)), img(4)
  212.                 _Display
  213.                 _Limit 300
  214.             Next
  215.         Next
  216.         _PutImage (0, 0), img(34)
  217.         _Display
  218.         _Delay 1
  219.         System 'ExitGame()
  220.     End If
  221.     _Display
  222.     _Limit 20
  224.  
  225. For i = 0 To 640 / 32
  226.     For z = 0 To 480 / 32
  227.         _PutImage (transitionX(i), transitionY(z)), img(4)
  228.         _Display
  229.         _Delay 0.01
  230.     Next
  232.  
  233. Dim nBullets, frame, explo_frame, bigexplo_frame, bigexploX, bigexploY, explo2_frame, speed, planeX, planeY, shot, exploX, exploY
  234. Dim explo2X, explo2Y, score, lives, health, bullseye, shots_fired, bigexploactive, repairX, repairY, repairSpeed, ammoX, ammoY, ammoSpeed
  235. Dim fired, t, w, q, o, x, j, s, c, goAgain$
  236. nBullets = 100
  237.  
  238. restart:
  239. _Font arial14
  240. '   INITIALIZING VARIABLES
  241. '   =================================
  242. ammo = 100  ' EDIT renew ammo
  243. Type bullet
  244.     As Single x, y, active
  246. ReDim bullets(1 To nBullets) As bullet
  247.  
  248. frame = 0
  249. explo_frame = 0
  250. bigexplo_frame = 0
  251. bigexploX = -70
  252. bigexploY = -70
  253. explo2_frame = 0
  254. speed = 6
  255. planeX = 320
  256. planeY = 480 - 128
  257. enemyshot(0) = 0
  258. enemyshot(1) = 0
  259. shot = 0
  260. exploX = -30
  261. exploY = -30
  262. explo2X = -30
  263. explo2Y = -30
  264. score = 0
  265. lives = 3
  266. health = 100
  267. bullseye = 1
  268. shots_fired = 1
  269. bigexploactive = 0
  270.  
  271.  
  272. '   SETTING THE POSITIONS OF THE ENEMY PLANES
  273. '   =========================================
  274. For i = 0 To 4
  275.     enemyX(i) = Int(Rnd * 608)
  276.     enemyY(i) = 0 - Int(Rnd * 480) - 32
  278. For i = 0 To 1
  279.     superenemyX(i) = Int(Rnd * 608)
  280.     superenemyY(i) = 0 - Int(Rnd * 480) - 32
  281.     enemybulletX(i) = superenemyX(i) + 13
  282.     enemybulletY(i) = superenemyY(i) + 17
  284.  
  285. '   SETTING THE POSITIONS AND STARTING IMAGES OF THE ISLANDS
  286. '   ========================================================
  287. For i = 0 To 2
  288.     islandX(i) = Int(Rnd * 576)
  289.     islandY(i) = 0 - Int(Rnd * 480)
  290.     islandImage(i) = img(i + 21)
  292.  
  293. '   SETUP POWER UPS
  294. '   ===============
  295. repairX = Int(Rnd * 608)
  296. repairY = 0 - Int(Rnd * 480)
  297. repairSpeed = 2
  298.  
  299. ammoX = Int(Rnd * 608)
  300. ammoY = 0 - Int(Rnd * 480)
  301. ammoSpeed = 2
  302.  
  303. '   THE 'ACTUAL' GAME LOOP
  304. '   ======================
  306.  
  307.     fired = fired - 1 ' >>>> use frame  count instead of timer to allow shooting a bullet
  308.  
  309.  
  310.     '   CLEARING THE SCREEN
  311.     '   ===================
  312.     Cls
  313.  
  314.     '   MOVING THE PLAYER WITH THE ARROW KEYS
  315.     '   =====================================
  316.     '   OH, AND SHOOTING WITH THE SPACEBAR
  317.     '   ==================================
  318.     If _KeyDown(27) Then
  319.         End
  320.     End If
  321.     If _KeyDown(18432) Then
  322.         planeY = planeY - speed
  323.     End If
  324.     If _KeyDown(20480) Then
  325.         planeY = planeY + 4
  326.     End If
  327.     If _KeyDown(19200) Then
  328.         planeX = planeX - speed
  329.     End If
  330.     If _KeyDown(19712) Then
  331.         planeX = planeX + speed
  332.     End If
  333.     If _KeyDown(32) Then
  334.         ' find inactive bullet
  335.         If fired < 0 And ammo > 0 Then
  336.             For i = 1 To nBullets
  337.                 If bullets(i).active = 0 Then
  338.                     bullets(i).x = planeX + 27 ' 17
  339.                     bullets(i).y = planeY + 5
  340.                     bullets(i).active = -1
  341.                     _SndPlay (shoot)
  342.                     shots_fired = shots_fired + 1
  343.                     ammo = ammo - 1
  344.                     fired = 10
  345.                     Exit For
  346.                 End If
  347.             Next
  348.         End If
  349.     End If
  350.  
  351.     '   MOVING THE ENEMY PLANES
  352.     '   =======================
  353.     For z = 0 To 4
  354.         If enemyY(z) > 480 Then
  355.             enemyX(z) = Int(Rnd * 608)
  356.             enemyY(z) = 0 - Int(Rnd * 480)
  357.         Else
  358.             enemyY(z) = enemyY(z) + speed
  359.         End If
  360.     Next
  361.     For z = 0 To 1
  362.         If superenemyY(z) > 480 Then
  363.             superenemyX(z) = Int(Rnd * 608)
  364.             superenemyY(z) = 0 - Int(Rnd * 480)
  365.         Else
  366.             superenemyY(z) = superenemyY(z) + speed
  367.         End If
  368.     Next
  369.  
  370.     '   MOVING THE ISLANDS
  371.     '   ==================
  372.     For z = 0 To 2
  373.         If islandY(z) > 480 Then
  374.             islandX(z) = Int(Rnd * 576)
  375.             islandY(z) = 0 - Int(Rnd * 480)
  376.             islandImage(z) = img(Int(Rnd * 3) + 21)
  377.         Else
  378.             islandY(z) = islandY(z) + 3
  379.         End If
  380.     Next
  381.  
  382.     '   CHECKING WHEN WE BEAT OR BEING BEATEN
  383.     '   =====================================
  384.     For t = 0 To 4
  385.         '   Collision with enemy?
  386.         collision planeX, planeY, width0, height0, enemyX(t), enemyY(t), width5, height5
  387.         If hit = 1 Then
  388.             'collision(r1x, r1y, r1w, r1h, r2x, r2y, r2w, r2h)
  389.             If exploX > 0 Then
  390.                 explo2X = enemyX(t)
  391.                 explo2Y = enemyY(t)
  392.             Else
  393.                 exploX = enemyX(t)
  394.                 exploY = enemyY(t)
  395.             End If
  396.             _SndPlay (explosion)
  397.             enemyX(t) = Int(Rnd * 608)
  398.             enemyY(t) = 0 - Int(Rnd * 480)
  399.             health = health - 25
  400.             If health <= 0 Then
  401.                 bigexploactive = 1
  402.                 bigexploX = planeX
  403.                 bigexploY = planeY
  404.                 planeX = -70
  405.                 planeY = -70
  406.             End If
  407.             enemyX(t) = Int(Rnd * 608)
  408.             enemyY(t) = 0 - Int(Rnd * 480)
  409.         End If
  410.  
  411.  
  412.         'If shot = 1 Then
  413.         For i = 1 To nBullets
  414.             '   Collision with player bullet and enemy
  415.             collision bullets(i).x, bullets(i).y, width3, height3, enemyX(t), enemyY(t), width5, height5
  416.             If hit = 1 Then
  417.                 If exploX > 0 Then
  418.                     explo2X = enemyX(t)
  419.                     explo2Y = enemyY(t)
  420.                 Else
  421.                     exploX = enemyX(t)
  422.                     exploY = enemyY(t)
  423.                 End If
  424.                 _SndPlay (explosion)
  425.                 enemyX(t) = Int(Rnd * 608)
  426.                 enemyY(t) = 0 - Int(Rnd * 480)
  427.                 bullets(i).x = -30
  428.                 bullets(i).y = -30
  429.                 bullets(i).active = 0
  430.                 score = score + 50
  431.                 bullseye = bullseye + 1
  432.             End If
  433.             'End If
  434.         Next
  435.     Next
  436.     For t = 0 To 1
  437.         '   Collision with player and superenemy
  438.         collision planeX, planeY, width0, height0, superenemyX(t), superenemyY(t), width5, height5
  439.         If hit = 1 Then
  440.             If exploX > 0 Then
  441.                 explo2X = superenemyX(t)
  442.                 explo2Y = superenemyY(t)
  443.             Else
  444.                 exploX = superenemyX(t)
  445.                 exploY = superenemyY(t)
  446.             End If
  447.             _SndPlay (explosion)
  448.             superenemyX(t) = Int(Rnd * 608)
  449.             superenemyY(t) = 0 - Int(Rnd * 480)
  450.             health = health - 25
  451.             If health <= 0 Then
  452.                 bigexploactive = 1
  453.                 bigexploX = planeX
  454.                 bigexploY = planeY
  455.                 planeX = -70
  456.                 planeY = -70
  457.             End If
  458.             superenemyX(t) = Int(Rnd * 608)
  459.             superenemyY(t) = 0 - Int(Rnd * 480)
  460.         End If
  461.  
  462.  
  463.         '   Collision with player bullet and superenemy
  464.         For i = 1 To nBullets
  465.             collision bullets(i).x, bullets(i).y, width3, height3, superenemyX(t), superenemyY(t), width5, height5
  466.             If hit = 1 Then
  467.                 If exploX > 0 Then
  468.                     explo2X = superenemyX(t)
  469.                     explo2Y = superenemyY(t)
  470.                 Else
  471.                     exploX = superenemyX(t)
  472.                     exploY = superenemyY(t)
  473.                 End If
  474.                 _SndPlay (explosion)
  475.                 superenemyX(t) = Int(Rnd * 608)
  476.                 superenemyY(t) = 0 - Int(Rnd * 480)
  477.                 bullets(i).x = -30
  478.                 bullets(i).y = -30
  479.                 bullets(i).active = 0
  480.                 score = score + 100
  481.                 bullseye = bullseye + 1
  482.             End If
  483.         Next
  484.     Next
  485.     For t = 0 To 1
  486.         '   Collision with player and enemy bullet
  487.         If enemyshot(t) = 1 Then
  488.             collision planeX, planeY, width0, height0, enemybulletX(t), enemybulletY(t), width27, height27
  489.             If hit = 1 Then
  490.                 health = health - 25
  491.                 If health <= 0 Then
  492.                     bigexploactive = 1
  493.                     bigexploX = planeX
  494.                     bigexploY = planeY
  495.                     enemybulletX(t) = -30 'had players bullets here!!!
  496.                     enemybulletY(t) = -30
  497.                 End If
  498.                 _SndPlay (explosion)
  499.                 If exploX > 0 And exploX < 640 Then
  500.                     explo2X = enemybulletX(t)
  501.                     explo2Y = enemybulletY(t)
  502.                 Else
  503.                     exploX = enemybulletX(t)
  504.                     exploY = enemybulletY(t)
  505.                 End If
  506.                 enemybulletX(t) = superenemyX(t) + 14 '1
  507.                 enemybulletY(t) = superenemyY(t) + 17 '7
  508.                 enemyshot(t) = 0
  509.             End If
  510.         End If
  511.     Next
  512.  
  513.  
  514.     '   FLYING OVER THE ENDLESSLY SCROLLING SEA
  515.     '   =======================================
  516.     For w = 0 To 15
  517.         backgroundY(w) = backgroundY(w) + 3
  518.         If backgroundY(w) > 480 Then
  519.             backgroundY(w) = backgroundY(w) - 512
  520.         End If
  521.         For q = 0 To 19
  522.             _PutImage (backgroundX(q), backgroundY(w)), img(4)
  523.         Next
  524.     Next
  525.  
  526.     '   WHICH LOOKS DULL WITHOUT ISLANDS
  527.     '   ================================
  528.     For o = 0 To 2
  529.         _PutImage (islandX(o), islandY(o)), islandImage(o)
  530.     Next
  531.  
  532.     '   KEEPING OUR PLANE IN THE SCREEN AND DISPLAY IT
  533.     '   ==============================================
  534.     frame = frame + 1
  535.     If frame > 2 Then
  536.         frame = 0
  537.     End If
  538.     If planeX < 0 And bigexploactive = 0 Then
  539.         planeX = 0
  540.     End If
  541.     If planeY < 0 And bigexploactive = 0 Then
  542.         planeY = 0
  543.     End If
  544.     If planeX + width0 > 640 Then
  545.         planeX = 640 - width0
  546.     End If
  547.     If planeY + height0 > 480 - 64 Then
  548.         planeY = 480 - height0 - 64
  549.     End If
  550.     _PutImage (planeX, planeY), img(frame)
  551.  
  552.     '   WE HAVE TO SEE WHAT WE ARE FIGHTING
  553.     '   ===================================
  554.     For x = 0 To 4
  555.         _PutImage (enemyX(x), enemyY(x)), img(frame + 5)
  556.     Next
  557.     For i = 0 To 1
  558.         If enemyshot(i) = 0 Then
  559.             decision(i) = Int(Rnd * 199)
  560.         End If
  561.         If decision(i) = 9 Then
  562.             If enemybulletY(i) < 480 Then
  563.                 enemybulletY(i) = enemybulletY(i) + 10
  564.                 enemyshot(i) = 1
  565.             Else
  566.                 enemybulletX(i) = superenemyX(i) + 14 '1
  567.                 enemybulletY(i) = superenemyY(i) + 17 '7
  568.                 enemyshot(i) = 0
  569.             End If
  570.         Else
  571.             enemybulletX(i) = superenemyX(i) + 14 '1
  572.             enemybulletY(i) = superenemyY(i) + 17 '7
  573.             enemyshot(i) = 0
  574.         End If
  575.         If superenemyY(i) > 0 Then
  576.             _PutImage (enemybulletX(i), enemybulletY(i)), img(27)
  577.         End If
  578.     Next
  579.     For x = 0 To 1
  580.         _PutImage (superenemyX(x), superenemyY(x)), img(frame + 24)
  581.     Next
  582.  
  583.     '   AND WITH WHAT
  584.     '   =============
  585.     For j = 1 To nBullets
  586.         If bullets(j).y > 0 And bullets(j).active Then
  587.             bullets(j).y = bullets(j).y - speed * 2
  588.             _PutImage (bullets(j).x, bullets(j).y), img(3)
  589.         Else
  590.             bullets(j).x = -30
  591.             bullets(j).y = -30
  592.             bullets(j).active = 0
  593.         End If
  594.     Next
  595.  
  596.     '   A NICE EXPLOSION
  597.     '   ================
  598.     If explo_frame < 5 And exploX > 0 Then
  599.         explo_frame = explo_frame + 1
  600.         _PutImage (exploX, exploY), img(explo_frame + 8)
  601.     Else
  602.         explo_frame = 0
  603.         exploX = -30
  604.         exploY = -30
  605.     End If
  606.  
  607.     '   A SECOND NICE EXPLOSION
  608.     '   =======================
  609.     If explo2_frame < 5 And explo2X > 0 Then
  610.         explo2_frame = explo2_frame + 1
  611.         _PutImage (explo2X, explo2Y), img(explo2_frame + 8)
  612.     Else
  613.         explo2_frame = 0
  614.         explo2X = -30
  615.         explo2Y = -30
  616.     End If
  617.  
  618.  
  619.     '   A BIGGER EXPLOSION
  620.     '   ==================
  621.     If bigexploactive = 1 Then
  622.         For s = 0 To 4
  623.             enemyX(s) = Int(Rnd * 608)
  624.             enemyY(s) = 0 - Int(Rnd * 480)
  625.         Next
  626.         For s = 0 To 1
  627.             superenemyX(s) = Int(Rnd * 608)
  628.             superenemyY(s) = 0 - Int(Rnd * 480)
  629.         Next
  630.     End If
  631.     If bigexploX > 0 And bigexploX < 640 Then
  632.         bigexplo_frame = bigexplo_frame + 1
  633.     End If
  634.     If bigexplo_frame > 6 Then
  635.         bigexploactive = 0
  636.         bigexplo_frame = 0
  637.         bigexploX = -70
  638.         bigexploY = -70
  639.         lives = lives - 1
  640.         planeX = 320
  641.         planeY = 480 - 128
  642.         health = 100
  643.     End If
  644.     _PutImage (bigexploX, bigexploY), img(bigexplo_frame + 14)
  645.  
  646.  
  647.     '   Power Ups
  648.  
  649.     '   HEALTH
  650.     '
  651.     If health < 80 Then
  652.         repairActive = 1
  653.     End If
  654.     If repairActive = 1 Then
  655.         _PutImage (repairX, repairY), img(35)
  656.         repairY = repairY + repairSpeed
  657.         If repairY > ymax Then
  658.             repairActive = 0
  659.             repairX = Int(Rnd * 608)
  660.             repairY = 0 - Int(Rnd * 480)
  661.         End If
  662.     End If
  663.     collision planeX, planeY, width0, height0, repairX, repairY, width35, height35
  664.     If hit = 1 Then
  665.         If health < 100 Then
  666.             health = health + 50
  667.             If health > 100 Then health = 100
  668.             repairX = Int(Rnd * 608)
  669.             repairY = 0 - Int(Rnd * 480)
  670.             repairActive = 0
  671.             _SndPlay (pu_health)
  672.         End If
  673.     End If
  674.  
  675.  
  676.     '   AMMUNITION
  677.     '
  678.     If ammo < 90 Then
  679.         ammoActive = 1
  680.     End If
  681.     If ammoActive = 1 Then
  682.         _PutImage (ammoX, ammoY), img(36)
  683.         ammoY = ammoY + ammoSpeed
  684.         If ammoY > ymax Then
  685.             ammoX = Int(Rnd * 608)
  686.             ammoY = 0 - Int(Rnd * 480)
  687.         End If
  688.     End If
  689.     collision planeX, planeY, width0, height0, ammoX, ammoY, width36, height36
  690.     If hit = 1 Then
  691.         If ammo < 90 Then
  692.             ammo = ammo + 10
  693.             ammoX = Int(Rnd * 608)
  694.             ammoY = 0 - Int(Rnd * 480)
  695.             ammoActive = 0
  696.             _SndPlay (pu_ammo)
  697.         End If
  698.     End If
  699.  
  700.  
  701.     '   INFORMATION PANEL
  702.     '   =================
  703.     Line (0, 480 - 63)-Step(640, 63), _RGB32(220, 220, 220), BF
  704.     Line (5, 480 - 58)-Step(635, 58), _RGB32(180, 180, 180), BF
  705.     Line (5, 480 - 58)-Step(630, 58), _RGB32(120, 120, 120), BF
  706.     Line (6, 480 - 22)-Step(103, 12), _RGB32(0, 0, 255), B
  707.     Line (7, 480 - 21)-Step(100, 10), _RGB32(0, 0, 0), B
  708.     c = 50
  709.     For z = 1 To 10
  710.         Line (7, 480 - 22 + z)-(7 + health, 480 - 22 + z), _RGB32(0, c, 0)
  711.         If z > 5 Then
  712.             c = c - 50
  713.         Else
  714.             c = c + 50
  715.         End If
  716.     Next
  717.     _Font arial14
  718.     Color _RGB32(0, 0, 0), trans
  719.     _PrintString (5, 480 - 58), "Score: " + Str$(score)
  720.     _PrintString (5, 480 - 48), "Accuracy: " + Str$(Int((bullseye / shots_fired) * 100)) + "%"
  721.     _PrintString (300, 480 - 48), "Ammo: " + Str$(ammo)
  722.     _PrintString (110, 480 - 22), Str$(health)
  723.     For i = 1 To lives
  724.         _PutImage (120 + i * 32, 480 - 32), img(31)
  725.     Next
  726.     _PutImage (640 - width32, 480 - 58), img(32)
  727.  
  728.     '   IF ALL LIVES ARE GONE, THEN IT`S GAME OVER
  729.     '   =========================================
  730.     If lives < 0 Then
  731.         _PutImage (0, 0), img(34)
  732.         _Display
  733.         _Delay 1
  734.         Exit Do
  735.     End If
  736.  
  737.     '   DRAWING EVERYTHNG AND WAITING
  738.     '   =============================
  739.     '   AND PAUSING THE GAME IF HIS MAJESTY WANTS SO
  740.     '   ============================================
  741.     If InKey$ = "p" Or InKey$ = "P" Then
  742.         _PutImage (0, 0), img(33)
  743.         _Display
  744.         While InKey$ = "": Wend
  745.     End If
  746.  
  747.     _Limit 30
  748.     _Display
  750. goAgain$ = topTenGoAgain$(score)
  751. If Len(goAgain$) = 0 Then GoTo restart
  752.  
  753.  
  754. '=======================================================
  755. Sub collision (r1x, r1y, r1w, r1h, r2x, r2y, r2w, r2h)
  756.     If (r1x + r1w >= r2x And r1x <= r2x + r2w And r1y + r1h >= r2y And r1y <= r2y + r2h) Then
  757.         hit = 1
  758.     Else
  759.         hit = 0
  760.     End If
  762.  
  763. Sub centerText (x1, x2, midy, s$) ' ' if you want to center fit a string between two goal posts x1, and x2
  764.     _PrintString ((x1 + x2) / 2 - _PrintWidth(s$) / 2, midy - _FontHeight(_Font) / 2), s$
  766.  
  767. ' This FUNCTION creates a file in the same folder as your .bas source or .exe
  768. 'EDIT: 2019-07-29 change to FUNCTION to combine Top Ten update functions with Go Again reply.
  769. Function topTenGoAgain$ (compareScore As Integer)
  770.     Dim fName$, n As Integer, names$(1 To 10), scores(1 To 10), name$, score As Integer
  771.     Dim settleScore As Integer, i As Integer, dummy$
  773.     Color &HFFFFFFFF, &HFF000000
  774.  
  775.     fName$ = "Top 10 Scores for 1945.txt" '<<<  since this is toolbox code change this as needed for app
  776.     Cls: Print: Print "Your score was:"; compareScore: Print: Print "Top Ten Scorers and Scores:"
  777.     If _FileExists(fName$) Then
  778.         Open fName$ For Input As #1
  779.         While EOF(1) = 0 And n < 10
  780.             n = n + 1
  781.             Input #1, name$
  782.             Input #1, score
  783.             If compareScore >= score And settleScore = 0 Then
  784.                 Print "You have made the Top Ten!"
  785.                 Input "Type your name here: ", names$(n)
  786.                 scores(n) = compareScore
  787.                 settleScore = -1
  788.                 n = n + 1
  789.                 If n <= 10 Then names$(n) = name$: scores(n) = score
  790.             Else
  791.                 scores(n) = score: names$(n) = name$
  792.             End If
  793.         Wend
  794.         Close #1
  795.         If n < 10 And settleScore = 0 Then
  796.             Print "There is a slot open for your name and score."
  797.             Input "Enter your name here (nothing quits): ", name$
  798.             If name$ <> "" Then
  799.                 n = n + 1: names$(n) = name$: scores(n) = compareScore
  800.             Else
  801.                 System
  802.             End If
  803.         End If
  804.         Open fName$ For Output As #1
  805.         If n > 10 Then n = 10
  806.         For i = 1 To n
  807.             Print #1, names$(i): Print #1, scores(i)
  808.             Print i, names$(i), scores(i)
  809.         Next
  810.         Close #1
  811.     Else
  812.         Print "You are first into file!"
  813.         Input "Enter your name here (nothing quits):"; name$
  814.         If name$ = "" Then System
  815.         Open fName$ For Output As #1
  816.         Print #1, name$: Print #1, compareScore
  817.         Close #1
  818.     End If
  819.     Print: Input "Press Enter to play again, any + Enter to quit... "; dummy$
  820.     topTenGoAgain$ = dummy$
  822.  
  823.  

if glitch wasn't from typo then it may still exist.

I started other mods earlier this afternoon they were wrong minded as i think you are using planeX, planeY for explosion locations but I don't see them so they may not have been saved or done on the last version.

Let me know if you find anything goofy.

EDIT: renew ammo on restart
Title: Re: 1945
Post by: bplus on December 14, 2021, 12:15:30 pm
@johnno56

Any confirmation on that typo I found, did it remove the glitch for you?
Title: Re: 1945
Post by: johnno56 on December 14, 2021, 07:06:21 pm
I get an "Invalid Handle" on line 170.
But img(30) is defined as "biglogo.png"

If I use _putimage(0, 0), img(30) it works... The image is the default size and sits in the top left corner. Menu works fine. I cannot understand why the image will not display as 'fullscreen'...
Title: Re: 1945
Post by: bplus on December 14, 2021, 07:16:34 pm
Quote from: johnno56 on December 14, 2021, 07:06:21 pm
I get an "Invalid Handle" on line 170.
But img(30) is defined as "biglogo.png"

If I use _putimage(0, 0), img(30) it works... The image is the default size and sits in the top left corner. Menu works fine. I cannot understand why the image will not display as 'fullscreen'...

I don't get it, that's been there since your first post???

PS check your PM's

Title: Re: 1945
Post by: johnno56 on December 15, 2021, 01:41:26 am
I believe you... I checked the file/filename the array reference and the command to display it... I just now tested version 4 (it has the same commands etc) and it ran just fine... One thing that I did notice was the command at the top of the program, 'option _explicit' - How does QB64 interpret that command? Just ran the game without that command and it ran just fine... Just as confused as the old farmer who was presented with 3 shovels and told to take his pick...
Title: Re: 1945
Post by: bplus on December 15, 2021, 08:37:55 am
@johnno56

Option _Explicit should only stop you if you use an undeclared (declared with one: DIM, STATIC, REDIM, CONST) variable. No problem commenting out after checking with it on but it should not interfere with runs unless a bug with Linux use???

Option _Explicit caught the typo I am still trying to get you to notice and fix.
explo2X = -30
explo2Y = -30

used at start , but
explox2, exploy2 used later in handling explosions.

1945v6:
Code: QB64: [Select]
  1.     For t = 0 To 1
  2.         '   Collision with player and enemy bullet
  3.         If enemyshot(t) = 1 Then
  4.             collision planex, planey, width0, height0, enemybulletX(t), enemybulletY(t), width27, height27
  5.             If hit = 1 Then
  6.                 health = health - 10
  7.                 If health <= 0 Then
  8.                     bigexploactive = 1
  9.                     bigexplox = planex
  10.                     bigexploy = planey
  11.                     enemybulletX(t) = -30 'had players bullets here!!!
  12.                     enemybulletY(t) = -30
  13.                 End If
  14.                 _SndPlay (explosion)
  15.                 If explox > 0 And explox < 640 Then
  16.                     explox2 = enemybulletX(t)  '<<<<<<<<<<<<<<<<<<<<<
  17.                     exploy2 = enemybulletY(t)  ' <<<<<<<<<<<<<<<<<<
  18.                 Else
  19.                     explox = enemybulletX(t)
  20.                     exploy = enemybulletY(t)
  21.                 End If
  22.                 enemybulletX(t) = superenemyX(t) + 14 '1
  23.                 enemybulletY(t) = superenemyY(t) + 17 '7
  24.                 enemyshot(t) = 0
  25.             End If
  26.         End If
  27.     Next
  28.  

1945v6
Code: QB64: [Select]
  1.     '   A SECOND NICE EXPLOSION
  2.     '   =======================
  3.     If explo2_frame < 5 And explo2x > 0 Then
  4.         explo2_frame = explo2_frame + 1
  5.         _PutImage (explo2x, explo2y), img(explo2_frame + 8)
  6.     Else
  7.         explo2_frame = 0
  8.         explo2x = -30   ' <<<<<<<<<<<<<<<<<<<<<<<
  9.         explo2y = -30  ' <<<<<<<<<<<<<<<<<<<<<<<<<<<<
  10.     End If
  11.  
Text Only | Text with Attachments