Mrs. Crabtree's Geography Class by Andrew Schultz

Mrs. Crabtree's Geography Class

Played 11,706 times
View game source (spoilers!)
Download the .z8 file
Source Code

"Mrs. Crabtree's Geography Class" by Andrew Schultz

part headings

[Release along with cover art.] [not available on playfic]

the release number is 2.

the story creation year is 2012.

the story description is "Can you tour through the mainland US, touching each of the forty-eight states once?"

the story genre is "Puzzle/Slice of Life"

the story headline is "Be a Geography Whiz!"

part definitions

chapter types

a us-state is a kind of thing. a us-state is either visited or unvisited. a us-state is usually unvisited. a us-state is either mainland or non-mainland. a us-state is usually mainland. a us-state is either doable or undoable. a us-state is usually doable.

A us-state has some indexed text called the abbrev. Understand the abbrev property as describing the us-state.
[ Understand "[abbrev of us-state]" as the us-state.]

current-state is a us-state that varies.

can-travel is a truth-state that varies. can-travel is usually true.

chapter bordering

Bordering relates us-states to each other. The verb to border (he borders, they border, it is bordered) implies the bordering relation.

section borders

Alaska is a us-state. Alaska is non-mainland.

Hawaii is a us-state. Hawaii is non-mainland.

Tennessee, Georgia, Florida, and Mississippi border Alabama.

Utah, New Mexico, California, and Nevada border Arizona.

Missouri, Tennessee, Mississippi, Louisiana, Texas and Oklahoma border Arkansas.

Oregon and Nevada border California.

Wyoming, Nebraska, Kansas, Oklahoma, New Mexico, and Utah border Colorado.

Massachusetts, Rhode Island, New York border Connecticut.

Pennsylvania, New Jersey, Maryland border Delaware.

Georgia borders Florida.

Tennessee, North Carolina, South Carolina border Georgia.

Montana, Wyoming, Utah, Nevada, Oregon, Washington border Idaho.

Wisconsin, Indiana, Kentucky, Missouri and Iowa border Illinois.

Kentucky, Ohio, Michigan border Indiana.

Wisconsin, Minnesota, Missouri, Nebraska, South Dakota border Iowa.

Nebraska, Missouri, Oklahoma border Kansas.

Ohio, West Virginia, Virginia, Tennessee, Missouri, North Carolina border Kentucky.

Mississippi, Texas border Louisiana.

New Hampshire borders Maine.

Pennsylvania, Virginia, West Virginia border Maryland.

Vermont, New Hampshire, Rhode Island, Connecticut, New York border Massachusetts.

Minnesota, Wisconsin, Ohio border Michigan.

Wisconsin, South Dakota and North Dakota border Minnesota.

Tennessee borders Mississippi.

Tennessee, Arkansas, Oklahoma, Kansas, and Nebraska border Missouri.

North Dakota, South Dakota, Wyoming border Montana.

South Dakota, Wyoming border Nebraska.

Oregon, Utah border Nevada.

Vermont borders New Hampshire.

New York and Pennsylvania border New Jersey.

Utah, Oklahoma, Texas border New Mexico.

Pennsylvania, Vermont border New York.

Virginia, South Carolina, Georgia, Tennessee border North Carolina.

South Dakota border North Dakota.

Pennsylvania, West Virginia border Ohio.

Texas borders Oklahoma.

Washington borders Oregon.

West Virginia border Pennsylvania.

understand "ri" as rhode island.

understand "sc" as south carolina.

Wyoming borders South Dakota.

understand "tn" as tennessee.

understand "tx" as texas.

West Virginia borders Virginia.

Wyoming borders Utah.

[done with borders]

chapter cornering

Cornering relates us-states to each other. The verb to corner (he corners, they corner, it is cornered) implies the cornering relation.

section corners

Utah corners New Mexico. Colorado corners Arizona.

chapter almosting

Almosting relates us-states to each other. The verb to almost (he almosts, they almost, it is almosted) implies the almosting relation.

section almosts

[this is very subjective but is inserted as an exercise.]

Wisconsin almosts Indiana.

South Carolina almosts Tennessee.

chapter skipping

to decide if (a - a us-state) skipborders (b - a us-state):
	if a borders b, decide no;
	if a almosts b, decide no;
	if a corners b, decide no;
	if a is b, decide no;
	repeat with c running through us-states that border a:
		if c borders b and c borders a:
			decide yes;
	decide no;

