-module(room).
-export([sample/0]).
-export([look/1]).
-export([look_items/1]).
 
-include_lib("defs.hrl").
 
sample() ->
  #room{descr="A maze of twisty paths, all alike.", contents=["ye flask", "a longsword"]}.
 
look(#room{descr=Descr, contents=Contents}) ->
  io:format("~s~n", [Descr]),
  io:format("You see here: ~s~n", [look_items(Contents)]).
 
look_items([]) ->
  "nothing";
look_items(Items) ->
  string:join(Items, ", ").