code:
:: Science Project [nobr]
<<effects>>

<<if $sciencelichenknown is 1>>
You have an ongoing project on lichen. It has a <<print ($sciencelichenparkready * 25 + $sciencelichenlakeready * 25 + $sciencelichendrainready * 25 + $sciencelichentempleready * 25)>>% chance of winning the fair.

<</if>>
<<if $sciencelichentemple is 1 and $sciencelichentempleready lt 1>>
<<link [[Add pink lichen (3:00)|Science Project Lichen]]>><<set $phase to 0>><<pass 2 hours>><<pass 1 hour>><<set $science += 18>><<set $school += 18>><</link>><<gggscience>>

<</if>>
<<if $sciencelichenpark is 1 and $sciencelichenparkready lt 1>>
<<link [[Add white lichen (3:00)|Science Project Lichen]]>><<set $phase to 1>><<pass 2 hours>><<pass 1 hour>><<set $science += 18>><<set $school += 18>><</link>><<gggscience>>

<</if>>
<<if $sciencelichendrain is 1 and $sciencelichendrainready lt 1>>
<<link [[Add violet lichen (3:00)|Science Project Lichen]]>><<set $phase to 2>><<pass 2 hours>><<pass 1 hour>><<set $science += 18>><<set $school += 18>><</link>><<gggscience>>

<</if>>
<<if $sciencelichenlake is 1 and $sciencelichenlakeready lt 1>>
<<link [[Add purple lichen (3:00)|Science Project Lichen]]>><<set $phase to 3>><<pass 2 hours>><<pass 1 hour>><<set $science += 18>><<set $school += 18>><</link>><<gggscience>>

<</if>>

<<if $scienceshroomknown is 1>>
You have an ongoing project on mushrooms. It has a <<print ($scienceshroomwolfready * 10 + $scienceshroomheartready * 10)>>% chance of winning the fair.

You've measured $scienceshroomheartready/5 heartshrooms.

You've measured $scienceshroomwolfready/5 wolfshrooms.

<</if>>
<<if $scienceshroomheart gt $scienceshroomheartready>>
<<link [[Add heart shroom (1:00)|Science Project Shroom]]>><<set $phase to 0>><<pass 1 hour>><<set $science += 6>><<set $school += 6>><</link>><<ggscience>>

<</if>>
<<if $scienceshroomwolf gt $scienceshroomwolfready>>
<<link [[Add wolf shroom (1:00)|Science Project Shroom]]>><<set $phase to 1>><<pass 1 hour>><<set $science += 6>><<set $school += 6>><</link>><<ggscience>>

<</if>>

<<if $sciencephallusknown is 1>>
You have an ongoing project on phallus size. It has a <<print ($sciencephallusready * 10)>>% chance of winning the fair.

	<<if $sciencephallus gt $sciencephallusready>>
	<<link [[Add phallus (1:00)|Science Project Phallus]]>><<set $phase to 0>><<pass 1 hour>><<set $science += 6>><<set $school += 6>><</link>><<ggscience>>

	<</if>>
<</if>>

You can only submit one project to the fair.

<<if $location is "home">>
<<link [[Stop|Bedroom]]>><</link>>

<<else>>
<<link [[Stop|School Library]]>><</link>>

<</if>>

:: Science Project Lichen [nobr]
<<effects>>

<<if $phase is 0>>
<<set $sciencelichentempleready += 1>>
You measure the pink lichen. You note down its weight, its volume, where you found it and describe what it looks like. You note that it smells of strawberries. You feel warm.
<<garousal>><<arousal 6>>

<<elseif $phase is 1>>
<<set $sciencelichenparkready += 1>>
You measure the white lichen. You note down its weight, its volume, where you found it and describe what it looks like. You note that it smells of soot. You sneeze.

<<elseif $phase is 2>>
<<set $sciencelichendrainready += 1>>
You measure the violet lichen. You note down its weight, its volume, where you found it and describe what it looks like. You note that it smells of the sea. You feel strange and agitated.
<<ggarousal>><<arousal 30>>

<<else>>
<<set $sciencelichenlakeready += 1>>
You measure the purple lichen. You note down its weight, its volume, where you found it and describe what it looks like. You note that it smells sweet. Your hand is shaking by the end.
<<set $drugged += 180>>

<</if>>

<<link [[Next|Science Project]]>><<set $phase to 0>><</link>>

:: Science Project Shroom [nobr]
<<effects>>

<<if $phase is 0>>
<<set $scienceshroomheartready += 1>>
You measure the heartshrooms. You note down the weight, volume, where you found them and describe what they look like. You note that they smell refreshing. You feel more energetic by the end.
<<ltiredness>><<tiredness -6>>

<<else>>
<<set $scienceshroomwolfready += 1>>
You measure the wolfshroom. You note down the weight, volume, where you found them and describe what they look like. You note that they smell sweet. Your hand is shaking by the end.
<<ggarousal>><<arousal 30>>

<</if>>

<<link [[Next|Science Project]]>><<set $phase to 0>><</link>>

:: Science Project Phallus [nobr]
<<effects>>
<<set $sciencephallusready += 1>>
You add the phallus measurements to your project. You incorporate the answers the owner gave you about their lifestyle.

The things you do for school.

<<link [[Next|Science Project]]>><<set $phase to 0>><</link>>

:: Science Fair [nobr]
<<set $outside to 0>><<set $location to "town">><<effects>>
<<npc Leighton>><<generates2>><<person1>><<scienceprojectchance>>
You enter the town hall. It's full of other students setting up their projects. You recognise others from your class. Most have investigated plants, and the room almost feels like a garden. You can enter a project, or just watch. Taking part will make the teachers think better of you whether you win or not.

<<if $sciencelichenknown is 1>>
<<link [[Enter Lichen Project (3:00)|Science Fair Lichen]]>><<pass 1 hour>><<pass 2 hours>><</link>> $sciencelichenchance% chance of winning.

<</if>>
<<if $scienceshroomknown is 1>>
<<link [[Enter Mushroom Project (3:00)|Science Fair Mushroom]]>><<pass 1 hour>><<pass 2 hours>><</link>> $scienceshroomchance% chance of winning.

<</if>>
<<if $sciencephallusknown is 1>>
<<link [[Enter Phallus Project (3:00)|Science Fair Phallus]]>><<pass 1 hour>><<pass 2 hours>><</link>> $sciencephalluschance% chance of winning.

