Text Only | Text with Attachments

QB64.org Forum

Active Forums => QB64 Discussion => Topic started by: Cobalt on December 03, 2020, 01:35:14 pm

Title: Unexpected pause in program execution
Post by: Cobalt on December 03, 2020, 01:35:14 pm
So finally back to working on a program, "Astrosmash", and it is moving right along. However I find myself in a situation that is boggling my primitive little monkey brain. In this game I have 4 main types of objects to deal with(at the moment); Small Asteroids, Big Asteroids, Small Bombs and Big Bombs. Now when you blow up a Big Asteroid, it has a chance to split into 2 Small Asteroids. And everything seems to be working properly, save when you shoot a Big Bomb. This causes a pause in the games execution. I have yet to be able to identify why.

At first I thought maybe my numbers were off and the code was trying to split the Big Bomb into 2 Small Asteroids, which would have caused some issues somewhere due to the rather primative way I split the Big Asteroids. Another reason I thought it might be doing that is when the Big Asteroid splits it doesn't leave an "Explosion" sprite behind, and when the code pauses the Big Bomb that was hit doesn't leave one either. but that could just be because the explosion animation is only 6 frames and lasts a very short time, less time than the pause I believe.

If the SplitObject routine was running at this time there should be an associated output to the Debug.txt file when it happens, however there is not, the Object hit value outputs to show what was hit and thats it(this is a single BYTE value followed by &HFF). So where is this seemingly random pause coming from? It doesn't pause every time you hit a Big Bomb, just sometimes. Big Asteroids have a ~75% chance of splitting in two, yet another reason I thought the SplitObject would be a root cause.

this line determines a split;

Code: QB64: [Select]
  1.   IF (O(Hit%%).Kind >= 6 AND O(Hit%%).Kind <= 9) AND (RND * 100) > 25 THEN '~75%chance of split if large object is hit

Player's ship is 1
Small Asteroids have values 2-5(4 variations)
Big Asteroids have values 6-9 (4 variations)
Bombs have value 10

These are all defined in the CONSTs so.. no accidental changing should be happening.

And, debuging as I do, if I remove(aka Comment out) that line and subsequent lines the issue no longer happens. so why is that line trying to execute on a Bomb value of 10? or is it something completely different going on?
I have added prints here and there to try and catch the issue but alas, I am defeated.

I have removed all the subs, save for the MovePlayerShot and SplitObject, and placed them in an include file. Hopefully to make the code(that I think contributes to the issue anyway) more concise. may or may not need the font file, attached it anyway.

Now I have not added the RANDOMIZE TIMER yet as to make things more repeatable, (maybe) if you shoot the small bomb then the large yellow asteroid(which should split) then wait for a large bomb to enter the screen, shooting one should cause the pause.

Video demonstrating the pause issue.



