Show Posts

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


Messages - MrFreyer

Pages: [1] 2 3
1
QB64 Discussion / Buffer for _AXIS and _BUTTON command?
« on: August 12, 2020, 04:55:00 pm »
Hi all,
is there an internal buffer for the _AXIS and the _BUTTON command?

If my game has a really low framerate and I mash a button, on the controller, repeatedly, the game runs the specific action for a few seconds, even if no further buttoninput is done... Same with the analog stick (_AXIS). Sadly this is really annoying :D
If I use the keyboard (_KEYDOWN) while the game have a low framerate, I have to press the keys for a few milliseconds, till the game detect the input, but instantly stops an action when the key isn't pressed anymore.
This is much better than the controller-problem.

Thanks for answers and help.

2
Programs / Re: The Grand Demon Saga (Game)
« on: December 02, 2019, 11:32:42 pm »
As soon as I have an apple laptop, I will make a version for macOS.  :D
I really won't share the whole code - it comes from 2 years of work ^^

3
Programs / Re: The Grand Demon Saga (Game)
« on: December 02, 2019, 08:28:26 am »
Quote from: pforpond on December 02, 2019, 08:15:54 am
Any chance for a macOS build or the source code? :)
How can I make a macOS build?
What happens if you run it under macOS?

EDIT:
is there just a problem with the filepaths?

EDITEDIT:
...and on the screenshot, yo'llu see the reason why I shouln't share the whole sourcecode ':D

4
Programs / The Grand Demon Saga (Game)
« on: December 01, 2019, 09:02:55 pm »
Hi @all,

I'm currently programming a small game in my free time. It's still an very early version...

You can download it via the download-link at granddemonsaga.net, or directly via
https://www.file-upload.net/download-13806677/TheGrandDemonSaga_v.0.0.1.zip.html.

If you have questions about the gamemechanics or wanna see some specific code-sections, just ask.

5
Programs / Mosaic Effect
« on: November 06, 2019, 03:31:34 am »
...it's the mosaic effect, like the SNES games used it to pixelate (blur?) the screen.

Code: QB64: [Select]
  1. DEFINT A-Z
  2.  
  4.  
  5. desktopscreen.width = _DESKTOPWIDTH
  6. desktopscreen.height = _DESKTOPHEIGHT
  7.  
  8. screenwindow.width = 800
  9. screenwindow.height = 600
  10.  
  11. SCREEN _NEWIMAGE(screenwindow.width, screenwindow.height, 32)
  13. _SCREENMOVE (desktopscreen.width * 0.5 - screenwindow.width * 0.5), 0
  15.  
  16. CONST pixelbytes = 4 '4 byte per pixel (RGBA)
  17.  
  18. DIM pixelcolorRed AS _UNSIGNED _BYTE
  19. DIM pixelcolorGreen AS _UNSIGNED _BYTE
  20. DIM pixelcolorBlue AS _UNSIGNED _BYTE
  21.  
  22. DIM imageScreenMEMORY AS _MEM
  23.  
  24. mosaicSize = 1
  25.  
  26. 'calculate maximum mosaic tiles
  27. mosaicsVertical = FIX(screenwindow.height / mosaicSize)
  28. mosaicsHorizontal = FIX(screenwindow.width / mosaicSize)
  29.  
  31.     CLS
  32.     LINE (0, 0)-(screenwindow.width - 1, screenwindow.height - 1), _RGB(255, 255, 95), BF
  33.     _FONT 16
  34.     COLOR _RGB(255, 0, 255), _RGB(255, 255, 255)
  35.     _PRINTSTRING (32, 0), "Explanation:"
  36.     COLOR _RGB(255, 191, 0), _RGB(191, 95, 0)
  37.     _PRINTSTRING (32, 64), "This program shows the Mosaic Effect."
  38.     COLOR _RGB(0, 255, 0), _RGB(0, 0, 63)
  39.     _PRINTSTRING (32, 128), "But it's the old version, like the Super Nintendo Entertainment System used it."
  40.     COLOR _RGB(191, 191, 191), _RGB(191, 63, 0)
  41.     _PRINTSTRING (32, 192), "The old version takes just the color of a pixel"
  42.     COLOR _RGB(95, 63, 95), _RGB(0, 255, 193)
  43.     _PRINTSTRING (32, 256), "and overwrites the next few pixels on the x and y axis"
  44.     COLOR _RGB(0, 191, 127), _RGB(255, 0, 0)
  45.     _PRINTSTRING (32, 320), "with the color values of the first pixel."
  46.     COLOR _RGB(0, 255, 123), _RGB(31, 95, 31)
  47.     _PRINTSTRING (32, 384), "There is also a newer, smooth version, but who needs it? :D"
  48.     COLOR _RGB(255, 255, 255), _RGB(0, 0, 0)
  49.     _PRINTSTRING (32, 448), "Just press [+] or [-] to change the mosaic size."
  50.     COLOR _RGB(255, 95, 95), _RGB(0, 0, 0)
  51.     _PRINTSTRING (464, 448), "<<< change mosaic size"
  52.     COLOR _RGB(0, 0, 0), _RGB(63, 127, 63)
  53.     _PRINTSTRING (32, 512), "Press [Escape] to close the program."
  54.     COLOR _RGB(255, 95, 95), _RGB(0, 0, 0)
  55.     _PRINTSTRING (464, 512), "<<< close program"
  56.     COLOR _RGB(255, 0, 0), _RGB(31, 31, 31)
  57.     _PRINTSTRING (32, 576), "X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X"
  58.  
  59.     imageScreenMEMORY = _MEMIMAGE(0)
  60.  
  61.     FOR pixelVertical = 1 TO mosaicsVertical
  62.         FOR pixelHorizontal = 1 TO mosaicsHorizontal
  63.             y = (pixelVertical  - 1) * mosaicSize
  64.             x = (pixelHorizontal  - 1) * mosaicSize
  65.  
  66.             _MEMGET imageScreenMEMORY , imageScreenMEMORY .OFFSET + (x * pixelbytes) + (y * (screenwindow.width * pixelbytes)), pixelcolorRed
  67.             _MEMGET imageScreenMEMORY , imageScreenMEMORY .OFFSET + ((x * pixelbytes) + 1) + (y * (screenwindow.width * pixelbytes)), pixelcolorGreen
  68.             _MEMGET imageScreenMEMORY , imageScreenMEMORY .OFFSET + ((x * pixelbytes) + 2) + (y * (screenwindow.width * pixelbytes)), pixelcolorBlue
  69.  
  70.             FOR y2 = 0 TO mosaicSize - 1
  71.                 FOR x2 = 0 TO mosaicSize - 1
  72.                     _MEMPUT imageScreenMEMORY , imageScreenMEMORY .OFFSET + (x * pixelbytes) + (x2 * pixelbytes) + (y * (screenwindow.width * pixelbytes)) + (y2 * (screenwindow.width * pixelbytes)), pixelcolorRed
  73.                     _MEMPUT imageScreenMEMORY , imageScreenMEMORY .OFFSET + ((x * pixelbytes) + 1) + (x2 * pixelbytes) + (y * (screenwindow.width * pixelbytes)) + (y2 * (screenwindow.width * pixelbytes)), pixelcolorGreen
  74.                     _MEMPUT imageScreenMEMORY , imageScreenMEMORY .OFFSET + ((x * pixelbytes) + 2) + (x2 * pixelbytes) + (y * (screenwindow.width * pixelbytes)) + (y2 * (screenwindow.width * pixelbytes)), pixelcolorBlue
  75.                 NEXT x2
  76.             NEXT y2
  77.  
  78.         NEXT pixelHorizontal
  79.     NEXT pixelVertical
  80.  
  81.     _DISPLAY
  82.  
  83.     WHILE INKEY$ <> "": WEND
  84.     DO
  85.         keypressed$ = INKEY$
  86.         IF keypressed$ = CHR$(43) THEN
  87.             mosaicSize = mosaicSize + 1
  88.             IF mosaicSize > 64 THEN mosaicSize = 64
  89.             mosaicsVertical = FIX(screenwindow.height / mosaicSize)
  90.             mosaicsHorizontal = FIX(screenwindow.width / mosaicSize)
  91.             EXIT DO
  92.         END IF
  93.         IF keypressed$ = CHR$(45) THEN
  94.             mosaicSize = mosaicSize - 1
  95.             IF mosaicSize < 1 THEN mosaicSize = 1
  96.             mosaicsVertical = FIX(screenwindow.height / mosaicSize)
  97.             mosaicsHorizontal = FIX(screenwindow.width / mosaicSize)
  98.             EXIT DO
  99.         END IF
  100.         IF keypressed$ = CHR$(27) THEN GOTO close_program
  101.     LOOP
  102.  
  104.  
  105. close_program:
  108.  


