var woodSword : boolean := false
var stoneSword : boolean := false
var bronzeSword : boolean := false
var ironSword : boolean := false
put "There are four swords at your feet."
put "A wooden, a stone, a bronze, and an iron sword."

class Inventory
    import ironSword, woodSword, stoneSword, bronzeSword
    export displayNames, displayDesc

    var itemNames : array 1 .. 10 of string
    itemNames (1) := "wooden sword"
    itemNames (2) := "stone sword"
    itemNames (3) := "bronze sword"
    itemNames (4) := "iron sword"

    var itemDesc : array 1 .. 10 of string
    itemDesc (1) := "a weak sword made of wood."
    itemDesc (2) := "a weak sword made of stone."
    itemDesc (3) := "a strong sword made of bronze."
    itemDesc (4) := "a very strong sword made of iron."

    proc displayNames ()
        if woodSword = true then
            put itemNames (1)
        end if
        if stoneSword = true then
            put itemNames (2)
        end if
        if bronzeSword = true then
            put itemNames (3)
        end if
        if ironSword = true then
            put itemNames (4)
        end if
    end displayNames

    proc displayDesc ()
        if woodSword = true then
            put itemDesc (1)
        end if
        if stoneSword = true then
            put itemDesc (2)
        end if
        if bronzeSword = true then
            put itemDesc (3)
        end if
        if ironSword = true then
            put itemDesc (4)
        end if
    end displayDesc
end Inventory

var commands : array 1 .. 6 of string
commands (1) := "take"
commands (2) := "go"
commands (3) := "attack"
commands (4) := "look around"
commands (5) := "open"
commands (6) := "examine"

var items : array 1 .. 5 of string
items (1) := "wooden sword"
items (2) := "stone sword"
items (3) := "bronze sword"
items (4) := "iron sword"
items (5) := "inventory"

var movements : array 1 .. 4 of string
movements (1) := "north"
movements (2) := "south"
movements (3) := "east"
movements (4) := "west"

var monsters : array 1 .. 3 of string
monsters (1) := "giant rat"
monsters (2) := "skeleton"
monsters (3) := "goblin"

var input, input2 : string
var Awesome : ^Inventory
new Awesome

loop
    get input
    put "" ..
    get input2 : *

    if input = commands (1) and input2 = items (1) then
        woodSword := true
        put "You took the ", items (1)
        end if
    if input = commands (5) then
        put "You have:"
        Awesome -> displayNames
    elsif input = commands (6) and input2 = items (1) then
        Awesome -> displayDesc
    end if

end loop

proc displayNames (id : int)
        if woodSword = true then
            put itemNames (id)
    end displayNames

    proc displayDesc (id : int)
            put itemDesc (id)
    end displayDesc

put "There is a wooden sword in this room."

var woodSword : boolean := false
var input, input2 : string

var itemsDesc : array 1 .. 10 of string
itemsDesc (1) := "a weak sword made of wood."
itemsDesc (2) := "your inventory, this is where your items are stored."

var items : array 1 .. 10 of string
items (1) := "wooden sword"
items (2) := "inventory"

var commands : array 1 .. 5 of string
commands (1) := "take"
commands (2) := "open"
commands (3) := "examine"

class Inventory
    import items, itemsDesc, woodSword
    export displayItems, displayDesc

    proc displayItems (id : int)
        if woodSword = true then
            put items (id)
        end if
    end displayItems

    proc displayDesc (id : int)
        if woodSword = true then
            put itemsDesc (id)
        else
            put "You do not have a ", items (id)
        end if
    end displayDesc
end Inventory

var equipment : ^Inventory
new equipment

loop
    get input
    put "" ..
    get input2 : *

    if input = commands (1) and input2 = items (1) then %take wooden sword
        woodSword := true
        put "You took the ", items (1)
    elsif input = commands (3) and input2 = items (1) then %examine wooden sword
        equipment -> displayDesc (1)
    elsif input = commands (2) and input2 = items (2) then %open inventory
        put "You have:"
        equipment -> displayItems (1) %display the inventory
    end if

end loop

class Item
    var name, description : string
    % other variables to describe that object here...
end Item

var woodenSword : ^Item
new woodenSword

woodenSword->name := "Wooden Sword"
woodenSword->description := "A weak sword made of wood. Who makes a sword out of wood, seriously?"

var steelSword : ^Item
new steelSword

steelSword->name := "Sword"
steelSword->description := "Now that's more like it!"

var inventorySlots : array 1..MAX_INVENTORY of ^Item

inventorySlots(0) := woodenSword % puts the woodenSword in the player inventory (at slot 0, potentially replacing something)
inventorySlots(1) := steelSword % now the player inventory has a woodenSword and a steelSword and nothing else (every other slot is nil)

class Item
    export name, description, damage
    var name, description : string
    var damage : int
    %other variables
end Item

var woodSword : ^Item
new woodSword

woodSword -> name := "wooden sword"
woodSword -> description := "A weak sword made of wood. Seriously, who makes a sword of wood?"
woodSword -> damage := 5

var steelSword : ^Item
new steelSword

steelSword -> name := "steel sword"
steelSword -> description := "Now this is a real sword!"
steelSword -> damage := 10

put steelSword -> name
put steelSword -> description