Code: QB64: [Select]
  1. TYPE objects
  2.  Xpos AS SINGLE
  3.  Ypos AS SINGLE
  4.  Angle AS SINGLE
  5.  Speed AS SINGLE
  6.  Rotation AS _BYTE
  7.  Colr AS _BYTE
  8.  Kind AS _BYTE
  10.  Tracking AS _BYTE 'tells whether its a tracker and which direction its moving
  11.  CollideColr AS _BYTE
  13.  
  14. TYPE Gamedata
  15.  level AS _BYTE
  16.  Score AS LONG
  18.  ObjectCount AS _BYTE
  19.  BlastCount AS _BYTE
  20.  Count AS INTEGER
  21.  Movement AS _BYTE 'How fast player moves
  22.  ShotSpeed AS _BYTE 'how fast player shots move
  23.  GameOver AS _BYTE 'has player lost all lives
  24.  CurrentBG AS _BYTE 'current background color
  25.  MaxShot AS _BYTE
  26.  Speed AS _BYTE
  28.  
  29. TYPE Explosions
  30.  Xpos AS INTEGER
  31.  Ypos AS INTEGER
  32.  Frame AS _BYTE
  34.  
  35. TYPE Player
  36.  Xpos AS INTEGER
  37.  Ypos AS INTEGER
  38.  ShotCount AS _BYTE
  40.  
  41.  
  42. 'Load sprites--------------------------------
  43. SpriteData:
  44. DATA 311,16,16,16,56,124,238,254,68,16,84,56,108,56,124,254,170,76,124,118,174,252,127,90,48,118,255,122,47,15,60,126,44,104,252,124,62,122,222,252,56,124,126,126,55,63,250,239,102,32,120,236,254,120,95,47,58,124,127,253,218,110,126,58,16,12,60,126,118,127,255,250,60,124,126,111,255,254,126,108,32,24,24,60,36,36,60,24,24,0,6,30,36,36,120,96,0,0,0,60,231,231,60,0,0,0,96,120,36,36,30,6,0,0,0,36,24,24,36,0,0,0,66,60,36,36,60,66,0,0,60,102,90,90,102,60,0,60,0,153,165,165,153,0,60,66,153,36,66,66,36,153,66,153,66,0,129,129,0,66,153,0,0,0,16,16,124,16,16,0,0,0,16,56,124,56,16,0,0,0,56,124,124,124,56,0,0,0,16,56,124,56,16,16,16,16,16,16,16,16,56,56,124,108,238,254,254,68,68,128,128,64,64,64,32,112,112,60,108,110,126,120,32,32,32,128,128,64,64,48,48,62,62,23,23,28,28,24,24,8,8,0,0,128,192,108,127,63,22,22,28,28,28,8,8,8,0,0,0,0,2,7,15,30,250,250,30,15,7,2,0,0,0,0,0,24,60,60,24,0,0,60,126,255,213,255,60,0,0,24,90,255,171,126,153,0,0,153,90,255,171,126,90,0,0,0,0,84,42,84,42,0
  45. 'Load Main & Title screens
  46. MainScreenData:
  47. DATA 205,0,487,15,1,0,194,15,1,0,12,15,1,0,115,15,1,0,106,15,1,0,275,15,1,0,71,15,1,0,174,15,1,0,480,15,1,0,39,15,1,0,455,15,1,0,123,15,2,0,786,15,1,0,32,15,1,0,18,15,1,0,7,15,1,0,367,15,2,0,30,15,2,0,14,15,2,0,775,15,1,0,31,15,1,0,1170,15,1,0,195,15,1,0,36,15,1,0,354,15,2,0,591,15,1,0,162,15,1,0,7,15,1,0,20,15,1,0,39,15,1,0,394,15,1,0,31,15,1,0,294,15,1,0,317,15,1,0,151,15,1,0,110,15,1,0,347,15,1,0,83,15,2,0,257,15,1,0,365,15,1,0,42,15,1,0,192,15,1,0,103,15,1,0,31,15,1,0,135,15,1,0,138,15,2,0,305,15,1,0,1063,5,4,0,160,5,4,0,149,5,3,0,8,5,3,0,143,5,3,0,14,5,3,0,129,5,2,0,7,5,2,0,20,5,3,0,14,5,1,0,39,5,2,0,67,5,3,0,2,5,3,0,29,5,3,0,8,5,3,0,37,5,3,0,2,5,3,0,34,5,4,0,23,5,3,0,8,5,3,0,29,5,3,0,2,5,3,0,4,5,2,0,31,5,3,0,8,5,3,0,29,5,2,0,4,5,2,0,10,5,4,0,6,5,1,0,14,5,1,0,31,5,2,0,9,5,2,0,10,5,4,0,12,5,3,0,14,5,3,0,12,5,4,0,8,5,2,0,8,5,2,0,5,5,3,0,4,5,3,0,63,5,2,0,5,5,3,0,4,5,3,0,6,5,3,0,20,5,3,0,6,5,3,0,4,5,3,0,3,5,2,0,12,5,5,0,10,5,3,0,62,5,5,0,10,5,6,0,26,5,6,0,10,5,3,0,960,5,320,0,1600
  48. TitleScreenData:
  49. DATA 129,4,1617,15,4,4,12,7,4,4,12,6,4,4,12,5,4,4,24,3,4,4,12,2,4,4,12,1,4,4,12,0,4,4,32,15,4,4,12,7,4,4,12,6,4,4,12,5,4,4,24,3,4,4,12,2,4,4,12,1,4,4,12,0,4,4,32,15,4,4,12,7,4,4,12,6,4,4,12,5,4,4,24,3,4,4,12,2,4,4,12,1,4,4,12,0,4,4,32,15,4,4,12,7,4,4,12,6,4,4,12,5,4,4,24,3,4,4,12,2,4,4,12,1,4,4,12,0,4,4,32,15,4,4,12,7,4,4,12,6,4,4,12,5,4,4,24,3,4,4,12,2,4,4,12,1,4,4,12,0,4,4,32,15,4,4,12,7,4,4,12,6,4,4,12,5,4,4,24,3,4,4,12,2,4,4,12,1,4,4,12,0,4,4,32,15,4,4,12,7,4,4,12,6,4,4,12,5,4,4,24,3,4,4,12,2,4,4,12,1,4,4,12,0,4,4,32,15,4,4,12,7,4,4,12,6,4,4,12,5,4,4,24,3,4,4,12,2,4,4,12,1,4,4,12,0,4,4,13136
  50.  
  51. 'Color CONSTs
  52. CONST Black = 0, Blue = 1, Red = 2, Tanc = 3, Olive = 4, DkGreen = 5
  53. CONST BGGreen = 6, Yellow = 7, Grey = 8, SkyBlue = 9, Orange = 10
  54. CONST Pink = 11, Purple = 12, FadeGreen = 13, Maroon = 14, White = 15
  55. 'Zoom CONSTs
  56. CONST None = 0, H4 = 128, H2 = 64, H12 = 32, H14 = 16, V4 = 8, V2 = 4
  57. CONST V12 = 2, V14 = 1, HF = 512, VF = 256, COLLISION = 8192
  58. '4-x4, 2-x2, 12-x1/2, 14-x1/4, HF-Flip Horizontal, VF-Flip Vertical
  59. 'Sprite CONSTs
  60. CONST NullShip = 0, Ship = 1, SmallA = 2, SmallB = 3, SmallC = 4, SmallD = 5
  61. CONST LargeA = 6, LargeB = 7, LargeC = 8, LargeD = 9, Bomb = 10, Tracker = 11
  62. CONST SpaceShip = 12, SmallE = 13, SmallF = 14, SmallG = 15, SmallH = 16
  63. CONST Blast = 17, SpaceShipShot = 18
  64. CONST TRUE = -1, FALSE = NOT TRUE
  65. 'Game Scores CONSTs
  66. CONST SmallOid = 20
  67. CONST LargeOid = 10
  68. CONST LargeBomb = 40
  69. CONST SmallBomb = 80
  70. CONST Seeker = 100
  71. CONST Aliens = 150
  72. CONST AlienShot = 75
  73.  
  74. DIM SHARED Layer(12) AS LONG, Colors(16) AS _UNSIGNED LONG, FFX(1) AS LONG
  75. DIM SHARED G AS Gamedata, E(15) AS Explosions, P AS Player, O(15) AS objects
  76. DIM SHARED s(8) AS Explosions, TFX(5) AS LONG
  77.  
  78. SCREEN _NEWIMAGE(640, 480, 32)
  80. Layer(0) = _DISPLAY
  81. Layer(1) = _NEWIMAGE(640, 480, 32) 'Composite layer
  82. Layer(2) = _NEWIMAGE(640, 400, 13)
  83. Layer(3) = _NEWIMAGE(640, 480, 32) 'Title Screen Layer
  84. Layer(4) = _NEWIMAGE(640, 480, 32) 'Background sheet layer
  85. Layer(5) = _NEWIMAGE(640, 480, 32) 'Sprite draw layer
  86. Layer(6) = _NEWIMAGE(64, 64, 32) 'temp sprite layer for transparency
  87. Layer(7) = _NEWIMAGE(640, 480, 32) 'collision shadow layer Oids
  88. Layer(8) = _NEWIMAGE(640, 480, 32) 'background color
  89. Layer(9) = _NEWIMAGE(640, 480, 32) 'collision shadow layer Player
  90.  
  91. FFX(1) = _LOADFONT("PixelIntv.ttf", 40, "monospace")
  92. IF FFX(1) THEN _FONT FFX(1), Layer(1)
  93. IF FFX(1) THEN _FONT FFX(1), Layer(3)
  96.  
  97. Colors(0) = _RGB32(0, 0, 0) '       Black
  98. Colors(1) = _RGB32(0, 45, 255) '    Blue
  99. Colors(2) = _RGB32(255, 61, 16) '   Red
  100. Colors(3) = _RGB32(201, 207, 171) ' Tan
  101. Colors(4) = _RGB32(84, 110, 0) '    Olive Green
  102. Colors(5) = _RGB32(56, 107, 63) '   DkGreen
  103. Colors(6) = _RGB32(0, 167, 86) '    BGGreen
  104. Colors(7) = _RGB32(250, 234, 80) '  Yellow
  105. Colors(8) = _RGB32(189, 172, 200) ' Purpleish Grey
  106. Colors(9) = _RGB32(36, 184, 255) '  Sky Blue
  107. Colors(10) = _RGB32(255, 180, 31) ' Orange
  108. Colors(11) = _RGB32(255, 78, 87) '  Pinkish
  109. Colors(12) = _RGB32(164, 150, 255) 'Purplish
  110. Colors(13) = _RGB32(117, 204, 128) 'Faded Green
  111. Colors(14) = _RGB32(181, 26, 88) '  Maroon
  112. Colors(15) = _RGB32(255, 255, 255) 'White
  113.  
  114. TFX(1) = _FREETIMER
  115. TFX(2) = _FREETIMER
  116. ON TIMER(TFX(1), .4) AutoFire
  117. ON TIMER(TFX(2), .125) AnimOids
  118.  
  121. IF _FILEEXISTS("Astrodebug.txt") THEN KILL "Astrodebug.txt"
  122. OPEN "Astrodebug.txt" FOR BINARY AS #f&
  123.  
  124. 'Start Values
  125. P.Ypos = 321
  126. P.Xpos = 300
  127. G.Movement = 4
  128. G.ShotSpeed = 8
  129. G.Lives = 4
  130. G.level = 1
  131. G.MaxShot = 2
  132. G.Score = 0
  133. G.ObjectCount = 5
  134. FOR i%% = 0 TO G.ObjectCount - 1
  135.  MakeObject i%%
  136. NEXT i%%
  137.  
  138.  
  139. DrawSpriteSheet Layer(2)
  140. RESTORE MainScreenData
  141. DrawScreen 4
  142. RESTORE TitleScreenData
  143. DrawScreen 3
  144. _CLEARCOLOR _RGB32(0), Layer(4)
  145. TitleScreen
  146.  
  147. TIMER(TFX(2)) ON
  148.  
  150.  ClearLayer 7
  151.  Controls
  152.  CompositeBackGroundPlate
  153.  
  154.  '-------Draw the objects-------
  155.  FOR i%% = 0 TO G.ObjectCount - 1
  156.   DrawObject (i%%)
  157.  NEXT i%%
  158.  '------------------------------
  159.  
  160.  IF G.BlastCount THEN DrawExplosions
  161.  
  162.  DrawPlayer
  163.  
  164.  '--------Place the player shots on the screen--------
  165.  IF P.ShotCount THEN
  166.   FOR i%% = 0 TO P.ShotCount - 1
  167.    MovePlayerShot i%%
  168.    DrawPlayerShot i%%
  169.   NEXT i%%
  171.  '----------------------------------------------------
  172.  DisplayStats
  173.  _PUTIMAGE , Layer(1), Layer(0)
  174.  ClearLayer 1
  175.  _LIMIT 60 - 8 * G.Speed
  176.  FOR i%% = 0 TO G.ObjectCount - 1
  177.   MoveObject i%% 'move the objects
  178.  NEXT i%%
  180. TIMER(TFX(2)) OFF
  181. _PUTIMAGE (0, 0), Layer(7), Layer(0)
  182. 'PRINT _RGB32(32, 0, 0) - Colors(Black)
  183.  
  184.  
  185.  
  186. SUB MovePlayerShot (id~%%)
  187.  s(id~%%).Ypos = s(id~%%).Ypos - G.ShotSpeed
  188.  IF s(id~%%).Ypos > 0 THEN Hit%% = ShotCollision(id~%%) ELSE Hit%% = -1
  189.  _PRINTSTRING (0, 400), STR$(ShotCollision(id~%%)), Layer(1)
  190.  IF Hit%% > -1 THEN
  191.   s(id~%%).Ypos = -32 'move shot for removal
  192.   ScoreShot Hit%% 'increase score
  193.   PUT #f&, , O(Hit%%).Kind
  194.   Nul~%% = 255
  195.   PUT #f&, , Nul~%%
  196.   IF (O(Hit%%).Kind >= 6 AND O(Hit%%).Kind <= 9) AND (RND * 100) > 25 THEN '~75%chance of split if large object is hit
  197.    a$ = "Splitting object"
  198.    PUT #f&, , a$
  199.    PRINT a$
  200.    SplitObject Hit%% '
  201.   ELSE
  202.    MakeBlast G.BlastCount, Hit%%
  203.    G.BlastCount = G.BlastCount + 1 'add a new blast
  204.    MakeObject Hit%% 'replace the oid with a new one
  205.   END IF
  207.  IF s(id~%%).Ypos < -16 THEN
  208.   P.ShotCount = P.ShotCount - 1
  209.   FOR i%% = id~%% TO P.ShotCount
  210.    SWAP s(i%%), s(i%% + 1)
  211.   NEXT i%%
  212.   s(i%% - 1).Xpos = -10: s(i%% - 1).Ypos = 0
  215.  
  216.  
  217. SUB SplitObject (id~%%)
  218.  'some big Oids will split into two smaller Oids moving at sharper angles
  219.  'object 1 -uses original objects id
  220.  O(id~%%).Angle = O(id~%%).Angle - (RND * .25)
  221.  O(id~%%).Rotation = 1
  222.  O(id~%%).Kind = INT(RND * 4) + 2
  223.  O(id~%%).Speed = O(id~%%).Speed + (RND * 1 + .25) 'small objects move faster
  224.  O(id~%%).Colr = INT(RND * 5) + 6
  225.  O(id~%%).Zoom = V12
  226.  'object 2 -uses next availible id
  227.  id2~%% = G.ObjectCount 'instead of having to use a long varible name.
  228.  O(id2~%%).Xpos = O(id~%%).Xpos + 8
  229.  O(id2~%%).Ypos = O(id~%%).Ypos
  230.  O(id2~%%).Angle = O(id~%%).Angle + (RND * .25)
  231.  O(id2~%%).Rotation = 1
  232.  O(id2~%%).Kind = INT(RND * 4) + 2
  233.  O(id2~%%).Speed = O(id~%%).Speed + (RND * 1 + .25) 'small objects move faster
  234.  O(id2~%%).Colr = INT(RND * 5) + 6
  235.  O(id2~%%).Zoom = V12
  236.  G.ObjectCount = G.ObjectCount + 1 'add a new object to the list
  237.  
  238.  PUT #f&, , O()
  240.  
  241. '$include:'AstroAllSubs.bi'
  242.  
