Posted here

I don't see a dialog box "Title" that I assign. It just calls it "Color". Otherwise, it works fine.

JackStack is a small Halloween game made during a one-key game challenge in 2021.  Press SPACE to drop a jack-o-lantern.  If you stack them on top of each other perfectly, they will disappear and points will be scored. If you don't stack them perfectly they will start building up.  

The tower of jacks will wobble making it harder to stack perfectly.  If you build up too many jacks, or miss stacking one, the game is over.  See how many points you can score before the game is over.

This is an updated version that didn't make it to the old forum.  Tested and working in Windows and Linux version of QB64-PE.

- Dav


  jackstack-v1.2.zip (Size: 131.53 KB / Downloads: 108)

   

JackStack is a small Halloween game made during a one-key game challenge in 2021.  Press SPACE to drop a jack-o-lantern.  If you stack them on top of each other perfectly, they will disappear and points will be scored. If you don't stack them perfectly they will start building up.  

The tower of jacks will wobble making it harder to stack perfectly.  If you build up too many jacks, or miss stacking one, the game is over.  See how many points you can score before the game is over.

This is an updated version that didn't make it to the old forum.  Tested and working in Windows and Linux version of QB64-PE.

- Dav


  jackstack-v1.2.zip (Size: 131.53 KB / Downloads: 308)

   

How can I map several sections of the screen so that a (left) mouse click selects the one it's in, and allows actions based on this?

Charlie shame on you for posting over 50% materials at Retro! (I am being totally sarcastic. Shame on them in my eyes!  for criticizing you for being so prolific, my goodness most forums love you when you are so active!). And like you complained doing this publicly is pretty nasty too, just lets jokers like me see and make fun of them though.

Don't you know not to post more than Ron77?  LOL this is so funny to me, but I hate how you are being treated!

Hello community!! I'm still in the development of this indie project, an online multiplayer retro rpg,
for several years I have been programming it completely in QB64. I ever posted the source code and made the resources available on the old Galleon forum.
Who wants to take a look, the server is online, download the client and immerse yourself in the fantastic lands of Aetricia!!! the server is online at AETRICIA.DDNS.NET
or at FB:
https://www.facebook.com/profile.php?id=100066811774643

Any suggestion or criticism will be welcome!!! Greetings!



[/url]







[url=https://ibb.co/fnSQVTZ]

Using _DesktopWidth and _DesktopHeight the reporting back numbers are off.  My display is 3840x2160.  But the reported numbers are 2560x1440.

Possible bug ?
Thanks to SMcNeill  helping with the proper commands.  See prior message....

https://www.reddit.com/r/BASICAnywhereMa...k_program/

This sub took me hours to get going because it's behaving so strangely. It's a simple routine to print out some info, but it won't work unless an INPUT statement is used at the end, not an INPUT$() or INKEY$. Even SLEEP causes the sub not to run right. My first choice is for the user just to press a single key and exit the sub, but only the input statement works right - which requires a carriage return. I don't get it. Any help will be much appreciated! See remarks below...

SUB destTable () '

    SHARED destData() AS STRING
    SHARED destCounter AS INTEGER
    SHARED fuel AS SINGLE
    DIM range AS SINGLE
    DIM AS INTEGER counter, entry, entries(20) '
    DIM n AS STRING

    range = fuel / 35.29 '          fuel / rate of burn per light year
    counter = 0

    _FONT messFont: COLOR YELLOW
    n = _TRIM$(MID$(STR$(range), 1, 5))
    _PRINTSTRING (30, 40), "Destinations Within Present Range" + "  (" + n + " Light Years)"

    DO
        counter = counter + 1
        IF range >= VAL(destData(counter, 3)) THEN '    if range is greater than distance to destination...
            entry = entry + 1
            entries(entry) = counter
            _FONT messFont: COLOR ORANGE
            _PRINTSTRING (30, 66 + entry * 25), CHR$(64 + entry) + ") " + destData(counter, 1) '
            _FONT courseFont: COLOR GREEN
            _PRINTSTRING (340, 70 + entry * 25), destData(counter, 2)
            _FONT courseFont: COLOR PINK
            _PRINTSTRING (580, 72 + entry * 25), destData(counter, 3) + " Light Years"
        END IF
    LOOP UNTIL counter = 20

    _FONT messFont: COLOR YELLOW
    _PRINTSTRING (40, 138 + entry * 25), "Your Destination Choice is"
    LOCATE 30, 344
    INPUT n '          <======= !!                           reuse n string
    ' n = INPUT$(1) '                                                ALL THESE REMMED COMMANDS CAUSE THE ABOVE NOT TO DISPLAY TO SCREEN
    ' WHILE INKEY$ = "": n = INKEY$: WEND '           UNTIL *AFTER* USER PRESSES A KEY
    ' DO: n = INKEY$: LOOP UNTIL n <> "" '              only an INPUT statement gets the above table to print ...
    ' SLEEP                                ... otherwise program freezes w/o performing above code until key is hit, then the table appears for a sec
    counter = ASC(n) - 96 '                                        reuse counter
    destCounter = entries(counter) '
    pickDest

END SUB