Computer Science Canada :: View topic

%HANG THE MAN
var word : array 1 .. 12 of string := init ("photosynthesis", "dictionary", "language", "obstreperous", "zeitgeist", "ersatz", "dour", "serendipity", "sycophant", "lucre", "introspection",
"etymologically")
var chars, random, count, space : int := 0
var letter : string

colourback (91)
cls
%begging
locate (1, 1)
put "please enter a letter"

%base graphic
locate (5, 1)
drawbox (300, 200, 400, 210, 4)
drawbox (345, 210, 355, 320, 4)
drawbox (355, 318, 435, 310, 4)

%random words
randint (random, 1, 12)
var dash : array 1 .. length (word (random)) of string
for a : 1 .. length (word (random))
dash (a) := "_"
end for

%word
loop
locate (2, 5)
%draw dash
for a : 1 .. length (word (random))
put dash (a) : 3, " " ..
end for

%chech for letters
loop
locate (4, 1)
put "" : 10
locate (4, 1)
get letter

if length (letter) > 1 then
locate (20, 1)
put " "
end if
exit when length (letter) = 1
end loop

if index (word (random), letter) >= 0 then
locate (14, 5 + chars)
put letter
chars := chars + 2
end if
count := count + 1
%graphics
%head
if count > 1 then
drawline (432, 310, 432, 290, 7)
end if
if count > 2 then
Draw.Oval (432, 280, 10, 10, 1)
end if
if count > 3 then
drawoval (428, 282, 2, 2, 7)
end if
if count > 4 then
drawoval (436, 282, 2, 2, 7)
end if
if count > 5 then
drawline (430, 275, 434, 275, 7)
end if
%body parts
if count > 6 then
drawline (432, 270, 432, 240, 1)
end if
if count > 7 then
drawline (432, 240, 418, 220, 1)
end if
if count > 8 then
drawline (432, 240, 446, 220, 1)
end if
if count > 9 then
drawline (432, 255, 422, 265, 1)
end if
if count > 10 then
drawline (432, 255, 442, 265, 1)

end if

put letter
space := 3

for b : 1 .. length (word (random))
if letter = word (random) (b) then
dash (b) := letter
end if
end for
%win condition

%lose condition
if count = 12 then
cls
var font : int
font := Font.New ("serif:20")
Draw.Text ("YOU LOSE", maxx div 2 - 60, maxy div 2, font, red)
Font.Free (font)
put word (random)
exit when count = 12
end if
end loop

Author:	Paul [ Fri Feb 13, 2004 12:10 pm ]
Post subject:
I like it, but you could do with more colors. I like the background color though. +BITS

Author:	DragonSlayer [ Fri Feb 13, 2004 12:25 pm ]
Post subject:
thnx, it's my first post... ill ttry to make the program more colourful just for you

Author:	GUI.GetScrollBarWidth : i [ Fri Feb 13, 2004 5:26 pm ]
Post subject:
yeah that program was realy cool, but more colour couldn't hurt

Author:	recneps [ Sun Feb 15, 2004 1:33 pm ]
Post subject:
Not baad (Like i could do better :\) lol, Nice job!

Author:	Delos [ Sun Feb 15, 2004 4:10 pm ]
Post subject:
Hmm...I played against the word "ersatz" and I couldn't win! I got the word (checked, of course), but it wouldn't recognize it as being complete!

Author:	Maverick [ Sun Feb 15, 2004 4:24 pm ]
Post subject:
Uh thats not how u play hangman. When u guess a letter u dont get a body part up.

Author:	Cervantes [ Sun Feb 15, 2004 5:12 pm ]
Post subject:
indeed, the scoring system is rather messed up also you should add some more error proofing in there. make it so they can't enter the same letter twice . and what is ersatz ?!??!? you've a good program there, just a few things to make it great!

Author:	shorthair [ Sun Feb 15, 2004 5:14 pm ]
Post subject:
Nice job , ofr a new programmer , i like how its done ( same deal with hte color though ) but when you learn some more you will be able to write it so that a retarded user couldnt crash it ( seriously ) error handling is really good hen a user is right in hte middle of a game or somthingand it crashes NOT COOL , so always asume hte user will make every mistake