games/quest/redsaucemonday.asl

' "A day at the redsauce office"
' Created with QDK Lite 4.1.2

!include <stdverbs.lib>

define game <A day at the redsauce office>
	asl-version <410>
	start <Tomatoes>
	game info <Created with QDK Lite 4.1.2>
	verb <play on> msg <You can't play on that.>
	verb <challenge chris> msg <You can't challenge chris that.>
	verb <challenge tim> msg <You can't challenge tim that.>
	verb <tim> msg <You can't tim that.>
	verb <chris> msg <You can't chris that.>
	verb <play> msg <You can't play that.>
	verb <challenge> msg <You can't challenge that.>
	verb <go to> msg <You can't go to that.>
	verb <sit at> msg <You can't sit at that.>
	verb <read> msg <You can't read that.>
	verb <drink> msg <You can't drink that.>
	verb <ping> msg <You can't ping that.>
	verb <use cheeky look on james> {
		msg <OH MILTON!|n|nYou promptly follow up with the CHEEKY LOOK.|n|nJames bloomin loves it and laughs away.|n|nOddly, he hands you a RUBBER BAND. |n|nYou're sure there's some use for this.>
		lose <CHEEKY POSE>
		give <RUBBER BAND>
	}
	verb <open> msg <You can't open that.>
	verb <sit on> msg <You can't sit on that.>
	verb <watch> msg <You can't watch that.>
	verb <eat> msg <You can't eat that.>
	verb <open sesame> msg <You can't open sesame that.>
end define

define options
	debug on
	panes on
	abbreviations on
end define

define room <Garden>
	prefix <the>
	north <outside>
	description <You head to the garden...|n|nOi, you're supposed to be at work. |n|nThis is no time for enjoying fresh air and natural sunlight.>
end define

