! Copyright (C) 2019 Jason Self <j@jxself.org>
!
! This file is free software: you may copy, redistribute and/or
! modify it under the terms of the GNU Affero General Public License
! as published by the Free Software Foundation, either version 3 of
! the License, or (at your option) any later version.
!
! This file is distributed in the hope that it will be useful, but
! WITHOUT ANY WARRANTY; without even the implied warranty of
! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
! Affero General Public License for more details.
!
! You should have received a copy of the GNU Affero General Public
! License along with this file. If not, see https://gnu.org/licenses/

Object  bedroom "Bedroom"
  with  description 
            "The green-beige walls are reminiscent of a hospital. The 
            livingroom is to the north.",
        n_to livingroom,
        cant_go 
            "Since when did you get the ability to walk through 
            walls? Your livingroom is to the north.",
  has   light;

Object  painting "painting" bedroom
  with  description 
            "It's a picture of Aragain Falls, the most breathtaking 
            and awesome waterfall in the known lands.",
        before [;
          Insert:
            if (second == box)
            print_ret (The) self, " is too big to fit.";
        ],
        name 'painting' 'paint' 'picture' 'of' 'aragain' 'falls';

Object  bed "twin-sized bed" bedroom
  with  name 'bed' 'twin',
        description 
            "With a frame of solid wood with a golden brown finish, 
            it's a finely crafted bed.",
        before [;
          Take, Pull, Push, PushDir:
            print_ret (The) self, " is too heavy for that.";
        ],
  has   static supporter enterable;

Object  box "dented steel box" bed
  with  name 'box' 'safe' 'safety' 'deposit',
        description 
            "It's a safety deposit box. Made of steel, and dented, 
            the words ~Property Of The Bank of Zork~ are on it.",
  has   container openable;

Object  directional "compass" box
  with  name 'compass',
        description [;
            if (location == bedroom || location == kitchen || 
            location == backyard || location == neighborkitchen || 
            location == neighborlivingroom)
                print 
                    "Ordinarily you'd expect a compass to point north 
                    but this one is spinning wildly in every 
                    direction.^";
            if (location == livingroom || location == sidewalk)
                print "The compass is pointing west.^";
            if (location == frontporch)
                print "The compass is pointing southeast.^";
        ],
        ;