Update to serial 200329

[homeland.git] / src / objects / intro / bedroom.inf

diff --git a/src/objects/intro/bedroom.inf b/src/objects/intro/bedroom.inf
new file mode 100644 (file)
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