« previous next »
Pages: [1]   Go Down

Author Topic: (Solved)Why is POINT returning a different color value?  (Read 4837 times)

0 Members and 1 Guest are viewing this topic.

Offline Cobalt

  • QB64 Developer
  • Forum Resident
  • Posts: 878
  • At 60 I become highly radioactive!
    • View Profile
(Solved)Why is POINT returning a different color value?
« on: November 01, 2018, 06:37:04 pm »
I haven't been able to isolate just what is causing this but POINT is returning a color with a value of :4278258432 but when I check the color by PRINT _RGB32(1,11,12) I get :4278258444 and the array that stores the colors ArmsID(1,11)=4278258444 and when I screen capture and use my graphics software the color returned is RGB:1,11,12 .
the detection of a non-black color is in the right spot so I don't think its reading the wrong location(and no location uses 4278258432 anyway)
Its almost as if POINT is losing the BLUE component.(1,11,0)
COLLISIONTARGET uses POINT to get the color
DESTROYTARGET is where the program stops and displays the COLLISION LAYER and the numbers of the POINT return and the _RGB32 value as well as the value held in the ArmsID() array where the target that was hit is.
A- to run the test, press 1 at the title screen
B-press right(to speed up getting to the dreadnaught continue to press right)
C- after some time the dreadnaught will apear(dont press up or down)
D-after some of the dreadnaught gets on screen PRESS SPACE to shot.
when the shot collides with the bottom front small gun the program will stop and display the information from above, the colored boxes might be hard to see cause the values are small

