code:
:: Science Project
<<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>><<scienceskill 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>><<scienceskill 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>><<scienceskill 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>><<scienceskill 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>><<scienceskill 6>><</link>><<ggscience>>

<</if>>
<<if $scienceshroomwolf gt $scienceshroomwolfready>>
	<<link [[Add wolf shroom (1:00)|Science Project Shroom]]>><<set $phase to 1>><<pass 1 hour>><<scienceskill 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>><<scienceskill 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
<<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 600>>

<<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 3000>>

<<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.
	<<drugs 180>>

<</if>>

<<if $scienceproject is "ongoing">>
	<<link [[Next|Science Project]]>><<set $phase to 0>><</link>>

<<else>>
	You glance at the time. You suddenly realise that the maths competition has already ended.

	It would be silly to continue your work at this point. You dump the now obsolete project in a bin, feeling somewhat bitter over the wasted effort.

	<<if $location is "home">>
		<<link [[Next|Bedroom]]>><</link>>
	<<else>>
		<<link [[Next|School Library]]>><</link>>
	<</if>>

<</if>>

:: Science Project Shroom
<<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 3000>>

<</if>>

<<if $scienceproject is "ongoing">>
	<<link [[Next|Science Project]]>><<set $phase to 0>><</link>>

<<else>>
	You glance at the time. You suddenly realise that the maths competition has already ended.

	It would be silly to continue your work at this point. You dump the now obsolete project in a bin, feeling somewhat bitter over the wasted effort.

	<<if $location is "home">>
		<<link [[Next|Bedroom]]>><</link>>
	<<else>>
		<<link [[Next|School Library]]>><</link>>
	<</if>>

<</if>>

:: Science Project Phallus
<<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.

<<if $scienceproject is "ongoing">>
	<<link [[Next|Science Project]]>><<set $phase to 0>><</link>>

<<else>>
	You glance at the time. You suddenly realise that the maths competition has already ended.

	It would be silly to continue your work at this point. You dump the now obsolete project in a bin, feeling somewhat bitter over the wasted effort.

	<<if $location is "home">>
		<<link [[Next|Bedroom]]>><</link>>
	<<else>>
		<<link [[Next|School Library]]>><</link>>
	<</if>>

<</if>>

:: Science Fair
<<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
<<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>><<him>>. "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
<<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>><<him>>. "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 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 Phallus
<<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>><<him>>. "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 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 Sabotage
<<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
<<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
<<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
<<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
<<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
<<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 <<moneyGain 500>> inside.
	The audience cheer and applaud. The <<person2>><<person>> looks upset, but claps along.
	<<npcincr Sirris love 5>><<llltrauma>><<trauma -120>><<famebusiness 100 pic>>

	<<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>><<earnFeat "Science Fair Winner">>
	<<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 <<moneyGain 500>> inside.
	The audience cheer and applaud. The <<person2>><<person>> looks upset, but claps along.
	<<npcincr Sirris love 5>><<llltrauma>><<trauma -120>><<famebusiness 100 pic>>

	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>><<earnFeat "Science Fair Winner">>
	<<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>><<physiquedifficulty 4000 14000>>

	<<else>>
		The <<person2>><<person>> looks upset, but claps along.
		<<npcincr Sirris love 5>><<llltrauma>><<trauma -120>><<famebusiness 100 pic>><<famesex 100 pic>><<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>><<earnFeat "Science Fair Winner">>
		<<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 practise."
	<<ldelinquency>><<detention -18>>

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

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

<</if>>

:: Science Fair Take

<<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 pic>><<famesex 100 pic>>

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>><<earnFeat "Science Fair Winner">>
<<scienceprojectfinish>>

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

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

<<if $physiqueSuccess>>

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 pic>><<famesex 100 pic>>

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>><<earnFeat "Science Fair Winner">>
<<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 pic>><<famesex 100 pic>>

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>><<earnFeat "Science Fair Winner">>
<<scienceprojectfinish>>

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

<</if>>

:: Science Fair Watch
<<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 <<him>>. "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>><<scienceskill 6>>

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

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


code:
:: Olive Book 1
<<if $per_npc.pinch>>
	<<loadNPC 0 pinch>>
	<<person1>>
<<else>>
	<<generate1>><<person1>>
	<<if $NPCList[0].gender is "m">>
		<<set $NPCList[0].penisdesc to "tiny penis">>
		<<set $NPCList[0].penissize to 1>>
	<</if>>
	<<set $NPCList[0].fullDescription to ($NPCList[0].pronoun is "m" ? "Mr." : "Ms.") + " Pinch">>
	<<saveNPC 0 pinch>>
<</if>>

<<if $oliveExitPassage is "School Library">>
	You take the olive book from the basket. The title, written in stylised white letters, reads "How <<if $pronoun is "m">>Mr<<else>>Ms<</if>>. Pinch Groped Christmas".
<<else>>
	You settle in bed with the olive book. The title, written in stylised white letters, reads "How <<if $pronoun is "m">>Mr<<else>>Ms<</if>>. Pinch Groped Christmas".
<</if>>

<<if $englishtrait gte 3>>
	You know the book very well. It's a classic Christmas tale, with more than half a century's worth of history. It teaches the general populace of the values of the festivity. You can't help but notice that this version seems different compared to other versions you've heard of.

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

<<elseif $englishtrait gte 2>>
	You know the book well. And who wouldn't? It's a classic Christmas story. You can't help but notice that this version seems different compared to other versions you've heard of.

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

<<elseif $englishtrait gte 1>>
	You know the book. It's a classic Christmas story.

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

<<elseif $englishtrait gte 0>>
	The title sounds familiar to you, but you can't quite place it.

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

<<else>>
	You open the book on a random page. It looks like the same dumb Christmas story you hear every year. Uninterested, you set it back down.

<</if>>
<<link [[Put the book away|$oliveExitPassage]]>><<unset $oliveExitPassage>><<pinchEnd>><</link>>

/*indev scarlet book event. English: 300-399*/
:: Olive Book 2

You're reading "How <<if $pronoun is "m">>Mr<<else>>Ms<</if>>. Pinch Groped Christmas".

The book tells the story of "<<if $pronoun is "m">>Mr<<else>>Ms<</if>>. Pinch", a vile and bitter young <<personsimple>>. Peevish as <<he>> is pervish, <<he>> lives in seclusion in a cold and lonely fortress, isolated from the rest of the world.

Just south of the castle is a bustling town, with many upbeat residents showing cheer and excitement for the Christmas festivities.

Fed up with it all, <<if $pronoun is "m">>Mr<<else>>Ms<</if>>. Pinch's plan is to "defile" their Christmas spirit. <<His>> wicked ways know no bounds, and no limits.

<<if $englishtrait gte 1>>
	Despite the notable differences, this still remains a Christmas classic. Regardless of what version or copy you read, reading this old tale makes you feel warm inside.

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

<<else>>
	Nothing interesting. Just the same dumb Christmas story you hear every year.

<</if>>
<<link [[Put the book away|$oliveExitPassage]]>><<unset $oliveExitPassage>><<pinchEnd>><</link>>