<</if>>
<<link [[Don't enter (3:00)|Science Fair Watch]]>><<pass 1 hour>><<pass 2 hours>><</link>>

<<link [[Leave (0:05)|Cliff Street]]>><<pass 5>><<endevent>><</link>>

:: Science Fair Lichen [nobr]
<<set $outside to 0>><<set $location to "town">><<effects>>
<<set $phase to 0>>
<<if $sciencelichenchance is 0>>
You don't have a lichen project. You draw some lichen and write down everything you know about the subject. That will have to do. A <<person2>><<person>> with a flower display beside yours looks over and smirks.
<<elseif $sciencelichenchance lt 100>>
You set up your lichen display and step back to admire it. It could be better, but it's not the worst in the room. A <<person2>><<person>> with a flower display beside yours looks over and smirks.
<<else>>
You set up your lichen display and step back to admire it. It couldn't be better. A <<person2>><<person>> with a flower display beside yours looks irritated.
<</if>>

Leighton walks on stage and taps the microphone. Sirris stands beside <<person1>><<himstop>> "Thank you, boys and girls, for coming," <<he>> says. "I've seen some fine work already. Sirris and I will judge. Be patient."

Leighton and Sirris leave the stage and circle around the room. Leighton criticises the projects. Sirris observes, but gives words of encouragement if Leighton was particularly scathing. Still, some students are left tearful by the headteacher's remarks.

The teachers draw closer. The <<person2>><<person>> with the flower display bobs on <<his>> heels, brimming with confidence.

<<set $skulduggerydifficulty to 400>>
<<link [[Sabotage them|Science Fair Sabotage]]>><</link>><<skulduggerydifficulty>> +10% win chance

<<link [[Play fair|Science Fair Fair]]>><</link>>

:: Science Fair Mushroom [nobr]
<<set $outside to 0>><<set $location to "town">><<effects>>
<<set $phase to 1>>
<<if $scienceshroomchance is 0>>
You don't have a mushroom project. You draw some mushrooms and write down everything you know about them. That will have to do. A <<person2>><<person>> with a flower display beside yours looks over and smirks.
<<elseif $scienceshroomchance lt 100>>
You set up your mushroom display and step back to admire it. It could be better, but it's not the worst in the room. A <<person2>><<person>> with a flower display beside yours looks over and smirks.
<<else>>
You set up your mushroom display and step back to admire it. It couldn't be better. A <<person2>><<person>> with a flower display beside yours looks irritated.
<</if>>

Leighton walks on stage and taps the microphone. Sirris stands beside <<person1>><<himstop>> "Thank you, boys and girls, for coming," <<he>> says. "I've seen some fine work already. Sirris and I will judge. Be patient."

Leighton and Sirris leave the stage and circle around the room. Leighton criticises the projects. Sirris observes, but gives words of encouragement if the headteacher was particularly scathing. Still, some students are left tearful by the Leighton's remarks.

The teachers draw closer. The <<person2>><<person>> with the flower display bobs on <<his>> heels, brimming with confidence.

<<set $skulduggerydifficulty to 400>>
<<link [[Sabotage them|Science Fair Sabotage]]>><</link>><<skulduggerydifficulty>> +10% win chance

<<link [[Play fair|Science Fair Fair]]>><</link>>

:: Science Fair Phallus [nobr]
<<set $outside to 0>><<set $location to "town">><<effects>>
<<set $phase to 2>>
<<if $sciencephalluschance is 0>>
You don't have a phallus project. You decide to draw some cocks on a piece of paper. That will have to do. A <<person2>><<person>> with a flower display beside yours looks over and snickers.

<<elseif $scienceshroomchance lt 100>>
You set up your phallus display and step back to admire it. It could be better, but it's not the worst in the room. A <<person2>><<person>> with a flower display beside yours looks over and gapes.
<<else>>
You set up your phallus display and step back to admire it. It couldn't be better. A <<person2>><<person>> with a flower display beside yours looks horrified. You're not sure if it's the subject matter or quality that upsets them.
<</if>>

Leighton walks on stage and taps the microphone. Sirris stands beside <<person1>><<himstop>> "Thank you, boys and girls, for coming," <<he>> says. "I've seen some fine work already. Sirris and I will judge. Be patient."

Leighton and Sirris leave the stage and circle around the room. Leighton criticises the projects. Sirris observes, but gives words of encouragement if the headteacher was particularly scathing. Still, some students are left tearful by the Leighton's remarks.

The teachers draw closer. The <<person2>><<person>> with the flower display bobs on <<his>> heels, brimming with confidence.

<<set $skulduggerydifficulty to 400>>
<<link [[Sabotage them|Science Fair Sabotage]]>><</link>><<skulduggerydifficulty>> +10% win chance

<<link [[Play fair|Science Fair Fair]]>><</link>>

:: Science Fair Sabotage [nobr]
<<set $outside to 0>><<set $location to "town">><<effects>>
You find a spare display board and drag it behind your own. You pin blank pieces of paper to it and write "Pretty flowers!" on each of them. Then you wait for your chance.

The <<person2>><<person>> starts chatting with the display owner to their other side. You creep over with the new display board and try to place it in front of <<his>> own.

<<skulduggerycheck>>
	<<if $skulduggerysuccess is 1>>
	<<set $sciencefaircheat += 10>>
	<<He>> doesn't notice. And <<he>> doesn't look behind when <<he>> stops chatting.

		<<if $skulduggery lte ($skulduggerydifficulty + 100)>>
		<<skulduggeryskilluse>>
		<<else>>
		That was too easy. You didn't learn anything.

		<</if>>

		<<person1>>Leighton and Sirris arrive to find the display pretty, but vacuous. Leighton comments as much before moving on. The <<person2>><<person>> looks confused and angry, until <<he>> turns. <<His>> face turns white. In <<his>> haste to move the fake board <<he>> trips and tumbles to the ground. <<He>> scrambles to <<his>> feet and tries to plead <<his>> case to Sirris, who seems sympathetic. Leighton doesn't care.

	<<else>>
	You bump the display, jostling <<his>> project and drawing <<his>> attention. <<His>> mouth gapes when <<he>> sees you. <<He>> guards <<his>> display more vigilantly from then on.
	<<status -10>><<lcool>>

		<<if $skulduggery lte ($skulduggerydifficulty + 100)>>
		<<skulduggeryskilluse>>
		<<else>>
		That was too easy. You didn't learn anything.

		<</if>>

	<<person2>>Leighton and Sirris arrive to examine the <<persons>> project. Not even Leighton can find much wrong with it. <<person1>><<He>> comments as much before moving on. The <<person2>><<person>> looks relieved as the teachers approach yours.

	<</if>>

<<link [[Next|Science Fair Display]]>><</link>>

:: Science Fair Fair [nobr]
<<set $outside to 0>><<set $location to "town">><<effects>>

<<person2>>Leighton and Sirris arrive to examine the <<persons>> project. Not even Leighton can find much wrong with it. <<person1>><<He>> comments as much before moving on. The <<person2>><<person>> looks relieved as the teachers approach yours.

<<link [[Next|Science Fair Display]]>><</link>>

:: Science Fair Display [nobr]
<<set $outside to 0>><<set $location to "town">><<effects>>
<<person1>>
Leighton and Sirris examine your project.

<<if $phase is 0>>
	<<if $sciencelichenchance gte 100>>
	Even Leighton seems impressed. "I've never seen colours like this in lichen," <<he>> says. Sirris beams at you.
	<<elseif $sciencelichenchance gte 20>>
	Leighton yawns. "Lichen? How boring," <<he>> says. Sirris seems happier with it.
	<<else>>
	They don't seem impressed. "It's like you made it just now," Leighton says. "You didn't even collect any lichen. What a waste of time."
	<</if>>
<<elseif $phase is 1>>
	<<if $scienceshroomchance gte 100>>
	Even Leighton seems impressed. "You've been thorough," <<he>> says. "Must have been a lot of work, finding these mushroom samples." Sirris beams at you.
	<<elseif $scienceshroomchance gte 20>>
	Leighton yawns. "Mushrooms grow in the forest," <<he>> says. "Who knew." Sirris seems more impressed.
	<<else>>
	They don't seem impressed. "I think the mushrooms went to your head," Leighton says. "What a waste of time."
	<</if>>
<<elseif $phase is 2>>
	<<if $sciencephalluschance gte 100>>
	"This is... Different," Leighton says.

	"It's for science," Sirris says. "<<pShe>> should be commended for originality."

	Leighton nods, and reads one of the papers stuck to your board. "I can get behind this. Though I'm not sure people count as wildlife."
	<<elseif $sciencephalluschance gte 20>>
	"This is... different," Leighton says.

	"It's for science," Sirris says. "<<pShe>> should be commended for originality."

	Leighton nods, and reads one of the papers stuck to your board. "I can get behind this. Though I'm not sure people count as wildlife."

	<<else>>
	They stand and stare for a few moments. "So," Leighton says. "You decided to submit crudely drawn cocks to the science fair?" You nod. Sirris looks embarrassed.

	<</if>>
<</if>>

<<link [[Flirt|Science Fair Flirt]]>><</link>> +10% win chance

<<link [[Explain your project|Science Fair Explain]]>><</link>>

:: Science Fair Flirt [nobr]
<<set $outside to 0>><<set $location to "town">><<effects>>

<<set $seductiondifficulty to 4000>>
<<seductioncheck>>

<<if $seductionskill lt 1000>>You feel more confident in your powers of seduction.<</if>><<seductionskilluse>>

You look Leighton in the eyes. "You must know much more about it than me," you whisper. "Maybe you can teach me in private?" Sirris looks away and blushes.

<<if $seductionrating gte $seductionrequired>>
<<set $sciencefaircheat += 10>>
Leighton leans close. "Maybe you could use some-," <<he>> pauses. "Personal tuition." <<He>> glances around as if remembering where <<he>> is and coughs. "That's enough," <<he>> says. They move on to the next project.

<<else>>
Leighton laughs. "Nice try," <<he>> says. They move on to the next project.

<</if>>

<<link [[Next|Science Fair Finish]]>><</link>>

:: Science Fair Explain [nobr]
<<set $outside to 0>><<set $location to "town">><<effects>>

You explain your project. Sirris listens and reads, while Leighton stares at you. "That's enough," <<he>> interrupts. They move on to the next project.

<<link [[Next|Science Fair Finish]]>><</link>>

:: Science Fair Finish [nobr]
<<set $outside to 0>><<set $location to "town">><<effects>>
<<person1>>
Leighton and Sirris examine the remaining projects. One is just an essay taped to a board. Another looks more like an art project.

The public roam between the displays, asking questions and flirting inappropriately with students.

<<if $phase is 2>>
Yours attracts a lot of attention for its subject. A lot of inappropriate flirting too.
<</if>>

The teachers confer on the stage, then Leighton steps up to the microphone. "We've made a decision," <<he>> says.

<<if $phase is 0 and $sciencelichenchance + $sciencefaircheat gte $rng>>
"The trophy goes to the student with the lichen project." Sirris waves at you. "Come on up."

You climb the stage and shake Leighton's hand as <<he>> smiles at a waiting photographer. <<He>> hands you the trophy. There's £500 inside.
<<set $money += 50000>>
The audience cheer and applaud. The <<person2>><<person>> looks upset, but claps along.
<<npcincr Sirris love 5>><<llltrauma>><<trauma -120>><<famebusiness 100>>

<<endevent>><<npc Sirris>><<person1>>Sirris follows you off the stage. "I'm so happy you took to the project with such enthusiasm," <<he>> says. <<He>> and Leighton herd you and the other students from the building.<<lldelinquency>><<detention -54>>

<<set $scienceproject to "won">><<set $scienceprojectwon to 1>>
<<scienceprojectfinish>>

<<link [[Next|Cliff Street]]>><<endevent>><<set $eventskip to 1>><</link>>

<<elseif $phase is 1 and $scienceshroomchance + $sciencefaircheat gte $rng>>
"The trophy goes to the student with the mushroom project." Sirris waves at you. "Come on up."

You climb the stage and shake Leighton's hand as <<he>> smiles at a waiting photographer. <<He>> hands you the trophy. There's £500 inside.
<<set $money += 50000>>
The audience cheer and applaud. The <<person2>><<person>> looks upset, but claps along.
<<npcincr Sirris love 5>><<llltrauma>><<trauma -120>><<famebusiness 100>>

A group of students surround you as you climb down from the stage. They want to hear the story of how you collected the mushrooms that only grow deep in the woods, deeper than the bravest of them have ventured. Leighton herds you and the other students from the hall.<<ldelinquency>><<detention -18>><<ggcool>><<status 18>>

<<set $scienceproject to "won">><<set $scienceprojectwon to 1>>
<<scienceprojectfinish>>

<<link [[Next|Cliff Street]]>><<endevent>><<set $eventskip to 1>><</link>>

<<elseif $phase is 2 and $sciencephalluschance + $sciencefaircheat gte $rng>>
"The trophy goes to the student with the phallus project." Murmuring fills the hall. Sirris waves at you. "Come on up."

You climb the stage and shake Leighton's hand as <<he>> smiles at a waiting photographer. <<He>> hands you the trophy. There's £500 inside. The audience cheer and applaud.

	<<if $sciencephalluschance is 0>>
	The <<person2>><<person>> looks upset. <<His>> fists clench. "No," <<he>> shouts. "I won't accept this. All <<pshe>> did was draw some privates." <<He>> marches up the stage. "Give me that trophy!" <<He>> tries to wrestle it from your grip.

	<<link [[Let them take it|Science Fair Take]]>><</link>>

	<<link [[Wrestle|Science Fair Wrestle]]>><</link>>

	<<else>>
	The <<person2>><<person>> looks upset, but claps along.
	<<npcincr Sirris love 5>><<llltrauma>><<trauma -120>><<famebusiness 100>><<famesex 100>><<set $money += 50000>>

The photographer accosts you as you leave the stage, wanting to know more about how you acquired your data. Leighton herds you and the other students from the hall.<<ldelinquency>><<detention -18>>

<<set $scienceproject to "won">><<set $scienceprojectwon to 1>>
<<scienceprojectfinish>>

<<link [[Next|Cliff Street]]>><<endevent>><<set $eventskip to 1>><</link>>

	<</if>>

<<else>>
<<He>> announces that the <<person2>><<person>> with a flower display is the winner. <<He>> rushes up to accept <<his>> trophy.

Leighton herds you and the other students from the hall. "Thank you for taking part," Sirris says to you on the way out. "It's good practice." <<ldelinquency>><<detention -18>>

<<set $scienceproject to "done">>
<<scienceprojectfinish>>

<<link [[Next|Cliff Street]]>><<endevent>><<set $eventskip to 1>><</link>>

<</if>>

:: Science Fair Take [nobr]
<<set $outside to 0>><<set $location to "town">><<effects>>

The <<person>> snatches the trophy and runs from the hall. The audience boos, probably unaware of why you won.
<<npcincr Sirris love 5>><<llltrauma>><<trauma -120>><<famebusiness 100>><<famesex 100>>

The photographer accosts you as you leave the stage, wanting to know more about how you acquired your data. Leighton herds you and the other students from the hall.
<<ldelinquency>><<detention -18>>

<<set $scienceproject to "won">><<set $scienceprojectwon to 1>>
<<scienceprojectfinish>>

<<link [[Next|Cliff Street]]>><<endevent>><<set $eventskip to 1>><</link>>

:: Science Fair Wrestle [nobr]
<<set $outside to 0>><<set $location to "town">><<effects>>

<<if $physique gte $rng * 100 + 6000>>

You try to keep hold of the trophy, and manage to push the <<person>> to the ground. "It's not fair!" <<he>> shouts. <<He>> scrambles to <<his>> feet and runs from the hall.
<<set $money += 50000>><<npcincr Sirris love 5>><<llltrauma>><<trauma -120>><<famebusiness 100>><<famesex 100>>

The photographer accosts you as you leave the stage, wanting to know more about how you acquired your data. Leighton herds you and the other students from the hall.<<ldelinquency>><<detention -18>>

<<set $scienceproject to "won">><<set $scienceprojectwon to 1>>
<<scienceprojectfinish>>

<<link [[Next|Cliff Street]]>><<endevent>><<set $eventskip to 1>><</link>>

<<else>>

You try to keep hold of the trophy, but the <<person>> is stronger. <<He>> twists it from your grip and run from the hall. The audience boos, probably unaware of why you won.
<<llltrauma>><<trauma -120>><<famebusiness 100>><<famesex 100>>

The photographer accosts you as you leave the stage, wanting to know more about how you acquired your data. Leighton herds you and the other students from the hall.
<<ldelinquency>><<detention -18>>

<<set $scienceproject to "won">><<set $scienceprojectwon to 1>>
<<scienceprojectfinish>>

<<link [[Next|Cliff Street]]>><<endevent>><<set $eventskip to 1>><</link>>

<</if>>

:: Science Fair Watch [nobr]
<<set $outside to 0>><<set $location to "town">><<effects>>

You walk among the students and examine their projects. Some are more impressive than others. One is just an essay taped to a board. Another looks more like an art project.

The public are allowed in. They roam between the displays, asking questions and flirting inappropriately with students.

Leighton walks on stage and taps the microphone. Sirris stands beside <<himstop>> "Thank you, boys and girls, ladies and gentlemen, for coming," <<he>> says. "I've seen some fine work already. Sirris and I will judge. Be patient."

Leighton and Sirris leave the stage and begin to circle around the room. Leighton criticises the projects. Sirris observes, but gives words of encouragement if Leighton was particularly scathing. Still, some students are left tearful by the headteacher's remarks.

After conferring they announce that a <<person2>><<person>> with a flower display is the winner.

Leighton herds you and the other students from the hall. You might have learned something.
<<gscience>><<set $science += 6>>

<<set $scienceproject to "done">>
<<scienceprojectfinish>>

<<link [[Next|Cliff Street]]>><<endevent>><<set $eventskip to 1>><</link>>


code:
/*
Scarlet Mod v.1
for Degrees of Lewdity
Feb 2019
(c) khan@buntownik.pl
*/

/*indev - scarlet book event. English: 200+*/
:: ScarletBook1 [nobr]
You take a scarlet book from the basket. The title written in decorative gold letters says "Raul and Janet".
<<if $english gte 600>>
	You know that book very well. It's a classic English drama from 1616. It tells the tragic story of two lovers.

	<<link [[Read (0:20)|ScarletBook2]]>><<pass 20>><<stress -6>><<englishskill>><</link>><<genglish>><<lstress>>

<<elseif $english gte 500>>
	Its a classic story of two lovers from the seventeenth century.

	<<link [[Read (0:20)|ScarletBook2]]>><<pass 20>><<stress -6>><<englishskill>><</link>><<genglish>><<lstress>>

<<elseif $english gte 400>>
	You know that book. It tells the story of two lovers from the seventeenth century.

	<<link [[Read (0:20)|ScarletBook2]]>><<pass 20>><<englishskill>><</link>><<genglish>>

<<elseif $english gte 300>>
	This title sounds familiar. Isn't that the one about those two lovers from middle ages?

	<<link [[Read (0:20)|ScarletBook2]]>><<pass 20>><<englishskill>><</link>><<genglish>>

<<else>>
	You open the book on a random page. The text looks like being a hundred years old. Some words sound ridiculous and incomprehensible. Were people really talking that way those days?

<</if>>
	<<link [[Put the book away|School Library]]>><</link>>

/*indev scarlet book event. English: 300-399*/
:: ScarletBook2 [nobr]
You're reading "Raul and Janet".

The book tells the story of two lovers from few centuries ago. Raul is the son of a poor tailor, but from the honest work he prefers night trips in search of adventures. Janet is a young polite girl from a wealthy family and daughter of local baron and ruler of the city. Despite the differences between them they fall in love with each other.

<<if $english gte 400>>
	You slowly delve into the text.

	<<link [[Continue reading (0:20)|ScarletBook3]]>><<pass 20>><<englishskill>><</link>><<genglish>>

<<else>>
	It seems to be some kind of romance for old lonely people. Nothing interesting.

<</if>>
	<<link [[Put the book away|School Library]]>><</link>>

/*indev scarlet book event. English 400-499*/
:: ScarletBook3 [nobr]
You're reading "Raul and Janet".

The book tells the story of two lovers from the seventeenth century. Raul is the son of a poor tailor, but from the honest work he prefers night trips in search of adventures. Janet is a young polite girl from a wealthy family and daughter of local baron and ruler of the city. Despite the differences between them they fall in love with each other but Janet's father is against their acquaintances, stating that the street boy is not the right fiancée for his daughter. One day, Raul convinces his beloved to run away together...

<<if $english gte 500>>
	This is a tale of forbidden love and although it does not end well, reading it gives you a strange joy.

	<<link [[Continue reading (0:20)|ScarletBook4]]>><<pass 20>><<stress -6>><<englishskill>><<arousal 12>><</link>><<genglish>><<lstress>><<ggarousal>>

<<else>>
	The story is interesting. You think to return to it later.

<</if>>
	<<link [[Put the book away|School Library]]>><</link>>

/*indev scarlet book event. English: 500-599*/
:: ScarletBook4 [nobr]
You're reading "Raul and Janet".

The book tells the story of two lovers from the seventeenth century. Raul is the son of a poor tailor, but from the honest work he prefers night trips in search of adventures. Janet is a young polite girl from a wealthy family and daughter of local baron and ruler of the city. Despite the differences between them they fall in love with each other but Janet's father is against their acquaintances, stating that the street boy is not the right fiancée for his daughter. One day, Raul convinces his beloved to run away together.

It turns out eventually that the baron's fears were real. When Janet's father orders him to leave his daughter alone, the boy brutally kills him, burns the court and returns to a girl who does not know what happened. They make love the same night.

With each act, the book becomes darker and scarier. Every time you read it you have a view of innocent pure girl in white dress and a dangerous and lustful lad in front of your eyes. You feel a mix of jealousy, lust and anger. And you like it.

<<if $english gte 600 and $arousal gte 4000>>
	You're not just reading a book any more. All scenes and feelings are described so perfectly that you clearly feel like you are there. Like you are one of them.

<<else>>
	You think it will be one of your favourite books. You plan to return to it more often.

<</if>>
<<link [[Continue reading (0:20)|ScarletBook4]]>><<pass 20>><<stress -6>><<englishskill>><<arousal 6>><</link>><<genglish>><<lstress>><<garousal>>

<<if $schoolday is 1>>
	<<if $schoolstate is "lunch" and $exhibitionism gte 75>>
		<<link [[Masturbate|Library Masturbation]]>><<set $masturbationstart to 1>><</link>><<exhibitionist5>>

	<<elseif $schoolstate is "early" and $exhibitionism gte 35>>
		<<link [[Masturbate|Library Masturbation]]>><<set $masturbationstart to 1>><</link>><<exhibitionist3>>

	<<elseif $schoolstate is "late" and $exhibitionism gte 35>>
		<<link [[Masturbate|Library Masturbation]]>><<set $masturbationstart to 1>><</link>><<exhibitionist3>>

	<<elseif $exhibitionism gte 55>>
		<<link [[Masturbate|Library Masturbation]]>><<set $masturbationstart to 1>><</link>><<exhibitionist4>>

	<</if>>
<<elseif $exhibitionism gte 15>>
	<<link [[Masturbate|Library Masturbation]]>><<set $masturbationstart to 1>><</link>><<exhibitionist2>>

<</if>>
<<if $english gte 600 and $arousal gte 4000>>
	<<link [[Imagine yourself as Janet|ScarletBook5]]>><<pass 30>><<arousal 6>><</link>><<garousal>>

<</if>>
	<<link [[Put the book away|School Library]]>><</link>>

/*indev scarlet book event. English 600+*/
:: ScarletBook5 [nobr]
<<calljanet>>

Lonely house outside the city.

Enter Janet.

JANET:

"Oh wh're art thee, mine own Belov'd One? Wh're art thee? (Oh where are you, my Beloved One? Where are you?)

I've been waiting h're f'r so longeth. (I've been waiting here for so long.)

This constant waiting maketh me crazy. (This constant waiting makes me crazy.)

What's stopping thee?" (What's stopping you?)

