class ShopKeeper

    var items : array 1..MAX_ITEMS of pointer to Item

    proc setUpShop ()
        % In here, you need to initialise the shopkeeper's inventory. You can do this right in your Turing code if you wish, though there are better (read: more advanced) methods.
        new Sword, items(1)   % Item #1 is a sword!
        items(1) -> setDamage (5)  % it deals 5 damage

        new Shield, items(2)   % Item 2 is a shield!
        items(2) -> setDamageAbsorb (2) % it absorbs 2 damage per hit
    end setUpShop

    fcn buyItem ( itemNumber : int, who : pointer to Player ) : pointer to Item
        if items ( itemNumber ) = nil then % If the player tries to buy something that doesn't exist, ignore them
            result nil
        end if
        var item : pointer to Item := items ( itemNumber )
        if player->hasGold ( item->price ) then
            put "You buy the ", item->name, " for ",item->price," gold!"
            player->takeGold ( item->price )
            result item
        else
            put "Sorry, you're poor!"
            result nil
        end if
    end buyItem

end ShopKeeper