:: Olive Book 3

You're reading "How <<if $pronoun is "m">>Mr<<else>>Ms<</if>>. Pinch Groped Christmas".

Fed up with it all, <<if $pronoun is "m">>Mr<<else>>Ms<</if>>. Pinch's plan is to "defile" their Christmas spirit. <<His>> wicked ways know no bounds, and no limits.

<<He>> dons a Santa Claus outfit and heads down the tower, carrying a large linen sack. Upon reaching the town, <<he>> infiltrates the first home via the chimney and proceeds to rob the poor family blind of all their presents.

A <<if $player.gender_appearance is "f">>lovely lass<<else>>handsome lad<</if>> by the name of Lew awakens to the thievery, but <<if $pronoun is "m">>Mr<<else>>Ms<</if>>. Pinch deceives <<phim>>. But <<if $pronoun is "m">>Mr<<else>>Ms<</if>>. Pinch does not leave it there...

<<if $englishtrait gte 2>>
	<<if $christmas_book_read gte 1>>
		You shiver with anticipation, knowing what's to come.
	<<else>>
		You don't remember this part of the book. Part of you wants to stop, but a perverse curiosity eggs you on.
	<</if>>

	<<link [[Continue reading (0:20)|Olive Book 4]]>><<pass 20>><<stress -6>><<englishskill>><<arousal 1200>><</link>><<genglish>><<lstress>><<ggarousal>>

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

<</if>>
<<link [[Put the book away|$oliveExitPassage]]>><<unset $oliveExitPassage>><<pinchEnd>><</link>>

:: Olive Book 4

You're reading "How <<if $pronoun is "m">>Mr<<else>>Ms<</if>>. Pinch Groped Christmas".

Away <<he>> goes to other homes, and repeats <<his>> deeds there. Once satisfied, <<his>> sordid needs take precedence. <<He>> returns to the first home <<he>> ransacked, Lew fast asleep in <<pher>> bedroom, and the rest is left unspoken.

A wicked, nasty deed, followed up by one even nastier. <<if $pronoun is "m">>Mr<<else>>Ms<</if>>. Pinch's heart is a dumpheap, overflowing with all sorts of rubbish imaginable.

<<He>> returns to the tower after a hefty climb, satisfied with <<himself>>. As the sun rises, <<he>> expects tears, and jeers, but is shocked when <<he>> instead receives... singing. And not just any singing, but one of which <<he>> will never forget.

Realising <<his>> grave mistake, <<he>> rushes to town in a much more cheerful tune to return the stolen gifts. They have something else in mind for dear <<if $pronoun is "m">>Mr<<else>>Ms<</if>>. Pinch, however.

It is there <<he>> learns the most valuable lesson of Christmas. And it is there where it is said that a certain part of <<him>> grew over three sizes that day.

With each telling of the story, it takes different meanings. A once innocent tale has taken a turn for the worse, now more than ever in this darker version. This book seems to have taught you to believe what the true message is behind the old, happy tale - purity and innocence, defiled by debauchery and depravity. You feel a mix of jealousy, lust and anger. And some part of you likes the feelings.

<<link [[Read the whole book (0:20)|Olive Book Full]]>><<pass 20>><<stress -6>><<englishskill>><</link>><<if !$christmas_book_read>> | ? ? ?<<else>><<genglish>><<lstress>><<garousal>><</if>>

<<if $bus is "schoollibrary">>
	<<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>>
<<if $christmas_book_read gte 2 and $arousal gte ($arousalmax / 5) * 2>>
	<<link [[Imagine yourself as Lew|Olive Book Lew]]>><<pass 30>><<arousal 600>><<set $phase to 2>><</link>><<garousal>>

<</if>>
<<if $christmas_book_read gte 3 and $arousal gte ($arousalmax / 5) * 2>>
	<<link [[Imagine yourself as Pinch|Olive Book Pinch]]>><<pass 30>><<arousal 600>><<set $phase to 2>><</link>><<garousal>>

<</if>>
<<link [[Put the book away|$oliveExitPassage]]>><<unset $oliveExitPassage>><<pinchEnd>><</link>>

:: Olive Book Full
<<set $outside to 0>><<set $location to "tower">><<effects>>
<<pinchStart>>

Among folks down at the forestside town,

One common feeling was shared all around.

They all liked Christmas.

They liked it a lot!

Except <<if $pronoun is "m">>Mr<<else>>Ms<</if>>. Pinch.

<<if $pronoun is "m">>Mr<<else>>Ms<</if>>. Pinch... did not.

<<if $pronoun is "m">>Mr<<else>>Ms<</if>>. Pinch hated Christmas! <<He>> bashed the whole season!

Now, please don't ask why. No one quite knows the reason.

<<if $NPCList[0].penis isnot "none">>
	It could be, perhaps, that <<his>> shoes were too tight.

	It could be <<his>> head wasn't screwed on just right.

	But I think that the most likely reason of all,

	May have been <<his>> cock was two sizes too small.
<<else>>
	It could be the townsfolk had given <<him>> fright.

	It could be <<his>> get-up had itched just a smite.

	But I think the answer that sounds the most right

	Would be that <<his>> quim was two sizes too tight.
<</if>>

But whatever the reason, <<his>> <<if $NPCList[0].penis isnot "none">>schlong or <<his>> shoes<<else>>cunt or <<his>> clothes<</if>>,

<<He>> looked down with a frown at the bright little town

<<if $NPCList[0].penis isnot "none">>
	And soaked in <<his>> hatred, and simmered and stewed
<<else>>
	And the bright little people <<he>> thoroughly loathed
<</if>>

From <<his>> great gloomy spire, <<he>> grumbled and groused.

<<link [[Keep reading|Olive Book Full 2]]>><</link>>

:: Olive Book Full 2
<<set $outside to 0>><<set $location to "tower">><<effects>>

"They'll have their gifts, their songs, their feasts,

their stupid, sappy cheer.

I just can't stand it in the least,

And it gets worse every year!"

"I'd stifle their spirit," <<he>> grumbled aloud,

"I'd stomp on their cheer if I only knew how!"

Then <<he>> stopped...

And <<he>> paused...

And <<he>> grinned ear-to-ear.

In <<his>> dirty mind popped a nasty idea!