Code: QB64: [Select]
  1. 'The Dreadnaught Factor 64
  2. 'Clone 2018/10/29-13:10 Cobalt
  3. 'V0.1
  4. 'added title screen
  5. 'added startup data
  6. 'added player blaster shot
  7. '
  8. TYPE Dreadnaught
  9.  Xsize AS _BYTE 'ship size X
  10.  Ysize AS _BYTE 'ship size Y
  11.  Engines AS _BYTE 'Engines remaining 0-4
  12.  Vents AS _BYTE 'Vents remaining 0-16 (0 explodes ship)
  13.  Silos AS _BYTE 'Silos remaining 0-5
  14.  ShotsFired AS _BYTE
  16. TYPE Gamedata
  17.  Ships AS _BYTE 'Dreadnaughts destroied
  18.  Score AS _UNSIGNED LONG 'Players score
  19.  Lives AS _UNSIGNED _BYTE 'Player lives remaining
  20.  Distance AS _BYTE 'Dreadnaught Distance remaining
  21.  Level AS _BYTE '1-7
  22.  Shipcount AS _BYTE '1,1,2,5,10,15,100
  24. TYPE Playerdata
  25.  Xpos AS SINGLE
  26.  Ypos AS SINGLE
  27.  SpeedX AS SINGLE
  28.  SpeedY AS SINGLE
  29.  ShotsFired AS _BYTE
  31. TYPE Shotdata
  32.  Xpos AS SINGLE
  33.  Ypos AS SINGLE
  34.  Kind AS _BYTE
  35.  Time AS _BYTE
  37. TYPE StarData
  38.  Xpos AS SINGLE
  39.  Ypos AS SINGLE
  42. rem out '$include:'Dreadnaughts.txt'
  43. DIM SHARED Ship(44, 32, 1) AS _BYTE 'STRING * 2
  44. DIM SHARED Arms(44, 32, 1) AS _BYTE 'STRING * 2
  45. DIM SHARED ArmsID(44, 32) AS _UNSIGNED LONG ' color for target id box in collision layer
  46. DIM SHARED Layer(16) AS LONG, FFX(2) AS LONG, SFX(24) AS LONG
  47. DIM SHARED S AS Dreadnaught, G AS Gamedata, P AS Playerdata
  48. DIM SHARED PS(2) AS Shotdata, DS(10) AS Shotdata, Star(50) AS StarData
  49.  
  50. CONST TRUE = -1, FALSE = NOT TRUE, SPRITES = 0, MASK = 3, SHIP = 4, COLLISION = 8
  51. CONST EmptySpace = _RGB32(0, 0, 0)
  52. CONST Shot = 1, Bomb = 2, SGun = 3, LGun = 4, STorp = 5, LTorp = 6, Trakr = 7
  53. CONST max = 7, min = 1, Stars = 50
  54.  
  55. 'INIT---------------------------------------
  56. INITGame
  57. '+++++++++++++++++++++++++++++++++++++++++++
  58. TitleScreen
  59. ShipStartdata
  60. PlayerStartdata
  61. LaunchScreen
  62. '_SNDLOOP SFX(12)
  63. 'Start data
  64.  
  65. 'END
  67.  
  68. LoadDreadnaughtlayout
  69. DrawDreadNaughtBase SHIP
  70. FOR i% = 1 TO Stars
  71.  Star(i%).Xpos = INT(RND * 640)
  72.  Star(i%).Ypos = INT(RND * 470) + 5
  73. NEXT i%
  74.  
  76.  KBD& = _KEYHIT
  77.  SELECT CASE KBD&
  78.   CASE 13 'drop bomb
  79.   CASE 27
  80.    exitflag%% = TRUE
  82.  
  83.  Controls 'arrow key processes
  84.  
  85.  IF P.ShotsFired THEN ProcessPlayerShots
  86.  movestarfield
  87.  drawstarfield
  88.  
  89.  _PUTIMAGE , Layer(5), Layer(2)
  90.  _PUTIMAGE (P.Xpos, P.Ypos - 136), Layer(SHIP), Layer(2)
  91.  DrawDreadnaught P.Xpos, P.Ypos - 136, 2
  92.  _PUTIMAGE (64, 226), Layer(SPRITES), Layer(2), (0, 162)-(31, 175) 'player
  93.  DrawPlayerShot 2 'draw shots to layer 2
  94.  _PUTIMAGE , Layer(MASK), Layer(2)
  95.  _PUTIMAGE , Layer(2), Layer(1)
  96.  ClearLayer 2
  97.  _PRINTSTRING (0, 464), STR$(P.Ypos) + "  " + STR$(PS(1).Ypos)
  98.  _DELAY .01
  99.  
  100.  P.Xpos = P.Xpos - P.SpeedX
  101.  IF P.Xpos <= -920 THEN UpdateShipDistance: LaunchScreen
  102.  P.Ypos = P.Ypos + P.SpeedY
  103.  IF P.Ypos > 480 THEN P.Ypos = 480: P.SpeedY = 0
  104.  IF P.Ypos < -720 THEN P.Ypos = -720: P.SpeedY = 0
  105. LOOP UNTIL exitflag%%
  107. Delta:
  108. DATA 24,21
  109. data 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,0T,0V,0F,0A,0A,0I
  110. data 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,0T,0F,0A,0A,0A,0A,0A,0A
  111. data 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,0T,0F,0A,0A,0A,0A,0A,0A,0A,0A
  112. data 00,00,00,00,00,00,00,00,00,00,00,00,00,0T,0F,0A,0A,0A,0A,0A,1T,1V,1V,1U,0A
  113. data 00,00,00,00,00,00,00,00,00,00,00,0T,0F,0A,0A,0A,0A,0A,1T,1F,1A,1A,1A,1A,0A
  114. data 00,00,00,00,00,00,00,00,00,0T,0F,0A,0A,0A,0A,0A,1T,1F,1A,1A,1A,1A,1A,1A,0A
  115. data 00,00,00,00,00,00,00,0T,0F,0A,0A,0A,0A,0A,1T,1F,1A,1A,1A,1A,2T,2V,2U,1A,0A
  116. data 00,00,00,00,00,0T,0F,0A,0A,0A,0A,0A,1T,1F,1A,1A,1A,1A,1A,1A,2A,2A,2A,1A,0A
  117. data 00,00,00,0T,0F,0A,0A,0A,0A,0A,1T,1F,1A,1A,1A,1A,1A,1A,2T,2F,2A,2A,2A,1A,0A
  118. data 00,0T,0F,0A,0A,0A,0A,0A,1T,1F,1A,1A,1A,1A,2T,2A,1A,1A,2A,2A,2A,3T,3A,1A,0A
  119. data 0B,0A,0A,0A,0A,0A,0A,1L,1A,1A,1A,1A,1A,2B,3L,3A,1A,1A,2A,2A,3L,3A,3A,1A,0A
  120. data 0C,0A,0A,0A,0A,0A,0A,1M,1A,1A,1A,1A,1A,2C,3M,3A,1A,1A,2A,2A,3M,3A,3A,1A,0A
  121. data 00,0J,0G,0A,0A,0A,0A,0A,1J,1G,1A,1A,1A,1A,2J,2A,1A,1A,2A,2A,2A,3J,3A,1A,0A
  122. data 00,00,00,0J,0G,0A,0A,0A,0A,0A,1J,1G,1A,1A,1A,1A,1A,1A,2J,2G,2A,2A,2A,1A,0A
  123. data 00,00,00,00,00,0J,0G,0A,0A,0A,0A,0A,1J,1G,1A,1A,1A,1A,1A,1A,2A,2A,2A,1A,0A
  124. data 00,00,00,00,00,00,00,0J,0G,0A,0A,0A,0A,0A,1J,1G,1A,1A,1A,1A,2J,2W,2K,1A,0A
  125. data 00,00,00,00,00,00,00,00,00,0J,0G,0A,0A,0A,0A,0A,1J,1G,1A,1A,1A,1A,1A,1A,0A
  126. data 00,00,00,00,00,00,00,00,00,00,00,0J,0G,0A,0A,0A,0A,0A,1J,1G,1A,1A,1A,1A,0A
  127. data 00,00,00,00,00,00,00,00,00,00,00,00,00,0J,0G,0A,0A,0A,0A,0A,1J,1W,1W,1K,0A
  128. data 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,0J,0G,0A,0A,0A,0A,0A,0A,0A,0A
  129. data 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,0J,0G,0A,0A,0A,0A,0A,0A
  130. data 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,0J,0W,0G,0A,0A,0H
  131.  
  132. DeltaWepondry:
  133. data 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00
  134. data 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,2G,00,00,0E,0F,00
  135. data 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,2A,00,00,00,00,1E,1F,00
  136. data 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,2E,00,00,0I,0J,00,00,00,00,00
  137. data 00,00,00,00,00,00,00,00,00,00,00,00,00,2A,00,00,0I,0J,00,00,00,0E,0F,00,0A
  138. data 00,00,00,00,00,00,00,00,00,00,00,2G,00,00,0I,0J,00,00,2A,00,00,1E,1F,00,1A
  139. data 00,00,00,00,00,00,00,00,00,2A,00,00,0I,0J,00,00,0E,0F,00,00,00,00,00,00,00
  140. data 00,00,00,00,00,00,00,2E,00,00,0I,0J,00,00,00,00,1E,1F,00,00,2A,00,0M,00,00
  141. data 00,00,00,00,00,2A,00,00,0I,0J,00,00,00,00,2A,00,00,00,00,00,2A,00,1M,00,0A
  142. data 00,00,00,2A,00,00,0I,0J,00,00,00,2A,00,00,00,2C,00,0M,2A,0I,0J,00,2C,00,1A
  143. data 00,2A,00,0E,0F,00,0M,00,2A,00,0E,0F,00,00,00,0C,00,1M,2A,00,00,00,0C,00,00
  144. data 00,2A,00,1E,1F,00,1M,00,2A,00,1E,1F,00,00,00,1C,00,0M,2A,00,00,00,1C,00,00
  145. data 00,00,00,2A,00,00,0I,0J,00,00,00,2A,00,00,00,2C,00,1M,2A,0I,0J,00,2C,00,0A
  146. data 00,00,00,00,00,2A,00,00,0I,0J,00,00,00,00,2A,00,00,00,00,00,2A,00,0M,00,1A
  147. data 00,00,00,00,00,00,00,2E,00,00,0I,0J,00,00,00,00,0E,0F,00,00,2A,00,1M,00,00
  148. data 00,00,00,00,00,00,00,00,00,2A,00,00,0I,0J,00,00,1E,1F,00,00,00,00,00,00,00
  149. data 00,00,00,00,00,00,00,00,00,00,00,2G,00,00,0I,0J,00,00,2A,00,00,0E,0F,00,0A
  150. data 00,00,00,00,00,00,00,00,00,00,00,00,00,2A,00,00,0I,0J,00,00,00,1E,1F,00,1A
  151. data 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,2E,00,00,0I,0J,00,00,00,00,00
  152. data 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,2A,00,00,00,00,0E,0F,00
  153. data 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,2G,00,00,1E,1F,00
  154. data 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00
  155.  
  156.  
  157.  
  158. SUB ClearLayer (id%%)
  159.  old& = _DEST
  160.  _DEST Layer(id%%)
  161.  CLS
  162.  _DEST old&
  164.  
  165. FUNCTION CollisionTarget (id%%)
  166.  _SOURCE Layer(COLLISION)
  167.  test~& = POINT(PS(id%%).Xpos, PS(id%%).Ypos)
  168.  _SOURCE Layer(1)
  169.  IF test~& <> EmptySpace THEN Result~& = test~& ELSE Result~& = FALSE
  170.  CollisionTarget = Result~&
  172.  
  173. SUB Controls
  174.  STATIC SlowFlag%%, CoastFlag%%, ShotLock%%
  175.  
  176.  IF _KEYDOWN(18432) THEN P.SpeedY = P.SpeedY + .25: CoastFlag%% = FALSE
  177.  IF P.SpeedY >= 4 THEN P.SpeedY = 4
  178.  
  179.  IF _KEYDOWN(19200) THEN P.SpeedX = P.SpeedX - .25: IF P.SpeedX > 1 THEN SlowFlag%% = FALSE
  180.  IF P.SpeedX < .5 THEN P.SpeedX = .5
  181.  IF _KEYDOWN(19712) THEN P.SpeedX = P.SpeedX + .25: SlowFlag%% = FALSE
  182.  IF P.SpeedX > max THEN P.SpeedX = max
  183.  
  184.  IF _KEYDOWN(20480) THEN P.SpeedY = P.SpeedY - .25: CoastFlag%% = FALSE
  185.  IF P.SpeedY <= -4 THEN P.SpeedY = -4
  186.  
  187.  IF NOT SlowFlag%% THEN
  188.   IF NOT _KEYDOWN(19712) THEN
  189.    P.SpeedX = P.SpeedX - .05: IF P.SpeedX < min THEN P.SpeedX = min: SlowFlag%% = TRUE
  190.   END IF
  192.  
  193.  IF NOT CoastFlag%% THEN 'allow coast up and down
  194.   IF NOT _KEYDOWN(18432) AND NOT _KEYDOWN(20480) THEN
  195.    IF P.SpeedY > 0 THEN
  196.     P.SpeedY = P.SpeedY - .05
  197.     IF P.SpeedY <= .2 THEN CoastFlag%% = TRUE: P.SpeedY = 0
  198.    ELSE
  199.     P.SpeedY = P.SpeedY + .05
  200.     IF P.SpeedY >= -.2 THEN CoastFlag%% = TRUE: P.SpeedY = 0
  201.    END IF
  202.   END IF
  204.  
  206.   IF NOT ShotLock%% THEN
  207.    'shoot blaster
  208.    ShotLock%% = TRUE 'must release key to shoot again
  209.    P.ShotsFired = P.ShotsFired + 1
  210.    IF P.ShotsFired < 3 THEN MakeShot P.ShotsFired, Shot ELSE P.ShotsFired = 2
  211.   END IF
  213.   ShotLock%% = FALSE
  216.  
  217. SUB DestroyTarget (ID~&)
  218.  PRINT ID~&
  219. ' IF _FILEEXISTS("shotdebug.txt") THEN KILL "shotdebug.txt"
  220. ' OPEN "shotdebug.txt" FOR OUTPUT AS #2
  221. ' PRINT #2, ID~&
  222. ' PRINT #2, "---------------------"; S.Xsize * S.Ysize
  223.  FOR y% = 0 TO S.Ysize
  224.   FOR x% = 0 TO S.Xsize
  225.    IF ArmsID(x%, y%) <> 0 THEN PRINT #2, ArmsID(x%, y%); x%; y%
  226.    IF ArmsID(x%, y%) = ID~& THEN
  227.     PRINT x%, y%; ArmsID(x%, y%), Arms(x%, y%, 1)
  228.     ArmsID(x%, y%) = EmptySpace
  229.     Arms(x%, y%, 1) = Arms(x%, y%, 1) + 1
  230.     PRINT x%, y%; ArmsID(x%, y%), Arms(x%, y%, 1)
  231.     END
  232.    END IF
  233.   NEXT
  235. ' CLOSE
  236.  _PUTIMAGE (0, 0), Layer(COLLISION), _DISPLAY
  237.  PRINT ID~&, _RGB32(1, 11, 12), ArmsID(1, 11)
  238.  PRINT _RED32(ArmsID(1, 11)); _GREEN32(ArmsID(1, 11)); _BLUE32(ArmsID(1, 11))
  239.  PRINT _RED32(ID~&); _GREEN32(ID~&); _BLUE32(ID~&)
  242.  
  243. SUB DrawDreadnaught (Xloc%, Yloc%, LayerID%%)
  244.  'find last tile to display
  245.  Endx%% = (640 - Xloc%) / 32
  246.  Endy%% = (400 - Yloc%) / 32
  247.  'range check keep values within array size(or dreadnaught data size)
  248.  IF Endx%% > S.Xsize THEN Endx%% = S.Xsize
  249.  IF Endy%% > S.Ysize THEN Endy%% = S.Ysize
  250.  'find first tile to display
  251.  Startx%% = (0 + Xloc%) / 32
  252.  Starty%% = (0 + Yloc%) / 32
  253.  'make sure value is always negative(-) otherwise start at 0
  254.  IF Startx%% > 0 THEN Startx%% = 0
  255.  IF Starty%% > 0 THEN Starty%% = 0
  256.  'fix negative value to positive, this means that portion is off screen so
  257.  'start at the + array location in other words don't bother with whats off
  258.  'screen
  259.  Startx%% = ABS(Startx%%)
  260.  Starty%% = ABS(Starty%%)
  261.  ClearLayer COLLISION
  262.  FOR y% = Starty%% TO Endy%%
  263.   FOR x% = Startx%% TO Endx%%
  264.    layer% = Arms(x%, y%, 0) + 4
  265.    SELECT CASE Arms(x%, y%, 1)
  266.     CASE 0
  267.     CASE 65 TO 92
  268.      xoff% = 32 * (Arms(x%, y%, 1) - 65)
  269.      XL% = Xloc% + x% * 32
  270.      YL% = Yloc% + y% * 32
  271.      'draw ship targets(guns\vents\ect)
  272.      _PUTIMAGE (XL%, YL%), Layer(SPRITES), Layer(LayerID%%), (0 + xoff%, 64 + ((layer% - 4) * 32))-(31 + xoff%, 95 + ((layer% - 4) * 32))
  273.      'make collision layer(colored boxes for collision detections)
  274.      _DEST Layer(COLLISION)
  275.      LINE (XL%, YL%)-STEP(32, 32), ArmsID(x%, y%), BF
  276.      _DEST Layer(1) 'restore to _display layer
  277.    END SELECT
  278.   NEXT x%
  279.  NEXT y%
  281.  
  282. SUB DrawDreadNaughtBase (LayerID%%)
  283.  FOR y% = 0 TO S.Ysize
  284.   FOR x% = 0 TO S.Xsize
  285.    layer% = Ship(x%, y%, 0)
  286.    SELECT CASE Ship(x%, y%, 1)
  287.     CASE 0
  288.     CASE 65 TO 92
  289.      xoff% = 16 * (Ship(x%, y%, 1) - 65)
  290.      XL% = Xloc% + x% * 32
  291.      YL% = Yloc% + y% * 32
  292.      IF layer% > 0 THEN _PUTIMAGE (XL%, YL%)-(XL% + 32, YL% + 32), Layer(SPRITES), Layer(LayerID%%), (0, 0 + ((layer% - 1) * 16))-(15, 15 + ((layer% - 1) * 16))
  293.      _PUTIMAGE (XL%, YL%)-(XL% + 32, YL% + 32), Layer(SPRITES), Layer(LayerID%%), (0 + xoff%, 0 + (layer% * 16))-(15 + xoff%, 15 + (layer% * 16))
  294.    END SELECT
  295.   NEXT x%
  296.  NEXT y%
  298.  
  299. SUB DrawPlayerShot (tag%%)
  300.  FOR i%% = 1 TO P.ShotsFired
  301.   SELECT CASE PS(i%%).Time
  302.    CASE 0 TO 3
  303.     _PUTIMAGE (PS(i%%).Xpos, PS(i%%).Ypos), Layer(sprite), Layer(tag%%), (98, 186)-(107, 199)
  304.    CASE 4 TO 8
  305.     _PUTIMAGE (PS(i%%).Xpos, PS(i%%).Ypos), Layer(sprite), Layer(tag%%), (108, 186)-(117, 199)
  306.    CASE ELSE
  307.     _PUTIMAGE (PS(i%%).Xpos, PS(i%%).Ypos), Layer(sprite), Layer(tag%%), (119, 186)-(146, 199)
  309.  NEXT i%%
  311.  
  312. SUB drawstarfield
  313.  old& = _DEST
  314.  _DEST Layer(5)
  315.  CLS
  316.  _CLEARCOLOR _RGB32(0, 0, 0), Layer(5)
  317.  FOR i% = 1 TO Stars
  318.   LINE (Star(i%).Xpos, Star(i%).Ypos)-STEP(2, 2), Star(i%).Colr, BF
  319.  NEXT i%
  320.  _DEST old&
  322.  
  323. SUB EraseShot (id%%)
  324.  PS(id%%).Xpos = 0
  325.  PS(id%%).Ypos = 0
  326.  PS(id%%).Time = 0
  327.  PS(id%%).Kind = 0
  329.  
  330. SUB INITGame
  331.  SCREEN _NEWIMAGE(640, 480, 32)
  332.  Layer(0) = _LOADIMAGE("DFsprit64.PNG") '  Sprite Layer
  333.  Layer(1) = _DISPLAY
  334.  Layer(2) = _NEWIMAGE(640, 480, 32) 'Armorment draw layer
  335.  Layer(3) = _NEWIMAGE(640, 480, 32) 'screen mask, top 32 and bottom 80 pixels masked
  336.  Layer(4) = _NEWIMAGE(1408, 1024, 32) 'Ship base layer
  337.  Layer(5) = _NEWIMAGE(640, 480, 32) 'Star Field
  338.  Layer(6) = _LOADIMAGE("LaunchScreen.bmp", 32)
  339.  Layer(7) = _LOADIMAGE("titlescreen.bmp", 32)
  340.  Layer(8) = _NEWIMAGE(640, 480, 32) 'Dreadnaught weapon collision box layer
  341.  _PUTIMAGE (0, 0), Layer(7), Layer(1)
  342.  LINE (0, 400)-(639, 479), POINT(1, 1), BF
  343.  
  344.  'DIM Size(64) AS LONG, FOffset&(64)
  345. ' OPEN "dreadnaughtfactor.SFX" FOR BINARY AS #1
  346. ' GET #1, , c%%
  347. ' FOR w% = 1 TO c%%
  348. '  GET #1, , foffset&
  349. '  GET #1, , Size(w%)
  350. ' NEXT
  351. ' FOR w% = 1 TO c%%
  352. '  OPEN "temp.dat" FOR BINARY AS #3
  353. '  dat$ = SPACE$(Size(w%))
  354. '  GET #1, , dat$
  355. '  PUT #3, , dat$
  356. '  CLOSE #3
  357. '  SFX(w%) = _SNDOPEN("temp.dat")
  358. '  IF _FILEEXISTS("temp.dat") THEN KILL "temp.dat"
  359. ' NEXT w%
  360. ' CLOSE
  361.  
  362.  _DEST Layer(MASK)
  363.  LINE (0, 0)-(639, 479), _RGB32(0, 0, 0), BF
  364.  LINE (0, 33)-(639, 400), _RGB32(1, 1, 1), BF
  365.  LINE (0, 464)-(639, 479), _RGB32(1, 1, 1), BF
  367.  _CLEARCOLOR _RGB32(0, 0, 0), Layer(SPRITES)
  368.  _CLEARCOLOR _RGB32(1, 1, 1), Layer(MASK)
  369.  _CLEARCOLOR _RGB32(0, 0, 0), Layer(SHIP)
  370.  FFX(1) = _LOADFONT("PixelIntv.otf", 40, "monospace")
  371.  IF FFX(1) THEN _FONT FFX(1)
  373.  
  374. SUB LaunchScreen
  375.  _FONT FFX(1)
  377.  _PUTIMAGE (0, 32), Layer(6), Layer(1)
  378.  LINE (352, 99)-STEP(32, 32), _RGB32(0, 0, 0), BF 'erase old numbers
  379.  LINE (544, 99)-STEP(32, 32), _RGB32(0, 0, 0), BF
  380.  LINE (512, 323)-STEP(64, 32), _RGB32(0, 0, 0), BF
  381.  'change gate color based on level
  382.  IF G.Level > 1 THEN
  383.   _PUTIMAGE (400, 222), Layer(SPRITES), Layer(1), (256, 96 + ((G.Level - 2) * 12))-(287, 107 + ((G.Level - 2) * 12))
  384.   _PUTIMAGE (400, 217)-STEP(31, -11), Layer(SPRITES), Layer(1), (256, 96 + ((G.Level - 2) * 12))-(287, 107 + ((G.Level - 2) * 12))
  386.  v1$ = LTRIM$(STR$(G.Score)) 'create strings for printing
  387.  v2$ = LTRIM$(STR$(G.Ships))
  388.  v3$ = LTRIM$(STR$(G.Distance))
  389.  COLOR _RGB32(252, 224, 24) 'change color
  390.  _PRINTSTRING (384 - (LEN(v1$) * _FONTWIDTH(FFX(1))), 99), v1$, Layer(1) 'score
  391.  _PRINTSTRING (576 - (LEN(v2$) * _FONTWIDTH(FFX(1))), 99), v2$, Layer(1) 'Dreadnaughts destroyed
  392.  _PRINTSTRING (576 - (LEN(v3$) * _FONTWIDTH(FFX(1))), 323), v3$, Layer(1) 'Dreadnaughts distance
  393.  ic%% = G.Lives
  394.  IF ic%% > 15 THEN ic%% = 15 'only display upto 15 extra ships
  395.  FOR i%% = 0 TO ic%%
  396.   LINE (264, 230 + yy%%)-STEP(7, 3), _RGB32(0, 0, 255), BF
  397.   yy%% = yy%% + 8
  398.  NEXT i%%
  399.  'display Dreadnaught
  400.  _PUTIMAGE (418 + (G.Distance * 2), 206)-STEP(31, 27), Layer(SPRITES), Layer(1), (32, 161)-STEP(15, 13)
  401.  
  402.  FOR i%% = 0 TO 71 'move next hyperfighter to gate
  403.   IF ((i%% / 10) MOD 2) = 0 THEN
  404.    LINE (264 + xx~%%, 218)-STEP(7, 3), _RGB32(255, 255, 0), BF
  405.   ELSE
  406.    LINE (264 + xx~%%, 218)-STEP(7, 3), _RGB32(32, 32, 0), BF
  407.   END IF
  408.   _DELAY .025
  409.   LINE (264 + xx~%%, 218)-STEP(7, 3), _RGB32(0, 0, 0), BF
  410.   xx~%% = xx~%% + 2
  411.  NEXT i%%
  412.  i%% = 0
  413.  DO
  414.   IF ((i%% / 10) MOD 2) = 0 THEN
  415.    LINE (264 + xx~%%, 218)-STEP(7, 3), _RGB32(255, 255, 0), BF
  416.   ELSE
  417.    LINE (264 + xx~%%, 218)-STEP(7, 3), _RGB32(32, 32, 0), BF
  418.   END IF
  419.   _DELAY .025
  420.   i%% = i%% + 1: IF i%% = 100 THEN i%% = 0
  421.  LOOP UNTIL INKEY$ <> ""
  422.  '_SNDSTOP SFX(12)
  423.  '_SNDPLAY SFX(15)
  424.  COLOR _RGB32(255, 255, 255)
  425.  _FONT 16
  427.  
  428. SUB LoadDreadnaughtlayout
  429.  RESTORE Delta
  430.  READ S.Xsize
  431.  READ S.Ysize
  432.  DIM temp AS STRING * 2
  433.  
  434.  FOR y% = 0 TO S.Ysize
  435.   FOR x% = 0 TO S.Xsize
  436.    READ temp
  437.    Ship(x%, y%, 0) = VAL(LEFT$(temp, 1))
  438.    Ship(x%, y%, 1) = ASC(RIGHT$(temp, 1))
  439.  NEXT x%, y%
  440.  RESTORE DeltaWepondry
  441.  FOR y% = 0 TO S.Ysize
  442.   FOR x% = 0 TO S.Xsize
  443.    READ temp
  444.    Arms(x%, y%, 0) = VAL(LEFT$(temp, 1))
  445.    Arms(x%, y%, 1) = ASC(RIGHT$(temp, 1))
  446.    IF ASC(RIGHT$(temp, 1)) > 64 THEN ArmsID(x%, y%) = _RGB32(x%, y%, x% + y%) ELSE ArmsID(x%, y%) = 0
  447.  NEXT x%, y%
  449.  
  450. SUB MakeShot (id%%, tag%%)
  451.  PS(id%%).Xpos = 85
  452.  PS(id%%).Ypos = 226
  453.  PS(id%%).Time = 0
  454.  PS(id%%).Kind = tag%%
  456.  
  457. SUB movestarfield
  458.  FOR i% = 1 TO Stars
  459.   Star(i%).Xpos = Star(i%).Xpos - P.SpeedX
  460.   IF Star(i%).Xpos <= -1 THEN newstar i%, 1
  461.   Star(i%).Ypos = Star(i%).Ypos + P.SpeedY
  462.   IF Star(i%).Ypos <= -1 THEN newstar i%, 3
  463.   IF Star(i%).Ypos >= 480 THEN newstar i%, 2
  464.  NEXT i%
  466.  
  467. SUB newstar (num%, dir%)
  468.  SELECT CASE dir%
  469.   CASE 1
  470.    Star(num%).Xpos = 640
  471.    Star(num%).Ypos = INT(RND * 470) + 5
  472.    Star(num%).Colr = INT(RND * 240) + 15
  473.    Star(num%).Colr = _RGB32(Star(num%).Colr, Star(num%).Colr, Star(num%).Colr)
  474.   CASE 2
  475.    Star(num%).Xpos = Star(num%).Xpos
  476.    Star(num%).Ypos = 0
  477.   CASE 3
  478.    Star(num%).Xpos = Star(num%).Xpos
  479.    Star(num%).Ypos = 479
  482.  
  483. SUB PlayerStartdata
  484.  G.Lives = 10
  485.  G.Score = 0
  486.  G.Ships = 0
  487.  P.Xpos = (G.Distance * 30) ' distance from gate to ship
  488.  P.Ypos = 0
  490.  
  491.  
  492. SUB ProcessPlayerShots
  493.  FOR i%% = 1 TO P.ShotsFired
  494.   SELECT CASE PS(i%%).Kind
  495.    CASE Shot
  496.     PS(i%%).Xpos = PS(i%%).Xpos + P.SpeedX + 7
  497.     PS(i%%).Time = PS(i%%).Time + 1
  498.     PS(i%%).Ypos = PS(i%%).Ypos + P.SpeedY
  499.     HIT~& = CollisionTarget(i%%) 'check if shot hit a target
  500.     IF HIT~& OR PS(i%%).Time > 100 OR PS(i%%).Ypos < 26 OR PS(i%%).Ypos > 410 OR PS(i%%).Xpos > 630 THEN
  501.      IF i%% = 2 THEN P.ShotsFired = P.ShotsFired - 1: EraseShot 2
  502.      IF i%% = 1 AND P.ShotsFired = 2 THEN
  503.       SWAP PS(1), PS(2): P.ShotsFired = P.ShotsFired - 1: EraseShot 2
  504.      ELSE
  505.       P.ShotsFired = 0
  506.       EraseShot 1
  507.      END IF
  508.      IF HIT~& THEN DestroyTarget HIT~&: HIT~& = 0
  509.     END IF
  510.  
  511.    CASE Bomb
  513.  NEXT i%%
  515.  
  516. SUB ShipStartdata
  517.  S.Vents = 16
  518.  S.Engines = 4
  519.  S.Silos = 5
  520.  G.Distance = 93 - (G.Level - 1)
  522.  
  523. SUB TitleScreen
  524.  COLOR _RGB32(255, 255, 255), POINT(1, 1)
  525.  _PRINTSTRING (32, 384), "UniKorn ProDucKions"
  526.  _PRINTSTRING (32, 416), "Clone 2018 @ Cobalt"
  527.  COLOR _RGB32(255, 255, 255), _RGB32(0, 0, 0)
  528.  DO
  529.   KBD$ = INKEY$
  530.   IF KBD$ <> "" AND KBD$ >= CHR$(49) AND KBD$ <= CHR$(55) THEN G.Level = VAL(KBD$): exitflag%% = TRUE
  531.   _DELAY .01
  532.  LOOP UNTIL exitflag%%
  533.  exitflag%% = FALSE
  534.  CLS
  536.  
  537. SUB UpdateShipDistance
  538.  G.Distance = G.Distance - (G.Level + (2 * S.Engines))
  539.  P.Xpos = G.Distance * 30
  541.  