Enter Raul.

RAUL:

"Oh mine own ladybird (Oh my Darling)

I has't hath returned to thee. (I have returned to you.)

Prithee f'rgive me thee hadst to waiteth f'r so longeth (Please forgive me you had to wait for so long)

Th're w're things yond i hadst to doth but anon i am all yours." (There were things I had to do but now I'm all yours.)

<<link [[Continueth|ScarletBook6]]>><<arousal 12>><</link>>

:: ScarletBook6 [nobr]
JANET:

"Oh mine own belov'd one! (Oh my beloved one!)

Cometh ov'r h're! (Come over here!)

Cometh to me!" (Come to me!)

They kiss.

RAUL:

"Oh Janet, mine own Loveth. (Oh Janet, my Love.)

How couldst I intermit thee? (How could I resist you?)

Let us waiteth nay longeth'r. (Let us wait no longer.)

Will thee beest mineth tonight?" (Will you be mine tonight?)

<<link [[To be|ScarletBook7aye]]>><</link>>

<<link [[Not to be|ScarletBook7nay]]>><</link>>

:: ScarletBook7aye [nobr]
JANET:

"Oh aye! (Oh yes!)

Mine own Belov'd One! I am all yours! (My Beloved One! I am all yours!)

Taketh me anon!!" (Take me now!)

