%drawings
procedure Pole
    drawline (550, 175, 650, 175, black)
    drawline (600, 175, 600, 350, black)
    drawline (600, 350, 525, 350, black)
    drawline (525, 350, 525, 325, black)
end Pole

procedure Head
    drawoval (525, 309, 15, 15, black)
end Head

procedure Body
    drawline (525, 293, 525, 250, black)
end Body

procedure Leg1
    drawline (525, 250, 540, 200, black)
end Leg1

procedure Leg2
    drawline (525, 250, 515, 200, black)
end Leg2

procedure Arm1
    drawline (525, 285, 500, 250, black)
end Arm1

procedure Arm2
    drawline (525, 285, 550, 250, black)
end Arm2

%variables
var puzzle : string
var puzzle2 : string := ""
var guess : string (1)
var stream, pick : int
var count : int := 0
var data, category : string
var countr : int := 0
Pole

%getting the puzzle
open : stream, "puzzle.txt", get
loop
    exit when eof (stream)
    get : stream, data : *
    count := count + 1
end loop
close : stream
count := count div 2
open : stream, "puzzle.txt", get
randint (pick, 1, count)
for i : 1 .. pick
    get : stream, puzzle : *
    get : stream, category : *
end for

%puzzle := Str.Upper (puzzle)
for i : 1 .. length (puzzle)
    %makes the letters to _'s
    if puzzle (i) >= "a" and puzzle (i) <= "z" then
        puzzle2 := puzzle2 + "_"
    else
        %adds numbers and symbols to the string as they are
        puzzle2 := puzzle2 + puzzle (i)
    end if
end for

%puts spaces in between the underscores
locate (15, 40)
for i : 1 .. length (puzzle2)
    put puzzle2 (i), " " ..
end for
locate (16, 40)
put ""
locate (17, 40)
put category
locate (20, 15)
%displays alpabet
put "A B C D E F G H I J K L M N O P Q R S T U V W X Y Z"
put ""
put "Enter a letter: "
loop
    %gets a guess
    getch (guess)
    %guess := Str.Upper (guess)
    %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    %%%%%%%%%%The Part i think is wrong%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    for i : 1 .. length (puzzle)
        if guess = puzzle (i) then
            puzzle2 := puzzle2 (1 .. i - 1) + guess + puzzle2 (i + 1 .. *)

            locate (15, 40)
            put puzzle2 (i) + " "
        else
            count := count + 1
        end if
    end for
    exit when count = 6
end loop
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
if count = 1 then
    Head
elsif count = 2 then
    Body
elsif count = 3 then
    Leg1
elsif count = 4 then
    Leg2
elsif count = 5 then
    Arm1
elsif count = 6 then
    Arm2
end if