define room <office>
	prefix <the>
	north <your desk>
	south <outside>
	description <|nYou are standing in the office.|n|nAhead of you are a TEAM of hardworking individuals.|nOn your right is a comfy-looking SOFA, a FRIDGE and some cube SHELVES.|nOn your left is a FOOTBALL TABLE and a PILLAR.|n>

	define object <CAN>
		alias <CAN OF PEPSI>
		alt <can; can of pepsi; pepsi; cans; coke; can of coke; CAN; Can>
		look <A can of pepsi.>
		take <You take the can of pepsi.>
		speak <Um, you're speaking to a can of pepsi. That's more than a little strange.>
		prefix <a>
		displaytype <Object>
		article <it>
		gender <it>
		give to <TOM> {
			reveal <BANANA>
			lose <CAN>
			msg <You give the can to Tom, as James looks on judgingly.|n|cl|n|cb"Thankyouuu!" says Tom, popping open the can and swigging it instantly.|n|n"Here, you can have this banana, because frankly I'm sick of them"|n|n|nYou now have a BANANA.>
			give <BANANA>
			conceal <CAN>
		}
		properties <drink = It's far too cold to drink.>
	end define

	define object <ANIME DVD>
		alt <anime; anime dvd; dvd; knock-off dvd; knock-off dvd of anime; dvd of anime>
		look <Some terrible-looking Japanese Anime DVD.|n|nI'm sure someone in the office would love this.>
		speak <Well, first of all, it's a DVD. Second of all, you don't speak Japanese.>
		displaytype <Object>
		article <it>
		gender <it>
		give to <SELENA> {
			reveal <M&MS>
			msg <You hand the anime DVD to Selena and see her little face light up.|n|nShe says,|cl |cb"Och aye, domo origato, ya big jessie"|n|nShe gives you a blue pack of m&ms.|n|n|nYou now have a pack of M&Ms.>
			lose <ANIME DVD>
			give <M&MS>
			conceal <ANIME DVD>
		}
		properties <watch = You attempt to watch it, but have no idea what's going on. You feel a bit stupider.>
	end define

	define object <BANANA>
		look <It's a banana, but not too curvy. That's just weird.|n|nI'm sure someone in the office would like it.>
		take <You now have a banana>
		speak <It's not a bananaphone. Sadly.>
		prefix <a>
		displaytype <Object>
		article <it>
		gender <it>
		give to <AMY> {
			reveal <BANANA SKIN>
			msg <You give your banana to AMY.|n|n"Aww thankyou! Here, you can have the skin back"|n|n|nYou now have a BANANA SKIN.|n|nRough deal.>
			lose <BANANA>
			give <BANANA SKIN>
			conceal <BANANA>
		}
		properties <eat = That banana's not for you.>
	end define

	define object <MAGAZINE ON TWITTER>
		alt <magazine; twitter magazine; magazine on twitter; twitter mag; twitter>
		look <It's a magazine on Twitter.|n|nOnly has 140 characters of text though.|n|nWho could possibly want that?>
		speak <Read it, don't talk to it.>
		displaytype <Object>
		article <it>
		gender <it>
		give to <SIMON> {
			reveal <CUP OF COFFEE>
			msg <You give the magazine to Simon.|n|nHe mumbles "Cheers mate, I'll remember to read it."|n|nYou doubt that.|n|nHe adds, "I made this cup of coffee. I don't know why... I don't even drink it. You can have it".|n|n|nYou now have a CUP OF COFFEE.>
			lose <MAGAZINE ON TWITTER>
			give <CUP OF COFFEE>
			conceal <MAGAZINE ON TWITTER>
		}
		properties <read = It's a magazine on Twitter.|n|nOnly has 140 characters of text though.|n|nWho could possibly want that?>
	end define

	define object <JAMES>
		alt <james; James>
		look {
			picture <james.jpg>
			msg <|n|nA chubby, friendly guy in a lemon jumper.|n|nVery blunt, but hilarious.|n |nEnjoys the occasional oatcake and walking barefoot on uncomfortable paths.|n>
		}
		speak <He jests with you.|n|nIf only you had some sort of cheeky look to use on him.>
		displaytype <Character>
		article <him>
		gender <he>
		use <CHEEKY POSE> {
			reveal <RUBBER BAND>
			msg <|nOHHH MILTOOOON! Wa-wa-waaa.|n|nYou promptly follow up with the CHEEKY LOOK.|n|n|nJames bloomin loves it and laughs away.|n|n|nOddly, he hands you a RUBBER BAND. |n|nYou're sure there's some use for this.|n>
			lose <CHEEKY POSE>
			give <RUBBER BAND>
			conceal <CHEEKY POSE>
		}
	end define

	define object <SIMON>
		alt <Simon; simon>
		look {
			picture <simon.jpg>
			msg <|n|nAn aloof fellow with detachable hairpiece.|n|nDresses well and is friendly to all, at least when he's not mumbling.|n>
		}
		speak <He mumbles something about twitter back to you.>
		displaytype <Character>
		article <him>
		gender <he>
	end define

	define object <CHRIS>
		alt <Chris; chris>
		look {
			picture <chris.jpg>
			msg <|n|nA well-presented goat herder who also excels at computing.|n|nQuiet by nature but surprisingly competitive.|n>
		}
		speak <He sings "High on a hill was a lonely goatherd"|n|nHe would appreciate any fruit peelings though. |nWell, his goats would.>
		displaytype <Character>
		article <him>
		gender <he>
		properties <play>
		action <play> {
			msg <You valiantly step up to the table, but quickly realise that you have no absolutely no chance. |n>
			goto <office>
		}
		action <challenge> {
			msg <You valiantly step up to the table, but quickly realise that you have no absolutely no chance. |n>
			goto <office>
		}
	end define

	define object <TIM>
		look {
			picture <tim.jpg>
			msg <|n|nEveryone loves Tim. From his hand gestures to his non-jokes and moral dilemmas, this man always knows the right thing to say.|n|nAlways with impeccable comic timing, too.|n>
		}
		speak <With a limited vocabulary of only 25 letters of the alphabet, he struggles to communicate with you.|n|nIt would be much easier if he could just talk to you through his BANJO.>
		displaytype <Character>
		article <him>
		gender <he>
		action <play> {
			msg <As you stand before the majesty of TIM you realise there is no way you're going to win. Give up now. Hang your head in shame for even trying.|n>
			goto <office>
		}
		action <challenge> {
			msg <As you stand before the majesty of TIM you realise there is no way you're going to win. Give up now. Hang your head in shame for even trying.|n>
			goto <office>
		}
	end define

	define object <AMY>
		alt <Amy; amy>
		look {
			picture <amy.jpg>
			msg <|n|nAlways impeccably dressed, but aching from the gym, Amy heads the content team.|n|nOccasionally stressed but always friendly, she consistently gets the work done.|n>
		}
		speak <She regails you with tales of Nantwich, before realising, with horror that Tim has switched her fruit with Weetabix.|n|nIf only she had some fruit...>
		displaytype <Character>
		article <her>
		gender <she>
	end define

	define object <TEAM>
		alt <staff; individuals; team>
		look <You see a friendly team of people working hard at their desks, some with tea, some with cans and one with a red stapler in his hand.|n|nMaybe you should SPEAK to them?>
		speak {
			show <DESK>
			reveal <TIM>
			reveal <SIMON>
			reveal <CHRIS>
			reveal <SELENA>
			reveal <AMY>
			reveal <MILTON>
			reveal <TOM>
			reveal <ROGER>
			conceal <TEAM>
			msg <You introduce yourself to the team, which consists of:|n|n|bJAMES|nSIMON|nCHRIS|nTIM|nAMY|nSELENA|nMILTON|nTOM|nROGER|xb|n|nThey all say hi and are welcoming to you.|n|n|bAMY |xbgets up and shows you to your desk.|n>
			goto <your desk>
		}
		displaytype <Object>
		article <it>
		gender <it>
	end define

	define object <SELENA>
		alt <Selena; selena>
		look {
			picture <selena.jpg>
			msg <|n|nWith lovely hair and clothes, Selena brings much needed glamour to the team. Not a lot, but a bit. Tiny bit.|n|nA much-loved member of the team, Selena always has a smile on her face. Except when she's stropping.|n>
		}
		speak <You say "hi"|n|nUnfortunately, she does not reply as she is stropping at the loss of her anime dvd.>
		displaytype <Character>
		article <her>
		gender <she>
	end define

	define object <TOM>
		alt <Tom; tom>
		look {
			picture <tom.jpg>
			msg <|n|nA dishevelled-looking character, unsure of what look he's really trying for. Still the most stylish of the company though.|n>
		}
		speak msg <You say hi to Tom, who is barely visible behind his pile of assorted stuff.|n|nHe replies|cl |cb"Hello! Bi the way I could really do with a can of pepsi.">
		displaytype <Character>
		article <him>
		gender <he>
	end define

	define object <MILTON>
		alt <Adam; ADAM; Milton; milton; adam>
		look {
			picture <milton.jpg>
			msg <|n|nA sharply-dressed gentleman, messing with a red stapler and with a wry grin on his face. |n|nHe is an enigma, a puzzle and a charming man.|n|nHe says so little but contributes so much to redsauce.|n>
		}
		speak <He says nothing.|n|nMaybe you should give him one of his favourite snacks?>
		displaytype <Character>
		article <him>
		gender <he>
	end define

	define object <ROGER>
		alt <roger; Roger; Roger Bush; Bush; bush>
		look {
			picture <roger.jpg>
			msg <|n|n|bROGER BUSH.|xb|n|nThe man, the legend. Little is known about him except that he is a talented SEO and has a similar taste in cups to Tom.|n>
		}
		speak <He speaks with a northern accent, but oddly enough, it's pleasant and you can understand him. |n|nHe would appreciate a cup of coffee though.>
		displaytype <Character>
		article <him>
		gender <he>
	end define

	define object <FOOTBALL TABLE>
		alt <table; foosball table; foosball>
		look <It's a football table. You can play table football on it. That's about it.>
		displaytype <Object>
		article <it>
		gender <it>
		properties <challenge chris; use = do you want to CHALLENGE CHRIS or TIM?; play on = do you want to CHALLENGE CHRIS or TIM?; play = do you want to CHALLENGE CHRIS or TIM?>
		action <challenge chris> {
			msg <You valiantly step up to the table, but quickly realise that you have no absolutely no chance. |n>
			goto <office>
		}
		action <challenge tim> {
			msg <As you stand before the majesty of TIM you realise there is no way you're going to win. Give up now. Hang your head in shame for even trying.|n>
			goto <office>
		}
		action <tim> {
			msg <As you stand before the majesty of TIM you realise there is no way you're going to win. Give up now. Hang your head in shame for even trying.|n>
			goto <office>
		}
		action <chris> {
			msg <You valiantly step up to the table, but quickly realise that you have no absolutely no chance. |n>
			goto <office>
		}
	end define

	define object <PILLAR>
		alt <pillar>
		look <It's a pillar. Tom likes to hide behind it.>
		speak <You're speaking to a pillar? That's a concern.>
		displaytype <Object>
		article <it>
		gender <it>
	end define

	define object <SHELVES>
		alt <cube; cube shelves; shelving; shelves>
		look <Sturdy-looking shelves that look like they must have taken an age to put up.|n|nWhich they did, due to Selena's doweling faux pas.>
		speak <Don't speak to the shelves. It upsets them.>
		displaytype <Object>
		article <it>
		gender <it>
	end define

	define object <SOFA>
		alt <sofa; couch>
		look <Ahh, the lovely redsauce sofa. You also notice the FRIDGE next to it.>
		speak <You speak to the sofa.|n|nThe sofa replies "..."|n|nBecause it's a sofa.>
		displaytype <Object>
		article <it>
		gender <it>
		properties <sit on = As comfy as it is, now isn't the time.>
	end define

	define object <BANANA SKIN>
		alt <skin; bananaskin; skin of banana; skin of a banana>
		look <Who could possibly want the skin of a banana?>
		take
		speak <No.>
		displaytype <Object>
		article <it>
		gender <it>
		give to <CHRIS> {
			reveal <BANJO>
			msg <You give the banana skin to Chris.|n|nYou hear a barely audible "Cheers, mate".|n|nFor no real reason, he gives you a banjo.|n|n|nYou now have a BANJO.>
			lose <BANANA SKIN>
			give <BANJO>
			conceal <BANANA SKIN>
		}
	end define

	define object <BANJO>
		look <It's a banjo. Quite nice too. Never been played. Probably belongs to someone in the office.>
		take
		speak <The banjo does not respond.>
		displaytype <Object>
		article <it>
		gender <it>
		give to <TIM> {
			reveal <MAGAZINE ON TWITTER>
			msg <You give the banjo to Tim.|n|n"Thanks mate, I was wondering where that had got to. That was a valuable investment, you see"|n|nReaching into his drawer, he hands you a magazine dedicated solely to Twitter as thanks.|n|n|nYou now have a MAGAZINE ON TWITTER.>
			lose <BANJO>
			give <MAGAZINE ON TWITTER>
			conceal <BANJO>
		}
		properties <play = You begin to play the banjo.|n|nIn no time at all a Hoe-down has formed.|n|nThis quickly disperses as everyone returns to work.>
	end define

	define object <M&MS>
		alt <pack of m&ms; m&ms; m&m's; pack of m&m's; PACK OF M&M'S; sweets; M&Ms; M&MS; M&M'S>
		look <A blue pack of m&m's.|nYou don't like them but I bet there's someone who does.>
		speak <They're not like the giant ones off the adverts, unfortunately.>
		displaytype <Object>
		article <it>
		gender <it>
		give to <MILTON> {
			reveal <CHEEKY POSE>
			msg <You give Milton the pack of m&m's.|n|nWith a cold steely stare, he says nothing.|n|nBut shortly after, he gives you a stylish pose and a cheeky look.|n|n|nYou are now equipped with a CHEEKY POSE.>
			lose <M&MS>
			give <CHEEKY POSE>
			conceal <M&MS>
		}
		properties <eat = You can't open the packet.>
	end define

	define object <RUBBER BAND>
		look <It's a standard office rubber band.>
		speak <Stationery doesn't usually respond.>
		displaytype <Object>
		article <it>
		gender <it>
		use on <CROCODILE> {
			msg <|nYou remember seeing somewhere that even though crocodile's jaws are strong at closing, they are weak at opening up.|n|nYou decide to give it a go and wrap the rubber band around the crocodile's mouth...|n|n|nIt works!|n|n>
			picture <crocodile.jpg>
			playerwin
		}
		give to <CROCODILE> {
			msg <You remember seeing somewhere that even though crocodile's jaws are strong at closing, they are weak at opening up.|n|nYou decide to give it a go and wrap the rubber band around the crocodile's mouth...|n|n|nIt works!|n>
			playerwin
		}
		properties <ping = Ow.>
	end define

	define object <CHEEKY POSE>
		alt <cheeky pose; cheeky; pose>
		look <The signature 'OH MILTON' cheeky look and hand gesture.|n|nYou can't not love it.>
		speak <The Milton pose requires no words.|n|nIt's THAT good.>
		displaytype <Object>
		article <it>
		gender <it>
	end define

	define object <FRIDGE>
		look {
			msg <This fridge is full of ice cold drinks.|n|nMostly pepsi and energy drinks from the pound shop. |n|nMaybe Tom would like one?>
			reveal <CAN>
		}
		speak <You say 'Open Sesame', but nothing happens.|n|nBecause this isn't Kings Quest>
		displaytype <Object>
		article <it>
		gender <it>
	end define

	define object <CUP OF COFFEE>
		alt <cup; coffee; cuppa coffee; cuppa; cup of coffee; black coffee>
		look <A nice hot cup of black coffee. Only one person in the office would ever think of drinking that.>
		speak <Stop speaking to the coffee. That's what the weirdos in Starbucks do.>
		displaytype <Object>
		article <it>
		gender <it>
		give to <ROGER> {
			reveal <ANIME DVD>
			msg <Because it's what all techies say, he says "Cheers mate".|n|nAs thanks, he gives you a knock-off ANIME DVD.|n|nGod bless hooky street.>
			lose <CUP OF COFFEE>
			give <ANIME DVD>
			conceal <CUP OF COFFEE>
		}
		properties <drink = You don't like coffee. Or you do. I don't know.>
	end define

	define object <DESK>
		look <You own HUGE desk!>
		displaytype <Object>
		article <it>
		gender <it>
		hidden
		action <go to> goto <your desk>
		action <sit at> goto <your desk>
	end define

