word puzzles

cos00kun

-- Find English word for LuaRT
-- There are 488 words in the file.
-----------------------------------

-- Computer Guess a word in Database
local file = sys.File("EnglishWords.txt")
file:open("read")

local wordLine= math.random(1,488*5)
wordLine= wordLine + 1 - math.fmod(wordLine,5)
file.position = wordLine
file:readln()
local computerWord = (tostring(file:readln())):upper()

local keyboard= {}
local wordBox= {}
local entryIndex= 1
local keyboard_Y =450
local wordBox_Y = 0
local minwordBoxIndex = 1
local maxwordBoxIndex = 5
local keyword={"Q","W","E","R","T","Y","U","I","O","P",
				"A","S","D","F","G","H","J","K","L",
				"ENT","Z","X","C","V","B","N","M","<--"}

local ui = require "ui"
local win = ui.Window("Find My Word    Beta V0.1","single", 600, 700)
win.bgcolor = 0xFFFFFF

local function letter_onClick(self)
	if self.text == "<--" then
		if entryIndex > minwordBoxIndex then
			entryIndex = entryIndex - 1
			wordBox[entryIndex].text = ""
		end
	elseif self.text=="ENT" then
		if entryIndex == maxwordBoxIndex + 1 then
			local guess = ""
			for i = minwordBoxIndex, maxwordBoxIndex do
				guess = guess..wordBox[i].text
			end
					
			local temp1 = 0
			for char1 in each(guess) do
				local temp2 = 0
				temp1 = temp1 + 1
				for char2 in each(computerWord) do
					temp2 = temp2 + 1
					if char1 == char2 then
						if temp1 == temp2 then
							wordBox[temp1 + minwordBoxIndex - 1].bgcolor= 0x009900
						else
							wordBox[temp1 + minwordBoxIndex - 1].bgcolor= 0xFFFF00
						end
					end
				end
			end
			if (wordBox[minwordBoxIndex].bgcolor == 0x009900) and 
				(wordBox[minwordBoxIndex+1].bgcolor == 0x009900) and 
				(wordBox[minwordBoxIndex+2].bgcolor == 0x009900) and 
				(wordBox[minwordBoxIndex+3].bgcolor == 0x009900) and 
				(wordBox[minwordBoxIndex+4].bgcolor == 0x009900) then
				local msgLabel1= ui.Label(win, "Yes!!! Great",210,20)
				entryIndex = 31
			end
			minwordBoxIndex = minwordBoxIndex + 5
			maxwordBoxIndex = maxwordBoxIndex + 5
		else
			local msgLabel= ui.Label(win, "Not enough letter",210,20)
			msgLabel.bgcolor = 0x323232
			msgLabel.fgcolor = 0xFFFFFF
			msgLabel.fontsize = 16
			msgLabel.textalign = "center"			
			ui.update(1400)
			msgLabel.visible = false
		end
	elseif entryIndex < maxwordBoxIndex+1 then
			wordBox[entryIndex].text= self.text
			entryIndex = entryIndex + 1
	end
end