EDIT:
...and here the slightly slower version, but with POINT/ PRESET instead of _MEMGET/ _MEMPUT
Code: QB64: [Select]
  1. DEFINT A-Z
  2.  
  4.  
  5. desktopscreen.width = _DESKTOPWIDTH
  6. desktopscreen.height = _DESKTOPHEIGHT
  7.  
  8. screenwindow.width = 800
  9. screenwindow.height = 600
  10.  
  11. SCREEN _NEWIMAGE(screenwindow.width, screenwindow.height, 32)
  13. _SCREENMOVE (desktopscreen.width * 0.5 - screenwindow.width * 0.5), 0
  15.  
  16. DIM pixelcolor AS LONG
  17. DIM pixelcolorRed AS _UNSIGNED _BYTE
  18. DIM pixelcolorGreen AS _UNSIGNED _BYTE
  19. DIM pixelcolorBlue AS _UNSIGNED _BYTE
  20.  
  21. mosaicSize = 1
  22.  
  23. 'calculate maximum mosaic tiles
  24. mosaicsVertical = FIX(screenwindow.height / mosaicSize)
  25. mosaicsHorizontal = FIX(screenwindow.width / mosaicSize)
  26.  
  28.     CLS
  29.     LINE (0, 0)-(screenwindow.width - 1, screenwindow.height - 1), _RGB(255, 255, 95), BF
  30.     _FONT 16
  31.     COLOR _RGB(255, 0, 255), _RGB(255, 255, 255)
  32.     _PRINTSTRING (32, 0), "Explanation:"
  33.     COLOR _RGB(255, 191, 0), _RGB(191, 95, 0)
  34.     _PRINTSTRING (32, 64), "This program shows the Mosaic Effect."
  35.     COLOR _RGB(0, 255, 0), _RGB(0, 0, 63)
  36.     _PRINTSTRING (32, 128), "But it's the old version, like the Super Nintendo Entertainment System used it."
  37.     COLOR _RGB(191, 191, 191), _RGB(191, 63, 0)
  38.     _PRINTSTRING (32, 192), "The old version takes just the color of a pixel"
  39.     COLOR _RGB(95, 63, 95), _RGB(0, 255, 193)
  40.     _PRINTSTRING (32, 256), "and overwrites the next few pixels on the x and y axis"
  41.     COLOR _RGB(0, 191, 127), _RGB(255, 0, 0)
  42.     _PRINTSTRING (32, 320), "with the color values of the first pixel."
  43.     COLOR _RGB(0, 255, 123), _RGB(31, 95, 31)
  44.     _PRINTSTRING (32, 384), "There is also a newer, smooth version, but who needs it? :D"
  45.     COLOR _RGB(255, 255, 255), _RGB(0, 0, 0)
  46.     _PRINTSTRING (32, 448), "Just press [+] or [-] to change the mosaic size."
  47.     COLOR _RGB(255, 95, 95), _RGB(0, 0, 0)
  48.     _PRINTSTRING (464, 448), "<<< change mosaic size"
  49.     COLOR _RGB(0, 0, 0), _RGB(63, 127, 63)
  50.     _PRINTSTRING (32, 512), "Press [Escape] to close the program."
  51.     COLOR _RGB(255, 95, 95), _RGB(0, 0, 0)
  52.     _PRINTSTRING (464, 512), "<<< close program"
  53.     COLOR _RGB(255, 0, 0), _RGB(31, 31, 31)
  54.     _PRINTSTRING (32, 576), "X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X"
  55.    
  56.     FOR pixelVertical  = 1 TO mosaicsVertical
  57.         FOR pixelHorizontal  = 1 TO mosaicsHorizontal
  58.             y = (pixelVertical  - 1) * mosaicSize
  59.             x = (pixelHorizontal   - 1) * mosaicSize
  60.  
  61.             pixelcolor = POINT(x, y)
  62.             pixelcolorRed = _RED32(pixelcolor)
  63.             pixelcolorGreen = _GREEN32(pixelcolor)
  64.             pixelcolorBlue = _BLUE32(pixelcolor)
  65.  
  66.             FOR y2 = 0 TO mosaicSize - 1
  67.                 FOR x2 = 0 TO mosaicSize - 1
  68.                     PRESET (x + x2, y + y2), _RGB(pixelcolorRed, pixelcolorGreen, pixelcolorBlue)
  69.                 NEXT x2
  70.             NEXT y2
  71.  
  72.         NEXT pixelHorizontal  
  73.     NEXT pixelVertical
  74.     _DISPLAY
  75.  
  76.     WHILE INKEY$ <> "": WEND
  77.     DO
  78.         keypressed$ = INKEY$
  79.         IF keypressed$ = CHR$(43) THEN
  80.             mosaicSize = mosaicSize + 1
  81.             IF mosaicSize > 64 THEN mosaicSize = 64
  82.             mosaicsVertical = FIX(screenwindow.height / mosaicSize)
  83.             mosaicsHorizontal = FIX(screenwindow.width / mosaicSize)
  84.             EXIT DO
  85.         END IF
  86.         IF keypressed$ = CHR$(45) THEN
  87.             mosaicSize = mosaicSize - 1
  88.             IF mosaicSize < 1 THEN mosaicSize = 1
  89.             mosaicsVertical = FIX(screenwindow.height / mosaicSize)
  90.             mosaicsHorizontal = FIX(screenwindow.width / mosaicSize)
  91.             EXIT DO
  92.         END IF
  93.         IF keypressed$ = CHR$(27) THEN GOTO close_program
  94.     LOOP
  95.  
  97.  
  98. close_program:
  101.  

6
Programs / Re: Higher/Smoother framerate movement
« on: November 05, 2019, 05:52:49 pm »
...something smooth like this?