They lie together.

<<link [[Continueth|Loveth]]>><<set $sexstart to 1>><</link>>

:: ScarletBook7nay [nobr]
JANET:

"Oh Raul, mine own Raul! (Oh Raul, my Raul!)

Curs'd our fate! (Cursed our fate!)

I loveth thee with all mine own heart. (I love you with all my heart.)

But we shalt not beest togeth'r. (But we shall not be together.)

Mine own fath'r that gent shall nev'r grant us his blessing." (My father he will never grant us his blessing.)

RAUL:

"Mine own belov'd Janet (My beloved Janet)

We doth not needeth his p'rmission any m're. (We do not need his permission any more.)

Moon shall beest our augurer. (Moon will be our priest.)

And the stars shall singeth us a wedding song tonight!" (And the Stars will sing us a wedding song tonight!)

JANET:

"Nay! What art thee declaring! (No! What are you saying!)

Passeth me mine own coat. (Pass me my coat.)

I needeth to seeth that gent anon. (I need to see him now.)

I'll wend anon and begeth that gent to heareth me." (I'll go now and beg him to hear me.)

She gets up.

<<link [[Continueth|ScarletBook7nay_page2]]>><<arousal 12>><</link>>

:: ScarletBook7nay_page2 [nobr]
RAUL:

"Thy fath'r shall not heareth thee." (Your father will not hear you.)

JANET:

"Wherefore art thee declaring this?" (Why are you saying this?)

RAUL:

"As dead can't heareth! (As dead can't hear!)

Tonight thee becometh mineth f'rev'r. (Tonight you become mine forever.)

And nothing shall setteth as apart ev'r again!" (And nothing will set as apart ever again!)

He grabs her.

<<link [[Continueth|Drama]]>><<set $molestationstart to 1>><</link>>

:: ScarletBook8aye [nobr]
The vision slowly fades out.
You feel relaxed and a little jealous.
<<arousal 6>><<stress -6>><<garousal>><<lstress>>

You liked it, despite knowing, that original history went differently.

<<link [[Put the book away|School Library]]>><</link>>

:: ScarletBook8nay [nobr]
The vision slowly fades out.
You feel aroused and excited.
<<arousal 12>><<ggarousal>>

You liked it, despite knowing, that original history went differently.

<<link [[Put the book away|School Library]]>><</link>>

:: ScarletBook9 [nobr]
RAUL:

"Foolish thou art! (Foolish you are!)

If 't be true I cannot has't thee, nay one shall!" (If I cannot have you, no one will!)

He draws a dagger.

The sound of oncoming horses outside.

Enter William, leader of guards.

WILLIAM:

"Halt, thee bastard! (Halt, you bastard!)

We followeth thee from the court. (We follow you from the court.)

We did see what thee didst. (We saw what you did.)

Receiveth eft f'r justice!" (Get ready for justice!)

<<link [[Continueth|ScarletBook10]]>><<sleepjanet>><<pass 10>><</link>>

:: ScarletBook10 [nobr]
A duel begins between Raul and William. Raul has the upper hand, but the moment he is about to kill William, Janet stabs him with a dagger.

He gets furious, strikes her back, accidentally piercing her with a sword. He is shocked realising what just happened. William uses the opportunity and finishes his opponent with his blade.

The history ends with both would-be lovers looking into one another's eyes for the last time, then the darkness overwhelms them.

You slowly close the book. You feel moved, but relaxed.
<<stress -12>><<llstress>>

It's time to get back to reality.

How long have you been here?

<<link [[Put the book away|School Library]]>><</link>>

/*indev*/
:: Library Masturbation [nobr]
<<effects>>

<<if $masturbationstart is 1>>
The words you have just read echo in your head. You can no longer ignore what you see when you close your eyes.

<<if $schoolday is 1>>
	<<if $schoolstate is "lunch" and $exhibitionism gte 75>>
		The room is crowded but you don't care any more. They may look at you, but they can't see what you see.
		<<exhibitionism5>>

	<<elseif $schoolstate is "early" and $exhibitionism gte 35>>
		Nobody's here yet and being alone in a place like this excites you even more.
		<<exhibitionism3>>

	<<elseif $schoolstate is "late" and $exhibitionism gte 35>>
		Nobody's here any more and being alone in a place like this excites you even more.
		<<exhibitionism3>>

	<<elseif $exhibitionism gte 55>>
		There are some people around. You wonder if they will notice.
		<<exhibitionism4>>

	<</if>>
