----------------------------------- we64 Mon Jan 12, 2004 10:03 pm School project: Hangman ----------------------------------- Please set the screen to 40 rows by 120 columes %Hangman Game var words : array 1 .. 15 of string := init ("computer", "speaker", "program", "video", "cat", "dog", "tiger", "driver", "soccer", "radio", "music", "science", "math", "basketball", "chess") var random, counter, times, right : int := 0 var letter, word, choice : string := "" colourback (71) cls process won choice := "n" for w : 1 .. 100 Draw.Text ("YaY, You won!", maxx div 2 - 100, maxy div 2, Font.New ("serif:24:bold"), Rand.Int (1, 100)) delay (100) exit when choice not= "n" end for end won process lost choice := "n" for l : 1 .. 100 Draw.Text ("You Lost!", maxx div 2 - 50, maxy div 2, Font.New ("serif:24:bold"), Rand.Int (155, 200)) Draw.Text ("The word is:", maxx div 2 - 150, maxy div 2 + 60, Font.New ("serif:24:bold"), Rand.Int (155, 200)) Draw.Text (words (random), maxx div 2 + 40, maxy div 2 + 60, Font.New ("serif:24:bold"), Rand.Int (155, 200)) delay (100) exit when choice not= "n" end for end lost loop %Title Draw.Text ("Welcome to Tony's Hangman Game", maxx div 2 - 150, maxy - 20, Font.New ("serif:16:bold"), 40) %Question locate (4, 1) put "Please enter a letter from the alphabets:" locate (10, 5) put "Alphabets:" %Hang drawfillbox (490, 200, 510, 410, 112) %post drawfillbox (500, 400, 620, 410, 112) drawfillbox (430, 180, 650, 200, 115) %ground drawfillbox (595, 400, 605, 358, 114) %wire drawarc (600, 345, 13, 13, 0, 360, 114) %Random Words and Dashes randint (random, 1, 15) var dash : array 1 .. length (words (random)) of string for a : 1 .. length (words (random)) dash (a) := "_" end for %Alphabets var used : array 1 .. 26 of string var star : array 1 .. 26 of string for a : 1 .. 26 used (a) := chr (96 + a) star (a) := chr (96 + a) end for %Out put loop %Draw Dash locate (8, 15) for a : 1 .. length (words (random)) put dash (a) : 3, " " .. end for %Used letters 1 locate (11, 10) for a : 1 .. 26 put star (a) : 3, " " .. end for %letter checking loop locate (6, 1) put "" locate (5, 1) put "" locate (5, 1) get letter if length (letter) > 1 then locate (6, 1) put "Error, please only put one letter at a time." delay (2000) end if exit when length (letter) = 1 end loop %Used letters 2 locate (12, 1) put "" for a : 1 .. 26 if letter = used (a) then if star (a) = chr (42) then locate (12, 1) put "You have already used this letter!" else star (a) := chr (42) end if end if end for %Wrong Letter if index (words (random), letter) = 0 then counter += 1 end if %Hangman face if counter = 1 then drawfilloval (600, 355, 15, 15, 89) elsif counter = 2 then drawfilloval (595, 357, 3, 3, black) % left eye elsif counter = 3 then drawfilloval (605, 357, 3, 3, black) %right eye elsif counter = 4 then drawarc (600, 345, 5, 5, 20, 160, black) %mouth %Hangman body elsif counter = 5 then drawline (600, 340, 600, 280, black) Draw.Text ("Help me please!", 660, 330, Font.New ("serif:16:bold"), 40) elsif counter = 6 then drawline (600, 310, 630, 340, black) %right arm Draw.Text ("Help me please!", 660, 330, Font.New ("serif:16:bold"), 71) Draw.Text ("Help me!", 660, 330, Font.New ("serif:16:bold"), 40) elsif counter = 7 then drawline (600, 310, 570, 340, black) %left arm elsif counter = 8 then drawline (600, 280, 630, 250, black) %right leg Draw.Text ("Help me!", 660, 330, Font.New ("serif:16:bold"), 71) Draw.Text ("Help! Help!", 660, 330, Font.New ("serif:16:bold"), 40) elsif counter = 9 then drawline (600, 280, 570, 250, black) %left leg end if %Right letter for a : 1 .. length (words (random)) if letter = words (random) (a) then dash (a) := letter end if end for for a : 1 .. length (words (random)) right := right + index (dash (a), "_") end for %Exits exit when right = 0 right := 0 exit when counter = 9 end loop %Play again delay (1000) cls if counter = 9 then fork lost put "Would you like to play again? (y/n)" get choice elsif word = words (random) or right = 0 then fork won put "Would you like to play again? (y/n)" get choice end if counter := 0 exit when choice = "n" cls end loop ----------------------------------- poly Mon Jan 12, 2004 10:47 pm ----------------------------------- hmm its pretty good, except for one wee problem. http://artistsunity.co.uk/gta/problem.JPG ----------------------------------- we64 Tue Jan 13, 2004 5:31 pm ----------------------------------- you have to set the run window to 40 rows by 120 columes under 1024*768 ----------------------------------- shorthair Tue Jan 13, 2004 5:41 pm ----------------------------------- Whats with the double post , :? , Oh well its agood game , but you should make the code more flexible for the screen size by using the maxx and maxy