! 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 "190322";

Object bank "Bank of Zork"
with    description "The local branch of the Bank of Zork, the 
	largest banking institution of the Great Underground Empire. 
	The bank vault is to the north, and a small office is to the 
	south. As with all branches of the Bank of Zork, a portrait 
	of J. Pierpont Flathead hangs on the wall.",
n_to	vaultdoor,
s_to	securityoffice,
w_to	mall,
has	light;

Object closet "Closet"
with    description "You've seen better closets, but at least this 
	one seems pretty standard.",
e_to	workshop,
has     light;

Object cookhouse "Cookhouse"
with    description "This is a restaurant called The Cookhouse, 
	although since the mall closed all of the patrons have left.",
n_to	mall,
has     light;

Object securityoffice "Security Office"
with    description "A small office belonging to the bank's security 
	officer. You scan the room, seeing a table.",
n_to    bank,
has     light;

Object table "table" securityoffice
with name 'table',
        description "Made from metal, it looks to be a solid and 
	hefty table.",
has	scenery supporter;

Object	coppercoin "copper coin" table
with	name 'copper' 'coin' 'zorkmid',
	description "The coin seems to be very old, in very poor 
	condition, and somewhat irregular in shape. The only things 
	clearly visible are what appears to be a name on one side: 
	Belwit The Flat and a date on the other: 699 GUE.";

Object keycard "keycard" table
with	name 'keycard' 'key' 'card',
	description "The keycard is used to open things.";

Object mall "Mall"
with	description "You're in the main walkway. An ordinary kind 
	of place, with stores all around. The mall's exit is to the 
	southwest.",
n_to	workshop,
s_to	cookhouse,
sw_to	mallexit,
e_to    bank,
w_to	salon,
has	light;

Object mallexit "door" mall
with	name 'door' 'exit',
        description "A large doorway to the outside world, with the 
	word ~Exit~ written above.",
with_key keycard,
before	[; unlock: deadflag = 2; return true;
	],
has	scenery door openable locked;

Object	portrait "portrait" bank
with	name 'portrait' 'picture' 'photo',
	description "It's a portrait of J. Pierpont Flathead. His 
	portrait adorns every branch of the Bank of Zork.",
before	[; Take,Pull,Push,PushDir:
	print_ret (The) self, " is firmly attached to the wall."; ],
has	scenery;

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;

Object vaultdoor "vault door" bank
	with name 'vault' 'safe',
	description "A large, circular, and hefty door. The words 
	~Manufactured By The Frobozz Magic Vault Company~ are engraved 
	around the edge.",
	has scenery door openable locked;

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. You should try going west.",
w_to	closet,
s_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;