-----------------------------------

Skxox

Thu Dec 18, 2014 1:09 pm


hangman game turing

-----------------------------------

var pig : string
var cow : string
var rooster : string
var chicken : string
var hen : string
var horse : string
var donkey : string
var dog : string
var cat : string
var piglette : string
var wordpicker : int
var bodyparts : int := 0


const VOWELS : string := "AEIOUaeiou"
const CONSONANTS : string := "BCDFGHJKLMNPQRSTVWXYZbcdfghjklmnpqrstvwxyz"

var Correctword : string := ""
var word : string := ""
var letter : string := ""

randint (wordpicker, 1, 10)
if wordpicker = 1 then
    Correctword = "pig"
elsif wordpicker = 2 then
    Correctword = "cow"
elsif wordpicker = 3 then
    Correctword = "rooster"
elsif wordpicker = 4 then
    Correctword = "chicken"
elsif wordpicker = 5 then
    Correctword = "hen"
elsif wordpicker = 6 then
    Correctword = "horse"
elsif wordpicker = 7 then
    Correctword = "donkey"
elsif wordpicker = 8 then
    Correctword = "dog"
elsif wordpicker = 9 then
    Correctword = "cat"
else
    Correctword = "piglette"
end if

put " _  stands for a consonant"
put " *  stands for a vowel "
put skip

loop

    for i : 1 .. length (Correctword)


        if index (letter, Correctword (i)) not= 0 then
            word := word + Correctword (i)
            cls
            put skip
        elsif index (CONSONANTS, Correctword (i)) not= 0 then

            word := word + "-"
        elsif index (VOWELS, Correctword (i)) not= 0 then
            word := word + "*"

        else

            word := word + Correctword (i)

        end if


    end for

    put " the word to guess is ", word

    if word = Correctword then
        exit







     
        if bodyparts = 1 then
            %Draws the head
            Draw.Oval (125, 215, 25, 25, 255)
        elsif bodyparts = 2 then
            %draws body
            drawline (125, 190, 125, 110, 255)
        elsif bodyparts = 3 then
            %draws arms
            drawline (125, 185, 100, 120, 255) %left arm
        elsif bodyparts = 4 then
            drawline (125, 185, 150, 120, 255) %right arm
        elsif bodyparts = 5 then
            %draws legs
            drawline (125, 110, 100, 60, 255) %left leg
        elsif bodyparts = 6 then
            drawline (125, 110, 150, 60, 255) %right leg
        end if











    end if






    var guess : string
    put "please enter your guess " ..
    get guess

    letter := letter + guess
    word := " "

end loop

put "CONGRATS! you guessed it"

put skip, "thanks for playing"









can someone help me finish this please