<<elseif $exhibitionism gte 15>>
	The dark hallways of the library stay empty and quiet. You could swear you can hear your own heartbeat rising.
	<<exhibitionism2>>

<</if>>
<<set $masturbationstart to 0>>
<<set $masturbationstat += 1>>
<<masturbationstart>>
<</if>>

<<masturbationeffects>>
<<masturbationactions>>

<<link [[Continue|Library Masturbation]]>><</link>><<nexttext>>

<<link [[Stop|Library Masturbation Finish]]>><<set $finish to 1>><</link>>

/*indev*/
:: Library Masturbation Finish [nobr]
<<effects>>

<<if $schoolday is 1>>
	<<if $schoolstate is "lunch">>
		You open your eyes and see that few people were watching you all the time. You smile and say nothing.

	<<elseif $schoolstate is "early">>
		You begin thinking that every day at school should start this way.

	<<elseif $schoolstate is "late">>
		Who may thought that studying late could be so fun?

	<<else>>
		You look around and try to stay unnoticed. Or maybe you're not?

	<</if>>
<<else>>
	You think it may be interesting to do that again someday with all the people around.

<</if>>

<<endmasturbation>>
<<clotheson>>
<<endcombat>>

<<link [[Next|School Library]]>><</link>>

:: Loveth [nobr]
<<if $sexstart is 1>>
	<<set $sexstart to 0>>
	<<consensual>>
	<<set $consensual to 1>>
	<<neutral 1>>
	<<set $event to "molestationhome">>
	<<generate1>><<person1>>
	<<set $enemyno = 1>>
	<<man1init>>
	<<set $NPCList[0].gender to "m">>
	<<set $NPCList[0].skincolour to "white">>
	<<set $NPCList[0].insecurity to "weak">>
	<<set $NPCList[0].adult to 1>>
	<<set $NPCList[0].teen to 0>>
	<<set $NPCList[0].lefthand to 0>>
	<<set $NPCList[0].righthand to 0>>
	<<set $NPCList[0].mouth to 0>>
	<<set $NPCList[0].penis to "clothed">>
	<<set $pronoun to "m">>
	<<set $description to "muscular">>
	<<set $enemytrust += 500>>
	<<set $NPCList[0].adult to 1>>
	<<set $NPCList[0].pronoun to "m">>
	<<set $NPCList[0].description to "muscular">>
	RAUL:

	"Mine own M'rning Star! Mine own Sunshine! (My Morning Star! My Sunshine!)

	Thou art all mine own life! (You are all my life!)

	W'rds cannot describeth how beauty thou art.  (Words cannot describe how beauty you are.)

	Thy hair liketh rays of the moonlight.  (Your hair like rays of the moonlight.)

	Thy eyes liketh stars shining in the sky.  (Your eyes like stars shining in the sky.)

	Thy scent liketh a lonely f'rn floweth'r. (Your scent like a lonely fern flower.)

	And thy toucheth. Warmeth liketh a candle flame.  (And your touch. Warm like a candle flame.)

	An angel thou art! Not a m'rtal! (An angel you are! Not a mortal!)

	Yet as a m'rtal I shalt has't thee!" (Yet as a mortal I shall have you!)

<</if>>
<<set $pronoun to "m">>
<<set $enemyanger to 0>>
<<effects>>
<<effectsman>><<man>>
<<stateman>>

<<actionsman>>
<<if $finish is 1>>
	<<link [[Continueth|Loveth Finish]]>><</link>><<nexttext>>
<<elseif $enemyhealth lte 0>>
	<<link [[Continueth|Loveth Finish]]>><</link>><<nexttext>>
<<elseif $enemyarousal gte $enemyarousalmax>>
	<<link [[Continueth|Loveth Finish]]>><</link>><<nexttext>>
<<else>>
	<<link [[Continueth|Loveth]]>><</link>><<nexttext>>
<</if>>

:: Loveth Finish [nobr]
<<if $enemyarousal gte $enemyarousalmax>>
	<<ejaculation>>
	RAUL:

	"Oh aye! Aye! (Oh yes! Yes!)

	I did want this f'r so longeth!" (I wanted this for so long!)

<<elseif $enemyhealth lte 0>>
	RAUL:

	"I though thee did want this just as i didst! (I though you wanted this just as I did.)

	They kiss.
<<elseif $finish is 1>>
<</if>>

<<endcombat>>
<<link [[Continueth|ScarletBook8aye]]>><<sleepjanet>><<endcombat>><<pass 10>><</link>>

:: Drama [nobr]
<<if $molestationstart is 1>>
	<<set $molestationstart to 0>>
	<<controlloss>>
	<<violence 1>>
	<<neutral 1>>
	<<molested>>
	<<set $event to "molestationhome">>
	<<set $enemyno = 1>>
	<<man1init>>
	<<set $NPCList[0].gender to "m">>
	<<set $NPCList[0].skincolour to "white">>
	<<set $NPCList[0].insecurity to "weak">>
	<<set $NPCList[0].adult to 1>>
	<<set $NPCList[0].teen to 0>>
	<<set $NPCList[0].lefthand to 0>>
	<<set $NPCList[0].righthand to 0>>
	<<set $NPCList[0].mouth to 0>>
	<<set $NPCList[0].penis to "clothed">>
	<<set $pronoun to "m">>
	<<set $description to "muscular">>
	<<set $NPCList[0].adult to 1>>
	<<set $NPCList[0].pronoun to "m">>
	<<set $NPCList[0].description to "muscular">>
	/*Reduce enemy's Health to half, so he can be defeated in battle*/
	<<set $enemyhealthmax to 100 * $enemyno>>
	<<set $enemyhealth to 100 * $enemyno>>
<</if>>
<<effects>>
<<effectsman>><<man>>
<<stateman>>

<<actionsman>>
<<if $finish is 1>>
	<<link [[Continueth|Drama Finish]]>><</link>><<nexttext>>
<<elseif $enemyhealth lte 0>>
	<<link [[Continueth|Drama Finish]]>><</link>><<nexttext>>
<<elseif $enemyarousal gte $enemyarousalmax>>
	<<link [[Continueth|Drama Finish]]>><</link>><<nexttext>>
<<else>>
	<<link [[Continueth|Drama]]>><</link>><<nexttext>>
<</if>>

:: Drama Finish [nobr]
<<if $enemyhealth lte 0>>
	Janet:

	"Nay! Receiveth off me! (No! Get off me!)

	Toucheth not me, thee monst'r!" (Don't touch me, you monster!)

	She pushes him away.

	<<link [[Continueth|ScarletBook9]]>><</link>>

<<elseif $enemyarousal gte $enemyarousalmax>>
	<<ejaculation>>
	RAUL:

	"Oh aye! Aye! (Oh yes! Yes!)

	Anon thee shall beest mineth f'rev'r!" (Now you will be mine forever!)

	<<link [[Continueth|ScarletBook8nay]]>><<sleepjanet>><<endcombat>><<pass 10>><</link>>

<<elseif $finish is 1>>
	<<link [[Continueth|ScarletBook8nay]]>><<sleepjanet>><<endcombat>><<pass 10>><</link>>

<</if>>
<<endcombat>>

:: Scarlet Widgets [widget]
<<widget "calljanet">><<nobr>>
/*store players stats*/
<<set $real_playersex to $player.sex>>
<<set $real_playergender to $player.gender>>
<<set $real_eyecolour to $eyecolour>>
<<set $real_haircolour to $haircolour>>
<<set $real_hairlength to $hairlength>>
<<set $real_breastsize to $breastsize>>

<<set $real_goooutsidecount to $goooutsidecount>>
<<set $real_semenoutsidecount to $semenoutsidecount>>
<<set $real_vaginagoo to $vaginagoo>>
<<set $real_vaginasemen to $vaginasemen>>
<<set $real_anusgoo to $anusgoo>>
<<set $real_anussemen to $anussemen>>
<<set $real_mouthgoo to $mouthgoo>>
<<set $real_mouthsemen to $mouthsemen>>
<<set $real_vaginalvirginity to $vaginalvirginity>>
<<set $real_analvirginity to $analvirginity>>
<<set $real_oralvirginity to $oralvirginity>>
<<set $real_pain to $pain>>
<<set $real_arousal to $arousal>>
<<set $real_tiredness to $tiredness>>
<<set $real_stress to $stress>>
<<set $real_trauma to $trauma>>
<<set $real_control to $control>>
<<set $real_angel to $angel>>
<<set $real_angelbuild to $angelbuild>>
/*store player clothing*/

<<undress "janet">>
/*store time*/
<<set $real_time to $time>>
/*morph player into Janet*/
<<set $player.gender to "f">>
<<set $player.sex to "f">>
<<set $eyecolour to "light blue">>
<<set $haircolour to "platinumblond">>
<<set $hairlength to 400>>
<<set $breastsize to 5>>