end define

define room <outside>
	look <|n|n|nYou are standing outside the office.|n|nAbove you is a large sign that reads |cgred|crsauce|cg.com|cb|nIn the windows are plastic tomatoes.|nBehind you is a lovely garden full of emo looking kids.|n|nYou can go NORTH or SOUTH>
	north <Front door>
	south <Garden>
	description msg <|n|n|nYou are standing outside the office.|n|nAbove you is a large sign that reads |cgred|crsauce|cg.com|cb|nIn the windows are plastic tomatoes.|nBehind you is a lovely garden full of emo looking kids.|n|nYou can go NORTH or SOUTH>
end define

define room <your desk>
	alias <desk>
	look <|nYou sit at your desk.|n|n|n|nYou try to do some work, but there is a large CROCODILE in the way.|nWhat could possibly defeat a CROCODILE?|n|n|nLooks like you'll need the help of your team!|n|n|nGo SOUTH to leave your desk.>
	north <office>
	south <office>
	description {
		msg <|nYou sit at your desk.|n|n|n|n>
		picture <croc.jpg>
		msg <|n|nYou try to do some work, but there is a large CROCODILE in the way.|nWhat could possibly defeat a CROCODILE?|n|n|nLooks like you'll need the help of your team!|n|n|nGo SOUTH to leave your desk.|n>
	}

	define object <CROCODILE>
		alt <CROC; Craig; craig; crocodile>
		look <Never smile at a crocodile...|n|nParticularly one that works at Localtraders.>
		speak <Careful, he'll try to get you to go skydiving.>
		displaytype <Object>
		article <it>
		gender <it>
	end define