Using needles and fleece (and some knickers <<he>>'d nicked)

<<He>> cobbled together a quick Santa hat.

With a red suit to boot, <<he>> looked just like Saint Nick!

<<He>> topped off the look with a big empty sack.

"I'll steal all their presents! They won't know what hit 'em!"

<<He>> said as <<he>> hopped in <<his>> ramshackle sleigh,

"They'll rubbish their Christmas as soon as I lift 'em!"

Then <<he>> plunged to the town without a delay.

<<link [[Keep reading|Olive Book Full 3]]>><</link>>

:: Olive Book Full 3
<<set $outside to 0>><<set $location to "riding_school">><<effects>>

<<set $time to 1320>>

The windows were dark, no one knew <<he>> was coming,

They were all fast asleep - and ripe for the plucking!

<<He>> climbed up the roof, empty bag in <<his>> hand,

When <<he>> came to house on the edge of the land.

"Stop number one," <<he>> said with a hiss

As <<he>> slid down the chimney, 'twasn't a cinch.

If Mr. Claus could, so could <<if $pronoun is "m">>Mr<<else>>Ms<</if>>. Pinch!

<<link [[Keep reading|Olive Book Full 4]]>><</link>>

:: Olive Book Full 4
<<set $outside to 0>><<set $location to "alex_cottage">><<effects>>

<<His>> filthy face popped out the fireplace

Where the stockings were hung in a row.

<<He>> sneered as he pinched them, one at a time,

"These ought to be the first to go!"

In a deed that would leave the devil aghast,

<<He>> pinched every present, down to the last.

Card games and consoles and new mobile phones,

Board games and toys, even clothes that were sewn!

Each of them greedily stuffed in the bag

Slung over <<his>> shoulder, proud of <<his>> snag!

<<link [[Keep reading|Olive Book Full 5]]>><</link>>

:: Olive Book Full 5
<<set $outside to 0>><<set $location to "alex_cottage">><<effects>>

<<set $time to 1330>>

As <<he>> pinched the last gift, <<he>> heard a loud gasp.

Caught in the act, <<he>> twirled 'round in a flash.

A <<girl>>, a <<lass>> by the name of Lew,

Hurried downstairs and came into view.

"Why are you taking our presents?" <<pshe>> asked.

"Please, tell me, <<if $pronoun is "m">>Santa<<else>>Mrs.<</if>> Claus!"

So dastardly clever, <<he>> spun <<pher>> a ruse

With just the slightest pause.

"There's faulty craftsmanship on these,

So I'm taking them back to my shop.

A simple repair, with my expertise,

And I'll bring them back, quick as a swap!"

<<link [[Keep reading|Olive Book Full 6]]>><</link>>

:: Olive Book Full 6
<<set $outside to 0>><<set $location to "alex_cottage">><<effects>>

<<His>> fib fooled the <<lass>>, reluctant as <<pshe>> was,

<<pShe>> returned to bed shortly afterward.

<<pHer>> naive belief in the so-called "right cause"

Left the jolly impostor utterly floored.

<<He>> crumpled to the chimney, sack in <<his>> hand,

Stuffing it all the way up.

<<He>> sidled <<his>> way up the length of the shaft

Giddier than a young pup.

Then <<he>> did the same to the other houses,

Thoroughly thieving, not leaving a trace.

Not even a slight crumb left for the mouses,

All the town's merriment, turned to disgrace!

<<link [[Keep reading|Olive Book Full 7]]>><</link>>

:: Olive Book Full 7
<<set $outside to 0>><<set $location to "alex_cottage">><<effects>>

<<set $time to 1420>>

A quarter to midnight, the town soundly dreaming,

In old Pinch's head was a sinister scheming.

<<His>> sack big and bulging, <<his>> work nearly done,

<<if $pronoun is "m">>Mr<<else>>Ms<</if>>. Pinch stopped and smirked. "Why not have some fun?"

One last heinous act before <<he>> was through,

<<He>> oozed <<his>> way back to the home of poor Lew.

<<He>> snuck up the stairs where the <<girl>> soundly slept,

Closer and closer <<his>> pernicious paws crept.

You turn the page, but a thought intrudes.

What if instead of ill-fated Lew,

What if, perchance, the victim were you?

<<link [[Imagine yourself in helpless Lew's stead|Olive Book Lew]]>><<set $phase to 1>><</link>>

<<link [[Ignore the feeling, just read on ahead|Olive Book Lew]]>><<set $phase to 0>><</link>>

:: Olive Book Lew
<<set $outside to 0>><<set $location to "alex_cottage">><<effects>>

<<if $phase is 2>>
	<<pinchStart>>
	<<set $time to 1420>>
<</if>>

<<set $pinchArousal += 1000>>

<<if $phase gte 1>>
	<<becomePinch "Lew">>
	As Pinch licked <<his>> lips and wiggled <<his>> fingers,

	Over the bedroom, an evil air lingered.

	<<if $player.gender_appearance is "f">>
		For the last gift of Christmas to be taken

		Is the gift of taking an untaken maiden.
	<<else>>
		For there's but one gift to bring a sicko joy

		And that is the gift of an unsullied boy.
	<</if>>

	A precious gift, the purest - virginity

	Clean and pristine, all share an affinity.

	A familiar shape loomed over Lew

	And pinched off the covers, <<his>> vices ensue.

	"So cosy and safe," a creaking voice said.

	"I can't help myself. I must have you in bed!"

	<<link [[Next|Olive Book Lew Molestation]]>><<set $molestationstart to 1>><</link>>

	<<if $christmas_book_read lte 1>>
		<<set $christmas_book_read to 2>>
	<</if>>
<<else>>
	You shake your head to clear out your thoughts

	And look to the book for where you left off.

	And then came a deed so deeply obscene,

	We need not précis, it would leave you unclean.

	<<if $player.gender_appearance is "f">>
		For the last gift of Christmas to be taken

		Is the gift of taking an untaken maiden.
	<<else>>
		For there's but one gift to bring a sicko joy

		And that is the gift of an unsullied boy.
	<</if>>

	A precious gift, the purest - virginity

	Clean and pristine, all share an affinity.

	<<link [[Keep reading|Olive Book Full 8]]>><<set $phase to 0>><</link>>

<</if>>

:: Olive Book Lew Molestation

<<if $molestationstart is 1>>
	<<set $molestationstart to 0>>
	<<controlloss>>
	<<violence 1>>
	<<neutral 1>>
	<<molested>>
	<<maninit>>
	<<set $pinchSpeech to 1>>
	<<set $speechdisable to 1>>
	<<hand_gag 0 left>>
<</if>>
<<effects>>
<<effectsman>><<man>>
<<if random(1, 4) is 1>>
	<<He>> <<print either("cackles","whispers","rasps","sniggers","sneers")>>.
	<<switch $pinchSpeech>>
		<<case 1>>
			"Do not fret. I am no threat."
		<<case 2>>
			"No partner is better than me. Wouldn't you agree?"
		<<case 3>>
			"I'm working up a sweat, but I'll have you wet."
		<<case 4>>
			"Needs you forget? I'm not done yet."
	<</switch>>
	<<if $pinchSpeech lte 3>>
		<<set $pinchSpeech += 1>>
	<<else>>
		<<set $pinchSpeech to 1>>
	<</if>>
<</if>>
<<stateman>>

<<actionsman>>

<<if $enemyarousal gte $enemyarousalmax>>
	<<link [[Next|Olive Book Lew Finish]]>><</link>><<nexttext>>
<<elseif $enemyhealth lte 0>>
	<<link [[Next|Olive Book Lew Finish]]>><</link>><<nexttext>>
<<elseif $alarm is 1 and $rescue is 1>>
	<<link [[Next|Olive Book Lew Finish]]>><</link>><<nexttext>>
<<else>>
	<<link [[Next|Olive Book Lew Molestation]]>><</link>><<nexttext>>
<</if>>

:: Olive Book Lew Finish
<<set $outside to 0>><<set $location to "alex_cottage">><<effects>>

<<if $player.virginity.anal isnot true or $player.virginity.vaginal isnot true>>
	<<set $pinchPenile to true>>
<</if>>
<<if $player.virginity.penile isnot true>>
	<<if $penisstate is "penetrated">>
		<<set $pinchVaginal to true>>
	<<else>>
		<<set $pinchAnal to true>>
	<</if>>
<</if>>
<<if $player.virginity.kiss isnot true>>
	<<set $pinchKiss to true>>
<</if>>
<<unset $pinchSpeech>>

<<if $enemyarousal gte $enemyarousalmax>><<set $pinchArousal += 2000>>
	<<ejaculation>>

	<<He>> smiled and gave Lew a pat on the cheek,

	Then leapt off the bed and left <<phim>> to weep.

	<<He>> croaked to <<himself>> as <<he>> crept his way out,

	"Enjoy my gift - it's what the season's about!"
<<elseif $enemyhealth lte 0>>
	<<if $pronoun is "m">>Mr<<else>>Ms<</if>>. Pinch stumbled backwards and let out a hiss,

	Though all things considered, <<he>> wasn't too pissed.

	In spite of Lew bravely defeating the beast,

	<<if $player.virginity.vaginal isnot true or $player.virginity.penile isnot true>>
		<<pHer>> virginity wasn't spared in the least.
	<<else>>
		<<pHer>> innocence hadn't been spared in the least.
	<</if>>

	"Whatever, you whore," Pinch snickered and sneered

	As <<he>> clumsily rose from the floor.

	"Hope you like Christmas without any cheer!"

	Then <<he>> scurried <<his>> way to the door.
<</if>>

<<silently>><<endcombat>><</silently>>

<<link [[Keep reading|Olive Book Full 8]]>><<set $phase to 1>><</link>>

:: Olive Book Full 8
<<set $outside to 0>><<set $location to "tower">><<effects>>

<<set $time to 40>>
<<if $weekday is 7>>
	<<set $weekday to 1>>
<<else>>
	<<set $weekday += 1>>
<</if>>
<<set $monthday to 25>>
<<set $weather to "snow">>

<<if $phase is 1>>
	<<unbecomePinch>>
	<<loadNPC 0 pinch>><<person1>>
<</if>>

<<His>> wicked itch scratched, <<he>> loaded the sleigh

With a pause to applaud <<his>> vulgar display.

Then <<he>> zipped cross the plains, <<his>> passage back home,

And revelled the naughtiness up in <<his>> dome.

"Serves those chumps right!" <<he>> creepily cackled.

"Come Christmas morning, they'll surely be baffled!"

Ten-thousand feet up, up the side of <<his>> tower,

<<He>> skittered up top, waiting hour by hour.

Soon daybreak broke out on the horizon

To which Pinch broke out in a horrible grin.

<<link [[Keep reading|Olive Book Full 9]]>><</link>>

:: Olive Book Full 9
<<set $outside to 0>><<set $location to "tower">><<effects>>
<<set $time to 300>>

"Those merry morons, I know just what they'll do,

Their mouths will hang open, a minute or two,

And then the townsfolk will all cry 'Boohoo!'"

"Now there's a noise I can't wait to hear!"

<<He>> sneered as <<he>> cupped <<his>> hand to <<his>> ear.

<<He>> soon heard a sound rising over the snow,

It started out low, then it started to grow!

But wait just a minute! This sound wasn't sad.

As a matter of fact, this sound sounded... glad!

All of the townsfolk, from tallest to small,

Were singing - without any presents at all!

<<link [[Keep reading|Olive Book Full 10]]>><</link>>

:: Olive Book Full 10
<<set $outside to 0>><<set $location to "tower">><<effects>>

<<His>> dastardly deeds hadn't slowed down its progress,

Despite <<his>> worst efforts, Christmas came regardless!

Pinching <<his>> fingers, ice-cold in the snow,

<<He>> stood and <<he>> puzzled and gazed down below.

"This can't be! How? It came without presents!

You should be in tears, you annoying peasants!"

As <<he>> puzzled and puzzled the puzzle <<he>> saw,

<<He>> had a great thought that <<he>> hadn't before.

Maybe Christmas, <<he>> thought, doesn't come from a store.

Maybe Christmas, perhaps, means a little bit more!

Now that <<his>> heart didn't feel quite so tight

<<He>> rode to the town in the bright morning light.

A strange new sensation comes over you

As you turn the last page, but stop halfway through.

It seems like a happy ending's in store,

But the heat in your loins yearns for something... more.

<<link [["Imagine yourself in " + $NPCList[0].pronouns.his + " too-tight shoes"|Olive Book Pinch]]>><</link>>

<<link [[The book's nearly done, just read the rest through|Olive Book Full 11]]>><</link>>

:: Olive Book Full 11
<<set $outside to 0>><<set $location to "riding_school">><<effects>>
<<set $time to 360>>

<<He>> was so fed up living the life of a crook

That <<he>> rode back to town to return what <<he>> took!

Their card games and consoles and new mobile phones,

Their board games and toys and those clothes that were sewn!

<<He>> fell to <<his>> knees and confessed to <<his>> fault,

<<He>> nabbed all their things and put Christmas on halt!

What happened then, well the townsfolk they say,

<<if $pronoun is "m">>Mr<<else>>Ms<</if>>. Pinch felt the goodness of people that day.

There the true meaning of Christmas came through,

And this, <<he>>'ll attest, was very much true!

<<link [[Next|Olive Book End]]>><<set $phase to 0>><</link>>

:: Olive Book Pinch
<<set $outside to 0>><<set $location to "riding_school">><<effects>>
<<if $phase is 2>>
	<<pinchStart>>
	<<set $monthday to 25>>
<</if>>

<<set $time to 360>>
<<endevent>>
<<becomePinch "Pinch">>
<<generate1>><<generate2>><<generate3>><<generate4>>

<<pinchHe>> was so fed up living the life of a crook

That <<pinchhe>> rode back to town to return what <<pinchhe>> took!

Their card games and consoles and new mobile phones,

Their board games and toys and those clothes that were sewn!

<<pinchHe>> fell to <<pinchhis>> knees and admitted <<pinchhis>> fault,

<<pinchHe>> nabbed all their things and put Christmas on halt!

But from the townsfolk, <<pinchhe>> did not feel forgiveness.

The feelings <<pinchhe>> felt were a bit more vindictive!

It turned out that he had been caught in the act

Of tainting their Christmas, and Lew, to be exact!

<<link [[Next|Olive Book Pinch 2]]>><</link>>

:: Olive Book Pinch 2
<<set $outside to 0>><<set $location to "riding_school">><<effects>>

"<<pinchHe>> ruined our Christmas,"

Said the folks of the town,

"<<pinchHe>> ought to be punished,

But punish <<pinchhim>> how?"

The rack or the gallows, or maybe the stocks,

Or maybe just pelt <<pinchhim>> with sharp, pointy rocks?

Then they got an idea. An awful idea!

The folks had a dreadful, awful idea!

"I know what to do,"

A townsperson joked.

They reached for <<pinchhis>> throat

But <<pinchhis>> groin was groped!<<arousal 2000>>

<<if $pinchPronoun is "m">>
	His future looked grim,

	His chances were slim.

	"Defile our Christmas?

	NAY! Defile him!"
<<else>>
	She fearfully twitched,

	She felt quite at risk.

	"Ruin our Christmas?

	NAY! Ruin the bitch!"
<</if>>

<<link [[Next|Olive Book Pinch Gangbang]]>><<set $molestationstart to 1>><</link>>

<<if $christmas_book_read lte 2>>
	<<set $christmas_book_read to 3>>
<</if>>

:: Olive Book Pinch Gangbang

<<if $molestationstart is 1>>
	<<set $molestationstart to 0>>
	<<controlloss>>
	<<violence 1>>
	<<neutral 1>>
	<<molested>>
	<<maninit>>
	<<set $speechdisable to 1>>
	<<set $pinchSong to 3>>

	"Let's give <<pinchhim>> a gift,

	Some real holiday cheer!"

	Brayed a lecherous <<person1>><<if $pronoun is "m">>lad<<else>>lass<</if>>

	To the cheers of <<his>> peers.

<</if>>
<<effects>>
<<effectsman>><<man>>
<<if $enemynomax gte 4>>
	<<if $pinchSong gte 3>>
		<<if $pinchSong is 3>>
			They begin to sing.
		<<else>>
			They continue to sing.
		<</if>>
		<<set $pinchSong to 2>>

		"You're a rapist, <<if $pinchPronoun is "m">>Mr.<<else>>Missus<</if>> Pinch."

		"You really are a tear."

		"Your sex skills are appalling, you're as intimate as a bear, <<if $pinchPronoun is "m">>Mr.<<else>>Missus<</if>> Pinch."

		"You're a bad egg, greasy as a rotten pear!"

	<<elseif $pinchSong is 2>>
		They continue to sing.
		<<set $pinchSong to 1>>

		"You're a molester, <<if $pinchPronoun is "m">>Mr.<<else>>Missus<</if>> Pinch."

		"You vye for empty holes."

		"Your brain is utterly, sexually droll, you've semen in your soul, <<if $pinchPronoun is "m">>Mr.<<else>>Missus<</if>> Pinch."

		"I wouldn't fuck you with twenty-seven and a half meters of roll!"

	<<elseif $pinchSong is 1>>
		They continue to sing.
		<<set $pinchSong to 4>>

		"You are rancid, <<if $pinchPronoun is "m">>Mr.<<else>>Missus<</if>> Pinch."

		"You have maggots in your ass."

		"You have all the subtle qualities of a bitch in heat, <<if $pinchPronoun is "m">>Mr.<<else>>Missus<</if>> Pinch."

		"Given a choice between the two of you, I'd take the bitch in heat!"

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

<<stateman>>

<<actionsman>>

<<if $enemyarousal gte $enemyarousalmax>>
	<<link [[Next|Olive Book Pinch Finish]]>><</link>><<nexttext>>
<<elseif $enemyhealth lte 0>>
	<<link [[Next|Olive Book Pinch Finish]]>><</link>><<nexttext>>
<<elseif $orgasmdown gte 1>>
	<<link [[Next|Olive Book Pinch Finish]]>><</link>><<nexttext>>
<<else>>
	<<link [[Next|Olive Book Pinch Gangbang]]>><</link>><<nexttext>>
<</if>>

:: Olive Book Pinch Finish
<<set $outside to 0>><<set $location to "riding_school">><<effects>>

<<unset $pinchSong>>

<<if $enemyarousal gte $enemyarousalmax>><<set $pinchArousal += 2000>>
	<<ejaculation>>

	Their climax was just the distraction <<pinchhe>> needed,

	<<pinchHe>> slipped from their grip and swiftly retreated.

	<<pinchHe>> scrambled away, <<pinchhis>> feet in high gear,

	<<pinchHis>> "clever" scheme having fell flat on its face.

	"Whatever," <<pinchhe>> sneered, "I'll get them next year!"

	And then <<pinchhe>> was gone, with hardly a trace.

	Since that day, <<pinchhe>> became like a ghost.

	<<pinchHe>> only cropped up in stories, at most.

	Though they'll never forget that fond memory

	Of the lesson they taught <<pinchhim>> - and neither will <<pinchhe>>!
<<elseif $enemyhealth lte 0>>
	It seemed for the townsfolk <<pinchhis>> strength was too much

	As they stumbled back in the snow.

	Or maybe they just deemed <<pinchhim>> too gross to touch.

	Regardless, they let the creep go.

	From that day forth, they were mindful of danger

	Every year onwards, come Christmas night.

	They hid their presents and distrusted strangers,

	And made sure to lock their bedroom doors tight.

	Still to this day, near the holiday season

	They tell tales of Pinch and the things <<pinchhe>> would do

	To careless young fools who trust without reason.

	So don't be a fool, lest you get pinched, too!
<<else>><<set $pinchArousal += 4000>>
	<<if $pinchPronoun is "m">>Mr<<else>>Ms<</if>>. Pinch's face flushed - <<pinchhe>> felt rather craven

	To have mingled pleasure with such degradation!

	But once <<pinchhe>> cooled down, <<pinchhe>> didn't feel mad.

	As a matter of fact, <<pinchhe>> felt rather... glad!

	<<pinchHe>> didn't resent them for their abuse.

	In fact, it felt good being thoroughly used!

	Then <<pinchhe>> thought of something <<pinchhe>> hadn't before.

	Maybe cumming, <<pinchhe>> thought, didn't just come from whores.

	Maybe cumming, perhaps, meant a little bit more!

	<<pinchHe>> enjoyed <<pinchhis>> new role as a receptacle

	For the town's lusty passion; <<pinchhe>> was but a hole.

	For the meaning of Christmas that <<pinchhe>> came to know

	Is to give yourself up - your body and soul.
<</if>>

<<silently>><<endcombat>><</silently>>

<<link [[Next|Olive Book End]]>><<set $phase to 1>><</link>>

:: Olive Book End
<<set $outside to 0>><<effects>>

<<if $phase is 1>>
	<<set _phase to 1>>
	<<unbecomePinch>>
<</if>>
<<pinchEnd "full">>

You close the book, feeling
<<if $arousal gte ($arousalmax / 5) * 4>>
	a lewd warmth in your belly.
<<elseif $arousal gte ($arousalmax / 5) * 2>>
	oddly heated.
<<else>>
	warm inside.
<</if>>
You shiver as you recount the events.<<arousal $pinchArousal>><<garousal>>
<<unset $pinchArousal>>

You liked it,
<<if _phase is 1>>
	despite knowing that the original story went differently.
<<else>>
	despite its unique spin on the old tale.
<</if>>

<<link [[Next|$oliveExitPassage]]>><<unset $oliveExitPassage>><</link>>

:: Pinch Widgets [widget]
<<widget "pinchStart">>
	<<if $christmas_book_read is undefined>>
		<<set $christmas_book_read to 1>>
	<</if>>

	<<set $real_weather to $weather>>
	<<set $real_season to $season>>
	<<set $real_weekday to $weekday>>
	<<set $real_monthday to $monthday>>
	<<set $real_month to $month>>
	<<set $real_year to $year>>
	<<set $real_moonstate to $moonstate>>
	<<set $real_minute to $minute>>
	<<set $real_time to $time>>
	<<set $statFreeze to true>>

	<<set $time to 1260>>
	<<set $month to "december">>
	<<set $season to "winter">>
	<<set $weather to "snow">>
	<<set $pinchArousal to 0>>
<</widget>>

<<widget "becomePinch">>
	<<set $real_playersex to $player.sex>>
	<<set $real_playergender to $player.gender>>
	<<set $real_penisexist to $player.penisExist>>
	<<set $real_vaginaexist to $player.vaginaExist>>
	<<set $real_eyecolour to $eyecolour>>
	<<set $real_haircolour to $haircolour>>
	<<set $real_hairlength to $hairlength>>
	<<set $real_breastsize to $breastsize>>
	<<set $real_penissize to $penissize>>
	<<set $real_ballsexist to $player.ballsExist>>

	<<set $real_goooutsidecount to $goooutsidecount>>
	<<set $real_semenoutsidecount to $semenoutsidecount>>
	<<set $real_bodyliquid to clone($player.bodyliquid)>>
	<<set $real_parasite to clone($parasite)>>
	<<set $real_virginity to clone($player.virginity)>>
	<<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>>
	<<set $real_demon to $demon>>
	<<set $real_wolfgirl to $wolfgirl>>
	<<set $real_cat to $cat>>
	<<set $real_cow to $cow>>
	<<set $real_famesex to $famesex>>
	<<set $real_famerape to $famerape>>
	<<set $real_fameexhibitionism to $fameexhibitionism>>
	<<set $real_famescrap to $famescrap>>
	<<set $real_fame to $fame>>
	<<set $real_sexStats to clone($sexStats)>>
	<<set $real_skulduggery to $skulduggery>>
	<<set $real_purity to $purity>>
	<<set $real_spray to $spray>>
	<<set $real_skin to clone($skin)>>
	/*store player clothing*/

	<<undress "pinch">>
	<<if $worn.genitals.name isnot "naked">>
		<<set $real_wornGenitals to clone($worn.genitals)>>
		<<set $worn.genitals to clone(setup.clothes.genitals[0])>>
	<</if>>
	/*morph player*/
	<<if $args[0] is "Lew">>
		<<set $player.virginity to {anal:true,oral:true,penile:true,vaginal:true,temple:false,handholding:true,kiss:true}>>
		<<set $eyecolour to "light blue">>
		<<set $haircolour to "golden">>
		<<generalWear "upper" 74 "red">>
		<<generalWear "lower" 65 "green">>
		<<legswear 9>>
	<<elseif $args[0] is "Pinch">>
		<<set $pinchPronoun to $per_npc.pinch.pronoun>>
		<<set $player.gender to $per_npc.pinch.gender>>
		<<set $player.sex to $per_npc.pinch.gender>>
		<<if $player.sex is "f">>
			<<set $vaginastate to 0>>
			<<set $vaginause to 0>>
			<<set $player.vaginaExist to true>>
			<<set $player.penisExist to false>>
			<<set $player.ballsExist to false>>
		<<elseif $player.sex is "m">>
			<<set $penisstate to 0>>
			<<set $penisusue to 0>>
			<<set $player.vaginaExist to false>>
			<<set $player.penisExist to true>>
			<<set $player.ballsExist to true>>
			<<set $penissize to 1>>
		<<else>>
			<<set $vaginastate to 0>>
			<<set $vaginause to 0>>
			<<set $penisstate to 0>>
			<<set $penisuse to 0>>
			<<set $player.vaginaExist to true>>
			<<set $player.penisExist to true>>
			<<set $player.ballsExist to false>>
			<<set $penissize to 1>>
		<</if>>
		<<set $breastsize to $per_npc.pinch.breastsize>>

		<<set $player.virginity to {anal:true,oral:true,penile:true,vaginal:true,temple:false,handholding:true,kiss:true}>>
		<<if $pinchPenile>>
			<<takeVirginity "Lew" "penile">>
		<<elseif $pinchVaginal>>
			<<takeVirginity "Lew" "vaginal">>
		<<elseif $pinchAnal>>
			<<takeVirginity "Lew" "anal">>
		<</if>>
		<<if $pinchKiss>>
			<<takeVirginity "Lew" "kiss">>
		<</if>>

		<<set $eyecolour to "red">>
		<<set $haircolour to "green">>
		<<feetwear 18>>
		<<headwear 8>>
		<<upperwear 30>>
		<<lowerwear 33>>
		<<underlowerwear 30>>
	<</if>>
	<<for _bodypart range setup.bodyliquid.bodyparts>>
		<<set $player.bodyliquid[_bodypart].goo to 0>>
		<<set $player.bodyliquid[_bodypart].semen to 0>>
	<</for>>
	<<for _bodypart range $parasite.bodyparts>>
		<<set $parasite[_bodypart] to {}>>
	<</for>>
	<<bodywriting_init>>

	<<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>>
	<<set $demon to 0>>
	<<set $wolfgirl to 0>>
	<<set $cat to 0>>
	<<set $cow to 0>>
	<<hideTransformations>>
	<<set $skulduggery to 0>>
	<<set $spray to 0>>
<</widget>>

<<widget "unbecomePinch">>
	/*restore clothes integrity and undress*/
	<<set _rebuy to $clothingrebuy>>
	<<set $clothingrebuy to 0>>
	<<silently>><<clotheson>><</silently>>
	<<ruined>>
	<<set $clothingrebuy to _rebuy>>

	/*restore real clothes*/
	<<storeon "pinch">>
	<<if $real_wornGenitals isnot undefined>>
		<<set $worn.genitals to clone($real_wornGenitals)>>
		<<unset $real_wornGenitals>>
	<</if>>

	/*restore players stats*/
	<<set $player.sex to $real_playersex>>
	<<set $player.gender to $real_playergender>>
	<<set $player.penisExist to $real_penisexist>>
	<<set $player.vaginaExist to $real_vaginaexist>>
	<<if !$player.vaginaExist>>
		<<set $player.bodyliquid.vaginaoutside.semen to 0>>
		<<set $player.bodyliquid.vaginaoutside.goo to 0>>
	<</if>>
	<<set $eyecolour to $real_eyecolour>>
	<<set $haircolour to $real_haircolour>>
	<<set $hairlength to $real_hairlength>>
	<<set $breastsize to $real_breastsize>>
	<<set $penissize to $real_penissize>>
	<<set $player.ballsExist to $real_ballsexist>>
	<<set $goooutsidecount to $real_goooutsidecount>>
	<<set $semenoutsidecount to $real_semenoutsidecount>>
	<<set $player.bodyliquid to clone($real_bodyliquid)>>
	<<set $parasite to clone($real_parasite)>>
	<<set $player.virginity to clone($real_virginity)>>
	<<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>>
	<<set $demon to $real_demon>>
	<<set $wolfgirl to $real_wolfgirl>>
	<<set $cat to $real_cat>>
	<<set $cow to $real_cow>>
	<<showTransformations>>
	<<set $famesex to $real_famesex>>
	<<set $famerape to $real_famerape>>
	<<set $fameexhibitionism to $real_fameexhibitionism>>
	<<set $famescrap to $real_famescrap>>
	<<set $fame to $real_fame>>
	<<set $sexStats to clone($real_sexStats)>>
	<<set $skulduggery to $real_skulduggery>>
	<<set $purity to $real_purity>>
	<<set $spray to $real_spray>>
	<<set $skin to clone($real_skin)>>
<</widget>>

<<widget "pinchhe">>
	<<silently>><<set _text_output to ($pinchPronoun is "m"? "he" : "she")>><</silently>>
	<<print _text_output>>
<</widget>>

<<widget "pinchHe">><<silently>>
<<pinchhe>><<capitalise>>
<</silently>><<print _text_output>><</widget>>

<<widget "pinchhis">>
	<<silently>><<set _text_output to ($pinchPronoun is "m"? "his" : "her")>><</silently>>
	<<print _text_output>>
<</widget>>

<<widget "pinchHis">><<silently>>
<<pinchhis>><<capitalise>>
<</silently>><<print _text_output>><</widget>>

<<widget "pinchhim">>
	<<silently>><<set _text_output to ($pinchPronoun is "m"? "him" : "her")>><</silently>>
	<<print _text_output>>
<</widget>>

<<widget "pinchEnd">>
	<<if $args[0] is "full">>
		<<set $weather to $real_weather>>
		<<set $season to $real_season>>
		<<set $weekday to $real_weekday>>
		<<set $monthday to $real_monthday>>
		<<set $month to $real_month>>
		<<set $year to $real_year>>
		<<set $moonstate to $real_moonstate>>
		<<set $minute to $real_minute>>
		<<set $time to $real_time>>
		<<unset $statFreeze>>

		<<if $oliveExitPassage is "School Library">>
			<<set $location to "school">>
		<<else>>
			<<set $location to "home">>
		<</if>>

		<<unset $pinchPenile>>
		<<unset $pinchAnal>>
		<<unset $pinchVaginal>>
		<<unset $pinchKiss>>
		<<unset $pinchPronoun>>
	<</if>>

	<<if ($studyBooks and $studyBooks.rented isnot "Pinch" and $studyBooks.stolen isnot "Pinch") or $studyBooks is undefined>>
		<<clearNPC pinch>>
	<</if>>

	<<endevent>>
<</widget>>

repo_name: Area/degrees

license: mit


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

/*indev - scarlet book event. English: 200+*/
:: ScarletBook1
<<if $scarletExitPassage is undefined>>
	<<set $scarletExitPassage to "School Library">>
<</if>>
<<if $scarletExitPassage is "School Library">>
	You take a scarlet book from the basket. The title written in decorative gold letters says "Raul and Janet".
<<else>>
	You settle in bed with the scarlet book titled "Raul and Janet".
<</if>>
<<if $english gte 600>>
	You know the 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>>
	It's 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|$scarletExitPassage]]>><<unset $scarletExitPassage>><</link>>

/*indev scarlet book event. English: 300-399*/
:: ScarletBook2
<<if $scarletExitPassage is undefined>>
	<<set $scarletExitPassage to "School Library">>
<</if>>
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|$scarletExitPassage]]>><<unset $scarletExitPassage>><</link>>

/*indev scarlet book event. English 400-499*/
:: ScarletBook3
<<if $scarletExitPassage is undefined>>
	<<set $scarletExitPassage to "School Library">>
<</if>>
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 1200>><</link>><<genglish>><<lstress>><<ggarousal>>

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

<</if>>
<<link [[Put the book away|$scarletExitPassage]]>><<unset $scarletExitPassage>><</link>>

/*indev scarlet book event. English: 500-599*/
:: ScarletBook4
<<if $scarletExitPassage is undefined>>
	<<set $scarletExitPassage to "School Library">>
<</if>>
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 ($arousalmax / 5) * 2>>
	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 600>><</link>><<genglish>><<lstress>><<garousal>>

<<if $bus is "schoollibrary">>
	<<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>>
<<if $english gte 600 and $arousal gte ($arousalmax / 5) * 2>>
	<<link [[Imagine yourself as Janet|ScarletBook5]]>><<pass 30>><<arousal 600>><</link>><<garousal>>

<</if>>
<<link [[Put the book away|$scarletExitPassage]]>><<unset $scarletExitPassage>><</link>>

/*indev scarlet book event. English 600+*/
:: ScarletBook5
<<if $scarletExitPassage is undefined>>
	<<set $scarletExitPassage to "School Library">>
<</if>>
<<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 1200>><</link>>

:: ScarletBook6
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
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
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 1200>><</link>>

:: ScarletBook7nay_page2
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
The vision slowly fades out.
You feel relaxed and a little jealous.
<<arousal 600>><<stress -6>><<garousal>><<lstress>>

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

<<link [[Put the book away|$scarletExitPassage]]>><<unset $scarletExitPassage>><</link>>

:: ScarletBook8nay
The vision slowly fades out.
You feel aroused and excited.
<<arousal 1200>><<ggarousal>>

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

<<link [[Put the book away|$scarletExitPassage]]>><<unset $scarletExitPassage>><</link>>

:: ScarletBook9
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
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|$scarletExitPassage]]>><<unset $scarletExitPassage>><<endcombat>><</link>>

/*indev*/
:: Library Masturbation
<<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>>
	<<set $mouth to "disabled">>
	<<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
<<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
<<if $sexstart is 1>>
	<<set $sexstart to 0>>
	<<consensual>>
	<<set $consensual to 1>>
	<<neutral 1>>

	<<generateNPC 1 a m m 17>><<person1>>
	<<set $enemyno = 1>><<set $enemynomax = 1>>
	<<maninit>>
	<<set $NPCList[0].insecurity to "weak">>
	<<set $enemytrust += 500>>
	<<set $NPCList[0].fullDescription to "Raul">>
	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 beautiful 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
<<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 thought you wanted this just as I did.)

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

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

