Wordle - a new word game

[bplus]

Pretty easy to figure out, read title bar for instructions:

Code: QB64: [Select]

1. _Title "Wordle: 6 guesses to get 5 letter word, enter guess or nothing to quit, yellow is right letter wrong place, green is right letter right place."
2. Randomize Timer ' b+ 20220107
3. f& = _LoadFont("arial.ttf", 24, "MONOSPACE")
4. Screen _NewImage(1024, 600, 32)
5. _ScreenMove 100, 100
6. Color _RGB32(200, 200, 200), _RGB32(0, 0, 0)
7. Do ' again new round
8.     Cls
9.     Open "5 Letter Words.txt" For Input As #1 'grab a word, this is fast enough
10.     nWord = Int(Rnd * 2104) + 1
11.     For i = 1 To nWord
12.         Input #1, w$
13.     Next
14.     Close #1
15.     'Locate 20, 60: Print w$ ' for debug or cheat
16.     printRow = 0
17.     For i = 1 To 6 ' allowed 6 guesses
18.         hits = 0 ' how many letters are dead right?
19.         tryAgain: ' opps too many or few letters in guess
20.         printRow = printRow + 1 ' track left print line for inputs mostly
21.         Locate printRow, 1: Print " "; _Trim$(Str$(i)); "# ";
22.         Input "Enter a 5 letter word for your guess "; guess$
23.         If guess$ = "" Then System
24.         If Len(guess$) <> 5 Then Sound 50, 4: printRow = printRow + 1: Print "Try again": GoTo tryAgain
25.         _Font f&
26.         For letter = 1 To 5
27.             Locate i, letter + 30
28.             If Mid$(w$, letter, 1) = Mid$(guess$, letter, 1) Then
29.                 hits = hits + 1
30.                 Color _RGB32(0, 0, 0), _RGB32(0, 128, 0)
31.             ElseIf InStr(w$, Mid$(guess$, letter, 1)) Then
32.                 Color _RGB32(0, 0, 0), _RGB32(255, 255, 0)
33.             Else
34.                 Color _RGB32(200, 200, 200), _RGB32(0, 0, 0)
35.             End If
36.             Print Mid$(guess$, letter, 1)
37.         Next
38.         _Font 16
39.         Color _RGB32(200, 200, 200), _RGB32(0, 0, 0)
40.         If hits = 5 Then Locate printRow + 1: Print "You got it!": _Delay 3: GoTo skip
41.     Next
42.     Sound 50, 4
43.     printRow = printRow + 2
44.     Locate printRow, 1: Print "The word was "; w$
45.     _Delay 3
46.     skip:
47. Loop
48.  

The zip contains source, exe for Windows, 2 word files and the code to convert one to "5 Letter Words.txt" file.
 

[euklides]

A letter mastermind...

[bplus]

A letter mastermind...

Yes, and Bulls and Cows game with digits, but Wordle has the advantage of knowing which and where the dead right letter(s) is(are). On the other hand there are usually less colors than digits more than double, and less digits than letters more than double. On the other, other hand, colors can be doubled up (or more eg, all 4 the same) in Mastermind and they are usually all unique in Bulls and Cows and how I made Wordle.

[GronkleNut]

Fun, although I think the rules are slightly different to those you've implemented, you can't just put in random letters for your guess you have to put in a valid 5 letter word - hopefully easy to check the user entered guess word is in the word list before evaluating/highlighting the guess.

[bplus]

So someone finally gets around to posting some code for Wordle at LB, tsh73 of course!

He brought up some interesting things:
1. Using console (no color coding) he Capitalized the right letters in the wrong place and he [boxed] the letters in the right place.
2. He demands the word guesses be in the dictionary he is using! That is a really hard to do twist compared to my strategy of going in sets of abcde, fghij, klmno,... and getting all the letters in at most 5.
OK I confess being dumbfounded if I had to use real word guesses, unless....

Here is my Wordle 2, your guesses must be a word in the dictionary but you get the dictionary list to select the Word from!!! Further I tried my select item from array code and it sucked without a speedy scroll bar to jump from A to Z fast!

So WTH I loaded the list into yours and mine designated or default .txt Editor from a Shell command.

Now to get the word you select from the list into the Game app you Copy the word into the Clipboard and then Click the Game app to get the focus back to that and hit Enter. The app reads the word from Clipboard as your next guess.

So the code for Wordle 2 isn't much more than Wordle 1:

