! 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/

Constant Story "The Mall";
Constant Headline "^By Jason Self^
If you get stuck try typing HELP.^
This game gives you freedom; you can change and share 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. See the GNU Affero General Public License 
for details.^
IFID 1AB626D5-E03F-4F03-836C-50F65B643B9B^";
Include "parser";
Include "verblib";
Release 0;
Serial "190321";

Object mall "Mall"
with	description "You're in the main walkway. An ordinary kind 
	of place, with stores all around.",
w_to	salon,
has	light;

Object workshop "Bear Workshop"
with    description "A workshop for making stuffed bears although by 
	now everything is put away. The workshop retains a pleasant 
	atmosphere.",
has     light;

Object salon "Salon"
with    description [; print "You've just sauntered into a salon.";
	if (salon hasnt visited) print " Suddenly you bump your head 
	on the ceiling, but it's not such a bad bump that it's going 
	to prevent you from looking at objects and even things.";
	if (salon has visited) print " Remembering the low ceiling, 
	you take care not to bump your head.";
	new_line; ],
e_to	mall,
has     light;

[ Initialise;

	Location = mall;

	"^You fell asleep in the mall. Now it's closed, and the 
	exit's locked. Can you get out?";
];

[ XyzzySub; "Nothing obvious happens."; ];

[ HelpSub; "If you need help try some of the commands from:
^http://pr-if.org/doc/play-if-card/"; ];

Include "grammar";

Verb 'About' * -> Version;
Verb 'Info' * -> Version;
Verb 'Help' * -> Help;
Verb 'xyzzy' * -> Xyzzy;