:: Drama
<<if $molestationstart is 1>>
	<<set $molestationstart to 0>>
	<<controlloss>>
	<<violence 1>>
	<<neutral 1>>
	<<molested>>

	<<generateNPC 1 a m m 17>><<person1>>
	<<set $enemyno = 1>><<set $enemynomax = 1>>
	<<maninit>>
	<<set $NPCList[0].insecurity to "weak">>
	<<set $NPCList[0].fullDescription to "Raul">>
	/*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
<<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">>
/*store players stats*/
<<set $statFreeze to true>>
<<set $real_playersex to $player.sex>>
<<set $real_playergender to $player.gender>>
<<set $real_penisexist to $player.penisExist>>
<<set $real_vaginaexist to $player.vaginaExist>>
<<set $real_eyecolour to $eyecolour>>
<<set $real_haircolour to $haircolour>>
<<set $real_hairlength to $hairlength>>
<<set $real_breastsize to $breastsize>>
<<set $real_ballsexist to $player.ballsExist>>

<<set $real_goooutsidecount to $goooutsidecount>>
<<set $real_semenoutsidecount to $semenoutsidecount>>
<<set $real_bodyliquid to clone($player.bodyliquid)>>
<<set $real_parasite to clone($parasite)>>
<<set $real_virginity to clone($player.virginity)>>
<<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>>
<<set $real_demon to $demon>>
<<set $real_wolfgirl to $wolfgirl>>
<<set $real_cat to $cat>>
<<set $real_cow to $cow>>
<<set $real_famesex to $famesex>>
<<set $real_famerape to $famerape>>
<<set $real_fameexhibitionism to $fameexhibitionism>>
<<set $real_famescrap to $famescrap>>
<<set $real_fame to $fame>>
<<set $real_sexStats to clone($sexStats)>>
<<set $real_skulduggery to $skulduggery>>
<<set $real_purity to $purity>>
<<set $real_spray to $spray>>
<<set $real_skin to clone($skin)>>
/*store player clothing*/

