Text Only | Text with Attachments

QB64.org Forum

Active Forums => Programs => Topic started by: SquirrelMonkey on March 05, 2022, 12:49:24 pm

Title: Wordle clone
Post by: SquirrelMonkey on March 05, 2022, 12:49:24 pm
I am working on Weirdle, a Weird Paul themed Wordle clone in QuickBASIC.
The part of the program where you have to enter words is very slow. I wish I could use LINE INPUT, but with a limited amount of characters. Is that possible?

   

Embedded in the browser: https://archive.org/details/weirdle_20220305_0655

Files: https://github.com/joluijten/Weirdle
Title: Re: Wordle clone
Post by: Dav on March 05, 2022, 01:21:13 pm
Sounds interesting.

I don't think LINE INPUT accepts a given input limit, but I made a restricted input routine function that you can freely have/use/abuse.

- Dav

Code: QB64: [Select]
  1. '==========
  2. 'KINPUT.BAS
  3. '==========
  4. 'Restricted keyboard INPUT$ routine.
  5. 'Limit how many characters you can enter.
  6. 'Coded by Dav, JAN/2021
  7.  
  8. a$ = KINPUT$(3, 3, "Enter up to 12 letters: ", 12)
  9.  
  11. PRINT "You entered: "; a$
  12.  
  13.  
  14. FUNCTION KINPUT$ (y, x, text$, limitnum)
  15.  
  16.     LOCATE y, x: PRINT text$;
  17.  
  18.     entry$ = ""
  19.     y = CSRLIN: x = POS(1)
  20.  
  21.     DO
  22.         a$ = INPUT$(1)
  23.  
  24.         IF a$ = CHR$(13) THEN 'enter returns entry
  25.             KINPUT$ = entry$: EXIT FUNCTION
  26.         END IF
  27.  
  28.         IF a$ = CHR$(27) THEN 'ESC bails out
  29.             KINPUT$ = "": EXIT FUNCTION
  30.         END IF
  31.  
  32.         IF a$ = CHR$(8) THEN 'Backspace goes back a space
  33.             IF LEN(entry$) > 0 THEN
  34.                 entry$ = MID$(entry$, 1, LEN(entry$) - 1)
  35.             END IF
  36.         ELSE
  37.             'add letter entered, if not over limitnum
  38.             IF LEN(entry$) < limitnum THEN
  39.                 entry$ = entry$ + a$
  40.             END IF
  41.         END IF
  42.  
  43.         LOCATE y, x: PRINT SPACE$(limitnum);
  44.         LOCATE y, x: PRINT entry$;
  45.  
  46.     LOOP
  47.  
  49.  

Title: Re: Wordle clone
Post by: STxAxTIC on March 05, 2022, 04:10:42 pm
That IS Weird Paul! Love him so much. Nice work m8.
Title: Re: Wordle clone
Post by: SquirrelMonkey on March 05, 2022, 05:13:22 pm
Quote from: Dav on March 05, 2022, 01:21:13 pm
Sounds interesting.

I don't think LINE INPUT accepts a given input limit, but I made a restricted input routine function that you can freely have/use/abuse.

- Dav

Code: QB64: [Select]
  1. '==========
  2. 'KINPUT.BAS
  3. '==========
  4. 'Restricted keyboard INPUT$ routine.
  5. 'Limit how many characters you can enter.
  6. 'Coded by Dav, JAN/2021
  7.  
  8. a$ = KINPUT$(3, 3, "Enter up to 12 letters: ", 12)
  9.  
  11. PRINT "You entered: "; a$
  12.  
  13.  
  14. FUNCTION KINPUT$ (y, x, text$, limitnum)
  15.  
  16.     LOCATE y, x: PRINT text$;
  17.  
  18.     entry$ = ""
  19.     y = CSRLIN: x = POS(1)
  20.  
  21.     DO
  22.         a$ = INPUT$(1)
  23.  
  24.         IF a$ = CHR$(13) THEN 'enter returns entry
  25.             KINPUT$ = entry$: EXIT FUNCTION
  26.         END IF
  27.  
  28.         IF a$ = CHR$(27) THEN 'ESC bails out
  29.             KINPUT$ = "": EXIT FUNCTION
  30.         END IF
  31.  
  32.         IF a$ = CHR$(8) THEN 'Backspace goes back a space
  33.             IF LEN(entry$) > 0 THEN
  34.                 entry$ = MID$(entry$, 1, LEN(entry$) - 1)
  35.             END IF
  36.         ELSE
  37.             'add letter entered, if not over limitnum
  38.             IF LEN(entry$) < limitnum THEN
  39.                 entry$ = entry$ + a$
  40.             END IF
  41.         END IF
  42.  
  43.         LOCATE y, x: PRINT SPACE$(limitnum);
  44.         LOCATE y, x: PRINT entry$;
  45.  
  46.     LOOP
  47.  
  49.  

Thank you! Going to try this code.
Title: Re: Wordle clone
Post by: SquirrelMonkey on March 05, 2022, 05:13:48 pm
Quote from: STxAxTIC on March 05, 2022, 04:10:42 pm
That IS Weird Paul! Love him so much. Nice work m8.

Yes, the one and only. :D
Title: Re: Wordle clone
Post by: SierraKen on March 05, 2022, 09:21:40 pm
That's pretty cool Dav!
Here is my version of doing pretty much the same thing except using INKEY$. It gives a 15 character limit and then ends. You can add more code if you want to put all the letters into one string.

Code: QB64: [Select]
  1. Dim letter$(15)
  2. Locate 10, 2: Print "->"
  4.     _Limit 20
  5.     a$ = InKey$
  6.     If a$ <> "" Then
  7.         t = t + 1
  8.         letter$(t) = a$
  9.         Locate 10, t + 3: Print letter$(t)
  10.         If t > 14 Then GoTo done:
  11.     End If
  13. done:
  15. Print "Finished."
  17. Input "Press Enter to end."; b$
  18.  

Title: Re: Wordle clone
Post by: SierraKen on March 05, 2022, 09:32:45 pm
Here is one that puts all the 15 characters together into one string and then displays it again.

Code: QB64: [Select]
  1. Dim letter$(15)
  2. Locate 10, 2: Print "->"
  4.     _Limit 20
  5.     a$ = InKey$
  6.     If a$ <> "" Then
  7.         t = t + 1
  8.         letter$(t) = a$
  9.         Locate 10, t + 3: Print letter$(t)
  10.         If t > 14 Then GoTo done:
  11.     End If
  13. done:
  14. word$ = letter$(1) + letter$(2) + letter$(3) + letter$(4) + letter$(5) + letter$(6) + letter$(7) + letter$(8) + letter$(9) + letter$(10) + letter$(11) + letter$(12) + letter$(13) + letter$(14) + letter$(15)
  15. Locate 12, 1
  16. Print word$
  17. Locate 14, 1
  18. Print "Finished."
  19. Locate 16, 1
  20. Input "Press Enter to end."; b$
  21.  
Title: Re: Wordle clone
Post by: SquirrelMonkey on March 07, 2022, 05:36:11 pm
Your code made my game way faster. Thanks, Dav!
https://archive.org/details/weirdle_20220306
Text Only | Text with Attachments