Code: QB64: [Select]
  1. '+-------------------+
  2. '        SLAY
  3. ' ZEPPELIN GAMES 2019
  4. '+-------------------+
  5.  
  6. _TITLE "SLAY" 'SET TITLE
  7. _FULLSCREEN 'SET FULLSCREEN
  8. SCREEN _NEWIMAGE(1200, 800, 256)
  9.  
  10. DIM sTime AS DOUBLE 'NEW NEW NEW ####################################
  11. DIM eTime AS DOUBLE 'NEW NEW NEW ####################################
  12. DIM deltaTime AS SINGLE 'NEW NEW NEW ####################################
  13.  
  14. 'DECLARE VARIABLES
  15. 'SAVE DATA VARS
  17. DIM SHARED saveData$(1000)
  18.  
  19. 'PLAYER VARS
  20. DIM SHARED player%(10000)
  22. DIM SHARED player.health AS INTEGER
  23. DIM SHARED player.basehealth AS INTEGER
  24. DIM SHARED playerScale AS INTEGER
  25. playerScale = 15
  26.  
  28.  
  29. 'PLAYER STATS
  30. DIM SHARED stats.enemyskilled AS INTEGER
  31. DIM SHARED stats.totaldeaths AS INTEGER
  32.  
  33. 'SCREEN AND FORMATTING VARS
  36.  
  39.  
  40. 'GET THE SCREEN DIMSENSIONS
  41. w = _WIDTH
  43.  
  44. 'FONT DATA
  47.  
  48. 'SET THE COLOR
  49. col = _RGBA(255, 255, 255, 255)
  50.  
  51. 'START GAME
  52. LoadData
  53.  
  54. SUB LoadData
  55.     'LOAD SAVE DATA
  56.  
  57.     'LOAD PLAYER SPRITE
  58.     LoadSprite player%(), playerScale
  59.  
  60.     IF _FILEEXISTS("SlayV4SaveData.txt") THEN 'SEE IF THE FILE EXISTS
  61.         OPEN "SlayV4SaveData.txt" FOR INPUT AS #1
  62.         DO UNTIL EOF(1) 'LOOP UNTIL END OF FILE
  63.             filecount = filecount + 1 'COUNT AMOUNT OF LINES
  64.             LINE INPUT #1, file$
  65.             saveData$(filecount) = file$
  66.         LOOP
  67.         CLOSE #1
  68.  
  69.         IF filecount > 2 THEN
  70.             'PLAYER
  71.  
  72.             'DECRYPT NAME
  73.             name$ = ""
  74.             FOR n = 1 TO LEN(saveData$(1)) STEP 2
  75.                 name$ = name$ + CHR$(ASC(MID$(saveData$(1), n, 1)) - 4)
  76.             NEXT n
  77.  
  78.             'DECRYPT STATS
  79.             'HEALTH
  80.             health$ = ""
  81.             FOR n = 1 TO LEN(saveData$(2)) STEP 2
  82.                 health$ = health$ + CHR$(ASC(MID$(saveData$(2), n, 1)) - 4)
  83.             NEXT n
  84.  
  85.             player.name = UCASE$(name$) 'LOAD NAME
  86.             player.basehealth = VAL(health$) 'LOAD BASE HEALTH
  87.             player.health = player.basehealth 'SET PLAYER HEALTH
  88.             'SAVE DATA
  89.             save.point = VAL(saveData$(3)) 'LOAD SAVE POINT
  90.             'STATS
  91.             stats.enemyskilled = VAL(saveData$(4)) 'ENEMYS KILLED
  92.             stats.totaldeaths = VAL(saveData$(5)) 'TOTAL DEATHS
  93.         ELSE
  94.             CreateNewSave
  95.         END IF
  96.     ELSE
  97.         CreateNewSave
  98.     END IF
  99.  
  100.     'START GAME
  101.     _DELAY (1)
  102.     DrawLogo
  104.  
  105. SUB CreateNewSave
  106.     'CREATE NEW SAVE FILE
  107.     scaledText w / 2 - 65, h / 2 + 8, 16, _RGBA(255, 255, 255, 255), "Enter your name: "
  108.     DO
  109.         LOCATE (h / 2 - 248) / fh + hf, (w / 2 - 50) / fw + fw: INPUT "", name$
  110.     LOOP UNTIL LEN(name$) > 1
  111.     IF LEN(name$) > 16 THEN
  112.         CLS
  113.         _PRINTSTRING (w / 2 - 150, h / 2), "Name length should be less than 16 characters"
  114.         _DELAY (2)
  115.         CLS
  116.         LoadData
  117.     END IF
  118.  
  119.     'SET VARS
  120.     player.name = UCASE$(name$)
  121.     player.health = 100
  122.  
  123.     save.point = 0
  124.     stats.enemyskilled = 0
  125.     stats.totaldeaths = 0
  126.  
  127.     'ENCRYPT SAVE DATA
  128.     'NAME
  129.     DIM nameArray$(16)
  130.     FOR n = 1 TO LEN(player.name)
  131.         nameArray$(n) = MID$(player.name, n, 1)
  132.     NEXT n
  133.  
  134.     FOR n = 1 TO LEN(player.name)
  135.         tempName$ = tempName$ + CHR$(ASC(nameArray$(n)) + 4)
  136.         tempName$ = tempName$ + CHR$(INT(RND * 100) + 100)
  137.     NEXT n
  138.  
  139.     name$ = tempName$
  140.  
  141.     'ENCRYPT STATS
  142.     'HEALTH
  143.     DIM healthArray$(5)
  144.     FOR n = 1 TO LEN(STR$(player.health))
  145.         healthArray$(n) = MID$(STR$(player.health), n, 1)
  146.     NEXT n
  147.  
  148.     FOR n = 1 TO LEN(STR$(player.health))
  149.         tempHealth$ = tempHealth$ + CHR$(ASC(healthArray$(n)) + 4)
  150.         tempHealth$ = tempHealth$ + CHR$(INT(RND * 100) + 100)
  151.     NEXT n
  152.  
  153.     'SAVE VARS TO TXT
  154.     OPEN "SlayV4SaveData.txt" FOR OUTPUT AS #1
  155.     'PLAYER
  156.     PRINT #1, name$
  157.     PRINT #1, tempHealth$
  158.     'SAVE DATA
  159.     PRINT #1, save.point
  160.     'STATS
  161.     PRINT #1, stats.enemyskilled
  162.     PRINT #1, stats.totaldeaths
  163.     CLOSE #1
  164.     CLS
  166.  
  167. SUB DrawLogo
  168.     'FADE LOGO IN
  169.     FOR n = 0 TO 255
  170.         'LIMIT FPS
  171.         _LIMIT 1000
  172.         'TOP LINE
  173.         LINE (w / 6 * 2, h / 6 * 1.5)-(w / 6 * 4, h / 6 * 2), col, BF
  174.         LINE (w / 6 * 1.8, h / 6 * 1.5)-(w / 6 * 4.25, h / 6 * 1.75), col, BF
  175.  
  176.         'MIDDLE
  177.         LINE (w / 6 * 3.5, h / 6 * 2)-(w / 6 * 4, h / 6 * 2.5), col, BF
  178.         LINE (w / 6 * 3.25, h / 6 * 2.25)-(w / 6 * 3.75, h / 6 * 3), col, BF
  179.         LINE (w / 6 * 2.75, h / 6 * 2.75)-(w / 6 * 3.5, h / 6 * 3.25), col, BF
  180.         LINE (w / 6 * 2.25, h / 6 * 3)-(w / 6 * 3.25, h / 6 * 3.5), col, BF
  181.         LINE (w / 6 * 2, h / 6 * 3.25)-(w / 6 * 2.5, h / 6 * 3.75), col, BF
  182.  
  183.         'BOTTOM LINE
  184.         LINE (w / 6 * 1.75, h / 6 * 3.75)-(w / 6 * 4.25, h / 6 * 4.25), col, BF
  185.         LINE (w / 6 * 1.5, h / 6 * 4)-(w / 6 * 4.5, h / 6 * 4.25), col, BF
  186.         col = _RGB(n, n, n)
  187.         _DISPLAY
  188.     NEXT n
  189.  
  190.  
  191.     'DRAW LOGO
  192.     LINE (w / 6 * 2, h / 6 * 1.5)-(w / 6 * 4, h / 6 * 2), col, BF
  193.     LINE (w / 6 * 1.8, h / 6 * 1.5)-(w / 6 * 4.25, h / 6 * 1.75), col, BF
  194.  
  195.     'MIDDLE
  196.     LINE (w / 6 * 3.5, h / 6 * 2)-(w / 6 * 4, h / 6 * 2.5), col, BF
  197.     LINE (w / 6 * 3.25, h / 6 * 2.25)-(w / 6 * 3.75, h / 6 * 3), col, BF
  198.     LINE (w / 6 * 2.75, h / 6 * 2.75)-(w / 6 * 3.5, h / 6 * 3.25), col, BF
  199.     LINE (w / 6 * 2.25, h / 6 * 3)-(w / 6 * 3.25, h / 6 * 3.5), col, BF
  200.     LINE (w / 6 * 2, h / 6 * 3.25)-(w / 6 * 2.5, h / 6 * 3.75), col, BF
  201.  
  202.     'BOTTOM LINE
  203.     LINE (w / 6 * 1.75, h / 6 * 3.75)-(w / 6 * 4.25, h / 6 * 4.25), col, BF
  204.     LINE (w / 6 * 1.5, h / 6 * 4)-(w / 6 * 4.5, h / 6 * 4.25), col, BF
  205.  
  206.     scaledText w / 2, h / 6 * 4.5, 50, _RGBA(255, 255, 255, 255), "ZEPPELIN GAMES"
  207.     _DISPLAY
  208.     _DELAY (3) 'WAIT A BIT
  209.  
  210.     'FADE THE LOGO AND TEXT OUT
  211.     FOR n = 0 TO 255
  212.         'LIMIT FPS
  213.         _LIMIT 1000
  214.         'TOP LINE
  215.         LINE (w / 6 * 2, h / 6 * 1.5)-(w / 6 * 4, h / 6 * 2), col, BF
  216.         LINE (w / 6 * 1.8, h / 6 * 1.5)-(w / 6 * 4.25, h / 6 * 1.75), col, BF
  217.  
  218.         'MIDDLE
  219.         LINE (w / 6 * 3.5, h / 6 * 2)-(w / 6 * 4, h / 6 * 2.5), col, BF
  220.         LINE (w / 6 * 3.25, h / 6 * 2.25)-(w / 6 * 3.75, h / 6 * 3), col, BF
  221.         LINE (w / 6 * 2.75, h / 6 * 2.75)-(w / 6 * 3.5, h / 6 * 3.25), col, BF
  222.         LINE (w / 6 * 2.25, h / 6 * 3)-(w / 6 * 3.25, h / 6 * 3.5), col, BF
  223.         LINE (w / 6 * 2, h / 6 * 3.25)-(w / 6 * 2.5, h / 6 * 3.75), col, BF
  224.  
  225.         'BOTTOM LINE
  226.         LINE (w / 6 * 1.75, h / 6 * 3.75)-(w / 6 * 4.25, h / 6 * 4.25), col, BF
  227.         LINE (w / 6 * 1.5, h / 6 * 4)-(w / 6 * 4.5, h / 6 * 4.25), col, BF
  228.         col = _RGB(255 - n, 255 - n, 255 - n)
  229.  
  230.         LINE (w / 10 * 2, h / 10 * 7)-(w / 10 * 8, h / 10 * 8), _RGB(0, 0, 0), BF
  231.         scaledText w / 2, h / 6 * 4.5, 50, _RGBA(255, 255, 255, 255 - n), "ZEPPELIN GAMES"
  232.         _DISPLAY
  233.     NEXT n
  234.     CLS
  235.     _DISPLAY
  236.     _DELAY (2)
  237.     DrawMenu
  239.  
  240. SUB DrawMenu
  241.     'FADE IN MENU SCREEN
  242.     FOR n = 0 TO 255
  243.         _LIMIT 1000
  244.         'S
  245.         LINE (w / 10 * 2.75, h / 10 * 1.5)-(w / 10 * 3.5, h / 10 * 1.75), col, BF '1ST ACROSS
  246.         LINE (w / 10 * 2.75, h / 10 * 1.5)-(w / 10 * 3, h / 10 * 2.5), col, BF '1ST DOWN
  247.         LINE (w / 10 * 2.75, h / 10 * 2.5)-(w / 10 * 3.45, h / 10 * 2.75), col, BF '2ND ACROSS
  248.         LINE (w / 10 * 3.2, h / 10 * 2.75)-(w / 10 * 3.45, h / 10 * 2.9), col, BF '2ND DOWN
  249.         LINE (w / 10 * 3.2, h / 10 * 3.35)-(w / 10 * 3.45, h / 10 * 3.75), col, BF 'EXTENDED 2ND DOWN
  250.         LINE (w / 10 * 2.65, h / 10 * 3.75)-(w / 10 * 3.45, h / 10 * 4.1), col, BF '3RD ACROSS
  251.  
  252.         'L
  253.         LINE (w / 10 * 3.8, h / 10 * 1.5)-(w / 10 * 4.05, h / 10 * 2.65), col, BF '1ST DOWN
  254.         LINE (w / 10 * 3.8, h / 10 * 3.6)-(w / 10 * 4.05, h / 10 * 3.75), col, BF 'EXTENDED 1ST DOWN
  255.         LINE (w / 10 * 3.8, h / 10 * 3.75)-(w / 10 * 4.6, h / 10 * 4.1), col, BF '1ST ACROSS
  256.  
  257.         'A
  258.         LINE (w / 10 * 4.85, h / 10 * 1.5)-(w / 10 * 5.1, h / 10 * 2.7), col, BF 'LEFT DOWN
  259.         LINE (w / 10 * 4.85, h / 10 * 1.5)-(w / 10 * 5.75, h / 10 * 1.8), col, BF 'TOP LINE
  260.         LINE (w / 10 * 5.5, h / 10 * 1.5)-(w / 10 * 5.75, h / 10 * 2.7), col, BF 'RIGHT DOWN
  261.         LINE (w / 10 * 5.55, h / 10 * 1.5)-(w / 10 * 5.75, h / 10 * 2.9), col, BF 'RIGHT DOWN EDGE
  262.         LINE (w / 10 * 4.85, h / 10 * 2.4)-(w / 10 * 5.75, h / 10 * 2.65), col, BF 'MIDDLE LINE
  263.         LINE (w / 10 * 4.85, h / 10 * 3.5)-(w / 10 * 5.1, h / 10 * 4.1), col, BF 'EXTENDED LEFT DOWN
  264.         LINE (w / 10 * 5.5, h / 10 * 3.5)-(w / 10 * 5.75, h / 10 * 4.1), col, BF 'EXTENDED RIGHT DOWN
  265.         LINE (w / 10 * 5.55, h / 10 * 3.35)-(w / 10 * 5.75, h / 10 * 4.1), col, BF 'EXTENDED RIGHT DOWN EDGE
  266.  
  267.         'Y
  268.         LINE (w / 10 * 6, h / 10 * 1.5)-(w / 10 * 6.25, h / 10 * 2.75), col, BF 'LEFT DOWN
  269.         LINE (w / 10 * 6.75, h / 10 * 1.5)-(w / 10 * 7, h / 10 * 3), col, BF 'RIGHT DOWN
  270.         LINE (w / 10 * 6, h / 10 * 2.5)-(w / 10 * 7, h / 10 * 2.85), col, BF '1ST ACROSS
  271.         LINE (w / 10 * 6.75, h / 10 * 3.25)-(w / 10 * 7, h / 10 * 4.1), col, BF 'EXTENDED RIGHT DOWN
  272.         LINE (w / 10 * 6, h / 10 * 3.8)-(w / 10 * 7, h / 10 * 4.1), col, BF 'BOTTOM LINE
  273.  
  274.         'SWORD
  275.         LINE (w / 10 * 3, h / 10 * 3)-(w / 10 * 6.5, h / 10 * 3.25), col, BF 'HILT
  276.         LINE (w / 10 * 3.5, h / 10 * 2.5)-(w / 10 * 3.75, h / 10 * 3.75), col, BF 'Hand Guard
  277.         LINE (w / 10 * 3.75, h / 10 * 2.75)-(w / 10 * 4.75, h / 10 * 3.50), col, BF 'Blade First Layer
  278.         LINE (w / 10 * 4.75, h / 10 * 2.85)-(w / 10 * 5.5, h / 10 * 3.4), col, BF 'Blade 2nd Layer
  279.         LINE (w / 10 * 5.5, h / 10 * 3.10)-(w / 10 * 7, h / 10 * 3.15), col, BF 'Tip of Blade
  280.  
  281.         col = _RGB(n, n, n)
  282.     NEXT n
  283.  
  284.     col = _RGB(0, 0, 0)
  285.     LINE (w / 10, h / 10 * 4.5)-(w, h / 10 * 7), col, BF 'CLEAR OPTIONS
  286.  
  287.     'SHOW ACCOUNT
  288.     _PRINTSTRING (5, 5), player.name
  289.  
  290.     'PRINT MENU OPTIONS
  291.     scaledText w / 2, h / 10 * 4.75, 25, _RGBA(255, 255, 255, 255), "SINGLE-PLAYER"
  292.     scaledText w / 2, h / 10 * 5.25, 25, _RGBA(255, 255, 255, 255), "MULTI-PLAYER"
  293.     scaledText w / 2, h / 10 * 5.75, 25, _RGBA(255, 255, 255, 255), "OPTIONS"
  294.     scaledText w / 2, h / 10 * 6.25, 25, _RGBA(255, 255, 255, 255), "QUIT"
  295.     scaledText w / 2, h / 10 * 9.5, 14, _RGBA(255, 255, 255, 255), "TIP: USE 'w' AND 's' TO NAVIGATE. PRESS 'ENTER' TO SELCT"
  296.  
  297.     'PICK MENU OPTION
  298.     opt = 0
  299.     col = _RGB(0, 0, 0)
  300.     DO
  301.         LINE (w / 2 - 90, h / 10 * 4.5)-(w / 2 - 110, h / 10 * 7), col, BF 'CLEAR PAST POINTERS
  302.         _PRINTSTRING (w / 2 - 100, h / 10 * (4.6 + (0.52 * opt))), ">" 'DISPLAY POINTER
  303.         _DISPLAY 'REDUCE FLICKERING
  304.  
  305.         SELECT CASE INKEY$
  306.             CASE "s" 'MOVE POINTER DOWN
  307.                 IF opt + 1 = 4 THEN
  308.                     opt = 0
  309.                 ELSE
  310.                     opt = opt + 1
  311.                 END IF
  312.  
  313.             CASE "w" 'MOVE POINTER UP
  314.                 IF opt - 1 = -1 THEN
  315.                     opt = 3
  316.                 ELSE
  317.                     opt = opt - 1
  318.                 END IF
  319.  
  320.             CASE CHR$(13) 'ENTER KEY
  321.                 'SINGLE-PLAYER SELECTED
  322.                 IF opt = 0 THEN
  323.                     SinglePlayerMenu
  324.                 END IF
  325.  
  326.                 'MULTI-PLAYER SELECTED
  327.                 IF opt = 1 THEN
  328.                     MultiplayerGameMenu
  329.                 END IF
  330.  
  331.                 'OPTIONS SELETED
  332.                 IF opt = 2 THEN
  333.                     OptionsMenu
  334.                 END IF
  335.  
  336.                 'QUIT SELECTED
  337.                 IF opt = 3 THEN
  338.                     SYSTEM
  339.                 END IF
  340.         END SELECT
  341.     LOOP
  343.  
  344.  
  345. SUB OptionsMenu
  346.     LINE (w / 10, h / 10 * 4.5)-(w, h / 10 * 7), col, BF 'CLEAR OPTIONS
  347.     scaledText w / 2, h / 10 * 4.75, 25, _RGBA(255, 255, 255, 255), "INFO"
  348.     scaledText w / 2, h / 10 * 5.25, 25, _RGBA(255, 255, 255, 255), "RESET GAME"
  349.     scaledText w / 2, h / 10 * 5.75, 25, _RGBA(255, 255, 255, 255), "BACK"
  350.     scaledText w / 2, h / 10 * 9.5, 14, _RGBA(255, 255, 255, 255), "TIP: USE 'w' AND 's' TO NAVIGATE. PRESS 'ENTER' TO SELCT"
  351.  
  352.     opt = 0
  353.     DO
  354.         LINE (w / 2 - 90, h / 10 * 4.5)-(w / 2 - 110, h / 10 * 7), col, BF 'CLEAR PAST POINTERS
  355.         _PRINTSTRING (w / 2 - 100, h / 10 * (4.6 + (0.52 * opt))), ">" 'DISPLAY POINTER
  356.  
  357.         _DISPLAY 'REDUCE FLICKERING
  358.  
  359.         SELECT CASE INKEY$
  360.             CASE "s" 'MOVE POINTER DOWN
  361.                 IF opt + 1 = 3 THEN
  362.                     opt = 0
  363.                 ELSE
  364.                     opt = opt + 1
  365.                 END IF
  366.  
  367.             CASE "w" 'MOVE POINTER UP
  368.                 IF opt - 1 = -1 THEN
  369.                     opt = 2
  370.                 ELSE
  371.                     opt = opt - 1
  372.                 END IF
  373.             CASE CHR$(13) 'ENTER PRESSED
  374.                 IF opt = 0 THEN 'GAME INFO
  375.                     LINE (0, h / 10 * 4.7)-(w, h), col, BF 'CLEAR OPTIONS
  376.                     scaledText w / 2, h / 10 * 4.75, 25, _RGBA(255, 255, 255, 255), "ZEPPELIN GAMES 2018"
  377.                     scaledText w / 2, h / 10 * 5.25, 25, _RGBA(255, 255, 255, 255), "SLAY V4"
  378.                     scaledText w / 2, h / 10 * 6.25, 25, _RGBA(255, 255, 255, 255), "ENEMIES KILLED: " + STR$(stats.enemyskilled)
  379.                     scaledText w / 2, h / 10 * 6.75, 25, _RGBA(255, 255, 255, 255), "TOTAL DEATHS: " + STR$(stats.totaldeaths)
  380.                     scaledText w / 2, h / 10 * 9.25, 14, _RGBA(255, 255, 255, 255), "PRESS ANY KEY TO CONTINUE"
  381.  
  382.                     _DISPLAY
  383.                     DO WHILE INKEY$ = ""
  384.                     LOOP
  385.                     LINE (0, h / 10 * 4.7)-(w, h), col, BF 'CLEAR OPTIONS
  386.                     OptionsMenu
  387.                 END IF
  388.                 IF opt = 1 THEN 'RESET GAME
  389.                     OPEN "SlayV4SaveData.txt" FOR OUTPUT AS #1
  390.                     PRINT #1, ""
  391.                     CLOSE #1
  392.                     CLS
  393.                     RUN "SLAY V4.exe"
  394.                 END IF
  395.                 IF opt = 2 THEN 'BACK
  396.                     DrawMenu
  397.                 END IF
  398.         END SELECT
  399.     LOOP
  401.  
  402. SUB SinglePlayerMenu
  403.     LINE (w / 10, h / 10 * 4.5)-(w, h / 10 * 7), col, BF 'CLEAR OPTIONS
  404.     scaledText w / 2, h / 10 * 4.75, 25, _RGBA(255, 255, 255, 255), "CAMPAIGN"
  405.     scaledText w / 2, h / 10 * 5.25, 25, _RGBA(255, 255, 255, 255), "INFINITE"
  406.     scaledText w / 2, h / 10 * 5.75, 25, _RGBA(255, 255, 255, 255), "BACK"
  407.     scaledText w / 2, h / 10 * 9.5, 14, _RGBA(255, 255, 255, 255), "TIP: USE 'w' AND 's' TO NAVIGATE. PRESS 'ENTER' TO SELCT"
  408.  
  409.     opt = 0
  410.     DO
  411.         LINE (w / 2 - 90, h / 10 * 4.5)-(w / 2 - 110, h / 10 * 7), col, BF 'CLEAR PAST POINTERS
  412.         _PRINTSTRING (w / 2 - 100, h / 10 * (4.6 + (0.52 * opt))), ">" 'DISPLAY POINTER
  413.  
  414.         _DISPLAY 'REDUCE FLICKERING
  415.  
  416.         SELECT CASE INKEY$
  417.             CASE "s" 'MOVE POINTER DOWN
  418.                 IF opt + 1 = 3 THEN
  419.                     opt = 0
  420.                 ELSE
  421.                     opt = opt + 1
  422.                 END IF
  423.  
  424.             CASE "w" 'MOVE POINTER UP
  425.                 IF opt - 1 = -1 THEN
  426.                     opt = 2
  427.                 ELSE
  428.                     opt = opt - 1
  429.                 END IF
  430.             CASE CHR$(13) 'ENTER PRESSED
  431.                 IF opt = 0 THEN
  432.                     Campaign
  433.                 END IF
  434.                 IF opt = 1 THEN
  435.                     Infinite
  436.                 END IF
  437.                 IF opt = 2 THEN
  438.                     DrawMenu
  439.                 END IF
  440.         END SELECT
  441.     LOOP
  443.  
  444. 'CAMPAIGN - STORY
  445. SUB Campaign
  446.  
  448.  
  449. 'PRACTICE - GAMEMODE
  450. SUB Infinite
  451.     CLS
  452.     'DEFINE LOCAL VARS
  453.  
  454.     DIM health
  455.     DIM deltaTime
  456.  
  457.     playerSpeed = 500
  458.     health = 100
  459.     pX = _WIDTH / 2 - (playerScale * 2.5)
  460.     pY = _HEIGHT / 10 * 8
  461.  
  462.     sTime = TIMER(.001) 'NEW NEW NEW ####################################
  463.  
  464.     DO
  465.         sTime = TIMER(.001) 'NEW NEW NEW ####################################
  466.  
  467.         IF _KEYDOWN(100) = -1 THEN
  468.             pX = pX + (deltaTime * playerSpeed)
  469.         END IF
  470.         IF _KEYDOWN(97) = -1 THEN
  471.             pX = pX - (deltaTime * playerSpeed)
  472.         END IF
  473.  
  474.         IF pX < 1 THEN
  475.             pX = 1
  476.         END IF
  477.         IF pX > _WIDTH - playerScale * 5 - 1 THEN
  478.             pX = _WIDTH - playerScale * 5 - 1
  479.         END IF
  480.  
  481.         LINE (pX - (playerScale * 5) - 1, pY - (playerScale * 5) - 1)-(pX + ((playerScale * 5) * 2), pY + (playerScale * 5) + 1), _RGB(0, 0, 0), BF
  482.         PUT (pX, pY), player%()
  483.         _DISPLAY
  484.  
  485.  
  486.         eTime = TIMER(.001) 'NEW NEW NEW ####################################
  487.         deltaTime = eTime - sTime
  488.     LOOP UNTIL health <= 0 OR INKEY$ = CHR$(27)
  489.     CLS
  490.     SaveGame
  491.     DrawMenu
  493.  
  494. 'MULTIPLAYER GAME MENU
  495. SUB MultiplayerGameMenu
  496.     LINE (w / 10, h / 10 * 4.7)-(w, h / 10 * 7), col, BF 'CLEAR OPTIONS
  497.     _PRINTSTRING (w / 2 - 40, h / 10 * 4.75), "LOCAL"
  498.     _PRINTSTRING (w / 2 - 34, h / 10 * 5.25), "LAN"
  499.     _PRINTSTRING (w / 2 - 37, h / 10 * 5.75), "BACK"
  500.  
  501.     opt = 0
  502.     DO
  503.         LINE (w / 2 - 58, h / 10 * 4.7)-(w / 2 - 70, h / 10 * 7), col, BF 'CLEAR PAST POINTERS
  504.         _PRINTSTRING (w / 2 - 65, h / 10 * (4.75 + (0.5 * opt))), ">" 'DISPLAY POINTER
  505.  
  506.         _DISPLAY 'REDUCE FLICKERING
  507.  
  508.         SELECT CASE INKEY$
  509.             CASE "s" 'MOVE POINTER DOWN
  510.                 IF opt + 1 = 3 THEN
  511.                     opt = 0
  512.                 ELSE
  513.                     opt = opt + 1
  514.                 END IF
  515.  
  516.             CASE "w" 'MOVE POINTER UP
  517.                 IF opt - 1 = -1 THEN
  518.                     opt = 2
  519.                 ELSE
  520.                     opt = opt - 1
  521.                 END IF
  522.             CASE CHR$(13) 'ENTER KEY
  523.                 IF opt = 0 THEN
  524.                     LocalMultiplayer
  525.                 ELSEIF opt = 1 THEN
  526.                     LANMultiplayer
  527.                 ELSEIF opt = 2 THEN
  528.                     DrawMenu
  529.                 END IF
  530.         END SELECT
  531.     LOOP UNTIL INKEY$ = CHR$(13)
  533.  
  534.  
  535. 'MULTIPLAYER ON SAME DEVICE
  536. SUB LocalMultiplayer
  537.  
  539.  
  540. 'MULTIPLAYER OVER WIFI CONNECTION
  541. SUB LANMultiplayer
  542.  
  543.  
  545.  
  546. SUB SaveGame
  547.     'SAVE VARS TO TXT
  548.     OPEN "SlayV4SaveData.txt" FOR OUTPUT AS #1
  549.     'PLAYER
  550.     PRINT #1, name$
  551.     PRINT #1, player.health
  552.     'SAVE DATA
  553.     PRINT #1, save.point
  554.     'STATS
  555.     PRINT #1, stats.enemyskilled
  556.     PRINT #1, stats.totaldeaths
  557.     CLOSE #1
  559.  
  560. SUB LoadSprite (sp%(), scale)
  561.     DIM sprite(4, 4)
  562.     FOR y = 0 TO 4
  563.         FOR x = 0 TO 4
  564.             READ sprite(x, y) 'Read the data
  565.         NEXT x
  566.     NEXT y
  567.  
  568.     FOR y = 0 TO 4 * scale STEP scale 'Factor in the scale
  569.         FOR x = 0 TO 4 * scale STEP scale
  570.             spriteCol = sprite(x / scale, y / scale)
  571.             LINE (x, y)-(x + scale, y + scale), _RGB(spriteCol * 255, spriteCol * 255, spriteCol * 255), BF 'Draw each pixel
  572.         NEXT x
  573.     NEXT y
  574.  
  575.     GET (0, 0)-(scale * 5, scale * 5), sp%()
  576.     CLS
  577.  
  578.     'Player Data
  579.     DATA 0,1,1,1,0
  580.     DATA 0,1,1,1,0
  581.     DATA 1,1,1,1,1
  582.     DATA 0,1,1,1,0
  583.     DATA 0,1,0,1,0
  584.  
  586.  
  587. SUB scaledText (x, y, textHeight, K AS _UNSIGNED LONG, txt$)
  588.     fg = _DEFAULTCOLOR
  589.     'screen snapshot
  590.     cur& = _DEST
  591.     I& = _NEWIMAGE(8 * LEN(txt$), 16, 256)
  592.     _DEST I&
  593.     COLOR K, _RGBA(0, 0, 0, 0)
  594.     _PRINTSTRING (0, 0), txt$
  595.     mult = textHeight / 16
  596.     xlen = LEN(txt$) * 8 * mult
  597.     _PUTIMAGE (x - .5 * xlen, y - .5 * textHeight)-STEP(xlen, textHeight), I&, cur&
  598.     COLOR fg
  599.     _FREEIMAGE I&
  601.  