<<undress "janet">>
<<if $worn.genitals.name isnot "naked">>
	<<set $real_wornGenitals to clone($worn.genitals)>>
	<<set $worn.genitals to clone(setup.clothes.genitals[0])>>
<</if>>
/*store time*/
<<set $real_time to $time>>
/*morph player into Janet*/
<<set $player.gender to "f">>
<<set $player.sex to "f">>
<<set $vaginastate to 0>>
<<set $player.virginity to {anal:true,oral:true,penile:true,vaginal:true,temple:false,handholding:true,kiss:true}>>
<<set $eyecolour to "light blue">>
<<set $haircolour to "platinumblond">>
<<set $hairlength to 400>>
<<set $breastsize to 5>>
<<for _bodypart range setup.bodyliquid.bodyparts>>
	<<set $player.bodyliquid[_bodypart].goo to 0>>
	<<set $player.bodyliquid[_bodypart].semen to 0>>
<</for>>
<<for _bodypart range $parasite.bodyparts>>
	<<set $parasite[_bodypart] to {}>>
<</for>>
<<bodywriting_init>>

<<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>>
<<set $demon to 0>>
<<set $wolfgirl to 0>>
<<set $cat to 0>>
<<set $cow to 0>>
<<hideTransformations>>
<<set $skulduggery to 0>>
<<set $spray to 0>>
/*change location and time*/
<<set $time to 1260>>
<<time>>
<<location "forest">>
/*give player clothes*/

