' "Exits of The World"
' Created with QDK Lite 4.1.1

!include <stdverbs.lib>

define game <Exits of The World>
	asl-version <410>
	start <The World>
	game author <Jim R. Harbis>
	game version <1>
	game copyright < Mah Boi Productions>
	game info <Created with QDK Lite 4.1.1>
	default fontname <OCR A Extended>
	default fontsize <14>
	background <004080>
	foreground <green>
	startscript {
		msg <|s00You are The Doctor. You are a Timelord, and the last of your kind. Your self-applied goal in life is to preserve the human race. Davros, an evil scientist, has begun enslaving humans, some of which were close to you at one time. You must regain your belongings; they were scattered after you last regenerated. Good luck.>
		wait <|i Any key to continue |xi>
		clear
		conceal <Dalekanium Panels>
		conceal <microbacteria>
		conceal <Dead Davros>
		conceal <Radar Device>
		conceal <Re-configured Radar Device>
		hide <Martha Jones>
		hide <Humans>
	}
end define

define options
	debug on
	panes on
	abbreviations off
end define

define room <The World>
	indescription <You are at:>
	out <Davros' Lair>
	north <Exit 2>
	south <Exit 6>
	east <Exit 4>
	west <Exit 8>
	northwest <Exit 1>
	northeast <Exit 3>
	southwest <Exit 7>
	southeast <Exit 5>
	up <Exit 9>
	down <Exit 10>
	place <Davros' Lair> if got <Type 40 TARDIS> and got <Dalekanium Panels> then goto <Davros' Lair> else msg <Even though you want to confront Davros right now, you need to upgrade your ship to make it safe. Without the proper upgrades, you cannot leave.>

	define object <Enslaved Humans>
		alt <slaves; humans>
		look <All of humanity lost to being mindless slaves. Only the Daleks could have pulled something like this off... and they must be being led by Davros, the Dalek scientist...>
		take msg <You want to take them with all your heart, but you fear the worst for their condition.>
		speak {
			if got <Type 40 TARDIS> then {
				clear
				msg <|s00"Help us..."|n"We're so sick..."|n"Is nobody listening?"|n"We need a Doctor..."|n> } else {
				clear
				msg <|s00"Uuuuuaaah..."|n"Oooaah..."|n"Aaaauuuh..."|n"Eeeeeaaaahh..."|nYou can't make sense of their horrid noises.|nA pretty black girl dropped something on the ground. She looks familiar.>
				reveal <Sonic Screwdriver> }
		}
		prefix <a group of>
		displaytype <Object>
		article <them>
		gender <they>
	end define

	define object <Sonic Screwdriver>
		look <Boogie! One of your scattered belongings! This has been with you forever, and you use it to unlock locks for which you have no key.>
		take
		speak <You try to start a conversation, but it gives you the cold shoulder.>
		prefix <the>
		displaytype <Object>
		article <it>
		gender <it>
		invisible
		drop nowhere <You need to be less careless.>
	end define

	define object <space>
		look <Outer space, in all its vastness and mystery.>
		take {
			msg <|s00You reach your open palm into the sky, caressing the nothing; you close your hand, pull it back, and your hand is covered with microbacteria.>
			reveal <microbacteria>
			give <microbacteria>
		}
		speak <Your notes echo far, but nothing happens.>
		prefix <an extremely long stretch of>
		displaytype <Object>
		article <it>
		gender <it>
		drop nowhere <>
	end define

	define object <microbacteria>
		alt <bacteria>
		look <A penny-sized clump of trillions upon trillions of micro-organisms. When used on the right lifeform, they could infect it...>
		speak <You whisper "What am I supposed to use you for?" but get no reply.>
		prefix <the>
		displaytype <Object>
		article <it>
		gender <it>
		use on <Davros> {
			msg <|s00"NO! You have polluted me with enzymes! Curses!">
			msg <|i|s00Davros was eaten alive by the enzymes|xi>
			hide <Davros>
			reveal <Dead Davros>
			reveal <Radar Device>
		}
	end define

	define object <Humans>
		look <The same grounp of people from before, but now able to think for themselves and make decisions... able to live...>
		speak {
			msg <|s00"Thank you, Doctor!" They all cry simultaneously.>
			choose <Humans Conversation>
		}
		displaytype <Object>
		article <it>
		gender <it>
	end define

	define object <Martha Jones>
		look <A pretty, black young woman.>
		speak choose <Martha Jones Conversation>
		displaytype <Character>
		article <her>
		gender <she>
	end define