to decide which us-state is the throughborder of (a - a us-state) and (b - a us-state):
	if a skipborders b:
		repeat with c running through us-states that border a:
			if c borders b and c is unvisited:
				decide on c;
	decide on hawaii.

part World

chapter geography class

Geography Class is a room. The printed name of Geography Class is "Mrs. Crabtree's Classroom". The description of Geography Class is "You're in Geography Class. A door leads out, and the transparent pull down display of a US Map covers the blackboard. There's a marker that you connect the states with. [if room is unvisited]N.B. you don't have to TAKE anything. Just VISIT the appropriate state. Or START a state. You can also use state abbreviations.[end if]"

The hallway is outside of Geography Class.

Instead of going outside in Geography Class, say "You wouldn't want to violate Mrs. Crabtree's trust like that, even if you weren't the lucky student who got to play the Geography Game or if you'd get caught and sent to detention anyway."

the blackboard is scenery in geography class. understand "map" and "display" and "transparent pull down" as blackboard.

description of blackboard is "[my-map]"

part Verbs

chapter looking

after looking in geography class:
	try statusing;

already-started is a truth state that varies. already-started is usually false.

chapter abbreving

abbreving is an action out of world.

understand the command "abbrevs/abbrev/ab/a" as something new.

understand "abbrev" and "abbrevs" and "ab" and "a" as abbreving.

carry out abbreving:
	let count be 0;
	say "Abbreviations of states left:[line break]";
	repeat through the table of abbrevs: 
		if state entry is visited:
			say "[state entry] =~ [abbr entry in upper case]. [run paragraph on]";
			increment count;
			if remainder after dividing count by 5 is 0:
				say "[line break]";

chapter visiting

abouting is an action out of world. understand "about" as abouting.

carry out abouting:
	say "Mrs. Crabtree has chosen YOU to play the game where you travel to all 48 mainland states without touching any one twice. You may VISIT a state or its abbreviation, and you may also see ABBREV(S) or see which states REMAIN. You may also START a state or its abbreviation. You may also say MAINE to start in Maine.[paragraph break]See CREDITS for credits."

chapter creditsing

creditsing is an action applying to nothing.

understand the command "credits" as something new.

understand "credits" as creditsing.

carry out creditsing:
	say "Thanks to Andy Baio for creating the wonderful Playfic.com site, where you're probably playing this game. Thanks to Aaron Reed for explaining relations well in Inform 7, so that I had the idea for this game. It's still a tricky area, so I hope this helps.[paragraph break]Thanks also to Sam Ashwell for finding a (rather bad) bug in the release version of the game, as well as for pointing out some terminology.";

chapter starting

starting is an action applying to one visible thing.
understand "start [any thing]" as starting.

carry out starting a thing (called the state):
	if current-state is not init-state:
		say "It's too late to change your starting state." instead;
	if the state is not a us-state:
		say "You need to specify a state or its abbreviation." instead;
	now current-state is not visited;
	now current-state is state;
	now state is visited;
	now init-state is current-state;
	if the state is undoable:
		say "The other kids around murmur and giggle. You swear you hear some duh-duh-duh noises. Maybe [state] is not the best choice. But you can start there if you want." instead;
	if already-started is true:
		say "You hear a sigh and glimpse an eye-roll as you change your starting state yet again.";
	now already-started is true;
	say "You are starting in [current-state].";

chapter maineing

maineing is an action out of world. understand the command "start maine" as something new. understand "start maine" as maineing.

carry out maineing:
	if current-state is not init-state:
		say "It's too late to change whether you started in Maine." instead;
	if current-state is not maine:
		now current-state is not visited;
		now current-state is maine;
		now init-state is maine;
		now maine is visited;
		say "You decide to start in Maine." instead;
	if current-state is maine:
		while current-state is maine:
			now current-state is a random us-state that is mainland;
		now current-state is visited;
		now init-state is current-state;
		now maine is unvisited;

instead of going nowhere:
	say "You wouldn't think of ditching Mrs. Crabtree's class!"

Rule for printing a parser error when the latest parser error is the I beg your pardon error:
	try waiting instead;
	
instead of waiting:
	say "You hear a few exasperated sighs indicating you should come ON, already!"

instead of jumping or singing or waving:
	say "Acting out? Especially when she's let YOU play the game?! For shame!"

description of player is "It doesn't matter how cool your clothes are if you can win this game here!"

chapter visiting

visiting is an action applying to one visible thing.