you'll just need the image below for the spirtes, I believe thats it, sometimes its hard to keep track of what all is needed in these developmental stages. if it says something is missing let me know.

11/1/2018-17:02  updated the code to use the PNG version of the sprite sheet.
« Last Edit: November 01, 2018, 09:38:12 pm by Cobalt »
Logged
Granted after becoming radioactive I only have a half-life!

Offline SMcNeill

  • QB64 Developer
  • Forum Resident
  • Posts: 3972
    • View Profile
    • Steve’s QB64 Archive Forum
Re: Why is POINT returning a different color value?
« Reply #1 on: November 01, 2018, 07:34:12 pm »
This may be a case of PRINT using SINGLE values, which *can* lose blue values just as you describe.

I'm not at the PC right at this moment, but store the value in a temp variable and then print it and see how the numbers compare.

temp~& = _RGB(red,green,blue)
PRINT temp&
Logged
https://github.com/SteveMcNeill/Steve64 — A github collection of all things Steve!

Offline TempodiBasic

  • Forum Resident
  • Posts: 1792
    • View Profile
Re: Why is POINT returning a different color value?
« Reply #2 on: November 01, 2018, 08:51:38 pm »
Hi Cobalt
it seems you last out these file images to let work your code
Quote
Layer(6) = _LOADIMAGE("LaunchScreen.bmp", 32)
 Layer(7) = _LOADIMAGE("titlescreen.bmp", 32)