(all changes marked with  'NEW NEW NEW ####################################) :D

EDIT: some other were faster, sorry

7
Programs / Noise Effect
« on: November 05, 2019, 05:37:32 pm »
...just a little noise-effect I want to share.

Code: QB64: [Select]
  1. DEFINT A-Z
  2.  
  4.  
  6. desktop.height = _DESKTOPHEIGHT
  7.  
  8. screenwindow.WIDTH = 800
  9. screenwindow.height = 600
  10.  
  11. SCREEN _NEWIMAGE(screenwindow.WIDTH, screenwindow.height, 32)
  13. _SCREENMOVE (desktop.width * 0.5 - screenwindow.WIDTH * 0.5), 0
  15.  
  16. CONST pixelbytes = 4 '4 bytes per pixel (RGBA)
  17.  
  18. DIM pixelcolorRed AS _UNSIGNED _BYTE
  19. DIM pixelcolorGreen AS _UNSIGNED _BYTE
  20. DIM pixelcolorBlue AS _UNSIGNED _BYTE
  21.  
  22. DIM screenMemoryblock AS _MEM
  23.  
  24. screenMemoryblock = _MEMIMAGE(0)
  25.  
  27.     FOR y = 0 TO screenwindow.height - 1
  28.         FOR x = 0 TO screenwindow.WIDTH - 1
  29.  
  30.             pixelcolorRed = (RND * 254) + 1 'pick random red pixelcolor-value from 1 to 255
  31.             pixelcolorGreen = (RND * 254) + 1 'pick random green pixelcolor-value from 1 to 255
  32.             pixelcolorBlue = (RND * 254) + 1 'pick random blue pixelcolor-value from 1 to 255
  33.  
  34.             _MEMPUT screenMemoryblock, screenMemoryblock.OFFSET + (x * pixelbytes) + (y * (screenwindow.WIDTH * pixelbytes)), pixelcolorRed
  35.             _MEMPUT screenMemoryblock, screenMemoryblock.OFFSET + ((x * pixelbytes) + 1) + (y * (screenwindow.WIDTH * pixelbytes)), pixelcolorGreen
  36.             _MEMPUT screenMemoryblock, screenMemoryblock.OFFSET + ((x * pixelbytes) + 2) + (y * (screenwindow.WIDTH * pixelbytes)), pixelcolorBlue
  37.  
  38.         NEXT x
  39.     NEXT y
  40.  
  41.     _DISPLAY
  43.  
  46.  


EDIT:
...and the same program with PRESET instead of _MEMPUT. Would be slightly slower.
Code: QB64: [Select]
  1. DEFINT A-Z
  2.  
  4.  
  6. desktop.height = _DESKTOPHEIGHT
  7.  
  8. screenwindow.WIDTH = 800
  9. screenwindow.height = 600
  10.  
  11. SCREEN _NEWIMAGE(screenwindow.WIDTH, screenwindow.height, 32)
  13. _SCREENMOVE (desktop.WIDTH * 0.5 - screenwindow.WIDTH * 0.5), 0
  15.  
  16. DIM pixelcolorRed AS _UNSIGNED _BYTE
  17. DIM pixelcolorGreen AS _UNSIGNED _BYTE
  18. DIM pixelcolorBlue AS _UNSIGNED _BYTE
  19.  
  21.     FOR y = 0 TO screenwindow.height - 1
  22.         FOR x = 0 TO screenwindow.WIDTH - 1
  23.  
  24.             pixelcolorRed = (RND * 254) + 1 'pick random red pixelcolor-value from 1 to 255
  25.             pixelcolorGreen = (RND * 254) + 1 'pick random green pixelcolor-value from 1 to 255
  26.             pixelcolorBlue = (RND * 254) + 1 'pick random blue pixelcolor-value from 1 to 255
  27.  
  28.             PRESET (x, y), _RGB(pixelcolorRed, pixelcolorGreen, pixelcolorBlue)
  29.  
  30.         NEXT x
  31.     NEXT y
  32.  
  33.     _DISPLAY
  35.  
  38.  

8
QB64 Discussion / Re: Compiling error: cc1plus.exe: out of memory allocating 72341256 bytes
« on: November 02, 2019, 11:05:01 pm »
Quote from: RhoSigma on November 02, 2019, 07:34:31 am
Did you modify makeline_xxx.txt to add optimization maybe (-O1/-O2 etc)?? - Optimization requires alot more memory.
No...don't even know what that means :D

Quote from: SMcNeill on November 02, 2019, 08:03:57 am
In this case, it sounds as if you’re trying to allocate a 72MB block of memory for some purpose, and the system isn’t finding that large of an open block of memory, so I’d guess whatever program you’re compiling is rather large in nature. 
yeah, the program (game) have more than 30,000 lines of code.
I allocate memory for a faster screenrendering. Here is some of my code:

Code: QB64: [Select]
  1. IF drawlayerMapFrame1 THEN _FREEIMAGE drawlayerMapFrame1
  2. IF drawlayerMapFrame2 THEN _FREEIMAGE drawlayerMapFrame2
  3. IF drawlayerMapFrame3 THEN _FREEIMAGE drawlayerMapFrame3
  4. IF drawlayerMapFrame4 THEN _FREEIMAGE drawlayerMapFrame4
  5. IF drawlayerMapFrame5 THEN _FREEIMAGE drawlayerMapFrame5
  6. IF drawlayerMapFrame6 THEN _FREEIMAGE drawlayerMapFrame6
  7. IF drawlayerMapFrame7 THEN _FREEIMAGE drawlayerMapFrame7
  8. IF drawlayerMapFrame8 THEN _FREEIMAGE drawlayerMapFrame8
  9.  
  10. drawlayerMapFrame1 = _NEWIMAGE(map.width, map.height, screenwindow.colormode)
  11. drawlayerMapFrame2 = _NEWIMAGE(map.width, map.height, screenwindow.colormode)
  12. drawlayerMapFrame3 = _NEWIMAGE(map.width, map.height, screenwindow.colormode)
  13. drawlayerMapFrame4 = _NEWIMAGE(map.width, map.height, screenwindow.colormode)
  14. drawlayerMapFrame5 = _NEWIMAGE(map.width, map.height, screenwindow.colormode)
  15. drawlayerMapFrame6 = _NEWIMAGE(map.width, map.height, screenwindow.colormode)
  16. drawlayerMapFrame7 = _NEWIMAGE(map.width, map.height, screenwindow.colormode)
  17. drawlayerMapFrame8 = _NEWIMAGE(map.width, map.height, screenwindow.colormode)
  18.  
  19.  
  20. FOR drawlayerCounter = 1 TO 8
  21.  
  22.     SELECT CASE drawlayerCounter
  23.         CASE 1: _DEST drawlayerMapFrame1
  24.         CASE 2: _DEST drawlayerMapFrame2
  25.         CASE 3: _DEST drawlayerMapFrame3
  26.         CASE 4: _DEST drawlayerMapFrame4
  27.         CASE 5: _DEST drawlayerMapFrame5
  28.         CASE 6: _DEST drawlayerMapFrame6
  29.         CASE 7: _DEST drawlayerMapFrame7
  30.         CASE 8: _DEST drawlayerMapFrame8
  31.     END SELECT
  32.  
  33.     drawpositionY = 0
  34.     drawpositionX = 0
  35.  
  36.     FOR tileVertical = 1 TO map.heightTiles
  37.         FOR tileHorizontal = 1 TO map.widthTiles
  38.        
  39.             IF tile.type(tileHorizontal, tileVertical) THEN
  40.  
  41.      '(here are just 1,200 lines of image references)
  42.  
  43.                 _PUTIMAGE (drawpositionX, drawpositionY), sprites.tiles, , (SPRTSHTPIXPOSFIRST(imagereferenceX1), SPRTSHTPIXPOSFIRST(imagereferenceY1))-(SPRTSHTPIXPOSLAST(imagereferenceX2), SPRTSHTPIXPOSLAST(imagereferenceY2))
  44.  
  45.             END IF
  46.  
  47.             drawpositionX = drawpositionX + tileSize
  48.             IF drawpositionX = map.width THEN drawpositionX = 0: drawpositionY = drawpositionY + tileSize
  49.  
  50.         NEXT tileHorizontal
  51.     NEXT tileVertical
  52.    
  53. NEXT drawlayerCounter
  54.  
  56.  
  57.  
  58. drawlayerMapFrame1MEMORY = _MEMIMAGE(drawlayerMapFrame1)
  59. drawlayerMapFrame2MEMORY = _MEMIMAGE(drawlayerMapFrame2)
  60. drawlayerMapFrame3MEMORY = _MEMIMAGE(drawlayerMapFrame3)
  61. drawlayerMapFrame4MEMORY = _MEMIMAGE(drawlayerMapFrame4)
  62. drawlayerMapFrame5MEMORY = _MEMIMAGE(drawlayerMapFrame5)
  63. drawlayerMapFrame6MEMORY = _MEMIMAGE(drawlayerMapFrame6)
  64. drawlayerMapFrame7MEMORY = _MEMIMAGE(drawlayerMapFrame7)
  65. drawlayerMapFrame8MEMORY = _MEMIMAGE(drawlayerMapFrame8)
  66.  

Code: QB64: [Select]
  1.  REM{render tilebackground
  2.         '(pixelbytes = 4)
  3.         '4 bytes are required for one pixel (RGBA)
  4.  
  5.     pixellinesSkiped = 0
  6.     pixellinesCutoff = 0
  7.     screenshiftVertical = 0
  8.     IF map.height < screenwindow.height THEN
  9.         'if map is smaller than screen
  10.         pixellinesSkiped = (screenwindow.height - map.height) * 0.5
  11.         pixellinesCutoff = screenwindow.height - map.height
  12.     ELSE
  13.         'if camera is too close to mapboundings (black frame)
  14.         IF cameraY < (screenwindow.height * 0.5) - 1 THEN
  15.             pixellinesSkiped = (screenwindow.height * 0.5) - 1 - cameraY
  16.             pixellinesCutoff = (screenwindow.height * 0.5) - cameraY
  17.         ELSEIF cameraY > (map.height - 1) - (screenwindow.height * 0.5) THEN
  18.             pixellinesCutoff = (cameraY + (screenwindow.height * 0.5) + 1) - map.height
  19.             screenshiftVertical = cameraY - (screenwindow.height * 0.5) + 1
  20.         ELSEIF cameraY >= (screenwindow.height * 0.5) - 1 AND cameraY <= (map.height - 1) - (screenwindow.height * 0.5) THEN
  21.             screenshiftVertical = cameraY - (screenwindow.height * 0.5) + 1
  22.         END IF
  23.     END IF
  24.    
  25.     pixelcolumnsSkiped = 0
  26.     pixelcolumnsCutoff = 0
  27.     screenshiftHorizontal = 0
  28.     IF map.width < screenwindow.width THEN
  29.         pixelcolumnsCutoff = screenwindow.width - map.width
  30.         pixelcolumnsSkiped = (screenwindow.width - map.width) * 0.5
  31.     ELSE
  32.         IF cameraX < (screenwindow.width * 0.5) - 1 THEN
  33.             pixelcolumnsSkiped = (screenwindow.width * 0.5) - 1 - cameraX
  34.             pixelcolumnsCutoff = (screenwindow.width * 0.5) - 1 - cameraX
  35.         ELSEIF cameraX > (map.width - 1) - (screenwindow.width * 0.5) THEN
  36.             pixelcolumnsCutoff = ((cameraX + (screenwindow.width * 0.5) + 1) - map.width)
  37.             screenshiftHorizontal = cameraX - (screenwindow.width * 0.5) + 1
  38.         ELSEIF cameraX >= (screenwindow.width * 0.5) - 1 AND cameraX <= (map.width - 1) - (screenwindow.width * 0.5) THEN
  39.             screenshiftHorizontal = cameraX - (screenwindow.width * 0.5) + 1
  40.         END IF
  41.     END IF
  42.    
  43.     bytesize.mappixelwidth = map.width * pixelbytes
  44.     bytesize.screenpixelline = screenwindow.width * pixelbytes
  45.        
  46.     bytesize.screenshiftVertical = screenshiftVertical * bytesize.mappixelwidth
  47.     bytesize.screenshiftHorizontal = screenshiftHorizontal * pixelbytes
  48.  
  49.  
  50.    
  51.     SELECT CASE global.animationFrame
  52.         CASE 1:
  53.             FOR screenpixellineCounter = 1 TO screenwindow.height - pixellinesCutoff
  54.                 _MEMCOPY drawlayerMapFrame1MEMORY, drawlayerMapFrame1MEMORY.OFFSET + bytesize.screenshiftVertical + bytesize.screenshiftHorizontal + (bytesize.mappixelwidth * (screenpixellineCounter - 1)), drawlayerMapFrame1MEMORY.SIZE - drawlayerMapFrame1MEMORY.SIZE + bytesize.screenpixelline - (pixelcolumnsCutoff * pixelbytes) TO drawlayerScreenMEMORY, drawlayerScreenMEMORY.OFFSET + ((screenpixellineCounter - 1) * bytesize.screenpixelline) + (pixelcolumnsSkiped * pixelbytes) + (pixellinesSkiped * bytesize.screenpixelline)
  55.             NEXT screenpixellineCounter
  56.         CASE 2:
  57.             FOR screenpixellineCounter = 1 TO screenwindow.height - pixellinesCutoff
  58.                 _MEMCOPY drawlayerMapFrame2MEMORY, drawlayerMapFrame2MEMORY.OFFSET + bytesize.screenshiftVertical + bytesize.screenshiftHorizontal + (bytesize.mappixelwidth * (screenpixellineCounter - 1)), drawlayerMapFrame2MEMORY.SIZE - drawlayerMapFrame2MEMORY.SIZE + bytesize.screenpixelline - (pixelcolumnsCutoff * pixelbytes) TO drawlayerScreenMEMORY, drawlayerScreenMEMORY.OFFSET + ((screenpixellineCounter - 1) * bytesize.screenpixelline) + (pixelcolumnsSkiped * pixelbytes) + (pixellinesSkiped * bytesize.screenpixelline)
  59.             NEXT screenpixellineCounter
  60.         CASE 3:
  61.             FOR screenpixellineCounter = 1 TO screenwindow.height - pixellinesCutoff
  62.                 _MEMCOPY drawlayerMapFrame3MEMORY, drawlayerMapFrame3MEMORY.OFFSET + bytesize.screenshiftVertical + bytesize.screenshiftHorizontal + (bytesize.mappixelwidth * (screenpixellineCounter - 1)), drawlayerMapFrame3MEMORY.SIZE - drawlayerMapFrame3MEMORY.SIZE + bytesize.screenpixelline - (pixelcolumnsCutoff * pixelbytes) TO drawlayerScreenMEMORY, drawlayerScreenMEMORY.OFFSET + ((screenpixellineCounter - 1) * bytesize.screenpixelline) + (pixelcolumnsSkiped * pixelbytes) + (pixellinesSkiped * bytesize.screenpixelline)
  63.             NEXT screenpixellineCounter
  64.         CASE 4:
  65.             FOR screenpixellineCounter = 1 TO screenwindow.height - pixellinesCutoff
  66.                 _MEMCOPY drawlayerMapFrame4MEMORY, drawlayerMapFrame4MEMORY.OFFSET + bytesize.screenshiftVertical + bytesize.screenshiftHorizontal + (bytesize.mappixelwidth * (screenpixellineCounter - 1)), drawlayerMapFrame4MEMORY.SIZE - drawlayerMapFrame4MEMORY.SIZE + bytesize.screenpixelline - (pixelcolumnsCutoff * pixelbytes) TO drawlayerScreenMEMORY, drawlayerScreenMEMORY.OFFSET + ((screenpixellineCounter - 1) * bytesize.screenpixelline) + (pixelcolumnsSkiped * pixelbytes) + (pixellinesSkiped * bytesize.screenpixelline)
  67.             NEXT screenpixellineCounter
  68.         CASE 5:
  69.             FOR screenpixellineCounter = 1 TO screenwindow.height - pixellinesCutoff
  70.                 _MEMCOPY drawlayerMapFrame5MEMORY, drawlayerMapFrame5MEMORY.OFFSET + bytesize.screenshiftVertical + bytesize.screenshiftHorizontal + (bytesize.mappixelwidth * (screenpixellineCounter - 1)), drawlayerMapFrame5MEMORY.SIZE - drawlayerMapFrame5MEMORY.SIZE + bytesize.screenpixelline - (pixelcolumnsCutoff * pixelbytes) TO drawlayerScreenMEMORY, drawlayerScreenMEMORY.OFFSET + ((screenpixellineCounter - 1) * bytesize.screenpixelline) + (pixelcolumnsSkiped * pixelbytes) + (pixellinesSkiped * bytesize.screenpixelline)
  71.             NEXT screenpixellineCounter
  72.         CASE 6:
  73.             FOR screenpixellineCounter = 1 TO screenwindow.height - pixellinesCutoff
  74.                 _MEMCOPY drawlayerMapFrame6MEMORY, drawlayerMapFrame6MEMORY.OFFSET + bytesize.screenshiftVertical + bytesize.screenshiftHorizontal + (bytesize.mappixelwidth * (screenpixellineCounter - 1)), drawlayerMapFrame6MEMORY.SIZE - drawlayerMapFrame6MEMORY.SIZE + bytesize.screenpixelline - (pixelcolumnsCutoff * pixelbytes) TO drawlayerScreenMEMORY, drawlayerScreenMEMORY.OFFSET + ((screenpixellineCounter - 1) * bytesize.screenpixelline) + (pixelcolumnsSkiped * pixelbytes) + (pixellinesSkiped * bytesize.screenpixelline)
  75.             NEXT screenpixellineCounter
  76.         CASE 7:
  77.             FOR screenpixellineCounter = 1 TO screenwindow.height - pixellinesCutoff
  78.                 _MEMCOPY drawlayerMapFrame7MEMORY, drawlayerMapFrame7MEMORY.OFFSET + bytesize.screenshiftVertical + bytesize.screenshiftHorizontal + (bytesize.mappixelwidth * (screenpixellineCounter - 1)), drawlayerMapFrame7MEMORY.SIZE - drawlayerMapFrame7MEMORY.SIZE + bytesize.screenpixelline - (pixelcolumnsCutoff * pixelbytes) TO drawlayerScreenMEMORY, drawlayerScreenMEMORY.OFFSET + ((screenpixellineCounter - 1) * bytesize.screenpixelline) + (pixelcolumnsSkiped * pixelbytes) + (pixellinesSkiped * bytesize.screenpixelline)
  79.             NEXT screenpixellineCounter
  80.         CASE 8:
  81.             FOR screenpixellineCounter = 1 TO screenwindow.height - pixellinesCutoff
  82.                 _MEMCOPY drawlayerMapFrame8MEMORY, drawlayerMapFrame8MEMORY.OFFSET + bytesize.screenshiftVertical + bytesize.screenshiftHorizontal + (bytesize.mappixelwidth * (screenpixellineCounter - 1)), drawlayerMapFrame8MEMORY.SIZE - drawlayerMapFrame8MEMORY.SIZE + bytesize.screenpixelline - (pixelcolumnsCutoff * pixelbytes) TO drawlayerScreenMEMORY, drawlayerScreenMEMORY.OFFSET + ((screenpixellineCounter - 1) * bytesize.screenpixelline) + (pixelcolumnsSkiped * pixelbytes) + (pixellinesSkiped * bytesize.screenpixelline)
  83.             NEXT screenpixellineCounter
  84.     END SELECT
  85.  

Quote from: SMcNeill on November 02, 2019, 08:03:57 am
The reason why it works in 64-bit versions is simply because you don’t have that 1.5GB memory limit; your program can use as much as your PC has available, including swap size.
...okay, so I will stick to the 64-bit version.

Quote from: SMcNeill on November 02, 2019, 08:03:57 am
The only time I’ve seen cc1plus.exe toss an error like that was with excessive use of PRINT statements inside a program.  Depending on how it’s written, a single PRINT command can translate into a hundred lines of c-code.  If you can share the code, we might be able to help sort out what the issue is with it.
There are only _PRINTSTRING commands - no PRINT commands... round about 360 _PRINTSTRING.

9
QB64 Discussion / Compiling error: cc1plus.exe: out of memory allocating 72341256 bytes
« on: November 02, 2019, 04:41:22 am »
I permamently got a compile error if I compile with the 1.3 win x86 version. In the 1.3 win x64 version compiling works fine.
The errorlog says
cc1plus.exe: out of memory allocating 72341256 bytes
Is this because of the size of the sourcecode?

10
QB64 Discussion / Re: Sometimes unexpected strong lags
« on: November 01, 2019, 06:01:02 pm »
ahh, I forgot that I set the LIMIT to 240 :D

11
QB64 Discussion / Re: Sometimes unexpected strong lags
« on: November 01, 2019, 05:08:48 pm »
...but why is the CPU usage that high?

12
QB64 Discussion / Re: Sometimes unexpected strong lags
« on: November 01, 2019, 04:11:16 pm »
Quote from: SMcNeill on November 01, 2019, 03:47:01 pm
Can’t you simplify the key handler quite a bit?  Less calls to KEYDOWN might improve performance.

From:

 
'a
IF _KEYDOWN(97) AND key97 = false THEN
    key97 = _KEYDOWN(97)
END IF
IF NOT _KEYDOWN(97) AND key97 <> false THEN
    key97 = false
END IF


To:

 
IF _KEYDOWN(97) THEN key97 = true ELSE key97 = false ‘a

One simple check to set if it’s down or not.

It's maybe slightly (but not much) better...

Normaly I use something like

IF _KEYDOWN(KEYCODE~%(keyA)) AND controlinput.key(keyA) = false THEN
    controlinput.key(keyA) = true
ELSEIF NOT _KEYDOWN(KEYCODE~%(keyA)) AND controlinput.key(keyA) THEN
    controlinput.key(keyA) = false
END IF

as the keyhandle, because sometimes I need to lock a key while pressing, to only do a specific action just one time.

Now I followed your sugestion but it doesn't change much.

13
QB64 Discussion / Re: Sometimes unexpected strong lags
« on: November 01, 2019, 03:34:57 pm »
The taskmanager looks relatively okay... but the program takes 50%-60% of my CPU and about 120MB RAM... guess because of the sortwareimages(?) :o

14
QB64 Discussion / Sometimes unexpected strong lags
« on: November 01, 2019, 10:36:58 am »
In this small program you can move around with w, a, s, d and while I do so, sometimes I got a massive lag.
Sometimes the lag lasts 0.5 till 1 second.

Is this because of my busy laptop, or something in the code?

EDIT:
And the movement isn't as fluent as it should be. It's like a permanent, slight stuttering.

Code: QB64: [Select]
  1. DEFINT A-Z
  2.  
  3. CONST false = 0
  4. CONST true = -1
  5. CONST locked = 127
  6.  
  8.  
  9. desktopscreen.width = _DESKTOPWIDTH
  10. desktopscreen.height = _DESKTOPHEIGHT
  11.  
  12. screenwindow.width = 1280
  13. screenwindow.height = 720
  14.  
  15. SCREEN _NEWIMAGE(screenwindow.width, screenwindow.height, 32)
  17. _SCREENMOVE (desktopscreen.width * 0.5 - screenwindow.width * 0.5), 0
  20.  
  21.  
  22. cameraX = 640
  23. cameraY = 640
  24.  
  25. DIM framesPerSecond AS SINGLE
  26. DIM frametimeCurrent AS DOUBLE
  27. DIM frametimeLast AS DOUBLE
  28. DIM frametime AS SINGLE
  29. DIM frames AS INTEGER
  30. DIM frametimeStopped AS DOUBLE
  31. DIM frametimeResumption AS DOUBLE
  32. DIM framerate AS INTEGER
  33.  
  34.  
  35.  
  36. backgroundWidthTiles = 50
  37. backgroundHeightTiles = 50
  38.  
  39. DIM drawlayer AS LONG
  40. drawlayer = _NEWIMAGE(64 * backgroundWidthTiles, 64 * backgroundHeightTiles, 32)
  41.  
  42. _DEST drawlayer
  43.  
  44. 'draw backgound layer
  45. drawpositionX = 0
  46. drawpositionY = 0
  47. FOR y = 1 TO backgroundHeightTiles
  48.     FOR x = 1 TO backgroundWidthTiles
  49.  
  50.         'random tile colors
  51.         randomNumber = (RND * 4) + 1
  52.         SELECT CASE randomNumber
  53.             CASE 1:
  54.                 red = 124
  55.                 green = 0
  56.                 blue = 0
  57.             CASE 2:
  58.                 red = 0
  59.                 green = 124
  60.                 blue = 0
  61.             CASE 3:
  62.                 red = 0
  63.                 green = 0
  64.                 blue = 124
  65.             CASE 4:
  66.                 red = 124
  67.                 green = 124
  68.                 blue = 0
  69.             CASE 5:
  70.                 red = 124
  71.                 green = 124
  72.                 blue = 124
  73.         END SELECT
  74.  
  75.         'draw tiles (64x64 pixel) on drawlayer
  76.         LINE (drawpositionX, drawpositionY)-(drawpositionX + 63, drawpositionY + 63), _RGB(red, green, blue), BF
  77.  
  78.         drawpositionX = drawpositionX + 64
  79.         IF drawpositionX > backgroundWidthTiles * 64 THEN drawpositionX = 0: drawpositionY = drawpositionY + 64
  80.        
  81.     NEXT x
  83.  
  85.  
  86.    
  87. 'mainloop
  89.     _LIMIT 240
  90.  
  91.     DO
  92.         frametimeCurrent = TIMER(.001)
  93.         frametime = (frametimeCurrent - frametimeLast)
  94.     LOOP UNTIL frametime >= 1 / 240 '240 is maximum frames per second
  95.  
  96.     frametimeLast = frametimeCurrent
  97.  
  98.     framesPerSecond = 1 / frametime
  99.     IF framesPerSecond < 10 THEN framesPerSecond = 10 '10 is minimum frames per second
  100.  
  101.    
  102.     'check keyinputs
  103.     GOSUB keylistener
  104.  
  105.    
  106.    
  107.     'process keyinputs
  108.     IF key27 = true THEN GOTO shutdown 'close program
  109.  
  110.     IF key119 = true THEN 'move up
  111.         cameraY = cameraY - (320 / framesPerSecond)
  112.         IF cameraY < 0 THEN cameraY = 0
  113.     END IF
  114.    
  115.     IF key115 = true THEN 'move down
  116.         cameraY = cameraY + (320 / framesPerSecond)
  117.         IF cameraY > 50 * 64 - 1 THEN cameraY = 50 * 64 - 1
  118.     END IF
  119.    
  120.     IF key97 = true THEN 'move left
  121.         cameraX = cameraX - (320 / framesPerSecond)
  122.         IF cameraX < 0 THEN cameraX = 0
  123.     END IF
  124.    
  125.     IF key100 = true THEN 'move right
  126.         cameraX = cameraX + (320 / framesPerSecond)
  127.         IF cameraX > 50 * 64 - 1 THEN cameraX = 50 * 64 - 1
  128.     END IF
  129.  
  130.  
  131.    
  132.  
  133.     CLS
  134.    
  135.         'calculate drawposition of drawlayer
  136.         drawpositionY = cameraY - (screenwindow.height * 0.5) + 1
  137.         drawpositionX = cameraX - (screenwindow.width * 0.5) + 1
  138.    
  139.         _PUTIMAGE (0, 0), drawlayer, , (drawpositionX, drawpositionY)-(drawpositionX + screenwindow.width - 1, drawpositionY + screenwindow.height - 1)
  140.  
  141.  
  142.     'print text
  143.     COLOR _RGB(255, 255, 255)
  144.     _PRINTSTRING (0, 16), "w/a/s/d = move"
  145.     _PRINTSTRING (0, 32), "Escape = exit"
  146.      
  147.     _DISPLAY
  148.  
  150.  
  151. shutdown:
  153.  
  155.  
  156. keylistener:
  157. 'Esc
  158. IF _KEYDOWN(27) AND key27 = false THEN
  159.     key27 = _KEYDOWN(27)
  161. IF NOT _KEYDOWN(27) AND key27 <> false THEN
  162.     key27 = false
  164.  
  165. 'w
  166. IF _KEYDOWN(119) AND key119 = false THEN
  167.     key119 = _KEYDOWN(119)
  169. IF NOT _KEYDOWN(119) AND key119 <> false THEN
  170.     key119 = false
  172.  
  173. 'a
  174. IF _KEYDOWN(97) AND key97 = false THEN
  175.     key97 = _KEYDOWN(97)
  177. IF NOT _KEYDOWN(97) AND key97 <> false THEN
  178.     key97 = false
  180.  
  181. 's
  182. IF _KEYDOWN(115) AND key115 = false THEN
  183.     key115 = _KEYDOWN(115)
  185. IF NOT _KEYDOWN(115) AND key115 <> false THEN
  186.     key115 = false
  188.  
  189. 'd
  190. IF _KEYDOWN(100) AND key100 = false THEN
  191.     key100 = _KEYDOWN(100)
  193. IF NOT _KEYDOWN(100) AND key100 <> false THEN
  194.     key100 = false
  197.  

Thanks

15
QB64 Discussion / Re: Struggle with rendering soft-&hardwareimages simultaneous
« on: November 01, 2019, 10:29:23 am »
I'm using version 1.3 win x64...

You get the screen with "TESTTEXT 1 - Press any key"?
I just get a black screen :/

Pages: [1] 2 3