Code: QB64: [Select]

1. Option _Explicit
2. _Title "Wordle 2: 6 guesses to get 5 letter word, enter guess or nothing to quit, yellow is right letter wrong place, green is right letter right place."
3. Randomize Timer
4.  
5. ' b+ 2022-01-09 Wordle 2: this version you have to select words from word list for your guess
6. '2022-01-10 working but selecting words from wordlist is really slow, need to allow letters to jump up and down the list faster!
7. ' Today we will select word from opened text editor
8. ' 1) copy word to clipboard
9. ' 2) signal this program you've got the new word loaded in clipboard
10. ' Get rid of the ' words in "5 Letter Words.txt" file, too unexpected. So rewrite the file builder from unixdict.txt OK 9 words removed.
11.  
12. Dim As Long f, topWord, printRow, nGuess, hits, letter
13. Dim answer$, guess$, k$
14.  
15. f = _LoadFont("arial.ttf", 24, "MONOSPACE") ' a nice font for displaying Game letters with color
16. Screen _NewImage(600, 400, 32) ' leave room for Editor window next to this QB64 app
17. _ScreenMove 200, 200
18. Color _RGB32(200, 200, 200), _RGB32(0, 0, 0) ' not too bright white on black for normal print
19.  
20. Dim dict(1 To 10000) As String ' oversized array to load word list
21. Open "5 Letter Words.txt" For Input As #1 ' this file uses 5 unique letters, allot of 5 letter 1st names in here
22. While Not EOF(1)
23.     topWord = topWord + 1
24.     Input #1, dict(topWord)
25. Wend
26. Close #1
27. Shell _DontWait Chr$(34) + "5 Letter Words.txt" + Chr$(34)
28.  
29. Do ' again new round
30.     Cls
31.     Locate 24, 6: Print "You have to click the QB64 app to get focus back into the app.";
32.     answer$ = dict(Int(Rnd * topWord) + 1) ' pick new word to guess
33.     printRow = 0 ' reset for round
34.     For nGuess = 1 To 6 ' allowed 6 guesses
35.         hits = 0 ' how many letters are dead right? reset
36.         printRow = printRow + 1 ' track left print line for inputs display mostly
37.  
38.         ' here we are to select a word from word list in the Editor we opened and copy it to clipboard
39.         ' you have to click the QB64 app to get focus back into the app.
40.         Locate 23, 3: Print "Select a word from Editor and copy to clipboard, press enter when done."
41.         k$ = InKey$
42.         While k$ <> Chr$(13): k$ = InKey$: Wend
43.         guess$ = _Trim$(_Clipboard$)
44.         If guess$ = "" Then System
45.         Locate 23, 1: Print Space$(75);
46.         Locate printRow, 1: Print nGuess; guess$
47.  
48.         _Font f&
49.         For letter = 1 To 5
50.             Locate nGuess + 1, letter + 16
51.             If Mid$(answer$, letter, 1) = Mid$(guess$, letter, 1) Then
52.                 hits = hits + 1
53.                 Color _RGB32(0, 0, 0), _RGB32(0, 128, 0)
54.             ElseIf InStr(answer$, Mid$(guess$, letter, 1)) Then
55.                 Color _RGB32(0, 0, 0), _RGB32(255, 255, 0)
56.             Else
57.                 Color _RGB32(200, 200, 200), _RGB32(0, 0, 0)
58.             End If
59.             Print Mid$(guess$, letter, 1)
60.         Next
61.         _Font 16
62.         Color _RGB32(200, 200, 200), _RGB32(0, 0, 0)
63.         If hits = 5 Then Locate 13, 45: Print "You got it! ...zzz": Sleep: GoTo skip
64.     Next
65.     Sound 50, 4
66.     Locate 16, 38: Print "The word was "; answer$; "  ...zzz"
67.     Sleep
68.     skip:
69.     _Font 16
70. Loop
71.  

You can use the old "5 Letter Words.txt", I found it contained words with an ' so I modified the "Make 5 Letter Word file.bas to this:

Code: QB64: [Select]

1. Open "unixdict.txt" For Input As #1
2. Open "5 Letter Words.txt" For Output As #2
3. While Not EOF(1)
4.     Input #1, w$
5.     If InStr(w$, "'") Then 'skip
6.     Else
7.         good = 1
8.         If Len(w$) = 5 Then
9.             For i = 1 To 4
10.                 If InStr(i + 1, w$, Mid$(w$, i, 1)) Then good = 0: Exit For
11.             Next
12.             If good Then Print #2, w$
13.         End If
14.     End If
15. Wend
16. Close
17. Print "5 Letter Words.txt, file ready."
18.  