Logged
Programming isn't difficult, only it's  consuming time and coffee

Offline Cobalt

  • QB64 Developer
  • Forum Resident
  • Posts: 878
  • At 60 I become highly radioactive!
    • View Profile
Re: Why is POINT returning a different color value?
« Reply #3 on: November 01, 2018, 09:01:42 pm »
Quote from: TempodiBasic on November 01, 2018, 08:51:38 pm
Hi Cobalt
it seems you last out these file images to let work your code
Quote
Layer(6) = _LOADIMAGE("LaunchScreen.bmp", 32)
 Layer(7) = _LOADIMAGE("titlescreen.bmp", 32)
Thanks TempB,

Knew I was forgetting something... and realized the sprite sheet upload is PNG, you'll need to change the loadimage line for that but I'll update that in the source above.
« Last Edit: November 01, 2018, 09:07:37 pm by Cobalt »
Logged
Granted after becoming radioactive I only have a half-life!

Offline Cobalt

  • QB64 Developer
  • Forum Resident
  • Posts: 878
  • At 60 I become highly radioactive!
    • View Profile
Re: Why is POINT returning a different color value?
« Reply #4 on: November 01, 2018, 09:27:48 pm »
Quote from: SMcNeill on November 01, 2018, 07:34:12 pm
This may be a case of PRINT using SINGLE values, which *can* lose blue values just as you describe.
I'm not at the PC right at this moment, but store the value in a temp variable and then print it and see how the numbers compare.
temp~& = _RGB(red,green,blue)
PRINT temp&