understand the command "visit/v/ [any thing]" as something new.
understand "visit [any thing]" as visiting.
understand "v [any thing]" as visiting.
understand "[any thing]" as visiting.

instead of going inside: [Indiana = IN]
	try visiting indiana instead.

instead of going northeast: [Nebraska = NE]
	try visiting nebraska instead.

carry out visiting:
	if the noun is not a us-state, say "You can only visit a state!" instead;
	if the noun is non-mainland, say "You don't need to visit [noun], but you've heard if you study hard and get an interesting job, you may be able to work or vacation there one day." instead;
	if noun is visited:
		say "'I'm sorry, dear, but you already visited [noun],' said Mrs. Crabtree. You furtively look around and think of another state to visit." instead;
	if current-state borders noun:
		say "You decide to move to [noun].[paragraph break]";
		change current-state to noun;
		now current-state is visited;
		try statusing;
	otherwise if current-state corners noun:
		say "'I'm sorry, dear, but we agreed opposite states of the Four Corners don't actually border each other,' says Mrs. Crabtree." instead;
	otherwise if current-state almosts noun:
		say "The kid next to you whispers, 'Hey! Look closer at the map, [lame-o]!' You do. Those states don't quite border." instead;
	otherwise:
		if noun skipborders current-state:
			if throughborder of noun and current-state is hawaii:
				say "You can't quite get there. In fact, you bite your lip as you realize you've been through every state between [current-state] to [noun]." instead;
			say "You can't move from [current-state] directly to [noun], but [throughborder of noun and current-state] is a possibility." instead;
		otherwise:
			say "'Hey! [noun] and [current-state] aren't even CLOSE!' someone yells. Mrs. Crabtree tut-tuts them, and you blush slightly." instead;

to say lame-o:
	say "[one of]dweebazoid[or]space cadet[or]cheater[or]dirty sneak[or]lazy bum[or]mega-[']tard[or]bubble brain[or]weako[or]jubenile deliquent[or]dumbskull[at random]"

chapter pondering

Pondering is an action applying to one topic.


instead of pondering:
	let Q be indexed text;
	repeat through table of abbrevs:
		now Q is the topic understood in upper case;
		say "[abbr entry] vs [Q].";
		if abbr entry matches the text Q:
			try visiting state entry instead;
	say "Not a state." instead;

Chapter remaining

remaining is an action applying to nothing. understand the command "remain" as something new. understand "remain" as remaining.

comma-flag is a truth-state that varies.

carry out remaining:
	say "Left to visit:";
	now comma-flag is false;
	repeat through the table of abbrevs: 
		if state entry is unvisited:
			if state entry is mainland:
				if comma-flag is true, say ",";
				now comma-flag is true;
				say " [state entry] ([abbr entry in upper case])";
	say ".";

[	repeat with state1 running through us-states:
		if state1 is unvisited:
			say " [state1]";
	say "[paragraph break]";]

chapter showing-borders

showing-borders is an action applying to nothing.

to try showing-borders:
	repeat with state1 running through us-states:
		say "[state1] borders:";
		repeat with state2 running through us-states:
			if state1 borders state2:
				say " [state2]";
		say ".[line break]";

chapter statusing

statusing is an action out of world;

to say mainecheck:
	if init-state is not maine:
		say " She gives you an extra one for not starting in Maine!";
	otherwise:
		say " Maybe you will get a bonus if you do not start in Maine next time!"

to try statusing:
	if number of unvisited mainland us-states is 0:
		say "You visited all the states! Mrs. Crabtree gives you a gold star![no line break][mainecheck]";
		end the story;
		rule succeeds;
	change can-travel to false;
	repeat with state1 running through us-states:
		if current-state borders state1 AND state1 is unvisited:
			change can-travel to true;
	if can-travel is false:
		say "Oh no! Dead end! Mrs. Crabtree tut-tuts, and you walk back to your seat in awkward silence. At least you did not cost the class free ice cream bars.";
		end the story;
		rule succeeds;
	say "You are in [current-state]. You have [number of unvisited mainland us-states] still to visit before Mrs. Crabtree will give you a coveted gold star for working your way around the USA.[paragraph break]From here you can visit:";
	now comma-flag is false;
	repeat with state1 running through us-states:
		if current-state borders state1 AND state1 is unvisited:
			if comma-flag is true, say ",";
			say " [state1] ([abbrev of state1])";
			now comma-flag is true;
	say ".";


Chapter when play begins

use no scoring.

init-state is a us-state that varies.

