story.ni

"Flexible Survival" by Nuku Valente

Book 0 - Pre game prep stuff

Release along with an interpreter.
Use memory economy.
Use slow route-finding.
[ The following adjust Informs compiler settings so that it allocates enough space. If these values are incorrect, inform will fail to compile.]
[ To determine if one of these is your issue, use the Errors tab in the inform 7 window. ]
Use MAX_INDIV_PROP_TABLE_SIZE of 500000.
Use MAX_PROP_TABLE_SIZE of 51000000.
use MAX_STATIC_DATA of 12500000.
Use MAX_OBJ_PROP_COUNT of 1280.
use MAX_SYMBOLS of 13000000. ["Compiler finished with code 10"]
use MAX_NUM_STATIC_STRINGS of 270000. [ Code 10 ]
use SYMBOLS_CHUNK_SIZE of 250000. [ Code 10 ]
use ALLOC_CHUNK_SIZE of 1450000.
use MAX_OBJECTS of 2000.
use MAX_ACTIONS of 2000.
use MAX_VERBS of 2000.
use MAX_VERBSPACE of 50000.
use MAX_ARRAYS of 100000.
Use MAX_ZCODE_SIZE of 1000000.
Use MAX_DICT_ENTRIES OF 5000.
Use maximum text length of at least 2000.
Use Scoring.
[ End compiler settings. ]

[To decide which number is the absolute value of (N - a number):
	if N < 0:
		let N be 0 minus N;
	decide on N.] [enable this to compile on older versions of inform]

[ Basic Functions moved to Basic Functions.i7x in Core Mechanics]

The release number is 65.
The story creation year is 2010.
The maximum score is 2500.


Include Version 4 of Menus by Emily Short.
Include Basic Help Menu by Emily Short.
Include Basic Screen Effects by Emily Short.
[Dependencies] [Important - must get loaded early here]
Include Glulx Entry Points by Emily Short.
Include Glulx Text Effects by Emily Short.
Include Simple Graphical Window by Emily Short.
[New Graphics Handler]
Include Graphics Director by Executaball.

instead of wearing something:
	try using it;
	stop the action;

Section Help Menu

Table of Basic Help Options (continued)
title	description
"Getting Started"	"Welcome to Flexible Survival! To get started with playing there are a few commands you need to know. [line break] In order to move around, you can use the compass directions (north, south, east, west, etc), move 'in' and 'out' of buildings, and 'nav' or 'navigate' between areas. [line break]  You can 'explore' the world to find events, monsters, and new areas, or 'hunt' for something specific. [line break] To interact with things around you, you can 'look', 'get', 'smell', 'fuck', 'talk' to, or 'drop' items. If you do pick things up, you can access you inventory with 'inv'.[line break]If you find yourself running low on food or water, you may need to 'scavenge' around the city."
"Hunting"	"You can hunt for specific creatures. Go to a place you can explore from, like the library.[line break]You there? Ok, now type [bold type]hunt (creature)[roman type].[line break]You are not assured success, but a critter is 3 times more likely to show up when actively looked for.[line break]You can also hunt for locations, if you know their name.[line break]Hunting for something doesn't require that you use the entire name, and can sometimes have multiple results, for example 'hunt dragon' in the park would hunt for both yamato dragon and yamato dragoness, but 'hunt dragoness' would only hunt for the yamato dragoness."
"Trading"	"You can trade with certain denizens of the city. Simple [bold type]give x to y[roman type], like give soda to bob. If they want it, they'll give you something back for it. Trades are final, but usually worth it."
"Scoring"	"Staying alive, making friends, and unearthing the mysteries of the city get you points. Losing battles saps points. See how high a score you can manage!"
"Items"	"You will come to have a variety of items. Here are some useful commands.[line break][line break]Item: See a list of items you own.[line break]look (item): Look at a specific item.[line break]use (item): Use an item[line break]get (item): grab a specific item.[line break]get all: get everything in the room.[line break]junk (item): destroy an item forever.[line break]drop (item): drop the item on the floor, so you can pick it up later."
"Weapons"	"Some items you find make good weapons! Be sure to [bold type]use (weapon)[roman type] before a battle to have them at hand."
"Graphics"	"Graphics can be enabled or disabled by typing [bold type]graphics[roman type]."
"Scavenging"	"Type [bold type]scavenge[roman type] in any room you can fast travel from to hunt for food and water."
"Socializing"	"You can [bold type]talk (person)[roman type] to chat. If they are of more personal interest with you, you can also [bold type]fuck (person)[roman type]"
"Ending Early"	"Type [bold type]end now[roman type] to cause the game to end early. Alternatively you can [bold type]give in[roman type] to the infection."
"Play On"	"You want to skip that ending? Go for it. Type [bold type]play on[roman type] and time will cease to be a concern. You will not get endings though."
"Wait Less"	"Tired of having to click more to continue much of the text?. Type [bold type]Waits Off[roman type] to skip many delays.[line break]Don't like the change and want to go back? Type [bold type]Waits On[roman type] to return to the default."
"Clear Less"	"Don't like the page clearing of text? Want the combat interface at the bottom of the screen? Type [bold type]Clears Off[roman type] to stop screen clearing.[line break]Don't like the change and want to go back? Type [bold type]Clears On[roman type] to return to the default."
"Auto Attack"	"If you have the [']Instinctive Combat['] feat you can use different automatic attacks. These are the same as picking the same option over and over again during combat. No different results, just less typing for faster gameplay.[line break]Type [bold type]auto attack normal[roman type] for the default method of combat (choose each action).[line break]Type [bold type]auto attack berserk[roman type] to always attack in combat.[line break]Type [bold type]auto attack pass[roman type] to always pass in combat.[line break]Type [bold type]auto attack coward[roman type] to always flee in combat.[line break]Type [bold type]auto attack submit[roman type] to always submit in combat."
"Contacting the author"	"If you have any difficulties with [story title], please contact me at: https://blog.flexiblesurvival.com/ ."
"Further Help"	"For further help and information, check out the wiki at: https://wiki.flexiblesurvival.com/w/Main_Page or join the Discord at: https://discord.gg/b54Mbkb ."
"Patron Credits"	"[patroncredits]"

To adjustdefaulthelp: [changes table from Basic Help Menu by Emily Short to better fit this game, without changing that extension, as it may be used by other games]
	now the title in row 2 of Table of Instruction Options is "What to do with >";
	now the description in row 2 of Table of Instruction Options is "The > sign is where the game says, 'Okay, what do you want to do now?' You may respond by typing an instruction -- usually an imperative verb, possibly followed by prepositions and objects. So, for instance, LOOK, LOOK AT FISH, TAKE FISH.";
	now the title in row 1 of Table of Basic Help Options is "Q to quit help, enter to select entry";
	now the description in row 1 of Table of Basic Help Options is "Use arrows to navigate the help menu.[line break]Enter selects the entry that is marked with the >[line break]Q will take you back one level of help, or leave the help system if your at the top.";

Include (-
[ YesOrNo i j;
	TEXT_TY_Say((+ yes or no message +));
	for (::) {
	#Ifdef TARGET_ZCODE;
	      if (location == nothing || parent(player) == nothing) read buffer parse;
	      else read buffer parse DrawStatusLine;
	      j = parse->1;
	      #Ifnot; ! TARGET_GLULX;
	      KeyboardPrimitive(buffer, parse);
	      j = parse-->0;
	      #Endif; ! TARGET_
	      if (j) { ! at least one word entered
			i = parse-->1;
			if (i == YES1__WD or YES2__WD or YES3__WD or '1//') rtrue;
			if (i == NO1__WD or NO2__WD or NO3__WD or '2//') rfalse;
	      }
		TEXT_TY_Say((+ yes or no message +));
		YES_OR_NO_QUESTION_INTERNAL_RM('A'); print "> ";
	}
];
[ YES_OR_NO_QUESTION_INTERNAL_R; ];
-) instead of "Yes/No Questions" in "Parser.i6t".

The yes or no message is a text that varies.[@Tag:NotSaved]
The yes or no message is "[link]yes[end link] or [link]no[end link]> [run paragraph on]".

playerinput is a snippet that varies.[@Tag:NotSaved]

To select an option from (curtable - a table name):
	while 1 is 1:
		repeat with y running from 1 to number of filled rows in curtable:
			choose row y from curtable;
			say "[link][y] - [title entry][as][y][end link][line break]";
		say "Type the number corresponding to the choice you want> [run paragraph on]";
		get a number;
		if calcnumber > 0 and calcnumber <= the number of filled rows in curtable:
			now current menu selection is calcnumber;
			choose row calcnumber from curtable;
			follow the toggle entry;
			break;
		else:
			say "Invalid Selection.";

To get typed command as (S - a snippet): (-
	KeyboardPrimitive(buffer, parse);
	{S} = 100 + WordCount();  -)

To get next key as (S - a snippet): (-
	{S} = VM_KeyChar();  -)

Include (-

[ Serial s;
	for (s=0 : s<6 : s++) print (char) ROM_GAMESERIAL->s;
];

-)

To say serial number: (- Serial(); -).
[Added function for outputting FS serial number]

Book 1 - Variable Definitions

The file of flexiblestory is called "flexible1".

monster is a number that varies.[@Tag:NotSaved]
The player has text called name. The name of player is usually "Player".
A person has a number called Energy.
A person has a number called HP.
A person has a number called MaxHP.
A person has a number called XP.
A person has a number called Level.
A person has a number called Strength.
A person has a number called Dexterity.
A person has a number called Stamina.
A person has a number called Charisma.
A person has a number called Intelligence.
A person has a number called Perception.
A person has a number called Hunger.
A person has a number called Thirst.
A person has a number called Morale.
A person has a number called Lust.
A person has a number called Loyalty.
A person has a number called Humanity.
A person has a number called Hunger.
A person has a number called cocks.
A person has a number called testes.
A person has a number called Testicle Size.
A person has a number called breasts.
A person has a number called Breast Size.
A person has a number called cunts.
A person has a number called Cock length.
A person has a number called Cock Width.
A person has a number called Cunt length.
A person has a number called Cunt width.
A person has a number called armor.
A person has a number called capacity.
A person has a number called libido.
A person has a text called linkaction.
A person has a number called SleepRhythm. [day/night bias]

A person has text called Cock Size Desc.
A person has text called Cunt Size Desc.
A person has text called Breast Size Desc.
A person has text called Short Breast Size Desc.
A person has a truth state called PlayerMet. PlayerMet is usually false.
A person has a truth state called PlayerRomanced. PlayerRomanced is usually false.
[A person has a truth state called PlayerFriended. PlayerFriended is usually false.] [leave commented out until new infection system update]
[A person has a truth state called PlayerControlled. PlayerControlled is usually false.] [leave commented out until new infection system update]
A person has a truth state called PlayerFucked. PlayerFucked is usually false.
A person has a truth state called OralVirgin. OralVirgin is usually true.
A person has a truth state called Virgin. Virgin is usually true.
A person has a truth state called AnalVirgin. AnalVirgin is usually true.
[A person has a truth state called SexuallyExperienced. SexuallyExperienced is usually false.] [leave commented out until new infection system update]

The player has a text called bodydesc. The bodydesc is usually "[one of]average[or]normal[or]unchanged[at random]".	[adjective for body type/appearance]
The player has a text called bodytype. The bodytype is usually "Human".						[broad adjective for species]
The player has a text called skin. Skin is usually "smooth".
The player has a text called Cock. Cock is usually "[one of]normal[or]flesh-toned[or]uninfected[or]human[at random]".
The player has a text called face. Face is usually "charmingly human".
The player has a text called tail. tail is usually "".
The player has a text called body. Body is usually "charmingly human".
The player has a text called bodyname. Bodyname is usually "Human".
The player has a text called facename. Facename is usually "Human".
The player has a text called skinname. Skinname is usually "Human".
The player has a text called cockname. cockname is usually "Human".
The player has a text called tailname. Tailname is usually "Human".
The child has a text called bodyname. Bodyname is usually "Human".
The child has a text called facename. Facename is usually "Human".
The child has a text called skinname. Skinname is usually "Human".
The child has a text called cockname. cockname is usually "Human".
The child has a text called tailname. Tailname is usually "Human".
The player has a text called weapon. Weapon is usually "[one of]your quick wit[or]your fists[or]a quick kick[or]your body[or]some impromptu wrestling[or]an unarmed strike[at random]".
The player has a text called weapon type. Weapon type is usually "Melee".
A person has a number called Weapon damage. Weapon damage is usually 4.
A person has a list of text called conversation.

[See the BFandI extension for an explanation on these new variables.]
A person has a number called scalevalue. The scalevalue is usually 3.						[value for body size]
A person has a list of text called Traits.