end define

define room <Exit 1>
	alias <Exits of The World>
	prefix <the>
	look <|s00These are indeed the ends of the earth...>
	indescription <You are at:>
	south <Exit 8>
	east <Exit 2>
	southeast <The World>
end define

define room <Exit 2>
	alias <Exits of The World>
	prefix <the>
	look <|s00These are indeed the ends of the earth...>
	indescription <You are at:>
	south <The World>
	east <Exit 3>
	west <Exit 1>
	southwest <Exit 8>
	southeast <Exit 4>
end define

define room <Exit 3>
	alias <Exits of The World>
	prefix <the>
	look <These are indeed the ends of the earth...>
	indescription <You are at:>
	south <Exit 4>
	west <Exit 2>
	southwest <The World>
end define

define room <Exit 4>
	alias <Exits of The World>
	prefix <the>
	look <These are indeed the ends of the earth...>
	indescription <You are at:>
	north <Exit 3>
	south <Exit 5>
	west <The World>
	northwest <Exit 2>
	southwest <Exit 6>
end define

define room <Exit 5>
	alias <Exits of The World>
	prefix <the>
	look <These are indeed the ends of the earth...>
	indescription <You are at:>
	north <Exit 4>
	west <Exit 6>
	northwest <The World>
end define

define room <Exit 6>
	alias <Exits of The World>
	prefix <the>
	look <These are indeed the ends of the earth...>
	indescription <You are at:>
	north <The World>
	east <Exit 5>
	west <Exit 7>
	northwest <Exit 8>
	northeast <Exit 4>
end define

define room <Exit 7>
	alias <Exits of The World>
	prefix <the>
	look <These are indeed the ends of the earth...>
	indescription <You are at:>
	north <Exit 8>
	east <Exit 6>
	northeast <The World>
end define

define room <Exit 8>
	alias <Exits of The World>
	prefix <the>
	look <These are indeed the ends of the earth...>
	indescription <You are at:>
	north <Exit 1>
	south <Exit 7>
	east <The World>
	northeast <Exit 2>
	southeast <Exit 6>
end define

define room <Exit 9>
	alias <Exits of The World>
	prefix <the>
	look <These are indeed the ends of the earth...>
	indescription <You are at:>
	out locked <Skarro; This leads to Skarro. home planet of the Daleks. You need a ship to get there.>
	down <The World>
end define

define room <Exit 10>
	alias <Exits of The World>
	prefix <the>
	look <These are indeed the ends of the earth...>
	indescription <You are at:>
	out <J'doon Impound>
	up <The World>
end define

define room <Skarro>
	prefix <the planet>
	indescription <You are on:>
	out <Exit 9>
	place <The World> if got <Type 40 TARDIS> then goto <The World> else msg <You need a ship to jump across space.>
	place <J'doon Impound> if got <Type 40 TARDIS> then goto <J'doon Impound> else msg <You need a ship to jump across space.>

	define object <Dalekanium Panels>
		alt <panels>
		take
		prefix <a pile of>
		displaytype <Object>
		article <them>
		gender <they>
	end define

	define object <Dalek Shells>
		look <These are empty shells the Daleks wear, if you had a tool, you could remove the Dalekanium Panels and use them on your ship.>
		speak <Your voice dies without any resonance.>
		prefix <a number of>
		displaytype <Object>
		article <it>
		gender <it>
		use <Sonic Screwdriver> {
			reveal <Dalekanium Panels>
			msg <You used the Sonic Screwdriver to remove the panels from the shells.>
		}
	end define

end define