<<set $vaginalvirginity to 1>>
<<set $analvirginity to 1>>
<<set $oralvirginity to 1>>
<<set $pain to 0>>
<<set $arousal to 0>>
<<set $tiredness to 0>>
<<set $stress to 0>>
<<set $trauma to 0>>
<<set $control to 500>>
<<set $angel to 0>>
<<set $angelbuild to 0>>
/*change location and time*/
<<set $time to 1260>>
<<time>>
<<set $location to "forest">>
/*give player clothes*/

<<feetwear 1>>
<<legswear 5>>
<<upperwear 7>>
<<underlowerwear 3>>

<</nobr>><</widget>>

<<widget "sleepjanet">><<nobr>>
/*restore clothes integrity and undress*/
<<clotheson>>
<<ruined>>

/*restore real clothes*/
<<storeon "janet">>
/*restore players stats*/
<<set $player.sex to $real_playersex>>
<<set $player.gender to $real_playergender>>
<<set $eyecolour to $real_eyecolour>>
<<set $haircolour to $real_haircolour>>
<<set $hairlength to $real_hairlength>>
<<set $breastsize to $real_breastsize>>
<<set $goooutsidecount to $real_goooutsidecount>>
<<set $semenoutsidecount to $real_semenoutsidecount>>
<<set $vaginagoo to $real_vaginagoo>>
<<set $vaginasemen to $real_vaginasemen>>
<<set $anusgoo to $real_anusgoo>>
<<set $anussemen to $real_anussemen>>
<<set $mouthgoo to $real_mouthgoo>>
<<set $mouthsemen to $real_mouthsemen>>
<<set $vaginalvirginity to $real_vaginalvirginity>>
<<set $analvirginity to $real_analvirginity>>
<<set $oralvirginity to $real_oralvirginity>>
<<set $pain to $real_pain>>
<<set $arousal to $real_arousal>>
<<set $tiredness to $real_tiredness>>
<<set $stress to $real_stress>>
<<set $trauma to $real_trauma>>
<<set $control to $real_control>>
<<set $angel to $real_angel>>
<<set $angelbuild to $real_angelbuild>>
/*restore location and time*/
<<set $location to "school">>
<<set $time to $real_time>>
<<time>>
<</nobr>><</widget>>

repo_name: GayKitten/degrees

license: mit


code:
:: School Gloryhole Start[nobr]

<<set $outside to 0>><<set $location to "school">><<schooleffects>><<effects>>

<<if $school_gloryhole_intro is undefined>><<set $school_gloryhole_intro to 1>>

You noticed before a large area of missing tile from the wall at waist level, with a gap large enough behind for someone to stand it. You realize you can access the gap through an unused closet in the bathroom. This gives you an idea.

<<generate1>>
<<saveNPC 0 janitor>>

<<link [[Next|School Gloryhole Start]]>><<endevent>><</link>>

<<else>>

You wait until no-one else is around; now is your chance to set up.

You think about how much you should charge for your services, given your skills and reputation.

<<link [[Set up shop and charge £5 (0:10)|School Gloryhole]]>><<pass 10>><<set $school_gloryhole_price to 500>><<set $phase to 1>><</link>><<promiscuous4>>

<<link [[Set up shop and charge £10 (0:10)|School Gloryhole]]>><<pass 10>><<set $school_gloryhole_price to 1000>><<set $phase to 1>><</link>><<promiscuous4>>

<<link [[Set up shop and charge £20 (0:10)|School Gloryhole]]>><<pass 10>><<set $school_gloryhole_price to 2000>><<set $phase to 1>><</link>><<promiscuous4>>

<<link [[Changed my mind; leave the toilets (0:01)|Hallways]]>><<pass 1>><</link>>

<</if>>

:: School Gloryhole [nobr]
<<set $outside to 0>><<set $location to "school">><<schooleffects>><<effects>>

<<if $phase is 1>><<set $phase to 0>>
	You scrawl out a sign "Oral Servicing, £<<print ($school_gloryhole_price / 100)>>" and tape it to the wall above the hole. You crawl into the space behind and wait.
<<else>>
	You adjust your position in the gap behind the wall and wait for your next customer.
<</if>>

<<switch $schoolstate>>
<<case "morning" "lunch" "afternoon">>
	Students mill around in the hallways outside.
	<<set _busy to 40>>
<<case "first" "second" "third" "fourth" "fifth">>
	A few student walk around the halls with hall passes.
	<<set _busy to 1>>
<<default>>
	The hallway is silent.
	<<set _busy to 0>>
<</switch>>

<<set _prob to (_busy + $famesex/50  + $oralskill/25 - 2*($school_gloryhole_price/100))>>
<<if _busy is 0>><<set _prob to 0>><</if>>
<<set _prob to Math.clamp(_prob, 0, 100)>>
<<set _rnd to random(0, 100)>>

<<if _prob gte 91>>
	You hear a lot of jostling outside; there are several people in the antechamber talking excitedly. Perhaps you should raise your prices...

<<elseif _prob lte 20>>
	<<if _busy lte 1>>
		It's quiet in the antechamber. Perhaps you should set up at another time...

	<<else>>
		You hear a lot of incredulous snickering outside. Perhaps your price is too high...

	<</if>>
<</if>>

<<if _busy gte 1>>
	<<switch random (1, 10)>>
	<<case 1 2 3 4 5>>
		You hear a sudden commotion outside, then a voice, "What's going on in here?" The janitor reaches in to haul you out of your spot.

		<<if $historytrait gte 2 and $schooldrainintro is 1>>
			<<link [[Escape though the drain system! (0:02)|School Drain]]>><<pass 2>><</link>>

		<</if>>
		<<link [[Caught!|School Gloryhole Janitor Catch]]>><<gstress>><<stress 1>><</link>>
	<<default>>
		<<if _rnd lte _prob>>
			<<generatec1>><<person1>>
			You hear footsteps approach, then giggling. A
			<<if $NPCList[0].penis isnot "none">>
			$NPCList[0].penisdesc pokes through the hole.
			<<else>>
			pussy appears at the hole.
			<</if>>

			<<link [[Engage|School Gloryhole Sex]]>><<pass 5>><<set $sexstart to 1>><<tiredness 3>><</link>><<gtiredness>>

			<<link [[Sneak out (0:05)|Hallways]]>><<pass 5>><<endevent>><</link>>

		<<else>>
			You hear footsteps outside, and chatter, but no one approaches the hole.

			<<link [[Wait (0:10)|School Gloryhole]]>><<pass 10>><</link>>

			<<link [[Sneak out (0:05)|Hallways]]>><<pass 5>><<endevent>><</link>>

		<</if>>
	<</switch>>
<<else>>
	It is dead silent as you sit behind the hole.

	<<link [[Wait (0:10)|School Gloryhole]]>><<pass 10>><</link>>

	<<link [[Sneak out (0:05)|Hallways]]>><<pass 5>><<endevent>><</link>>

<</if>>

:: School Gloryhole Sex [nobr]

<<if $sexstart is 1>>
	<<set $sexstart to 0>>
	<<consensual>>
	<<set $consensual to 1>>
	<<neutral 1>>
	<<set $event to "molestationhome">>
	<<man1init>>
	<<npcgloryhole>>
<</if>>
<<effects>>
<<effectsman>><<man>>
<<stateman>>

<<actionsman>>
<<if $finish is 1>>
	<<link [[Next|School Gloryhole Sex Finish]]>><</link>><<nexttext>>
<<elseif $enemyhealth lte 0>>
	<<link [[Next|School Gloryhole Sex Finish]]>><</link>><<nexttext>>
<<elseif $enemyarousal gte $enemyarousalmax>>
	<<link [[Next|School Gloryhole Sex Finish]]>><</link>><<nexttext>>
<<else>>
	<<link [[Next|School Gloryhole Sex]]>><</link>><<nexttext>>
<</if>>

:: School Gloryhole Sex Finish [nobr]

<<set $outside to 0>><<schooleffects>><<effects>>
<<if $enemyarousal gte $enemyarousalmax>>
	<<ejaculation>><<set $gloryholestat += 1>><<set $prostitutionstat += 1>>
	<<tearful>> you count the money <<he>> pushes through the hole. You've gained £<<print ($school_gloryhole_price / 100)>>.<<set $money += $school_gloryhole_price>>

	<<clotheson>>
	<<endcombat>>

<<elseif $enemyhealth lte 0>>
	You hear a shout of pain from behind the wall, and the
	<<if $NPCList[0].penis isnot "none">>
	$NPCList[0].penisdesc disappears.
	<<else>>
	pussy disappears.
	<</if>>

	<<tearful>> you adjust your position behind the hole.

	<<clotheson>>
	<<endcombat>>

<<else>>
	You hear the <<person>> whining on the other side of the wall.

	<<tearful>> you adjust your position behind the hole.

	<<clotheson>>
	<<endcombat>>

<</if>>

<<link [[Wait for another customer|School Gloryhole]]>><</link>>

<<link [[Sneak out (0:05)|Hallways]]>><<pass 5>><</link>>