A function returns the POINT value through a ~& but now that I think about it what value do Functions default as? if I FunctionName = result~& does that make the function return a ~& or is it returning a single?
Do I need to explicitly define the function as a ~&? like  Function itsname~&(args...) ?
Logged
Granted after becoming radioactive I only have a half-life!

Offline Cobalt

  • QB64 Developer
  • Forum Resident
  • Posts: 878
  • At 60 I become highly radioactive!
    • View Profile
(solved)Why is POINT returning a different color value?
« Reply #5 on: November 01, 2018, 09:37:46 pm »
AH, so that seems to be it, Good thing you said something Steve. I never would have thought about the function return value otherwise and spent hours scratching my head.
Changing Function CollisionTarget (ID~&) to Function CollisionTarget~& (ID~&) fixed it.
Logged
Granted after becoming radioactive I only have a half-life!

FellippeHeitor

  • Guest
Re: Why is POINT returning a different color value?
« Reply #6 on: November 01, 2018, 09:51:21 pm »
Quote from: Cobalt on November 01, 2018, 09:27:48 pm
what value do Functions default as?

No type symbol at the end of a function name has it default to SINGLE, like any other variable, unless DEF statements (or _DEFINE) come into play.

You don't need the type symbol when you call the function though:
Code: QB64: [Select]
  2.  
  4.     a~& = _RGB32(255, 255, 255)
