' "Where's my cell phone"
' Created with QDK Pro 4.1.1

!include <stdverbs.lib>

define game <Where's my cell phone>
	asl-version <410>
	start <kitchen>
	game info <Created with QDK Pro 4.1.1>
	verb <drink> msg <You can't drink that.>
	verb <examine> msg <You can't examine that.>
	verb <push> msg <You can't push that.>
	verb <sit on> msg <You can't sit on that.>
	verb <read> msg <You can't read that.>
	verb <reply to> msg <You can't reply to that.>
end define

define options
	debug off
	panes off
	abbreviations on
end define

define room <kitchen>
	prefix <the>
	look <this is a plain kitchen. The bedroom is to the north>
	north locked <bedroom>

	define object <fridge>
		look <A white refridgerator sits in the corner, humming quietly.>
		prefix <a>
		displaytype <Object>
		article <it>
		gender <it>
		container
		open
		close
		add
		remove
	end define

	define object <cupboard>
		look <a cupboard with one door, it may contain something useful.>
		prefix <a>
		displaytype <Object>
		article <it>
		gender <it>
		container
		open
		close
		add
		remove
	end define

	define object <table>
		look <It is a nice strong wood table.>
		prefix <a>
		displaytype <Object>
		article <it>
		gender <it>
		surface
		add
		remove
	end define

	define object <pepsi>
		look <a can of pepsi which is full and fresh.>
		take
		prefix <a can of>
		displaytype <Object>
		article <it>
		gender <it>
		parent <fridge>
		properties <drink = you drink the pepsi, how refreshing.>
	end define

	define object <cereal box>
		look <The box contains Corn flakes, your favorite.>
		take <you wonder if something extra might be inside like some cereals have.>
		prefix <a>
		suffix <with cereal inside.>
		displaytype <Object>
		article <it>
		gender <it>
		parent <cupboard>
		drop nowhere <You will need to put it back in the cupboard or on the table.>
		container
		open <you open it to see if something extra might be inside.Surprise.>
		close
		remove
	end define

	define object <apple>
		look <A red apple, that is stuck inside the fridge. Hee hee>
		prefix <an>
		displaytype <Object>
		article <it>
		gender <it>
		parent <fridge>
	end define

	define object <bedroom key>
		look <It's the key that supposedly unlocks the bedroom when you push the button on it.>
		take
		prefix <the>
		displaytype <Object>
		article <it>
		gender <it>
		parent <cereal box>
		use {
			msg <you should now be able to "unlock the  bedroom door.>
			unlock <kitchen; bedroom>
			unlock <; >
			unlock <; >
		}
		drop nowhere <You may need the key incase the door is locked again.>
		properties <examine = The key has an odd shape but what does that matter if it works?>
	end define

	define object <button>
		displaytype <Object>
		article <it>
		gender <it>
		invisible
		action <push> {
			unlock <kitchen; north>
			unlock <you hear a click as the door unlocks.; >
			unlock <kitchen; north>
		}
	end define

	define object <Rosey>
		look <Rosey is tall and thin. She looks very healthy.>
		speak <You may have to do some wierd things to win this game.>
		displaytype <Character>
		article <her>
		gender <she>
	end define

	define object <candy bar>
		look <It is a candy bar, looks good with the wrapper still on it.>
		take <You probably should not dare eating it though. What about the hole in the wrapper?>
		displaytype <Object>
		article <it>
		gender <it>
		parent <table>
		properties <examine = a milky way, your favorite however you notice it has a small hole in the wrapper the size a pin or needle might make.>
	end define

	define object <waste can>
		look <a simple waste can where you put your trash, sounds like a good place for the candy bar that may be poisoned.>
		displaytype <Object>
		article <it>
		gender <it>
		container
		opened
		add <you put it into file number 13>
	end define

end define

