%outside of the house
%north
procedure northSideOfHouse
    put ""
    put "You're facing the north side of the house."
    put "There are two windows. Both window are boarded and cannot be open."
end northSideOfHouse

%south
procedure southSideOfHouse
    put "You're facing the south side of the house."
    put "The door and the two windows are boarded and cannot be open."
end southSideOfHouse

%east
procedure eastSideOfHouse
    put "You're facing the east of the house."
    put "There is a cracked window. If you want to open and enter the window enter 'in'"
end eastSideOfHouse

%west
procedure westSideOfHouse
    put "You're facing the west side of the house."
    put "There is three boarded windows that cannot be open."
end westSideOfHouse

%kitchen
procedure kitchenOfHouse
    put "You are in the kitchen of the Dark House."
    put "A table seems to have been used for the preparation of food."
    put "A passage leads to the west."
    put "To the east is a small window which is open."
    put "On the table is an elongated brown sack, smelling of hot peppers."
    put "To go west enter 'w'"
end kitchenOfHouse

%living room
procedure livingRoom
    put "You are in the living room. There is a door to the east."
    put "To the south is a wooden door with strange gothic lettering,"
    put "which appears to be nailed shut."
    put "To the west is a big closet door, with a key in it."
    put "In the center of the room is a large oriental rug."
    put "There is a trophy case here."
    put "On hooks above the mantelpiece hangs an elvish sword of great antiquity."
    put "A battery-powered brass lantern is on the trophy case."
    put "There is an issue of 'Toronto Star' dated 11-MAR-02 here."
    put "(choose the direction)"
end livingRoom

%south
procedure livingRoomSouth
    put "The wooden door with stange gothic lettering, is nailed shut, and cannot be open"
end livingRoomSouth

%west
procedure livingRoomWest
    put "In front of you is a big closet door, with a key in it. To open the closet type in 'key'"
end livingRoomWest

% Open Closet
procedure closet
    put "The closet door is open and you can see a dark tunnel leading towards a"
    put "faint light. To enter the close and go through the tunnel enter 'go'"
end closet

% inside the closet
procedure twoDoors
    put "You entered the closet and went though the tunnel."
    put "You are standing in a small room, dimly light by one bulb."
    put "You see two doors. One to your right and one to your lefgt."
    put "Behind the right door, you can hear the scweecking of rats."
    put "Behind the left door, you don't hear anything but you can feel"
    put "that something and behind that door. It is hard desision for"
    put "you to make which door you need to open. "
end twoDoors


% dont understand
procedure doNotUnderstand
    put "I don't understant"
end doNotUnderstand


% Start of the game
colourback (black)
cls
colour (white)
put "Welcome!"

colour (white)
put "You're standing to the south side of the Dark House."
colour (white)

put "There is a note at your feet. To read the note, type in 'read'"

%variables
var action : string
var actionTwo : string
var actionThree : string
var actionFour : string
var actionFive : string


%read the note
put ""
colour (white)
get action
if action = "read" then
    put "Hi there! (Rules of the game) choose the direction: to go north type in 'n',"
    put "to go south type in 's', to go west typein 'w', and to go east type in 'e'"

else
    put "Read the note!"
end if

loop
    % outside of the house
    put ""
    colour (white)
    get actionTwo

    if actionTwo = "n" then
        northSideOfHouse

    elsif actionTwo = "e" then
        eastSideOfHouse

    elsif actionTwo = "w" then
        westSideOfHouse


    elsif actionTwo = "s" then
        southSideOfHouse

    else
        doNotUnderstand

        %kitchen of the house
        put ""
        get actionThree

        if actionThree = "in" then
            kitchenOfHouse

        else
            doNotUnderstand
        end if

        %living room of the house
        put ""
        get actionThree

        if actionThree = "w" then
            livingRoom

        else
            doNotUnderstand

            put ""
            get actionFour

            if actionFour = "s" then
                livingRoomSouth

            elsif actionFour = "w" then
                livingRoomWest

            elsif actionFour = "e" then
                kitchenOfHouse
            else
                doNotUnderstand
            end if

            % Closet
            put ""
            get actionFive

            if actionFive = "key" then
                closet
            else
                doNotUnderstand
            end if
        end if
    end if
end loop

loop
    put ""
    get actionThree
    if actionThree = "go" then
        twoDoors
       
    else
        doNotUnderstand
         exit when actionThree = "go"
    end if
end loop

loop
    exit when true
end loop


loop
    if true then
        exit
    else

    end if
end loop

loop
    put ""
    get actionThree
    if actionThree = "go" then
       put  "there are 2 doors"
 exit when actionThree = "go"
       
    else
        doNotUnderstand
       
    end if
end loop

loop
    put ""
    get actionThree
    if actionThree = "go" then
        put "there are 2 doors"
        exit
    else
        doNotUnderstand
    end if
end loop