Hi all.
I'm publishing a new simple game. It's actually a game that everyone plays in elementary school years. he is Hangman. Of course I changed it a little. Tomm is trying to catch Jerry. If you know the word in the computer's memory in 6 guesses, Tom will not be able to catch Jerry. Its description is in the Help section when you run the game.
SETUP
Create a "imga" folder in the folder where your code file is located. Place all the image files you will download from the download link into the "Data" folder. Run your code.
[Login to see the link]
[Login to see the link]
[Login to see the link]
[Login to see the link]
[Login to see the link]
[Login to see the link]
[Login to see the link]
[Login to see the link]
[Login to see the link]
[Login to see the link]
[Login to see the link]
[Login to see the link]
[Login to see the link]
[Login to see the link]
[Login to see the link]
[Login to see the link]
[Login to see the link]
-- HangMan for LuaRT
-- There are 47000 words in the database between 4 and 12 digits
-- (including the 4th and 12th digits)
-------------------------------------------------------------------
local file = sys.File("img\\word50724")
file:open("read")
local ui = require "ui"
local win = ui.Window("Find My Word Beta V 1.0","single", 600, 650)
local winHelp = ui.Window("","single", 403, 475)
win.bgcolor = 0xFFFFFF -- White
win:center()
win:show()
winHelp:center()
local pictureHelp = ui.Picture(win, "img\\help-24.ico", 530,15)
local pictureLuaRT = ui.Picture(win, "img\\LuaRT.png", 10,1)
local pictureHangManLoad = ui.Picture(win, "img\\a.png",2,50)
local pictureLoad = ui.Picture(winHelp, "img\\Help.png")
local buttonWeb = ui.Button(win, "www.luart.org", 150, 15)
local buttonGithub = ui.Button(win, "Github", 245, 15 )
local buttonTwitter = ui.Button(win, "Twitter", 315, 15)
local buttonYoutube = ui.Button(win, "Youtube", 385, 15)
buttonGithub:loadicon("img\\Github.ico")
buttonTwitter:loadicon("img\\Twitter.ico")
buttonYoutube:loadicon("img\\Youtube.ico")
win:status("Copyright © 2023 Coskun .. coded with LuaRT")
function findWord()
local wordLine= math.random(1,50724)
local count = 0
for word in file.lines do
count = count + 1
if count == wordLine then
word = word:sub(1, #word - 1) -- A space is added to the line read in file() jobs. we remove it
return word:upper() -- is converted to uppercase.
end
end
end
local computerWord = findWord()
local keyboard= {}
local wordBox= {}
local keyword={"Q","W","E","R","T","Y","U","I","O","P",
"A","S","D","F","G","H","J","K","L",
"Z","X","C","V","B","N","M"}
local keyboard_Y = 440
local wordBox_Y = 0
local wordBox_X = 0
local entry = 1
local level = 6 -- hard=4 , easy=9
local function letter_onClick(self)
local guess = ""
if entry == 1 then -- picture load
pictureHangManLoad:load("img\\b.png")
elseif entry == 2 then
pictureHangManLoad:load("img\\c.png")
elseif entry == 3 then
pictureHangManLoad:load("img\\d.png")
elseif entry == 4 then
pictureHangManLoad:load("img\\e.png")
elseif entry == 5 then
pictureHangManLoad:load("img\\f.png")
elseif entry == 6 then
pictureHangManLoad:load("img\\g.png")
end
if entry < level then -- if clicked key index less then max level time
findWord(self)
self.enabled = false
for i=1, #wordBox do
guess = guess..wordBox[i].text
end
if guess == computerWord then
pictureHangManLoad:load("img\\perfect.png")
animation_All_Directions()
keyboardDisabled()
end
else
keyboardDisabled()
end
end
for i=1,string.len(computerWord) do -- WordBox[]
if i==1 then
wordBox_Y= wordBox_Y + 425
wordBox[i] = ui.Label(win, "",70, wordBox_Y,30,30)
else
wordBox[i] = ui.Label(win, "",wordBox[i-1].x+35, wordBox[i-1].y,30,30)
end
wordBox[i].text="-"
wordBox[i].fontsize = 24
wordBox[i].textalign = "center"
wordBox[i].bgcolor = 0xFFFFFF -- white
end
for i=1, 26 do -- Keyboard[]
if i == 1 then
keyboard_Y = keyboard_Y + 45
label = ui.Label(win, keyword[i], 75, keyboard_Y, 40, 30)
elseif i == 11 then
keyboard_Y = keyboard_Y + 45
label = ui.Label(win, keyword[i], 95, keyboard_Y, 40, 30)
elseif i == 20 then
keyboard_Y = keyboard_Y + 45
label = ui.Label(win, keyword[i], 140, keyboard_Y, 40, 30)
else
label = ui.Label(win, keyword[i], keyboard[i-1].x + 45, keyboard[i-1].y, 40, 30)
end
label.onClick = letter_onClick
keyboard[#keyboard+1] = label
keyboard[i].textalign = "center"
keyboard[i].bgcolor = 0x99CCFF
keyboard[i].fontsize = 20
end
function findWord(_self)
local count = 0
local temp = false
for letter in each(computerWord) do
count = count + 1
if _self.text == letter then
wordBox[count].text = letter
animation_Left_Right(_self)
temp = true
end
end
if temp == false then
entry = entry + 1
end
end
function keyboardDisabled()
for j = 1, #keyboard do
keyboard[j].enabled = false
end
end
function buttonWeb:onClick()
sys.cmd('start "" "https://www.luart.org" ')
end
function pictureHelp:onClick()
win:showmodal(winHelp)
end
function buttonGithub:onClick()
sys.cmd('start "" "https://github.com/samyeyo ')
end
function buttonTwitter:onClick()
sys.cmd('start "" "https://twitter.com/__LuaRT__ ')
end
function buttonYoutube:onClick()
sys.cmd('start "" "https://www.youtube.com/channel/UCS4DTQ3-6xKmkVrFr8Xxc7Q')
end
function animation_All_Directions()
local temp1 = -3
local temp2 = -1
for i= 1, 4 do
if i==1 or i==3 then
temp1 = -3
temp2 = -1
else
temp1 = 3
temp2 = 1
end
for i=1, #wordBox do
wordBox[i].x = wordBox[i].x + temp1
wordBox[i].y = wordBox[i].y + temp2
ui.update(20)
end
end
end
function animation_Left_Right(_keyBox)
local temp = -5
for i= 1, 10 do
if i==1 or i==3 or i==5 or i==7 or i==9 then
temp = -3
else
temp = 3
end
_keyBox.x = _keyBox.x + temp
ui.update(20)
end
end
repeat
ui.update()
until not win.visible
