View.Set ("graphics:max, max")

var filenum : int
var filename : string
var pick : string
var ascii : int
var select : int
var words : array 1 .. 4 of string
var word : string
var letters : string := " "
var guess : array 1 .. 2 of string := init (" ", " ")
var count : int := 0
var count2 : int := 0
var output : string := " "
var answer : string
var AbuDhabi : int
AbuDhabi := Pic.FileNew ("Abu Dhabi.jpg")

proc hollow (var count : int)
   drawline (350, 200, 350, 500, blue)
    drawline (350, 500, 500, 500, blue)
    drawline (500, 500, 500, 400, blue)
    drawfilloval (500, 400, 25, 25, blue)
    drawline (500, 300, 500, 500, blue)
    %drawline (500, 450, 500, 350, black)
    %if count >= 1 then
    %    drawline (500, 450, 500, 350, black)
    %end if
end hollow

open : filenum, "phrase2.txt", get

for i : 1 .. 1
    get : filenum, word : *
    words (i) := word
end for

randint (select, 1, 1)
answer := words (select)
for i : 1 .. length (answer)
    if answer (i) >= "a" and answer (i) <= "z" then
        locate (2, i * 2 + 10)
        put "_"
    end if
end for

process DoMusic
    loop
        Music.PlayFile ("Authentic Sky.wav")
    end loop
end DoMusic

fork DoMusic

%% Mainline %%
var font1, font2, font3, font4 : int
font1 := Font.New ("Arial:30:bold")

hollow (count)
locate (1, 60)
put count2
%locate (1, 80)
%put count
loop
locate (8, 1)
get pick
for i : 1 .. length (answer)

    if pick = answer (i) then
        count2 += 1
        locate (1, 60)
        put count2
        locate (2, i * 2 + 10)
        put pick ..
        locate (1, 60)
        %else
        %   count += 1
        %locate (1, 80)
        %put count
    end if
end for

if count2 = 30 then
    cls
    Pic.Draw (AbuDhabi, 0, 0, picCopy)
    Font.Draw ("YOU SOLVED THE PUZZLE!", 350, 500, font1, white)
    exit
end if
end loop
close : filenum