%hangman
%creates procedures for drawing hangman
%head


var font := Font.New ("serif:24")

Draw.Text ("Welcome to WhatDotColour'z Hangman Game!", 180, 10, font, blue)
proc draw1
    drawoval (560, 250, 20, 20, black)
end draw1
%body
proc draw2
    drawline (560, 230, 560, 170, black)
end draw2
%arms
proc draw3
    drawline (560, 200, 540, 170, black)
end draw3

proc draw4
    drawline (560, 200, 585, 170, black)
end draw4
%legs
proc draw5
    drawline (560, 170, 530, 130, black)
end draw5

proc draw6
    drawline (560, 170, 585, 130, black)
end draw6
%noose
proc draw7
drawline (550, 255, 555, 245, black)
    drawline (555, 255, 550, 245, black)
end draw7
proc draw8
    drawline (565, 255, 570, 245, black)
    drawline (570, 255, 565, 245, black)
end draw8
proc draw9
    drawarc (563, 230, 7, 7, 20, 160, black)
end draw9

%end drawing stickman

var d, f : int := 1
var word : array 1 .. 10 of string := init ("dog", "cat", "mouse", "tiger", "human",
    "box", "fox", "map", "rat", "car") %some words to guess from
var a, counter, ind, counter1, counter3, add : int := 0
var letter, guess, guessed, wor : string := ""
var font2 := Font.New ("serif:12")
var z := 15
randint (a, 1, 10) %chooses a random word
%inputs same number of lines as the number of letters

loop
    add := 0
    for b : 1 .. length (word (a))
        Draw.Text (" _ ", maxx div 2 + add - 13, maxy div 2, font, red)
        add := add + 20
    end for
    wor := word (a)
    drawline (545, 230, 535, 290, black)
    drawline (560, 290, 460, 290, black)
    drawline (460, 290, 460, 100, black)
    drawline (435, 100, 510, 100, black)
    drawoval (560, 230, 15, 5, black)

    loop

        locate (1, 1)
        put "Please guess a letter: " ..

        get letter
Draw.Text ("Already guessed, please enter another letter.", 0, 250, font2, white)
        ind := index (word (a), letter) %checks if letter is in the word
        if ind not= 0 and index (guessed, letter) = 0

                then %if letter is found, then put the letter above the corresponding space

            Draw.Text (letter, maxx div 2 + 20 * ind - 24, maxy div 2, font, red)
            counter := counter + 1
            locate (5, 1)
            put "Would you like to guess the word?(Y/N)?"
            get guess
            if guess = "Y" or guess = "y"
                    then
                locate (7, 1)
                put "Guess: " ..
                get guess
                if guess = word (a) then
                    counter := length (word (a))
                    locate (5, 1)
                    put "                             "
                    locate (7, 1)
                    put "                             "
                else
                    cls
                    counter3 := 6
                    cls
                end if
            end if
            exit

        end if
        if guessed not= "" then
            if index (guessed, letter) not= 0 then
                locate (maxrow - 10, 1)
                Draw.Text ("Already guessed, please enter another letter.", 0, 250, font2, red)

            end if
        end if
        exit
    end loop
    guessed := guessed + letter
    locate (maxrow - 5, 10)
    if index (guessed, letter) not= 0 then
        Draw.Text ("Guessed Letters: ", 17, 85, font2, black)
        Draw.Text (letter, z, 65, font2, black)

        z := z + 20
    end if
    %calls procedures to draw stickman, if letter not found
    if ind = 0 and counter3 = 0 then
        draw1
        counter3 := counter3 + 1
    elsif ind = 0 and counter3 = 1 then
        draw2
        counter3 := counter3 + 1
    elsif ind = 0 and counter3 = 2 then
        draw3
        counter3 := counter3 + 1
    elsif ind = 0 and counter3 = 3 then
        draw4
        counter3 := counter3 + 1
    elsif ind = 0 and counter3 = 4 then
        draw5
        counter3 := counter3 + 1

    elsif ind = 0 and counter3 = 5 then
        draw6
        counter3 := counter3 + 1

    elsif ind = 0 and counter3 = 6 then
        draw7
        counter3 := counter3 + 1
    elsif ind = 0 and counter3 = 7 then
        draw8
        counter3 := counter3 + 1
    elsif ind = 0 and counter3 = 8 then
        draw9
        counter3 := counter3 + 1
    end if

    exit when counter3 = 9 or counter = length (word (a))

end loop
delay (1000)

font := Font.New ("serif:26")
if counter3 = 9 then
    loop %if you dont guess right in time, you loose
        cls
        randint (a, 32, 150)
        Draw.Text ("THE WORD IS: ", 0, maxy - 50, font, a)
        Draw.Text (wor, 230, maxy - 50, font, a)
        Draw.Text ("Sorry, You got HANGED, please try again!", 0, maxy - 80, font, a)
        drawline (545, 230, 535, 290, black)
        drawline (560, 290, 460, 290, black)
        drawline (460, 290, 460, 100, black)
        drawline (435, 100, 510, 100, black)
        drawoval (560, 230, 15, 5, black)
        draw1
        draw2
        draw3
        draw4
        draw5
        draw6
        draw7
        draw8
        draw9
        delay (100)

    end loop
end if


if counter = length (word (a)) then
    cls
    randint (f, 1, maxy)
    randint (d, 1, maxx)
    loop % if you do guess right, you win
        randint (a, 32, 150)
        randint (f, 1, maxy)
        randint (d, 1, maxx)
        Draw.Text ("YOU WIN!!!", 0, maxy - 200, font, a)
        Draw.Text ("THE WORD IS: ", 0, maxy - 50, font, a)
        Draw.Text (wor, 230, maxy - 50, font, a)
        drawfillstar (0 + d, 0 + f, 25 + d, 25 + f, a)
        delay (100)

    end loop
end if