X-Git-Url: https://jxself.org/git/?a=blobdiff_plain;f=src%2Fobjects%2Fintro%2Fbedroom.inf;fp=src%2Fobjects%2Fintro%2Fbedroom.inf;h=7edec201e8b6f0ad9cdeeb280f54733355c79dcc;hb=57e7057cc7196914e3477ac73aaf73966c2195ac;hp=0000000000000000000000000000000000000000;hpb=322528eaf7ebd7f3373b1eed7a1d8c73fb741e3a;p=homeland.git

diff --git a/src/objects/intro/bedroom.inf b/src/objects/intro/bedroom.inf
new file mode 100644
index 0000000..7edec20
--- /dev/null
+++ b/src/objects/intro/bedroom.inf
@@ -0,0 +1,70 @@
+! 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.^";
+        ],
+        ;
\ No newline at end of file