<<feetwear 1>>
<<legswear 5>>
<<upperwear 7>>
<<underlowerwear 3>>
<<freezePlayerStats>>
<<set $player.penisExist to false>>
<<set $player.ballsExist to false>>
<<set $player.vaginaExist to true>>
<</widget>>

<<widget "sleepjanet">>
<<unfreezePlayerStats>>
/*restore clothes integrity and undress*/
<<set _rebuy to $clothingrebuy>>
<<set $clothingrebuy to 0>>
<<clotheson>>
<<ruined>>
<<set $clothingrebuy to _rebuy>>

/*restore real clothes*/
<<storeon "janet">>
<<if $real_wornGenitals isnot undefined>>
	<<set $worn.genitals to clone($real_wornGenitals)>>
	<<unset $real_wornGenitals>>
<</if>>
/*restore players stats*/
<<set $player.sex to $real_playersex>>
<<set $player.gender to $real_playergender>>
<<set $player.penisExist to $real_penisexist>>
<<set $player.vaginaExist to $real_vaginaexist>>
<<if !$player.vaginaExist>>
	<<set $player.bodyliquid.vaginaoutside.semen to 0>>
	<<set $player.bodyliquid.vaginaoutside.goo to 0>>
<</if>>
<<unset $statFreeze>>
<<set $eyecolour to $real_eyecolour>>
<<set $haircolour to $real_haircolour>>
<<set $hairlength to $real_hairlength>>
<<set $breastsize to $real_breastsize>>
<<set $player.ballsExist to $real_ballsexist>>
<<set $goooutsidecount to $real_goooutsidecount>>
<<set $semenoutsidecount to $real_semenoutsidecount>>
<<set $player.bodyliquid to clone($real_bodyliquid)>>
<<set $parasite to clone($real_parasite)>>
<<set $player.virginity to clone($real_virginity)>>
<<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>>
<<set $demon to $real_demon>>
<<set $wolfgirl to $real_wolfgirl>>
<<set $cat to $real_cat>>
<<set $cow to $real_cow>>
<<showTransformations>>
<<set $famesex to $real_famesex>>
<<set $famerape to $real_famerape>>
<<set $fameexhibitionism to $real_fameexhibitionism>>
<<set $famescrap to $real_famescrap>>
<<set $fame to $real_fame>>
<<set $sexStats to clone($real_sexStats)>>
<<set $skulduggery to $real_skulduggery>>
<<set $purity to $real_purity>>
<<set $spray to $real_spray>>
<<set $skin to clone($real_skin)>>
/*restore location and time*/
<<set $location to "school">>
<<set $time to $real_time>>
<<time>>
<</widget>>