define room <Davros' Lair>
	out <The World>

	define object <Davros>
		look <The evil Dalek scientist in person. You must defeat him and save the humans! But first you must work out how...>
		speak {
			clear
			msg <|s00"So you finally caught up to me, Doctor! Tell me, have you the power to stop me?">
			choose <Davros Conversation>
		}
		displaytype <Character>
		article <him>
		gender <he>
	end define

	define object <Dead Davros>
		look <All that is left of Davros is his lower Dalek mobile system...>
		speak <There's nothing to speak to...>
		displaytype <Character>
		article <him>
		gender <he>
	end define

	define object <Radar Device>
		look <A radar device used to control the humans. If you had a tool, you could re-write the mind control program, and beam the new program at them and it might return them to the normal state...>
		take
		speak <It makes beeping noises.>
		displaytype <Object>
		article <it>
		gender <it>
		use <Sonic Screwdriver> {
			msg <|s00You reversed the effects of the Radar Device.>
			hide <Radar Device>
			reveal <Re-configured Radar Device>
		}
	end define

	define object <Re-configured Radar Device>
		look <The Radar Device with reversed mind control properties.>
		take
		speak <Still makes beeping noises.>
		prefix <the>
		displaytype <Object>
		article <it>
		gender <it>
		use on <Enslaved Humans> {
			msg <|s00You hit the slaves with sonar waves from the device, and they suddenly snap back into normality.>
			hide <Enslaved Humans>
			show <Humans>
			show <Martha Jones>
		}
	end define

end define

define room <J'doon Impound>
	prefix <the>
	indescription <You are in:>
	out <Exit 10>
	place <The World> if got <Type 40 TARDIS> then goto <The World> else msg <You need a ship to jump across space.>
	place <Skarro> if got <Type 40 TARDIS> then goto <Skarro> else msg <You need a ship to jump across space.>

	define object <Type 40 TARDIS>
		look <Boogie! One of your scattered belongings. This is your time machine and spaceship, the TARDIS. TARDIS stands for Time And Relative Dimensions In Space. Not only is this a machine, it is a living organism. >
		take {
			if got <Sonic Screwdriver> then {
				give <Type 40 TARDIS>
				msg <You used the Sonic Screwdriver to free your impounded TARDIS.> } else msg <Your TARDIS is bounded by chains. There is a lock, but you have no key.>
		}
		speak <You don't speak, yet you listen to the Time Vortex in the heart of the great machine.>
		prefix <your>
		displaytype <Object>
		article <it>
		gender <it>
	end define

end define

define text <win>
|s00With Davros defeated and the humans saved, you take Martha by the hand into the TARDIS, plotting the coordinates for your next adventure.
end define

define text <lose>
|s00And it came to pass, the universe fell apart by the fabrics, all in all collapsing into itself. The TARDIS shot back through time, allowing you a chance to continue...
end define

define selection <Davros Conversation>
	info <Choose an answer to reply to Davros>
	choice <"How can I return the humans back to their normal state?"> msg <"Doctor, what kind of a fool do you take me for? Did you really think you could get me monologuing and have me tell you everything?">
	choice <"No, I don't..."> {
		msg <|s00"Well, it turns out I have the means necessary to defeat you!"|nHe shoots you with a  portable Dalek ray gun.>
		playerlose
	}
end define
define selection <Humans Conversation>
	info <Choose an answer to reply to the humans>
	choice <"It was my duty."> msg <"Well, either way, we owe you everything!" one of them says.>
	choice <"You're more than welcome."> msg <"He saved us, and he's hot too! Cries a teenager from the back.>
	choice <"Not a problem." turning to black woman, "Excuse me, Ms., Jones, is it? Ms. Jones, would you care to travel with me?" > {
		msg <|s00"You mean like, as an assistant?"|n|nSpeak to Ms. Jones to continue.>
		show <Martha Jones>
	}
end define
define selection <Martha Jones Conversation>
	info <Answer Martha's question>
	choice <"Yes, as a personal companion. I believe you can benefit from the knowledge you will recieve."> {
		msg <|s00"Well, I suppose...">
		playerwin
	}
end define