freecred is a number that varies.
playon is a number that varies.
the player has a list of text called invent.
the player has a list of text called vials.
the player has a list of text called tapes.
the player has a list of text called OpenQuests.
the player has a list of text called CompletedQuests.
Rooms has a list of text called invent.
The player has a list of text called Feats.
The player has a list of text called EncounteredEnemies.
The player has a list of text called BlockList.
A person can be a trader.
Scenario is a text that varies.
Allobjs is a list of text that varies.[@NotSaved]
Grab Object is a kind of thing.
a grab object has a number called objsize. The objsize of grab object is usually 3.	[Used only for armaments and journal.]
things have a text called scent.
rooms have a text called scent.
The player has a grab object called weapon object. A weapon object is usually journal.
A armament is a kind of grab object.
A armament has a text called weapon.
A armament has a text called weapon type.
A armament has a number called Weapon Damage.
A armament has a number called hitbonus.	[Rare, usually magic]
An armament can be ranged or melee. An armament is usually melee.
Equipment is a kind of grab object.
Equipment can be equipped or not equipped. Equipment is usually not equipped.
Equipment can be cursed or not cursed. Equipment is usually not cursed. [can't take it off if cursed]
Equipment has a text called descmod. The descmod of equipment is usually "".
Equipment has a text called placement. The placement of equipment is usually "end".
Equipment has a text called slot. The slot of equipment is usually "".
Equipment has a truth state called taur-compatible. The taur-compatible of equipment is usually false.
Equipment has a number called size. The size of equipment is usually 3.
Equipment has a number called AC. The AC of equipment is usually 0.
Equipment has a number called effectiveness. The effectiveness of equipment is usually 0.
Equipment has a number called dodgebonus. The dodgebonus of equipment is usually 0.	[Rare, usually magic]
Equipment has a number called damagebonus. The damagebonus of equipment is usually 0.	[Rare, usually magic]
Equipment has a number called fleebonus. The fleebonus of equipment is usually 0.		[Usually a penalty]
A grab object can be temporary. A grab object is usually temporary.
A grab object can be fast. A grab object is usually not fast.
A grab object can be infectious.
A grab object can be milky. A grab object is usually not milky.
A grab object can be cum. A grab object is usually not cum.
A grab object has a truth state called plural. The plural of a grab object is usually false.
A grab object has a text called strain.
A grab object has a text called trade.
A grab object has a text called purified.
A grab object has a text called usedesc.
A grab object has a number called carried.
A grab object has a number called stashed.
Turns is a number that varies. Turns is 240.
Hardmode is a truth state that varies. Hardmode is usually false.
nohealmode is a truth state that varies. nohealmode is usually false.
blindmode is a truth state that varies. blindmode is usually false.
Levelwindow is a number that varies. Levelwindow is 3.
Lastjournaluse is a number that varies. Lastjournaluse is 248.
Targetturns is a number that varies.
Started is a number that varies.
Freefeats is a number that varies.
Lost is a number that varies.
showlocale is a truth state that varies. showlocale is usually true.
Child is a person.
The printed name of Child is "Child".
Child has a number called Gestation.
Child can be born. Child is not born.
Childrenfaces is a list of text that varies.
Childrenskins is a list of text that varies.
Childrenbodies is a list of text that varies.
NewGraphics is a truth state that varies. NewGraphics is usually true.
NewGraphicsInteger is a number that varies. NewGraphicsInteger is usually 2.
NewGraphicsDebugMode is a truth state that varies. NewGraphicsDebugMode is usually false.
NewGraphicsRatio is a number that varies. NewGraphicsRatio is usually 30.
NewGraphicsOpened is a truth state that varies. NewGraphicsOpened is usually false. [set to true for entire playthrough if graphics window opened - unless inline/disabled specified at start]
[For use with new safe restore]
RestoreMode is a truth state that varies. RestoreMode is usually false.

Table of GameCharacterIDs
object	name
child	"child"
yourself	"yourself"

A situation is a kind of thing.
A situation can be resolved or unresolved. A situation is usually unresolved.
A situation can be active or inactive. A situation is usually active.
A situation has a number called Resolution.
A situation has a situation called Prereq1.
A situation has a truth state called Prereq1ResolvedMandatory. Prereq1ResolvedMandatory of a situation is usually true.
A situation has a list of numbers called Prereq1Resolution. Prereq1Resolution is usually { 0 }.
A situation has a situation called Prereq2.
A situation has a truth state called Prereq2ResolvedMandatory. Prereq2ResolvedMandatory of a situation is usually true.
A situation has a list of numbers called Prereq2Resolution. Prereq2Resolution is usually { 0 }.
A situation has a situation called Prereq3.
A situation has a truth state called Prereq3ResolvedMandatory. Prereq3ResolvedMandatory of a situation is usually true.
A situation has a list of numbers called Prereq3Resolution. Prereq3Resolution is usually { 0 }.
A situation has an object called PrereqCompanion.
A situation has a text called sarea. The sarea of a situation is usually "Outside".
A situation has a number called level. The level of a situation is usually 0.
A situation has a number called minscore. The minscore of a situation is usually -2147483648.
A featset is a kind of thing.
inasituation is a truth state that varies. inasituation is normally false.

PlaceholderSituation is a situation. PlaceholderSituation is resolved. [needs to always be resolved]

instead of sniffing a situation:
	say "You can't see any such thing.";

instead of examining a situation:
	say "You can't see any such thing.";

Definition: A situation (called x) is available:
	if sarea of x is "Nowhere", no; [not findable through exploration/hunting]
	if x is inactive, no; [for banning]
	if x is resolved, no; [the player has played through these]
	if x is not PrereqComplete, no;
	if x is close:
		if score < minscore of x:
			no;
		else if hardmode is true:
			yes;
		else if the level of x < (the level of the player plus levelwindow plus 1):
			yes;
	no;

Definition: A situation (called x) is PrereqComplete:
	if PrereqCompanion of x is not nothing and PrereqCompanion of x is not companion of player, no;
	if Prereq1ResolvedMandatory of x is true and Prereq1 of x is not resolved, no;
	if Resolution of Prereq1 of x is not listed in Prereq1Resolution of x, no;
	if Prereq2ResolvedMandatory of x is true and Prereq2 of x is not resolved, no;
	if Resolution of Prereq2 of x is not listed in Prereq2Resolution of x, no;
	if Prereq3ResolvedMandatory of x is true and Prereq3 of x is not resolved, no;
	if Resolution of Prereq3 of x is not listed in Prereq3Resolution of x, no;
	yes;

Definition: A situation (called x) is close:
	if ( sarea of x exactly matches the text battleground, case insensitively ) or ( battleground is "Outside" and ( the sarea of x is "Allzones" or the sarea of x is "allzones" ) ):
		yes;
	no;

Definition: A scavevent (called x) is scavable:
	if ( sarea of x exactly matches the text battleground, case insensitively ) or ( sarea of x is "Allzones" or the sarea of x is "allzones" ):
		if score < minscore of x:
			no;
		else if hardmode is true:
			yes;
		else if the level of x < (the level of the player plus levelwindow plus 1):
			yes;
	no;

Definition: A grab object (called x) is wielded:
	if weapon object of player is x, yes;
	no;

Definition: A grab object (called x) is unwieldy:		[applies to armaments only]
	if grab object is journal, no;
	if the absolute value of ( scalevalue of player - objsize of x ) > 1, yes;
	no;

A person can be defaultnamed. A person is usually defaultnamed.

Definition: A person (called x) is defaultnamed:
	if name of player is "Player", yes;
	no;

A person can be submissive. A person is usually not submissive.

Definition: A person (called x) is submissive:
	if "Submissive" is listed in feats of x, yes;
	no;

A person can be dominant. A person is usually not dominant.

Definition: A person (called x) is dominant:
	if "Dominant" is listed in feats of x, yes;
	no;

A person can be kinky. A person is usually not kinky.

Definition: A person (called x) is kinky:
	if "Kinky" is listed in feats of x, yes;
	no;

A person can be twistcapped. A person is usually not twistcapped.

Definition: A person (called x) is twistcapped:
	if "Twisted Capacity" is listed in feats of x, yes;
	no;

A person can be MProN. A person is usually not MProN.

Definition: A person (called x) is MProN:
	if PronounSet of x is "Male", yes;
	no;

A person can be FProN. A person is usually not FProN.

Definition: A person (called x) is FProN:
	if PronounSet of x is "Female", yes;
	no;

A person can be HProN. A person is usually not HProN.

Definition: A person (called x) is HProN:
	if PronounSet of x is "Herm", yes;
	no;

A person can be NProN. A person is usually not NProN.

Definition: A person (called x) is NProN:
	if PronounSet of x is "Neuter", yes;
	no;

A person can be internal. A person is usually not internal.

internalbypass is a truth state that varies. internalbypass is usually false.

Definition: A person (called x) is internal:
	if cockname of x is listed in infections of internallist and internalbypass is false, yes;
	no;

a person can be knotted. a person is usually not knotted.

Definition: A person (called x) is knotted:
	if cockname of player is listed in infections of knotlist, yes;
	no;

a person can be barbed. a person is usually not barbed.

Definition: A person (called x) is barbed:
	if cockname of player is listed in infections of BarbedCocklist, yes;
	no;

a person can be flared. a person is usually not flared.

Definition: A person (called x) is flared:
	if cockname of player is listed in infections of Bluntlist, yes;
	no;

Definition: A person (called x) is perminfected:
	if ( JackalManTF > 0 or JackalBoyTF > 0 ) or nightmaretf > 0 or HellHoundlevel > 0 or ( wrcursestatus >= 7 and wrcursestatus < 100 ), yes;
	no;

Definition: A person (called x) is pure:
	if bodyname of x is facename of x:
		if bodyname of x is tailname of x:
			if bodyname of x is skinname of x:
				if bodyname of x is cockname of x:
					yes;
	no;

Definition: A person (called x) is purehuman:
	if bodyname of player is "Human" or bodyname of player is "Herm Human":
		if facename of player is "Human" or facename of player is "Herm Human":
			if tailname of player is "Human" or tailname of player is "Herm Human":
				if skinname of player is "Human" or skinname of player is "Herm Human":
					if cockname of player is "Human" or cockname of player is "Herm Human":
						yes;
	no;

Definition: A person (called x) is male:			[note: this is both male and herm]
	if cocks of x > 0, yes;

Definition: A person (called x) is puremale:
	if cocks of x > 0 and cunts of x is 0, yes;

Definition: A person (called x) is female:			[note: this is both female and herm]
	if cunts of x > 0, yes;

Definition: A person (called x) is purefemale:
	if cunts of x > 0 and cocks of x is 0, yes;

Definition: A person (called x) is herm:
	if cocks of x > 0 and cunts of x > 0, yes;

Definition: A person (called x) is neuter:
	if cocks of x is 0 and cunts of x is 0, yes;

A person can be booked. A person can be bunkered. A person is usually not booked. A person is usually not bunkered.

Definition: A person (Called x) is booked:
	If x is the player, no;
	If x is Trixie, no;
	if x is Velos, no;
	if the location of x is Grey Abbey Library, yes;
	if the location of x is Grey Abbey 2F, yes;
	if the location of x is Half-Renovated Room, yes;
	if the location of x is Breakroom, yes;
	if the location of x is Pantry, yes;
	if the location of x is Computer Lab, yes;
	if the location of x is Back Of The Library, yes;
	if the location of x is Makeshift Rec Room, yes;
	if the location of x is Courtyard, yes;
	if the location of x is Large Shed, yes;
	if the location of x is Garden, yes;
	if the location of x is Sitting Area, yes;
	if the location of x is Garden View, yes;
	if the location of x is Darkened Alcove, yes;
	if the location of x is Attic, yes;
	if x is Zoe:
		if "Saved" is listed in Traits of Zoe, yes;
			[if Rabbit Tagger is resolved,] [What is this?][ yes; ][Zoe is absent during the day, but we need the booked to be true for the room description.]
	no;

Definition: A person (Called x) is bunkered:
	If x is the player, no;
	if x is Velos, no;
	if the location of x is Bunker, yes;
	if the location of x is Communal Shower, yes;
	if the location of x is Underground Restroom, yes;
	if the location of x is Maintenance Closet, yes;
	no;

Definition: A person (called x) is CockFitsInPlayerPussy:
	if "Twisted Capacity" is listed in the feats of player, yes;
	if cock length of x > cunt length of player + 1, no; [some stretching allowed]
	yes;

Definition: A person (called x) is CuntFitsForPlayerCock:
	if cock length of player > cunt length of x + 1, no; [some stretching allowed]
	yes;

Definition: A person (called x) is PlayerCumLoadInflates: [yes = inflation; can be adapted for any kind of inflation (egg, enema, etc.)]
	if ScaleValue of x is 1 and cock width of player >= 6, yes;
	if ScaleValue of x is 2 and cock width of player >= 12, yes;
	if ScaleValue of x is 3 and cock width of player >= 16, yes;
	if ScaleValue of x is 4 and cock width of player >= 25, yes;
	if cock width of player >= 32, yes;
	no;

Definition: A person (called x) is CumLoadInflatesPlayer: [yes = inflation; can be adapted for any kind of inflation (egg, enema, etc.)]
	if ScaleValue of player is 1 and cock width of x >= 6, yes;
	if ScaleValue of player is 2 and cock width of x >= 12, yes;
	if ScaleValue of player is 3 and cock width of x >= 16, yes;
	if ScaleValue of player is 4 and cock width of x >= 25, yes;
	if cock width of x >= 32, yes;
	no;

Definition: A person (called x) is barefoot:
	let FeetItem be a grab object;
	now FeetItem is journal;
	repeat with z running through equipped equipment:
		if slot of z is "feet":
			now FeetItem is z;
	if FeetItem is journal: [already naked]
		yes;
	else:
		no;

Definition: A person (called x) is barecrotch:
	let WaistItem be a grab object;
	now WaistItem is journal;
	let CrotchItem be a grab object;
	now CrotchItem is journal;
	repeat with z running through equipped equipment:
		if slot of z is "waist":
			now WaistItem is z;
	repeat with z running through equipped equipment:
		if slot of z is "crotch":
			now CrotchItem is z;
	if WaistItem is journal and CrotchItem is journal: [already naked]
		yes;
	else:
		no;

Definition: A person (called x) is barechest:
	let ChestItem be a grab object;
	now ChestItem is journal;
	let BodyItem be a grab object;
	now BodyItem is journal;
	repeat with z running through equipped equipment:
		if slot of z is "chest":
			now ChestItem is z;
	repeat with z running through equipped equipment:
		if slot of z is "Body":
			now BodyItem is z;
	if ChestItem is journal and BodyItem is journal: [already naked]
		yes;
	else:
		no;

Definition: A person (called x) is naked:
	if x is barecrotch and x is barechest and x is barefoot:
		yes;
	else:
		no;

A thing can be rooted in place. A thing is usually not rooted in place.
A thing can be restful. A thing is usually not restful.
A door can be dangerous.
A door has a text called marea.
A room can be known or unknown. A room is usually unknown.
A room can be fasttravel. A room is usually not fasttravel.
A room can be private. A room is usually not private.
A room can be sleepsafe. A room is usually not sleepsafe.
A room has a text called earea. earea is usually "void". [exploration area]
The player is wearing a watch.
The player is wearing a backpack. The description of the backpack is "A backpack, full of stuff. To look inside, type [bold type]item[roman type] To look at an item, type [bold type]look (item name)[roman type] To use an item, type [bold type]use (item name)[roman type]. Do you see something in the room you want to take with you? Type [bold type]grab (item name)[roman type] to snatch it up.".

instead of examining a grab object (called x):
	say "[the desc corresponding to a object of x in the table of game objects]";
	if "Weaponsmaster" is listed in feats of player and x is an armament:
		say "     Looking over the weapon with your expert knowledge, you assess it to be a [weapon damage of x] damage weapon.";

Does the player mean examining a situation: it is very unlikely.


Section Starting Variables

[ See the Core Mechanics/Presets.i7x file for personalizing your defaults. ]

[
startgenderchoice is a number that varies.[@Tag:NotSaved]
startstatbonus is a number that varies.[@Tag:NotSaved]
startscenariochoice is a number that varies.[@Tag:NotSaved]
]
gsms is a number that varies.			[main stat]
gspg is a number that varies.			[player gender]
gsgt is a number that varies.			[game type]
gshm is a truth state that varies.		[hard mode on/off]
gsnhm is a truth state that varies.		[no-heal mode on/off]
gsbm is a truth state that varies.		[blind mode on/off]
gsexit is a number that varies. gsexit is usually 0.
freefeatgeneral is a text that varies.
freefeatfun is a text that varies.
hypernull is a number that varies.
anallevel is a number that varies.
WSlevel is a number that varies.
vorelevel is a number that varies.
UBlevel is a number that varies.
ovipreglevel is a number that varies.
ovipregnant is a truth state that varies. ovipregnant is usually false.		[marks if ovi-pregnant now]
ovipregalways is a truth state that varies. ovipregalways is usually false.	[marks if allowed to pick always ovi]

Book 2 - Places
[ Moved to Basic Locations.i7x in Core Mechanics ]

Part 2 - Things

The cot is rooted in place. The cot is restful.

Section - Vending Machine

To add (item - a text) to invent of player:
	repeat with x running through grab objects:
		if the printed name of x matches the text item:
			increase carried of x by 1;
			break;

To add (item - a text) to the invent of player:
	repeat with x running through grab objects:
		if the printed name of x matches the text item:
			increase carried of x by 1;
			break;

To add (item - a text) to the invent of the player:
	repeat with x running through grab objects:
		if the printed name of x matches the text item:
			increase carried of x by 1;
			break;

To add (item - a text) to invent of the player:
	repeat with x running through grab objects:
		if the printed name of x matches the text item:
			increase carried of x by 1;
			break;

To remove (item - a text) from invent of player:
	repeat with x running through grab objects:
		if the printed name of x matches the text item:
			now carried of x is 0;
			break;

To remove (item - a text) from the invent of player:
	repeat with x running through grab objects:
		if the printed name of x matches the text item:
			now carried of x is 0;
			break;

To remove (item - a text) from the invent of the player:
	repeat with x running through grab objects:
		if the printed name of x matches the text item:
			now carried of x is 0;
			break;

To remove (item - a text) from invent of the player:
	repeat with x running through grab objects:
		if the printed name of x matches the text item:
			now carried of x is 0;
			break;

To decide which number is numeric/numerical value of (T - indexed text):
	let S be 1;
	let L be the number of characters in T;
	if L is 0, decide on 0;
	let negated be false;
	if character number 1 in T is "-" begin;
		let negated be true;
		let S be 2;
	end if;
	let result be 0;
	repeat with N running from S to L begin;
		let C be character number N in T;
		let D be 0;
		if C is "1" begin; let D be 1; else if C is "2"; let D be 2;
		else if C is "3"; let D be 3; else if C is "4"; let D be 4;
		else if C is "5"; let D be 5; else if C is "6"; let D be 6;
		else if C is "7"; let D be 7; else if C is "8"; let D be 8;
		else if C is "9"; let D be 9; else if C is "0"; let D be 0;
		else; decide on 0; end if;
		let result be (result * 10) + D;
	end repeat;
	if negated is true, let result be 0 - result;
	decide on result.

There is a Cola Vending Machine in Mall Foodcourt. "A broken down vending machine lurks nearby with several, large, soda brands brightly painted onto it." It is fixed in place. It has a description "A vending machine. It appears to dispense soda, but it's broken.".
Cola Vending Machine has a number called dispensed.
understand "vending machine" as Cola Vending machine.

Vending is an action applying to one thing.
understand "use [cola vending machine]" as vending.

Carry out vending:
	say "It's broken! Damn. All that soda. How to get it out?";

Instead of attacking the Cola Vending machine:
	say "You give the soda machine a solid whack, ";
	let the bonus be (( the strength of the player minus 10 ) divided by 2);
	let the dice be a random number from 1 to 20;
	say "You roll 1d20([dice])+[bonus] -- [dice plus bonus]: ";
	increase dice by bonus;
	if dice > 15:
		say "A soda can pops out!";
		add "soda" to invent of player;
		increase score by 1;
		increase dispensed of cola vending machine by 1;
	else:
		say "Nothing happens...";
	if ( a random chance of 5 in 100 succeeds ) or dispensed of noun > 9:
		say "The machine gives a final spark of defeat. You are certain there is no more soda to be had.";
		now Cola Vending Machine is nowhere;


Book 3 - Definitions

Definition: a direction (called D) is valid if the room D from the location of the player is a room.
Definition: A grab object (called D) is owned:
	if there is a name corresponding to a object of d in the table of game objects:
		if the carried of d > 0, yes;
	no;

Definition: A grab object (called D) is stored:
	if there is a name corresponding to a object of d in the table of game objects:
		if the stashed of d > 0, yes;
	no;

Definition: A grab object (called D) is present:
	if there is a name corresponding to a object of d in the table of game objects:
		if the name corresponding to a object of d in the table of game objects is listed in the invent of the location of the player, yes;
	no;

before examining the grab object (called x):
	let good be 0;
	if x is owned, now good is 1;
	if x is present, now good is 1;
	if good is 0, say "I don't see any [x] around here..." instead;

[ ]

Book 5 - Tables

Table of Game Objects
name	desc	weight	object	sortname (indexed text)
"medkit"	"A small, white, plastic box with a red cross on it. It has all the things needed for basic medical needs on the go! Using it will restore a lot of HP, more with good intelligence."	3	medkit
"water bottle"	"A bottle of water. Good for slaking thirst."	1	water bottle
"dirty water"	"A bottle of contaminated water. Drinker beware."	1	dirty water
"food"	"Some food. Nothing fancy. Maybe a sandwich, or a husky girl leg, whatever happens to be handy."	2	food
"journal"	"A small, leather-clad book. Spending some time writing in it can help clear your thoughts and recenter your troubled mind."	2	journal
"pocketknife"	"Mighty big for a pocket knife, nice and solid too. Could be handy."	1	pocketknife
"chair"	"A metal folding chair that belongs in a food court. It could serve as a weapon in a pinch!"	10	chair
"gryphon milk"	"A small bottle filled with fluid taken from one of those gryphons. You are fairly certain drinking it would be a poor idea, but maybe there is a use for it?"	2	gryphon milk
"distilled milk"	"Some creature's milk boiled down to a concentrated, powdery, form? That can't be dangerous!"	1	distilled milk
"glob of goo"	"A small bottle of strange, neon colored, goop"	1	glob of goo
"soda"	"A can of some soda or another. Somehow, it is still cool to the touch"	1	soda
"chips"	"Not always literally potato chips, but any kind of junk food. Not the best food, but hey, edible."	1	chips
"cot"	"A folding cot. You could carry it around and [bold type]rest[roman type] anywhere!"	25	cot
"dog milk"	"A bottle of dog milk? Man you will take anything."	3	dog milk
"face mask"	"A basic filtered face mask. Maybe it will help? Probably not[first time]. You doubt it was designed with this madness in mind[only]."	3	face mask
[
"heuristic processor"	"A small electronic circuit. You've been told it's amazingly adaptive and can learn anything. Probably nonsense, but maybe you can find a use for it, somehow."	1	heuristic processor
"reprogramming device"	"An attempt by Dr. Mouse to build a device to reprogram the nanites. It's too bulky, and doesn't have the processing capacity to be of any use in the field. Perhaps you could find a way around those limitations?"	13	reprogramming device
"infection scanner"	"Upgraded Infection Monitor. Or it would have been, it's clearly not finished. It's missing any sort of display to show what it finds. Perhaps you could use it's scanner parts elsewhere?"	7	infection scanner
]

face mask is equipment. It is a part of the player. It is not temporary.
The descmod of face mask is "A filtered mask covers nose and mouth in a vain attempt to help. ".
The placement of face mask is "face".
journal is a grab object. It is a part of the player. It is not temporary. The carried of journal is 1.
journal has a number called hitbonus. hitbonus of journal is usually 0.
cot is a grab object. It is a part of the player. It is not temporary.
understand "Bed" as cot.
Understand "book" as journal.
medkit is a grab object. It is a part of the player. It is fast. It is not temporary.
dirty water is a grab object. It is a part of the player. The trade of dirty water is "chips".
understand "water" as dirty water.
water bottle is a grab object. It is a part of the player. The trade of water bottle is "chips".
Does the player mean using the dirty water: it is unlikely.
Does the player mean stashing the dirty water: it is unlikely.
Does the player mean retrieving the dirty water: it is unlikely.
dog milk is a grab object. It is a part of the player. it is milky.
soda is a grab object. It is a part of the player.
chips is a grab object. It is a part of the player.
glob of goo is a grab object. It is a part of the player. glob of Goo is infectious. The strain of glob of goo is "Goo Girl".
food is a grab object. It is a part of the player. The trade of food is "soda".
pocketknife is a armament. It is a part of the player. It has a weapon "[one of]your large knife[or]your blade[or]your trusty pocket knife[or]flashing steel[at random]". The weapon damage of pocketknife is 5. The weapon type of pocketknife is "Melee". It is not temporary. the objsize of pocketknife is 2.
understand "knife" as pocketknife.
chair is a armament. It is a part of the player. It has a weapon "[one of]a folding chair[or]your improvised weapon[or]that move you saw on WWE[or]a metal chair to the eyes[at random]". The weapon damage of chair is 5. The weapon type of chair is "Melee". It is not temporary. the objsize of chair is 4.
understand "seat" as chair.
gryphon milk is a grab object. It is a part of the player. Understand "milk" as gryphon milk. Gryphon milk is infectious. The strain of gryphon milk is "Hermaphrodite Gryphon". The trade of Gryphon Milk is "distilled milk". gryphon milk is milky.
distilled milk is a grab object. It is a part of the player. it is not milky.


The invent of the player is { "journal" }.

Table of Start Game
title	subtable	description	toggle
"Strength: [strength of player]"	--	"Your ability to exert force. Helps deal damage with melee weapons, and to carry heavy objects."	finish stats rule
"Dexterity: [Dexterity of player]"	--	"Speed, agility. Dexterity helps to land hits with melee weapons and avoid being hit in kind."	finish stats rule
"Stamina: [stamina of player]"	--	"Your ability to withstand punishment. Stamina also helps to resist the physical aspects of infection."	finish stats rule
"Charisma: [Charisma of player]"	--	"Your ability to exert social force. Deal with NPCs favorably, also helps resist mental aspects of infection."	finish stats rule
"Perception: [Perception of player]"	--	"Your ability to detect things. Also helps resist mental aspects of infection."	finish stats rule
"Intelligence: [Intelligence of player]"	--	"Your ability to logically compute things. Helps with activities that require 'book smarts'."	finish stats rule
["Reroll Stats"	--	"Randomize your stats. Do this as often as you want."	random stats rule]
"Select a Stat to gain [if started is 0]+5[else]+1[end if]"	--	"You are satisfied with your stats"	--
"Restore a save"	--	"Restore a save game!"	prerestore the game rule

This is the prerestore the game rule:
	decrease the menu depth by 1;
	try restoring the game;
	if maxHP of player is 0, try restarting the game;

Table of sex choice
title	subtable	description	toggle
"Man"	--	--	male choice rule
"Woman"	--	--	female choice rule

Table of Starting Location
title	subtable	description	toggle
"Bunker"	--	--	location choice rule
"Caught Outside"	--	--	location choice rule
"Rescuer Stranded"	--	--	location choice rule
"Forgotten"	--	--	location choice rule
"Researcher"	--	--	location choice rule
"Hard mode"	--	--	location choice rule


Table of Basic Combat
title	subtable	description	toggle
"Attack"	--	"Attack!!!"	player attack rule
"Item"	--	"Quick, where's my healing potion?!"	combat item rule
"Pass"	--	"Hey look, a distraction!"	combat pass rule
"Flee"	--	"Run away!!!"	flee rule
"Submit"	--	"Maybe it isn't so bad"	submit rule
"Throw Fight"	--	"Let them think they won."	throw combat rule

Table of combat items
title(indexed text)	subtable	description	toggle
"Nothing"	--	"Nothing here."	combat item rule
with 100 blank rows.

Table of gainable feats
title	subtable	description	toggle
"Nothing"	--	"Nothing here."	gainfeat rule
with 100 blank rows.


Table of Basic Actions
title	subtable	description	toggle
["Go Exploring"	--	"Go wandering the city and look for generally interesting things."	explore rule]
["Rest"	--	"Take a breather"	rest rule]
["Examine yourself"	--	--	Self examine rule]
"Help"	Table of Help	"Get some help on this madness!"
"Strength: [strength of player], Dexterity: [dexterity of player], Stamina: [stamina of player], Charisma: [Charisma of player], Perception: [perception of player], Intelligence: [intelligence of player]."	--	"Stats"	--
"Health: [HP of player]/[maxHP of player], Lust: [lust of player], Morale: [morale of player], Humanity: [Humanity of player]"	--	"More stats"	--
"Time Remaining: [( turns minus targetturns ) divided by 8] days, [(remainder after dividing ( turns minus targetturns ) by 8 ) times 3] hours, Score: [score]"	--	"Time until the game ends."	Turnpass rule

Table of Help
title	subtable	description	toggle
"Is this all?"	--	"Yep, more to come later, promise!"
"Exit"	--	"Previous Menu"	menu exit rule

Table of Random Critters
name	enemy title	enemy name	enemy type	attack	defeated	victory	desc	face	body	skin	tail	cock	face change	body change	skin change	ass change	cock change	str	dex	sta	per	int	cha	sex	HP	lev	wdam	area	cocks	cock length	cock width	breasts	breast size	male breast size	cunts	cunt length	cunt width	libido	loot	lootchance	scale (number)	body descriptor (text)	type (text)	magic (truth state)	resbypass (truth state)	non-infectious (truth state)	DayCycle	altcombat (text)	BannedStatus (truth state)
"Dragoness"	""	""	0	""	""	""	""	"reptilian snout and great teeth. Two horns spiral backwards over your"	"large and reptilian, covered in [skin of player] flesh. You are forced to all fours except for brief, awkward, moments. It reminds you of a dragon, if you had to guess."	"[one of]dull red[or]dull orange[or]lustrous blue[sticky random] scaled"	"You have a wide, tapered, dragon's tail with a spade at the tip."	"[one of]draconic[or]normally internal[or]reptilian[at random]"	"your face draws forward into a reptilian snout, covered in [skin of player] flesh."	"Your body grows to larger than human norm, becoming quadrupedal, with great spikes along your back. You look very much like a dragon."	"Your skin breaks out in large armored scales that rapidly spread over your body"	"Your spine tingles before it explosively expands backwards into a great, thick, tail with spikes along the top."	"Your cock tingles as it becomes draconic in shape, a vent forming to hold it within you."	20	10	12	12	12	12	"Female"	50	1	20	"Nowhere"	0	0	0	2	10	0	1	15	10	40	""	0	4	"[one of]monstrous[or]large[or]powerful[at random]"	"draconic"	false	false	false	1	"default"	false

understand the command "feed" as something new.

Definition: A person is fastlearning:
	if "Fast Learner" is listed in feats of player, yes;
	no;

To say level up needed:
	say "[if player is fastlearning][((level of player plus 1) times 8)][else][(level of player plus 1) times 10][end if]";

Table of Fancy Status
left	central	right
"Location: [the player's surroundings]"	"Time: [time of day] Lvl: [level of player]"	"HP:[HP of player]/[maxHP of player]"
"Freecred: [freecred]"	"Hunger: [hunger of player] Thirst: [thirst of player] Libido: [libido of player]"	"Score:[score]/[maximum score]"
"Sanity: [humanity of player]/100"	"Evac: [( turns minus targetturns ) divided by 8] d, [(remainder after dividing ( turns minus targetturns ) by 8 ) times 3] h[if number of entries in childrenfaces > 0]  Kids: [number of entries in childrenfaces][end if]"	"XP:[XP of player]/[level up needed]"
""	"[if NewGraphicsInteger is 0] [else]Current image artist: [ngraphics_currentartist][end if]"	""

to say exitlist:
	repeat with nam running through valid directions:
		say "[link][printed name of nam][end link] ";


Book 6 - Rules, Obey them!

Part 1 - Flags

[flag is a kind of thing.
A flag has a list of text called infections.
A flag has a list of situations called badspots.
A flag can be banned. A flag is usually not banned.
A flag can be warded. A flag is usually not warded.
Cockvore is a flag.
Furry is a flag.
Guy is a flag.
Girl is a flag.
Humorous is a flag.
Hermaphrodite is a flag.
Hellspawn is a flag.
Feral is a flag.
Transgender is a flag.
Incest is a flag.
Noncon is a flag.
Mindcontrol is a flag.
Vore is a flag.

when play begins:
	add { "Awesome tree", "Bottlenose Toy", "Cock Cannon", "Quilled Tousky" } to infections of humorous;
	add { "Ember Breeder", "Bear", "Black Equinoid", "Bovine", "Chinchilla", "Deer", "Doberman", "Ebonflame Drake", "Ewe", "Feline", "Female Husky", "Fruit Bat", "German Shepherd", "Harpy", "Herm Hyena", "Hermaphrodite Dolphin", "Hermaphrodite Gryphon", "Killer Whale", "Lizard Girl", "Painted Wolf Herm", "Pirate Shark", "Pit bull", "Platypus", "Ram", "Red Kangaroo", "Sea Otter", "Sewer Gator", "Shemale Smooth Collie", "Skunk", "Slut Rat", "Snow Bat", "Trash Coon", "Wildcat" } to infections of furry;
	add { "Bovine", "Cock Cannon", "Demon Brute", "Feline", "Felinoid", "Feral Mutt", "Feral Sea Dragon", "Fruit Bat", "German Shepherd", "Junkman", "Killer Whale", "Latex Fox", "Latex Wolf", "Liquidshifter", "Ram", "Platypus", "Quilled Tousky", "Sandman", "Sea Otter", "Skunk", "Tentacle Horror" } to infections of guy;
	add { "Ember Breeder", "Black Equinoid", "Deer", "Ebonflame Drake", "Herm Hyena", "Hermaphrodite Dolphin", "Hermaphrodite Gryphon", "Painted Wolf Herm", "Panther Taur", "Parasitic Plant", "Pirate Shark", "Sewer Gator", "Sea Otter", "Slut Rat", "Spidergirl", "Wildcat" } to infections of hermaphrodite;
	add { "Bear", "Bottlenose Toy", "Bovine", "City Sprite", "Doberman", "Ewe", "Feline", "Female Husky", "Feral Sea Dragoness", "Harpy", "Lizard Girl", "Mothgirl", "Red Kangaroo", "Sea Otter", "Skunk", "Spidergirl", "Tentacle Horror", "Trash Coon" } to infections of girl;
	add { "Bovine", "Behemoth", "Cerberus", "Ebonflame Dragator", "Ebonflame Whelp", "Feral Cheetah", "Feral Sea Dragon", "Feral Sea Dragoness", "Feral Gryphon", "Feral Shaft Beast", "Feral Wolf", "Flaming Lynx", "Friendship Pony", "Hydra Beast", "Latex Fox", "Latex Wolf", "Manticore", "Peculiar Dragon", "Pegasus", "Quilled Tousky", "Sabretooth", "Shadow Beast", "Sierrasaur", "Snake", "Wyvern", "Yamato Dragon", "Yamato Dragoness" } to infections of feral;
	add { "Demon Brute" } to infections of hellspawn;
	add { "Mothgirl", "Shemale Smooth Collie" } to infections of transgender;
]

[corollary]
marker is a kind of thing.
A marker has a list of text called infections.
Tailweapon is a marker.
when play begins:
	add { "Anthro Shaft Beast", "Dragon", "Dragoness", "Drone Wasp", "Ebonflame drake", "Ebonflame Dragator", "Ebonflame Whelp", "Hermaphrodite Dolphin", "Feral Sea Dragon", "Feral Sea Dragoness", "Feral Shaft Beast", "Killer Whale", "Lizard Girl", "Naga", "Pirate Shark", "Red Kangaroo", "Sewer Gator", "Skunk", "Spidergirl", "Wyvern", "Yamato Dragon", "Yamato Dragoness" } to infections of Tailweapon;

Felinelist is a marker. [list of feline infections]
when play begins:
	add { "Cheetah Woman", "Cougar", "Feline", "Felinoid", "Feral Cheetah", "Jaguar", "Leopardman", "Manticore", "Margay", "Ninja Cat", "Pantherherm", "Panther Taur", "Plush lion", "Rubber Puma", "Rubber tigress", "Sabretooth", "Siamese Cat", "Snow Bat", "Snow Leopard", "Sphinx", "Tiger", "Tigertaur", "Tigress Hooker", "Wildcat" } to infections of Felinelist;

Caninelist is a marker. [list of canine/lupine infections]
when play begins:
	add { "Alpha Husky", "Alpha Wolf", "Ember Breeder", "Cerberus", "Chocolate Lab", "Coyote", "Dalmatian", "Doberman", "Female Husky", "Feral Wolf", "German Shepherd", "Jackalboy", "Jackalman", "Latex Wolf", "Painted Wolf Herm", "Pit bull", "Retriever", "Shemale Smooth Collie", "Werewolf Costume", "Wolftaur", "Wrestling Wolf" } to infections of Caninelist;

Equinelist is a marker. [list of equine infections]
when play begins:
	add { "Black Equinoid", "Centaur Mare", "Centaur Stallion", "Horseman", "Mareslut", "Mutant Centaur", "Nightmare", "Pegasus", "Red Horse", "Stallionboi", "Unicorn", "Zebra" } to infections of Equinelist;

Vulpinelist is a marker. [list of vulpine infections]
when play begins:
	add { "Arctic fox", "Clockwork Fox", "Hermaphrodite Latex Vixen", "Kitsune", "Latex Fox", "Vixen Nurse", "Vulpogryph" } to infections of Vulpinelist;

Reptilelist is a marker. [list of reptiles/snakes/dragons/dinosaurs/etc... infections]
when play begins:
	add { "Dragon", "Dragoness", "Ebonflame Dragator", "Ebonflame drake", "Ebonflame Whelp", "Feral Sea Dragon", "Feral Sea Dragoness", "Horny Dragon", "Hydra Beast", "Lizard Girl", "Naga", "Reptaur", "Sewer Gator", "Sierrasaur", "Slutty Dragoness", "Snake", "Triceratops", "Wyvern", "Yamato Dragoness", "Yamato Dragoness" } to infections of Reptilelist;

Insectlist is a marker. [list of insectile/arachnid/bug infections]
when play begins:
	add { "Black Wasp", "Butterfly", "Drone Wasp", "Mothgirl", "Spidergirl", "Spidertaur" } to infections of Insectlist;

Plantlist is a marker. [list of plant infections]
when play begins:
	add { "Awesome tree", "Dryad", "Mushroom Men", "Parasitic Plant" } to infections of Plantlist;

Avianlist is a marker. [list of avian/bird infections]
when play begins:
	add { "Bald Eagle", "Bird of Paradise", "Fluffy Owl", "Harpy", "Hawkman", "Hermaphrodite Gryphon", "Peacock", "Quilled Tousky", "Siren", "Vulpogryph" } to infections of Avianlist;

Avianpredlist is a marker. [list of predatory avian/bird infections]
when play begins:
	add { "Bald Eagle", "Fluffy Owl", "Hawkman", "Hermaphrodite Gryphon" } to infections of Avianpredlist;

Rodentlist is a marker. [list of rodent infections]
when play begins:
	add { "Beaver", "Hyper Squirrel", "Slut Rat" } to infections of Rodentlist;

Latexlist is a marker. [list of infections w/latex/rubber/plastic skin]
when play begins:
	add { "Bottlenose Toy", "Hermaphrodite latex vixen", "Latex Fox", "Latex Mistress", "Latex Wolf", "Rubber Puma", "Rubber tigress" } to infections of Latexlist;

Slimelist is a marker. [list of slime infections]
when play begins:
	add { "Liquidshifter" } to infections of Slimelist;

Magicallist is a marker. [list of magic based infections]
when play begins:
	add { "Goblin", "Hydra Beast", "Mothgirl" } to infections of Magicallist;

Machinelist is a marker. [list of machine infections]
when play begins:
	add { "Junkman", "Wildcat" } to infections of Machinelist;

Humanishlist is a marker. [list of humanish infections]
when play begins:
	add { "Caveman", "Helot", "Spartan", "Viking" } to infections of Humanishlist;

TaurList is a marker. [list of tauric infections]
when play begins:
	add { "Centaur Mare", "Centaur Stallion", "Mutant Centaur", "Panther Taur", "Reptaur", "Skunk Taur", "Tigertaur", "Wolftaur" } to infections of TaurList;
[Note, this does not contain the special tauric version of the Skunkbeast Lord form, as that is conditional. It also does not include the Spidergirl and Spidertaur forms, as their genitals are located in the front where the human pelvis would be, and therefore would not match with scenes specifically designed for taur anatomy.]

NoLegList is a marker. [list of infections without legs]
when play begins:
	add { "Blue Gel", "Pink Gel", "Purple Gel" } to infections of NoLegList;

Knotlist is a marker. [list of infections w/knotted cock]
when play begins:
	add { "Alpha Husky", "Alpha Wolf", "Ember Breeder", "Arctic fox", "Black Wolf", "Cerberus", "Chocolate Lab", "Clockwork Fox", "Coyote", "Dalmatian", "Doberman", "Dracovixentaur", "Female Husky", "Fennec", "Feral Wolf", "Football Wolfman", "German Shepherd", "Hellhound", "Hermaphrodite Gryphon", "hermaphrodite latex vixen", "Herm Hyena", "Jackalboy", "Jackalman", "Kitsune", "Latex Fox", "Latex Wolf", "Painted Wolf Herm", "Pit bull", "Quilled Tousky", "Retriever", "Shemale Smooth Collie", "Vixen Nurse", "Vixentaur", "Vulpogryph", "Werewolf Costume", "Wolftaur", "Wrestling Wolf" } to infections of Knotlist;

Internallist is a marker. [list of infections w/internal male genitals]
when play begins:
	add { "Feral Sea Dragon", "Feral Sea Dragoness", "Hermaphrodite Dolphin", "Hydra Beast", "Naga", "Pirate Shark", "Sierrasaur", "Snake", "Yamato Dragon", "Yamato Dragoness", "Wyvern" } to infections of Internallist;

BarbedCocklist is a marker. [List of creatures with a barbed cock]
when play begins:
	add { "Anthro Shaft Beast", "Ember Breeder", "Catgirl", "Cheetah Woman", "Corota", "Cougar", "Ebonflame Dragator", "Ebonflame drake", "Ebonflame Whelp", "Feline Gymnast", "Felinoid", "Feral Cheetah", "Feral Gryphon", "Feral Shaft Beast", "Fire Elemental", "Jaguar Warrior", "Leopardman", "Manticore", "Margay", "Ninja Cat", "Pantherherm", "Panther Taur", "Plush lion", "Rubber tigress", "Sabretooth", "Shadow Beast", "Sphinx", "Snow Bat", "Tiger", "Tiger Cop", "Tigertaur", "Tigress Hooker", "Wildcat", "Rubber Puma" } to infections of BarbedCocklist;

Firebreathlist is a marker. [List of fire breathing creatures]
when play begins:
	add { "Dragontaur", "Dracovixentaur", "Ebonflame Dragator", "Ebonflame drake", "Ebonflame Whelp", "Feral Sea Dragoness", "Feral Sea Dragon", "Fire Sprite", "Fire Elemental", "Flaming Lynx", "Yamato Dragoness", "Yamato Dragon", "Wyvern" } to infections of Firebreathlist;

Bluntlist is a marker. [list of infections w/blunt cock]
when play begins:
	add { "Black Equinoid", "Centaur Mare", "Centaur Stallion", "Donkeyman", "Donkeywoman", "Friendship Pony", "Giraffe", "Horseman", "Mareslut", "Mutant Centaur", "Nightmare", "Palomino", "Pegasus", "Reindeer", "Sierrasaur", "Stallionboi", "Unicorn", "Zebra", "Wyvern" } to infections of Bluntlist;

Flightlist is a marker. [list of infections w/flight capability]
when play begins:
	add { "Bald Eagle", "Bird of Paradise", "Black Wasp", "Butterfly", "Dragontaur", "Dracovixentaur", "Drone Wasp", "Ebonflame Whelp", "Ebonflame Dragator", "Ebonflame drake", "Fire Sprite", "Fluffy Owl", "Hawkman", "Harpy", "Hermaphrodite Gryphon", "Mothgirl", "Fruit Bat", "Pegasus", "Reindeer", "Snow Bat", "Vulpogryph", "Yamato Dragon", "Yamato Dragoness", "Wyvern" } to infections of Flightlist;

Swimlist is a marker. [list of infections capable of swimming underwater]
when play begins:
	add { "Bottlenose Toy", "Feral Sea Dragon", "Feral Sea Dragoness", "Hermaphrodite Dolphin", "Killer Whale", "Pirate Shark", "Platypus", "Sea Otter", "Sewer Gator" } to infections of Swimlist;

Part 2 - Rules

First for constructing the status line (this is the bypass status line map rule):
	fill status bar with table of fancy status;

d18 is a number that varies.[@Tag:NotSaved]
descr is a text that varies.
sh-descr is a text that varies.
cupsize is an indexed text that varies. Cupsize is "ABCDEFGHIJKLMNOPQRSTUVWXYZ".
Lusting is a text that varies.

[ Hunting moved to Hunting.i7x in Core Mechanics ]

[ Fast Travel moved to Navigation.i7x in Core Mechanics ]

understand "vial [text]" as vialing.

Vialing is an action applying to one topic.

Researchbypass is a number that varies. Researchbypass is normally 0.

carry out vialing:
	let t be the topic understood;
	let target be text;
	let found be 0;
	let z be 1;
	let q be a topic;
	repeat with x running through vials of player:
		[now q is x;]
		if t in lower case is x in lower case:
			now target is x;
			now found is 1;
			break;
		increase z by 1;
	if found is 0:
		say "You don't seem to have any such vial.";
		continue the action;
	say "What harm could a terribly infectious bio-nanite be? Down the hatch!";
	now monster is 0;
	repeat with y running from 1 to number of filled rows in Table of Random Critters:
		choose row y in Table of Random Critters;
		if name entry exactly matches the text target, case insensitively:
			now monster is y;
			break;
	if monster is 0:
		say "ERROR: That creature infection ([target]) could not be found.";
		now monster is 1;
	else:
		choose row monster from the Table of Random Critters;
		now researchbypass is 1;
		if non-infectious entry is true:
			now non-infectious entry is false;
			infect target;
			now non-infectious entry is true;
		else:
			infect target;
		now researchbypass is 0;
		remove entry z from vials of player;

to deletevial (x - text):	[removes 1 vial of a given type from the player's inventory]
	let found be 0;
	let z be 0;
	repeat with y running through vials of player:
		increase z by 1;
		if x in lower case is y in lower case:
			now found is 1;
			break;
	if found is 0:
		say "Error - [x] - Expected vial not found.";
		stop the action;
	else:
		remove entry z from vials of player;

understand "vialdrop [text]" as vialdropping.

Vialdropping is an action applying to one topic.

Carry out vialdropping:
	let t be the topic understood;
	let target be text;
	let found be 0;
	let z be 1;
	let q be a topic;
	repeat with x running through vials of player:
		[now q is x;]
		if t in lower case is x in lower case:
			now target is x;
			now found is 1;
			break;
		increase z by 1;
	if found is 0:
		say "You don't seem to have any such vial.";
		continue the action;
	say "You chuck the [target] vial away.";
	remove entry z from vials of player;

understand "vialalldrop [text]" as vialalldropping.

Vialalldropping is an action applying to one topic.

Carry out vialalldropping:
	let t be the topic understood;
	let target be text;
	let found be 0;
	repeat with x running through vials of player:
		if t in lower case is x in lower case:
			now target is x;
			remove x from vials of player;
			now found is 1;
	if found is 0:
		say "You don't seem to have any such vial.";
	else:
		say "You chuck all your [target] vials away.";


[understand the command "set inventory columns" and "inventory columns" and "set inventory" and "set columns" as something new.]

settinginvcolumns is an action applying to nothing.

understand "set inventory columns" as settinginvcolumns.
understand "inventory columns" as settinginvcolumns.
understand "set inventory" as settinginvcolumns.
understand "set columns" as settinginvcolumns.

invcolumns is a number that varies. [invcolumns is usually 2. - set as part of Presets in Core Mechanics]

carry out settinginvcolumns:
	say "[set_invcolumns]";


understand the command "i" and "inv" and "inventory" as something new.

Inventorying is an action applying to nothing.

understand "item" as Inventorying.
understand "i" as Inventorying.
understand "inv" as Inventorying.
understand "inventory" as Inventorying.

invcolumns is a number that varies. invcolumns is usually 2.

does the player mean doing something with the medkit: it is very likely.

carry out Inventorying:
	if invcolumns < 1 or invcolumns > 4, now invcolumns is 2;
	sort invent of player;
	let dseed be 0;
[	let tempname be indexed text;
	repeat with x running from 1 to the number of rows in the table of game objects:
		choose row x in the table of game objects;
		now tempname is name entry in lower case;
		now sortname entry is tempname;
	sort the table of game objects in sortname order; ]
	let jblouse be 0;
	if demon seed is owned, now dseed is 1;
	if Janice's blouse is owned, now jblouse is 1;
	say "Peeking into your backpack, you see: [if the number of owned grab objects is 0]Nothing[else][line break][end if]";
	[apparently adding entries to a list is faster than looking for it, so we clear the previous item actions in one call]
	[now hyperlink list is {};]
	[these are the default item actions in front of the item name]
	let itemactions be {{"U", "use"}, {"L", "look"}, {"S", "smell"}, {"D", "drop"}, {"J", "junk"}, {"X", "junkall"}};
	if the number of owned grab objects > 0:
		say "[bold type][bracket]U[close bracket][roman type]se, [bold type][bracket]L[close bracket][roman type]ook, [bold type][bracket]S[close bracket][roman type]mell, [bold type][bracket]D[close bracket][roman type]rop, [bold type][bracket]J[close bracket][roman type]unk, [bold type][bracket]X[close bracket][roman type]Junkall, [if the number of trader in the location of the player > 0 or ( Ronda is visible and HP of Ronda is 0 and dseed is 1 ) or ( Kristen is visible and HP of Kristen is 10 and jblouse is 1 ) or ( Christy is visible and carried of super spicy sausage > 0 and HP of Christy > 1 and HP of Christy < 50 )][bold type][bracket]T[close bracket][roman type]rade, [end if][if the number of smither in the location of the player > 0][bold type][bracket]I[close bracket][roman type]mprove, [end if][bold type](*)[roman type] equipped/wielded, [bold type](+)[roman type] improved. ";
		let weight be 0;
		[5 more than in the original version, but therefore the indicators will not add to it anymore]
		let baseavailcolumns be a number;
		if invcolumns > 1:
			now baseavailcolumns is 20;
		else:
			now baseavailcolumns is 29;
		let owneditemindex be a number;
		[preparations, put all calculations here that would slow down the loop]
		[! for every "trade if" you have to add a corresponding "needstradechek if" here !]
		let needstradecheck be 0;
		if Ronda is visible and HP of Ronda is 0:
			now needstradecheck is 1;
		else if Xerxes is visible and lust of Xerxes is 2:
			now needstradecheck is 1;
		else if Helen is visible and lust of Helen is 2:
			now needstradecheck is 1;
		else if Kristen is visible and HP of Kristen is 10:
			now needstradecheck is 1;
		else if Christy is visible and HP of Christy > 1:
			now needstradecheck is 1;
		[generic trader check]
		let traderavailable be 0;
		let tradeguy be a person;
		if the number of trader in the location of the player > 0:
			now tradeguy is a random trader in the location of the player;
			let traderavailable be 1;
		[go through all the stuff]
		repeat with x running from 1 to the number of rows in the table of game objects:
			choose row x in the table of game objects;
			let ownedCount be carried of object entry;
			if ownedCount > 0:
				increase owneditemindex by 1;
				let itemname be name entry;
				[line feed or switch to next column]
				if (invcolumns is 1) or (remainder after dividing owneditemindex by invcolumns is 1):
					say "[line break]";
				else:
					say "  --  ";
				[new (old) linking without text capturing]
				say "[variable letter spacing]";
				if hypernull is not 1:
					repeat with itemaction running through itemactions:
						say "[invquicklink (itemname) for (itemaction)]";
				if needstradecheck is 1 and trade of object entry is empty:
					let notval be 0;
					[! for every if block here there has to be a corresponding if before the loop !]
					if Ronda is visible and HP of Ronda is 0 and itemname is "demon seed":
						say "[link][bracket][bold type]T[roman type][close bracket][as]give [itemname] to Ronda[end link]";
					if Xerxes is visible and lust of Xerxes is 2 and itemname is "awesome fruit":
						say "[link][bracket][bold type]T[roman type][close bracket][as]give [itemname] to Xerxes[end link]";
					if Helen is visible and lust of Helen is 2 and itemname is "awesomer fruit":
						say "[link][bracket][bold type]T[roman type][close bracket][as]give [itemname] to Helen[end link]";
					if Kristen is visible and HP of Kristen is 10 and itemname is "Janice's blouse":
						say "[link][bracket][bold type]T[roman type][close bracket][as]give [itemname] to Kristen[end link]";
					if Christy is visible and HP of Christy > 1 and HP of Christy < 50 and itemname is "super spicy sausage":
						say "[link][bracket][bold type]T[roman type][close bracket][as]give [itemname] to Christy[end link]";
				else if traderavailable is 1:
					say " [link][bracket][bold type]T[roman type][close bracket][as]give [itemname] to [tradeguy][end link]";
				if (((object entry is armament or (object entry is equipment and AC of object entry > 0 and effectiveness of object entry > 0)) and object entry is not improved) or the itemname is "nanite collector") and the number of smither in the location of the player > 0:
					say " [link][bracket][bold type]I[roman type][close bracket][as]upgrade [itemname][end link]";
				[get available columns, plus 6 to show the increase to the original value]
				let availcolumns be baseavailcolumns;
				[add use and improve indicators which will reduce the available width for the item name]
				let useindicator be "";
				if (object entry is wielded and object entry is armament) or (object entry is equipment and object entry is equipped):
					now useindicator is " (*)";
					now availcolumns is availcolumns minus 4;
				let improveindicator be "";
				if object entry is improved and ( object entry is armament or object entry is equipment ):
					now improveindicator is " (+)";
					now availcolumns is availcolumns minus 4;
				[print item name and indicators]
				say "[fixed letter spacing][itemname formatted to (availcolumns) characters][useindicator][improveindicator]";
				let weighttxt be text;
				let weightnum be weight entry times ownedCount;
				say " x[if ownedCount < 10] [end if][ownedCount]([if weightnum < 10] [end if][weightnum] lbs)";
				increase weight by weightnum;
		say "[line break]";
		say "[variable letter spacing]Total Weight: [weight]/[capacity of player] lbs. [if the player is overburdened]*OVERBURDENED*[line break][end if][line break]";
	if scenario is "Researcher" or nanitemeter > 0:
		say "(You may see your collection of vials using [link][bold type]vial inventory[roman type][end link] or [link][bold type]vinv[roman type][end link] for short.)";
	if the number of entries in tapes of player > 0:
		say "(You may see your collection of video tapes using [link][bold type]tape inventory[roman type][end link] or [link][bold type]tinv[roman type][end link] for short.)";
	say "(You can adjust the number of inventory columns with the command [link]set columns[end link].)";
	now invlinklistfilled is one;

[used to speed up link command lookup in between clears on the hyperlink list, because we know something about the list:
 the order of items is in all likelihood the same that we are now creating links in
]
lastinvfoundindex is a number that varies.
[another speed up: if we know that the link list is empty (or at least not filled with inventory links) we can skipping searching through it]
invlinklistfilled is a number that varies.
To say invquicklink (itemname - a text) for (itemaction - a list of text):
	let linkcommand be the substituted form of "[entry 2 of itemaction] [itemname]";
	let the invlinkindex be zero;
	if invlinklistfilled is zero:
		add linkcommand to hyperlink list;
		let invlinkindex be the number of entries of hyperlink list;
	else:
		if lastinvfoundindex > 0 and lastinvfoundindex <= number of entries of hyperlink list and linkcommand exactly matches the text entry (lastinvfoundindex) of the hyperlink list:
			now invlinkindex is lastinvfoundindex;
		else:
			repeat with linktext running through the hyperlink list:
				decrease invlinkindex by 1;
				if linkcommand is linktext:
					now invlinkindex is 0 - invlinkindex;
					break;
		if the invlinkindex <= 0:
			add linkcommand to hyperlink list;
			let invlinkindex be the number of entries of hyperlink list;
		else:
			now lastinvfoundindex is invlinkindex + 1;
	say "[set link (invlinkindex)][bracket][entry 1 of itemaction][close bracket][terminate link] ";

Definition: A grab object (called D) is fiveowned:
	let count be 0;
	if there is a name corresponding to a object of d in the table of game objects:
		if the carried of D > 4, yes;
	no;

[understand the command "vint" and "vial inventory" and "vial inv" and "vinv" as something new.]

VialInventorying is an action applying to nothing.

understand "vint" as VialInventorying.
understand "vinv" as VialInventorying.
understand "vial inventory" as VialInventorying.
understand "vial inv" as VialInventorying.

carry out VialInventorying:
	sort vials of player;
	if scenario is not "Researcher" and nanitemeter is 0:
		say "You don't possess anything of that nature.";
		continue the action;
	if the number of entries in vials of player is 0:
		say "Your collection of infection vials is empty.";
	if the number of entries in vials of player > 0:
		say "Type [bold type]vial <name>[roman type] to [bold type][bracket]U[close bracket][roman type]se a vial, [bold type]vialdrop <name>[roman type] to [bold type][bracket]D[close bracket][roman type]estroy a vial, [bold type]vialalldrop <name>[roman type] to [bold type][bracket]D[close bracket][roman type]estroy [bracket]A[close bracket]ll of a vial";
		if ( scenario is "Researcher" or nanitemeter > 0) and Larissa is visible:
			say " or [bold type]vialsell[roman type] to [bold type][bracket]S[close bracket][roman type]ell a vial";
		say ".";
		say "Your infection vial collection consists of:[line break]";
		let norepeat be a list of text;
		repeat with x running through vials of player:
			if x is listed in norepeat, next;
			add x to norepeat;
			let count be 0;
			repeat with z running through vials of player:
				if z is x, increase count by 1;
			say "[link][bracket][bold type]U[roman type][close bracket][as]vial [x][end link] ";
			say "[link][bracket][bold type]D[roman type][close bracket][as]vialdrop [x][end link] ";
			say "[link][bracket][bold type]DA[roman type][close bracket][as]vialalldrop [x][end link] ";
			if ( scenario is "Researcher" or nanitemeter > 0) and Larissa is visible:
				say "[link][bracket][bold type]S[roman type][close bracket][as]vialsell [x][end link] ";
			say "[X] x [count][line break]";


strongbacked is a number that varies.

definition: A person is overburdened:
	let weight be 0;
	if the number of owned grab objects > 0:
		repeat with x running from 1 to the number of rows in the table of game objects:
			choose row x in the table of game objects;
			if object entry is owned:
				let num be carried of object entry;
				increase weight by weight entry times num;
	if "Strong Back" is listed in feats of player and strongbacked is 0:
		now strongbacked is 1;
		increase capacity of player by 50;
	if weight > capacity of player, yes;
	no;

instead of examining a watch:
	say "Time Remaining: [( turns minus targetturns ) divided by 8] days, [(remainder after dividing ( turns minus targetturns ) by 8 ) times 3] hours, it is currently [time of day].";

Using is an action applying to one thing.

understand "dequip [owned grab object]" as using.
understand "take off [owned grab object]" as using.
understand "use [owned grab object]" as using.
understand "eat [owned grab object]" as using.
understand "drink [owned grab object]" as using.
understand "equip [owned grab object]" as using.
understand "hold [owned grab object]" as using.
understand "wield [owned grab object]" as using.
understand "write in [owned grab object]" as using.
understand "use cot" as resting.

Check using a grab object (called x):
	if hardmode is true and x is journal and (LastJournaluse minus 8) < turns:
		say "You can't use your [x] for another [(remainder after dividing (turns minus (LastJournaluse minus 8)) by 8 ) times 3] hours.";
		stop the action;
	continue the action;

Carry out using a grab object (called x):
	if x is owned:
		process x;
	else:
		say "You don't see any [x] in your backpack.";

[MassUsing is an action applying to a number and one thing.

Understand "use [number] [owned grab object]" as massusing.

Carry out massusing:
	repeat with z running from 1 to number:
		if second noun is owned:
			process second noun;
		else:
			say "You don't see any [second noun] in your backpack.";
]


Resolving is an action applying to one thing.

Carry out resolving a situation (called x):
	say "This situation has not been properly written!";

After resolving a situation:
	try looking;
	[follow the ngraphics_blank rule;]

to delete (x - a grab object):
	decrease the carried of x by 1;
	if carried of x < 0:
		now carried of x is 0;
		say "ERROR: There was no [x] to remove. Please report where this occurred.";

instead of waiting:
	follow the turnpass rule;

TimekeepingVar is a number that varies.

an everyturn rule:
	now TimekeepingVar is remainder after dividing turns by 8;

To say time of day:
	if TimekeepingVar is:
		-- 7:
			say "early morning";
		-- 6:
			say "mid morning";
		-- 5:
			say "noon";
		-- 4:
			say "mid afternoon";
		-- 3:
			say "evening";
		-- 2:
			say "early night";
		-- 1:
			say "midnight";
		-- 0:
			say "pre dawn";
		-- -1:
			say "early morning";
		-- -2:
			say "mid morning";
		-- -3:
			say "noon";
		-- -4:
			say "mid afternoon";
		-- -5:
			say "evening";
		-- -6:
			say "early night";
		-- -7:
			say "midnight";
		-- -8:
			say "pre dawn";

To say short time of day:
	if TimekeepingVar is:
		-- 7:
			say "morning";
		-- 6:
			say "morning";
		-- 5:
			say "day";
		-- 4:
			say "afternoon";
		-- 3:
			say "evening";
		-- 2:
			say "evening";
		-- 1:
			say "evening";
		-- 0:
			say "evening";
		-- -1:
			say "evening";
		-- -2:
			say "evening";
		-- -3:
			say "day";
		-- -4:
			say "afternoon";
		-- -5:
			say "evening";
		-- -6:
			say "evening";
		-- -7:
			say "evening";
		-- -8:
			say "evening";

daytimer is a thing.
daytimer can be day or night. [daytimer is normally true.	[True/False variable for to indicate if day or night] ]

definition: Daytimer is day:
	if remainder after dividing turns by 8 > 3 or ( remainder after dividing turns by 8 < 0 and remainder after dividing turns by 8 > -5 ):
		yes;
	else:
		no;

definition: Daytimer is night:
	if remainder after dividing turns by 8 > 3 or ( remainder after dividing turns by 8 < 0 and remainder after dividing turns by 8 > -5 ):
		no;
	else:
		yes;

LastTurnDay is a truth state that varies.

an everyturn rule:
	if daytimer is day: [currently day]
		if LastTurnDay is false: [last turn was night]
			say "[bold type]The sun rises over the city.[roman type][line break]";
		now LastTurnDay is true;
		if WerewolfWatching is true: [she's only out at night]
			now WerewolfWatching is false;
	else if daytimer is night: [currently night]
		if LastTurnDay is true: [last turn was day]
			say "[bold type]The sun sets and darkness covers the city.[roman type][line break]";
		now LastTurnDay is false;
		if player is in Urban Forest and WerewolfRelationship is 0:
			if WerewolfWatching is false: [initial message]
				say "     Here between the untamed trees of the Urban Forest, the shadows seem especially deep and seem to play tricks on your eyes. Every little movement of branches and leaves draws your gaze, and the ominous feeling of being watched fills you with tension. The sensation of something's predatory gaze resing on you can't be all in your head, can it?";
				now WerewolfWatching is true;
			else: [repeat message for following turns]
				if a random chance of 1 in 3 succeeds:
					say "     You [italic type]still[roman type] can't shake the feeling that something is watching you. A cold shiver runs down your back.";
		else:
			now WerewolfWatching is false;

to guesstimate time at (x - a number):
	if x < 0:
		say "ERROR: Negative time period.";
	else if x is 0:
		say "under three hour";
	else if x <= 10:
		say "[x * 3] hours"; [up to 30 hrs]
	else if x <= 14:
		say "a day and a half or so"; [up to 42 hrs]
	else if x <= 18:
		say "two days or so"; [up to 54 hrs]
	else if x <= 22:
		say "two and a half days or so"; [up to 66 hrs]
	else if x <= 28:
		say "three days or so"; [up to 84 hrs]
	else:
		say "[( x / 8 )] days";


To Extend game by (x - a number):
	decrease targetturns by x;
	say "[bold type]((You have earned additional time: [x divided by 8] days, [(remainder after dividing x by 8) times 3] hours))[roman type]";


To process (x - a grab object):
	if x is temporary and x is owned:
		say "You eagerly use the [x]!";
		let found be 0;
		let num be 0;
		delete x;
	else:
		say "You use the [x].";
	if usedesc of x is empty:
		now x is x;
	else:
		say "[usedesc of x]";
	if x is food:
		if "Junk Food Junky" is listed in feats of player:
			if hunger of player > 8:
				increase score by 2;
			PlayerEat 9;
			say "You eat the food, feeling a little disappointed it's not junk food!";
			if morale of player < 0:
				increase morale of player by 10;
				if morale of player > 0, now morale of player is 0;
				say "You feel a little better having eaten some boring food.";
		else:
			if hunger of player > 11:
				increase score by 4;
			PlayerEat 12;
			say "You feel less hungry after wolfing down some food, yum!";
			if morale of player < 0:
				increase morale of player by 30;
				if morale of player > 0, now morale of player is 0;
				say "You feel better having eaten.";
	if x is chips:
		if labhost > 0 and bodyname of player is "Chocolate Lab" and a random chance of labhost in 4 succeeds:
			say "[line break]     As you begin unwrapping your snack a powerful rumbling begins in your stomach, you release a low groan as the churning inside your body increases, the [if labhost is 2]labs[else]lab[end if] clearly excited about something. There is a sudden pressure at your chest as your feel the churning begin to focus at a single point, before you have a chance to react, or even realize what's happening, a canine snout pushes out of your chocolaty chest, grabbing the [one of]chocolate bar[or]chocolate[or]M&Ms[at random] from your hand and swallowing it whole. You stand there shocked for a moment as the lab spits up the chewed remains of your treat's wrapper before releasing a happy bark and receding into your body. Dissappointed at the loss of your snack, you release a heavy sigh and continue on your way.";
		else if "Junk Food Junky" is listed in feats of player:
			if hunger of player > 14:
				increase score by 5;
			PlayerEat 15;
			say "Snack time! You wolf down some [one of]potato chips[or]somehow still warm fries[or]Doritos[or]trail mix[or]M&Ms[or]hard candy[at random] with delight. YUM!";
			if morale of player < 0:
				increase morale of player by 36;
				if morale of player > 0, now morale of player is 0;
				say "You feel much better after having a snack.";
			increase morale of player by 1;
		else:
			if hunger of player > 5:
				increase score by 2;
			PlayerEat 6;
			say "You feel less hungry after wolfing down some [one of]potato chips[or]somehow still warm fries[or]Doritos[or]trail mix[or]M&Ms[or]hard candy[at random], yum!";
			if morale of player < 0:
				increase morale of player by 15;
				if morale of player > 0, now morale of player is 0;
				say "You feel better having eaten.";
	if x is glob of goo:
		if hunger of player > 5:
			increase score by 2;
		PlayerEat 6;
		say "You slurp up the neon colored goo and find that it tastes delicious, and even helps slake your hunger somewhat as you chew at it, mmm...";
		if morale of player < 0:
			increase morale of player by 15;
			if morale of player > 0, now morale of player is 0;
			say "You feel better having eaten.";
	if x is water bottle:
		if "Junk Food Junky" is listed in feats of player:
			if thirst of player > 0:
				increase score by thirst of player divided by 3;
				if thirst of player > 15:
					decrease score by ( thirst of player minus 15 ) divided by 3;
			PlayerDrink 15;
			say "You feel a little less thirty after drinking some bland water!";
			if morale of player < 0:
				increase morale of player by 20;
				if morale of player > 0, now morale of player is 0;
				say "After drinking something, you feel a little better.";
		else:
			if thirst of player > 0:
				increase score by thirst of player divided by 3;
				if thirst of player > 25:
					decrease score by ( thirst of player minus 25 ) divided by 3;
			PlayerDrink 25;
			say "You feel less thirsty after guzzling some water, yum!";
			if morale of player < 0:
				increase morale of player by 62;
				if morale of player > 0, now morale of player is 0;
				say "After drinking something, you feel better.";
	if x is dirty water:
		if "Junk Food Junky" is listed in feats of player:
			if thirst of player > 0:
				increase score by thirst of player divided by 3;
				if thirst of player > 15:
					decrease score by ( thirst of player minus 15 ) divided by 3;
			PlayerDrink 15;
			say "You feel a little less thirty after drinking some bland water!";
			if morale of player < 0:
				increase morale of player by 20;
				if morale of player > 0, now morale of player is 0;
				say "After drinking something, you feel a little better.";
		else:
			if thirst of player > 0:
				increase score by thirst of player divided by 3;
				if thirst of player > 25:
					decrease score by ( thirst of player minus 25 ) divided by 3;
			PlayerDrink 25;
			say "You feel less thirsty after guzzling some water, yum!";
			if morale of player < 0:
				increase morale of player by 62;
				if morale of player > 0, now morale of player is 0;
				say "After drinking something, you feel better.";
		if "Iron Stomach" is not listed in feats of player:
			let RandomRow be a random number from 1 to the number of rows in the Table of Random Critters;
			choose row RandomRow from the Table of Random Critters;
			while area entry is "Nowhere": [runs circles until it finds an available creature]
				now RandomRow is a random number from 1 to the number of rows in the Table of Random Critters;
				choose row RandomRow from the Table of Random Critters;
			infect name entry;
	if x is soda:
		if "Junk Food Junky" is listed in feats of player:
			if thirst of player > 0:
				increase score by thirst of player divided by 3;
				if thirst of player > 30:
					decrease score by ( thirst of player minus 30 ) divided by 3;
			PlayerDrink 30;
			say "Awesome! Soda! You down the delicious can of [if player is sugarbodied][one of]cola[or]Dr Pibbston[or]Mountain Don't[or]Burkes['] root beer[at random][else][one of]lemon lime[or]strawberry[or]Dr Pibbston[or]cola[or]orange[or]ginger ale[at random][end if]. YUM!";
			if morale of player < 0:
				increase morale of player by 75;
				if morale of player > 0, now morale of player is 0;
				say "You feel much better having had a soda.";
			increase morale of player by 1;
		else:
			if thirst of player > 0:
				increase score by thirst of player divided by 3;
				if thirst of player > 12:
					decrease score by ( thirst of player minus 12 ) divided by 3;
			PlayerDrink 12;
			say "You feel less thirsty after guzzling some soda, [if player is sugarbodied][one of]cola[or]Dr Pibbston[or]Mountain Don't[or]Burkes['] root beer[at random][else][one of]lemon lime[or]strawberry[or]Dr Pibbston[or]cola[or]orange[or]ginger ale[at random][end if] yum!";
			if morale of player < 0:
				increase morale of player by 30;
				if morale of player > 0, now morale of player is 0;
				say "You feel better having drunken something.";
		sfsodadrink;
	if x is gryphon milk:
		say "The milk is thick, like a shake, but warmer, flowing down your throat in sweet creamy waves that send tingles of pleasure through your body as you guzzle it down. Only after you've drunk it all down do you notice that some has run down your chin in your excitement. That is some good milk!";
		PlayerDrink 15;
	if x is dog milk:
		say "Somehow still warm, you guzzle it down without thinking too hard about its origins. A prickly warmth fills your belly as the cream flows along your gullet.";
		PlayerDrink 15;
		repeat with Z running from 1 to number of filled rows in Table of Random Critters:
			choose row Z from the Table of Random Critters;
			let zed be "collie";
			if name entry exactly matches the text zed, case insensitively:
				now monster is Z;
				break;
		if "Iron Stomach" is not listed in feats of player, follow the sex change rule;
	if x is distilled milk:
		say "Ugh, dry milk. It takes some effort to force the almost sickeningly sweet powder down your throat, but once it hits your belly, your body is wracked with powerful waves of alternating lust and breathlessness.";
		increase thirst of player by 5;
		grow breasts by 3;
		say "[line break]";
	if x is infectious and "Iron Stomach" is not listed in feats of player:
		let found be 0;
		repeat with y running from 1 to number of filled rows in Table of Random Critters:
			choose row y in Table of Random Critters;
			if name entry is strain of x:
				now monster is y;
				now found is 1;
				break;
		if found is 1, infect;
	if x is a journal:
		follow the brain descr rule;
		say "You settle down and start scribbling in your journal about your [descr]. ";
		if the humanity of player < 100:
			let healed be 10 + ( ( level of player + perception of player - 10 ) / 2 );
			if caffeinehigh of player > 0:
				now healed is healed / 2;
				say " Filled with excess, manic energy, you have difficulty sitting still and focusing on your journal. ";
			if ssmb is true:
				now healed is ( healed * 3 ) / 2;
			increase humanity of player by healed;
			if humanity of player > 100:
				decrease healed by humanity of player minus 100;
				now humanity of player is 100;
			say "([humanity of player]/100).";
			now Lastjournaluse is turns;
		follow turnpass rule;
	if x is a armament:
		if weapon of player is weapon of x:		[unequip]
			now weapon of player is "[one of]your quick wit[or]your fists[or]a quick kick[or]your body[or]some impromptu wrestling[or]an unarmed strike[at random]";
			now weapon damage of player is 4;
			now weapon type of player is "Melee";
			now weapon object of player is journal;
			say "You stop holding your [x].";
		else: [equip]
			now weapon object of player is x;
			now weapon of player is weapon of x;
			now weapon damage of player is weapon damage of x;
			now weapon type of player is weapon type of x;
			if x is ranged:
				now weapon type of player is "Ranged";
			say "You ready your [x]";
			if x is unwieldy:
				if scalevalue of player > objsize of x:
					say ". Your [if scalevalue of player is 3]normal-size[else if scalevalue of player is 4]large[else]massive[end if] [bodyname of player] hand dwarfs the [x], making it [if scalevalue of player - objsize of x > 3]very[else if scalevalue of player - objsize of x is 3]rather[else]somewhat[end if] [one of]unwieldy[or]awkward[or]difficult[at random] to use accurately";
				else:
					say ". Your [if scalevalue of player is 3]normal-size[else if scalevalue of player is 2]small[else]tiny[end if] [bodyname of player] hands are just too small to comfortably grip your [x], making swinging it a [if objsize of x - scalevalue of player > 3]very[else if objsize of x - scalevalue of player is 3]quite[else]a little[end if] [one of]unwieldy[or]awkward[or]difficult[at random]";
			say ".";
	if x is equipment:
		if x is equipped: [unequip]
			if x is not cursed: [explanation why the item can't be taken off is to be done in the item description]
				say "     [bold type]You take off the [x].[roman type][line break]";
				now x is not equipped;
		else:
			if slot of x is empty:
				increase score by 0;
			else:
				repeat with z running through equipped equipment:
					if slot of z is slot of x:
						say "     [bold type]Your [z] is in the way![roman type][line break]";
						continue the action;
			if (slot of x is "feet" or slot of x is "waist") and (bodyname of player is listed in infections of TaurList or bodyname of player is listed in infections of NoLegList):
				say "     [bold type]Sadly, the [x] [if plural of x is true]are[else]is[end if] incompatible with your body type![roman type][line break]";
				continue the action;
			if size of x > 0: [objects with size restrictions]
				if (scalevalue of player - size of x > 1): [clothing two size categories smaller]
					say "     [bold type]You can't even begin to fit into the [x]. [if plural of x is true]They are meant for smaller beings than yourself[else]It is meant for smaller beings than yourself[end if].[roman type][line break]";
					continue the action;
				else if (scalevalue of player - size of x is 1): [clothing one size category smaller]
					say "     [bold type]You start wearing the [x]. [if plural of x is true]They are quite small for your body size, but still barely fit[else]It is quite small for your body size, but still barely fits[end if].[roman type][line break]";
					now x is equipped;
				else if (scalevalue of player - size of x is 0): [clothing same size category]
					say "     [bold type]You start wearing the [x]. [if plural of x is true]They fit fairly well[else]It fits fairly well[end if].[roman type][line break]";
					now x is equipped;
				else if (scalevalue of player - size of x is -1): [clothing one size category bigger]
					say "     [bold type]You start wearing the [x]. [if plural of x is true]They are quite big for your body size, but fit more or less with some adjustments[else]It is quite big for your body size, but fits more or less with some adjustments[end if].[roman type][line break]";
					now x is equipped;
				else if (scalevalue of player - size of x < -1): [clothing two size categories bigger]
					say "     [bold type]The [x] [if plural of x is true]are simply too big! They are meant for much larger beings than yourself[else]is simply too big! It is meant for much larger beings than yourself[end if].[roman type][line break]";
					continue the action;
			else:
				say "     [bold type]You start wearing the [x].[roman type]";
				now x is equipped;
	if x is a medkit:
		let healed be 10 + level of player + ( ( intelligence of player minus 10 ) divided by 2 );
		if "Expert Medic" is listed in the feats of player:
			if Paula is visible:
				now healed is ( healed * 133 ) / 100;
			else:
				now healed is ( healed times 125 ) divided by 100;
		else if Paula is visible:
			now healed is ( healed times 125 ) divided by 100;
		else if carried of First Aid Manual > 0:
			increase healed by 2;
		if "Rapid Healing" is listed in the feats of player:
			now healed is ( healed times 115 ) divided by 100;
		if "Regeneration" is listed in the feats of player:
			now healed is ( healed times 115 ) divided by 100;
		if nohealmode is true:
			now healed is ( healed * 125 ) / 100;
		if ssmb is true:
			now healed is ( healed * 3 ) / 2;
		increase HP of player by healed;
		if HP of player > maxHP of player:
			decrease healed by HP of player minus maxHP of player;
			now HP of player is maxHP of player;
		say "Using your medkit, [if Paula is visible]Paula helps you [one of]treat the worst of your wounds[or]bandage up the worst of your wounds[or]spray your cuts with anesthetic[or]clean and dress your wounds[at random], making sure to kiss them to make it all better[else][one of]you spray your cuts with anesthetic[or]you bandage your worst wounds[at random][end if]. You regain [special-style-1][healed][roman type] HP.";
		if a random chance of 1 in 10 succeeds:
			say "You have used up the last of the medkit.";
			if "Expert Medic" is listed in the feats of player and a random chance of 2 in 10 succeeds:
				say "You manage to save the medkit with your amazing skills.";
			else:
				delete medkit;
	if x is a pepperspray:
		if inafight is 1:
			say "[line break][usepepperspray]";
		else:
			say "It would not be good idea to use that on yourself. Spicy eyes!";
	if x is a healing booster:
		let healed be 20;
		if "Expert Medic" is listed in the feats of player:
			now healed is 25;
		else if carried of First Aid Manual > 0:
			increase healed by 2;
		if "Rapid Healing" is listed in the feats of player:
			increase healed by 2;
		if "Regeneration" is listed in the feats of player:
			increase healed by 3;
		if nohealmode is true:
			now healed is ( healed * 125 ) / 100;
		increase HP of player by healed;
		if HP of player > maxHP of player:
			decrease healed by HP of player minus maxHP of player;
			now HP of player is maxHP of player;
		say "Using your healing booster, you inject the mix into your body, giving a quick boost to your infected body's healing rate. You regain [special-style-1][healed][roman type] HP.";
		delete healing booster;


understand "talk [person]" as conversing.
understand "talk to [person]" as conversing.
understand "chat [person]" as conversing.
understand "chat with [person]" as conversing.
understand "talk with [person]" as conversing.

Conversing is an action applying to one thing.

Check Conversing:
	if the noun is the player, say "I know this is stressful, but talking to yourself will not help." instead;
	if the number of entries in conversation of noun is 0, say "They have nothing to say." instead.

carry out conversing:
	sort conversation of the noun in random order;
	repeat with comment running through conversation of the noun:
		say "[Noun] says, '[Comment]'";
		break;

Section Automatic Combat

[creates flag for automatic combat, from "Instinctive Combat" feat]
autoattacknormal is an action applying to nothing.
understand "auto attack normal" as autoattacknormal.

autoattackberserk is an action applying to nothing.
understand "auto attack berserk" as autoattackberserk.

autoattackpass is an action applying to nothing.
understand "auto attack pass" as autoattackpass.

autoattackcoward is an action applying to nothing.
understand "auto attack coward" as autoattackcoward.

autoattacksubmit is an action applying to nothing.
understand "auto attack submit" as autoattacksubmit.

autoattackmode is a number that varies.
[0 is normal]
[1 is attack]
[2 could be item? but probably not...]
[3 is pass]
[4 is flee]
[5 is submit]

carry out autoattacknormal:
	if "Instinctive Combat" is listed in feats of player:
		now autoattackmode is 0; [default combat, make choices at normal]
		say "You calm your instincts and regain control of your actions.";
	else:
		say "You feel you are missing the instincts to do this.";

carry out autoattackberserk:
	if "Instinctive Combat" is listed in feats of player:
		now autoattackmode is 1; [autoattack, no choice, always attack]
		say "You let your aggressive instincts take the forefront, knowing you will attack at any chance.";
	else:
		say "You feel you are missing the instincts to do this.";

carry out autoattackpass:
	if "Instinctive Combat" is listed in feats of player:
		now autoattackmode is 3; [autopass, no choice, always pass]
		say "You feel calm. You're sure everything will work out in the end. Don't mind the monsters attacking you.";
	else:
		say "You feel you are missing the instincts to do this.";

carry out autoattackcoward:
	if "Instinctive Combat" is listed in feats of player:
		now autoattackmode is 4; [autoflee, no choice, always flee]
		say "You focus on the need to escape the monsters, the need to run away.";
	else:
		say "You feel you are missing the instincts to do this.";

carry out autoattacksubmit:
	if "Instinctive Combat" is listed in feats of player:
		now autoattackmode is 5; [autosubmit, no choice, always submit]
		say "Your increased libido clouds your thinking. Wouldn't it be fun to let the monsters play with you?";
	else:
		say "You feel you are missing the instincts to do this.";

Section Hyperlinks

[creates method to toggle hyperlinks on/off at any point in game.]
[HyperToggle is an action applying to nothing.
understand "Hyper Toggle" as HyperToggle.

carry out HyperToggle:
	if hypernull is 0:
		now hypernull is 1;
	else if hypernull is 1:
		now hypernull is 0;]
HyperlinksActivated is an action applying to nothing.
understand "Hyper On" as HyperlinksActivated.

carry out HyperlinksActivated:
	now hypernull is 0;

HyperlinksDeactivated is an action applying to nothing.
understand "Hyper Off" as HyperlinksDeactivated.

carry out HyperlinksDeactivated:
	now hypernull is 1;

Section AttemptWaitOrClear

To AttemptToWait: [use where you want a wait (which might be turned off by player settings)]
	if waiterhater is 0:
		wait for any key; [waits if waiting is active]
	if waiterhater plus hypernull is 0:
		say "[line break]"; [adds a break after the 'more']

To AttemptToClearHyper: [use where you want a clear (which might be turned off by player settings)]
	if clearnomore is 0:
		clear the screen; [clears if clearing is active]
	now invlinklistfilled is zero; [this changes the inventorying mode to not look for existing inventory links again]
	now hyperlink list is {}; [empties hyperlink list regardless of clear status]

To AttemptToWaitBeforeClear: [use where you want a wait, which happens directly before a separate clear]
	if clearnomore plus waiterhater is not 2: [waits if either waiting or clearing is active, only skips them if both are turned off]
		wait for any key;
	if waiterhater plus hypernull is 0:
		say "[line break]"; [adds a break after the 'more']

To AttemptToWaitAndClearHyper: [use where you want a wait and clear. Much like AttemptToWaitBeforeClear, but this includes the clear as part of it]
	if clearnomore plus waiterhater is not 2: [waits if either waiting or clearing is active, only skips them if both are turned off]
		wait for any key;
		clear the screen;
	now invlinklistfilled is zero; [this changes the inventorying mode to not look for existing inventory links again]
	now hyperlink list is {}. [empties hyperlink list regardless of clear status]

Section Waithate

[creates (and sets) flag for skipping many wait for any key;]
[i had difficulty setting it so that the player could directly toggle this, as well as have other chunks of code do the same thing. made a command, which is for when the player types it out, and a function, which is for when code calls it. the command just calls the code. I'm sure there is a better way to do this, but it seems to work properly.]
waiterhater is a number that varies.

WaitHateFunction is an action applying to nothing.
WaitHateCommand is an action applying to nothing.
understand "waits off" as WaitHateCommand.
understand "i hate to wait" as WaitHateCommand. [old command, keep for time being, eventually remove?]

carry out WaitHateCommand:
	WaitHateFunction;

To WaitHateFunction:
	now waiterhater is 1; [yes, you do hate to wait]
	say "The text rarely waits for you to press a key...[line break]... before continuing.";

WaitLoveFunction is an action applying to nothing.
WaitLoveCommand is an action applying to nothing.
understand "waits on" as WaitLoveCommand.
understand "i love to wait" as WaitLoveCommand. [old command, keep for time being, eventually remove?]

carry out WaitLoveCommand:
	WaitLoveFunction;

To WaitLoveFunction:
	now waiterhater is 0; [returns waiting to normal]
	say "Delays waiting for a key stroke to occur.";

Section Clearless

[creates (and sets) flag for skipping most (all?) clear the screen]
[same as for waithate, both command and function.]
clearnomore is a number that varies.

ClearLessFunction is an action applying to nothing.
ClearLessCommand is an action applying to nothing.
understand "clears off" as ClearLessCommand.
understand "the clears are gone" as ClearLessCommand. [old command, keep for time being, eventually remove?]

carry out ClearLessCommand:
	ClearLessFunction;

To ClearLessFunction:
	now clearnomore is 1; [turns off clears]
	say "The screen clears less often.";

ClearMoreFunction is an action applying to nothing.
ClearMoreCommand is an action applying to nothing.
understand "clears on" as ClearMoreCommand.
understand "the clears are back" as ClearMoreCommand. [old command, keep for time being, eventually remove?]

carry out ClearMoreCommand:
	ClearMoreFunction;

To ClearMoreFunction:
	now clearnomore is 0; [returns clearing to normal]
	say "Screen clearing occurs frequently.";

Section Color

To say special-style-1: [name can be changed if desired, just adjust calls to it as well]
	say first custom style;

To say special-style-2: [name can be changed if desired, just adjust calls to it as well]
	say second custom style;
[
To say alert-style: [already used for end game text]
	(- glk_set_style(style_Alert); -)

To say header-style: [already used for game title at start]
	(- glk_set_style(style_Header); -)

To say note-style: [already used for score changes]
	(- glk_set_style(style_Note); -)

To say blockquote-style:
	(- glk_set_style(style_BlockQuote); -)

To say input-style:
	(- glk_set_style(style_Input); -)
]

Table of User Styles (continued)
style name (a special-style)	justification (a text-justification)	obliquity (an obliquity)	indentation (a number)	first-line indentation (a number)	boldness (a boldness)	fixed width (a fixity)	relative size (a number)	glulx color (a glulx color value)
special-style-1	--	--	--	--	bold-weight	--	1	g-dark-green
special-style-2	--	--	--	--	bold-weight	--	1	g-medium-red

Table of Common Color Values (continued)
glulx color value	assigned number
g-pure-blue	255		[== $0000FF]
g-bright-cyan	39423		[== $0099FF]
g-dark-green	43520		[== $00CC00]
g-pure-green	65280		[== $00FF00]
g-pure-cyan	65535		[== $00FFFF]
g-dark-red	11141120		[== $AA0000]
g-medium-red	13369344		[== $CC0000]
g-peach	15645627		[== $EEBBBB]
g-pure-yellow	16776960		[== $FFFF00]
g-pure-magenta	16711935		[== $FF00FF]
g-pure-red	16711680		[== $FF0000]
[names can be changed if desired, also need to change matching name in table below. choose color in hex, then convert to decimal for assigned number.]

[
style name	justification	obliquity	indentation	first-line indentation	boldness	fixed width	relative size	glulx color
special-style-1	--	--	--	--	bold-weight	--	1	g-dark-green
special-style-2	--	--	--	--	bold-weight	--	1	g-medium-red
blockquote-style	--	--	--	--	--	--	--	--[appears to be unused]
input-style	--	--	--	--	--	--	--	--[appears to be unused]
fixed-letter-spacing-style	--	--	--	--	--	--	--	--[appears to be unused]
alert-style	--	--	--	--	--	--	--	--[also does end game text]
header-style	--	--	--	--	--	--	--	--[also does starting title]
note-style	--	--	--	--	--	--	--	--[also does scores]
italic-style	--	--	--	--	--	--	--	--[allows redefining of italic style]
bold-style	--	--	--	--	--	--	--	--[allows redefining of bold style]
[to change style: replace -- with desired change. see Glulx Text Effects.i7x for options]
[blockquote, input, and fixed letter appear to be unused. they could be redefined as desired for more colors/formating.]
[alert, header, and note are used for a few game functions. if you wanted to change those you could]
[italics and bold are currently in a variety of places. just a few italics, but bold is all over the place. be aware if you choose to change them]
]

Part 3 - Item Code

Understand the command "get" as something new.
Understand the command "take" as something new.

Grabbing is an action applying to one thing.

understand "get [present grab object]" as grabbing.
understand "take [present grab object]" as grabbing.
understand "grab [present grab object]" as grabbing.

carry out grabbing something (called x):
	let found be 0;
	let num be 0;
	repeat with Q running through invent of the location of the player:
		increase num by 1;
		if q matches the regular expression printed name of x, case insensitively:
			now found is 1;
			Add q to invent of player;
			remove entry num from invent of the location of the player;
			if x is equipment:
				say "You pick up the [printed name of x] and tuck [if plural of x is true]them[else]it[end if] in your backpack.";
			else:
				say "You pick up the [printed name of x] and tuck it in your backpack.";
			break;
	if found is 0:
		say "You don't see any [x] around here.";
		if x is owned, say "You do see one in your backpack though. Did you mean to [bold type]use[roman type] it?";

Understand the command "trash" as something new.
Understand the command "junk" as something new.

burninating is an action applying to one thing.

understand "trash [owned grab object]" as burninating.
understand "junk [owned grab object]" as burninating.

carry out burninating something (called x):
	let found be 0;
	if x is journal:
		say "You really don't think that's a good idea.";
		stop the action;
	if x is wielded:
		say "You're wielding that, take it off first.";
		stop the action;
	if x is not owned:
		say "You don't seem to be holding any.";
		stop the action;
	now found is carried of x;
	if x is an equipment:
		if x is equipped:
			if found < 2:
				say "You're using that right now. Stop using it before you drop it.";
				continue the action;
	delete x;


Understand the command "trashall" as something new.
Understand the command "junkall" as something new.

allburninating is an action applying to one thing.

understand "trashall [owned grab object]" as allburninating.
understand "junkall [owned grab object]" as allburninating.

carry out allburninating something (called x):
	let found be carried of x;
	if x is not owned:
		say "You don't seem to be holding any.";
	else:
		say "Do you wish to permanently trash all of the '[x]' you have?";
		if player consents:
			if x is journal:
				say "You really don't think that's a good idea.";
			else if x is an armament:
				if x is wielded:
					if found is 1:
						say "You're wielding that, so you'd best stop using it first.";
					else:
						say "You trash all of them but the [x] you're using. Bye-bye.";
						now carried of x is 1;
				else:
					say "You trash them all. Bye-bye.";
					now carried of x is 0;
			else if x is an equipment:
				if x is equipped:
					if found is 1:
						say "You're using that right now. You need to take it off to trash it.";
					else:
						say "You trash all of them but the [x] you're wearing. Bye-bye.";
						now carried of x is 1;
				else:
					say "You trash them all. Bye-bye.";
					now carried of x is 0;
			else:
				say "You trash them all. Bye-bye.";
				now carried of x is 0;
		else:
			say "You change your mind.";


Understand the command "drop" as something new.

littering is an action applying to one thing.

understand "drop [owned grab object]" as littering.

carry out littering something (called x):
	let found be 0;
	let num be 0;
	if x is wielded and x is not journal:
		say "You're wielding that, take it off first.";
		stop the action;
	if x is not owned:
		say "You don't seem to be holding that.";
		stop the action;
	now found is the carried of x;
	now num is 0;
	if x is an equipment:
		if x is equipped:
			if found < 2:
				say "You're using that right now. Stop using it before you drop it.";
				continue the action;
	repeat through table of game objects:
		if printed name of x matches the text name entry:
			add name entry to the invent of the location of the player;
			break;
	delete x;

Looting is an action applying to nothing.

understand "get all" as looting.
understand "get everything" as looting.
understand "take all" as looting.
understand "take everything" as looting.
understand "grab all" as looting.

carry out looting:
	let found be 0;
	let num be 0;
	repeat with Q running through invent of the location of the player:
		increase num by 1;
		now found is 1;
		Add q to invent of player;
		say "You pick up the [q] and tuck it in your backpack.";
	if found is 0:
		say "You don't see anything around here.";
	else:
		now the invent of the location of the player is { };

before taking a thing:
	if noun is rooted in place:
		say "You can't take that.";
		stop the action;
	say "That seems secured in place.";

understand the command "give" and "offer" as something new.

Trading is an action applying to two things.

Understand "give [owned grab object] to [person]" as trading.

Check trading:
	if second noun is the player, say "Do you think you will get a good deal from yourself? That's a hard bargain, man." instead;
	if the noun is libido pill, say "Use the [bold type]libpill <name>[roman type] command instead." instead;
	if second noun is not a trader, say "They do not look interested in trading." instead;
	if the noun is not owned, say "You can't offer what you don't have." instead;
	if trade of the noun is "", say "They don't seem interested in that specific item." instead;

Carry out trading:
	say "You offer up [the noun] to [second noun] and they look it over for a moment before nodding and drawing out a [trade of the noun] and handing it to you. A fair trade, right?";
	Add trade of the noun to invent of player;
	if "Haggler" is listed in feats of player and a random chance of 1 in 3 succeeds:
		say "You get a second one free with your amazing negotiating skills.";
		Add trade of the noun to invent of player;
	let num be 0;
	delete noun;

skipcockchange is a truth state that varies. skipcockchange is usually false.

This is the sex change rule:
	choose row monster from the Table of Random Critters;
	let singlesexadjust be 0;
	if "Single Sexed" is listed in feats of player:
		if player is herm:
			let singlesexadjust be 1; [currently herm]
		else if player is male:
			let singlesexadjust be 2; [currently male]
		else if player is female:
			let singlesexadjust be 3; [currently female]
	if "Just One" is listed in feats of player:
		if cocks entry > 1:
			now cocks entry is 1;
		if cunts entry > 1:
			now cunts entry is 1;
	if ( the sex entry is "Male" or the sex entry is "Both" ) and cock length of player < cock length entry and cocks of player is not 0 and "Female Preferred" is not listed in feats of player:
		let prevcock be cock length of player;
		increase cock length of player by 1;
		increase cock length of player by ( cock length entry minus cock length of player ) divided by 3;
		if "Modest Organs" is listed in feats of player and cock length of player > 8:
			now cock length of player is 8;
		if prevcock < cock length of player:		[did cock actually grow?]
			follow the cock descr rule;
			say "You can see your [if cocks of player is 1][one of]cock[or]penis[or]shaft[or]maleness[at random][else][one of]cocks[or]penises[or]shafts[or]malenesses[at random][end if] [one of]engorge[or]swell[or]throb[at random] as [if cocks of player > 1]they gain[else]it gains[end if] in length, becoming [descr]!";
	else if ( the sex entry is "Male" or the sex entry is "Both" ) and cock length of player > ( ( cock length entry times 150 ) / 100 ) and "One Way" is not listed in feats of player:
		let prevcock be cock length of player;
		decrease cock length of player by 1;
		decrease cock length of player by ( cock length of player - ( ( cock length entry times 150 ) / 100 ) ) divided by 3;
		if "Male Preferred" is listed in feats of player or "Herm Preferred" is listed in feats of player or "Always Cocky" is listed in feats of player:
			if cock length of player < 5, now cock length of player is 5;
		if "Modest Organs" is listed in feats of player and cock length of player > 8:
			now cock length of player is 8;
		if prevcock > cock length of player:		[did cock actually shrink?]
			follow the cock descr rule;
			say " Strong [one of]erotic tingles[or]cold waves[or]hot flashes[at random] run over your impressive [cockname of player] [if cocks of player > 1][one of]cocks[or]penises[or]shafts[or]poles[at random] as they begin[else][one of]cock[or]penis[or]shaft[or]pole[at random] as it begins[end if] to diminish somewhat to better suit your new infection. [if cocks of player > 1]They dwindle[else]It dwindles[end if] in size, becoming [descr].";
	if ( the sex entry is "Male" or the sex entry is "Both" ) and cock width of player < cock width entry and cocks of player is not 0 and "Female Preferred" is not listed in feats of player:
		let prevcock be cock width of player;
		increase cock width of player by 1;
		increase cock width of player by ( cock width entry minus cock width of player ) divided by 3;
		if "Modest Organs" is listed in feats of player and cock width of player > 5:
			now cock width of player is 5;
		if prevcock < cock width of player:		[did balls actually grow?]
			follow the cock descr rule;
			say "You can [if player is internal]feel your internal[else]see your[end if] [one of]testes[or]balls[or]orbs[or]nuts[at random] [one of]tingle[or]churn audibly[or]throb[at random] as they grow larger, [if player is internal]body straining to abide this[else]your flesh growing taught with the[end if] expansion, leaving you with a [one of]pair[or]set[at random] of [ball size]!";
	else if ( the sex entry is "Male" or the sex entry is "Both" ) and cock width of player > ( ( cock width entry times 150 ) / 100 ) and "One Way" is not listed in feats of player:
		let prevcock be cock width of player;
		decrease cock width of player by 1;
		decrease cock width of player by ( cock width of player - ( ( cock width entry times 150 ) / 100 ) ) divided by 3;
		if "Male Preferred" is listed in feats of player or "Herm Preferred" is listed in feats of player or "Always Cocky" is listed in feats of player:
			if cock width of player < 3, now cock width of player is 3;
		if "Modest Organs" is listed in feats of player and cock width of player > 5:
			now cock width of player is 5;
		if prevcock > cock width of player:		[did cock actually shrink?]
			follow the cock descr rule;
			say "You can feel a [one of]draining of[or]tightness around[or]pressure dropping in[at random] your [if player is internal]internal[else]impressive[end if] [cockname of player] [one of]balls[or]testes[or]gonads[or]nuts[at random] as they begin to diminish somewhat to better suit your new infection. You cum hard to drain their seed as they dwindle in size, becoming [ball size].";
	if cocks of player < cocks entry and ( the sex entry is "Male" or the sex entry is "Both" ) and "Female Preferred" is not listed in feats of player:
		let prevcock be cocks of player;
		if player is not male:
			increase cocks of player by 1;
			now cock length of player is 1;
			now the cock width of player is 1;
			increase cock length of player by ( cock length entry ) divided by 3;
			increase the cock width of player by ( cock width entry ) divided by 3;
			if skipcockchange is false:
				now cockname of player is name entry;
				now cock of player is cock entry;
			if "Modest Organs" is listed in feats of player and cock length of player > 8:
				now cock length of player is 8;
			if "Modest Organs" is listed in feats of player and cock width of player > 5:
				now cock width of player is 5;
		else if a random chance of 2 in 3 succeeds and "Just One" is not listed in feats of player:	[Extra cocks at 67%]
			increase cocks of player by 1;
		if singlesexadjust is 3 and sex entry is "Both":	[female remains female if herm infection]
			now cocks of player is 0;
			now cock length of player is 0;
			now cock width of player is 0;
		if prevcock < cocks of player:		[did new cock appear?]
			follow the cock descr rule;
			say " Your groin throbs with intense sensations as a [descr] [cock entry] [one of]cock[or]penis[or]shaft[or]maleness[at random] erupts from you, spurting a few excited streams of fluid as it settles into place.";
	if cocks of player is not 0 and ( the sex entry is "Female" or the sex entry is "Neuter" ) and "One Way" is not listed in feats of player:
		let prevcock be cock length of player;
		let prevcock2 be cock width of player;
		decrease cock length of player by 1;
		decrease cock length of player by cock length of player divided by 3;
		decrease cock width of player by 1;
		decrease cock width of player by cock width of player divided by 4;
		if "Male Preferred" is listed in feats of player or "Herm Preferred" is listed in feats of player or "Always Cocky" is listed in feats of player:
			if cock length of player < 5, now cock length of player is 5;
			if cock width of player < 3, now cock width of player is 3;
		if (singlesexadjust is 1 or singlesexadjust is 2) and sex entry is "Female":		[male/herm becomes female if female infection]
			now cocks of player is 0;
			now cock length of player is 0;
			now cock width of player is 0;
		if prevcock > cock length of player or prevcock2 > cock width of player:		[did cock actually shrink?]
			follow the cock descr rule;
			say " Strange [one of]erotic tingles[or]cold waves[or]hot flashes[at random] run over your [if cocks of player > 1][one of]cocks[or]penises[or]shafts[or]poles[at random] as they begin[else][one of]cock[or]man meat[or]shaft[or]pole[at random] as it begins[end if] to shrink. [if cocks of player > 1]They dwindle[else]It dwindles[end if] in size, becoming [descr] while[if player is internal] you imagine[end if] your [one of]balls[or]testes[or]nuts[or]gonads[at random] become [ball size]. ";
			if cock length of player < 1 or cock width of player < 1:
				say "You barely have time to give a whimper as you cease to be a male.";
				now cocks of player is 0;
			else:
				say "[line break]";
		if cocks of player > 1 and a random chance of 2 in 5 succeeds and "All The Things" is not listed in feats of player:
			say "Sudden pleasure runs through one of your doomed [cock of player] cocks as it sprays the last of its seed, dwindling down to nothing at all and vanishing, leaving only the powerful orgasm to remember it by.";
			decrease cocks of player by 1;
	else if cocks of player > cocks entry and a random chance of 1 in 3 succeeds and "One Way" is not listed in feats of player and (sex entry is "Male" or sex entry is "Both" ) and "All The Things" is not listed in feats of player:
		say "Sudden pleasure runs through one of your doomed [cock of player] cocks as it sprays the last of its seed, dwindling down to nothing at all and vanishing, leaving only [one of]the powerful[or]that final[at random] orgasm to remember it by.";
		decrease cocks of player by 1;
	if ( the sex entry is "Female" or the sex entry is "Both" ) and cunt length of player < cunt length entry and cunts of player is not 0 and "Male Preferred" is not listed in feats of player:
		let prevcunt be cunt length of player;
		increase cunt length of player by 1;
		increase cunt length of player by ( cunt length entry minus cunt length of player ) divided by 3;
		if "Modest Organs" is listed in feats of player and cunt length of player > 8:
			now cunt length of player is 8;
		if prevcunt < cunt length of player:	[did cunt actually grow?]
			follow the cunt descr rule;
			say "You can see your [if cunts of player is 1][one of]cunt[or]pussy[or]vagina[or]cleft[at random][else][one of]cunts[or]pussies[or]vaginas[or]clefts[at random] [one of]pulse[or]quiver[or]throb[at random][end if] as [if cunts of player is 1]it grows[else]they grow[end if] deeper into your body, becoming [descr]!";
	else if ( the sex entry is "Female" or the sex entry is "Both" ) and cunt length of player > ( ( cunt length entry times 150 ) / 100 ) and "One Way" is not listed in feats of player:
		let prevcunt be cunt length of player;
		decrease cunt length of player by 1;
		decrease cunt length of player by ( cunt length of player - ( ( cunt length entry times 150 ) / 100 ) ) divided by 3;
		if "Female Preferred" is listed in feats of player or "Herm Preferred" is listed in feats of player or "Always A Pussy" is listed in feats of player:
			if cunt length of player < 5, now cunt length of player is 5;
		if "Modest Organs" is listed in feats of player and cunt length of player > 8:
			now cunt length of player is 8;
		if prevcunt > cunt length of player:		[did cunt actually shrink?]
			follow the cunt descr rule;
			say "Strong [one of]erotic tingles[or]cold waves[or]hot flashes[at random] flow into your ample [if cunts of player > 1][one of]cunts[or]pussies[or]vaginas[or]clefts[at random] as they begin[else][one of]cunt[or]pussy[or]vagina[or]cleft[at random] as it begins[end if] to diminish somewhat to better suit your new infection. [if cunts of player > 1]They dwindle[else]It dwindles[end if] in size, becoming [descr].";
	if ( the sex entry is "Female" or the sex entry is "Both" ) and cunt width of player < cunt width entry and cunts of player is not 0 and "Male Preferred" is not listed in feats of player:
		let prevcunt2 be cunt width of player;
		increase cunt width of player by 1;
		increase cunt width of player by ( cunt width entry minus cunt width of player ) divided by 3;
		if "Modest Organs" is listed in feats of player and cunt width of player > 5:
			now cunt width of player is 5;
		if prevcunt2 < cunt width of player:	[did cunt actually widen?]
			follow the cunt descr rule;
			say "You can see your [if cunts of player is 1][one of]cunt[or]pussy[or]vagina[or]cleft[at random][else][one of]cunts[or]pussies[or]vaginas[or]clefts[at random][end if] [one of]engorge[or]swell[or]throb[at random] as your thighs are nudged apart to make room for those thickening lips, growing wider!";
	else if ( the sex entry is "Female" or the sex entry is "Both" ) and cunt width of player > ( ( cunt width entry times 150 ) / 100 ) and "One Way" is not listed in feats of player:
		let prevcunt be cunt width of player;
		decrease cunt width of player by 1;
		decrease cunt width of player by ( cunt width of player - ( ( cunt width entry times 150 ) / 100 ) ) divided by 3;
		if "Female Preferred" is listed in feats of player or "Herm Preferred" is listed in feats of player or "Always A Pussy" is listed in feats of player:
			if cunt width of player < 3, now cunt width of player is 3;
		if "Modest Organs" is listed in feats of player and cunt width of player > 5:
			now cunt width of player is 5;
		if prevcunt > cunt width of player:		[did cock actually shrink?]
			follow the cunt descr rule;
			say "You can feel a [one of]tightening[or]snugness[or]clenching[at random] from your accommodating [if cunts of player > 1][one of]cunts[or]pussies[or]vaginas[or]clefts[at random][else][one of]cunt[or]pussy[or]vagina[or]cleft[at random][end if] as you are hit by an unexpected orgasm. The squeezing does not release fully as your wet hole[sfn] shrink[sfv] somewhat to better suit your new infection by becoming tighter.";
	if cunts of player < cunts entry and ( the sex entry is "Female" or the sex entry is "Both" ) and "Male Preferred" is not listed in feats of player:
		let prevcunt be cunts of player;
		if player is not female or cunt length of player is 0 or cunt width of player is 0:
			increase cunts of player by 1;
			now cunt length of player is 1;
			now cunt width of player is 1;
			increase cunt length of player by ( cunt length entry ) divided by 3;
			increase cunt width of player by ( cunt width entry ) divided by 3;
			if "Modest Organs" is listed in feats of player and cunt length of player > 8:
				now cunt length of player is 8;
			if "Modest Organs" is listed in feats of player and cunt width of player > 5:
				now cunt width of player is 5;
		else if a random chance of 2 in 3 succeeds and "Just One" is not listed in feats of player:	[2nd+ cunt at 67%]
			increase cunts of player by 1;
		if singlesexadjust is 2 and sex entry is "Both":	[male remains male if herm infection]
			now cunts of player is 0;
			now cunt length of player is 0;
			now cunt width of player is 0;
		if prevcunt < cunts of player:		[did new cunt appear?]
			follow the cunt descr rule;
			say "Your groin throbs with intense sensations as a [descr] [one of]cunt[or]pussy[or]vagina[or]cleft[at random] wetly forms, leaking along a thigh as you quiver.";
	if cunts of player is not 0 and ( the sex entry is "Male" or the sex entry is "Neuter" ) and "One Way" is not listed in feats of player:
		let prevcunt be cunt length of player;
		let prevcunt2 be cunt width of player;
		decrease cunt length of player by 1;
		decrease cunt length of player by cunt length of player divided by 3;
		decrease cunt width of player by 1;
		decrease cunt width of player by cunt width of player divided by 4;
		if "Female Preferred" is listed in feats of player or "Herm Preferred" is listed in feats of player or "Always A Pussy" is listed in feats of player:
			if cunt length of player < 5, now cunt length of player is 5;
			if cunt width of player < 3, now cunt width of player is 3;
		if (singlesexadjust is 1 or singlesexadjust is 3) and sex entry is "Male":	[female/herm becomes male if male infection]
			now cunts of player is 0;
			now cunt length of player is 0;
			now cunt width of player is 0;
		if prevcunt > cunt length of player or prevcunt2 > cunt width of player:		[did cunt actually shrink?]
			follow the cunt descr rule;
			say " Strange [one of]erotic tingles[or]cold waves[or]hot flashes[at random] run over your [if cunts of player > 1][one of]cunts[or]pussies[or]vaginas[or]clefts[at random] as they begin to shrink. They dwindle[else][one of]cunt[or]pussy[or]vagina[or]cleft[at random] as it begins to shrink. It dwindles[end if] in size, becoming [descr]. ";
			if cunt length of player < 1 or cunt width of player < 1:
				say "With a sickening noise, you cease to be female all together.";
				now cunts of player is 0;
			else:
				say "[line break]";
		if cunts of player > 1 and a random chance of 2 in 5 succeeds and "All The Things" is not listed in feats of player:
			say "An odd, wet noise has you peeking in time to see one of your [one of]cunts[or]pussies[at random] has vanished!";
			decrease cunts of player by 1;
			follow the cock descr rule;
			follow the cunt descr rule;
	else if cunts of player > cunts entry and a random chance of 1 in 3 succeeds and "One Way" is not listed in feats of player and (sex entry is "Female" or sex entry is "Both" ) and "All The Things" is not listed in feats of player:
		say "An odd, wet noise has you peeking in time to see one of your [one of]cunts[or]pussies[at random] has vanished!";
		decrease cunts of player by 1;
	follow the cock descr rule;
	follow the cunt descr rule;
	now skipcockchange is false;
	if PronounChoice of player is "Auto", follow the SetPlayerPronouns rule;


This is the breast change rule:
	choose row monster from the Table of Random Critters;
	if breasts of player is not breasts entry:
		decrease breast size of player by 2;
		follow the breast descr rule;
		if ( breasts entry > breasts of player and "One Pair" is not listed in feats of player ) or ( breasts of player is 0 and breasts entry > 0 ):
			say " Your chest tingles intensely as two new sensitive points form up, announcing the arrival of two new [descr] breasts, pressing out of your [skin of player] hide.";
			increase breasts of player by 2;
		else if breasts entry < breasts of player and "Bouncy Bouncy" is not listed in feats of player:
			decrease breasts of player by 2;
			say " You look down just in time to see two nipples, [descr] breasts included, be reabsorbed into your body, leaving nothing but [skin of player] flesh behind.";
		increase breast size of player by 2;
	if breasts of player is 0:
		increase score by 0; [do nothing]
	else if the sex entry is "Female" or the sex entry is "Both":
		if breast size of player < breast size entry and ( ( "Male Preferred" is not listed in feats of player and "Flat Chested" is not listed in feats of player ) or "Breasts" is listed in feats of player ):
			follow the breast descr rule;
			let oldbreast be descr;
			say "You [one of]groan and grab at your chest[or]give a loud moan, shuddering[or]almost tip forward in surprise[or]look down fearfully as sensation builds[at random], [skin of player] skin glistening as your [oldbreast] breasts[run paragraph on]";
			increase breast size of player by 1;
			increase breast size of player by ( breast size entry minus breast size of player ) divided by 3;
			follow the breast descr rule;
			say " become [descr] [one of]orbs[or]breasts[or]jugs[or]tits[at random]! [run paragraph on]";
		else if breast size of player > breast size entry and "One Way" is not listed in feats of player:
			follow the breast descr rule;
			let oldbreast be descr;
			say "You [one of]groan and grab at your chest[or]give a loud moan, shuddering[or]almost tip forward in surprise[or]look down fearfully as sensation builds[at random], [skin of player] skin glistening as your [oldbreast] breasts[run paragraph on]";
			decrease breast size of player by 1;
			decrease breast size of player by ( breast size of player minus breast size entry ) divided by 3;
			follow the breast descr rule;
			say " become [descr] [one of]orbs[or]breasts[or]jugs[or]tits[at random]! [run paragraph on]";
	else if the sex entry is "Male":
		let breasttarget be male breast size entry;
		if "Breasts" is listed in feats of player:
			if male breast size entry is 0, now breasttarget is breast size entry;
		else if "Male Preferred" is listed in feats of player or "Flat Chested" is listed in feats of player:
			now breasttarget is 0;
		if breast size of player < breasttarget:
			follow the breast descr rule;
			let oldbreast be descr;
			say "You [one of]groan and grab at your chest[or]give a loud moan, shuddering[or]almost tip forward in surprise[or]look down fearfully as sensation builds[at random], [skin of player] skin glistening as your [oldbreast] breasts[run paragraph on]";
			increase breast size of player by 1;
			increase breast size of player by ( breasttarget minus breast size of player ) divided by 3;
			follow the breast descr rule;
			say " become [descr] [one of]orbs[or]breasts[or]jugs[or]tits[at random]! [run paragraph on]";
		else if breast size of player > breasttarget and "One Way" is not listed in feats of player:
			follow the breast descr rule;
			let oldbreast be descr;
			say "You [one of]groan and grab at your chest[or]give a loud moan, shuddering[or]almost tip forward in surprise[or]look down fearfully as sensation builds[at random], [skin of player] skin glistening as your [oldbreast] breasts[run paragraph on]";
			decrease breast size of player by 1;
			decrease breast size of player by ( breast size of player minus breasttarget ) divided by 3;
			follow the breast descr rule;
			say " become [descr] [one of]orbs[or]breasts[or]jugs[or]tits[at random]! [run paragraph on]";
	if PronounChoice of player is "Auto", follow the SetPlayerPronouns rule;


To grow breasts by (x - a number):
	if "Flat Chested" is listed in feats of player or breast size of player >= 26:
		continue the action;
	follow the breast descr rule;
	let oldbreast be descr;
	say "You [one of]groan and grab at your chest[or]give a loud moan, shuddering[or]almost tip forward in surprise[or]look down fearfully as sensation builds[at random], [skin of player] skin glistening as your [oldbreast] breasts[run paragraph on]";
	increase breast size of player by a random number from 1 to x;
	if breast size of player > 26, now breast size of player is 26;
	follow the breast descr rule;
	say " become [descr] [one of]orbs[or]breasts[or]jugs[or]tits[at random]! [run paragraph on]";
	if PronounChoice of player is "Auto", follow the SetPlayerPronouns rule;

to grow cock by (x - a number):
	if "Female Preferred" is listed in feats of player:
		continue the action;
	else if "Single Sexed" is listed in feats of player and player is female:
		say " Strange [one of]erotic tingles[or]cold waves[or]hot flashes[at random] run over your [one of]cunt[sfn][or]puss[yfn][or]vagina[sfn][or]cleft[sfn][at random] as [ittheyf] begin[sfv] to shrink. [ItTheyf] dwindle[sfv] in size before vanishing with a sickening noise as you cease to be female all together.";
		now cunts of player is 0;
		now cunt length of player is 0;
		now cunt width of player is 0;
	let prevcock be cock length of player;
	increase cock length of player by a random number from 1 to x;
	if "Modest Organs" is listed in feats of player and cock length of player > 8:
		now cock length of player is 8;
	if prevcock < cock length of player:		[did cock actually grow?]
		follow the cock descr rule;
		say "You can see your [if cocks of player is 1][one of]cock[or]penis[or]shaft[or]maleness[at random][else][one of]cocks[or]penises[or]shafts[or]malenesses[at random][end if] [one of]engorge[or]swell[or]throb[at random] as [if cocks of player > 1]they gain[else]it gains[end if] in length, becoming [descr]!";
	if PronounChoice of player is "Auto", follow the SetPlayerPronouns rule;

to grow balls by (x - a number):
	if "Female Preferred" is listed in feats of player or cocks of player is 0:
		continue the action;
	let prevcock be cock width of player;
	increase cock width of player by a random number from 1 to x;
	if "Modest Organs" is listed in feats of player and cock width of player > 5:
		now cock width of player is 5;
	if prevcock < cock width of player:		[did balls actually grow?]
		follow the cock descr rule;
		say "You can [if player is internal]feel your internal[else]see your[end if] [one of]testes[or]balls[or]orbs[or]nuts[at random] [one of]tingle[or]churn audibly[or]throb[at random] as they grow larger, [if player is internal]body straining to abide this[else]your flesh growing taught with the[end if] expansion, leaving you with a [one of]pair[or]set[at random] of [ball size]!";

To Infect:
	choose row monster from the Table of Random Critters;
	if there is no name entry or ( there is a non-infectious in row monster of Table of Random Critters and non-infectious entry is true):
		continue the action;
	if ( scenario is "Researcher" or nanite collector is equipped ) and ( there is no resbypass in row monster of Table of Random Critters or resbypass entry is false ):
		vialchance name entry;
	if scenario is "Researcher" and researchbypass is 0 and ( there is no resbypass in row monster of the Table of Random Critters or resbypass entry is false ):
		continue the action;
	let x be a random number from 1 to 5;
	let bodyparts be { 1, 2, 3, 4, 5 };
	sort bodyparts in random order;
	let found be 0;
	repeat with y running through bodyparts:
		now x is y;
		if y is 1:
			if skinname of player is name entry:
				next;
			else:
				now found is 1;
				break;
		if y is 2:
			if facename of player is name entry:
				next;
			else:
				now found is 1;
				break;
		if y is 3:
			if tailname of player is name entry:
				next;
			else:
				now found is 1;
				break;
		if y is 4:
			if bodyname of player is name entry:
				next;
			else:
				now found is 1;
				break;
		if y is 5:
			if cockname of player is name entry:
				next;
			else:
				now found is 1;
				break;
	if found is 0:
		now x is 4;
	if "Resistant" is listed in feats of player and a random chance of 1 in 3 succeeds:
		now x is 6; [33% chance of no mutation]
		if x is 6:
			say "Your nanites['] programmed resistance to change prevents further mutation.";
			continue the action;
	if "Microwaved" is listed in feats of player:
		say "WARNING: [name entry] nanites detected!";
		if x is 1:
			say "Skin infection imminent";
		if x is 2:
			say "Head infection imminent";
		if x is 3:
			say "Posterior infection imminent";
		if x is 4:
			say "Torso infection imminent";
		if x is 5:
			say "Genital infection imminent";
		say ", Allow?";
		if player consents:
			say "Ok.";
		else:
			say "You wave a tiny microwave transmitter over the affected area. Ahhh, all clean!";
			stop the action;
	if x is 1:
		if skinname of player is not name entry:
			say "Your skin [one of]tingles[or]goes flush[or]vibrates with odd pleasure[or]goes cold[or]feels oily[at random] as [skin change entry].";
			now skinname of player is name entry;
			now skin of player is skin entry;
	if x is 2:
		if facename of player is not name entry:
			say "Your face [one of]tingles[or]goes flush[or]vibrates with odd pleasure[or]goes cold[or]feels oily[at random] as [face change entry].";
			now facename of player is name entry;
			now face of player is face entry;
	if x is 3:
		if tailname of player is not name entry:
			say "Your ass [one of]tingles[or]goes flush[or]vibrates with odd pleasure[or]goes cold[or]feels oily[at random] as [ass change entry].";
			now tailname of player is name entry;
			now tail of player is tail entry;
	if x is 4:
		follow the breast change rule;
		if bodyname of player is not name entry:
			say "Your [one of][bodytype of player] [or][bodydesc of player] [or][bodydesc of player] [or][bodytype of player] [or][at random]body [one of]tingles[or]goes flush[or]vibrates with odd pleasure[or]goes cold[or]feels oily[at random] as [body change entry].";
			now bodyname of player is name entry;
			now body of player is body entry;
		attributeinfect; [sets the new attributes]
		follow the sex change rule;
		say "[line break]";
	if x is 5:
		follow the sex change rule;
		if cockname of player is not name entry:
			if player is male, say "Your groin [one of]tingles[or]goes flush[or]vibrates with odd pleasure[or]goes cold[or]feels oily[at random] as [cock change entry].";
			now cockname of player is name entry;
			now cock of player is cock entry;
			if name entry is listed in infections of internallist and internalbypass is true:
				say "[italic type]...After some time, it appears that your balls re-emerge, in spite of this strain's normally internal anatomy.[roman type]";
	if "Mutable" is listed in feats of player and a random chance of 1 in 2 succeeds:		[** Repeat of above code for physical change]
		let x be a random number from 1 to 5;
		let bodyparts be { 1, 2, 3, 4, 5 };
		sort bodyparts in random order;
		repeat with y running through bodyparts:
			now x is y;
			if y is 1:
				if skinname of player is name entry:
					next;
				else:
					break;
			if y is 2:
				if facename of player is name entry:
					next;
				else:
					break;
			if y is 3:
				if tailname of player is name entry:
					next;
				else:
					break;
			if y is 4:
				if bodyname of player is name entry:
					next;
				else:
					break;
			if y is 5:
				if cockname of player is name entry:
					next;
				else:
					break;
		if "Microwaved" is listed in feats of player:
			say "WARNING: [name entry] nanites detected!";
			if x is 1:
				say "Skin infection imminent";
			if x is 2:
				say "Head infection imminent";
			if x is 3:
				say "Posterior infection imminent";
			if x is 4:
				say "Torso infection imminent";
			if x is 5:
				say "Genital infection imminent";
			say ", Allow?";
			if player consents:
				say "Ok.";
			else:
				say "You wave a tiny microwave transmitter over the affected area. Ahhh, all clean!";
				now x is 6; [skips body tf, but stat change is still possible from first infection]
		if x is 1:
			if skinname of player is not name entry:
				say " Your skin [one of]tingles[or]goes flush[or]vibrates with odd pleasure[or]goes cold[or]feels oily[at random] as [skin change entry].";
				now skinname of player is name entry;
				now skin of player is skin entry;
		if x is 2:
			if facename of player is not name entry:
				say " Your face [one of]tingles[or]goes flush[or]vibrates with odd pleasure[or]goes cold[or]feels oily[at random] as [face change entry].";
				now facename of player is name entry;
				now face of player is face entry;
		if x is 3:
			if tailname of player is not name entry:
				say " Your ass [one of]tingles[or]goes flush[or]vibrates with odd pleasure[or]goes cold[or]feels oily[at random] as [ass change entry].";
				now tailname of player is name entry;
				now tail of player is tail entry;
		if x is 4:
			follow the breast change rule;
			if bodyname of player is not name entry:
				say "Your [one of][bodytype of player] [or][bodydesc of player] [or][bodydesc of player] [or][bodytype of player] [at random]body [one of]tingles[or]goes flush[or]vibrates with odd pleasure[or]goes cold[or]feels oily[at random] as [body change entry].";
				now bodyname of player is name entry;
				now body of player is body entry;
			attributeinfect; [sets the new attributes]
			follow the sex change rule;
			say "[line break]";
		if x is 5:
			follow the sex change rule;
			if cockname of player is not name entry:
				if player is male, say " Your groin [one of]tingles[or]goes flush[or]vibrates with odd pleasure[or]goes cold[or]feels oily[at random] as [cock change entry].";
				now cockname of player is name entry;
				now cock of player is cock entry; [** end of addition for 'Mutable']
				if name entry is listed in infections of internallist and internalbypass is true:
					say "[italic type]...After some time, it appears that your balls re-emerge, in spite of this strain's normally internal anatomy.[roman type]";
	now x is a random number from 1 to 6;
	if "Mighty Mutation" is not listed in feats of player:
		now x is 0;
	if x is 1:
		if strength of player is not str entry:
			if strength of player > str entry and a random chance of 1 in 10 succeeds:
				if "Bestial Power" is not listed in feats of player:
					if "Mighty Mutation" is listed in feats of player and a random chance of 1 in 2 succeeds:
						now x is 0; [do nothing placeholder]
					else:
						say "Your muscles feel weaker as the infection spreads through you.";
						decrease strength of player by 1;
						decrease capacity of player by 5;
			if strength of player < str entry:
				say "You feel your muscles swelling with [name entry] [one of]strength[or]physique[or]power[at random].";
				increase strength of player by 1;
				increase capacity of player by 5;
	if x is 2:
		if Intelligence of player is not Int entry:
			if Intelligence of player > Int entry and a random chance of 1 in 10 succeeds:
				if "Bestial Power" is not listed in feats of player:
					if "Mighty Mutation" is listed in feats of player and a random chance of 1 in 2 succeeds:
						now x is 0; [do nothing placeholder]
					else:
						say "Your head aches as the infection spreads through you.";
						decrease Intelligence of player by 1;
			if Intelligence of player < Int entry:
				say "You feel your mind swelling with [name entry] [one of]Intelligence[or]wit[or]complexity[at random].";
				increase Intelligence of player by 1;
	if x is 3:
		if Dexterity of player is not Dex entry:
			if Dexterity of player > Dex entry and a random chance of 1 in 10 succeeds:
				if "Bestial Power" is not listed in feats of player:
					if "Mighty Mutation" is listed in feats of player and a random chance of 1 in 2 succeeds:
						now x is 0; [do nothing placeholder]
					else:
						say "Your coordination feels weaker as the infection spreads through you.";
						decrease Dexterity of player by 1;
			if Dexterity of player < Dex entry:
				say "You feel your hand eye coordination swelling with [name entry] [one of]Dexterity[or]physique[or]accuracy[at random].";
				increase Dexterity of player by 1;
	if x is 4:
		if Stamina of player is not Sta entry:
			if Stamina of player > Sta entry and a random chance of 1 in 10 succeeds:
				if "Bestial Power" is not listed in feats of player:
					if "Mighty Mutation" is listed in feats of player and a random chance of 1 in 2 succeeds:
						now x is 0; [do nothing placeholder]
					else:
						say "Your constitution feels weaker as the infection spreads through you.";
						decrease Stamina of player by 1;
				if remainder after dividing stamina of player by 2 is 1:
					decrease maxHP of player by level of player plus 1;
			if Stamina of player < Sta entry:
				say "You feel your body toughening with [name entry] [one of]Stamina[or]physique[or]power[at random].";
				increase Stamina of player by 1;
				if remainder after dividing stamina of player by 2 is 0:
					increase maxHP of player by level of player plus 1;
	if x is 5:
		if Perception of player is not Per entry:
			if Perception of player > Per entry and a random chance of 1 in 10 succeeds:
				if "Bestial Power" is not listed in feats of player:
					if "Mighty Mutation" is listed in feats of player and a random chance of 1 in 2 succeeds:
						now x is 0; [do nothing placeholder]
					else:
						say "Your senses dull as the infection spreads through you.";
						decrease Perception of player by 1;
			if Perception of player < Per entry:
				say "You feel your senses swelling with [name entry] [one of]Perception[or]aptitude[or]feral attention[at random].";
				increase Perception of player by 1;
	if x is 6:
		if Charisma of player is not Cha entry:
			if Charisma of player > Cha entry and a random chance of 1 in 10 succeeds:
				if "Bestial Power" is not listed in feats of player:
					if "Mighty Mutation" is listed in feats of player and a random chance of 1 in 2 succeeds:
						now x is 0; [do nothing placeholder]
					else:
						say "You feel more isolated as the infection spreads through you.";
						decrease Charisma of player by 1;
			if Charisma of player < Cha entry:
				say "You feel your social sense swelling with [name entry] [one of]Charisma[or]natural charm[or]pheromones[at random].";
				increase Charisma of player by 1;
	if libido of player < libido entry:
[		say "You can't help but [one of]feel your thoughts drifting towards sex[or]notice that the attributes of [name entry] were very appealing[or]wonder if getting to know these creatures in the biblical sense would be all that bad[at random].";]
		let oldlib be libido of player;
		increase libido of player by 1;
		increase libido of player by ( libido entry minus libido of player ) divided by 3;
		if oldlib < 80 and libido of player > 79:
			say "You now have trouble thinking of anything but sexual satisfaction![no line break][if player is male] Your cock[smn] [ismv] fully erect constantly and drool[smv] precum steadily.[no line break][end if][if player is female] Your cunt[sfn] overflow[sfv] with hot juices that run down your thighs.[no line break][end if][line break]";
		else if oldlib < 50 and libido of player > 49:
			say "Your thoughts have sunk to almost constant depravity![no line break][if player is male] Your cock[smn] remain[smv] perpetually hard and leaking precum.[no line break][end if][if player is female] Your cunt[sfn] [isfv] hot and dripping juices as your arousal builds.[no line break][end if][line break]";


to attributeinfect:		[sets the player values from the new attributes]
	choose row monster from the Table of Random Critters;
	if bodyname of player is listed in infections of TaurList or bodyname of player is listed in infections of NoLegList:
		repeat with z running through equipped equipment:
			if taur-compatible of z is false:
				say "     [bold type]Sadly, the [z] [if plural of z is true]are incompatible with your new body type, so you can do nothing but take them off[else]is incompatible with your new body type, so you can do nothing but take it off[end if].[roman type][line break]";
				now z is not equipped;
	if there is a scale in row monster of the Table of Random Critters:
		if scalevalue of player is not scale entry:
			now scalevalue of player is scale entry;
			repeat with z running through equipped equipment:
				if size of z > 0: [size restricted equipment]
					if (scalevalue of player - size of z > 1):
						say "     [bold type]You quickly rip your [z] off your body before [if plural of z is true]they are destroyed when you grow larger than they could support[else]it is destroyed when you grow larger than it could support[end if].[roman type][line break]";
						now z is not equipped;
					else if (scalevalue of player - size of z is 1):
						say "     [bold type]Your [z] stretches a bit as it is forced to conform to a larger body.[roman type][line break]";
					else if (scalevalue of player - size of z < -1):
						say "     [bold type]As you shrink, [z] becomes far too big to fit you. You have little choice but to take [if plural of z is true]them[else]it[end if] off.[roman type][line break]";
						now z is not equipped;
					else if (scalevalue of player - size of z is -1):
						say "     [bold type]Your [z] hangs fairly on your now smaller frame.[roman type][line break]";
	else:
		now scalevalue of player is 3;
	if there is a body descriptor in row monster of the Table of Random Critters:
		now bodydesc of player is body descriptor entry;
	else:
		now bodydesc of player is name entry;
	if there is a type in row monster of the Table of Random Critters:
		now bodytype of player is type entry;
	else:
		now bodytype of player is name entry;
	if DayCycle entry is 2:
		now SleepRhythm of player is 2; [night-preferred]
	if DayCycle entry is 1:
		now SleepRhythm of player is 1; [day-preferred]
	else:
		now SleepRhythm of player is 0; [standard]

To attributeinfect (x - text):
	repeat with y running from 1 to number of filled rows in Table of Random Critters:
		choose row y in Table of Random Critters;
		if name entry exactly matches the text x, case insensitively:
			now monster is y;
			attributeinfect;
			break;


To Vialchance (x - a text):
	choose row monster from Table of Random Critters;
	if researchbypass is 1, continue the action;
	if there is a non-infectious in row monster of Table of Random Critters and non-infectious entry is true, continue the action;
	if there is a resbypass in row monster of Table of Random Critters and resbypass entry is true, continue the action;
	if scenario is "Researcher" or nanite collector is equipped:
		let vialcollectible be 10 + ( 2 * intelligence of player ) + ( level of player / 2 );
		if nanitemeter is 1:
			decrease vialcollectible by 10;
			if vialcollectible > 65, now vialcollectible is 65;
		else if nanitemeter is 3:
			increase vialcollectible by 10;
			if vialcollectible > 75, now vialcollectible is 75;
		else:
			if vialcollectible > 70, now vialcollectible is 70;
		let vcoll be 0;
		if a random number between 1 and 100 <= vialcollectible:
			now vcoll is 1;
		else if "Expert Researcher" is listed in feats of player and a random number between 1 and 100 <= vialcollectible:
			now vcoll is 1;
		if vcoll is 1:
			say "You manage to extract a vial of [special-style-1][x][roman type] nanites for study and use.";
			add x to vials of player;
			now vcoll is 0;


predestiny is a number that varies.[@Tag:NotSaved] [use unknown]

calcnumber is a number that varies.[@Tag:NotSaved]

To get a number:
	get typed command as playerinput;
	numberfy playerinput;

to numberfy (x - a snippet):
	change the text of the player's command to x;
	if the player's command matches "[number]":
		now calcnumber is the number understood;
	else:
		now calcnumber is 0;

keychar is a text that varies.

To translate (k - a number):
	if k is 13 or k is -6:
		now keychar is "return";
	else if k is 31 or k is 32:
		now keychar is " ";
	else if k is 48:
		now keychar is "0";
	else if k is 49:
		now keychar is "1";
	else if k is 50:
		now keychar is "2";
	else if k is 51:
		now keychar is "3";
	else if k is 52:
		now keychar is "4";
	else if k is 53:
		now keychar is "5";
	else if k is 54:
		now keychar is "6";
	else if k is 55:
		now keychar is "7";
	else if k is 56:
		now keychar is "8";
	else if k is 57:
		now keychar is "9";
	else if k is 65 or k is 97:
		now keychar is "a";
	else if k is 66 or k is 98:
		now keychar is "b";
	else if k is 67 or k is 99:
		now keychar is "c";
	else if k is 68 or k is 100:
		now keychar is "D";
	else if k is 69 or k is 101:
		now keychar is "E";
	else if k is 70 or k is 102:
		now keychar is "F";
	else if k is 71 or k is 103:
		now keychar is "G";
	else if k is 72 or k is 104:
		now keychar is "H";
	else if k is 73 or k is 105:
		now keychar is "I";
	else if k is 74 or k is 106:
		now keychar is "J";
	else if k is 75 or k is 107:
		now keychar is "K";
	else if k is 76 or k is 108:
		now keychar is "L";
	else if k is 77 or k is 109:
		now keychar is "M";
	else if k is 78 or k is 110:
		now keychar is "N";
	else if k is 79 or k is 111:
		now keychar is "O";
	else if k is 80 or k is 112:
		now keychar is "P";
	else if k is 81 or k is 113:
		now keychar is "Q";
	else if k is 82 or k is 114:
		now keychar is "R";
	else if k is 83 or k is 115:
		now keychar is "S";
	else if k is 84 or k is 116:
		now keychar is "T";
	else if k is 85 or k is 117:
		now keychar is "U";
	else if k is 86 or k is 118:
		now keychar is "V";
	else if k is 87 or k is 119:
		now keychar is "W";
	else if k is 88 or k is 120:
		now keychar is "X";
	else if k is 89 or k is 121:
		now keychar is "Y";
	else if k is 90 or k is 122:
		now keychar is "Z";
	else:
		now keychar is "INVALID";


to Pet level up:
	if companion of player is nullpet:
		increase score by 0;
	else:
		increase level of companion of player by 1;
		decrease XP of companion of player by ( level of companion of player minus 1 ) times 10;
		if "Good Teacher" is listed in feats of player:
			increase XP of companion of player by ( level of companion of player minus 1 ) times 4;
		say "Your [companion of player] has gained level [level of companion of player]! Congratulations!";
		if remainder after dividing level of companion of player by 3 is 0:
			increase weapon damage of companion of player by 1;
		if remainder after dividing level of companion of player by 5 is 0:
			increase dexterity of companion of player by 1;

To level up:
	increase level of player by 1;
	decrease XP of player by level of player times 10;
	if "Fast Learner" is listed in feats of player:
		increase XP of player by ( level of player times 2 );
	say "You have gained level [level of player]! Congratulations!";
	if remainder after dividing level of player by 2 is 0:
		say "Current stats:[line break]";
		say "Strength: [strength of player], Dexterity: [dexterity of player], Stamina: [stamina of player], Charisma: [Charisma of player], Perception: [perception of player], Intelligence: [intelligence of player].";
		say "Pick a stat to increase.";
		say "[link]1 - Strength[as]1[end link][line break]";
		say "[link]2 - Dexterity[as]2[end link][line break]";
		say "[link]3 - Stamina[as]3[end link][line break]";
		say "[link]4 - Charisma[as]4[end link][line break]";
		say "[link]5 - Perception[as]5[end link][line break]";
		say "[link]6 - Intelligence[as]6[end link][line break]";
		say "[link]7 - Random[as]7[end link][line break]";
		now calcnumber is 0;
		while calcnumber < 1 or calcnumber > 7:
			say "Choice? (1-7)>[run paragraph on]";
			get a number;
		if calcnumber is 7:
			now calcnumber is a random number between 1 and 6;
		if calcnumber is 1:
			increase strength of player by 1;
			increase capacity of player by 5;
			say "Your strength grows.";
		else if calcnumber is 2:
			increase dexterity of player by 1;
			say "Your dexterity grows.";
		else if calcnumber is 3:
			increase Stamina of player by 1;
			say "Your stamina grows.";
		else if calcnumber is 4:
			increase charisma of player by 1;
			say "Your charisma grows.";
		else if calcnumber is 5:
			increase perception of player by 1;
			say "Your perception grows.";
		else if calcnumber is 6:
			increase intelligence of player by 1;
			say "Your intelligence grows.";
	else:
		increase ssstash by 1;
	increase maxHP of player by ( stamina of player minus 10 ) divided by 2;
	increase maxHP of player by 2;
	now HP of player is maxHP of player;
	if the remainder after dividing level of the player by 5 is 0 and "Ultimatum" is not listed in feats of player:
		funfeatget;
	increase score by level of the player times level of the player;

[ Fight and challenge moved to Core Mechanics/Fighting.i7x]

Playing on is an action applying to nothing.
understand "play on" as playing on.

carry out playing on:
	now playon is 1;
	say "You are now in extended play mode. The rescue will never come.";

Early Birding is an action applying to nothing.
understand "end now" and "end game" as early birding.
quitter is a number that varies.

carry out early birding:
	if playon is 1:
		say "You are already in play on mode. There is no rescue to wait for.";
		stop the action;
	decrease the score by 100;
	now quitter is 1;
	end the story saying "You waited for rescue.";

Punying is an action applying to nothing.
understand "Puny" as punying.

carry out punying:
	now dexterity of player is 1;
	now stamina of player is 1;
	now perception of player is 18;
	say "You feel puny, but perceptive.";

Resting is an action applying to nothing.
understand "Rest" as resting.
roughing is a truth state that varies. roughing is usually false.

check resting:
	now roughing is false;
	if caffeinehigh of player > 0:
		say "You try to settle down to rest, but you are filled with manic, hyperactive energy and unable to rest. Your body just won't settle down and any time to try to relax, you find yourself only thinking of going out and looking for more soda to drink.";
		stop the action;
	if location of player is Palomino or location of player is Private Booths:
		say "Why are you even trying to sleep here? Everyone's partying like it's the end of the world.";
		stop the action;
	if cot is owned:
		say "You pull out your cot and lay it out before resting for a while.";
	else if cot is present:
		say "You rest on the cot.";
	else if the player is in the bunker:
		say "You rest on one of the cots available.";
	else if the player is in Slave Cell 1 or player is in Slave Cell 2:
		say "You rest on the bed in the back of the cell.";
	else if silk hammock is owned or silk hammock is present:
		say "You set up your silken hammock at the next appropriate spot and lie in it, resting for a while.";
	else if "Roughing It" is listed in feats of player:
		say "You hunker down somewhere secluded for a quick nap.";
		now roughing is true;
	else:
		say "You have nothing to rest on.";
		stop the action;
	if companion of player is not rubber tigress:
		if ( there is a dangerous door in the location of the player or the location of player is fasttravel or the earea of location of player is not "void") and location of player is not sleepsafe:
			now battleground is "Outside"; [standard setting]
			if the earea of location of player is not "void":
				now battleground is the earea of location of player;
			else:
				let l be a random visible dangerous door;
				if l is not nothing, now battleground is the marea of l;
			say "...";
			attempttowait;
			let intodds be 3;
			if "Bad Luck" is listed in feats of player, increase intodds by 1;
			if a random chance of intodds in 20 succeeds:
				say "...but your nap is interrupted by the arrival of a creature.";
				fight;
				stop the action;
			else:
				say "...and you thankfully complete your nap in peace.";
		else if roughing is true:
			say "You are thankfully able to complete your nap in peace.";
to Rest:
	let num1 be maxHP of the player divided by 4;
	let num2 be ( ( stamina of the player * 3 ) / 2 ) + level of the player;
	if cot is owned or cot is present or the player is in Bunker or silk hammock is owned or silk hammock is present:
		if num1 >= num2, increase HP of player by num1; [best value chosen]
		if num2 > num1, increase HP of player by num2;
	else if "Roughing It" is listed in feats of player:
		increase HP of player by ( num1 + num2 ) / 2; [average value chosen]
	else: [accessible only when events induce resting]
		if num1 <= num2, increase HP of player by num1; [lowest value chosen]
		if num2 < num1, increase HP of player by num2;
	if Terminatorsleep is false:
		if Sleeptimercount >= 10: [Player is on the brink of collapse, sleeping for just one turn isn't going to fix them]
			if silk hammock is owned or silk hammock is present:
				decrease Sleeptimercount by 6;
			else:
				decrease Sleeptimercount by 5;
		else if Sleeptimercount <= 9: [Player is tired, and will wake up refreshed with the well rested feat.]
			if silk hammock is owned or silk hammock is present:
				now Sleeptimercount is -2;
			else: [Turnpass rule fires immediately after this and adds 1 to each, so it becomes -1 and 0.]
				now Sleeptimercount is -1;
			if "Well Rested" is not listed in feats of player:
				FeatGain "Well Rested";
				say "     Well Rested - All stats increased by 2!";
				increase strength of player by 2;
				increase dexterity of player by 2;
				increase stamina of player by 2;
				increase charisma of player by 2;
				increase intelligence of player by 2;
				increase perception of player by 2;
			now WellRestedTimer is 6;

carry out resting:
	if companion of player is rubber tigress:
		artemisnap;
		if nohealmode is true:
			increase HP of player by (level of rubber tigress) / 3; [grants additional rest]
		else:
			increase HP of player by (level of rubber tigress) / 2; [grants additional rest]
	Rest;
	follow the turnpass rule;
	follow the player injury rule;
	say "You are [descr]([HP of player]/[maxHP of player]).";

This is the explore rule:
	let something be 0;
	let roomfirst be 1;
	let the bonus be (( the perception of the player minus 10 ) divided by 2);
	if "Curious" is listed in feats of player, increase bonus by 3;
	if blindmode is true, increase bonus by 3; [increased odds of finding something interesting]
	if a random chance of 2 in 5 succeeds, now roomfirst is 0; [Will it check for a room or situation first?]
	if something is 0 and a random number from 1 to 20 < ( bonus + 7 ) and there is an unknown fasttravel room and battleground is "Outside" and roomfirst is 1:
		let L be a random unknown fasttravel not private room;
		if L is not nothing:
			randomfightchance;
			say "[one of]After wandering aimlessly for hours, you happen across[or]Following your faint memories, you manage to find[or]Following movement, you end up at[or]Going off towards a previously unexplored part of the city, you find yourself at[at random] [L].";
			move player to L;
			now something is 1;
			plot;
			now battleground is "void";
			wait for any key;
	if something is 0 and a random number from 1 to 20 < ( bonus + 8 ) and there is an unresolved situation:
		let L be a random available situation;
		If L is not nothing:
			if battleground is "Smith Haven":
				say "Wandering around a bit, you find [L].";
			else:
				say "[one of]After wandering aimlessly for hours, you happen across[or]Following your faint memories, you manage to find[or]Following movement, you end up at[at random] [L].";
			now something is 1;
			now inasituation is true;
			try resolving L;
			now inasituation is false;
			now battleground is "void";
			wait for any key;
	now inasituation is false;
	if something is 0 and a random number from 1 to 20 < ( bonus + 7 ) and there is an unknown fasttravel room and battleground is "Outside" and roomfirst is 0:
		let L be a random unknown fasttravel not private room;
		if L is not nothing:
			randomfightchance;
			say "[one of]After wandering aimlessly for hours, you happen across[or]Following your faint memories, you manage to find[or]Following movement, you end up at[or]Going off towards a previously unexplored part of the city, you find yourself at[at random] [L].";
			move player to L;
			now something is 1;
			plot;
			now battleground is "void";
			wait for any key;
	if "Stealthy" is listed in feats of player, decrease bonus by 2 plus (( the perception of the player minus 10 ) divided by 2);
	if "Bad Luck" is listed in feats of player, increase bonus by 1;
	if something is 1 and blindmode is true, decrease bonus by 3; [already found something, so normal chance of a critter]
	if a random number from 1 to 20 < 15 plus bonus and battleground is not "void":
		if there is a area of Battleground in the Table of Random Critters:
			now something is 1;
			Fight;
			if ( ( hardmode is true and a random chance of 1 in 8 succeeds ) or ( "Bad Luck" is listed in feats of player and a random chance of 1 in 8 succeeds ) ) and battleground is not "void":
				say "As you are trying to recover from your last encounter, another roving creature finds you.";
				Fight;
	if something is 0:
		if battleground is "Smith Haven":
			say "Wandering around a bit, stroll through the Smith Haven Mall, but don't find anything that really draws your attention right now.";
		else:
			say "You decide to go exploring, but after three long hours of wandering the ruined, monster infested city you return to the relative safety of the [location of player].";
	follow the turnpass rule;
[	wait for any key;
	now the menu depth is 0;]
	[try looking;]
	rule succeeds.

exploring is an action applying to nothing.
understand "explore" as exploring

check exploring:
	if location of player is not fasttravel and earea of location of player is "void", say "You cannot explore from here." instead;

carry out exploring:
	if there is a dangerous door in the location of the player:
		let l be a random visible dangerous door;
		if l is not nothing, now battleground is the marea of l;
		if l is nothing, now battleground is "Outside"; [***]
	else:
		now battleground is earea of location of player;
	follow the explore rule;

to randomfightchance:
	let the bonus be (( the perception of the player minus 10 ) divided by 2);
	if "Stealthy" is listed in feats of player, now bonus is -1;
	if "Curious" is listed in feats of player, increase bonus by 2;
	if "Bad Luck" is listed in feats of player, increase bonus by 1;
	if a random number from 1 to 20 < 10 plus bonus and battleground is not "void":
		if there is a area of Battleground in the Table of Random Critters:
			Fight;
			if ( ( hardmode is true and a random chance of 1 in 8 succeeds ) or ( "Bad Luck" is listed in feats of player and a random chance of 1 in 8 succeeds ) ) and battleground is not "void":
				say "As you are trying to recover from your last encounter, another roving creature finds you.";
				Fight;

restoration is a number that varies.
balloversize is a number that varies.
skipturnblocker is a number that varies.
mpregcount is a number that varies.

Everyturn rules is a rulebook.

This is the turnpass rule:
	follow the cock descr rule;
	if "Sanity Saver" is listed in the feats of player:
		now humanity of player is 100;
	follow the cunt descr rule;
	follow the breast descr rule;
	now fightstatus is 0;
	now looknow is 0;
	now ishunting is false;
	now showlocale is true;
	if HP of Velos > 2:
		if Velos is not in the location of the player:		[traveling w/player]
			now Velos is in the location of the player;
	if breast size of player > 26, now breast size of player is 26;
	let oldlib be libido of player;
	if libido of player < 100 and "Horny Bastard" is listed in feats of player:
		increase libido of player by square root of ( 55 - ( libido of player / 2 ) );
		if libido of player > 100, now libido of player is 100;
	if libido of player > 20 and "Cold Fish" is listed in feats of player and libido of player < 100:
		decrease libido of player by square root of ( libido of player - 15 );
	if oldlib < 80 and libido of player > 79:
		say "You now have trouble thinking of anything but sexual satisfaction![no line break][if player is male] Your cock[smn] [ismv] fully erect constantly and drool[smv] precum steadily.[no line break][end if][if player is female] Your cunt[sfn] overflow[sfv] with hot juices that run down your thighs.[no line break][end if][line break]";
	else if oldlib < 50 and libido of player > 49:
		say "Your thoughts have sunk to almost constant depravity![no line break][if player is male] Your cock[smn] remain[smv] perpetually hard and leaking precum.[no line break][end if][if cunts of player is 1] Your cunt[sfn] [isfv] hot and dripping juices as your arousal builds.[no line break][end if][line break]";
	if hunger of player < 0, now hunger of player is 0;
	if thirst of player < 0, now thirst of player is 0;
	if the HP of the player < the maxHP of the player and nohealmode is false:
		increase the HP of the player by the stamina of the player divided by 2;
		if carried of First Aid Manual > 0, increase HP of player by 1;
	if "Regeneration" is listed in feats of player:
		increase the HP of the player by (level of player divided by 3);
	if "Rapid Healing" is listed in feats of player:
		increase the HP of the player by 2;
[	let yy be 4;
	if "Resistant" is listed in feats of player, increase yy by 2;
	if "Mutable" is listed in feats of player, decrease yy by 1;
	now yy is 1; ]
	let yy be 1;
	if "Singular" is listed in feats of player and a random chance of 1 in yy succeeds:
		let z be 0;
		if facename of player is bodyname of player:
			now z is z;
		else:
			now z is 1;
		if tailname of player is bodyname of player:
			now z is z;
		else:
			now z is 1;
		if skinname of player is bodyname of player:
			now z is z;
		else:
			now z is 1;
		if cockname of player is bodyname of player:
			now z is z;
		else:
			now z is 1;
		if bodyname of player is "Human" or ( shiftable is 2 and humanity of player > 49 ): [blocked for humans and active shifters]
			now z is 0;
		if z is 1:
			repeat with y running from 1 to number of filled rows in Table of Random Critters:
				choose row y from the Table of Random Critters;
				if name entry exactly matches the text bodyname of player, case insensitively:
					if ( there is no resbypass in row monster of Table of Random Critters or resbypass entry is false ) and ( there is no non-infectious in row monster of Table of Random Critters or non-infectious entry is false ):
						now monster is y;
						say "You can feel the nanites inside you working voraciously to convert your flesh to one whole form.";
						now researchbypass is 1;
						infect;
						now researchbypass is 0;
					break;
	if "Passing Grade Chest" is listed in feats of player and breast size of player > 4:
		now breast size of player is 4;
		say "You feel the pressure in your chest suddenly abate with a rush of relief.";
	if "Always Cocky" is listed in feats of player and cocks of player is 0:
		now cocks of player is 1;
		now cock length of player is 5;
		now cock width of player is 3;
		say "You feel a pressure at your groin that soon bursts forth as a brand new cock. This [cock of player] shaft spurts and dribbles with cum from its orgasmic formation.";
	else if "Always A Pussy" is listed in feats of player and cunts of player is 0:
		now cunts of player is 1;
		now cunt length of player is 5;
		now cunt width of player is 3;
		say "You feel a tingling dampness at your groin that soon turns into a wet gush of fluids as your flesh splits open into a brand new pussy. This dripping cunny with sopping with feminine juices from its orgasmic formation.";
	if balloversize is 0:
		if ( scalevalue of player is 1 or scalevalue of player is 2 ) and cock width of player >= 25:
			if cockname of player is not "Tanuki" and player is not internal:
				decrease Dexterity of player by 1 + (dexterity of player / 10 );
				now balloversize is 1 + (dexterity of player / 10 );
				say "     Your balls, so huge when compared to your [body size of player] frame, are so big and heavy that it's difficult to drag them around, hindering your ability to move around somewhat.";
		else if ( scalevalue of player is 3 or scalevalue of player is 4 ) and cock width of player >= 32:
			if cockname of player is not "Tanuki" and player is not internal:
				decrease Dexterity of player by 1 + (dexterity of player / 10 );
				now balloversize is 1 + (dexterity of player / 10 );
				say "     Your balls, so huge they hang to the ground, are so big and heavy that it's difficult to drag them around, hindering your ability to move around somewhat.";
		else if cock width of player >= 40:
			if cockname of player is not "Tanuki" and player is not internal:
				decrease Dexterity of player by 1 + (dexterity of player / 10 );
				now balloversize is 1 + (dexterity of player / 10 );
				say "     Your balls, so huge even when compared to your huge frame, are so massive and heavy that it's difficult to drag them around, hindering your ability to move around somewhat.";
	else:
		if ( ( scalevalue of player is 1 or scalevalue of player is 2 ) and cock width of player < 25 ) or ( ( scalevalue of player is 3 or scalevalue of player is 4 ) and cock width of player < 32 ) or ( cock width of player < 40 ):
			increase dexterity of player by balloversize;
			now balloversize is 0;
			say "     Your balls, no longer quite so huge compared to your [if scalevalue of player is not 3][body size of player] [end if]body, no longer hinder you. Your legs definitely feel better for not having to drag them around anymore.";
		else if cockname of player is "Tanuki":
			increase dexterity of player by balloversize;
			now balloversize is 0;
			say "     Your mystical, Tanuki nature allows you to carry your oversize balls with ease, no longer hindered by their massive size.";
		else if player is internal:
			increase dexterity of player by balloversize;
			now balloversize is 0;
			say "     Your massive balls, having become internalized, no longer hinder your movement quite so much. You can still feel them there, heavily resting inside you, but they're no longer in the way at least.";
	follow the check heat rule;
	if libido of player >= 99 and humanity of player > 0 and skipturnblocker is 0:
		say "[spontaneousorgasm]";
		decrease humanity of player by a random number between 1 and 2;
		if "Strong Psyche" is listed in feats of player, increase humanity of player by a random number between 0 and 1;
		now libido of player is 75;
		if "Horny Bastard" is listed in feats of player, now libido of player is 80;
		if "Cold Fish" is listed in feats of player, now libido of player is 60;
	if the HP of the player > the maxHP of the player, now the HP of the player is the maxHP of the player;
	if the HP of the player < 0, now the HP of the player is 1;
	if ( a random number from 1 to 20 ) > ( a random number between 1 and ( stamina of player + 1 ) ):
		increase hunger of player by 1;
		if number of entries in childrenfaces > 0 and a random chance of 1 in 2 succeeds, increase hunger of player by 1;
		if "Spartan Diet" is listed in feats of player and hunger of player > 0 and a random chance of 1 in 2 succeeds:
			decrease hunger of player by 1;
	if "Vore Predator" is listed in feats of player:
		increase hunger of player by a random number between 1 and 5;
		if "Spartan Diet" is listed in feats of player and hunger of player > 0 and a random chance of 1 in 2 succeeds:
			decrease hunger of player by 1;
	if a random number from 1 to 25 > ( a random number between 1 and ( stamina of player + 1 ) ):
		increase thirst of player by 3;
		if number of entries in childrenfaces > 0, increase thirst of player by 1;
		if "Spartan Diet" is listed in feats of player and thirst of player > 0:
			decrease thirst of player by 1;
	if "Automatic Survival" is listed in feats of player:
		now thirst of player is 0;
		now hunger of player is 0;
	if the remainder after dividing turns by 3 is 0:
		if "Perky" is listed in feats of player:
			increase morale of player by 1;
		now restoration is 0;
		if "Physical Booster" is listed in feats of player and wrcursestatus is not 5:
			if Strength of player < 14 and a random chance of 1 in 2 succeeds and restoration is 0:
				increase Strength of player by 1;
				increase capacity of player by 5;
				increase hunger of player by 6;
				say "Your body strives to restore its lost might and rebuilds your muscles. Your stomach grumbles with hunger at this sudden effort. [bold type]Strength increased by 1.[roman type][line break]";
				now restoration is 1;
			if Stamina of player < 14 and a random chance of 1 in 2 succeeds and restoration is 0:
				increase Stamina of player by 1;
				if remainder after dividing stamina of player by 2 is 0:
					increase maxHP of player by level of player plus 1;
				increase hunger of player by 6;
				say "Your body strives to restore its lost hardiness and toughens your body. Your stomach grumbles with hunger at this sudden effort. [bold type]Stamina increased by 1.[roman type][line break]";
				now restoration is 1;
			if Dexterity of player < 14 and a random chance of 1 in 2 succeeds and restoration is 0:
				increase Dexterity of player by 1;
				increase hunger of player by 6;
				say "Your body strives to regain its lost agility and restores your flexibility. Your stomach grumbles with hunger at this sudden effort. [bold type]Dexterity increased by 1.[roman type][line break]";
				now restoration is 1;
		if "Mental Booster" is listed in feats of player and wrcursestatus is not 5:
			if Intelligence of player < 14 and a random chance of 1 in 2 succeeds and restoration is 0:
				increase Intelligence of player by 1;
				increase hunger of player by 3;
				increase thirst of player by 5;
				say "Your body strives to restore your mental functions. You stomach churns and you sweat profusely from the effort of this process. [bold type]Intelligence increased by 1.[roman type][line break]";
				now restoration is 1;
			if Charisma of player < 14 and a random chance of 1 in 2 succeeds and restoration is 0:
				increase Charisma of player by 1;
				increase hunger of player by 3;
				increase thirst of player by 5;
				now restoration is 1;
				say "Your body strives to restore your natural charm and allure. You stomach churns and you sweat profusely from the effort of this process. [bold type]Charisma increased by 1.[roman type][line break]";
				now restoration is 1;
			if Perception of player < 14 and a random chance of 1 in 2 succeeds and restoration is 0:
				increase Perception of player by 1;
				increase hunger of player by 3;
				increase thirst of player by 5;
				say "Your body strives to restore your enhance perceptive abilities. You stomach churns and you sweat profusely from the effort of this process. [bold type]Perception increased by 1.[roman type][line break]";
				now restoration is 1;
		if hunger of player > 90:
			say "You will die if you don't eat soon.";
		else if hunger of player > 50:
			say "Your stomach feels like a black hole of pain.";
		else if hunger of player > 30:
			say "You're famished.";
		else if hunger of player > 3:
			say "You feel a little hungry.";
		if hunger of player > 30:
			decrease the morale of the player by ( hunger of player minus 30 ) divided by 5;
		if hunger of player > 99:
			now HP of player is -9999;
			end the story saying "You have died of hunger.";
		if thirst of player > 90:
			say "You will die if you don't drink something soon.";
		else if thirst of player > 50:
			say "Your throat is parched and your lips cracking.";
		else if thirst of player > 30:
			say "You're really thirsty!";
		else if thirst of player > 12:
			say "You feel a little thirsty.";
		if thirst of player > 30:
			decrease the morale of the player by ( thirst of player minus 30 ) divided by 5;
		if thirst of player > 99:
			now HP of player is -9999;
			end the story saying "You have died of thirst.";
		if hunger of player > 50 or thirst of player > 50:
			say "Maybe you should [bold type]scavenge[roman type] for food! Go to a quick travel location and find something quick.";
		let maxmorale be ( the charisma of the player plus the perception of the player );
		let moralereset be ( maxmorale plus the level of the player );
		if "Perky" is listed in feats of player:
			increase moralereset by ( moralereset divided by 5);
			increase maxmorale by ( maxmorale divided by 5);
		if "Proud Parent" is listed in feats of player:
			let SP be SarahPups / 5;
			if SP > 20, now SP is 20;
			increase moralereset by SP;
			increase maxmorale by SP;
		else if the morale of the player > moralereset:
			say "The rush of giddiness leaves you as your morale normalizes, leaving you feeling confident but no longer manic.";
			now the morale of the player is maxmorale;
	let corruption be 0;
	if skinname of player is not "Human", increase corruption by a random number from 0 to 1;
	if cockname of player is not "Human", increase corruption by a random number from 0 to 1;
	if bodyname of player is not "Human", increase corruption by a random number from 0 to 1;
	if tailname of player is not "Human", increase corruption by a random number from 0 to 1;
	if facename of player is not "Human", increase corruption by a random number from 0 to 1;
	if corruption > 0:
		if "Weak Psyche" is listed in feats of player:
			increase corruption by a random number from 0 to 1;
			increase corruption by a random number from 0 to 1;
		if "Strong Psyche" is listed in feats of player:
			decrease corruption by a random number from 0 to 2;
		decrease corruption by a random number from 0 to ( ( Perception of the player minus 10) divided by 2 );
		decrease corruption by a random number from 0 to ( ( Charisma of the player minus 10) divided by 2 );
	if corruption > 0:
		decrease the humanity of player by corruption;
		follow the brain descr rule;
		say "The nanites inside you work at rewiring your stubborn brain, leaving you with [descr] ([humanity of player]/100)[line break]";
		if humanity of player < 50:
			say "Maybe you should [bold type]use[roman type] that [bold type]journal[roman type] to help collect your thoughts.";
	pregprotocol; [Moved to pregnancy in core mechanics]
	if the humanity of player < 1 and Scenario is not "Researcher" and skipturnblocker is 0:
		end the story saying "Your mind is lost to the infection.";
	if the humanity of player < 1 and scenario is "Researcher", now humanity of player is 1;
	decrease turns by 1;
	if ( turns minus targetturns ) <= 0 and playon is 0 and skipturnblocker is 0:
		end the story saying "You survived until the rescue came.";
	else if ( turns minus targetturns ) < 20 and a random chance of 1 in 3 succeeds and skipturnblocker is 0 and playon is 0:
		say "[one of]You see an airplane soar overhead at jet speeds.[or]A peek from a roof shows what looks like some kind of vehicle approaching the city.[or]You have an unending sense of anticipation.[or]It's all coming to a close soon, just hang in there![at random]";
	follow the everyturn rules;
	rule succeeds;

to say spontaneousorgasm:
	if player is herm:
		say "     Your groin, overflowing with unsatisfied lustful needs, erupts spontaneously and knocks you to your knees. Your cock[smn] spray[smv] your hot seed across your clothes and the ground while your hot, feminine juices soak your thighs. You leave a [if cock width of player + ( 2 * cunt width of player ) < 18]messy splotch[else if cock width of player + ( 2 * cunt width of player ) < 25]messy puddle[else]large puddle[end if] of sexual fluids behind from your outburst, feeling only slightly relieved.";
	else if player is male:
		say "     Your groin, overflowing with unsatisfied lustful needs, erupts spontaneously and knocks you to your knees. Your cock[smn] spray[smv] your hot seed across your clothes and the ground. Your blasted cum leaves a [if cock width of player < 18]messy splotch[else if cock width of player < 25]messy puddle[else]large puddle[end if] of sexual fluids behind from your outburst, feeling only slightly relieved.";
	else if player is female:
		say "     Your groin, overflowing with unsatisfied lustful needs, erupts spontaneously and knocks you to your knees. Your cunt[sfn] overflow[sfv] with hot, feminine juices that soak your thighs. You leave a [if ( 2 * cunt width of player ) < 18]messy splotch[else if ( 2 * cunt width of player ) < 25]messy puddle[else]large puddle[end if] of sexual fluids behind from your outburst, feeling only slightly relieved.";
	else:		[neuter]
		say "     Your body, consumed with a lust it is unable to satisfy, drops to its knees and trembles with an painful, aching need. Lacking any other means, you rub over your [bodytype of player] body until it finally passes, leaving you weak, tired and largely unsatisfied.";
		now HP of player is ( 3 * HP of player ) / 4;

This is the monster injury rule:
	choose row monster from the Table of Random Critters;
	let per be ( monsterHP times 100 ) divided by HP entry;
	if per < 10:
		now descr is "[one of]on death's door[or]almost defeated[or]barely mobile[at random]";
	else if per < 40:
		now descr is "[one of]wounded[or]bashed around[or]significantly harmed[at random]";
	else if per < 80:
		now descr is "[one of]scuffed[or]bruised[or]still in the fight[at random]";
	else:
		now descr is "[one of]healthy[or]energetic[or]largely unharmed[at random]";
	rule succeeds;

This is the player injury rule:
	let per be ( HP of the player times 100 ) divided by maxHP of the player;
	if per <= 10:
		now descr is "[if playerpoison > 0][special-style-1]poisoned[roman type] and [end if][one of]on death's door[or]almost defeated[or]barely mobile[at random]";
	else if per <= 40:
		now descr is "[if playerpoison > 0][special-style-1]poisoned[roman type] and [end if][one of]wounded[or]bashed around[or]significantly harmed[at random]";
	else if per <= 80:
		now descr is "[one of]scuffed[or]bruised[or]still in the fight[at random][if playerpoison > 0], but [special-style-1]poisoned[roman type]";
	else:
		now descr is "[one of]healthy[or]energetic[or]largely unharmed[at random][if playerpoison > 0], but [special-style-1]poisoned[roman type]";
	rule succeeds;

This is the brain descr rule:
	if humanity of player > 90:
		now descr is "[one of]clean[or]pristine[or]perfectly normal[at random][lusting]";
	else if humanity of player > 70:
		now descr is "[one of]lightly tainted[or]occasionally plagued with odd instinctual[at random][lusting]";
	else if humanity of player > 30:
		if facename of player is not "Human":
			now descr is "increasingly [facename of player] perspective[lusting]";
		else if bodyname of player is not "Human":
			now descr is "increasingly [bodyname of player] perspective[lusting]";
		else if skinname of player is not "Human":
			now descr is "increasingly [skinname of player] perspective[lusting]";
		else if cockname of player is not "Human":
			now descr is "increasingly [cockname of player] perspective[lusting]";
		else if tailname of player is not "Human":
			now descr is "increasingly [tailname of player] perspective[lusting]";
		else:
			now descr is "increasingly corrupted perspective[lusting]";
	else:
		now descr is "almost entirely subsumed[lusting]";
	if libido of player < 21, now lusting is " thoughts.";
	if libido of player > 80:
		let mun be a random number from 1 to number of filled rows in Table of Random Critters;
		now lusting is " thoughts. You are almost entirely subsumed with a random thought of [one of]fucking[or]being fucked by[at random] a [name in row monster of the Table of Random Critters] [one of]wildly[or]slowly[or]for hours[or]forever[or]until you pass out[at random], the daydream distracting you for half an hour.";
	else if libido of player > 40:
		now lusting is " thoughts. You are [one of]distracted by doodling a big breasted monster[or]distracted by doodling a big cocked monster[or]distracted by taking a moment to rub at yourself[at random].";
	else if libido of player > 20:
		now lusting is " thoughts. You are riddled with occasionally dirty lapses.";

This is the breast descr rule:
	if breast size of player < 1:
		now descr is "[one of]nonexistent[or]entirely flat[or]manly[at random]";
		now sh-descr is "[one of]nonexistent[or]entirely flat[or]manly[at random]";
	else if breast size of player < 3:
		now descr is "[one of]palmable[or]small[or]dainty[or]slender[or]perky[at random] [character number breast size of player in cupsize] cup";
		now sh-descr is "[one of]palmable[or]small[or]dainty[or]slender[or]perky[at random]";
	else if breast size of player is 3:
		now descr is "[character number breast size of player in cupsize] cup";
		now sh-descr is "[one of]reasonably-sized[or]average[or]moderate[at random]";
	else if breast size of player is 4:
		now descr is "[character number breast size of player in cupsize] cup";
		now sh-descr is "[one of]eye-catching[or]substantive[or]shapely[at random]";
	else if breast size of player < 5:
		now descr is "[character number breast size of player in cupsize] cup";
		now sh-descr is "[one of]average-sized[or]normal-sized[or]healthy-sized[or][character number breast size of player in cupsize] cup[at random]";
	else if breast size of player < 7:
		now descr is "[one of]large[or]jiggling[or]well-shaped[or]plump[at random] [character number breast size of player in cupsize] cup";
		now sh-descr is "[one of]large[or]jiggling[or]well-shaped[or]plump[at random]";
	else if breast size of player < 9:
		now descr is "[one of]massive[or]huge[or]heavy[at random] [character number breast size of player in cupsize] cup";
		now sh-descr is "[one of]massive[or]huge[or]heavy[at random]";
	else if breast size of player < 12:
		now descr is "[one of]enormous[or]giant[or]hulking[or]head-sized[or]basketball-sized[at random] [character number breast size of player in cupsize] cup";
		now sh-descr is "[one of]enormous[or]giant[or]hulking[or]head-sized[or]basketball-sized[at random]";
	else:
		now descr is "[one of]gargantuan[or]beachball-sized[or]mountainous[or]colossal[or]gigantic[at random] [character number breast size of player in cupsize] cup";
		now sh-descr is "[one of]gargantuan[or]beachball-sized[or]mountainous[or]colossal[or]gigantic[at random]";
	now breast size desc of player is descr;
	now short breast size desc of player is sh-descr;
	rule succeeds;

This is the cock descr rule:
	if cock length of player < 3:
		now descr is "[one of]tiny[or]very small[or]puny[at random]";
	else if cock length of player < 6:
		now descr is "[one of]smaller than average[or]small[or]below average[at random]";
	else if cock length of player < 8:
		now descr is "[one of]average in size[or]normal-sized[at random]";
	else if cock length of player < 12:
		now descr is "[one of]large[or]sizable[or]well-built[or]longer than average[at random]";
	else if cock length of player is 12:
		now descr is "foot long";
	else if cock length of player < 18:
		now descr is "[one of]huge[or]heavy[or]ponderous[or]massive[or]forearm length[at random]";
	else if cock length of player < 25:
		now descr is "[one of]giant[or]hulking[or]hypertrophied[or]elephantine[or]monstrous[or]towering[at random]";
	else:
		now descr is "[one of]mammoth[or]gigantic[or]colossal[or]titanic[or]third leg[or]devastating[at random]";
	now cock size desc of player is descr;
	rule succeeds;

To say ball size:
	if cock width of player > 0:
		if cock width of player < 3:
			say "[one of]marble-sized[or]tiny[or]very small[at random]";
		else if cock width of player < 6:
			say "[one of]plum-sized[or]golf-ball-sized[or]apricot-sized[or]average[at random]";
		else if cock width of player < 12:
			say "[one of]lemon-sized[or]large[at random]";
		else if cock width of player < 16:
			say "[one of]baseball-sized[or]orange-sized[or]hand-filling[at random]";
		else if cock width of player < 20:
			say "[one of]grapefruit-sized[or]massive[at random]";
		else if cock width of player < 25:
			say "[one of]cantaloupe-sized[or]giant[or]knee-knocking[at random]";
		else if cock width of player < 32:
			say "[one of]basketball-sized[or]ginormous[or]super-inflated[or]watermelon-huge[at random]";
		else:
			say "[one of]floor-dragging[or]beachball-sized[or]gargantuan[or]ground-hanging[at random]";
		say " [one of]balls[or]testicles[or]gonads[at random]";

To say short ball size:
	if cock width of player > 0:
		if cock width of player < 3:
			say "[one of]marble-sized[or]tiny[or]very small[at random]";
		else if cock width of player < 6:
			say "[one of]plum-sized[or]golf-ball-sized[or]apricot-sized[or]average[at random]";
		else if cock width of player < 12:
			say "[one of]lemon-sized[or]large[at random]";
		else if cock width of player < 16:
			say "[one of]baseball-sized[or]orange-sized[or]hand-filling[at random]";
		else if cock width of player < 20:
			say "[one of]grapefruit-sized[or]massive[at random]";
		else if cock width of player < 25:
			say "[one of]cantaloupe-sized[or]giant[or]knee-knocking[at random]";
		else if cock width of player < 32:
			say "[one of]basketball-sized[or]ginormous[or]super-inflated[or]watermelon-huge[at random]";
		else:
			say "[one of]floor-dragging[or]beachball-sized[or]gargantuan[or]ground-hanging[at random]";

to say cum load size of ( x - a person ):
	if cock width of x > 0:
		if cock width of x < 3:			[1, 2]
			say "[one of]piddling[or]tiny[or]minuscule[or]feeble[or]small[or]meager[at random]";
		else if cock width of x < 6:	[3 - 5]
			say "[one of]average[or]normal-sized[or]fair-sized[or]moderate[or]adequate[or]regular-sized[at random]";
		else if cock width of x < 12:	[6 - 11]
			say "[one of]triple-dose[or]half-cup[or]cupful[or]ample[or]above-average[or]generous[or]sizable[at random]";
		else if cock width of x < 16:	[12 - 15]
			say "[one of]half-liter[or]considerable[or]impressive[or]pint-full[or]copious[or]substantial[or]large[or]abundant[or]plentiful[at random]";
		else if cock width of x < 20:	[16 - 19]
			say "[one of]one-liter[or]flowing[or]heavy[or]quart-sized[or]drenching[or]jumbo[or]whopping[at random]";
		else if cock width of x < 25:	[20 - 24]
			say "[one of]two-liter[or]half-gallon[or]giant[or]huge[or]blasting[or]enormous[or]immense[at random]";
		else if cock width of x < 32:	[25 - 31]
			say "[one of]overflowing[or]bucket-filling[or]excessive[or]gushing[or]massive[at random]";
		else:								[32+]
			say "[one of]torrential[or]monumental[or]colossal[or]gigantic[or]immeasurable[or]devastating[or]near-unending[at random]";

This is the cunt descr rule:
	if cunt length of player < 3:
		now descr is "[one of]extremely small[or]puny[at random]";
	else if cunt length of player < 6:
		now descr is "[one of]smaller than average[or]small[or]below average[at random]";
	else if cunt length of player < 8:
		now descr is "[one of]average[or]normal-sized[at random]";
	else if cunt length of player < 12:
		now descr is "[one of]large[or]thick-lipped[or]above average[at random]";
	else if cunt length of player < 18:
		now descr is "[one of]belly bulgingly huge[or]inhumanly deep[or]forearm length[at random]";
	else if cunt length of player < 25:
		now descr is "[one of]titanic[or]astonishingly deep[or]elephantine[at random]";
	else:
		now descr is "[one of]cavernous[or]seemingly bottomless[or]canyonlike[at random]";
	now cunt size desc of player is descr;
	rule succeeds;

to say body size of ( x - a person ):
	if scalevalue of x is 1: [~3 ft in height or less]
		say "tiny";
	else if scalevalue of x is 2: [4-5 ft in height]
		say "small";
	else if scalevalue of x is 3: [5-7 ft in height]
		say "average";
	else if scalevalue of x is 4: [8-12 ft in height]
		say "large";
	else: [12+ ft in height]
		say "huge";

looknow is a number that varies.

Afterexamine rules is a rulebook.

instead of examining a person (called x):
	if x is the player:
		follow the self examine rule;
		follow the afterexamine rules;
	else:
		say "[The description of x]";
		if hypernull is 0:
			try linkactioning x;

linkactioning is an action applying to one thing.

understand "linkaction [person]" as linkactioning.

carry out linkactioning:
	linkaction noun;

linkcheck is a person that varies.[@Tag:NotSaved]
The linkaction of a person is usually "Possible Actions: [if number of entries of conversation of linkcheck > 0][link]talk[as]talk [linkcheck][end link], [end if][link]smell[as]smell [linkcheck][end link][if linkcheck is companion of player], [link]dismiss[as]dismiss[end link][else], [link]fuck[as]fuck [linkcheck][end link][end if][line break]";

to linkaction (x - Person):
	now linkcheck is x;
	say "[linkaction of x]";

[NOTE: For characters w/different action options, use a 'instead of linkactioning <name>' clause.]

instead of linkactioning Doctor Matt when HP of Doctor Matt > 0:
	say "Possible Actions: [link]talk[as]talk Doctor Matt[end link], [link]smell[as]smell Doctor Matt[end link], [link]fuck[as]fuck Doctor Matt[end link], [link]volunteer[end link][line break]";


Showstatting is an action applying to nothing.

Understand "stat" as showstatting.
Understand "stats" as showstatting.

carry out showstatting:
	showstats player;

To showstats (x - Person):
	sort Feats of player;
	sort Traits of player;
	say "Strength: [strength of the x], Dexterity: [dexterity of the x], Stamina: [stamina of the x], Charisma: [Charisma of the x], Perception: [perception of the x], Intelligence: [intelligence of the x].";
	say "Humanity: [humanity of the x]/100, Morale: [morale of the x], HP: [HP of x]/[maxHP of x] Libido: [libido of x]/100, Hunger: [hunger of x]/100, Thirst: [thirst of x]/100.";
	let z be ( level of x plus one) times 10;
	if "Fast Learner" is listed in feats of x:
		now z is ( level of x plus one) times 8;
	say "Level: [level of x], XP: [XP of x]/[z]";
	if the number of entries in feats of the x > 0:
		say ", Feats: [feats of the x][line break]";
	if debugactive is 1:
		say "DEBUG -> Traits: [Traits of Player][line break]";
	if debugactive is 1:
		say "DEBUG -> Invent: [Invent of Player][line break]";

This is the self examine rule:
	now looknow is 1;
	showstats player;
	if name of player is not "Player":
		say "Your name is [name of player].";
	[ Infection Descriptions Below   ]
	say "Looking at yourself, your body is covered in [skin of player] skin. Your face is [face of player]. ";
	say "Your body is [body of player]. ";
	follow the breast descr rule;
	if breasts of player > 0:
		if breast size of player is 0:
			say "You have [breasts of player] nipples on your [bodydesc of player] chest. ";
		else:
			if breasts of player > 2:
				say "You have [breasts of player] breasts on your [bodydesc of player] chest. The first pair looks [descr] and curves out [breast size of player] inch[if breast size of player is not 1]es[end if] from your chest. The second pair curves out [(breast size of player times three) divided by five] inch[if ( breast size of player times three ) divided by 5 is not 1]es[end if] from your chest. ";
				if breasts of player > 4, say "The rest jostle for space [breast size of player divided by three] inch[if breast size of player divided by 3 is not 1]es[end if] from your belly. ";
			else:
				say "You have two [descr] breasts on your [bodydesc of player] chest, curving out [breast size of player] inch[if breast size of player is not 1]es[end if] from your chest. ";
	if child is not born and gestation of child > 0:
		if gestation of child < 10:
			now looknow is 0;
			say "Your [skin of player] swollen belly looks ready to spill forth life at any moment. ";
			now looknow is 1;
		else if gestation of child < 20:
			say "You have a noticeable bulge, a soft roundness to your belly that speaks of too many nights with a tub of ice cream, or an incoming child. ";
		else if gestation of child < 30:
			say "You feel a soft subtle glow somewhere in your belly. ";
	else if heat enabled is true:
		if inheat is true:
			say "You also feel [if heatlevel is 3]an intense[else]a[end if] need to be on the receiving end of a good, hard fuck because of your presently heated state. ";
		else if heatlevel is 1 and player is impreg_able and cockname of player is not "Human":
			say "You are thankfully spared some undo sexual yearning because you've prevented your tainted womb from going into heat. ";
		else if heatlevel is 3 and player is impreg_able and cockname of player is not "Human":
			say "Your tainted womb is not troubling you unduly at the moment, though you're unsure when your next intensified heat may strike you. ";
	if "Angie's Mate" is listed in feats of player:
		say "Thin lines of healed claw-marks run down your back, marking you as Angie's mate. ";
	if "Boghrim's Mark" is listed in feats of player:
		say "Two small scars from Boghrim's tusks mark your shoulder, a reminder of the first time the big orc fucked you. ";
	if "Top Dog" is listed in feats of player:
		say "Your back still bears the scars left by Alexandra's claws during a bout of intense mating, a reminder of your dominance over her and your status as 'Top Dog'. ";
	if tail of player is empty:
		say "";
	else:
		say " [tail of player] ";
	[ ^^ Infection Descriptions Done ]
	[ Genital Descriptions Below     ]
	let cocktext be "";
	follow the cock descr rule;
	if player is male:
		if cocks of player > 1:
			now cocktext is "have [cocks of player] [cock size desc of player] [cock length of player]-inch-long [cock of player] [one of]cocks[or]penises[or]shafts[or]manhoods[at random]. They are [if libido of player <= 25]only somewhat aroused at the moment[else if libido of player <= 50]partially hard and dribbling a little pre[else if libido of player <= 75]erect and leaking precum[else]fully erect and drooling precum steadily[end if]. [if player is internal]Though they are not outwardly apparent, you wager you have[else]Underneath them hangs[end if] [one of]a pair of[or]a set of[at random] [ball size]. ";
		else:
			now cocktext is "have a [cock size desc of player] [cock length of player]-inch-long [cock of player] [one of]cock[or]penis[or]shaft[or]maleness[at random]. It is [if libido of player <= 25]only somewhat aroused at the moment[else if libido of player <= 50]partially hard and dribbling a little pre[else if libido of player <= 75]erect and leaking precum[else]fully erect and drooling precum steadily[end if]. [if player is internal]Though they are not outwardly apparent, you wager you have[else]Underneath it hangs[end if] [one of]a pair of[or]a set of[at random] [ball size]. ";
	let cunttext be "";
	follow the cunt descr rule;
	if player is female:
		if cunts of player > 1:
			now cunttext is " have [cunts of player] [cunt size desc of player] [one of]cunts[or]pussies[or]vaginas[at random]. Further probing shows them to be [cunt length of player] inches deep and able to stretch to about [cunt width of player] around. They are [if libido of player <= 25]a little damp at the moment[else if libido of player <= 50]wet with your juices[else if libido of player <= 75]hot and dripping juices[else]drooling musky nectar down your thighs[end if]. ";
		else:
			now cunttext is "r [one of]cunt[or]pussy[or]vagina[or]cleft[at random] looks [cunt size desc of player], and further probing shows it to be [cunt length of player] inches deep and able to stretch to [cunt width of player] around. It is [if libido of player <= 25]a little damp at the moment[else if libido of player <= 50]wet with your juices[else if libido of player <= 75]hot and dripping juices[else]drooling musky nectar down your thighs[end if]. ";
	if cocktext is not empty:
		if cunttext is empty:
			say "A private peek shows that you [cocktext]";
		else:
			say "A private peek shows that you [cocktext]";
			say "Also, you[cunttext]";
	else if cunttext is not "":
		say " You[cunttext]";
	[ ^^ Genital Descriptions Done ]
	[ Equipment Descriptions Below ]
	LineBreak;
	LineBreak;
	repeat with x running through equipped owned equipment:
		if placement of x is "helm":
			if descmod of x is "":
				break;
			else:
				say "[descmod of x] ";
	repeat with x running through equipped owned equipment:
		if placement of x is "eyes":
			if descmod of x is "":
				break;
			else:
				say "[descmod of x] ";
	repeat with x running through equipped owned equipment:
		if placement of x is "face":
			if descmod of x is "":
				break;
			else:
				say "[descmod of x] ";
	repeat with x running through equipped owned equipment:
		if placement of x is "chest":
			if descmod of x is "":
				break;
			else:
				say "[descmod of x] ";
	let CrotchVisible be true;
	repeat with x running through equipped owned equipment:
		if placement of x is "waist":
			if descmod of x is "":
				break;
			else:
				say "[descmod of x] ";
				now CrotchVisible is false;
	if CrotchVisible is true: [no pants, so undies might be visible]
		repeat with x running through equipped owned equipment:
			if placement of x is "crotch":
				if descmod of x is "":
					break;
				else:
					say "[descmod of x] ";
					now CrotchVisible is false;
	if CrotchVisible is true: [no undies, so the actual crotch is visible]
		say "Your [bodyname of player in lower case] waist and legs are bare-ass naked, exposing your privates for everyone to see. ";
	let Barefoot be true;
	repeat with x running through equipped owned equipment:
		if placement of x is "feet":
			if descmod of x is "":
				break;
			else:
				say "[descmod of x] ";
				now Barefoot is false;
	if Barefoot is true:
		say "You are barefoot right now. ";
	LineBreak;
	if weapon object of player is not journal:
		say "You are carrying a/an [weapon object of player] just in case of trouble";
		if weapon object of player is unwieldy:
			say ". Due to its comparatively [if scalevalue of player > objsize of weapon object of player]small[else]big[end if] size, it is [if absolute value of ( scalevalue of player - objsize of weapon object of player ) > 3]very unwieldy[else if absolute value of ( scalevalue of player - objsize of weapon object of player ) is 3]rather unwieldy[else]somewhat unwieldy[end if] for you to use at the moment";
		say ". ";
	repeat with x running through equipped owned equipment:
		if descmod of x is "", next;
		if placement of x is "end":
			say " [descmod of x]";
	[ ^^ Eqipment Descriptions Done ]
	[ Children Descriptions Below   ]
	if the number of entries in childrenfaces > 0:
		if the number of entries in childrenfaces is 1:
			if ( entry 1 of childrenskins is not entry 1 of childrenbodies ) or ( entry 1 of childrenskins is not entry 1 of childrenfaces ):
				say "Trailing behind you, your child has a [entry 1 of childrenfaces] face, and a [entry 1 of childrenbodies] body covered in [entry 1 of childrenskins] skin.";
			else:
				say "Trailing behind you, your child is a pure blood [entry 1 of childrenfaces].";
			say "They look as alert and human as you are, taking after you eagerly. Despite their age, they are already grown to young adults, both physically and in apparent emotional and mental development.";
		else:
			say "Trailing behind you come your children.";
			repeat with x running from 1 to number of entries in childrenfaces:
				if ( entry x of childrenskins is not entry x of childrenbodies ) or ( entry x of childrenskins is not entry x of childrenfaces ):
					say "One has a [entry x of childrenfaces] face, and a [entry x of childrenbodies] body covered in [entry x of childrenskins] skin.";
				else:
					say "One is a pure blood [entry x of childrenfaces].";
			say "They all are as alert and human as you are, taking after you eagerly. Despite their age, they are already grown to young adults, both physically and in apparent emotional and mental development.";
	if the player is not lonely:
		say "Accompanying you, you have a level [level of companion of player] [link][companion of player][as]look [companion of player][end link]. [initial appearance of companion of player]";
	now looknow is 0;
	rule succeeds;

This is the location choice rule:
	choose row current menu selection in the table of starting location;
	if title entry is "Bunker":
		say "You managed to find your way to a bunker, where you hid away for some time. No special perks, default start.";
	else if title entry is "Caught Outside":
		say "You were forced to survive outside. You have already been mutated a bit, though your practice has hardened you. (Gain Spartan Diet, slowing gain of hunger and thirst)[line break]";
	else if title entry is "Rescuer Stranded":
		say "You arrived late, looking for survivors, when you got cut off from your teammates. Now you just want to survive! (Start with no supplies)[line break]";
	else if title entry is "Forgotten":
		say "You stayed in hiding too long. Your supplies have run dry, and the rescue already came and left. It will be a long time before any more arrive![line break]";
	else if title entry is "Hard mode":
		say "You always had a desire to challenge yourself so purposely waited for some stronger opponents to appear before venturing out. Your supplies have run dry, and the rescue already came and left. It will be a long time before any more arrive![line break]";
	else if title entry is "Researcher":
		say "You are not stranded at all. You came to explore, catalog, and interact with this absolutely fascinating outbreak. You've been given immunizations to casual infection (you won't transform from losing battles) and have specialized equipment that allows you to collect the infection vials of those you defeat.[line break]";
	say "Continue?";
	if player consents:
		now looknow is 0;
	else:
		the rule fails;
	if title entry is not "Bunker":
		say "What luck. After looking around desperately, you come across a library with a mostly intact bunker in it. This will serve well as a refuge while you wait for rescue.";
		if title entry is "Caught Outside":
			add "Spartan Diet" to feats of player;
			[belongs in 'when play begins' block, as waiting prevents banned infections from being placed upon a player]
			[also lets feat choices like the gender preference ones be in effect]
			[ process dirty water;
			process dirty water;
			process dirty water;
			process dirty water; ]
		if title entry is "Rescuer Stranded":
			now invent of bunker is { };
			add "cot" to invent of bunker;
			increase score by 300;
		if title entry is "Forgotten":
			now invent of bunker is { };
			add "cot" to invent of bunker;
			now the printed name of Doctor Matt is "Left Behind Recording of Doctor Matt";
			now the initial appearance of Doctor Matt is "A small recorder labeled 'Doctor Matt' remains abandoned.";
			now the description of Doctor Matt is "A small recorder labeled 'Doctor Matt' remains abandoned.";
			now the HP of Doctor Matt is 100;
			now the icon of Doctor Matt is figure of pixel;
			now Orthas is nowhere;
			repeat with y running from 1 to number of filled rows in Table of Random Critters:
				choose row y in Table of Random Critters;
				if name entry is "Deer":
					now area entry is "Park";
					break;
			increase score by 600;
			extend game by 240;
		if title entry is "Hard mode":
			now invent of bunker is { };
			add "cot" to invent of bunker;
			now the printed name of Doctor Matt is "Left Behind Recording of Doctor Matt";
			now the initial appearance of Doctor Matt is "A small recorder labeled 'Doctor Matt' remains abandoned.";
			now the description of Doctor Matt is "A small recorder labeled 'Doctor Matt' remains abandoned.";
			now the HP of Doctor Matt is 100;
			now the icon of Doctor Matt is figure of pixel;
			now Orthas is nowhere;
			repeat with y running from 1 to number of filled rows in Table of Random Critters:
				choose row y in Table of Random Critters;
				if name entry is "Deer":
					now area entry is "Park";
					break;
			increase score by 900;
			extend game by 240;
			now hardmode is true;
			now levelwindow is 99999;
		if hardmode is false:
			say "Would you like to play hard mode?";
			if player consents:
				now hardmode is true;
				now levelwindow is 99999;
				say "Hardmode activated!";
	now scenario is title entry;
	now the menu depth is 0;
	if clearnomore is 0, clear the screen; [skips clearing if it's not wanted]
	rule succeeds;

This is the final stats rule:
	now the morale of the player is the charisma of the player plus the perception of the player;
	now the HP of the player is the stamina of the player times two;
	increase the HP of the player by 5;
	now the maxHP of the player is the HP of the player;
	now the humanity of player is 100;
	now the capacity of the player is five times the strength of the player;
	now the menu depth is 0;
	if clearnomore is 0, clear the screen; [skips clearing if it's not wanted]
	while 1 is 1:
		repeat with y running from 1 to number of filled rows in table of Starting Location:
			choose row y from the table of Starting Location;
			say "[link][y] - [title entry][as][y][end link][line break]";
		say "Type the number corresponding to the scenario you want to play> [run paragraph on]";
		get a number;
		if calcnumber > 0 and calcnumber <= the number of filled rows in table of Starting Location:
			now current menu selection is calcnumber;
			follow the location choice rule;
			if rule succeeded, break;
		else:
			say "Invalid Selection.";
	if clearnomore is 0, clear the screen; [skips clearing if it's not wanted]
	try looking;
	rule succeeds;

This is the male choice rule:
	now cocks of player is 1;
	now cock length of player is 6;
	now the cock width of the player is 4;
	now breasts of player is 2;
	now breast size of player is 0;
	now the current menu is table of Basic Actions;
	say "You are a man.";
	wait for any key;
	follow the final stats rule;
	rule succeeds;

This is the female choice rule:
	now cunts of player is 1;
	now cunt length of player is 6;
	now cunt width of player is 4;
	now breasts of player is 2;
	now breast size of player is 2;
	now the current menu is table of Basic Actions;
	say "You are a woman.";
	wait for any key;
	follow the final stats rule;
	rule succeeds;

This is the d18 rule:
	now d18 is 0;
	increase d18 by a random number from 1 to 6;
	increase d18 by a random number from 1 to 6;
	increase d18 by a random number from 1 to 6;
	rule succeeds;

This is the random stats rule:
	follow the d18 rule;
	now the strength of the player is d18;
	follow the d18 rule;
	now the Dexterity of the player is d18;
	follow the d18 rule;
	now the Stamina of the player is d18;
	follow the d18 rule;
	now the Charisma of the player is d18;
	follow the d18 rule;
	now the Perception of the player is d18;
	follow the d18 rule;
	now the Intelligence of the player is d18;
	decrease the score by 1;
	rule succeeds.

This is the starting stats rule:
	now the strength of the player is 12;
	now the Dexterity of the player is 12;
	now the Stamina of the player is 12;
	now the Charisma of the player is 12;
	now the Perception of the player is 12;
	now the Intelligence of the player is 12;
	decrease the score by 0;
	rule succeeds.

This is the Menu Exit Rule:
	decrease the menu depth by 1;
[	carry out the displaying activity;
	clear the screen;
	try looking;]
	rule succeeds.


Instead of examining the infection terminal:
	say "Filled with glowing characters, the terminal lists all identified infections with some stats beside:[line break]";
	let z be 0;
	sort Table of Random Critters in lev order;
	repeat with X running from 1 to number of filled rows in Table of Random Critters:
		choose row X from the Table of Random Critters;
		if there is a lev entry:
			increase z by 1;
			say "[Name Entry]: Danger Level: [lev entry], Typical Environment: [area entry][line break]";
			if z is 15:
				[say "Press any key to continue.";] [unneeded with 'more' link]
				WaitLineBreak;
				now z is 0;
	say "End Infection list.[line break]";
	wait for any key; [don't apply waiterhater, used to separate monsters from credits]
	say "Under it is something called a 'credit' list, how odd.";
	say "[complete list of extension credits]";
	say "End Credit list.[line break]";

To Plot:
	let x be the location;
	if x is unknown:
		now x is known;
		increase score by 1;
		if x is fasttravel:
			say "You feel you could [bold type]navigate[roman type] back to here easily from other such rooms.";

After going:
	try looking;
	[follow the ngraphics_blank rule;]
	plot;

This is the finish stats rule:
	if started is 1:
		if Current menu selection is 1:
			increase strength of player by 1;
			increase capacity of player by 5;
			say "Your strength grows.";
		if Current menu selection is 2:
			increase dexterity of player by 1;
			say "Your dexterity grows.";
		if Current menu selection is 3:
			increase Stamina of player by 1;
			say "Your Stamina grows.";
		if Current menu selection is 4:
			increase charisma of player by 1;
			say "Your charisma grows.";
		if Current menu selection is 5:
			increase perception of player by 1;
			say "Your perception grows.";
		if Current menu selection is 6:
			increase intelligence of player by 1;
			say "Your intelligence grows.";
		decrease menu depth by 1;
		rule succeeds;
	if Current menu selection is 1:
		say "Your strength is your specialty.";
		say "Are you sure?";
		if player consents:
			increase strength of player by 5;
		else:
			rule fails;
	if Current menu selection is 2:
		say "Your dexterity is your specialty.";
		say "Are you sure?";
		if player consents:
			increase dexterity of player by 5;
		else:
			rule fails;
	if Current menu selection is 3:
		say "Your stamina is your specialty.";
		say "Are you sure?";
		if player consents:
			increase stamina of player by 5;
		else:
			rule fails;
	if Current menu selection is 4:
		say "Your charisma is your specialty.";
		say "Are you sure?";
		if player consents:
			increase charisma of player by 5;
		else:
			rule fails;
	if Current menu selection is 5:
		say "Your perception is your specialty.";
		say "Are you sure?";
		if player consents:
			increase perception of player by 5;
		else:
			rule fails;
	if Current menu selection is 6:
		say "Your intelligence is your specialty.";
		say "Are you sure?";
		if player consents:
			increase intelligence of player by 5;
		else:
			rule fails;
	now started is 1;
	say "[line break]You have decided your physical talents, but are you a man or a woman?";
	say "Do you want to be [link][bracket]m[close bracket][as]m[end link]ale or [link][bracket]f[close bracket][as]f[end link]emale?>[run paragraph on]";
	now tempnum is 0;
	while tempnum is 0:
		get typed command as playerinput;
		if playerinput matches "m" or playerinput matches "1":
			now tempnum is 1;
			follow male choice rule;
		else if playerinput matches "f" or playerinput matches "2":
			now tempnum is 1;
			follow female choice rule;
		else:
			say "Type 'm' or 'f'.> [run paragraph on]";
	if clearnomore is 0, clear the screen; [skips clearing if it's not wanted]
[	try looking;]
	rule succeeds;

ScavengingAction is an action applying to nothing.
tscavenging is an action applying to one topic.
Scavengetarget is an indexed text that varies.[@Tag:NotSaved]
A scavevent is a kind of situation.

understand "Scavenge" as ScavengingAction.
understand "Scav" as ScavengingAction.
[
understand "Scavenge [text]" as ScavengingAction.
understand "Scav [text]" as ScavengingAction.
]

check tscavenging:
	if location of player is not fasttravel, say "You can only scavenge from quick travel points." instead;
	if blindmode is true, say "You're playing in blind-mode, so hunting is not allowed - even scavenge-hunting. You'll have to try scavenging normally to find what you seek." instead;

Carry out tscavenging:
	now scavengetarget is the topic understood;
	try ScavengingAction;
	now scavengetarget is "";

check ScavengingAction:
	if location of player is not fasttravel, say "You can only scavenge from quick travel points." instead;

carry out ScavengingAction:
	let x be a random visible dangerous door;
	if x is not nothing:
		now battleground is marea of x;
	else:
		now battleground is "Outside";
	say "You set out in the desperate search of food and water.";
	let the bonus be (( the perception of the player minus 10 ) divided by 2);
	if "Survivalist" is listed in feats of player, increase bonus by 4;
	if "Three Bags Full" is listed in feats of player, increase bonus by 1;
	let the dice be a random number from 1 to 20;
	say "You roll 1d20([dice])+[bonus] -- [dice plus bonus] vs 10: ";
	if dice plus bonus > 9:
		now inasituation is true;
		if a random chance of 3 in 4 succeeds:
			try resolving potential resources;
		else:
			now tempnum is 1;
			let L be a random scavable unresolved scavevent;
			If L is not nothing:
				say "[one of]During your search for supplies, you end up at[or]Searching systematically for resources, you locate[or]Following signs of recent activity, you end up at[or]Doing a slow circuit while scavenging, you manage to find[or]Wandering around aimlessly in search of supplies, you locate[at random] [L].";
				try resolving L;
			else if L is nothing:
				try resolving potential resources;
		now inasituation is false;
		now battleground is "void";
		say "[line break]";
	else:
		say "Your search turns up empty.";
	now inasituation is false;
	if battleground is "", now battleground is "Outside";
	let z be 7;
	if "Stealthy" is listed in feats of player, decrease z by 2;
	if "Bad Luck" is listed in feats of player, increase z by 1;
	randomfightchance;
	follow turnpass rule;

To Infect (x - text):
	if scenario is "Researcher" and researchbypass is 0:
		vialchance x;
		continue the action;
	repeat with y running from 1 to number of filled rows in Table of Random Critters:
		choose row y in Table of Random Critters;
		if name entry exactly matches the text x, case insensitively:
			if BannedStatus entry is true: [banned creatures can't infect]
				if debugactive is 1:
					say "DEBUG -> Can't infect with creature [name entry] because it has Banned: [BannedStatus entry][line break]";
				break;
			else:
				now monster is y;
				let reset be 0;
				if researchbypass is 1 and non-infectious entry is true:
					now reset is 1;
					now non-infectious entry is false;
				infect;
				if reset is 1:
					now non-infectious entry is true;
				break;

to randominfect: [bypasses researcher protection]
	now researchbypass is 1;
	weakrandominfect;
	now researchbypass is 0;


to weakrandominfect: [does not bypass researcher protection]
	sort Table of Random Critters in random order;
	now monster is 1;
	choose row monster from Table of Random Critters;
	if BannedStatus entry is true: [banned creatures can't be challenged]
		if debugactive is 1:
			say "DEBUG -> Can't infect with creature [name entry] because it has Banned: [BannedStatus entry][line break]";
	else:
		while there is a non-infectious in row monster of Table of Random Critters and non-infectious entry is true:
			increase monster by 1;
			choose row monster from Table of Random Critters;
			if there is a non-infectious in row monster of Table of Random Critters and non-infectious entry is true:
				next;
			break;
		infect;

to setmonster ( x - text ): [puts an infection (named x) as lead monster for later use]
	let found be 0;
	choose row monster in the Table of Random Critters;
	if name entry exactly matches the text x, case insensitively:
		now found is 1;
	else:
		repeat with y running from 1 to number of filled rows in Table of Random Critters:
			choose row y in Table of Random Critters;
			if name entry exactly matches the text x, case insensitively:
				now found is 1;
				now monster is y;
				break;
	if found is 0:
		say "ERROR - Creature '[x]' not found. (setmonster)[line break]";
	else if debugactive is 1:
		say "DEBUG: Current [']monster['] set to: [monster] = [name entry][line break]";

Section x - Debug Commands - Not for release

[Since 'not for release' is in the heading, these commands will not be included in Release versions! great for debugging & testing commands]

Spawnmonster is an action applying to one topic.

understand "spawn [text]" as spawnmonster.

carry out spawnmonster:
	repeat with X running from 1 to number of filled rows in Table of Random Critters:
		choose row X from the Table of Random Critters;
		if name entry exactly matches the text topic understood, case insensitively:
			now monster is X;
			now monsterHP is HP entry;
			challenge;
			break;

levelcheat is an action applying to nothing.

understand "givelevel" as levelcheat.

carry out levelcheat:
	now XP of the player is (10 + (level of player times 10));
	if "Fast Learner" is listed in feats of player:
		decrease XP of player by ( level of player times 2 );
	level up;
	decrease score by level of the player times level of the player;

Section Lists of Tables - Not for release

[intends to list stuff for debugging (or any other activity needing a list of what's in the game). output is formatted as CSV to simplify exporting. appears to be working properly.]
TableListing is an action applying to one topic.
Understand "tlist [text]" as TableListing.

Carry out tablelisting:
	let t be the topic understood;
	if t in lower case is "object":
		say "Name,Weight:[line break]";
		sort table of game objects in object order;
		repeat with X running from 1 to number of filled rows in table of game objects:
			choose row X from the table of game objects;
			if there is a name entry:
				say "[name Entry],[weight entry][line break]";
		say "End of list of objects.";
		stop the action;
	else if t in lower case is "creature":
		say "Name,Level,Area:[line break]";
		sort Table of Random Critters in lev order;
		repeat with X running from 1 to number of filled rows in Table of Random Critters:
			choose row X from the Table of Random Critters;
			if there is a lev entry:
				say "[name entry],[lev entry],[area entry][line break]";
		say "End of list of random critters.";
		stop the action;
	else if t in lower case is "critcombat":
		say "Critter Combats:[line break]";
		sort Table of Critter Combat in combat order;
		repeat with X running from 1 to number of filled rows in Table of Critter Combat:
			choose row X from the Table of Critter Combat;
			if there is a name entry:
				say "[name entry][line break]";
		say "End of list of critter combats.";
		stop the action;
	else if t in lower case is "room":
		say "Rooms:[line break]";
		repeat with n running through rooms:
			say "[n][line break]";
		say "End of list of rooms.";
		stop the action;
	else if t in lower case is "npc":
		say "NPC: [line break]";
		repeat with n running through person:
			say "[n][line break]";
		say "End of list of NonPlayerCharacters.";
		stop the action;
	else if t in lower case is "grab":
		say "Grab Object:[line break]";
		repeat with n running through Grab Object:
			say "[n][line break]";
		say "End of list of Grab Objects.";
		stop the action;
	else if t in lower case is "weapon":
		say "Weapon:[line break]";
		repeat with n running through A armament:
			say "[n][line break]";
		say "End of list of weapons.";
		stop the action;
	else if t in lower case is "equipment":
		say "Equipment:[line break]";
		repeat with n running through Equipment:
			say "[n][line break]";
		say "End of list of Equipment.";
		stop the action;
	else if t in lower case is "heat":
		say "Name, Heat Cycle, Heat Duration, Female Heat, MPreg Heat:[line break]";
		sort Table of infection heat in infect name order;
		repeat with X running from 1 to number of filled rows in Table of infection heat:
			choose row X from the Table of infection heat;
			if there is a infect name entry:
				if there is a fheat entry and there is a mpregheat entry:
					say "[infect name entry]: [heat cycle entry],[heat duration entry], F: [if there is a fheat entry and fheat entry is true]Yes[else]No[end if], MPreg: [if there is a mpregheat entry and mpregheat entry is true]Yes[else]No[end if][line break]";
				else:
					say "[infect name entry]: [heat cycle entry],[heat duration entry] - not updated to F/MPreg[line break]";
		say "End of list of heat.";
		stop the action;
	else if t in lower case is "zephyr":
		say "Zephyr Goods,Price[line break]";
		sort Table of Zephyr Goods in price order;
		repeat with X running from 1 to number of filled rows in Table of Zephyr Goods:
			choose row X from the Table of Zephyr Goods;
			if there is a price entry:
				say "[name entry],[price entry][line break]";
		say "End of list of Zephyr Goods.";
		stop the action;
	else if t in lower case is "biker":
		say "Biker Destination,Sort Order[line break]";
		sort Table of Biker Destinations in sortorder order;
		repeat with X running from 1 to number of filled rows in Table of Biker Destinations:
			choose row X from the Table of Biker Destinations;
			if there is a title entry:
				say "[title entry],[sortorder entry][line break]";
		say "End of list of Biker Destinations.";
		stop the action;
	else if t in lower case is "loot":
		say "Creature,Loot,Lootchance:[line break]";
		sort Table of Random Critters in loot order;
		repeat with X running from 1 to number of filled rows in Table of Random Critters:
			choose row X from the Table of Random Critters;
			if there is a loot entry:
				say "[name Entry],[loot entry],[lootchance entry][line break]";
		say "End of list of loot.";
		stop the action;
	else if t in lower case is "situation":
		say "Situations:[line break]";
		repeat with n running through situations:
			say "[n][line break]";
		say "End of list of Situations.";
		stop the action;
	else:
		say "nothing to list, try again.";

Book 7 - Endings

[ Moved to Game Endings.i7x in Core Mechanics ]

Book 8 - People

[Rod and Ronda Mallrat have been moved to the RodAndRonda file]

[Milking was moved to the Milking file in Core Mechanics]

The parser error count is a number that varies.[@Tag:NotSaved] The parser error count is 0.

After printing a parser error when the parser error count is at least 0:
	increment the parser error count;
	if the turn count divided by the parser error count < three:
		say "(If you are feeling lost, try typing [italic type]help[roman type] for suggestions.)";
		now the parser error count is -1. [This ensures that we don't keep printing the message.]


Book 9 - Add-Ons

[ Everything needed for the basic game functionality ]
Include Gametables by Core Mechanics.
Include Alt Combat by Core Mechanics.
Include Alt Vore by Core Mechanics.
Include Assorted Items by Stripes.
Include Banning by Core Mechanics.
Include Basic Clothing Items by Core Mechanics.
Include Basic Functions by Core Mechanics.
Include Basic Locations by Core Mechanics.
Include Basic Shops by Core Mechanics.
Include BFandI by Core Mechanics.
Include Bound State Universals by Core Mechanics.
Include Debugging Tools by Core Mechanics.
Include Definitions by Core Mechanics.
Include Feats by Core Mechanics.
include FS Graphics by Core Mechanics.
Include Fighting by Core Mechanics.
Include Fucking by Core Mechanics.
Include Hunting by Core Mechanics.
Include Game Endings by Core Mechanics.
Include Gender Pronouns by Core Mechanics.
Include Special Merchandize by Core Mechanics.
Include Inline Hyperlinks by Nuku Valente.
Include Masturbate by Core Mechanics.
Include Microwave by Core Mechanics.
Include Milking by Core Mechanics.
Include Navigation by Core Mechanics.
Include Needy Heat by Core Mechanics.
Include Patron Credits by Nuku Valente.
Include Pets by Core Mechanics.
Include Pregnancy by Core Mechanics.
Include Presets by Core Mechanics.
Include Quest Log by Core Mechanics.
Include Status View by Core Mechanics.
Include Sleeptimer by Core Mechanics.
Include Tape Inventory by Core Mechanics.
Include Text Capture by Eric Eve.

[Locations]
Include Apocalypse Store by DrGryphon.
Include Approaching the Capitol Building by Guest Writers.
Include Astroslide Field Locker-room by Kernog.
Include Astroslide Field Showers by Kernog.
Include Astroslide Football Field by Kernog.
Include Atlantis by Rikaeus.
Include Azrael by Rikaeus.
Include Beach by Speedlover.
Include Bargain Bin by Wahn.
Include Black Market by Luneth.
Include Black Market Items by Luneth.
Include Body Shop by Wahn.
Include Branson & Partner by Wahn.
Include Camp Bravo by Wahn.
Include Tenvale College Campus by Rikaeus.
[Include Church Of The Maternal Beast by Guest Writers.]
Include Dog House by Kaleem mcintyre.
Include Down Under Pub by Stripes.
Include Equinoid Camp by Song.
Include Farm by Wahn.
Include Gloryhole by SgtPepper234.
Include High Rise District by Guest Writers.
Include Hitching Post by SgtPepper234.
Include Hospital by Stripes.
Include Hyena Hideout by Stripes.
Include Junkyard and Warehouse by Wahn.
Include Kitsune Hide Away by Kaleem mcintyre.
Include Mall Community Center by Wahn.
Include Mall Residents by Rikaeus.
Include Medical Checkups by Stripes.
Include Museum by Sarokcat.
Include New Ewe Store by Sarokcat.
Include PIG Frat by Stripes.
Include Pirate Island by Sarokcat.
Include Power Plant by Hellerhound.
Include Qytat a'th Lundrues by hellerhound.
Include Red Light District by Wahn.
Include Shag Shack by Wahn.
Include Stablemasters by Sarokcat.
Include Stables Hotel by Sarokcat.
Include State Fair by Sarokcat.
Include Tattoo Parlor by Sarokcat.
Include Tiger Den by Sarokcat.
Include Tyr's Club by Kaleem mcintyre.
Include Underwater Zone by Hellerhound.
Include Urban Forest by Stripes.
Include Vohr Island by Kernog.
Include Zephyr Inc by Nuku Valente.
Include Zoo by Wahn.

[Quests & Events]
Include AG Beach Events by Aureas Gigas.
Include Ancient Tome by Wahn.
Include Additional Tome Scenes by Dys.
Include Apartment 319 by Kaleem Mcintyre.
Include Assorted Events by Stripes.
Include Beach Events by Sarokcat.
Include Bouncy Castle by Stripes.
Include Brookstone Books by Guest Writers.
Include Campus Events by Wahn.
Include Campus Lovers by CloserHenry.
Include Campus Couple NPC by CloserHenry.
Include CandyShop by Stripes.
Include Capitol Events by Blue Bishop.
Include Catapult Encounter by Hellerhound.
Include Central Library by Stripes.
Include Consolidated Outside Events by Song.
Include Consolidated Park Events by Song.
Include Chase by Luneth.
Include Chance Meetings by Kernog.
Include Combat Helmet by Nuku Valente.
Include Control Pills by Hellerhound.
[Include Disorganization by Kaleem mcintyre.] [Disabled till review]
Include Dmitri the Peacock by Aureas Gigas.
Include Dry Plains Events by Stripes.
Include Endings by Darthan.
Include E-shocker by Stripes.
Include Event Rewrites by Draegon.
Include Extra Added Scenes by Kaleem mcintyre.
Include Extra College Events by Speedlover.
Include Fair Events by Sarokcat.
Include Fair Events by Sarokcat.
Include Female Dorm Events by Prometheus.
Include Feral Events by MGEddie.
Include Fire House by Kaleem Mcintyre.
Include Food and Water Finding by Nuku Valente.
Include Forest Events by Aureas Gigas.
Include Forest Events by Defth.
Include Forest Gang Bang by Defth.
Include giving in by Core Mechanics.
Include Greek Mythos by Prometheus.
Include HellHound by Speedlover.
Include High Rise Events by Stripes.
Include High Rise Events by Wahn.
Include Horus by Rikaeus.
Include How High by Kaleem mcintyre.
Include Hyena Bikers by Stripes.
Include Hyena Shoppers by Doots.
Include Hyena Situations by Hellerhound.
Include Hyper Serum by Vrael.
[Include Important Research Quests by Kaleem Mcintyre.]
Include Infected Pool by Hellerhound.
Include Inner Mall Events by Wahn.
Include Inventory Management Enhancements by Core Mechanics.
Include Ironscale Items by Taelyn.
Include Junkyard Events by Stripes.
Include Kitsune by Kaleem mcintyre.
Include Latex Quad Husky by Stripes.
Include Leonard Events by Stripes.
Include Little Old Woman by Kaleem mcintyre.
Include Lizard Parlor by Kaleem Mcintyre.
Include Main Storyline by Stripes.
Include Male Dorm Events by Rikaeus.
Include Mall Events by Sarokcat.
Include Mall Expansion by Wahn.
Include Misc 10 by Kaleem mcintyre.
Include Misc 3 by Kaleem mcintyre.
Include Misc 4 by Kaleem mcintyre.
Include Misc 6 by Kaleem mcintyre.
Include Misc 7 by Kaleem mcintyre.
Include Misc 8 by Kaleem mcintyre.[***content temporarily closed for space]
Include Misc 9 by Kaleem mcintyre.
Include Misc Scene 5 by Kaleem mcintyre.
Include More Misc Events by Kaleem mcintyre.
Include Murder Mystery by Rikaeus.
Include Museum Events by Sarokcat.
Include Museum Rounds by Stripes.
Include Nemean Lion by Prometheus.
Include New Events by Sarokcat.
Include Odd Weapons by Hellerhound.
Include Old BoomBox by Kaleem mcintyre.
Include Orc Events by Wahn.
Include Orc Researcher by Luneth.
Include Origins by Luneth.
Include Park Events by Sarokcat.
Include Patreon Menu by Stripes.
Include Pepperspray by Stripes.
Include Pet Shop by Wahn.
[Include Pursuit of Science by Kaleem Mcintyre.]
Include Qytat Shifters by Hellerhound.
Include Random Events by Hiccup.
Include Rane Events by KorekaBii.
Include Recordings by Wahn.
Include Red Events by Stripes.
[Include Researcher Studio by Kaleem Mcintyre.]
Include Reservoir by Kaleem Mcintyre.
Include Rubber Sneakers by Kernog.
Include Satyr Frat by Wahn.
Include Save the Dame by Kaleem Mcintyre.
Include Scavevents by Stripes.
Include Sea Lion and Orca by Stripes.
Include Sex Ed by Prometheus.
Include Settings Menus by Core Mechanics.
Include Shifting by Hellerhound.
Include Shrinking Shrooms by Defth.
Include Smell by Core Mechanics.
Include Smith Haven Mall by Wahn.
Include Soldier Events by Wahn.
Include SpartanVikingCouple by Rikaeus.
Include Stable Related Events by Sarokcat.
Include Stable Related Quests by Sarokcat.
Include Storage Locker by Core Mechanics.
Include Story Skipper by Core Mechanics.
Include Story Skipper Loose Variables by Core Mechanics.
Include Sugar Feud by AGentlemanCalledB.
Include TFTG Feats by Luneth.
Include Tidepool Event by FwuffyMouse.
Include Toy Store by Song.
Include Underground Events by Wahn.
Include Walkinmall by Ssely.
Include Warehouse District by Kaleem Mcintyre.
Include Warehouse Events by StripeGuy.
Include Wereraptor by Stripes.
Include Werewolf by CrimsonAsh.
Include Zephyr Phone by Executaball.
Include Zoo Events by Sarokcat.
Include Zoo Events by Wahn.

[Monsters/Infections]
Include Albino Mouse by Stripes.
Include Alien Felinoid by Damaged.
Include Alpha Husky by Sarokcat.
Include Alpha Wolf by Sarokcat.
Include Amazonian by Stripes.
Include Ancient Tentacles by Dys.
Include Anime Babe by Stripes.
Include Anthro Shaft Beast by Guest Writers.
Include Anthro Rabbit by Rikaeus.
Include Arctic Fox by Sarokcat.
Include Ember Breeder by Stripes.
Include Automaton by Stripes.
Include Awesome Tree by Damaged.
Include Badger by StripeGuy.
Include Bald Eagle by Stripes.
Include Batcubus by Blaydrex.
Include Brown Bear by Nuku Valente.
Include Beaver by Stripes.
Include Behemoth by Kaleem mcintyre.
Include Bird of Paradise by Stripes.
Include Black Equinoid by Song.
Include Black Wolf by Stripes.
Include Blob by Kaleem Mcintyre.
Include Blue Chaffinch by Stripes.
Include Latex Bobcat by Stripes.
Include Bottlenose Toy by Stripes.
Include Bovine by Damaged.
Include Breederslut by Stripes.
Include Bunny Jock by Rikaeus.
Include Butterfly by Guest Writers.
Include Candy Striper by Stripes.
Include Cannon by Hiccup.
Include Cat Ninjas by Stripes.
Include Catgirl by Wahn.
Include Caveman by TheRecipe.
Include Centaur by Hellerhound.
Include Centaur Mare by Stripes.
Include Centaur Stallion by Stripes.
Include Cerberus by Stripes.
Include Cheetah by Sarokcat.
Include Chocolate Lab by Stripes.
Include Clockwork Fox by Stripes.
Include Corota by Stripes.
Include Corrupted Spawner by Stripes.
Include Cougar by Stripes.
Include Cowboy Cuntboy by Wahn.
Include Coyote by Darthan.
Include Cum Girl by AGentlemanCalledB.
Include Cute Chinchilla Girl by Guest Writers.
Include Dalmatian by Wahn.
Include Dark Elf by Stripes.
Include Demon Brute by Wahn.
Include Demon Fox by Dys.
Include Dire Wolf by Qazarar.
Include Doberman Cop by Stripes.
Include Donkeyman by Sarokcat n Verath.
Include Donkeywoman by Sarokcat n Verath.
Include Dracovixentaur by Stripes.
Include Dragontaur by Stripes.
Include Drone Wasp by Nuku Valente.
Include Dryad by Hellerhound.
Include Easter Bunny by Stripes.
Include Ebonflame Dragator by Blue Bishop.
Include Ebonflame drake by Blue Bishop.
Include Ebonflame Whelp by Blue Bishop.
Include Elf by Nuku Valente.
Include Elk by Stripes.
Include Elven Hunter by Wahn.
Include Enhanced Chimera by Stripes.
Include Erica by Wahn.
Include Ewe by Sarokcat.
Include Feline Gymnast by Guest Writers.
Include Female Husky by Nuku Valente.
Include Fennec by Stripes.
Include Feral Cheetah by Hellerhound.
Include Feral Gryphon by UrsaOmega.
Include Feral Mutt by CrimsonAsh.
Include Feral Sea Dragon by Blue Bishop.
Include Feral Sea Dragoness by Blue Bishop.
Include Feral Shaft Beast by Guest Writers.
Include Feral Wolf by Stripes.
Include Fire Elemental by Stripes.
Include Fire Sprite by AGentlemanCalledB.
Include Flaming Lynx by Stripes.
Include Flesh Blob by Stripes.
Include Fluffy Owl by Stripes.
Include Foul Scuttler by Xenophiliac.
Include Francois Infections by AGentlemanCalledB.
Include Friendship Pony by Stripes.
Include Frost Drake by CrimsonAsh.
Include Fruit Bat by Stripes.
Include Furling by Wahn.
Include Gargoyle by Kaleem mcintyre.
Include Gator by Nuku Valente.
Include Gazelle by Sarokcat.
Include Gels by Darthan.
Include German Shepherd by Stripes.[replaces 'Random German Shepherd']
Include Giant by Stripes.
Include Giraffe by Stripes.
Include Goat Janitor by McRabid.
Include Goblin by Blue Bishop.
Include Goo Girl by Nuku Valente.
Include Gorilla by Wahn.
Include Great Dane by Kaleem Mcintyre.
Include Greek Nymph by Sarokcat.
Include Gray Squirrel by Stripes.
Include Grizzly Bear by UrsaOmega.
Include Gryphons Plot by Shay.
Include Gunbunny by Stripes.
Include Harpy by Nuku Valente.
Include Hawkman by Sarokcat.
Include Helot by Wahn.
Include Hentai Fan by Stripes.
Include Herm Dolphin by Hellerhound.
Include Herm Hyena by Guest Writers.
Include Hermaid by Xenophiliac.
Include Hermaphrodite Gryphon by Nuku Valente.
Include Hermaphrodite Latex Vixen by Guest Writers.
Include Hippo Strongman by Stripes.
Include Homo Sapiens by Wahn.
Include Horny Doctor by Stripes.
Include Horse-Hung Nerd by Wahn.
Include Horseman by Sarokcat n Verath.
Include Hulking Cheerleader by Wahn.
Include Human Infections by Wahn.
Include Hydra Beast by Stripes.
Include Hyena Matriarch by Stripes.
Include Hyperskunk by Stripes.
Include Imp by Wahn.
Include Impala by UrsaOmega.
Include Incubus by Stripes.
Include Inflatable Vulpine by Stripes.
Include Jackal Guard by Xenophiliac.
Include Jackalboy by Sarokcat.
Include Jackalman by Sarokcat.
Include Jaguar Orderly by Stripes.
Include Jaguar Warrior by AGentlemanCalledB.
Include Junkman by Stripes.
Include Kangaroo by Guest Writers.
Include Killer Whale by Stripes.
Include Knight by Stripes.
Include Koballoon by Song.
Include Kobold Gang by Closerhenry.
Include Komodo Dragon by Stripes.
Include Latex Ermine by Stripes.
Include Latex Fox by Nuku Valente.
Include Latex Mistress by Stripes.
Include Latex Wolf by Stripes.
Include Leopardman by Sarokcat.
Include Liquidshifter by Ssely.
Include Lizard Girl by Damaged.
Include Lusty Skunk by Nuku Valente.
Include Magic Drake by Stripes.
Include Male Peacock by Guest Writers.
Include Mall Rat by Stripes.
Include Mammoth by Stripes.
Include Man-eating Plant by Kernog.
Include Mannequin by Wahn.
Include Manticore by Kaleem mcintyre.
Include Mareslut by Sarokcat.
Include Margay by Stripes.
Include Maternity Lamia By Blue Bishop.
Include Math Teacher by Stripes.
Include Megakitty by Stripes.
Include Mental Mouse by Stripes.
Include Messy Pig by Guest Writers.
Include Minotaur by Kaleem mcintyre.
Include Mismatched Chimera by Stripes.
Include Monkey King by Kernog.
Include MothGirl by Guest Writers.
Include Mpreg Platypus by Sapphire.
Include Mul by Wahn.
Include Mushroom Men by AGentlemanCalledB.
Include Mutated Islanders by Kernog.
Include Naga by Nuku Valente.
Include Naiad by Wahn.
Include Naughty Nurse by Stripes.
Include Nerdy Mouse by McRabid.
Include Nightmare by Sarokcat.
Include Ocelot by Stripes.
Include Ogres by Lyall.
Include Opossum Sailor by StripeGuy.
Include Orc Infections by Wahn.
Include otter by Nuku Valente.
Include Painted Wolf Herm by Guest Writers.
Include Panda by Sarokcat.
Include Panther Herm by Sarokcat.
Include Panther Taur by Nuku Valente.
Include Parasite by Stripes.
Include Parasitic Plant by Guest Writers.
Include Pegasus by Kaleem mcintyre.
Include Pewter Consort By Blue Bishop.
Include Piggy by Stripes.
Include Pink Poodle by AGentlemanCalledB.
Include Pirate Shark by Sarokcat.
Include Pit Bull by Guest Writers.
Include Placeholder Infections by Wahn.
Include Plush Lion by Sarokcat.
Include Prairie Dog by Stripes.
Include Psycho Weasel by Stripes.
Include Queen Bee by Stripes.
Include Quilled Tousky by Stripes.
Include Ram by Sarokcat.
Include Random Shemale Smooth Collie by Guest Writers.
Include Random Tentacle Horror by Guest Writers.
Include Rat Twins by Kernog.
Include Razorback Boar by Wahn.
Include Red Oni by Stripes.
Include Reindeer by Stripes.
Include Reptaur by Kaleem mcintyre.
Include Retriever by AGentlemanCalledB.
Include Rhino by Stripes.
Include Robed Cultist by Wahn.
Include Rodeo Clown by Stripes.
Include Rubber Drake by Song.
Include Rubber Tigress by Sarokcat.
Include Saber Kitty by Blaydrex.
Include Sabretooth by Sarokcat.
Include Salamander by Stripes.
Include Sand Man by Wahn.
Include Satyr by Sarokcat.
Include Satyress by Wahn.
Include Scarab Beetle by Xenophiliac.
Include Seraphim by Wahn.
Include Shadow Beast by UrsaOmega.
Include Siamese Cats by Stripes.
Include Sierrasaur by Blue Bishop.
Include Siren by Stripes.
Include Skunk by Damaged.
Include Skunkbeast Lord by Stripes.
Include Slime Cube by Kernog.
Include Slutrat by Nuku Valente.
Include Small Feline And Lion by Damaged.
Include Snake by Stripes.
Include Snow Bat by Stripes.
Include Snow Leopard by Stripes.
Include Spartan by Wahn.
Include Sphinx by Sarokcat.
Include Spidergirl by Guest Writers.
Include Spidertaur Male by Wahn.
Include sprite by Nuku Valente.
Include Squid by Stripes.
Include Squire by Stripes.
Include Stallionboi by Sarokcat n Verath.
Include Succubus by Sarokcat.
Include Sugar Ferret by Stripes.
Include Sugar Glider by AGentlemanCalledB.
Include Taurus by Defth.
Include Teddy Bear by Sarokcat.
Include Tenrec by StripeGuy.
Include Thought Eater by Wahn.
Include Tiger by Sarokcat.
Include Tiger Cop by Stripes.
Include Tiger Shark by Lone Wanderer.
Include Tigertaur by Sarokcat.
Include Tigress Hooker by Stripes.
Include Trash Coon by Stripes.
Include Triceratops by Stripes.
Include Twisted Pimp by Sarokcat.
Include Unicorn by Sarokcat.
Include Viking by Wahn.
Include Vixentaur by Stripes.
Include Voodoo Gecko by Stripes.
Include Vulpogryph by Stripes.
Include Werewolf Costume by Stripes.
Include Whiptail by Vervaine.
Include Wildcat by Stripes.
Include Wolfman by Wahn.
Include Wolftaur by Sarokcat.
Include Wolverine Guard by Stripes.
Include Wrestling Wolf by Guest Writers.
Include Wyvern by Damaged.
Include Xeno by Stripes.
Include Yamato Dragon by Blue Bishop.
Include Yamato Dragoness by Blue Bishop.
Include Yuppie Mink by StripeGuy.
Include Zebra by Vervaine.

[NPCs]
Include Alex by Stripes.
Include Bad Alexandra by Wahn.
Include Alexandra Cuckolding by Wahn.
Include Alpha Fang Scenes by Nuku Valente.
Include Amaryllis by Song.
Include Amy by Wahn.
Include Andrew by Stripes.
Include Angie by Sarokcat.
Include Anthony by Wahn.
Include Ares by Wahn.
Include Athanasia by Stripes.
Include Azari by Dys.
Include Bastet by Wahn.
Include Bjorn by Rikaeus.
Include Blake by Ssely.
Include Blanche by Stripes.
Include Blue by Wahn.
Include Boghrim by Wahn.
Include Bradford by Stripes.
Include Brennan by Wahn.
Include Brian by Vinickus.
Include Brooke by Stripes.
Include Bryony by Song.
Include Bubble by Stripes.
Include Cynthia by Prometheus.
Include Campus Gym by UrsaOmega.
Include Cadmea by Prometheus.
Include Carl by Wahn.
Include Chris by Wahn.
Include Cindy by Stripes.
Include Colleen by Sarokcat.
Include Corbin by Wahn.
Include Coura by Wahn.
Include Daisy by Sarokcat n Verath.
Include Danny by Wahn.
Include Darius by Wahn.
Include David by Wahn.
Include Deer by Stripes.
Include Denise by Wahn.
Include Desperate Bunny by Nuku Valente.
Include Diana by Wahn.
Include Diego by Wahn.
Include Dominick by Stripes.
Include Doran by Blue Bishop.
Include DrMoffatt by Stripes.
Include DrUtah by Stripes.
Include Duke by Wahn.
Include Egyptian Wing by Xenophiliac.
Include Elijah by Wahn.
Include Eric by Wahn.
Include Eric Loyalty by Luneth.
Include Erica by Wahn.
Include Exploration Events by Kurainyx.
Include Fancy by Sarokcat n Verath.
Include Fang by Stripes.
Include Farmhands by Wahn.
Include Felix by Wahn.
Include Finn by Wahn.
Include Francois by AGentlemanCalledB.
Include Frank by Stripes.
Include G-Shep Squad by Rikaeus.
Include Garrett by Stripes.
Include Gerty by Qazarar.
Include Glory by Wahn.
Include Good Alexandra by Wahn.
Include Gordon by Rikaeus.
Include Gus by Hyliad.
Include Gwen by Stripes.
Include Hadiya by Stripes.
Include Hanu by Kernog.
Include Harold by Sarokcat.
Include Hayato by Stripes.
Include HornyHorsey by femtoAmpere.
[Include Horus by Rikaeus.]
Include Hungry Boar Man by Closerhenry.
Include Hyper Squirrel by Nuku Valente.
Include HypnoGeeks by Wasp.
Include Icarus by Stripes.
Include Ice Fox by Wahn.
Include Inflatable Orca by Song.
Include Inflatable Otter Suit by Song.
Include Informant by Kaleem mcintyre.
Include Janice by Sarokcat.
Include Jay by Wahn.
Include Jenna by Rikaeus.
Include Jimmy by Stripes.
Include Joanna by Stripes.
Include Joey by Qazarar.
Include Joshiro by Wahn.
Include Julian by Prometheus.
Include Kara by Sarokcat.
Include Karen by AGentlemanCalledB.
Include Krampus by Wahn.
Include Kristen by Stripes.
Include Kurt by Rikaeus.
Include Kyle by Qazarar.
Include Kyrverth by Speedlover.
Include Lance by Verath.
Include Larissa by Stripes.
Include Leonard by Stripes.
Include Lilith by Wahn.
Include Lindsey by Sarokcat.
Include Lucy by Stripes.
Include Mack by Stripes.
Include Mark by Wahn.
Include Master Mind by Stripes.
Include Matriarch NPC by Stripes.
Include Meredith by Stripes.
Include Micaela by Stripes.
Include Midnight by Sarokcat.
Include Milo by CrimsonAsh.
Include Mouse Taur by Nuku Valente.
Include Nadia by Wahn.
Include Nakoma by Song.
Include Nala by CrimsonAsh.
Include Nermine by Wahn.
Include Nermine Quests by Wahn.
Include Newt by Stripes.
Include NPC Interactions by Wahn.
Include Oliver by Rikaeus.
Include Onyx by Sarokcat n Verath.
Include Orc Female by Wahn.
Include Orc Lair by Wahn.
Include Orthas by Stripes.
Include Otto Fuchs by Prometheus.
Include Palomino by Verath.
Include Paula by Stripes.
Include Percy by Taelyn.
Include Pericles by Rikaeus.
Include Phantom Dolphin by Blue Bishop.
Include Phantom Pony by Blue Bishop.
Include Pretty Kitty by Xenophiliac.
Include Randall and Brad by Rikaeus.
Include Rane by Wahn.
Include RexxyEvent by AGentlemanCalledB.
Include Richard by Rikaeus.
Include RodAndRonda by Stripes.
Include Roman by Kernog.
Include Sally by Stripes.
Include Sam by Stripes.
Include Santa Claws by Wahn.
Include Sarah by Wahn.
Include Savina by Kurainyx.
Include Seraphis by Vinickus.
Include Serenity by Kurainyx.
Include Sidney by Stripes.
Include Sirius by Prometheus.
Include Skarnoth by Wahn.
Include Skarnoth Loyalty by Luneth.
Include Solstice by Stripes.
Include Sonny by Rikaeus.
Include Spike by Wahn.
Include Stag by Wahn.
Include Stella by Stripes.
Include Stewart by Rikaeus.
Include Stuck Dragon by Stripes.
Include Sven by Stripes.
Include Sylvia by Prometheus.
Include Tanuki by Nuku Valente.
Include Tehuantl by Wahn.
Include Tenvale Gorillas Football Team by Kernog.
Include Thomas by Wahn.
Include Thunderbolt by CrimsonAsh.
Include Timothy by Sarokcat.
Include Tobias by Wahn.
Include Tristian by Verath.
Include Urik by Wahn.
Include Val by Wahn.
Include Vanessa by Stripes.
Include Velos by Blue Bishop.
Include Vent Fox by Dys.
Include Wendy by Wahn.
Include Wild Mustang by Wahn.
Include Yolanda by Stripes.
Include Zeke by Qazarar.
Include Zephias by Wahn.
Include Zigor by Stripes.
Include Zoe by Kernog.

[Pets]
Include Artemis by Stripes.
Include Aurora by Stripes.
Include Baby Pets by Luneth.
Include Equinoid Warrior by Song.
Include Felinoid Companion by Sarokcat.
Include Feral Pets by Luneth.
Include Gryphon Companion by Sarokcat.
Include Honey by Stripes.
Include Korvin by Stripes.
Include Rachel Mouse by Stripes.
Include Ryousei by Wahn.

When play ends:
	say "----------[line break]";
	say "I hope you enjoyed playing that as much as we enjoyed coding/writing it! It doesn't have to end here though! Come join other mutants and play in the Multiplayer Flexible Survival universe with us!";
	say "https://flexiblesurvival.com/[line break]";
	say "Once you have a character, click [']direct control['], and we'll be there, waiting to give a hand!";
	say "Already have a MUD/MUCK/MUSH client? We're at flexiblesurvival.com port 2222";

Book - Start the Game

instead of going somewhere while player is overburdened:
	say "You are too over burdened to move. Drop some of that junk!";

instead of going through a dangerous door (called x):
	if the HP of the player < 1:
		say "You are too injured to go far. You rest instead.";
		Rest;
	else:
		now battleground is marea of x;
		follow the explore rule;
[		change the current menu to the table of Basic Actions;
		carry out the displaying activity;
		clear the screen;]
	[try looking.]


gsgl is a number that varies. gsgl is usually 1.
glstart is a number that varies. glstart is usually 2.
glshiftstart is a number that varies. glshiftstart is usually 0.

to genderlockmenu:
	now calcnumber is -1;
	let gsexit be 0;
	while gsexit is 0:
		say "[bold type]Select a gender lock:[roman type][line break]";
		say "(1) [link]None[as]1[end link] - There is no restriction to your gender-transformation. You receive a 5% point bonus from this selection at game end.";
		say "(2) [link]Random[as]2[end link] - Fond of Excitement? A random lock is chosen for you at game start!";
		say "[line break]";
		say "[bold type]Standard:[roman type][line break]";
		say "(3) [link]Male[as]3[end link] - You reject all female mutations.";
		say "(4) [link]Female[as]4[end link] - You reject all male mutations.";
		say "[line break]";
		say "[bold type]Hybrid:[roman type][line break]";
		say "(5) [link]Shemale[as]5[end link] - You will trend to the configuration of a herm -- however lacking female genitalia.";
		say "(6) [link]Cuntboy[as]6[end link] - You will trend to the configuration of a female -- however lacking any breasts.";
		say "(7) [link]Male Herm[as]7[end link] - You will trend to the configuration of a herm -- however lacking any breasts.";
		say "(8) [link]Herm[as]8[end link] - You take on the configuration of a full herm.";
		say "[line break]";
		say "[bold type]Loose:[roman type][line break]";
		say "(9) [link]Always Cocky[as]9[end link] - Regardless of mutation, you always retain some male anatomy.";
		say "(10) [link]Always a Pussy[as]10[end link] - Regardless of mutation, you always retain some female anatomy.";
		say "(11) [link]Single Sexed[as]11[end link] - Regardless of mutation, you will never be a herm.";
		say "(12) [link]Flat Chested[as]12[end link] - Regardless of mutation, you never gain breasts.";
		say "(13) [link]Simplified Masculine[as]13[end link] - Flat Chested + Single-Sexed.";
		say "[line break]";
		say "(0) [link]Return to main menu[as]0[end link][line break]";
		while 1 is 1:
			say "Choice? (0-13)>[run paragraph on]";
			get a number;
			if calcnumber >= 0 and calcnumber <= 13:
				break;
			else:
				say "Invalid Entry";
		if calcnumber is not 0:
			now gsgl is calcnumber;
			now gsexit is 1;
			if gsgl > 1 and glshiftstart is 0:
				say "Would you like to start as your chosen gender lock?";
				if player consents:
					now glstart is 1;
				else:
					now glstart is 2;
			else:
				now glstart is 2;
		else:
			now gsexit is 1;

to startgenderlockget:
	say "Locking Gender...";
	if gsgl is 2:
		now gsgl is a random number between 3 and 11;
	if gsgl > 1:
		if gsgl is 3:
			say "Locked to male gender.";
			add "Male Preferred" to feats of player;
		else if gsgl is 4:
			say "Locked to female gender.";
			add "Female Preferred" to feats of player;
		else if gsgl is 5:
			say "Locked to shemale configuration.";
			add "Male Preferred" to feats of player;
			add "Breasts" to feats of player;
		else if gsgl is 6:
			say "Locked to cuntboy configuration.";
			add "Female Preferred" to feats of player;
			add "Flat Chested" to feats of player;
		else if gsgl is 7:
			say "Locked to male herm configuration.";
			add "Herm Preferred" to feats of player;
			add "Flat Chested" to feats of player;
		else if gsgl is 8:
			say "Locked to herm configuration.";
			add "Herm Preferred" to feats of player;
		else if gsgl is 9:
			say "Male anatomy locked in.";
			add "Always Cocky" to feats of player;
		else if gsgl is 10:
			say "Female anatomy locked in.";
			add "Always A Pussy" to feats of player;
		else if gsgl is 11:
			say "Locked to a singular gender at a time.";
			add "Single Sexed" to feats of player;
		else if gsgl is 12:
			say "Locked to be flat chested.";
			add "Flat Chested" to feats of player;
		else if gsgl is 13:
			say "Locked to male or cuntboy.";
			add "Single Sexed" to feats of player;
			add "Flat Chested" to feats of player;

To startgenderlockshift:
	now glshiftstart is 1;
	if gsgl < 2 and glstart is 1:
		say "You chose to start as your gender lock option, but have not selected one. Would you like to do so now?";
		say "     [line break]";
		say "     ([link]Y[as]y[end link]) - Choose a gender lock.";
		say "     ([link]N[as]n[end link]) - Start game without lock.";
		if player consents:
			genderlockmenu;
	if gsgl is:
		-- 3:	[male]
			now cocks of player is 1;
			now cock length of player is 6;
			now the cock width of the player is 4;
			now breast size of player is 0;
			now cunts of player is 0;
			now cunt length of player is 0;
		-- 4:		[female]
			now cunts of player is 1;
			now cunt length of player is 6;
			now cunt width of player is 4;
			now breast size of player is 2;
			now cocks of player is 0;
			now cock length of player is 0;
		-- 5:		[shemale]
			now cocks of player is 1;
			now cock length of player is 6;
			now the cock width of the player is 4;
			now breast size of player is 2;
			now cunts of player is 0;
			now cunt length of player is 0;
		-- 6: [cuntboy]
			now cunts of player is 1;
			now cunt length of player is 6;
			now cunt width of player is 4;
			now breast size of player is 0;
			now cocks of player is 0;
			now cock length of player is 0;
		-- 7: [male herm]
			now cocks of player is 1;
			now cock length of player is 6;
			now the cock width of the player is 4;
			now cunts of player is 1;
			now cunt length of player is 6;
			now cunt width of player is 4;
			now breast size of player is 0;
		-- 8: [herm]
			now cocks of player is 1;
			now cock length of player is 6;
			now the cock width of the player is 4;
			now cunts of player is 1;
			now cunt length of player is 6;
			now cunt width of player is 4;
			now breast size of player is 2;
		-- 9: [always cocky]
			now cocks of player is 1;
			now cock length of player is 6;
			now the cock width of the player is 4;
		-- 10: [always a pussy]
			now cunts of player is 1;
			now cunt length of player is 6;
			now cunt width of player is 4;
		-- 12: [flat chested]
			now breast size of player is 0;
		-- 13: [simplified masculine]
			now breast size of player is 0;

To startFeatget: [alternate featget used for start] [Checkpoint-]
	say "Select a basic feat. This represents a skill or innate ability you have.";
	blank out the whole of table of gainable feats;
	repeat with x running through functional featsets:
		try addfeating x;
	if there is no title in row 1 of table of gainable feats:
		say "There are no feats to gain!";
		wait for any key;
	else:
		now featqualified is 1;
		while 1 is 1:
			repeat with y running from 1 to number of filled rows in table of gainable feats:
				choose row y from the table of gainable feats;
				say "[link][y] - [title entry][as][y][end link][line break]";
			say "Type the number corresponding to the feat you want> [run paragraph on]";
			get a number;
			if calcnumber > 0 and calcnumber <= the number of filled rows in table of gainable feats:
				now current menu selection is calcnumber;
				choose row current menu selection from the table of gainable feats;
				say "[title entry]: [description entry][line break]";
				say "Is this what you want?";
				if player consents:
					now freefeatgeneral is the title in row calcnumber of table of gainable feats; [important change from regular featget]
					now featqualified is 0;
				break; [if featqualified is 0, ]
			else if playerinput matches "0":	[do not use calcnumber, as non-numbers will return 0]
				say "Selection aborted.";
				continue the action;
			else:
				say "Invalid Feat.";

To startFunFeatget: [alternate funfeatget used for start]
	say "Select a fun feat. This represents some strange quirk or effect induced by the nanites.";
	blank out the whole of table of gainable feats;
	repeat with x running through not functional featsets:
		try addfeating x;
	if there is no title in row 1 of table of gainable feats:
		say "There are no feats to gain!";
		wait for any key;
	else:
		now featqualified is 1;
		while 1 is 1:
			repeat with y running from 1 to number of filled rows in table of gainable feats:
				choose row y from the table of gainable feats;
				say "[link][y] - [title entry][as][y][end link][line break]";
			say "Type the number corresponding to the feat you want> [run paragraph on]";
			get a number;
			if calcnumber > 0 and calcnumber <= the number of filled rows in table of gainable feats:
				now current menu selection is calcnumber;
				choose row current menu selection from the table of gainable feats;
				say "[title entry]: [description entry][line break]";
				say "Is this what you want?";
				if player consents:
					now freefeatfun is the title in row calcnumber of table of gainable feats; [important change from regular featget]
					now featqualified is 0;
				break; [if featqualified is 0, ]
			else if playerinput matches "0":	[do not use calcnumber, as non-numbers will return 0]
				say "Selection aborted.";
				continue the action;
			else:
				say "Invalid Feat.";

to randomstatstart:	[same total points, but spread randomly between 10 to 18]
	now the strength of the player is 10;
	now the Dexterity of the player is 10;
	now the Stamina of the player is 10;
	now the Charisma of the player is 10;
	now the Perception of the player is 10;
	now the Intelligence of the player is 10;
	[Boost two stats for increased spread in results]
	let T be a random number between 1 and 6;
	if T is 1:
		increase strength of player by 3;
	if T is 2:
		increase dexterity of player by 3;
	if T is 3:
		increase stamina of player by 3;
	if T is 4:
		increase charisma of player by 3;
	if T is 5:
		increase perception of player by 3;
	if T is 6:
		increase intelligence of player by 3;
	now T is a random number between 1 and 6;
	if T is 1:
		increase strength of player by 2;
	if T is 2:
		increase dexterity of player by 2;
	if T is 3:
		increase stamina of player by 2;
	if T is 4:
		increase charisma of player by 2;
	if T is 5:
		increase perception of player by 2;
	if T is 6:
		increase intelligence of player by 2;
	now tempnum is 12; [remaining 12 points applied randomly one at a time]
	while tempnum is not 0:
		now T is a random number between 1 and 6;
		decrease tempnum by 1;
		if T is 1:
			increase strength of player by 1;
			if strength of player > 18:
				now strength of player is 18;
				increase tempnum by 1;
		if T is 2:
			increase dexterity of player by 1;
			if dexterity of player > 18:
				now dexterity of player is 18;
				increase tempnum by 1;
		if T is 3:
			increase stamina of player by 1;
			if stamina of player > 18:
				now stamina of player is 18;
				increase tempnum by 1;
		if T is 4:
			increase charisma of player by 1;
			if charisma of player > 18:
				now charisma of player is 18;
				increase tempnum by 1;
		if T is 5:
			increase perception of player by 1;
			if perception of player > 18:
				now perception of player is 18;
				increase tempnum by 1;
		if T is 6:
			increase intelligence of player by 1;
			if intelligence of player > 18:
				now intelligence of player is 18;
				increase tempnum by 1;

To startfreefeats: [gives free feats]
	now autofeatloading is true; [temporarily skips asking permission to add preset feats]
	say "Attempting to add general feat [freefeatgeneral] to player.";
	now current menu selection is 0;
	blank out the whole of table of gainable feats;
	repeat with x running through functional featsets:
		try addfeating x;
	now featqualified is 1;
	[chooses the row with the selected feat]
	repeat with y running from 1 to number of filled rows in table of gainable feats:
		choose row y in table of gainable feats;
		if title entry is freefeatgeneral:
			now current menu selection is y;
			follow the gainfeat rule;
			break;
	if current menu selection is 0:
		say "Invalid Feat: Select a new choice now.";
		now autofeatloading is false;
		featget; [reverts to standard method]
		now autofeatloading is true;
	say "Attempting to add fun feat [freefeatfun] to player.";
	now current menu selection is 0;
	blank out the whole of table of gainable feats;
	repeat with x running through not functional featsets:
		try addfeating x;
	now featqualified is 1;
	[chooses the row with the selected feat]
	repeat with y running from 1 to number of filled rows in table of gainable feats:
		choose row y in table of gainable feats;
		if title entry is freefeatfun:
			now current menu selection is y;
			follow the gainfeat rule;
			decrease featgained of player by 1;
			break;
	if current menu selection is 0:
		say "Invalid Feat: Select a new choice now.";
		now autofeatloading is false;
		funfeatget; [reverts to standard method]
		now autofeatloading is true;
	now autofeatloading is false;

To startcreatureban: [bans creatures, as requested]
	say "Banning creatures...";
	repeat through the Table of Random Critters:
		let bad be 0;
		repeat with n running through all banned flags:
			if name entry is listed in infections of n:
				now bad is 1;
		if bad is 1:
			now BannedStatus entry is true;
[ replaced with the above line so that the Table of Random Critters stays the same
			blank out the whole row;
]
	say "Banning situations...";
	repeat with n running through situations:
		let bad be 0;
		repeat with q running through all banned flags:
			if n is listed in badspots of q:
				say "[n] removed due to [q].";
				now bad is 1;
		if bad is 1:
			now n is inactive;
	say "Sorting creatures...";
	sort Table of Random Critters in lev order;

Section Story Start Text

To regularstart: [normal start method]
	if invcolumns < 1 or invcolumns > 4, now invcolumns is 2;
	follow the starting stats rule;
	now calcnumber is -1;
	let Trixieexit be 0;
	while Trixieexit is 0:
		clear the screen;
		say "[bold type]Character Creation:[roman type][line break]";
		say "(1) [link]Main Stat[as]1[end link] - [bold type][if gsms is 1]Strength[else if gsms is 2]Dexterity[else if gsms is 3]Stamina[else if gsms is 4]Charisma[else if gsms is 5]Perception[else if gsms is 6]Intelligence[else]Random[end if][roman type][line break]";
		say "(2) [link]Player Gender[as]2[end link] - [bold type][if gspg is 1]Male[else]Female[end if][roman type][line break]";
		say "(3) [link]Game Type[as]3[end link] - [bold type][scenario][roman type][line break]";
		say "(4) [link]Difficulty Modes[as]4[end link] - [if gshm is false and gsnhm is false and gsbm is false][bold type]Normal[roman type][else if gshm is true][bold type]Hard[roman type][end if][if gshm is true and ( gsnhm is true or gsbm is true )] | [end if][if gsnhm is true][bold type]No-Heal[roman type][end if][if gsnhm is true and gsbm is true] | [end if][if gsbm is true][bold type]Blind[roman type][end if][line break]";
[		say "(4) [link]Hard Mode[as]4[end link] - [bold type][if gshm is true]On[else]Off[end if][roman type][line break]"; ]
		say "(5) [link]Main Feat[as]5[end link] - [bold type][freefeatgeneral][roman type][line break]";
		say "(6) [link]Fun Feat[as]6[end link] - [bold type][freefeatfun][roman type][line break]";
		say "(7) [link]Gender Lock[as]7[end link] - [bold type][if gsgl is 1]None[else if gsgl is 2]Random[else if gsgl is 3]Male[else if gsgl is 4]Female[else if gsgl is 5]Shemale[else if gsgl is 6]Cuntboy[else if gsgl is 7]Male Herm[else if gsgl is 8]Herm[else if gsgl is 9]Always Cocky[else if gsgl is 10]Always a Pussy[else if gsgl is 11]Single Sexed[else if gsgl is 12]Flat Chested[else if gsgl is 13]Simplified Masculine[else]ERROR[end if][roman type][line break]";
		say "(8) [link]Player Name[as]8[end link] - [bold type][name of player][roman type][line break]";
		say "(9) [link]Player Pronouns[as]9[end link] - [bold type][PronounChoice of player][roman type][line break]";
		say "[line break]";
		say "[bold type]Gameplay Options:[roman type][line break]";
		say "(10) [link]Banned/Warded Types[as]10[end link] - [menuwardlist] & [menubanlist] [line break]";
		say "(11) [link]Anal Content[as]11[end link] - [bold type][if anallevel is 1]Less[else if anallevel is 2]Normal[else if anallevel is 3]More[end if][roman type][line break]";
		say "(12) [link]WS Content[as]12[end link] - [bold type][if wslevel is 1]None[else if wslevel is 2]Normal[else if wslevel is 3]Full[end if][roman type][line break]";
		say "(13) [link]Vore/UB Content[as]13[end link] - Vore: [bold type][if vorelevel is 1]None[else if vorelevel is 2]Normal[else if vorelevel is 3]Full[end if][roman type] - Unbirth: [bold type][if ublevel is 1]None[else if ublevel is 2]Normal[else if ublevel is 3]Full[end if][roman type][line break]";
		say "(14) [link]Ovi Pregnancy[as]14[end link] - [bold type][if ovipreglevel is 1]Never[else]Normal[end if][roman type][line break]";
		say "[line break]";
		say "[bold type]Display Options:[roman type][line break]";
		say "(15) [link]Hyperlinks[as]15[end link] - [bold type][if hypernull is 0]On[else if hypernull is 1]Off[end if][roman type][line break]";
		say "(16) [link]Waiting for Input[as]16[end link] - [bold type][if waiterhater is 0]On[else if waiterhater is 1]Off[end if][roman type][line break]";
		say "(17) [link]Screen Clearing[as]17[end link] - [bold type][if clearnomore is 0]On[else if clearnomore is 1]Off[end if][roman type][line break]";
		say "(18) [link]Graphics[as]18[end link] - [bold type][if NewGraphicsInteger is 1]Inline[else if NewGraphicsInteger is 2]Side-Window[else if NewGraphicsInteger is 0]DISABLED[end if][roman type][line break]";
		say "(19) [link]Inventory Columns[as]19[end link] - [bold type][invcolumns][roman type][line break]";
		say "[line break]";
		say "(99) [link]Restore a save[as]99[end link][line break]";
		say "(0) [link]Start Game[as]0[end link][line break]";
		while 1 is 1:
			say "(0-18)>[run paragraph on]";
			get a number;
			if ( calcnumber >= 0 and calcnumber <= 19 ) or calcnumber is 99:
				break;
			else:
				say "Invalid Entry";
		if calcnumber is:
			-- 1:
				say "[gsopt_1]";
			-- 2:
				say "[gsopt_2]";
			-- 3:
				say "[gsopt_3]";
			-- 4:
				say "[gsopt_4]";
			-- 5:
				startFeatget;
			-- 6:
				startFunFeatget;
			-- 7:
				genderlockmenu;
			-- 8:
				playernaming;
			-- 9:
				try pronounsetting;
			-- 10:
				if clearnomore is 0, clear the screen;
				new ban menu;
			-- 11:
				try analadjusting;
			-- 12:
				try WSadjusting;
			-- 13:
				try voremenuing;
			-- 14:
				try oviadjusting;
			-- 15:
				if hypernull is 0:
					now hypernull is 1;
				else:
					now hypernull is 0;
			-- 16:
				if waiterhater is 0:
					now waiterhater is 1;
				else:
					now waiterhater is 0;
			-- 17:
				if clearnomore is 0:
					now clearnomore is 1;
				else:
					now clearnomore is 0;
			-- 18:
				if NewGraphicsInteger is 1:
					now graphics is true; [technically not necessary, but nice to have for edge cases]
					now NewGraphics is true;
					now NewGraphicsInteger is 2;
				else if NewGraphicsInteger is 2:
					now graphics is false;
					now NewGraphics is false;
					now NewGraphicsInteger is 0;
				else if NewGraphicsInteger is 0:
					now graphics is true;
					now NewGraphics is false;
					now NewGraphicsInteger is 1;
			-- 19:
				say "[set_invcolumns]";
			-- 99:
				say "Confirm restore?";
				if player consents:
					now RestoreMode is true;
					say "[silent_start]";
					now Trixieexit is 1;
					if RestoreMode is true:
						now RestoreMode is false;
						try restoring the game;
						if maxHP of player is 0:
							try restarting the game;
			-- 0:
				say "Confirm game start?";
				if player consents:
					say "[gsopt_start]";
					now Trixieexit is 1;

to playernaming:
	say "[bold type]Please enter new name: [roman type]";
	get typed command as playerinput;
	now name of player is playerinput;

to say menuwardlist:
	if cockvore is warded or furry is warded or guy is warded or girl is warded or humorous is warded or hellspawn is warded or hermaphrodite is warded or incest is warded or transgender is warded or mindcontrol is warded or noncon is warded or vore is warded:
		say "[bold type]Warded: [bracket] ";
		if cockvore is warded:
			say "Cockvore ";
		if feral is warded:
			say "Feral ";
		if furry is warded:
			say "Furry ";
		if guy is warded:
			say "Guy ";
		if girl is warded:
			say "Girl ";
		if hermaphrodite is warded:
			say "Hermaphrodite ";
		if humorous is warded:
			say "Humorous ";
		if hellspawn is warded:
			say "Hellspawn ";
		if transgender is warded:
			say "Transgender ";
		if incest is warded:
			say "Incest ";
		if noncon is warded:
			say "Noncon ";
		if mindcontrol is warded:
			say "Mindcontrol ";
		if vore is warded:
			say "Vore ";
		say "[close bracket][roman type]";
	else:
		say "[bold type]None Warded[roman type]";

to say menubanlist:
	if cockvore is banned or furry is banned or guy is banned or girl is banned or humorous is banned or hellspawn is banned or hermaphrodite is banned or incest is banned or transgender is banned or mindcontrol is banned or noncon is banned or vore is banned:
		say "[bold type]Banned: [bracket] ";
		if cockvore is banned:
			say "Cockvore ";
		if feral is banned:
			say "Feral ";
		if furry is banned:
			say "Furry ";
		if guy is banned:
			say "Guy ";
		if girl is banned:
			say "Girl ";
		if hermaphrodite is banned:
			say "Hermaphrodite ";
		if humorous is banned:
			say "Humorous ";
		if hellspawn is banned:
			say "Hellspawn ";
		if transgender is banned:
			say "Transgender ";
		if incest is banned:
			say "Incest ";
		if noncon is banned:
			say "Noncon ";
		if mindcontrol is banned:
			say "Mindcontrol ";
		if vore is banned:
			say "Vore ";
		say "[close bracket][roman type]";
	else:
		say "[bold type]None Banned[roman type]";

to say gsopt_1:
	now calcnumber is -1;
	let gsexit be 0;
	while gsexit is 0:
		say "[bold type]Select your main stat (+5 bonus):[roman type][line break]";
		say "(1) [link]Strength[as]1[end link] = [if gsms is 1][bold type]17[roman type][else if gsms is 7]??[run paragraph on][else]12[end if]: Represents your raw physical might and your ability to deal damage.";
		say "(2) [link]Dexterity[as]2[end link] = [if gsms is 2][bold type]17[roman type][else if gsms is 7]??[run paragraph on][else]12[end if]: Affects your likelihood to hit and dodge.";
		say "(3) [link]Stamina[as]3[end link] = [if gsms is 3][bold type]17[roman type][else if gsms is 7]??[run paragraph on][else]12[end if]: Increases your total health pool and your overall endurance.";
		say "(4) [link]Charisma[as]4[end link] = [if gsms is 4][bold type]17[roman type][else if gsms is 7]??[run paragraph on][else]12[end if]: Deals with social interactions with NPCs and your pets, and affects your morale.";
		say "(5) [link]Perception[as]5[end link] = [if gsms is 5][bold type]17[roman type][else if gsms is 7]??[run paragraph on][else]12[end if]: Influences your success while scavenging and hunting, success with ranged weapons and affects your morale.";
		say "(6) [link]Intelligence[as]6[end link] = [if gsms is 6][bold type]17[roman type][else if gsms is 7]??[run paragraph on][else]12[end if]: Increases the efficacy of healing medkits, your chances of vial collection (if able) and your success at escaping.";
		say "(7) [link]Random[as]7[end link]: Randomize your stat points upon creation.";
		say "[line break]";
		say "(0) [link]Return to main menu[as]0[end link][line break]";
		while 1 is 1:
			say "Choice? (0-7)>[run paragraph on]";
			get a number;
			if calcnumber >= 0 and calcnumber <= 7:
				break;
			else:
				say "Invalid Entry";
		if calcnumber is not 0:
			now gsms is calcnumber;
			gs_stats;
			now gsexit is 1;
		else:
			now gsexit is 1;


To gs_stats: [apply stat bonus]
	follow the starting stats rule; [resets all to 12]
	if gsms is 1:
		increase strength of player by 5;
	else if gsms is 2:
		increase dexterity of player by 5;
	else if gsms is 3:
		increase stamina of player by 5;
	else if gsms is 4:
		increase charisma of player by 5;
	else if gsms is 5:
		increase perception of player by 5;
	else if gsms is 6:
		increase intelligence of player by 5;
	else if gsms is 7 and started is 1:
		randomstatstart;
	else if started is 1:
		say "Invalid stat choice - defaulting to random.";
		randomstatstart;


to say gsopt_2:
	if gspg is 1:
		now gspg is 2;
	else:
		now gspg is 1;


to say gsopt_3:
	now calcnumber is -1;
	let gsexit be 0;
	while gsexit is 0:
		say "[bold type]Game Type:[roman type][line break]";
		say "(1) [link]Bunker[as]1[end link]: You managed to find your way to a bunker, where you hid away for some time. No special perks, default start.[bold type][if gsgt is 1]-Set[end if][roman type][line break]";
		say "(2) [link]Caught Outside[as]2[end link]: You were forced to survive outside. You have already been mutated a bit, though your practice has hardened you (Gain Spartan Diet, slowing gain of hunger and thirst).[bold type][if gsgt is 2]-Set[end if][roman type][line break]";
		say "(3) [link]Rescuer Stranded[as]3[end link]: You arrived late, looking for survivors, when you got cut off from your teammates. Now you just want to survive! (Start with no supplies)[bold type][if gsgt is 3]-Set[end if][roman type][line break]";
		say "(4) [link]Forgotten[as]4[end link]: You stayed in hiding too long. Your supplies have run dry, and the rescue already came and left. It will be a long time before any more arrive![bold type][if gsgt is 4]-Set[end if][roman type][line break]";
		say "(5) [link]Researcher[as]5[end link]: You are not stranded at all. You came to explore, catalog, and interact with this absolutely fascinating outbreak. You've been given immunizations to casual infection (you won't transform from losing battles) and have specialized equipment that allows you to collect the infection vials of those you defeat.[bold type][if gsgt is 5]-Set[end if][roman type][line break]";
		say "[line break]";
		say "(0) [link]Return to main menu[as]0[end link][line break]";
		while 1 is 1:
			say "Choice? (0-5)>[run paragraph on]";
			get a number;
			if calcnumber >= 0 and calcnumber <= 5:
				break;
			else:
				say "Invalid Entry";
		if calcnumber is 1:
			now scenario is "Bunker";
			now gsgt is 1;
			now gsexit is 1;
		else if calcnumber is 2:
			now scenario is "Caught Outside";
			now gsgt is 2;
			now gsexit is 1;
		else if calcnumber is 3:
			now scenario is "Rescuer Stranded";
			now gsgt is 3;
			now gsexit is 1;
		else if calcnumber is 4:
			now scenario is "Forgotten";
			now gsgt is 4;
			now gsexit is 1;
		else if calcnumber is 5:
			now scenario is "Researcher";
			now gsgt is 5;
			now gsexit is 1;
		else:
			now gsexit is 1;

to say gsopt_4:
	now calcnumber is -1;
	let gsexit be 0;
	while gsexit is 0:
		say "[bold type]Difficulty Modes:[roman type][line break]";
		say "(1) [link]Hard Mode[as]1[end link]: [bold type][if gshm is true]On[else]Off[end if][roman type][line break]     Hard Mode causes the powerful monsters to be randomly roaming, levels the monsters up alongside you, limits your use of the journal and adds other difficulties to further challenge you.";
		say "(2) [link]No-Heal Mode[as]2[end link]: [bold type][if gsnhm is true]On[else]Off[end if][roman type][line break]     No-Heal Mode turns off the accelerated healing at the end of the turn. Medkits and healing boosters heal more though.";
		say "(3) [link]Blind Mode[as]3[end link]: [bold type][if gsbm is true]On[else]Off[end if][roman type][line break]     Blind Mode prevents hunting and scavenging for specific supplies. You have a significantly increased chance of encountering something of interest while exploring though.";
		say "(0) [link]Return to main menu[as]0[end link][line break]";
		while 1 is 1:
			say "Choice? (0-3)>[run paragraph on]";
			get a number;
			if calcnumber >= 0 and calcnumber <= 3:
				break;
			else:
				say "Invalid Entry";
		if calcnumber is 1:
			if gshm is false:
				now gshm is true;
				say "Hard Mode activated.";
			else:
				now gshm is false;
				say "Hard Mode de-activated.";
		else if calcnumber is 2:
			if gsnhm is false:
				now gsnhm is true;
				say "No-Heal Mode activated.";
			else:
				now gsnhm is false;
				say "No-Heal Mode de-activated.";
		else if calcnumber is 3:
			if gsbm is false:
				now gsbm is true;
				say "Blind Mode activated.";
			else:
				now gsbm is false;
				say "Blind Mode de-activated.";
		else:
			now gsexit is 1;


to say gsopt_start:
	now started is 1;
	if gspg is 1:	[male]
		now cocks of player is 1;
		now cock length of player is 6;
		now the cock width of the player is 4;
		now breasts of player is 2;
		now breast size of player is 0;
	else:		[defaults to female]
		now cunts of player is 1;
		now cunt length of player is 6;
		now cunt width of player is 4;
		now breasts of player is 2;
		now breast size of player is 2;
	if glstart is 1:
		startgenderlockshift;
	gs_stats;
	now the morale of the player is the charisma of the player plus the perception of the player;
	now the HP of the player is the stamina of the player times two;
	increase the HP of the player by 5;
	now the maxHP of the player is the HP of the player;
	now the capacity of the player is five times the strength of the player;
	now humanity of player is 100;
	if gsgl > 1, startgenderlockget;
	follow the SetPlayerPronouns rule;
	startfreefeats;
	startcreatureban;
	if clearnomore is 0, clear the screen; [skips clearing if it's not wanted]
	sort Table of Random Critters in lev order;
	if scenario is "Caught Outside":	[processes infection data first, then clears so intro text can remain intact]
		randominfect;
		randominfect;
		randominfect;
		randominfect;
	if clearnomore is 0, clear the screen; [skips clearing if it's not wanted]
	[Code for letting player select graphics window size]
	if NewGraphics is true:
		say "You have enabled the graphics side window. This will be on the right side of your screen and will always take up a proportion of the main screen.[line break]";
		say "Please choose this proportion now. Enter a number between 5 - 90. This will represent the percentage of your main screen that the graphics side window will take up. We recommend somewhere around 30.[line break]";
		while 1 is 1:
			say "(5-90)>[run paragraph on]";
			get a number;
			if calcnumber > 4 and calcnumber < 91:
				break;
			else:
				say "Invalid Entry. Please enter a number between 5 and 90";
		now NewGraphicsRatio is calcnumber;
		clear the screen;
	say "Want more details on the game and updates? ----- [bold type]https://blog.flexiblesurvival.com/[roman type]  ------[line break][line break]";
	WaitLineBreak;
	if scenario is "Bunker":
		increase carried of black t-shirt by 1;
		now black t-shirt is equipped;
		increase carried of sturdy jeans by 1;
		now sturdy jeans are equipped;
		increase carried of white briefs by 1;
		now white briefs is equipped;
		increase carried of brown loafers by 1;
		now brown loafers is equipped;
	else if scenario is "Caught Outside":
		increase carried of white t-shirt by 1;
		now white t-shirt is equipped;
		increase carried of black jeans by 1;
		now black jeans are equipped;
	else if scenario is "Rescuer Stranded":
		increase carried of camo shirt by 1;
		now camo shirt is equipped;
		increase carried of camo pants by 1;
		now camo pants are equipped;
		increase carried of boxer briefs by 1;
		now boxer briefs are equipped;
		increase carried of combat boots by 1;
		now combat boots is equipped;
	else if scenario is "Forgotten":
		increase carried of sleeveless shirt by 1;
		now sleeveless shirt is equipped;
		increase carried of ripped jeans by 1;
		now ripped jeans are equipped;
		increase carried of white briefs by 1;
		now white briefs is equipped;
		increase carried of brown loafers by 1;
		now brown loafers is equipped;
	else if scenario is "Researcher":
		increase carried of white t-shirt by 1;
		now white t-shirt is equipped;
		increase carried of sturdy jeans by 1;
		now sturdy jeans are equipped;
		increase carried of boxer briefs by 1;
		now boxer briefs are equipped;
		increase carried of combat boots by 1;
		now combat boots is equipped;
	if scenario is not "Bunker":
		if scenario is "Caught Outside":
			add "Spartan Diet" to feats of player;
		if scenario is "Rescuer Stranded":
			now invent of bunker is { };
			add "cot" to invent of bunker;
			increase score by 300;
		if scenario is "Forgotten":
			now invent of bunker is { };
			add "cot" to invent of bunker;
			now the printed name of Doctor Matt is "Left Behind Recording of Doctor Matt";
			now the initial appearance of Doctor Matt is "A small recorder labeled 'Doctor Matt' remains abandoned.";
			now the description of Doctor Matt is "A small recorder labeled 'Doctor Matt' remains abandoned.";
			now the HP of Doctor Matt is 100;
			now the icon of Doctor Matt is figure of pixel;
			now Orthas is nowhere;
			repeat with y running from 1 to number of filled rows in Table of Random Critters:
				choose row y in Table of Random Critters;
				if name entry is "Deer":
					now area entry is "Park";
					break;
			increase score by 600;
			extend game by 240;
	if gshm is true: [Hard mode alteration]
		increase score by 300;
		now hardmode is true;
		now levelwindow is 99999;
	if gsnhm is true: [No-heal mode alteration]
		increase score by 150;
		now nohealmode is true;
	if gsbm is true: [Blind mode alteration]
		increase score by 100;
		now blindmode is true;
	if scenario is "Bunker":
		say "     You remember how it went down. Satellite, gone, Internet, offline. The power was the last thing to go, just a precious hour later. People wandered the streets, confused, panicked. Then they came. Monsters. Freaks. They'd grab people. Some got mauled on the spot and others were dragged off. You managed to escape to safety here - the old bunker. You remember seeing that stupid bunker sign for years, who knew remembering it would save your life? You waited for others to come. Surely you were not the only one to remember?";
		say "     You've waited in the dark for others or rescue to come, but to no avail. You're not sure how long you've been down here, but the sounds have long since died away. You've eaten a good portion of the food and water. No choice but to go out and greet the city. At least you have your [bold type]backpack[roman type] and your [bold type]watch[roman type]. How bad could it be?";
	else if scenario is "Caught Outside":
		say "     You remember how it went down. Satellite, gone, Internet, offline. The power was the last thing to go, just a precious hour later. People wandered the streets, confused, panicked. Then they came. Monsters. Freaks. They'd grab people. Some got mauled on the spot and others were dragged off. Some fought back. You tried to resist, but did not escape unscathed. In the end, you managed to get to safety here - the old bunker. You remember seeing that stupid bunker sign for years, who knew remembering it would save your life? You waited for others to come. Surely you were not the only one to remember?";
		say "     You've waited in the dark for others or rescue to come, but to no avail. You're not sure how long you've been down here, but the sounds have long since died away. You've eaten a good portion of the food and water. No choice but to go out and greet the city. At least you have your [bold type]backpack[roman type] and your [bold type]watch[roman type]. How bad could it be?";
	else if scenario is "Rescuer Stranded":
		say "     You remember how it went down. Satellite, gone, Internet, offline. The power was the last thing to go, just a precious hour later. There were growing reports of monsters and freaks spreading across the city, attacking the citizens. You had been part of the military's fast response team sent in just hours after the outbreak. Your initial task was reconnaissance with the hopes of setting up a rally point for helicopter evacuation of any non-infected survivors. You were sent in with little preparation and no idea at all of what you were truly in for.";
		say "     Your team was moving on foot through the streets of downtown when you were set upon by creatures out of a pervert's nightmare. All discipline was lost as your team disintegrated into panic and fled unthinkingly into the city, pursued by the nightmares...";
		say "     You awoke in what appears to be a disused bunker. You have no idea how you even got here or how long you've been out of it, but you are uninfected. In your panicked flight, you lost all of your supplies. No food. No water. No weapons. No radio. At least you have your backpack and your watch. Heaven only knows what awaits you outside, but you have to find a way back.";
	else if scenario is "Forgotten":
		say "     You remember how it went down. Satellite, gone, Internet, offline. The power was the last thing to go, just a precious hour later. People wandered the streets, confused, panicked. Then they came. Monsters. Freaks. They'd grab people. Some got mauled on the spot and others were dragged off. You managed to escape to safety here - the old bunker. You remember seeing that stupid bunker sign for years, who knew remembering it would save your life? You waited for others to come. Surely you were not the only one to remember?";
		say "     Terrified, you've waited in the dark, subsisting as long as you've can on your supplies for as long as you've been able. While the noise of chaos died away for a long time, they picked up again with the addition of explosions and gunfire. Fearing to exit, you remained in the safety of the bunker until it was peaceful again. You wish you could continue to remain hidden, but you're finished off the very last of your supplies and you'll have to risk venturing out with only your [bold type]backpack[roman type], and your [bold type]watch[roman type]. Still... how bad could it be?";
	else if scenario is "Researcher":
		say "     You remember how it went down. Satellite, gone, Internet, offline. The power was the last thing to go. Thankfully, you weren't in one of the outbreak zones when it happened, but your life's been thrown upside down like everyone else's by the ensuing chaos. Seeing an opportunity to help, or at least make some money off the situation, you agreed to enter one of the hotspots through a military contractor. The city's been cordoned off by the military while they gather intel and plan, giving you some time to gather samples and investigate what's happening.";
		say "     The helicopter brought you into the devastated city. Ruin and strange creatures milled about beneath you as you flew over at high speed. This place has been written off as a loss, but there was rumor they'd take it back. You only have so much time to investigate, and you plan to make the most of it.";
		say "     You're let down beside an old bunker. It would serve as your base of operations, and would be where they'd pick you up when it was over. You should be scared, but you just can't seem to muster that sensation. They gave you booster shots against the nanites as well as a few supplies and a promise of others joining you soon. You know what you are doing. They will be so proud of what you find. Maybe you can figure out a way to stop this from happening again in other cities.";
	say "     No one else ever arrived, so you're on your own out here. Ah well, you're an American of the 21st century. What's a little Apocalypse to keep you down? Steeling your nerves and readying what you have, you break the seal and prepare to set out.";
	WaitLineBreak;
	LineBreak;
	say "Welcome to...";
	[display the figure of title_graphic;]
	zephyrad rule in 1 turn from now;

[Silent starting protocol that launches restore game. Included as part of restore on the main menu because of issues with the graphical window creation.]
to say silent_start:
	say "	Please wait while we complete some background work prior to restoring.";
	WaitLineBreak;
	now started is 1;
	if gspg is 1: [male]
		now cocks of player is 1;
		now cock length of player is 6;
		now the cock width of the player is 4;
		now breasts of player is 2;
		now breast size of player is 0;
	else: [defaults to female]
		now cunts of player is 1;
		now cunt length of player is 6;
		now cunt width of player is 4;
		now breasts of player is 2;
		now breast size of player is 2;
	if glstart is 1:
		startgenderlockshift;
	gs_stats;
	now the morale of the player is the charisma of the player plus the perception of the player;
	now the HP of the player is the stamina of the player times two;
	increase the HP of the player by 5;
	now the maxHP of the player is the HP of the player;
	now the capacity of the player is five times the strength of the player;
	now humanity of player is 100;
	if gsgl > 1, startgenderlockget;
	follow the SetPlayerPronouns rule;
	startfreefeats;
	startcreatureban;
	if clearnomore is 0, clear the screen; [skips clearing if it's not wanted]
	sort Table of Random Critters in lev order;
	if scenario is "Caught Outside": [processes infection data first, then clears so intro text can remain intact]
		randominfect;
		randominfect;
		randominfect;
		randominfect;
	if clearnomore is 0, clear the screen; [skips clearing if it's not wanted]
	[Code for letting player select graphics window size]
	say "[bold type]Graphic Settings[roman type][line break]";
	say "Before restoring, please specify the graphic settings.[line break]";
	say "[bold type] No graphics - 1 [roman type][line break]";
	say "[bold type] Old inline graphics only - 2 [roman type][line break]";
	say "[bold type] New graphics side-window - 3 [roman type][line break]";
	while 1 is 1:
		say "Please enter the number that matches your choice (1-3)>[run paragraph on]";
		get a number;
		if calcnumber > 0 and calcnumber < 4:
			break;
		else:
			say "Invalid Entry. Please enter a number between 1 and 3";
	now NewGraphicsInteger is calcnumber - 1; [Direct set]
	if NewGraphicsInteger is 1: [now evaluate]
		now graphics is true;
		now NewGraphics is false;
	else if NewGraphicsInteger is 2:
		now graphics is true;
		now NewGraphics is true;
	else if NewGraphicsInteger is 0:
		now graphics is false;
		now NewGraphics is false;
	if NewGraphics is true: [Defined when play begins below, but MUST be here to alter the view when restoring from the menu]
		now the graphics window proportion is NewGraphicsRatio;
		build graphics window;
		[now the graphics window pixel count is 1;]
		follow the ngraphics_blank rule;
		follow the current graphics drawing rule;
		now NewGraphicsOpened is true;
	clear the screen;
	if NewGraphics is true:
		say "[bold type]Graphic Window Proportion[roman type][line break]";
		say "You have enabled the new graphics window. This will be on the right side of your screen and will always take up a proportion of the main screen.[line break]";
		say "Please choose this value now. Enter a number between 5 - 90. This will represent the percentage of your main screen that the graphics side-window will take up. We recommend somewhere around 30.[line break]";
		while 1 is 1:
			say "(5-90)>[run paragraph on]";
			get a number;
			if calcnumber > 4 and calcnumber < 91:
				break;
			else:
				say "Invalid Entry. Please enter a number between 5 and 90";
		now NewGraphicsRatio is calcnumber;
		clear the screen;
	say "	Just a moment. There are a few more things to prepare...";
	WaitLineBreak;
	if scenario is "Bunker":
		increase carried of sturdy jeans by 1;
		now sturdy jeans are equipped;
		increase carried of black t-shirt by 1;
		now black t-shirt is equipped;
	else if scenario is "Caught Outside":
		increase carried of black jeans by 1;
		now black jeans are equipped;
		increase carried of white t-shirt by 1;
		now white t-shirt is equipped;
	else if scenario is "Rescuer Stranded":
		increase carried of camo pants by 1;
		now camo pants are equipped;
		increase carried of camo shirt by 1;
		now camo shirt is equipped;
	else if scenario is "Forgotten":
		increase carried of ripped jeans by 1;
		now ripped jeans are equipped;
		increase carried of sleeveless shirt by 1;
		now sleeveless shirt is equipped;
	else if scenario is "Researcher":
		increase carried of camo pants by 1;
		now camo pants are equipped;
		increase carried of camo shirt by 1;
		now camo shirt is equipped;
	if scenario is not "Bunker":
		if scenario is "Caught Outside":
			add "Spartan Diet" to feats of player;
		if scenario is "Rescuer Stranded":
			now invent of bunker is { };
			add "cot" to invent of bunker;
			increase score by 300;
		if scenario is "Forgotten":
			now invent of bunker is { };
			add "cot" to invent of bunker;
			now the printed name of Doctor Matt is "Left Behind Recording of Doctor Matt";
			now the initial appearance of Doctor Matt is "A small recorder labeled 'Doctor Matt' remains abandoned.";
			now the description of Doctor Matt is "A small recorder labeled 'Doctor Matt' remains abandoned.";
			now the HP of Doctor Matt is 100;
			now the icon of Doctor Matt is figure of pixel;
			now Orthas is nowhere;
			repeat with y running from 1 to number of filled rows in Table of Random Critters:
				choose row y in Table of Random Critters;
				if name entry is "Deer":
					now area entry is "Park";
					break;
			increase score by 600;
			extend game by 240;
	if gshm is true: [Hard mode alteration]
		increase score by 300;
		now hardmode is true;
		now levelwindow is 99999;
	if gsnhm is true: [No-heal mode alteration]
		increase score by 150;
		now nohealmode is true;
	if gsbm is true: [Blind mode alteration]
		increase score by 100;
		now blindmode is true;
	now Zephyr Lobby is known;
	WaitLineBreak;

to say set_invcolumns:
	now calcnumber is -1;
	let gsexit be 0;
	say "     How many columns would you like the inventory to display (1 - 4) or (0) to abort?";
	say "     [if invcolumns is not 1][link][bracket]1[close bracket][as]1[end link][else][bold type][bracket]1[close bracket][roman type][end if]  [if invcolumns is not 2][link][bracket]2[close bracket][as]2[end link][else][bold type][bracket]2[close bracket][roman type][end if]  [if invcolumns is not 3][link][bracket]3[close bracket][as]3[end link][else][bold type][bracket]3[close bracket][roman type][end if]  [if invcolumns is not 4][link][bracket]4[close bracket][as]4[end link][else][bold type][bracket]4[close bracket][roman type][end if]  [link][bracket]0[close bracket] - Abort[as]0[end link][line break]";
	while gsexit is 0:
		say "Choice? (0-4)>[run paragraph on]";
		get a number;
		if calcnumber > 0 and calcnumber < 5:
			now invcolumns is calcnumber;
			now gsexit is 1;
		else if calcnumber is 0:
			now gsexit is 1;
		else:
			say "Invalid: Choose between 0 and 4.";


Book 10 - Let the Games Begin

to say promptsay:
	let x be the location of the player;
	let z be the number of entries in invent of x;
	if z > 0:
		say "Visible Objects: ";
		repeat with q running through invent of x:
			say "[link][q][as]get [q][end link] ";
		say " [link]get everything[as]get all[end link]";
		say "[line break]";
	say "Status: ";
	if hunger of player > 30:
		say "[link][bracket]HUNGRY[close bracket][as]eat food[end link] ";
	if thirst of player > 30:
		say "[link][bracket]THIRSTY[close bracket][as]drink water[end link] ";
	if humanity of player < 50:
		say "[link][bracket]UNHINGED[close bracket][as]use journal[end link] ";
	say "[link][bracket]Inv[close bracket][as]inventory[end link] ";
	if scenario is "Researcher" or nanitemeter > 0:
		say "[link][bracket]Vial[close bracket][as]Vial Inventory[end link] ";
	say "[link][bracket]Rest[close bracket][as]rest[end link] ";
	say "[link][bracket]Save[close bracket][as]save[end link] ";
	say "[link][bracket]Restore[close bracket][as]restore[end link] ";
	say "[link][bracket]Export Progress[close bracket][as]export progress[end link] ";
	say "[link][bracket]Import Progress[close bracket][as]import progress[end link] ";
	if "Unerring Hunter" is listed in feats of player and (there is a visible dangerous door or earea of location of player is not "void"):
		say "[link][bracket]Hunt[close bracket][as]huntinglist[end link] ";
	say "[line break]";
	say "Exits: ";
	repeat with nam running through valid directions:
		say "[link][printed name of nam][end link] ";
	if location of player is fasttravel and earea of location of player is "void":
		say "[bracket][link]nav[end link][close bracket]";
	else if location of player is fasttravel:
		say "[bracket][link]nav[end link], [link]scavenge[end link], [link]explore[end link][close bracket]";
	else if earea of location of player is not "void":
		say "[bracket][link]scavenge[end link], [link]explore[end link][close bracket]";
	say ", Visible Things: ";
	repeat with y running through the things in the location of the player:
		if y is a door, next;
		if y is the player:
			say "[link][y][as]look me[end link] ";
			next;
		say "[link][y][as]look [y][end link] ";
	say "[link]area[as]look[end link]";
	say "[line break]>";

When play begins:
	repeat with x running through situations:
		now x is a part of the player;
	repeat with x running through grab objects:
		now x is a part of the player;
	now the command prompt is "[promptsay]";

When play begins:
	adjustdefaulthelp; [adjusts help menu]
	let tempname be indexed text;
	repeat with q running from 1 to the number of rows in the table of game objects:
		add name in row Q of table of game objects to allobjs;
		choose row q in the table of game objects;
		now tempname is name entry in lower case;
		now sortname entry is tempname;
	sort the table of game objects in sortname order;
	now the right hand status line is "[list of valid directions]";
	say "Before the game begins..."; [warn the player what to expect next]
	say "Do you want hyperlinks? (Y/N)[line break]";
	if player consents:
		now hypernull is hypernull;
	else:
		now hypernull is 1;
	repeat with x running through featsets:
		now x is a part of the player;
	if gsgt is 1: [sets name of scenario for menu based on preset]
		now scenario is "Bunker";
	else if gsgt is 2:
		now scenario is "Caught Outside";
	else if gsgt is 3:
		now scenario is "Rescuer Stranded";
	else if gsgt is 4:
		now scenario is "Forgotten";
	else if gsgt is 5:
		now scenario is "Researcher";
	else:
		now gsgt is 1;
		now scenario is "Bunker";
	if anallevel < 1 or anallevel > 3, now anallevel is 2;
	if WSlevel < 1 or WSlevel > 3, now WSlevel is 2;
	if ovipreglevel is not 1, now ovipreglevel is 2;
	increase the score by 10;
	let pointlessbump be 0;
	now monster is a random number from 1 to number of filled rows in the Table of Random Critters;
	choose row monster in Table of Random Critters;
	regularstart; [original start method. easier to move everything then leave here]

When play begins (this is the graphics window construction rule):
	if NewGraphics is true: [Build window regardless in case player decides to turn it on later]
		now the graphics window proportion is NewGraphicsRatio;
		build graphics window;
		[now the graphics window pixel count is 1;]
		follow the ngraphics_blank rule;
		follow the current graphics drawing rule;
		now NewGraphicsOpened is true;