It removes 9 words from file. The unixdict.txt is still in zip of the first post.

 

[bplus]

Fun, although I think the rules are slightly different to those you've implemented, you can't just put in random letters for your guess you have to put in a valid 5 letter word - hopefully easy to check the user entered guess word is in the word list before evaluating/highlighting the guess.

Hi @GronkleNut

Yeah just posted Wordle 2 with rule of using real words, thanks. :)

[Statsman1]

Looks great, I love this game, but as an avid Wordle player, I must add that duplicate letters ARE permitted in Wordle.  I looked at the dictionary file supplied, and words like ANNEX, COCOA and BUDDY are legitimate Wordle entries, but are not in the dictionary file.

[bplus]

Looks great, I love this game, but as an avid Wordle player, I must add that duplicate letters ARE permitted in Wordle.  I looked at the dictionary file supplied, and words like ANNEX, COCOA and BUDDY are legitimate Wordle entries, but are not in the dictionary file.

Sorry, never heard of let alone played it. I thought unique letter set would be easier to code.

Well there is always my Wordle 3 or yours? @Statsman1 ;-)) BTW always been fascinated by symbol in your avatar, curious about the real origin.

[Statsman1]

Hey @bplus -

No problem, your Wordle is excellent.  I am not sure I could code anything to allow for the duplicate of letters anytime soon, though I imagine it would simply be a little more recursive comparing (to wit - instead of stopping when you find the character in the word, you have to check each character in a guess to see if it matches each letter in the solution, cannot just stop the search after finding the first instance of E in ELECT if the guess is TRADE).

As for the symbol - well, it is an ankh, an Egyptian symbol that means life.  You see this in hieroglyphics and all sorts of ancient Egyptian symbolism.  How it became MY talisman is a little less exotic - Ultima IV for the Apple II is my favorite video game of all time.  I adopted the ankh, when I bought the original game back in 1985, as my good-luck charm, and have carried it all through my life.  I have the very same one that came with the game, back in ‘85, on a chain that I wear from time to time, and I have a couple of other metal ankhs here and there around the house.

Kinda silly, I know, but Ultima IV, and the ankh, have meant a lot to me in 35 years.  :)

[bplus]

OK Wordle 3 handles repeated letters, it was a little tricky when more than 1 letter in guess matches a letter in the answer to match. A little better instructions screen at start too.

Code: QB64: [Select]