for i=1,28 do  -- Keyboard
	if i==1 then
		keyboard_Y=keyboard_Y+45
		label = ui.Label(win, keyword[i], 75, keyboard_Y,40,40)
	elseif i==11 then
		keyboard_Y=keyboard_Y+45
		label = ui.Label(win, keyword[i], 95, keyboard_Y,40,40)
	elseif i==20 then
		keyboard_Y=keyboard_Y+45
		label = ui.Label(win, keyword[i], 75, keyboard_Y,80,40)
	elseif i==28 then
		label = ui.Label(win, keyword[i], keyboard[i-1].x+45, keyboard[i-1].y,80,40)
	else
		label = ui.Label(win, keyword[i], keyboard[i-1].x+45, keyboard[i-1].y,40,40)
	end
		label.onClick = letter_onClick
		keyboard[#keyboard+1]=label
		keyboard[i].bgcolor = 0xE0E0E0
		keyboard[i].fontsize = 22
		keyboard[i].textalign = "center"
end

for i=1,30 do  -- Word
	if i==1 or i==6 or i==11 or i==16 or i==21 or i==26 then
		wordBox_Y= wordBox_Y + 65
		wordBox[i] = ui.Label(win, "",140, wordBox_Y,60,60)
	else
		wordBox[i] = ui.Label(win, "",wordBox[i-1].x+65, wordBox[i-1].y,60,60)
	end
		wordBox[i].fontsize = 30
		wordBox[i].textalign = "center"
		wordBox[i].bgcolor = 0xE0E0E0
end

win:show()

repeat
  ui.update()
until not win.visible

Edit code (11/02/12023) got a little better.

Now the program can make word predictions and evaluation.
letters in the guessed word glow green if they are correct, and yellow if they are incorrect

cos00kun

[Login to see the link]

Samir

Great work ! I have just tested it and found one word !

cos00kun

Hi..

local file = sys.File("EnglishWords.txt")
file:open("read")

local wordLine= math.random(1,488*5)
wordLine= wordLine + 1 - math.fmod(wordLine,5)
file.position = wordLine
file:readln()
local computerWord = (tostring(file:readln())):upper()

In the above code I used in the program;

    print("computerWord ="..computerWord)
   print("Lenght= "..string.len(computerWord))

When I do I see that the lengths are not the same.

I can find a random word by choosing between words, but since this word is not 5 letters in length, I cannot operate with comparison operators. The word "computerWord" has 5 letters but when checked with string.len() it appears to be 6 characters. I know that it is necessary to be careful when working with encoding, characters and bytes, but I could not find a solution. My goal is to randomly find any 5-letter word from the 488 line "EnglishWords.txt" file and assign it to a variable. Actually, the program achieves this, but when I operate with comparison operators, I think I get wrong results because 5 bytes of data should be returned, but 6 bytes of data are returned.

cos00kun

For example, let's say;

computerWord = "ABOUT"
aa="ABOUT"
if computerWord == aaa then
    print("Same")
end

but this comparison never returns true

Samir

Very strange....,🤔
I will investigate this but string comparison is done in the Lua VM, might be something else

cos00kun

probably i am doing it wrong. You can check it from the sections in the program, I haven't succeeded for now. But I have no intention of ever giving up. 😊

Samir

I cannot reproduce it on my internal testsuite.
It might be related to the way you are extracting words from the file.

Samir

Ok I see you are using file.position to set file position randomly. But you should use Line position (file position can locate to the middle of a word)

cos00kun

Yes but;
file.position = wordLine
wordLine already marks the beginning of each line in the file.

cos00kun

local file = sys.File("sil.txt")
file:open("read")

local wordLine= math.random(1,4*5)
wordLine= wordLine + 1 - math.fmod(wordLine,5)
file.position = wordLine
file:readln()
local computerWord = (tostring(file:readln())):upper()

print(wordLine)
print(computerWord)

if computerWord == "ABOUA" or computerWord == "ABOUB" or computerWord == "ABOUC" or computerWord == "ABOUD"  then
	print("Same")
end

sil.txt file ;

Aboua
Aboub
Abouc
Aboud

I think it also detects the ENTER key at the end of the line as a character. I do not know.
in this example the compare works correctly only on the word "Aboud" in the last line

cos00kun

I solved the problem temporarily. I think the source of the problem is that when "Line position" goes to the beginning of each line, it also increases by 1 or 2 more characters or a similar situation occurs.
Here's how I found the solution. I put all the words in the "EnglishWords.txt" file side by side without interruption. So it's working flawlessly for now.

Samir

Replace the file.position algorithm with this one :

local words = {}
local count = 0
for word in file.lines do
   count = count + 1
   words[count] = word
end

local computerWord = words[ math.random(1, count) ]

cos00kun

Hmmm... Thank you! good job.. i will try it

cos00kun

key="Above"
local file = sys.File("EnglishWords.txt")
file:open("read")

local words = {}
local count = 0
for word in file.lines do
   count = count + 1
   words[count] = word
end

local computerWord = words[ math.random(1, count)]

print(string.len(computerWord))
print(string.len(key))

computerWord lenght =6 and key lenght =5 !
I guess redln() and file.lines add a character like "Enter" or a "space" to the end of the word it brings

Samir

I will investigate it again, but the first time computerWorld was 5 bytes length on my side 🤔

cos00kun

-- Find English word for LuaRT
-- There are 488 words in the file.
-----------------------------------

-- Computer Guess a word in Database
local file = sys.File("EnglishWords_S.txt")
file:open("read")

local wordLine= math.random(1,488*5)
wordLine= wordLine + 1 - math.fmod(wordLine,5)
file.position = wordLine
local computerWord = (tostring(file:read(5))):upper()
local words= tostring(file:read()):upper()
file.position = 1

local keyboard= {}
local wordBox= {}
local entryIndex= 1
local keyboard_Y = 410
local wordBox_Y = 0
local minwordBoxIndex = 1
local maxwordBoxIndex = 5
local keyword={"Q","W","E","R","T","Y","U","I","O","P",
				"A","S","D","F","G","H","J","K","L",
				"ENT","Z","X","C","V","B","N","M","<--"}

local ui = require "ui"
local win = ui.Window("Find My Word    Beta V0.1","single", 600, 640)
local msgLabel= ui.Label(win, "",215,20)
win.bgcolor = 0xFFFFFF
msgLabel.bgcolor = 0x323232
msgLabel.fgcolor = 0xFFFFFF
msgLabel.fontsize = 16
--msgLabel.textalign = "center"	
msgLabel.visible = false

for i=1,30 do  -- Word
	if i==1 or i==6 or i==11 or i==16 or i==21 or i==26 then
		wordBox_Y= wordBox_Y + 65
		wordBox[i] = ui.Label(win, "",140, wordBox_Y,60,60)
	else
		wordBox[i] = ui.Label(win, "",wordBox[i-1].x+65, wordBox[i-1].y,60,60)
	end
		wordBox[i].fontsize = 30
		wordBox[i].textalign = "center"
		wordBox[i].bgcolor = 0xE5E5E5
end

function animation(_i)
	wordBox[_i].bgcolor = 0xCCCED1
	ui.update(200)
end


local function letter_onClick(self)
	if self.text == "<--" then
		if entryIndex > minwordBoxIndex then
			entryIndex = entryIndex - 1
			wordBox[entryIndex].text = ""
		end
	elseif self.text=="ENT" then
		if entryIndex == maxwordBoxIndex + 1 then
			local guess = ""
			for i = minwordBoxIndex, maxwordBoxIndex do
				guess = guess..wordBox[i].text
			end

			local temp3,temp4 = string.find(tostring(file:read()):upper(), guess)
			file.position = 1			
			if (temp3) and (temp4) then
				for i= minwordBoxIndex, maxwordBoxIndex do
					wordBox[i].fgcolor= 0xFFFFFF -- White
					animation(i)
					wordBox[i].bgcolor= 0x787C7E -- Dark Grey
				end	
				if guess == computerWord  then
					msgLabel.visible = true
					msgLabel.text = "  Yes!!! Great"
					entryIndex = 31
				end				
				local temp1 = 0
				for char1 in each(guess) do
					local temp2 = 0
					temp1 = temp1 + 1
					for char2 in each(computerWord) do
						temp2 = temp2 + 1
						if char1 == char2 then
							if temp1 == temp2 then
								wordBox[temp1 + minwordBoxIndex - 1].bgcolor = 0x6AAA64 --Green
							else
								wordBox[temp1 + minwordBoxIndex - 1].bgcolor = 0XC9B458 --Yellow
							end
						end
					end
				end
				if entryIndex > 29 then
					msgLabel.visible = true
					msgLabel.text = "    USAGE !"
					entryIndex = 31
				end
				minwordBoxIndex = minwordBoxIndex + 5
				maxwordBoxIndex = maxwordBoxIndex + 5
			else
				msgLabel.visible = true
				msgLabel.text = "Not in word list"			
				ui.update(1300)
				msgLabel.visible = false			
			end
		else
			msgLabel.visible = true
			msgLabel.text = "Not enough letter"			
			ui.update(1300)
			msgLabel.visible = false
		end
	elseif entryIndex < maxwordBoxIndex + 1 then
		wordBox[entryIndex].text= self.text
		entryIndex = entryIndex + 1
	end
end

for i=1,28 do  -- Keyboard
	if i == 1 then
		keyboard_Y = keyboard_Y + 55
		label = ui.Label(win, keyword[i], 75, keyboard_Y, 40, 50)
	elseif i == 11 then
		keyboard_Y = keyboard_Y + 55
		label = ui.Label(win, keyword[i], 95, keyboard_Y, 40, 50)
	elseif i == 20 then
		keyboard_Y = keyboard_Y + 55
		label = ui.Label(win, keyword[i], 55, keyboard_Y, 80, 50)
	elseif i == 21 then
		label = ui.Label(win, keyword[i], 140, keyboard_Y, 40, 50)
	elseif i == 28 then
		label = ui.Label(win, keyword[i], keyboard[i-1].x + 45, keyboard[i-1].y, 80, 50)
	else
		label = ui.Label(win, keyword[i], keyboard[i-1].x + 45, keyboard[i-1].y, 40, 50)
	end
		label.onClick = letter_onClick
		keyboard[#keyboard+1] = label
		keyboard[i].textalign = "center"
		keyboard[i].bgcolor = 0xE5E5E5
		keyboard[i].fontsize = 20

end

win:show()

repeat
  ui.update()
until not win.visible

Edits:

database file updated.. "EnglishWords_S.txt"
now word predictions work correctly.

To Do List

If there are 2 same letters in the word that the computer keeps in its memory, the result is produced incorrectly. (to be fixed)
Animation will be improved. (WIP)
It will tell you how many guesses you have found the word that the computer keeps in its memory (WIP)
Fonts will be reset (WIP)

new file download [[Login to see the link]
](https://)

cos00kun

I think I've made good progress. You can test it and tell me my mistakes. 😀

cos00kun

When I press the keyboard keys, I want to assign them to "label.text". Is the onKey() event defined for the keyboard?

Samir

Hi Coskun,

onKey() event is not yet implemented for Windows, but it's on my todo-list !
I'm away from my computer for a few days but I will check it when I get back.