Wordle clone

[SquirrelMonkey]

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

[Dav]

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.  
10. PRINT
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.  
48. END FUNCTION
49.  

[STxAxTIC]

That IS Weird Paul! Love him so much. Nice work m8.

[SquirrelMonkey]

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.  
10. PRINT
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.  
48. END FUNCTION
49.  

Thank you! Going to try this code.

[SquirrelMonkey]

That IS Weird Paul! Love him so much. Nice work m8.

Yes, the one and only. :D

[SierraKen]

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 "->"
3. Do
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
12. Loop
13. done:
14. Print
15. Print "Finished."
16. Print
17. Input "Press Enter to end."; b$
18.  

[SierraKen]

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 "->"
3. Do
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
12. Loop
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.  

[SquirrelMonkey]

Your code made my game way faster. Thanks, Dav!
https://archive.org/details/weirdle_20220306