new york, connecticut, massachusetts, rhode island, vermont, new hampshire, georgia are undoable;

Mrs Crabtree is a person. "Mrs. Crabtree is sitting at her desk here, waiting for your next move."

Mrs Crabtree is in Geography Class.

description of Mrs is "She is sitting behind the desk. She has a plain white blouse and her hair is in a greying bun."

instead of asking Mrs Crabtree about:
	say "'No hints!' she says, primly but respectfully.";

Mrs Crabtree wears the blouse.

description of blouse is "Plain and white."

The greying bun is part of Mrs Crabtree. understand "hair" as greying bun.

description of greying bun is "You can only see the tip of it, but you know it well."

instead of kissing Mrs Crabtree:
	say "Stop that!"

when play begins:
	repeat through the Table of Abbrevs:
		now the abbrev of state entry is abbr entry;
		[say "[abbrev entry] is [state entry][line break]";]
	now current-state is a random mainland us-state;
	while current-state is undoable:
		now current-state is a random mainland us-state;
	now init-state is current-state;
	now init-state is visited;
	[now current-state is Maine;
	now current-state is visited;]
	say "You reached your hand into the basket with papers for all forty-eight mainland states--minus the ones Mr. Mapleyard the math teacher proved make dead ends (something about some place called Konigsburg,) like [a random undoable us-state]...";
	change left hand status line to "[current-state] ([abbrev of current-state in upper case])";
	change right hand status line to "[number of visited us-states]/[number of mainland us-states]"
	[try showing-borders;]

Chapter after-reading

[this after-command parsing is disabled at playfic due to a release-only bug, it seems.]