« Last Edit: November 01, 2018, 09:55:47 pm by FellippeHeitor »
Logged

Offline TerryRitchie

  • Seasoned Forum Regular
  • Posts: 495
  • Semper Fidelis
    • View Profile
Re: (Solved)Why is POINT returning a different color value?
« Reply #7 on: November 01, 2018, 10:16:25 pm »
Awesome! You are recreating Activision games.
Logged
In order to understand recursion, one must first understand recursion.

Offline Cobalt

  • QB64 Developer
  • Forum Resident
  • Posts: 878
  • At 60 I become highly radioactive!
    • View Profile
Re: Why is POINT returning a different color value?
« Reply #8 on: November 01, 2018, 10:53:10 pm »
Quote from: FellippeHeitor on November 01, 2018, 09:51:21 pm

You don't need the type symbol when you call the function though:

ah that is probably what made me think that because I gave it a ~& as the return value it would be the same. Good to know
Thanks Fellippe.

Quote from: TerryRitchie on November 01, 2018, 10:16:25 pm
Awesome! You are recreating Activision games.


I am a fan of Intellivision games and big fan of the ones developed by Tom Loughry. (Dreadnaught factor, and AD&D Treasure of Tarmin being two in particular)
Logged
Granted after becoming radioactive I only have a half-life!

Offline TempodiBasic

  • Forum Resident
  • Posts: 1792
    • View Profile
Re: (Solved)Why is POINT returning a different color value?
« Reply #9 on: November 04, 2018, 06:54:55 am »
Good stuff recreating old games...
android has a big hunger for these...

Who does know about Apple Market and Windows Market app?
Logged
Programming isn't difficult, only it's  consuming time and coffee
Pages: [1]   Go Up
« previous next »