:: School Gloryhole Janitor Catch [nobr]
<<set $outside to 0>><<set $location to "school">><<schooleffects>><<effects>>
<<loadNPC 0 janitor>><<person1>>

The janitor, a <<personcomma>> glares at you. "Look at the mess you're making in my bathrooms <<girlexclamation>> Do you know how long this will take to clean up all this spunk?"

<<if $delinquency gte 600>>
	<<He>> grabs you by the ear and trots you into a nearby janitors closest. "I've heard about what a hassle you are in class from the teachers; since you seem to enjoy selling your body and making a mess of the school, you can share a piece with me."

	<<He>> lunges at you...

	<<link [[Next|Janitor Closet Rape]]>><<set $molestationstart to 1>><</link>>
<<elseif $famesex gte 1500>>
	<<He>> grabs you by the hair and marches you into a nearby janitors closest. "I've seen pictures of you from my friends; since you seem to like slutting it up and making a mess of the school, you pay me back with your ass."

	<<He>> lunges at you...

	<<link [[Next|Janitor Closet Rape]]>><<set $molestationstart to 1>><</link>>
<<else>>
	<<switch random(1, 10)>>
	<<case 1>>
		<<He>> grabs you by the arm and pulls you into a nearby janitors closest. "Since you like selling your body and messing up the school, you can share a piece with me."

		<<He>> lunges at you...

		<<link [[Next|Janitor Closet Rape]]>><<set $molestationstart to 1>><</link>>
	<<default>>
		<<He>> shakes <<his>> head. "You're getting detention for this. Now get out of here."<<gdelinquency>>

		<<detention 1>>
		<<tearful>> you run out of the bathroom.

		<<link [[Next|Hallways]]>><</link>>
	<</switch>>
<</if>>

:: Janitor Closet Rape [nobr]

<<if $molestationstart is 1>>
	<<set $molestationstart to 0>>
	<<controlloss>>
	<<violence 1>>
	<<neutral 1>>
	<<molested>>
	<<set $event to "molestationhome">>
	<<man1init>>
<</if>>
<<effects>>
<<effectsman>><<man>>
<<stateman>>

<<actionsman>>
<<if $enemyhealth lte 0>>
	<<link [[Next|Janitor Closet Rape Finish]]>><</link>><<nexttext>>
<<elseif $enemyarousal gte $enemyarousalmax>>
	<<link [[Next|Janitor Closet Rape Finish]]>><</link>><<nexttext>>
<<else>>
	<<link [[Next|Janitor Closet Rape]]>><</link>><<nexttext>>
<</if>>

:: Janitor Closet Rape Finish [nobr]

<<schooleffects>><<effects>>
<<if $enemyarousal gte $enemyarousalmax>>
	<<ejaculation>>
	"Don't go whining to no one," the <<person1>><<person>> says.
	<<if $delinquency gte 600>>"Not that they'll believe a juvenile deliquent like you."
	<<elseif $famesex gte 1500>>"Not that they'll believe a whore like you."
	<<else>>"Not that they'll believe you anyway."
	<</if>>
	<<He>> laughs as <<he>> shoves you out of the closet. <<tearful>> you stumble out into the hall.

	<<clotheson>>
	<<endcombat>>
	<<link [[Next|Hallways]]>><</link>>
<<else>>
	<<person1>><<He>> recoils in pain, falling back into pile of mop buckets and brooms. <<tearful>> you use this as your chance to escape, slamming the door behind you.

	<<clotheson>>
	<<endcombat>>
	<<link [[Next|Hallways]]>><</link>>
<</if>>


code:
:: School Toilets [nobr]

<<set $outside to 0>><<set $location to "school">><<schooleffects>><<effects>>
You are in the antechamber outside the school toilets.

<<if $stress gte 10000>>
	<<link [[Everything fades to black...|School Passout]]>><</link>>
<<else>>
	<<link [[Boy's Toilets|School Boy's Toilets]]>><</link>>

	<<link [[Girl's Toilets|School Girl's Toilets]]>><</link>>

	<<if $historytrait gte 2 and $schooldrainintro isnot 1>>
		<<link [[Secret tunnel to drain system (0:02)|School Drain]]>><<pass 2>><</link>>

	<<elseif $historytrait gte 2>>
		<<link [[Secret tunnel to drain system (0:02)|Commercial Drain]]>><<pass 2>><</link>>

	<</if>>
	<<if $brothel_basement_intro is 1 and $promiscuity gte 55>>
		<<link [[Set up gloryhole in antechamber|School Gloryhole Start]]>><</link>><<promiscuous4>>

	<</if>>
	<<link [[Leave the toilets (0:01)|Hallways]]>><<pass 1>><</link>>

<</if>>

:: School Toilets Hiss [nobr]

<<set $outside to 0>><<set $location to "school">><<schooleffects>><<effects>>
You hiss at the cat. It backs away from you, it's ears turned back. You stare at it and unleash your deepest meow. It growls back, but its face relaxes. It leaps onto the windowsill and disappears behind it.

