Recent posts

#21
Happy Xmas.

etc im today finally got my Spectrum Next issue 2 machine. Currectly working a that remake named "Head Over Heels" to that as one of the strect issue 2 kickstarter. Im guess all/most speccy games know that game. hihi.
#22
Off Topic / Re: Merry Christmas and Happy ...
Last post by erico - 2023-Dec-27
Nice thread re-use :)
I wish the best to us all.

But on me, I wish this year I can work out more GLBasic games, including updating my most successful games and releasing the few I have on the 90% done. It has been too long. :)
#23
Merry Christmas and all the best in New Year :)
#24
Off Topic / Re: Merry Christmas and Happy ...
Last post by Marmor - 2023-Dec-26
Merry Christmas to all  ;)
#25
Merry Christmas dude!

This is how I feel at the moment...  :booze:

#26
Hehe, just re-use this thread again :)
#27
can anyone send the imput source? it would be an appreciated  :good:
thank you
#28
Tutorials / Re: Chat.GPT
Last post by Qedo - 2023-Nov-22
Great, but Chat.GPT needs to study the syntax of Glbasic better  =D
#29
Tutorials / Re: Chat.GPT
Last post by MrPlow - 2023-Nov-20
Hi I asked GPT to create GUI menu in GLBasic and it gave me

Code (glbasic) Select
// Set the screen dimensions
SCREEN 800, 600, 0, 2

// Define menu constants
CONST MENU_ITEM_HEIGHT = 50
CONST MENU_TEXT_SIZE = 20

// Define menu items
GLOBAL menuItems[2] = ["Option 1", "Option 2"]
GLOBAL selectedMenuItem = -1

// Main loop
WHILE TRUE
  // Clear the screen
  CLS RGB(255, 255, 255)

  // Draw menu items
  FOR i = 0 TO UBOUND(menuItems)
    LOCAL itemY = i * MENU_ITEM_HEIGHT + 10
    RECT 10, itemY, 790, itemY + MENU_ITEM_HEIGHT, RGB(200, 200, 200)
    PRINT menuItems[i], 20, itemY + 10, MENU_TEXT_SIZE
  NEXT

  // Check for mouse input
  LOCAL mouseX, mouseY, mouseButton
  MOUSESTATE mouseX, mouseY, mouseButton

  // Highlight the selected menu item
  selectedMenuItem = -1
  FOR i = 0 TO UBOUND(menuItems)
    LOCAL itemY = i * MENU_ITEM_HEIGHT + 10
    IF mouseX > 10 AND mouseX < 790 AND mouseY > itemY AND mouseY < itemY + MENU_ITEM_HEIGHT
      RECT 10, itemY, 790, itemY + MENU_ITEM_HEIGHT, RGB(150, 150, 150)
      selectedMenuItem = i
    ENDIF
  NEXT

  // Check for mouse click on a menu item
  IF mouseButton = 1 AND selectedMenuItem <> -1
    // Perform action based on the selected menu item
    SELECT selectedMenuItem
      CASE 0
        PRINT "Option 1 selected", 400, 300
      CASE 1
        PRINT "Option 2 selected", 400, 300
    END SELECT
    SLEEP 1000  // Display the message for a short time
  ENDIF

  // Refresh the screen
  SHOWSCREEN
WEND

// End the program
END



Needed some fixing but the example was close -  :o

Code (glbasic) Select
SUB main2:
LOADFONz("bigscore.png",1)
SETFONT 1
// Set the screen dimensions
//SCREEN 800, 600, 0, 2

// Define menu constants
CONSTANT MENU_ITEM_HEIGHT = 50
CONSTANT MENU_TEXT_SIZE = 20

// Define menu items
GLOBAL menuItems$[]
DIM menuItems$[2]
menuItems$[0]="Option 1"
menuItems$[1]="Option 2"
GLOBAL selectedMenuItem = -1

// Main loop
WHILE TRUE
  // Clear the screen
  CLEARSCREEN RGB(255, 255, 255)

  // Draw menu items
  FOR i = 0 TO LEN(menuItems$[])-1
    LOCAL itemY = i * MENU_ITEM_HEIGHT + 10
    DRAWRECT 10, itemY, 790, itemY + MENU_ITEM_HEIGHT, RGB(200, 200, 200)
    PRINT menuItems$[i], 20, itemY + 10, MENU_TEXT_SIZE
  NEXT

  // Check for mouse input
  LOCAL mouseX, mouseY, mouseButton,mb2
  MOUSESTATE mouseX, mouseY, mouseButton,mb2

  // Highlight the selected menu item
  selectedMenuItem = -1
  FOR i = 0 TO LEN(menuItems$[])-1
    LOCAL itemY = i * MENU_ITEM_HEIGHT + 10
    IF mouseX > 10 AND mouseX < 790 AND mouseY > itemY AND mouseY < itemY + MENU_ITEM_HEIGHT
      DRAWRECT 10, itemY, 790, itemY + MENU_ITEM_HEIGHT, RGB(150, 150, 150)
      selectedMenuItem = i
    ENDIF
  NEXT

  // Check for mouse click on a menu item
  IF mouseButton = 1 AND selectedMenuItem <> -1
    // Perform action based on the selected menu item
    SELECT selectedMenuItem
      CASE 0
        PRINT "Option 1 selected", 400, 300
      CASE 1
        PRINT "Option 2 selected", 400, 300
    ENDSELECT
    SLEEP 1000  // Display the message for a short time
  ENDIF

  // Refresh the screen
  SHOWSCREEN
WEND

// End the program
ENDSUB
#30
Tutorials / Re: Chat.GPT
Last post by MrPlow - 2023-Nov-20
Wow! It knows GLBasic...
Yes, I have done a few assets examples too...