Quote: "When you play the game I have words overlapping with the gallows"
How are you playing the game? I had to fix about 10 bugs just to get it to compile.
Anyway, my edited version:
randomize timer()
startofprogram:
rem variable declaration section
dim wordlist(12) as string
dim itemletters(5) as string
num as integer
gitem as string
li as integer
found as string
Error as integer
guess as string
usedletters as integer
letterguess as integer
rem assignment of value section
wordlist(0) = "queen"
wordlist(1) = "sword"
wordlist(2) = "spear"
wordlist(3) = "noble"
wordlist(4) = "fire"
wordlist(5) = "fief"
wordlist(6) = "serf"
wordlist(7) = "moat"
wordlist(8) = "bows"
wordlist(9) = "sly"
wordlist(10) = "die"
wordlist(11) = "oat"
wordlist(12) = "spy"
cls
title()
gallows()
num = rnd(12)
gitem = wordlist(num)
li = len(gitem)
if li = 3
threeSpace()
else
if li = 4
threeSpace()
fourSpace()
else
threeSpace()
fourSpace()
fiveSpace()
endif
endif
for c = 1 to li
itemletters(c) = mid$(gitem, c)
printc itemletters(c)
next c
input "Guess a letter or press qq to quit: ", guess
while guess<> "qq"
found = "no"
if guess = itemletters(1)
text 115,380, guess
usedletters = usedletters + 1
found = "yes"
endif
if guess = itemletters(2)
text 170,380, guess
usedletters = usedletters + 1
found = "yes"
endif
if guess = itemletters(3)
text 215,380, guess
usedletters = usedletters + 1
found = "yes"
endif
if guess = itemletters(4)
text 265,380, guess
usedletters = usedletters + 1
found = "yes"
endif
if guess = itemletters(5)
text 305, 380, guess
usedletters = usedletters + 1
found = "yes"
endif
if usedletters = li
sleep 200
CLS
Winner()
sleep 1000
goto startofprogram
endif
if found = "no" and Error = 0
head()
Error = Error +1
else
if found = "no" and Error = 1
body()
Error = Error +1
else
if found = "no" and Error = 2
rleg()
Error = Error +1
else
if found = "no" and Error = 3
lleg()
Error = Error +1
else
if found = "no" and Error = 4
rarm()
Error = Error +1
else
if found = "no" and Error = 5
larm()
Error = Error +1
endif
endif
endif
endif
endif
endif
if Error = 6
sleep 200
cls
Lose()
sleep 1000
goto startofprogram
endif
input "Guess a letter or press QQ to quit: ", guess
endwhile
wait key
end
function title()
set text font "algerian"
set text size 48
ink rgb(255, 255, 255), 0
text 120, 40, "Welcome To Hang-Man!"
ink rgb(255, 0, 0), 0
text 122, 42, "Welcome To Hang-Man!"
set text size normal
ink rgb(255, 0, 0), 0
endfunction
function Winner()
set text font "algerian"
set text size 45
ink rgb(255,0,0),0
text 200,45, "You win!!! You win!!!"
ink rgb (0,0,255),0
text 201,46, "You win!!! You win!!!"
endfunction
function Lose()
set text font "algerian"
set text size 45
ink rgb(255,0,0),0
text 200,45, "You Lose!!!"
ink rgb (0,0,255),0
text 201,46, "You Lose!!!"
endfunction
function gallows()
line 200, 100, 200, 320
line 200, 100, 300, 100
line 300, 100, 300, 150
endfunction
function head()
circle 300, 160, 10
endfunction
function body()
line 300, 172, 300, 210
endfunction
function rleg()
line 300, 210, 290, 250
endfunction
function lleg()
line 300, 210, 310, 250
endfunction
function rarm()
line 300, 172, 310, 210
endfunction
function larm()
line 300, 172, 290, 210
endfunction
function threeSpace()
line 100, 400, 130, 400
line 150, 400, 180, 400
line 200, 400, 230, 400
endfunction
function fourSpace()
line 250, 400, 280, 400
endfunction
function fiveSpace()
line 300, 400, 330, 400
endfunction
function LetterWrong(sLetter$)
bOutput as boolean = 1
for c = 1 to array count(itemletters(0))
if itemletters(c) = sLetter$
bOutput = 0
exit
endif
next c
endfunction bOutput
function HandleError(errors)
inc errors
select errors
case 1
head()
endcase
case 2
body()
endcase
case 3
rleg()
endcase
case 4
lleg()
endcase
case 5
rarm()
endcase
case 6
larm()
endcase
endselect
endfunction errors
Appearance wise I suggest moving the title, gallows (with hangman) and letter spaces to the top right of the screen and then have the record of inputs in the bottom right portion of the screen.