<<if $bus is "boys">>
	<<link [[Next|School Boy's Toilets]]>><<set $eventskip to 1>><</link>>

<<else>>
	<<link [[Next|School Girl's Toilets]]>><<set $eventskip to 1>><</link>>

<</if>>

:: School Toilets Cat [nobr]

<<if $molestationstart is 1>>
	<<set $molestationstart to 0>>
	<<controlloss>>
	<<violence 1>>
	<<neutral 1>>
	<<molested>>
	<<set $event to "dogpack">>
	<<beast1init>><<beasttype cat>><<set $enemytrust -= 40>>
	<<set $beaststance to "top">><<set $head to "grappled">>
<</if>>
<<effects>>
<<effectsman>>

<<beast>>

<<stateman>>

<<actionsman>>
<<if $enemyarousal gte $enemyarousalmax>>
	<<link [[Next|School Toilets Cat Finish]]>><</link>><<nexttext>>
<<elseif $enemyhealth lte 0>>
	<<link [[Next|School Toilets Cat Finish]]>><</link>><<nexttext>>
<<else>>
	<<link [[Next|School Toilets Cat]]>><</link>><<nexttext>>
<</if>>

:: School Toilets Cat Finish [nobr]

<<set $outside to 0>><<set $location to "town">><<effects>>
<<if $enemyarousal gte $enemyarousalmax>>
	<<beastejaculation>>
	The beast grunts in satisfaction, and leaps out the window, leaving you lying on the floor.

	<<tearful>> you rise to your feet.

	<<clotheson>>
	<<endcombat>>
	<<if $bus is "boys">>
		<<link [[Next|School Boy's Toilets]]>><<set $eventskip to 1>><</link>>

	<<else>>
		<<link [[Next|School Girl's Toilets]]>><<set $eventskip to 1>><</link>>

	<</if>>
<<elseif $enemyhealth lte 0>>
	The beast yelps and flees through the window.

	<<tearful>> you rise to your feet.

	<<clotheson>>
	<<endcombat>>
	<<if $bus is "boys">>
		<<link [[Next|School Boy's Toilets]]>><<set $eventskip to 1>><</link>>

	<<else>>
		<<link [[Next|School Girl's Toilets]]>><<set $eventskip to 1>><</link>>

	<</if>>
<</if>>

:: School Toilets Encounter [nobr]

<<set $outside to 0>><<set $location to "school">><<schooleffects>><<effects>>
<<if $phase is 1>>
	You tell them you went into the wrong room by mistake, and apologise. You leave the room before you get in trouble.

	<<endevent>>
	<<link [[Next|School Toilets]]>><<set $eventskip to 1>><</link>>

<<elseif $phase is 2>>
	"Oh, I'm in the wrong room?" You walk up to the <<person1>><<personcomma>> as close as you can without touching <<himstop>> "It's a good thing you're here. I should leave before someone takes advantage of my silliness."

	"N-no, it's fine," the <<person>> says, averting <<his>> eyes and blushing. "We'll get out of your way." They leave the room, though the <<person2>><<person>> has to be pulled along by <<his>> wrist.<<promiscuity1>>

	<<endevent>>
	<<link [[Next|School Toilets]]>><<set $eventskip to 1>><</link>>

<</if>>

:: School Toilets Sex [nobr]

<<if $sexstart is 1>>
	<<set $sexstart to 0>>
	<<consensual>>
	<<set $consensual to 1>>
	<<neutral 1>>
	<<set $event to "molestationhome">>
	<<man1init>>
	<<set $enemytrust += 100>>
	You walk right up to the <<person>> and place your hand on <<his>> groin. "Silly me. I think I need to be punished, don't you?"<<promiscuity2>>

<</if>>
<<if $molestationstart is 1>>
	<<set $molestationstart to 0>>
	<<set $consensual to 0>>
	<<controlloss>>
	<<neutral 1>>
	<<set $event to "molestationhome">>
	<<man1init>>
	<<molested>>
	The stall door swings open, and the <<person1>><<person>> drags you out to where <<his>> friends await.

<</if>>
<<effects>>
<<effectsman>><<man>>
<<stateman>>

<<actionsman>>
<<if $finish is 1>>
	<<link [[Next|School Toilets Sex Finish]]>><</link>><<nexttext>>
<<elseif $enemyarousal gte $enemyarousalmax>>
	<<link [[Next|School Toilets Sex Finish]]>><</link>><<nexttext>>
<<elseif $enemyhealth lte 0>>
	<<link [[Next|School Toilets Sex Finish]]>><</link>><<nexttext>>
<<else>>
	<<link [[Next|School Toilets Sex]]>><</link>><<nexttext>>
<</if>>

:: School Toilets Sex Finish [nobr]

<<effects>>
<<if $finish is 1>>
	The <<person3>><<person>> doesn't look happy as the other two pull <<him>> away from you. <<tearful>> you wave them goodbye.

	<<clotheson>>
	<<endcombat>>
	<<if $bus is "boys">>
		<<link [[Next|School Boy's Toilets]]>><<set $eventskip to 1>><</link>>

	<<else>>
		<<link [[Next|School Girl's Toilets]]>><<set $eventskip to 1>><</link>>

	<</if>>
<<elseif $enemyarousal gte $enemyarousalmax>>
	<<ejaculation>>
	<<if $consensual is 1>>
		The three avoid eye contact with each other as they fix their clothing. <<tearful>> you wave them goodbye.

	<<else>>
		The <<person1>><<person>> shoves you against the ground, and the three of them leave you lying there. The sound of their laughter soon disappears. <<tearful>> you struggle to your feet.

	<</if>>
	<<clotheson>>
	<<endcombat>>
	<<if $bus is "boys">>
		<<link [[Next|School Boy's Toilets]]>><<set $eventskip to 1>><</link>>

	<<else>>
		<<link [[Next|School Girl's Toilets]]>><<set $eventskip to 1>><</link>>

	<</if>>
<<elseif $enemyhealth lte 0>>
	The three recoil in pain, giving you a chance to escape. <<tearful>> you flee from the room.

	<<clotheson>>
	<<endcombat>>
	<<link [[Next|School Toilets]]>><<set $eventskip to 1>><</link>>
<</if>>

:: School Toilets Clothes [nobr]

<<set $outside to 0>><<set $location to "school">><<schooleffects>><<effects>>
<<if $phase is 1>>
	<<if $bus is "boys">>
		<<storeon "schoolboys" "delete">>
	<<else>>
		<<storeon "schoolgirls" "delete">>
	<</if>>
	You hear them leave the room, taking your clothes with them.

	<<endevent>>
	<<if $bus is "boys">>
		<<link [[Next|School Boy's Toilets]]>><<set $eventskip to 1>><</link>>

	<<else>>
		<<link [[Next|School Girl's Toilets]]>><<set $eventskip to 1>><</link>>

	<</if>>
<<elseif $phase is 2>>
	You call out. "Wait! Those are mine." The footsteps cease.

	<<if $player.appearance is "f" and $bus is "boys">>
		The <<person1>><<person>> speaks. "Girls aren't allowed in here. Open the door."

		<<link [[Open it|School Toilets Sex]]>><<set $molestationstart to 1>><</link>>

		<<if $submissive lte 850>>
			<<link [[Demand|School Toilets Clothes]]>><<set $phase to 4>><</link>>

		<<else>>
			<<link [[Plead|School Toilets Clothes]]>><<set $phase to 5>><</link>>

		<</if>>
	<<elseif $player.appearance is "m" and $bus is "girls">>
		The <<person1>><<person>> speaks. "Boys aren't allowed in here. Open the door."

		<<link [[Open it|School Toilets Sex]]>><<set $molestationstart to 1>><</link>>

		<<if $submissive lte 850>>
			<<link [[Demand|School Toilets Clothes]]>><<set $phase to 4>><</link>>

		<<else>>
			<<link [[Plead|School Toilets Clothes]]>><<set $phase to 5>><</link>>

		<</if>>
	<<else>>
		The <<person1>><<person>> speaks. "Oh? What will you do for us if we give them back?"

		<<if $promiscuity gte 15>>
			<<link [[Offer your body|School Toilets Sex]]>><<set $molestationstart to 1>><</link>>

		<</if>>
		<<if $money gte 1500>>
			<<link [[Offer Money (£15)|School Toilets Clothes]]>><<set $money -= 1500>><<set $phase to 3>><</link>>

		<</if>>
		<<if $submissive lte 850>>
			<<link [[Demand|School Toilets Clothes]]>><<set $phase to 4>><</link>>

		<<else>>
			<<link [[Plead|School Toilets Clothes]]>><<set $phase to 5>><</link>>

		<</if>>
	<</if>>
<<elseif $phase is 3>>
	You slip some money under the door, and after a brief pause the <<person>> speaks again. "Nice. Okay, we'll leave them where we found them. Come on." You hear them leave the room.

	Once they're gone, you open the stall and peek out. Sure enough, your clothes are where you left them.

	<<endevent>>
	<<if $bus is "boys">>
		<<link [[Next|School Boy's Toilets]]>><<set $eventskip to 1>><</link>>

	<<else>>
		<<link [[Next|School Girl's Toilets]]>><<set $eventskip to 1>><</link>>

	<</if>>
<<elseif $phase is 4>>
	"Listen." You say. "Take my things and I'll find you and shove a rail spike up your worthless arseholes."

	Something in your tone affects them. "Calm down, you fucking psycho. We're just messing with you." Once they're gone you peek out the stall, and see your clothes safely where you left them.

	<<endevent>>
	<<if $bus is "boys">>
		<<link [[Next|School Boy's Toilets]]>><<set $eventskip to 1>><</link>>

	<<else>>
		<<link [[Next|School Girl's Toilets]]>><<set $eventskip to 1>><</link>>

	<</if>>
<<elseif $phase is 5>>
	You try to plead with them, but it's no use. "If you won't play ball," the <<person1>><<person>> says. "Why should we?" They laugh as they leave the room. You peek out the stall, and see an empty space where your clothes once were.

	<<endevent>>
	<<if $bus is "boys">>
		<<link [[Next|School Boy's Toilets]]>><<set $eventskip to 1>><</link>>

	<<else>>
		<<link [[Next|School Girl's Toilets]]>><<set $eventskip to 1>><</link>>

	<</if>>
<</if>>

:: School Boy's Toilets [nobr]

<<set $outside to 0>><<set $location to "school">><<schooleffects>><<effects>><<set $bus to "boys">>
You are in the boy's toilets.

<<if $stress gte 10000>>
	<<link [[Everything fades to black...|School Passout]]>><</link>>
<<else>>
	<<set $danger to random(1, 10000)>><<set $dangerevent to 0>>
	<<if $danger gte (9900 - $allure) and $eventskip isnot 1>>
		<<eventsschooltoilets>>
	<<else>>
		<<storeactions "schoolboys">>
		<<link [[Masturbate|School Boy's Toilets Masturbation]]>><<set $masturbationstart to 1>><</link>>

		<<storeon "schoolboys" "check">>
		<<if _store_check isnot 1>>
			<<link [[Leave|Hallways]]>><</link>>
		<<elseif $exposed gte 2 and $exhibitionism gte 55>>
			<<link [[Sneak Out|Hallways Sneak]]>><<set $phase to 2>><</link>><<exhibitionist4>>
		<<elseif $exposed is 1 and $exhibitionism gte 35>>
			<<link [[Sneak Out|Hallways Sneak]]>><<set $phase to 1>><</link>><<exhibitionist3>>
		<<elseif $exposed lte 0>>
			<<link [[Leave|Hallways]]>><</link>>
		<</if>>
	<</if>>
<</if>>
<<set $eventskip to 0>>
<<storecleanup>>

:: School Girl's Toilets [nobr]

<<set $outside to 0>><<set $location to "school">><<schooleffects>><<effects>><<set $bus to "girls">>
You are in the girl's toilets.

<<if $stress gte 10000>>
	<<link [[Everything fades to black...|School Passout]]>><</link>>
<<else>>
	<<set $danger to random(1, 10000)>><<set $dangerevent to 0>>
	<<if $danger gte (9900 - $allure) and $eventskip isnot 1>>
		<<eventsschooltoilets>>
	<<else>>
		<<storeactions "schoolgirls">>
		<<link [[Masturbate|School Girl's Toilets Masturbation]]>><<set $masturbationstart to 1>><</link>>

		<<storeon "schoolgirls" "check">>
		<<if _store_check isnot 1>>
			<<link [[Leave|Hallways]]>><</link>>
		<<elseif $exposed gte 2 and $exhibitionism gte 55>>
			<<link [[Sneak Out|Hallways Sneak]]>><<set $phase to 2>><</link>><<exhibitionist4>>
		<<elseif $exposed is 1 and $exhibitionism gte 35>>
			<<link [[Sneak Out|Hallways Sneak]]>><<set $phase to 1>><</link>><<exhibitionist3>>
		<<elseif $exposed lte 0>>
			<<link [[Leave|Hallways]]>><</link>>
		<</if>>
	<</if>>
<</if>>
<<set $eventskip to 0>>
<<storecleanup>>