1. Option _Explicit
2. _Title "Wordle 3" ' b+ 2022-01-10 allow repeated letters in Word Game
3. Randomize Timer
4.  
5. ' b+ 2022-01-09 Wordle 2: this version you have to select words from word list for your guess
6. '2022-01-10 working but selecting words from wordlist is really slow, need to allow letters to jump up and down the list faster!
7. ' Today we will select word from opened text editor
8. ' 1) copy word to clipboard
9. ' 2) signal this program you've got the new word loaded in clipboard
10. ' Get rid of the ' words in "5 Letter Words.txt" file, too unexpected. So rewrite the file builder from unixdict.txt OK 9 words removed.
11.  
12. ' 2022-01-10 Wordle 3: allow repeated letters (make it even harder! to play and code?)
13. ' Revise "Make 5 Letter Words W3.bas" code to rebuild "5 Letter Words W3.txt" with words with repeating letters.
14.  
15. Dim As Long f, topWord, printRow, nGuess, hits, letter, p, colorCode(1 To 5)
16. Dim answer$, guess$, k$, blank$
17.  
18. f = _LoadFont("arial.ttf", 24, "MONOSPACE") ' a nice font for displaying Game letters with color
19. Screen _NewImage(600, 400, 32) ' leave room for Editor window next to this QB64 app
20. _ScreenMove 200, 200
21. Color _RGB32(200, 200, 200), _RGB32(0, 0, 0) ' not too bright white on black for normal print
22. '      123456789012345678901234567890123456789012345678901234567890123456789012345
23. Locate 8, 1
24. Print "                          The Skinny on Wordle:"
25. Print
26. Print "                You get 6 tries to guess a 5 letter word."
27. Print "          A letter color coded yellow is right letter wrong place."
28. Print "          A letter color coded green is right letter right place."
29. Print
30. Print "            ...zzz  means to press a key to continue ...zzz"
31. Sleep
32.  
33. Dim dict(1 To 10000) As String ' oversized array to load word list
34. Open "5 Letter Words W3.txt" For Input As #1 ' W3 version allows repeated letters, allot of 5 letter 1st names in here
35. While Not EOF(1)
36.     topWord = topWord + 1
37.     Input #1, dict(topWord)
38. Wend
39. Close #1
40. Shell _DontWait Chr$(34) + "5 Letter Words W3.txt" + Chr$(34)
41.  
42. Do ' again new round
43.     Cls
44.     Locate 24, 6: Print "You have to click the QB64 app to get focus back into the app.";
45.     answer$ = dict(Int(Rnd * topWord) + 1) ' pick new word to guess
46.     printRow = 0 ' reset for round
47.     For nGuess = 1 To 6 ' allowed 6 guesses
48.         hits = 0 ' how many letters are dead right? reset
49.         printRow = printRow + 1 ' track left print line for inputs display mostly
50.         ' here we are to select a word from word list in the Editor we opened and copy it to clipboard
51.         Locate 23, 3: Print "Select a word from Editor and copy to clipboard, press enter when done."
52.         k$ = InKey$
53.         While k$ <> Chr$(13): k$ = InKey$: Wend
54.         guess$ = _Trim$(_Clipboard$)
55.         If guess$ = "" Then System
56.         Locate 23, 1: Print Space$(75);
57.         Locate printRow + 3, 10: Print nGuess; guess$
58.         _Font f&
59.         blank$ = answer$ ' we use blank to remove letters as we assign colors
60.         Erase colorCode
61.         For letter = 1 To 5
62.             If Mid$(answer$, letter, 1) = Mid$(guess$, letter, 1) Then
63.                 hits = hits + 1
64.                 Mid$(blank$, letter, 1) = " " ' remove green letters taken by direct hits
65.                 colorCode(letter) = 3
66.             End If
67.         Next
68.         For letter = 1 To 5
69.             If colorCode(letter) <> 3 Then
70.                 p = InStr(blank$, Mid$(guess$, letter, 1))
71.                 If p > 0 Then
72.                     colorCode(letter) = 2
73.                     Mid$(blank$, p, 1) = " " ' remove so can't color again
74.                 End If
75.             End If
76.         Next
77.         For letter = 1 To 5 ' now to display our colorful feedback about the guess
78.             Locate nGuess + 1, letter + 16
79.             If colorCode(letter) = 3 Then
80.                 Color _RGB32(0, 0, 0), _RGB32(0, 128, 0)
81.             ElseIf colorCode(letter) = 2 Then
82.                 Color _RGB32(0, 0, 0), _RGB32(255, 255, 0)
83.             Else
84.                 Color _RGB32(200, 200, 200), _RGB32(0, 0, 0)
85.             End If
86.             Print Mid$(guess$, letter, 1)
87.         Next
88.         _Font 16
89.         Color _RGB32(200, 200, 200), _RGB32(0, 0, 0)
90.         If hits = 5 Then Locate 13, 45: Print "You got it! ...zzz": Sleep: GoTo skip
91.     Next
92.     Sound 50, 4
93.     Locate 16, 38: Print "The word was "; answer$; "  ...zzz"
94.     Sleep
95.     skip:
96.     _Font 16
97. Loop
98.  

You will also need the new Make file to assemble the 5 Letter Words W3 List that allow repeated letters, saved under a modified name so as a different file is made so the old list works with older version of game.

Code: QB64: [Select]

1. Open "unixdict.txt" For Input As #1
2. Open "5 Letter Words W3.txt" For Output As #2
3. While Not EOF(1)
4.     Input #1, w$
5.     If InStr(w$, "'") Then 'skip
6.     Else
7.         If Len(w$) = 5 Then Print #2, w$
8.     End If
9. Wend
10. Close
11. Print "5 Letter Words W3.txt, file ready."
12.  

Again the unixdict.txt file is in the zip in first post of this thread.

 

[Statsman1]

Awesome, @bplus!!

[bplus]

Awesome, @bplus!!

Thanks I hope you noticed the example I chose for screen shot :)

[Statsman1]

I did notice, that is how I know you 100% test your programs!  :)

[Statsman1]

Of course, now my afternoon productivity is going down the tubes....

[bplus]

Call it the vital service of Beta Testing. :)