code:
:: School Gloryhole Start

<<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 in. You realise you can access the gap through an unused closet in the bathroom. This gives you an idea.

	<<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
<<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, <<printmoney $school_gloryhole_price true>>" 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(3)>>
	<<case 0>>
		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 through the drain system! (0:02)|School Drain]]>><<pass 2>><</link>>

		<</if>>
		<<link [[Caught!|School Gloryhole Janitor Catch]]>><<stress 1>><</link>><<gstress>>
	<<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>><<unset $desperateaction>><<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>><<unset $desperateaction>><<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>><<unset $desperateaction>><<endevent>><</link>>

<</if>>

:: School Gloryhole Sex

<<if $sexstart is 1>>
	<<set $sexstart to 0>>
	<<consensual>>
	<<set $consensual to 1>>
	<<neutral 1>>
	<<maninit>>
	<<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

<<set $outside to 0>><<schooleffects>><<effects>>
<<set $punishmentposition to 0>>
<<if $enemyarousal gte $enemyarousalmax>>
	<<ejaculation>><<set $gloryholestat += 1>><<set $prostitutionstat += 1>>
	<<tearful>> you count the money <<he>> pushes through the hole. You've gained <<printmoney $school_gloryhole_price>>.
	<<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>><<unset $desperateaction>><</link>>

:: School Gloryhole Janitor Catch
<<set $outside to 0>><<set $location to "school">><<schooleffects>><<effects>>
<<generateRole 0 0 "janitor">><<person1>>

The <<person>> glares at you. "Look at the mess you're making in my bathrooms, <<girl>>! 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 1000>>
	<<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 my 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]]>><<endevent>><</link>>
	<</switch>>
<</if>>

:: Janitor Closet Rape

<<if $molestationstart is 1>>
	<<set $molestationstart to 0>>
	<<controlloss>>
	<<violence 1>>
	<<neutral 1>>
	<<molested>>
	<<maninit>>
<</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

<<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 delinquent 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>>