Title: Re: Unexpected pause in program execution
Post by: Petr on December 03, 2020, 02:28:11 pm
Hi. Maybe this can be it or not. I add SOUND 300, .1 statement to AstroAllSubs.bi/ExplossionColission%% FUNCTION and in some cases is sound running in neverending loop. But, when all works as expected, is played just if colision occur. Because your colission detection is based on colors, maybe can be bug here and therefore is not running this object as two new objects.

Of course, this is just my guess, which may be completely out.
Title: Re: Unexpected pause in program execution
Post by: Cobalt on December 03, 2020, 09:16:11 pm
Quote from: Petr on December 03, 2020, 02:28:11 pm
Hi. Maybe this can be it or not. I add SOUND 300, .1 statement to AstroAllSubs.bi/ExplossionColission%% FUNCTION and in some cases is sound running in neverending loop. But, when all works as expected, is played just if colision occur. Because your colission detection is based on colors, maybe can be bug here and therefore is not running this object as two new objects.

Of course, this is just my guess, which may be completely out.

yeah, that is probably right. The ExplosionCollision function checks to see if any of the Objects on the screen collide with it. so while there is an explosion showing on screen it should be running. It allows for a chain reaction, that counts for points.

so if it starts to play when the game pauses after hitting a large bomb then it might sound off. but that function should run a lot from time to time.
Text Only | Text with Attachments