end define

define room <Introduction>
end define

define room <Front door>
	south <outside>
	description <Try opening the door first.>

	define object <door>
		alt <sesame; front door>
		displaytype <Object>
		article <it>
		gender <it>
		action <open sesame> 
		action <open> {
			conceal <TIM>
			conceal <M&MS>
			conceal <BANANA>
			conceal <CAN>
			conceal <JAMES>
			conceal <SIMON>
			conceal <CHRIS>
			conceal <SELENA>
			conceal <AMY>
			conceal <MILTON>
			conceal <ROGER>
			conceal <TOM>
			conceal <ANIME DVD>
			conceal <RUBBER BAND>
			conceal <CHEEKY POSE>
			conceal <CUP OF COFFEE>
			conceal <door>
			msg <You open the door, and step into the office...>
			goto <office>
			conceal <BANANA SKIN>
			conceal <TIM>
			conceal <BANJO>
			conceal <MAGAZINE ON TWITTER>
		}
	end define

end define

define room <Tomatoes>
	description {
		picture <tomatoes.jpg>
		msg <|n|n>
		wait <Press any key to begin the game!>
		goto <outside>
	}
end define

define text <intro>
|s10Hello! Tom here.

Welcome to 'A day at the redsauce office'.


This is a standard text adventure, so remember to LOOK at things, SPEAK to everyone and GIVE things to them when necessary.


Oh, and to check what you're carrying, type 'i' into the box.


The goal is to defeat the crocodile so that you can get some work done.


It's pretty easy, but try and finish it anyway.


Press any key to load this merry game.
|w|s00
end define

define text <win>
|s10Hooray! Now you can finally start writing content!


|bYou beat the game, so well done.|xb


|crNow, whose turn is it to make the teas?|s00|cb
end define