var player1, player2, play1, gender1, gender2 : string
var word1, word2, word3, word4, word5 : int
var stream : int
var wordList : flexible array 1 .. 20 of string
var declare : int
var choices : string
var p1, p2 : string
var first, second : string
View.Set ("graphics:700;800")

%
procedure torso
    drawfillbox (300, 350, 350, 540, 121)
end torso
%
procedure head
    drawfilloval (325, 600, 60, 70, 48)
end head
%still working on finishing
procedure rightArm
    %drawfillbox (,91)
end rightArm
%till here, and the rest of the body parts
procedure choice1
    var choice : string (1)
    locate (30, 10)
    put "Press any key to continue..."
    getch (choice)
    cls
end choice1
%

procedure playgame
    colorback (91)
    color (48)
    cls
    if gender1 = "m" or gender1 = "M" then
        put "Welcome to the game Mr. ", player1
    elsif gender1 = "f" or gender1 = "F" then
        put "Welcome to the game Ms. ", player1
    end if
    %
    if gender2 = "m" or gender2 = "M" then
        put "Welcome to the game Mr. ", player2
    elsif gender2 = "f" or gender2 = "F" then
        put "Welcome to the game Ms. ", player2
    end if
    %
    open : stream, "WordList.txt", get
    loop
        exit when eof (stream)
        get : stream, wordList (upper (wordList))
        new wordList, upper (wordList) + 1
    end loop
    %
    put "The computer is now generating your word."
    declare := Rand.Int (1, 20)
    put wordList (declare)
    put "Who will be choosing a letter first? [yes for first, no for last]"
    put "Player1? " ..
    get p1
    put "Player2? " ..
    get p2
    if p1 = "yes" then
        p1 := first
        put "Player 1 will go first."
    elsif p1 = "no" then
        p1 := second
        put "..."
    end if
    if p2 = "yes" then
        p2 := first
        put "Player 2 will go first."
    elsif p2 = "no" then
        p2 := second
        put "..."
    end if
end playgame
%
procedure game
    put "Ready to play Hangman? [Y or N] " ..
    get play1
    cls
end game
%
put "Player1, what is your lastname? " ..
get player1
put "Player1, what is your gender? [M for male, F for female] " ..
get gender1
%
choice1
%
put "Player2, what is your lastname? " ..
get player2
put "Player2, what is your gender? [M for male, F for female] " ..
get gender2
%
choice1
%

put "Ready to play Hangman? " ..
get play1
cls

if play1 = "y" or play1 = "Y" then
    playgame
elsif play1 = "n" or play1 = "N" then
    put "Well then, good day to you sir!"
else
    put "You have to enter 'y' or 'n' "
    put "Let's try that again..."
    Time.Delay (2000)
    cls
    game
end if
View.UpdateArea (0, 0, maxx, maxy)