[after reading a command:
	if the player's command exactly matches the text "south dakota":
		change the text of the player's command to "sd";
	if the player's command exactly matches the text "north dakota":
		change the text of the player's command to "nd";
	if the player's command exactly matches the text "south carolina":
		change the text of the player's command to "sc";
	if the player's command exactly matches the text "north carolina":
		change the text of the player's command to "nc";
	if the player's command exactly matches the text "west virginia":
		change the text of the player's command to "wv";]

carry out requesting the score:
	say "You have visited [number of visited us-states] of 48 contiguous states. Do you wish to see which are left?";
	if the player consents:
		say "[list of unvisited us-states]";
	else:
		say "Ok.";

Rule for printing a parser error when the latest parser error is the only understood as far as error:
	say "If you're using a directional state, it's probably more convenient to use the abbreviation instead. Unfortunately, playfic's memory limitations and my own programming shortcomings disable the ability to parse, say, South Dakota." instead;

Chapter rules

Does the player mean visiting Virginia: it is likely.

Chapter testing

test virg with "visit new hampshire/visit vermont/visit massachusetts/visit rhode island/visit connecticut/visit new york/visit new jersey/visit pennsylvania/visit delaware/visit maryland/visit west virginia/visit virginia"

test lose with "visit new hampshire/visit vermont/visit massachusetts/visit connecticut/visit rhode island"

test oops with "visit illinois/visit alaska/visit hawaii/visit saskatchewan"

test w with "visit nh/visit vt/visit ma/visit ri/visit ct/visit ny/visit nj/visit pa/visit de/visit md/visit wv/visit va/visit nc/visit sc/visit ga/visit fl/visit al/visit tn/visit ky/visit oh/visit mi/visit in/visit il/visit wi/visit mn/visit io/visit mo/visit ar/visit ms/visit la/visit tx/visit ok/visit ks/visit ne/visit sd/visit nd/visit mt/visit wy/visit co/visit nm/visit az/visit ut/visit id/visit wa/visit or/visit nv/visit ca"

test win with "visit new hampshire/visit vermont/visit massachusetts/visit rhode island/visit connecticut/visit new york/visit new jersey/visit pennsylvania/visit delaware/visit maryland/visit west virginia/visit virginia/visit north carolina/visit south carolina/visit georgia/visit florida/visit alabama/visit tennessee/visit kentucky/visit ohio/visit michigan/visit indiana/visit illinois/visit wisconsin/visit minnesota/visit iowa/visit missouri/visit arkansas/visit mississippi/visit louisiana/visit texas/visit oklahoma/visit kansas/visit nebraska/visit south dakota/visit north dakota/visit montana/visit wyoming/visit colorado/visit new mexico/visit arizona/visit utah/visit idaho/visit washington/visit oregon/visit nevada/visit california"

[end stuff]

chapter tables

table of abbrevs
state	abbr
Alabama	"AL"
Alaska	"AK"
Arizona	"AZ"
Arkansas	"AR"
California	"CA"
Colorado	"CO"
Connecticut	"CT"
Delaware	"DE"
florida	"FL"
georgia	"GA"
Hawaii	"HI"
Idaho	"ID"
Illinois	"IL"
Indiana	"IN"
Iowa	"IA"
Kansas	"KS"
Kentucky	"KY"
Louisiana	"LA"
Maine	"ME"
Maryland	"MD"
Massachusetts	"MA"
michigan	"MI"
minnesota	"MN"
mississippi	"MS"
missouri	"MO"
montana	"MT"
nebraska	"NE"
nevada	"NV"
New Hampshire	"NH"
new jersey	"NJ"
new mexico	"NM"
new york	"NY"
north carolina	"NC"
north dakota	"ND"
Ohio	"OH"
Oklahoma	"OK"
oregon	"OR"
pennsylvania	"PA"
rhode island	"RI"
south carolina	"SC"
South Dakota	"SD"
Tennessee	"TN"
Texas	"TX"
Utah	"UT"
Vermont	"VT"
Virginia	"VA"
Washington	"WA"
West Virginia	"WV"
Wisconsin	"WI"
Wyoming	"WY"

chapter map-mucking

to decide what text is (myst - a us-state) evaluated:
	if myst is visited:
		decide on "!!";
	choose row with state of myst in table of abbrevs;
	decide on abbr entry;

chapter the big text map

to say my-map:
	say "It's a beautiful map, hand-drawn by a former student. Text can't do it justice, but it's functional enough for your purposes:[line break][fixed letter spacing]";
	say "
[line break]                                                          +--+
[line break]                                                         /   |
[line break]                                                  +-----+ [Maine evaluated]/
[line break]                                                  |[Vermont evaluated]/[New Hampshire evaluated]|--/
[line break]                                                +-+  |  |
[line break]                                               /  +-----++
[line break]                                              /   |  [massachusetts evaluated]  |
[line break]+----+-+-------+-------+----+-\-+   +-+    +-/    +-----+|
[line break]| [washington evaluated] | \   [montana evaluated]  |  [north dakota evaluated]   | [minnesota evaluated]/   \ | /  ++  /   [new york evaluated]  |[connecticut evaluated]|[rhode island evaluated]++
[line break]+----+  \      +-------+   \ [wisconsin evaluated] \| |[michigan evaluated] | +-----+  |
[line break]| [oregon evaluated] | [idaho evaluated]-+----+  [south dakota evaluated]   +----+    | |   / + [pennsylvania evaluated]  +--++
[line break]+---++--+-+    +-------+ [iowa evaluated]  >---+-+-++--+     *[new jersey evaluated] |
[line break]|   |   | | [wyoming evaluated] |  [nebraska evaluated]   +----+    |[Indiana evaluated] |[ohio evaluated] +-+---**\ |
[line break]|   |   | |    |       |    |    |   /\-/[west virginia evaluated]+-[maryland evaluated]|  \|
[line break]|   |   | ++---++      |    | [illinois evaluated] +--+  + /[virginia evaluated] \/
[line break]|   |[nevada evaluated] |[utah evaluated]| [colorado evaluated] +------+ [missouri evaluated] |   /  [kentucky evaluated]  >+----+
[line break]| [California evaluated]|   |  |    | [kansas evaluated]   |     \ +------+   [north carolina evaluated] |
[line break]|   |   +--+----+------+ /--+-+  [tennessee evaluated]  / /---\/
[line break] \   \ ++  |    +--+ [oklahoma evaluated]+-[arkansas evaluated] +--+---++-+ [south carolina evaluated] /
[line break]  \   \| [arizona evaluated]| [new mexico evaluated] |  +---+   /   |   |   \  /
[line break]   \   |   |    |      +--+  [mississippi evaluated]|[alabama evaluated] | [georgia evaluated] \/
[line break]    +--+---+---++      |  +-+  |   |    |
[line break]                \      | [louisiana evaluated] |  | +-+----+
[line break]                 \ [texas evaluated]  +----+--+-+   [florida evaluated]  \
[line break]                  \   /          +----+   \
[line break]                   \ /                 \   |
[line break]                    +                   \  |
[line break]                                         | |
[line break]                                         +-+
[paragraph break]";
	say "[variable letter spacing](Note: the Northeast is not to scale because it is crowded. Delaware is the group of three asterisks. )";