define room <bedroom>
	prefix <the>
	look <This bedroom has only a bed and a dresser for furniture. There is a ladder that you can go up to the attic.>
	south <kitchen>
	east locked <office; sorry you need the office key to go through to the office.>
	west <bathroom>
	up <attic>

	define object <bed>
		look <It's the bed you slept in last night.>
		prefix <your>
		displaytype <Object>
		article <it>
		gender <it>
		surface
		remove <You take it with relief.>
		properties <examine = Upon further checking out the bed you find your cell phone case. What luck. Is your search ended?>
	end define

	define object <dresser>
		look <It is a simple dresser with one drawer and a door in it>
		displaytype <Object>
		article <it>
		gender <it>
	end define

	define object <drawer>
		look <It is the drawer you keep some of your things in.>
		displaytype <Object>
		article <it>
		gender <it>
		invisible
		container
		open
		close
		add
		remove
	end define

	define object <door>
		look <the door in the dresser that can be opened. you could open it and see what is inside.>
		displaytype <Object>
		article <it>
		gender <it>
		invisible
		container
		open <you open it to see what is in the dresser.>
		close
		add
		remove
	end define

	define object <cell phone case>
		look <It is your cell phone case. Is the phone inside? Maybe you should open it and see.>
		take <You hope to find your phone inside.>
		prefix <your>
		displaytype <Object>
		article <it>
		gender <it>
		parent <bed>
		invisible
		container
		open <you open it and are disappointed to find it empty. Keep looking.>
	end define

	define object <notepad>
		look <A notepad that is large enough that you use it to write letters on.>
		take <as you take it you notice some words written on it. Could you read the notepad?>
		prefix <a>
		displaytype <Object>
		article <it>
		gender <it>
		parent <door>
		properties <read = It reads, Don't give up too soon. I did not forget to add the cell phone to the game. Just keep searching.>
	end define

	define object <office key>
		look <It is the key to your office which has a square that needs to be pushed. to unlock the door.>
		take
		prefix <the>
		displaytype <Object>
		article <it>
		gender <it>
		parent <door>
	end define

	define object <square>
		displaytype <Object>
		article <it>
		gender <it>
		invisible
		action <push> unlock <bedroom; east>
	end define

	define object <clothes>
		look <They are the clothes you wear so you don't have to walk around naked. Hee hee>
		prefix <your>
		displaytype <Object>
		article <it>
		gender <it>
		parent <drawer>
	end define

	define object <ladder>
		look <It is the ladder that leads up to the attic.>
		prefix <a>
		displaytype <Object>
		article <it>
		gender <it>
	end define

end define

define room <bathroom>
	prefix <the>
	look <It is a simple bathroom.>
	east <bedroom>

	define object <toilet>
		look <It's one of those toilets without a lid.>
		prefix <a>
		displaytype <Object>
		article <it>
		gender <it>
		properties <sit on = you sit for awhile then get up. What a relief, you feel much better now.>
	end define

end define

define room <office>
	prefix <the>
	look <This office is where you keep your basic office needs.>
	west <bedroom>

	define object <desk>
		look <The desk is simple with only one drawer.>
		prefix <a>
		displaytype <Object>
		article <it>
		gender <it>
		surface
		add
		remove
	end define

	define object <desk drawer>
		displaytype <Object>
		article <it>
		gender <it>
		invisible
		container
		open
		close
		add
		remove
	end define

	define object <pen>
		look <The pen works very well.>
		take <so you want to write me a note?>
		prefix <a>
		displaytype <Object>
		article <it>
		gender <it>
		parent <desk drawer>
		drop nowhere <>
		container
		open {
			msg <winYou found your cell phone and you win>
			playerwin
		}
	end define

	define object <record book>
		look <It is the book you keep your financial records in.>
		take
		prefix <a>
		displaytype <Object>
		article <it>
		gender <it>
		parent <desk drawer>
		properties <read = note from author: Have you found your cell phone yet?>
	end define

	define object <computer>
		look <You can see by the screen that there is email. Maybe you want to read it?>
		prefix <a>
		displaytype <Object>
		article <it>
		gender <it>
		parent <desk>
	end define

	define object <email>
		displaytype <Object>
		article <it>
		gender <it>
		invisible
		properties <read = You should find your cell phone if you really try hard. However if you are ready to ask for some hints you may type, reply to email. I have this set up so you will be able to send me an email.; reply to = Oops, this may not work for everyone. If you need a hint send an email to rhostetler@consolidated.net>
	end define

	define object <cell phone>
		look <It's your cell phone. Congratulations, you found it!>
		prefix <your>
		displaytype <Object>
		article <it>
		gender <it>
		parent <pen>
	end define

end define

define room <attic>
	prefix <the>
	look <The attic is small and is fairly bright as it has a sunlight on the roof to let in light from the outside.>
	down <bedroom>

	define object <sunlight>
		look <It is the source of light for the attic.>
		displaytype <Object>
		article <it>
		gender <it>
		invisible
	end define

	define object <cardboard box>
		look <It is a large box that you have put some things in that you want to store. May you have accidently put your cell phone in it when you were going through it the other day?>
		prefix <a>
		displaytype <Object>
		article <it>
		gender <it>
		container
		open
		close
		add
		remove
	end define

	define object <old jacket.>
		look <It is the jacket you quit wearing a few days ago because you do not like it.>
		take
		prefix <an>
		displaytype <Object>
		article <it>
		gender <it>
		parent <cardboard box>
		properties <examine = You search through the pockets and find nothing in them.>
	end define

	define object <dream game book>
		look <It is the book you wrote in game you would like to create in the future.>
		prefix <a>
		displaytype <Object>
		article <it>
		gender <it>
		parent <cardboard box>
		properties <read = Some games I have thought of creating: a braille game, a riddle game>
	end define

end define

define text <intro>
You hear your cell phone ring and reach into your pocket for it. It is not there. Where is it? You will need to go on a search through the house and find it. Happy hunting. The cell phone is the only phone you have so it is important to find it.
end define

define text <win>
Congratulations you found your cell phone and you win!
end define