Merge branch 'original-master'

 Conflicts:
	locations/body_shape.qsrc
	locations/din_van.qsrc

changes from 0_8_5 to 0_8_6.txt

@@ -21,6 +21,11 @@ vicky_meynold_schedule
 katja_meynold_schedule
 igor_schedule
 pav_beach_chat
+katja_lake			<- split from katjaEv
+
+body_desc
+AppearanceSystem               <- body
+body                           <- body_shape
 
 === deleted locations ===
 
@@ -35,7 +40,9 @@ rex_party_events
 rex_party_boys_events
 rex_party_girls_events
 rex_party_sister_events
-
+$phone_theme
+body                                 -> AppearanceSystem
+body_shape                           -> body
 
 
 Variables:
@@ -45,10 +52,20 @@ Variables:
 [Numeric variables]
 
 [String variables]
+$liptalk
+$liptalk2
+$liptalk3
+$lips1
+
+$pcdes_<bodypart>random
+$pcdes_<bodypart>
+bmi_calc                                  -> pcs_bmi
 
 === Added variables ===
 
 [Numeric variables]
 
 [String variables]
-
+$pc_desc[] <- Hold descriptive words for PC's body parts
+$pc_descWordy[] <- Hold more descriptive words for PC's body parts
+pcs_bmi <- New variable for bmi

glife.qproj

@@ -65,8 +65,9 @@
 		<Location name="grades"/>
 	</Folder>
 	<Folder name="Body">
+		<Location name="ApperanceSystem"/>
 		<Location name="body"/>
-		<Location name="body_shape"/>
+		<Location name="body_desc"/>
 		<Location name="lact_lib"/>
 		<Location name="lact_bp"/>
 		<Location name="body_din"/>
@@ -189,7 +190,6 @@
 		<Location name="telefon"/>
 		<Location name="phone_selfies"/>
 		<Location name="phone_selfies_popup"/>
-		<Location name="$phone_theme"/>
 	</Folder>
 	<Folder name="Prostitution">
 		<Location name="street_walker"/>
@@ -234,9 +234,11 @@
 		<Location name="intro_uni_m"/>
 		<Location name="intro_uni_tg"/>
 		<Location name="intro_initialization"/>
+		<Location name="intro_initialization_uni"/>
 		<Location name="intro_customization"/>
 		<Location name="intro_sg_select"/>
 		<Location name="intro_sg_select_custom"/>
+		<Location name="intro_city_select"/>
 	</Folder>
 	<Folder name="NPCManage">
 		<Location name="npccleanc"/>
@@ -478,6 +480,7 @@
 	</Folder>
 	<Folder name="Katja Meynold">
 		<Location name="katjaEv"/>
+		<Location name="katja_lake"/>
 		<Location name="katjaEvDin"/>
 		<Location name="KatjaHomeTalk"/>
 		<Location name="katja_sex"/>
@@ -1105,6 +1108,7 @@
 		<Location name="Gnpc_cinema"/>
 		<Location name="Gnpc2"/>
 		<Location name="hookup"/>
+		<Location name="hookup_sms"/>
 		<Location name="hookup_sex"/>
 		<Location name="hookup_virgin"/>
 		<Location name="hookup_after"/>

locations/ApperanceSystem.qsrc

@@ -0,0 +1,378 @@
+# AppearanceSystem
+$this = 'AppearanceSystem'
+
+if $ARGS[0] = '':
+	!{
+        PC's appearance is updated regularly in stat.qsrc.
+        Note: A huge part of PC's appearance is from base appearance, which is updated once a day. Because it's
+        a global variable, it does not show in this function in particular, but it's used in 'CalcAppearance'
+    }
+	if pcs_makeup = 6 and bimbolevel >= 2: extra_supnatvnesh = 2*bimbolevel - 2
+
+	!STD check. STD will make appearance automatically -10
+	if Gerpes >= 3 or Sifilis >= 21 or Triper > 2:
+		pcs_apprnc = -10
+	else:
+		clothingBonus = func($this, 'CalcClothingBonus')
+		accessoriesBonus = func($this, 'CalcAccessoriesBonus', bonusZ, PShoQuality)
+		groomingBonus = func($this, 'CalcGroomingBonus')
+		groomingPenalty = func($this, 'CalcGroomingPenalty')
+		pcs_apprnc = func($this, 'CalcAppearance', (supnatvnesh + extra_supnatvnesh))
+		Hotcat = func($this, 'ConvertToHotcat')
+	end
+
+	killvar 'clothingBonus'
+	killvar 'accessoriesBonus'
+	killvar 'groomingBonus'
+	killvar 'groomingPenalty'
+end
+
+if $args[0] = 'UpdateBaseAppearnce':
+	!{
+		Base Appearance is updated once a day at midnight and called from cikl
+		Base Appearance is calculated from:
+			vidage, skin, body shape (fat and strength), face (lip size, eyes size, and eyelashes)
+			attributes (endurance and agility)
+	}
+	faceBonus = func($this, 'CalcFaceBonus')
+	attributeBonus = func($this, 'CalcAttributeBonus')
+
+	!!	Setting vidageBonus
+	if vidage < 20: 
+		vidageBonus = 60 + (2 * vidage)
+	elseif vidage > 30: 
+		vidageBonus = 160 - (2 * vidage)
+	else
+		vinageBonus = 100
+	end
+
+	skinBonus = (pcs_skin * 2 / 5)
+	bodyShapeBonus = func($this, 'SetBodyShapeBonus')
+
+	! Calculte base appearance
+	pcs_apprncbase = (vidageBonus * (skinBonus + bodyShapeBonus + faceBonus + attributeBonus) / 100) + supnatvnesh
+
+	killvar 'vidageBonus'
+	killvar 'skinBonus'
+	killvar 'bodyShapeBonus'
+	killvar 'faceBonus'
+	killvar 'attributeBonus'
+end 
+
+if $ARGS[0] = 'CalcFaceBonus':
+	!!	Setting Eyelashes bonus
+	if pcs_lashes <= 0:
+		eyelashesBonus = 0
+	elseif pcs_lashes = 1:
+		eyelashesBonus = 2
+	elseif pcs_lashes = 2:
+		eyelashesBonus = 5
+	elseif pcs_lashes = 3:
+		eyelashesBonus = 7
+	elseif pcs_lashes = 4:
+		eyelashesBonus = 8
+	elseif pcs_lashes = 5:
+		eyelashesBonus = 10
+	else
+		eyelashesBonus = 0		
+	end
+	eyelashesBonus = FUNC($this, 'AdjustFromBMI', eyelashesBonus)
+
+	!!	Setting Eye Size bonus
+	if pcs_eyesize = 1:
+		eyeSizeBonus = 1
+	elseif pcs_eyesize = 2:
+		eyeSizeBonus = 3
+	elseif pcs_eyesize = 3:
+		eyeSizeBonus = 2
+	else
+		eyeSizeBonus = 0
+	end
+	eyeSizeBonus = FUNC($this, 'AdjustFromBMI', eyeSizeBonus)
+
+	!!	Setting the Lip size bonus
+	if pcs_lip = 0:
+		lipBonus = -2
+	elseif pcs_lip = 1:
+		lipBonus = 0
+	elseif pcs_lip = 2:
+		lipBonus = 3
+	elseif pcs_lip = 3:
+		lipBonus = 5
+	else
+		lipBonus = 3
+	end
+	lipBonus = FUNC($this, 'AdjustFromBMI', lipBonus)
+
+	result = eyelashesBonus + eyeSizeBonus + lipBonus + 5
+
+	killvar 'eyelashesBonus'
+	killvar 'eyeSizeBonus'
+	killvar 'lipBonus'
+end
+
+if $ARGS[0] = 'CalcAttributeBonus':
+	tempAttributeBonus = (pcs_agil / 10) + (pcs_vital / 10)
+
+	result = func($this, 'AdjustFromBMI', tempAttributeBonus)
+	killvar 'tempAttributeBonus'
+end
+
+if $ARGS[0] = 'SetBodyShapeBonus':
+	! Magic uses a different calculation
+	if dounspell = 1:
+		bodytipe = pcs_hips - pcs_waist
+		if bodytipe < 20:
+			result = 0
+		elseif bodytipe >= 20 and bodytipe < 25:
+			result = 2
+		elseif (bodytipe >= 25 and bodytipe < 30) or bodytipe >=35:
+			result = 4
+		elseif bodytipe >= 30 and bodytipe < 35:
+			result = 8
+		end
+
+	!!Setting the pcs_apprnc bonus based on fat and strength
+	else
+		if pcs_bmi < 16:
+			!! severely underweight
+			tempBodyShapeBonus = 30
+		elseif pcs_bmi < 19:
+			!! underweight
+			tempBodyShapeBonus = 65
+		elseif pcs_bmi < 25:
+			!! healthy weight
+			tempBodyShapeBonus = 85
+		elseif pcs_bmi < 30:
+			!! overweight
+			tempBodyShapeBonus = 75
+		elseif pcs_bmi < 35:
+			!! moderately obese
+			tempBodyShapeBonus = 45
+		elseif pcs_bmi < 40:
+			!! severely obese
+			tempBodyShapeBonus = 25
+		elseif pcs_bmi < 45:
+			!! very severely obese
+			tempBodyShapeBonus = 5
+		else
+			!! morbidly obese
+			tempBodyShapeBonus = 0
+		end
+
+		if (strenbuf >= 40 and strenbuf < 60) or strenbuf >= 80:
+			tempBodyShapeBonus += 8
+		elseif strenbuf >= 60:
+			tempBodyShapeBonus += 10
+		elseif strenbuf >= 20:
+			tempBodyShapeBonus += 5
+		end
+
+		!!This modifies bodykoef for high or low salo values
+		if salocatnow = 0 or salocatnow >= 7:
+			tempBodyShapeBonus -= 8
+		elseif salocatnow = 1 or salocatnow = 6:
+			tempBodyShapeBonus -= 4
+		end
+
+		if vofat > 0: tempBodyShapeBonus -= vofat
+
+		result = tempBodyShapeBonus
+
+		killvar 'tempBodyShapeBonus'
+	end
+end
+
+if $ARGS[0] = 'CalcClothingBonus':
+	if $clothingworntype = 'nude':
+		if pcs_bmi >= 19 and pcs_bmi < 30:
+			! Healthy and overweight
+			tempRevealing = 405
+			PCloQuality = 3
+		else
+			tempRevealing = 0
+			PCloQuality = 1
+		end
+	else
+		if pcs_bmi < 19:
+			!Skinny and severely skinny
+			tempRevealing = ((400 - PXCloThinness) + (500 - PXCloTopCut) + (400 - PXCloBottomShortness))/2
+		elseif pcs_bmi >= 19 and pcs_bmi < 30:
+			!Healthy and overweight
+			tempRevealing = (PXCloThinness + PXCloTopCut + PXCloBottomShortness)/2
+		elseif pcs_bmi >= 30:
+			!Moderately overweight and above
+			tempRevealing = ((400 - PXCloThinness) + (500 - PXCloTopCut) + (400 - PXCloBottomShortness)) * 3/4
+		end
+	end
+
+	result = tempRevealing/ 76 * PCloQuality
+	killvar 'tempRevealing'
+
+end
+
+if $ARGS[0] = 'CalcAccessoriesBonus':
+	coatQualityBonus = ARGS[1] & !! bonusZ
+	shoesQualityBonus = ARGS[2] & !! PShoQuality
+	
+	!!bonuses for certain underwear
+	if $pantyworntype = 'boutique':
+		pantyBonus = 4
+	elseif $pantyworntype = 'fashionista':
+		pantyBonus = 2
+	end
+
+	if $braworntype = 'boutique':
+		braBonus = 4
+	elseif $braworntype = 'fashionista':
+		braBonus = 2
+	end
+
+	result = coatQualityBonus + shoesQualityBonus + pantyBonus + braBonus
+
+	killvar 'coatQualityBonus'
+	killvar 'shoesQualityBonus'
+	killvar 'pantyBonus'
+	killvar 'braBonus'
+end
+
+if $ARGS[0] = 'CalcGroomingBonus':
+	if pcs_lipbalm > 0:
+		lipBalmBonus = 5
+	else
+		lipBalmBonus = 0
+	end
+
+	makeupBonus = pcs_makupskl / 5
+	if pcs_makeup = 0: makeupBonus = -5
+	if pcs_makeup = 1: makeupBonus = 0
+	if pcs_makeup = 5: makeupBonus = 30
+
+	hairBonus = pcs_hairbsh * 10
+
+	breathBonus = pcs_breath * 5
+
+	tempGroomingBonus = makeupBonus + hairBonus + lipBalmBonus + breathBonus
+
+	!!Small bonus for wearing deodorant, if pcs_sweat is low enough
+	if deodorant_on = 1 and pcs_sweat < 20: tempGroomingBonus += 5
+
+	!result = tempGroomingBonus
+	result = func($this, 'AdjustFromBMI', tempGroomingBonus)
+
+	killvar 'lipBalmBonus'
+	killvar 'makeupBonus'
+	killvar 'hairBonus'
+	killvar 'breathBonus'
+	killvar 'tempGroomingBonus'
+end
+
+if $ARGS[0] = 'CalcGroomingPenalty':
+	!! buzzcut penalty to pcs_apprnc
+	if pcs_hairlng < 10:
+		buzzCutPenalty = 10
+	else
+		buzzCutPenalty = 0
+	end
+
+	if pcs_sweat < 22:
+		sweatPenalty = 0
+	elseif temppcs_sweat < 38:
+		sweatPenalty = (pcs_sweat - 10) / 4
+	elseif temppcs_sweat < 54:
+		sweatPenalty = (pcs_sweat - 10) / 2
+	else
+		sweatPenalty = 3 * (pcs_sweat - 10) / 4
+	end
+
+	!Glasses Penalty
+	if glass >= 2 or glass = 0:
+		glassesPenalty = 0
+	elseif glass = 1:
+		glassesPenalty = 10
+	end
+
+	!hair color fade penalty
+	if pcs_haircol ! nathcol:
+		if dyefade > 0 and dyefade < 7: hairDyePenalty = 5
+		if dyefade = 0: hairDyePenalty = 15
+	end
+
+	! Leg hair penalty
+	if pcs_leghair <= 0:
+		legPenalty = 0
+	elseif pcs_leghair <= 3:
+		legPenalty = 3
+	elseif pcs_leghair <= 6:
+		legPenalty = 6
+	else
+		legPenalty = 9 
+	end
+
+	result = sweatPenalty + glassesPenalty + hairDyePenalty + buzzCutPenalty + legPenalty
+
+
+	killvar 'sweatPenalty'
+	killvar 'glassesPenalty'
+	killvar 'hairDyePenalty'
+	killvar 'buzzCutPenalty'
+	killvar 'legPenalty'
+end
+
+
+if $ARGS[0] = 'CalcAppearance':
+	superNaturalBonus = ARGS[1] & !! supnatvnesh
+
+	temp_apprnc = pcs_apprncbase + clothingBonus + accessoriesBonus + groomingBonus - groomingPenalty
+
+	if temp_apprnc >= 200: temp_apprnc = 200 
+	if temp_apprnc < 0: temp_apprnc = 0
+
+	!Any super natural bonuses are allowed to go above the max scale
+	result = temp_apprnc + superNaturalBonus
+	
+	killvar 'superNaturalBonus'
+	killvar 'temp_apprnc'
+end
+
+if $ARGS[0] = 'ConvertToHotcat':
+	if pcs_apprnc <= 200:
+		result = pcs_apprnc / 20
+	else
+		result = 10
+	end
+end
+
+if $ARGS[0] = 'AdjustFromBMI':
+	tempValue = ARGS[1] & !!value to be adjusted
+
+	if pcs_bmi < 16:
+		!! severely underweight
+		tempValue = tempValue * 50 / 100
+    elseif pcs_bmi < 19:
+		!! underweight
+		tempValue = tempValue * 95 / 100
+    elseif pcs_bmi < 25:
+		!! healthy weight
+		!! normal bonus
+    elseif pcs_bmi < 30:
+		!! overweight
+		tempValue = tempValue * 95 / 100
+    elseif pcs_bmi < 35:
+		!! moderately obese
+		tempValue = tempValue * 80 / 100
+    elseif pcs_bmi < 40:
+		!! severely obese
+		tempValue = tempValue * 55 / 100
+    elseif pcs_bmi < 45:
+		!! very severely obese
+		tempValue = tempValue * 50 / 100
+    else
+		!!morbidly obese
+		tempValue = tempValue * 40 / 100
+    end
+
+	result = tempValue
+	killvar 'tempValue'
+end
+--- AppearanceSystem ---------------------------------

locations/BelSex.qsrc

@@ -78,7 +78,7 @@ if $ARGS[0] = 'bj2':
 	belact -= 1
 	picrand = rand(0,12)
 	'<center><video autoplay loop src="images/shared/sex/blowjob/bj<<picrand>>.mp4"></video></center>'
-	'You look at <<$boydesc>> with lust in your eyes. Dropping down on your knees without being asked, you unbutton his pants, exposing his full erect cock. Wrapping your <<$liptalk>> around his strong and warm cock, you quickly begin by sucking the head, caressing it with your tongue and lips.'
+	'You look at <<$boydesc>> with lust in your eyes. Dropping down on your knees without being asked, you unbutton his pants, exposing his full erect cock. Wrapping your <<$pc_desc[''lips'']>> lips around his strong and warm cock, you quickly begin by sucking the head, caressing it with your tongue and lips.'
 	'<<$boydesc>> lets out a small groan, clearly enjoying himself. Turned on by seeing <<$boydesc>> enjoying the blowjob, you start sucking his cock while caressing his balls.'
 
 	gs 'arousal', 'bj', 10, 'sub', 'prostitution'
@@ -93,7 +93,7 @@ if $ARGS[0] = 'bj2':
 			gs'stat'
 			picrand = rand(0,10)
 			'<center><video autoplay loop src="images/shared/sex/cum/mouth/cum<<picrand>>.mp4"></video></center>'
-			'Redoubling your efforts, you reach the base of his wet cock with your <<$liptalk>>. <<$boydesc>> stares you in the face while your lips glide up and down on his hard dick. You know he must be close now.'
+			'Redoubling your efforts, you reach the base of his wet cock with your <<$pc_desc[''lips'']>> lips. <<$boydesc>> stares you in the face while your lips glide up and down on his hard dick. You know he must be close now.'
 			'You don''t want him to cum yet so you switch it up, using your tongue instead, sliding up and down his shaft, pulling out all of your tricks to make him feel good. You even use some techniques you learned to stall his orgasm for a moment, making it all the more intense for him when he shoots his load into your mouth.'
 			belsexpayment = 300
 			gs 'arousal', 'end'

locations/BurgerTip.qsrc

@@ -447,7 +447,7 @@ if $ARGS[0] = 'work':
 							gs 'cum_call', 'mouth_swallow', 'A74', 1
 							gs 'stat'
 							'<center><img <<$set_imgh>> src="images/characters/city/anatoly/sex/bossbjcar.jpg"></center>'
-							'Determined to send Anatoly home with a smile, you lean over and unzip his pants. You wrap your <<$lip1>> lips around his flaccid penis, and start working your magic. Soon your mouth is full of hard throbbing cock. You make an effort to get him home quickly, and suck like a woman possessed with the need for seed. He does finish quickly, and you slurp it all down with a smile. Anatoly gets himself back in his pants, and sends you on your way saying, "Thanks babe, you''re the best."'
+							'Determined to send Anatoly home with a smile, you lean over and unzip his pants. You wrap your <<$pc_desc[''lips'']>> lipss around his flaccid penis, and start working your magic. Soon your mouth is full of hard throbbing cock. You make an effort to get him home quickly, and suck like a woman possessed with the need for seed. He does finish quickly, and you slurp it all down with a smile. Anatoly gets himself back in his pants, and sends you on your way saying, "Thanks babe, you''re the best."'
 							
 							gs 'arousal', 'bj', 5, 'sub'
 							gs 'arousal', 'end'
@@ -604,7 +604,7 @@ if $ARGS[0] = 'bj':
 	wantrand = rand(0, 3)
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/characters/city/anatoly/sex/bossbj<<numbjrand>>.jpg"></center>'
-	'You greedily wrap your <<$lip1>> lips around the head of his cock. Smiling up at Anatoly, you give you lips a playfully little pop, before you begin to suck in earnest.'
+	'You greedily wrap your <<$pc_desc[''lips'']>> lipss around the head of his cock. Smiling up at Anatoly, you give you lips a playfully little pop, before you begin to suck in earnest.'
 
 	gs 'arousal', 'bj', 5, 'sub'
 	gs 'stat'

locations/Cheatmenu_din.qsrc

@@ -206,68 +206,68 @@ $cheatmenu['bodyMod'] = {
 		'starving (No, you may not select ''starving'', it''s here to show where the scale starts)'
 		''
 		if salocatnow ! 1:
-			'<a href="exec:salo = 20 & gs ''body_shape'', ''softreset'' & gs ''stat'' & dynamic $cheatmenu[''bodyMod'']"><<$bodimgsets[((bodset * 10) + 1)]>></a>'
+			'<a href="exec:salo = 20 & gs ''body'', ''softreset'' & gs ''stat'' & dynamic $cheatmenu[''bodyMod'']"><<$bodimgsets[((bodset * 10) + 1)]>></a>'
 			''
 		end
 		if salocatnow ! 2:
-			'<a href="exec:salo = 40 & gs ''body_shape'', ''softreset'' & gs ''stat'' & dynamic $cheatmenu[''bodyMod'']"><<$bodimgsets[((bodset * 10) + 2)]>></a>'
+			'<a href="exec:salo = 40 & gs ''body'', ''softreset'' & gs ''stat'' & dynamic $cheatmenu[''bodyMod'']"><<$bodimgsets[((bodset * 10) + 2)]>></a>'
 			''
 		end
 		if salocatnow ! 3:
-			'<a href="exec:salo = 60 & gs ''body_shape'', ''softreset'' & gs ''stat'' & dynamic $cheatmenu[''bodyMod'']"><<$bodimgsets[((bodset * 10) + 3)]>></a>'
+			'<a href="exec:salo = 60 & gs ''body'', ''softreset'' & gs ''stat'' & dynamic $cheatmenu[''bodyMod'']"><<$bodimgsets[((bodset * 10) + 3)]>></a>'
 			''
 		end
 		if salocatnow ! 4:
-			'<a href="exec:salo = 80 & gs ''body_shape'', ''softreset'' & gs ''stat'' & dynamic $cheatmenu[''bodyMod'']"><<$bodimgsets[((bodset * 10) + 4)]>></a>'
+			'<a href="exec:salo = 80 & gs ''body'', ''softreset'' & gs ''stat'' & dynamic $cheatmenu[''bodyMod'']"><<$bodimgsets[((bodset * 10) + 4)]>></a>'
 			''
 		end
 		if salocatnow ! 5:
-			'<a href="exec:salo = 100 & gs ''body_shape'', ''softreset'' & gs ''stat'' & dynamic $cheatmenu[''bodyMod'']"><<$bodimgsets[((bodset * 10) + 5)]>></a>'
+			'<a href="exec:salo = 100 & gs ''body'', ''softreset'' & gs ''stat'' & dynamic $cheatmenu[''bodyMod'']"><<$bodimgsets[((bodset * 10) + 5)]>></a>'
 			''
 		end
 		if salocatnow ! 6:
-			'<a href="exec:salo = 120 & gs ''body_shape'', ''softreset'' & gs ''stat'' & dynamic $cheatmenu[''bodyMod'']"><<$bodimgsets[((bodset * 10) + 6)]>></a>'
+			'<a href="exec:salo = 120 & gs ''body'', ''softreset'' & gs ''stat'' & dynamic $cheatmenu[''bodyMod'']"><<$bodimgsets[((bodset * 10) + 6)]>></a>'
 			''
 		end
 		if salocatnow ! 7:
-			'<a href="exec:salo = 140 & gs ''body_shape'', ''softreset'' & gs ''stat'' & dynamic $cheatmenu[''bodyMod'']"><<$bodimgsets[((bodset * 10) + 7)]>></a>'
+			'<a href="exec:salo = 140 & gs ''body'', ''softreset'' & gs ''stat'' & dynamic $cheatmenu[''bodyMod'']"><<$bodimgsets[((bodset * 10) + 7)]>></a>'
 			''
 		end
 	else
 		if (pregchem < 2688) = 0:
-			'<a href="exec:pregchem = 100 & pregtime = 4 & gs ''body_shape'', ''softreset'' & gs ''stat'' & dynamic $cheatmenu[''bodyMod'']"><<$bodimgsets[((bodset * 10))]>></a>'
+			'<a href="exec:pregchem = 100 & pregtime = 4 & gs ''body'', ''softreset'' & gs ''stat'' & dynamic $cheatmenu[''bodyMod'']"><<$bodimgsets[((bodset * 10))]>></a>'
 			''
 		end
 		if (pregchem >= 2688 and pregchem < 3192) = 0:
-			'<a href="exec:pregchem = 2688 & pregtime = 112 & gs ''body_shape'', ''softreset'' & gs ''stat'' & dynamic $cheatmenu[''bodyMod'']"><<$bodimgsets[((bodset * 10) + 1)]>></a>'
+			'<a href="exec:pregchem = 2688 & pregtime = 112 & gs ''body'', ''softreset'' & gs ''stat'' & dynamic $cheatmenu[''bodyMod'']"><<$bodimgsets[((bodset * 10) + 1)]>></a>'
 			''
 		end
 		if (pregchem >= 3192 and pregchem < 3696) = 0:
-			'<a href="exec:pregchem = 3192 & pregtime = 133 & gs ''body_shape'', ''softreset'' & gs ''stat'' & dynamic $cheatmenu[''bodyMod'']"><<$bodimgsets[((bodset * 10) + 2)]>></a>'
+			'<a href="exec:pregchem = 3192 & pregtime = 133 & gs ''body'', ''softreset'' & gs ''stat'' & dynamic $cheatmenu[''bodyMod'']"><<$bodimgsets[((bodset * 10) + 2)]>></a>'
 			''
 		end
 		if (pregchem >= 3696 and pregchem < 4200) = 0:
-			'<a href="exec:pregchem = 3696 & pregtime = 154 & gs ''body_shape'', ''softreset'' & gs ''stat'' & dynamic $cheatmenu[''bodyMod'']"><<$bodimgsets[((bodset * 10) + 3)]>></a>'
+			'<a href="exec:pregchem = 3696 & pregtime = 154 & gs ''body'', ''softreset'' & gs ''stat'' & dynamic $cheatmenu[''bodyMod'']"><<$bodimgsets[((bodset * 10) + 3)]>></a>'
 			''
 		end
 		if (pregchem >= 4200 and pregchem < 4704) = 0:
-			'<a href="exec:pregchem = 4200 & pregtime = 175 & gs ''body_shape'', ''softreset'' & gs ''stat'' & dynamic $cheatmenu[''bodyMod'']"><<$bodimgsets[((bodset * 10) + 4)]>></a>'
+			'<a href="exec:pregchem = 4200 & pregtime = 175 & gs ''body'', ''softreset'' & gs ''stat'' & dynamic $cheatmenu[''bodyMod'']"><<$bodimgsets[((bodset * 10) + 4)]>></a>'
 			''
 		end
 		if (pregchem >= 4704 and pregchem < 5208) = 0:
-			'<a href="exec:pregchem = 4704 & pregtime = 196 & gs ''body_shape'', ''softreset'' & gs ''stat'' & dynamic $cheatmenu[''bodyMod'']"><<$bodimgsets[((bodset * 10) + 5)]>></a>'
+			'<a href="exec:pregchem = 4704 & pregtime = 196 & gs ''body'', ''softreset'' & gs ''stat'' & dynamic $cheatmenu[''bodyMod'']"><<$bodimgsets[((bodset * 10) + 5)]>></a>'
 			''
 		end
 		if (pregchem >= 5208 and pregchem < 5712) = 0:
-			'<a href="exec:pregchem = 5208 & pregtime = 217 & gs ''body_shape'', ''softreset'' & gs ''stat'' & dynamic $cheatmenu[''bodyMod'']"><<$bodimgsets[((bodset * 10) + 6)]>></a>'
+			'<a href="exec:pregchem = 5208 & pregtime = 217 & gs ''body'', ''softreset'' & gs ''stat'' & dynamic $cheatmenu[''bodyMod'']"><<$bodimgsets[((bodset * 10) + 6)]>></a>'
 			''
 		end
 		if (pregchem >= 5712 and pregchem < 6216) = 0:
-			'<a href="exec:pregchem = 5712 & pregtime = 238 & gs ''body_shape'', ''softreset'' & gs ''stat'' & dynamic $cheatmenu[''bodyMod'']"><<$bodimgsets[((bodset * 10) + 7)]>></a>'
+			'<a href="exec:pregchem = 5712 & pregtime = 238 & gs ''body'', ''softreset'' & gs ''stat'' & dynamic $cheatmenu[''bodyMod'']"><<$bodimgsets[((bodset * 10) + 7)]>></a>'
 			''
 		end
 		if (pregchem >= 6216) = 0:
-			'<a href="exec:pregchem = 6216 & pregtime = 259 & gs ''body_shape'', ''softreset'' & gs ''stat'' & dynamic $cheatmenu[''bodyMod'']"><<$bodimgsets[((bodset * 10) + 8)]>></a>'
+			'<a href="exec:pregchem = 6216 & pregtime = 259 & gs ''body'', ''softreset'' & gs ''stat'' & dynamic $cheatmenu[''bodyMod'']"><<$bodimgsets[((bodset * 10) + 8)]>></a>'
 			''
 		end
 	end
@@ -799,8 +799,8 @@ $cheatmenu['looks'] = {
 	if pcs_lip > 0:'<a href="exec:pcs_lip -= 1 & dynamic $cheatmenu[''looks'']">Shrink lips</a>'
 	*nl
 	'<<$skin>>'
-	if pcs_skin < 100: '<a href="exec:pcs_skin += 20 & gs ''body_shape'', ''basebeautycalc'', 1 & dynamic $cheatmenu[''looks'']">Improve skin</a>'
-	if pcs_skin > 0: '<a href="exec:pcs_skin -= 20 & gs ''body_shape'', ''basebeautycalc'', 1 & dynamic $cheatmenu[''looks'']">Worsen skin</a>'
+	if pcs_skin < 100: '<a href="exec:pcs_skin += 20 & gs ''body'', ''UpdateBaseAppearnce'' & dynamic $cheatmenu[''looks'']">Improve skin</a>'
+	if pcs_skin > 0: '<a href="exec:pcs_skin -= 20 & gs ''body'', ''UpdateBaseAppearnce'' & dynamic $cheatmenu[''looks'']">Worsen skin</a>'
 	if pcs_tan >= 0:'<a href="exec:pcs_tan += 10 & dynamic $cheatmenu[''looks'']">Become tanned</a>'
 	if pcs_tan > 0:'<a href="exec:pcs_tan = 0 & dynamic $cheatmenu[''looks'']">Remove tan</a>'
 	*nl
@@ -809,7 +809,7 @@ $cheatmenu['looks'] = {
 	if pcs_throat >= 5:'<a href="exec:pcs_throat -= 5 & dynamic $cheatmenu[''looks'']">Decrease throat capacity</a>'
 	if dounspell = 1:
 		*nl
-		'<a href="exec:dounsplkil = 2 & gs ''body_shape'', ''hardreset''">Hard Reset body shape</a>'
+		'<a href="exec:dounsplkil = 2 & gs ''body'', ''hardreset''">Hard Reset body shape</a>'
 	end
 
 	'</td><td width="33%" cellpadding="20" valign="top">'
@@ -840,7 +840,7 @@ $cheatmenu['looks'] = {
 	*nl
 	if dounspell = 0:
 		if fat ! 0: '<a href="exec:fat = 0 & dynamic $cheatmenu[''looks'']">Zero fat</a>'
-		'Body Fat = (<<salo>>): <a href="exec:salo -= 10 & gs ''body_shape'', ''softreset'' & dynamic $cheatmenu[''looks'']">-10</a> <a href="exec:salo -= 5 & gs ''body_shape'', ''softreset'' & dynamic $cheatmenu[''looks'']">-5</a> <a href="exec:salo -= 1 & gs ''body_shape'', ''softreset'' & dynamic $cheatmenu[''looks'']">-1</a> <a href="exec:salo += 1 & gs ''body_shape'', ''softreset'' & dynamic $cheatmenu[''looks'']">+1</a> <a href="exec:salo += 5 & gs ''body_shape'', ''softreset'' & dynamic $cheatmenu[''looks'']">+5</a> <a href="exec:salo += 10 & gs ''body_shape'', ''softreset'' & dynamic $cheatmenu[''looks'']">+10</a>'
+		'Body Fat = (<<salo>>): <a href="exec:salo -= 10 & gs ''body'', ''softreset'' & dynamic $cheatmenu[''looks'']">-10</a> <a href="exec:salo -= 5 & gs ''body'', ''softreset'' & dynamic $cheatmenu[''looks'']">-5</a> <a href="exec:salo -= 1 & gs ''body'', ''softreset'' & dynamic $cheatmenu[''looks'']">-1</a> <a href="exec:salo += 1 & gs ''body'', ''softreset'' & dynamic $cheatmenu[''looks'']">+1</a> <a href="exec:salo += 5 & gs ''body'', ''softreset'' & dynamic $cheatmenu[''looks'']">+5</a> <a href="exec:salo += 10 & gs ''body'', ''softreset'' & dynamic $cheatmenu[''looks'']">+10</a>'
 		'Note: You need some Body Fat to survive, any value under 11 is clasified as "starving" and a value of 0 can lead to a Game Over.'
 	end
 	*nl
@@ -956,7 +956,7 @@ $cheatmenu['parameters'] = {
 	'agilbuf = <<agilbuf>>'
 	'strenbuf = <<strenbuf>>'
 	'vitalbuf = <<vitalbuf>>'
-	'BMI (bmi_calc) = <<bmi_calc>>'
+	'BMI (pcs_bmi) = <<pcs_bmi>>'
 	'weight (pcs_weight) = <<pcs_weight>> kg'
 	'bust (pcs_bust) = <<pcs_bust>>'
 	'band (pcs_band) = <<pcs_band>>'
@@ -2202,7 +2202,7 @@ $cheatmenu['status'] = {
 		end
 	end
 
-	!<a href="exec:gs ''Cheatmenu_din'' & dynamic $cheatmenu[''status''] & gs ''stat''"><img src="<<FUNC(''$phone_theme'')>>icon_settings.png"></a>
+	!<a href="exec:gs ''Cheatmenu_din'' & dynamic $cheatmenu[''status''] & gs ''stat''"><img src="images/system/phone/theme/<<$phonetheme_name[pcs_phonetheme]>>/icon_settings.png"></a>
 	'</tr></table></b></center>'
 }
 

locations/Gnpc2.qsrc

@@ -351,7 +351,7 @@ $din_gboy_go_to_disco = {
 										'<h1><center><b><font color="maroon">Men''s room</font></b></center></h1>'
 										'<center><img <<$set_imgh>> src="images/shared/sex/blowjob/public.jpg"></center>'
 										*nl
-										'You squat in front of the guy and unbutton his pants to pull out his stiff dick. The other boys continue smoking and watch the scene. You begin to lick the purple head of his swollen cock and then you open your <<$liptalk>> and take the cock in your mouth. The Boys start laughing and commenting at what they see, "Look how she smacks those lips." Another echoed, "Where did you find such a cocksucker?" Unfortunately, there''s someone who knows you. "Hey that''s <<$pcs_nickname>> <<$pcs_lastname>>. Hot Damn!"'
+										'You squat in front of the guy and unbutton his pants to pull out his stiff dick. The other boys continue smoking and watch the scene. You begin to lick the purple head of his swollen cock and then you open your <<$pc_desc[''lips'']>> lips and take the cock in your mouth. The Boys start laughing and commenting at what they see, "Look how she smacks those lips." Another echoed, "Where did you find such a cocksucker?" Unfortunately, there''s someone who knows you. "Hey that''s <<$pcs_nickname>> <<$pcs_lastname>>. Hot Damn!"'
 										'You blush and your face burns with shame, sucking this dick in front of other guys. Finally the guy starts to cum in your mouth and you try as quickly as possible to swallow his warm sperm. When his cock finally goes limp he tucks it back in his pants. You get up from the floor and begin to wipe your mouth, knowing it now smells like cum. One of the guys chuckled, "Great blowjob, I wouldn''t mind one myself."'
 										gs 'boyStat', $boy[1]
 										

locations/KatjaHomeTalk.qsrc

@@ -249,7 +249,7 @@ if $ARGS[0] = '':
 			if lernHome > 0 and katjaQW['QWstage'] >= 2: 
 				act 'Do your homework together': 
 					minut += 5
-					gt 'KatjaEv','3'
+					gt 'KatjaHomeTalk', 'homework'
 				end
 			end
 
@@ -368,7 +368,7 @@ if $ARGS[0] = '':
 				act 'Suggest that you call Marcus':
 					*clr & cla
 					katjaQW['Marcus_day'] = daystart
-					mintu += 5
+					minut += 5
 					gs 'stat'
 					'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big14.jpg"></center>'
 					'Katja is looking aroused, so you suggest calling Marcus so that Katja can finally see what it''s like to have sex with a boy.'
@@ -382,7 +382,7 @@ if $ARGS[0] = '':
 				act 'Suggest that you call Marcus':
 					*clr & cla
 					katjaQW['Marcus_day'] = daystart
-					mintu += 5
+					minut += 5
 					gs 'stat'
 					'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big14.jpg"></center>'
 					'Katja is looking very aroused, so you suggest calling Marcus to see if he wants to have some fun with you.'
@@ -443,7 +443,7 @@ if $ARGS[0] = '':
 				end 
 			end
 
-			if katjaQW['QWstage'] = 6 and katjaQW['anal_ques'] >= 3 and katjaQW['slut'] > 100 and katjaQW['horny'] > 60: gt 'KatjaHomeSex', 'random_park_sex_talk'
+			if katjaQW['QWstage'] = 6 and katjaQW['anal_ques'] >= 3 and katjaQW['slut'] > 100 and katjaQW['horny'] > 60: gt 'KatjaHomeTalk', 'random_park_sex_talk'
 
 			if katjaQW['QWstage'] = 5 and katjaQW['marcus_pussy'] > 0: gt 'KatjaHomeTalk', 'first_boy_sex_follow_up'
 
@@ -620,7 +620,7 @@ if $ARGS[0] = 'katjaknows':
 		*nl
 		'You tell Katja that you''re having Kolka''s baby.'
 		'"You were knocked up by your brother!? That''s so sexy!" she moans before going in for a passionate kiss.'
-		'As your <<$liptalk3>> separate from hers, you look into her eyes. "I didn''t think admitting to incest would get me rewarded."'
+		'As your <<$pc_desc[''lips'']>> lips separate from hers, you look into her eyes. "I didn''t think admitting to incest would get me rewarded."'
 		'Katja chuckles. "I appreciate honesty and I think everyone should be free to explore their passions. Even if those passions revolve around riding your brother''s dick."'
 		'You find yourself questioning what you did to deserve such a wonderful woman in your life.'
 
@@ -631,7 +631,7 @@ if $ARGS[0] = 'katjaknows':
 		*nl
 		'You tell Katja that you''re having your step-father''s baby.'
 		'"You were knocked up by your step-dad!? That''s so sexy!" she moans before going in for a passionate kiss.'
-		'As your <<$liptalk3>> separate from hers, you look into her eyes. "I didn''t think admitting to incest would get me rewarded."'
+		'As your <<$pc_desc[''lips'']>> lips separate from hers, you look into her eyes. "I didn''t think admitting to incest would get me rewarded."'
 		'Katja chuckles. "I appreciate honesty and I think everyone should be free to explore their passions. Even if those passions are part of an Electra complex."'
 		'You find yourself questioning what you did to deserve such a wonderful woman in your life.'
 
@@ -642,7 +642,7 @@ if $ARGS[0] = 'katjaknows':
 		*nl
 		'You tell Katja that you''re having your biological father''s baby.'
 		'"You were knocked up by your own father!? That''s so sexy!" she moans before going in for a passionate kiss.'
-		'As your <<$liptalk3>> separate from hers, you look into her eyes. "I didn''t think admitting to incest would get me rewarded."'
+		'As your <<$pc_desc[''lips'']>> lips separate from hers, you look into her eyes. "I didn''t think admitting to incest would get me rewarded."'
 		'Katja chuckles. "I appreciate honesty and I think everyone should be free to explore their passions. Even if those passions are part of an Electra complex."'
 		'You find yourself questioning what you did to deserve such a wonderful woman in your life.'
 
@@ -653,7 +653,7 @@ if $ARGS[0] = 'katjaknows':
 		*nl
 		'You tell her that you don''t actually know whose baby is growing inside of you.'
 		'"You''re such a sexy slut!" she moans before going in for a passionate kiss.'
-		'As your <<$liptalk3>> separate from hers, you look into her eyes. "I''m really glad you''re not judging me like a lot of other people have."'
+		'As your <<$pc_desc[''lips'']>> lips separate from hers, you look into her eyes. "I''m really glad you''re not judging me like a lot of other people have."'
 		'"<<$pcs_nickname>>, I would never judge you. Plus, if I''m being honest, I''m a little jealous. I wish I could let myself have that much fun."'
 		'You find yourself questioning what you did to deserve such a wonderful woman in your life.'
 
@@ -787,6 +787,26 @@ if $ARGS[0] = 'shower_kiss_home':
 	end	
 end
 
+if $ARGS[0] = 'homework':
+	*clr & cla
+	menu_off = 1
+	minut += 30
+	npc_rel['A14'] += 2
+	gs 'grades', 'homework', 'school', 'yes', 1, 1, 'A14'
+	lern += rand(2, 4)
+	intel_exp += rand(0, 1) + (mentats_dose - rand(0,mentats_dose))
+	gs 'stat'
+	'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big14.jpg"></center>'
+	'For half an hour you and Katja pour over your books, you fully learn the lessons and pretty well understand the material.'
+
+	act 'Finish': gt 'KatjaHomeTalk'
+	if mey_vika['key'] = 1:
+		act 'Leave the room': gt 'mey_home', 'start'
+	else
+		act 'Say goodbye and leave': minut += 5 & gt 'pav_residential'
+	end
+end
+
 if $ARGS[0] = 'Sextalk':
 	'Turning red, Katja looks at you thoughtfully.'
 	kattalkrand = rand(0, 4)
@@ -1008,7 +1028,7 @@ if $ARGS[0] = 'hornykiss':
 		if katjaQW['horny'] < 50:
 
 			if rand(0, 50) < 15:
-				act 'Kiss': gt 'katjaEv', 'kiss'
+				act 'Kiss': gt 'katjaEvDin', 'kiss'
 			else
 				katjaQW['horny'] += 5
 				'Katja giggles and pushes your face away from her.'
@@ -1029,13 +1049,13 @@ if $ARGS[0] = 'hornykiss':
 							!!act 'Continue':minut += 15 & gt 'KatjaHomeTalk'
 						!!else
 							'Katja looks into your eyes.'
-							act 'Kiss': gt 'katjaEv', 'kiss'
+							act 'Kiss': gt 'katjaEvDin', 'kiss'
 						!!end
 					end
 				!!end
 			end
 		else
-			act 'Kiss': gt 'katjaEv', 'kiss'
+			act 'Kiss': gt 'katjaEvDin', 'kiss'
 		end
 	end
 end
@@ -1051,7 +1071,7 @@ if $ARGS[0] = 'tender_kiss':
 		'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big14.jpg"></center>'
 		'You smile at Katja and say that you''ve kissed boys. Katja, even more shyly, continues. "You see, I like this guy, but he''s older than me and I''m afraid that when we start to kiss, I''ll do something wrong. Could you teach me how to kiss?"'
 
-		act 'Kiss': gt 'katjaEv', 'kiss'
+		act 'Kiss': gt 'katjaEvDin', 'kiss'
 
 		act 'Refuse':
 			*clr & cla
@@ -1061,7 +1081,7 @@ if $ARGS[0] = 'tender_kiss':
 		
 			act 'Relent': 
 				katjaQW['dom'] += 2 
-				gt 'katjaEv', 'kiss'
+				gt 'katjaEvDin', 'kiss'
 			end
 			
 			gs 'willpower', 'kiss', 'resist', 'medium'
@@ -1091,7 +1111,7 @@ if $ARGS[0] = 'tender_kiss':
 		gs 'stat'
 		'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big14.jpg"></center>'
 		'You shake your head and say that you''ve never kissed a boy. Katja, even more shyly, continues. "You see, I like this guy but he''s older than me and I''m afraid that when we start to kiss, I''ll do something wrong. Maybe we could try kissing and learn that way?"'
-		act 'Kiss': gt 'katjaEv', 'kiss'
+		act 'Kiss': gt 'katjaEvDin', 'kiss'
 
 		act 'Refuse':
 			*clr & cla
@@ -1101,7 +1121,7 @@ if $ARGS[0] = 'tender_kiss':
 		
 			act 'Relent': 
 				katjaQW['dom'] += 2 
-				gt 'katjaEv', 'kiss'
+				gt 'katjaEvDin', 'kiss'
 			end
 
 			gs 'willpower', 'kiss', 'resist', 'medium'
@@ -1129,7 +1149,7 @@ end
 
 if $ARGS[0] = 'marcus_kiss':
 	*clr & cla
-	mintu += 5
+	minut += 5
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/katja_kiss.jpg"></center>'
 	'Katja almost jumps you and gives you a kiss. Afterwards, she looks at you a little hesitantly. "You know, having Marcus over is quite fun, so why don''t we call him right now?"'
@@ -1137,10 +1157,254 @@ if $ARGS[0] = 'marcus_kiss':
 	act 'You''re not in the mood': katjaQW['horny'] -= 20 & gt 'KatjaHomeTalk'
 end
 
+if $ARGS[0] = 'TamVal':
+	*clr & cla
+	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/TK.jpg"></center>'
+	'Katja has left her phone at home, so you have a quick visit to her room, but as you reach the entry hall, some words reach your ears. Two women are talking in the living room.'
+	'"Oh Aunt Tamara! It has been marvelous to be with you again, but it is so unjust that my job only lets me see you so little, and I... I want to return all the favors you have given me."'
+	'The woman sounds young and, you must say, a little flirty? Turning towards Katja, you see recognition and surprise in her eyes.'
+	'"It is my pleasure Valentina, but you don''t need to do anything. What you must do is concentrate on your studies and work. With that, I''m served, but it is late and I think we must say goodbye. So, Valentina?"'
+	'The older woman sounds a lot more serious, but not without fondness, then suddenly they shut up and some muffled sounds reach your ears. Katja takes your hand and sneaks deeper into the house, where you see two women, embraced and kissing affectionately. Maybe too affectionately for a goodbye kiss. By your side, Katja gasps and the two women turn towards you. The older one smiles, unperturbed at the sudden interruption. The younger (not much older than you), after a moment, tightens her embrace and gives you a somewhat defiant smile.'
+	'"Oh Ekaterina! Look who has come to see us! Valentina!"'
+	'Katja mumbles something that sounds like a "hello", then without loosening her grip on your hand, quickly takes you towards her bedroom. As you two enter, she throws herself at the bed and muffles a scream in the pillow.'
+	minut += 5
+	gs 'stat'
+
+	act 'Katja is confused':
+		menu_off = 1
+		*clr & cla
+		katjaQW['QWstage'] = 2
+		'<center><b><font color="maroon"><<$npc_firstname[''A14'']>> <<$npc_lastname[''A14'']>></font></b></center>'
+		'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big14.jpg"></center>'
+		'You try to calm the hyper-ventilating redhead as she maniacally gets up and takes a peek beyond her room''s door. Finally, she calms enough to talk with you.'
+		'"<<$pcs_nickname>>, you saw that didn''t you? I mean... they were... oh God!"'
+		'Taking her hand, you force Katja to sit by your side and embrace the redhead, mostly to stop her from driving you crazy.'
+		'"There there Katja. Just stop and breathe."'
+		'She takes your advice, and takes a big gulp of air. That seemed to quieten her down, deflating and returning her to a more "normal" mindstate. Even at that, she is troubled.'
+		'"Sorry <<$pcs_nickname>>, it''s just that a lot of things suddenly made sense. Look, Valentina lived here some time ago here. I don''t know all the history, but she left her mother to live in the city and ended up in some kind of trouble. Mom welcomed her to our home, and... remember how she clung to my mom? Valentina was always that way and seemed jealous of Vicky and me and now I''m thinking..."'
+		'"That maybe your mother and Valentina were, or are, lovers? That troubles you? You don''t like that?"'
+		'Katja looks at you with a mix of emotions in her face. Confusion, surprise, doubt, fear. She opens and closes her mouth, looks at you, blushes and says something surprising...'
+		'"I don''t know... maybe? I never thought about something like that. Ehm... <<$pcs_nickname>>... what would you think, if I... I mean... ehm... behaved like Valentina and... tried to kiss you?"'
+
+		minut += 5
+		gs 'stat'
+
+		gs 'willpower', 'kiss', 'force', 'hard'
+
+		if will_cost <= pcs_willpwr:
+			act '"What if I''m the one that wants to kiss you?" (<<will_cost>> Willpower)':
+				*clr & cla
+				'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/katja_kiss.jpg"></center>'
+				'At your ballsy question, Katja answers in one of the most logical ways. The blush in the already agitated girl''s cheeks extends, encompassing her face, neck and you assume her body. She looks like a pressure cooker about to explode. The next part is less logical, as she opens her mouth and tries to talk, but coughs. After licking her lips, she answers in a raspy and unsure voice.'
+				'"Yes?"'
+				'You lean against her and give her a little kiss on the lips. She doesn''t react, so you continue, grabbing at her face, cheeks and neck. Her hands raise against your chest, but she doesn''t try to push you away. In fact, she begins to kiss you back.'
+				'This escalates into an awkward make out, as the inexperienced girl shyly tries to follow your lead, biting you on more than one occasion. More and more, your lips and eventually tongues mix, arousing the two of you in an ever-increasing loop, but it all stops when Katja gives a surprised "Epp!" and moves away from you.'
+				'It seems that one of your hands had somehow reached below her clothes and, well, began to play with one of her tits. Now the two of you are looking at the transgressive hand in confusion. Biting her lips, she looks around nervously and tries to fix her ruffled clothes.'
+				'"That was... woah. Hmmm... Something <<$pcs_nickname>>"'
+
+				gs 'willpower', 'pay', 'force'
+				gs 'willpower', 'pay', 'force', 'hard'
+				npc_rel['A14'] += 1
+				katjaQW['slut'] += 5
+				katjaQW['dom'] -= 2
+				katjaQW['QWstage'] = 3
+				minut += 5
+				pcs_mood += 10
+				gs 'arousal', 'kiss', 10
+				gs 'stat'
+
+				act 'Time to leave': gt 'katjaHomeTalk','TamVal_2'
+			end
+		else
+			act '"What if I''m the one that wants to kiss you?" (<font color="red"><<will_cost>> Willpower</font>)': Msg '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+		end
+
+		gs 'willpower', 'kiss', 'self'
+
+		if will_cost <= pcs_willpwr:
+			act '"Katja... want to try it?" (<<will_cost>> Willpower)':
+				*clr & cla
+				'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/katja_kiss.jpg"></center>'
+
+				'Katja''s eyes open wide and, for a moment, you have the sensation that somehow you have fucked this, but she doesn''t say or do anything. She just sits by your side and looks intensely at your face.'
+				'"Yes"'
+				'You practically didn''t hear Katja''s whispered word before she leans against you and softly kisses your lips. It barely touches your skin and you think that is the end until her hands reach towards you and grab your clothes, holding you in place.'
+				'She begins kissing you slowly... experimentally. Little kisses all over your lips, with a surprising intensity in Katja''s eyes. Soon, things escalate as her tongue tries to pry open your mouth. You aren''t going to lie, she isn''t good at this, and more than one time, she bites you maybe a little too hard but. You. Don''t. Care.'
+				'You end up laying down on Katja''s bed with her all over you. The make out session quickly escalates and you find yourself gasping for oxygen as Katja tries to reach your tonsils with her tongue (and bites you again). A part of your aroused mind barely registers that the redhead is reaching under your clothes, towards your bust and... She stops?!'
+				'A confused "Hu?" escapes your lips as you try to understand what just happened. Katja has retreated to the bed''s headboard. Biting her lips, she looks around nervously and tries to fix her ruffled clothes.'
+				'"That was. Woah. Hm. Something <<$pcs_nickname>>"'
+
+				gs 'willpower', 'pay', 'self'
+				gs 'willpower', 'pay', 'self', 'hard'
+				npc_rel['A14'] += 1
+				katjaQW['slut'] += 5
+				katjaQW['QWstage'] = 3
+				minut += 5
+				pcs_mood += 10
+				gs 'arousal', 'kiss', 10
+				gs 'stat'
+
+				act 'Time to leave': gt 'katjaHomeTalk','TamVal_2'
+			end
+		else
+			act '"Katja... want to try it?" (<font color="red"><<will_cost>> Willpower</font>)': Msg '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+		end
+
+		act 'Stare at her awkwardly.':
+			*clr & cla
+			'<center><b><font color="maroon"><<$npc_firstname[''A14'']>> <<$npc_lastname[''A14'']>></font></b></center>'
+			'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big14.jpg"></center>'
+			'"Hu?!"'
+			'That is the most your brain seems capable of answering to Katja''s question and obviously she didn''t take it too well.'
+			'"Sorry <<$pcs_nickname>>! I wasn''t insinuating... I mean... I didn''t want to... ehm..."'
+			'You stare at her. She stares at you. The silence only seems to make the two of you more embarrassed by the second... fuck!'
+			pcs_mood -= 10
+			npc_rel['A14'] -= 5
+			minut += 5
+			gs 'stat'
+
+			act 'Time to leave': gt 'katjaHomeTalk','TamVal_2'
+		end
+
+		if succubusQW = 5:
+			act 'Answer Succubus style':
+				*clr & cla
+				'<center><b><font color="maroon"><<$npc_firstname[''A14'']>> <<$npc_lastname[''A14'']>></font></b></center>'
+				'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big14.jpg"></center>'
+				'"Jajaja! That is easy Katja! I''ll show you things that your "mama" never taught you!"'
+				'You smile as Katja, the cutest human tomato, stares back at you with exploding eyes. She then jumps from the bed and screams at you, half angrily, half embarrassed.'
+				'"<<$pcs_nickname>>! I wasn''t joking! This is a hard moment for me!"'
+				'You can''t stop smiling at her cuteness, but the truth is that Katja''s childishness is getting boring. Her mother has a worshiping toygirl at her beck and call, Vicky has acquired the munch-eating services of a rock-hard-abs jock. Well, Katja can have a fucking superhuman succubus! What is she thinking?! End up as the only virgin in your class? Time to change that.'
+				'"Ok Katja, time for a lesson. Let''s get naked."'
+				'You begin to take away your clothes as a flabbergasted Katja stops in her tracks and tries to process what you just said.'
+				'"Eh... what? <<$pcs_nickname>>, is this a joke?"'
+				gs 'stat'
+
+				act 'No it isn''t':
+					*clr & cla
+					'<center><img <<$set_imgh>> src="images/pc/body/succubusself.jpg"></center>'
+					'You call <<$sucself1>> up from its resting place'
+					'It fills you completely, suffusing through your being with power...'
+					'<font color="red"><b>and hunger</b></font>'
+					'In an instant, the Veil breaks and Katja is exposed to all your radiance. Fear crosses her eyes before the fake reality reasserts its influence and obfuscates her perceptions, but by that moment, tendrils of your mana have connected with her deepest desires.'
+					'Slowly... Timidly... Katja begins to undress and she stands before you in only her panties, trying desperately to cover herself and looking mortified. You are surprised that she has the will to leave that last piece of clothing, but, damn, if she isn''t a cute vision!'
+					'"Come here Katja! Just relax! We aren''t going to do anything wrong!"'
+					gs 'stat'
+
+					act 'She sits on the bed.':
+						*clr & cla
+						'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/sex/SL1.jpg"></center>'
+						'"Ok <<$pcs_nickname>>... what... what are you planning to do?"'
+						'You don''t answer. In it''s place, there is only an embrace. Katja squirms nervously, but doesn''t try to break away. Kissing her beautiful neck, you wait and let the redhead relax... A  difficult task, so after a few minutes, your hands begin to roam her body.'
+						'"Listen to me shy, innocent, self-conscious, virginal Katja. From now on, you will respond only with "Oh... oh... oh..." Do you understand my pet?"'
+						'Your right hand finally reaches between her legs and rests over the soft fabric of her panties. A promise of things to come... stopping when she closes her legs.'
+						'"<<$pcs_nickname>>! Ouch!"'
+						'At Katja''s transgression, you give her crotch a little pinch, startling her, but making her shut up. Your enhanced senses let you caress all her erogenous zones and soon she is moaning, forgetting her reluctance at your dominant act.'
+						'"It is ok my pet. Just... let me do all the work. But first, I need you to give me something... will you let me in?"'
+						'She looks at you confused, but unquestionably aroused. With a vague understanding of your words, she opens her legs.'
+						gs 'stat'
+
+						act 'Time to take a "gift"':
+							*clr & cla
+							'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/sex/SL2.jpg"></center>'
+							'Even through the silky fabric, you can sense her lower labia engorging with blood. Hot and wet, she is ready for your first "lesson"'
+							'"We are going to do it slowly, don''t get nervous."'
+							'Katja leans against you and closes her eyes. With a hand, you pull away the last obstacle towards her cunt and with the other, caress her lips. Katja just moans at your teasing, her hips moving unwittingly in the quest for more pleasure.'
+							'You continue touching her, helping the excited clitoris to reach beyond its little prison, and putting it under your assault. Little by little, you feel Katja''s hotness and wetness permeate her pussy, making it easy for you to insert your fingers into the tightly closed slit'
+							'"Oh?"'
+							'That is the only word that escapes Katja''s mouth as your index and middle fingers travel through her more secret of places. The aroused flesh barely resists your intrusion as the fingertips reach an intact barrier that obediently parts before your assault. You move your fingers in a scissorlike motion.'
+							'"Ouch!"'
+							'You retire the hand and raise it so the no-longer little girl can see it. Between your fingers, covered in her slickness, a pinkish hue can be appreciated.'
+							gs 'stat'
+
+							act 'Ending the lesson':
+								*clr & cla
+								'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/sex/SL3.jpg"></center>'
+								'Katja looks dumbfounded at your hand. Her inexperience makes it difficult for the redhead to understand what just happened. Suddenly, her eyes open in realization and you kiss her while congratulating the woman between your arms.'
+								'"Congratulations Ekaterina Meynold! You are now a grown up woman! And grown ups get gifts."'
+								'Too shocked and aroused, Katja lets you lie her on the bed, take away her panties, and go down on her. She has lost any reservation to be heard, and her moans fill the room. Your assault on her pussy, united to the arousal your touch has brought, makes her happily thrash all over the bed.'
+								'You feel it when Katja raises her hips and a long guttural grunt escape her lips. She orgasms, and in that instant, a sympathetic link triggers, letting her energy flow towards you. Katja moans again and again as your feeding triggers orgasm after orgasm.'
+								'Finally, exhausted, Katja lies on the bed, cuddling against you. For the next few minutes she doesn''t say anything, and in fact, seems to be on the brink of dozing off. You begin to pick up your clothes. It is probably best if you leave now.'
+								gs 'arousal', 'vaginal_finger_give', 10, 'lesbian'
+								gs 'arousal', 'cuni_give', 10, 'lesbian'
+								pcs_mood += 20
+								katjaQW['slut'] += 20
+								npc_rel['A14'] += 5
+								if npc_sex['A14'] = 0: girl += 1 & npc_sex['A14'] = 1
+								if npc_vag['A14'] = 0: npc_vag['A14'] = 1
+								katjaQW['QWstage'] = 3
+								npcbrokehymen = 1
+								KatjaQW['dom'] -= 5
+								sexnutrition += 25 * scfeed
+								suclezsex = lesbian
+								succubxp += 6
+								sucabslez = 1
+								gs 'stat'
+
+								act 'Time to leave': gt 'katjaHomeTalk', 'TamVal_2'
+							end
+						end
+					end
+				end
+			end
+		end
+	end
+end
+
+if $ARGS[0] = 'TamVal_2':
+	*clr & cla
+	'<center><b><font color="maroon"><<$npc_firstname[''A14'']>> <<$npc_lastname[''A14'']>></font></b></center>'
+	'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big14.jpg"></center>'
+	'A few minutes pass with Katja in contemplative silence before you finally decide to leave, but as you reach for the door, she finally talks.'
+	 '"Hey <<$pcs_nickname>>! I... look this is going to sound awkward, Especially... ehm... taking into consideration what just happened... I was thinking about this before, well, you know. Will you want to... come home to study? I''m not trying to... Ehm... Fuck!"'
+	'You smile at Katja''s awkwardness.'
+	'"Yes, I would like that Katja, don''t worry."'
+	'She gives you a timid smile before climbing under her bed''s covers as you leave. This has been a full afternoon. There is nothing more for you here... Except Katja''s mother waiting for you in the entry hall...'
+	minut += 5
+	gs 'stat'
+
+	act 'A Talk':
+		*clr & cla
+		menu_off = 1
+		'<center><h4><font color="maroon">Tamara Mikhailovna</font></h4></center>'
+		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/meynolds/tamara.jpg"></center>'
+
+		if zz_stage >= 1:
+			'"So...<<$pcs_nickname>>, what exactly is troubling my daughter?"'
+			'She is asking you without concern, and for a moment, you don''t know what to say, but finally decide to answer.'
+			'"She is troubled about the fact that Valentina and you are in a... well... romantic relationship."'
+			'Tamara seems to think about your answer, and finally gives a somewhat exasperated sigh.'
+			'"It''s seems I must talk with this girl. Well, thanks <<$pcs_nickname>>... Hm... A moment, what do you think my relationship with Valentina is?"'
+			'Ok, that is, without a doubt, a loaded question. Licking your lips, you try to give a more or less educated answer.'
+			'"Sincerely? I don''t know, but she seemed... Ehm..."'
+			'"Too clingy? Yes indeed <<$pcs_nickname>>. Valentina isn''t the first girl I have helped to get back on her feet, but she is without a doubt the most "grateful"... Sigh... Well... A pleasure, but I must talk with my daughter."'
+			'Finally, after saying your goodbyes, you leave the house.'
+
+		else
+			'"<<$pcs_nickname>> isn''t it? I''m Tamara Mikhailovna, my pleasure."'
+			'"Hello Mrs. Mikhailovna."'
+			'"So... <<$pcs_nickname>>, what exactly is troubling my little girl?"'
+			'She is asking you without concern, and for a moment, you don''t know what to say, but finally decide to answer.'
+			'"She is troubled about the fact that Valentina and you are in a... well... romantic relationship."'
+			'Tamara seems to think about your answer, and finally gives a somewhat exasperated sigh.'
+			'"It''s seems I must talk with this girl. Well, thanks <<$pcs_nickname>>... Hm... A moment, what do you think my relationship with Valentina is?"'
+			'Ok, that is, without a doubt, a loaded question. Licking your lips, you try to give a more or less educated answer.'
+			'"Sincerely? I don''t know, but she seemed... Ehm..."'
+			'"Too clingy? Yes indeed <<$pcs_nickname>>. Valentina isn''t the first girl I have helped to get back on her feet, but she is without a doubt the most "grateful"... Sigh... Well... A pleasure, but I must talk with my daughter."'
+			'Finally, after saying your goodbyes, you leave the house.'
+		end
+
+		minut += 5
+		gs 'stat'
+
+		act 'Leave':gt 'pav_residential'
+	end
+end
+
 if $ARGS[0] = 'boy_discussion':
 	*clr & cla
 	katjaQW['QWstage'] = 5
-	mintu += 5
+	minut += 5
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big14.jpg"></center>'
 	if  Marcus_sextype > 0:
@@ -1148,7 +1412,7 @@ if $ARGS[0] = 'boy_discussion':
 		'"I sometimes have sex with Marcus, and I can tell you he is really into Russian girls. I''m sure that he would love to pop the cherry of a Russian beauty like you."'
 		'"Marcus is very good looking.... If you think he would be willing to have sex with a girl like me..." Katja trails off, starting to sound nervous again.'
 		'"I''m sure that he would love to have sex with you. As any man who isn''t gay would," you answer. Katja''s face brightens up and she moves towards you for a kiss.'
-		act 'Kiss her back': gt 'katjaEv', 'kiss'
+		act 'Kiss her back': gt 'katjaEvDin', 'kiss'
 	else
 		katjaQW['horny'] += 10
 		'"Do you have any boy in mind?" you ask. 
@@ -1168,7 +1432,7 @@ end
 if $ARGS[0] = 'anal_discussion':
 	*clr & cla
 	katjaQW['anal_quest'] = 2
-	mintu += 5
+	minut += 5
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big14.jpg"></center>'
 	if  IvanShowerQW = 11:
@@ -1176,7 +1440,7 @@ if $ARGS[0] = 'anal_discussion':
 		'"Ivan seems to be very interested in our kissing. I sometimes have anal sex with him. You can say we''re what you call ''friends with benefits''. I think he might be interested," you tell her.'
 		'"Ivan is hot... I''ve also heard that he''s really into anal sex. Yeah, if you think he''s willing, then..." Katja is having trouble finding the words as she gets visibly excited thinking about it.'
 		'"I''ll talk to Ivan about it at school and arrange a meeting if he''s up for it," you answer and Katja throws her arms around you and goes in for a kiss.'
-		act 'Kiss her back': gt 'katjaEv', 'kiss'
+		act 'Kiss her back': gt 'katjaEvDin', 'kiss'
 	else
 		katjaQW['horny'] += 10
 		'"Do you have any boy in mind?" you ask. 
@@ -1196,7 +1460,7 @@ end
 
 if $ARGS[0] = 'preventation_talk':
 	*clr & cla
-	mintu += 5
+	minut += 5
 	gs 'stat'
 	katjaQW['birth_control_start_day'] = daystart + 15
 	'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big14.jpg"></center>'	
@@ -1215,7 +1479,7 @@ end
 if $ARGS[0] = 'random_park_sex_talk':
 	*clr & cla
 	katjaQW['QWstage'] = 7
-	mintu += 5
+	minut += 5
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big14.jpg"></center>'
 	'Katja gives you the most sultry look she can muster. "You know, sex with Ivan and Marcus is great and all, but I was thinking that it might be time to try other boys."'
@@ -1259,7 +1523,7 @@ end
 if $ARGS[0] = 'sex_with_boy_ask':
 	*clr & cla
 	katjaQW['QWstage'] = 4
-	mintu += 5
+	minut += 5
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big14.jpg"></center>'
 	'Katja looks at you nervously, but with that look in her eyes that tells you she''s thinking about something naughty. "You''ve told me all about how good it is to have sex with a boy," she meekly says. "I... I think... I think I would like to try it too..."'
@@ -1287,7 +1551,7 @@ if $ARGS[0] = 'sex_with_boy_ask':
 			minut += 5
 			'She stops begging and looks at you with lust in her eyes.'
 			act 'Talk about something else': gt 'KatjaHomeTalk'
-			act 'Kiss her': gt 'katjaEv', 'kiss'
+			act 'Kiss her': gt 'katjaEvDin', 'kiss'
 		end
 		act 'Tell her to stick with girls':
 			cla
@@ -1302,7 +1566,7 @@ end
 if $ARGS[0] = 'Marcus_answer_talk':
 	*clr & cla
 	katjaQW['marcus_asked'] = 2
-	mintu += 5
+	minut += 5
 	katjaQW['Marcus_day'] = daystart
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big14.jpg"></center>'
@@ -1325,7 +1589,7 @@ end
 if $ARGS[0] = 'first_boy_sex_follow_up':
 	*clr & cla
 	katjaQW['QWstage'] = 6
-	mintu += 5
+	minut += 5
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big14.jpg"></center>'
 	'Katja gives you a big hug. "Thank you! The experience with Marcus was great!" she says with a huge grin.'
@@ -1346,7 +1610,7 @@ end
 
 if $ARGS[0] = 'anal_sex_with_boy_ask':
 	*clr & cla
-	mintu += 5
+	minut += 5
 	gs 'stat'
 	katjaQW['anal_quest'] = 1
 	'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big14.jpg"></center>'
@@ -1375,7 +1639,7 @@ if $ARGS[0] = 'anal_sex_with_boy_ask':
 			minut += 5
 			'She stops begging and looks at you with lust in her eyes.'
 			act 'Talk about something else': gt 'KatjaHomeTalk'
-			act 'Kiss her': gt 'katjaEv', 'kiss'
+			act 'Kiss her': gt 'katjaEvDin', 'kiss'
 		end
 		act 'Tell her to stick to girls':
 			cla

locations/Katja_Tanga.qsrc

@@ -170,7 +170,7 @@ if $ARGS[0] = 'school3':
 			'Blushing, Katja pulls away from you and buttons her shirt back up, but looks at you with a sly grin. "I have a key to a storage closet. We can go there for a bit more privacy if you want..." She gives you pleading eyes, hoping that you''ll agree.'
 			act 'Go': gt 'Katja_tanga', 'secretroom'
 		else
-			ketjaQW['horny'] += 10
+			katjaQW['horny'] += 10
 			if katjaQW['school_sex'] = 1: katjaQW['slut'] +=1
 			'Blushing, Katja pulls away from you and buttons her shirt back up, looking around to see if anyone had seen you. "<<$pcs_nickname>>, are you crazy?! Someone could have seen us! What would they say?!"'
 		end

locations/MartinSex.qsrc

@@ -14,7 +14,7 @@ if $ARGS[0] = '':
 	if MartinSexTalk = 0 and MartinSex = 0:
 		'You approach Martin as he''s cleaning the floor. The bartender raises his head when he notices you.'
 		'"Oh, I didn''t think you were still here, <<$pcs_firstname>>."'
-		'You pout your <<$pcdesc_lipsrandom>> lips. "If you are that unhappy about it, maybe you want me to leave?"'
+		'You pout your <<$pc_desc[''lip size'']>> lips. "If you are that unhappy about it, maybe you want me to leave?"'
 		'He gives you a half-smile. "No, of course not."'
 		'"Thought so," you say, smiling back.'
 
@@ -86,7 +86,7 @@ if $ARGS[0] = '':
 				'But... you are just friends, right? You like hanging out at the bar, like that Martin has an open ear for you, treats you the same as his regulars. Okay, maybe he is a little more protective of you than of his other regulars every now and then, but he is a good man, a good friend, and it might be a mistake to risk all that for... what?'
 				*nl
 				'Your inability to answer that question makes the decision for you, and you just have a normal chat with Martin.'
-				'Every now and then, you get a little flirty or add a double entendre, but you keep the conversation light and friendly overall, same as you would during your regular visits and talks. You catch up on the day-to-day' + iif($MartinHobby!'',', your <<$MartinHobby>>,','') + ' and talk about a few other trivial things, doing your best to ignore his occasional glance at your <<$pcdesc_breastsrandom>> breasts.'
+				'Every now and then, you get a little flirty or add a double entendre, but you keep the conversation light and friendly overall, same as you would during your regular visits and talks. You catch up on the day-to-day' + iif($MartinHobby!'',', your <<$MartinHobby>>,','') + ' and talk about a few other trivial things, doing your best to ignore his occasional glance at your <<$pc_desc[''breast'']>> breasts.'
 				*nl
 				'After about half an hour, you decide that you should let Martin finish up for the night. After a brief but friendly goodnight, you leave the bar with a tingly stomach - whether it''s purely from lustful longing or more, you''re not sure, but you know that the only way to find out is to talk to Martin when he''s alone again.'
 				'<i>Maybe tomorrow</i>, you think to yourself.'
@@ -102,9 +102,9 @@ if $ARGS[0] = '':
 				'You don''t know when this thing with Martin went from friendly chats and idle flirts to something else, but there is a tingling in your belly, and lower, when you look at him that you would very much like to act on...'
 				'And since Martin is trying his best to hide his interest and it doesn''t look like he is gonna do you the favor of making the first step, you will have to take matters into your own hands.'
 				*nl
-				'You flirt more aggressively than you have up until now: You smile more,' + iif(pcs_hairlng>81,' play with your <<$pcdesc_hairobjectwordy>>,','') + ' touch his arm every now and then, even move and lean over in ways that give him good looks at your <<$pcdesc_breastsrandom>> cleavage or <<$body>> butt - in other words, you drop about as many hints as womanly possible, short of stripping right then and there.'
+				'You flirt more aggressively than you have up until now: You smile more,' + iif(pcs_hairlng>81,' play with your <<$pcdesc_hairobjectwordy>>,','') + ' touch his arm every now and then, even move and lean over in ways that give him good looks at your <<$pc_desc[''breast'']>> cleavage or <<$body>> butt - in other words, you drop about as many hints as womanly possible, short of stripping right then and there.'
 				*nl
-				'Twenty minutes pass like that and you are starting to wonder if Martin is playing hard to get or if he really is oblivious to what you''re doing... when he visibly catches himself staring at your <<$pcdesc_lipglossrandom>> lips and suddenly declares: "You shouldn''t get involved with me."'
+				'Twenty minutes pass like that and you are starting to wonder if Martin is playing hard to get or if he really is oblivious to what you''re doing... when he visibly catches himself staring at your <<$pc_desc[''lip gloss'']>> lips and suddenly declares: "You shouldn''t get involved with me."'
 				'"Excuse me?" You are so astonished by what he said that you are almost sure you misheard him.'
 				*nl
 				'But no. "You shouldn''t get involved with me," he repeats, a strange, wistful look in his eyes. "You are young, smart, and beautiful. You are wasting your time here."'
@@ -247,7 +247,7 @@ if $ARGS[0] = '':
 	elseif MartinSexTalk = 2 and MartinSex = 0:
 		'You approach Martin as he''s cleaning the floor. The bartender raises his head when he notices you.'
 		'"Oh, I didn''t think you were still here, <<$pcs_firstname>>."'
-		'You pout your <<$pcdesc_lipsrandom>> lips. "If you are that unhappy about it, maybe you want me to leave?"'
+		'You pout your <<$pc_desc[''lip size'']>> lips. "If you are that unhappy about it, maybe you want me to leave?"'
 		'He gives you a half-smile. "No, of course not."'
 		'"Thought so," you say, smiling back.'
 		*nl
@@ -292,7 +292,7 @@ if $ARGS[0] = '':
 			'You don''t know if you want to have the final word, though. Shouldn''t you go into this with some kind of plan, an idea of how to convince him? Hell, are you even sure you want more from him? Isn''t it enough to be friend with him?'
 			*nl
 			'Your inability to answer these questions makes the decision for you, and you just have a normal chat with Martin.'
-			'Every now and then, you get a little flirty or add a double entendre, but you keep the conversation light and friendly overall, same as you would during your regular visits and talks. You catch up on the day-to-day' + iif($MartinHobby!'',', your <<$MartinHobby>>,','') + ' and talk about a few other trivial things, doing your best to ignore his occasional glance at your <<$pcdesc_breastsrandom>> breasts.'
+			'Every now and then, you get a little flirty or add a double entendre, but you keep the conversation light and friendly overall, same as you would during your regular visits and talks. You catch up on the day-to-day' + iif($MartinHobby!'',', your <<$MartinHobby>>,','') + ' and talk about a few other trivial things, doing your best to ignore his occasional glance at your <<$pc_desc[''breast'']>> breasts.'
 			*nl
 			'After about half an hour, you decide that you should let Martin finish up for the night. After a brief but friendly goodnight, you leave the bar with a tingly stomach - whether it''s from nervousness, desire or something else, you can''t tell, but you probably won''t find out unless you talk about this with Martin.'
 			'<i>Maybe tomorrow</i>, you think to yourself.'
@@ -429,7 +429,7 @@ if $ARGS[0] = '':
 			'But you decide not to indulge him today. After all, you are a respectable woman who would <b>never</b> have sex in a public place, right?'
 			*nl
 			'So instead, you just have a normal chat with Martin. Well, as normal as can be in this situation.'
-			'You catch up on the day-to-day' + iif($MartinHobby!'',', your <<$MartinHobby>>,','') + ' and talk about a few other trivial things, but this conversation is at regular intervals interrupted by double entendres, kisses, you giving Martin generous looks at your <<$pcdesc_breastsrandom>> cleavage and <<$body>> ass, and other things you cannot or will not do while the bar is open.'
+			'You catch up on the day-to-day' + iif($MartinHobby!'',', your <<$MartinHobby>>,','') + ' and talk about a few other trivial things, but this conversation is at regular intervals interrupted by double entendres, kisses, you giving Martin generous looks at your <<$pc_desc[''breast'']>> cleavage and <<$body>> ass, and other things you cannot or will not do while the bar is open.'
 			*nl
 			'After about half an hour of talking, among other things, you decide that you should let Martin finish up for the night. After a final goodnight kiss, you leave the bar with a tingly stomach, your mind still lingering at the bulge in his pants and all the things you could do with him instead of talking...'
 			gs 'arousal', 'kiss', 5
@@ -513,7 +513,7 @@ if $ARGS[0] = 'MartinTease1':
 			'Deciding to make full use of the table being there, you climb on top of it and sit down, spreading your legs to give Martin a good view of your ' + iif(pirsG>0,'pierced ','') + 'pussy.'
 			*nl
 			'"You could do more than just look, you know." The flirtatious tone is gone now - anything but being openly sultry just wouldn''t do this porno-esque situation justice.'
-			'Plus, Martin isn''t the only one getting turned on by this, and both of you can see it. "This <<$pcdesc_pubesrandom>> <<$pcdesc_pussyrandom>> <<$pcdesc_genitals>> could be yours."'
+			'Plus, Martin isn''t the only one getting turned on by this, and both of you can see it. "This <<$pcdesc_pubesrandom>> <<$pc_desc[''pussy'']>> <<$pcdesc_genitals>> could be yours."'
 			*nl
 			'Maybe something you said shook him out of his reverie, or maybe enough time has passed for him to snap out of it, but Martin seems to have regained the ability to speak. But he just loves saying things you don''t want to hear, doesn''t he?'
 			'"<<$pcs_firstname>>, I''m trying to be <b>sensible</b> here. This is not a good idea. You should cover yourself and go."'
@@ -579,7 +579,7 @@ if $ARGS[0] = 'MartinTease2':
 			'<center><img <<$set_imgh>> src="images/locations/city/industrial/bar/sex/bar/martin/tease/nopanties_tease3.jpg"></center>'
 			'With an audience as appreciative as this, how could you possibly stop now?'
 			*nl
-			'Setting the glass, your trusty prop, aside, you pull down what little covers your ' + iif(tatbrst > 0,'tattooed ','') + 'chest and ' + iif(tatblly > 0 and tatbrst = 0,'tattooed ','') +'belly, giving Martin a good look at your <<$pcdesc_breastsrandom>> tits, your <<$pcdesc_nipplesrandom>> nipples standing hard thanks to the chilly, smoky air... and maybe also due to his intense stares.'
+			'Setting the glass, your trusty prop, aside, you pull down what little covers your ' + iif(tatbrst > 0,'tattooed ','') + 'chest and ' + iif(tatblly > 0 and tatbrst = 0,'tattooed ','') +'belly, giving Martin a good look at your <<$pc_desc[''breast'']>> tits, your <<$pcdesc_nipplesrandom>> nipples standing hard thanks to the chilly, smoky air... and maybe also due to his intense stares.'
 			*nl
 			'You lift your arms a little, playing with your <<$pcdesc_hairobjectwordy>> and sticking out your breasts even more.'
 			'No, you <b>really</b> aren''t making it easy for Martin to adhere to his principles regarding celibacy and sexy young women, or whatever it is that''s holding him back from bending you over and nailing you into the fucking counter.'
@@ -595,13 +595,13 @@ if $ARGS[0] = 'MartinTease2':
 				'He''s staggering, but he isn''t out yet. You have to keep at it.'
 				*nl
 				'"I''m flexible, too. See?"'
-				'You don''t wait for a reply. You simply lift your <<$pcdesc_legsrandom>> leg up over the stool next to you, giving him a spectacular view at your <<$pcdesc_pussyrandom>> pussy.'
+				'You don''t wait for a reply. You simply lift your <<$pcdesc_legsrandom>> leg up over the stool next to you, giving him a spectacular view at your <<$pc_desc[''pussy'']>> pussy.'
 				*nl
 				'"<<$pcs_firstname>>, stop." Martin has found his voice again, it seems - not that he''s using it to say something helpful. "This is wrong."'
 				'"Really?" You look at your leg, confused. "Yeah, I guess you''re right."'
 				*nl
 				'You momentarily see something like hope or relief flare up in his eyes. You are not feeling very merciful tonight, though:'
-				'You put one of your hands on your ass and pull slightly, completely revealing what little of your <<$pcdesc_genitals>> and <<$pcdesc_anusrandom>> asshole wasn''t already visible to him.'
+				'You put one of your hands on your ass and pull slightly, completely revealing what little of your <<$pcdesc_genitals>> and <<$pc_desc[''anus'']>> asshole wasn''t already visible to him.'
 				'"There, better now?"'
 
 				if analplugin = 1:
@@ -649,7 +649,7 @@ if $ARGS[0] = 'MartinTease3':
 	inhib_exp += rand(1,3)
 	'<center><img <<$set_imgh>> src="images/locations/city/industrial/bar/sex/bar/martin/tease/tease1.jpg"></center>'
 	'Feeling in the mood to give Martin a bit of a show today, you give him a soft push, just strong enough to make him get the hint and sit down on the chair behind him.'
-	'You then take a few steps back and slowly bend forward, giving him a generous look at your <<$pcdesc_breastsrandom>> cleavage and <<$pcdesc_legsrandom>> legs as you take off your lower garment.'
+	'You then take a few steps back and slowly bend forward, giving him a generous look at your <<$pc_desc[''breast'']>> cleavage and <<$pcdesc_legsrandom>> legs as you take off your lower garment.'
 	*nl
 	'Martin certainly looks like he likes where this is going, and you have no intention of changing course.'
 	'Without much ado, you smile and pull down your panties as well. Most of your crotch is revealed to him, but your sex is only vaguely perceptible. But taking the initiative like this is fun, and it adds to the thrill to know that you''re standing in the middle of a bar, even if nobody''s gonna enter.'
@@ -684,7 +684,7 @@ if $ARGS[0] = 'MartinTease3':
 				'Even though you two share a laugh over his ''threat'', the thought that the plug might excite him that much makes your pussy tingle.'
 			!!end
 			*nl
-			'Taking all the time in the world, you comply, reach down and slooooowly remove the toy from your ass, moaning softly as your <<$pcdesc_anusrandom>> ass releases its intruder.'
+			'Taking all the time in the world, you comply, reach down and slooooowly remove the toy from your ass, moaning softly as your <<$pc_desc[''anus'']>> ass releases its intruder.'
 			'The glint you saw earlier is now a full-blown fire, fueled by the sight of your gaping and ready asshole.'
 		end
 		gs 'underwear', 'remove'
@@ -694,7 +694,7 @@ if $ARGS[0] = 'MartinTease3':
 		act 'Climb on the table':
 			cls
 			'<center><img <<$set_imgh>> src="images/locations/city/industrial/bar/sex/bar/martin/tease/tease3.jpg"></center>'
-			'Making full use of the table being there, you climb on top and sit down on it, giving Martin an alluring smile and spreading your <<$pcdesc_legsrandom>> legs, giving the lucky guy in the front row an exclusive look at your <<$pcdesc_pussyrandom>> pussy.'
+			'Making full use of the table being there, you climb on top and sit down on it, giving Martin an alluring smile and spreading your <<$pcdesc_legsrandom>> legs, giving the lucky guy in the front row an exclusive look at your <<$pc_desc[''pussy'']>> pussy.'
 			*nl
 			'"The way you look at me really turns me on, you know," you sigh. The flirtatious tone is gone now - the wetness you feel between your legs makes anything but ''sultry'' feel inadequate.'
 			'Your body''s display of excitement cannot possibly have escaped Martin, because is looking at you intently, feasting on the sight of you like he''d never get to do it again. "You and me both, mi amor."'
@@ -706,7 +706,7 @@ if $ARGS[0] = 'MartinTease3':
 			act 'Take off your shirt':
 				cls
 				'<center><img <<$set_imgh>> src="images/locations/city/industrial/bar/sex/bar/martin/tease/tease4.jpg"></center>'
-				'... pull your shirt over your head, revealing your <<$pcdesc_breastsrandom>> breasts to Martin. "And what do you think of my tits?"'
+				'... pull your shirt over your head, revealing your <<$pc_desc[''breast'']>> breasts to Martin. "And what do you think of my tits?"'
 				'Martin leans back, smiling ear to ear, and shows you his crotch in response, and the sight before you adds fuel to the fire in your loins: He is pitching a perfect tent, his pants barely able to contain the cock underneath, and Martin seems very pleased with himself and the world. And why wouldn''t he be? What man his age would be anything but ecstatic to have a pretty young woman strip for him, and only him, and to have her stare at his hard-on in curiosity?'
 				*nl
 				'You could certainly make him, and yourself, even happier, if you wanted to.'
@@ -798,7 +798,7 @@ if $ARGS[0] = 'MartinTease4':
 			'<center><img <<$set_imgh>> src="images/locations/city/industrial/bar/sex/bar/martin/tease/nopanties_tease3.jpg"></center>'
 			'With an audience as appreciative as this, how could you possibly stop now?'
 			*nl
-			'Setting the glass aside, you pull down what little covers your ' + iif(tatbrst > 0,'tattooed ','') + 'chest and ' + iif(tatblly > 0 + tatbrst = 0,'tattooed ','') +'belly, giving Martin a good look at your <<$pcdesc_breastsrandom>> tits, your <<$pcdesc_nipplesrandom>> nipples standing hard thanks to the chilly, smoky air... and maybe also due to his intense stares.'
+			'Setting the glass aside, you pull down what little covers your ' + iif(tatbrst > 0,'tattooed ','') + 'chest and ' + iif(tatblly > 0 + tatbrst = 0,'tattooed ','') +'belly, giving Martin a good look at your <<$pc_desc[''breast'']>> tits, your <<$pcdesc_nipplesrandom>> nipples standing hard thanks to the chilly, smoky air... and maybe also due to his intense stares.'
 			*nl
 			'You lift your arms a little, playing with your <<$pcdesc_hairobjectwordy>> and sticking out your breasts even more.'
 			'Honestly, it wouldn''t have surprised you if he had just bent you over and nailed you into the fucking counter then and there - his eyes are certainly burning with desire enough to tell you that he wants to.'
@@ -815,12 +815,12 @@ if $ARGS[0] = 'MartinTease4':
 				'Well, if it''s a sexy torture he wants, you are happy to deliver.'
 				*nl
 				'"Want to see how flexible I am?"'
-				'You don''t wait for a reply. You simply lift your <<$pcdesc_legsrandom>> leg up over the stool next to you, giving him a spectacular view at your <<$pcdesc_pussyrandom>> pussy.'
+				'You don''t wait for a reply. You simply lift your <<$pcdesc_legsrandom>> leg up over the stool next to you, giving him a spectacular view at your <<$pc_desc[''pussy'']>> pussy.'
 				*nl
 				'When you look up from the stool, you are stunned to see Martin give you a look of indifference. "That''s okay, I guess."'
 				*nl
 				'You almost burst into laughter after your brain has caught up with his challenge, but you are only too happy to indulge him, if it''s an even sexier display he wants.'
-				'You put one of your hands on your ass and pull slightly, completely revealing what little of your <<$pcdesc_genitals>> and <<$pcdesc_anusrandom>> asshole wasn''t already visible to him.'
+				'You put one of your hands on your ass and pull slightly, completely revealing what little of your <<$pcdesc_genitals>> and <<$pc_desc[''anus'']>> asshole wasn''t already visible to him.'
 				'"Just okay, huh?"'
 
 				if analplugin = 0:
@@ -842,7 +842,7 @@ if $ARGS[0] = 'MartinTease4':
 						'Even though you two share a laugh over his ''threat'', the thought that the plug might excite him that much makes your pussy tingle.'
 					!!end
 					*nl
-					'Taking all the time in the world, you comply, reach down and slooooowly remove the toy from your ass, moaning softly as your <<$pcdesc_anusrandom>> ass releases its intruder.'
+					'Taking all the time in the world, you comply, reach down and slooooowly remove the toy from your ass, moaning softly as your <<$pc_desc[''anus'']>> ass releases its intruder.'
 					'The glint you saw earlier is now a full-blown fire, fueled by the sight of your gaping and ready asshole.'
 				end
 				gs 'arousal', 'foreplay', 1, 'exhibitionism'
@@ -936,7 +936,7 @@ if $ARGS[0] = 'MartinTeaseDildo':
 		'Your smile fades fast as lust overtakes you.'
 		'Time moves different when you are aroused like this, when every sensation is like a shockwave in your head and every nerve of your body is on edge. A giant crowd could have been watching you right now and you wouldn''t even care - no, actually, at this point it would probably only make this more intense.'
 		*nl
-		'You can sense every tiny movement of the dildo inside your <<$pcdesc_pussyrandom>> <<$pcdesc_genitals>> as you shift around, move it in and out, rubbing it against this wall and that and making sure to brush against your clit every now and then.'
+		'You can sense every tiny movement of the dildo inside your <<$pc_desc[''pussy'']>> <<$pcdesc_genitals>> as you shift around, move it in and out, rubbing it against this wall and that and making sure to brush against your clit every now and then.'
 		'There are plenty of instances when you wouldn''t be able to cum without rubbing your sensitive nub, but this situation is so hot that you have no trouble at all getting yourself off.'
 		$orgasm_txt = 'no'
 		gs 'arousal', 'vaginal_dildo', 5, 'exhibitionism'

locations/MartinSex2.qsrc

@@ -43,7 +43,7 @@ if $ARGS[0] = 'MartinSexPrep':
 		'Without delay, you climb on top of him, ' + iif($martinpos='rev_cowgirl','facing away from him','face to face with him') + ', his <<dick>>cm <<$dick_girth>> cock tantalizingly close to your wet <<$pcdesc_genitals>>' + iif($martinpos='rev_cowgirl',' and giving him a fantastic view of your ass','') + ' as you rub your slit along his length, sending ripples of pleasure through your body.'
 	
 	elseif $martinpos = 'doggystyle':
-		'You bend over, giving Martin unrestricted access to your exposed <<$pcdesc_genitals>> and a sexy view of your <<$pcdesc_anusrandom>> anus.'
+		'You bend over, giving Martin unrestricted access to your exposed <<$pcdesc_genitals>> and a sexy view of your <<$pc_desc[''anus'']>> anus.'
 		'Martin smiles, clearly pleased with your shamelessness and urgency. He unceremoniously rids himself of his pants and comes up behind you, his erect penis so close to your wet folds you can feel the warmth it emanates. Not being able to see everything he does really turns you on.'
 		*nl
 		'To say that you are ready would be an understatement, which is probably the reason Martin... doesn''t penetrate you. Instead, he rubs his dick up and down the length of your slit, spreading your juices all around your lips and teasing you with the tip of his <<dick>>cm <<$dick_girth>> cock until you are about ready to scream.'
@@ -261,12 +261,12 @@ if $ARGS[0] = 'MartinSexDyn':
 			else
 				'<center><img <<$set_imgh>> src="images/locations/city/industrial/bar/sex/bar/martin/rev_cowgirl/rev_cowgirl<<pic_rand2>>.jpg"></center>'
 			end
-			'You are moving ever faster, trying to take Martin''s wonderful cock deeper into your <<$pcdesc_pussyrandom>> pussy, fucking him harder, moaning louder as you go. It may have started off gently but there''s no gentleness left to be found here anymore: You are riding this man in the middle of his bar, giving him a fantastic view of your ' + iif($martinpos='rev_cowgirl','ass','tits') + ' in the same spot some guys talked about their shitty jobs and marital problems a few hours ago.'
+			'You are moving ever faster, trying to take Martin''s wonderful cock deeper into your <<$pc_desc[''pussy'']>> pussy, fucking him harder, moaning louder as you go. It may have started off gently but there''s no gentleness left to be found here anymore: You are riding this man in the middle of his bar, giving him a fantastic view of your ' + iif($martinpos='rev_cowgirl','ass','tits') + ' in the same spot some guys talked about their shitty jobs and marital problems a few hours ago.'
 			*nl
 			'It only adds to the excitement of it all to know that this is a public place, even if nobody else is here right now.'
 			
 			if exhibitionist_lvl > 1 or exhibitionism['pref'] > 50: 'This idea, and the memories of your previous exhibitionist acts manifest themselves in a small fantasy: You imagine what it would be like if the bar wasn''t empty but bustling with people, what it might be like to fuck the bartender right here in the center, with all of their eyes on you...' & pcs_horny += 10
-			$orgasm_txt = 'And it''s this fantasy that sets you off, causing you to cry out in heat and your <<$pcdesc_pussyrandom>> pussy to quiver around Martin''s cock as you imagine how strangers jerk off to your fucking. As you come down from your high, you feel like a pervert... but that''s not a bad thing, right?'
+			$orgasm_txt = 'And it''s this fantasy that sets you off, causing you to cry out in heat and your <<$pc_desc[''pussy'']>> pussy to quiver around Martin''s cock as you imagine how strangers jerk off to your fucking. As you come down from your high, you feel like a pervert... but that''s not a bad thing, right?'
 			gs 'arousal', 'vaginal', 3, 'exhibitionism'
 			*nl
 			'Martin, who has been relatively passive so far, leaving you in control, shakes you out of your reverie when his hands move to your hips. No doubt he intends to take a little more initiative.'
@@ -277,7 +277,7 @@ if $ARGS[0] = 'MartinSexDyn':
 				!!'But you are having none of it: You lay your own hands on Martin''s and pull them away again, giving Martin a coquette smile' + iif($martinpos='rev_cowgirl',' over your shoulder','') + ' as you do. You demonstratively lift yourself up, up, until only the tip of his <<$dick_girth>> penis is still inside your <<$pcdesc_genitals>>, and hold it there. The message is all too clear: You are in charge right now and you intend to keep it that way.'
 				!!*nl
 				!!'Martin, understanding completely, chuckles and lays back. "This is how you wanna play it, huh? Show me what you''ve got, then."'
-				!!'You comply, slamming down on him, taking his entire length inside once more, evoking a soft groan from your lover. You lift yourself up and, again, slam down in one hard stroke that ' + iif($martinpos='rev_cowgirl','causes your ass to meet Martin''s crotch with an audible slap','bounces your <<$pcdesc_breastsrandom>> breasts up and down as well') + '. Again and again, you penetrate yourself on his <<dick>>cm dick like this, speeding up as you go, filling the empty bar with the sounds of a hard fuck, as well as your and Martin''s moans of pleasure.'
+				!!'You comply, slamming down on him, taking his entire length inside once more, evoking a soft groan from your lover. You lift yourself up and, again, slam down in one hard stroke that ' + iif($martinpos='rev_cowgirl','causes your ass to meet Martin''s crotch with an audible slap','bounces your <<$pc_desc[''breast'']>> breasts up and down as well') + '. Again and again, you penetrate yourself on his <<dick>>cm dick like this, speeding up as you go, filling the empty bar with the sounds of a hard fuck, as well as your and Martin''s moans of pleasure.'
 				!!gs 'arousal', 'vaginal', 8, 'dom'
 				!!gs 'stat'
 			
@@ -290,7 +290,7 @@ if $ARGS[0] = 'MartinSexDyn':
 				'"Please what?"'
 				'"Please fuck me with your hard cock again. I need it!"'
 				*nl
-				'That was all he wanted to hear. In the blink of an eye, Martin is balls-deep inside you again, his pelvis slamming into your <<$pcdesc_pussyrandom>> hole from below. You cannot move, his strong arms firmly holding you in place, and are helpless to let him fuck you from below.' 
+				'That was all he wanted to hear. In the blink of an eye, Martin is balls-deep inside you again, his pelvis slamming into your <<$pc_desc[''pussy'']>> hole from below. You cannot move, his strong arms firmly holding you in place, and are helpless to let him fuck you from below.' 
 				'And you are loving every second of it.'
 				gs 'arousal', 'vaginal', 8, 'sub'
 				gs 'stat'
@@ -303,7 +303,7 @@ if $ARGS[0] = 'MartinSexDyn':
 			'It only adds to the excitement of it all to know that this is a public place, even if nobody''s here now.'
 			
 			if exhibitionist_lvl > 1 or exhibitionism['pref'] > 50: 'This idea, and the memories of your previous exhibitionist acts manifest themselves in a small fantasy: You imagine what it would be like if the bar wasn''t empty but bustling with people, what it might be like to be fuck by the bartender right here in the center, with all of their eyes on you...' & pcs_horny += 10
-			$orgasm_txt = 'And it''s this fantasy that sets you off, causing you to cry out in heat and your <<$pcdesc_pussyrandom>> pussy to quiver around Martin''s cock as you imagine how strangers jerk off to your fucking. As you come down from your high, you feel like a pervert... but that''s not a bad thing, right?'
+			$orgasm_txt = 'And it''s this fantasy that sets you off, causing you to cry out in heat and your <<$pc_desc[''pussy'']>> pussy to quiver around Martin''s cock as you imagine how strangers jerk off to your fucking. As you come down from your high, you feel like a pervert... but that''s not a bad thing, right?'
 			gs 'arousal', 'vaginal', 3, 'exhibitionism'
 			*nl
 			'Martin was firmly in control so far, but it seems like it''s not enough for him: All of a sudden, you can feel his hand at your neck, grabbing you, forcing you to look at him and increasing both his leverage and sense of power over you.'
@@ -340,7 +340,7 @@ if $ARGS[0] = 'MartinSexDyn':
 			'It only adds to the excitement of it all to know that this is a public place, even if nobody''s here now.'
 			
 			if exhibitionist_lvl > 1 or exhibitionism['pref'] > 50: 'This idea, and the memories of your previous exhibitionist acts manifest themselves in a small fantasy: You imagine what it would be like if the bar wasn''t empty but bustling with people, what it might be like to be fuck by the bartender right here in the center, with all of their eyes on you...' & pcs_horny += 10
-			$orgasm_txt = 'And it''s this fantasy that sets you off, causing you to cry out in heat and your <<$pcdesc_pussyrandom>> pussy to quiver around Martin''s cock as you imagine how strangers jerk off to your fucking. As you come down from your high, you feel like a pervert... but that''s not a bad thing, right?'
+			$orgasm_txt = 'And it''s this fantasy that sets you off, causing you to cry out in heat and your <<$pc_desc[''pussy'']>> pussy to quiver around Martin''s cock as you imagine how strangers jerk off to your fucking. As you come down from your high, you feel like a pervert... but that''s not a bad thing, right?'
 			gs 'arousal', 'vaginal', 3, 'exhibitionism'
 			*nl
 			'Martin was firmly in control so far, but it seems like it''s not enough to him: All of a sudden, you can feel his hand at your neck, grabbing you, forcing you to look at him and increasing both his leverage and sense of power over you.'
@@ -384,7 +384,7 @@ if $ARGS[0] = 'MartinSexDyn':
 			'It only adds to the excitement of it all to know that this is a public place, even if nobody''s here now.'
 			
 			if exhibitionist_lvl > 1 or exhibitionism['pref'] > 50: 'This idea, and the memories of your previous exhibitionist acts manifest themselves in a small fantasy: You imagine what it would be like if the bar wasn''t empty but bustling with people, what it might be like to be fuck by the bartender right here in the center, with all of their eyes on you...' & pcs_horny += 10
-			$orgasm_txt = 'And it''s this fantasy that sets you off, causing you to cry out in heat and your <<$pcdesc_pussyrandom>> pussy to quiver around Martin''s cock as you imagine how strangers jerk off to your fucking. As you come down from your high, you feel like a pervert... but that''s not a bad thing, right?'
+			$orgasm_txt = 'And it''s this fantasy that sets you off, causing you to cry out in heat and your <<$pc_desc[''pussy'']>> pussy to quiver around Martin''s cock as you imagine how strangers jerk off to your fucking. As you come down from your high, you feel like a pervert... but that''s not a bad thing, right?'
 			gs 'arousal', 'vaginal', 3, 'exhibitionism'
 			*nl
 			'Martin was firmly in control so far, and his switch of position only served to emphasize that, but it seems like it''s not enough to him: All of a sudden, you can feel one of his hands leave your hips and grab your neck, forcing you to look back at him and increasing both his leverage and sense of power over you.'
@@ -458,12 +458,12 @@ if $ARGS[0] = 'MartinSexDyn':
 			if $martinpos = 'cowgirl':
 				'"Did you enjoy yourself?" You ask coquettishly, leaning forward onto his chest.'
 				'Martin smiles up at you, and pulls you down to give you a kiss. "I think you know the answer."'
-				'"Perhaps..." You grin and lift yourself off, feeling his softening <<dick>>cm <<$dick_girth>> cock slide out of your <<$pcdesc_pussyrandom>> pussy.' 
+				'"Perhaps..." You grin and lift yourself off, feeling his softening <<dick>>cm <<$dick_girth>> cock slide out of your <<$pc_desc[''pussy'']>> pussy.' 
 			
 			elseif $martinpos = 'rev_cowgil':
 				'"Did you enjoy yourself?" You ask coquettishly, wiggling your butt as you look back over your shoulder.'
 				'Martin smiles up at you, and gives your ass a resounding smack. "I think you know the answer."'
-				'"Perhaps..." You grin and lift yourself off, feeling his softening <<dick>>cm <<$dick_girth>> cock slide out of your <<$pcdesc_pussyrandom>> pussy.'
+				'"Perhaps..." You grin and lift yourself off, feeling his softening <<dick>>cm <<$dick_girth>> cock slide out of your <<$pc_desc[''pussy'']>> pussy.'
 			
 			else
 				if $martinpos = 'doggystyle':
@@ -589,7 +589,7 @@ if $ARGS[0] = 'MartinAnalDyn':
 	elseif MartinSurpAnal = 1:
 		'Your change of heart is a little sudden, no doubt, but when you tell Martin that you want him to fuck your ass instead, he doesn''t look unhappy about it. After all, what man would refuse an offer like that?'
 	else
-		'With your <<$pcdesc_pussyrandom>> pussy thoroughly plowed, you moan: "I want your hard cock in my ass right now!"'
+		'With your <<$pc_desc[''pussy'']>> pussy thoroughly plowed, you moan: "I want your hard cock in my ass right now!"'
 		'"You and me both, corazón," Martin murmurs as he pulls out.'
 	end
 	
@@ -865,10 +865,10 @@ if $ARGS[0] = 'PainalDyn':
 			act 'Continue':
 				*clr & cla
 				'<center><video autoplay loop src="images/locations/city/industrial/bar/sex/bar/martin/anal/painal3.mp4"></center>'
-				'But as patient as Martin has proven so far, you eventually push him too far, your <<$pcdesc_anusrandom>> asshole too snug and arousing around him for him to stay idle.'
+				'But as patient as Martin has proven so far, you eventually push him too far, your <<$pc_desc[''anus'']>> asshole too snug and arousing around him for him to stay idle.'
 				*nl
 				'Your lover starts moving on his own. At first, he is gentle, careful, only adding a tiny bit of extra sensation to your mutual experience, but with ever stroke, he loses his inhibitions and turns more and more into an animal, possessed by the need to destroy your ass and fill it with cum.'
-				'But he''s not being inconsiderate: As soon as his pace quickens, he reaches around to your pussy, rubbing your clit as he drills your <<$pcdesc_anusrandom>> asshole, adding a more familiar note of lust to the sharp pain from your butt.'
+				'But he''s not being inconsiderate: As soon as his pace quickens, he reaches around to your pussy, rubbing your clit as he drills your <<$pc_desc[''anus'']>> asshole, adding a more familiar note of lust to the sharp pain from your butt.'
 				*nl
 				'The conflicting sensations rack you, hurting and arousing and bewildering all at once.' 
 				'You cannot tell how long this maelstrom tosses to and fro, the pain getting stronger the longer you keep going. All you know is that, eventually, Martin hammers his cock into your ass with abandon and finally, loudly, fills your bowels with his sperm.'

locations/MartinSex3.qsrc

@@ -24,7 +24,7 @@ if $ARGS[0] = 'MartinBlowTease':
 			'Martin wears a mask of strained stoicism - he has caught on and seems to have no intention of letting you monopolize the control.'
 			*nl
 			$OpenInnerThought+'If that''s how you want to play it...'+$CloseInnerThought
-			'You close your eyes and take the head inside your mouth and slowly pull it out again, paying special attention that your <<$pcdesc_lipgloss>>, <<$pcdesc_lips>> lips massage every spot of it; and to top off your performance, you give a soft lascivious moan, just loud enough to sound involuntary.'
+			'You close your eyes and take the head inside your mouth and slowly pull it out again, paying special attention that your <<$pc_descWordy[''lips'']>> lips massage every spot of it; and to top off your performance, you give a soft lascivious moan, just loud enough to sound involuntary.'
 			*nl
 			'This time, when you look up to him, you see that Martin has dropped all pretense of equilibrium. If you hadn''t shown him that you were in charge right now, you''re sure he would have already grabbed your head and started fucking your mouth.'
 			'"Come on. Suck it like you mean it, <<$pcs_firstname>>," he growls instead.'
@@ -37,7 +37,7 @@ if $ARGS[0] = 'MartinBlowTease':
 			'<center><img <<$set_imgh>> src="images/locations/city/industrial/bar/sex/bar/martin/blowjob/martinconvincebj<<pic_rand>>.jpg"></center>'
 			'Honestly, you are tired of talking, of subtle hints, of waiting for Martin to notice what you''re getting at. You want him, plain and simple, and you are confident and just slutty enough to chose the easy way to get him.'
 			*nl
-			'Without another, you take a step back and bare your <<$pcdesc_breastsrandom>> breasts to the bartender. Ignoring the sounds he makes, you immediately take the next step and reveal your <<$pcdesc_pubesrandom>> pussy as well before you as much as take a glance at him.' 
+			'Without another, you take a step back and bare your <<$pc_desc[''breast'']>> breasts to the bartender. Ignoring the sounds he makes, you immediately take the next step and reveal your <<$pcdesc_pubesrandom>> pussy as well before you as much as take a glance at him.' 
 			'The look of utter amazement he gives you is priceless, but you are not done yet, not in the slightest.'
 			*nl
 			if pic_rand = 1:
@@ -162,7 +162,7 @@ if $ARGS[0] = 'MartinBlowjob':
 			! $martinpos = 'MartinBlowjob_dressed'
 			! '<center><video autoplay loop src="images/locations/city/industrial/bar/sex/bar/martin/blowjob/dressdom_bj.mp4"></center>'
 			! 'Content that you have tormented him enough, you put an end to his agony, take the tip of his <<dick>>cm <<$dick_girth>> cock into your mouth and suck. His audible exhale speaks volumes of how big his anticipation must have been and it turns into a groan when you pull back only to plunge more of his cock into your hot mouth.'
-			! 'You''re not letting him get used to this, though - not yet. You pull him out of your mouth once more, brushing your <<$pcdesc_lipgloss>>, <<$pcdesc_lips>> lips and <<$pcdesc_tongue>> along the length and underside of his cock. Your shoot a quick glance up to his face and find him staring at you in rapture.'
+			! 'You''re not letting him get used to this, though - not yet. You pull him out of your mouth once more, brushing your <<$pc_descWordy[''lips'']>> lips and <<$pcdesc_tongue>> along the length and underside of his cock. Your shoot a quick glance up to his face and find him staring at you in rapture.'
 			! *nl
 			! 'And you''re just getting started.'
 			! 'In an instant, your lips find the tip of his cock again. You move your head up and down, swirling your tongue around his sizable cock and enjoying the faint taste of his pre-cum. You cannot bring yourself to stop, either. You are enjoying this, and so is Martin.'
@@ -212,7 +212,7 @@ if $ARGS[0] = 'MartinBlowjob':
 				$orgasm_txt = 'Your brain seems to have no issue channeling your own frustration and complete sense of surrender to Martin into unbridled lust, fanned by Martin''s facefuck and you playing with yourself. The familiar heat spreads inside your belly, building up like a wave and then washing over you. You cum, your fingers busy on your clit, your moans muffled by Martin''s cock in your mouth and feeling at least a little compensated for what you missed out on.'
 			
 			else			
-				'You take the tip of his <<$dick_girth>> cock into your mouth, pausing to savour its size and texture and exploring its details with your <<$pcdesc_lips>> lips and <<$pcdesc_tongue>>, intent on giving Martin a slow and sensual blowjob.'
+				'You take the tip of his <<$dick_girth>> cock into your mouth, pausing to savour its size and texture and exploring its details with your <<$pc_desc[''lip size'']>> lips and <<$pcdesc_tongue>>, intent on giving Martin a slow and sensual blowjob.'
 				*nl
 				'But you have all but forgotten about your earlier performance while Martin absolutely hasn''t. He is well past ''sensual'' as you quickly realize when a sizable portion of his <<dick>>cm cock fills your mouth. He pulls out, only to drive it right back in, again and again in rapid succession.'
 				*nl
@@ -229,7 +229,7 @@ if $ARGS[0] = 'MartinBlowjob':
 			'<center><video autoplay loop src="images/locations/city/industrial/bar/sex/bar/martin/blowjob/dresssub_bj.mp4"></center>'
 			'But you want to please him more, and he''s not leaving any doubt that he wants more from you, too - a soft nudge at the back of your head is all the encouragement you need.'
 			*nl
-			'You sensually slide your <<$pcdesc_lipgloss>>, <<$pcdesc_lips>> lips over the head of Martin''s <<$dick_girth>> dick, your eyes closed as you enjoy the sensations: His musky, manly smell; the sense of security and guidance he gives you; the texture of his cock''s tip.'
+			'You sensually slide your <<$pc_descWordy[''lips'']>> lips over the head of Martin''s <<$dick_girth>> dick, your eyes closed as you enjoy the sensations: His musky, manly smell; the sense of security and guidance he gives you; the texture of his cock''s tip.'
 			*nl
 			'You move back and forth, never taking him too deep - all your attention is focused on his crown, your <<$pcdesc_tongue>> circling around the head, teasing that sensitive little spot on its underside.' 
 			'The faint taste of precum is the only sign of pleasure you are getting from him at the moment. He seems so focused on what you are doing to him that he is not making a sound. Or is he? Are you just too engrossed in your task to hear him?'

locations/MartinTalk.qsrc

@@ -876,7 +876,7 @@ if $ARGS[0] = '':
 		*nl
 		'Still, as per your unspoken agreement, you are not acting on that while Martin is working behind the bar - the fantasy of giving him a blowjob while he''s pouring drinks has its appeal, but, the huge risk of getting caught aside, Martin has to move around too much for that to be practical.'
 		*nl
-		'So, when one of the regulars calls for Martin, you lick your <<$pcdesc_lipsrandom>> lips lasciviously and thank him for the drink in a low, sexy voice before Martin goes back to work, his walk a little funnier than before.'
+		'So, when one of the regulars calls for Martin, you lick your <<$pc_desc[''lip size'']>> lips lasciviously and thank him for the drink in a low, sexy voice before Martin goes back to work, his walk a little funnier than before.'
 		
 		act 'Finish your drink': gt 'qwBarPolet', 'bar'
 	

locations/Palatka.qsrc

@@ -9,7 +9,6 @@ if $ARGS[0] = 'start':
 	$menu_arg = 'start'
 	menu_off = 0
     $location_type = 'private'
-	palMir = 1
 	gs 'stat'
 	'<center><b><font color="maroon">tent</font></b></center>'
 	'<center><img <<$set_imgh>> src="images/locations/city/shared/military/palatka.jpg"></center>'
@@ -20,7 +19,7 @@ if $ARGS[0] = 'start':
 
 	'To your surprise, the tent is a quite spacious. It has a bed, a <a href="exec:gt ''mirror'', ''start''">mirror</a>, and even has an improvised <a href="exec:gt ''vann'', ''start''">shower</a>.'
 
-	act 'Leave':palMir = 0 & gt 'Military', 'start'
+	act 'Leave': gt 'Military', 'start'
 
 	act 'Sleep':
 		minut += 480

locations/RimmaSexQW.qsrc

@@ -35,7 +35,7 @@ $rimmasexdi = {
 	if RimmaRandEvent = 23:
 		'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/rimma14.jpg"></center>'
 		pcs_throat += 3
-		'Rima pulls a massive strap-on out of her purse and puts it on, and you feel a hint of fear mingled into your excitement, knowing that she''s going to fuck you with it. Wasting no time on ordering you around, she roughly pushes you down on your knees and slips it past your <<$liptalk>>.' 
+		'Rima pulls a massive strap-on out of her purse and puts it on, and you feel a hint of fear mingled into your excitement, knowing that she''s going to fuck you with it. Wasting no time on ordering you around, she roughly pushes you down on your knees and slips it past your <<$pc_desc[''lips'']>> lips.' 
 		'You instinctively start moving your tongue around its thick tip, her hand at the back of your head holding you in place as she guides it into your throat. Given its size, it doesn''t come as a surprise that your gag reflex starts acting up but you endure as best you can, covering it generously in saliva.'
 		gs 'arousal', 'bj', 10, 'sub', 'lesbian'
 		gs 'stat'
@@ -57,7 +57,7 @@ $rimmasexdi = {
 	elseif RimmaRandEvent = 22:
 		'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/rimmabj.jpg"></center>'
 		pcs_throat += 3
-		'Rima pulled the strap-on out of her purse, followed by collar with a chain attached to it. At her order, you put on the collar and hand the chain to Rima who put on the strap-on while you were occupied. She roughly pushes you down on your knees and slips it past your <<$liptalk>>.' 
+		'Rima pulled the strap-on out of her purse, followed by collar with a chain attached to it. At her order, you put on the collar and hand the chain to Rima who put on the strap-on while you were occupied. She roughly pushes you down on your knees and slips it past your <<$pc_desc[''lips'']>> lips.' 
 		'You instinctively start moving your tongue around its thick tip, her hand at the back of your head holding you in place as she guides it into your throat. Given its size, it doesn''t come as a surprise that your gag reflex starts acting up but you endure as best you can, covering it generously in saliva.'
 		gs 'arousal', 'bj', 10, 'sub', 'lesbian'
 		gs 'stat'
@@ -85,7 +85,7 @@ $rimmasexdi = {
 	elseif RimmaRandEvent = 20:
 		'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/rimma14.jpg"></center>'
 		if pcs_throat < 25: pcs_throat += 3
-		'Rima pulls a massive strap-on out of her purse and puts it on, and you feel a hint of fear mingled into your excitement, knowing that she''s going to fuck you with it. Wasting no time on ordering you around, she roughly pushes you down on your knees and slips it past your <<$liptalk>>.' 
+		'Rima pulls a massive strap-on out of her purse and puts it on, and you feel a hint of fear mingled into your excitement, knowing that she''s going to fuck you with it. Wasting no time on ordering you around, she roughly pushes you down on your knees and slips it past your <<$pc_desc[''lips'']>> lips.' 
 		'You instinctively start moving your tongue around its thick tip, her hand at the back of your head holding you in place as she guides it into your throat. Given its size, it doesn''t come as a surprise that your gag reflex starts acting up but you endure as best you can, covering it generously in saliva.'
 		gs 'arousal', 'bj', 10, 'sub', 'lesbian'
 		gs 'stat'
@@ -107,7 +107,7 @@ $rimmasexdi = {
 	elseif RimmaRandEvent = 19:
 		'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/rimmabj.jpg"></center>'
 		pcs_throat += 3
-		'Rima pulled the strap-on out of her purse, followed by collar with a chain attached to it. At her order, you put on the collar and hand the chain to Rima who put on the strap-on while you were occupied. She roughly pushes you down on your knees and slips it past your <<$liptalk>>.' 
+		'Rima pulled the strap-on out of her purse, followed by collar with a chain attached to it. At her order, you put on the collar and hand the chain to Rima who put on the strap-on while you were occupied. She roughly pushes you down on your knees and slips it past your <<$pc_desc[''lips'']>> lips.' 
 		'You instinctively start moving your tongue around its thick tip, her hand at the back of your head holding you in place as she guides it into your throat. Given its size, it doesn''t come as a surprise that your gag reflex starts acting up but you endure as best you can, covering it generously in saliva.'
 		gs 'arousal', 'bj', 10, 'sub', 'lesbian'
 		gs 'stat'
@@ -130,7 +130,7 @@ $rimmasexdi = {
 	elseif RimmaRandEvent = 18:
 		'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/rimma14.jpg"></center>'
 		pcs_throat += 3
-		'Rima pulls a massive strap-on out of her purse and puts it on, and you feel a hint of fear mingled into your excitement, knowing that she''s going to fuck you with it. Wasting no time on ordering you around, she roughly pushes you down on your knees and slips it past your <<$liptalk>>.' 
+		'Rima pulls a massive strap-on out of her purse and puts it on, and you feel a hint of fear mingled into your excitement, knowing that she''s going to fuck you with it. Wasting no time on ordering you around, she roughly pushes you down on your knees and slips it past your <<$pc_desc[''lips'']>> lips.' 
 		'You instinctively start moving your tongue around its thick tip, her hand at the back of your head holding you in place as she guides it into your throat. Given its size, it doesn''t come as a surprise that your gag reflex starts acting up but you endure as best you can, covering it generously in saliva.'
 		gs 'arousal', 'bj', 10, 'sub', 'lesbian'
 		gs 'stat'
@@ -152,7 +152,7 @@ $rimmasexdi = {
 	elseif RimmaRandEvent = 17:
 		'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/rimma14.jpg"></center>'
 		pcs_throat += 3
-		'Rima pulls a massive strap-on out of her purse and puts it on, and you feel a hint of fear mingled into your excitement, knowing that she''s going to fuck you with it. Wasting no time on ordering you around, she roughly pushes you down on your knees and slips it past your <<$liptalk>>.' 
+		'Rima pulls a massive strap-on out of her purse and puts it on, and you feel a hint of fear mingled into your excitement, knowing that she''s going to fuck you with it. Wasting no time on ordering you around, she roughly pushes you down on your knees and slips it past your <<$pc_desc[''lips'']>> lips.' 
 		'You instinctively start moving your tongue around its thick tip, her hand at the back of your head holding you in place as she guides it into your throat. Given its size, it doesn''t come as a surprise that your gag reflex starts acting up but you endure as best you can, covering it generously in saliva.'
 		gs 'arousal', 'bj', 10, 'sub', 'lesbian'
 		gs 'stat'
@@ -174,7 +174,7 @@ $rimmasexdi = {
 	elseif RimmaRandEvent = 16:
 		'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/rimma14.jpg"></center>'
 		pcs_throat += 3
-		'Rima pulls a massive strap-on out of her purse and puts it on, and you feel a hint of fear mingled into your excitement, knowing that she''s going to fuck you with it. Wasting no time on ordering you around, she roughly pushes you down on your knees and slips it past your <<$liptalk>>.' 
+		'Rima pulls a massive strap-on out of her purse and puts it on, and you feel a hint of fear mingled into your excitement, knowing that she''s going to fuck you with it. Wasting no time on ordering you around, she roughly pushes you down on your knees and slips it past your <<$pc_desc[''lips'']>> lips.' 
 		'You instinctively start moving your tongue around its thick tip, her hand at the back of your head holding you in place as she guides it into your throat. Given its size, it doesn''t come as a surprise that your gag reflex starts acting up but you endure as best you can, covering it generously in saliva.'
 		gs 'arousal', 'bj', 10, 'sub', 'lesbian'
 		gs 'stat'
@@ -196,7 +196,7 @@ $rimmasexdi = {
 	elseif RimmaRandEvent = 15:
 		'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/rimma14.jpg"></center>'
 		pcs_throat += 3
-		'Rima pulls a massive strap-on out of her purse and puts it on, and you feel a hint of fear mingled into your excitement, knowing that she''s going to fuck you with it. Wasting no time on ordering you around, she roughly pushes you down on your knees and slips it past your <<$liptalk>>.' 
+		'Rima pulls a massive strap-on out of her purse and puts it on, and you feel a hint of fear mingled into your excitement, knowing that she''s going to fuck you with it. Wasting no time on ordering you around, she roughly pushes you down on your knees and slips it past your <<$pc_desc[''lips'']>> lips.' 
 		'You instinctively start moving your tongue around its thick tip, her hand at the back of your head holding you in place as she guides it into your throat. Given its size, it doesn''t come as a surprise that your gag reflex starts acting up but you endure as best you can, covering it generously in saliva.'
 		gs 'arousal', 'bj', 10, 'sub', 'lesbian'
 		gs 'stat'

locations/Serge_Shulgin.qsrc

@@ -240,7 +240,7 @@ if $ARGS[0] = 'hide':
 !-----------------------------!
 	if $ARGS[1] = 'sleep_sex_oral_event1':
 		'<center><video autoplay loop src="images/locations/pavlovsk/resident/apartment/shulginhome/smroom/event/oral'+rand(6,10)+'.mp4"></video></center>'
-		'You giggle when Sergey reaches for his pants, with a slightly defeated look on his face. He really wanted to resist your charms, but he failed. You lick your <<$lip1>> lips when he pulls his dick out, and looks at you expectantly.'
+		'You giggle when Sergey reaches for his pants, with a slightly defeated look on his face. He really wanted to resist your charms, but he failed. You lick your <<$pc_desc[''lips'']>> lipss when he pulls his dick out, and looks at you expectantly.'
 		'"Thank you, uncle Sergey", you whisper to him. You tentatively reach for his cock, lightly rubbing and squeezing it with your delicate fingers. Wow, he really does have a magnificent cock...'
 		'You squee with delight when a large bead of precum forms on the head, and you quickly close your lips around his penis to prevent it from falling to the ground. When you begin to bob your head up and down obediently, Sergey relaxes and just smiles down at you, content to let you do your thing for now.'
 		'You know it''s probably just a matter of time before he becomes more involved though; you know Sergey fairly well, and he''s very dominant and demanding. Especially towards women.'
@@ -410,7 +410,7 @@ if $ARGS[0] = 'hide':
 			'<center><video autoplay loop src="images/locations/pavlovsk/resident/apartment/shulginhome/smroom/event/oral'+rand(1,10)+'.mp4"></video></center>'
 			'His erect cock was already dangling out of his pants, and you gently close your fingers around it when he brings it closer to you. It''s so rigid and firm... so masculine... you can''t wait to close your lips around it!'
 			'You feel it throb between your fingers as you caress it all over, also running your fingers over his balls and pulling his foreskin back to expose the head.'
-			'When you close your <<$lip1>> lips around the head of his cock, you feel Sergey''s body shudder with delight - he was clearly looking forward to this as much as you were!'
+			'When you close your <<$pc_desc[''lips'']>> lipss around the head of his cock, you feel Sergey''s body shudder with delight - he was clearly looking forward to this as much as you were!'
 			'Not about to let him down, you do your best to give him the best blowjob he''s ever had. You sometimes let it slide out of your mouth to lick across the whole length of his shaft but always quickly take it back in. You manage to take in just over half his length easily.'
 			'"Do you think you can take it all, <<$pcs_nickname>>?" he asks. You never take his cock out of your mouth but nod, while you look him in the eye. "Go ahead, try", he encourages you.'
 			'You push your head forward, forcing yourself to take more and more of his length down your throat. It''s not easy but from the proud grin Sergey is giving you, you know you must be doing a great job! The room is filled with the sounds of you lewdly gagging and slurping on his cock, and Sergey lovingly brushes your hair with his hand when you come up for air again. "You''re such a sweet little slut, I won''t last long if you keep that up!"'

locations/Serge_kuh.qsrc

@@ -400,7 +400,7 @@ if $ARGS[0] = 'izdev1':
 						'You smile when he reveals his erection to you: you love having this effect on men! "Very nice, uncle Sergey! Don''t worry, I''ll take good care of you..."'
 						'After you drop to your knees before him, you begin to jerk him off slowly: "It''s so hard..."'
 						'You tease him by kissing him all over his shaft, avoiding the head for now. That will come. When you lick his shaft over and over, you can feel him stir a little: he''s growing impatient.'
-						'Finally, you kiss the head of his cock, smearing his precum all over your lips. You lick your lips afterwards and muse: "Mmm... delicious..." before taking it between your <<$liptalk>>, sucking on it eagerly.'
+						'Finally, you kiss the head of his cock, smearing his precum all over your lips. You lick your lips afterwards and muse: "Mmm... delicious..." before taking it between your <<$pc_desc[''lips'']>> lips, sucking on it eagerly.'
 						gs 'arousal', 'bj', 5, 'dom'
 						gs 'stat'
 						act 'Continue':
@@ -1674,7 +1674,7 @@ if $ARGS[0] = 'sex2':
 		*clr & cla
 		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/shulginhome/kuh/help/event/sex2-2.jpg"></center>'
 		'"I''m sorry, uncle Sergey... but your dick is just so beautiful!" you whisper at him. "It''s like it was made to please women! I''m so lucky!"'
-		'Sergey relaxes when you open your mouth wide and close your <<$liptalk>> around the head of his penis. You take your time, but skilfully suck his dick to about half its length. Then a few minutes later, the whole of it is in your mouth!'
+		'Sergey relaxes when you open your mouth wide and close your <<$pc_desc[''lips'']>> lips around the head of his penis. You take your time, but skilfully suck his dick to about half its length. Then a few minutes later, the whole of it is in your mouth!'
 		'You look up at Sergey''s face intently while you try out different techniques, doing your best to make him feel wonderful. Oral sex can be so much fun! You especially remember his impressed look when you took him as deep as possible down your throat, and were licking the side of his balls with your tongue out of your mouth.'
 		'He put his hand behind your head a long time ago, but never forces you to do anything; everything you do today is because you want to please him. Even when you deepthroat him repeatedly... it''s because you want to. You''re such a slut sometimes, and you love it!'
 		gs 'arousal', 'bj', 5, 'sub', 'deepthroat'
@@ -1726,7 +1726,7 @@ if $ARGS[0] = 'sex3':
 	serge_countsex += 1
 	pcs_mood += 5
 	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/shulginhome/kuh/help/event/sex3-1.jpg"></center>'
-	'"You seem tense, uncle Sergey. Is there something I can do for you?" you ask innocently, bringing your fingers to your <<$liptalk3>>.'
+	'"You seem tense, uncle Sergey. Is there something I can do for you?" you ask innocently, bringing your fingers to your <<$pc_desc[''lips'']>> lips.'
 	'When Sergey sees you sucking on your fingers he laughs: "Hah... yes there is, you slut!"'
 	'Ignoring the fact that he called you a slut, you sweetly continue: "Oh, and what would that be?"'
 	'Sergey gropes your tits with one hand and slides the other hand under your clothes to finger you. He grunts: "You know perfectly well what I mean. Stop teasing me and get to it."'

locations/UnitAppearance.qsrc

@@ -37,11 +37,11 @@ if $ARGS[0] = 'GenRowBreak':
 end 
 
 if $ARGS[0] = 'calcHotcat':
-	unitbmi_calc = FUNC('body_shape', 'bmicalc', unitsalo, unitpcs_hgt)
-	unitbodykoef = FUNC('body_shape', 'setbodykoef', unitbmi_calc, unitstrenbuf, unitsalocatnow, unitvofat)
-	unitHeadBonus = FUNC('body_shape', 'calcHeadBonus', unitpcs_lashes, unitpcs_eyesize, unitpcs_lip, unitpcs_teeth, unitbmi_calc)
-	unitAttributeBonus = FUNC('body_shape', 'calcAttributeBonus', unitpcs_agil, unitpcs_vital, unitbmi_calc)
-	unitpcs_apprncbase = FUNC('body_shape', 'basebeautycalc2', unitResetBase, unitvidage, unitpcs_skin, unitbodykoef, unitHeadBonus, unitAttributeBonus, unitpcs_apprncbase)
+	unitbmi_calc = FUNC('body', 'bmicalc', unitsalo, unitpcs_hgt)
+	unitbodykoef = FUNC('body', 'setbodykoef', unitbmi_calc, unitstrenbuf, unitsalocatnow, unitvofat)
+	unitHeadBonus = FUNC('body', 'calcHeadBonus', unitpcs_lashes, unitpcs_eyesize, unitpcs_lip, unitpcs_teeth, unitbmi_calc)
+	unitAttributeBonus = FUNC('body', 'calcAttributeBonus', unitpcs_agil, unitpcs_vital, unitbmi_calc)
+	unitpcs_apprncbase = FUNC('body', 'basebeautycalc2', unitResetBase, unitvidage, unitpcs_skin, unitbodykoef, unitHeadBonus, unitAttributeBonus, unitpcs_apprncbase)
 	unitclothingbonus = FUNC('body', 'calcClothesBonus', unitPXCloThinness, unitPXCloTopCut, unitPXCloBottomShortness, unitPCloQuality, $unitclothingworntype, unitbmi_calc)
 	unitAccessoriesBonus = FUNC('body', 'calcAccessoriesBonus', unitbonusZ, unitPShoQuality, $unitpantyworntype, $unitbraworntype)
 	unitGroomingBonus = FUNC('body', 'calcGroomingBonus', unitpcs_lipbalm, unitmopkoef, unitpcs_hairbsh, unitpcs_breath, unitdeodorant_on, unitbmi_calc)
@@ -77,7 +77,7 @@ if $ARGS[0] = 'HeadBonusCalc':
 end
 
 if $ARGS[0] = 'GenHeadRow':
-    unitHeadBonus = FUNC('body_shape', 'calcHeadBonus', ARGS[1], ARGS[2], ARGS[3], ARGS[4])
+    unitHeadBonus = FUNC('body', 'calcHeadBonus', ARGS[1], ARGS[2], ARGS[3], ARGS[4])
     '<tr>'
         '<td><<unitHeadBonus>></td>'
         '<td><<ARGS[1]>></td>'
@@ -110,7 +110,7 @@ if $ARGS[0] = 'AttribBonusCalc':
 end
 
 if $ARGS[0] = 'GenAttribRow':
-    unitAttribBonus = FUNC('body_shape', 'calcAttributeBonus', ARGS[1], ARGS[2])
+    unitAttribBonus = FUNC('body', 'calcAttributeBonus', ARGS[1], ARGS[2])
     '<tr>'
         '<td><<unitAttribBonus>></td>'
         '<td><<ARGS[1]>></td>'
@@ -1119,14 +1119,14 @@ if $ARGS[0] = 'CalcSaloVars':
     unitvofat = ((unitpcs_hgt * unithratio) / 100 + unitvhips - (unitpcs_hgt * 72) / 100) / 2
 
     unitsalocatnow = 1 + (unitsalo - 10) / 20
-    unitbmi_calc = FUNC('body_shape', 'bmicalc', unitsalo, unitpcs_hgt)
+    unitbmi_calc = FUNC('body', 'bmicalc', unitsalo, unitpcs_hgt)
     gs 'UnitAppearance', 'GetClothThick', unitbmi_calc
 end
 
 if $ARGS[0] = 'GenerateSvetaOptions':
     gs 'UnitAppearance', 'SaveBase'
     gs 'UnitAppearance', 'GenRowBreak', $ARGS[1]
-    unitbmi_calc = FUNC('body_shape', 'bmicalc', unitsalo, unitpcs_hgt)
+    unitbmi_calc = FUNC('body', 'bmicalc', unitsalo, unitpcs_hgt)
 
     $svetadesc = 'Current Clothes'
     

locations/_attributes_cats_shoes.qsrc

@@ -1,16 +1,16 @@
 # $attributes_cats_shoes
-!2020/03/26
-!price range from 3 to 5 but please avoid adding too many 5s
+!!2022/02/06
+!!price range from 3 to 5 but please avoid adding too many 5s
 
 if ARGS[1] = 1:
 	ShoQuality = 3
-	ShoHeels = 1
+	ShoHeels = 3
 	ShoCut = 1
 	ShoStyle = 0
 	
 elseif ARGS[1] = 2:
-	ShoQuality = 3
-	ShoHeels = 1
+	ShoQuality = 4
+	ShoHeels = 2
 	ShoCut = 1
 	ShoStyle = 0
 	
@@ -27,13 +27,13 @@ elseif ARGS[1] = 4:
 	ShoStyle = 0
 	
 elseif ARGS[1] = 5:
-	ShoQuality = 4
+	ShoQuality = 3
 	ShoHeels = 1
 	ShoCut = 1
 	ShoStyle = 2
 	
 elseif ARGS[1] = 6:
-	ShoQuality = 5
+	ShoQuality = 4
 	ShoHeels = 1
 	ShoCut = 1
 	ShoStyle = 0
@@ -51,46 +51,46 @@ elseif ARGS[1] = 8:
 	ShoStyle = 0
 	
 elseif ARGS[1] = 9:
-	ShoQuality = 4
+	ShoQuality = 3
 	ShoHeels = 1
 	ShoCut = 1
 	ShoStyle = 0
 	
 elseif ARGS[1] = 10:
-	ShoQuality = 4
+	ShoQuality = 3
 	ShoHeels = 1
 	ShoCut = 1
 	ShoStyle = 0
 	
 elseif ARGS[1] = 11:
-	ShoQuality = 4
+	ShoQuality = 5
 	ShoHeels = 1
 	ShoCut = 1
 	ShoStyle = 0
 	
 elseif ARGS[1] = 12:
-	ShoQuality = 4
-	ShoHeels = 1
+	ShoQuality = 3
+	ShoHeels = 2
 	ShoCut = 1
 	ShoStyle = 0
 	
 elseif ARGS[1] = 13:
 	ShoQuality = 4
-	ShoHeels = 1
+	ShoHeels = 2
 	ShoCut = 1
 	ShoStyle = 0
 	
 elseif ARGS[1] = 14:
 	ShoQuality = 4
 	ShoHeels = 1
-	ShoCut = 1
-	ShoStyle = 2
+	ShoCut = 2
+	ShoStyle = 0
 	
 elseif ARGS[1] = 15:
-	ShoQuality = 4
-	ShoHeels = 1
+	ShoQuality = 5
+	ShoHeels = 2
 	ShoCut = 1
-	ShoStyle = 0
+	ShoStyle = 2
 	
 elseif ARGS[1] = 16:
 	ShoQuality = 5
@@ -99,13 +99,13 @@ elseif ARGS[1] = 16:
 	ShoStyle = 0
 	
 elseif ARGS[1] = 17:
-	ShoQuality = 5
+	ShoQuality = 4
 	ShoHeels = 1
 	ShoCut = 1
 	ShoStyle = 0
 	
 elseif ARGS[1] = 18:
-	ShoQuality = 6
+	ShoQuality = 3
 	ShoHeels = 1
 	ShoCut = 1
 	ShoStyle = 0
@@ -113,15 +113,134 @@ elseif ARGS[1] = 18:
 elseif ARGS[1] = 19:
 	ShoQuality = 5
 	ShoHeels = 1
+	ShoCut = 2
+	ShoStyle = 0
+	
+elseif ARGS[1] = 20:
+	ShoQuality = 4
+	ShoHeels = 1
+	ShoCut = 1
+	ShoStyle = 0
+	
+elseif ARGS[1] = 21:
+	ShoQuality = 5
+	ShoHeels = 2
+	ShoCut = 1
+	ShoStyle = 0
+	
+elseif ARGS[1] = 22:
+	ShoQuality = 3
+	ShoHeels = 2
+	ShoCut = 1
+	ShoStyle = 0
+	
+elseif ARGS[1] = 23:
+	ShoQuality = 4
+	ShoHeels = 2
+	ShoCut = 1
+	ShoStyle = 0
+	
+elseif ARGS[1] = 24:
+	ShoQuality = 5
+	ShoHeels = 3
+	ShoCut = 1
+	ShoStyle = 0
+	
+elseif ARGS[1] = 25:
+	ShoQuality = 4
+	ShoHeels = 2
 	ShoCut = 1
+	ShoStyle = 0
+	
+elseif ARGS[1] = 26:
+	ShoQuality = 4
+	ShoHeels = 2
+	ShoCut = 1
+	ShoStyle = 0
+	
+elseif ARGS[1] = 27:
+	ShoQuality = 4
+	ShoHeels = 2
+	ShoCut = 1
+	ShoStyle = 0
+	
+elseif ARGS[1] = 28:
+	ShoQuality = 4
+	ShoHeels = 2
+	ShoCut = 1
+	ShoStyle = 0
+	
+elseif ARGS[1] = 29:
+	ShoQuality = 5
+	ShoHeels = 2
+	ShoCut = 2
+	ShoStyle = 0
+	
+elseif ARGS[1] = 30:
+	ShoQuality = 5
+	ShoHeels = 2
+	ShoCut = 2
+	ShoStyle = 0
+
+elseif ARGS[1] = 31:
+	ShoQuality = 6
+	ShoHeels = 2
+	ShoCut = 2
 	ShoStyle = 2
 	
-elseif ARGS[1] = 20:
+elseif ARGS[1] = 32:
+	ShoQuality = 4
+	ShoHeels = 2
+	ShoCut = 1
+	ShoStyle = 0
+	
+elseif ARGS[1] = 33:
+	ShoQuality = 4
+	ShoHeels = 2
+	ShoCut = 2
+	ShoStyle = 0
+	
+elseif ARGS[1] = 34:
+	ShoQuality = 3
+	ShoHeels = 2
+	ShoCut = 1
+	ShoStyle = 0
+	
+elseif ARGS[1] = 35:
+	ShoQuality = 4
+	ShoHeels = 2
+	ShoCut = 1
+	ShoStyle = 2
+	
+elseif ARGS[1] = 36:
+	ShoQuality = 4
+	ShoHeels = 2
+	ShoCut = 1
+	ShoStyle = 0
+	
+elseif ARGS[1] = 37:
+	ShoQuality = 4
+	ShoHeels = 2
+	ShoCut = 1
+	ShoStyle = 2
+	
+elseif ARGS[1] = 38:
 	ShoQuality = 5
 	ShoHeels = 1
 	ShoCut = 1
 	ShoStyle = 0
 	
+elseif ARGS[1] = 39:
+	ShoQuality = 5
+	ShoHeels = 2
+	ShoCut = 1
+	ShoStyle = 0
+	
+elseif ARGS[1] = 20:
+	ShoQuality = 4
+	ShoHeels = 1
+	ShoCut = 1
+	ShoStyle = 0
 
 end
 

locations/albina_starlets.qsrc

@@ -598,7 +598,7 @@ if $ARGS[0] = 'whore2':
 
 	gs 'stat'
 	'Laughing, the two Armenians shove you into their hotel room and you fall to the floor. "Get up, it''s time to show us what you''ve got little lamb!" one says.'
-	'"I want see what those <<$lip1>> lips of yours can do. They look like they were made to suck cock! The other man replies.'
+	'"I want see what those <<$pc_desc[''lips'']>> lipss of yours can do. They look like they were made to suck cock! The other man replies.'
 	act 'Please them':
 		cls
 		guy += 2

locations/alex.qsrc

@@ -14,7 +14,7 @@ act 'Get on your knees and take it in your mouth':
 	alexeySex += 1
 	'<center><img <<$set_imgh>> src="images/shared/sex/blowjob/bj<<rand(29, 41)>>.jpg"></center>'
 	'Kneeling before him, you unbutton his pants and take a firm grasp of his erect cock.'
-	'Leaning in closer, you give it a quick kiss with your <<$liptalk>> before guiding it to your mouth.'
+	'Leaning in closer, you give it a quick kiss with your <<$pc_desc[''lips'']>> lips before guiding it to your mouth.'
 	'As you suck on his hard dick, Alexey relaxes in his chair, letting you take care of his needs.'
 	'Suddenly, he removes his penis from your mouth, pulls you up on your feet and leads you to the bedroom.'
 	gs 'arousal', 'bj', 10

locations/alexgang.qsrc

@@ -24,7 +24,7 @@ act 'Get on your knees and give head':
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/shared/sex/blowjob/bj<<rand(29, 41)>>.jpg"></center>'
 	'Kneeling before him, you pull Alexei''s pants all the way down then take a firm grasp of his erect cock.'
-	'Leaning in closer, you give it a quick kiss with your <<$liptalk>> before guiding it into your mouth.'
+	'Leaning in closer, you give it a quick kiss with your <<$pc_desc[''lips'']>> lips before guiding it into your mouth.'
 	'As you suck on his hard dick, he relaxes in his chair and lets you take care of his needs.'
 	'Suddenly, he removes his penis from your mouth and pulls you up on your feet. He leads you to his bedroom.'
 	gs 'arousal', 'bj', 10, 'sub', 'group'

locations/arturQW.qsrc

@@ -1,7 +1,7 @@
 # arturQW
 if $ARGS[0] = 'arturQW_1':
 	menu_off = 1
-	if arturTimes >= 5 and fame['pav_slut'] >= 50 and pcs_apprnc >= 120:
+	if arturTimes >= 5 and fame['pav_slut'] >= 150 and hotcat >= 7:
 		*clr & cla
 		minut += 2
 		gs 'stat'

locations/arturRinok.qsrc

@@ -136,7 +136,7 @@ if $ARGS[0] = 'work_1':
 			act 'Go with Arthur':
 				*clr & cla
 				minut += 5
-				money += 5000
+				money += 1250
 				gs 'stat'
 
 				'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/arthur/arturqw_4.jpg"></center>'
@@ -174,7 +174,7 @@ if $ARGS[0] = 'work_2':
 		act 'Go with Arthur':
 			*clr & cla
 			minut += 5
-			money += 10000
+			money += 2500
 			gs 'stat'
 
 			'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/arthur/arturqw_7.jpg"></center>'

locations/bed.qsrc

@@ -6,8 +6,8 @@ if $ARGS[0] = 'start':
 	shour = 24 - hour
 	gs 'stat'
 
-	if hour > 22 and rand(0, 100) < 2 and houserab = 1 and houserabday ! daystart and pcs_sleep < 50 and tanhouse1 = 1:gt 'bed', 'rab'
-	if hour > 22 and rand(0, 200) = 0 and housrA = 1 and husband = 0:gt 'bed', 'vor'
+	if hour > 22 and rand(0, 100) < 2 and houserab = 1 and houserabday ! daystart and pcs_sleep < 50 and $loc = 'nichBedroomServant':gt 'bed', 'rab'
+	if hour > 22 and rand(0, 200) = 0 and STRPOS('bedr,bedr2x,korr,korr2x',$loc) > 0 and husband = 0:gt 'bed', 'vor'
 
 	gt 'bed2'
 end
@@ -20,7 +20,7 @@ if $ARGS[0] = 'mast':
 	pcs_mood += 15
 	pcs_vag += 1
 
-	if husband > 0 and housrA = 1 and husbandrink ! 10:
+	if husband > 0 and STRPOS('bedr,bedr2x,korr,korr2x',$loc) > 0 and husbandrink ! 10:
 		if dildo > 0:
 			if week > 5 or (week < 6 and hour > 16):
 				cla
@@ -202,19 +202,9 @@ if $ARGS[0] = 'mast':
 end
 
 if $ARGS[0] = 'fin':
-	cla
-	menu_off = 1
-	if housrA = 1:
-		gt 'bedr'
-	end
-
-	if houseob = 1:
-		gt 'uni_dorm', 'dorm_room'
-	end
-
-	if tanhouse1 = 1:
-		gt 'nichBedroomServant'
-	end
+	if STRPOS('bedr,bedr2x,korr,korr2x',$loc) > 0: gt 'bedr'
+	if $loc = 'uni_dorm': gt 'uni_dorm', 'dorm_room'
+	if $loc = 'nichBedroomServant': gt 'nichBedroomServant'
 end
 
 if $ARGS[0] = 'rab':

locations/bedr.qsrc

@@ -13,8 +13,6 @@ $locclass = 'bedr'
 $location_type = 'private'
 
 minut += 1
-housrA = 1
-housrMir = 1
 elektro += 1
 gs 'stat'
 gs 'themes', 'indoors'

locations/bedr2x.qsrc

@@ -13,8 +13,6 @@ $locclass = 'bedr'
 $location_type = 'private'
 
 minut += 1
-housrA = 1
-housrMir = 1
 elektro += 1
 gs 'stat'
 gs 'themes', 'indoors'

locations/beg1.qsrc

@@ -52,10 +52,10 @@ if $ARGS[0] = 'br':
 	gs 'exercise', 'tier2', 30, 'run_exp'
 
     begminus = 0
-    if bmi_calc > 25: 
-        begminus = ((bmi_calc - 25)*4)
-    elseif bmi_calc < 18:
-        begminus = ((25 - bmi_calc)*6)
+    if pcs_bmi > 25: 
+        begminus = ((pcs_bmi - 25)*4)
+    elseif pcs_bmi < 18:
+        begminus = ((25 - pcs_bmi)*6)
     end
     begresult = pcs_run - begminus
     
@@ -104,10 +104,10 @@ if $ARGS[0] = 'kms':
 	gs 'exercise', 'tier2', 30, 'run_exp'
 
     begminus = 0
-    if bmi_calc > 25: 
-        begminus = ((bmi_calc - 25)*4)
-    elseif bmi_calc < 18:
-        begminus = ((25 - bmi_calc)*6)
+    if pcs_bmi > 25: 
+        begminus = ((pcs_bmi - 25)*4)
+    elseif pcs_bmi < 18:
+        begminus = ((25 - pcs_bmi)*6)
     end
     begresult = pcs_run - begminus
     
@@ -158,10 +158,10 @@ if $ARGS[0] = 'ross':
 	gs 'exercise', 'tier2', 30, 'run_exp'
 
 	begminus = 0
-    if bmi_calc > 25: 
-        begminus = ((bmi_calc - 25)*4)
-    elseif bmi_calc < 18:
-        begminus = ((25 - bmi_calc)*6)
+    if pcs_bmi > 25: 
+        begminus = ((pcs_bmi - 25)*4)
+    elseif pcs_bmi < 18:
+        begminus = ((25 - pcs_bmi)*6)
     end
     begresult = pcs_run - begminus
     
@@ -215,10 +215,10 @@ if $ARGS[0] = 'kval':
     minut += 60
     
     begminus = 0
-    if bmi_calc > 25: 
-        begminus = ((bmi_calc - 25)*4)
-    elseif bmi_calc < 18:
-        begminus = ((25 - bmi_calc)*6)
+    if pcs_bmi > 25: 
+        begminus = ((pcs_bmi - 25)*4)
+    elseif pcs_bmi < 18:
+        begminus = ((25 - pcs_bmi)*6)
     end
     begresult = pcs_run - begminus
     
@@ -273,10 +273,10 @@ if $ARGS[0] = 'evro':
     minut += 120
     
     begminus = 0
-    if bmi_calc > 25: 
-        begminus = ((bmi_calc - 25)*4)
-    elseif bmi_calc < 18:
-        begminus = ((25 - bmi_calc)*6)
+    if pcs_bmi > 25: 
+        begminus = ((pcs_bmi - 25)*4)
+    elseif pcs_bmi < 18:
+        begminus = ((25 - pcs_bmi)*6)
     end
     begresult = pcs_run - begminus
     

locations/body_desc.qsrc

@@ -0,0 +1,1232 @@
+# body_desc
+
+!{
+	I have gone through and added a new category of string variables, standardised to be used for descriptive writing. You will notice some duplication here -- this is for purposes of backwards compatibility, as if I completely rename and discard some of these strings,
+	extant saved games will irreparably break, and this would be Bad. One day down the line, most of the duplicated variables here can be culled, when there is a new release that warrants new saves being used, but until then the duplication needs to stay. Use of
+	strings for descriptions that do not begin with $pcdesc_ should be avoided, as it would be best to have everything standardised when moving forward into the present and future.
+	Available strings follow this format: $pc_desc['type'], $pc_descWordy['type']
+	Available 'type':
+		throat, pussy, anus, butt, breasts, lips, lip size, lip gloss  hair, hair style, hair status, hair length, hair colour, hair texture, hair bang tan, skin, eye color, eyelashes, glasses, eye size, makeup, nipples, clit, pubes, legs
+}
+
+if $ARGS[0] = '':
+    $this = 'body_desc'
+    gs $this, 'throat'
+    gs $this, 'pussy'
+    gs $this, 'anus'
+	if dounspell = 0: gs $this, 'butt' & gs $this, 'breasts' & gs $this, 'BMI'
+	gs $this, 'lips'
+	gs $this, 'hair'
+    gs $this, 'tan'
+    gs $this, 'skin'
+    gs $this, 'eye_color'
+	gs $this, 'eyelashes'
+	gs $this, 'glasses'
+    gs $this, 'eye_size'
+    gs $this, 'makeup'
+    gs $this, 'nipples'
+    gs $this, 'clit'
+    gs $this, 'pubes'
+    gs $this, 'legs'
+	gs $this, 'appearance'
+end
+
+if $ARGS[0] = 'ChooseDescWord':
+	!{
+		This function picks a random descriptive word from $ARGS array and returns back the word
+		To implement, call func($this, 'ChooseDescWord', [desc word1], [desc word2], [desc word3], etc.)
+		return a string
+	}
+	$result = $ARGS[rand(2, arrsize('$ARGS')-1)]
+end
+
+if $ARGS[0] = 'throat':
+    if pcs_throat = 0:
+		$pcs_throat = 'You have a chaste <a href="exec:view''images/pc/body/throat/th0.jpg''">mouth</a>.'
+		$pc_desc['throat'] = 'virgin'
+		$pc_descWordy['throat'] = 'virginal, unused'
+		$throattipe = 'virgin'
+	elseif pcs_throat <= 5:
+		$pcs_throat = 'You have an extremely inexperienced <a href="exec:view''images/pc/body/throat/th1.jpg''">mouth</a>.'
+		$pc_desc['throat'] = 'narrow'
+		$pc_descWordy['throat'] = 'reluctant, gag-prone'
+		$throattipe = 'narrow'
+	elseif pcs_throat <= 10:
+		$pcs_throat = 'Your slightly-experienced mouth leads to a sensitive <a href="exec:view''images/pc/body/throat/th2.jpg''">throat</a> with an easily-triggered gag reflex.'
+		$pc_desc['throat'] = 'delicate'
+		$pc_descWordy['throat'] = 'delicate, barely-experienced'
+		$throattipe = 'delicate'
+	elseif pcs_throat <= 15:
+		$pcs_throat = 'You have an experienced mouth and fairly practiced <a href="exec:view''images/pc/body/throat/th3.jpg''">throat</a>.'
+		$pc_desc['throat'] = 'fairly practiced'
+		$pc_descWordy['throat'] = 'fairly practiced'
+		$throattipe = 'fairly practiced'
+	elseif pcs_throat <= 25:
+		$pcs_throat = 'You have a willing mouth and trained <a href="exec:view''images/pc/body/throat/th4.jpg''">throat</a>.'
+		$pc_desc['throat'] = 'well-trained'
+		$pc_descWordy['throat'] = 'experienced, well-trained and eager'
+		$throattipe = 'well-trained'
+	elseif pcs_throat <= 35:
+		$pcs_throat = 'Your deep tunnel of a <a href="exec:view''images/pc/body/throat/th5.jpg''">throat</a> may adopt any member.'
+		$pc_desc['throat'] = 'capacious'
+		$pc_descWordy['throat'] = 'seasoned, effortlessly-plumbed'
+		$throattipe = 'capacious'
+	else
+		$pcs_throat = 'Your gag reflex is completely absent and your <a href="exec:view''images/pc/body/throat/th6.jpg''">throat</a> has seen nearly as much cock as it has food.'
+		$pc_desc['throat'] = 'bottomless'
+		$pc_descWordy['throat'] = 'elastic, oft-fucked'
+		$throattipe = 'bottomless'
+	end
+
+	if pcs_breath = 1:$pcs_throat += ' Last you checked, your breath smelled fresh and minty.'
+end
+
+if $ARGS[0] = 'pussy':
+    if vgape >= 4:
+		if rand(0,1) = 0:
+			$pcs_vag = 'Your regularly-fucked <a href="exec:view''images/pc/body/pussy/stage5/' + rand(1,5) + '.jpg''">playground</a> can take most things you force up there.'
+		else
+			$pcs_vag = 'Your poor little <a href="exec:view''images/pc/body/pussy/stage5/' + rand(1,5) + '.jpg''">pussy</a> is broken from too much stuffing, it''ll need time to recover.'
+		end
+		$pcs_vag_image = 'images/pc/body/pussy/stage5/' + rand(1,5) + '.jpg'
+		$pc_desc['pussy'] = func($this, 'ChooseDescWord', 'ruined', 'broken', 'proplapsed', 'destroyed', 'annihilated', 'obliterated','decimated')
+		$pc_descWordy['pussy'] = 'prolapsed, ruined, chasm of a'
+		$vaginatipe = 'ruined'
+	elseif vgape = 3:
+		$pcs_vag = 'You have a gaping hole of a <a href="exec:view''images/pc/body/pussy/stage4/' + rand(1,5) + '.jpg''">vagina</a>.'
+		$pcs_vag_image = 'images/pc/body/pussy/stage4/' + rand(1,5) + '.jpg'
+		$pc_desc['pussy'] = func($this, 'ChooseDescWord', 'gaping', 'open', 'extended', 'wide')
+		$pc_descWordy['pussy'] = 'gaping and well used'
+		$vaginatipe = 'gaping'
+	elseif vgape = 2:
+		$pcs_vag = 'Your <a href="exec:view''images/pc/body/pussy/stage3/' + rand(1,5) + '.jpg''">vagina</a> has seen some action.'
+		$pcs_vag_image = 'images/pc/body/pussy/stage3/' + rand(1,5) + '.jpg'
+		$pc_desc['pussy'] = func($this, 'ChooseDescWord', 'recovering', 'recently used', 'welcoming')
+		$pc_descWordy['pussy'] = 'experienced, welcoming'
+		$vaginatipe = 'welcoming'
+	elseif vgape = 1 or pcs_vag > 10:
+		$pcs_vag = 'Your <a href="exec:view''images/pc/body/pussy/stage2/' + rand(1,5) + '.jpg''">pussy</a> looks like has been used recently or is just well worn in.'
+		$pcs_vag_image = 'images/pc/body/pussy/stage2/' + rand(1,5) + '.jpg'
+		$pc_desc['pussy'] = func($this, 'ChooseDescWord', 'pliable', 'used')
+		$pc_descWordy['pussy'] = 'worn in'
+		$vaginatipe = 'used'
+	elseif pcs_vag > 0:
+		$pcs_vag = 'Your <a href="exec:view''images/pc/body/pussy/stage1/' + rand(1,5) + '.jpg''">pussy</a> looks unused.'
+		$pcs_vag_image = 'images/pc/body/pussy/stage1/' + rand(1,5) + '.jpg'
+		$pc_desc['pussy'] = func($this, 'ChooseDescWord', 'snug', 'tight', 'cosy')
+		$pc_descWordy['pussy'] = 'tight and unused'
+		$vaginatipe = 'unused'
+	else
+		$pcs_vag = 'Your virgin <a href="exec:view''images/pc/body/pussy/stage0/' + rand(1,5) + '.jpg''">pussy</a> still has its hymen intact.'
+		$pcs_vag_image = 'images/pc/body/pussy/stage0/' + rand(1,5) + '.jpg'
+		$pc_desc['pussy'] = 'virgin'
+		$pc_descWordy['pussy'] = 'virgin'
+		$vaginatipe = 'virgin'
+	end
+end
+
+if $ARGS[0] = 'anus':
+    !! The original variables are all named for ass, but really, this is just all about the asshole.
+	if analplugIN = 0:
+		if agape >= 4:
+			anpic = 5
+			if rand(0,1) = 0:
+				$pcs_ass = 'Your <a href="exec:view''images/pc/body/anus/stage5/' + rand(1,5) + '.jpg''">anus</a> genuinely doesn''t fully close on its own currently. You could put a fist through it and it would scarcely stretch at all.'
+			else
+				$pcs_ass = 'Your <a href="exec:view''images/pc/body/anus/stage5/' + rand(1,5) + '.jpg''">anus</a> is almost completely wrecked at this time. Even with conscious effort it''s hard to close it.'
+			end
+			$pc_desc['anus'] = func($this, 'ChooseDescWord', 'gaping', 'yawning', 'destroyed', 'demolished', 'uselessly loose','ruined', 'wrecked')
+			$pc_descWordy['anus'] = 'gaping, seemingly constantly-fucked'
+			$anustipe = 'gaping'
+		elseif agape = 3:
+			anpic = 4
+			$pcs_ass = 'Your <a href="exec:view''images/pc/body/anus/stage4/' + rand(1,5) + '.jpg''">anus</a> looks like a wide hole, it is clear you have recently been penetrated.'
+			$pc_desc['anus'] = func($this, 'ChooseDescWord', 'loose', 'casually open', 'routinely-fucked')
+			$pc_descWordy['anus'] = 'loose, open'
+			$anustipe = 'loose'
+		elseif agape = 2:
+			anpic = 3
+			$pcs_ass = 'Your <a href="exec:view''images/pc/body/anus/stage3/' + rand(1,5) + '.jpg''">anus</a> gapes a little from anal penetration, it should recover soon.'
+			$pc_desc['anus'] = func($this, 'ChooseDescWord', 'stretchy', 'welcomingly ready', 'experienced')
+			$pc_descWordy['anus'] = 'stretchy, regularly-fucked'
+			$anustipe = 'stretchy'
+		elseif agape = 1 or pcs_ass > 10:
+			anpic = 2
+			$pcs_ass = 'Your pliable <a href="exec:view''images/pc/body/anus/stage2/' + rand(1,5) + '.jpg''">anus</a> has the shape of an asterisk and has clearly been used.'
+			$pc_desc['anus'] = func($this, 'ChooseDescWord', 'flexible', 'slightly experienced', 'pliable')
+			$pc_descWordy['anus'] = 'flexible, still-snug'
+			$anustipe = 'flexible'
+		elseif pcs_ass > 0:
+			anpic = 1
+			$pcs_ass = 'Your <a href="exec:view''images/pc/body/anus/stage1/' + rand(1,5) + '.jpg''">anus</a> shows no sign of having been penetrated.'
+			$pc_desc['anus'] = func($this, 'ChooseDescWord', 'tight', 'tightly-clenching', 'snug')
+			$pc_descWordy['anus'] = 'tight, scarcely-used'
+			$anustipe = 'tight'
+		else
+			anpic = 0
+			$pcs_ass = 'You have a virgin <a href="exec:view''images/pc/body/anus/stage0/' + rand(1,5) + '.jpg''">anus</a>.'
+			$pc_desc['anus'] = 'virgin'
+			$pc_descWordy['anus'] = 'virgin'
+			$anustipe = 'virgin'
+		end
+	!! This below was originally missing even the original reference for $anustipe, so I added it in simplistically. Also, tanga means panties, or more specifically, a thong. A lot of duplication on descriptions, but not much to change, the logic is for images.
+	else
+		$pc_desc['anus'] = 'plugged'
+		$pc_descWordy['anus'] = 'plug-stuffed'
+		$anustipe = 'plugged'
+		if $pantyworntype ! 'none':
+			$pcs_ass = 'Your <a href="exec:view''images/pc/body/analplug.jpg''">anus</a> is currently filled with your butt plug.'	
+		else
+			if pirsG > 0 and pirsG < 10000:
+				$pcs_ass = 'Your <a href="exec:view''images/pc/body/anus/pirs' + rand(1,3) + '.jpg''">anus</a> is currently filled with your butt plug.'
+			else
+				$pcs_ass = 'Your <a href="exec:view''images/pc/body/anus/analplugnotanga.jpg''">anus</a> is currently filled with your butt plug.'
+			end
+		end
+	end
+end
+
+if $ARGS[0] = 'BMI':
+	!!BMI Descriptions
+	if pcs_bmi < 16:
+		$bmi_desc = 'You are severely underweight.'
+	elseif pcs_bmi >= 16 and pcs_bmi < 19:
+		$bmi_desc = 'You are underweight'
+	elseif pcs_bmi >= 19 and pcs_bmi < 25:
+		$bmi_desc = 'You have a normal, healthy weight.'
+	elseif pcs_bmi >= 25 and pcs_bmi < 30:
+		$bmi_desc = 'You are overweight.'
+	elseif pcs_bmi >= 30 and pcs_bmi < 35:
+		$bmi_desc = 'You are moderately obese.'
+	elseif pcs_bmi >= 35 and pcs_bmi < 40:
+		$bmi_desc = 'You are severely obese.'
+	elseif pcs_bmi >= 40 and bmi_pcs_bmicalc < 45:
+		$bmi_desc = 'You are very severely obese.'
+	elseif pcs_bmi >= 45:
+		$bmi_desc = 'You are morbidly obese.'
+	end
+end
+
+if $ARGS[0] = 'breasts':
+	!! If the PC has vastly less breast tissue than she does silicone, use a slightly more derogatory term. There is actually not a great way to calculate this; silicone counts almost the same on all body types, even though an increase of 200cc, for example, would be vastly
+	!! more noticeable on a thinner body than a heavier one. I have experimented with moving where the silicone is factored in to the body shape calculations, but ultimately there is just no better way to do it than how it is now, given the things that increase the amount
+	!! of silicone in the PC body. The best kludge I can make is working off of stored fat (pcs_weight does actually not do the job at all, as a fat PC and thin PC are almost the same, oddly, in my tests) and making an approximation from there. The amount of the silicone
+	!! variable does not really equate to any particular real-life cc calculation for implant size, so we cannot go off of that. This will have to do for now.
+	pcs_bustdisparity = (silicone/10) - salocatnow
+
+	if pcs_bustdisparity >=1 and pcs_bustdisparity < 2:
+		$pcdesc_breastsqualifierinsertive = ''
+		$pcdesc_breastsword = 'bolt-ons'
+		pcdesc_breastimplantcheck = 1
+	elseif pcs_bustdisparity >= 2 and pcs_bustdisparity < 3:
+		$pcdesc_breastsqualifierinsertive = ', semi-spherical'
+		$pcdesc_breastsword = 'bolt-ons'
+		pcdesc_breastimplantcheck = 1
+	elseif pcs_bustdisparity >= 3 and pcs_bustdisparity < 4:
+		$pcdesc_breastsqualifierinsertive = ', firm and round'
+		$pcdesc_breastsword = 'bolt-ons'
+		pcdesc_breastimplantcheck = 1
+	!! Already we are about as far as a normal, non-fetishistic human being would get -- the maximum size of implant, the XXL, results in 40 silicone, and an extremely thin and well-kept PC will have a minimum salocatnow of 1.
+	!! That means that anything below this line means it was a very intentional move toward sexual objectification, as it could only come from fillable or string implants (and on a thin frame, no less), so we can take some liberties.
+	elseif pcs_bustdisparity >= 4 and pcs_bustdisparity < 5:
+		$pcdesc_breastsqualifierinsertive = ', clearly man-made'
+		$pcdesc_breastsword = 'bolt-ons'
+		pcdesc_breastimplantcheck = 1
+	elseif pcs_bustdisparity >= 5 and pcs_bustdisparity < 6:
+		$pcdesc_breastsqualifierinsertive = ', plastic fuckdoll'
+		$pcdesc_breastsword = 'bolt-ons'
+		pcdesc_breastimplantcheck = 1
+	elseif pcs_bustdisparity >= 6 and pcs_bustdisparity < 7:
+		$pcdesc_breastsqualifierinsertive = ', walking fucktoy'
+		$pcdesc_breastsword = 'bolt-ons'
+		pcdesc_breastimplantcheck = 1
+	elseif pcs_bustdisparity >= 7 and pcs_bustdisparity < 8:
+		$pcdesc_breastsqualifierinsertive = ', laughably overdone fuckdoll'
+		$pcdesc_breastsword = 'bolt-ons'
+		pcdesc_breastimplantcheck = 1
+	elseif pcs_bustdisparity >= 8:
+		$pcdesc_breastsqualifierinsertive = ', <<$pc_descWordy[''hair colour'']>> overdone fuckdoll'
+		$pcdesc_breastsword = 'bolt-ons'
+		pcdesc_breastimplantcheck = 1
+	!! This triggers if they have fake breasts, but they are not obviously, blatantly fake breasts. In fact, this should be what triggers most of the time with a PC who has implants, given average cases.
+	elseif pcs_bustdisparity < 1 and silicone > 0:
+		if pcs_cupsize <= 30:
+			$pcdesc_breastsword = 'breasts'
+		else
+			$pcdesc_breastsword = 'tits'
+		end
+		$pcdesc_breastsqualifierinsertive = ''
+		pcdesc_breastimplantcheck = 1
+	!! For all-natural PCs.
+	else
+		if pcs_cupsize <= 30:$pcdesc_breastsword = 'breasts'
+		if pcs_cupsize > 30:$pcdesc_breastsword = 'tits'
+		$pcdesc_breastsqualifierinsertive = ''
+		pcdesc_breastimplantcheck = 0
+	end
+	
+	!! These will not be used below, but can be referenced by descriptive writers in case they want to be able to quickly reference whether or not the PC has implants, as in "He reaches up and cups your<<$pcdesc_breastsfakeinsertive>> breasts."
+	if pcdesc_breastimplantcheck = 1:
+		$pcdesc_breastsfakeinsertive = ' fake'
+	else
+		$pcdesc_breastsfakeinsertive = ''
+	end
+
+	if pcs_cupsize <= 5:
+		tits = 0
+		$titsize = 'AA cup'
+		$pc_desc['breast'] = func($this, 'ChooseDescWord', 'tiny', 'barely-there')
+
+		!! Honestly, I am not even sure it is possible to have silicone and be this small. But just in case...
+		if pcdesc_breastimplantcheck = 1:
+			$pc_descWordy['breast'] = 'scarcely-augmented<<$pcdesc_breastsqualifierinsertive>> <<$pcdesc_breastsword>>'
+		else
+			$pc_descWordy['breast'] = 'tiny, mosquito-bite <<$pcdesc_breastsword>>'
+		end
+		$pcdesc_breasts = 'tiny'
+	elseif pcs_cupsize <= 10:
+		tits = 1
+		$titsize = 'A cup'
+		rand_breasts = rand(0,1)
+		if rand_breasts = 0:
+			$pcdesc_breastsrandom = 'petite'
+		elseif rand_breasts = 1:
+			$pcdesc_breastsrandom = 'smaller than a handful'
+		end
+		$pc_desc['breast'] = func($this, 'ChooseDescWord', 'petite', 'smaller than a handful')
+		if pcdesc_breastimplantcheck = 1:
+			$pc_descWordy['breast'] = 'barely modified<<$pcdesc_breastsqualifierinsertive>> <<$pcdesc_breastsword>>'
+		else
+			$pc_descWordy['breast'] = 'petite, puffy little <<$pcdesc_breastsword>>'
+		end
+		$pcdesc_breasts = 'petite'
+	elseif pcs_cupsize <= 15:
+		tits = 2
+		$titsize = 'B cup'
+		$pc_desc['breast'] = func($this, 'ChooseDescWord', 'small', 'sporty')
+		if pcdesc_breastimplantcheck = 1:
+			$pc_descWordy['breast'] = 'small, subtly augmented<<$pcdesc_breastsqualifierinsertive>> <<$pcdesc_breastsword>>'
+		else
+			$pc_descWordy['breast'] = 'small, handful-sized <<$pcdesc_breastsword>>'
+		end
+		$pcdesc_breasts = 'small'
+	elseif pcs_cupsize <= 20:
+		tits = 3
+		$titsize = 'C cup'
+		$pc_desc['breast'] = func($this, 'ChooseDescWord', 'ample', 'average-sized')
+		!! At this point PCs should now be able to get the bolted-on look, so we need to be a bit more careful to avoid contradictions in descriptive phrasing. It is OK to have some repetition here for a cup size or two.
+		if pcdesc_breastimplantcheck = 1:
+			$pc_descWordy['breast'] = 'ample, silicone-padded<<$pcdesc_breastsqualifierinsertive>> <<$pcdesc_breastsword>>'
+		else
+			$pc_descWordy['breast'] = 'ample, handful-sized <<$pcdesc_breastsword>>'
+		end
+		$pcdesc_breasts = 'ample'
+	elseif pcs_cupsize <= 25:
+		tits = 4
+		$titsize = 'D cup'
+		$pc_desc['breast'] = func($this, 'ChooseDescWord', 'full', 'hefty')
+		if pcdesc_breastimplantcheck = 1:
+			$pc_descWordy['breast'] = 'full, silicone-padded<<$pcdesc_breastsqualifierinsertive>> <<$pcdesc_breastsword>>'
+		else
+			$pc_descWordy['breast'] = 'jiggly, womanly full <<$pcdesc_breastsword>>'
+		end
+		$pcdesc_breasts = 'full'
+	elseif pcs_cupsize <= 30:
+		tits = 5
+		$titsize = 'E cup'
+		$pc_desc['breast'] = func($this, 'generous', 'heavy', 'fairly large')
+		if pcdesc_breastimplantcheck = 1:
+			$pc_descWordy['breast'] = 'heavy, fake<<$pcdesc_breastsqualifierinsertive>> <<$pcdesc_breastsword>>'
+		else
+			$pc_descWordy['breast'] = 'soft, generously-sized <<$pcdesc_breastsword>>'
+		end
+		$pcdesc_breasts = 'generous'
+	elseif pcs_cupsize <= 35:
+		!! From F cup and onward, breasts are now automatically referred to as tits, since that is how most others will see them. It is a subtle sexualisation, but it should be one that matches with the pre-generated descriptions from here on out.
+		tits = 6
+		$titsize = 'F cup'
+		$pc_desc['breast'] = func($this, 'ChooseDescWord', 'big', 'large')
+		if pcdesc_breastimplantcheck = 1:
+			$pc_descWordy['breast'] = 'big, implant-stuffed<<$pcdesc_breastsqualifierinsertive>> <<$pcdesc_breastsword>>'
+		else
+			$pc_descWordy['breast'] = 'big, jiggly and sizeable <<$pcdesc_breastsword>>'
+		end
+		$pcdesc_breasts = 'big'
+	elseif pcs_cupsize <= 40:
+		tits = 7
+		$titsize = 'G cup'
+		$pc_desc['breast'] = func($this, 'ChooseDescWord', 'considerably large', 'quite large')
+		if pcdesc_breastimplantcheck = 1:
+			$pc_descWordy['breast'] = 'considerably large, implant-stuffed<<$pcdesc_breastsqualifierinsertive>> <<$pcdesc_breastsword>>'
+		else
+			$pc_descWordy['breast'] = 'quite large and jiggly <<$pcdesc_breastsword>>'
+		end
+		$pcdesc_breasts = 'considerably large'
+	elseif pcs_cupsize <= 45:
+		tits = 8
+		$titsize = 'H cup'
+		$pc_desc['breast'] = func($this, 'ChooseDescWord', 'extremely large', 'incredibly stacked')
+		if pcdesc_breastimplantcheck = 1:
+			$pc_descWordy['breast'] = 'extremely large, silicone-stuffed<<$pcdesc_breastsqualifierinsertive>> <<$pcdesc_breastsword>>'
+		else
+			$pc_descWordy['breast'] = 'extremely large, over-stacked <<$pcdesc_breastsword>>'
+		end
+		$pcdesc_breasts = 'extremely large'
+	elseif pcs_cupsize <= 50:
+		tits = 9
+		$titsize = 'I cup'
+		$pc_desc['breast'] = func($this, 'ChooseDescWord', 'huge', 'impractically big', 'figure-dominating')
+		if pcdesc_breastimplantcheck = 1:
+			$pc_descWordy['breast'] = 'huge, silicone-swollen<<$pcdesc_breastsqualifierinsertive>> <<$pcdesc_breastsword>>'
+		else
+			$pc_descWordy['breast'] = 'huge, wholly impractical <<$pcdesc_breastsword>>'
+		end
+		$pcdesc_breasts = 'huge'
+	elseif pcs_cupsize <= 55:
+		tits = 10
+		$titsize = 'J cup'
+		$pc_desc['breast'] = func($this, 'ChooseDescWord', 'massive', 'enormous')
+		if pcdesc_breastimplantcheck = 1:
+			$pc_descWordy['breast'] = 'massively fake<<$pcdesc_breastsqualifierinsertive>> <<$pcdesc_breastsword>>'
+		else
+			$pc_descWordy['breast'] = 'massive, attention-grabbing <<$pcdesc_breastsword>>'
+		end
+		$pcdesc_breasts = 'massive'
+	else
+		tits = 11
+		$titsize = 'K cup'
+		$pc_desc['breast'] = func($this, 'ChooseDescWord', 'whorishly oversized', 'fucktoy-appropriate','ridiculously big')
+		if pcdesc_breastimplantcheck = 1:
+			$pc_descWordy['breast'] = 'whorishly oversized<<$pcdesc_breastsqualifierinsertive>> <<$pcdesc_breastsword>>'
+		else
+			$pc_descWordy['breast'] = 'ridiculously big and figure-dominating <<$pcdesc_breastsword>>'
+		end
+		$pcdesc_breasts = 'whorishly oversized'
+	end
+end
+
+if $ARGS[0] = 'butt':
+	!natural butt
+	if pcs_butt <= 4: 
+		$pcs_butt = 'Your <a href="exec:view''images/pc/body/ass/1.jpg''">ass</a> is square and as flat as a plank.  It can be considered very masculine looking and isn''t very impressive.'
+	elseif pcs_butt <= 8: 
+		$pcs_butt = 'You have an average, feminine looking <a href="exec:view''images/pc/body/ass/2.jpg''">ass</a>. While it''s not flat, it''s nothing special either.'
+	elseif pcs_butt <= 12: 
+		$pcs_butt = 'Your tight <a href="exec:view''images/pc/body/ass/3.jpg''">ass</a> is a little bigger, rounder and firmer than average. You often draw the stares of guys around you.'
+	elseif pcs_butt <= 16: 
+		$pcs_butt = 'You have a large and natural bubble <a href="exec:view''images/pc/body/ass/4.jpg''">butt</a> that jiggles and sways as you walk. Guys hungrily fixate on you with their tongues hanging out and other girls are often envious of your booty.'
+	end
+
+	!have butt implant
+	if silicone_butt > 0:
+		buttpic = 4
+		$pcs_butt = 'Through the use of implants, you have given yourself a jiggly bubble <a href="exec:view''images/pc/body/ass/4.jpg''">butt</a> that attracts the attention of the people around you. It might be fake, but you''ve got some junk in the trunk.'
+	end
+end
+
+if $ARGS[0] = 'lips':
+	if pcs_lip <= 0:
+		pcs_lip = 0
+		$pc_desc['lip size'] = func($this, 'ChooseDescWord', 'thin', 'narrow', 'slender')
+		$pcs_lipSize = 'thin'
+		$pc_descWordy['lip size'] = 'thin, scarcely-noticeable'
+	elseif pcs_lip = 1:
+		$pc_desc['lip size'] = func($this, 'ChooseDescWord', 'kissable', 'normal')
+		$pcs_lipSize = 'normal'
+		$pc_descWordy['lip size'] = 'kissable, if average'
+	elseif pcs_lip = 2:
+		$pc_desc['lip size'] = func($this, 'ChooseDescWord', 'plump', 'full', 'inviting')
+		$pcs_lipSize = 'plump'
+		$pc_descWordy['lip size'] = 'invitingly full'
+	elseif pcs_lip = 3:
+		$pc_desc['lip size'] = func($this, 'ChooseDescWord', 'thick', 'big', 'pouty')
+		$pcs_lipSize = 'big, pouting'
+		$pc_descWordy['lip size'] = 'big, pouty and full'
+	else
+		pcs_lip = 4
+		$pc_desc['lip size'] = func($this, 'ChooseDescWord', 'fat', 'pillowy', 'plush')
+		$pcs_lipSize = 'pillowy'
+		$pc_descWordy['lip size'] = 'plush, pillowy and inviting'
+	end
+	!! Lip balm is used OVER makeup, and given the descriptions already provided for what it does to lips, I feel with some certainty it is meant to be lip gloss, not lip BALM. Still, cannot change the old variables...
+	!! $pcdesc_lipglossed is used for a past-tense descriptive, present-tense descriptives will use $pcdesc_lipgloss. In most cases, the lip balm descriptors should only add options when looking at random choices, as the additional random options are merely indicative of 
+	!! a more suggestive lip shape and fullness, not necessarily a different type of gloss. Only shiny is culled past 1, because it is boring. $pcs_lipbalm is left for backwards compatibility.
+	if pcs_lipbalm > 0:
+		$pc_desc['lip gloss'] = func($this, 'ChooseDescWord', 'shiny', 'glossy', 'juicy', 'slippery')
+		$pc_desc['lip glossed'] = 'glossed'
+		if pcs_lip = 1:
+			$pcs_lipbalm = 'shiny'
+			$pc_descWordy['lip glossed'] = 'gloss-slicked'
+		elseif pcs_lip = 2:
+			$pcs_lipbalm = 'brilliant and juicy'
+			$pc_descWordy['lip glossed'] = 'invitingly glossed'
+		elseif pcs_lip = 3:
+			$pcs_lipbalm = 'juicy and full'
+			$pc_descWordy['lip glossed'] = 'wetly-glossed'
+		elseif pcs_lip = 4:
+			$pcs_lipbalm = 'wet and glossy'
+			$pc_descWordy['lip glossed'] = 'suggestively gloss-glazed'
+		else
+			!! Lip size 0
+			$pcs_lipbalm = 'shiny'
+			$pc_descWordy['lip glossed'] = 'gloss-slicked'
+		end
+	else
+		!! No gloss
+		$pc_desc['lip gloss'] = 'soft'
+		$pcs_lipbalm = 'soft'
+		$pc_desc['lip glossed'] = 'softened'
+	end
+
+	$lip = 'You have <<$pcs_lipSize>>, <<$pc_desc[''lip gloss'']>> ' + iif(pcs_lip = 4, 'suggestively full ', '') +  'lips. <<$pirsB>> <<$pirsA>>'
+
+    !! A pair of ready-made lip strings for writers to use if they are unsure how to construct them themselves. Again, these are not great and should preferably not be relied on, but they are here.
+	$pc_desc['lips'] = '<<$pc_desc[''lip size'']>> <<$pc_desc[''lip gloss'']>>'
+	$pc_descWordy['lips'] = '<<$pc_desc[''lip gloss'']>>, <<$pc_descWordy[''lip size'']>>'
+end
+
+if $ARGS[0] = 'tan':
+	!! The solarium increases tan value by 10,  and the beach increases it by 1 or 3 based on whether or not you use sunblock (counterintuitively, sunblock increases it by 3, not 1 -- I think suntan lotion was meant, which is actually a different thing)
+	if pcs_tan = 0:
+		$pc_desc['tan'] = func($this, 'ChooseDescWord', 'pale', 'alabaster', 'porcelain', 'fair')
+		$pc_descWordy['tan'] = 'pale, alabaster'
+		$pcs_tan = 'pale'
+	elseif pcs_tan > 0 and pcs_tan <= 5:
+		$pc_desc['tan'] = func($this, 'ChooseDescWord', 'lightly tanned', 'barely tanned', 'scarcely darkened')
+		$pc_descWordy['tan'] = 'just barely sun-kissed'
+		$pcs_tan = 'faintly tanned'
+	elseif pcs_tan > 5 and pcs_tan <= 10:
+		$pc_desc['tan'] = func($this, 'ChooseDescWord', 'tanned', 'lightly bronzed', 'sun-kissed', 'lightly browned')
+		$pc_descWordy['tan'] = 'gently sun-kissed'
+		$pcs_tan = 'tanned'
+	elseif pcs_tan > 10 and pcs_tan <= 25:
+		$pc_desc['tan'] = func($this, 'ChooseDescWord', 'bronzed', 'browned', 'light caramel')
+		$pc_descWordy['tan'] = 'sun-swept, beach-bunny brown'
+		$pcs_tan = 'bronzed'
+	elseif pcs_tan > 25 and pcs_tan <= 50:
+		$pc_desc['tan'] = func($this, 'ChooseDescWord', 'deeply tanned', 'very dark', 'richly browned', 'tawny')
+		$pc_descWordy['tan'] = 'dark, richly browned'
+		$pcs_tan = 'deeply tanned'
+	else
+		!! This would take some very intentional tanorexia
+		$pc_desc['tan'] = func($this, 'ChooseDescWord', 'extremely darkly tanned', 'nearly unnaturally darkened', 'dark, desert-tanned')
+		$pc_descWordy['tan'] = 'practically swarthy'
+		$pcs_tan = 'extremely darkly tanned'
+	end
+end
+
+if $ARGS[0] = 'skin':
+    if pcs_skin < 20:
+		$pc_desc['skin'] = func($this, 'ChooseDescWord', 'terrible', 'awful', 'greasy', 'pimple-strewn')
+		$pc_descWordy['skin'] = 'awful, greasy and pimply'
+		$skin = 'Your <<$pcs_tan>> skin is rough and covered with pimples and moles. <<$pirsC>> <<$pirsD>> <<$pirsE>> <<$pirsN>>'
+		$skin1 = 'terrible'
+	elseif pcs_skin < 40:
+		$pc_desc['skin'] = func($this, 'ChooseDescWord', 'bad', 'greasy', 'rough', 'unappealing')
+		$pc_descWordy['skin'] = 'poorly-kept, unappealing'
+		$skin = 'Your <<$pcs_tan>> skin is rough and has a few pimples. <<$pirsC>> <<$pirsD>> <<$pirsE>> <<$pirsN>>'
+		$skin1 = 'bad'
+	elseif pcs_skin < 60:
+		$pc_desc['skin'] = func($this, 'ChooseDescWord', 'average', 'normal', 'clear')
+		$pc_descWordy['skin'] = 'normal, slightly rough'
+		$skin = 'Your <<$pcs_tan>> skin is clear of acne but still slightly rough. <<$pirsC>> <<$pirsD>> <<$pirsE>> <<$pirsN>>'
+		$skin1 = 'average'
+	elseif pcs_skin < 80:
+		$pc_desc['skin'] = func($this, 'ChooseDescWord', 'good', 'nice', 'smooth', 'great', 'well-kept')
+		$pc_descWordy['skin'] = 'smooth, well-kept'
+		$skin = 'You have <<$pcs_tan>>, smooth and well-groomed skin. <<$pirsC>> <<$pirsD>> <<$pirsE>> <<$pirsN>>'
+		$skin1 = 'good'
+	else
+		$pc_desc['skin'] = func($this, 'ChooseDescWord', 'excellent', 'silken', 'soft', 'silky', 'immaculate')
+		$pc_descWordy['skin'] = 'immaculate, silky-soft'
+		$skin = 'You have <<$pcs_tan>> and very smooth skin which almost feels like silk to the touch. <<$pirsC>> <<$pirsD>> <<$pirsE>> <<$pirsN>>'
+		$skin1 = 'excellent'
+	end
+end
+
+if $ARGS[0] = 'eyelashes':
+	!! extended lash functionality; pcs_lashes = n are: {2, largest natural size}, {3, with temporary false lashes on or basic 2D lash extensions}, {4, with ornate false lashes on or lavish 4D extensions}, {5, with extremely ornate, 6D-style extensions} - xerya
+	!! If players do not have a pcs_naturallashes value, extrapolate one as best as possible from what they currently have.
+	if pcs_naturallashes <= 0 and pcs_lashes <= 2 and retroactivenaturallashes <= 0:
+		pcs_naturallashes = pcs_lashes
+		retroactivenaturallashes = 1
+	end
+
+	if pcs_lashes >= 5:
+		$pc_desc['eyelashes'] = func($this, 'ChooseDescWord', 'long, jewel-dusted', 'incredibly extravagant','overwhelmingly indulgent','jewel-sparkled, showgirl')
+		$pc_descWordy['eyelashes'] = 'incredibly extravagant, jewel-dusted'
+		$pcs_lashes = 'with over-the-top, jewel-dusted eyelash extensions'
+	elseif pcs_lashes = 4:
+		if false_lashes >= 1:
+			$pc_desc['eyelashes'] = func($this, 'ChooseDescWord', 'mink-feathered', 'attention-grabbing','intoxicatingly seductive false','wildly flirtatious false')
+			$pcs_lashes = 'with fabulous, mink-feathered false lashes'
+			$pc_descWordy['eyelashes'] = 'fabulous, mink-feathered false'
+		else
+			$pc_desc['eyelashes'] = func($this, 'ChooseDescWord', 'amazingly lengthy', 'show-stealing','incredibly lush','stunningly dark and full')
+			$pcs_lashes = 'with stunningly dark and full lash extensions'
+			$pc_descWordy['eyelashes'] = 'stunningly dark and full, show-stealing'
+		end
+
+	elseif pcs_lashes = 3:
+		$pc_desc['eyelashes'] = func($this, 'ChooseDescWord', 'lavish', 'lush, dark','seductively-curled','flirtatiously lengthy')
+
+		if false_lashes >= 1:
+			$pcs_lashes = 'with lavish, fluttery false lashes'
+			$pc_descWordy['eyelashes'] = 'lavish, attention-grabbing false'
+		else	
+			$pcs_lashes = 'with lavishly seductive lash extensions'
+			$pc_descWordy['eyelashes'] = 'lavish, seductively dark'
+		end
+
+	elseif pcs_lashes = 2:
+		$pc_desc['eyelashes'] = func($this, 'ChooseDescWord', 'lengthy', 'long','fluttery','seductive')
+		$pc_descWordy['eyelashes'] = 'long, fluttery'
+		$pcs_lashes = 'with long eyelashes'
+
+	elseif pcs_lashes = 1:
+		$pc_desc['eyelashes'] = 'average'
+		$pc_descWordy['eyelashes'] = 'average'
+		$pcs_lashes = 'with average eyelashes'
+
+	elseif pcs_lashes = 0:
+		$pc_desc['eyelashes'] = func($this, 'ChooseDescWord', 'short', 'scarce','faint')
+		$pc_descWordy['eyelashes'] = 'short, barely-noticeable'
+		$pcs_lashes = 'with short eyelashes'
+	end
+end
+
+if $ARGS[0] = 'glasses':
+	!!!CV edition: from glassvnesh = 5 to glassvnesh = 0
+	!! I changed glassvnesh back to 5 for wearing basic glasses. Boys do not make passes at girls who wear glasses.
+	!! Most of these descriptive variables are for describing cum, they would not be reliable for much else. They are used in the context of looking through something.
+	if glass >= 2:
+		$pc_desc['vision'] = func($this, 'ChooseDescWord', 'glasses', 'lenses')
+		$pc_descWordy['vision'] = 'chic, stylish glasses'
+		$glass = ' You wear glasses.'
+	elseif glass = 1:
+		$pc_desc['vision'] = func($this, 'ChooseDescWord', 'glasses', 'lenses', 'dorky glasses', 'geeky lenses')
+		$pc_descWordy['vision'] = 'cheap, utilitarian glasses'
+		$glass = ' You wear silly glasses in a cheap frame.'
+	else
+		glass = 0
+		$glass = ''
+	end
+end
+
+if $ARGS[0] = 'eye_color':
+    if pcs_eyecol = 0:
+		$pc_desc['eye colour'] = func($this, 'ChooseDescWord', 'brown', 'hazel')
+		$pc_descWordy['eye colour'] = 'warm, hazel'
+		$pcs_eyecol = 'brown'
+	elseif pcs_eyecol = 1:
+		$pc_desc['eye colour'] = func($this, 'ChooseDescWord', 'pale', 'grey', 'silvery')
+		$pc_descWordy['eye colour'] = 'pale, silvery-grey'
+		$pcs_eyecol = 'grey'
+	elseif pcs_eyecol = 2:
+		$pc_desc['eye colour'] = func($this, 'ChooseDescWord', 'green', 'emerald')
+		$pc_descWordy['eye colour'] = 'sparkling green'
+		$pcs_eyecol = 'green'
+	elseif pcs_eyecol = 3:
+		$pc_desc['eye colour'] = func($this, 'ChooseDescWord', 'blue', 'sapphire')
+		$pc_descWordy['eye colour'] = 'vibrant, crystal blue'
+		$pcs_eyecol = 'blue'
+	else
+		$pc_desc['eye colour'] = 'attractive'
+		$pc_descWordy['eye colour'] = 'attractive'
+		$pcs_eyecol = 'attractive'
+	end
+end
+
+if $ARGS[0] = 'eye_size':
+    !! Most of these sound really terrible. Would REALLY recommend only using the insertive context, as the less-flowery versions will simply not return anything at all.
+	if pcs_eyesize = 0:
+		$pc_desc['eye size'] = ''
+		$pc_descWordy['eye size'] = 'little'
+		$glaza = 'You have little <<$pcs_eyecol>> eyes <<$pcs_lashes>>.<<$glass>>'
+	elseif pcs_eyesize = 1:
+		$pc_desc['eye size'] = ''
+		$pc_descWordy['eye size'] = 'medium-sized'
+		$glaza = 'You have medium-sized <<$pcs_eyecol>> eyes <<$pcs_lashes>>.<<$glass>>'
+	elseif pcs_eyesize = 2:
+		$pc_desc['eye size'] = ' large,'
+		$pc_descWordy['eye size'] = 'large, expressive'
+		$glaza = 'You have large <<$pcs_eyecol>> eyes <<$pcs_lashes>>.<<$glass>>'
+	else
+		pcs_eyesize = 3
+		$pc_desc['eye size'] = 'huge'
+		$pc_descWordy['eye size'] = 'huge'
+		$glaza = 'You have huge <<$pcs_eyecol>> eyes that almost look like they''re out of an anime, <<$pcs_lashes>>.<<$glass>>'
+	end
+end
+
+if $ARGS[0] = 'pierrcing':
+    !! If, like me, you are confused by the logic of what initially appear to be arbitrary numbers, it turns out the piercing location value is set to a number to indicate which photo it uses, which is tied to what jewelry you have for the piercing. 10000 means pierced, but no jewelry.
+	if pirsA > 0 and pirsA < 10000:
+		$pirsA = 'When you talk to people, they can sometimes get a glimpse of your tongue piercing.'
+		rand_tongue = rand(0,1)
+		if rand_tongue = 0:
+			$pcdesc_tonguerandom = 'pierced tongue'
+		elseif rand_tongue = 1:
+			$pcdesc_tonguerandom = 'pierced licker'
+		end
+		$pcdesc_tonguewordy = 'barbell-pierced tongue'
+		$pcdesc_tongue = 'pierced tongue'
+	else
+		$pirsA = ''
+		rand_tongue = rand(0,1)
+		if rand_tongue = 0:
+			$pcdesc_tonguerandom = 'tongue'
+		elseif rand_tongue = 1:
+			$pcdesc_tonguerandom = 'licker'
+		end
+		$pcdesc_tonguewordy = 'tongue'
+		$pcdesc_tongue = 'tongue'
+	end
+
+	if pirsB > 0 and pirsB < 10000:
+		$pirsB = 'Your lip is pierced.'
+		$pcdesc_lowerliprandom = 'pierced lower lip'
+		$pcdesc_lowerlipwordy = 'jewelry-studded lower lip'
+		$pcdesc_lowerlip = 'pierced lower lip'
+	else
+		$pirsB = ''
+		$pcdesc_lowerliprandom = 'lower lip'
+		$pcdesc_lowerlipwordy = 'lower lip'
+		$pcdesc_lowerlip = 'lower lip'
+	end
+
+	if pirsC > 0 and pirsC < 10000:
+		$pirsC = 'You are wearing earrings.'
+		$pcdesc_earsrandom = 'pierced ears' & $pcdesc_earrandom = 'pierced ear'
+		$pcdesc_earswordy = 'pierced ears'
+		$pcdesc_ears = 'pierced ears'
+		$pcdesc_earwordy = 'pierced ear'
+		$pcdesc_ear = 'pierced ear'
+	else
+		$pirsC = ''
+		$pcdesc_earsrandom = 'ears' & $pcdesc_earrandom = 'ear'
+		$pcdesc_earswordy = 'ears'
+		$pcdesc_ears = 'ears'
+		$pcdesc_earwordy = 'ear'
+		$pcdesc_ear = 'ear'
+	end
+
+	!! Unfortunately there is no real way to tell if it is a pierced septum or a pierced nostril without overhauling the jewelry and other piercing references for now.
+	if pirsD > 0 and pirsD < 10000:
+		$pirsD = 'You have a piercing inserted in your nose.'
+		$pcdesc_noserandom = 'pierced nose'
+		$pcdesc_nosewordy = 'jewelry-studded nose'
+		$pcdesc_nose = 'pierced nose'
+	else
+		$pirsD = ''
+		$pcdesc_noserandom = 'nose'
+		$pcdesc_nosewordy = 'nose'
+		$pcdesc_nose = 'nose'
+	end
+
+	if pirsE > 0 and pirsE < 10000:
+		$pirsE = 'Your eyebrow is pierced.'
+		$pcdesc_eyebrowrandom = 'pierced eyebrow'
+		$pcdesc_eyebrowwordy = 'pierced eyebrow'
+		$pcdesc_eyebrow = 'pierced eyebrow'
+	else
+		$pirsE = ''
+		$pcdesc_eyebrowrandom = 'eyebrow'
+		$pcdesc_eyebrowwordy = 'eyebrow'
+		$pcdesc_eyebrow = 'eyebrow'
+	end
+
+	if pirsN > 0 and pirsN < 10000:
+		$pirsN = 'You are wearing a navel piercing.'
+		$pcdesc_navelrandom = 'pierced navel'
+		$pcdesc_navelwordy = 'pierced navel'
+		$pcdesc_navel = 'pierced navel'
+	else
+		$pirsN = ''
+		$pcdesc_navelrandom = 'navel'
+		$pcdesc_navelwordy = 'navel'
+		$pcdesc_navel = 'navel'
+	end
+
+	!! Some of these are labial rings, some of them are hood piercings. No good way to tell without an overhaul.
+	if pirsG  > 0 and pirsG < 10000:
+		$pirspiz = 'You are wearing a pubic piercing.'
+		$pcdesc_genitalsrandom = 'pierced pussy'
+		$pcdesc_genitalswordy = 'jewelry-adorned pussy'
+		$pcdesc_genitals = 'pierced pussy'
+	else
+		$pirspiz = ''
+		$pcdesc_genitalsrandom = 'pussy'
+		$pcdesc_genitalswordy = 'pussy'
+		$pcdesc_genitals = 'pussy'
+	end
+end
+
+if $ARGS[0] = 'makeup':
+    if pcs_makeup = 0:
+		$pc_desc['makeup'] = func($this, 'ChooseDescWord', 'makeup-ruined', 'makeup-smeared', 'makeup-trashed')
+		$pc_descWordy['makeup'] = 'clownishly makeup-smeared'
+		$pcs_makeup = '<b><font color="red">Your makeup is smeared all over your face</font></b>'
+		$pcs_makeup_msg = 'Your makeup is smeared all over your face.'
+		$pcs_makeup_tooltip = 'Your makeup is ruined.'
+	elseif pcs_makeup = 1: 
+		$pc_desc['makeup'] = func($this, 'ChooseDescWord', 'natural', 'bare')
+		$pc_descWordy['makeup'] = 'bare, natural'
+		$pcs_makeup = 'You''re not wearing any kind of makeup'
+		$pcs_makeup_msg = 'You''re not wearing any kind of makeup.'
+		$pcs_makeup_tooltip = 'You''re not wearing makeup.'
+	elseif pcs_makeup = 2: 
+		$pc_desc['makeup'] = func($this, 'ChooseDescWord', 'lightly-accented', 'subtly-highlighted')
+		$pc_descWordy['makeup'] = 'almost natural, subtly-accented'
+		$pcs_makeup = 'Your makeup is light and subtle, with neutral tones to bring out your natural beauty'
+		$pcs_makeup_msg = 'Your makeup is light and subtle, with neutral tones to bring out your natural beauty.'
+		$pcs_makeup_tooltip = 'Your makeup is light and subtle.'
+	elseif pcs_makeup = 3: 
+		$pc_desc['makeup'] = func($this, 'ChooseDescWord', 'colourfully done-up', 'vibrantly done-up')
+		$pc_descWordy['makeup'] = 'colourful, tastefully done-up'
+		$pcs_makeup = 'Your makeup has some mildly vibrant tones, covering your minor imperfections and enhancing your best features'
+		$pcs_makeup_msg = 'Your makeup has some mildly vibrant tones, covering your minor imperfections and enhancing your best features.'
+		$pcs_makeup_tooltip = 'Your makeup has some mildly vibrant tones.'
+	elseif pcs_makeup = 4:
+		$pc_desc['makeup'] = func($this, 'ChooseDescWord', 'painted-on', 'makeup-caked', 'dolled-up', 'sultry, dramatically done-up')
+		$pc_descWordy['makeup'] = 'heavily dolled-up and painted'
+		$pcs_makeup = 'Your makeup is thick enough to cover most imperfections, with rich shades drawing attention to your eyes and lips'
+		$pcs_makeup_msg = 'Your makeup is thick enough to cover most imperfections, with rich shades drawing attention to your eyes and lips.'
+		$pcs_makeup_tooltip = 'Your makeup is thick enough to cover most imperfections.'
+	elseif pcs_makeup = 5:
+		$pc_desc['makeup'] = func($this, 'ChooseDescWord', 'painted-on', 'makeup-caked', 'dolled-up', 'sultry, dramatically done-up')
+		$pc_descWordy['makeup'] = 'heavily dolled-up and painted'
+		$pcs_makeup = 'Your makeup is professional grade, covering up any and all imperfections and flawlessly complimenting the natural hues of your eyes, face, and hair'
+		$pcs_makeup_msg = 'Your makeup is professional grade, covering up any and all imperfections and flawlessly complimenting the natural hues of your eyes, face, and hair.'
+		$pcs_makeup_tooltip = 'Your makeup is professional grade.'
+	elseif pcs_makeup = 6:
+		$pc_desc['makeup'] = func($this, 'ChooseDescWord', 'bimbo', 'hawt', 'O M G', 'just, the best')
+		$pc_descWordy['makeup'] = 'really fucking bimbo-y'
+		$pcs_makeup = 'You look, like super hawt and everyone is so jelly because their makeup is boring and ugly.'
+		$pcs_makeup_msg = 'You look, like super hawt and everyone is so jelly because their makeup is boring and ugly.'
+		$pcs_makeup_tooltip = 'OMG! your makeup is sooo bimbo fine.'
+	end
+end
+
+if $ARGS[0] = 'nipples':
+    if pcs_nips < 20:
+		$nipplesize = 'You have average <a href="exec:view''images/pc/body/nipples/nipples1.jpg''">nipples</a>.'
+		$pc_desc['nipples'] = func($this, 'ChooseDescWord', 'small', 'tiny', 'little')
+		$pc_descWordy['nipples'] = 'small, tiny'
+	elseif pcs_nips >= 20 and pcs_nips < 40:
+		$nipplesize = 'Your <a href="exec:view''images/pc/body/nipples/nipples2.jpg''">nipples</a> are slightly on the large side.'
+		$pc_desc['nipples'] = func($this, 'ChooseDescWord', 'slightly large', 'decently-sized')
+		$pc_descWordy['nipples'] = 'slightly large'
+	elseif pcs_nips >= 40 and pcs_nips < 60:
+		$nipplesize = 'You have large, puffy <a href="exec:view''images/pc/body/nipples/nipples3.jpg''">nipples</a>.'
+		$pc_desc['nipples'] = func($this, 'ChooseDescWord', 'puffy', 'swollen', 'large')
+		$pc_descWordy['nipples'] = 'large, puffy'
+	elseif pcs_nips >= 60 and pcs_nips < 80:
+		$nipplesize = 'Your <a href="exec:view''images/pc/body/nipples/nipples4.jpg''">nipples</a> are the size of radio knobs.'
+		$pc_desc['nipples'] = func($this, 'ChooseDescWord', 'big', 'thick')
+		$pc_descWordy['nipples'] = 'big, thick'
+	else
+		!! If greater or equal to 80
+		$nipplesize = 'You have huge <a href="exec:view''images/pc/body/nipples/nipples5.jpg''">nipples</a>.'
+		$pc_desc['nipples'] = func($this, 'ChooseDescWord', 'enormous', 'meaty', 'huge', 'unmistakably big')
+		$pc_descWordy['nipples'] = 'huge, meaty'
+	end
+end
+
+if $ARGS[0] = 'clit':
+    if clit_size < 20:
+		$pc_descWordy['clit'] = 'small, oft-hidden'
+		$pc_desc['clit'] = func($this, 'ChooseDescWord', 'small', 'tiny')
+		$clitsize = 'You consider your <a href="exec:view''images/pc/body/clit/clit1.jpg''">clitoris</a> to be of an average size.'
+	elseif clit_size >= 20 and clit_size < 40:
+		$pc_descWordy['clit'] = 'big, easily-found'
+		$pc_desc['clit'] = func($this, 'ChooseDescWord', 'large', 'big', 'engorged')
+		$clitsize = 'You feel your <a href="exec:view''images/pc/body/clit/clit2.jpg''">clitoris</a> is somewhat on the large side.'
+	elseif clit_size >= 40 and clit_size < 60:
+		$pc_descWordy['clit'] = 'thick, meaty'
+		$pc_desc['clit'] = func($this, 'ChooseDescWord', 'meaty', 'thick', 'swollen')
+		$clitsize = 'Your <a href="exec:view''images/pc/body/clit/clit3.jpg''">clit</a> is quite large.'
+	elseif clit_size >= 60 and clit_size < 80:
+		$pc_descWordy['clit'] = 'big, practically phallic'
+		$pc_desc['clit'] = func($this, 'ChooseDescWord', 'oversized', 'huge')
+		$clitsize = 'You have a big <a href="exec:view''images/pc/body/clit/clit4.jpg''">clit</a> that resembles a penis.'
+	else
+		!! If greater or equal to 80
+		$pc_desc['clit'] = func($this, 'ChooseDescWord', 'huge', 'massive', 'cock-like')
+		$pc_descWordy['clit'] = 'enormous, phallic'
+		$clitsize = 'Your <a href="exec:view''images/pc/body/clit/clit5.jpg''">clit</a> is so large it can be mistaken for a penis.'
+	end
+end
+
+if $ARGS[0] = 'pubes':
+    if lashair = 0:
+		if pcs_pubes <= 3:
+			lobkoef = 3 
+			$pcs_pubes = 'You have a smoothly <a href="exec:view''<<FUNC(''$pube_image'')>>''">shaved pussy</a>. <<$pirspiz>><br><<$clitsize>>'
+			$pc_desc['pubes'] = func($this, 'ChooseDescWord', 'silky', 'hairless', 'smooth-shaven', 'freshly-shaven')
+			$pc_descWordy['pubes'] = 'silky, freshly-shaven'
+		elseif pcs_pubes <= 10:
+			lobkoef = 0
+			$pcs_pubes = 'You have stubble growing around your <a href="exec:view''<<FUNC(''$pube_image'')>>''">pussy</a>. <<$pirspiz>><br><<$clitsize>>'
+			$pc_desc['pubes'] = func($this, 'ChooseDescWord', 'stubbly', 'scratchy', 'roughly-stubbled')
+			$pc_descWordy['pubes'] = 'scratchy, roughly-stubbled'
+		elseif pcs_pubes <= 15:
+			lobkoef = 0
+			$pcs_pubes = 'You have a tidy patch of hair growing above your <a href="exec:view''<<FUNC(''$pube_image'')>>''">pussy</a>. <<$pirspiz>><br><<$clitsize>>'
+			$pc_desc['pubes'] = func($this, 'ChooseDescWord', 'almost bare', 'barely-haired', 'well-kept')
+			$pc_descWordy['pubes'] = 'scratchy, roughly-stubbled'
+		elseif pcs_pubes <= 25:
+			lobkoef = 0
+			if pubestyle = 9:
+				$pcs_pubes = 'You have neatly trimmed section of hair around your <a href="exec:view''<<FUNC(''$pube_image'')>>''">pussy</a>. <<$pirspiz>><br><<$clitsize>>'
+			elseif pubestyle = 12:
+				$pcs_pubes = 'You have cute little patch of bush at the top of your <a href="exec:view''<<FUNC(''$pube_image'')>>''">pussy</a>. <<$pirspiz>><br><<$clitsize>>'
+			elseif pubestyle = 13:
+				$pcs_pubes = 'You have tidy strip of bush covering your <a href="exec:view''<<FUNC(''$pube_image'')>>''">pussy</a>. <<$pirspiz>><br><<$clitsize>>'
+			elseif pubestyle = 14:
+				$pcs_pubes = 'You have neatly trimmed rectangle of hair just above your <a href="exec:view''<<FUNC(''$pube_image'')>>''">pussy</a>. <<$pirspiz>><br><<$clitsize>>'
+			else
+				$pcs_pubes = 'You have a bushy but well-maintained mat of <a href="exec:view''<<FUNC(''$pube_image'')>>''">pubic hair</a>. <<$pirspiz>><br><<$clitsize>>'
+			end
+			$pc_desc['pubes'] = func($this, 'ChooseDescWord', 'wispy-haired', 'lightly-furred', 'trimmed', 'well-maintained')
+			$pc_descWordy['pubes'] = 'trimmed, well-kept'
+		elseif pcs_pubes <= 30:
+			lobkoef = 0
+			$pcs_pubes = 'You have a bushy but well-maintained mat of <a href="exec:view''<<FUNC(''$pube_image'')>>''">pubic hair</a>. <<$pirspiz>><br><<$clitsize>>'
+			$pc_desc['pubes'] = func($this, 'ChooseDescWord', 'furred', 'bushy', 'partially-maintained')
+			$pc_descWordy['pubes'] = 'bushy, thick'
+		elseif pcs_pubes >= 40:
+			lobkoef = 0
+			$pcs_pubes = 'You have a wild and unkempt jungle of <a href="exec:view''<<FUNC(''$pube_image'')>>''">pubic hair</a>. <<$pirspiz>><br><<$clitsize>>'
+			$pc_desc['pubes'] = func($this, 'ChooseDescWord', 'thickly-furred', 'very hairy', 'ill-maintained')
+			$pc_descWordy['pubes'] = 'hairy, wild-maned'
+		end
+    elseif lashair = 1:
+		$pc_desc['pubes'] = func($this, 'ChooseDescWord', 'hairless', 'smooth', 'bald', 'silky-smooth')
+		$pc_descWordy['pubes'] = 'eternally silky-smooth'
+		$pcs_pubes = 'You have a smooth, <a href="exec:view''<<FUNC(''$pube_image'')>>''">bald pussy</a>. <<$pirspiz>><br><<$clitsize>>'
+	end
+end
+
+if $ARGS[0] = 'legs':
+    if pcs_leghair <= 0:
+		$pc_desc['legs'] = func($this, 'ChooseDescWord', 'smooth', 'silky', 'soft')
+		$pc_descWordy['legs'] = 'soft and silky-smooth'
+		$pcs_leghair = 'You have smooth legs.'
+	elseif pcs_leghair <= 3:
+		$pc_desc['legs'] = func($this, 'ChooseDescWord', 'slightly scratchy', 'faintly stubbly')
+		$pc_descWordy['legs'] = 'slightly rough, invisibly-stubbled'
+		$pcs_leghair = 'You can''t see any hair, but your legs feel rough to the touch.'
+	elseif pcs_leghair <= 6:
+		$pc_desc['legs'] = func($this, 'ChooseDescWord', 'somewhat hairy', 'lightly-furred')
+		$pc_descWordy['legs'] = 'lightly-furred, soft-haired'
+		$pcs_leghair = 'You have light and just barely visible hair on your legs.'
+	else
+		$pc_desc['legs'] = func($this, 'ChooseDescWord', 'hairy', 'unshaven', 'ungroomed')
+		$pc_descWordy['legs'] = 'hairy, unshaven'
+		$pcs_leghair = 'Your legs are hairy.'
+	end
+end
+
+if $ARGS[0] = 'hair':
+	!!! Maruda Hair Mod
+	if pcs_hairlng <= 80:
+		hpigtail = 0
+		hscrunchw = 0
+		hpingripw = 0
+		if defcurly = 0:
+			curly = 0
+		else
+			!! This sets curly hair to as high a number as possible to prevent it straightening in error
+			curly = 2147483647
+		end
+		hbraids = 0
+		if pcs_hairlng <= 30 and hbangs = 1:hbangs = 0
+	end
+
+	if pcs_hairlng > 800:
+		hpingripw = 0
+		hbraids = 0
+	end
+
+	if pcs_hairlng > 800 and hpigtail >= 1:
+		hscrunchw = 0
+		hpigtail = 0
+	end
+
+	if hbraids >= 1:
+		hscrunchw = 0
+		hpingripw = 0
+		hbangs = 0
+		hpigtail = 0
+	end
+
+	!Hair status - whether hair is tangled or combed
+	if pcs_hairbsh = 0:
+		if pcs_hairlng > 30:
+			$pcs_hairbsh = 'tangled. You should comb it to keep it healthy'
+			$pc_desc['hair status'] = func($this, 'ChooseDescWord', 'tangled', 'tousled', 'disheveled', 'mussed')
+			$pcdesc_hairmessinsertive = ', tangled'
+			$pc_descWordy['hair status'] = 'tangled, poorly-kept'
+		else
+			$pcs_hairbsh = 'messy. You should style it to keep it looking good'
+			$pc_desc['hair status'] = func($this, 'ChooseDescWord', 'tangled', 'tousled', 'disheveled', 'mussed')
+			$pc_descWordy['hair status'] = 'messy, poorly-kept'
+		end
+	else
+		$pcs_hairbsh = 'neatly styled'
+		$pc_desc['hair status'] = func($this, 'ChooseDescWord', 'tangled', 'tousled', 'disheveled', 'mussed')
+		$pcdesc_hairmessinsertive = ', neat'
+		$pc_descWordy['hair status'] = 'neat, well-maintained'
+	end
+
+	!Hair texture - straight or curly
+	if curly <= 0:
+		$curly = 'straight, slightly wavy '
+		!! Not a lot of variety here, I know -- it is for future compatibility, so everything can have be reached in the same fashion.
+		$pc_desc['hair texture'] = 'straight'
+		$pc_descWordy['hair texture'] = 'locks'
+	else
+		$curly = 'curly '
+		$pc_desc['hair texture'] = func($this, 'ChooseDescWord', 'curls', 'ringlets')
+		$pc_descWordy['hair texture'] = 'playfully curly'
+	end
+
+	!! If you are baffled by the need for a forehead descriptor here, it is primarily just for writing about cumshots. I honestly cannot think of another use case. Other variables largely just for compatibility.
+	if hbangs <= 0:
+		$hbangs = ''
+		$pc_desc['hair bang'] = 'forehead'
+		$pc_descWordy['hair bang'] = 'forehead'
+	else
+		$hbangs = ', with a fringe covering your forehead'
+		$pc_desc['hair bang'] = func($this, 'ChooseDescWord', 'bangs', 'fringe')
+		$pc_descWordy['hair bang'] = 'fringe'
+	end
+
+	!! Be careful when adding random-assigned synonyms to hair colours to ensure that you do not accidentally describe a different shade of the colour you are describing.
+	!! Honestly, we probably do not need all the light medium dark colour splitting for the bright colours, but it is sadly too late to go back on them.
+	if pcs_haircol = 0:
+		$pcs_haircol = 'black'
+		$pc_desc['hair colour'] = func($this, 'ChooseDescWord', 'black', 'ebony', 'obsidian', 'jet-black', 'charcoal black', 'ravenblack','sable')
+		$pc_descWordy['hair colour'] = 'dark, obsidian-black'
+
+	elseif pcs_haircol = 1:
+		$pcs_haircol = 'brown'
+		$pc_desc['hair colour'] = func($this, 'ChooseDescWord', 'brown', 'russet brown', 'chestnut brown')
+		$pc_descWordy['hair colour'] = 'russet brown'
+
+	elseif pcs_haircol = 2:
+		$pcs_haircol = 'red'
+		!! Remember, this is not the vibrant dyed red colour, this is a natural red
+		$pc_desc['hair colour'] = func($this, 'ChooseDescWord', 'fiery red', 'coppery red', 'ginger')
+		$pc_descWordy['hair colour'] = 'fiery red'
+
+	elseif pcs_haircol = 3:
+		$pcs_haircol = 'blonde'
+		$pc_desc['hair colour'] = func($this, 'ChooseDescWord', 'blonde', 'golden-blonde', 'golden', 'fair, blonde')
+		$pc_descWordy['hair colour'] = 'beautiful golden-blonde'
+
+	elseif pcs_haircol = 4:
+		$pcs_haircol = 'light red'
+		$pc_desc['hair colour'] = func($this, 'ChooseDescWord', 'strawberry blonde', 'fire-engine red', 'scarlet')
+		$pc_descWordy['hair colour'] = 'glowing, pale red'
+
+	elseif pcs_haircol = 5:
+		$pcs_haircol = 'dark blue'
+		$pc_desc['hair colour'] = func($this, 'ChooseDescWord', 'dark blue', 'blurple', 'midnight blue')
+		$pc_descWordy['hair colour'] = 'rich, purplish-blue'
+
+	elseif pcs_haircol = 6:
+		$pcs_haircol = 'blue'
+		$pc_desc['hair colour'] = func($this, 'ChooseDescWord', 'blue', 'electric blue')
+		$pc_descWordy['hair colour'] = 'vibrant, electric blue'
+
+	elseif pcs_haircol = 7:
+		$pcs_haircol = 'light blue'
+		$pc_desc['hair colour'] = func($this, 'ChooseDescWord', 'light blue', 'azure', 'pale blue', 'candy-floss blue')
+		$pc_descWordy['hair colour'] = 'pale, candy-coloured blue'
+
+	elseif pcs_haircol = 8:
+		$pcs_haircol = 'dark green'
+		$pc_desc['hair colour'] = 'dark green'
+		!! Emerald green is actually a lighter colour, but with the specific qualifier of deep, it can be used here for lack of a better one.
+		$pc_descWordy['hair colour'] = 'deep, emerald-green'
+
+	elseif pcs_haircol = 9:
+		$pcs_haircol = 'green'
+		$pc_desc['hair colour'] = func($this, 'ChooseDescWord', 'green', 'forest green', 'fern-green')
+		$pc_descWordy['hair colour'] = 'vibrant, forest-green'
+
+	elseif pcs_haircol = 10:
+		$pcs_haircol = 'light green'
+		$pc_desc['hair colour'] = func($this, 'ChooseDescWord', 'light green', 'pale green', 'leaf-green', 'minty green', 'candy-floss green')
+		$pc_descWordy['hair colour'] = 'pale, leaf-green'
+
+	elseif pcs_haircol = 11:
+		$pcs_haircol = 'dark pink'
+		$pc_desc['hair colour'] = func($this, 'ChooseDescWord', 'dark pink', 'purplish-pink')
+		$pc_descWordy['hair colour'] = 'dark, purplish-pink'
+
+	elseif pcs_haircol = 12:
+		$pcs_haircol = 'pink'
+		$pc_desc['hair colour'] = func($this, 'ChooseDescWord', 'bubblegum-pink', 'Barbie pink', 'fuchsia', 'pink', 'bright pink')
+		$pc_descWordy['hair colour'] = 'bright, bubblegum-pink'
+	
+	elseif pcs_haircol = 13:
+		$pcs_haircol = 'light pink'
+		$pc_desc['hair colour'] = func($this, 'ChooseDescWord', 'light pink', 'pale pink', 'babydoll pink', 'China pink', 'cotton-candy pink', 'candy-floss pink')
+		$pc_descWordy['hair colour'] = 'pale, cotton-candy pink'
+	
+	elseif pcs_haircol = 14:
+		$pcs_haircol = 'dark purple'
+		$pc_desc['hair colour'] = func($this, 'ChooseDescWord', 'dark purple', 'deep purple', 'midnight purple', 'indigo')
+		$pc_descWordy['hair colour'] = 'deep, bluish-purple'
+	
+	elseif pcs_haircol = 15:
+		$pcs_haircol = 'purple'
+		$pc_desc['hair colour'] = func($this, 'ChooseDescWord', 'purple', 'plum purple', 'royal purple')
+		$pc_descWordy['hair colour'] = 'rich, royal purple'
+	
+	elseif pcs_haircol = 16:
+		$pcs_haircol = 'light purple'
+		$pc_desc['hair colour'] = func($this, 'ChooseDescWord', 'light purple', 'pale purple', 'amethyst coloured', 'lavender')
+		$pc_descWordy['hair colour'] = 'pale, floral purple'
+	
+	elseif pcs_haircol = 17:
+		$pcs_haircol = 'light orange'
+		$pc_desc['hair colour'] = func($this, 'ChooseDescWord', 'light orange', 'pumpkin orange', 'bright orange')
+		$pc_descWordy['hair colour'] = 'bright, fiery orange'
+	
+	elseif pcs_haircol = 18:
+		$pcs_haircol = 'dark red'
+		$pc_desc['hair colour'] = func($this, 'ChooseDescWord', 'dark red', 'wine red', 'auburn')
+		$pc_descWordy['hair colour'] = 'deep, seductive red'
+	
+	elseif pcs_haircol = 19:
+		$pcs_haircol = 'medium red'
+		$pc_desc['hair colour'] = func($this, 'ChooseDescWord', 'medium red', 'cherry red', 'bronze')
+		$pc_descWordy['hair colour'] = 'strong, fiery red'
+	
+	elseif pcs_haircol = 20:
+		$pcs_haircol = 'turquoise'
+		$pc_desc['hair colour'] = func($this, 'ChooseDescWord', 'turquoise', 'ultramarine', 'aquamarine', 'sea green')
+		$pc_descWordy['hair colour'] = 'soft milky blue'
+	
+	elseif pcs_haircol = 21:
+		$pcs_haircol = 'medium orange'
+		$pc_desc['hair colour'] = func($this, 'ChooseDescWord', 'medium orange', 'pumpkin orange', 'carrot orange')
+		$pc_descWordy['hair colour'] = 'strong, fiery orange'
+	
+	elseif pcs_haircol = 22:
+		$pcs_haircol = 'dark orange'
+		$pc_desc['hair colour'] = func($this, 'ChooseDescWord', 'dark orange', 'burnt Orange', 'rust')
+		$pc_descWordy['hair colour'] = 'strong, burnt orange'
+	
+		!! This below is a catch-all, it should not actually ever wind up occurring, but just in case it does...
+	else
+		$pcs_haircol = 'strangely-coloured'
+		$pc_desc['hair colour'] = func($this, 'ChooseDescWord', 'strangely-coloured', 'multicoloured')
+		$pc_descWordy['hair colour'] = 'exceptionally variegated'
+	end
+
+	!hair style
+	if hscrunchw = 1:
+		$hairstyle = 'A hair-tie holds your hair in place with a ponytail.'
+		$pc_desc['hair style'] = 'ponytail'
+		$pc_descWordy['hair style'] = 'tight, high-set <<$pcs_haircol>> ponytail'
+
+	elseif hscrunchw = 2:
+		!Pigtails
+		$hairstyle = 'Two scrunchies hold your hair up into two cute, playful twin tails.'
+		$pc_desc['hair style'] = 'pigtails'
+		$pc_descWordy['hair style'] = 'youthful, playful and flirty <<$pcs_haircol>> pigtails'
+
+	elseif hbraids > 0:	
+		$hairstyle = 'Your hair is beautifully braided.'
+		$pc_desc['hair style'] = 'braid'
+		$pc_descWordy['hair style'] = 'delicately-wound <<$pcs_haircol>> braid'
+
+	elseif hpingripw > 0:
+		$hairstyle = 'Hair-pins hold your hair in place in a stylish updo.'
+		$pc_desc['hair style'] = 'upswept'
+		$pc_descWordy['hair style'] = 'ornate, intricately-pinned <<$pcs_haircol>> updo'
+
+	else
+		$hairstyle = ''
+		$pc_desc['hair style'] = 'loose'
+		$pc_descWordy['hair style'] = 'loose and free <<$pcs_haircol>> hair'
+	end
+
+	!Hair length
+	if avatar_hair = 1:
+		$hair = $av_hair
+		!! I do not really understand how the avatar system works in terms of hair growth and such, so these descriptors will just have to do
+		$pc_desc['hair length'] = 'normal length'
+		$pc_descWordy['hair length'] = 'normal length'
+	else
+		if pcs_hairlng <= 30:
+			$hair = 'You have very short <<$pcs_haircol>> hair. It doesn''t cover your ears, and looks a little masculine. Nevertheless, some people like this style as it''s easy to take care of.'
+			$pc_desc['hair length'] = func($this, 'ChooseDescWord', 'extremly short', 'boyishly short')
+			$pc_descWordy['hair length'] = 'short, and altogether rather boyish'
+
+		elseif pcs_hairlng > 30 and pcs_hairlng <= 80:
+			$hair = 'You have short <<$pcs_haircol>> hair which just covers your ears to their lobes. It''s a modern, classy hairstyle. Currently your hair is <<$pcs_hairbsh>>.'
+			$pc_desc['hair length'] = func($this, 'ChooseDescWord', 'short', 'pixie-cut', 'androgynously short')
+			$pc_descWordy['hair length'] = 'short, page-boy'
+		
+		elseif pcs_hairlng > 80 and pcs_hairlng <= 160:
+			$hair = 'You have <<$curly>><<$pcs_haircol>> hair<<$hbangs>>. Your hair goes down to your chin line and can be considered of a medium length, which fits almost all face shapes. Your hair is <<$pcs_hairbsh>> at the moment. <<$hairstyle>>'
+			$pc_desc['hair length'] = func($this, 'ChooseDescWord', 'medium', 'average')
+			$pc_descWordy['hair length'] = 'medium-length'
+		
+		elseif pcs_hairlng > 160 and pcs_hairlng <= 260:
+			$hair = 'You have <<$curly>><<$pcs_haircol>> hair<<$hbangs>>. Your hair reaches your shoulders with several strands going just beyond. Currently your hair is <<$pcs_hairbsh>>. <<$hairstyle>>'
+			$pc_desc['hair length'] = 'moderate'
+			$pc_descWordy['hair length'] = 'shoulder-length'
+		
+		elseif pcs_hairlng > 260 and pcs_hairlng <= 400:
+			$hair = 'You have <<$curly>><<$pcs_haircol>> hair<<$hbangs>>. As your hair reaches your bra line, hairdressers would consider this a rather long style, yet beautiful looks are created with this length. Your hair is <<$pcs_hairbsh>>. <<$hairstyle>>'
+			$pc_desc['hair length'] = func($this, 'ChooseDescWord', 'long', 'lengthy')
+			$pc_descWordy['hair length'] = 'long, past the shoulders'
+		
+		elseif pcs_hairlng > 400 and pcs_hairlng <= 600:
+			$hair = 'You have <<$curly>><<$pcs_haircol>> hair<<$hbangs>>. As your hair reaches your back, hairdressers would consider this a rather long hair style, yet beautiful looks are created with this length. Your hair is <<$pcs_hairbsh>>. <<$hairstyle>>'
+			$pc_desc['hair length'] = func($this, 'ChooseDescWord', 'very long', 'rather lengthy', 'quite long', 'back-length')
+			$pc_descWordy['hair length'] = 'very long, back-length'
+		
+		elseif pcs_hairlng > 600 and pcs_hairlng <= 800:
+			$hair = 'You have <<$curly>><<$pcs_haircol>> hair<<$hbangs>>. As your hair reaches your butt, hairdressers would consider this a very long hair style, yet beautiful looks are created with this length. Your hair is <<$pcs_hairbsh>>. <<$hairstyle>>'
+			$pc_desc['hair length'] = func($this, 'ChooseDescWord', 'extremely long', 'waist-length')
+			$pc_descWordy['hair length'] = 'extremely long and waist-length'
+		
+		else 
+			$hair = 'You have extremely long <<$pcs_haircol>> hair<<$hbangs>>. Reaching all the way past your butt, even Rapunzel would be jealous. Your hair is currently <<$pcs_hairbsh>>. <<$hairstyle>>'
+			$pc_desc['hair length'] = func($this, 'ChooseDescWord', 'exceptionally long', 'incredibly lengthy')
+			$pc_descWordy['hair length'] = 'exceptionally lengthy and princess-like'
+		end
+	end
+
+	!! A pair of ready-made long strings for writers to pull from for descriptions
+	$pc_desc['hair'] = '<<$pc_desc[''hair status'']>>, <<$pc_desc[''hair length'']>> <<$pc_desc[''hair colour'']>> <<$pc_descWordy[''hair texture'']>>'
+	$pc_descWordy['hair'] = '<<$pc_desc[''hair status'']>>, <<$pc_descWordy[''hair length'']>> <<$pc_descWordy[''hair texture'']>> of <<$pc_descWordy[''hair colour'']>>'
+end
+
+if $ARGS[0] = 'appearance':
+	if pcs_apprnc = -10:
+		$pcs_apprnc = 'Your looks are even worse than terrible. It''s god-awful. No one wants to see or talk to you and people avoid you at any cost.'
+	elseif pcs_apprnc < 20:
+		$pcs_apprnc = 'Your looks are terrible. People try to avoid looking and talking to you.'
+	elseif pcs_apprnc < 60:
+		$pcs_apprnc = 'You''re a wallflower. Hardly anyone notices you.'
+	elseif pcs_apprnc < 120:
+		$pcs_apprnc = 'You have good looks. Men and women check you out when they think you aren''t looking.'
+	elseif pcs_apprnc < 160:
+		$pcs_apprnc = 'You''re unquestionably gorgeous. Men constantly get caught staring at you by their girlfriends.'
+	elseif pcs_apprnc < 200:
+		$pcs_apprnc = 'You have a simply stunning appearance. Other girls are a bit jealous and guys constantly check you out.'
+	else
+		$pcs_apprnc = 'Your appearance is divine! No one is able to take his or her eyes off of you.'
+	end
+end
+
+--- body_desc ---------------------------------

locations/bordel.qsrc

@@ -104,15 +104,9 @@ if $ARGS[0] = 'dysh':
 	
 	act 'Return to your room':gt 'bordel', 'brothel'
 
-	act 'Bathroom functions':
-		bordysh = 1
-		gt 'vann', 'start'
-	end
+	act 'Bathroom functions': gt 'vann', 'start'
 
-	act 'Mirror':
-		borMir = 1
-		gt 'mirror', 'start'
-	end
+	act 'Mirror': gt 'mirror', 'start'
 
 	act 'Change your clothes': gt 'wardrobe', 'start'
 end

locations/brother.qsrc

@@ -1444,7 +1444,7 @@ if $ARGS[0] = 'brother_voyeur_ev8':
 		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/kolka/event/homework/f (6.<<picrand>>).jpg"></center>'
 		'You get off the chair and lie down on the carpet. Overcome with lust, you instinctively begin to rub your pussy and breast.'
 		if pcs_vag > 0:'You slip your fingers into your burning pussy, the sensation causing you to moan.'
-		'You watch as Kolka pulls down his pants and his fully erect <<npc_dick[''A34'']>> cm cock pops free. You follow his movements as he walks up to your head and kneels, his hardened member mere inches from your face. You open your mouth, ready to accept him orally. Kolka pushes forward slowly, your <<$liptalk>> moving over his head and inching down his shaft more and more until he stops. He holds you for a moment before he begins gently thrusting into your mouth. Your fingers continue to play with your own body, as you focus on your sibling. You swirl your tongue around his cock and suck, his moans growing deeper all the while.'
+		'You watch as Kolka pulls down his pants and his fully erect <<npc_dick[''A34'']>> cm cock pops free. You follow his movements as he walks up to your head and kneels, his hardened member mere inches from your face. You open your mouth, ready to accept him orally. Kolka pushes forward slowly, your <<$pc_desc[''lips'']>> lips moving over his head and inching down his shaft more and more until he stops. He holds you for a moment before he begins gently thrusting into your mouth. Your fingers continue to play with your own body, as you focus on your sibling. You swirl your tongue around his cock and suck, his moans growing deeper all the while.'
 		'A fire had been building inside you since you disrobed and now your body is nearly engulfed when you feel Kolka stiffen, his penis twitching inside your mouth. He whispers your name as he cums, his jism filling your mouth and you begin to greedily swallow. Your own orgasm isn''t far behind; your entire body begins to convulse and you start to suck your brother''s throbbing dick harder, hoping for more of his delicious cum. The world fades for a few moments...'
 
 		gs 'arousal','foreplay', 5, 'incest'
@@ -1479,7 +1479,7 @@ if $ARGS[0] = 'brother_voyeur_ev8':
 		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/kolka/event/homework/f (6.<<picrand>>).jpg"></center>'
 		'You get off the chair and lie down on the carpet. Overcome with lust, you instinctively begin to rub your pussy and breast.'
 		if pcs_vag > 0:'You slip your fingers into your burning pussy, the sensation causing you to moan.'
-		'You watch as Kolka pulls down his pants and his fully erect <<npc_dick[''A34'']>> cm cock pops free. You follow his movements as he walks up to your head and kneels, his hardened member mere inches from your face. You open your mouth, ready to accept him orally. Kolka pushes forward slowly, your <<$liptalk>> moving over his head and inching down his shaft more and more until he stops. He holds you for a moment before he begins gently thrusting into your mouth. Your fingers continue to play with your own body, as you focus on your sibling. You swirl your tongue around his cock and suck, his moans growing deeper all the while.'
+		'You watch as Kolka pulls down his pants and his fully erect <<npc_dick[''A34'']>> cm cock pops free. You follow his movements as he walks up to your head and kneels, his hardened member mere inches from your face. You open your mouth, ready to accept him orally. Kolka pushes forward slowly, your <<$pc_desc[''lips'']>> lips moving over his head and inching down his shaft more and more until he stops. He holds you for a moment before he begins gently thrusting into your mouth. Your fingers continue to play with your own body, as you focus on your sibling. You swirl your tongue around his cock and suck, his moans growing deeper all the while.'
 		'A fire had been building inside you since you disrobed and now your body is nearly engulfed when you feel Kolka stiffen, his penis twitching inside your mouth. He whispers your name as he cums, his jism filling your mouth and you begin to greedily swallow. Your own orgasm isn''t far behind; your entire body begins to convulse and you start to suck your brother''s throbbing dick harder, hoping for more of his delicious cum. The world fades for a few moments...'
 
 		gs 'arousal','foreplay', 5, 'incest'
@@ -1673,7 +1673,7 @@ if $ARGS[0] = 'brotherknows6':
 			'You scowl, "I don''t give a fuck what <<$npc_nickname[''A29'']>> knows. She''s not speaking to me and I really don''t care to say anything to her!"'
 			'Kolka softly caresses your cheek, "Sorry, I shouldn''t have brought her up. I wasn''t thinking."'
 			'You smile, "It''s alright. The only thing that matters right now is us and our baby."'
-			'Once you''re finished speaking, your brother covers your <<$liptalk3>> with his own and you joyfully reciprocate his kiss.'
+			'Once you''re finished speaking, your brother covers your <<$pc_desc[''lips'']>> lips with his own and you joyfully reciprocate his kiss.'
 			'You never dreamed that you would be building a family with your own brother, but now you wouldn''t want it any other way.'
 
 			act 'Continue':minut += 10 & gt 'sitrPar'

locations/brother_voyeur.qsrc

@@ -306,7 +306,7 @@ if $ARGS[0] = 'showertalk2':
 				act'Do it':
 					menu_off = 1
 					*clr & cla
-					if rand(0, 5) = 0 and obdysh = 1:gt 'vann', 'v4'
+					if rand(0, 5) = 0: gt 'vann', 'v4'
 					'<center><video autoplay loop src="images/shared/home/bathroom/wash2.mp4"></center>'
 					'Unable to help yourself, you decide to risk it. After taking a quick look at your brother to make sure he''s still facing away you gently lower the showerhead between your legs.'
 					'As the pressure builds on your pussy your reponses to what your brother is saying become increasingly close to moans, often being monosyllabic or simple hums and your eyes squeeze tight as you concentrate on the sensation.'

locations/budilnik.qsrc

@@ -6,7 +6,7 @@ if $ARGS[0] = 'start':
 	*clr & cla
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/shared/home/bedroom/bed2.jpg"></center>'
-	'Enter time using number pad and click set to change alarm times, don''t forget to turn your alarm on.'
+	'<center>Enter time using number pad and click set to change alarm times, don''t forget to turn your alarm on.</center>'
 	*nl
 
 	if numbud = 4:'<center><b><<bud1>><<bud2>>:<<bud3>><<bud4>></b></center>'

locations/burgerWork.qsrc

@@ -123,7 +123,7 @@ if $ARGS[0] = 'work2':
 				BurgerQW['IlyQWBlackmail'] += 1
 				gs 'stat'
 				'<center><img <<$set_imgh>> src="images/characters/city/ilyushkin/sex/ilybjcar.jpg"></center>'
-				'Ilyushkin takes you to his car standing in the alley. He gets behind the wheel and you sit next to him. Ilyushkin gets his dick out of his pants and grabs you by the hair pulling your face to his groin until his cock is buried in your <<$liptalk3>>. You open your mouth and allow the member to enter between your lips. You are trying to suck hard, using your <<$liptalk3>> on the penis so Ilyushkin would be finished quickly. Ilyushkin''s body finally jerks and he finishes in your mouth. You continue to suck his dick swallowing the sperm without spilling a drop. Ilyushkin tucks his dick back in his pants and says, "Okay cocksucker, get out."'
+				'Ilyushkin takes you to his car standing in the alley. He gets behind the wheel and you sit next to him. Ilyushkin gets his dick out of his pants and grabs you by the hair pulling your face to his groin until his cock is buried in your <<$pc_desc[''lips'']>> lips. You open your mouth and allow the member to enter between your lips. You are trying to suck hard, using your <<$pc_desc[''lips'']>> lips on the penis so Ilyushkin would be finished quickly. Ilyushkin''s body finally jerks and he finishes in your mouth. You continue to suck his dick swallowing the sperm without spilling a drop. Ilyushkin tucks his dick back in his pants and says, "Okay cocksucker, get out."'
 
 				gs 'arousal', 'bj', 5, 'sub'
 				gs 'arousal', 'end'
@@ -160,7 +160,7 @@ if $ARGS[0] = 'work2':
 					gs 'stat'
 					
 					'<center><img <<$set_imgh>> src="images/characters/city/ilyushkin/sex/ilybjfilm.jpg"></center>'
-					'You get down on your knees in front of Ilyushkin and clasp his member with your <<$liptalk3>>. Ilyushkin films you using his camera to get a closeup of you sucking his cock. After a while he lies you down on his couch and sits on your chest to make sure his cock is right in front of your face.'
+					'You get down on your knees in front of Ilyushkin and clasp his member with your <<$pc_desc[''lips'']>> lips. Ilyushkin films you using his camera to get a closeup of you sucking his cock. After a while he lies you down on his couch and sits on your chest to make sure his cock is right in front of your face.'
 
 					act 'Suck':
 						*clr & cla
@@ -179,7 +179,7 @@ if $ARGS[0] = 'work2':
 							gs 'cum_call', 'face', 'A76', 1
 							gs 'stat'
 							'<center><img <<$set_imgh>> src="images/characters/city/ilyushkin/sex/ilybjfilm3.jpg"></center>'
-							'Ilyushkin begins to finish on your <<$liptalk3>>. Cum drips from your lips on your chin and chest. Ilyushkin finally turns the camera off and puts it away in a drawer. "Not bad. You did what you were required. Wash up and then get out."'
+							'Ilyushkin begins to finish on your <<$pc_desc[''lips'']>> lips. Cum drips from your lips on your chin and chest. Ilyushkin finally turns the camera off and puts it away in a drawer. "Not bad. You did what you were required. Wash up and then get out."'
 
 							gs 'arousal', 'end'
 							gs 'stat'

locations/cardgame_durak.qsrc

@@ -567,7 +567,7 @@ if $ARGS[0] = 'card_game_ggwin_clothercum':
 	'<<$loss_npc_name>> sighs: "Let''s get it over with. What do you want?"'
 	'"Let''s go find you a nice girl", you smile mysteriously. "I''ll pick someone, and you have to run up and jerk off over her clothes! Of course, we''ll be recording it with our phones..."'
 	'<<$loss_npc_name>> looks concerned: "What, are you crazy!? That''s insane... and besides, I can''t cum that fast! That would never work!"'
-	'"I thought you would say that, <<$loss_npc_name>>. Don''t worry, I thought of that... how about if I help you get close?" you smile at him, licking your <<$liptalk3>> lips lewdly.'
+	'"I thought you would say that, <<$loss_npc_name>>. Don''t worry, I thought of that... how about if I help you get close?" you smile at him, licking your <<$pc_desc[''lips'']>> lips lips lewdly.'
 	'His friends are laughing, but <<$loss_npc_name>> suddenly shows a lot more interest in your plan. If you''re willing to blow him until he''s about to burst, that''s more than the others are getting from you today!'
 	'You leave the apartment with the guys, who are clearly excited to see this plan of yours play out. "Let''s go find a nice girl for <<$loss_npc_name>>, guys!" you shout happily.'
 	act 'Continue':

locations/cikl.qsrc

@@ -341,18 +341,6 @@ gs 'fertility', 'birth_control'
 
 !!------------------------------------------------------------------------------------------------------------
 
-if lashair ! 1:
-	pcs_leghair += 1
-	!!Pubic hair growth at 1/2 per night
-	if pcs_pubes['growth'] > 1:
-		pcs_pubes['growth'] = 0
-		pcs_pubes += 1
-	end
-	pcs_pubes['growth'] += 1
-end
-
-if age < 18 and rand (0,2) = 0 and pcs_leghair > 0: pcs_leghair -= 1
-
 if pcs_breath = 1:pcs_breath = 0
 
 if cheatNoEat = 1 and dounspell = 1:fat += 15
@@ -535,40 +523,6 @@ gs 'fame', 'deg'
 gs 'traits', 'overnight'
 
 
-!!------------------------------------------------------------------------------------------------------------
-!!	Maruda hair mod
-!!------------------------------------------------------------------------------------------------------------
-!! Max. Hair length 600mm, or 60cm, which should be somewhere in the lower back area.
-!! Hair grows 1mm each day, it takes 20 months (1 month = 30 days) to regrow the hair from 0.
-if pcs_hairlng < 1001 and hairgrowcht = 0:pcs_hairlng += 1
-
-if pcs_haircol ! nathcol:
-	dyefade -=1
-	if dyefade < 0: dyefade = 0
-	if dyefade > 0 and dyefade < 7: dyevmod = 5
-	if dyefade = 0: dyevmod = 15
-end
-
-!!pubic hair colouring
-!! pcs_pubecol = natural colour
-!! pcs_pubecol[1] = flag for saveupdate
-!! pcs_pubecol[2] = actual colour
-!! pcs_pubecol[3] = countdown timer for dye
-
-if pcs_pubecol[2] ! pcs_pubecol:
-	pcs_pubecol[3] -=1
-	if pcs_pubecol[3] < 0: pcs_pubecol[3] = 0
-	if pcs_pubecol[3] = 0: pcs_pubecol[2] = pcs_pubecol
-end
-
-if pcs_pubes < 2: pcs_pubecol[2] = pcs_pubecol
-
-if hscrunch > 0:
-	hscrunchrand = rand(1, 100)
-
-	if hscrunchrand <= 8:hscrunch -= 1
-end
-
 !!------------------------------------------------------------------------------------------------------------
 
 !! Clothing wear and tear
@@ -645,32 +599,6 @@ elseif painpub = 1:
 	end
 end
 
-!!---- Calculation of lash extension degradation and false lash removal
-if pcs_lashes > 2:
-	if lashextensionstyle >= 1:
-		lashextensionduration -= 1
-		if lashextensionduration >= 1 and lashextensionduration <= 4:
-			'It''s time for you to do your maintenance on your lash extensions; you should go to the salon or you risk growing them all out.'
-		end
-		if lashextensionduration <= 0:
-			'You waited too long to do maintenance on your lash extensions; there''s too little there to notice or work with at this point.'
-			pcs_lashes = pcs_naturallashes
-			killvar 'lashextensionstyle'
-			killvar 'lashextensionduration'
-			killvar 'lashextensionnew'
-		end
-	end
-	if false_lashes > 0:
-		false_lashes -= 1
-		if false_lashes = 0:
-			'Your false lashes came off in the night; there''s no recovering them now.'
-			pcs_lashes = pcs_naturallashes
-		else
-			'Somehow, your lashes managed to stay attached throughout the night. You might be able to get away with wearing them another day straight.'
-		end
-	end
-end
-
 
 prezikProver += 1
 if pirs_pain_ton > 0:pirs_pain_ton -= 1
@@ -704,28 +632,10 @@ inhib_flr = inhib_lvl
 
 gs 'stat_sklattrib', 'daycall'
 
-if dounspell = 1:
-	if strenbuf > 90:
-		strenbuf -= 2
-	elseif strenbuf > 80:
-		strenbuf -= 1
-	end
-
-	if vitalbuf > 90:
-		vitalbuf -= 2
-	elseif vitalbuf > 80:
-		vitalbuf -= 1
-	end
-
-	if strenbuf > pcs_stren: strenbuf -= 1
-	if strenbuf < pcs_stren: strenbuf += 1
-	if vitalbuf > pcs_vital: vitalbuf -= 1
-	if vitalbuf < pcs_vital: vitalbuf += 1
-	if agilbuf > pcs_agil: agilbuf -= 1
-	if agilbuf < pcs_agil: agilbuf += 1
-else
-	gs 'body_shape'
-end
+!Update body measurements and base appearnce
+gs 'body', 'DailyUpdate'
+gs 'AppearanceSystem', 'UpdateBaseAppearnce'
+gs 'body_desc'
 
 
 if husband > 0 and husbandrink ! 11:husbandrink = rand(0, 10)
@@ -1322,8 +1232,7 @@ elseif mentats_dose > 1:
 	mentats_dose = 0
 end
 
-!!Appearance base calculation call
-gs 'body_shape', 'basebeautycalc'
+
 
 !! vovan, from 1.2.5
 hunters_check = 0

locations/city_center.qsrc

@@ -18,16 +18,7 @@ if sound = 0:
 		if hour >= 0 and hour <= 7: PLAY 'sound/street_noise_siren.mp3',30 & PLAY 'sound/street_night_leto.mp3' & PLAY 'sound/street_night.mp3',30
 	end
 end
-clr
-palMir = 0
-bordysh = 0
-housrA = 0
-palMir = 0
-obdysh = 0
-tanhouse1 = 0
-obMir = 0
-houseob = 0
-borMir = 0
+
 !!sets return location when visiting the bank or post office
 bankloc = 1
 gs 'stat'

locations/city_clinic.qsrc

@@ -225,7 +225,7 @@ if $ARGS[0] = 'start':
 						*clr & cla
 						money -= zubpay
 						minut += 60
-						gs 'body_shape', 'basebeautycalc', 1
+						gs 'AppearanceSystem', 'UpdateBaseAppearnce'
 						gs 'stat'
 						if pcs_teeth > 0:
 							pcs_teeth = 0
@@ -243,7 +243,7 @@ if $ARGS[0] = 'start':
 						*clr & cla
 						karta -= zubpay
 						minut += 60
-						gs 'body_shape', 'basebeautycalc', 1
+						gs 'AppearanceSystem', 'UpdateBaseAppearnce'
 						gs 'stat'
 						if pcs_teeth > 0:
 							pcs_teeth = 0
@@ -1424,7 +1424,6 @@ if $ARGS[0] = 'lipPlus':
 	minut += 60
 	pcs_lip += 1
 	money -= 25000
-	gs 'body_shape', 'basebeautycalc', 1
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/cosmeticsur.jpg"></center>'
 	'The surgeon has you strip, put on a gown and lie down on the table. He gives you a mask and tells you: "Just breathe in deeply... we''ll be done before you know it."'
@@ -1438,7 +1437,6 @@ if $ARGS[0] = 'lipMin':
 	minut += 60
 	pcs_lip -= 1
 	money -= 30000
-	gs 'body_shape', 'basebeautycalc', 1
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/cosmeticsur.jpg"></center>'
 	'The surgeon has you strip, put on a gown and lie down on the table. He gives you a mask and tells you: "Just breathe in deeply... we''ll be done before you know it."'
@@ -1452,7 +1450,6 @@ if $ARGS[0] = 'eyePlus':
 	minut += 60
 	pcs_eyesize += 1
 	money -= 90000
-	gs 'body_shape', 'basebeautycalc', 1
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/cosmeticsur.jpg"></center>'
 	'The surgeon has you strip, put on a gown and lie down on the table. He gives you a mask and tells you: "Just breathe in deeply... we''ll be done before you know it."'
@@ -1466,7 +1463,6 @@ if $ARGS[0] = 'eyeMin':
 	minut += 60
 	pcs_eyesize -= 1
 	money -= 90000
-	gs 'body_shape', 'basebeautycalc', 1
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/cosmeticsur.jpg"></center>'
 	'The surgeon has you strip, put on a gown and lie down on the table. He gives you a mask and tells you: "Just breathe in deeply... we''ll be done before you know it."'
@@ -1481,7 +1477,7 @@ if $ARGS[0] = 'lyposuction':
 	salo -= 40
 	if salo < 11: salo = 11
 	money -= 75000
-	gs 'body_shape', 'softreset'
+	gs 'body', 'softreset'
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/locations/city/residential/clinic/cosmeticsur.jpg"></center>'
 	'The surgeon has you strip, put on a gown and lie down on the table. He gives you a mask and tells you: "Just breathe in deeply... we''ll be done before you know it."'

locations/city_kavkazkafe.qsrc

@@ -179,7 +179,7 @@ if $ARGS[0] = 'grup':
 	gs 'stat'
 
 	if rand(0, 1) = 0:'<center><img <<$set_imgh>> src="images/shared/sex/group/grupbj.jpg"></center>' else  '<center><img <<$set_imgh>> src="images/shared/sex/group/grupbj1.jpg"></center>'
-	'You kneel down and take both members in your hands. You obediently open your mouth and wrap your <<$liptalk>> around the purple and warm dick starting to absorb it into your mouth, after a few movements and without stopping you masturbate the other cock.'
+	'You kneel down and take both members in your hands. You obediently open your mouth and wrap your <<$pc_desc[''lips'']>> lips around the purple and warm dick starting to absorb it into your mouth, after a few movements and without stopping you masturbate the other cock.'
 	'Soon you switch, sucking the cock that was in your hand and wanking the other, you carry on taking turns for a while, then try to take both dicks in your mouth at once.'
 	gs 'arousal', 'hj', 5,'dick[1]','sub', 'group'
 	gs 'arousal', 'bj', 5,'dick[2]','sub', 'group'
@@ -196,7 +196,7 @@ if $ARGS[0] = 'grup1':
 	gs 'boyStat','A42'
 	gs 'dinsex', 'boy_puts_condom'
 	gs 'dinsex','vaginal_sex',5,'sub','group'
-	'You suck Givis dick with your <<$liptalk>> absorbing his every move in your throat while Ashot pounds your pussy.'
+	'You suck Givis dick with your <<$pc_desc[''lips'']>> lips absorbing his every move in your throat while Ashot pounds your pussy.'
 	gs 'arousal', 'bj', 5,'dick[1]','sub', 'group'
 	minut -= 5
 
@@ -389,7 +389,7 @@ if $ARGS[0] = 'givibj3':
 	pcs_hairbsh = 0
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/locations/city/residential/cafe/sex/bj1.jpg"></center>'
-	'Givi grabs your hair pulls your face to his cock. Your <<$liptalk>> touch the crimson head. Givi gladly pushes his dick against your lips. You strech forward onto all fours and wrap your <<$liptalk>> around his thick and slightly salty cock and began to suck him. Reaching right down your throat, this solid piece of flesh completely fills your mouth.'
+	'Givi grabs your hair pulls your face to his cock. Your <<$pc_desc[''lips'']>> lips touch the crimson head. Givi gladly pushes his dick against your lips. You strech forward onto all fours and wrap your <<$pc_desc[''lips'']>> lips around his thick and slightly salty cock and began to suck him. Reaching right down your throat, this solid piece of flesh completely fills your mouth.'
 	gs 'arousal', 'bj', 3, 'sub'
 	gs 'stat'
 
@@ -398,7 +398,7 @@ end
 
 if $ARGS[0] = 'givibj4':
 	'<center><img <<$set_imgh>> src="images/locations/city/residential/cafe/sex/bj.jpg"></center>'
-	'Givi tires of standing and he drags you to the sofa still holding you to his cock by your hair. You continue to work with your <<$liptalk>> pleasuring the rock solid dick on all fours in front of the potbellied Caucasian. Givi begins to puff and it seems that he''s about to finish.'
+	'Givi tires of standing and he drags you to the sofa still holding you to his cock by your hair. You continue to work with your <<$pc_desc[''lips'']>> lips pleasuring the rock solid dick on all fours in front of the potbellied Caucasian. Givi begins to puff and it seems that he''s about to finish.'
 	gs 'arousal', 'bj', 3, 'sub'
 	gs 'stat'
 

locations/city_nightclub.qsrc

@@ -407,7 +407,7 @@ if $ARGS[0] = 'dance':
 							alexeyClubSex += 1
 							gs 'stat'
 							'<center><img <<$set_imgh>> src="images/shared/sex/blowjob/bj<<rand(29, 41)>>.jpg"></center>'
-							'You kneel down and wrap your <<$liptalk>> around his cock and you begin to suck on it. Alexei helped by moving his hips back and forth, you notice his moving is in sync to the beat of the music he''s playing. After a few minutes he groans, "You better swallow it all, I don''t want anyone to clean up our mess."'
+							'You kneel down and wrap your <<$pc_desc[''lips'']>> lips around his cock and you begin to suck on it. Alexei helped by moving his hips back and forth, you notice his moving is in sync to the beat of the music he''s playing. After a few minutes he groans, "You better swallow it all, I don''t want anyone to clean up our mess."'
 
 							gs 'arousal', 'bj', 10, 'sub'
 							gs 'stat'
@@ -423,7 +423,7 @@ if $ARGS[0] = 'dance':
 								gs 'cum_manage'
 								gs 'stat'
 								'<center><img <<$set_imgh>> src="images/shared/sex/cum/mouth/cum<<rand(34, 47)>>.jpg"></center>'
-								'Streams of sperm hit you in the mouth and began to run down your <<$liptalk>>. Alexei wiped his dick on your <<$liptalk>> and put it away in his pants.'
+								'Streams of sperm hit you in the mouth and began to run down your <<$pc_desc[''lips'']>> lips. Alexei wiped his dick on your <<$pc_desc[''lips'']>> lips and put it away in his pants.'
 								'You began greedily to swallow his warm cum and use your finger to collect the drips, that escaped your mouth, then lick your finger clean. Once you''ve swallowed every last drop, you stand up again and thank him for this tasty snack.'
 
 								gs 'arousal', 'end'
@@ -1027,7 +1027,7 @@ if $ARGS[0] = 'bar2':
 	guy += 1
 	'<center><b><font color="maroon">Bar</font></b></center>'
 	'<center><img <<$set_imgh>> src="images/locations/city/citycenter/nightclub/sex/barminet.jpg"></center>'
-	'You bend over, unbutton his pants and take out his cock. You bite your lips in anticipation and start to suck on it with your <<$liptalk>>. He''s moaning and smiling at the fact, that a random girl at a club is giving him a header.'
+	'You bend over, unbutton his pants and take out his cock. You bite your lips in anticipation and start to suck on it with your <<$pc_desc[''lips'']>> lips. He''s moaning and smiling at the fact, that a random girl at a club is giving him a header.'
 
 	gs 'arousal', 'bj', 10, 'sub'
 	gs 'stat'

locations/city_residential.qsrc

@@ -48,24 +48,12 @@ if opusk > 0 or gnewQW = 5:
 end
 
 gs 'stat'
-palMir = 0
-bordysh = 0
-housrA = 0
-obdysh = 0
-tanhouse1 = 0
-obMir = 0
-houseob = 0
-borMir = 0
-$onobjsel = 'onobjsel'
 
 if gopdeath = 1 and vsehsdaladay ! daystart:
 	over = 6
 	gt 'gameover'
-	exit
 end
 
-housrA = 0
-
 if car > 0 and cardrive = 1 or cardrive = 8:
 	if cardrive = 8:
 		'<a href="exec: minut += 10 & gs ''carF'', ''start''">Your <<$car>></a> is in your driveway.'
@@ -88,12 +76,10 @@ if home_owned[1] > 0:
 
 		if (loh > 0 or gnewQW = 7) and gopdolg > 0 and hour >= 20 and gorand >= 80:
 			gt 'gopnew', 'start'
-			exit
 		end
 
 		if (opusk > 0 or gnewQW = 5) and hour >= 20 and gorand >= 80 and gopopusday ! daystart:
 			gt 'gopnew', 'start'
-			exit
 		end
 		minut += 1
 		gt 'korr'

locations/city_saunawhore.qsrc

@@ -528,7 +528,7 @@ if $ARGS[0] = 'blowjob':
 	
 	if $moodType = 'fairly normal':
 		'<center><video autoplay loop src="images/locations/city/residential/sauna/sex/blowjob'+rand(1, 5)+'.mp4"></video></center>'
-		'You kneel in front of him and bite your lip, caressing his cock through his pants with your hands. He pulls out his <<$dick_girth>> dick and brings it to your <<$liptalk>>.'
+		'You kneel in front of him and bite your lip, caressing his cock through his pants with your hands. He pulls out his <<$dick_girth>> dick and brings it to your <<$pc_desc[''lips'']>> lips.'
 		'You start kissing the tip, licking it all around and putting it a bit inside your mouth and sucking the head.'
 		gs 'arousal', 'bj', 5, 'prostitution'
 		gs 'stat'

locations/city_smalloffice.qsrc

@@ -518,7 +518,7 @@ if $ARGS[0] = 'ohrbj':
 		picrand = rand(1, 4)
 		'<center><img <<$set_imgh>> src="images/locations/city/residential/office/sex/guard/bj<<picrand>>.jpg"></center>'
 
-		'You wrap your <<$liptalk>> around his strong and warm 15 cm cock and quickly begin by sucking the head, caressing it with your tongue and lips. Sasha groans, "I''m going to come."'
+		'You wrap your <<$pc_desc[''lips'']>> lips around his strong and warm 15 cm cock and quickly begin by sucking the head, caressing it with your tongue and lips. Sasha groans, "I''m going to come."'
 		
 		gs 'arousal', 'bj', 5, 'sub'
 		gs 'stat'
@@ -537,7 +537,7 @@ if $ARGS[0] = 'ohrbjcum':
 		gs 'stat'
 		picrand = rand(1, 4)
 		'<center><img <<$set_imgh>> src="images/locations/city/residential/office/sex/guard/bjcum<<picrand>>.jpg"></center>'
-		'You redouble your efforts, sucking his hard cock with your <<$liptalk>>. Hot sperm hits your mouth, again and again. You continue to suck, ignoring your mouth full of viscous sperm. Until he finally nothing left.'
+		'You redouble your efforts, sucking his hard cock with your <<$pc_desc[''lips'']>> lips. Hot sperm hits your mouth, again and again. You continue to suck, ignoring your mouth full of viscous sperm. Until he finally nothing left.'
 		
 		gs 'arousal', 'bj', 5, 'sub'
 		gs 'stat'

locations/dachain.qsrc

@@ -1,21 +1,18 @@
 # dachain
 
-$loc = 'dachain'
-$locM = 'dachain'
-$menu_loc = 'dachain'
-
-gs 'stat'
-gs 'themes', 'indoors'
-
-if $args[0] = '':
+if $args[0] = 'start':
 	$location_type = 'private'
-	$loc_arg = ''
-	$locM_arg = ''
-	$menu_arg = ''
+	$loc = 'dachain'
+	$loc_arg = 'start'
+	$locM = 'dachain'
+	$locM_arg = 'start'
+	$menu_loc = 'dachain'
+	$menu_arg = 'start'
 	menu_off = 0
 	internetS = internet
 
 	killvar '$locclass'
+	gs 'themes', 'indoors'
 	*clr & cla
 	gs 'stat'
 	'<center><b><font color="maroon">Cottage</font></b></center>'
@@ -41,6 +38,20 @@ if $args[0] = '':
 	if hour >= 6 and hour <= 20 and etoexhib = 12:'Leave in <a href="exec:gt ''etoexhib'', ''pos11''">garden in lingerie and robe.</a>'
 	if hour >= 6 and hour <= 20 and etoexhib = 13 and temp ! daystart:'I wonder how to <a href="exec:gt ''etoexhib'', ''pos12''">garden</a>'
 
+	act 'Go outside':
+		if $clothingworntype ! 'nude':
+			minut += 5 & gt 'dachamy'
+		else
+			msg'<b><font color = red>You can''t leave the house naked! You need to get dressed first.</font></b>'
+			gt 'dachain', 'start'
+		end
+	end
+
+	act 'Go to the Bathroom':  gt 'dachain', 'dachabath'
+	act 'Go to the kitchen alcove': gt 'dachain', 'dachakit'
+	act 'Get in the bed': gt 'bed', 'start'
+	act 'Lie on the couch': gt 'divan', 'start'
+
 !!-------------------------------------------------------------------------------------------------------------------------------------
 !!------------------------------------------------------- Music related actions come here ---------------------------------------------
 !!-------------------------------------------------------------------------------------------------------------------------------------
@@ -50,13 +61,13 @@ if $args[0] = '':
 		act 'Place the guitar next to your desk': 
 			ml_guitar['carried'] = 0
 			$ml_guitar['location'] = $curloc
-			gt 'dachain', ''
+			gt 'dachain', 'start'
 		end
 	elseif ml_guitar['hasguitar'] and ml_guitar['carried'] = 0:
 		act 'Pick up the guitar':
 			ml_guitar['carried'] = 1
 			$ml_guitar['location'] = ''
-			gt 'dachain', ''
+			gt 'dachain', 'start'
 		end
 	end
 
@@ -144,7 +155,6 @@ if $args[0] = '':
 		end
 	end
 
-
 	!!Uploading recorded music if there are any not uploaded yet
 	if ml_uploadablemusic > 0 and internet > 0 and ml_online['account'] = 1:
 		if pcs_inhib < 30:
@@ -167,29 +177,18 @@ if $args[0] = '':
 		act 'Upload music': gt 'music_onlinemusic', 'uploadallmusic'
 	end
 
-	act 'Lie on the couch': gt 'divan', 'start'
-	act 'Go to the kitchen alcove': gt 'dachain', 'dachakit'
-	act 'Go to the Bathroom':  gt 'dachain', 'dachavann'
-	act 'Get in the bed': gt 'bed', 'start'
-
-	act 'Go outside':
-		if $clothingworntype ! 'nude':
-			minut += 5 & gt 'dachamy'
-		else
-			msg'<b><font color = red>You can''t leave the house naked! You need to get dressed first.</font></b>'
-			gt 'dachain'
-		end
-	end
-
 	if curr_home ! 3:
-		act 'Set this cottage as your main home':gs 'set_home', 3 & gt 'dachain'
+		act 'Set this cottage as your main home':gs 'set_home', 3 & gt 'dachain', 'start'
 	end
 end
 
 if $args[0] = 'dachakit':
 	$location_type = 'private'
+	$loc = 'dachain'
 	$loc_arg = 'dachakit'
+	$locM = 'dachain'
 	$locM_arg = 'dachakit'
+	$menu_loc = 'dachain'
 	$menu_arg = 'dachakit'
 	menu_off = 0
 	$locclass = 'kitr'
@@ -203,7 +202,7 @@ if $args[0] = 'dachakit':
 		'<center><img <<$set_imgh>> src="images/locations/suburban/cottage/dachakit1.jpg"></center>'
 	end
 	
-	act 'Go into the main room': gt 'dachain', ''
+	act 'Go into the main room': gt 'dachain', 'start'
 
 	if cltarelka > 0:
 		'<b><<cltarelka>></b> clean plates are stored in the cupboard.'
@@ -263,14 +262,17 @@ if $args[0] = 'dachakit':
 
 end
 
-if $args[0] = 'dachavann':
-	$loc_arg = 'dachavann'
-	$locM_arg = 'dachavann'
-	$menu_arg = 'dachavann'
+if $args[0] = 'dachabath':
+	$loc = 'dachain'
+	$loc_arg = 'dachabath'
+	$locM = 'dachain'
+	$locM_arg = 'dachabath'
+	$menu_loc = 'dachain'
+	$menu_arg = 'dachabath'
 	menu_off = 0
 	$location_type = 'bathroom'
 	$bathtype = 'bathtub shower'
-	killvar '$locclass'
+
 	*clr & cla
 	gs 'stat'
 	'<center><b><font color="maroon">Cottage Bathroom</font></b></center>'
@@ -279,9 +281,11 @@ if $args[0] = 'dachavann':
 	else
 		'<center><img <<$set_imgh>> src="images/locations/suburban/cottage/dachavan1.jpg"></center>'
 	end
+
+	act 'Go into the main room': gt 'dachain', 'start'
+
 	gs'selfplay','suction_dildo'
 	gs 'din_van', 'private'
-	act 'Go into the main room': gt 'dachain', ''
 end
 
 --- dachain ---------------------------------

locations/dachamy.qsrc

@@ -17,7 +17,7 @@ gs 'stat'
 
 act 'Exit the alley':minut += 15 & gt 'dachi'
 
-act 'Go into the house':gt 'dachain'
+act 'Go into the house':gt 'dachain', 'start'
 
 if sunWeather = 1:
 	if pcs_stam >=15 or (pcs_stam >= 10 and bookYog + obruch > 0):

locations/dimaHome.qsrc

@@ -211,7 +211,7 @@ if $ARGS[0] = 'bathroom2':
 
 			act '"Wash" your pussy':
 				*clr & cla
-				if obdysh = 1 and rand(0, 5) = 1:gt 'vann', 'v4'
+				if rand(0, 5) = 1:gt 'vann', 'v4'
 				minut += 10
 
 				'<center><video autoplay loop src="images/shared/home/bathroom/wash7.mp4"></center>'

locations/dinSex.qsrc

@@ -433,16 +433,16 @@ end &! --- sexcum ---
 if $ARGS[0] = 'bj_random':
 	if stat['bj'] = 0:'You are anxious about the idea of sucking a cock, having never given a blowjob before. You wonder what it will taste like.'
 	if stat['bj'] <= 10:
-		'Hesitantly bringing your face to <<$boydesc>>''s crotch, you lightly press your <<$liptalk>> against <<$xyr>> dick, tasting the slight saltiness.'
+		'Hesitantly bringing your face to <<$boydesc>>''s crotch, you lightly press your <<$pc_desc[''lips'']>> lips against <<$xyr>> dick, tasting the slight saltiness.'
 		'Then you start flicking your tongue around the head as you wrap your lips further, stroking the shaft in the meantime.'
 	elseif stat['bj'] <= 25:
 		'You lightly put <<$boydesc>>''s cock into your mouth, rolling your tongue around the head as you rhytmically stroke the shaft.'
 		'After a moment you start getting into rhythm, lightly bobbing your head although not sucking his dick much further than the tip.'
 	elseif stat['bj'] <= 40:
-		'You wrap your <<$liptalk>> around the <<$penis_desc>> in front of you. You give <<$boydesc>> a moment to adjust to the warmthness with more than half his cock resting in your mouth'
+		'You wrap your <<$pc_desc[''lips'']>> lips around the <<$penis_desc>> in front of you. You give <<$boydesc>> a moment to adjust to the warmthness with more than half his cock resting in your mouth'
 		'Then you greedily lean forwards, taking <<$xyr>> dick deeper in your mouth and start to bob your head back and forth along <<$xyr>> <<$penis_desc>>'
 	elseif stat['bj'] <= 60:
-		'Imagining how the hard cock in front of your face would feel between your <<$liptalk>>, you just can''t hold back and hungrily take the whole length in your mouth until its tip is resting at the entrance of your throat'
+		'Imagining how the hard cock in front of your face would feel between your <<$pc_desc[''lips'']>> lips, you just can''t hold back and hungrily take the whole length in your mouth until its tip is resting at the entrance of your throat'
 		'You playfully roll your tongue around the cock you are sucking and try to see if you can swallow the whole length down your throat.'
 	else
 		'You lock eyes with <<$boydesc>> and relax your throat as you swallow <<$xyr>> <<$penis_desc>> in one move like the veteran cocksucker you are, milking <<$xyr>> cock with just your throat.'

locations/dinSex2.qsrc

@@ -55,7 +55,7 @@ if $ARGS[0] = 'd_strapon_vag':
 		$temp_mens = iif(cycle <= 0,' and menstruation blood leaks from your vagina','')
 		pcs_horny = 0
 		pcs_mood -= 15
-		'You bite your <<$liptalk>> in pain while tears start to flow from your eyes when <<$boydesc>> penetrates you, breaking your hymen. You moan while crying and <<$xyr>> rubber <<dick>> centimeter dick fucks your bloody pussy.'
+		'You bite your <<$pc_desc[''lips'']>> lips in pain while tears start to flow from your eyes when <<$boydesc>> penetrates you, breaking your hymen. You moan while crying and <<$xyr>> rubber <<dick>> centimeter dick fucks your bloody pussy.'
 		gs 'arousal','vaginal',ARGS[1],$ARGS[2],$ARGS[3],$ARGS[4],$ARGS[5],$ARGS[6],$ARGS[7],$ARGS[8]
 	end
 	killvar '$temp_mens'
@@ -207,7 +207,7 @@ if $ARGS[0] = 'doublepenetration':
 		pcs_horny = 0
 		pcs_mood -= 15
 		TotPain +=4
-		'You bite your <<$liptalk>> in pain and tears start to flow from your eyes when <<$boydesc1>> penetrates you, breaking your hymen.'
+		'You bite your <<$pc_desc[''lips'']>> lips in pain and tears start to flow from your eyes when <<$boydesc1>> penetrates you, breaking your hymen.'
 	end
 	if (agrdif + altdif) >= 20: TotPain +=1 & 'You scream and bite your lip from a sharp pain when <<$xyr2>> <<dick2>> centimeter dick enters your ass.'
 	if (agrdif + altdif) <  20:'You moan when <<$xyr2>> <<dick2>> centimeter dick enters your ass.'

locations/din_van.qsrc

@@ -36,7 +36,7 @@ $showerdin = {
 			'Unfortunately, your false lashes don''t make it through the shower.'
 			false_lashes = 0
 			pcs_lashes = pcs_naturallashes
-			gs 'body_shape', 'basebeautycalc', 1
+			gs 'AppearanceSystem', 'UpdateBaseAppearnce'
 		end
 	end
 }
@@ -157,7 +157,7 @@ $shower = {
 			act 'Use the shower head on your pussy':
 				menu_off = 1
 				*clr & cla
-				if rand(0, 5) = 0 and obdysh = 1:gt 'vann', 'v4'
+				if rand(0, 5) = 0 and $locM = 'uni_dorm':gt 'vann', 'v4'
 				'<center><video autoplay loop src="images/shared/home/bathroom/wash2.mp4"></center>'
 				*nl
 				'You place the shower head onto your pussy and a powerful jet of warm water begins to caress you.'
@@ -262,7 +262,7 @@ $bath = {
 		act '"Wash" your pussy':
 			menu_off = 1
 			*clr & cla
-			if obdysh = 1 and rand(0, 5) = 1:gt 'vann', 'v4'
+			if $locM = 'uni_dorm' and rand(0, 5) = 1:gt 'vann', 'v4'
 			minut += 10
 
 			'<center><video autoplay loop src="images/shared/home/bathroom/wash7.mp4"></center>'
@@ -350,7 +350,7 @@ $brit = {
 					act '<<$shave_act>> (0:15)':
 						menu_off = 1
 						*clr & cla
-						if obdysh = 1 and rand(0, 5) = 0:gt 'vann', 'brit1'
+						if $locM = 'uni_dorm' and rand(0, 5) = 0:gt 'vann', 'brit1'
 						if $loc ='gadbana':
 							'<center><video autoplay loop src="images/shared/home/bathroom/shave.mp4"></center>'
 						elseif pcs_pubes <= 10 and shave_length = 2:
@@ -386,7 +386,7 @@ $brit = {
 					pcs_leghair = 0
 					pcs_horny += 5
 					stanok -= 1
-					if obdysh = 1 and rand(0, 5) = 5:gt 'vann', 'brit1'
+					if $locM = 'uni_dorm' and rand(0, 5) = 5:gt 'vann', 'brit1'
 					'<center><img <<$set_imgh>> src="images/shared/home/bathroom/shave2.jpg"></center>'
 					*nl
 					if daystart < 10 and StoryLine = 0 and ntstart = 0:
@@ -491,7 +491,7 @@ $brit = {
 				pcs_leghair = 0
 				pcs_horny += 5
 				stanok -= 1
-				if obdysh = 1 and rand(0, 5) = 5:gt 'vann', 'brit1'
+				if $locM = 'uni_dorm' and rand(0, 5) = 5:gt 'vann', 'brit1'
 				'<center><img <<$set_imgh>> src="images/shared/home/bathroom/shave2.jpg"></center>'
 				*nl
 				if daystart < 10 and StoryLine = 0 and ntstart = 0:
@@ -837,7 +837,7 @@ $basin = {
 			pcs_lashes = pcs_naturallashes
 			false_lashes = 0
 			minut += 2
-			gs 'body_shape', 'basebeautycalc', 1
+			gs 'AppearanceSystem', 'UpdateBaseAppearnce'
 			act 'Finish':menu_off = 0 & gt $loc, $loc_arg
 		end
 	end
@@ -1092,7 +1092,7 @@ if $ARGS[0] = 'private':
 		dynamic $toymanage
 	end
 
-	'<a href="exec:msg ''<center>Your weight is <<pcs_weight>> kg<br>Your body mass index (BMI) is <<bmi_calc>>.<br><<$bmi_desc>></center>''">Check weight on the scales</a>'
+	'<a href="exec:msg ''<center>Your weight is <<pcs_weight>> kg<br>Your body mass index (BMI) is <<pcs_bmi>>.<br><<$bmi_desc>></center>''">Check weight on the scales</a>'
 
 	gs 'din_van', 'prvt_pee'
 

locations/dinnpc.qsrc

@@ -20,7 +20,7 @@ $din_predlog_dima_bj = {
 
 			gs 'stat'
 			'<center><img <<$set_imgh>> src="images/shared/sex/blowjob/cocksucker2.jpg"></center>'
-			'You gently kiss the purple head of his member, hoping against hope that maybe you can set the tone and pace for this. But Dimka is already impatient and grabs your hair, ignoring your pained yelp. "Stop wasting time and start sucking." Without a second thought, you take his dick into your mouth. You begin to move your <<$liptalk>> up and down Dimka''s hard cock, taking his rod deep into your mouth. You don''t go slow and move your tongue around his head all the while, trying to please him, but Dimka groans and grabs your head firmly. "Take it deeper!"'
+			'You gently kiss the purple head of his member, hoping against hope that maybe you can set the tone and pace for this. But Dimka is already impatient and grabs your hair, ignoring your pained yelp. "Stop wasting time and start sucking." Without a second thought, you take his dick into your mouth. You begin to move your <<$pc_desc[''lips'']>> lips up and down Dimka''s hard cock, taking his rod deep into your mouth. You don''t go slow and move your tongue around his head all the while, trying to please him, but Dimka groans and grabs your head firmly. "Take it deeper!"'
 
 			gs 'arousal', 'bj', 5, 'sub', 'rough'
 			gs 'stat'
@@ -143,7 +143,7 @@ $din_igor_disco_bj = {
 		'<center><img <<$set_imgh>> src="images/shared/sex/blowjob/cocksucker5.jpg"></center>'
 		'You sit on your haunches and Igor pulls his dick out of his pants... and it takes all of your resolve to remain straight faced. His penis is tiny! Igor''s small, thin member sticks out of his pubic hair like a mushroom in a meadow - that image alone is enough to almost make you burst into laughter, especially considering that you''ve seen mushrooms bigger than that. But to your luck, it''s too dark for him to see your face twitch and a few coughs cover your stifled laughter until you are mentally prepared to do what you came here for.' 
 		*nl
-		'Actually feeling somewhat disappointed by his size, now that you''re getting to the blowjob part, you gently wrap your <<$liptalk>> around the small cock... but sucking on it like you would a normal penis doesn''t work because you simply can''t bob up and down its length when there is no length to begin with. Even sucking on it is hard because of its size, or lack thereof.'
+		'Actually feeling somewhat disappointed by his size, now that you''re getting to the blowjob part, you gently wrap your <<$pc_desc[''lips'']>> lips around the small cock... but sucking on it like you would a normal penis doesn''t work because you simply can''t bob up and down its length when there is no length to begin with. Even sucking on it is hard because of its size, or lack thereof.'
 		'So, instead, you begin to ''fondle it'' inside your mouth, squeezing it with your lips and licking it all over, swirling your tongue easily around most of it. Igor groans, audibly enjoying the treatment. More so than you expected, in fact, because not a minute after you''ve started, you notice his hips bucking against your head and taste a few bland drops of semen that would barely constitute a sip of water.'
 		*nl
 		'You can''t help but feel a little sorry for Igor: Having a tiny dick, no stamina AND only a few droplets of semen? The guy should apply for a certificate of disability. And the poor woman who''s gonna date him someday...'

locations/dinsexFX.qsrc

@@ -43,7 +43,7 @@ $vagend = {
 			pcs_horny = 0
 			pcs_mood -= 15
 			pcs_vag += 1
-			'You bite your <<$liptalk>> in pain and tears flow down your face, <<$boydesc>> has torn your hymen with his <<dick>> centimeter dick. Your bloody pussy a reminder of your lost virginity.'
+			'You bite your <<$pc_desc[''lips'']>> lips in pain and tears flow down your face, <<$boydesc>> has torn your hymen with his <<dick>> centimeter dick. Your bloody pussy a reminder of your lost virginity.'
 		elseif mesec > 0:
 			pcs_horny -= 10
 			'As enjoyable as the sex may be, you are too worried about your bleeding to fully relax and can not orgasm.'

locations/dk.qsrc

@@ -98,7 +98,7 @@ if $ARGS[0] = 'holl':
 						alexeySex += 1
 						picrand = rand(29, 41)
 						'<center><img <<$set_imgh>> src="images/shared/sex/blowjob/bj<<picrand>>.jpg"></center>'
-						'You kneel before him, unzipping his pants as you go down and as soon as his flaccid cock springs free from his underwear, you wrap your <<$liptalk>> around it and begin to suck and bob your head, getting him hard in no time. Alexei audibly enjoys what you''re doing and moves his hips so violently he''s basically fucking your mouth.' 
+						'You kneel before him, unzipping his pants as you go down and as soon as his flaccid cock springs free from his underwear, you wrap your <<$pc_desc[''lips'']>> lips around it and begin to suck and bob your head, getting him hard in no time. Alexei audibly enjoys what you''re doing and moves his hips so violently he''s basically fucking your mouth.' 
 						'Finally he groans: "Here it comes, my little slut. Swallow it all or I will make you lick it up from the floor!"'
 						
 						gs 'arousal', 'bj', 10, 'sub'
@@ -111,7 +111,7 @@ if $ARGS[0] = 'holl':
 							gs 'cum_manage'
 							picrand = rand(34, 47)
 							'<center><img <<$set_imgh>> src="images/shared/sex/cum/mouth/cum<<picrand>>.jpg"></center>'
-							'Jets of sperm hit the roof of your mouth and the back of your throat, so much of it that you cannot swallow it in one go and some of it runs down your <<$liptalk>> when your vocal coach pulls his cock out.' 
+							'Jets of sperm hit the roof of your mouth and the back of your throat, so much of it that you cannot swallow it in one go and some of it runs down your <<$pc_desc[''lips'']>> lips when your vocal coach pulls his cock out.' 
 							'Once you''ve finally stemmed the flood and swallowed the salty liquid, you diligently lick Alexei''s dick clean before he puts it back into his pants.'
 							'He watches as you collect the remains of his semen that ran down your chin. When the last bit is gulped down, you lick your lips as you rise to your feet and give him a mischievous smile as you turn to leave.'
 
@@ -240,7 +240,7 @@ if $ARGS[0] = 'holl':
 								*clr & cla
 								gs 'stat'
 								'<center><img <<$set_imgh>> src="images/characters/city/alexey/sex/bj.jpg"></center>'
-								'You kneel in front of him and stare at his cock. He is really big, about 20 centimeters, but rather than scaring you, it only excites you more in your drunken haze. You reach out with one of your hand and caress his dick, jerking him a few time to see if it gets even bigger; the heat emanating from it is incredible and you simply cannot resist. You bring your face closer and closer to Alexei''s cock, give it a few tentative licks and finally wrap your <<$liptalk>> around it. While you swirl your tongue around his head and move your head up and down, taking more and more of him into your mouth and throat, Alexei takes his beer mug and takes a loud sip. Before you even know how you feel about this, he pulls his dick out of your mouth and grip, lifts you back on your feet and drags you into his bedroom.'
+								'You kneel in front of him and stare at his cock. He is really big, about 20 centimeters, but rather than scaring you, it only excites you more in your drunken haze. You reach out with one of your hand and caress his dick, jerking him a few time to see if it gets even bigger; the heat emanating from it is incredible and you simply cannot resist. You bring your face closer and closer to Alexei''s cock, give it a few tentative licks and finally wrap your <<$pc_desc[''lips'']>> lips around it. While you swirl your tongue around his head and move your head up and down, taking more and more of him into your mouth and throat, Alexei takes his beer mug and takes a loud sip. Before you even know how you feel about this, he pulls his dick out of your mouth and grip, lifts you back on your feet and drags you into his bedroom.'
 								gs 'arousal', 'bj', 10, 'sub'
 								gs 'stat'
 

locations/etoexhib.qsrc

@@ -437,7 +437,7 @@ if $ARGS[0] = 'pos13':
 
 			'When it was over, you picked your clothes up, put them on and went back into the house.'
 
-			act 'Next':gt 'dachain'
+			act 'Next':gt 'dachain', 'start'
 		end
 	end
 end
@@ -484,7 +484,7 @@ if $ARGS[0] = 'pos14':
 
 			'When it was over, you picked your clothes up, put them on and ran into the house.'
 
-			act 'Next':gt 'dachain'
+			act 'Next':gt 'dachain', 'start'
 		end
 	end
 end

locations/foto.qsrc

@@ -299,12 +299,12 @@ if $ARGS[0] = 'studio':
 			elseif pcs_skin < 40:
 				'"Girl, your face is covered in acne unless you improve your appearance there is no chance of working here."'
 				act 'Leave':minut += 1 & gt 'city_center'
-			elseif bmi_calc >= foto_weight and foto_weight > 0:
+			elseif pcs_bmi >= foto_weight and foto_weight > 0:
 				'You walk up to the front desk and find the same man who interviewed you previously. He looks up at you from his computer as you approach and frowns.'
 				'Before you can say anything, he sternly says, "Girl, I told you to lose weight, not put it on! Now get out of here until you slim down some!"'
 				'The comment turns your face bright red and you stop in your tracks. He stares at you angrily until you slowly start to back up and head towards the door.'
 				act 'Leave':minut += 1 & gt 'city_center'
-			elseif bmi_calc < foto_weight and foto_weight > 0:
+			elseif pcs_bmi < foto_weight and foto_weight > 0:
 				gt'foto','interview2'
 			elseif fotofakepassport = 1 and age < 18:
 				'You walk up to the front desk and find the same man who "interviewed" you previously. He looks up at you from his computer as you approach.'
@@ -489,7 +489,7 @@ if $ARGS[0] = 'interview2':
 		gs 'willpower', 'skill', 'pcs_inhib', 'hard'
 	end
 	'<center><img <<$set_imgh>> src="images/locations/city/citycenter/photo/foto.jpg"></center>'
-	if bmi_calc < foto_weight:
+	if pcs_bmi < foto_weight:
 		'You walk up to the front desk and find the same man who interviewed you previously. He looks up at you from his computer as you approach.'
 		'"Hmm..." he says appraisingly. "You look like you lost some weight since the last time I saw you."'
 		'"Yes I did!" You smile brightly at him.'
@@ -539,8 +539,8 @@ if $ARGS[0] = 'interview2':
 			gs 'clothing', 'strip_all'
 			gs 'stat'
 			'<center><video autoplay loop src="images/locations/city/citycenter/photo/strip1.mp4"></video><video autoplay loop src="images/locations/city/citycenter/photo/strip2.mp4"></video></center>'
-			if bmi_calc < foto_weight and foto_weight > 0:
-				foto_weight = bmi_calc
+			if pcs_bmi < foto_weight and foto_weight > 0:
+				foto_weight = pcs_bmi
 				if foto_weight < 25: fotofit = 1
 				'You strip off your clothing for the photographer once again, holding your breath and hoping that you''ve slimmed down enough to work here now.'
 				'Just like before, he circles you, asks you to adjust your pose for him, carefully inspecting every aspect of your nude body.'
@@ -559,7 +559,7 @@ if $ARGS[0] = 'interview2':
 					'You nod in understanding.'
 				end
 				act'Continue':
-					if bmi_calc < 25 or hotcat >= 6:
+					if pcs_bmi < 25 or hotcat >= 6:
 						gt'foto','job_offer'
 					else
 						gt'foto','job_decline'
@@ -571,10 +571,10 @@ if $ARGS[0] = 'interview2':
 				else
 					'You take off your clothes and leave them on the floor while the photographer examines you.'
 				end
-				'He circles you slowly, occasionally asking you to adjust your pose slightly, carefully inspecting every aspect of your nude body. Your <<$pcs_eyecol>> eyes framed by your <<$pcs_haircol>> hair, your <<$liptalk3>>, your <<$titsize>> breasts, your <<$skin1>> <<$pcs_tan>> skin, your thighs, even your <<$pcdesc_pubes>> pussy...'
+				'He circles you slowly, occasionally asking you to adjust your pose slightly, carefully inspecting every aspect of your nude body. Your <<$pcs_eyecol>> eyes framed by your <<$pcs_haircol>> hair, your <<$pc_desc[''lip size'']>>lip, your <<$titsize>> breasts, your <<$skin1>> <<$pcs_tan>> skin, your thighs, even your <<$pcdesc_pubes>> pussy...'
 				'He spends several minutes doing this without saying anything. Several people walk by while he does, including several beautiful and nude women who glance at you, whispering to each other before moving on.'
 				act'Continue':
-					if bmi_calc < 25 or hotcat >= 6:
+					if pcs_bmi < 25 or hotcat >= 6:
 						gt'foto','job_offer'
 					else
 						gt'foto','job_decline'
@@ -591,11 +591,11 @@ if $ARGS[0] = 'interview2':
 			'<center><video autoplay loop src="images/locations/city/citycenter/photo/strip1.mp4"></video><video autoplay loop src="images/locations/city/citycenter/photo/strip2.mp4"></video></center>'
 			'You take a deep breath and begin to take off your clothes. As long as it''s just this one time, you can handle it for now. You leave them on the floor while the photographer examines you.'
 			!if pcs_inhib <= 20'You instinctively cover up as he steps closer, your hands trying to shield your nipples and pussy.'
-			'He circles you slowly, occasionally asking you to adjust your pose slightly, carefully inspecting every aspect of your nude body. Your <<$pcs_eyecol>> eyes framed by your <<$pcs_haircol>> hair, your <<$liptalk3>>, your <<$titsize>> breasts, your <<$skin1>> <<$pcs_tan>> skin, your thighs, even your <<$pcdesc_pubes>> pussy...'
+			'He circles you slowly, occasionally asking you to adjust your pose slightly, carefully inspecting every aspect of your nude body. Your <<$pcs_eyecol>> eyes framed by your <<$pcs_haircol>> hair, your <<$pc_desc[''lips'']>> lips, your <<$titsize>> breasts, your <<$skin1>> <<$pcs_tan>> skin, your thighs, even your <<$pcdesc_pubes>> pussy...'
 			'He spends several minutes doing this without saying anything. Several people walk by while he does, including several beautiful and nude women who glance at you, whispering to each other before moving on.'
 			'You blush furiously at the attention, both his and the other models.'
 			act'Continue':
-				if bmi_calc < 25 or hotcat >= 6:
+				if pcs_bmi < 25 or hotcat >= 6:
 					gt'foto','job_offer'
 				else
 					gt'foto','job_decline'
@@ -627,7 +627,7 @@ if $ARGS[0] = 'job_decline':
 			'<center><img <<$set_imgh>> src="images/locations/city/citycenter/photo/foto.jpg"></center>'
 			'You glumly pick your clothes up off the floor and get dressed before leaving. As you do, you stop at the door and look back in.'
 			'<i>Is this it for me? Am I ever going to be able to lose enough weight to work here?</i>'
-			foto_weight = bmi_calc
+			foto_weight = pcs_bmi
 			foto_cupsize = tits
 			gs 'clothing', 'wear_last_worn'
 			gs 'underwear', 'wear'
@@ -640,7 +640,7 @@ if $ARGS[0] = 'job_decline':
 			'<center><img <<$set_imgh>> src="images/locations/city/citycenter/photo/foto.jpg"></center>'
 			'You nod at him, feeling a bit dejected but more determined than ever. You get dressed with purpose and head to the door. As you do, you think to yourself...'
 			'<i>I will be able to do this! I''ll get in shape and I''ll work here one day! I''m not going to lose my shot at this!</i>'
-			foto_weight = bmi_calc
+			foto_weight = pcs_bmi
 			foto_cupsize = tits
 			gs 'clothing', 'wear_last_worn'
 			gs 'underwear', 'wear'

locations/gadhouse.qsrc

@@ -305,7 +305,7 @@ if $ARGS[0] = 'main':
 	*nl
 	'A fairly simple cottage in the village of Gadukino which your grandparents call home. In the main room there is a huge <a href="exec:gt ''wardrobe'', ''start''">wardrobe</a> (where you can choose outfits and organize your clothing), and a <a href="exec:gad = 1 & gt ''bed'', ''start''">bed</a> where you can rest. The bed is more comfortable than it looks.'
 	'There is an old <a href="exec:gt ''TV'',''gad''">television</a> in the living room. It''s positioned next to a body length <a href="exec:gt ''mirror'', ''start''">mirror</a>.'
-	'You can check your weight on your grandma''s old mechanical <a href="exec:msg ''<center>Your weight is <<pcs_weight>> kg<br>Your body mass index (BMI) is <<bmi_calc>>.<br><<$bmi_desc>></center>''">scales</a>.'
+	'You can check your weight on your grandma''s old mechanical <a href="exec:msg ''<center>Your weight is <<pcs_weight>> kg<br>Your body mass index (BMI) is <<pcs_bmi>>.<br><<$bmi_desc>></center>''">scales</a>.'
 
 	if hour < 8:
 		temp = rand(0,9)

locations/gadukino_event.qsrc

@@ -224,7 +224,7 @@ if $ARGS[0] = 'gadriver_gang':
 				guy += 1
 
 				'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/river/gadriver_gang_oral3.jpg"></center>'
-				'The men continue lining up, one after another. Some of the men are so impatient they shoved two cocks at you at once. You sucked each one of them off, embracing their penis with your <<$liptalk>> lips, deepthroating them all.'
+				'The men continue lining up, one after another. Some of the men are so impatient they shoved two cocks at you at once. You sucked each one of them off, embracing their penis with your <<$pc_desc[''lips'']>> lips lips, deepthroating them all.'
 				gs 'arousal', 'bj', 5, 'sub', 'gangbang', 'deepthroat'
 				gs 'stat'
 

locations/garfather.qsrc

@@ -319,7 +319,7 @@ if pcs_horny > 50 and npc_sex['A28'] ! 0:
 						gs 'stat'
 						'<center><video autoplay loop src="images/shared/sex/cum/mouth/cum1,<<rand(0,10)>>.mp4"></video></center>'
 
-						'You continue to suck your stepfather''s dick as it continues throbbing. Suddenly, he arches his back and you feel cum begin to pour into your mouth. Although you try your best, the amount of cum flowing from your stepfathers dick is simply too much for you, and some of it instead flows out of your mouth and down your chin. Soon your <<$boydesc>> finishes and you pull his cock out of your sperm-smelling mouth. You can feel the taste of sperm in your mouth, and your <<$liptalk3>> are wet with cum.'
+						'You continue to suck your stepfather''s dick as it continues throbbing. Suddenly, he arches his back and you feel cum begin to pour into your mouth. Although you try your best, the amount of cum flowing from your stepfathers dick is simply too much for you, and some of it instead flows out of your mouth and down your chin. Soon your <<$boydesc>> finishes and you pull his cock out of your sperm-smelling mouth. You can feel the taste of sperm in your mouth, and your <<$pc_desc[''lips'']>> lips are wet with cum.'
 
 						gs 'arousal', 'bj', 10, 'sub', 'incest'
 						gs 'arousal', 'end'

locations/gdksex.qsrc

@@ -1854,7 +1854,7 @@ if $ARGS[0] = 'hotelsex':
 	act 'Suck his dick':
 		*clr & cla
 		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/sex/hotel/bj1.jpg"></center>'
-		'You get down on your knees and slowly start stroking his cock. As it grows larger and harder, you lick your lips in anticipation before carefully clasping your <<$liptalk2>> around the tip.'
+		'You get down on your knees and slowly start stroking his cock. As it grows larger and harder, you lick your lips in anticipation before carefully clasping your <<$pc_desc[''lips'']>> lips around the tip.'
 		'You stroke your hand along his shaft in rhythm with your head bobbing up and down on his cock and as he becomes more aroused, he starts moaning and thrusting into your mouth, going deeper every time.'
 		if $ARGS[1] = 'paid': gs 'arousal', 'bj', 5, 'prostitution'
 		if $ARGS[1] = 'unpaid': gs 'arousal', 'bj', 5

locations/gloryhole.qsrc

@@ -360,7 +360,7 @@ if $ARGS[0] = 'ghsex':
 				sexcontra = 0
 				gt 'gloryhole', 'pussy'
 			end
-		else:
+		else
 			act 'Pussy (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
 		end
 	end
@@ -389,10 +389,10 @@ if $ARGS[0] = 'pussy':
 	temp = rand(1,5)
 	if rand(0,2) > 0:
 		'<center><video autoplay loop src="images/locations/shared/gloryhole/sex/sex<<temp>>.mp4"></video></center>'
-	else:
+	else
 		if protect = 1:
 			'<center><video autoplay loop src="images/locations/shared/gloryhole/sex/vagcon<<temp>>.mp4"></video></center>'
-		else:
+		else
 			'<center><video autoplay loop src="images/locations/shared/gloryhole/sex/vag<<temp>>.mp4"></video></center>'
 		end
 	end
@@ -422,7 +422,7 @@ if $ARGS[0] = 'pussy':
 			else
 				act 'Allow him to cum inside (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
 			end
-		else:
+		else
 			act 'Allow him to cum inside':
 				*clr & cla
 				gs 'cum_call', 'vaginal', 'an unknown guy from the gloryhole'
@@ -495,7 +495,7 @@ if $ARGS[0] = 'anal':
 		temp = rand(1,5)
 		if rand(0,2) > 0:
 			'<center><video autoplay loop src="images/locations/shared/gloryhole/sex/sex<<temp>>.mp4"></video></center>'
-		else:
+		else
 			'<center><video autoplay loop src="images/locations/shared/gloryhole/sex/anal<<temp>>.mp4"></video></center>'
 		end
 		if pcs_ass < 10:

locations/gopsex.qsrc

@@ -1533,8 +1533,8 @@ if $ARGS[0] = 'hide':
 !69:
 	if $ARGS[1] = 'text_sex_69':
 		txt_sex_69 = RAND(0,1)
-		if txt_sex_69 = 0:$txt_sex_69 = 'Your <<$liptalk3>> softly accept his member sucking it passionately all round like a lollipop, helping yourself with your nimble tongue tickling his frenulum. At the same time <<$boydesc>> grasps your clit with his fingertips rubbing it gently between them. Simultaneously he examines your love hole with his tongue, which has been already prepared to accept something bigger.'
-		if txt_sex_69 = 1:$txt_sex_69 = '<<$boydesc>> lies down on his back, takes your leg and shifts it over himself so your tushie was just in front of his face. Running his tongue between your nether lips, he feels you take his cock deep into your mouth again. You loosen your grasp a bit then and start sucking it with your <<$liptalk>>.'
+		if txt_sex_69 = 0:$txt_sex_69 = 'Your <<$pc_desc[''lips'']>> lips softly accept his member sucking it passionately all round like a lollipop, helping yourself with your nimble tongue tickling his frenulum. At the same time <<$boydesc>> grasps your clit with his fingertips rubbing it gently between them. Simultaneously he examines your love hole with his tongue, which has been already prepared to accept something bigger.'
+		if txt_sex_69 = 1:$txt_sex_69 = '<<$boydesc>> lies down on his back, takes your leg and shifts it over himself so your tushie was just in front of his face. Running his tongue between your nether lips, he feels you take his cock deep into your mouth again. You loosen your grasp a bit then and start sucking it with your <<$pc_desc[''lips'']>> lips.'
 		'<<$txt_sex_69>>'
 		killvar '$text_sex_69'
 	end &!--- text_sex_69 ---
@@ -1557,14 +1557,14 @@ if $ARGS[0] = 'hide':
 !blow job
 	if $ARGS[1] = 'text_sex_bj':
 		txt_sex_bj = RAND(0,7)
-		if txt_sex_bj = 0:$txt_sex_bj = 'You take his member into your <<$liptalk>>, and <<$boydesc>> starts to fuck your mouth.'
-		if txt_sex_bj = 1:$txt_sex_bj = 'You take his member into your mouth, and start to suck it. <<$boydesc>> takes hold of your <<$pcs_haircol>> <<$curly>> hair and impales your head at his prick. Slurping, you swallow his member. You could feel with your <<$liptalk>> every vein and bump on its skin.'
-		if txt_sex_bj = 2:$txt_sex_bj = 'You grasp his member with your hand and pumping, you take with your <<$liptalk>> its head into your mouth. His dick stiffens more and gains impressive size. You learned to swallow a cock quite well long ago, and you used it always since that time. <<$boydesc>> was fascinated. You fondle his balls with one hand, and stroke his prick with other one, you release it from time to time so that you can take his shaft in your mouth fully.'
+		if txt_sex_bj = 0:$txt_sex_bj = 'You take his member into your <<$pc_desc[''lips'']>> lips, and <<$boydesc>> starts to fuck your mouth.'
+		if txt_sex_bj = 1:$txt_sex_bj = 'You take his member into your mouth, and start to suck it. <<$boydesc>> takes hold of your <<$pcs_haircol>> <<$curly>> hair and impales your head at his prick. Slurping, you swallow his member. You could feel with your <<$pc_desc[''lips'']>> lips every vein and bump on its skin.'
+		if txt_sex_bj = 2:$txt_sex_bj = 'You grasp his member with your hand and pumping, you take with your <<$pc_desc[''lips'']>> lips its head into your mouth. His dick stiffens more and gains impressive size. You learned to swallow a cock quite well long ago, and you used it always since that time. <<$boydesc>> was fascinated. You fondle his balls with one hand, and stroke his prick with other one, you release it from time to time so that you can take his shaft in your mouth fully.'
 		if txt_sex_bj = 3:$txt_sex_bj = 'Without talking, <<$boydesc>>, seizes you by your <<$pcs_haircol>> <<$curly>> hair, tilts your head towards his penis. He starts swinging his hips fucking your mouth in such way.'
 		if txt_sex_bj = 4:$txt_sex_bj = '<<$boydesc>>, seizes you by your <<$pcs_haircol>> <<$curly>> hair and starts moving with your head in pace of his swinging. You choke a bit but continued in sucking.'
-		if txt_sex_bj = 5:$txt_sex_bj = 'You start to lick his dick with yout nimble tongue, then gather a little saliva, you take his prick in your <<$liptalk>> and begin to suck, rubbing it with your hand at the same time.'
-		if txt_sex_bj = 6:$txt_sex_bj = 'You take his dick in your mouth, your tongue caress its sides, then the bottom and then the tip of head. You purse your <<$liptalk>> and start moving back and forth faster. You let his dick slid out of your mouth and you examine a result of your job with excitement. The head becomes even harder, purple and shiny. You feel a faint ache in your lower abdomen. You bend upward the hard shaft and run your tongue from the balls to the cock head, then you tickle it from all sides digging your <<$liptalk>> in the head.'
-		if txt_sex_bj = 7:$txt_sex_bj = 'You gently wrap his prick with your wet <<$liptalk>> and let it slide in your mouth. You rub it with your nimble tongue, stroke its trunk and fondling his sack with your hands. You captur it stronger, slurping juices and your saliva enveloping its head. You are tickling it with your tongue and you hear <<$boydesc>>''s sweet moaning.'
+		if txt_sex_bj = 5:$txt_sex_bj = 'You start to lick his dick with yout nimble tongue, then gather a little saliva, you take his prick in your <<$pc_desc[''lips'']>> lips and begin to suck, rubbing it with your hand at the same time.'
+		if txt_sex_bj = 6:$txt_sex_bj = 'You take his dick in your mouth, your tongue caress its sides, then the bottom and then the tip of head. You purse your <<$pc_desc[''lips'']>> lips and start moving back and forth faster. You let his dick slid out of your mouth and you examine a result of your job with excitement. The head becomes even harder, purple and shiny. You feel a faint ache in your lower abdomen. You bend upward the hard shaft and run your tongue from the balls to the cock head, then you tickle it from all sides digging your <<$pc_desc[''lips'']>> lips in the head.'
+		if txt_sex_bj = 7:$txt_sex_bj = 'You gently wrap his prick with your wet <<$pc_desc[''lips'']>> lips and let it slide in your mouth. You rub it with your nimble tongue, stroke its trunk and fondling his sack with your hands. You captur it stronger, slurping juices and your saliva enveloping its head. You are tickling it with your tongue and you hear <<$boydesc>>''s sweet moaning.'
 		'<<$txt_sex_bj>>'
 		killvar '$text_sex_bj'
 	end &!--- text_sex_bj ---
@@ -1573,8 +1573,8 @@ if $ARGS[0] = 'hide':
 !Deepthroating
 	if $ARGS[1] = 'text_sex_bjt':
 		txt_sex_bjt = RAND(0,2)
-		if txt_sex_bjt = 0:$txt_sex_bjt = 'He shove his prick deep into your throat squeezing it with his hand. Your <<$liptalk3>> grip tightly his trunk. You aren''t giving a blowjob. <<$boydesc>> is simply fucking your throat and you both have a lot of fun.'
-		if txt_sex_bjt = 1:$txt_sex_bjt = 'You try to swallow his cock deeper with your <<$liptalk>>. You are rubbing it with you hand again, and caressing it with your mouth simultaneously. With each thrust you take it deeper and deeper in your mouth until it reaches your throat. Tears well in your eyes but you still try to put it in even deeper. <<$boydesc>> grabbs your <<$pcs_haircol>> <<$curly>> hair and took the initiative and starts pulling your head on his shaft.'
+		if txt_sex_bjt = 0:$txt_sex_bjt = 'He shove his prick deep into your throat squeezing it with his hand. Your <<$pc_desc[''lips'']>> lips grip tightly his trunk. You aren''t giving a blowjob. <<$boydesc>> is simply fucking your throat and you both have a lot of fun.'
+		if txt_sex_bjt = 1:$txt_sex_bjt = 'You try to swallow his cock deeper with your <<$pc_desc[''lips'']>> lips. You are rubbing it with you hand again, and caressing it with your mouth simultaneously. With each thrust you take it deeper and deeper in your mouth until it reaches your throat. Tears well in your eyes but you still try to put it in even deeper. <<$boydesc>> grabbs your <<$pcs_haircol>> <<$curly>> hair and took the initiative and starts pulling your head on his shaft.'
 		if txt_sex_bjt = 2:$txt_sex_bjt = 'The cock head bumps into your throat and it even moves farther, but you can''t take it more - it was simply too thick. Nevertheless, at each thrust, bit by bit, it moves deeper and deeper. A rope of your saliva oozes out of your mouth down to your chin and drips on the ground.'
 		'<<$txt_sex_bjt>>'
 		killvar '$text_sex_bjt'
@@ -1708,7 +1708,7 @@ if $ARGS[0] = 'hide':
 		if txt_sex_cumface = 0:$txt_sex_cumface = '<<$boydesc>> covers all your face with his hot sticky semen.'
 		if txt_sex_cumface = 1:$txt_sex_cumface = '<<$boydesc>> pulls out his cock and aims it at your face. You see its purple head from which spurts his cum. You feel as warm sticky blobs are landing on your face and after a while his hot cum runs down over your chin and drips on the ground.'
 		if txt_sex_cumface = 2:$txt_sex_cumface = '"Oh fuck!" <<$boydesc>> shouts out and pulls his cock out of your sweet captivity and takes it in his hand. A first long stream appears, you screw up your eyes and feel as a trickle of semen hits your chin and made a rope over your cheek. The second shot he aims deliberately straight at your cheek so you have barely a chance to close your eyes. This eruption is rich enough to cover your face with sticky cream.'
-		if txt_sex_cumface = 3:$txt_sex_cumface = '<<$boydesc>> shifts his cock up to front of your face. At that moment a sticky stream strikes straight into your <<$liptalk3>>. Trickles of semen is flowing down along your chin and drips on the ground. Ropes of sticky cum hangs down from your chin now. <<$boydesc>> spots it after a while when he finally complacently releases last drops of his semen.'
+		if txt_sex_cumface = 3:$txt_sex_cumface = '<<$boydesc>> shifts his cock up to front of your face. At that moment a sticky stream strikes straight into your <<$pc_desc[''lips'']>> lips. Trickles of semen is flowing down along your chin and drips on the ground. Ropes of sticky cum hangs down from your chin now. <<$boydesc>> spots it after a while when he finally complacently releases last drops of his semen.'
 		'<<$txt_sex_cumface>>'
 		killvar '$text_sex_cumface'
 	end &!--- text_sex_cumface ---

locations/gopskver.qsrc

@@ -455,7 +455,7 @@ if $ARGS[0] = 'BjBeerStart':
 	*clr & cla
 	'You could really use a cold beer right now! You try to get on the boys'' good side and ask in a playful tone: "Come on guys, you know that''s no way to talk to a lady! How about you offer me a nice cold beer instead?"'
 	'You get into a seductive pose and give them your most enchanting smile. The guys look and whisper some things at each other, but Vasily quickly grins and beckons you to come closer.'
-	'You shake your hips and teasingly lick your parched <<$liptalk3>>, and for a second you wonder if you''re laying it on too thick as you approach the three guys. You can feel your mouth water when you see the cold beer they''re reaching out to you though. Just when you reach out to take it from him, he suddenly pulls it away from you.'
+	'You shake your hips and teasingly lick your parched <<$pc_desc[''lips'']>> lips, and for a second you wonder if you''re laying it on too thick as you approach the three guys. You can feel your mouth water when you see the cold beer they''re reaching out to you though. Just when you reach out to take it from him, he suddenly pulls it away from you.'
 	act 'Act surprised':
 		cla
 		'<center><video autoplay loop src="images/locations/pavlovsk/park/sex/gop/bjbeer.mp4" ></video></center>'
@@ -603,7 +603,7 @@ if $ARGS[0] = 'BjBeerAct':
 	if pcs_throat < 16:
 		'You actively try to please the boys, and one cock inside your throat as deep as it will go while you massage the others with your hands. You''re not very well practised with your throat though, and soon you find yourself choking, drooping, and struggling to suppress your gag reflex.'
 	else
-		'Your tongue tightly hugs his penis as he pushed it all the way past your <<$liptalk>>, you successfully managed to take his cock all the way down your throat. Eventually, your lower lip is resting on his scrotum.'
+		'Your tongue tightly hugs his penis as he pushed it all the way past your <<$pc_desc[''lips'']>> lips, you successfully managed to take his cock all the way down your throat. Eventually, your lower lip is resting on his scrotum.'
 	end
 
 	act 'Lick his balls':
@@ -673,7 +673,7 @@ if $ARGS[0] = 'BjBeerDouble':
 	if pcs_makeup > 1: pcs_makeup = 0
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/park/sex/gop/bjbeer<<Doublerand>>.jpg" ></center>'
-	'You spread your <<$liptalk>> and wrap them around Vitek''s cock. At that moment, Dan grunts: "Open wider, slut" and begins to unceremoniously cram his dick into your mouth as well, stretching it to the limit. You try to protest, but the guys just laugh at the comical sounds you make with two cocks in your mouth. Once Dan gets settled in, the guys slowly begin to move, fucking your mouth at the same time.'
+	'You spread your <<$pc_desc[''lips'']>> lips and wrap them around Vitek''s cock. At that moment, Dan grunts: "Open wider, slut" and begins to unceremoniously cram his dick into your mouth as well, stretching it to the limit. You try to protest, but the guys just laugh at the comical sounds you make with two cocks in your mouth. Once Dan gets settled in, the guys slowly begin to move, fucking your mouth at the same time.'
 	if pcs_throat > 15:
 		'Even though it''s difficult, you manage to take both of their erections deep inside your mouth. You sometimes tease them with your tongue.'
 	else
@@ -747,7 +747,7 @@ if $ARGS[0] = 'BjBeerPhone':
 	gs 'stat'
 
 	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/park/sex/gop/bjbeerphone.jpg"></center>'
-	'You spread your <<$liptalk>> and wrap them around Vitek''s cock. At that moment, Dan grunts: "Open wider, slut" and begins to unceremoniously cram his dick into your mouth as well, stretching it to the limit. You try to protest, but the guys just laugh at the comical sounds you make with two cocks in your mouth.'
+	'You spread your <<$pc_desc[''lips'']>> lips and wrap them around Vitek''s cock. At that moment, Dan grunts: "Open wider, slut" and begins to unceremoniously cram his dick into your mouth as well, stretching it to the limit. You try to protest, but the guys just laugh at the comical sounds you make with two cocks in your mouth.'
 	'Suddenly Vasily pulls out his phone and begins to record a video, while he comments on what is happening: "Hello everyone, and welcome to Pavlovsk News! Our special guest today is the one and only <<$gnikname>>, <<$pcs_nickname>>! Say hi to our viewers, <<$pcs_nickname>>!"'
 	'"Mvhr... mflm ..." you try to say something, but the cocks in your mouth prevent you from talking. The boys firmly hold your head in place, and continue to fuck your mouth with their two cocks.'
 	'Vasily continues: "<<$pcs_nickname>>, I''ve been told that you''re doing this, for a beer! Do you really like beer, or do you just like sucking cocks so much?"'

locations/gschool_boys_bathroom.qsrc

@@ -267,7 +267,7 @@ if $ARGS[0] = 'boy2_sub':
 	gs 'boyStat', 'A154'
 	'<center><b><font color="maroon">Boy''s bathroom</font></b></center>'
 	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/radomir/sex/school/boy1bj.jpg"></center>'
-	'He reaches over, grabs you by the hair and pulls your head down to his dick. You open your mouth and take the tip of his <<dick>>cm <<$dick_girth>> dick into your mouth. You wrap your <<$liptalk>> tightly around his shaft, your tongue moving wildly around it, and start bobbing your head up and down, blowing him for all you''re worth.'
+	'He reaches over, grabs you by the hair and pulls your head down to his dick. You open your mouth and take the tip of his <<dick>>cm <<$dick_girth>> dick into your mouth. You wrap your <<$pc_desc[''lips'']>> lips tightly around his shaft, your tongue moving wildly around it, and start bobbing your head up and down, blowing him for all you''re worth.'
 	'One of your hands goes to his balls to fondle and play with them as you suck him off, supporting yourself with your other hand. You feel like you''re getting into a good rhythm but just then, he puts his hand on the back of your head to ''help'' you take his dick deeper into your mouth by shoving your head down and forcing you to deepthroat him. The pace he sets and his thrusts upwards into your throat cause you to gag a couple of times, but he only lets you come up for air very briefly before pulling you back down.'
 	*nl
 	'Eventually, he tells you to spread your legs for him. You comply and feel his fingers push into your pussy again. Your throat may be protesting but the rest of you at least didn''t seem to dislike what you were doing with him.'
@@ -1352,7 +1352,7 @@ if $ARGS[0] = 'caughtb1':
 				'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/teacher/makar/sex/school/caughtbj.jpg"></center>'
 				'He looks down at you and seems to freeze. He doesn''t say anything, doesn''t move away either - all he does is look at you, transfixed with your lips. You decide to take that as a yes, stretch out your hand and unzip his pants. You reach inside and feel that his dick is almost hard already.'
 				*nl
-				'He pulls his pants down just enough to release his manhood and make it easier for you. You give him an appreciative look and stroke his dick a few times until it is fully hard, then lean forward and start licking it; you lick up and down the shaft and run your tongue around the head, your eyes locked with his all the while before you smile at him and take his <<dick>>cm <<$dick_girth>> cock into your mouth. You wrap your <<$liptalk>> tightly around his dick and start bobbing your head, stroking his cock with your lips as your tongue continues making its rounds. He rests one hand on the top of your head, but he lets you completely control the action.'
+				'He pulls his pants down just enough to release his manhood and make it easier for you. You give him an appreciative look and stroke his dick a few times until it is fully hard, then lean forward and start licking it; you lick up and down the shaft and run your tongue around the head, your eyes locked with his all the while before you smile at him and take his <<dick>>cm <<$dick_girth>> cock into your mouth. You wrap your <<$pc_desc[''lips'']>> lips tightly around his dick and start bobbing your head, stroking his cock with your lips as your tongue continues making its rounds. He rests one hand on the top of your head, but he lets you completely control the action.'
 				*nl
 				'You caress and fondle his balls with one of your hands while the other strokes him in unison with your head''s movement. You increase your speed over time and take him as deep into your mouth as you can without gagging. He starts moaning and you feel his hand dig into your hair, telling you that he is getting close to cumming.'
 				gs 'arousal', 'bj', 10, 'dom'
@@ -1403,7 +1403,7 @@ if $ARGS[0] = 'caughtb1':
 					*clr & cla
 					gs 'boyStat', 'A128'
 					'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/teacher/makar/sex/school/caughtbj.jpg"></center>'
-					'You stroke his dick a few times until it is fully hard, then lean forward and start licking it; you lick up and down the shaft and run your tongue around the head, your eyes locked with his all the while before you smile at him and take his <<dick>>cm <<$dick_girth>> cock into your mouth. You wrap your <<$liptalk>> tightly around his dick and start bobbing your head, stroking his cock with your lips, your tongue still making its rounds. He rests one hand on the top of your head, but he lets you completely control the action.'
+					'You stroke his dick a few times until it is fully hard, then lean forward and start licking it; you lick up and down the shaft and run your tongue around the head, your eyes locked with his all the while before you smile at him and take his <<dick>>cm <<$dick_girth>> cock into your mouth. You wrap your <<$pc_desc[''lips'']>> lips tightly around his dick and start bobbing your head, stroking his cock with your lips, your tongue still making its rounds. He rests one hand on the top of your head, but he lets you completely control the action.'
 					*nl
 					'You caress and fondle his balls with one of your hands while the other strokes him in unison with your head''s movement. You increase your speed over time and take him as deep into your mouth as you can without gagging.'
 					gs 'arousal', 'bj', 5, 'dom'
@@ -1596,7 +1596,7 @@ if $ARGS[0] = 'caughtb2':
 				Ivanov_toilet = 1
 				gs 'boyStat', 'A129'
 				'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/teacher/serafim/sex/school/caughtbj.jpg"></center>'
-				'He looks down at you and, one second later, unzips his pants and pulls his dick out. It''s not even hard yet, but he seems to have made his choice and so you stroke his dick a few times until it is rock hard, then lean forward and start licking it; you lick up and down the shaft and run your tongue around the head while looking up at him to gauge his nonexistent reaction, before you take his <<dick>>cm <<$dick_girth>> cock into your mouth. You wrap your <<$liptalk>> tightly around his dick when you feel him grab the back of your head and shove your head down, forcing his dick deep into your mouth and down your throat. You start gagging almost at once, but he doesn''t relent - he pulls out briefly, only to shove his cock right back in.'
+				'He looks down at you and, one second later, unzips his pants and pulls his dick out. It''s not even hard yet, but he seems to have made his choice and so you stroke his dick a few times until it is rock hard, then lean forward and start licking it; you lick up and down the shaft and run your tongue around the head while looking up at him to gauge his nonexistent reaction, before you take his <<dick>>cm <<$dick_girth>> cock into your mouth. You wrap your <<$pc_desc[''lips'']>> lips tightly around his dick when you feel him grab the back of your head and shove your head down, forcing his dick deep into your mouth and down your throat. You start gagging almost at once, but he doesn''t relent - he pulls out briefly, only to shove his cock right back in.'
 				gs 'arousal', 'bj', 10, 'deepthroat'
 				gs 'stat'
 				act 'Continue':
@@ -1653,7 +1653,7 @@ if $ARGS[0] = 'caughtb2':
 					gs 'boyStat', 'A129'
 					$orgasm_or = 'no'
 					'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/teacher/serafim/sex/school/caughtbj.jpg"></center>'
-					'You do as you''re told and stroke his dick a few times until it is fully hard, then lean forward and start licking it; you lick up and down the shaft and run your tongue around the head while looking up at him to gauge his nonexistent reaction, before you take his <<dick>>cm <<$dick_girth>> cock into your mouth. You wrap your <<$liptalk>> tightly around his dick and start bobbing your head, stroking his cock with your lips, your tongue still making its rounds. He rests one hand on the top of your head, but he lets you control the action.'
+					'You do as you''re told and stroke his dick a few times until it is fully hard, then lean forward and start licking it; you lick up and down the shaft and run your tongue around the head while looking up at him to gauge his nonexistent reaction, before you take his <<dick>>cm <<$dick_girth>> cock into your mouth. You wrap your <<$pc_desc[''lips'']>> lips tightly around his dick and start bobbing your head, stroking his cock with your lips, your tongue still making its rounds. He rests one hand on the top of your head, but he lets you control the action.'
 					*nl
 					'You caress and fondle his balls with one of your hands while the other strokes him in unison with your head''s movement. You increase your speed over time and take him as deep into your mouth as you can without gagging. He enjoys your blowjob in silence and after several minutes of this, he grabs you by the hair and roughly pulls you up and bends you over.'
 					gs 'arousal', 'bj', 5

locations/gschool_coolkid_chats.qsrc

@@ -7,7 +7,7 @@ if $ARGS[0] = 'dimka':
 	gs 'npc_relationship', 'modify', 'A1', 'like'
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big1.jpg"></center>'
-	act 'Time for the next class': gt 'gschool_lessons', 'short_break'
+
 	if dimka_debt > 0:
 		cla
 		'You walk up to Dimka and the first thing he does is pull you aside. "Do you have my money?"'
@@ -36,77 +36,87 @@ if $ARGS[0] = 'dimka':
 			end
 			act 'Go with Dimka': gt 'gschool_coolkid_chats', 'dimka_sex'
 		end
-	elseif DimaRudeQW > 0 and DimaRudeBlock = 0:
-		'Dimka looks into your eyes with a disinterested glare. "Whatever. After school, we''re going to my place. I''ll wait for you by the entrance."'
-	elseif (dimaRevenge = 6 and (dimaRevChoice = 3 or dimaRevChoice = 5 or dimaRevChoice = 6)) or (dimaRevenge = 7 and dimaRevChoice = 2) or (dimaRevenge = 8 and (dimaRevChoice = 1 or dimaRevChoice = 4)):
-		'As you walk up he glares at you. "What the fuck do you want slut?"'
-		'You sigh. "Look, I know a lot has happened between us, but I thought we could leave it in the past and just be friends or something."'
-		'He stares at you blankly before shrugging. "Whatever." The two of you make small talk, but you get the feeling he is planning something.'
-	elseif fame['pav_slut'] >= 200:
-		gs 'npc_relationship', 'modify', 'A1', 'dislike'
-		if npc_rel['A1'] >= 70:
-			'Dimka sees you approaching and gives you a blank stare, his gaze cold and unblinking. When you get close, he steps closer and hisses to you so the others can''t overhear him. "Don''t walk up to me at school like this! I have a reputation to protect." He then pushes you away and speaks loudly enough for everyone to hear him. "Get lost slut! No one wants you here." He continues to stare you down until you finally leave.'
-		else
-			'Dimka sees you approaching and gives you a blank stare, his gaze cold and unblinking. "Do you really think I would talk to a whore like you?" he dryly states. He continues to stare you down until you finally leave.'
-		end
-	elseif grupTipe = 1:
-		if npc_rel['A1'] >= 50:
-			'"Just the person I was hoping to see!" he smiles. "Take a look at this." He pulls out his phone and shows you some photos from his latest trip to Moscow. "You would''ve loved it out there. It really made me realize we''re wasting away out here in a place like this." You then chat about the other places he has visited.'
-			if dimarudorient = 1:act 'Ask for some pale lady': gt 'gschool_coolkid_chats', 'dim_drugs'
-		elseif npc_rel['A1'] <= 20:
-			'"You seem to have the wrong idea about me <<$pcs_nickname>>." Dimka holds out his hand to keep you from getting any closer. "Just because we run in the same social circle doesn''t mean we''re friends."'
-			'You can''t help but scoff and roll your eyes. "Who said I want to be friends? You just looked lonely standing over here by yourself. I was just trying to be nice." You trade a few more barbs back and forth.'
-		else
-			'Dimka is willing to entertain you for a bit, occasionally taking part in the conversation but letting you do most of the talking. "Hey, Bella!" he calls as he spots her walking by. "Sorry, I hope you don''t mind." He follows after her before you can even reply. At least he let you talk to him.'
-		end
-	elseif grupTipe = 2:
-		if npc_rel['A1'] >= 50:
-			'"Have I shown you my photos from my last trip?" he smiles. "Take a look at this." He pulls out his phone and shows you some photos from his latest trip to Moscow. "You would''ve loved it out there. It really made me realize we''re wasting away out here in a place like this." You then chat about the other places he has visited.'
-			if dimarudorient = 1:act 'Ask for some pale lady': gt 'gschool_coolkid_chats', 'dim_drugs'
-		elseif npc_rel['A1'] <= 20:
-			'Dimka looks down at you with a condescending smile. "What do you want?" he asks, maintaining his "friendly" appearance in front of everyone.'
-			'"I just wanted to say hi is all," you reply.'
-			'He looks around like this is a common burden. "Of course you did, everyone does." You try talking to him, but he acts like he is barely tolerating you, like a Tsar might a peasant in his court.'
-		else
-			'Dimka is willing to entertain you for a bit, occasionally taking part in the conversation but letting you do most of the talking. "Hey, Bella!" he calls as he spots her walking by. "Sorry, I hope you don''t mind." He follows after her before you can even reply. At least he let you talk to him.'
-		end
-	elseif grupTipe = 3:
-		if npc_rel['A1'] >= 60:
-			'Dimka greets you with a friendly smile, making room for you in the group made up of Bella, Igor and a few other students. Some of them give you an odd look, obviously not sure why you''re here, but Dimka makes you feel welcome. "Relax, she doesn''t have the plague," he playfully chides everyone and you are soon engaged in a conversation with Dimka.'
-			if dimarudorient = 1:act 'Ask for some pale lady': gt 'gschool_coolkid_chats', 'dim_drugs'
-		elseif npc_rel['A1'] <= 20:
-			'Dimka looks down at you with a condescending smile. "You get lost loser? Shouldn''t you be off pretending to be an elf or something?" he asks with a charming smile on his face.'
-			'"I just wanted to say hi is all," you reply.'
-			'He looks around like this is a common burden. "Of course you did, everyone does. Now that you have, why don''t you go back to your own kind?" You try talking to him, but he acts like he is barely tolerating you, like a Tsar might a peasant in his court.'
-		else
-			'Dimka looks down at you with a condescending smile. "What do you want?" he asks, maintaining his "friendly" appearance in front of everyone.'
-			'"I just wanted to say hi is all," you reply.'
-			'He looks around like this is a common burden. "Of course you did, everyone does." You try talking to him, but he acts like he is barely tolerating you, like a Tsar might a peasant in his court.'
-		end
-	elseif grupTipe = 4:
-		if npc_rel['A1'] >= 60:
-			'Dimka greets you with a friendly smile, making room for you in the group made up of Bella, Igor and a few other students. Some of them give you an odd look, obviously not sure why you''re here, but Dimka makes you feel welcome. "Relax, she doesn''t have the plague," he playfully chides everyone and you are soon engaged in a conversation with Dimka.'
-			if dimarudorient = 1:act 'Ask for some pale lady': gt 'gschool_coolkid_chats', 'dim_drugs'
-		elseif npc_rel['A1'] <= 20:
-			'Dimka looks down at you with a condescending smile. "What do you want? We don''t have any drugs and none of us want whatever it is you''re selling," he remarks, maintaining his "friendly" appearance in front of everyone.'
-			'"I just wanted to say hi is all," you reply.'
-			'He looks around like this is a common burden. "Of course you did, everyone does. Now go away before you ruin everyone''s day with your dreadful attempt at fashion." You try talking to him, but he acts like he is barely tolerating you, like a Tsar might a peasant in his court.'
-		else
-			'Dimka looks down at you with a condescending smile. "What do you want? Maybe looking for some fashion advice?" he asks, maintaining his "friendly" appearance in front of everyone.'
-			'"I just wanted to say hi is all," you reply.'
-			'He looks around like this is a common burden. "Of course you did, everyone does. Now that I''ve made your day you can go do... whatever it is you people do." You try talking to him, but he acts like he is barely tolerating you, like a Tsar might a peasant in his court.'
-		end
 	else
-		gs 'npc_relationship', 'modify', 'A1', 'dislike'
-		if npc_rel['A1'] >= 70:
-			'As you walk up, he gives a slightly disgusted look like he just smelt something bad. "Come to see how your betters look?"'
-			'You sigh. "I just wanted to say hi."'
-			'He laughs and looks at some of the others, who laugh in turn. "Of course you would, how could we expect someone like you to know the rules of polite society? I mean really. Very well. You''ve had your moment, now please go." He and the others proceed to ignore you.'
+		if DimaRudeQW > 0 and DimaRudeBlock = 0:
+			'Dimka looks into your eyes with a disinterested glare. "Whatever. After school, we''re going to my place. I''ll wait for you by the entrance."'
 		else
-			'He glares at you as you approach. "What the fuck do you want, loser?"'
-			'You sigh. "I just wanted to say hi."'
-			'He shakes his head. "Let me make this clear. No one wants you around, so why don''t you do something useful for a change and go home and hang yourself or something and make the world a better place?" He starts laughing, along with several of the others.'
+			if (dimaRevenge = 6 and (dimaRevChoice = 3 or dimaRevChoice = 5 or dimaRevChoice = 6)) or (dimaRevenge = 7 and dimaRevChoice = 2) or (dimaRevenge = 8 and (dimaRevChoice = 1 or dimaRevChoice = 4)):
+				'As you walk up he glares at you. "What the fuck do you want slut?"'
+				'You sigh. "Look, I know a lot has happened between us, but I thought we could leave it in the past and just be friends or something."'
+				'He stares at you blankly before shrugging. "Whatever." The two of you make small talk, but you get the feeling he is planning something.'
+			else
+				if fame['pav_slut'] >= 200:
+					gs 'npc_relationship', 'modify', 'A1', 'dislike'
+					if npc_rel['A1'] >= 70:
+						'Dimka sees you approaching and gives you a blank stare, his gaze cold and unblinking. When you get close, he steps closer and hisses to you so the others can''t overhear him. "Don''t walk up to me at school like this! I have a reputation to protect." He then pushes you away and speaks loudly enough for everyone to hear him. "Get lost slut! No one wants you here." He continues to stare you down until you finally leave.'
+					else
+						'Dimka sees you approaching and gives you a blank stare, his gaze cold and unblinking. "Do you really think I would talk to a whore like you?" he dryly states. He continues to stare you down until you finally leave.'
+					end
+				else
+					if grupTipe = 1:
+						if npc_rel['A1'] >= 50:
+							'"Just the person I was hoping to see!" he smiles. "Take a look at this." He pulls out his phone and shows you some photos from his latest trip to Moscow. "You would''ve loved it out there. It really made me realize we''re wasting away out here in a place like this." You then chat about the other places he has visited.'
+							if dimarudorient = 1:act 'Ask for some pale lady': gt 'gschool_coolkid_chats', 'dim_drugs'
+						elseif npc_rel['A1'] <= 20:
+							'"You seem to have the wrong idea about me <<$pcs_nickname>>." Dimka holds out his hand to keep you from getting any closer. "Just because we run in the same social circle doesn''t mean we''re friends."'
+							'You can''t help but scoff and roll your eyes. "Who said I want to be friends? You just looked lonely standing over here by yourself. I was just trying to be nice." You trade a few more barbs back and forth.'
+						else
+							'Dimka is willing to entertain you for a bit, occasionally taking part in the conversation but letting you do most of the talking. "Hey, Bella!" he calls as he spots her walking by. "Sorry, I hope you don''t mind." He follows after her before you can even reply. At least he let you talk to him.'
+						end
+					elseif grupTipe = 2:
+						if npc_rel['A1'] >= 50:
+							'"Have I shown you my photos from my last trip?" he smiles. "Take a look at this." He pulls out his phone and shows you some photos from his latest trip to Moscow. "You would''ve loved it out there. It really made me realize we''re wasting away out here in a place like this." You then chat about the other places he has visited.'
+							if dimarudorient = 1:act 'Ask for some pale lady': gt 'gschool_coolkid_chats', 'dim_drugs'
+						elseif npc_rel['A1'] <= 20:
+							'Dimka looks down at you with a condescending smile. "What do you want?" he asks, maintaining his "friendly" appearance in front of everyone.'
+							'"I just wanted to say hi is all," you reply.'
+							'He looks around like this is a common burden. "Of course you did, everyone does." You try talking to him, but he acts like he is barely tolerating you, like a Tsar might a peasant in his court.'
+						else
+							'Dimka is willing to entertain you for a bit, occasionally taking part in the conversation but letting you do most of the talking. "Hey, Bella!" he calls as he spots her walking by. "Sorry, I hope you don''t mind." He follows after her before you can even reply. At least he let you talk to him.'
+						end
+					elseif grupTipe = 3:
+						if npc_rel['A1'] >= 60:
+							'Dimka greets you with a friendly smile, making room for you in the group made up of Bella, Igor and a few other students. Some of them give you an odd look, obviously not sure why you''re here, but Dimka makes you feel welcome. "Relax, she doesn''t have the plague," he playfully chides everyone and you are soon engaged in a conversation with Dimka.'
+							if dimarudorient = 1:act 'Ask for some pale lady': gt 'gschool_coolkid_chats', 'dim_drugs'
+						elseif npc_rel['A1'] <= 20:
+							'Dimka looks down at you with a condescending smile. "You get lost loser? Shouldn''t you be off pretending to be an elf or something?" he asks with a charming smile on his face.'
+							'"I just wanted to say hi is all," you reply.'
+							'He looks around like this is a common burden. "Of course you did, everyone does. Now that you have, why don''t you go back to your own kind?" You try talking to him, but he acts like he is barely tolerating you, like a Tsar might a peasant in his court.'
+						else
+							'Dimka looks down at you with a condescending smile. "What do you want?" he asks, maintaining his "friendly" appearance in front of everyone.'
+							'"I just wanted to say hi is all," you reply.'
+							'He looks around like this is a common burden. "Of course you did, everyone does." You try talking to him, but he acts like he is barely tolerating you, like a Tsar might a peasant in his court.'
+						end
+					elseif grupTipe = 4:
+						if npc_rel['A1'] >= 60:
+							'Dimka greets you with a friendly smile, making room for you in the group made up of Bella, Igor and a few other students. Some of them give you an odd look, obviously not sure why you''re here, but Dimka makes you feel welcome. "Relax, she doesn''t have the plague," he playfully chides everyone and you are soon engaged in a conversation with Dimka.'
+							if dimarudorient = 1:act 'Ask for some pale lady': gt 'gschool_coolkid_chats', 'dim_drugs'
+						elseif npc_rel['A1'] <= 20:
+							'Dimka looks down at you with a condescending smile. "What do you want? We don''t have any drugs and none of us want whatever it is you''re selling," he remarks, maintaining his "friendly" appearance in front of everyone.'
+							'"I just wanted to say hi is all," you reply.'
+							'He looks around like this is a common burden. "Of course you did, everyone does. Now go away before you ruin everyone''s day with your dreadful attempt at fashion." You try talking to him, but he acts like he is barely tolerating you, like a Tsar might a peasant in his court.'
+						else
+							'Dimka looks down at you with a condescending smile. "What do you want? Maybe looking for some fashion advice?" he asks, maintaining his "friendly" appearance in front of everyone.'
+							'"I just wanted to say hi is all," you reply.'
+							'He looks around like this is a common burden. "Of course you did, everyone does. Now that I''ve made your day you can go do... whatever it is you people do." You try talking to him, but he acts like he is barely tolerating you, like a Tsar might a peasant in his court.'
+						end
+					else
+						gs 'npc_relationship', 'modify', 'A1', 'dislike'
+						if npc_rel['A1'] >= 70:
+							'As you walk up, he gives a slightly disgusted look like he just smelt something bad. "Come to see how your betters look?"'
+							'You sigh. "I just wanted to say hi."'
+							'He laughs and looks at some of the others, who laugh in turn. "Of course you would, how could we expect someone like you to know the rules of polite society? I mean really. Very well. You''ve had your moment, now please go." He and the others proceed to ignore you.'
+						else
+							'He glares at you as you approach. "What the fuck do you want, loser?"'
+							'You sigh. "I just wanted to say hi."'
+							'He shakes his head. "Let me make this clear. No one wants you around, so why don''t you do something useful for a change and go home and hang yourself or something and make the world a better place?" He starts laughing, along with several of the others.'
+						end
+					end
+				end
+			end
 		end
+
+		act 'Time for the next class': gt 'gschool_lessons', 'short_break'
 	end
 end
 
@@ -402,6 +412,7 @@ if $ARGS[0] = 'igor':
 			'He seems a bit confused. "Oh..." he is all he says as he looks past you and waves at someone. "Sorry, I''ve got to go." He rushes way from you, unsure if he was actually waving at anyone and think he was just trying to get away from you.'
 		end
 	end
+	act 'Time for the next class': gt 'gschool_lessons', 'short_break'
 end
 
 if $ARGS[0] = 'igor_peg':
@@ -468,150 +479,170 @@ if $ARGS[0] = 'katja':
 	menu_off = 1
 	gs 'npc_relationship', 'modify', 'A14', 'like'
 	gs 'stat'
-	'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big14.jpg"></center>'
-	act 'Time for the next class': gt 'gschool_lessons', 'short_break'
-	if npc_sex['A14'] > 0 and $pantyworntype = 'none' and PCloSkirt > 1 and katjaQW['no_panties_day'] ! daystart:
-		act 'Show her you are not wearing panties.': gt 'Katja_tanga', 'school'
-	end
-	if katjaQW['QWstage'] > 2:
-		if katjaQW['Horny'] < 20:
-			'Katja looks calm and stoic.'
-		elseif katjaQW['Horny'] < 40:
-			'You see a naughty twinkle in Katja''s eyes.'
-		elseif katjaQW['Horny'] < 60:
-			'Katja has a faint blush on her cheeks as she looks at you mischievously.'
-		elseif katjaQW['Horny'] < 80:
-			'Katja is blushing fairly obviously and looks at you longingly.'
-		else
-			'Katja''s face is flushed bright red and her chest is heaving from her heavy breathing. She''s idly rubbing her thighs against one another while you talk.'
-		end
-	end
-	if katjaQW['drunk_help'] = 1:
-		act 'Thank her for taking you home':
-			*clr & cla
-			gs 'npc_relationship', 'modify', 'A14', 'like'
-			katjaQW['drunk_help'] = 0
-			gs 'stat'
-			'<center><b><font color="maroon"><<$npc_firstname[''A14'']>> <<$npc_lastname[''A14'']>></font></b></center>'
-			'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big14.jpg"></center>'
-			'You approach Katja and thank her for taking you home from the disco when you were drunk and she gives you a knowing smile. "Don''t mention it <<$pcs_nickname>>! You really shouldn''t get that drunk again though. It could end badly. Some of the guys there are real pigs..." she says. "Do you want to hang out after school? We could do our homework together?"'
-			'"Sure, why not?" you reply.'
-			act 'Time for the next class': gt 'gschool_lessons', 'short_break'
+
+	if rand(1,2) = 1 and katjaQW['school_sex'] = 1 and katjaQW['horny'] >= 40:
+		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/tanga_kiss.jpg"></center>'
+		'Katja slowly leans in towards you, almost closing her eyes and slowly opening her mouth. Unable to resist, you lean in and meet her with a kiss.'
+		gs 'katjaEvDin', 'kiss_events'
+	else
+		'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big14.jpg"></center>'
+
+		if npc_sex['A14'] > 0 and $pantyworntype = 'none' and PCloSkirt > 1 and katjaQW['no_panties_day'] ! daystart:
+			act 'Show her you are not wearing panties.': gt 'Katja_tanga', 'school'
 		end
-	end
-	if katjaQW['QWstage'] > 2 and katjaQW['knows_masterbation'] + katjaQW['knows_BJ'] + katjaQW['knows_sex'] + katjaQW['knows_anal']+ katjaQW['knows_cuni'] >= 2:
-		act 'Kiss Katja':
-			*clr & cla
-			'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/tanga_kiss.jpg"></center>'
-			'You lean in to kiss Katja.'
-			if katjaQW['horny'] < 30:
-				cla & *nl
-				'She pulls away from you as you try and kiss her, looking around to see if anyone seen you. "Not here and not now."'
-				act 'Time for the next class': gt 'gschool_lessons', 'short_break'
+
+		if katjaQW['QWstage'] > 2:
+			if katjaQW['Horny'] < 20:
+				'Katja looks calm and stoic.'
+			elseif katjaQW['Horny'] < 40:
+				'You see a naughty twinkle in Katja''s eyes.'
+			elseif katjaQW['Horny'] < 60:
+				'Katja has a faint blush on her cheeks as she looks at you mischievously.'
+			elseif katjaQW['Horny'] < 80:
+				'Katja is blushing fairly obviously and looks at you longingly.'
 			else
+				'Katja''s face is flushed bright red and her chest is heaving from her heavy breathing. She''s idly rubbing her thighs against one another while you talk.'
+			end
+		end
+
+		if katjaQW['drunk_help'] = 1:
+
+			act 'Thank her for taking you home':
 				*clr & cla
+				gs 'npc_relationship', 'modify', 'A14', 'like'
+				katjaQW['drunk_help'] = 0
+				gs 'stat'
 				'<center><b><font color="maroon"><<$npc_firstname[''A14'']>> <<$npc_lastname[''A14'']>></font></b></center>'
 				'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big14.jpg"></center>'
-				'You slowly lean in towards Katja to kiss her. Unable to resist, Katja closes her eyes, slowly opens her mouth and leans in to meet your kiss.'
-				gs 'katjaEv', 'kiss_events'
-			end
-		end
-	end
-	if rand(1,2) = 1 and katjaQW['school_sex'] = 1 and katjaQW['horny'] >= 40:
-		*clr & cla
-		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/tanga_kiss.jpg"></center>'
-		'Katja slowly leans in towards you, almost closing her eyes and slowly opening her mouth. Unable to resist, you lean in and meet her with a kiss.'
-		gs 'katjaEv', 'kiss_events'
-	elseif katjaQW['QWstage'] > 1 and pcs_makeup <= 1:
-		'Katja looks at you with a smile. "<<$pcs_nickname>>, I bet you would look great with a little make-up on you! What do you say?"'
-		act 'Let her put makeup on you':
-			*clr & cla
-			pcs_hairbsh = 1
-			gs 'stat'
-			'<center><b><font color="maroon"><<$npc_firstname[''A14'']>> <<$npc_lastname[''A14'']>></font></b></center>'
-			'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big14.jpg"></center>'
-			'Katja happily grins as she quickly straightens your hair. "What do you want? A light touch-up, some normal make-up or shall I just shovel it on?"'
-			act 'Light touch-up':
-				cla
-				pcs_makeup = 2
-				'Katja subtly applies some neutral tones, with a light application of makeup to bring out your natural beauty.'
-				if katjaQW['QWstage'] > 2:katjaQW['horny'] += 5*(1 + npc_sex['A14']) & 'Katja suddenly becomes aware that she is staring into your eyes and blushes.'
-				act 'Time for the next class': gt 'gschool_lessons', 'short_break'
-				act 'Keep talking to her': gt 'gschool_coolkid_chats', 'katja'
-			end
-			act 'Normal make-up':
-				cla
-				pcs_makeup = 3
-				'Katja applies some mildly vibrate tones and colors of makeup to cover your minor imperfections and enhance your best features.'
-				if katjaQW['QWstage'] > 2:katjaQW['horny'] += 5*(1 + npc_sex['A14']) & 'Katja suddenly becomes aware that she is staring into your eyes and blushes.'
-				act 'Time for the next class': gt 'gschool_lessons', 'short_break'
-				act 'Keep talking to her': gt 'gschool_coolkid_chats', 'katja'
-			end
-			act 'Heavy make-up':
-				cla
-				pcs_makeup = 4
-				'Katja applies some deeper, richer shades of makeup that are thick enough to cover most imperfections while drawing attention to your eyes and lips.'
-				if katjaQW['QWstage'] > 2:katjaQW['horny'] += 5*(1 + npc_sex['A14']) & 'Katja suddenly becomes aware that she is staring into your eyes and blushes.'
+				'You approach Katja and thank her for taking you home from the disco when you were drunk and she gives you a knowing smile. "Don''t mention it <<$pcs_nickname>>! You really shouldn''t get that drunk again though. It could end badly. Some of the guys there are real pigs..." she says. "Do you want to hang out after school? We could do our homework together?"'
+				'"Sure, why not?" you reply.'
 				act 'Time for the next class': gt 'gschool_lessons', 'short_break'
-				act 'Keep talking to her': gt 'gschool_coolkid_chats', 'katja'
 			end
 		end
-	elseif fame['pav_slut'] >= 200:
-		if npc_rel['A14'] >= 50:
-			'"Hey Katja, I was wondering if you had any recommendations for lipstick that won''t smear? Things can get kind of messy when I''m... you know." You press your tongue against the inside of your cheek to imitate sucking cock.'
-			'She looks at you in confusion for a few seconds before she gasps softly. "That... that''s gross!" she huffs. "How can you even ask me something like that?!"'
-		elseif npc_rel['A14'] <= 20:
-			'Katja looks around nervously when she sees you approaching. She catches sight of her sister and dashes over to her, clearly wanting to avoid speaking to you.'
-		else
-			'Katja doesn''t look too happy to see you and spends most of your awkwardly one sided conversation fumbling as she looks for a way out. As soon as the bell rings, she immediately dashes off.'
-		end
-	elseif grupTipe = 1:
-		if npc_rel['A14'] >= 50:
-			'You spend some time hanging around Kat''s locker, laughing and joking as she tells you some personal stories about Vicky. "She had been drinking all night and had to go, but all the stalls were full, so she drags me out behind the community center to go pee behind a bush." She breaks out into a fit of giggles.'
-			'"She was so drunk, as she was squatting, she stumbled and fell into her own pee!"'
-		elseif npc_rel['A14'] <= 20:
-			'You smile at her as you approach. "Hey Katja, trying a new lipstick out? That color looks pretty on you." '
-			'She smiles sheepishly at your compliment. "Yeah... Just wanted to try something a little different..." she answers quietly. The conversation doesn''t really go anywhere as she keeps her answers short or doesn''t say anything at all. At least she''s willing to actually talk to you.'
-		else
-			'With Katja being a quiet girl, she doesn''t do much talking, but she seems to enjoy some lighthearted banter with you, so long as you''re doing most of the talking. You get the feeling that if you were closer, she''d open up more, but for now you''ll have to settle with this.'
-		end
-	elseif grupTipe = 2:
-		if npc_rel['A14'] >= 50:
-			'You approach Katja and have a lively conversation where you exchange funny stories about Vanya. "And that''s how my sister fell in love with the biggest clown in school!" she laughs with a snort.'
-                        '"And I wouldn''t change him for the world!" Vicky adds with a smile.'
-		elseif npc_rel['A14'] <= 20:
-			'Katja looks around nervously when she sees you approaching. "Why do you want to talk to me? I''m not sporty like you or my sister or Albina. Could you go and....speak with someone else please?"'
-		else
-			'With Katja being a quiet girl, she doesn''t do much talking, but she seems to enjoy some lighthearted banter with you, so long as you''re doing most of the talking. You get the feeling that if you were closer, she''d open up more, but for now you''ll have to settle with this.'
-		end
-	elseif grupTipe = 3:
-		if npc_rel['A14'] >= 50:
-			'Katja smiles as you approach and you have a lively conversation about your favorite subjects and her plans for going to university after school. "I want to become a teacher. Helping others achieve their potential just sounds like the perfect job!" she gleefully states.'
-		elseif npc_rel['A14'] <= 20:
-			'Katja doesn''t look too happy to see you and your conversation doesn''t really go anywhere as she keeps her answers short or doesn''t say anything at all. At least she''s willing to actually talk to you.'
-		else
-			'Altough Katja is happy to see you, she doesn''t do much talking. You get the feeling that she''d open up more if you were closer, but for now you''ll have to settle with this.'
-		end
-	elseif grupTipe = 4:
-		if npc_rel['A14'] >= 50:
-			'Katja takes a surprising interest in what you and your fellow gopniks get up to outside of school and listens carefully when you answer her numerous questions.'
-		elseif npc_rel['A14'] <= 20:
-			'Katja looks around nervously when she sees you approaching. She catches sight of her sister and dashes over to hide behind her, clearly scared of you and wanting to avoid speaking to you.'
-		else
-			'With Katja being a quiet girl, she doesn''t do much talking and often avoids eye contact with you. You get the feeling she''d open up more if you were closer, but for now you''ll have to settle with this.'
+
+		if katjaQW['QWstage'] > 2 and katjaQW['knows_masterbation'] + katjaQW['knows_BJ'] + katjaQW['knows_sex'] + katjaQW['knows_anal']+ katjaQW['knows_cuni'] >= 2:
+
+			act 'Kiss Katja':
+				*clr & cla
+				'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/tanga_kiss.jpg"></center>'
+				'You lean in to kiss Katja.'
+				if katjaQW['horny'] < 30:
+					cla & *nl
+					'She pulls away from you as you try and kiss her, looking around to see if anyone seen you. "Not here and not now."'
+					act 'Time for the next class': gt 'gschool_lessons', 'short_break'
+				else
+					*clr & cla
+					'<center><b><font color="maroon"><<$npc_firstname[''A14'']>> <<$npc_lastname[''A14'']>></font></b></center>'
+					'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big14.jpg"></center>'
+					'You slowly lean in towards Katja to kiss her. Unable to resist, Katja closes her eyes, slowly opens her mouth and leans in to meet your kiss.'
+					gs 'katjaEvDin', 'kiss_events'
+				end
+			end
 		end
-	else
-		if npc_rel['A14'] >= 50:
-			'Despite the judgmental stares and insults the other cool kids and jocks throw at you, Katja makes the time to briefly speak with you before Vicky pulls her away to "save" her from the "social embarrassment" of speaking with you.'
-		elseif npc_rel['A14'] <= 20:
-			'Katja looks around nervously when she sees you approaching. She catches sight of her sister and dashes over to her, clearly wanting to avoid speaking to you.'
+
+		if katjaQW['QWstage'] > 1 and pcs_makeup <= 1:
+			'Katja looks at you with a smile. "<<$pcs_nickname>>, I bet you would look great with a little make-up on you! What do you say?"'
+
+			act 'Let her put makeup on you':
+				*clr & cla
+				pcs_hairbsh = 1
+				gs 'stat'
+				'<center><b><font color="maroon"><<$npc_firstname[''A14'']>> <<$npc_lastname[''A14'']>></font></b></center>'
+				'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big14.jpg"></center>'
+				'Katja happily grins as she quickly straightens your hair. "What do you want? A light touch-up, some normal make-up or shall I just shovel it on?"'
+
+				act 'Light touch-up':
+					cla
+					pcs_makeup = 2
+					'Katja subtly applies some neutral tones, with a light application of makeup to bring out your natural beauty.'
+					if katjaQW['QWstage'] > 2:katjaQW['horny'] += 5*(1 + npc_sex['A14']) & 'Katja suddenly becomes aware that she is staring into your eyes and blushes.'
+
+					act 'Time for the next class': gt 'gschool_lessons', 'short_break'
+					act 'Keep talking to her': gt 'gschool_coolkid_chats', 'katja'
+				end
+
+				act 'Normal make-up':
+					cla
+					pcs_makeup = 3
+					'Katja applies some mildly vibrate tones and colors of makeup to cover your minor imperfections and enhance your best features.'
+					if katjaQW['QWstage'] > 2:katjaQW['horny'] += 5*(1 + npc_sex['A14']) & 'Katja suddenly becomes aware that she is staring into your eyes and blushes.'
+
+					act 'Time for the next class': gt 'gschool_lessons', 'short_break'
+					act 'Keep talking to her': gt 'gschool_coolkid_chats', 'katja'
+				end
+
+				act 'Heavy make-up':
+					cla
+					pcs_makeup = 4
+					'Katja applies some deeper, richer shades of makeup that are thick enough to cover most imperfections while drawing attention to your eyes and lips.'
+					if katjaQW['QWstage'] > 2:katjaQW['horny'] += 5*(1 + npc_sex['A14']) & 'Katja suddenly becomes aware that she is staring into your eyes and blushes.'
+
+					act 'Time for the next class': gt 'gschool_lessons', 'short_break'
+					act 'Keep talking to her': gt 'gschool_coolkid_chats', 'katja'
+				end
+			end
 		else
-			'With Katja being a quiet girl, she doesn''t do much talking, the judgmental stares of the other cool kids only making things worse for her. You get the feeling she''d be more comfortable speaking with you if you were closer to her or more popular with your peers.'
+			if fame['pav_slut'] >= 200:
+				if npc_rel['A14'] >= 50:
+					'"Hey Katja, I was wondering if you had any recommendations for lipstick that won''t smear? Things can get kind of messy when I''m... you know." You press your tongue against the inside of your cheek to imitate sucking cock.'
+					'She looks at you in confusion for a few seconds before she gasps softly. "That... that''s gross!" she huffs. "How can you even ask me something like that?!"'
+				elseif npc_rel['A14'] <= 20:
+					'Katja looks around nervously when she sees you approaching. She catches sight of her sister and dashes over to her, clearly wanting to avoid speaking to you.'
+				else
+					'Katja doesn''t look too happy to see you and spends most of your awkwardly one sided conversation fumbling as she looks for a way out. As soon as the bell rings, she immediately dashes off.'
+				end
+			else
+				if grupTipe = 1:
+					if npc_rel['A14'] >= 50:
+						'You spend some time hanging around Kat''s locker, laughing and joking as she tells you some personal stories about Vicky. "She had been drinking all night and had to go, but all the stalls were full, so she drags me out behind the community center to go pee behind a bush." She breaks out into a fit of giggles.'
+						'"She was so drunk, as she was squatting, she stumbled and fell into her own pee!"'
+					elseif npc_rel['A14'] <= 20:
+						'You smile at her as you approach. "Hey Katja, trying a new lipstick out? That color looks pretty on you." '
+						'She smiles sheepishly at your compliment. "Yeah... Just wanted to try something a little different..." she answers quietly. The conversation doesn''t really go anywhere as she keeps her answers short or doesn''t say anything at all. At least she''s willing to actually talk to you.'
+					else
+						'With Katja being a quiet girl, she doesn''t do much talking, but she seems to enjoy some lighthearted banter with you, so long as you''re doing most of the talking. You get the feeling that if you were closer, she''d open up more, but for now you''ll have to settle with this.'
+					end
+				elseif grupTipe = 2:
+					if npc_rel['A14'] >= 50:
+						'You approach Katja and have a lively conversation where you exchange funny stories about Vanya. "And that''s how my sister fell in love with the biggest clown in school!" she laughs with a snort.'
+									'"And I wouldn''t change him for the world!" Vicky adds with a smile.'
+					elseif npc_rel['A14'] <= 20:
+						'Katja looks around nervously when she sees you approaching. "Why do you want to talk to me? I''m not sporty like you or my sister or Albina. Could you go and....speak with someone else please?"'
+					else
+						'With Katja being a quiet girl, she doesn''t do much talking, but she seems to enjoy some lighthearted banter with you, so long as you''re doing most of the talking. You get the feeling that if you were closer, she''d open up more, but for now you''ll have to settle with this.'
+					end
+				elseif grupTipe = 3:
+					if npc_rel['A14'] >= 50:
+						'Katja smiles as you approach and you have a lively conversation about your favorite subjects and her plans for going to university after school. "I want to become a teacher. Helping others achieve their potential just sounds like the perfect job!" she gleefully states.'
+					elseif npc_rel['A14'] <= 20:
+						'Katja doesn''t look too happy to see you and your conversation doesn''t really go anywhere as she keeps her answers short or doesn''t say anything at all. At least she''s willing to actually talk to you.'
+					else
+						'Altough Katja is happy to see you, she doesn''t do much talking. You get the feeling that she''d open up more if you were closer, but for now you''ll have to settle with this.'
+					end
+				elseif grupTipe = 4:
+					if npc_rel['A14'] >= 50:
+						'Katja takes a surprising interest in what you and your fellow gopniks get up to outside of school and listens carefully when you answer her numerous questions.'
+					elseif npc_rel['A14'] <= 20:
+						'Katja looks around nervously when she sees you approaching. She catches sight of her sister and dashes over to hide behind her, clearly scared of you and wanting to avoid speaking to you.'
+					else
+						'With Katja being a quiet girl, she doesn''t do much talking and often avoids eye contact with you. You get the feeling she''d open up more if you were closer, but for now you''ll have to settle with this.'
+					end
+				else
+					if npc_rel['A14'] >= 50:
+						'Despite the judgmental stares and insults the other cool kids and jocks throw at you, Katja makes the time to briefly speak with you before Vicky pulls her away to "save" her from the "social embarrassment" of speaking with you.'
+					elseif npc_rel['A14'] <= 20:
+						'Katja looks around nervously when she sees you approaching. She catches sight of her sister and dashes over to her, clearly wanting to avoid speaking to you.'
+					else
+						'With Katja being a quiet girl, she doesn''t do much talking, the judgmental stares of the other cool kids only making things worse for her. You get the feeling she''d be more comfortable speaking with you if you were closer to her or more popular with your peers.'
+					end
+				end
+			end
 		end
+
+		act 'Time for the next class': gt 'gschool_lessons', 'short_break'
 	end
 end
 
-
 if $ARGS[0] = 'Katjaproblems':
 	cls
 	menu_off = 1
@@ -804,31 +835,31 @@ if $ARGS[0] = 'lizaveta':
 		if npc_rel['A140'] >= 50:
 			'The perks of being a close friend of Liza go beyond just running in the same social circle. She tells you some gossip that no one else should know about.'
 			'"I heard from a little red bird that one time while Vicky was out partying at the community center, she couldn''t hold it in, so she went to do her business behind a bush, buuuut..." Liza drags it out to build a little suspense. "She was so drunk that she ended up falling into her own piss! Luckily Kat-- her friend, I mean, was there to take her home before anyone saw!"'
-			act 'Latest gossip': gt 'gschool_coolkid_chats', 'latest_gossip'
+			act 'Latest gossip': gt 'gschool_coolkid_chats', 'lizaveta_latest_gossip'
 		elseif npc_rel['A140'] <= 20:
 			'"You know, you really shouldn''t shit where you sleep." Lizaveta says while shaking her head disapprovingly.'
 			'"What? What is that supposed to mean?" you ask, but she just sighs.'
 			'"You''re dumber than I thought..." she mutters. You try to get an answer out of her, but she dances around your questions while talking to Bella.'
 		else
 			'You spend some time talking with Lizaveta, and for a while you manage to avoid talking about anything gossipy, but considering she''s the queen of it, it eventually devolves into some "He said, she said."'
-			act 'Latest gossip': gt 'gschool_coolkid_chats', 'latest_gossip'
+			act 'Latest gossip': gt 'gschool_coolkid_chats', 'lizaveta_latest_gossip'
 		end
 	elseif grupTipe = 2:
 		if npc_rel['A140'] >= 50:
 			'You would think that being close friends with Lizaveta would mean getting some exclusive gossip from her, but she keeps her lips sealed. "I know everyone likes to say I can''t keep my mouth shut, but even I need to have some secrets of my own." she winks.'
 			'"Oh come on!" you plead. "You gotta give me a little bit of something..."'
 			'With a dramatic sigh, Liza caves and shares some harmless, yet juicy gossip you hadn''t heard about until now.'
-			act 'Latest gossip': gt 'gschool_coolkid_chats', 'latest_gossip'
+			act 'Latest gossip': gt 'gschool_coolkid_chats', 'lizaveta_latest_gossip'
 		elseif npc_rel['A140'] <= 20:
 			'The conversation is stale and lifeless as Lizaveta taps away at her phone while you talk, only managing an occasional "Yeah..." or "Uh-huh..."'
 		else
 			'You spend some time talking with Lizaveta, and for a while you manage to avoid talking about anything gossipy, but considering she''s the queen of it, it eventually devolves into some "He said, she said."'
-			act 'Latest gossip': gt 'gschool_coolkid_chats', 'latest_gossip'
+			act 'Latest gossip': gt 'gschool_coolkid_chats', 'lizaveta_latest_gossip'
 		end
 	elseif grupTipe = 3:
 		if npc_rel['A140'] >= 50:
 			'When you sit on the floor next to Lizaveta, she smiles at you and the two of you are soon talking about a variety of subjects. However, she can''t help herself and soon starts asking you all sorts of questions about your fellow nerds. You can barely even get a word in edge wise as she pumps you for gossip. You can''t help yourself and start letting some stuff slip as the two of you talk.'
-			act 'Latest gossip': gt 'gschool_coolkid_chats', 'latest_gossip'
+			act 'Latest gossip': gt 'gschool_coolkid_chats', 'lizaveta_latest_gossip'
 		elseif npc_rel['A140'] <= 20:
 			'When you sit on the floor next to Lizaveta, she looks at you in shock and surprise. "Why are you sitting next to me, loser? Get away from me." Her outburst attracts the attention of the other cool kids and jocks around and now everyone is staring at you, making you feel very unwelcome. She continues to stare at you until you get up and leave.'
 		else
@@ -837,7 +868,7 @@ if $ARGS[0] = 'lizaveta':
 	elseif grupTipe = 4:
 		if npc_rel['A140'] >= 50:
 			'When you sit on the floor next to Lizaveta, she smiles at you and the two of you are soon talking about a variety of subjects. However, she can''t help herself and starts asking you all sorts of questions about your fellow gopniks. You can barely even get a word in edge wise as she pumps you for gossip. You can''t help yourself and start letting some stuff slip as the two of you talk.'
-			act 'Latest gossip': gt 'gschool_coolkid_chats', 'latest_gossip'
+			act 'Latest gossip': gt 'gschool_coolkid_chats', 'lizaveta_latest_gossip'
 		elseif npc_rel['A140'] <= 20:
 			'When you sit on the floor next to Lizaveta, she looks at you in shock and surprise before scooting away. "Why are you sitting next to me, freak? Get away from me." Her outburst attracts the attention of the other cool kids and jocks around and now everyone is staring at you, making you feel very unwelcome. She continues to stare at you until you get up and leave.'
 		else
@@ -851,6 +882,13 @@ if $ARGS[0] = 'lizaveta':
 			'When you sit on the floor next to Lizaveta, she looks at you in shock and surprise before scooting away. "What the fuck, loser? Who said you could leave your cave or wherever it is you hide and socialize with the other freaks?" Her outburst attracts the attention of the other cool kids and jocks around and many of them laugh at her comment. Everyone is staring at you and making you feel very unwelcome as she continues to stare at you until you get up and leave.'
 		end
 	end
+	act 'Time for the next class': gt 'gschool_lessons', 'short_break'
+end
+
+if $ARGS[0] = 'lizaveta_latest_gossip':
+	'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big140.jpg"></center>'
+	gs 'gschool_gossip', 'Lizaveta'
+	act 'Time for the next class': gt 'gschool_lessons', 'short_break'
 end
 
 if $ARGS[0] = 'marcus':
@@ -916,6 +954,7 @@ if $ARGS[0] = 'marcus':
 			'You walk up to Marcus and try to talk to him. He mostly ignores you, with only the occasional "uh-huh" for an answer. You notice the others giving you disgusted looks and he finally speaks up. "Look, I don''t mean to be rude, but we''re not friends and I don''t want to talk to you." You sigh and nod before walking away.'
 		end
 	end
+	act 'Time for the next class': gt 'gschool_lessons', 'short_break'
 end
 
 if $ARGS[0] = 'Marcus_Katja_talk':
@@ -925,7 +964,7 @@ if $ARGS[0] = 'Marcus_Katja_talk':
 	'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big146.jpg"></center>'
 	'"So you know how we sometimes have fun together?" you ask him.'
 	'"Yeah?" he answers and you smile. "Well, I have this friend who have never been with a boy before but would like to try. So I was wondering if you were up for helping me give her an amazing first time? She''s '+iif( hotcat < hotcat_rating['A14'], 'even hotter that I am', 'totally hot')+' so you won''t regret it."'
-	'"Are you asking me if I want to have a threesome with two beautiful girls, with one of them even being a virgin?" he asks with a surprised look on his face. "Of course I''m up for this!" he exclaims as his face turns into a huge grin.' 
+	'"Are you asking me if I want to have a threesome with two beautiful girls, with one of them even being a virgin?" he asks with a surprised look on his face. "Of course I''m up for this!" he exclaims as his face turns into a huge grin.'
 	'"Great," you answer. "I''ll call you with her address when we are ready. But you have to be discrete, we don''t want any rumors spread around!" you tell him and he smiles. "Of course, I''m a gentleman and gentlemen never kiss and tell. I look forward to your call."'
 	act 'Time for the next class': gt 'gschool_lessons', 'short_break'
 end
@@ -1001,6 +1040,7 @@ if $ARGS[0] = 'andrey':
 		'"Hey, Andrey! How''s it been?" you ask with a small smile.'
 		'He gives you a slightly confused look as to why you''re talking to him. "Get lost, loser! No one wants to talk to you." He proceeds to ignore you and you can feel everyone else staring at you. Afraid someone might start picking on you, you quickly leave.'
 	end
+	act 'Time for the next class': gt 'gschool_lessons', 'short_break'
 end
 
 if $ARGS[0] = 'mefodiy':

locations/gschool_events.qsrc

@@ -376,7 +376,7 @@ if $ARGS[0] = 'break_events':
 					gs 'arousal', 'end'
 					gs 'stat'
 					'<center><img <<$set_imgh>> src="images/shared/sex/blowjob/toiletbj.jpg"></center>'
-					'You obediently kneel before him, rubbing your hand over the bulge in Vitek''s sweatpants before pulling out his dick. Clasping your <<$liptalk3>> around the head, you run your tongue around the head a few times before sucking it in a bit deeper. You don''t want him to get angry at you, so you put some effort into it, sometimes licking his balls and taking his cock down your throat without really straining yourself. He mistakes your obedience for enthusiasm though and, laughing, turns to his friends and says "Guys just look at this whore going at it, she''s loving it!"'
+					'You obediently kneel before him, rubbing your hand over the bulge in Vitek''s sweatpants before pulling out his dick. Clasping your <<$pc_desc[''lips'']>> lips around the head, you run your tongue around the head a few times before sucking it in a bit deeper. You don''t want him to get angry at you, so you put some effort into it, sometimes licking his balls and taking his cock down your throat without really straining yourself. He mistakes your obedience for enthusiasm though and, laughing, turns to his friends and says "Guys just look at this whore going at it, she''s loving it!"'
 					*nl
 					'A few minutes later, Vitek is about to cum and tells you "Good job, cocksucker. I''m going to drop my load in your mouth now and when I do, you ''re going to swallow it all and lick me clean. If you spill anything, you''re licking it up from the floor. Got that?" You nod up at him and as soon as his cum hits your tongue, you diligently swallow his load, making sure not to let a single drop escape. When you''re sure he''s finished, you lick and suck his slowly softening dick clean, before tucking it back into his pants for him.'
 					*nl
@@ -1744,7 +1744,7 @@ if $ARGS[0] = 'afterschool_events':
 				gs 'cum_call', 'mouth', $boy,1
 				swallow += 4
 				'<center><video autoplay loop src="images/locations/pavlovsk/school/building/sex/rand_scoolboy6.mp4"></video></center>'
-				'You kneel down and wrap your <<$liptalk3>> around <<$boydesc>>''s hard cock and start to suck. Not forgetting the others, you spend some time alternating between all the cocks, stroking the ones you''re not sucking with your hands.'
+				'You kneel down and wrap your <<$pc_desc[''lips'']>> lips around <<$boydesc>>''s hard cock and start to suck. Not forgetting the others, you spend some time alternating between all the cocks, stroking the ones you''re not sucking with your hands.'
 				'Finally, you feel a jet of sperm hit the back of your throat and <<$boydesc>> moans. "That''s right bitch! Swallow it all like a good little slut." <<$boydesc>> seems satisfied and tucks his cock back in his pants.'
 				*nl
 				'You immediately switch to another cock and receive another mouthful from him. You carefully swallow his load as well, which earns you a nod of approval and a pat on the head. "Good little whore." He moves aside as well and you finish off the last two guys. As you get up off your knees, you hear one of them laugh. "You''re the best cock sucker we got <<$pcs_nickname>>!" they say as they leave you alone in the bathroom, more horny than when you started. You yell after them. "Fucking assholes!" You then clean up and leave.'
@@ -2168,7 +2168,7 @@ if $ARGS[0] = 'rand_gopnic':
 				end
 				swallow += 4
 				'<center><video autoplay loop src="images/locations/pavlovsk/school/building/sex/rand_scoolboy6.mp4"></video></center>'
-				'You kneel down and wrap your <<$liptalk3>> around <<$boydesc>>''s hard cock and start to suck. Not forgetting the others, you spend some time alternating between all the cocks, stroking the ones you''re not sucking with your hands.'
+				'You kneel down and wrap your <<$pc_desc[''lips'']>> lips around <<$boydesc>>''s hard cock and start to suck. Not forgetting the others, you spend some time alternating between all the cocks, stroking the ones you''re not sucking with your hands.'
 				'Finally, you feel a jet of sperm hit your throat and <<$boydesc>> moans. "That''s right bitch! Swallow it all like a good little slut." <<$boydesc>> seems satisfied and tucks his cock back in his pants and swaps place with the one that was at the door, who comes over and pulls his cock out, ready to get his turn.'
 				*nl
 				'You immediately switch to the cock of one of the other guys standing next to you and receive another mouthful from him. You carefully swallow his load as well, which earns you a nod of approval and a pat on the head. "Good little whore." He moves aside as well, and soon you finish off the last two guys. As you get up off your knees, you hear one of them laugh. "You''re the best cock sucker we got <<$pcs_nickname>>!" said as they leave you alone in the bathroom, more horny than when you started. You say to yourself out loud. "Fucking assholes!" You then clean up and leave.'
@@ -2260,7 +2260,7 @@ if $ARGS[0] = 'toilet_bj':
 		end
 		swallow += 4
 		'<center><video autoplay loop src="images/locations/pavlovsk/school/building/sex/rand_scoolboy6.mp4"></video></center>'
-		'You know there''s only one way they will let you go, so you dutifully kneel down. <<$boydesc>> takes his cock out of his pants. A second gopnik stands to your right and takes his cock out too. You wrap your <<$liptalk3>> around <<$boydesc>>''s hard cock and start to suck. Not forgetting the others, you spend some time alternating between all the cocks, stroking the ones you''re not sucking with your hands.'
+		'You know there''s only one way they will let you go, so you dutifully kneel down. <<$boydesc>> takes his cock out of his pants. A second gopnik stands to your right and takes his cock out too. You wrap your <<$pc_desc[''lips'']>> lips around <<$boydesc>>''s hard cock and start to suck. Not forgetting the others, you spend some time alternating between all the cocks, stroking the ones you''re not sucking with your hands.'
 		'Finally, you feel a jet of sperm hit your throat and <<$boydesc>> says in a menacing voice "Swallow it all, whore. If you miss a drop, you''re licking it up from the ground." You diligently swallow his sperm, doing your best to lick it all up from his dick and your lips. <<$boydesc>> seems satisfied and tucks his cock back in his pants and swaps place with the one that was at the door, who comes over and pulls his cock out, ready to get his turn.'
 		*nl
 		'You immediately switch to the cock of one of the other guys standing next to you and receive another mouthful from him. You carefully swallow his load as well, which earns you a nod of approval and a pat on the head. "Good little whore." He moves aside and you finish off the last two guys. As you get up off your knees, you hear one of them laugh. "Do you understand your place in life now? That place is right here, on your knees, whenever we say so. Got that?" You obediently nod, fully aware of the nasty taste of semen in the your mouth.'

locations/gschool_girls_bathroom.qsrc

@@ -1008,7 +1008,7 @@ if $ARGS[0] = 'caught2':
 				'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/teacher/makar/sex/school/caughtbj.jpg"></center>'
 				'He looks down at you and seems to freeze. He doesn''t say anything, doesn''t move away either - all he does is look at you, transfixed with your lips. You decide to take that as a yes, stretch out your hand and unzip his pants. You reach inside and feel that his dick is almost hard already.'
 				*nl
-				'He pulls his pants down a little bit, just enough to release his manhood and make it easier for you. You give him an appreciative look and stroke his dick a few times until it is fully hard, then lean forward and start licking it; you lick up and down the shaft and run your tongue around the head, your eyes locked with his all the while before you smile at him and take his <<dick>>cm <<$dick_girth>> cock into your mouth. You wrap your <<$liptalk>> tightly around his dick and start bobbing your head, stroking his cock with your lips, your tongue still making its rounds. He rests one hand on the top of your head, but he lets you completely control the action.'
+				'He pulls his pants down a little bit, just enough to release his manhood and make it easier for you. You give him an appreciative look and stroke his dick a few times until it is fully hard, then lean forward and start licking it; you lick up and down the shaft and run your tongue around the head, your eyes locked with his all the while before you smile at him and take his <<dick>>cm <<$dick_girth>> cock into your mouth. You wrap your <<$pc_desc[''lips'']>> lips tightly around his dick and start bobbing your head, stroking his cock with your lips, your tongue still making its rounds. He rests one hand on the top of your head, but he lets you completely control the action.'
 				*nl
 				'You caress and fondle his balls with one of your hands while the other strokes him in unison with your head''s movement. You increase your speed over time and take him as deep into your mouth as you can without gagging. He starts moaning and you feel his hand dig into your hair, telling you that he is getting close to cumming.'
 				gs 'arousal', 'bj', 10, 'dom'
@@ -1059,7 +1059,7 @@ if $ARGS[0] = 'caught2':
 					*clr & cla
 					gs 'boyStat', 'A128'
 					'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/teacher/makar/sex/school/caughtbj.jpg"></center>'
-					'You stroke his dick a few times until it is fully hard, then lean forward and start licking it; you lick up and down the shaft and run your tongue around the head, your eyes locked with his all the while before you smile at him and take his <<dick>>cm <<$dick_girth>> cock into your mouth. You wrap your <<$liptalk>> tightly around his dick and start bobbing your head, stroking his cock with your lips, your tongue still making its rounds. He rests one hand on the top of your head, but he lets you completely control the action.'
+					'You stroke his dick a few times until it is fully hard, then lean forward and start licking it; you lick up and down the shaft and run your tongue around the head, your eyes locked with his all the while before you smile at him and take his <<dick>>cm <<$dick_girth>> cock into your mouth. You wrap your <<$pc_desc[''lips'']>> lips tightly around his dick and start bobbing your head, stroking his cock with your lips, your tongue still making its rounds. He rests one hand on the top of your head, but he lets you completely control the action.'
 					*nl
 					'You caress and fondle his balls with one of your hands while the other strokes him in unison with your head''s movement. You increase your speed over time and take him as deep into your mouth as you can without gagging.'
 					gs 'arousal', 'bj', 5, 'dom'

locations/gschool_grounds.qsrc

@@ -519,10 +519,10 @@ if $ARGS[0] = 'SchoolRun':
 		wait 725
 
 		begminus = 0
-		if bmi_calc > 25: 
-			begminus = ((bmi_calc - 25)*4)
-		elseif bmi_calc < 18:
-			begminus = ((25 - bmi_calc)*6)
+		if pcs_bmi > 25: 
+			begminus = ((pcs_bmi - 25)*4)
+		elseif pcs_bmi < 18:
+			begminus = ((25 - pcs_bmi)*6)
 		end
         begresult = pcs_run - begminus
 		
@@ -631,10 +631,10 @@ if $ARGS[0] = 'SchoolRun2':
 		wait 725
 
 		begminus = 0
-		if bmi_calc > 25: 
-			begminus = ((bmi_calc - 25)*4)
-		elseif bmi_calc < 18:
-			begminus = ((25 - bmi_calc)*6)
+		if pcs_bmi > 25: 
+			begminus = ((pcs_bmi - 25)*4)
+		elseif pcs_bmi < 18:
+			begminus = ((25 - pcs_bmi)*6)
 		end
         begresult = pcs_run - begminus
 		

locations/gschool_jock_chats.qsrc

@@ -340,6 +340,7 @@ if $ARGS[0] = 'albina':
 		else
 			'Albina is on her phone as you approach. She looks up at you before returning her attention to her phone and ignoring you. After a few seconds, she looks up at you again and stares in confusion. "What do you want loser?" She then laughs. "Wait, you want to talk to <i>me</i>? As if that will ever happen! Fuck off and go hang out with the other losers where you belong." She shoos you away with a motion of her hand before going back to her phone.'
 		end
+		act 'Time for the next class': gt 'gschool_lessons', 'short_break'
 	end
 end
 

locations/gschool_lunch.qsrc

@@ -134,7 +134,7 @@ if $ARGS[0] = 'break':
 		gt 'nerd_game_night', 'invite', 'lunch'
 	end
 
-	if katjaQW['QWstage'] = 0 and npc_rel['A14'] >= 60 and fame['pav_slut'] < 25 and class['school_grade_average'] >= 65 and pcs_makupskl >= 40 and hotcat >= 6: gt 'gschool_coolkid_chats', 'Katjaproblems'
+	if katjaQW['QWstage'] = 0 and npc_rel['A14'] >= 60 and fame['pav_slut'] < 50 and class['school_grade_average'] >= 65 and pcs_makupskl >= 40 and hotcat >= 6: gt 'gschool_coolkid_chats', 'Katjaproblems'
 
 	if $breaktype ! 'long':
 		if dimaRevenge = 4 and dimaRevChoice = 2 and hour < 10: '<br>"Hi Nat, did you happen to see Dimka?" "Hey <<$pcs_nickname>>, he was here earlier, speaking with Lena and Lera.'
@@ -461,7 +461,7 @@ if $ARGS[0] = 'events':
 				gs 'arousal', 'end'
 				gs 'stat'
 				'<center><img <<$set_imgh>> src="images/shared/sex/blowjob/toiletbj.jpg"></center>'
-				'You obediently kneel before him, rubbing your hand over the bulge in Vitek''s sweatpants before pulling out his dick. Clasping your <<$liptalk3>> around the head, you run your tongue around it a few times before starting to suck it in a bit deeper. You don''t want him to get angry, so you put some effort into it, sometimes licking his balls and taking his cock down your throat without really straining yourself. He mistakes your obedience for enthusiasm, and laughing, he turns to his friends and says "Guys just look at this slut going at it! She''s loving it!"'
+				'You obediently kneel before him, rubbing your hand over the bulge in Vitek''s sweatpants before pulling out his dick. Clasping your <<$pc_desc[''lips'']>> lips around the head, you run your tongue around it a few times before starting to suck it in a bit deeper. You don''t want him to get angry, so you put some effort into it, sometimes licking his balls and taking his cock down your throat without really straining yourself. He mistakes your obedience for enthusiasm, and laughing, he turns to his friends and says "Guys just look at this slut going at it! She''s loving it!"'
 				*nl
 				'A few minutes later, Vitek is about to cum and tells you "Good job, cocksucker. I''m going to drop my load in your mouth now and when I do, you ''re going to swallow it all and lick me clean. If you spill anything, you''re going to lick it up from the floor. Got that?" You nod up at him and as soon as his cum hits your tongue, you diligently swallow his load, making sure not to let a single drop escape. When you''re sure he''s finished, you lick and suck his slowly softening dick clean, before tucking it back into his pants for him.'
 				*nl

locations/gschool_sex.qsrc

@@ -32,7 +32,7 @@ if $ARGS[0] = 'suck':
 				if npc_Sex['A11'] = 0: npc_Sex['A11'] = 1 & guy += 1
 				gs 'stat'
 				'<center><img <<$set_imgh>> src="images/shared/sex/group/toiletbjtreesome.jpg"></center>'
-				'You obediently squat and start stroking Vitek''s dick with your hand, getting it rock hard. You rub his hard cock against your <<$liptalk3>>, then open your mouth and begin to suck his <<dick>>cm <<$dick_girth>> cock. After making sure no one is coming, Dan and Vasily also approach you and take out their dicks, pointing them at you expectantly. Now sucking the dicks of all three boys in turn, you do your best to please the ones you''re not sucking by jerking them off.'
+				'You obediently squat and start stroking Vitek''s dick with your hand, getting it rock hard. You rub his hard cock against your <<$pc_desc[''lips'']>> lips, then open your mouth and begin to suck his <<dick>>cm <<$dick_girth>> cock. After making sure no one is coming, Dan and Vasily also approach you and take out their dicks, pointing them at you expectantly. Now sucking the dicks of all three boys in turn, you do your best to please the ones you''re not sucking by jerking them off.'
 				gs 'arousal', 'bj', 10, 'group', 'sub'
 				act 'Let them cum on your face':
 					*clr & cla
@@ -499,7 +499,7 @@ if $ARGS[0] = 'rand_bj':
 	act 'Suck his cock':
 		*clr & cla
 		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/building/sex/boysex_tualet3.jpg"></center>'
-		'You begin to lick the head of his penis, ignoring the excited whispers of your classmates. Then you wrap your <<$liptalk3>> around it and begin to suck him off, taking him in deeper and deeper with every thrust. Your hand darts down, eagerly fingering your soaking wet pussy. This is not fair! If you keep this up, he will shoot his load in your mouth and you will be left horny as hell!'
+		'You begin to lick the head of his penis, ignoring the excited whispers of your classmates. Then you wrap your <<$pc_desc[''lips'']>> lips around it and begin to suck him off, taking him in deeper and deeper with every thrust. Your hand darts down, eagerly fingering your soaking wet pussy. This is not fair! If you keep this up, he will shoot his load in your mouth and you will be left horny as hell!'
 		gs 'arousal', 'bj', 5
 		gs 'stat'
 		act 'Bend over the toilet':
@@ -635,7 +635,7 @@ if $ARGS[0] = 'lunch_bj':
 		gs 'npcgeneratec', 0, 'a schoolboy you don''t know', rand(15,17)
 		gs 'boyStat', $npclastgenerated
 		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/lunch/sex/lunchbrbj.jpg"></center>'
-		'After you make sure the ground is clean, you get down on your knees and pull down his pants, revealing his stiff erection. You humor him for a bit and let him thrust the tip against your lips before you flash him a smile and close your <<$liptalk3>> around his <<dick>>cm <<$dick_girth>> cock. You don''t plan on taking long and quickly use all your tricks to get him to cum as quick as you can: swirling your tongue over the head, licking the shaft and sucking for all you''re worth.'
+		'After you make sure the ground is clean, you get down on your knees and pull down his pants, revealing his stiff erection. You humor him for a bit and let him thrust the tip against your lips before you flash him a smile and close your <<$pc_desc[''lips'']>> lips around his <<dick>>cm <<$dick_girth>> cock. You don''t plan on taking long and quickly use all your tricks to get him to cum as quick as you can: swirling your tongue over the head, licking the shaft and sucking for all you''re worth.'
 		gs 'arousal', 'bj', 10
 		gs 'stat'
 		act 'Continue':
@@ -656,7 +656,7 @@ if $ARGS[0] = 'lunch_sex':
 	gs 'npcgeneratec', 0, 'a schoolboy you don''t know', rand(15,17)
 	gs 'boyStat', $npclastgenerated
 	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/lunch/sex/roofbj.jpg"></center>'
-	'Once you''re on the roof, you see several blankets and other stuff in a corner in a safe little spot. You grab one and the boy helps you lay it out. Once it''s down, you both undress and he lays on his back. Dropping down next to him, you close your <<$liptalk3>> around his <<dick>>cm <<$dick_girth>> cock and start flicking your tongue over the head, licking the shaft and sucking for all you''re worth while one of your hands plays with his balls.'
+	'Once you''re on the roof, you see several blankets and other stuff in a corner in a safe little spot. You grab one and the boy helps you lay it out. Once it''s down, you both undress and he lays on his back. Dropping down next to him, you close your <<$pc_desc[''lips'']>> lips around his <<dick>>cm <<$dick_girth>> cock and start flicking your tongue over the head, licking the shaft and sucking for all you''re worth while one of your hands plays with his balls.'
 	gs 'arousal', 'bj', 5
 	gs 'stat'
 	act 'Continue':

locations/hookup_sms.qsrc

@@ -0,0 +1,86 @@
+# hookup_sms
+
+$SMSFrM = '<table width=80%><tr><td collspan=2 bgcolor="#D4CEF9"><font color=black> '
+$SMSBkM = '</font></td><td width=10%></td></tr></table>'
+$SMSFrF = '<table width=80%><tr><td width=10%></td><td collspan=2 bgcolor=pink><font color=black>'
+$SMSBkF = '</font></td></tr></table>'
+
+if $ARGS[0] = 'start':
+	$menu_loc = 'hookup_sms'
+	$menu_arg = 'start'
+	menu_off = 0
+	$loc_arg = 'start'
+	minut += 2
+	gs 'stat'
+end
+
+$VM['0'] = 'Come over, I want to have sex'
+
+	$VF['0a'] = 'That is cool, which time?'
+		$VM['1a'] = 'Right now !'
+
+			$VF['1a'] = 'OK !'
+
+	$VF['0b'] = 'I''m busy right now. Can I come by at 8?'
+		$VM['1b'] = 'OK, but I cannot provide the dinner then!'
+
+			$VF['1b'] = 'That is OK, I will suck you dry'
+
+
+if $ARGS[0] = 'Add SMS':
+	$trialSMS  = $SMSFrM+$VM['0']+$SMSBkM
+	$trialSMS += '<table><tr><th> Reply</th></tr>'
+	$trialSMS += '<tr><td><a href="exec: gs ''hookup_sms'', ''V1'',SMSid">'+$VF['0a']+'</a></td></tr>'
+	$trialSMS += '<tr><td><a href="exec: gs ''hookup_sms'', ''V2'',SMSid">'+$VF['0b']+'</a></td></tr></table>'
+	gs 'telefon', 'add_sms', 'A1', $trialSMS
+end
+
+if $ARGS[0] = 'V1':
+	$trialSMS  = $SMSFrM+$VM[ '0']+$SMSBkM
+	$trialSMS += $SMSFrF+$VF['0a']+$SMSBkF
+	$SMSMessage[ARGS[1]] = $trialSMS
+	gs 'telefon', 'show_sms', ARGS[1]
+	wait 1000
+	$trialSMS += $SMSFrM+$VM['1a']+$SMSBkM
+	$trialSMS += '<table><tr><th> Reply</th></tr>'
+	$trialSMS += '<tr><td><a href="exec: gs ''hookup_sms'', ''V11'',SMSid">'+$VF['1a']+'</a></td></tr></table>'
+	$SMSMessage[ARGS[1]] = $trialSMS
+	gs 'telefon', 'show_sms', ARGS[1]
+end
+
+if $ARGS[0] = 'V11':
+	$trialSMS =  $SMSFrM+$VM[ '0']+$SMSBkM
+	$trialSMS += $SMSFrF+$VF['0a']+$SMSBkF
+	$trialSMS += $SMSFrM+$VM['1a']+$SMSBkM
+	$trialSMS += $SMSFrF+$VF['1a']+$SMSBkF
+	$SMSMessage[ARGS[1]] = $trialSMS
+	gs 'telefon', 'show_sms', ARGS[1]
+end
+
+if $ARGS[0] = 'V2':
+	$trialSMS  = $SMSFrM+$VM[ '0']+$SMSBkM
+	$trialSMS += $SMSFrF+$VF['0b']+$SMSBkF
+	$SMSMessage[ARGS[1]] = $trialSMS
+	gs 'telefon', 'show_sms', ARGS[1]
+	wait 1000
+	$trialSMS += $SMSFrM+$VM['1b']+$SMSBkM
+	$trialSMS += '<table><tr><th> Reply</th></tr>'
+	$trialSMS += '<tr><td><a href="exec: gs ''hookup_sms'', ''V21'',SMSid">'+$VF['1b']+'</a></td></tr></table>'
+	$SMSMessage[ARGS[1]] = $trialSMS
+	gs 'telefon', 'show_sms', ARGS[1]
+end
+
+if $ARGS[0] = 'V21':
+	$trialSMS  = $SMSFrM+$VM[ '0']+$SMSBkM
+	$trialSMS += $SMSFrF+$VF['0b']+$SMSBkF
+	$trialSMS += $SMSFrM+$VM['1b']+$SMSBkM
+	$trialSMS += $SMSFrF+$VF['1b']+$SMSBkF
+	$SMSMessage[ARGS[1]] = $trialSMS
+	gs 'telefon', 'show_sms', ARGS[1]
+end
+killvar '$trialSMS'
+killvar '$VF'
+killvar '$MF'
+
+
+--- hookup_sms ---------------------------------

locations/hotel_work.qsrc

@@ -277,7 +277,7 @@ if $ARGS[0] = 'maid':
 				else
 					act 'Shake your head and go back to the lobby (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
 				end
-				act 'Knock on the door.':
+				act 'Knock on the door':
 					menu_off = 0
 					*clr & cla
 					gs 'stat'
@@ -1195,6 +1195,7 @@ if $ARGS[0] = 'maid':
 						'You can''t help but stare at her pussy as she gives you such a show.'
 						
 						gs 'arousal', 'voyeur', 5
+						gs 'arousal', 'voyeur', -15
 						gs 'arousal', 'end'
 						gs 'stat'
 

locations/hunterLoveSex.qsrc

@@ -112,7 +112,7 @@ if $ARGS[0] = 'din_hunters_bjH2':
 	'<center><video autoplay loop src="images/shared/sex/blowjob/kotovbj2'+rand(0,6)+'.mp4"></video></center>'
 	*pl
 	h = rand(1,3)
-	'You <<$textsexkotov>>, and tightly clench your <<$liptalk>> '
+	'You <<$textsexkotov>>, and tightly clench your <<$pc_desc[''lips'']>> lips '
 	'The tenderness of your lips is driving him crazy'
 	*pl
 	gs 'arousal', 'foreplay', 5, 'sub'
@@ -178,7 +178,7 @@ if $ARGS[0] = 'din_hunters_bjH3':
 	'<center><video autoplay loop src="images/shared/sex/blowjob/kotovbj3'+rand(0,1)+'.mp4"></video></center>'
 	*pl
 	h = rand(1,3)
-	'You cover his cock with sweet kisses, gently touching your <<$liptalk>>'
+	'You cover his cock with sweet kisses, gently touching your <<$pc_desc[''lips'']>> lips'
 	*pl
 	gs 'arousal', 'foreplay', 5, 'sub'
 	if hunters_bj_times < 3:'You slightly <a href="exec:gt ''hunterLoveSex'', ''din_hunters_bj_bonusH3''"> tease</a> his member'
@@ -3621,7 +3621,7 @@ if $ARGS[0] = 'din_hunters_bj_bonus7':
 	hunters_bj_times -= 1
 	'<center><H4>Hut</H4></center>'
 	'<center><video autoplay loop src="images/shared/sex/blowjob/kotovbjbonus7.mp4"></video></center>'
-	'You continue to play with his balls hugging them <<$liptalk>>. You put them in your mouth and use your tongue to tease them as you suck each one separately.'
+	'You continue to play with his balls hugging them <<$pc_desc[''lips'']>> lips. You put them in your mouth and use your tongue to tease them as you suck each one separately.'
 	'-Fuck, baby, don''t stop!'
 	gs 'arousal', 'foreplay', 5, 'sub'
 	gs 'stat'
@@ -3888,7 +3888,7 @@ if $ARGS[0] = 'din_hunters_bj3':
 	'<center><H4>Hut</H4></center>'
 	'<center><video autoplay loop src="images/shared/sex/blowjob/kotovbj3'+rand(0,1)+'.mp4"></video></center>'
 	h = rand(1,3)
-	'You sweetly kiss at his shaft and cock head, gently rubbing his member against your <<$liptalk>>'
+	'You sweetly kiss at his shaft and cock head, gently rubbing his member against your <<$pc_desc[''lips'']>> lips'
 	*pl
 	gs 'arousal', 'foreplay', 5, 'sub'
 	if hunters_bj_times < 3:'You slightly <a href="exec:gt ''hunterLoveSex'', ''din_hunters_bj_bonus3''">tease</a> his member'
@@ -3956,7 +3956,7 @@ if $ARGS[0] = 'din_hunters_bj2':
 	'<center><H4>Hut</H4></center>'
 	'<center><video autoplay loop src="images/shared/sex/blowjob/kotovbj2'+rand(0,6)+'.mp4"></video></center>'
 	h = rand(1,3)
-	'You <<$textsexkotov>>, and tightly clench your <<$liptalk>> '
+	'You <<$textsexkotov>>, and tightly clench your <<$pc_desc[''lips'']>> lips '
 	'The tenderness of your lips is driving him crazy'
 	*pl
 	gs 'arousal', 'bj', 5, 'sub'

locations/igorev.qsrc

@@ -215,7 +215,7 @@ if $ARGS[0] = 'din_sex':
 				act 'Swallow his sperm':
 					cls
 					'<center><img <<$set_imgh>> src="images/pc/body/cum/swallow/swallow7.jpg"></center>'
-					'You continue sucking his erupted cock and swallow the cum as soon as it reaches your mouth. The stream of sperm is never ending so instead of swallowing everything you let it flow out onto the cock. Finally the flow dies down and you let go of the limp cock out of your mouth. Your <<$liptalk3>> is wet from all the semen.'
+					'You continue sucking his erupted cock and swallow the cum as soon as it reaches your mouth. The stream of sperm is never ending so instead of swallowing everything you let it flow out onto the cock. Finally the flow dies down and you let go of the limp cock out of your mouth. Your <<$pc_desc[''lips'']>> lips is wet from all the semen.'
 					gs 'cum_call', 'mouth_swallow', $boy, 1
 					gs 'arousal', 'bj', 10
 					gs 'stat'
@@ -797,7 +797,7 @@ if $ARGS[0] = 'din_sisterkom_krossdress':
 													'<center><b><font color = maroon>Igor''s sister''s room</font></b></center>'
 													'<center><video autoplay loop src="images/characters/pavlovsk/school/boy/igor/sex/crossdress/dzhulia.mp4"></video></center>'
 													'You push him onto the bed, and then plant yourself on his face. You reach down and pull his dick out of the panties and begin sucking it. Igor has a smaller than average dick, but his skill with his tongue is great.'
-													'You continue on sucking his small dick. It starts twitching, he''s close to erupt. You quickly deepthroat and swallow the cum that shoots into your mouth. Some of it sips out and flows from your mouth onto Igor. Finally the flow dies down and you release the now limp cock out of your mouth. Your <<$liptalk3>> are wet from semen. While you put all you might into handling Igor''s cum, Igor continues licking your now dripping pussy.'
+													'You continue on sucking his small dick. It starts twitching, he''s close to erupt. You quickly deepthroat and swallow the cum that shoots into your mouth. Some of it sips out and flows from your mouth onto Igor. Finally the flow dies down and you release the now limp cock out of your mouth. Your <<$pc_desc[''lips'']>> lips are wet from semen. While you put all you might into handling Igor''s cum, Igor continues licking your now dripping pussy.'
 													'You lick up the remaining sperm from Igor''s cock and swallow it. You turn your head around seeing Igor still going strong. You are impressed by Igor''s stamina.'
 													'Suddenly you feel a bolt jolting in your pussy and you start screaming. You''re on the edge ready to cum. You tell Igor not to stop, suddenly you start to tremble, embracing the orgasm.'
 													gs 'arousal', 'bj', 15

locations/intro_city.qsrc

@@ -0,0 +1,257 @@
+# intro_city
+
+music_loop = 0
+CLOSE ALL
+gs 'themes', 'indoors'
+$start_type = 'city'
+
+if $ARGS[0] = 'start':
+
+!!--------------------------inner thought stuff--------------------------------
+    $OpenInnerThought = '<i><font color=''magenta''>'
+    $CloseInnerThought = '</font></i>'
+
+	age = 18
+	month = 5
+	$month = 'May'
+	day = 4
+	week = 3
+	hour = 13
+
+!!		Body
+	pcs_hgt = 170
+	salo = 60
+	dick = 0
+!!		Stats
+	pcs_stren = 20
+	strenbuf = 20
+	pcs_agil = 15
+	agilbuf = 15
+	pcs_vital = 25
+	vitalbuf = 25
+	pcs_intel = 30
+	pcs_sprt = 25
+	pcs_react = 25
+	pcs_chrsm = 15
+	pcs_prcptn = 40
+	money = 13000
+	pcs_pubes = 30
+	pcs_leghair = 12
+	pcs_makeup = 5
+	gm_purses[7] = 1
+	$currentpursetype = 'gm'
+	currentpursenumber = 7
+	bag = 1
+	home_owned[1] = 1
+
+	pcs_inhib = 15
+	pcs_heels = 20
+	pcs_makupskl = 15
+	pcs_artskls = 15
+	pcs_compskl = 20
+	pcs_comphckng = 10
+	pcs_chess = 15
+	pcs_danc = 30
+	cltarelka = 1
+	fairy = 10
+	eda = 5
+	poroshok = 5
+	shampoo = 20
+	tampon = 15
+	pcs_energy = 100
+	pcs_hydra = 100
+	pcs_sleep = 100
+	willpowermax = 100
+
+	$start_type = 'nt'
+	NTstart = 1
+	
+	gt 'intro_city', 'city_intro'
+end
+
+if $ARGS[0] = 'city_intro':
+	!! Intro to starting city
+	!!variables for apartment living
+	pcs_hairlng = 100
+	!!Default Names
+	$pcs_firstname = 'Svetlana'
+	$pcs_lastname = 'Lebedev'
+	$pcs_nickname = 'Sveta'
+
+	!!Player names are set here
+	$temp_firstname = '<<$pcs_firstname>>'
+	$pcs_firstname = input("What is your first name? (Leave blank for Svetlana)")
+	if $pcs_firstname = '':$pcs_firstname = '<<$temp_firstname>>'
+	killvar '$temp_firstname'
+
+	$temp_lastname = '<<$pcs_lastname>>'
+	$pcs_lastname = input("What is your family name? (Leave blank for Lebedev)")
+	if $pcs_lastname = '':$pcs_lastname = '<<$temp_lastname>>'
+	killvar '$temp_lastname'
+
+	$temp_nickname = '<<$pcs_nickname>>'
+	$pcs_nickname = input("What is your nickname? (Leave blank for Sveta)")
+	if $pcs_nickname = '':$pcs_nickname = '<<$temp_nickname>>'
+	killvar '$temp_nickname'
+
+	*clr & cla
+	!!pic of apartment or Gazelle?
+	'The big day has finally arrived! Your family piled into your stepfather''s Gazelle pickup and you all traveled from your hometown, Pavlovsk, to the big city of St. Petersburg. Today is the day you move into your own apartment and start this new phase of your life.'
+	'You think back to your school days and what kind of student you were...'
+
+	act 'Continue': gt 'intro_city', 'vlad_intro'
+end
+
+if $ARGS[0] = '2':
+	$loc = 'intro_city'
+	$loc_args = '2'
+!!	Just hair and eye color here for now; the dialog will be update as more options are added
+	'<center><b><font color = maroon>CHARACTER CUSTOMIZATION</font></b></center>'
+	'<center><b>Allows you to alter hair and eyes, use to match fixed profile picture if in use.</b></center>'
+	'<center><img <<$set_imgh>> src="images/system/1_openings/shared/character_creation_2.jpg"></center>'
+	'As you look in the mirror, your face comes into focus. Some aspects of your appearance are already set, you can define the others now.'
+	'You are fairly tall.'
+	*nl
+	'<center>Customize your:</center>'
+	'<center><a href="exec:gs ''intro_customization'', ''hair''"><img src="images/system/1_openings/shared/icon_hair.png"></a> <a href="exec:gs ''intro_customization'', ''eyes''"><img src="images/system/1_openings/shared/icon_eye.png"></a></center>'
+	
+	act 'Done': gt 'intro_city', 'city_intro'
+end
+
+if $ARGS[0] = 'vlad_intro':
+	gs 'intro_initialization'
+	gs'stat'
+	!! Intro to your stepfather
+	*clr & cla
+	'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big28.jpg"></center>'
+	!!basic desc of Vlad, maybe a preset is used somewhere in game already? If not already in the intro (I think it is.)
+	'Having spent almost an hour in the cramped truck, you jump out as soon as you arrive. Vlad gets out and stretches a bit, before heading to the back of the Gazelle to start unloading your stuff.'
+
+	act 'Check Kolka': gt 'intro_city', 'kolka_intro'
+end
+
+if $ARGS[0] = 'kolka_intro':
+	!! Intro to Kolka
+	*clr & cla
+	'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big34.jpg"></center>'
+	!!basic desc of Kolka, maybe a preset is used somewhere in game already? If not already in the intro (I think it is.)
+	'Your brother, caught up in the excitement of seeing the city, tries to slide past Vlad unnoticed but is called back to help unload. He sighs and shuffles his feet a bit before turning around to help his dad get your stuff.'
+	'Giving him a smile to encourage him, you thank him for helping. Your effort pays off, his chest puffs out a bit as he starts to help his father.'
+
+	act 'Head inside': gt 'intro_city', 'anya_intro'
+end
+
+if $ARGS[0] = 'anya_intro':
+	!! Intro to Anya
+	*clr & cla
+	'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big33.jpg"></center>'
+	!!basic desc of Anya, maybe a preset is used somewhere in game already? If not already in the intro (I think it is.)
+	'Your sister comes up to you, links her arm with yours, and pulls you forward. "Come on, <<$pcs_nickname>>! I want to see this place."'
+	'Already knowing the answer, you ask anyway "Why don''t you have your own apartment then?"'
+	'"I''m comfortable where I am right now. When I''m ready, maybe I will."'
+	'Rolling your eyes, you let her keep pulling on your arm.'
+
+	act 'Enter the apartment': gt 'intro_city', 'apartment_intro'
+end
+
+if $ARGS[0] = 'apartment_intro'
+	$temp_nickname = input('<center>What name do you address your mother by?<br>Mother (default), Mum, Mom, Mama, etc.</center>')
+	if $temp_nickname ! '':$npc_nickname['A29'] = '<<$temp_nickname>>'
+	killvar '$temp_nickname'
+
+	!! Intro to apartment
+	*clr & cla
+	'<center><img <<$set_imgh>> src="images/locations/city/residential/apartment/home/korr.jpg"></center>'
+	'Once you get inside you look around, already trying to decide where things should go. Anya sees this, and laughing, drags you through each room to check them out.'
+	'By the time you''re done Kolka and Vladimir have started bringing boxes in. "Your <<$npc_nickname[''A29'']>> is staying outside for a bit to keep an eye on your stuff. I don''t think she likes the neighborhood much," he says with a shrug.'
+	'Both you and Anya pick up the boxes they set down and take them to the rooms they were labeled for, while your brother and stepfather bring it all inside.'
+
+	act 'Greet <<$npc_nickname[''A29'']>>': gt 'intro_city', 'mom_intro'
+end
+
+if $ARGS[0] = 'mom_intro':
+	!! Intro to Mom - answer sets relationship level
+	*clr & cla
+	'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big29.jpg"></center>'
+	'Your <<$npc_nickname[''A29'']>> comes inside finally, carrying food she made ahead of time to feed everybody.'
+	'"<<$pcs_nickname>>, this is a pretty rough neighborhood. You need to be really careful of those boys outside. The sooner University starts the better, so you can get out of here. I don''t know why you couldn''t just wait until summer ended to move to the city."'
+	act 'I will be fine (neutral response)':
+		gs 'npc_relationship', 'set', 'A29', '50'
+		*clr & cla
+		'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big29.jpg"></center>'
+		'"Everything will be fine, <<$npc_nickname[''A29'']>>. I will look into university prices and decide then."'
+		'She gives you a hug before going to the kitchen to start setting up everybody with a plate of food.'
+
+		act 'Have lunch': gt 'intro_city', 'lunch_break'
+	end
+	act 'Give it a rest (angry response)':
+		gs 'npc_relationship', 'set', 'A29', '30'
+		*clr & cla
+		'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big29.jpg"></center>'
+		'"Just stop <<$npc_nickname[''A29'']>>! I''m an adult now, and I will do whatever I want with who I want!"'
+		'Her eyes flash in anger, but she doesn''t say anything. She goes to the kitchen to start setting up everybody with a plate of food.'
+
+		act 'Have lunch': gt 'intro_city', 'lunch_break'
+	end
+	act 'Don''t worry (loving response)':
+		gs 'npc_relationship', 'set', 'A29', '70'
+		*clr & cla
+		'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big29.jpg"></center>'
+		'"I know, don''t worry so much <<$npc_nickname[''A29'']>>. I will be very careful, I promise. It''s only for a few months."'
+		'She gives you a big hug before going to the kitchen to start setting up everybody with a plate of food.'
+
+		act 'Have lunch': gt 'intro_city', 'lunch_break'
+	end
+end
+
+if $ARGS[0] = 'lunch_break':
+	*clr & cla
+	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/home/dinnerhome.jpg"></center>'
+	if npc_rel['A29'] >= 60:
+		'<<$npc_nickname[''A29'']>> hands you a plate with a big smile as you all sit down at your kitchen table.'
+	elseif npc_rel['A29'] <= 30:
+		'Lunch is a little tense at first, but for the most part everybody is used to you and your <<$npc_nickname[''A29'']>> fighting.'
+	else
+		'<<$npc_nickname[''A29'']>> hands plates of food as you all sit down at your kitchen table.'
+	end
+	'Before long, you are all laughing and joking with each other as you eat. You are still looking forward to being on your own, but you know times like this meal will become pretty rare once they head home.'
+	'Once the meal is done and <<$npc_nickname[''A29'']>> cleans up the mess, everybody stands up to say goodbye.'
+
+	act 'Say goodbye to your family': gt 'intro_city', 'family_goodbye'
+end
+
+if $ARGS[0] = 'family_goodbye':
+	!! Say goodbye to your family
+	*clr & cla
+	'<center><img <<$set_imgh>> src="images/locations/city/residential/apartment/home/korr.jpg"></center>'
+	'Anya gives a big hug, congratulates you on getting your own place, and then steps back to give the rest of your family room to do the same. Your brother gives you an awkward hug and whispers to text him what it''s like before stepping back too.'
+	'Vladimir comes over and hugs you too, tells you how proud he is to be your stepfather and to call if you need anything.'
+	if npc_rel['A29'] >= 60:
+		'Your <<$npc_nickname[''A29'']>> finishes what she is doing and comes over, tears in her eyes. Wrapping you in a big hug, she reminds you again to stay away from the boys outside, before joining the rest of the family by the door.'
+	elseif npc_rel['A29'] <= 30:
+		'Your <<$npc_nickname[''A29'']>> finishes what she is doing and comes over and gives you an awkward hug, saying she is sorry for fighting with you on your big day, before joining the rest of the family by the door.'
+	else
+		'Your <<$npc_nickname[''A29'']>> finishes what she is doing and comes over and gives you a hug and reminds you to stay away from the boys outside, before joining the rest of the family by the door.'
+	end
+	*nl
+	'They all wave and head out, leaving you alone for the first time. You spend some time unpacking your stuff, before you stop and stretch, deciding you can finish later.'
+
+	act 'Continue': gt 'intro_city', 'welcome_intro'
+end
+
+if $ARGS[0] = 'welcome_intro':
+	!! Welcome to Girl Life speech
+	showstat 1
+	showobjs 1
+	gs 'obj_din', 'old'
+	*clr & cla
+	'<center><img <<$set_imgh>> src="images/system/1_openings/5_city/city_start.jpg"></center>'
+	'Welcome to Girl Life. You are finally free of your parents and ready to face all the freedoms and challenges that entails. Your options are nearly unlimited and now it''s time to go out and discover them all.'
+	'Don''t forget to enroll in university during August, if that''s a goal you want to pursue.'
+
+	act 'Start the game': gt 'korr'
+end
+
+
+--- intro_city ---------------------------------
+

locations/intro_city_m.qsrc

@@ -0,0 +1,13 @@
+# intro_city_m
+
+music_loop = 0
+CLOSE ALL
+gs 'themes', 'indoors'
+$start_type = 'city_m'
+
+'Not yet available!!'
+
+act 'Return': gt 'begin', 'start'
+
+--- intro_city_m ---------------------------------
+

locations/intro_city_select.qsrc

@@ -0,0 +1,1551 @@
+# intro_city_select
+
+if $ARGS[0] = 'start':
+	ml_update_1 = 1
+	birthyear = 1999
+	yearlefttemp = 1
+
+	if player_avatar = 0:
+		birthmonth = 4
+		birthday = 1
+		pcs_haircol = 1
+		pcs_eyesize = 2
+		pcs_lip = 1
+		pcs_lashes = 1
+	end
+
+!!	Body
+	pcs_hgt = 170
+	salo = 80
+	dick = 0
+	pcs_energy = 60
+	pcs_hydra = 60
+	pcs_sleep = 70
+!!	Stats
+	pcs_stren = 30
+	strenbuf = 10
+	pcs_agil = 30
+	agilbuf = 10
+	pcs_vital = 30
+	vitalbuf = 10
+	pcs_intel = 30
+	pcs_sprt = 30
+	pcs_react = 30
+	pcs_chrsm = 30
+	pcs_prcptn = 30
+	pcs_magik = 0
+
+	pcs_heels = 5
+	pcs_makupskl = 20
+	pcs_pubes = 30
+	pcs_leghair = 12
+	pcs_makeup = 1
+
+	money = 2000
+	prezikProver = 3
+	brothersawpirsF = 0
+	dynamic $currentpursetype + '_purses[<<currentpursenumber>>] = 1'
+
+	!!Default Names
+	$pcs_firstname = 'Svetlana'
+	$pcs_lastname = 'Lebedev'
+	$pcs_nickname = 'Sveta'
+
+	!!Player names are set here
+	$temp_firstname = '<<$pcs_firstname>>'
+	$pcs_firstname = input("What is your first name? (Leave blank for Svetlana)")
+	if $pcs_firstname = '':$pcs_firstname = '<<$temp_firstname>>'
+	killvar '$temp_firstname'
+
+	$temp_lastname = '<<$pcs_lastname>>'
+	$pcs_lastname = input("What is your family name? (Leave blank for Lebedev)")
+	if $pcs_lastname = '':$pcs_lastname = '<<$temp_lastname>>'
+	killvar '$temp_lastname'
+
+	$temp_nickname = '<<$pcs_nickname>>'
+	$pcs_nickname = input("What is your nickname? (Leave blank for Sveta)")
+	if $pcs_nickname = '':$pcs_nickname = '<<$temp_nickname>>'
+	killvar '$temp_nickname'
+
+	gs 'npcstatic1'
+	gs 'npcstatic2'
+	gs 'npcstatic3'
+	gs 'npcstatic4'
+	gs 'npcstatic5'
+
+	$pcs_dna = func('dna','generate',$npc_dna['A29'],$npc_dna['A35'])
+
+	home_owned[2] = 1
+	gs 'set_home', 2
+
+	killvar 'class_list_institution'
+	killvar 'class_list_name'
+
+	'<center><img <<$set_imgh>> src="images/system/1_openings/shared/pre_1.jpg"></center>'
+	'Your name is <<$pcs_firstname>> <<$pcs_lastname>>, friends and family often calling you <<$pcs_nickname>>. Your mother''s name is <<$npc_firstname[''A29'']>> and your biological father left when you were a baby. Your mother married your stepfather, <<$npc_firstname[''A28'']>>, shortly afterwards. <<$npc_firstname[''A33'']>> is your older sister. She is two years older than you and is still living at home while working at the local grocery store. She chose not to attend university and instead spends most of her free time drinking with her friends and going to parties, much to your mother''s dismay. You also have a younger half-brother, <<$npc_firstname[''A34'']>>, who is really into sports, especially football, and is shaping up to be a fine athlete. He is a year younger than you and his father is your stepfather.'
+
+	act 'Re-enter name/s': gt 'intro_city_select', 'SGStart'
+	act 'Continue':	gt 'intro_city_select', 'SGStart2'
+end
+
+if $ARGS[0] = 'SGStart2':
+	$locM = 'intro_city_select'
+	$loc_argsM = 'SGStart2'
+!!make sure this image shows up above the text that shows your birthday
+	!date_toggle = args[1]
+	'<center><img <<$set_imgh>> src="images/system/1_openings/shared/pre_2.jpg"></center>'
+	if birthday < 10 and birthmonth < 10:
+		$startdob = 'Your birthday: <B>0<<birthmonth>>/0<<birthday>>/<<birthyear>></B> (MM/DD/YYYY)'
+	elseif birthday < 10 and birthmonth >= 10:
+		$startdob = 'Your birthday: <B><<birthmonth>>/0<<birthday>>/<<birthyear>></B> (MM/DD/YYYY)'
+	elseif birthday >= 10 and birthmonth < 10:
+		$startdob = 'Your birthday: <B>0<<birthmonth>>/<<birthday>>/<<birthyear>></B> (MM/DD/YYYY)'
+	elseif birthday >= 10 and birthmonth >= 10:
+		$startdob = 'Your birthday: <B><<birthmonth>>/<<birthday>>/<<birthyear>></B> (MM/DD/YYYY)'
+	end
+
+	'<a href="exec:gt ''intro_customization'', ''birthday''"><<$startdob>></a>.'
+
+	act 'Confirm':
+		cls
+		killvar '$startdob'
+		gt 'intro_city_select', 'charselect'
+	end
+end
+
+if $ARGS[0] = 'charselect':
+	killvar '$locM'
+	killvar '$loc_argsM'
+	*clr & cla
+	'<center><img <<$set_imgh>> src="images/system/1_openings/shared/pre_4.jpg"></center>'
+	'Select your personality/social group. Your social group will have a major defining impact upon your life in school and will determine your starting friends, starting traits and overall look. While you can always change groups later on, it takes time and effort, so choose wisely. Your five choices of social group are.'
+	*nl
+	'Nerds, geeks and good students. - These students tend to do well in school and are well liked by teachers and other adults and your parents will also be more proud of you. They tend to not have many friends outside of their own social group, however, and are also sometimes picked on or bullied. They are subpar athletically and place less value on looks and social skills than other cliques.'
+	*nl
+	'Jocks and natural athletes. - These students are gifted in their chosen sport and are very athletically inclined. This means that they tend to be fit and in good shape, often making them better looking than many of the other students. They get along with other jocks and are respected by the cool kids of the school while being feared by the nerds, geeks and losers. They don''t value academic achievements and can come into conflict with the gopniks and other troublemakers.'
+	*nl
+	'The popular, cool and beautiful. - These students are typically socially-gifted and are often blessed with natural good looks. They are envied by many because of this, and most other kids want to be their friends. More than any of the other cliques, they have the ability to ruin someone''s reputation and make them social outcasts, which earns them the fear of many students. Being cool and good looking is all they value, so they tend to be subpar athletically and academically.'
+	*nl
+	'Gopniks, rebels, punks and troublemakers. - These students don''t play by the rules and, in fact, will often happily piss on them if given half a chance. They are in decent shape from all of their fighting and troublemaking, but their predilection for drinking, smoking and drugs often counteracts this to a point. They are not the most well-liked students; teachers and parents alike take a dim view of them, as does the local police. Most other students fear them, either from the years of bullying or from the gopniks'' willingness to fight. Some students secretly envy their carefree attitude and apparent ability to sneer and wave off many of the social pitfalls that other students face.'
+	*nl
+	'Losers, teachers'' pets, sluts and the ugly. - These students are the outcasts - the kids no one likes to spend time with, other than to pick on or bully them. Perhaps they are just socially awkward and never made many friends, broke one of the unwritten social school rules, are ugly, a snitch, a slut and/or an outed gay boy. Either way, they all have one thing in common: they are easy targets to bully and mock.'
+
+	act 'Full custom setup': gt 'intro_customization', 'start'
+
+	act 'Nerd, Geek, Student':
+		*clr & cla
+		gs 'intro_city_select', 'nerdinfo'
+		act 'I am the Queen of the Nerds!': gt 'intro_city_select', 'nerdqueen'
+		act 'I am a good student': gt 'intro_city_select', 'goodstudent'
+		act 'I am a computer geek': gt 'intro_city_select', 'computergeek'
+		act 'I am an avid chess player': gt 'intro_city_select', 'chessplayer'
+
+	end
+
+	act 'Athlete, Jock':
+		*clr & cla
+		gs 'intro_city_select', 'jockinfo'
+		act 'Avid volleyball player': gt 'intro_city_select', 'volleyball'
+		act 'Avid dancer': gt 'intro_city_select', 'dancer'
+		act 'Avid runner': gt 'intro_city_select', 'runner'
+		act 'Avid football player.': gt 'intro_city_select', 'football'
+	end
+
+	act 'Popular, Cool, Beautiful':
+!!if we can do school uniforms gets an appropriate or borderline uniform.
+		*clr & cla
+		gs 'intro_city_select', 'popularinfo'
+		act 'I have a lot of friends': gt 'intro_city_select', 'socialite'
+		act 'I am beautiful': gt 'intro_city_select', 'beautiful'
+	end
+
+	act 'Gopnik, Rebel, Punk, Troublemaker':
+!!If you can do uniforms then they can choose inappropriate or borderline
+!!can pick 1-3 tattoos at start
+		*clr & cla
+		gs 'intro_city_select', 'gopnikinfo'
+		act 'A gopnik': gt 'intro_city_select', 'gopnikstart'
+		act 'A punk or troublemaker': gt 'intro_city_select', 'troublemaker'
+		act '<<$npc_nickname[''A9'']>>''s girlfriend':  gt 'intro_city_select', 'vitekgf'
+		act 'An alternative, party girl or rebel': gt 'intro_city_select', 'alternative'
+	end
+
+	act 'Outcast, Loser, Goth, Ugly':
+		*clr & cla
+		gs 'intro_city_select', 'outcastinfo'
+		act 'I have no friends': gt 'intro_city_select', 'friendless'
+		act 'I am an ugly duckling': gt 'intro_city_select', 'uglyduckling'
+		act 'I am a good girl': gt 'intro_city_select', 'goodgirl'
+		act 'I am a slut': gt 'intro_city_select', 'slut'
+		act 'I am the resident goth': gt 'intro_city_select', 'goth'
+	end
+
+	act 'Random personality':
+!! This allows the player to select a random personality.
+		*clr & cla
+		persrand = rand(0, 18)
+		if persrand <= 3:
+		!! Nerd
+			gs 'intro_city_select', 'nerdinfo'
+			if persrand = 0:
+				killvar 'persrand'
+				gs 'intro_city_select', 'nerdqueen'
+			elseif persrand = 1:
+				killvar 'persrand'
+				gs 'intro_city_select', 'goodstudent'
+			elseif persrand = 2:
+				killvar 'persrand'
+				gs 'intro_city_select', 'computergeek'
+			elseif persrand = 3:
+				killvar 'persrand'
+				gs 'intro_city_select', 'chessplayer'
+			end
+		elseif persrand <= 7:
+		!! Jock
+			gs 'intro_city_select', 'jockinfo'
+			if persrand = 4:
+				killvar 'persrand'
+				gs 'intro_city_select', 'volleyball'
+			elseif persrand = 5:
+				killvar 'persrand'
+				gs 'intro_city_select', 'dancer'
+			elseif persrand = 6:
+				killvar 'persrand'
+				gs 'intro_city_select', 'runner'
+			elseif persrand = 7:
+				killvar 'persrand'
+				gs 'intro_city_select', 'football'
+			end
+		elseif persrand <= 9:
+		!! Popular
+			gs 'intro_city_select', 'popularinfo'
+			if persrand = 8:
+				killvar 'persrand'
+				gs 'intro_city_select', 'socialite'
+			elseif persrand = 9:
+				killvar 'persrand'
+				gs 'intro_city_select', 'beautiful'
+			end
+		elseif persrand <= 13:
+		!! Gopnik
+			gs 'intro_city_select', 'gopnikinfo'
+			if persrand = 10:
+				killvar 'persrand'
+				gs 'intro_city_select', 'gopnikstart'
+			elseif persrand = 11:
+				killvar 'persrand'
+				gs 'intro_city_select', 'troublemaker'
+			elseif persrand = 12:
+				killvar 'persrand'
+				gs 'intro_city_select', 'vitekgf'
+			elseif persrand = 13:
+				killvar 'persrand'
+				gs 'intro_city_select', 'alternative'
+			end
+		elseif persrand <= 18:
+		!! Outcast
+			gs 'intro_city_select', 'outcastinfo'
+			if persrand = 14:
+				killvar 'persrand'
+				gs'intro_city_select', 'friendless'
+			elseif persrand = 15:
+				killvar 'persrand'
+				gs 'intro_city_select', 'uglyduckling'
+			elseif persrand = 16:
+				killvar 'persrand'
+				gs 'intro_city_select', 'goodgirl'
+			elseif persrand = 17:
+				killvar 'persrand'
+				gs 'intro_city_select', 'slut'
+			elseif persrand = 18:
+				killvar 'persrand'
+				gs 'intro_city_select', 'goth'
+			end
+		end
+	end
+end
+
+if $ARGS[0] = 'nerdinfo':
+	'<center><h4><font color="maroon">Nerd</font></h4></center>'
+	'<center><img <<$set_imgh>> src="images/system/1_openings/2_sg/nerd_0.jpg"></center>'
+	'While you were growing up, you spent virtually all of your free time at home, pursuing various cerebral pursuits. These might have included reading comics, fantasy or sci-fi books, learning about chess or computers or playing cards, board games, or RPGs with the other nerds in addition to faithfully going to school. While you have gained a huge amount of knowledge from this, your lack of interest in exercising as a child has left your body a little frail.'
+	*nl
+	'The long nights of trying to read in poor light have taken a toll on your eyesight as well, and you now need glasses to be able to read. Your cerebral pursuits have also had somewhat of a negative impact on your friendship with <<$npc_firstname[''A11'']>>: as you grew up. He became a gopnik and the two of you slowly started hanging out less and less, although you still consider each other to be friends. On the plus side, doing well in school has made your parents happy and has left you with some extra spending money as a reward for your hard work. Now...'
+	*nl
+end
+
+if $ARGS[0] = 'jockinfo':
+	'<center><h4><font color="maroon">Jock</font></h4></center>'
+	'<center><img <<$set_imgh>> src="images/system/1_openings/2_sg/jock_0.jpg"></center>'
+	'While you were growing up, you spent virtually all of your free time outdoors. You loved playing sports, running, biking, horseback riding, hiking and most other outdoor activities. This has kept you in fairly good shape as well as decently socially active in a variety of team sports over the years. Doing this, however, negatively impacted your friendship with <<$npc_firstname[''A11'']>> somewhat. As you grew up, he became a gopnik and the two of you slowly started hanging out less and less, though you still consider each other to be friends. From all the sports available, you are an...'
+	*nl
+end
+
+if $ARGS[0] = 'popularinfo':
+	'<center><h4><font color="maroon">Popular</font></h4></center>'
+	'<center><img <<$set_imgh>> src="images/system/1_openings/2_sg/popular_0.jpg"></center>'
+	'You spent most of your childhood outdoors, playing with other girls and boys. As a result, you''re quite healthy. You''re also pretty strong verbally, with a keen understanding about how to get yourself out of trouble (or shifting the blame to someone else). You were never very interested in school or sports, however, and are only a sub-par student. Your popularity has negatively impacted your relationship with <<$npc_firstname[''A11'']>> somewhat, and you are not as close as you once were. Now...'
+	*nl
+end
+
+if $ARGS[0] = 'gopnikinfo':
+	'<center><h4><font color="maroon">Gopnik</font></h4></center>'
+	'<center><img <<$set_imgh>> src="images/system/1_openings/2_sg/gopnik_0.jpg"></center>'
+	'You spent most of your childhood outdoors, playing with the other girls and boys. As a result, you''re quite healthy. As you got older you lost any interest you might have once had with fitting in - now you do your own thing, and you’’re ready to tell anyone where they can stick it if they have a problem with that.'
+	'As you and <<$npc_firstname[''A11'']>> walked a similar path, your bond of friendship only deepened. This has had some repercussions on your school performance; you''re a sub-par student. It has also had some less enjoyable consequences leading you into more than your fair share of fights, into all sorts of problems at home, landing you in trouble and often punished at school, and even into a few run-ins with the local police. Now most consider you...'
+	*nl
+end
+
+if $ARGS[0] = 'outcastinfo':
+	'<center><h4><font color="maroon">Outcast</font></h4></center>'
+	'<center><img <<$set_imgh>> src="images/system/1_openings/2_sg/outcast_0.jpg"></center>'
+	'You never really fit in. You’’re just one of those individuals who, by choice or circumstance, never really clicked with the other kids. As you got older things only got worse, and now you are seen as an outcast. This breaks one of the most important social rules among your peers, and you are now considered in the same vein as sluts, losers, gay boys and the like.'
+	'Being an outcast has also had a somewhat negative impact on your friendship with <<$npc_firstname[''A11'']>>. As you grew up, he became a gopnik and the two of you slowly started hanging out less and less, although you still consider each other to be friends - if just barely. You have no other real friends, and you get bullied and made fun of all the time because...'
+	*nl
+end
+
+if $ARGS[0] = 'nerd':
+	pcs_tan = 0
+	pcs_gaming = 20
+	if player_avatar ! 1: pcs_haircol = 1
+	if player_avatar ! 1: pcs_eyecol = 0
+	fantasybook = 5
+	grupTipe=3
+	money += 3000
+	shampoo = 20
+	if player_avatar = 0:
+		pcs_eyesize = 1
+		pcs_lip = 1
+		pcs_lashes = 0
+	end
+	pcs_skin = 20
+	pcs_inhib = 10
+	pcs_heels = 10
+	pcs_makupskl = 15
+	gs 'npc_relationship', 'socialgroup_setting', -10, 0, 25, 0, 5, 20
+	npc_rel['A129'] += 10
+	npc_rel['A28'] += 10
+	npc_rel['A29'] += 10
+	grupvalue[1] = 200
+	grupvalue[2] = 100
+	grupvalue[3] = 700
+	grupvalue[4] = 100
+	grupvalue[6] = 600
+	genbsize = 22
+	traits['nerd_points'] = 60
+	traits['nerd_status'] = 2
+	traits['nerd_lernHome'] = 5
+end
+
+if $ARGS[0] = 'nerdqueen':
+	'<center><h4><font color="maroon">Queen of the nerds</font></h4></center>'
+	'<center><img <<$set_imgh>> src="images/system/1_openings/2_sg/nerd_1.jpg"></center>'
+	'While you love all things nerdy or geeky, what you love the most is hanging out with your fellow nerds and doing nerdy things together. This has made you fairly social for a nerd and more general in your areas of knowledge. As you got older and started to develop as a girl, it also made you much more aware of your sexuality than most nerds are comfortable with. As such, you cultivated that awareness more than most and are now more at ease with your body than most of the other nerds. By the usual nerd standards you are confident, dynamic and attractive. This has lead to you being the leader of your group of friends, and you are more acceptable to other social groups as a result, especially the cool kids who seem to respect your social skills and looks.'
+	act 'Select another': gt 'intro_city_select', 'charselect'
+	act 'Confirm this option':
+		gs 'intro_city_select', 'nerd'
+		alterstrtimg = 8
+		pcs_intel = 40
+		pcs_chrsm = 40
+		pcs_sprt = 40
+		pcs_icesktng = 10
+		pcs_humint = 10
+		pcs_persuas = 10
+		pcs_makupskl = 30
+		pcs_inhib = 20
+		pcs_heels = 25
+		pirsC = 2
+		PirsC2_owned = 1
+		$currentpursetype = 'fashionista'
+		currentpursenumber = 13
+		fashionista_purses[13] = 1
+		bag = 1
+		gs 'npc_relationship', 'socialgroup_setting', 10, 5, 10, 5, 5, 5
+		npc_rel['A18'] = 1
+!!make sure this coming after the gs code above will still set christina to a 1 relationship, if I did this code correctly, if not look for this code in other spots and fix it pls
+		grupvalue[1] = 300
+		grupvalue[3] = 800
+		grupvalue[6] = 700
+		kosmetica = 10
+		stanok = 10
+		if player_avatar = 0:
+			pcs_hairlng = 300
+			pcs_eyesize = 3
+			pcs_lip = 2
+			pcs_lashes = 1
+		end
+		pcs_skin = 50
+		genbsize = 17
+		salo = 87
+		willpowermax = 90
+		gs 'grades', 'grade_award', 'school', 'math', 75
+		gs 'grades', 'grade_award', 'school', 'rus', 90
+		gs 'grades', 'grade_award', 'school', 'lit', 80
+		gs 'grades', 'grade_award', 'school', 'art', 75
+		gs 'grades', 'grade_award', 'school', 'bio', 75
+		gs 'grades', 'grade_award', 'school', 'pe', 70
+		gs 'grades', 'grade_award', 'school', 'eng', 80
+		gs 'grades', 'grade_award', 'school', 'geo', 75
+		gs 'grades', 'grade_award', 'school', 'sci', 75
+		gs 'grades', 'grade_award', 'school', 'shop', 55
+		gs 'grades', 'grade_award', 'school', 'comp', 75
+		gs 'grades', 'grade_award', 'school', 'mus', 75
+		gs 'grades', 'grade_award', 'school', 'his', 75
+		gt $loc, $loc_args
+	end
+end
+
+if $ARGS[0] = 'goodstudent':
+	'<center><h4><font color="maroon">Good student</font></h4></center>'
+	'<center><img <<$set_imgh>> src="images/system/1_openings/2_sg/nerd_2.jpg"></center>'
+	'You just love school, and your grades are more than good enough to attend the university of your choosing after graduation - all you have to do is not let your grades slip. You have always tried to absorb every bit of knowledge possible and have done everything you could to excel in school. While this attitude has gained you a lot of respect from the other nerds, it did not earn you a lot of friends and you never found the time for sports. You are often asked to be a tutor and sometimes find yourself forced to do others'' homework for them. You have excellent grades, and your mother is very proud of you. She has shown her appreciation for your hard work by rewarding you with money.'
+	act 'Select another': gt 'intro_city_select', 'charselect'
+	act 'Confirm this option':
+		gs 'intro_city_select', 'nerd'
+		traits['nerd_points'] = 100
+		traits['nerd_status'] = 3
+		alterstrtimg = 9
+		if glass < 1 : glass = 1
+		pcs_intel = 50
+		pcs_instrmusic = 10
+		pcs_artskls = 10
+		money += 2000
+		pcs_skin = 20
+		salo = 115
+		grupvalue[3] = 750
+		grupvalue[6] = 700
+		gs 'npc_relationship', 'socialgroup_setting', 0, 0, 5, 0, 0, 0
+		npc_rel['A29'] += 20
+		if player_avatar ! 1: pcs_hairlng = 200
+		willpowermax = 80
+		gs 'grades', 'grade_award', 'school', 'math', 90
+		gs 'grades', 'grade_award', 'school', 'rus', 90
+		gs 'grades', 'grade_award', 'school', 'lit', 90
+		gs 'grades', 'grade_award', 'school', 'art', 90
+		gs 'grades', 'grade_award', 'school', 'bio', 90
+		gs 'grades', 'grade_award', 'school', 'pe', 55
+		gs 'grades', 'grade_award', 'school', 'eng', 90
+		gs 'grades', 'grade_award', 'school', 'geo', 90
+		gs 'grades', 'grade_award', 'school', 'sci', 90
+		gs 'grades', 'grade_award', 'school', 'shop', 55
+		gs 'grades', 'grade_award', 'school', 'comp', 90
+		gs 'grades', 'grade_award', 'school', 'mus', 90
+		gs 'grades', 'grade_award', 'school', 'his', 90
+		gt $loc, $loc_args
+	end
+end
+
+if $ARGS[0] = 'computergeek':
+	'<center><h4><font color="maroon">Computer geek</font></h4></center>'
+	'<center><img <<$set_imgh>> src="images/system/1_openings/2_sg/nerd_3.jpg"></center>'
+	'You were always into computers, whether it be by playing video games, taking computers apart or learning programing and even hacking. You love everything about computers, but this passion left you little time to make friends - real-life friends, at least. You have managed to befriend many online players that you talk to while you play various video games, however, and you rarely spend any time outdoors, nor money on clothes or other girly stuff. You are far more interested in saving your money for a better computer in order to play even better games. You have considered hosting a web series of video games or vlogs - you even took the time to learn how to video edit - but you aren’’t sure if you want to put yourself out there like that.'
+	act 'Select another': gt 'intro_city_select', 'charselect'
+	act 'Confirm this option':
+		gs 'intro_city_select', 'nerd'
+		alterstrtimg = 10
+		if glass < 1 : glass = 1
+		pcs_intel = 55
+		pcs_compskl = 40
+		pcs_comphckng = 20
+		pcs_gaming = 30
+		internet = 20
+		pcs_skin = 30
+		salo = 38
+		pcs_inhib = 20
+		npc_rel['A152'] += 10
+		npc_rel['A153'] += 10
+		npc_rel['A142'] += 15
+		npc_rel['A129'] += 10
+		komp = 1
+		if player_avatar ! 1: pcs_hairlng = 120
+		willpowermax = 90
+		gs 'grades', 'grade_award', 'school', 'math', 90
+		gs 'grades', 'grade_award', 'school', 'rus', 85
+		gs 'grades', 'grade_award', 'school', 'lit', 85
+		gs 'grades', 'grade_award', 'school', 'art', 85
+		gs 'grades', 'grade_award', 'school', 'bio', 85
+		gs 'grades', 'grade_award', 'school', 'pe', 65
+		gs 'grades', 'grade_award', 'school', 'eng', 85
+		gs 'grades', 'grade_award', 'school', 'geo', 85
+		gs 'grades', 'grade_award', 'school', 'sci', 85
+		gs 'grades', 'grade_award', 'school', 'shop', 55
+		gs 'grades', 'grade_award', 'school', 'comp', 95
+		gs 'grades', 'grade_award', 'school', 'mus', 85
+		gs 'grades', 'grade_award', 'school', 'his', 85
+		gt $loc, $loc_args
+	end
+end
+
+if $ARGS[0] = 'chessplayer':
+	'<center><h4><font color="maroon">Avid chess player</font></h4></center>'
+	'<center><img <<$set_imgh>> src="images/system/1_openings/2_sg/nerd_4.jpg"></center>'
+	'You were always into chess as a child, and you have studied all the great chess masters. You can even name them all as well as their favorite strategies! You find nothing more interesting than matching your wits against someone else’’s in a game of chess. It has left you with the ability to often see the consequences of your actions better than most as you are used to looking several moves ahead. All of this has left you with little time to make many friends, and you rarely spend any time outdoors.'
+	act 'Select another': gt 'intro_city_select', 'charselect'
+	act 'Confirm this option':
+		gs 'intro_city_select', 'nerd'
+		alterstrtimg = 11
+		pcs_intel = 55
+		pcs_prcptn = 40
+		pcs_react = 40
+		pcs_chess = 40
+		pcs_skin = 35
+		salo = 120
+		pcs_inhib = 15
+		chessyear = year
+		chessmonth = month
+		npc_rel['A151'] += 20
+		if player_avatar ! 1: pcs_hairlng = 200
+		willpowermax = 90
+		gs 'grades', 'grade_award', 'school', 'math', 90
+		gs 'grades', 'grade_award', 'school', 'rus', 90
+		gs 'grades', 'grade_award', 'school', 'lit', 90
+		gs 'grades', 'grade_award', 'school', 'art', 85
+		gs 'grades', 'grade_award', 'school', 'bio', 85
+		gs 'grades', 'grade_award', 'school', 'pe', 55
+		gs 'grades', 'grade_award', 'school', 'eng', 85
+		gs 'grades', 'grade_award', 'school', 'geo', 85
+		gs 'grades', 'grade_award', 'school', 'sci', 85
+		gs 'grades', 'grade_award', 'school', 'shop', 55
+		gs 'grades', 'grade_award', 'school', 'comp', 85
+		gs 'grades', 'grade_award', 'school', 'mus', 80
+		gs 'grades', 'grade_award', 'school', 'his', 85
+		gt $loc, $loc_args
+	end
+end
+
+if $ARGS[0] = 'jock':
+	pcs_sprt = 40
+	pcs_stren = 40
+	pcs_vital = 40
+	pcs_react = 40
+	pcs_agil = 40
+	genbsize = 17
+	kosmetica = 10
+	stanok = 10
+	shampoo = 20
+	tampon = 20
+	pcs_run = 20
+	pcs_bushcraft = 5
+	pcs_ftbll = 10
+	pcs_vball = 10
+	pcs_danc = 10
+	pcs_icesktng = 20
+	pcs_humint = 10
+	pcs_makupskl = 30
+	pcs_heels = 20
+	pcs_inhib = 20
+	swim_start = 1
+	pirsC = 1
+	PirsC1_owned = 1
+	$currentpursetype = 'fashionista'
+	currentpursenumber = 11
+	fashionista_purses[11] = 1
+	bag = 1
+	grupvalue[1] = 400
+	grupvalue[2] = 700
+	grupvalue[3] = 100
+	grupvalue[4] = 300
+	grupvalue[6] = 200
+	gs 'npc_relationship', 'socialgroup_setting', 10, 25, -5, 0, -10, 0
+	npc_rel['A129'] -= 10
+	npc_rel['A18'] = 1
+	hscrunch = 10
+	hscrunchw = 0
+	pcs_tan = 20
+	if player_avatar = 0:
+		pcs_hairlng = 55
+		pcs_haircol = 3
+		pcs_eyecol = 3
+		pcs_eyesize = 3
+		pcs_lip = 2
+		pcs_lashes = 1
+	end
+	npc_rel['A34'] += 10
+	grupTipe=2
+end
+
+if $ARGS[0] = 'volleyball':
+	'<center><h4><font color="maroon">Volleyball player</font></h4></center>'
+	'<center><img <<$set_imgh>> src="images/system/1_openings/2_sg/jock_1.jpg"></center>'
+	'Ever since the first time you played volleyball, you have been in love with the sport. You spent a lot of your free time trying to improve your ability, and it paid off; you''re actually quite good now! Your obsession with volleyball, however, has had some repercussions on your school performance. You''re a sub-par student, and you haven''t made many friends other than your fellow jocks. You are especially close with <<$npc_firstname[''A13'']>> and your coach.'
+	act 'Select another': gt 'intro_city_select', 'charselect'
+	act 'Confirm this option':
+		gs 'intro_city_select', 'jock'
+		alterstrtimg = 12
+		pcs_react = 50
+		pcs_vital = 50
+		pcs_stren = 45
+		pcs_agil = 50
+		pcs_skin = 50
+		salo = 68
+		pcs_vball = 50
+		gsAboVolley += 30
+		npc_rel['A13'] += 10
+		npc_rel['A69'] += 10
+		willpowermax = 140
+		school_clothing = 7
+		gs 'grades', 'grade_award', 'school', 'math', 55
+		gs 'grades', 'grade_award', 'school', 'rus', 55
+		gs 'grades', 'grade_award', 'school', 'lit', 55
+		gs 'grades', 'grade_award', 'school', 'art', 55
+		gs 'grades', 'grade_award', 'school', 'bio', 55
+		gs 'grades', 'grade_award', 'school', 'pe', 95
+		gs 'grades', 'grade_award', 'school', 'eng', 55
+		gs 'grades', 'grade_award', 'school', 'geo', 55
+		gs 'grades', 'grade_award', 'school', 'sci', 55
+		gs 'grades', 'grade_award', 'school', 'shop', 55
+		gs 'grades', 'grade_award', 'school', 'comp', 55
+		gs 'grades', 'grade_award', 'school', 'mus', 55
+		gs 'grades', 'grade_award', 'school', 'his', 55
+		gt $loc, $loc_args
+	end
+end
+
+if $ARGS[0] = 'dancer':
+	'<center><h4><font color="maroon">Avid dancer</font></h4></center>'
+	'<center><img <<$set_imgh>> src="images/system/1_openings/2_sg/jock_2.jpg"></center>'
+	'You fell in love with dancing at an early age and never looked back. You spent a lot of your free time trying to improve your skills, and it paid off; you''re actually quite good now! <<$npc_firstname[''A11'']>> helpfully pointed out that an added benefit of dance was a greater increase in your flexibility (that is, of course, typical of <<$npc_firstname[''A11'']>>). Your obsession with dancing, however, has had some repercussions on your school performance. You''re a sub-par student, and you haven''t made many friends other than your fellow jocks.'
+	*nl
+	'You are particularly close with <<$npc_firstname[''A23'']>>, who is just as passionate about dancing as you are. You trained a lot together as children and have a mutual respect for each other''s abilities.'
+	act 'Select another': gt 'intro_city_select', 'charselect'
+	act 'Confirm this option':
+		gs 'intro_city_select', 'jock'
+		alterstrtimg = 13
+		pcs_sprt = 45
+		pcs_vital = 50
+		pcs_react = 50
+		pcs_agil = 55
+		pcs_chrsm = 35
+		pcs_perform = 35
+		pcs_makupskl = 40
+		pcs_skin = 80
+		pcs_tan = 5
+		salo = 50
+		genbsize = 12
+		if player_avatar = 0:
+			pcs_hairlng = 200
+			pcs_eyesize = 2
+			pcs_lip = 2
+			pcs_lashes = 1
+		end
+		pcs_skin = 60
+		pcs_danc = 50
+		pcs_heels = 30
+		pcs_inhib = 25
+		pcs_makupskl = 35
+		gsAboDance += 30
+		gs 'npc_relationship', 'socialgroup_setting', 5, 0, 0, -5, 0, 0
+		npc_rel['A23'] += 25
+		npc_rel['A144'] += 10
+		grupvalue[1] = 500
+		willpowermax = 140
+		school_clothing = 7
+		gs 'grades', 'grade_award', 'school', 'math', 55
+		gs 'grades', 'grade_award', 'school', 'rus', 55
+		gs 'grades', 'grade_award', 'school', 'lit', 55
+		gs 'grades', 'grade_award', 'school', 'art', 55
+		gs 'grades', 'grade_award', 'school', 'bio', 55
+		gs 'grades', 'grade_award', 'school', 'pe', 95
+		gs 'grades', 'grade_award', 'school', 'eng', 55
+		gs 'grades', 'grade_award', 'school', 'geo', 55
+		gs 'grades', 'grade_award', 'school', 'sci', 55
+		gs 'grades', 'grade_award', 'school', 'shop', 55
+		gs 'grades', 'grade_award', 'school', 'comp', 55
+		gs 'grades', 'grade_award', 'school', 'mus', 80
+		gs 'grades', 'grade_award', 'school', 'his', 55
+		gt $loc, $loc_args
+	end
+end
+
+if $ARGS[0] = 'runner':
+	'<center><h4><font color="maroon">Track runner</font></h4></center>'
+	'<center><img <<$set_imgh>> src="images/system/1_openings/2_sg/jock_3.jpg"></center>'
+	'Ever since you first tried track, you have been in love with the sport. When you’re running, the rest of the world fades away and you experience a natural high like no other. You spent a lot of your free time trying to get better at it, and it paid off; you''re actually quite good now! Your obsession with running, however, has had some repercussions on your school performance. You''re a sub-par student, and you haven''t made many friends other than your fellow jocks and your coach.'
+	act 'Select another': gt 'intro_city_select', 'charselect'
+	act 'Confirm this option':
+		gs 'intro_city_select', 'jock'
+		alterstrtimg = 14
+		pcs_vital = 60
+		pcs_agil = 50
+		pcs_stren = 45
+		pcs_inhib = 25
+		salo = 58
+		pcs_skin = 40
+		genbsize = 12
+		pcs_run = 50
+		gsAboBeg += 30
+		npc_rel['A3'] += 10
+		npc_rel['A5'] += 10
+		npc_rel['A8'] += 5
+		npc_rel['A18'] = 1
+		npc_rel['A131'] += 10
+		grupvalue[2] = 750
+		willpowermax = 140
+		school_clothing = 7
+		gs 'grades', 'grade_award', 'school', 'math', 55
+		gs 'grades', 'grade_award', 'school', 'rus', 55
+		gs 'grades', 'grade_award', 'school', 'lit', 55
+		gs 'grades', 'grade_award', 'school', 'art', 55
+		gs 'grades', 'grade_award', 'school', 'bio', 75
+		gs 'grades', 'grade_award', 'school', 'pe', 95
+		gs 'grades', 'grade_award', 'school', 'eng', 55
+		gs 'grades', 'grade_award', 'school', 'geo', 55
+		gs 'grades', 'grade_award', 'school', 'sci', 55
+		gs 'grades', 'grade_award', 'school', 'shop', 55
+		gs 'grades', 'grade_award', 'school', 'comp', 55
+		gs 'grades', 'grade_award', 'school', 'mus', 55
+		gs 'grades', 'grade_award', 'school', 'his', 55
+		gt $loc, $loc_args
+	end
+end
+
+if $ARGS[0] = 'football':
+	'<center><h4><font color="maroon">Football player</font></h4></center>'
+	'<center><img <<$set_imgh>> src="images/system/1_openings/2_sg/jock_4.jpg"></center>'
+	'Ever since your first football game, you have been in love with the sport. You spent a lot of your free time trying to get better at it, and it paid off; you''re actually quite good now! Your obsession with football has had some repercussions on your school performance, however, and you''re now a sub-par student. You haven''t made many friends other than your fellow jocks, especially <<$npc_firstname[''A149'']>> and your coach.'
+	act 'Select another': gt 'intro_city_select', 'charselect'
+	act 'Confirm this option':
+		gs 'intro_city_select', 'jock'
+		alterstrtimg = 15
+		pcs_stren = 50
+		pcs_react = 50
+		pcs_vital = 50
+		salo = 80
+		pcs_skin = 50
+		pcs_kick = 20
+		pcs_ftbll = 50
+		npc_rel['A131'] += 10
+		npc_rel['A149'] += 10
+		npc_rel['A34'] += 10
+		grupvalue[2] = 800
+		willpowermax = 140
+		$currentpursetype = 'fashionista'
+		currentpursenumber = 11
+		fashionista_purses[11] = 1
+		bag = 1
+		school_clothing = 7
+		gs 'grades', 'grade_award', 'school', 'math', 55
+		gs 'grades', 'grade_award', 'school', 'rus', 55
+		gs 'grades', 'grade_award', 'school', 'lit', 55
+		gs 'grades', 'grade_award', 'school', 'art', 55
+		gs 'grades', 'grade_award', 'school', 'bio', 55
+		gs 'grades', 'grade_award', 'school', 'pe', 95
+		gs 'grades', 'grade_award', 'school', 'eng', 55
+		gs 'grades', 'grade_award', 'school', 'geo', 55
+		gs 'grades', 'grade_award', 'school', 'sci', 55
+		gs 'grades', 'grade_award', 'school', 'shop', 55
+		gs 'grades', 'grade_award', 'school', 'comp', 55
+		gs 'grades', 'grade_award', 'school', 'mus', 55
+		gs 'grades', 'grade_award', 'school', 'his', 55
+		gt $loc, $loc_args
+	end
+end
+
+if $ARGS[0] = 'cool':
+	pcs_sprt = 40
+	pcs_chrsm = 40
+	pcs_prcptn = 40
+	pcs_icesktng = 10
+	pcs_danc = 10
+	pcs_persuas = 30
+	pcs_inhib = 20
+	swim_start = 99
+	kosmetica = 20
+	shampoo = 20
+	stanok = 20
+	tampon = 20
+	money += 1000
+	grupvalue[1] = 700
+	grupvalue[2] = 300
+	grupvalue[3] = 100
+	grupvalue[4] = 200
+	grupvalue[6] = 300
+	gs 'npc_relationship', 'socialgroup_setting', 25, 15, 0, -10, -20, 0
+	npc_rel['A129'] -= 20
+	npc_rel['A144'] += 10
+	npc_rel['A18'] = 1
+	if player_avatar ! 1: pcs_haircol = 2
+	if player_avatar ! 1: pcs_eyecol = 2
+	pcs_tan = 30
+	if player_avatar = 0:
+		pcs_eyesize = 2
+		pcs_lip = 2
+		pcs_lashes = 1
+	end
+	pcs_skin = 50
+	pcs_tan = 5
+	npc_rel['A33'] += 10
+	grupTipe=1
+end
+
+if $ARGS[0] = 'socialite':
+	'<center><h4><font color="maroon">Sociable</font></h4></center>'
+	'<center><img <<$set_imgh>> src="images/system/1_openings/2_sg/popular_1.jpg"></center>'
+	'You have a ton of friends! You''re friends with all of the important kids at school, anyways, which is what really matters. You were very social growing up and enjoyed being around others, often becoming the center of attention. You have always had a knack of knowing the right thing to say at the right moment, which led to many other students wanting to be your friend. You can with a little work get along with nearly anyone if you put your mind to it.'
+	act 'Select another': gt 'intro_city_select', 'charselect'
+	act 'Confirm this option':
+		gs 'intro_city_select', 'cool'
+		alterstrtimg = 16
+		pcs_chrsm = 45
+		genbsize = 32
+		pcs_humint = 40
+		pcs_makupskl = 35
+		pcs_heels = 30
+		pcs_perform = 20
+		pirsC = 1
+		PirsC1_owned = 1
+		$currentpursetype = 'fashionista'
+		currentpursenumber = 4
+		fashionista_purses[4] = 1
+		bag = 1
+		school_clothing = 6
+		if player_avatar ! 1: pcs_hairlng = 200
+		npc_rel['A140'] += 10
+		salo = 68
+		willpowermax = 110
+		gs 'grades', 'grade_award', 'school', 'math', 65
+		gs 'grades', 'grade_award', 'school', 'rus', 90
+		gs 'grades', 'grade_award', 'school', 'lit', 65
+		gs 'grades', 'grade_award', 'school', 'art', 65
+		gs 'grades', 'grade_award', 'school', 'bio', 65
+		gs 'grades', 'grade_award', 'school', 'pe', 65
+		gs 'grades', 'grade_award', 'school', 'eng', 80
+		gs 'grades', 'grade_award', 'school', 'geo', 65
+		gs 'grades', 'grade_award', 'school', 'sci', 65
+		gs 'grades', 'grade_award', 'school', 'shop', 55
+		gs 'grades', 'grade_award', 'school', 'comp', 65
+		gs 'grades', 'grade_award', 'school', 'mus', 65
+		gs 'grades', 'grade_award', 'school', 'his', 65
+		gt $loc, $loc_args
+	end
+end
+
+if $ARGS[0] = 'beautiful':
+	'<center><h4><font color="maroon">Beautiful</font></h4></center>'
+	'<center><img <<$set_imgh>> src="images/system/1_openings/2_sg/popular_2.jpg"></center>'
+	'You might not be the smartest and you might not be the most social or have the toughest attitude - but what you do have are natural good looks. That’s not something you can earn! You blossomed earlier than most girls and the boys took note, especially <<$npc_firstname[''A11'']>>, who started acting differently around you. You know he is attracted to you, but who can blame him? After all, you''re fairly certain that all of the boys (and even some of the girls) lust after you either openly or secretly. As you got older your looks only improved, and you are often considered one of the best looking girls in the room wherever you go. You are especially popular with the cool kids and jocks.'
+	act 'Select another': gt 'intro_city_select', 'charselect'
+	act 'Confirm this option':
+		gs 'intro_city_select', 'cool'
+		alterstrtimg = 17
+		pcs_humint = 20
+		pcs_makupskl = 50
+		pcs_heels = 40
+		if player_avatar = 0:
+			pcs_hairlng = 300
+			pcs_eyesize = 2
+			pcs_lip = 3
+			pcs_lashes = 2
+		end
+		school_clothing = 6
+		pcs_skin = 70
+		pcs_tan = 50
+		genbsize = 37
+		pcs_inhib = 25
+		kosmetica = 50
+		falselashesplain = 10
+		falselashesmink = 2
+		$currentpursetype = 'fashionista'
+		currentpursenumber = 9
+		fashionista_purses[9] = 1
+		bag = 1
+		gs 'obj_din', 'old'
+		greben = 1
+		kosmetitka = 10
+		krem = 10
+		pirsC = 2
+		PirsC2_owned = 1
+		gs 'npc_relationship', 'socialgroup_setting_boys', 10, 10, 10, 10, 10, 0
+		salo = 63
+		grupvalue[1] = 800
+		grupvalue[4] = 300
+		gs 'fame', 'pav', 'sex', 20
+		willpowermax = 110
+		gs 'grades', 'grade_award', 'school', 'math', 60
+		gs 'grades', 'grade_award', 'school', 'rus', 60
+		gs 'grades', 'grade_award', 'school', 'lit', 60
+		gs 'grades', 'grade_award', 'school', 'art', 60
+		gs 'grades', 'grade_award', 'school', 'bio', 60
+		gs 'grades', 'grade_award', 'school', 'pe', 60
+		gs 'grades', 'grade_award', 'school', 'eng', 60
+		gs 'grades', 'grade_award', 'school', 'geo', 60
+		gs 'grades', 'grade_award', 'school', 'sci', 60
+		gs 'grades', 'grade_award', 'school', 'shop', 55
+		gs 'grades', 'grade_award', 'school', 'comp', 60
+		gs 'grades', 'grade_award', 'school', 'mus', 60
+		gs 'grades', 'grade_award', 'school', 'his', 60
+		gt $loc, $loc_args
+	end
+end
+
+if $ARGS[0] = 'gopnik':
+	pcs_sprt = 35
+	pcs_stren = 35
+	pcs_vital = 35
+	pcs_react = 35
+	pcs_agil = 35
+	genbsize = 22
+	pcs_inhib = 25
+	pcs_heels = 10
+	pcs_makupskl = 25
+	kosmetica = 10
+	shampoo = 20
+	stanok = 10
+	siga = 20
+	fakepassport = 1
+	pirsC = 1
+	PirsC1_owned = 1
+	grupvalue[1] = 100
+	grupvalue[2] = 300
+	grupvalue[3] = 100
+	grupvalue[4] = 700
+	grupvalue[6] = 100
+	gs 'npc_relationship', 'socialgroup_setting', 0, 0, -10, 25, 0, 0
+	npc_rel['A129'] -= 30
+	npc_rel['A11'] += 10
+	tampon = 20
+	pcs_run = 20
+	pcs_humint = 10
+	pcs_tan = 10
+	if player_avatar = 0:
+		pcs_hairlng = 120
+		pcs_haircol = 0
+		pcs_eyecol = 1
+		pcs_eyesize = 3
+		pcs_lip = 2
+		pcs_lashes = 1
+	end
+	pcs_skin = 40
+	pcs_vag = 1
+	pcs_throat = 1
+	stat['hj'] = 10
+	stat['bj'] = 5
+	stat['vaginal'] = 1
+	Gspassed = 0
+	gs 'fame', 'pav', 'sex', 30
+	grupTipe=4
+end
+
+if $ARGS[0] = 'gopnikstart':
+	'<center><h4><font color="maroon">Gopnik</font></h4></center>'
+	'<center><img <<$set_imgh>> src="images/system/1_openings/2_sg/gopnik_1.jpg"></center>'
+	'You are a gopnik. While you are still low in the gopnik pecking order, you have already proven yourself to them and most fully accept you as an equal. You have problems at home and school due to your antisocial behavior. This is especially true with your mother and stepfather, who see you going down the wrong path. The teachers and the police all know you''re one of the local gopniks. The jocks have a not so friendly rivalry with you and the other gopniks, while you don''t get along much, have some mutal respect for you.'
+	act 'Select another': gt 'intro_city_select', 'charselect'
+	act 'Confirm this option':
+		gs 'intro_city_select', 'gopnik'
+		gs 'npc_relationship', 'socialgroup_setting', -10, -10, -10, 20, -10, 0
+		alterstrtimg = 18
+		pcs_stren = 40
+		pcs_vital = 40
+		pcs_jab = 35
+		pcs_punch = 35
+		pcs_kick = 35
+		pcs_def = 35
+		salo = 80
+		school_clothing = 5
+		npc_rel['A9'] += 10
+		npc_rel['A10'] += 10
+		npc_rel['A11'] += 10
+		npc_rel['A20'] += 10
+		npc_rel['A21'] += 10
+		npc_rel['A24'] += 10
+		npc_rel['A28'] -= 10
+		npc_rel['A29'] -= 20
+		npc_rel['A33'] -= 10
+		npc_rel['A34'] -= 10
+		grupvalue[4] = 800
+		willpowermax = 130
+		gs 'grades', 'grade_award', 'school', 'math', 25
+		gs 'grades', 'grade_award', 'school', 'rus', 25
+		gs 'grades', 'grade_award', 'school', 'lit', 25
+		gs 'grades', 'grade_award', 'school', 'art', 25
+		gs 'grades', 'grade_award', 'school', 'bio', 25
+		gs 'grades', 'grade_award', 'school', 'pe', 80
+		gs 'grades', 'grade_award', 'school', 'eng', 25
+		gs 'grades', 'grade_award', 'school', 'geo', 25
+		gs 'grades', 'grade_award', 'school', 'sci', 25
+		gs 'grades', 'grade_award', 'school', 'shop', 80
+		gs 'grades', 'grade_award', 'school', 'comp', 25
+		gs 'grades', 'grade_award', 'school', 'mus', 25
+		gs 'grades', 'grade_award', 'school', 'his', 25
+		gt $loc, $loc_args
+	end
+end
+
+if $ARGS[0] = 'troublemaker':
+	'<center><h4><font color="maroon">Troublemaker</font></h4></center>'
+	'<center><img <<$set_imgh>> src="images/system/1_openings/2_sg/gopnik_2.jpg"></center>'
+	'You are a troublemaker. Nothing makes you happier than causing problems, whether it be petty larceny, getting into fights or vandalism. You live for the thrill of breaking the rules. You get along fairly well with the gopniks and they accept you as a kindred spirit. They seem to love your willingness to jump head first into any and all trouble you run across - and if you can''t find any, you will happily make your own, which keeps things lively. You have problems at home and school due to your antisocial behavior. This is especially true with your mother and stepfather, who see you going down the wrong path. The teachers and the police all know who you are.'
+	act 'Select another': gt 'intro_city_select', 'charselect'
+	act 'Confirm this option':
+		traits['nerd_points'] = -50
+		gs 'intro_city_select', 'gopnik'
+		alterstrtimg = 19
+		pcs_stren = 40
+		pcs_react = 40
+		pcs_jab = 20
+		pcs_punch = 20
+		pcs_kick = 20
+		pcs_def = 20
+		pcs_humint = 10
+		pcs_persuas = 10
+		pcs_skin = 40
+		salo = 75
+		pirsD = 4
+		PirsD4_owned = 1
+		$currentpursetype = 'dolls'
+		currentpursenumber = 16
+		dolls_purses[16] = 1
+		bag = 1
+		school_clothing = 5
+		if player_avatar ! 1: pcs_hairlng = 55
+		gs 'npc_relationship', 'socialgroup_setting', 0, 0, -10, 0, -10, -10
+		npc_rel['A24'] += 10
+		npc_rel['A155'] += 15
+		npc_rel['A157'] += 10
+		npc_rel['A143'] += 10
+		npc_rel['A144'] += 15
+		npc_rel['A145'] += 10
+		npc_rel['A28'] -= 10
+		npc_rel['A29'] -= 20
+		npc_rel['A33'] -= 10
+		npc_rel['A34'] -= 10
+		grupvalue[4] = 750
+		willpowermax = 120
+		gs 'grades', 'grade_award', 'school', 'math', 25
+		gs 'grades', 'grade_award', 'school', 'rus', 25
+		gs 'grades', 'grade_award', 'school', 'lit', 25
+		gs 'grades', 'grade_award', 'school', 'art', 25
+		gs 'grades', 'grade_award', 'school', 'bio', 25
+		gs 'grades', 'grade_award', 'school', 'pe', 80
+		gs 'grades', 'grade_award', 'school', 'eng', 25
+		gs 'grades', 'grade_award', 'school', 'geo', 25
+		gs 'grades', 'grade_award', 'school', 'sci', 25
+		gs 'grades', 'grade_award', 'school', 'shop', 80
+		gs 'grades', 'grade_award', 'school', 'comp', 25
+		gs 'grades', 'grade_award', 'school', 'mus', 25
+		gs 'grades', 'grade_award', 'school', 'his', 25
+		gt $loc, $loc_args
+	end
+end
+
+if $ARGS[0] = 'vitekgf':
+	'<center><h4><font color="maroon">Vitek''s girlfriend</font></h4></center>'
+	'<center><img <<$set_imgh>> src="images/system/1_openings/2_sg/gopnik_3.jpg"></center>'
+	'You are <<$npc_nickname[''A9'']>>''s girlfriend. You love the thrill and danger of hanging out with the gopniks, even if you lack the true attitude yourself. You met <<$npc_nickname[''A9'']>> after he and <<$npc_firstname[''A11'']>> became friends. There was something about his bad boy attitude that drew you in, and you soon found yourself falling for him.'
+	'As you developed, he started to take an interest in you as well. Soon thereafter the two of you started dating. You''re not technically a gopnik - you are considered more of a wannabe - but the rest of the gopniks seem to accept you anyways. You’’re not sure what would happen if you ever broke up with <<$npc_nickname[''A9'']>>, however, as being his girlfriend and hanging out with the other gopniks has cost you any real, close friends outside of their group.'
+	act 'Select another': gt 'intro_city_select', 'charselect'
+	act 'Confirm this option':
+		traits['nerd_points'] = -10
+		gs 'intro_city_select', 'gopnik'
+		alterstrtimg = 20
+		pcs_sprt = 30
+		pcs_stren = 30
+		pcs_vital = 30
+		pcs_react = 30
+		pcs_agil = 30
+		pcs_chrsm = 40
+		genbsize = 32
+		pcs_humint = 20
+		pcs_makupskl = 30
+		pcs_heels = 30
+		pcs_jab = 10
+		pcs_punch = 10
+		pcs_kick = 10
+		pcs_def = 10
+		pirsD = 3
+		PirsD3_owned = 1
+		$currentpursetype = 'dolls'
+		currentpursenumber = 19
+		dolls_purses[19] = 1
+		bag = 1
+		npc_rel['A9'] += 50
+		npc_rel['A10'] += 5
+		npc_rel['A11'] += 5
+		npc_rel['A24'] -= 10
+		npc_rel['A28'] -= 10
+		npc_rel['A29'] -= 20
+		npc_rel['A33'] -= 10
+		grupvalue[4] = 600
+		if player_avatar = 0:
+			pcs_hairlng = 200
+			pcs_eyesize = 2
+			pcs_lip = 2
+			pcs_lashes = 1
+		end
+		pcs_skin = 50
+		pcs_tan = 5
+		pcs_vag = 1
+		pcs_throat = 1
+		salo = 87
+		stat['hj'] = 10
+		stat['bj'] = 5
+		stat['vaginal'] = 2
+		gs 'grades', 'grade_award', 'school', 'math', 55
+		gs 'grades', 'grade_award', 'school', 'rus', 55
+		gs 'grades', 'grade_award', 'school', 'lit', 55
+		gs 'grades', 'grade_award', 'school', 'art', 55
+		gs 'grades', 'grade_award', 'school', 'bio', 55
+		gs 'grades', 'grade_award', 'school', 'pe', 55
+		gs 'grades', 'grade_award', 'school', 'eng', 55
+		gs 'grades', 'grade_award', 'school', 'geo', 55
+		gs 'grades', 'grade_award', 'school', 'sci', 55
+		gs 'grades', 'grade_award', 'school', 'shop', 55
+		gs 'grades', 'grade_award', 'school', 'comp', 55
+		gs 'grades', 'grade_award', 'school', 'mus', 55
+		gs 'grades', 'grade_award', 'school', 'his', 55
+
+!! Vitek;s relationship
+		Gspassed = 0
+		kotovLoveQW = 1
+		vitekvisit = 5
+		npc_sex['A9'] += 5
+		willpowermax = 100
+		gt $loc, $loc_args
+	end
+end
+
+if $ARGS[0] = 'alternative':
+!!can choose two more starting tattoo''s
+	'<center><h4><font color="maroon">Alternative</font></h4></center>'
+	'<center><img <<$set_imgh>> src="images/system/1_openings/2_sg/gopnik_4.jpg"></center>'
+	'You march to your own tune. You’’re not a follower - you’’re a leader! You just have no desire to actually lead anything. You do what you want when you want and you do it with a fuck-it-all attitude. The local gopniks respect you and for the most part you get along with them. You''re not one of them, however, but rather a kindred spirit looking to walk your own path and raise a little hell along the way.'
+	*nl
+	'Unlike the gopniks, you have far less interest in fighting or causing problems, instead just looking for a good time - you love to party more than anything else. The cool kids don''t completely look down their nose at you. Even if they don''t approve of your clothes, they respect your love of looking nice and having a good time. You have problems at home and school due to your behavior. This is especially true with your mother and stepfather, who see you going down the wrong path.'
+	act 'Select another': gt 'intro_city_select', 'charselect'
+	act 'Confirm this option':
+		traits['nerd_points'] = -20
+		pcs_exhib = 25
+		Exhibitionist_lvl = 1
+		addictive_exp = 1
+		addictive_trait_lvl = 1
+		gs 'intro_city_select', 'gopnik'
+		alterstrtimg = 21
+		pcs_vital = 40
+		pcs_agil = 40
+		pcs_react = 40
+		salo = 50
+		pcs_chrsm = 35
+		pcs_humint = 20
+		pcs_persuas = 10
+		pcs_makupskl = 40
+		pcs_danc = 20
+		pcs_heels = 20
+		falselashesplain = 5
+		kosmetica = 20
+		pirsD = 5
+		PirsD5_owned = 1
+		pirsA = 2
+		PirsA2_owned = 1
+		$currentpursetype = 'dolls'
+		currentpursenumber = 15
+		dolls_purses[15] = 1
+		bag = 1
+		if player_avatar = 0:
+			pcs_eyesize = 2
+			pcs_lip = 2
+			pcs_lashes = 1
+		end
+		school_clothing = 4
+		pcs_skin = 60
+		pcs_tan = 5
+		pcs_inhib = 35
+		pcs_vag = 1
+		pcs_ass = 1
+		pcs_throat = 5
+		stat['hj'] = 15
+		stat['bj'] = 10
+		stat['vaginal'] = 3
+		stat['anal'] = 1
+		stat['vaginal_finger'] = 5
+		stat['vaginal_finger_give'] = 5
+		stat['cuni'] = 3
+		stat['cuni_give'] = 3
+		gs 'fame', 'pav', 'sex', 40
+		Gspassed = 0
+		npc_rel['A154'] += 10
+		npc_rel['A155'] += 10
+		npc_rel['A156'] += 10
+		npc_rel['A158'] += 10
+		npc_rel['A143'] += 10
+		npc_rel['A144'] += 20
+		npc_rel['A28'] -= 10
+		npc_rel['A29'] -= 10
+		npc_rel['A33'] += 10
+		grupvalue[1] = 200
+		grupvalue[2] = 400
+		willpowermax = 120
+		gs 'grades', 'grade_award', 'school', 'math', 25
+		gs 'grades', 'grade_award', 'school', 'rus', 25
+		gs 'grades', 'grade_award', 'school', 'lit', 25
+		gs 'grades', 'grade_award', 'school', 'art', 25
+		gs 'grades', 'grade_award', 'school', 'bio', 25
+		gs 'grades', 'grade_award', 'school', 'pe', 80
+		gs 'grades', 'grade_award', 'school', 'eng', 25
+		gs 'grades', 'grade_award', 'school', 'geo', 25
+		gs 'grades', 'grade_award', 'school', 'sci', 25
+		gs 'grades', 'grade_award', 'school', 'shop', 55
+		gs 'grades', 'grade_award', 'school', 'comp', 25
+		gs 'grades', 'grade_award', 'school', 'mus', 55
+		gs 'grades', 'grade_award', 'school', 'his', 25
+		gt $loc, $loc_args
+	end
+end
+
+if $ARGS[0] = 'outcast':
+	pcs_prcptn = 35
+	pcs_inhib = 10
+	pcs_makupskl = 0
+	grupvalue[1] = 100
+	grupvalue[2] = 100
+	grupvalue[3] = 300
+	grupvalue[4] = 100
+	grupvalue[6] = 200
+	gs 'npc_relationship', 'socialgroup_setting', -10, -5, 0, -5, 0, 0
+	npc_rel['A133'] += 20
+	npc_rel['A11'] -= 10
+	npc_rel['A33'] -= 10
+	npc_rel['A34'] -= 10
+	if player_avatar = 0:
+		pcs_hairlng = 200
+		pcs_haircol = 1
+		pcs_eyecol = 0
+		pcs_eyesize = 1
+		pcs_lip = 1
+		pcs_lashes = 0
+	end
+	pcs_skin = 0
+	pcs_tan = 0
+	grupTipe=5
+	shampoo = 20
+end
+
+if $ARGS[0] = 'friendless':
+	'<center><h4><font color="maroon">Friendless</font></h4></center>'
+	'<center><img <<$set_imgh>> src="images/system/1_openings/2_sg/outcast_1.jpg"></center>'
+	'You were never very social and never learned how to make friends. You were often made fun of or bullied by the other kids as you grew up. As such, you naturally shielded away from them, an action that only served to isolate you even further. Now, years later, you have yet to make any real friends - even Vasily, who is your closest friend, wouldn''t be considered a particularly close one. In public, he scorns you like all the rest, but is a little nicer in private.'
+	act 'Select another': gt 'intro_city_select', 'charselect'
+	act 'Confirm this option':
+		gs 'intro_city_select', 'outcast'
+		gs 'npc_relationship', 'socialgroup_setting', -10, -10, -10, -10, -10, 0
+		alterstrtimg = 22
+		genbsize = 17
+		pcs_chrsm = 20
+		pcs_observ = 20
+		pcs_skin = 10
+		pcs_makupskl = 10
+		npc_rel['A11'] -= 20
+		grupvalue[1] = 50
+		grupvalue[3] = 200
+		willpowermax = 80
+		salo = 68
+		gs 'grades', 'grade_award', 'school', 'math', 55
+		gs 'grades', 'grade_award', 'school', 'rus', 25
+		gs 'grades', 'grade_award', 'school', 'lit', 55
+		gs 'grades', 'grade_award', 'school', 'art', 55
+		gs 'grades', 'grade_award', 'school', 'bio', 55
+		gs 'grades', 'grade_award', 'school', 'pe', 55
+		gs 'grades', 'grade_award', 'school', 'eng', 25
+		gs 'grades', 'grade_award', 'school', 'geo', 55
+		gs 'grades', 'grade_award', 'school', 'sci', 55
+		gs 'grades', 'grade_award', 'school', 'shop', 55
+		gs 'grades', 'grade_award', 'school', 'comp', 55
+		gs 'grades', 'grade_award', 'school', 'mus', 55
+		gs 'grades', 'grade_award', 'school', 'his', 55
+		gt $loc, $loc_args
+	end
+end
+
+if $ARGS[0] = 'uglyduckling':
+	'<center><h4><font color="maroon">Ugly duckling</font></h4></center>'
+	'<center><img <<$set_imgh>> src="images/system/1_openings/2_sg/outcast_2.jpg"></center>'
+	'Some girls blossom early and some have natural good looks... you got neither. In fact, you seem to have been cursed with an androgynous face and body. You have been mistaken for a boy more times than you would care to admit. You have never learned to use makeup, but maybe you should. It might help make people realize you are indeed a girl.'
+	*nl
+	'Your body seemed to have grown out of sync, leaving you looking odd and, at best, unattractive for most of your life. Now in your teens, your body is starting to even out in growth but you are still very androgynous and you are still considered by most to be ugly. Your lack of good looks has made you a social pariah. Nobody seems to like you or want to spend time with you unless they are making fun of you.'
+	act 'Select another': gt 'intro_city_select', 'charselect'
+	act 'Confirm this option':
+		gs 'intro_city_select', 'outcast'
+		gs 'npc_relationship', 'socialgroup_setting_boys', -10, -10, -10, -10, 0, 0
+		grupvalue[1] = 0
+		uglyduck_flag = 1
+		alterstrtimg = 23
+		if glass < 1 : glass = 1
+		genbsize = 2
+		pcs_inhib = 5
+		pcs_skin = 1
+		if player_avatar = 0:
+			pcs_eyesize = 0
+			pcs_lip = 0
+			pcs_lashes = 2
+		end
+		school_clothing = 3
+		salo = 210
+		willpowermax = 70
+		gs 'grades', 'grade_award', 'school', 'math', 55
+		gs 'grades', 'grade_award', 'school', 'rus', 25
+		gs 'grades', 'grade_award', 'school', 'lit', 55
+		gs 'grades', 'grade_award', 'school', 'art', 55
+		gs 'grades', 'grade_award', 'school', 'bio', 55
+		gs 'grades', 'grade_award', 'school', 'pe', 25
+		gs 'grades', 'grade_award', 'school', 'eng', 55
+		gs 'grades', 'grade_award', 'school', 'geo', 55
+		gs 'grades', 'grade_award', 'school', 'sci', 55
+		gs 'grades', 'grade_award', 'school', 'shop', 55
+		gs 'grades', 'grade_award', 'school', 'comp', 55
+		gs 'grades', 'grade_award', 'school', 'mus', 55
+		gs 'grades', 'grade_award', 'school', 'his', 55
+		gt $loc, $loc_args
+	end
+end
+
+if $ARGS[0] = 'goodgirl':
+	'<center><h4><font color="maroon">Good girl</font></h4></center>'
+	'<center><img <<$set_imgh>> src="images/system/1_openings/2_sg/outcast_3.jpg"></center>'
+	'You are a good girl. The kind parents, teachers and adults love, but the other kids hate. You always reminded the teacher to give out homework and you would tell on anyone for doing anything. You love the attention you get from adults, and while you can feel lonely at times, you are still pretty happy knowing you''re a good girl. You also regularly attend church just like any good girl should. The nerds seem to tolerate you the most, probably because they almost never misbehave and always do their homework anyways.'
+	act 'Select another': gt 'intro_city_select', 'charselect'
+	act 'Confirm this option':
+		traits['nerd_points'] = 100
+		traits['nerd_status'] = 3
+		traits['nerd_lernHome'] = 5
+		gs 'intro_city_select', 'outcast'
+		gs 'npc_relationship', 'socialgroup_setting', -5, -5, 0, -20, 0, 0
+		npc_rel['A25'] -= 5
+		npc_rel['A28'] += 10
+		npc_rel['A29'] += 10
+		npc_rel['A11'] -= 20
+		grupvalue[3] = 400
+		alterstrtimg = 24
+		pcs_intel = 35
+		pcs_sprt = 60
+		pcs_inhib = 5
+		pcs_makupskl = 10
+		money += 1000
+		shampoo = 10
+		pcs_skin = 30
+		$currentpursetype = 'gm'
+		currentpursenumber = 6
+		dolls_purses[6] = 1
+		bag = 1
+		if player_avatar = 0:
+			pcs_hairlng = 300
+			pcs_eyesize = 3
+			pcs_lip = 2
+			pcs_lashes = 1
+		end
+		school_clothing = 3
+		salo = 48
+		genbsize = 17
+		willpowermax = 150
+		gs 'grades', 'grade_award', 'school', 'math', 80
+		gs 'grades', 'grade_award', 'school', 'rus', 80
+		gs 'grades', 'grade_award', 'school', 'lit', 80
+		gs 'grades', 'grade_award', 'school', 'art', 80
+		gs 'grades', 'grade_award', 'school', 'bio', 80
+		gs 'grades', 'grade_award', 'school', 'pe', 55
+		gs 'grades', 'grade_award', 'school', 'eng', 80
+		gs 'grades', 'grade_award', 'school', 'geo', 80
+		gs 'grades', 'grade_award', 'school', 'sci', 80
+		gs 'grades', 'grade_award', 'school', 'shop', 55
+		gs 'grades', 'grade_award', 'school', 'comp', 80
+		gs 'grades', 'grade_award', 'school', 'mus', 55
+		gs 'grades', 'grade_award', 'school', 'his', 80
+		gt $loc, $loc_args
+	end
+end
+
+if $ARGS[0] = 'slut':
+	'<center><h4><font color="maroon">Slut</font></h4></center>'
+	'<center><img <<$set_imgh>> src="images/system/1_openings/2_sg/outcast_4.jpg"></center>'
+	'You were the first girl at your age to lose her virginity, to your childhood friend Vasily. You became curious about sex far sooner than other kids your age and started masturbating long before the others in your year. You also found a desire for pornography and would masturbate to it. You loved the sensation so much that you wanted to find out how good sex would feel. Once you tried it, you learned that you loved it - you really love everything about it.'
+	*nl
+	'The boys took advantage of your sexual needs and made you give them handjobs, which then led to blowjobs under the bleachers during recess and after school (sometimes they would return the favour by fingering you or a few times even eating you out) You always savored swallowing their cum, and you even love how it tastes. The only thing you like more than sucking cock and swallowing cum is getting fucked by a huge cock while sucking on another one.'
+	*nl
+	'However, your sex addiction has made you a social pariah. The girls all despise you and the boys publicly mock you, although they don''t mind using you. The nerds completely avoid you, while the gopniks seem to tolerate you the most (likely because they enjoy your blowjobs)'
+	act 'Select another': gt 'intro_city_select', 'charselect'
+	act 'Confirm this option':
+		trait['commando_lvl'] = 2
+		trt_cumeater = 1 and cumeater_cheat = 1
+		pcs_exhib = 40
+		Exhibitionist_lvl = 1
+		gs 'intro_city_select', 'outcast'
+		gs 'npc_relationship', 'socialgroup_setting', -10, -10, -10, -10, 0, 0
+		gs 'npc_relationship', 'socialgroup_setting_boys', 10, 10, 0, 15, 0, 0
+		npc_rel['A11'] += 20
+		npc_rel['A25'] += 30
+		npc_rel['A28'] -= 20
+		npc_rel['A29'] -= 30
+		npc_rel['A33'] -= 10
+		npc_rel['A34'] -= 10
+		npc_rel['A144'] += 10
+		grupvalue[1] = 0
+		grupvalue[2] = 50
+		grupvalue[3] = 50
+		grupvalue[4] = 100
+		alterstrtimg = 25
+		pcs_makupskl = 50
+		pcs_heels = 50
+		genbsize = 32
+		kosmetica = 30
+		falselashesplain = 20
+		$currentpursetype = 'cats'
+		currentpursenumber = 10
+		cats_purses[10] = 1
+		bag = 1
+		gs 'obj_din', 'old'
+		greben = 1
+		kosmetitka = 10
+		salfetka = 10
+		stanok = 10
+		shampoo = 20
+		pirsC = 2
+		PirsC2_owned = 1
+		motherKnowSpravka = 1
+		if player_avatar = 0:
+			pcs_hairlng = 120
+			pcs_eyesize = 2
+			pcs_lip = 2
+			pcs_lashes = 1
+		end
+		school_clothing = 2
+		pcs_perform = 20
+		pcs_skin = 60
+		pcs_tan = 20
+		pcs_vag = 10
+		pcs_ass = 10
+		pcs_throat = 10
+		pcs_inhib = 60
+		gs 'fame', 'pav', 'sex', 600
+		GspravkaT = 2
+		motherKnowSpravka = 2
+		Gspassed = 0
+		salo = 110
+		stat['porn'] = 75
+		stat['mast'] = 100
+		stat['hj'] = 70
+		stat['bj'] = 50
+		stat['vaginal_finger'] = 20
+		stat['cuni'] = 5
+		stat['vaginal'] = 30
+		stat['anal'] = 20
+		stat['group'] = 5
+		guy = 15
+		orgasm = 120
+		swallow = 40
+		trt_cumeater = 1
+		grupvalue[4] = 100
+		willpowermax = 50
+		motherKnowWhore = 1
+		gs 'grades', 'grade_award', 'school', 'math', 55
+		gs 'grades', 'grade_award', 'school', 'rus', 55
+		gs 'grades', 'grade_award', 'school', 'lit', 55
+		gs 'grades', 'grade_award', 'school', 'art', 55
+		gs 'grades', 'grade_award', 'school', 'bio', 55
+		gs 'grades', 'grade_award', 'school', 'pe', 55
+		gs 'grades', 'grade_award', 'school', 'eng', 55
+		gs 'grades', 'grade_award', 'school', 'geo', 55
+		gs 'grades', 'grade_award', 'school', 'sci', 55
+		gs 'grades', 'grade_award', 'school', 'shop', 55
+		gs 'grades', 'grade_award', 'school', 'comp', 55
+		gs 'grades', 'grade_award', 'school', 'mus', 55
+		gs 'grades', 'grade_award', 'school', 'his', 55
+		gt $loc, $loc_args
+	end
+end
+
+if $ARGS[0] = 'goth':
+	'<center><h4><font color="maroon">Goth</font></h4></center>'
+	'<center><img <<$set_imgh>> src="images/system/1_openings/2_sg/outcast_5.jpg"></center>'
+	'There is always an oddball, the weirdo at every school and at yours, it seems you are the one. You have always felt different, like a person standing outside looking in at the world. You never felt like you fit in, at least until you watched some American movies, saw some goths and suddenly you felt like you belonged. You quickly used all the allowance you had to buy new clothes and makeup so you could finally feel good about yourself. Your family doesn''t approve, hell no one seems to approve but you don''t care.'
+	*nl
+    'You are the school''s resident Goth. The Dark Temptress that all the boys secretly dream of, weaver of bad poetry and suicide covenants... Yep, people have too much imagination. Most adults think that you are going to sacrifice their children. In fact, everyone seems to think you are going to sacrifice someone or commit suicide. The school''s kids aren''t better, with the so-called "cool girls" leading an ostracism campaign against you... Sigh... Fortunately, not everyone is a brainwashed sheep happily following all along, a few think for themselves. The nerds like your reading proclivity and that you are into some of the same things they are; you think they might even invite you to their game one day. A couple of the Gopniks like your party attitude, specifically the kids in the band Pizdá Buysto, who seem to respect your artistic disposition. Or maybe their lead singer just wants to get in your panties, it''s hard to tell.'
+    act 'Select another': gt 'intro_city_select', 'charselect'
+	act 'Confirm this option':
+		traits['nerd_points'] = -10
+		gs 'intro_city_select', 'outcast'
+		gs 'npc_relationship', 'socialgroup_setting', -5, 0, 0, +5, 0, -10
+        npc_rel['A28'] -= 20
+	    npc_rel['A29'] -= 20
+		npc_rel['A33'] -= 20
+	    npc_rel['A34'] -= 20
+	    npc_rel['A144'] += 10
+		npc_rel['A155'] += 5
+		grupvalue[4] = 300
+        alterstrtimg = 28
+		genbsize = 17
+		salo = 45
+		pcs_chrsm = 35
+		pcs_intel = 35
+		pcs_sprt = 45
+		pcs_observ = 5
+		pcs_heels = 30
+		pcs_makupskl = 50
+		pcs_artskls = 10
+		pcs_sewng = 20
+		pcs_skin = 50
+	    pcs_inhib = 25
+		willpowermax = 100
+		if player_avatar = 0:
+		    pcs_hairlng = 265
+            pcs_haircol = 0
+			pcs_eyesize = 3
+			pcs_eyecol = 1
+			pcs_lashes = 1
+        end
+		school_clothing = 1
+        kosmetica = 25
+		stanok = 20
+		tampon = 10
+        $currentpursetype = 'dolls'
+		currentpursenumber = 18
+		dolls_purses[18] = 1
+		bag = 1
+		umbrella = 1
+		money -= 1000
+		gs 'grades', 'grade_award', 'school', 'math', 55
+		gs 'grades', 'grade_award', 'school', 'rus', 55
+		gs 'grades', 'grade_award', 'school', 'lit', 80
+		gs 'grades', 'grade_award', 'school', 'art', 80
+		gs 'grades', 'grade_award', 'school', 'bio', 55
+		gs 'grades', 'grade_award', 'school', 'pe', 70
+		gs 'grades', 'grade_award', 'school', 'eng', 55
+		gs 'grades', 'grade_award', 'school', 'geo', 55
+		gs 'grades', 'grade_award', 'school', 'sci', 55
+		gs 'grades', 'grade_award', 'school', 'shop', 55
+		gs 'grades', 'grade_award', 'school', 'comp', 55
+		gs 'grades', 'grade_award', 'school', 'mus', 80
+		gs 'grades', 'grade_award', 'school', 'his', 55
+		gt $loc, $loc_args
+	end
+end
+
+
+if $ARGS[0] = 'sg_settings':
+	gm_school[6] = 1
+	sisboyday = -2
+	home_owned[1] = 0
+	cltarelka = 0
+	fairy = 0
+	eda = 0
+	poroshok = 0
+	shampoo = 0
+
+	hcolmotherremember = pcs_haircol
+	hcolfatherremember = pcs_haircol
+	hcolfronce = 1
+
+	!!Setting Kolkas birthday based off the PCs
+	koldobtmp_d = rand(1,28)
+	koldobtmp_y = birthyear
+	koldobtmp_m = birthmonth + 11
+	if koldobtmp_m > 12:
+		koldobtmp_y += 1
+		koldobtmp_m -= 12
+	end
+	npc_dob['A34'] = koldobtmp_y * 10000
+	npc_dob['A34'] += koldobtmp_m * 100
+	npc_dob['A34'] += koldobtmp_d
+	killvar 'koldobtmp_d' & killvar 'koldobtmp_m' & killvar 'koldobtmp_y'
+end
+
+--- intro_city_select ---------------------------------
+

locations/intro_city_tg.qsrc

@@ -0,0 +1,525 @@
+# intro_city_tg
+
+music_loop = 0
+CLOSE ALL
+gs 'themes', 'indoors'
+$start_type = 'city_tg'
+
+if $ARGS[0] = 'start':
+	menu_off = 1
+	'<center><b><font color="maroon">Apartment</font></b></center>'
+	'<center><img <<$set_imgh>> src="images/system/1_openings/1_tf/1.jpg"></center>'
+	'You wake up to the sound of your alarm clock. You hear Luda, your wife, mumbling next to you, "Don''t want to, it''s too early." She pulls her blanket up and rolls over. You reach over and turn the clock off.'
+	*nl
+	'<i>There are days when I just want to keep on sleeping</i>, you think to yourself. <i>But I can''t, not today.</i>'
+	act 'Go to the bathroom':
+		*clr & cla
+		'<center><img <<$set_imgh>> src="images/system/1_openings/1_tf/mikhail_2.jpg"></center>'
+		'Quietly, so that you don''t wake up your daughter, you go to the bathroom and take care of your morning routine.'
+		act 'Leave the apartment':
+			*clr & cla
+			'<center><img <<$set_imgh>> src="images/system/1_openings/1_tf/3.jpg"></center>'
+			'In a parking lot near your house sits your car. You unlock it with the remote key and climb in.'
+			act 'Go to work':
+				*clr & cla
+				'<center><img <<$set_imgh>> src="images/system/1_openings/1_tf/4.jpg"></center>'
+				'You turn the key and the engine roars to life. As you drive to work the roads are filled with traffic, but it''s the morning rush hour, so it''s no surprise. You drive for what feels like an eternity, give or take an hour, but you eventually reach the office. The music on the radio was pleasant, at least.'
+				act 'Park at the office':
+					*clr & cla
+					'<center><img <<$set_imgh>> src="images/system/1_openings/1_tf/5.jpg"></center>'
+					'You pull into a parking lot near the building and manage to find a good spot. You greet the security guard on your way in to the building, and then go upstairs to your office. Shortly after you sit down at your desk and boot up your computer, your boss''s secretary comes in and hands you a folder with several travel documents.'
+					*nl
+					'"Am I going on a business trip or something?" you ask her.'
+					*nl
+					'"Yes, the director said it had something to do with a construction project, out in the middle of nowhere, but that''s pretty much all I know," Oksana says.'
+					*nl
+					'After she leaves, you read over the travel documents and fill them out. Time to go to the director.'
+					act 'Go and see your boss':
+						*clr & cla
+						'<center><img <<$set_imgh>> src="images/system/1_openings/shared/npc_roman.jpg"></center>'
+						'You head into the directors'' office, greet him and hand him the papers to sign. The director, Roman Gromov, scans through the text before signing off on it with a broad, sweeping stroke.'
+						*nl
+						'"Ms. Glavbukh is in her office. Go get some travel money while I make a few calls. We''ll discuss your trip when you get back."'
+						act 'Go to the chief accountant':
+							*clr & cla
+							'<center><img <<$set_imgh>> src="images/system/1_openings/shared/npc_marina.jpg"></center>'
+							'Marina is indeed already in her office. After filing your signed travel documents, she grumbles about antiquated systems as she counts out the money.'
+							act 'Return to the director':
+								*clr & cla
+								'<center><img <<$set_imgh>> src="images/system/1_openings/shared/npc_roman.jpg"></center>'
+								'Roman is busy talking on the phone when you re-enter the his office, he gestures for you to sit down on one of the chairs across from him.'
+								*nl
+								'"Yes, I understand... yes. I will send Mikhail over ASAP, he''ll represent me... Yes... Tell your men to work on some other parts of the project in the meantime. Have Igor guard the pit and let no one make any fuss, and make sure nobody gets wind of this and, you know, try to halt the construction... Okay, we''ll keep in touch."'
+								*nl
+								'Roman hangs up and turns to you.'
+								*nl
+								'"Last night, while excavating for the foundations, the workers stumbled upon something; one of the excavators dug into a hollow space of some sort. Luckily Igor was on site and he halted the excavation.'
+								*nl
+								'"It''s not clear what exactly it is, yet. Maybe an abandoned bunker or a cave. But in any case, if there are any more chambers under the foundation, we might not be able to build on the land. So what I want you to do, is to go to the construction site, figure out exactly what the problem is and solve this whole mess as quickly as possible."'
+								act 'Remind him of the correct procedures':
+									*clr & cla
+									'<center><img <<$set_imgh>> src="images/system/1_openings/shared/npc_roman.jpg"></center>'
+									'"Firstly we need to talk to..." you start to say, but are quickly interrupted by your boss.'
+									*nl
+									'"Mikhail, do you realize what''s at stake here? We''re near the end of our credit line, we still have unfinalized agreements on the project''s contract, and we already have guys digging the pit. If there is a too big hole under the foundation, and we can''t build on the site, that could bankrupt the company. So this mysterious structure must be addressed immediately and I have to hold the fort here and keep a lid on things."'
+									act 'Doesn''t look like you have a choice': gt 'intro_city_tg', 'roadPRE'
+								end
+							end
+						end
+					end
+				end
+			end
+		end
+	end
+end
+
+if $ARGS[0] = 'roadPRE':
+	music_loop = 0
+	CLOSE ALL
+	'<center><img <<$set_imgh>> src="images/system/1_openings/1_tf/4.jpg"></center>'
+	'You leave the office and from your car phone your wife Luda. You explain the situation to her and as soon as you finish the call, you drive off to the construction site.'
+	act 'Drive':
+		*clr & cla
+		'<center><img <<$set_imgh>> src="images/system/1_openings/shared/site_working.jpg"></center>'
+		'You''ve been on the highway for hours before you arrive at the town near the site, leaving you feeling tired. But before you can check into a hotel and get some sleep, you need to get an understanding of the magnitude of the problem you''re dealing with. You follow the directions to the site. Igor calls on the way and tells you that you won''t have to go through a security check.'
+		*nl
+		'You arrive and park your car at the site. You see Igor waving at you from a distance and you walk up to him.'
+		act 'Greet Igor':
+			*clr & cla
+			'<center><img <<$set_imgh>> src="images/system/1_openings/shared/npc_igor.jpg"></center>'
+			'Igor greets you. He is obviously concerned about the situation and without delay leads you to the pit''s fenced-off entrance. It rained earlier so the ground is all muddy, you''re going to have to clean your shoes when you get back to the hotel.'
+			*nl
+			'"The ladder''s over there," Igor informs you, while pointing to your left.'
+			*nl
+			'You reach the hole in the ground and peek inside using the small flashlight from your keychain. "There seems to be a floor about 5 meters down."'
+			*nl
+			'"Well, what do you think Mikhail? Shall we go down?" Igor says with a faint glimmer of adventure in his eyes.'
+			act 'Descend':
+				*clr & cla
+				'<center><img <<$set_imgh>> src="images/system/1_openings/shared/site_cave_1.jpg"></center>'
+				'Igor hands you a powerful flashlight and tells the guard to get the ladder over here. Igor is the first one to go down, once he reaches the bottom, he holds the ladder so you can safely climb down as well.'
+				*nl
+				'The cave smells musty and looks all gloomy, but you can breathe freely and the light from your flashlight illuminates the walls. You shoot a beam of light into the corridor and in the distance see something that resembles a door.'
+				*nl
+				'"Damn. If any historians hear about this, they''ll be all over this construction site." Igor mutters.'
+				*nl
+				'You walk up to the door and see drawings on it. Most of them resemble people, but with other stick figures as well.'
+				act 'Open the door':
+					*clr & cla
+					'<center><img <<$set_imgh>> src="images/system/1_openings/shared/site_cave_3.jpg"></center>'
+					'You lean against the door, it''s stiff but you manage to push it open.'
+					*nl
+					'"Oh shit...! Take a look over there. Human bones." Igor says nervously.'
+					*nl
+					'You take a look at what Igor is pointing at and see a pile of human bones with a skull on top.'
+					*nl
+					'"A tomb, I suppose." Igor mutters looking apprehensive.'
+					*nl
+					'"Probably", you nod. "We can''t rule anything out just yet."'
+					act 'Go further':
+						*clr & cla
+						'<center><img <<$set_imgh>> src="images/system/1_openings/shared/site_cave_5.jpg"></center>'
+						'Further into the cave, you reach a room that resembles some kind of archive, filled with dozens of old, dusty scrolls inside of racks built into the walls.'
+						*nl
+						'Igor takes one of the scrolls and carefully unrolls it. "What the hell? Look at this, it must be some kind of ancient language," Igor says. "I''ll take one with me, and see what I can find out about these, maybe I can get it deciphered. So we''ll know what we are dealing with."'
+						*nl
+						'Looking around, you notice another door on the other side of the chamber, you walk over and open it.'
+						act 'Enter the room':
+							*clr & cla
+							'<center><img <<$set_imgh>> src="images/system/1_openings/shared/site_cave_altar.jpg"></center>'
+							'There''s an altar in the center of the room, on it there are various pots, several gold amulets and even some stone figures. You continue looking around the room curiously, trying to figure out what it''s purpose was.'
+							*nl
+							'Looking closely at the altar, you notice a strange little amulet placed at the very top.'
+							act 'Examine the amulet':
+								*clr & cla
+								'<center><img <<$set_imgh>> src="images/system/1_openings/shared/item_amulet.jpg"></center>'
+								'You pick up the strange amulet and examine it. <i>This is clearly very old</i>, you think to yourself.'
+								*nl
+								'While holding the amulet, you realize that it''s getting warm, almost hot. Suddenly you feel heat coursing through your entire body. You feel a surge of strength inside you. It''s like you just finished a long jog, but without the fatigue.'
+								*nl
+								'Igor enters the room with one of the scrolls in his hands. "Huh. Interesting little room.", he says, glancing over the altar. "Well, we have to make a decision: either we fill the catacombs up to the brink with cement or we let someone into these rooms. Who knows what all this stuff is, maybe it''s worth more than it looks."'
+								act 'Consult you boss':
+									*clr & cla
+									'<center><img <<$set_imgh>> src="images/system/1_openings/shared/site_cave_altar.jpg"></center>'
+									'"I''ve got to think about it and consult the director before we do anything." You reply and without thinking about it, you put the small amulet into your pocket.'
+									*nl
+									'"Well, one thing''s for sure, you won''t get reception down here. Let''s go outside." Igor tells you.'
+									act 'Go back to the surface':
+										*clr & cla
+										'<center><img <<$set_imgh>> src="images/system/1_openings/shared/site_working.jpg"></center>'
+										'You walk together with Igor out of the strange chambers and up the ladder, back to the surface.'
+										*nl
+										'"We must have been down there longer than I thought, it''s already late. There will only be security on site now so there''s nothing we can do here until the morning, you should go to the hotel." Igor says.'
+										*nl
+										'With a hasty goodbye to Igor, you make your way back to your car.'
+										'<i>Damn</i>, you think, <i>tomorrow''s going to be a stressful day.</i>'
+										act 'Go to the hotel': gt 'intro_city_tg', 'otelPRE'
+									end
+								end
+							end
+						end
+					end
+				end
+			end
+		end
+	end
+end
+
+if $ARGS[0] = 'otelPRE':
+	$temp_firstname = '<<$pcs_firstname>>'
+	$temp_lastname = '<<$pcs_lastname>>'
+	'<center><img <<$set_imgh>> src="images/system/1_openings/1_tf/6.jpg"></center>'
+	'Your trip to the hotel is quite uneventful compared to your tomb raiding adventure.'
+	*nl
+	'You park your car and go to the receptionist to get a room. There are only double rooms available, but it''s going on the company card, so that just means you''ll get a bigger room. You swipe your company card and take your room key.'
+	act 'Head upstairs to your room':
+		*clr & cla
+		'<center><img <<$set_imgh>> src="images/system/1_openings/1_tf/7.jpg"></center>'
+		'Lying down on one of the beds, you start to wonder just who built that crypt and what it''s purpose was. Your thoughts drift to that amulet you found. The way that thing you touched half an hour ago is still making you feel wonderful baffles you.'
+		act 'Call the director':
+			*clr & cla
+			'<center><img <<$set_imgh>> src="images/system/1_openings/1_tf/7.jpg"></center>'
+			'You dial Romans'' number and after a few rings, he picks up. You report to him the details of what you found at the site with Igor: an ancient tomb, human bones, scrolls in a mysterious language and the altar in that room.'
+			*nl
+			'The director stays silent while you give your report. A few moments later, he decides that it would be best to stop the construction. He tells you to stay and keep watch over the site until further notice.'
+			*nl
+			'You put the phone away. <i>Looks like this trip is going to last longer than expected</i>, you think to yourself.'
+			act 'Go to bed':
+				*clr & cla
+				'<center><img <<$set_imgh>> src="images/system/1_openings/1_tf/7.jpg"></center>'
+				'It doesn''t take you long to drift off to sleep'
+				*nl
+				'Images begin to form in your mind and you soon find yourself in a middle of a dream. The amulet stands before you and out of it comes a ghost of some sort. Before you even realize what you are doing, you find yourself staring deep into the ghost''s eyes which then turn into two planet earths.'
+				*nl
+				'"Looking at the world most just see the mundane, but there is more to it, much more and now you see that too. You have the potential to shape it all, but first, you have company."'
+				*nl
+				'Suddenly your senses return and you are aware of the hotel room around you, you can tell you are not alone.'
+				act 'Open your eyes':
+					*clr & cla
+					'<center><img <<$set_imgh>> src="images/system/1_openings/shared/npc_reinhold.jpg"></center>'
+					'As you open your eyes, you see a man standing in your room. He is wearing a long black coat and his face looks weary; he is unshaven and reminds you of most police detectives in Hollywood films.'
+					*nl
+					'"Where is the amulet?" he approaches you.'
+					act 'Ask who he is':
+						*clr & cla
+						'<center><img <<$set_imgh>> src="images/system/1_openings/shared/npc_reinhold.jpg"></center>'
+						'"Who are you?" you ask puzzledly. The man''s sudden appearance and a sense you never knew you had tell you something about him, that he is not of the world you know.'
+						*nl
+						'"Listen, don''t cause any problems now. Give me the amulet, close the construction site, and all will be fine. After all that place belongs to us," he says in a firm voice.'
+						*nl
+						'<i>Belongs to us?</i> His response leaves you bewildered, wondering who he is and what this is all about.'
+						*nl
+						'"Well, how about I give you a small taste of my power." the man says, and out of nowhere comes a burning desire to give him the amulet.'
+						act 'Give him the amulet':
+							*clr & cla
+							'<center><img <<$set_imgh>> src="images/system/1_openings/1_tf/7.jpg"></center>'
+							'You get out of the bed and give him the stone figure you had put in your pocket earlier. The man takes it, steps back, and without warning, something in his eyes begins to spin like a whirlwind, causing your own eyes to blur as if he was hypnotizing you. A few seconds later your vision clears with the man having somehow disappeared into thin air.'
+							*nl
+							'You rub your eyes, "What the hell is going on here? Was that a dream?. No, it can''t be. I wouldn''t walk around in a dream. I think." You say to no one in particular then check your pocket, the amulet is indeed gone. You sit down on the bed trying to make sense of what just happened.'
+							*nl
+							'While lost in thought, you hear a knock on the door. You get up to open the door, not even thinking why you would have visitors this late at night.'
+							'"...Who''s there?", you ask, still confused.'
+							*nl
+							'A woman''s voice responds that she''s the hotel receptionist and that she needs to talk to you on an urgent matter.'
+							act 'Answer the door':
+								*clr & cla
+								'<center><img <<$set_imgh>> src="images/system/1_openings/shared/npc_tatiana.jpg"></center>'
+								'You open the door, but don''t recall the woman in front of you being at the reception desk; the woman from earlier didn''t have red hair and glasses. After entering the room she quickly examines the place, before locking her eyes on you.'
+								*nl
+								'"Mikhail, right?" You nod.'
+								*nl
+								'"Last night you went to a certain place and took out something very valuable and powerful." the woman speaks to you.'
+								act 'Another one?':
+									*clr & cla
+									'<center><img <<$set_imgh>> src="images/system/1_openings/shared/npc_tatiana.jpg"></center>'
+									'<i>Again?</i>'
+									*nl
+									'You sigh, irritated that not only have you been disturbed in the middle of the night, but these idiots apparently cannot even agree among themselves which one of them should disturb you.'
+									*nl
+									'"Listen, you''re starting to bother me. That other guy already showed up asking for the damn amulet."'
+									*nl
+									'She looks at you with surprise. "What? Someone already came here? Who was it?"'
+									act 'Tell her':
+										*clr & cla
+										'<center><img <<$set_imgh>> src="images/system/1_openings/shared/npc_tatiana.jpg"></center>'
+										'"It was some man in a navy cloak with ginger hair and a light beard, he didn''t tell me his name. He already took the amulet." You answer.'
+										*nl
+										'The girl''s face drops. "Damn it!" She looks into your eyes. "Okay... Mikhail, we have to go somewhere else, there are too many people that might get hurt here. Gustav, come here!" The girl calls out to the corridor.'
+										*nl
+										'A tall man enters the room'
+										StoryLine = 0
+										MagikDostup = 0
+										$pcs_firstname = 'Mikhail'
+										$pcs_lastname = 'Kuznetsov'
+										age = 35
+										vidage = 35
+										year = 2016
+										month = 5
+										week = 1
+										hour = 7
+										day = 25
+										!!body
+										pcs_hgt = 186
+										dick = 0
+										pcs_energy = 60
+										pcs_hydra = 60
+										pcs_sleep = 70
+										!!stats
+										pcs_stren = 160
+										pcs_agil = 50
+										pcs_vital = 160
+										pcs_intel = 50
+										pcs_sprt = 100
+										pcs_react = 50
+										pcs_kick = 20
+										pcs_punch = 20
+										pcs_jab = 20
+										pcs_health = pcs_vital * 10
+										pcs_willpwr = pcs_intel * 5 + pcs_sprt * 5
+										pcs_mana = (pcs_intel * pcs_magik) + pcs_vital * 5
+										birthday = 1
+										birthmonth = 4
+										birthyear = 1983
+										pcs_dob = 19830401
+										act 'Prepare to fight':
+											*clr & cla
+											'<center><img <<$set_imgh>> src="images/system/1_openings/shared/npc_gustav.jpg"></center>'
+											'The man has a large tattoo across the left side of his face. He too has red hair'
+											$boy = 'Gustav'
+											gs 'fight','initFight',1
+
+											gs 'fight_npcdata', 'gustav'
+											fightEnding = 1
+
+											act 'Fight': gt 'fight', 'start'
+										end
+									end
+								end
+							end
+						end
+					end
+				end
+			end
+		end
+	end
+end
+
+if $ARGS[0] = 'tatianaPRE':
+	$pcs_firstname = '<<$temp_firstname>>'
+	$pcs_lastname = '<<$temp_lastname>>'
+	'<center><img <<$set_imgh>> src="images/system/1_openings/shared/npc_tatiana.jpg"></center>'
+	'You wake up in an unfamiliar room. Standing near you is the same red-haired girl that entered your hotel room.'
+	*nl
+	'"Ah, you''re awake," she chirps. "I told this jerk Gustav that he should have treated you more carefully, but he''s bad at listening. As a result I had to use some magic to stabilize you, he almost knocked you out permanently."'
+	*nl
+	'"While you were unconscious I did some research on you. Turns out the Amulet of Power passed to you. Must have happened when you touched it. Unfortunately, Reinhold, the guy in your room, he''s probably realized by now that the amulet no longer has the power and now he''s out to hunt you down."'
+	act 'What''s going on?':
+		*clr & cla
+		'<center><img <<$set_imgh>> src="images/system/1_openings/shared/npc_tatiana.jpg"></center>'
+		'"What the hell is going on?" you respond. You try to move your hands, but you''re tied to the bed.'
+		*nl
+		'"Um, okay, I''ll start from the beginning," the girl says. "Magic exists and is real. Ages ago the world was not the same, the fae creatures who possess natural magic lived in balance but the succubus were free to breed with whom ever they wished."'
+		*nl
+		'"They breed with humans with that human magicians were born. The Sidhe as the most powerful of the fae feared the increasing numbers of human magicians and cast a very powerful spell to bind the succubus to them, this prevented either from being able to reproduce without the other."'
+		*nl
+		'"All magicians have some of that original fae blood in there bodies and it is through that that they are able to connect with the world of magic."'
+		*nl
+		'The redhead adjusts her glasses. "Most of the world simply ignore magic or are protected from it by magic''s natural desire to remain hidden."'
+		*nl
+		'"But last night there was a powerful burst of magical energy, strong enough to be clearly seen by any with magical connections. Can you guess where this surge came from? Yeah, that cave you found. Apparently the surge occurred when you opened the seal to the archive. Anyway, that was when we started to search, that source of power is desired by many, but it is extremely dangerous and in the wrong hands could do untold horrors."'
+		*nl
+		'She stops for a few seconds for you process that information. It seems really far fetched.'
+		*nl
+		'"As you can figure out, Reinhold wanted to prevent the amulet being misused, but he was not very thorough and didn''t check you over."'
+		act 'So, the whole world is just an illusion?':
+			*clr & cla
+			'<center><img <<$set_imgh>> src="images/system/1_openings/shared/npc_tatiana.jpg"></center>'
+			'"So magic exists and is used by all these people and creatures, but the rest of us just don''t see it, or convince ourselves it didn''t happen?" You ask.'
+			*nl
+			'The girl nods. "Yes. You''re a quick study. Machines, apartments, television and the Internet, all this really does exist and is in the form in which people see it. But if I say, hurl a fireball, then people might see that I threw a grenade or shot from a flamethrower. The human mind can''t process magic, so it blocks it as a way to protect the person from going crazy."'
+			*nl
+			'"Hence such things as little green men, UFOs, poltergeists, spontaneous combustion, are when people encounter a difficult to hide phenomenon and the conclusion is flawed. In some cases, if someone''s mind can not cope with the spell they witness, they can be driven crazy and then no one believes them."'
+			act 'And who are you?':
+				*clr & cla
+				'<center><img <<$set_imgh>> src="images/system/1_openings/shared/npc_tatiana.jpg"></center>'
+				'"And who are you?" you ask.'
+				*nl
+				'The girl smiled. "Me? I''m Tatiana, a young mage with an keen interest in magical phenomenon. I specialize in the treatment of mutations, and magic relating to the body. I have little combat skill, so I rely on the services of Gustav to provide some muscle. He''s a Mutant, his mutation is due to magical exposure and it gives him unmatched physical strength and he is a great tracker."'
+				*nl
+				'"The two of us run a detective agency for cover and money, but our real objective is studying magic and its effects."'
+				act 'What do you want form me?':
+					*clr & cla
+					'<center><img <<$set_imgh>> src="images/system/1_openings/shared/npc_tatiana.jpg"></center>'
+					'"What do you want form me?" you ask.'
+					*nl
+					'"Hmm, well... the amulet obviously," Tatiana replies. "When I looked for you, I was hoping to get that object of power to study but Reinhold got to you first. The amulet will now be pretty much useless anyway, as its power passed on to you."'
+					*nl
+					'"But this is not good for you. You may think that since you have the amulets'' power, you can do anything. But in reality, you''re helpless without the skill to use it. Reinhold easily overpowered your will and forced you to obey, and Gustav beat you like a puppy."'
+					act 'What is this amulet? Where did it come from?':
+						*clr & cla
+						'<center><img <<$set_imgh>> src="images/system/1_openings/shared/npc_tatiana.jpg"></center>'
+						'"And what is this amulet? Where did it come from?" you ask.'
+						'Tatiana thinks about it for a few moments. "It was made by the trickster Rikudo, one of the most powerful ancient magicians before he died, he taunted the only living mage who could control its immense power by cursing him to be stuck in a female form and making it only activate for a male mage."'
+						*nl
+						'"Great. So I''ve been thrown into this mess by the dead owner of that ancient tomb. Hang on I''m not a mage, how could the power be transferred to me?"'
+						*nl
+						'"It seems that its long time underground has caused it to malfunction and its power has entered your body. The bad news is it is far too powerful and will kill you." At this you are filled with fear and start to struggle against your bindings.'
+						*nl
+						'"You are lucky Reinhold didn''t realize this, he would have stopped you from accidentally wielding the power and killing yourself and who knows how many others by killing you in that hotel room. I have another way to save you, but you''re not going to like it."'
+						*nl
+						'You don''t say anything, so she continues, "I can feel the aura of power emanating from you, by drawing from that I can perform a powerful magic spell that will transform you into someone who is protected from the masculine alignment of the power."'
+						act 'Uh, I do not understand, what are you suggesting?':
+							*clr & cla
+							'<center><img <<$set_imgh>> src="images/system/1_openings/shared/npc_tatiana.jpg"></center>'
+							'"Uh, I do not understand, what are you suggesting?" you ask her.'
+							*nl
+							'Tatiana runs a hand through her hair and giggles. "I''ll make you a pretty, young girl and the power will lie dormant saving you from blowing up a city or something."'
+							*nl
+							'Your eyes widen in shock.'
+							*nl
+							'"Well, there is another way, I can just stop your heart and let your power dissolve into nature, but you will die. I''m not Reinhold, I can take this risk and I don''t want to kill you. Maybe with more time doing research I can work out another solution, but I cannot leave you like this."'
+							act 'What about your family?':
+								*clr & cla
+								'<center><img <<$set_imgh>> src="images/system/1_openings/shared/npc_tatiana.jpg"></center>'
+								'"Hey, I do not want to be a woman. I have a family, a wife, a daughter", you tell her, afraid.'
+								*nl
+								'Tatiana smiles. "Well the choice is simple, either you die or live without a penis for the time being."'
+								*nl
+								'"As for your family, not to worry. I''ll arrange everything. We will fabricate your death to get Reinhold off your back. To make your transition easier I''ll cover your memory of the family, they will only be ghostly memories, you won''t even remember where you lived. Don''t worry, I won''t erase your entire memory and leave you a useless vegetable."'
+								act 'There must be another way!':
+									*clr & cla
+									'<center><img <<$set_imgh>> src="images/system/1_openings/shared/npc_tatiana.jpg"></center>'
+									'"There must be another way!" you panic. You tug at the restraints on the bed.'
+									*nl
+									'Tatiana''s face becomes serious. "Do not argue. It is the only way available to me. You will need a to use a new name, think it over in your dreams and tell me when you wake up, otherwise I will give you a pretty name. Now go to sleep." Says Tatiana as she puts her hand on your chest. Your vision immediately fades.'
+									act 'Sleep': gt 'intro_city_tg', 'custom'
+								end
+							end
+						end
+					end
+				end
+			end
+		end
+	end
+end
+
+if $ARGS[0] = 'custom':
+	$loc = 'intro_city_tg'
+	$loc_args = 'custom'
+!!	This is to bypass the next part if the avatar system was used
+!!	It will be changed to bypass the head options, once more body options are added
+
+!!	Just hair and eye color here for now; the dialog will be update as more options are added
+	'<center><b><font color = maroon>CHARACTER CUSTOMIZATION</font></b></center>'
+	'<center><img <<$set_imgh>> src="images/system/1_openings/shared/character_creation_2.jpg"></center>'
+	'As you drift in unconsciousness, an impression of a woman forms in your mind. Many aspects of her appearance are indistinct, but there are some things you can make out.'
+	'She is fairly tall.'
+	*nl
+	'<center>Customize your:</center>'
+	'<center><a href="exec:gs ''intro_customization'', ''hair''"><img src="images/system/1_openings/shared/icon_hair.png"></a> <a href="exec:gs ''intro_customization'', ''eyes''"><img src="images/system/1_openings/shared/icon_eye.png"></a></center>'
+	*nl
+	'Everything else about her is fuzzy...'
+
+	act 'Done': gt 'intro_city_tg', 'sleepPRE'
+end
+
+if $ARGS[0] = 'sleepPRE':
+	killobj
+	'<center><img <<$set_imgh>> src="images/system/1_openings/shared/npc_tatiana.jpg"></center>'
+	'"You''re awake?." Tatiana says looking into your eyes.'
+	act 'Look at yourself':
+		cla
+		*clr
+		clr
+		'<center><img <<$set_imgh>> src="images/system/1_openings/1_tf/8.jpg"></center>'
+		'"Fuck," you say and immediately shut your mouth again. Your voice... it''s so feminine. Tatiana giggles.'
+		*nl
+		'"This is the first time I changed the gender of a person, therefore I just HAD to see your reaction. Totally worth it. But you turned out beautiful. For a first try that is of course. I miscalculated something, for example due to sharp hormonal change you have bad acme on your face and I failed to change your eyes and lips. On the bright side, your body will change much faster than one of a natural born woman. That means it will be easier to gain and lose weight and change facial features. All in all you turned quite well. By the way, your new ''equipment'' down there is fully functional, so if you don''t want to be a mother, you should think about using contraceptives."'
+		*nl
+		'You angrily look at Tatiana, "So you think I''m a complete woman? On the outside I''ll look like one, but guess what, I''m still the 34-years-old me."'
+		*nl
+		'"Well, yes. I won''t argue about that." Tatiana agrees. "It''s your life and you decide what you do with it, but for the time being, you cannot go back to your old life, so deal with it. On a side note, I already took care of an alibi. Today Mikhail crashed his car into the pit and died, it''s on the news." With these words, Tatiana picked up the remote and turned on the TV.'
+
+		!!Default Names
+		$pcs_firstname = 'Svetlana'
+		$pcs_lastname = 'Lebedev'
+		$pcs_nickname = 'Sveta'
+
+		!!Player names are set here
+		if $temp_firstname = '':
+			$temp_firstname = 'Svetlana'
+		else
+			$temp_firstname = '<<$pcs_firstname>>'
+		end
+		$pcs_firstname = input("What is your first name? (Leave blank for Svetlana)")
+		if $pcs_firstname = '':$pcs_firstname = '<<$temp_firstname>>'
+		killvar '$temp_firstname'
+
+		
+		if $temp_lastname = '':
+			$temp_lastname = 'Lebedev'
+		else
+			$temp_lastname = '<<$pcs_lastname>>'
+		end
+		$pcs_lastname = input("What is your family name? (Leave blank for Lebedev)")
+		if $pcs_lastname = '':$pcs_lastname = '<<$temp_lastname>>'
+		killvar '$temp_lastname'
+
+		if $temp_nickname = '':
+			$temp_nickname = 'Sveta'
+		else
+			$temp_nickname = '<<$pcs_nickname>>'
+		end
+		$pcs_nickname = input("What is your nickname? (Leave blank for Sveta)")
+		if $pcs_nickname = '':$pcs_nickname = '<<$temp_nickname>>'
+		killvar '$temp_nickname'
+
+		act 'Watch TV':
+			cla
+			*clr
+			clr
+			'<center><img <<$set_imgh>> src="images/system/1_openings/1_tf/9.jpg"></center>'
+			'On TV there is a news report about a businessman, who drove his car into a hole at a construction site. The man died later in hospital without regaining consciousness.'
+			*nl
+			'You look at Tatiana, with a bewildered look. She has an enigmatic smile, "Well, I''m still a magician and that''s something that I can do. Reinhold has definitely lost the trail. The body that ''died'' behind the wheel of the BMW was a perfect copy of your old self, from your absorbed amulet energy down to the placement of every single hair."'
+			*nl
+			'"Anyways, here are your new legal documents, including a new passport. Starting today, you are <<$pcs_nickname>> <<$pcs_lastname>>, 18 years old, female and live in the city. Nobody knows you, but you at least have an apartment to call home. This is a gift to you from Gustav. Here are the keys to it. Now get up, you''ve got to go to your new home and start a new life."'
+			*nl
+			'Gustav, the redhead with a tattoo on his face enters the room. He looks at you and says, "I''ll take you."'
+			act 'Go with Gustav':
+				cla
+				*clr
+				clr
+				'<center><img <<$set_imgh>> src="images/system/1_openings/shared/npc_gustav.jpg"></center>'
+				'Gustav silently takes you to the garage and you enter the black jeep. Gustav gets behind the wheel and drives you into the city. You silently speculate about what to do now.'
+				*nl
+				'After a few minutes, while keeping his eyes on the road, Gustav speaks. "I''m sorry I beat you up. I have trouble controlling myself during a fight. You had a large build and for a second I thought you might be dangerous for me, so I ended up hitting you with my full force."'
+				*nl
+				'You look at him. "Forget it. Listen Gustav... what do I do now?"'
+				*nl
+				'Gustav nods and says, "Well, I would advise you to start by buying food, all sorts of washing powders, laundry detergents and dishes. There are very few supplies already in the apartment, but they''ll only last you a day or two. There''s no TV either. Then get a job. Not far from your new home is a small café, if I remember correctly there was a vacant waitress position not too long ago. You should talk to the owner of the café about the job. Don''t forget to monitor your health, keep your mood up and have a clear mind."'
+				*nl
+				'"Now your mind is very weak, if you don''t take care of yourself you will go crazy. You need to eat well, sleep regularly, have fun, do not generally become depressive or else you end up in a madhouse. Don''t go looking for Tatiana, you will not find her anyway, and secondly, if we need to contact you, we will find you."'
+				*nl
+				'You arrived at some five-story Khrushchev era buildings. Gustav stops the car and points a finger at the entrance. "Your apartment number 69, Tatiana already gave you the key. Now go. Remember don''t just give up, not everyone gets an entirely new chance at life. Tatiana and me will keep an eye out for you."'
+				*nl
+				'Also, you might want to steer clear of those Gopnik, they might just look like petty criminals having a drink, but they have connections and you''re just a pretty young girl now.'
+
+				act 'Out of the car':
+					cla
+					showstat 1
+					showobjs 1
+					gs 'obj_din', 'old'
+					cla
+					*clr
+					'<center><img <<$set_imgh>> src="images/system/1_openings/1_tf/start_tf.jpg"></center>'
+					'Welcome to the Transformation start! Although you have lost your masculinity and your old life, but new possibilities are opening up before your eyes, not least aided in your newfound knowledge of the magical nature of the world!'
+					act 'Begin': gt 'city_residential'
+				end
+			end
+		end
+	end
+end
+
+--- intro_city_tg ---------------------------------
+

locations/intro_customization.qsrc

@@ -26,7 +26,7 @@ if $ARGS[0] = 'start':
 			elseif $start_type = 'sg_m':
 				gt 'intro_sg_m', 'four'
 			else
-				gt 'intro_sg_tg', 'four'
+				gt 'intro_sg_tg', 'intro_7'
 			end
 		end
 	end
@@ -600,10 +600,14 @@ if $ARGS[0] = 'hair':
 			'<center><i><<$hair>></i> You may also <a href="exec:gs ''begin'', ''hair_input'' & gs ''begin'', ''hair''">manually enter a description</a></center>.'
 		end
 	end
-	if $start_type = 'sgs':
-		act'<center><b>Done</b></center>': gt 'preCUST', 'SGStart'
+	if $start_type = 'sg':
+		act'<center><b>Done</b></center>': gt 'intro_sg', 'four'
+	elseif $start_type = 'sg_m':
+		act'<center><b>Done</b></center>': gt 'intro_sg_m', 'six'
+	elseif $start_type = 'sg_tg':
+		act'<center><b>Done</b></center>': gt 'preCSB', 'intro_6_looks'
 	else
-		act'<center><b>Done</b></center>': gt 'begin', 'description_real_character'
+		act'<center><b>Done</b></center>': gt 'preCUST', 'TGStart'
 	end
 end
 
@@ -633,7 +637,7 @@ if $ARGS[0] = 'lip':
 	*nl
 	if pcs_lip < 4:'<center><a href="exec:pcs_lip += 1 & gs ''begin'', ''lip''">Bigger lips</a></center>'
 	if pcs_lip > 0:'<center><a href="exec:pcs_lip -= 1 & gs ''begin'', ''lip''">Smaller lips</a></center>'
-	act'<center><b>Done</b></center>': gt'begin','description_real_character'
+	act'<center><b>Done</b></center>': gt'$loc','$loc_args'
 end
 
 if $ARGS[0] = 'eyes':
@@ -675,16 +679,9 @@ if $ARGS[0] = 'eyes':
 	if pcs_eyesize > 0:'<center><a href="exec:pcs_eyesize -= 1 & gs ''begin'', ''eyes''">Smaller eyes</a></center>'
 	if glass = 0:'<center><a href="exec:glass = 1 & gs ''begin'', ''eyes''">Wear glasses</a></center>'
 	if glass = 1:'<center><a href="exec:glass = 0 & gs ''begin'', ''eyes''">Remove glasses</a></center>'
-
-	if player_avatar = 1:
-		act'<center><b>Done</b></center>': gt'begin','description_real_character'
-	elseif $start_type = 'nt':
-		act'<center><b>Done</b></center>': gt 'preCUST', 'NTStart2'
-	elseif $start_type = 'sgs':
-		act'<center><b>Done</b></center>': gt 'preCUST', 'SGStart'
-	else
-		act'<center><b>Done</b></center>': gt 'preCUST', 'TGStart'
-	end
+	
+	
+	act'<center><b>Done</b></center>': gt'$loc','$loc_args'
 end
 
 if $ARGS[0] = 'eye color':
@@ -755,15 +752,7 @@ if $ARGS[0] = 'birthday':
 	'<center><a href="exec:birthmonth = 11 & gs ''begin'', ''birthday''">November</a></center>'
 	'<center><a href="exec:birthmonth = 12 & gs ''begin'', ''birthday''">December</a></center>'
 
-	if csb_start ! 1:
-		if player_avatar = 1:
-			act'<center><b>Done</b></center>': gt 'begin', 'description_real_character'
-		else
-			act'<center><b>Done</b></center>': gt 'intro_sg_select', 'SGStart2'
-		end
-	else
-		act'<center><b>Done</b></center>': gt 'intro_sg_select', 'CSBStart'
-	end
+	act'<center><b>Done</b></center>': $locM, $loc_argsM
 end
 
 --- intro_customization ---------------------------------

locations/intro_initialization.qsrc

@@ -1,16 +1,87 @@
 # intro_initialization
 !!*************************
 !!	Final Initializations
+!!	Top area for things that need to be done before setting the variables for either start
+year = 2016
+
+BDSMfilm = 0
+pornstudio = 0
+pfilmSTOP = 0
+
+thinkpreg = 0
+denypreg = 0
+pertemp = 1
+pillcvrt = 1
+
+pcs_naturallashes = pcs_lashes
+
+!!	Initializing elasticity
+vshrink = 1
+vshrinkdays = 6
+ashrink = 1
+ashrinkdays = 3
+
+fairycurse = -1
+
+$excer_name[1] = 'Default 1'
+$excer_name[2] = 'Default 2'
+$excer_name[3] = 'Default 3'
+$excer_name[4] = 'Default 4'
+$excer_name[5] = 'Default 5'
+
+monthsend[1] = 31
+if ((year mod 4 = 0) and (year mod 100 ! 0)) or (year mod 400 = 0): 
+	Leapyear = 1 & monthsend[2] = 29
+else
+	Leapyear = 0 & monthsend[2] = 28
+end
+monthsend[3] = 31
+monthsend[4] = 30
+monthsend[5] = 31
+monthsend[6] = 30
+monthsend[7] = 31
+monthsend[8] = 31
+monthsend[9] = 30
+monthsend[10] = 31
+monthsend[11] = 30
+monthsend[12] = 31
+
+$monthName[1] = 'January'
+$monthName[2] = 'February'
+$monthName[3] = 'March'
+$monthName[4] = 'April'
+$monthName[5] = 'May'
+$monthName[6] = 'June'
+$monthName[7] = 'July'
+$monthName[8] = 'August'
+$monthName[9] = 'September'
+$monthName[10] = 'October' 
+$monthName[11] = 'November'
+$monthName[12] = 'December'
+$month = $monthName[month]
+
+gs 'telefon', 'setup'
 
 VersionCheck = 5030
 
-pcs_dob = birthyear * 10000
-pcs_dob += (birthmonth * 100)
-pcs_dob += birthday
+if $start = 'city':
+	birthyear = year - age
+	birthmonth = 4
+	birthday = 1
+	pcs_dob = birthyear * 10000
+	pcs_dob += (birthmonth * 100)
+	pcs_dob += birthday
+else
+
+	pcs_dob = birthyear * 10000
+	pcs_dob += (birthmonth * 100)
+	pcs_dob += birthday
+
+	age = year - ((pcs_dob - (pcs_dob mod 10000)) / 10000)
+	if ((month * 100) + day) < pcs_dob mod 10000: age -= 1
+		
+end
 
-age = year - ((pcs_dob - (pcs_dob mod 10000)) / 10000)
-if ((month * 100) + day) < pcs_dob mod 10000: age -= 1
-	
 if age < 17:
 	vidage = age
 else
@@ -19,6 +90,7 @@ end
 
 vidageday = 300
 
+
 pcs_health = pcs_vital * 10 + pcs_stren * 5
 pcs_willpwr = pcs_intel * 5 + pcs_sprt * 5
 pcs_mana = (pcs_intel * pcs_magik) + pcs_magik * 100 + pcs_vital * 10 + rikudo
@@ -29,7 +101,7 @@ nathcol = pcs_haircol
 pcs_pubecol = pcs_haircol & pcs_pubecol[1] = 1
 oldsavepcs_haircol = 1
 
-gs 'body_shape', 'initial'
+gs 'body', 'initial'
 
 !! Adding underwear and default shoes and assigning them
 
@@ -47,7 +119,7 @@ if $ARGS[1] ! 'CSB' and goth_clothing ! 1:
 end
 
 !!	Starting clothing set
-if NTstart = 1:
+if $start_type = 'city':
 	cheap_panties[12] = 1
 	cheap_bras[12] = 1
 	$pantyworntype = 'cheap'

locations/intro_initialization_city.qsrc

@@ -0,0 +1,383 @@
+# intro_initialization_city
+!!*************************
+!!	Final Initializations
+!!	Top area for things that need to be done before setting the variables for either start
+
+day = 21
+month = 8
+year = 2017
+
+birthyear = 1999
+birthmonth = 4
+birthday = 1
+	
+BDSMfilm = 0
+pornstudio = 0
+pfilmSTOP = 0
+
+thinkpreg = 0
+denypreg = 0
+pertemp = 1
+pillcvrt = 1
+
+pcs_naturallashes = pcs_lashes
+
+!!	Initializing elasticity
+vshrink = 1
+vshrinkdays = 6
+ashrink = 1
+ashrinkdays = 3
+
+fairycurse = -1
+
+$excer_name[1] = 'Default 1'
+$excer_name[2] = 'Default 2'
+$excer_name[3] = 'Default 3'
+$excer_name[4] = 'Default 4'
+$excer_name[5] = 'Default 5'
+
+monthsend[1] = 31
+if ((year mod 4 = 0) and (year mod 100 ! 0)) or (year mod 400 = 0): 
+	Leapyear = 1 & monthsend[2] = 29
+else
+	Leapyear = 0 & monthsend[2] = 28
+end
+monthsend[3] = 31
+monthsend[4] = 30
+monthsend[5] = 31
+monthsend[6] = 30
+monthsend[7] = 31
+monthsend[8] = 31
+monthsend[9] = 30
+monthsend[10] = 31
+monthsend[11] = 30
+monthsend[12] = 31
+
+$monthName[1] = 'January'
+$monthName[2] = 'February'
+$monthName[3] = 'March'
+$monthName[4] = 'April'
+$monthName[5] = 'May'
+$monthName[6] = 'June'
+$monthName[7] = 'July'
+$monthName[8] = 'August'
+$monthName[9] = 'September'
+$monthName[10] = 'October' 
+$monthName[11] = 'November'
+$monthName[12] = 'December'
+$month = $monthName[month]
+
+gs 'telefon', 'setup'
+
+VersionCheck = 5030
+
+pcs_dob = birthyear * 10000
+pcs_dob += (birthmonth * 100)
+pcs_dob += birthday
+
+age = year - ((pcs_dob - (pcs_dob mod 10000)) / 10000)
+if ((month * 100) + day) < pcs_dob mod 10000: age -= 1
+
+vidage = age - 1
+
+vidageday = 300
+
+
+pcs_health = pcs_vital * 10 + pcs_stren * 5
+pcs_willpwr = pcs_intel * 5 + pcs_sprt * 5
+pcs_mana = (pcs_intel * pcs_magik) + pcs_magik * 100 + pcs_vital * 10 + rikudo
+pcs_mood = 100
+pcs_stam = 100
+
+nathcol = pcs_haircol
+pcs_pubecol = pcs_haircol & pcs_pubecol[1] = 1
+oldsavepcs_haircol = 1
+
+gs 'body_shape', 'initial'
+
+!! Adding underwear and default shoes and assigning them
+
+if $ARGS[1] ! 'CSB' and goth_clothing ! 1:
+	cheap_panties[1] = 1
+	cheap_bras[1] = 1
+	$pantyworntype = 'cheap'
+	pantywornnumber = 1
+	$braworntype = 'cheap'
+	brawornnumber = 1
+	gm_shoe[6] = 1
+	danilovich_shoe[21] = 1
+	$shoeworntype = 'gm'
+	shoewornnumber = 6
+end
+
+!!	Starting clothing set
+cheap_panties[12] = 1
+cheap_bras[12] = 1
+danilovich_outfits[81] = 1
+danilovich_outfits_h[81] = 100
+danilovich_shoe[21] = 1
+gm_shoe[9] = 1
+gm_outfits[30] = 1
+gm_outfits_h[30] = 100
+gm_outfits_b[30] = pcs_hips
+cats_dress[1] = 1
+cats_dress_h[1] = 100
+cats_dress_b[1] = pcs_hips
+if goth_clothing = 1:
+	kats_panties[28] = 1
+	kats_bras[28] = 1
+	$pantyworntype = 'kats'
+	pantywornnumber = 28
+	$braworntype = 'kats'
+	brawornnumber = 28
+	danilovich_outfits[91] = 1
+	danilovich_outfits_h[91] = 100
+	danilovich_shoe[21] = 1
+	gm_shoe[9] = 1
+	shoewornnumber = 9
+	$shoeworntype = 'gm'
+	bomba_outfits[16] = 1
+	bomba_outfits_h[16] = 100
+	bomba_outfits_b[16] = pcs_hips
+	bomba_outfits[37] = 1
+	bomba_outfits_h[37] = 100
+	bomba_outfits_b[37] = pcs_hips
+	sportsclothingnumber = 91
+	gs 'clothing', 'wear', 'bomba_outfits', 37
+elseif pcs_inhib < 5:
+	gm_outfits[30] = 1
+	gm_outfits_h[30] = 100
+	gm_outfits_b[30] = pcs_hips
+	danilovich_outfits[81] = 1
+	danilovich_outfits_h[81] = 100
+	cats_dress[1] = 1
+	cats_dress_h[1] = 100
+	cats_dress_b[1] = pcs_hips
+	sportsclothingnumber = 81
+	gs 'clothing', 'wear', 'cats_dress', 1
+elseif pcs_inhib < 10:
+	gm_outfits[15] = 1
+	gm_outfits_h[15] = 100
+	gm_outfits_b[15] = pcs_hips
+	danilovich_outfits[76] = 1
+	danilovich_outfits_h[76] = 100
+	gm_dress[4] = 1
+	gm_dress_h[4] = 100
+	gm_dress_b[4] = pcs_hips
+	sportsclothingnumber = 76
+	gs 'clothing', 'wear', 'gm_dress', 4
+elseif pcs_inhib < 15:
+	gm_outfits[58] = 1
+	gm_outfits_h[58] = 100
+	gm_outfits_b[58] = pcs_hips
+	danilovich_outfits[106] = 1
+	danilovich_outfits_h[106] = 100
+	gm_dress[7] = 1
+	gm_dress_h[7] = 100
+	gm_dress_b[7] = pcs_hips
+	sportsclothingnumber = 106
+	gs 'clothing', 'wear', 'gm_dress', 7
+elseif pcs_inhib < 20:
+	gm_outfits[55] = 1
+	gm_outfits_h[55] = 100
+	gm_outfits_b[55] = pcs_hips
+	danilovich_outfits[102] = 1
+	danilovich_outfits_h[102] = 100
+	gm_dress[7] = 1
+	gm_dress_h[7] = 100
+	gm_dress_b[7] = pcs_hips
+	sportsclothingnumber = 43
+	gs 'clothing', 'wear', 'gm_dress', 7
+elseif pcs_inhib < 25:
+	gm_outfits[58] = 1
+	gm_outfits_h[58] = 100
+	gm_outfits_b[58] = pcs_hips
+	danilovich_outfits[87] = 1
+	danilovich_outfits_h[87] = 100
+	gm_dress[39] = 1
+	gm_dress_h[39] = 100
+	gm_dress_b[39] = pcs_hips
+	sportsclothingnumber = 1
+	gs 'clothing', 'wear', 'gm_dress', 39
+elseif pcs_inhib < 30:
+	gm_outfits[91] = 1
+	gm_outfits_h[91] = 100
+	gm_outfits_b[91] = pcs_hips
+	danilovich_outfits[96] = 1
+	danilovich_outfits_h[96] = 100
+	gm_dress[57] = 1
+	gm_dress_h[57] = 100
+	gm_dress_b[57] = pcs_hips
+	sportsclothingnumber = 48
+	gs 'clothing', 'wear', 'gm_dress', 57
+elseif pcs_inhib < 35:
+	gm_outfits[95] = 1
+	gm_outfits_h[95] = 100
+	gm_outfits_b[95] = pcs_hips
+	danilovich_outfits[48] = 1
+	danilovich_outfits_h[48] = 100
+	gm_dress[63] = 1
+	gm_dress_h[63] = 100
+	gm_dress_b[63] = pcs_hips
+	sportsclothingnumber = 40
+	gs 'clothing', 'wear', 'gm_dress', 63
+elseif pcs_inhib < 40:
+	gm_outfits[124] = 1
+	gm_outfits_h[124] = 100
+	gm_outfits_b[124] = pcs_hips
+	danilovich_outfits[45] = 1
+	danilovich_outfits_h[45] = 100
+	gm_dress[89] = 1
+	gm_dress_h[89] = 100
+	gm_dress_b[89] = pcs_hips
+	sportsclothingnumber = 45
+	gs 'clothing', 'wear', 'gm_dress', 89
+elseif pcs_inhib < 45:
+	gm_outfits[131] = 1
+	gm_outfits_h[131] = 100
+	gm_outfits_b[131] = pcs_hips
+	danilovich_outfits[38] = 1
+	danilovich_outfits_h[38] = 100
+	gm_dress[109] = 1
+	gm_dress_h[109] = 100
+	gm_dress_b[109] = pcs_hips
+	sportsclothingnumber = 38
+	gs 'clothing', 'wear', 'gm_dress', 109
+elseif pcs_inhib < 50:
+	gm_outfits[145] = 1
+	gm_outfits_h[145] = 100
+	gm_outfits_b[145] = pcs_hips
+	danilovich_outfits[17] = 1
+	danilovich_outfits_h[17] = 100
+	gm_dress[123] = 1
+	gm_dress_h[123] = 100
+	gm_dress_b[123] = pcs_hips
+	sportsclothingnumber = 143
+	gs 'clothing', 'wear', 'gm_dress', 123
+else
+	gm_outfits[149] = 1
+	gm_outfits_h[149] = 100
+	gm_outfits_b[149] = pcs_hips
+	danilovich_outfits[15] = 1
+	danilovich_outfits_h[15] = 100
+	gm_dress[149] = 1
+	gm_dress_h[149] = 100
+	gm_dress_b[149] = pcs_hips
+	scandalicious_bikinis[55] = 1
+	scandalicious_bikinis_h[55] = 60
+	scandalicious_bikinis_b[55] = pcs_hips
+	sportsclothingnumber = 15
+	gs 'clothing', 'wear', 'gm_dress', 149
+end
+if swim_start = 99:
+	allure_swimsuit[99] = 1
+	allure_swimsuit_h[99] = 60
+	allure_swimsuit_b[99] = pcs_hips
+elseif swim_start = 1:
+	danilovich_swimsuit[1] = 1
+	danilovich_swimsuit_h[1] = 60
+	danilovich_swimsuit_b[1] = pcs_hips
+end
+
+if danilovich_shoe[17] = 1:
+	sportsshoenumber = 17
+else
+	sportsshoenumber = 21
+end
+$sportspursetype = $currentpursetype
+sportspursenumber = currentpursenumber
+$sports_clothing_name = 'default sports outfit'
+
+killvar 'swim_start'
+	
+!!	**********
+
+gs 'daystart'
+gs 'din_pav'
+gs 'din_npc'
+gs 'dinSex2'
+gs 'dina'
+gs 'din_van'
+gs 'din_bad'
+gs 'dinSex'
+!! KEY! I merged 'dinBoroda' with 'clener' and removed the dynamics. This line was at the end of dinBoroda, so I moved it here just in case. Sicaa
+rikudootvet = 1415
+gs 'BanSexType'
+
+gs 'outdoors', 'weather'
+
+menoage = rand(40,50)
+temprand = rand(0,10)
+
+if temprand = 0:
+	menoage += rand(0,5)
+
+elseif temprand < 4:
+	menoage += rand(3,10)
+
+elseif temprand < 9:
+	menoage += rand(5,12)
+
+else
+	menoage += rand(7,13)
+
+end
+
+!!Setting up period start and turning on auto tracking if not on hardcore difficulty
+daylastperiod = daystart
+temprand = rand(1,3)
+if temprand = 1:
+	cycle = 1
+	EggRH = rand(1,149)
+	FocH = EggRH + 4*24
+	mesec = 0
+	unfertegg = 0
+	ferteggage = 0
+	Ovulate = 0
+	LutH = 0
+	daylastperiod -= FocH/24
+elseif temprand = 2:
+	lastovulation = daystart
+	cycle = 2
+	unfertegg = 1
+	ferteggage = rand(0,44)
+	Ovulate = (rand(24,44) - ferteggage)
+	if Ovulate <= 0: Ovulate = 1
+	mesec = 0
+	EggRH = 0
+	FocH = 0
+	LutH = 0
+	daylastperiod -= 10+(ferteggage/24)
+elseif temprand = 3:
+	cycle = 3
+	LutH = rand(0,300)
+	ferteggage = 36 + LutH
+	mesec = 0
+	EggRH = 0
+	FocH = 0
+	unfertegg = 0
+	Ovulate = 0
+	daylastperiod -= 10+(ferteggage/24)
+end
+
+if daylastperiod + 4 > daystart:
+	lastmens = daylastperiod - 20
+else
+	lastmens = daylastperiod+4
+end
+
+if difficulty = 4:
+	cyccustom = 0
+else
+	cyccustom = 1
+end
+
+pcs_horny = 0
+killvar 'opPRE'
+killvar 'tgs_skipinto'
+gs 'stat'
+showstat 0
+showobjs 0
+
+--- intro_initialization_city ---------------------------------
+

locations/intro_sg.qsrc

@@ -32,6 +32,8 @@ end
 if $ARGS[0] = 'four':
 	gs 'intro_sg_select', 'sg_settings'
 	gs 'intro_initialization'
+	$loc = 'intro_sg'
+	$loc_args = 'four'
 
 
 	'<center><b><font color = maroon>Character Face</font></b></center>'
@@ -39,7 +41,7 @@ if $ARGS[0] = 'four':
 	'<center><img <<$set_imgh>> src="images/system/1_openings/shared/character_creation_2.jpg"></center>'
 	*nl
 	'<center>Customize your:</center>'
-	'<center><a href="exec:gs ''preCUST'', ''hair''"><img src="images/system/1_openings/shared/icon_hair.png"></a> <a href="exec:gs ''begin'', ''eyes''"><img src="images/system/1_openings/shared/icon_eye.png"></a></center>'
+	'<center><a href="exec:gs ''intro_customization'', ''hair''"><img src="images/system/1_openings/shared/icon_hair.png"></a> <a href="exec:gs ''intro_customization'', ''eyes''"><img src="images/system/1_openings/shared/icon_eye.png"></a></center>'
 
 	act '<center><b>Done</b></center>': gt 'intro_sg', 'five'
 end

locations/intro_sg_m.qsrc

@@ -133,12 +133,14 @@ end
 if $ARGS[0] = 'six':
 	*clr & cla				
 	hour = 18
+	$loc = 'intro_sg_m'
+	$loc_args = 'six'
 	'<center><b><font color = maroon>Character Face</font></b></center>'
 	'<center><b>Allows you to alter hair and eyes, use to match fixed profile picture if in use.</b></center>'
 	'<center><img <<$set_imgh>> src="images/system/1_openings/shared/character_creation_2.jpg"></center>'
 	*nl
 	'<center>Customize your:</center>'
-	'<center><a href="exec:gs ''preCUST'', ''hair''"><img src="images/system/1_openings/shared/icon_hair.png"></a> <a href="exec:gs ''begin'', ''eyes''"><img src="images/system/1_openings/shared/icon_eye.png"></a></center>'
+	'<center><a href="exec:gs ''intro_customization'', ''hair''"><img src="images/system/1_openings/shared/icon_hair.png"></a> <a href="exec:gs ''intro_customization'', ''eyes''"><img src="images/system/1_openings/shared/icon_eye.png"></a></center>'
 
 	act 'Continue':
 		showstat 1

locations/intro_sg_select.qsrc

@@ -6,14 +6,12 @@ if $ARGS[0] = 'start':
 	birthyear = 1999
 	yearlefttemp = 1
 
-	if player_avatar = 0:
-		birthmonth = 4
-		birthday = 1
-		pcs_haircol = 1
-		pcs_eyesize = 2
-		pcs_lip = 1
-		pcs_lashes = 1
-	end
+	birthmonth = 4
+	birthday = 1
+	pcs_haircol = 1
+	pcs_eyesize = 2
+	pcs_lip = 1
+	pcs_lashes = 1
 
 !!	Body
 	pcs_hgt = 170

locations/intro_sg_select_custom.qsrc

@@ -37,7 +37,7 @@ if $ARGS[0] = 'start':
 		if start = 1:
 			gt 'intro_sg', 'four'
 		elseif start = 2:
-			gt 'intro_sg_m'. 'start'
+			gt 'intro_sg_m', 'start'
 		else
 			gt 'intro_tg', 'start'
 		end

locations/intro_sg_tg.qsrc

@@ -0,0 +1,694 @@
+# intro_sg_tg
+
+music_loop = 0
+CLOSE ALL
+gs 'themes', 'indoors'
+
+if $ARGS[0] = 'start':
+	*clr & cla
+	menu_off = 1
+	'<center><img <<$set_imgh>> src="images/system/1_openings/shared/npc_ivan.jpg"></center>'
+	'You are Peter Ivanov.'
+	'<<$startdob>>'
+	'Your parents died shortly after you were born. Your only remaining relative, your great uncle Ivan, took you in. Your uncle has always made it clear that he took you in as a courtesy to your parents, not to become one himself. You two never became close, causing a lonely childhood.'
+	act 'Continue':
+		*clr & cla
+		'<center><img <<$set_imgh>> src="images/system/1_openings/4_csb/1.jpg"></center>'
+		'You had a pleasant, undisturbed childhood when you were young. Although you don''t remember much from kindergarten, you do remember going to elementary school when you were 6 years old. While you wanted your uncle to act like the fathers of the other kids at school, you were never allowed to call him anything other than "sir."'
+		act 'Continue':
+			*clr & cla
+			'<center><img <<$set_imgh>> src="images/system/1_openings/4_csb/2.jpg"></center>'
+			'Your teenage years were beset by the same changes as the rest of the boys your age: You got taller and gained some muscle weight, your shoulders widened, your voice squeaked until it deepened, and hair sprouted from everywhere on your body.'
+			'You spent most of the last few years in a near-constant state of arousal, set off by as little as a suggestively shaped vegetable. Thankfully the awkward changes and acne have started to subside, leaving you looking like the young man you will become.'
+			*nl
+			'But… But you are lonely. Maybe a little horny… who are you kidding? You are <b>very</b> horny. A horny 16 year old teen: that is the age when male sexuality peaks, according to the textbooks. Sadly your overflowing sex drive is not getting cared for by a loving girlfriend, instead you just walk around with a hardon almost every day, non stop.'
+			'You need a girlfriend, someone to talk to, to flirt with, to slowly but surely lure out of her various layers of clothing… a girlfriend. You would settle for a friend with benefits; it sounded hot in the tv show you saw at one point. Or even just some school sex, but the girls in your class won''t give you any attention, at least the ones that aren''t utterly ugly. Most ignore you, or when they do acknowledge you exist, they don''t take pity on you and instead often mock your awkwardness. You never learned how to talk to girls and because your mother died you''ve never had a female to help you understand girls. Now that is making your life, among other things, very hard.'
+			act 'Continue':
+				*clr & cla
+				'<center><img <<$set_imgh>> src="images/system/1_openings/4_csb/3.jpg"></center>'
+				'Only recently your loneliness and your natural tendency for peeping resulted in calamity: you took a peek at the girls locker room at school. They were so beautiful, well most of them anyways. You got so horny watching them get undressed and then showering you couldn''t help yourself, you don''t know what came over you. You pulled out your dick and started to masturbate, trying to stay out of sight, but apparently you made too much noise. When two girls come over to investigate, they caught you and started screaming. You tried to run, but were caught and taken the Headmaster who called your uncle and told him what you had done. Since then the girls at school haven''t stopped making cruel jokes about you being a pervert, or apparently how small a cock you supposedly have. You are not small! You are average, right?!'
+				'Everyone you knew quickly turned on you and nothing you could say worked to change their minds. You became an outcast and received regular beatings from the other guys.'
+				act 'Continue': gt 'intro_sg_tg', 'intro_2_name'
+			end
+		end
+	end
+end
+
+if $ARGS[0] = 'intro_2_name':
+	*clr & cla
+	'<center><img <<$set_imgh>> src="images/system/1_openings/4_csb/4.jpg"></center>'
+	'Now your reputation is in tatters. You''ve become the school outcast and no girl will give you the time of day, let alone agree to sleep with you. Out of horny desperation and loneliness you turn to the Internet to make friends. While on a forum for a mobile game you happened to meet a girl from the nearby town of Pavlovsk. You both liked the game and quickly hit it off and started talking almost every day.'
+
+	act 'Her name is ...':
+		$pcs_firstname = 'Svetlana'
+		$pcs_lastname = 'Lebedev'
+		$pcs_nickname = 'Sveta'
+
+		!!Player names are set here
+		$temp_firstname = '<<$pcs_firstname>>'
+		$pcs_firstname = input("What is the girls first name? (Leave blank for Svetlana)")
+		if $pcs_firstname = '':$pcs_firstname = '<<$temp_firstname>>'
+		killvar '$temp_firstname'
+
+		$temp_lastname = '<<$pcs_lastname>>'
+		$pcs_lastname = input("What is the girls name? (Leave blank for Lebedev)")
+		if $pcs_lastname = '':$pcs_lastname = '<<$temp_lastname>>'
+		killvar '$temp_lastname'
+
+		$temp_nickname = '<<$pcs_nickname>>'
+		$pcs_nickname = input("What the girls nickname? (Leave blank for Sveta)")
+		if $pcs_nickname = '':$pcs_nickname = '<<$temp_nickname>>'
+		killvar '$temp_nickname'
+
+		gt 'intro_sg_tg', 'intro_3'
+	end
+end
+
+if $ARGS[0] = 'intro_3':
+	*clr & cla
+	'<center><img <<$set_imgh>> src="images/system/1_openings/4_csb/17.jpg"></center>'
+	'Her name is <<$pcs_firstname>> "<<$pcs_nickname>>" <<$pcs_lastname>>. She was born on the same day as you. You don''t know why but she seems to like you, maybe she doesn''t have many friends either. You can''t believe your luck; this might be your saving grace.'
+	'You spend the next few weeks messaging back and forth. <<$pcs_nickname>> tells you all about her life as well as her likes and dislikes.'
+
+	act 'Continue': gt 'intro_sg_tg', 'intro_4'
+
+	act 'Re-enter her names':
+		$pcs_firstname = 'Svetlana'
+		$pcs_lastname = 'Lebedev'
+		$pcs_nickname = 'Sveta'
+
+		!!Player names are set here
+		$temp_firstname = '<<$pcs_firstname>>'
+		$pcs_firstname = input("What is the girls first name? (Leave blank for Svetlana)")
+		if $pcs_firstname = '':$pcs_firstname = '<<$temp_firstname>>'
+		killvar '$temp_firstname'
+
+		$temp_lastname = '<<$pcs_lastname>>'
+		$pcs_lastname = input("What is the girls name? (Leave blank for Lebedev)")
+		if $pcs_lastname = '':$pcs_lastname = '<<$temp_lastname>>'
+		killvar '$temp_lastname'
+
+		$temp_nickname = '<<$pcs_nickname>>'
+		$pcs_nickname = input("What the girls nickname? (Leave blank for Sveta)")
+		if $pcs_nickname = '':$pcs_nickname = '<<$temp_nickname>>'
+		killvar '$temp_nickname'
+
+		gt 'intro_sg_tg', 'intro_3'
+	end
+end
+
+if $ARGS[0] = 'intro_4':
+	*clr & cla
+	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/mom/mother.jpg"></center>'
+	'You find out about her mother Natasha, and how her biological father left when she was a baby. Her mother remarried shortly afterwards to a man called Vladimir.'
+	'She has a sister named Anya who is a year older than her. Anya chose to live at home instead of going to college, working at the local grocery in the day and partying at night.'
+	'<<$pcs_nickname>> has a half-brother Kolka, who is a year younger than her and really into football.'
+	'Her mother''s sister, Aunt Luda, lives on the top floor of the same building as her. Her stepfather''s best friend is called Uncle Misha, who lives across the hall. Her mother''s old friend Sergey Shulgin lives on the floor above them, and <<$pcs_nickname>>''s old childhood friend Vasily is his son.'
+	*nl
+	'Her great grandparents live in a nearby village, where she occasionally spends a weekend. Apparently her mother''s parents are both dead.'
+	'You listen to her complaining about her extended family and about how she and Vasily drifted apart, comforting her as best you can. Yet you can''t help but feel a little jealous at how many caring relatives she has, given that your only relation is a great uncle who is about to kick you onto the streets for the sake of his own reputation.'
+	'You do the best you can to repress any resentment towards <<$pcs_nickname>> about how little she appreciates what she has.'
+
+	act 'When she talks about her mother, she calls her ...':
+
+		$npc_nickname['A29'] = '<<$npc_nickname[''A29'']>>'
+		$temp_nickname = $npc_nickname['A29']
+
+		$npc_nickname['A29'] = input('<center>What name does she use to address her mother by?<br>Mother (default), Mum, Mom, Mama, etc.</center>')
+		if $npc_nickname['A29'] = '':$npc_nickname['A29'] = '<<$temp_nickname>>'
+		killvar '$temp_nickname'
+
+		gt 'intro_sg_tg', 'intro_5'
+	end
+end
+
+if $ARGS[0] = 'intro_5':
+	*clr & cla
+	if $month = 'August': $cbpre_text1 = ' the end of'
+	'<center><img <<$set_imgh>> src="images/system/1_openings/4_csb/6.jpg"></center>'
+	'A couple months pass. You and <<$pcs_nickname>> continue to talk, and you learn even more about her life. As<<$cbpre_text1>> summer break approaches, you bring up the idea of meeting up. <<$pcs_nickname>> is excited at the prospect and you agree to meet at the café where her mother works.'
+
+	killvar '$cbpre_text1'
+	act 'Continue':
+		*clr & cla
+		'<center><img <<$set_imgh>> src="images/system/1_openings/4_csb/7.jpg"></center>'
+		'Things at home haven''t been doing so well during this time.'
+		'Instead of the rumors dying, they have kept escalating over time. You''ve had to plan your routes home from school to avoid spots where you will be cornered and beaten. You spend quite some time with chatting with her, and when the summer break comes and you finally get out of school you wonder whether you can finally meet your chat buddy -and maybe make her your girl...'
+		act 'Continue':
+			*clr & cla
+			'<center><img <<$set_imgh>> src="images/system/1_openings/4_csb/8.jpg"></center>'
+			'The morning you have agreed to meet her, you pack up condoms and some spare cash into a backpack, heading off to the train station in the hopes of getting a girl friend or at least getting laid.'
+			'On the train ride to Pavlovsk, you get a message from <<$pcs_nickname>>. Her parents have taken her to spend time with her grandparents in Gadukino. She was unable to get out of the trip, since her mother has been upset at how she has been spending so much time on her phone and not with her family.'
+			'With no other choice, you buy a second ticket to meet her at Gadukino.'
+			act 'Travel to Gadukino':
+				*clr & cla
+				'<center><img <<$set_imgh>> src="images/locations/shared/train/gadplat.jpg"></center>'
+				'You get off the train next to a small road in the middle of nowhere. A dirt road leads to a small village made up of rickety wooden houses and even more ruined ones. Unsure of which house belongs to <<$pcs_nickname>>''s family, you pull out your phone to text her that you have arrived.'
+				'A few minutes later, an excited teenage girl comes rushing down one of the dirt roads. You double-check a picture of <<$pcs_nickname>> on your phone, as this is the first time you have seen her with your own eyes.'
+				act 'Take a look at her picture': gt 'intro_sg_tg', 'intro_6_looks'
+			end
+		end
+	end
+end
+
+if $ARGS[0] = 'settings':
+	*clr & cla
+
+	StoryLine = 1
+	ml_update_1 = 1
+	!! NPC Data and Relations
+	gs 'npcstatic1'
+	gs 'npcstatic2'
+	gs 'npcstatic3'
+	gs 'npcstatic4'
+	gs 'npcstatic5'
+
+	$pcs_dna = func('dna','generate',$npc_dna['A29'],$npc_dna['A35'])
+
+	!! Set all schoolkids to 30 rel except for outcasts
+	gs 'npc_relationship', 'defaultfriendship'
+
+	!! Set defaults for family and friends
+	gs 'npc_relationship', 'default_family_friends', 'cursedschoolboy'
+
+	!! Sveta was an outcast (good girl start)
+	gs 'preSYS', 'outcast'
+	gs 'npc_relationship', 'socialgroup_setting', -5, -5, 0, -20, 0, 0
+
+	npc_rel['A25'] -= 5
+
+	home_owned[2] = 1
+	gs 'set_home', 2
+
+	pcs_eyesize = 3
+	pcs_lip = 2
+	pcs_lashes = 1
+	pcs_haircol = 3
+	pcs_eyecol = 3
+	pcs_hairlng = 300
+
+	if birthmonth = 0: birthmonth = 4
+	if birthday = 0: birthday = 1
+
+	birthyear = 1999
+	yearlefttemp = 1
+
+	!!Looks
+	pcs_hgt = 170
+	salo = 80
+	genbsize = 17
+	pcs_pubes = 30
+	pcs_leghair = 12
+	pcs_makeup = 1
+	pcs_skin = 40
+	dick = 0
+
+	!!Basic
+	pcs_energy = 60
+	pcs_hydra = 60
+	pcs_sleep = 70
+
+	!!Attributes
+	pcs_inhib = 10
+	pcs_stren = 30
+	strenbuf = 10
+	pcs_agil = 30
+	agilbuf = 10
+	pcs_vital = 30
+	vitalbuf = 10
+	pcs_intel = 30
+	pcs_react = 30
+	pcs_sprt = 20
+	pcs_chrsm = 35
+	pcs_prcptn = 40
+
+	!!Skills
+	pcs_def = 20
+	pcs_run = 20
+	pcs_gaming = 20
+	pcs_humint = 20
+	pcs_observ = 20
+
+	!!Setting the shcoll classes such that grades can be assigned
+	gs 'grades', 'createclass', 'school', 'math', 3, 2, 'yes', 'yes', 0, 0
+	gs 'grades', 'createclass', 'school', 'rus', 3, 2, 'yes', 'yes', 0, 0
+	gs 'grades', 'createclass', 'school', 'lit', 2, 2, 'yes', 'yes', 0, 0
+	gs 'grades', 'createclass', 'school', 'art', 2, 2, 'yes', 'no', 0, 0
+	gs 'grades', 'createclass', 'school', 'bio', 2, 2, 'yes', 'yes', 0, 0
+	gs 'grades', 'createclass', 'school', 'pe', 3, 1, 'yes', 'no', 0, 0
+	gs 'grades', 'createclass', 'school', 'eng', 2, 2, 'yes', 'yes', 0, 0
+	gs 'grades', 'createclass', 'school', 'geo', 2, 2, 'yes', 'yes', 0, 0
+	gs 'grades', 'createclass', 'school', 'sci', 2, 2, 'yes', 'yes', 0, 0
+	gs 'grades', 'createclass', 'school', 'shop', 2, 2, 'yes', 'no', 0, 0
+	gs 'grades', 'createclass', 'school', 'comp', 3, 2, 'yes', 'yes', 0, 0
+	gs 'grades', 'createclass', 'school', 'mus', 2, 2, 'yes', 'no', 0, 0
+	gs 'grades', 'createclass', 'school', 'his', 2, 2, 'yes', 'yes', 0, 0
+
+	!!Grades
+	gs 'grades', 'grade_award', 'school', 'math', 55
+	gs 'grades', 'grade_award', 'school', 'rus', 25
+	gs 'grades', 'grade_award', 'school', 'lit', 55
+	gs 'grades', 'grade_award', 'school', 'art', 55
+	gs 'grades', 'grade_award', 'school', 'bio', 55
+	gs 'grades', 'grade_award', 'school', 'pe', 55
+	gs 'grades', 'grade_award', 'school', 'eng', 25
+	gs 'grades', 'grade_award', 'school', 'geo', 55
+	gs 'grades', 'grade_award', 'school', 'sci', 55
+	gs 'grades', 'grade_award', 'school', 'shop', 55
+	gs 'grades', 'grade_award', 'school', 'comp', 55
+	gs 'grades', 'grade_award', 'school', 'mus', 55
+	gs 'grades', 'grade_award', 'school', 'his', 55
+
+	!!Money, School, ...
+	money = 2000
+	prezikProver = 3
+	brothersawpirsF = 0
+
+	'<center><img <<$set_imgh>> src="images/system/1_openings/4_csb/16.jpg"></center>'
+	'Your name is Peter Ivanov. You''ve got blond hair and blue eyes. Your parents died shortly after you were born and your great uncle Ivan took you in. He works at a construction company out of one of the suburbs of St. Petersburg. He''s a man''s man and has never been very close to you, choosing to let you make your own way as long as it does not embarrass him publicly. You''ve grown to be quite independent, but lack any real defining qualities.'
+
+	!date_toggle = args[1]
+	if birthday < 10 and birthmonth < 10:
+		$startdob = 'Your birthday: <B>0<<birthmonth>>/0<<birthday>>/<<birthyear>></B> (MM/DD/YYYY)'
+	elseif birthday < 10 and birthmonth >= 10:
+		$startdob = 'Your birthday: <B><<birthmonth>>/0<<birthday>>/<<birthyear>></B> (MM/DD/YYYY)'
+	elseif birthday >= 10 and birthmonth < 10:
+		$startdob = 'Your birthday: <B>0<<birthmonth>>/<<birthday>>/<<birthyear>></B> (MM/DD/YYYY)'
+	elseif birthday >= 10 and birthmonth >= 10:
+		$startdob = 'Your birthday: <B><<birthmonth>>/<<birthday>>/<<birthyear>></B> (MM/DD/YYYY)'
+	end
+
+	*nl
+	gt 'intro_sg_tg', 'intro_6_looks'
+end
+
+if $ARGS[0] = 'intro_6_looks':
+	$loc = 'intro_sg_tg'
+	$loc_args = 'intro_6_looks'
+	*clr & cla
+	if player_avatar = 1:
+		'<center><img HEIGHT = 478 src="images/avatar.jpg"></center>'
+		'She looks exactly like the picture she sent you, use to match fixed profile picture.'
+	else
+		'<center><b><font color = maroon>Character Face</font></b></center>'
+		'<center><b>Allows you to alter hair and eyes.</b></center>'
+		'<center><img <<$set_imgh>> src="images/system/1_openings/shared/character_creation_2.jpg"></center>'
+	end
+	*nl
+	'<center>Customize your:</center>'
+	'<center><a href="exec:gs ''intro_customization'', ''hair''"><img src="images/system/1_openings/shared/icon_hair.png"></a> <a href="exec:gs ''intro_customization'', ''eyes''"><img src="images/system/1_openings/shared/icon_eye.png"></a></center>'
+
+	
+	act 'Meet her': gt 'intro_sg_tg', 'intro_7'
+	act 'Customise Sveta': gt 'intro_customization', 'start'
+end
+
+
+if $ARGS[0] = 'intro_7':
+	*clr & cla
+	'<center><img <<$set_imgh>> src="<<FUNC(''$face_image'')>>"></center>'
+	'She''s shorter than you but rather tall for a woman, with a body that is neither too fat nor especially skinny. On her chest rest a pair of decently-sized breasts. Her <<$curly>><<$pcdesc_hairlength>> hair is <<$pcs_haircol>>.'
+	'She has <<$pcs_eyecol>> eyes with <<$pcs_lashes>>'+iif(glass > 0, ' hidden behind a pair of cheap glasses.', '.')
+	'She looks like she has spent some time in front of the mirror trying to pretty herself up, and her clothes are very clean. Despite that, she still looks rather average. Like she is the type of girl that would be a background character in another person''s life.'
+
+	act 'Go for a walk':
+		*clr & cla
+		'<center><img <<$set_imgh>> src="images/system/1_openings/shared/site_gadukino.jpg"></center>'
+		'You both walk along a dirt road heading through grain fields and towards a forest. <<$pcs_nickname>> is holding your hand and keeps babbling on, asking you question after question.'
+
+		act 'Keep walking':
+			*clr & cla
+			'<center><img <<$set_imgh>> src="images/system/1_openings/shared/site_ruin.jpg"></center>'
+			'You end up being dragged into her pace, getting lost in the conversation between you two. Before long you look up and realize that while you were talking you ended up somewhere in the forest. Just ahead of you is an old ruin.'
+
+			act 'Take a rest and make a move':
+				*clr & cla
+				'<center><img <<$set_imgh>> src="images/system/1_openings/4_csb/9.jpg"></center>'
+				'You see a large stone at the ruins where you and <<$pcs_nickname>> decide to sit down. Being this close to a girl has given you a hardon, you pull out your shirt and do your best to hide it. Then she turns and looks at you and you feel this is your moment, you lean in to kiss her when suddenly...'
+
+				act 'What''s that sound?':
+					*clr & cla
+					!!Background: Black
+					fcolor = rgb(255, 255, 255)
+					bcolor = rgb(0, 0, 0)
+					lcolor = rgb(106, 90, 205)
+
+					'<center><img <<$set_imgh>> src="images/system/1_openings/shared/site_tunnel_1.jpg"></center>'
+					'A loud crack runs through the ruins. The ground gives way beneath you, sending both of you tumbling down into a dark hole. Miraculously you both manage to land with only minor scrapes and bruises. You curse and look around at your surroundings.'
+					'You seem to be in an underground chamber of some sort. Looking up you see that climbing out is not an option. There is also an old gate on one side of the chamber, but it''s either locked or rusted shut. Looks like the only way out is the tunnel on the other side of the chamber.'
+					'Thoughts of getting a kissing picture have been thoroughly broken. You have more immediate concerns of survival. You pull your backpack back onto your shoulders, turn on the flashlight on your phone, and lead <<$pcs_nickname>> out the only way you can.'
+
+					act 'Follow the tunnel':
+						*clr & cla
+						'<center><img <<$set_imgh>> src="images/system/1_openings/shared/site_tunnel_2.jpg"></center>'
+						'The tunnel goes on for what feels like miles. You start to worry that your phone battery will die.'
+
+						act 'Keep going':
+							*clr & cla
+							'<center><img <<$set_imgh>> src="images/system/1_openings/shared/site_cave_altar.jpg"></center>'
+							'At the end of the tunnel you find a dead end. Or at least it seems so. <<$pcs_nickname>> notices light coming through the cracks in the wall. You do your best to knock it down.'
+							'After a few good hits the wall crumbles and you find yourself in another chamber filled with old pottery and baubles. Opposite you is another tunnel, that hopefully leads out. In the center of the room is an altar and on it is what seems to be the centerpiece of this room, a strange amulet.'
+
+							act 'Examine the amulet':
+								*clr & cla
+								'<center><img <<$set_imgh>> src="images/system/1_openings/shared/item_amulet.jpg"></center>'
+								'You pick up the strange amulet and examine it. You notice it''s much lighter than it looks, and unusually warm for a piece of metal. It''s shaped like an antique oil lamp and... is that a penis? This is clearly very old, you think to yourself.'
+								'While holding the amulet, you realize that it''s getting warmer, to the point of being almost hot. Suddenly you feel heat coursing through your entire body. You feel a surge of strength inside you. It''s like you just finished a long jog, but without the fatigue.'
+								'<<$pcs_nickname>> touches your arm, asking what you found. "Just some old junk," you reply as you pocket the amulet. "Come on, let''s get going."'
+
+								act 'Find a way out':
+									*clr & cla
+									'<center><img <<$set_imgh>> src="images/system/1_openings/shared/site_working.jpg"></center>'
+									'You follow the passage and find yourselves in a construction site. There are several keep out signs visible from here.'
+									+$OpenInnerThought+'Shit!'+$CloseInnerThought
+
+									act 'Sneak out':
+										*clr & cla
+										'<center><img <<$set_imgh>> src="images/system/1_openings/shared/site_road.jpg"></center>'
+										'The workers shift has long since finished so sneaking out isn''t too hard. The site is on a highway so hopefully you can make it back before people notice that <<$pcs_nickname>> is missing. It''s already late in the afternoon, you''re hoping you can get back before dark.'
+
+										act 'Walk towards Gadukino':
+											*clr & cla
+											!!Background: Grey
+											fcolor = rgb(255, 255, 255)
+											bcolor = rgb(20, 20, 20)
+											lcolor = rgb(106, 90, 205)
+
+											'<center><img <<$set_imgh>> src="images/system/1_openings/shared/site_road.jpg"></center>'
+											'You and <<$pcs_nickname>> walk along the road for several hours. The sun has started to set and the trees cast long shadows across the road. <<$pcs_nickname>> is lagging behind, getting tired.'
+											'You stick your hands in your pockets, slowing down to let her catch up. You feel a hard object and pull out the amulet to look at it.'
+											'It still looks kind of funny, but holding it is sending a pleasant rush of heat and energy through you. There''s something about it that...'
+											'Suddenly, <<$pcs_nickname>> grabs your arm.'
+											'"Who''s that?"'
+
+											act 'Look up': gt 'intro_sg_tg', 'intro_8'
+										end
+									end
+								end
+							end
+						end
+					end
+				end
+			end
+		end
+	end
+end
+
+if $ARGS[0] = 'intro_8':
+	*clr & cla
+	!!Background: Grey
+	fcolor = rgb(255, 255, 255)
+	bcolor = rgb(20, 20, 20)
+	lcolor = rgb(106, 90, 205)
+	'<center><img <<$set_imgh>> src="images/system/1_openings/4_csb/10.jpg"></center>'
+	'You look up to see a dark figure in a long coat. The shadows cast by the setting sun obscure his figure, but you can see him striding purposefully towards you.'
+	'All of a sudden a cold chill of fear run through you. Two teenagers alone, in the dark, on the side of a road, in the middle of nowhere, being approached by a tall figure cloaked in shadows? There are dozens of horror stories that begin this way, and you don''t want to stick around to find out how it ends.'
+
+	act 'Run':
+		*clr & cla
+		'<center><img <<$set_imgh>> src="images/system/1_openings/shared/npc_reinhold.jpg"></center>'
+		'<<$pcs_nickname>> seems to share your thoughts, and she grabs your hand and dashes into the woods, pulling you along with her. Amidst the panic the amulet slips from your hands and lands in the grass, giving off a slight glow that briefly illuminates the face of the man who was following you. Your long legs allow you to take the lead, dragging <<$pcs_nickname>> behind you into the forest.'
+
+		act 'Keep running':
+			*clr & cla
+			!!Background:Black
+			fcolor = rgb(255, 255, 255)
+			bcolor = rgb(0, 0, 0)
+			lcolor = rgb(106, 90, 205)
+
+			'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforestlost_night0.4.jpg"></center>'
+			'You drag <<$pcs_nickname>> along in a mad dash to escape the dark figure. You twist and turn, trying to lose him in the woods. After a few minutes you feel <<$pcs_nickname>>''s hand rip out of your grasp. You look back to see her collapsing on the ground, panting in exhaustion. There''s no sign of the man anywhere. You sigh in relief, you must have lost him.'
+
+			act 'Continue':
+				*clr & cla
+				'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/howl.jpg"></center>'
+				'Suddenly your hear a terrifying howl close behind you. Another jolt of adrenaline passes through you. Wolves?!'
+
+				act 'Run away':
+					*clr & cla
+					'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/run_wolf.jpg"></center>'
+					'You turn to help <<$pcs_nickname>> just in time to see a wolf knock her down, its fangs clamped down on her neck. A gush of crimson blood sprays the jaws of the wolf as you look on in shock. You hear the sound of rustling brush and in panic try to escape, but almost immediately you feel something heavy crash into you from behind and knock you down.'
+					act 'Lash out':
+						*clr & cla
+						'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/wolf.jpg"></center>'
+						'You panic and lash backwards with your hands, causing the wolf attacking you to spring backwards out of range. Yet another wolf rushes in from the side, tearing into your shoulder.'
+
+						act 'Scream in pain':
+							*clr & cla
+							'<center><img <<$set_imgh>> src="images/locations/gadukino/forest/gadforest_night2.jpg"></center>'
+							'You let out a scream of pain, every thought being buried under the wild panic of adrenaline. You try to get up to run, but a pair of jaws bites deep into your thigh, sending you to the ground.'
+
+							act 'Oh god...':
+								*clr & cla
+								'<center><img <<$set_imgh>> src="images/system/1_openings/4_csb/11.jpg"></center>'
+								'Shock and blood loss set in, causing your vision to start to black out. So this is how you die. Moments before you pass out, you swear you can hear the sound crunching bones from above you and see a flash of red hair.'
+
+								act '...am I dying?': gt 'intro_sg_tg', 'intro_9'
+							end
+						end
+					end
+				end
+			end
+		end
+	end
+end
+
+if $ARGS[0] = 'intro_9':
+	*clr & cla
+	'<center><img <<$set_imgh>> src="images/system/1_openings/4_csb/11.jpg"></center>'
+	'...'
+	wait 1500
+	*nl
+	'...'
+	wait 1500
+	*nl
+	'...'
+	wait 1500
+	*nl
+	'...'
+	wait 1500
+	*nl
+	'Darkness consumes your thoughts for some time. Eventually, images begin to form in your mind and you soon find yourself in the middle of a dream. The strange amulet stands before you and out of it comes a ghost of some sort. Before you even realize what you are doing, you find yourself staring deep into the ghost''s eyes, which then turn into two planet earths.'
+	'"Most who look at the world see only the mundane, but there is more to it. Much more. Now you see that too. You have the potential to shape it all, but first, you have company."'
+
+	act 'Wake up':
+		*clr & cla
+		!!Background: White
+		bcolor = rgb(255, 255, 255)
+		lcolor = rgb(106, 90, 205)
+		fcolor = rgb(0, 0, 0)
+		'<center><img <<$set_imgh>> src="images/system/1_openings/shared/npc_tatiana.jpg"></center>'
+		'You open your eyes to see you are in a hospital room. Next to you is an unfamiliar red-haired girl.'
+		'"Ah, you woke up," she chirped. "We found you half-dead, you know. You almost didn''t make it. There wasn''t anything that I could do for the girl though. Those wolves really did a number on the two of you. Running half-exhausted through the forest must have made you a pretty tempting target. Then again, given how you picked up that amulet, you probably wouldn''t have lasted much longer even if you had managed to get away."'
+
+		act 'What? Who? Where?':
+			*clr & cla
+
+			'<center><img <<$set_imgh>> src="images/system/1_openings/shared/npc_tatiana.jpg"></center>'
+			'You try to ask her all the questions running through your mind right now. Unfortunately all that comes out of your mouth is a croaking groan. Your tongue feels half-numb, as does the rest of your body. Your head is too fuzzy at the moment to think straight.'
+			'"I''d take it easy right now. I managed to save you, but your body still needs to get used to the change."'
+
+			act 'What change?':
+				*clr & cla
+				'<center><img <<$set_imgh>> src="images/system/1_openings/shared/npc_tatiana.jpg"></center>'
+				'"What change?" You manage to get those words out, though your voice sounds a lot higher than normal.'
+				'The girl points at your chest, "Take a look for yourself."'
+
+				act 'Look down':
+					*clr & cla
+					'<center><img <<$set_imgh>> src="images/system/1_openings/4_csb/12.jpg"></center>'
+					'You look down, hair longer than it was yesterday shifting in front of your eyes. The covers of the hospital bed lie flat over your body, but they cover a far different shape than you are used to.'
+					'You whip back the covers and the front-open hospital gown to discover a pair of naked breasts in front of your face. Past them lie the smooth curves of a teenage girl. An empty feeling between your legs informs you that your old friend has gone missing.'
+					'You hastily recover your body in a panic, turning to the girl at your bedside.'
+
+					act 'What did you do to me?!':
+						*clr & cla
+						'<center><img <<$set_imgh>> src="images/system/1_openings/shared/npc_tatiana.jpg"></center>'
+						'The girl frowns at your tone. "<i´>I</i> saved your life. Twice, even. You shouldn''t run off into the woods at night, let alone be fondling ancient amulets you know nothing about. Especially something like the Amulet of Power. Turns out that it passed to you. Must have happened when you touched it."'
+
+						act 'What''s going on?':
+							*clr & cla
+							'<center><img <<$set_imgh>> src="images/system/1_openings/shared/npc_tatiana.jpg"></center>'
+							'"What the hell is going on?" you respond. "What does that have to do with turning me into a girl?!"'
+							'"Hold on, I''ll get around to that. Let me start from the beginning," the girl says. "Magic exists and is real. Ages ago the world was not the same, the fae creatures who possess natural magic lived in balance but the succubus were free to breed with whom ever they wished."'
+							'"They bred with humans and with that human magicians were born. The Sidhe, the most powerful of the fae, feared the increasing numbers of human magicians and cast a very powerful spell to bind the succubus to them, preventing either from being able to reproduce without the other."'
+							'"All magicians have some of that original fae blood in their bodies. It is through that that they are able to connect with the world of magic."'
+							'The redhead adjusts her glasses. "Most of the world simply ignores magic, or are protected from it by magic''s natural desire to remain hidden."'
+
+							act 'Continue':
+								*clr & cla
+								'<center><img <<$set_imgh>> src="images/system/1_openings/shared/npc_tatiana.jpg"></center>'
+								'"But last night there was a powerful burst of magical energy, strong enough to be clearly felt by any with magical connections. Can you guess where this surge came from? Yeah, that cave you found. Apparently the surge occurred when you opened the seal to the archive. Anyway, that was when we started to search. That source of power is desired by many, but it is extremely dangerous and in the wrong hands could cause untold horrors."'
+								'She stops for a few moments for you to process that information. It seems really far fetched.'
+								'"A man named Reinhold wanted to prevent the amulet being misused, so he went out to find it. Of course, the moment you saw him, you dropped the amulet and bolted into the woods. He picked it up but didn''t bother to check you over. Unfortunately, he''s probably realized by now that the amulet no longer has the power and now he''ll be out to hunt you down."'
+
+								act 'So, the whole world is just an illusion?':
+									*clr & cla
+									'<center><img <<$set_imgh>> src="images/system/1_openings/shared/npc_tatiana.jpg"></center>'
+									'"So magic exists and is used by all these people and creatures. But the rest of us just don''t see it, or we convince ourselves it didn''t happen?" You ask.'
+									'The girl nods. "Yes. You''re a quick study. Machines, apartments, television and the Internet, all this really does exist and is in the form in which people see it. But if I say, hurl a fireball, then people might see that I threw a grenade or shot a flamethrower. The average human mind can''t process magic, so it blocks it out as a way to protect the person from going crazy."'
+									'"Hence such things as little green men, UFOs, poltergeists, and spontaneous combustion are from when people encounter a difficult-to-hide phenomenon and their minds come to a flawed conclusion. In some cases, a person''s mind can''t cope with the spell they witness and they are driven so crazy that no one believes them."'
+
+									act 'And who are you?':
+										*clr & cla
+										'<center><img <<$set_imgh>> src="images/system/1_openings/shared/npc_tatiana.jpg"></center>'
+										'"And who are you?" you ask.'
+										'The girl smiled. "Me? I''m Tatiana, a young mage with an keen interest in magical phenomenon. I specialize in the treatment of mutations, and magic relating to the body. I have little combat skill, so I rely on the services of Gustav to provide some muscle. He''s a Mutant due to magical exposure. It gives him unmatched physical strength, plus he''s a great tracker."'
+										'"The two of us run a detective agency for cover and money, but our real objective is studying magic and its effects."'
+
+										act 'What do you want from me?':
+											*clr & cla
+											'<center><img <<$set_imgh>> src="images/system/1_openings/shared/npc_tatiana.jpg"></center>'
+											'"And what is this amulet? Where did it come from?" you ask.'
+											'Tatiana thinks about it for a few moments. "It was made by the trickster Rikudo, one of the most powerful ancient magicians. He taunted the only living mage who could control its immense power by cursing him to be stuck in a female form, yet making it only activate for a male mage."'
+											'"I''m not a mage though, how could the power be transferred to me? And what does that have to do with turning me into a girl?"'
+											'"Well as for how the power was transferred, it seems that its long time underground caused it to malfunction and its power to enter your body. It was far too powerful for your body and would have ended up killing you and who knows how many others. Which is where the ''turning you into a girl'' part comes in."'
+
+											act 'Continue':
+												*clr & cla
+												'<center><img <<$set_imgh>> src="images/system/1_openings/shared/npc_tatiana.jpg"></center>'
+												'"See, when I found you I could feel the aura of power emanating from you. That made it easy to put things together. I knew enough about the Amulet to know that the power would have destroyed you. So I drew from that aura to transform you into someone who was protected from the masculine alignment of the power."'
+												'Tatiana runs a hand through her hair and giggles. "So I made you into a pretty teenage girl. Now the power is going to lie dormant, saving you from blowing up a city or something."'
+												'"Wasn''t there any other way? Taking away my manhood is a pretty drastic move!"'
+
+												act 'Continue':
+													*clr & cla
+													'<center><img <<$set_imgh>> src="images/system/1_openings/shared/npc_tatiana.jpg"></center>'
+													'"Of course there was another way. I could have just stopped your heart and let your power dissolve into nature. You would have died though. Reinhold might be the kind of person to kill you to save others, but I didn''t want to kill you right after saving you. Plus with my magic I was able to take this risk. Sure, maybe with more time doing research I could have worked out another solution, but I didn''t have a lot of time."'
+													'"Of course I couldn''t just leave a newly teenage girl without parents or a home. So I decided to kill two birds with one stone. Instead of just turning you into the girl version of you, I turned you into that girl you were with."'
+
+													act 'What?':
+														*clr & cla
+														'<center><img <<$set_imgh>> src="images/system/1_openings/shared/npc_tatiana.jpg"></center>'
+														'Startled, you reach up to your face, tracing out the features. You didn''t get a chance to become familiar with her face, but it feels about right. This whole time, the death of <<$pcs_nickname>> didn''t feel real, like she was still around somehow. Maybe it''s because you now "are" <<$pcs_nickname>>, but even now you don''t feel a sense of loss or guilt.'
+														'"Having a template to work off of really helped. Not even a geneticist could tell you two apart; you are identical from your fingerprints down to your DNA. Of course, that means your new ''equipment'' down there is fully functional as well, so if you don''t want to be a mommy, you should start thinking about contraceptives. You should probably also stay away from any male relatives if you don''t want to end up with a kid with eleven toes or something."'
+														'You angrily look at Tatiana, "So you think I''m a complete woman? On the outside I''ll look like one, but guess what, I''m still a man!"'
+														'"Well, yes. I won''t argue about that." Tatiana agrees. "You can decide what you want to do with your life, but you might want to play the part of <<$pcs_firstname>> until graduation at least. On a side note, I already took care of an alibi. Yesterday, "<<$pcs_firstname>>" was found half-dead on the edge of the woods while the leftovers of Peter''s body were found deeper in. It''s in the news." With these words, she tosses a newspaper onto the bed, an article circled out.'
+
+														act 'Read the newspaper':
+															*clr & cla
+															'<center><img <<$set_imgh>> src="images/system/1_openings/4_csb/13.jpg"></center>'
+															'There is a news report about a teenage boy, whose remains were found by a group of hunters half-eaten by wolves.'
+															'You give Tatiana a bewildered look. She has an enigmatic smile, "Well, I am a magician. That''s something that I can do. Reinhold has definitely lost the trail; there''s no reason he should suspect the power been passed to a girl. You took <<$pcs_firstname>>''s place, and she took yours. The body that ''died'' in the woods was a perfect copy of your old self, from your absorbed amulet energy down to the placement of every single hair."'
+															'"Anyways, your ''mother'' will be by in a couple hours to pick you up; she thinks that you''ve got some amnesia from a head injury and mental trauma from seeing your ''boyfriend'' get eaten alive by wolves, so you should probably be covered for any slip-ups. Just play the part of the traumatized little schoolgirl and it should be all good. Have fun."'
+															'She gets up and heads to the door, opening it up to reveal a tall man with red hair and face tattoos. "Come on, Gustav, let''s go." The pair disappears into the hall, leaving you with your thoughts.'
+
+															act 'Think about your situation':
+																*clr & cla
+																'<center><img <<$set_imgh>> src="images/system/1_openings/4_csb/14.jpg"></center>'
+																'You aren''t sure what to think.'
+																'On the one hand, you''ve lost your manhood forever. You''ll have to deal with skirts and periods and makeup and babies and all other sorts of girly things.'
+																'On the other hand, you''ve been granted a clean slate. No more beatings, no threats of becoming homeless, and you are gaining the family you never had. Plus, you''re going to be able to spy on girls in the locker rooms with out girls screaming this time.'
+																'Whining about the situation isn''t going to change it, so you resolve to deal with it one day at a time, living your new life as <<$pcs_firstname>> "<<$pcs_nickname>>" <<$pcs_lastname>>.'
+
+																act 'Continue':
+																	*clr & cla
+																	'<center><img <<$set_imgh>> src="images/system/1_openings/4_csb/start_csb.jpg"></center>'
+																	'Welcome to the Cursed Schoolboy version! You may have lost your masculinity and your old life, but you''ve gained new possibilities in return! Will you try to live your new life as a mere schoolgirl, or do you have grander aspirations with your newfound knowledge of magic? The choice is yours!'
+																	!!'Now, would you like to dive right into the action? Or would you rather take some time to get used to your new body and life?'
+
+																	act 'Start main game!': gt 'intro_sg_tg', 'intro_end'
+
+																	!! [Will lead into the prologue, which is currently WIP]
+																	!! act 'Let''s keep this intro going!':
+																end
+															end
+														end
+													end
+												end
+											end
+										end
+									end
+								end
+							end
+						end
+					end
+				end
+			end
+		end
+	end
+end
+
+if $ARGS[0] = 'intro_end':
+	*clr & cla
+	'<center><img <<$set_imgh>> src="images/system/1_openings/4_csb/start_csb.jpg"></center>'
+	*nl
+	'You can choose from two starting locations:'
+	*nl
+	'In the Pavlovsk start you awaken at your parent''s home in the provincial town of Pavlovsk <i>(Recommended for new players)</i>. In the Gadukino start you are visiting your grandparent''s house in the small farming village of Gadukino.'
+
+	act 'Pavlovsk Start': gt 'intro_sg_tg', 'pav_start'
+	act 'Gadukino Start': gt 'intro_sg_tg', 'gad_start'
+end
+
+if $ARGS[0] = 'pav_start':
+	*clr & cla
+	'<center><h2>Pavlovsk</h2></center>'
+	'<center><img <<$set_imgh>> src="images/system/1_openings/shared/site_pavlovsk.jpg"></center>'
+	*nl
+	'<center>A provincial town in a rural area of Russia, it looks much like all the other towns in the region. Population: about 15000 inhabitants.</center>'
+
+	act 'Continue': $starting_location = 'pavlovsk' & gt 'intro_sg_tg', 'game_start'
+	act 'Change location': gt 'intro_sg_tg', 'gad_start'
+end
+
+if $ARGS[0] = 'gad_start':
+	*clr & cla
+	'<center><h2>Gadukino</h2></center>'
+	'<center><img <<$set_imgh>> src="images/system/1_openings/shared/site_pavlovsk.jpg"></center>'
+	*nl
+	'<center>A small farming village with many rickety wooden houses and even more ruins of houses. This village has seen better times.</center>'
+
+	act 'Continue': $starting_location = 'gadukino' & gt 'intro_sg_tg', 'game_start'
+	act 'Change location': gt 'intro_sg_tg', 'pav_start'
+end
+
+if $ARGS[0] = 'game_start':
+	*clr & cla
+	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/mom/mother.jpg"></center>'
+	'Shortly after Tatiana left, your new mother showed up to take you to your new home. You met your new family and did the best you could to fit in, afraid of them figuring out that you are not <<$pcs_firstname>>. They seem to have bought Tatiana''s explanation of amnesia and mental trauma, going out of their way to reintroduce you to your new life.'
+
+	act 'Continue':
+		*clr & cla
+		'<center><img <<$set_imgh>> src="images/system/1_openings/4_csb/15.jpg"></center>'
+		'Over the next week, you slowly became accustomed to your new life. You aren''t used to being a girl just yet, but you''ve come to think of yourself as <<$pcs_nickname>> instead of Peter, and <<$pcs_nickname>>''s family as your own.'
+		'There were a few incidents where you acted in some decidedly non-feminine ways. Luckily Tatiana''s alibi has proved helpful here as well, covering your mistakes.'
+		*nl
+		'You''ve noticed some other mental changes apart from just thinking of yourself as <<$pcs_firstname>>. Perhaps it is a result of your new gender, but with your new body has come an attraction towards men. You are a little unsettled by these changes, but you can''t feel repulsed by these new desires any more than you could have been repulsed for finding girls attractive before.'
+		'The first time you saw a man''s penis was a mind-opening experience, awakening unfamiliar feelings. Luckily it seems that you''ve retained your attraction towards women, making your changing sexuality easier to deal with. So far, you haven''t had the time to really explore a woman''s pleasure.'
+
+		act 'Continue':
+			*clr & cla
+			if $starting_location = 'pavlovsk': '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/home/bedrpar.jpg"></center>'
+			if $starting_location = 'gadukino': '<center><img <<$set_imgh>> src="images/system/1_openings/shared/site_gadukino.jpg"></center>'
+			'It will take some more time for you to get completely used to your new body and life as <<$pcs_firstname>>. For now, you should just focus on getting out of bed.'
+
+			act 'Continue':
+				cla
+				showstat 1
+				showobjs 1
+
+				!!Stuff from the backpack, phone
+				prezik = 3
+				pornMagazine = 40
+				balans = 200
+
+				minut = 0
+				hour = 9
+
+				msg 'You have gained the trait ''Everything is New Again''! <br>Being thrust into a new life has forced you to re-evaluate and relearn everything. You pick up new skills more quickly for a short time.'
+
+				gs 'stat'
+
+				act 'Start your new life':
+					if $starting_location = 'pavlovsk': gt 'bedrPar'
+					if $starting_location = 'gadukino': gt 'gadhouse', 'start'
+				end
+			end
+		end
+	end
+end
+
+
+--- intro_sg_tg ---------------------------------
+

locations/intro_uni.qsrc

@@ -0,0 +1,258 @@
+# intro_uni
+
+music_loop = 0
+CLOSE ALL
+gs 'themes', 'indoors'
+$start_type = 'uni'
+
+!!if $ARGS[0] = 'elective_choice':
+!!	
+!!	
+!end
+
+if $ARGS[0] = 'start':
+	!! Intro to starting uni
+	$loc = 'intro_uni'
+	$loc_args = 'custom'
+	*clr & cla
+	'<center><img <<$set_imgh>> src="images/locations/city/island/university/uni_day.jpg"></center>'
+	'The big day has finally arrived! Your family piled into your stepfather''s Gazelle pickup and you all traveled from your hometown, Pavlovsk, to the big city of St. Petersburg. Today is the day you move into the University dorms to start this new phase of your life.'
+	'As you approach the city you thing back to your school days and recall what type of kid you were...'
+
+	act 'Continue': gt 'intro_city_select', 'start'
+end
+
+if $ARGS[0] = 'custom':
+	$loc = 'intro_uni'
+	$loc_args = 'custom'
+	pcs_hairlng = 100
+	!!Default Names
+	$pcs_firstname = 'Svetlana'
+	$pcs_lastname = 'Lebedev'
+	$pcs_nickname = 'Sveta'
+
+	!!Player names are set here
+	$temp_firstname = '<<$pcs_firstname>>'
+	$pcs_firstname = input("What is your first name? (Leave blank for Svetlana)")
+	if $pcs_firstname = '':$pcs_firstname = '<<$temp_firstname>>'
+	killvar '$temp_firstname'
+
+	$temp_lastname = '<<$pcs_lastname>>'
+	$pcs_lastname = input("What is your family name? (Leave blank for Lebedev)")
+	if $pcs_lastname = '':$pcs_lastname = '<<$temp_lastname>>'
+	killvar '$temp_lastname'
+
+	$temp_nickname = '<<$pcs_nickname>>'
+	$pcs_nickname = input("What is your nickname? (Leave blank for Sveta)")
+	if $pcs_nickname = '':$pcs_nickname = '<<$temp_nickname>>'
+	killvar '$temp_nickname'
+
+!!	Just hair and eye color here for now; the dialog will be update as more options are added
+	'<center><b><font color = maroon>CHARACTER CUSTOMIZATION</font></b></center>'
+	'<center><b>Allows you to alter hair and eyes, use to match fixed profile picture if in use.</b></center>'
+	'<center><img <<$set_imgh>> src="images/system/1_openings/shared/character_creation_2.jpg"></center>'
+	'As you look in the mirror, your face comes into focus. Some aspects of your appearance are already set, you can define the others now.'
+	'You are fairly tall.'
+	*nl
+	'<center>Customize your:</center>'
+	'<center><a href="exec:gs ''intro_customization'', ''hair''"><img src="images/system/1_openings/shared/icon_hair.png"></a> <a href="exec:gs ''intro_customization'', ''eyes''"><img src="images/system/1_openings/shared/icon_eye.png"></a></center>'
+	
+	act 'Done': gt 'intro_uni', 'vlad_intro'
+end
+
+if $ARGS[0] = 'vlad_intro':
+	!! Intro to your stepfather
+	*clr & cla
+	'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big28.jpg"></center>'
+	!!basic desc of Vlad, maybe a preset is used somewhere in game already? If not already in the intro (I think it is.)
+	'Having spent almost an hour in the cramped truck, you jump out as soon as you arrive. Vlad gets out, stretches a bit, then tells you to take your sister and find out where you''re staying, while the rest of the family unloads your stuff from the back of the truck.'
+	'Looking around, you see many people doing the same, the younger ones heading inside while the families unload the future students belongings to be taken inside.'
+
+	act 'Check Kolka': gt 'intro_uni', 'kolka_intro'
+end
+
+if $ARGS[0] = 'kolka_intro':
+	!! Intro to Kolka
+	*clr & cla
+	'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big34.jpg"></center>'
+	!!basic desc of Kolka, maybe a preset is used somewhere in game already? If not already in the intro (I think it is.)
+	'Your brother, caught up in the excitement of opening day, tries to slide past Vlad unnoticed but is called back to help unload. He sighs and shuffles his feet a bit before turning around to help his dad get your stuff. You feel a bit bad for him, but he will be able to get a better look around next year, when he graduates secondary school and starts here.'
+
+	act 'Head inside': gt 'intro_uni', 'anya_intro'
+end
+
+if $ARGS[0] = 'anya_intro':
+	!! Intro to Anya
+	*clr & cla
+	'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big33.jpg"></center>'
+	!!basic desc of Anya, maybe a preset is used somewhere in game already? If not already in the intro (I think it is.)
+	'Your sister comes up to you, links her arm with yours, and pulls you forward. "Come on, <<$pcs_nickname>>! I want to see this place."'
+	'Already knowing the answer, you ask anyway "Why aren''t you enrolled then?"'
+	'"I''m comfortable where I am right now. When I''m ready, maybe I will."'
+	'Rolling your eyes, you let her keep pulling on your arm.'
+
+	act 'Enter the University': gt 'intro_uni', 'diane_intro'
+end
+
+if $ARGS[0] = 'diane_intro':
+	!! Going into Uni quad to get escort - meeting Diane(Rex older sister)
+	*clr & cla
+	'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big253.jpg"></center>'
+	'Joining the crowd heading inside, you and Anya go into the main courtyard where the new students are being greeted by the older students.'
+	'A (color undecided)-haired girl comes up and introduces herself. "Welcome, I am Diane Borisyuk... Anya?"'
+	'Anya squeals with joy and runs to her and gives her a big hug. "Diane! I haven''t seen you in a long time. <<$pcs_nickname>>, this is Diane, Rex''s sister. She used to buy us booze for our parties when we were younger."'
+	'Diane laughs and says "that <b>was</b> a long time ago. So this is your sister? Nice to meet you. You''re going to have a lot of fun here. Let''s get you your dorm keys and get you set up!"'
+	'"By the way, what are you studying?"'
+
+	act 'Go get your key': gt 'intro_uni', 'degree_choice'
+end
+
+if $ARGS[0] = 'degree_choice':
+	!! Choose your degree here.
+	!!variables for attending UNI
+	university['prep_counter'] = 0
+	university['prep_enrolled'] = 0
+	university['student'] = 1
+	university['enrolled_in_semester'] = 1
+	home_owned[11] = 1
+	gs 'set_home', 11
+	*clr & cla
+	'<center><img <<$set_imgh>> src="images/system/1_openings/6_uni/degree_choice.jpg"></center>'
+	'This is where you decide your degree. For now this is just a placeholder to be expanded once we add in more degrees to choose from.'
+	
+	act 'Teaching':
+		!!variables for teaching degree
+		$university['enrolled_in']= 'teaching_studies'
+		gs 'grades', 'createclass', 'uni_teaching_studies_semester_1', 'general education 101', 3, 2, 'no', 'no', 1, 12
+		gs 'grades', 'createclass', 'uni_teaching_studies_semester_1', 'teaching methods 101', 3, 2, 'no', 'no', 1, 12
+		gs 'grades', 'createclass', 'uni_teaching_studies_semester_1', 'learning theories 101', 3, 2, 'no', 'no', 1, 12
+		gs 'grades', 'grade_award', 'uni_teaching_studies_semester_1', 'general education 101', 35
+		gs 'grades', 'grade_award', 'uni_teaching_studies_semester_1', 'teaching methods 101', 35
+		gs 'grades', 'grade_award', 'uni_teaching_studies_semester_1', 'learning theories 101', 35
+		!!gt 'intro_uni', 'elective_choice'
+		gt 'intro_uni', 'dorm_intro'
+	end
+end
+
+if $ARGS[0] = 'dorm_intro':
+	!! Going to the dorm to get the keys
+	*clr & cla
+	'<center><img <<$set_imgh>> src="images/locations/city/island/university/dorm/dorm.jpg"></center>'
+	'You follow Diane into the dorms building into the main hallway. An older woman, with a very unpleasant and judgmental look on her face sits in a room just off the main hallway.'
+	'Diane goes up to her and says "I need <<$pcs_firstname>> <<$pcs_lastname>>''s room key, please."'
+	'The woman looks your name up on her computer then finds your dorm key and hands it to you.'
+	'"Come on <<$pcs_nickname>>, I want to see your room." Anya drags you towards the elevators, with a smiling Diane following you.'
+
+	act 'Check your room': gt 'intro_uni', 'vika_intro'
+end
+
+if $ARGS[0] = 'vika_intro':
+	!! Visiting dorm room - meeting Vika
+	*clr & cla
+	'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big220.jpg"></center>'
+	'Getting out of the elevator on the tenth floor, you follow the number on your key to the door with the same number. Inside you find a blonde haired girl sitting on one of the two beds in the room. Looking around, you see there is a desk for each of you and a large wardrobe for your clothes.'
+	'The girl gets up and comes to greet you. "Hi, I''m Vika Kirilova. I guess one of you is my new roommate?" She looks between you and Anya, not sure which it is.'
+	'"Hello, Vika. I am <<$pcs_firstname>> <<$pcs_lastname>>. I''m your roommate, this is my sister, Anya." Anya gives her a smile and say hello, mostly checking out your room.'
+	'Diane kind of stays in the doorway, though you do notice a strange look she gives Vika before saying, "We should let your parents know which room you''re in so they can bring in your stuff, while I show you around the campus."'
+	'Once you get back out into the hallway, you ask why she doesn''t like your roommate. "There are a lot of nasty rumors about her. I am not exactly a prude or anything, but if any of those rumors are true, then she makes me look like a virgin living under a rock my whole life."'
+
+	act 'Find your parents': gt 'intro_uni', 'mom_intro'
+end
+
+if $ARGS[0] = 'mom_intro':
+	!! Back outside Intro to Mom - answer sets relationship level
+	*clr & cla
+	'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big29.jpg"></center>'
+	'Once you get back outside, you find your family standing around the piles of boxes with your stuff, surrounded by people coming and going. You tell your father which room and give him the key before your <<$npc_nickname[''A29'']>> pulls you to one side. Anya and Diane step away to catch up a bit and give you some privacy.'
+	'"Big day! Are you excited? I know I am." She gives you a proud look.'
+	'"Yeah, <<$npc_nickname[''A29'']>>! There is so much to do and see here."'
+	'"Well don''t forget to stay focused on your studies, and stay away from boys for now. There is plenty of time after you have finished school to think about that stuff."'
+	
+	act 'I will be fine (neutral response)':
+		gs 'npc_relationship', 'set', 'A29', '50'
+		*clr & cla
+		'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big29.jpg"></center>'
+		'"Everything will be fine, <<$npc_nickname[''A29'']>>. You got me here, I will do the rest."'
+		'She gives you a hug before going to stand over your pile of stuff to keep an eye on it.'
+		
+		act 'Go on tour': gt 'intro_uni', 'tour_intro'
+	end
+	act 'Give it a rest (angry response)':
+		gs 'npc_relationship', 'set', 'A29', '30'
+		*clr & cla
+		'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big29.jpg"></center>'
+		'"Just stop <<$npc_nickname[''A29'']>>! I''m an adult now, and I will do whatever I want with who I want!"'
+		'Her eyes flash in anger, but she doesn''t say anything. She goes and stands next to your pile to keep an eye on it.'
+		
+		act 'Go on tour': gt 'intro_uni', 'tour_intro'
+	end
+	act 'Don''t worry (loving response)':
+		gs 'npc_relationship', 'set', 'A29', '70'
+		*clr & cla
+		'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big29.jpg"></center>'
+		'"I know, don''t worry so much <<$npc_nickname[''A29'']>>. You got me here, I will do the rest."'
+		'She gives you a big hug before going to stand over your pile of stuff to keep an eye on it.'
+
+		act 'Go on tour': gt 'intro_uni', 'tour_intro'
+	end
+end
+
+if $ARGS[0] = 'tour_intro':
+	!! Taking a short tour - can be expanded as more buildings are added - sports arena/pool etc
+	*clr & cla
+	'<center><img <<$set_imgh>> src="images/locations/city/island/university/uni_day.jpg"></center>'
+	'You rejoin Anya and Diane, who begins to point out the main areas of the University.'
+	'"Right now you''re in the main courtyard. Most places can be found starting here. You already know where the dorms are, and I imagine you been to the admin building already, where you enrolled. Any paperwork stuff, or trouble you get into will be handled there, it has all the offices."'
+	*nl
+	'She takes you to the front of what must be the largest building on campus. "Most of your starting classes will be here, finding your way around inside is pretty easy despite its size, there are signs everywhere in there."'
+	*nl
+	'She takes you up to another large building, and says "This is the library. Most students without a computer come here to study. You can find me inside a lot, I''m studying to be a teacher and I would be happy to help if you need it."'
+	*nl
+	'"Well that''s the basic tour, the rest you will find as you go."'
+
+	act 'End the tour': gt 'intro_uni', 'tour_end'
+end
+
+if $ARGS[0] = 'tour_end':
+	!! End tour
+	*clr & cla
+	'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big253.jpg"></center>'
+	'The three of you walk back to the dorms, with you taking in the sights while Anya and Diane chat about Rex and the old days.'
+	'Once you get there, Diane reminds you to look for her in the library if you need anything before hugging Anya goodbye and heading back into the crowd of new students.'
+	'Not seeing your <<$npc_nickname[''A29'']>> or your pile of stuff, you head up to your room on the tenth floor.'
+
+	act 'Say goodbye to your family': gt 'intro_uni', 'family_goodbye'
+end
+
+if $ARGS[0] = 'family_goodbye':
+	!! Say goodbye to your family
+	*clr & cla
+	'<center><img <<$set_imgh>> src="images/locations/city/island/university/dorm/dorm_room/room.jpg"></center>'
+	'Inside you find your stuff piled on your bed and your <<$npc_nickname[''A29'']>> putting the last of your clothes into the wardrobe. You don''t see Vika, she must have left to give privacy or to avoid meeting them.'
+	'Anya gives a big hug, congratulates you on starting university, and then steps back to give the rest of your family room to do the same. Your brother gives you an awkward hug and whispers to text him what it''s like before stepping back too.'
+	'Vladimir comes over and hugs you too, tells you how proud he is to be your stepfather and to call if you need anything.'
+	if npc_rel['A29'] >= 60:
+		'Your <<$npc_nickname[''A29'']>> finishes what she is doing and comes over, tears in her eyes. Wrapping you in a big hug, she tells you how glad she is you decided to attend university and reminds you again to stay away from boys, before joining the rest of the family by the door.'
+	elseif npc_rel['A29'] <= 30:
+		'Your <<$npc_nickname[''A29'']>> finishes what she is doing and comes over and gives you an awkward hug, saying she is sorry for fighting with you on your big day, before joining the rest of the family by the door.'
+	else
+		'Your <<$npc_nickname[''A29'']>> finishes what she is doing and comes over and gives you a hug, telling how happy she is that you enrolled, before joining the rest of the family by the door.'
+	end
+	*nl
+	'They all wave and head out, leaving you alone in the room. You spend some time putting the rest of your stuff away or stashing under your bed for later, before deciding to explore.'
+
+	act 'Head outside': gt 'intro_uni', 'welcome_intro'
+end
+
+if $ARGS[0] = 'welcome_intro':
+	!! Welcome to Girl Life speech
+	*clr & cla
+	'<center><img <<$set_imgh>> src="images/system/1_openings/6_uni/uni_start.jpg"></center>'
+	'Welcome to Girl Life. Guide <<$pcs_nickname>> through the many challenges of University life. Manage schoolwork, a job, and relationships with the people you meet on your journey.'
+
+	act 'Start the game': gt 'uni_grounds', 'main'
+end
+
+
+--- intro_uni ---------------------------------
+

locations/intro_uni_m.qsrc

@@ -0,0 +1,13 @@
+# intro_uni_m
+
+music_loop = 0
+CLOSE ALL
+gs 'themes', 'indoors'
+$start_type = 'uni_m'
+
+'Not yet available!!'
+
+act 'Return': gt 'begin', 'start'
+
+--- intro_uni_m ---------------------------------
+

locations/intro_uni_tg.qsrc

@@ -0,0 +1,13 @@
+# intro_uni_tg
+
+music_loop = 0
+CLOSE ALL
+gs 'themes', 'indoors'
+$start_type = 'uni_tg'
+
+'Not yet available!!'
+
+act 'Return': gt 'begin', 'start'
+
+--- intro_uni_tg ---------------------------------
+

locations/journal_quests.qsrc

@@ -331,7 +331,7 @@ if $ARGS[0] = 'start':
 		'<center><h1>Katja Meynold</h1></center>'
 		*nl
 		if katjaQW['QWstage'] = 0:
-			'Katja is both cute, smart and popular. If I want to be her friend'+iif(npc_rel['A14'] < 60, ', I need to get to know her better by talking with her at school or the disco', '')+ +iif(pcs_makupskl < 40, ', I need to improve my make up skill since she is very into make up', '')+ +iif(class['school_grade_average'] < 65, ', I need to improve my grades since being good at school is important to her', '')+ +iif(fame['pav_slut'] >= 25, ', I need to be seen as less of a slut', '')+ +iif(hotcat < 6, ', I need to improve my looks', '')+ +iif(npc_rel['A14'] >= 60 and fame['pav_slut'] < 25 and class['school_grade_average'] >= 65 and pcs_makupskl >= 40 and hotcat >= 6, ', I should probably go to school and see if somthing happens.', '.')
+			'Katja is both cute, smart and popular. If I want to be her friend'+iif(npc_rel['A14'] < 60, ', I need to get to know her better by talking with her at school or the disco', '')+ +iif(pcs_makupskl < 40, ', I need to improve my make up skill since she is very into make up', '')+ +iif(class['school_grade_average'] < 65, ', I need to improve my grades since being good at school is important to her', '')+ +iif(fame['pav_slut'] >= 50, ', I need to be seen as less of a slut', '')+ +iif(hotcat < 6, ', I need to improve my looks', '')+ +iif(npc_rel['A14'] >= 60 and fame['pav_slut'] < 50 and class['school_grade_average'] >= 65 and pcs_makupskl >= 40 and hotcat >= 6, ', I should probably go to school and see if somthing happens.', '.')
 		elseif katjaQW['QWstage'] = 1:
 			'Katja has agreed to hang out after school. I should do this more often to see where this leads.'
 		elseif katjaQW['QWstage'] = 2:

locations/katjaEvDin.qsrc

@@ -1,5 +1,192 @@
 # katjaEvDin
-!2021/05/02
+!2022/28/01
+
+if $ARGS[0] = 'kiss':
+	*clr & cla
+	minut += 5
+	pcs_mood = 100
+	pcs_horny += 10
+	katjaQW['horny'] += 10
+
+	if katjaQW['QWstage'] < 3:
+		if katjaQW['slut'] < 5:
+			katjaQW['slut'] = 10
+		else
+			katjaQW['slut'] += 5
+		end
+		katjaQW['QWstage'] = 3
+	end
+
+	gs 'stat'
+	gs 'katjaEvDin'
+	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/kiss.jpg"></center>'
+	'You bring your face to Katjas face and feel her hot breath on your lips. Katja closes her eyes and touches her lips to your lips.'
+	'Katjas nimble tongue darts into your mouth, you suck on her tongue, then your tongue goes into Katja''s mouth and she very gently caressed it with her tongue and sucks on your tongue.'
+	'Katja finally pushes away from your flushed face and licks her lips.'
+
+	if katjaQW['horny'] >= 60:
+		'Katja moves her hands to your chest and gently touches them with her finger.'
+
+		act 'Let her':
+			*clr & cla
+			minut += 5
+			pcs_horny += 10
+			katjaQW['horny'] += 10
+			gs 'stat'
+			'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/sex/school/tits.jpg"></center>'
+			'Katja bares your breasts and touches them with her fingers, then she bows her head and begins to lick your nipple.'
+
+			gs 'boystat', 'A14', 'a'
+			gs 'KatjaEvDin', 'sex'
+		end
+
+		gs 'willpower', 'foreplay', 'resist', 'hard'
+		if will_cost <= pcs_willpwr:
+			act 'Remove her hands (<<will_cost>> Willpower)':
+				*clr & cla
+				minut += 5
+				pcs_horny += 10
+				KatjaQW['dom'] -= 1
+				katjaQW['horny'] -= 10
+				katjaQW['horny'] = min(katjaQW['horny'], 60)
+				gs 'willpower', 'pay', 'resist'
+				gs 'stat'
+				'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big14.jpg"></center>'
+				'You remove her hands and smile at Katja.'
+
+				act 'Further':gt 'KatjaHomeTalk'
+			end
+		else
+			act 'Remove her hands (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+		end
+	elseif npc_sex['A14'] > 0:
+		act 'Touch her chest':
+			menu_off = 1
+			*clr & cla
+			minut += 5
+			pcs_horny += 10
+			katjaQW['horny'] += 10
+			gs 'stat'
+			'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/sex/school/touch.jpg"></center>'
+			'You touch Katja''s tender breasts and she sighs deeply, biting her lip.'
+
+			if katjaQW['horny'] < rand(0,60):
+				'You''re her breasts a little before Katja moves away from you.'
+				'"I''m not in the mood right now Sveta" Katja says "Another time"'
+
+				act 'Accept Katja''s decision':gt 'KatjaHomeTalk'
+
+				gs 'willpower', 'sex', 'force', 'hard'
+				if will_cost <= pcs_willpwr:
+					act 'Grab her (<<will_cost>> Willpower)':
+						*clr & cla
+						minut += 5
+						pcs_horny += 10
+						KatjaQW['dom'] -= 1
+						katjaQW['horny'] -= 10
+						gs 'stat'
+						'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/sex/school/grab.jpg"></center>'
+						'You grab Katja firmly so she can''t back away.'
+!!{
+						if pcs_dom < KatjaQW['dom']:
+							'Katja pushes your arms apart and pulls away, you understand that she doesn''t want more.'
+
+							if mey_vika['key'] = 1:
+								Act 'Leave the room': gt 'mey_home', 'start'
+							else
+								act 'Say goodbye and leave':minut += 5 & gt 'pav_residential'
+							end
+						else}
+							'Katja freezes in your arms and you stroke her body and kiss her neck.'
+
+							act 'Lick her breast':
+								*clr & cla
+								minut += 5
+								pcs_horny += 10
+								katjaQW['horny'] += 10
+								gs 'stat'
+								'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/sex/school/tits_katja_get.jpg"></center>'
+								'You free Katja''s small, firm breasts from under her clothes and begin to lick them, paying special attention to her nipples. Katja closed her eyes in pleasure and bites her lip.'
+
+								gs 'boystat', 'A14', 'a'
+								gs 'KatjaEvDin', 'sex'
+							end
+						end
+!!					end
+				else
+					act 'Grab her (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+				end
+			else
+				'Katja moves her hands to your chest and gently touches them with her finger.'
+				'Katja starts stroking your chest stronger and you feel as she undoes your bra, trying to get to your breasts.'
+
+				act 'Let her':
+					*clr & cla
+					minut += 5
+					pcs_horny += 10
+					katjaQW['horny'] += 10
+					gs 'stat'
+					'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/sex/school/tits.jpg"></center>'
+					'Katja bares your breasts and touches them with her fingers, then she bows her head and begins to lick your nipple.'
+
+
+					gs 'boystat', 'A14', 'a'
+					gs 'KatjaEvDin', 'sex'
+				end
+
+				act 'Ask Katja to stop.':
+					*clr & cla
+					'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/sex/school/touch.jpg"></center>'
+					'You ask Katja to stop but she ignores you.'
+
+					gs 'willpower', 'foreplay', 'resist', 'hard'
+
+					act 'Give in to her touch':
+						*clr & cla
+						minut += 5
+						pcs_horny += 10
+						KatjaQW['dom'] += 1
+						katjaQW['horny'] += 10
+						gs 'stat'
+						'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/sex/school/tits.jpg"></center>'
+						'Katja bares your breasts and touches them with her fingers, then she bows her head and begins to lick your nipple.'
+
+						gs 'boystat', 'A14', 'a'
+						gs 'KatjaEvDin', 'sex'
+					end
+					
+					if will_cost <= pcs_willpwr:
+						act 'Remove her hands (<<will_cost>> Willpower)':
+							*clr & cla
+							minut += 5
+							pcs_horny += 10
+							KatjaQW['dom'] -= 1
+							katjaQW['horny'] -= 10
+							katjaQW['horny'] = min(katjaQW['horny'], 60)
+							gs 'willpower', 'pay', 'resist'
+							gs 'stat'
+							'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big14.jpg"></center>'
+							'You remove her hands and smile at Katja.'
+
+							act 'Further':gt 'KatjaHomeTalk'
+						end
+					else
+						act 'Remove her hands (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+					end
+				end
+			end
+		end
+	else
+		'Katja turns and begins collecting books, pretending that nothing has happened.'
+
+		act 'Talk about something else': gt 'KatjaHomeTalk'
+		if mey_vika['key'] = 1:
+			Act 'Smile and leave the room': gt 'mey_home', 'start'
+		else
+			act 'Say goodbye and leave':gt 'pav_residential'
+		end
+	end
+end
 
 if $ARGS[0] = 'strapon_main':
 	*clr & cla
@@ -486,5 +673,119 @@ if $ARGS[0] = 'kuni_dom':
 	end
 end
 
+!!School and dance actions
+if $ARGS[0] = 'kiss_events':
+	cla
+	if katjaQW['school_kiss'] = 0:
+		katjaQW['school_kiss'] += 1
+		'While you kissed Katja, someone came nearby sighed loudly, probably, appreciating the view. But when you could break away from Katja''s lips, there was no one there.'
+		if $loc = 'pav_disco':
+			act 'Return to dance': gt 'pav_disco'
+		else
+			act 'Continue': gt 'gschool_lessons', 'short_break'
+		end
+	elseif katjaQW['school_kiss'] = 1:
+		katjaQW['school_kiss'] += 1
+		if pcs_haircol = 0:
+			$textEvent = 'fire in the night'
+		elseif pcs_haircol = 1:
+			$textEvent = 'the sun in the autumn sky'
+		elseif pcs_haircol = 2:
+			$textEvent = 'two intertwining flames,'
+		elseif pcs_haircol = 3:
+			$textEvent = 'the sun at the dawn'
+		elseif pcs_haircol = 3:
+			$textEvent = 'a fiery rainbow'
+		end
+		'While you kissed Katja, someone came nearby sighed loudly, probably, appreciating the view.'
+		'"Like <<$textEvent>>, you girls are just so a part of each other. Are all girls as close as the two of you?" You''re so surprised with this unexpectedly accurate comparison, then turned around and saw Ivan Prokhorov, who tenderly looked at you and Katja.'
+		'"Thank you, MAN and I don''t know." you reply. He again sighed, and left misty-eyed.'
+		if $loc = 'pav_disco':
+			act 'Return to dance': gt 'pav_disco'
+		else
+			act 'Continue': gt 'gschool_lessons', 'short_break'
+		end
+	elseif katjaQW['school_kiss'] >= 2:
+		'While you kissed Katja, someone came nearby sighed loudly, probably, appreciating the view.'
+		'"How beautiful," again it was Ivan, he was waiting for you or something. Not being distracted, you continued to kiss Katja.'
+		'"Look, look, lesbians." one guy yelled and pointed at Katja and you.'
+		act 'Glare at the moron':gt 'katjaEvDin', 'moron'
+	end
+end
+
+if $ARGS[0] = 'moron':
+	*clr
+	cla
+	'<center><img <<$set_imgh>> src="images/pc/reactions/glare.jpg"></center>'
+	'You glare at the moron calling you lesbians.'
+
+	gs 'willpower', 'misc', 'self', 'hard'
+	if will_cost <= pcs_willpwr:
+		act 'Sing a different tune (<<will_cost>> Willpower)':
+			*clr & cla
+			gs 'willpower', 'pay', 'self'
+			gs 'stat'
+
+			'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/frenchkiss.jpg"></center>'
+			'Looking at Ivan, then at this idiot, it seems that Ivan didn''t notice, you sighed and said to the idiot. "Is that really necessary? She is my best friend and we want kiss, you just seem jealous.'
+			'"Lesbians, lesbians." He continued to scream like a freak, so much that people began to gather around to find out, what''s happening. Ivan stepped over next to you and put his hand on your shoulder, giving the idiot a glare as well. Boosted by Ivan''s support you continued. "We like boys, just not assholes like you!" with those words, you stood on tiptoe, clasping and Ivan''s head in his hands and gave him a deep long passionate kiss, with lots of tongue.'
+
+			act 'Kiss again':
+				*clr
+				cla
+				if flag_KissEV = 0: flag_KissEV = 1
+				'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/prohorov_3.jpg"></center>'
+				'"And I can kiss all the boys." you said, under the joyous hubbub of guys gathering near you. You began to kiss all the boys in succession, carefully avoiding the one that called you a lesbian.'
+				'Seeing this he said offended. "The redhead doesn''t like guys, I bet." hoping Katja will kiss him to prove him wrong.'
+				'But Katja recovered and said. "Wrong again loser.", and began to repeat your route, of kissing the boys.'
+				if $loc = 'pav_disco':
+					'After kissing the last boy, you turn back and make sure Katja kisses all of them too. You now realise the guys are hoping for more and quickly drag Katja away before you accidentally start an orgy.'
+					act 'Return to dance': gt 'pav_disco'
+				else
+					'Just as you kissed the last boy, you turned around to see how Katja was doing with her kissing, but then the bell rang, and you all rushed to class.'
+					act 'Continue': gt 'gschool_lessons', 'short_break'
+				end
+			end
+		end
+	else
+		act 'Sing a different tune (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+	end
+
+	act 'Keep silent':
+		*clr
+		cla
+		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/punch.jpg"></center>'
+		'Ivan turned to glare at the guy. "Shut the fuck up." he said in a menacing tone.'
+		'They snort at Ivan. "Lesbian lover."'
+		'Ivan didn''t reply, and just punched him in the face, dropping him with a single hit.'
+		'A bit shocked but also pleased Ivan would defend you like that. "Thank you Ivan, seriously that was sweet." you said, but Katja only nodded dumbfounded.'
+		'Ivan shrugged, looking a little embarrassed. But it was obvious, he was pleased.'
+		act 'Thank Ivan':
+			*clr & cla
+			if npc_sex['A3'] = 1 and $loc ! 'pav_disco':
+				'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/whisper.jpg"></center>'
+				'Approaching Ivan, you raised up on tiptoe, and, clasping her arms round his neck, and kissed, and then whispered. "Like kissing girls?" Ivan only replied with a dumbfounded nodded, "Well, then we can show you our appreciation, right Katja?"'
+				'Katja, nods only half paying attention. Then it hit her what you said, she looked at Ivan, at you and her eyes lit up with lustful fire, "Right."'
+				act 'Hug Katja': gt 'katja_sex','prohorov_sex'
+			else
+				'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/frenchkiss.jpg"></center>'
+				'"Thank you, Ivan." with these words, you french kissed him. He responded and passionately kissed you back, then left.'
+				'"Well, these athletes are hot." Katja said with a sigh, while looking at Ivan''s ass as he walked away.'
+				if knowKatjaPreg = 1:
+					'You snort and look at Katja "Just what you need when you already have one inside."'
+				else
+					'You only snorted at Katja''s words, although Ivan did have a fine looking ass.'
+				end
+
+				if $loc = 'pav_disco':
+					act 'Return to dance': gt 'pav_disco'
+				else
+					act 'Continue': gt 'gschool_lessons', 'short_break'
+				end
+			end
+		end
+	end
+end
+
 --- katjaEvDin ---------------------------------
 

locations/katja_lake.qsrc

@@ -0,0 +1,1451 @@
+# katja_lake
+!!2022/28/01
+!!This file include the activities that Katja and the player character can do when hanging out at the pavlovsk lake.
+
+if $ARGS[0] = 'start':
+	*clr & cla
+	$loc = 'katja_lake'
+	$loc_arg = 'start'
+	menu_off = 1
+	if month >11 or month <3:
+		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/lake.winter.jpg"></center>'
+		'One good thing about living in Pavlovsk is the access to rivers and lakes. Now that it is winter, this landscape has beautifully transformed, thanks to the ice and snow, into a place where people rush to do things like ice skate, play hockey and (for the brave) swimming.'
+		'Katja and you are no less, and go to the area to skate on the frozen lake, spend some time in the sauna or (with some cajoling) do an ice dip... and looking absolutely fabulous doing it.'
+	else
+		if sound = 0 and month >2 and month <6:
+			PLAY 'sound/lakeshore1.mp3', 30
+			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/lake.spring.jpg"></center>'
+		elseif sound = 0 and month >5 and month <9:
+			PLAY 'sound/lakeshore1.mp3', 30
+			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/lake.summer.jpg"></center>'
+		elseif sound = 0 and month >8 and month <12:
+		PLAY 'sound/lakeshore1.mp3', 30
+		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/lake.autumn.jpg"></center>'
+		end
+		'One good thing about living in Pavlovsk is the access to rivers and lakes that let the locals do all sorts of water-related activities like swimming, tanning or just simply take a walk around the secluded groves.'
+		'Katja and you are no less, and go to a secluded beach to do those things... and looking absolutely fabulous doing it.'
+	end
+
+	act 'Lake activities!':
+		*clr & cla
+		minut += 5
+		gs 'stat'
+		if hour >= 20:
+			'"Hey <<$pcs_nickname>>, it is getting a little late. I must return home."'
+			'"Hm? Oh! True! Let''s go back."'
+			'You grab Katja''s hand and accompany her home.'
+			act 'Accompany Katja to her home':minut += 5 & gt 'pav_residential'
+		elseif month >11 or month <3:
+			gt 'katja_lake', 'winter_activities'
+		else
+			if sunWeather = 0 or temper < 20:
+				'<center><b><font color="maroon"><<$npc_firstname[''A14'']>> <<$npc_lastname[''A14'']>></font></b></center>'
+				'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big14.jpg"></center>'
+				'As you suggest to pass some time at the beach, Katja frowns.'
+				'"<<$pcs_nickname>>, I don''t think so, the weather is pretty bad."'
+				'It is evident that this isn''t a good idea. You better to look for something else to do.'
+				act 'Continue': gt 'katjaEV','kathan'
+			else
+				if sound = 0 and month >= 3 and month < 6:
+					PLAY 'sound/lakeshore1.mp3', 30
+					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/lake.spring.jpg"></center>'
+				elseif sound = 0 and month >= 6 and month < 9:
+					PLAY 'sound/lakeshore1.mp3', 30
+					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/lake.summer.jpg"></center>'
+				elseif sound = 0 and month >= 9 and month < 12:
+					PLAY 'sound/lakeshore1.mp3', 30
+					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/lake.autumn.jpg"></center>'
+				end
+				'You decide to pass some time at the secluded beach, but as you approach, a question surges into your mind. Go there naked? Katja is pretty body-conscientious, so... maybe going full nudist isn''t a good idea. What can you do? Push her to go naked or just put on your swimwear?'
+				if func('changingroom','count_swim_item') > 0:
+					act 'Put on your swimwear':
+						*clr & cla
+						if katjaQW['slut'] >= 20 and katjaQW['horny'] >= 20:
+							'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/KL1.jpg"></center>'
+							'As you prepare to change, a long, somewhat husky sigh reaches your ears. It''s come from Katja. She is in her underwear with her eyes closed, the wind playing with her red mane. She is looking sexy as hell.'
+							'"You know <<$pcs_nickname>>, the sun feels nice and there aren''t people around here. So what do you think?"'
+							'It is difficult to link the supposedly timid girl called Ekaterina Meynold with this sensual woman that is trying to tempt you with all her heart (and succeeding) to undress.'
+							'"Think <<$pcs_nickname>>. The water dripping over our naked skin, the wind in our hair and the two of us, all... alone."'
+							'Ok, she is manipulating you. Can you resist the ginger temptress before you?'
+							act 'Of course not!':
+								*clr & cla
+								'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/KL2.jpg"></center>'
+								'Groaning in frustration, you get naked, as sweet... candid... Katja... get naked, and exaggeratedly sighs giving you sensuall eyes.'
+								'"Bitch!"'
+								'You varelly whisper your insult and take the gigling bimbo wannabe towards the secluded beach.'
+								act 'Swim':
+									gs 'arousal', 'voyeur', 10
+									if pcs_inhib < 20: inhib_exp += 1
+									gs 'clothing', 'strip_all'
+									gt 'katja_lake', 'swim'
+								end
+								act 'Tan':
+									gs 'arousal', 'voyeur', 10
+									if pcs_inhib < 20: inhib_exp += 1
+									gs 'clothing', 'strip_all'
+									gt 'katja_lake','tan'
+								end
+								act 'Walk':
+									gs 'arousal', 'voyeur', 10
+									if pcs_inhib < 20: inhib_exp += 1
+									gs 'clothing', 'strip_all'
+									gt 'katja_lake','walk'
+								end
+							end
+							gs 'willpower', 'exhib', 'resist', 'hard' & !! This does not take into consideration inhibition/exhibitionism because Sveta chose to put on the swimwear and Katja is forcing her to undress.
+							if will_cost <= pcs_willpwr:
+								act 'Resist her!': gt 'katja_lake', 'beach_in_swimwear2'
+							else
+								act 'Resist her! (<font color="red"><<will_cost>> Willpower</font>)': Msg '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+							end
+						else
+							gt 'katja_lake', 'beach_in_swimwear1'
+						end
+					end
+				end
+				if pcs_inhib > 20:
+					act 'Go in the nude!':
+						gs 'clothing', 'strip_all' 
+						gt 'katja_lake','beach_nude'
+					end
+				elseif pcs_inhib < 20:
+					gs 'willpower', 'exhib', 'self', 'easy'
+					if will_cost <= pcs_willpwr:
+						act 'Go in the nude!':
+							*clr & cla
+							gs 'willpower', 'pay', 'selft'
+							gs 'clothing', 'strip_all'
+							if pcs_inhib < 20: inhib_exp += 1
+							gs 'stat'
+							gt 'katja_lake','beach_nude'
+						end
+					else
+						act 'Go in the nude! (<font color="red"><<will_cost>> Willpower</font>)': Msg '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+					end
+				end
+				act 'Hm... Is probably better if you find something else to do': npc_rel['A14'] -= 1 & gt 'katjaEV','kathan'
+			end
+		end
+	end
+
+	act 'Sauna time!':
+		*clr & cla
+		if sauna_daystart = daystart:
+			'<center><b><font color="maroon"><<$npc_firstname[''A14'']>> <<$npc_lastname[''A14'']>></font></b></center>'
+			'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big14.jpg"></center>'
+			'As you suggest to pass some time in the public sauna, Katja frowns.'
+			'"<<$pcs_nickname>>, spending too much time in there isn''t going to do any good, it is best to leave it for another day."'
+			'It is evident that this isn''t a good idea. You better to look for something else to do.'
+			act 'Continue': gt 'katjaEV','kathan'
+		else
+			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/secluded_beach/sauna/sauna.jpg"></center>'
+			'You decide to pass some time in the public sauna, but as you approach, a question surges into your mind. Go naked? Katja is pretty body-conscientious, so maybe going butt-naked isn''t a good idea. What can you do? Push her to go naked or just put on your swimwear?'
+			if func('changingroom','count_swim_item') > 0:
+				act 'Put on your swimwear':
+					*clr & cla
+					if katjaQW['slut'] >= 20 and katjaQW['horny'] >= 20:
+						*clr & cla
+						'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/KS6.jpg"></center>'
+						'As you prepare to put on your swimwear at the lockers, Katja lies against a wall and observes you undressing. The redhead has stopped midway, and stands there in (sexy) underwear, with eyes full of mischief.'
+						'"Hm. Is something wrong Katja?"'
+						'The ginger just smiles and begins to caress and play with her red mane without breaking eye contact.'
+						'"I... was thinking <<$pcs_nickname>>. Maybe it is better if we go naked, I mean, the hot steam will make us sweat and... my bikini will feel uncomfortable. What do you think? All that sweat all over my skin. It gives you ideas, doesn''t it?"'
+						'Oh fuck! Is she tempting you?'
+						act 'You can''t resist her!':
+							*clr & cla
+							'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/KL2.jpg"></center>'
+							'Groaning in frustration, you get naked, as sweet... candid... Katja... get naked, and exaggeratedly sighs giving you sensual eyes.'
+							'"Bitch!"'
+							'You whisper your insult and take the giggling bimbo wannabe towards the sauna.'
+							act 'Go to the sauna':
+								gs 'arousal', 'voyeur', 10
+								if pcs_inhib < 20: inhib_exp += 1
+								gs 'clothing', 'strip_all'
+								gt 'katja_lake','saune_time'
+							end
+						end
+						gs 'willpower', 'exhib', 'resist', 'hard' & !!This does not take into consideration inhibition/exhibitionism because Sveta chose to put on the swimwear and Katja is forcing her to undress.
+						if will_cost <= pcs_willpwr:
+							act 'Resist her!': gt 'katja_lake','sauna_in_swimmwear2'
+						else
+							act 'Resist her! (<font color="red"><<will_cost>> Willpower</font>)': Msg '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+						end
+					else
+						gt 'katja_lake','sauna_in_swimmwear1'
+					end
+					if pcs_inhib > 20:
+						act 'Go in the nude!':gs 'clothing', 'strip_all' & gt 'katja_lake','saune_time'
+					end
+					if pcs_inhib < 20:
+						gs 'willpower', 'exhib', 'self', 'easy'
+						if will_cost <= pcs_willpwr:
+							act 'Go in the nude!':
+								*clr & cla
+								gs 'willpower', 'pay', 'selft'
+								gs 'clothing', 'strip_all'
+								if pcs_inhib < 20: inhib_exp += 1
+								gs 'stat'
+								gt 'katja_lake','saune_time'
+							end
+						else
+							act 'Go in the nude! (<font color="red"><<will_cost>> Willpower</font>)': Msg '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+						end
+					end
+				end
+			end
+			if pcs_inhib > 20:
+				act 'Go in the nude!':	gs 'clothing', 'strip_all' & gt 'katja_lake','saune_time'
+			elseif pcs_inhib < 20:
+				gs 'willpower', 'exhib', 'self', 'easy'
+				if will_cost <= pcs_willpwr:
+					act 'Go in the nude!':
+						*clr & cla
+						gs 'willpower', 'pay', 'selft'
+						gs 'clothing', 'strip_all'
+						if pcs_inhib < 20: inhib_exp += 1
+						gs 'stat'
+						gt 'katja_lake','saune_time'
+					end
+				else
+					act 'Go in the nude! (<font color="red"><<will_cost>> Willpower</font>)': Msg '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+				end
+			end
+			act 'Hm... it is probably better if you find something else to do': npc_rel['A14'] -= 1 & gt 'katjaEv','kathan'
+		end
+	end
+end
+
+if $ARGS[0] = 'beach_in_swimwear1':
+	*clr & cla
+	if PCloswimwear = 0:
+		minut +=10
+		$loc = 'katja_lake'
+		$loc_arg = 'beach_in_swimwear1'
+		killvar '$locclass'
+		gs 'changingroom', 'view_swim_list'
+		act 'Hm... Is probably better if you find something else to do': npc_rel['A14'] -= 1 & gt 'katjaEv','kathan'
+	else
+		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/KL3.jpg"></center>'
+		'You decide to put on your swimwear, so after making sure, that there aren''t voyeurs, Katja and you, change on your swimwear.'
+
+		act 'Swim': gt 'katja_lake','swim'
+
+		act 'Tan': gt 'katja_lake','tan'
+
+		act 'Walk': gt 'katja_lake','walk'
+	end
+end
+
+
+if $ARGS[0] = 'beach_in_swimwear2':
+	*clr & cla
+	if PCloswimwear = 0:
+		$loc = 'katja_lake'
+		$loc_arg = 'beach_in_swimwear2'
+		gs 'changingroom', 'view_swim_list'
+		act 'Hm... Is probably better if you find something else to do': npc_rel['A14'] -= 1 & gt 'katjaEv','kathan'
+	else
+		gs 'willpower', 'pay', 'resist'
+		gs 'arousal', 'voyeur', 10
+		gs 'stat'
+		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/KL1.jpg"></center>'
+		'Groaning in frustration, you get naked and put on your swimwear, as sweet... candid... Katja... get hers, and exaggeratedly sighs giving you sensuall eyes.'
+		'"Bitch!"'
+		'You varelly whisper your insult and take the gigling bimbo wannabe towards the secluded beach.'
+
+		act 'Swim': gt 'katja_lake','swim'
+
+		act 'Tan': gt 'katja_lake','tan'
+
+		act 'Walk': gt 'katja_lake','walk'
+	end
+end
+
+if $ARGS[0] = 'sauna_in_swimmwear1':
+	*clr & cla
+	if PCloswimwear = 0:
+		$loc = 'katja_lake'
+		$loc_arg = 'sauna_in_swimmwear1'
+		gs 'changingroom', 'view_swim_list'
+		act 'Hm... Is probably better if you find something else to do': npc_rel['A14'] -= 1 & gt 'katjaEv','kathan'
+	else
+		minut += 10
+		gt 'katja_lake','saune_time'
+	end
+end
+
+if $ARGS[0] = 'sauna_in_swimmwear2':
+	*clr & cla
+	if PCloswimwear = 0:
+		$loc = 'katja_lake'
+		$loc_arg = 'sauna_in_swimmwear2'
+		gs 'changingroom', 'view_swim_list'
+		act 'Hm... Is probably better if you find something else to do': npc_rel['A14'] -= 1 & gt 'katjaEv','kathan'
+	else
+		gs 'willpower', 'pay', 'resist'
+		gs 'arousal', 'voyeur', 10
+		gs 'stat'
+		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/KL1.jpg"></center>'
+		'Groaning in frustration, you get naked and put on your swimwear, as sweet... candid... Katja... get hers, and exaggeratedly sighs giving you sensuall eyes.'
+		'"Bitch!"'
+		'You varelly whisper your insult and take the gigling bimbo wannabe towards the sauna .'
+
+		act 'Go to the sauna':gt 'katja_lake','saune_time'
+	end
+end
+
+if $ARGS[0] ='winter_activities':
+	*clr & cla
+	menu_off = 1
+	dummy = rand(2,30)
+	gs 'stat'
+
+	if dummy = 1:
+		gt 'katja_lake','playing_in_snow'
+	elseif dummy = 2:
+		gt 'katja_lake','hockey_match'
+	elseif dummy >= 3 and konki = 0:
+		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/lake.winter.jpg"></center>'
+		'It''s winter, and most activities on the lake are limited, if you had skates, Katja and you, could use them on the ice covered waters, but at the moment, it''s seems that you can only look at the frozen waters, is better to look for something else to do.'
+
+		act 'Continue':gt 'katjaEv','kathan'
+	else
+		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/lake.winter.jpg"></center>'
+		'"Let''s skate <<$pcs_nickname>>!".'
+		'Giggling, Katja grab your hand and push you towards the ice.'
+
+		act 'Skate!':
+			*clr & cla
+			menu_off = 1
+			dummy = rand(1,100)
+			fat -= 1
+			gs 'sweat', 'add', 10
+			stren_exp += 1
+			agil_exp += 1
+			react_exp += 1
+			icesktng_exp += 1
+			minut += 30
+			pcs_mood +=10
+			npc_rel['A14'] += 1
+			gs 'stat'
+
+			if dummy >pcs_icesktng and dummy <51:
+				'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/KS1.jpg"></center>'
+				'Skating is fun! Skating is easy for Russians! Now, after trying to dance with the redhead and failing painfully, horribly and awkwardly, you sit on your aching and cold butt with what appears to be half of Pavlovsk looking at you.'
+				'"<<$pcs_nickname>>! Snort... You are... I mean... Te-he!"'
+				'Fuck skating! Fuck fun! Is easy for Russians?! Your ass!'
+				'"Fuck you, bitch! Are you going to help me or will you continue standing there laughing at me?!"'
+				'"I... Puff... Trying! Snort! I''m sorry <<$pcs_nickname>>!"'
+
+				act '...?':
+					*clr & cla
+					gs 'pain',5, 'asscheeks'
+					dummy = rand(1,6)
+					gs 'stat'
+
+					if dummy <=3:
+						'<center><table><td><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/KS1.jpg"></td><td><img <<$set_imgh>> src="images/characters/shared/headshots_main/big14.jpg"></td></table></center>'
+						'You sit there with a redfaced, redhaired, red... something bitch! You try desperately to burn a hole in the ice with your gaze, but finally, after some... really long and full of embarrassment minutes, Katja seems to calm down and reach for you.'
+						'"Sorry <<$pcs_nickname>>! Snort... It''s just that you are one of the worst skaters I have seen!"'
+						'"Fuck you!"'
+						'Using her as a support, you rise from the ice and take care of your clothes. That is good. Now you only need to put up with the pain in your ass and the embarrassment from the "pavlovsk''s Worst Skater" title.'
+						'"Ok <<$pcs_nickname>>. Now... You want to try again?"'
+						'"Of course I don''t! Well... Maybe one more time."'
+						'You grab Katja''s hand, and with her help, you somehow stabilize and skate without killing yourself. After a fun half-hour, it is time to look for something else to do.'
+						gs 'stat'
+
+						 act 'Continue':gt 'katjaEv','kathan'
+					elseif dummy = 4:
+						'<center><table><td><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/KS1.jpg"></td><td><img <<$set_imgh>> src="images/characters/shared/headshots_main/big141.jpg"></td></table></center>'
+						'"Are you ok?"'
+						'Veronika is slowly sliding over the lake, showing her utter mastery as she barely uses a muscle to move around you. It takes you a moment to realize that she has asked you something.'
+						'"Hu? Yeah, I guess. My pride is the one to receive the worst part."'
+						'Veronika gives you an acknowledging nod without too much emotion and seems to think about something.'
+						'"Good to know. If you want to improve, stay by the lake''s border and follow the crow. It is less fun, but you will learn quickly."'
+						'She turns without fuss and speeds away to do some over-the-top acrobatic moves that attract all the attention. Meanwhile, Katja silently helps you to your feet and knowing that you are far, far behind the "Ice Queen", you decide to follow her advice and skate with the plebeians. This time, you don''t fall and can enjoy the frozen lake for half an hour, before tiring and deciding that it is time to look for something else to do.'
+						gs 'stat'
+
+						act 'Continue':gt 'katjaEv','kathan'
+					elseif dummy = 5:
+						'<center><table><td><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/KS1.jpg"></td><td><img <<$set_imgh>> src="images/characters/shared/headshots_main/big165.jpg"></td></table></center>'
+						'"Weee!"'
+						'Turning, you see Vanya skating towards you in... slow motion... with utterly exaggerated movements that are weirding out all present. He passes by your side and gives you a salute, then turns and returns doing the same, but this time he falls near you in, again, an exaggerated slow motion performance.'
+						'"Ouch! The pain! Ouch!"'
+						'Nobody is finding the gesture funny and more than one person is actually murmuring their disapproval at the "obvious derision" of this "jerk" against you. Taking advantage of the distraction, Katja helps you to your feet and fixes your clothes before leaving the lake, but you wait for Vanya and after a few minutes, the smiling jock meets with you.'
+						'"So girls. It worked?"'
+						'"Yeah... I think that now that everybody, including us, thinks that you are an idiot, they will forget my... performance."'
+						'Vanya smiles and raises his right hand in a high five motion. After a few minutes when neither Katja nor you react, he shrugs and leaves you to your own devices. It is time to look for something else to do.'
+						gs 'stat'
+
+						act 'Continue':gt 'katjaEv','kathan'
+					elseif dummy = 6:
+						'<center><table><td><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/KS1.jpg"></td><td><img <<$set_imgh>> src="images/characters/shared/headshots_main/big141.jpg"></td></table></center>'
+						'"Just my luck! This can''t get worse!"'
+						'"Remember the ads Katja! Don''t throw trash in the lake!"'
+						'Yeah. Right. Christina. It could be worse. The bitch has just appeared and is skating around you backwards, showing off, but Christina''s words have rubbed Katja the wrong way, making the redhead confront her.'
+						'"Fuck you Christina! Don''t you have puppies to hurt? Leave us alone!"'
+						'Christina doesn''t answer. She just looks at Katja, smiling. She turns and leaves quickly, letting a grumpy Katja help you stand up.'
+						'"Showtime bitches!"'
+						'Before you can react, Christina has returned at full speed, scraping the lake''s frozen surface with her skates and showering you with dirty ice, before turning and leaving while laughing. Seriously? Finally, you stand with Katja''s help. It seems that, at least for a while, you have lost interest in skating. It is time to look for something else to do.'
+						gs 'stat'
+
+						act 'Continue':pcs_mood -=10 & gt 'katjaEv','kathan'
+					end
+				end
+
+			elseif dummy >pcs_icesktng and dummy >50:
+				'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/KS2.jpg"></center>'
+				'"Oh god! <<$pcs_nickname>>! Oh god! What are you doing to me?! Oh god!"'
+				'Katja screams as she loses her balance and slips. It''s seems that you aren''t really good at skating, and your intended "synchronized ice dancing" with the redhead has ended, with a tackle and Katja falling to the ground.'
+				'"Oh shit! Sorry Katja!"'
+				'With a silent "thud" and a lot of blow ice, the redhead ends up sitting on the lake''s frozen surface. It looks painful, except for the giggling coming from the girl''s mouth.'
+				'Ouch! Hahaha, my ass! <<$pcs_nickname>>, who had the bright idea to give you skates?'
+				gs 'stat'
+
+				act '...?':
+					*clr & cla
+					dummy = rand(1,4)
+					gs 'stat'
+
+					if dummy <= 2:
+						'<center><table><td><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/KS2.jpg"></td><td><img <<$set_imgh>> src="images/characters/shared/headshots_main/big14.jpg"></td></table></center>'
+						'You stand there looking at the giggling girl, feeling utterly humiliated. Weird, because she is the one on the ground, but she isn''t really troubled by this fact.'
+						'"Come on <<$pcs_nickname>>! What are you waiting for? Help me!"'
+						'She raises her arms and looks at you, pouting and acting like a little girl. You stand there, trying to decide how to react to her cute display.'
+						'"I don''t know what to do! Aren''t you a little old to be acting that way Katja?"'
+						'In response, she sniffs, flutters her eyelashes and gives you puppy eyes. You sigh, surrendering to the childish display and help her to her feet. Your reward for the chivalrous display? She gives you a candid hug. It feels nice and makes the last tumbling half an hour worth it. It is time to look for something else to do.'
+
+						act 'Continue':katjaQW['slut'] -= 5 & gt 'katjaEv','kathan'
+					elseif dummy = 3:
+						'<center><table><td><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/KS2.jpg"></td><td><img <<$set_imgh>> src="images/characters/shared/headshots_main/big3.jpg"></td></table></center>'
+						'Flabergasted by Katja''s gigging display, you don''t see anyone approaching until a tall figure slides by your side and extends a hand towards Katja. Is that Ivan?'
+						'"Come on girl. Get up!"'
+						'Grabbing her hand, he pulls Katja towards him, prompting her to give him an awkward embrace that ends her gigglings and causes a sudden blush on Katja''s cheeks. For several moments, she stands there looking nervously at the jock until you cough and Katja practically jump away from him.'
+						'"Sorry! I mean... Thanks! Uhh..."'
+						'Ivan just smiles and giving you both a nod, turns and silently skates towards the sunset, leaving you with a flustered Katja who gives you sideways glances. Ok, this is an awkward way to end this. It is time to look for something else to do.'
+
+						act 'Continue':katjaQW['horny'] += 5 & gt 'katjaEv','kathan'
+					else
+						'<center><table><td><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/KS2.jpg"></td><td><img <<$set_imgh>> src="images/characters/shared/headshots_main/big140.jpg"></td></table></center>'
+						'"Yep, good question. This is by far your worst performance <<$pcs_nickname>>"'
+						'You turn towards the person that just spoke, to see Lizaveta biting her tongue in concentration as she does a recording on her smartphone.'
+						'"And... uploaded! Let''s see how many likes you will receive this time!"'
+						'You roll your eyes and help Katja, who has suddenly stopped her whining and gets up. You both stand looking intensely at Lizaveta, who after a few moments, understands the silent message and leaves. Ok, this is an awkward to end this. It is time to look for something else to do.'
+
+						act 'Continue':npc_rel['A14'] -= 1 & gt 'katjaEv','kathan'
+					end
+				end
+
+			elseif dummy <pcs_icesktng:
+				if dummy >75:
+					'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/KS5.jpg"></center>'
+					'As you both skate gracefully around the lake, somebody calls you.'
+					'"You have improved <<$pcs_nickname>>."'
+					'Turning towards the voice, you see Veronika skating gracefully by your side. She is looking at you with... curiosity? Judging your performance? After a moment, she begins to speed away, but not before making a gesture to follow her. Is this a challenge? Well, time to show off.'
+					'"Come on Ronnie! <<$pcs_nickname>>! Showtime!"'
+					'Katja screams at you excitedly as you rush towards the "Ice Queen", following her lead around the lake and imitating Veronika''s ice dance. Around the lake, most people stop to see your performance, but it doesn''t matter how much you strive, Veronika is always a little faster, a little more graceful and after a grueling half hour, she finally stops.'
+					'"Hmm. Not bad <<$pcs_nickname>>."'
+					'There isn''t emotion, or even tiredness in the "Ice Queen"''s voice, but there is... approval? After a silent moment, she quickly leaves, letting you come back to an excited Katja.'
+					'"That was so cool <<$pcs_nickname>>! You are good!"'
+					'You smile tiredly as the crowd returns to their own skating, but there is more than a good share of wonderment at your demonstration. In general, you must say that it has been a great time, but it is time to look for something else to do.'
+
+					act 'Continue':npc_rel['A14'] += 5 & npc_rel['A141'] += 5 & stren_exp += 1 & agil_exp += 1 & react_exp += 1 & icesktng_exp += 1 & grupvalue[1] += 10 & grupvalue[2] += 5 & gt 'katjaEv','kathan'
+				
+				elseif dummy >50:
+					'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/KS4.jpg"></center>'
+					'"Oh god! <<$pcs_nickname>>! Oh god! What are you doing to me! Oh god!"'
+					'Katja screams as she loses her balance and slips. Fortunately, you catch the redhead before she falls and help her to recover her balance. It''s seems that you aren''t really good at skating, and your intended "synchronized ice dancing" with the redhead has ended with a tackle and Katja barely standing.'
+					'"Oh shit! Sorry Katja!"'
+					'Smiling, she grabs your hand and pulls, taking the lead and skating towards the crowd, this time without flourishing moves. You both enjoy some well-deserved distraction from your everyday problems.'
+					'And that is how you pass the next half hour. Skating, giggling and in general just showing off, before it is time to look for something else to do.'
+
+					act 'Continue':npc_rel['A14'] += 1 & gt 'katjaEv','kathan'	
+
+				else
+					'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/KS3.jpg"></center>'
+					'Skating is fun! Skating is easy for Russians! At least that is the theory you''re telling yourself as you are trying not to fall and make yourself look like a fool.'
+					'"Katja! Don''t let me fall!"'
+					'You must admit that a gold medal in ice skating is far, far away from your reach but fortunately, most people enjoying the frozen lake are in your own situation. So a pair of cool girls fumbling their way through the crowd isn''t really out of the ordinary.'
+					'"<<$pcs_nickname>>! Don''t let me go!"'
+					'You hold each other, laughing, as you try to dance over the ice and in general, have a great time on this winter day, showing off and being "cool" and "pretty", things that a "popularity" conscientious Katja enjoys. Of course, the fact that the two of you are having a great time is a bonus, but after a great half hour, you are both a little weary and decide that it is time to look for something else to do.'
+
+					act 'Continue':npc_rel['A14'] += 1 & gt 'katjaEv','kathan'
+				end	
+			end
+		end
+	end
+end
+
+if $ARGS[0] = 'playing_in_snow':
+	*clr & cla
+	minut += 30
+	pcs_mood +=10
+	npc_rel['A14'] += 1
+	gs 'stat'
+	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/KWT9.jpg"></center>'
+	'Snow! During Pavlovsk''s winter, this isn''t exactly a novelty, but being the first to find a clean parcel without footsteps, car tracks or snot-nosed kids around, well... that is a being lucky! So... What can you do with this innocent and virginal gift?'
+
+	act 'Snowfight!':
+		*clr & cla
+		menu_off = 1
+		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/KWT10.jpg"></center>'
+		'It is winter and, as always, General Snow is the Russians'' best ally. Napoleon ignored it and suffered. Hitler underestimated it and Leningrad broke him. But you, with the General by your side and the St. Petersburg''s badass blood flowing through your veins are invincible.'
+		'"PUFFF"'
+		'Suddenly, a redheaded ghost appears before you from somewhere in the snow-covered landscape and blows some snow in your face, blinding you before sneaking away again.'
+		'"Katja! I swear! No matter if it takes an eternity! YOU WILL BOW DOWN BEFORE ME! BOTH YOU AND THEN ONE DAY... YOUR HEIRS!"'
+		'Her only answer is laughs and a song transported by the wind. Damm, General Snow is on her side, but you will not surrender.'
+		'"NA NA NA NA NA NA NA NA NA NA NA NA NA NA Ekaterina!!!'
+		'You engage in a furious snowball battle to see who will be crowned as the new winter queen, at least until the next fight. Ambushes, dirty tricks, fastballs, amazing one-liners, and stealth acts worthy of the Spetsnaz play between you two before you fall laughing into the snow. It seems that today, the battle has ended without a clear winner. Alas, your diversion makes time fly and it is time to look for something else to do.'
+
+		act 'Continue':gt 'katjaEv','kathan'
+	end
+
+	act 'Snow angels!':
+		*clr & cla
+		menu_off = 1
+		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/KWT11.jpg"></center>'
+		'"Cold! Katja! Cold!"'
+		'That is the thing that passes by your head in the aftermath of laying in the frozen soil. The snow, trying to its heart content, to pass the flimsy protection that your winter clothes try to give but you remember one thing.'
+		'"I am a Russian bitch! You can''t stop me Winter!"'
+		'You scream at the heavens, and with an effort of will, your arms and legs begin to move against the snow''s cold resistance, shaping it on your heavenly form''s visage, but winter is not defeated, and a sudden icy wind blows against your face, trying to stop you.'
+		'"<<$pcs_nickname>>! Snort! You are crazy! Just... hahaha!"'
+		'You look to the smiling redhead, who is trying to stand, but fails and sits on the ground, laughing at your antics until you get up and help her to her feet. There in the ground are your silhouettes. It has been fun, but now you are cold and it is probably best to look for something else to do.'
+		act 'Continue':gt 'katjaEv','kathan'
+	end
+
+	act 'Snowman!':
+		*clr & cla
+		menu_off = 1
+		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/KWT12.jpg"></center>'
+		'You know the drill, it isn''t really that hard. Three big snowballs, some stones for details, maybe some discarded clothes from a dumpster... and bingo! A snowman! Then why is it taking you so much time to finish it?!'
+		'"<<$pcs_nickname>>, I think that the red scarf doesn''t go with those sticks."'
+		'You two have examined the dumpsters and piked the most selected branches around the zone, but somehow that isn''t enough.'
+		'"Hmm, you are right Katja. I''m thinking... on that old jacket!"'
+		'Of course, kids around you want to help, but really, what will those snot-nosed kiddos know about dressing your creation! So, that is why you have "encouraged" the kids to, well, build their own far away so your work continues undisturbed, changing clothes, stones, and sticks until your snowman is ready.'
+		'"Ok <<$pcs_nickname>>! Let''s do a selfie!"'
+		'And then, after half an hour of intense work, your masterful creation is ready for posterity. It is time to look for something else to do.'
+
+		act 'Continue':gt 'katjaEv','kathan'
+	end
+end
+
+if $ARGS[0] = 'hockey_match':
+	*clr & cla
+	menu_off = 1
+	dummy = rand(1,2)
+	gs 'stat'
+	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/KWT13.jpg"></center>'
+	'As you look for something to do, you get wind of this improvised ice hockey match that involves your school''s team. Katja isn''t really interested in sports, but as Vanya and Vicky will probably be there, she pushes you to attend the event.'
+	'"Hey Katja, <<$pcs_nickname>>! Over here!"'
+	'Vicky screams somehow fly over all the shouting and lets you locate the perky redhead. She smiles excitedly as Vanya & Co play the field, and without missing a beat, Viktoriya screams, jumps, dances and in general encourages your champions.'
+	'"Seriously bitch! Your boyfriend sucks and you are only embarrassing yourselves!"'
+	'Some girls beside you seem to not exactly be chill with the the Meynold''s cheerleading efforts. Katja seems offended and Vicky sticks her tongue out for a moment before returning to her cheers. On their part, the other girls scoff at them and after calling your little group "childish", return their attention to the match. Hm... Maybe you must do something.'
+
+	act 'Who cares? Continue watching the match.':
+		*clr & cla
+		menu_off = 1
+		minut += 30
+		npc_rel['A14'] += 1
+		npc_rel['A15'] += 1
+		npc_rel['A165'] += 1
+		gs 'stat'
+		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/KWT13.jpg"></center>'
+		'It is probably best to just chill and don''t make a mountain out of a molehill. After all, this is supposed to be fun! And fun it is! You join the hyper Vicky with Katja and begin to cheer your boys so they know that you are with them.'
+		'"Go! Vanya! Go!"'
+		'He hails your cheer squad and then launches himself towards their rivals'' net, trying to overwhelm their goaltender, but obviously, the other team doesn''t stand idle and counter their attack, pushing against your schoolfriend''s defenses, enforcing a full-contact clash between the teams. This is just the beginning of an hour long struggle for supremacy.'
+
+		if dummy = 1:
+			'"Yes! Vanya! Yes!"'
+			'You scream happily when, after many falls, kicks (This is hockey!) and bloodied noses, your team emerges victorious. Yeah! That feels nice, and Vanya skates tiredly towards your little group to embrace an excited Vicky, who can only make faces at the bitch squad.'
+			'You and Katja can only look with utter prepotency towards the crestfallen girls as they retreat to treat their men. This has been fun, but it is time to look for something else to do.'
+			gs 'stat'
+
+			act 'Continue':pcs_mood +=10 & gt 'katjaEv','kathan'
+		else
+			'"Oh Crap! Vanya!"'
+			'You scream sadly when, after many falls, kicks (This is hockey!) and bloodied noses, your team loses. Vanya lies on the ground tired, and you can only walk towards him with the Meynolds to try to cheer the crestfallen boy as the bitch squad giggle at your defeat.'
+			'Vicky embraces her poor boyfriend and whispers something into his ear that makes the jock smile sheepishly and get up, suddenly grab the redhead and quickly leave as a smiling Vicky winks an eye towards you. Well, it is time to look for something else to do.'
+			gs 'stat'
+
+			act 'Continue':pcs_mood -=10 & gt 'katjaEv','kathan'
+		end
+	end
+
+	gs 'willpower', 'misc', 'self', 'easy'
+	if will_cost <= pcs_willpwr:
+		act 'Teach the bitch squad a lesson!':
+			menu_off = 1
+			*clr & cla
+			 gs 'willpower', 'pay', 'self'
+			 minut += 10
+			 npc_rel['A14'] -= 5
+			 gs 'stat'
+			'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/KWT14.jpg"></center>'
+			'You smile, slowly walk towards the shitmouth... and sucker-punch the bitch! She falls to the ground in surprised pain as around you, everybody stops, looking surprised and Katja reaches towards you, alarmed.'
+			'"<<$pcs_nickname>>! What are you doing?!"'
+			'The silence can be cut with a knife and then, somebody in the field tackles another player.'
+			'"Brawl!!!!!"'
+			'You don''t know who screams, but suddenly the bitch squad jumps you, and as everyone begins to beat the shit out of the nearest target, Vicky reacts and escorts Katja from the madness.'
+
+			act 'Brawl!!!':
+				*clr & cla
+				 $boydesc = 'The bitch squad'
+				'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/KWT14.jpg"></center>'
+
+				gs 'fight','initFight'
+
+				gs 'fight_npcdata', 'bitch squad'
+
+				gt 'fight', 'start'
+			end
+		end
+	else
+		act 'Teach the bitch squad a lesson!: (<font color="red"><<will_cost>> Willpower</font>)': Msg '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+	end
+end
+
+! strip
+
+
+if $ARGS[0] = 'beach_nude':
+	*clr & cla
+	if sound = 0:PLAY 'sound/lakeshore1.mp3', 30
+	if katjaQW['slut'] >= 20:
+		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/KL2.jpg"></center>'
+		'After reaching the secluded beach and being careful to make sure that there aren''t voyeurs, you both strip from your clothes and stand naked in all your hotness by the lake.'
+		'For a moment, you both stand in silence, enjoying the sun''s warmth on your skin. Katja then gives a long sigh, full of liberation, and reaches for your hand.'
+		'"So, what now <<$pcs_nickname>>?"'
+
+	else
+		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/KL3.jpg"></center>'
+		'After reaching the secluded beach, and being careful to make sure that there isn''t voyeurs, you both strip from your clothes, but as Katja reaches for her bikini, she stops and looks at you.'
+		'"<<$pcs_nickname>>, aren''t you going to put on your swimsuit?"'
+		'You stand there, proud on your nakedness, and smile at her as she looks between her bikini and you, conflicted.'
+		'"The things that you make me do <<$pcs_nickname>>..."'
+		'With embarrassed resignation, Katja leaves the bikini and stands before you naked. "Now what?"'
+	end
+	if pcs_inhib < 20: inhib_exp += 1
+	if katjaQW['slut'] <= 20: katjaQW['slut'] += 5
+	gs 'clothing', 'strip_all'
+	minut += 10
+	gs 'stat'
+
+	act 'Swim': gt 'katja_lake','swim'
+	act 'Tan':  gt 'katja_lake','tan'
+	act 'Walk': gt 'katja_lake','walk'
+end
+
+
+if $ARGS[0] = 'swim':
+	*clr & cla
+	menu_off = 1
+	if $clothingworntype = 'nude' and katjaQW['slut'] <= 20: katjaQW['slut'] += 5
+	minut += 30
+	npc_rel['A14'] += 1
+	katjaQW['horny'] += 5
+	pcs_mood += 10
+	pcs_makeup = 1
+	cumspclnt = 4 & gs 'cum_cleanup'
+
+	if pcs_sweat > 10: pcs_sweat = 10 + rand(0,4)
+	if pcs_stren < 30: stren_exp += 1
+	fat -= 1
+	if $clothingworntype = 'nude' and pcs_inhib < 20: inhib_exp += rand(1,2)
+
+
+	if sound = 0:PLAY 'sound/lakeshore1.mp3', 30
+	gs 'stat'
+
+	if hour >= 20:
+		'"Hey <<$pcs_nickname>>, it is getting a little late. I must return home."'
+		'"Hm? Oh! True! Let''s go back."'
+
+		act 'Redress and return to her home': gs 'clothing', 'wear_last_worn' & gs 'underwear', 'wear' & minut += 10 & gt 'pav_residential'
+
+	elseif rand(1,20) = 1:
+		gt 'katja_lake','ivan_appeared'
+
+	elseif $clothingworntype = 'nude':
+		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/KL4.jpg"></center>'
+		'"Ah! This is nice Katja!"'
+		'Thanks to the privacy enabled by the secluded beach, you can both enjoy the pleasure to swim and have fun in the nude without peeping toms, judgemental prudes or envious "friends" watching. It is just Katja and you.'
+		'The time passes quickly as you both play, enjoying the water and the sun on your skin, and little by little you tire until the only thing you can do is relax, floating on your back. As you lie there rocking slowly over the water, you realize that half an hour of intense waterplay has passed and you are beginning to wrinkle. It is time to look for something else to do.'
+
+	else
+		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/KL5.jpg"></center>'
+		'"Ah! This is nice Katja!"'
+		'"Yes, it is. Sometimes you really just want to be alone with a good friend, without peeping toms, judgemental prudes or envious "friends watching you."'
+		'The time passes quickly as you both play, enjoying the water and the sun, and little by little you tire until the only you can do is relax, floating on your back. As you lie there rocking slowly over the water, you realize that half an hour of intense waterplay has passed and you are beginning to wrinkle. It is time to look for something else to do.'
+	end
+
+	act 'Tan': gt 'katja_lake','tan'
+	act 'Walk': gt 'katja_lake','walk'
+	act 'Redress and look for something else to do': gs 'underwear', 'wear'& gs 'clothing', 'wear_last_worn' & minut += 10 & gt 'katjaEv','kathan'
+end
+! tan
+
+
+
+if $ARGS[0] = 'tan':
+	*clr & cla
+	menu_off = 1
+	if sound = 0:PLAY 'sound/lakeshore1.mp3', 30
+	if hour >= 20:
+		'"Hey <<$pcs_nickname>>, it is getting a little late. I must return home."'
+		'"Hm? Oh! True! Let''s go back."'
+
+		act 'Redress and return to her home': gs 'clothing', 'wear_last_worn' & gs 'underwear', 'wear' & minut += 10 & gt 'pav_residential'
+
+	elseif rand(1,20) = 1:
+		gt 'katja_lake','ivan_appeared'
+
+	elseif $clothingworntype = 'nude':
+		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/KL6.jpg"></center>'
+		'Katja takes out some sunscreen and you make sure that your skin is protected from the UV rays, smearing it all over your naked bodies. After this, you both lie down and relax, letting the warm sun tan your skin without the danger of leaving ugly bikini marks.'
+		'"Hey! <<$pcs_nickname>>! I think it is time."'
+		'You blink surprised, as the sun''s warmth has made you a little drowsy. Looking at the hour, you see that half an hour has passed and it is probably best to stop as you are in danger of recieving some painful sunburn. It is time to look for something else to do.'
+	else
+		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/katja_tanning_nude.jpg"></center>'
+		'Katja takes out some sunscreen and you make sure that your skin is protected from the UV rays, smearing it all over your bodies. After this, you both lie and relax, letting the warm sun tan your skin.'
+		'"Hey! <<$pcs_nickname>>! I think it is time."'
+		'You blink surprised, as the sun''s warmth has made you a little drowsy. Looking at the hour, you see that half an hour has passed and it is probably best to stop as you are in danger of recieving some painful sunburn. It is time to look for something else to do.'
+	end
+	if $clothingworntype = 'nude' and pcs_inhib < 20: inhib_exp += rand(1,2)
+	if $clothingworntype = 'nude' and katjaQW['slut'] <= 20: katjaQW['slut'] += 5
+	minut += 30
+	npc_rel['A14'] += 1
+	katjaQW['horny'] += 5
+	pcs_mood += 10
+	if pcs_sweat < 35 : gs 'sweat', 'add', 5
+	pcs_tan = pcs_tan + 3
+	gs 'stat'
+
+	act 'Swim': gt 'katja_lake','swim'
+	act 'Walk': gt 'katja_lake','walk'
+	act 'Redress and look for something else to do': gs 'clothing', 'wear_last_worn' & gs 'underwear', 'wear' & minut += 10 & gt 'katjaEv','kathan'
+end
+
+! walk
+if $ARGS[0] = 'walk':
+	*clr & cla
+	menu_off = 1
+	if sound = 0:PLAY 'sound/lakeshore1.mp3', 30
+
+	if hour >= 20:
+		'"Hey <<$pcs_nickname>>, it is getting a little late. I must return home."'
+		'"Hm? Oh! True! Let''s go back."'
+
+		act 'Redress and return to her home': gs 'clothing', 'wear_last_worn' & gs 'underwear', 'wear' & minut += 10 & gt 'pav_residential'
+
+	elseif rand(1,20) = 1:
+		gt 'katja_lake','ivan_appeared'
+	elseif $clothingworntype = 'nude':
+		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/KL7.jpg"></center>'
+		'The secluded beach has, between other things a beautiful landscape. Strange in these industrialized areas, but a place where you can take a relaxing walk, a naked walk where the naturally hidden paths let you enjoy the wind without startling the locals.'
+		 'After some girl talk, singing to the birds and feeding the squirrels, you realize that half an hour has passed and it is time to look for something else to do.'
+	else
+		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/KL8.jpg"></center>'
+		'The secluded beach has, between other things a beautiful landscape. Strange in these industrialized areas, but a place where you can take a relaxing walk and enjoy your mutual company under a beautiful sky.'
+		'After some girl talk, singing to the birds and feeding the squirrels, you realize that half an hour has passed and it is time to look for something else to do.'
+	end
+
+	if $clothingworntype = 'nude' and pcs_inhib < 20: inhib_exp += rand(1,2)
+	if $clothingworntype = 'nude' and katjaQW['slut'] <= 20: katjaQW['slut'] += 5
+	minut += 30
+	npc_rel['A14'] += 1
+	katjaQW['horny'] += 5
+	pcs_mood += 10
+	gs 'stat'
+
+	act 'Swim': gt 'katja_lake','swim'
+	act 'Tan': gt 'katja_lake','tan'
+	act 'Redress and look for something else to do': gs 'clothing', 'wear_last_worn' & gs 'underwear', 'wear' & minut += 10 & gt 'katjaEv','kathan'
+end
+
+! Ivan appeared
+if $ARGS[0] = 'ivan_appeared':
+	*clr & cla
+	if sound = 0:PLAY 'sound/lakeshore1.mp3', 30
+	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/KL9.jpg"></center>'
+	gs 'stat'
+
+	if $clothingworntype = 'nude' and katjaQW['slut'] <= 40:
+		'"Oh shit! Look <<$pcs_nickname>>!"'
+		'Suddenly, Katja takes a dive into the water, letting only her head rise barely over the surface and looking intensely towards the beach.'
+		'"Hm? Oh! It''s Ivan!"'
+		'Ivan Prokhorov is swimming, and as you look at him, he strides out of the water.'
+		'"What are you waiting for <<$pcs_nickname>>? Come here!"'
+
+		act 'Hide with Katja':
+			*clr & cla
+			menu_off = 1
+			if sound = 0:PLAY 'sound/lakeshore1.mp3', 30
+			'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/KL9.jpg"></center>'
+			'Katja isn''t exactly an exhibitionist, so it is probably better to not embarrass her, so... that is what you do. You quickly dive into the water and hide beside Katja, waiting for the jock to go away.'
+			'"Please <<$pcs_nickname>>! Don''t do anything stupid!"'
+			'You want to retort that, when you appreciate Ivan looking towards you. He doesn''t say anything, just giving a little acknowledgment before quickly, maybe too quickly, returning to the water.'
+			'"Oh fuck! <<$pcs_nickname>>, do you think he seen us?"'
+			'"I... don''t know. Maybe?"'
+			'Katja obviously isn''t happy with your answer and sits there redfaced. After a few more awkward moments, you finally realize that Ivan has left the area, and it is safe to leave the water.'
+			minut += 5
+			katjaQW['slut'] -= 5
+			katjaQW['horny'] -= 5
+			npc_rel['A14'] += 1
+			gs 'stat'
+
+			act 'Redress and look for something else to do': gs 'clothing', 'wear_last_worn' & gs 'underwear', 'wear' & minut += 10 & gt 'katjaEv','kathan'
+
+			act 'Swim': gt 'katja_lake','swim'
+			act 'Tan': gt 'katja_lake','tan'
+			act 'Walk': gt 'katja_lake','walk'
+		end
+		gs 'willpower', 'exhib', 'force', 'hard'
+		if will_cost <= pcs_willpwr:
+			act 'Go to talk with him':
+				menu_off = 1
+				*clr & cla
+				gs 'willpower', 'pay', 'force'
+				katjaQW['slut'] += 5
+				KatjaQW['dom'] -= 1
+				npc_rel['A14'] -= 1
+				inhib_exp += rand(1,2)
+				if sound = 0:PLAY 'sound/lakeshore1.mp3', 30
+				gs 'stat'
+				'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/KL9.jpg"></center>'
+				'"Let''s talk to him Katja!"'
+				'"Talk with him?! <<$pcs_nickname>>! We are naked!"'
+				'Katja''s face contorts between disbelief and embarrassment. Standing your ground and looking at her, you wait patiently.'
+				'"You... You''re going to make me do this, aren''t you <<$pcs_nickname>>?"'
+				'She gives you sad puppy eyes and slowly rises from the water to stride towards you and Ivan, extremely embarrassed...'
+
+				act 'Meeting Ivan': gt 'katja_lake','ivan_interaction'
+
+			end
+		else
+			act 'Go to talk with him (<font color="red"><<will_cost>> Willpower</font>)': Msg '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+		end
+
+	else
+		'Katja gives you a nudge in the ribs and excitedly points toward the beach.'
+		'"<<$pcs_nickname>>, look who it is!"'
+		'"Hm? Oh! It''s Ivan!"'
+		'Ivan Prokhorov is swimming, and as you look at him, he strides out of the water.'
+		gs 'stat'
+
+		act 'Meeting Ivan': gt 'katja_lake','ivan_interaction'
+	end
+end
+
+if $ARGS[0] = 'ivan_interaction':
+	*clr & cla
+	if sound = 0:PLAY 'sound/lakeshore1.mp3', 30
+	gs 'stat'
+	'<center><b><h4><font color="green"><<"Ivan Prokhorov">></font></h4></b></center>'
+	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/KL9.jpg"></center>'
+	if $clothingworntype = 'nude':
+		'You approach Ivan, and as the school''s resident stoic, he doesn''t say much. He just tilts his head and gazes from Katja to you and back, but doesn''t show, let''s say, a more MANLY reaction. You are a little... disappointed by the cold act, especially because Ivan seems more interested in drying his skin than ogling your naked bodies. Not even Katja seems to know how to react to that passivity.'
+	elseif IvanShowerQW = 11 and fame['pav_slut'] <250:
+		'"Hey girls! Lucky me to encounter the most beautiful violets in all of the school!"'
+		'You can appreciate a timid smile creeping onto Katja''s cutely blushing face. You don''t know how to feel in this situation. Jealous, annoyed or... Fuck! Ivan picks up a towel and starts drying his... well-toned body. Ehhh... What were you thinking about? Bah, nothing important!'
+	else
+		'As he takes a towel and begins to dry himself, Ivan, the perpetual silent wolf, gives you a nod acknowledging your existence, but doesn''t seem to be really interested in the two of you. It is a little offensive, but for Ivan, hot girls coming to pester him during a training period must be a "vulgar" occurrence.'
+		'You can appreciate a timid smile creeping onto Katja''s cutely blushing face as she tries to attract the jock''s attention, but it isn''t working. Hm... Maybe you must do something to attract Ivan''s attention?'
+	end
+	act 'Chat with Ivan':
+		menu_off = 1
+		*clr & cla
+		if sound = 0:PLAY 'sound/lakeshore1.mp3', 30
+		if $clothingworntype = 'nude' and pcs_inhib < 20: inhib_exp += rand(1,2)
+		npc_rel['A14'] += 1
+		npc_rel['A3'] +=1
+		pcs_mood += 10
+		katjaQW['horny'] += 5
+		gs 'stat'
+		'<center><b><h4><font color="green"><<"Ivan Prokhorov">></font></h4></b></center>'
+		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/KL9.jpg"></center>'
+		if IvanShowerQW = 11 and fame['pav_slut'] < 250:
+			cla
+			npc_rel['A14'] += 1
+			npc_rel['A3'] += 1
+			minut += 10 
+			pcs_mood += 10
+			gs 'stat'
+			'"Hey Ivan! Why not sit with Katja and me for a while?"'
+			'For a moment, he looks to the lake and seems at the brink of saying "no", but then shrugs and walks towards you.'
+			'"Yeah, why not? I have swam enough for a while"'
+			'Ivan sits between the two of you and begins to talk, mostly about his dream to be at the boxing nationals. This isn''t a particularly interesting subject for Katja, but even she seems taken by the jock''s driven dedication. That and his defined abs... Cough... who wouldn''t be?'
+			'Katja slowly opens up to the conversation and soon the three of you are talking in a mismatched dialogue mixing sports, cosmetics and strangely, who is the girl with the best ass in school (You of course!). The time passes and the conversation ends with a relaxed silence as you observe the landscape.'
+			'"Ok girls, this has been fun, but I must return to my training."'
+			'Ivan gives you both a little kiss on the cheek and then walks towards the lake, letting the two of you appreciate the jock''s nice butt... Sigh...'
+		else
+			cla
+			npc_rel['A14'] += 1
+			npc_rel['A3'] += 1
+			minut += 10  
+			gs 'stat'
+			'Talking with Ivan, King of the Lone Wolves, is an uphill battle. He is evidently not interested in the sort of things Katja likes to talk about and would probably prefer to jump back into his swimming. Alas, Ivan is too polite to just tell you to fuck off, and that is a weakness you and Katja can exploit.'
+			'After some pestering, Ivan finally resigns to sit with you and pass time in "civilized" conversation. The minutes pass, with him primarily listening to your endless rants, but after a while, between Katja''s shyness and Ivan''s apathy, silence falls over the three of you, leaving your little trio observing the lake in tranquillity.'
+			'"Ehm... Girls, I must return to my training."'
+			'You blink. Ivan''s words take you by surprise and before you or Katja can say something, he quickly returns to the lake. Time to look for something else to do.'			
+		end
+
+		act 'Swim':gt 'katja_lake','swim'
+		act 'Tan':gt 'katja_lake','tan'
+		act 'Walk':gt 'katja_lake','walk'
+		act 'Redress and look for something else to do':gs 'clothing', 'wear_last_worn' & gs 'underwear', 'wear' & minut += 10 & gt 'katjaEv','kathan'
+
+		if IvanShowerQW = 11 and fame['pav_slut'] <250 and katjaQW['horny'] >60 and katjaQW['anal_quest'] = 2 and npc_sex['A14'] > 0:
+			act '"Hey Ivan! You know, we are REALLY bored!"':
+				*clr & cla
+				gs 'boyStat', 'A3'
+				gs 'arousal', 'kiss', 5, 'group'
+				gs 'stat'
+				'<center><b><h4><font color="green"><<"Ivan Prokhorov">></font></h4></b></center>'
+				'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/KL9.jpg"></center>'
+				'Ivan stop in his tracks as you say this beside a blushing Katja, and turning his head with a roguish smile, returns to you and delicately grabs your hands.'
+				'"Ok, girls, it is probably better if we go to a more private place. Hm, the shacks are unoccupied, so let''s go there."'
+				'You and Katja begin to giggle as you meekly follow the now more assertive boy towards the group of warehouses that the jocks use to store most of their lake-related equipment. A conveniently discreet place where you can do "no-sport" related activities without the risk of unwanted attention.'
+				'You barely have time to walk in the door before the three of you begin making out, trashing the accumulated equipment and throwing Ivan to the ground, where he sits with a prominent erection.'
+				if rand(0,1) = 1:
+					'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/sex/KIS1.jpg"></center>'
+					if npc_throat['A14'] < 1:
+						'Katja looks transfixed by Ivan''s <<dick>>cm <<$dick_girth>> cock. This must be the first time that she has seen something like this and seems insecure about what to do. To help her, Ivan extends his hands and tries to grab Katja''s head, but before he reaches her, you slap his hand.'
+						'"No way Ivan! Remember when you tried that with me in the showers?"'
+						'He has the decency to grimace and look apologetic, then lies down and lets Katja take her time, and for some time, she just observes his cock. She then closes her eyes and begins to lick him... again and again, gaining confidence until she finally opens her lips and plunges the cock in her mouth.'
+						'With your help, Katja begins to go up and down in an out of sync rhythm, sometimes gaging and others, from Ivan''s face, biting the tender flesh. However, he is, without doubt, enjoying the blowjob and begins to raise his hands again, but just when you are going to stop him, Katja slap your hand. She wants to do this.'
+					else
+						'Katja and you caress Ivan''s <<dick>>cm <<$dick_girth>> cock, masturbating the jock and getting grunts of pleasure as he let you both take control. Katja licks her dry lips and looks at you with questioning eyes. She seems to want to do this.'
+						'"Ok Katja, I think it is your turn."'
+						'You sit confidently on Ivan''s chest and hold his dick for Katja, who sits over his legs closes her eyes and bends to swallow the jock''s cock. His moans are a pleasure indicator as Katja''s wet mouth closes over his sensitive flesh'
+						'Katja takes her time and seems to enjoy the blowjob as much as Ivan, who just grunts as the girl''s head goes up and down along his dick, covering the trembling shaft with her saliva. Katja puts all her heart into given the jock a time to remember, but soon Ivan extends his hands and grabs Katja''s head.'
+					end
+
+					act 'Katja gives him some deep throat.':
+						*clr & cla
+						gs 'arousal', 'voyeur_sex', 5, 'group'
+						gs 'stat'
+						'<center><video autoplay loop src="images/shared/sex/blowjob/shower6.mp4"></video></center>'
+						if dick > npc_throat['A14']:
+							'Ivan makes Katja sit and he stands to put his <<dick>>cm <<$dick_girth>> cock before her face, frightening the girl with the length before her. In the meantime, you sit by her side and caress her back.'
+							'"Don''t worry Katja, he isn''t going to hurt you. Are you, IVAN?"'
+							'He grimaces and delicately grabs the redhead''s mane, pushing his cock against Katja''s lips, which part and let the cock slide into her throat. You grab Ivan so he doesn''t push with too much force, but as Katja clenches her fists, it isn''t enough and after a long minute, she pushes him away.'
+							'"Cough! Ugh! Oh shit! I... am sorry... Cough... Ivan!"'
+							'The jock caresses her hair to calm the apologetic girl as he eyes your angry face, before helping the redhead to her feet and bending her over a bench.'
+						else
+							'Ivan makes Katja sit and he stands to put his <<dick>>cm <<$dick_girth>> cock before her face, the girl looking intensely the length before her. In the meantime, you sit by her side and caress her back.'
+							'"Don''t worry Katja, he isn''t going to hurt you. Are you, IVAN?"'
+							'He grimaces and delicately grabs the redhead''s mane, pushing his cock against Katja''s lips, which part and let the cock slide into her throat. You grab Ivan so he doesn''t push with too much force, and the redhead begin to take the jock''s cock in earnest.'
+							'"Oh fuck! Katja! You girls are amazing!"'
+							'For several minutes, Ivan literally throatfucks the redhead, but that doesn''t seems to make him cum, and finally, he takes his dick out and helps Katja to her feet before bending her over a bench.'
+						end
+
+						if dick > npc_throat['A14']: npc_throat['A14'] += 1
+
+						act 'Some anal with Katja':
+							*clr & cla
+							gs 'arousal', 'voyeur_sex', 10, 'group'
+							gs 'stat'
+							'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/sex/KIS2.jpg"></center>'
+							if npc_ass['A14'] =0:
+								if katjaQW['anal_quest'] = 2: katjaQW['anal_quest'] = 3
+								'"What?! Ivan! That is... You are going to?! <<$pcs_nickname>>!"'
+								'Fear and nervousness cross Katja''s pretty face as she realizes where he is taking his <<dick>>cm <<$dick_girth>> cock. You caress her face and kiss her lips to reassure the quickly freaked girl.'
+								'"Ok Katja, relax. It''s happened to me before. Don''t worry, it will be ok."'
+								'The girl gulps nervously, but obediently lifts a leg over the bench to give Ivan better access to her asshole, gasping in surprise as the jock slowly pushes his cock beyond the closely guarded aperture.'
+								'"Ouch! Fuck! <<$pcs_nickname>>! Ivan! Please a little... Hmfp?!"'
+								'You silence her pained grunts with a kiss and lead a hand towards Katja''s crotch, so you can finger her really wet and hot cunt as Ivan slowly fucks her asshole. Even with all that, it is evident that this isn''t easy for the girl, as painful moans escape between your linked tongues.'
+							elseif dick1 < npc_ass['A14']:
+								if katjaQW['anal_quest'] = 2: katjaQW['anal_quest'] = 3
+								'"Oh shit! Ivan! I can''t believe that I''m letting you put that in me!"'
+								'Katja bites her lips as she look transfixed at the jock''s <<dick>>cm <<$dick_girth>> cock. You embrace her petite figure and join in the shameless examination, making Ivan look at you nervously.'
+								'"Ahhh! Don''t worry Ivan! Katja isn''t... Hmpf?!"'
+								'The girl grabs your head and silences you with a kiss, then places a leg over the bench to give Ivan better access to her asshole. A delicious moan escapes between your linked lips as the jock slowly pushes his cock beyond the redhead''s inviting aperture.'
+								'"Shut... Gasp... up <<$pcs_nickname>>! I want... moan... your fingers in my cunt!"'
+								'You obey her commands and lead a hand towards Katja''s crotch and begin to finger her really wet and hot cunt as Ivan slowly fucks her asshole. The room quickly fills with aroused moans coming from between your linked tongues.'
+							else
+								if katjaQW['anal_quest'] = 2: katjaQW['anal_quest'] = 3
+								'"Ehm... Ivan, please take care... Hm... I''m not exactly... Ehh... experienced back there."'
+								'Katja blushes as she takes a long look at the jock''s <<dick>>cm <<$dick_girth>> cock. You caress her face and kiss her lips to reassure the nervous girl.'
+								'"Ok Katja, relax. We have done this before. Ivan isn''t going to hurt you."'
+								'The girl closes her eyes, relaxes and raises a leg over the bench to give Ivan better access to her asshole. A moan escapes her lips as the jock slowly pushes his cock beyond the closely guarded aperture.'
+								'"Uff! Fuck! <<$pcs_nickname>>! Ivan! It''s... It''s big!"'
+								'You silence her moans with a kiss and lead a hand towards her crotch so you can begin to finger her really wet and hot cunt as Ivan slowly fucks her asshole, the room quickly filling with a mix of excited moans and painful grunts coming from between your linked tongues.'									
+							end
+							if npc_ass['A14'] < dick: npc_ass['A14'] += 1
+							if npc_ass['A14']*2 < dick: npc_ass['A14'] += 1
+
+							act 'A happy ending':
+								*clr & cla
+								gs 'arousal', 'voyeur_sex', 5, 'group'
+								gs 'arousal', 'end'
+								gs 'stat'
+								'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/sex/KIS3.jpg"></center>'
+								'Ivan grunts and moans as he relentlessly drills Katja''s ass with his <<dick>>cm <<$dick_girth>> cock and you can only marvel at the jock''s incredible stamina, but eventually, the spit used to lubricate Katja''s sweet anus dries and painful sounds escape from the poor girl. You then redouble your effort to make the girl cum, and soon, Katja gives out a pleasured cry as her body shakes in orgasmic bliss.'
+								'"Yes! <<$pcs_nickname>>! Ivan! Yes"'
+								'She falls sprawled over the bench, but sadly, Ivan isn''t near release and there is only a thing to do. You bend and open your mouth at the same time the jock extracts his cock from Katja.'
+								'"Open your mouth baby!"'
+								'You don''t think, only react, and immediately begin to suck, lick and jerk his cock at the sound of Ivan''s pleasured moans. Even with that, it takes you several minutes to make him cum, giving you a mouthful of sperm that can barely be contained, and it spills out over Katja''s sore anus.'
+
+								act 'Afterglow':
+									*clr & cla
+									minut += 10
+									katjaQW['horny'] = 0
+									pcs_mood += 10
+									npc_rel['A14'] += 1
+									npc_rel['A3'] += 1
+									katjaQW['slut'] += 5
+									guy += 1
+									gs 'cum_call', 'mouth', 'A3', 1
+									if succubusflag = 1:
+										scfeed = succublvl + rand(1,4)
+										sexnutrition += 30 * scfeed
+										succubxp += 6
+									end
+									gs 'stat'
+									'<center><b><font color="maroon"><<$npc_firstname[''A14'']>> <<$npc_lastname[''A14'']>></font></b></center>'
+									'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big14.jpg"></center>'
+									'For a while, the three of you lie cuddling on the floor in a mess of bodies, clothes and... diverse fluids, but eventually, Ivan gets up and begins to redress.'
+									'"That was great girls! We need to do this more often."'
+									'Then, he kisses you both and, taking care that nobody is looking, walks out, leaving you and Katja alone.'
+									if katjaQW['ivan_anal'] = 0:
+										katjaQW['ivan_anal'] = 1
+										'"Hey <<$pcs_nickname>>. You have done this with him before. That made us... Ehm..."'
+										'"Ivan''s anal harem sisters?"'
+										'"Ah... I wasn''t going to say that <<$pcs_nickname>> but... Yeah?"'
+										'She then tiredly lies against you for a while before slowly and painfully getting up.'
+										'"Oh my! I''m sore <<$pcs_nickname>>! Puff. It''s wasn''t that bad. I mean... Fuck! I have heard rumors, but woah. I wouldn''t mind repeating it, but I need a rest."'
+										'You get up and embrace the ginger, before deciding to redress, as Katja seems pretty wasted and it is best to take her home.'
+									else
+										'"Fuck <<$pcs_nickname>>! Another score for Ivan''s anal harem sisters!"'
+										'You lie by her side and give the redhead another cum-soaked kiss before she gets up.'
+										'"Oh my! I''m sore <<$pcs_nickname>>! I need a rest."'
+										'You get up and embrace the ginger before deciding to redress, as Katja seems pretty wasted and it is best to take her home.'
+									end
+
+									act 'Redress and take Katja to her home':gs 'clothing', 'wear_last_worn' & gs 'underwear', 'wear' & minut += 10 & gt 'pav_residential'
+								end
+							end
+						end
+					end
+				else
+					'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/sex/KIS4.jpg"></center>'
+					'You and Katja caress Ivan''s <<dick>>cm <<$dick_girth>> cock, masturbating the jock. He lets out grunts of pleasure as he let you both take control. Slowly you grow bold in your competition and begin to lick his dick.'
+					'"Ok Katja, I think it is my turn."'
+					'Ivan sits back in a chair and relaxes, waiting for you. His glans is soon inside your mouth, covered in warm spit, with Katja joining your demonstration, giving him long licks along his length. Soon the room is filled with the sound of moaning.'
+					'You get lost in the moment as the cock enters and exits your mouth in a rhythmic cadence, accompanied by the occasional kiss coming from Katja, who is engrossed on her own endeavor, giving Ivan the time of his life.'
+					'"Open your mouth <<$pcs_nickname>>."'
+
+					act 'You give him some deep throat.':
+						*clr & cla
+						gs 'arousal', 'bj', 5, 'sub', 'deepthroat'
+						if pcs_throat < dick:pcs_throat += 1
+						if katjaQW['knows_BJ'] = 0: katjaQW['knows_BJ'] = 1
+						gs 'stat'
+						'<center><video autoplay loop src="images/shared/sex/blowjob/shower6.mp4"></video></center>'
+						if pcs_throat < 15:
+							'You are so engrossed in the act, that your brain is unable to discern who has spoken, only that a pair of hands close over your head... and push, causing Ivan''s <<dick>>cm <<$dick_girth>> cock fill your mouth and reach your tonsils.'
+							'Trying to resist the sudden invasion, you slap Ivan''s legs who immediately releases his grip, making you fall back.'
+							'"Cough! What the... Cough... Fuck! Ivan what are you... Hm?!"'
+							'The jock seems apprehensive and look sideways to Katja, that is smiling... sheepishly? It was her? The three of you sit in silence, not knowing how to react.'
+							'"Ehm... girls. I don''t how to say this, but... ehm... I have a problem."'
+							'Ivan''s words snap you from the sudden impasse, and after looking at his erection, you stand and bend invitingly over a nearby chair.'
+						else
+							'You are so engrossed in the act that your brain is unable to discern who has spoken, only that a pair of hands close over your head... and push, causing Ivan''s <<dick>>cm <<$dick_girth>> cock fill your mouth and reach your tonsils.'
+							'It is sudden, but you close your fists and concentrate on relaxing your throat, letting the jock deeper and deeper.'
+							'"Yeah <<$pcs_nickname>>! Show him!"'
+							'Katja''s excited voice reaches your ears as you grab Ivan''s legs for support, and begin a blowjob that makes the jock groan in pleasure and disbelief, but alas, that isn''t enough to break his astonishing endurance, and after some minutes your throat gets painfully dry.'
+							'"Cough! Ok... Puff! Get up Ivan! Time for the main dish!"'
+							'You spit her cock and reach for a chair, bend over it and looking over your shoulder, wait for him.'
+						end
+
+						act 'Time for anal':
+							*clr & cla
+							gs 'arousal', 'anal', 5, 'sub', 'rough'
+							gs 'arousal', 'clit_finger', 5
+							if pcs_ass < dick:
+								pcs_horny += 10
+								if agape < 2:agape = 2
+							end
+							if katjaQW['knows_anal'] = 0: katjaQW['knows_anal'] = 1
+							gs 'stat'
+							'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/sex/KIS5.jpg"></center>'
+							if pcs_ass <15:
+								'Ivan doesn''t waste time and positions himself at your backdoor, but stops and waits for Katja to separate your buttocks then looks at you, waiting for a signal. For a moment, doubt creeps in your mind before answering.'
+								'"I''m... I''m ready Ivan."'
+								'With that, he pushes slowly, but unrelenting, and his cock slides inside you, shooting pain up your back. Fortunately, Katja is here to ease the ordeal, kissing and caressing your quickly sweaty forehead and sliding a hand down your belly to your nethers.'
+								'"Come on <<$pcs_nickname>>! We are tough girls! Show him!"'
+								'With that signal, you grit your teeth as Ivan begins to fuck you in earnest, his vigorous grunts mixing with your painful ones, but thanks to Katja playing with your cunt, slowly those mix with your pleasured moans.'
+							else
+								'Ivan doesn''t waste time and positions himself at your backdoor, but stops and waits for Katja to separate your buttocks then looks at you, waiting for a signal. You lick your lips and look at him sultrily.'
+								'"What are you waiting for Ivan? Are you worried about hurting me?"'
+								'He smiles, kisses your backside and pushes slowly, forcing his cock into your ass, shooting pleasant pain up your back. He isn''t alone, however, as Katja begins making out with the two of you and somehow managing to slide a hand down your belly to your nethers.'
+								'"Oh fuck! Girls! You are amazing!"'
+								'You barely heard him, too preoccupied about Katja''s tongue playing in your mouth and the pleasure that her fingering of your cunt, combined with Ivan''s endless pounding of your asshole, overwhelm you in pleasure.'
+							end
+
+							act 'A happy ending':
+								*clr & cla
+								gs 'arousal', 'bj', 5
+								gs 'stat'
+								'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/sex/KIS6.jpg"></center>'
+								'Ivan grunts and moans as he relentlessly drills you with his <<dick>>cm <<$dick_girth>> cock in an amazing show of stamina, but eventually, the spit used to lubricate your little hole dries and painful sounds escape your mouth. Katja catches the message and redoubles her effort in making you cum and soon, a throaty moan escapes your mouth as the combined sensations make you cum.'
+								'"Yes! Katja! Ivan! Yes"'
+								'You fall sprawled over the chair, but sadly, Ivan isn''t near release and there is only one thing to do. You and Katja kneel before the jock, a grunt on your lips as the sudden movement leaves a cold void inside you, and proceed to give Ivan some well-deserved head.'
+								'"Open your mouth baby!"'
+								'You don''t think, only react, and immediately the two of you begin to suck, lick and jerk his cock at the sound of Ivan''s pleasured moans. Even with that, it takes you several minutes to make him cum, giving you a mouthful of sperm that can barely be contained, and it spills down onto your breasts.'
+
+								act 'Afterglow':
+									*clr & cla
+									minut += 5
+									katjaQW['horny'] += 10
+									pcs_mood += 20
+									npc_rel['A14'] += 1
+									npc_rel['A3'] += 1
+									katjaQW['slut'] += 5
+									kiss += 1
+									if npc_sex['A3'] = 0: npc_sex['A3'] = 1 & guy += 1
+									gs 'cum_call', 'mouth', 'A3', 1
+									gs 'cum_call', 'breasts', 'A3', 1
+									if succubusflag = 1:
+										scfeed = succublvl + rand(1,4)
+										sexnutrition += 30 * scfeed
+										succubxp += 6
+									end
+									gs 'stat'
+									'<center><b><font color="maroon"><<$npc_firstname[''A14'']>> <<$npc_lastname[''A14'']>></font></b></center>'
+									'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big14.jpg"></center>'
+									'For a while, the three of you lie cuddling on the floor in a mess of bodies, clothes and... diverse fluids, but eventually, Ivan gets up and begins to redress.'
+									'"That was great girls! We need to do this more often."'
+									'Then, he kisses you two and, taking care that nobody is looking, walks out, leaving you and Katja alone.'
+									'"Shit <<$pcs_nickname>>! We truly are a pair of sluts!"'
+									'You lie by her side and give the redhead another cum-soaked kiss, before getting up and deciding to redress. That was fun, but it is time to look for something else to do.'
+
+									act 'Redress and look for something else to do':gs 'clothing', 'wear_last_worn' & gs 'underwear', 'wear' & minut += 10 & gt 'katjaEv','kathan'
+								end
+							end
+						end
+					end
+				end
+			end
+		end
+	end
+end
+
+if $ARGS[0] = 'saune_time':
+	*clr & cla
+	menu_off = 1
+	npc_rel['A14'] += 1
+	minut +=30
+	pcs_mood += 10
+	sauna_daystart = daystart
+	pcs_skin += rand(2,4)
+	pcs_willpwr += 3
+	if pcs_inhib < 40: inhib_exp += rand(0,1)
+	if $clothingworntype = 'nude' and pcs_inhib < 60: inhib_exp += rand(1,2)
+	deodorant_on = 0
+	pcs_makeup = 1
+	gs 'stat'
+
+	if $clothingworntype = 'nude':
+		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/KS8.jpg"></center>'
+
+		if katjaQW['slut'] >= 20 and katjaQW['horny'] >= 20 and katjaQW['QWstage'] > 2 and npc_sex['A14'] > 0:
+			'After undressing in the lockers, and waiting for your turn, Katja and you enter the sauna. You sit completely naked, neither you nor Katja being ashamed to show your beautiful bodies and letting the hot and humid air smooth your precious skins.'
+			'"Oh yes <<$pcs_nickname>> this hits the spot!"'
+			'Ahhh yes! Letting your problems melt away, you and Katja relax in the sauna, talking about your problems and do some rumourmongering, but as the time pass, you observe some details on the redhead. She seems unable to sit still, bites her lips and gives you longing gazes. It''s undeniable that she is horny, so... what to do? Have some semi-public hot and steamy sex or let the ginger cook in her own sauce until you reach a better place?'
+
+			gs 'willpower', 'sex', 'self', 'medium'
+			if will_cost <= pcs_willpwr:
+				act 'Sauna sex!':
+					*clr & cla
+					gs 'willpower', 'pay', 'sel'
+					gs 'willpower', 'pay', 'self', 'medium'
+					gs 'stat'
+					gt 'katja_lake','sauna_sex1'
+				end
+			else
+				act 'Sauna sex! (<font color="red"><<will_cost>> Willpower</font>)': Msg '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+			end
+
+			if month >11 or month <3:
+				gs 'willpower', 'misc', 'force', 'easy'
+				if will_cost <= pcs_willpwr:
+					act 'Ice dipping!':
+						*clr & cla
+						gs 'willpower', 'pay', 'force'
+						gs 'willpower', 'pay', 'force', 'easy'
+						gs 'stat'
+						gt 'katja_lake','ice_dipping'
+					end
+				else
+					act 'Ice dipping! (<font color="red"><<will_cost>> Willpower</font>)': Msg '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+				end
+			end
+
+			act 'Shower, redress and go':gs 'clothing', 'wear_last_worn' & gs 'underwear', 'wear' & minut += 10 & minut += 10 & gt 'katjaEv','kathan'
+
+		elseif katjaQW['slut'] >= 20:
+			'After undressing in the lockers, and waiting for your turn, Katja and you enter the sauna. You sit completely naked, neither you nor Katja being ashamed to show your beautiful bodies and letting the hot and humid air smooth your precious skins.'
+			'"Oh yes <<$pcs_nickname>> this hits the spot!"'
+			'Ahhh yes! Letting your problems melt away, you and Katja relax in the sauna, talking about your problems and do some rumourmongering, making the time pass quickly.'
+			'"Ok <<$pcs_nickname>>. I think that this is enough."'
+			'Blinking surprised, you look the time. Yes, half an hour has passed, more than enough for your skin treatment.'
+
+			if month >11 or month <3:
+				gs 'willpower', 'misc', 'force', 'easy'
+				if will_cost <= pcs_willpwr:
+
+					act 'Ice dipping!':
+						*clr & cla
+						gs 'willpower', 'pay', 'force'					
+						gs 'stat'
+						gt 'katja_lake','ice_dipping'
+					end
+				else
+					act 'Ice dipping! (<font color="red"><<will_cost>> Willpower</font>)': Msg '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+				end
+			end
+			act 'Shower, redress and go':gs 'clothing', 'wear_last_worn' & gs 'underwear', 'wear' & minut += 10 & minut += 10 & gt 'katjaEv','kathan'
+
+		else
+			'You both change in the lockers, but before Katja can put on her bikini, you grab it.'
+			'"Hey! What are you doing? This isn''t funny!"'
+			'Smiling, you look at her, ogling the petite doll-like ginger that is desperately trying to cover her body.'
+			'"No Katja! This is going to be better for your skin! So... let it go!"'
+			'Without expecting a reply from the angry girl, you exit the lockers. She stands there a moment before reluctantly following you, and after waiting for your turn, enter the sauna.'
+			'"Oh yes Katja this hits the spot!"'
+			'At the beginning, she is angry, but after some time in the relaxing atmosphere, you begin to talk and Katja returns to her more normal demeanor, talking about your problems and doing some rumourmongering, making the time pass quickly.'
+			'"Ok, <<$pcs_nickname>>. I think that this is enough."'
+			'Blinking surprised, you look the time. Yes, half an hour has passed, more than enough for your skin treatment.'
+
+			if month >11 or month <3:
+				gs 'willpower', 'misc', 'force', 'easy'
+				if will_cost <= pcs_willpwr:
+					act 'Ice dipping!':
+						*clr & cla
+						gs 'willpower', 'pay', 'force'
+						KatjaQW['dom'] -= 1
+						katjaQW['slut'] +=5
+						gs 'stat'
+						gt 'katja_lake','ice_dipping'
+					end
+				else
+					act 'Ice dipping! (<font color="red"><<will_cost>> Willpower</font>)': Msg '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+				end
+			end
+
+			act 'Shower, redress and go':gs 'clothing', 'wear_last_worn' & gs 'underwear', 'wear' & katjaQW['slut'] +=5 & minut += 10 & gt 'katjaEv','kathan'
+		end
+	else
+		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/KS7.jpg"></center>'
+		'You both change in the lockers, and after waiting for your turn, enter the sauna. There you sit, the hot and humid air helping to smoothen your precious skins.'
+		'"Oh yes <<$pcs_nickname>> this hits the spot!"'
+		'Ahhh yes! Letting your problems melt away, you and Katja relax in the sauna, talking about your problems and do some rumourmongering, making the time pass quickly.'
+		'"Ok <<$pcs_nickname>>. I think that this is enough."'
+		'Blinking surprised, you look the time. Yes, half an hour has passed, more than enough for your skin treatment. After taking a quick shower, you redress and leave. It is time to look for something else to do.'
+
+		if month >11 or month <3:
+			gs 'willpower', 'misc', 'force', 'easy'
+			if will_cost <= pcs_willpwr:
+				act 'Ice dipping!':
+					*clr & cla
+					gs 'willpower', 'pay', 'force'
+					gs 'stat'
+					gt 'katja_lake','ice_dipping'
+				end
+			else
+				act 'Ice dipping! (<font color="red"><<will_cost>> Willpower</font>)': Msg '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+			end
+		end
+		act 'Shower, redress and go':minut += 10 & gs 'clothing', 'wear_last_worn' & gs 'underwear', 'wear' & gt 'katjaEv','kathan'
+	end
+end
+
+if $ARGS[0] = 'ice_dipping':
+	*clr & cla
+	menu_off = 1
+	npc_rel['A14'] += 1
+	minut += 5
+	pcs_mood += 10
+	if pcs_inhib < 50:inhib_exp += rand(0,1)
+	gs 'stat'
+
+	if $clothingworntype = 'nude':
+		inhib_exp += rand(1,2)
+		gs 'clothing', 'wear_last_worn'
+		gs 'underwear', 'wear'
+		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/KS13.jpg"></center>'
+		'Grabbing Katja''s hand, you run naked out of the sauna and jump into the lake''s icy waters, the sudden cold shock toning your bodies.'
+		'"Yuhu! Katja! One for pavlovsk''s alpha bitches!"'
+		'You scream with all your might to throw away the cold, the redhead joining your exuberance and dipping with you several more times in the frozen lake.'
+		'"Fuck fukity fuck <<$pcs_nickname>>! Two for the Pavlovsk''s alpha bitches!"'
+		'Finally, trembling but happy, you both exit the water and proceed to do some warm-ups, before redressing. It has been fun, but it is time to look for something else to do.'
+	else
+		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/KS14.jpg"></center>'
+		'Grabbing Katja''s hand, you run out of the sauna and jump into the lake''s icy waters, the sudden cold shock toning your bodies.'
+		'"Yuhu! Katja! One for pavlovsk''s alpha bitches!"'
+		'You scream with all your might to throw away the cold, the redhead joining your exuberance and dipping with you several more times in the frozen lake.'
+		'"Fuck fukity fuck <<$pcs_nickname>>! Two for the Pavlovsk''s alpha bitches!"'
+		'Finally, trembling but happy, you both exit the water and proceed to do some warm-ups. It has been fun, but it is time to look for something else to do.'
+	end
+	act 'Shower, redress and go':minut += 10 & gs 'clothing', 'wear_last_worn' & gs 'underwear', 'wear' & gt 'katjaEv','kathan'
+end
+
+if $ARGS[0] = 'sauna_sex1':
+	*clr & cla
+	menu_off = 1
+	gs 'arousal', 'kiss', 5, 'exhibitionism'
+	if $clothingworntype = 'nude':inhib_exp += rand(1,2)
+	if pcs_inhib < 50:inhib_exp += rand(0,1)
+	pcs_mood += 10
+	gs 'stat'
+
+	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/sex/KS9.jpg"></center>'
+
+	if KatjaQW['dom'] > 30:
+		'There is a tense silence as you both realize what is going to happen. Finally, the tension is broken when Katja smile cutely, sits up straight and opens her legs invitingly.'
+		'"Come on <<$pcs_nickname>>. What are you waiting?"'
+		'She manages to sound utterly innocent and you, charmed by the slutty redhead, rise without hesitation, consumed by your need to love this cute little thing. Katja isn''t passive and as soon as you are within reach, she grabs a handful of your hair and forces a kiss on your lips.'
+		'"Dammit Katja! Why are you so cute?"'
+		'She giggles in your mouth, and obediently, your hand reaches for her inner thighs, looking to penetrate the warm petals that hide between them. Warmth and wetness greet your fingers and soon, you are masturbating the redhead, caressing her quickly engorging clit.'
+		'"<<$pcs_nickname>>... I want more"'
+		'She huskily whispers into your ear, and siezing her hands over your shoulders, tries to make you kneel.'
+
+		act 'Eat her':
+			menu_off = 1
+			*clr & cla
+			gs 'arousal', 'cuni_give', 10, 'exhibitionism', 'sub'
+			KatjaQW['dom'] += 2
+			pcs_mood += 10
+			gs 'stat'
+			'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/sex/KS10.jpg"></center>'
+			'You lick your lips and kneel before your redhaired goddess as Katja opens the legs, her beautiful pussy is fully exposed and ready for your imminent assault. The humid air, combined with your arousal, makes you somewhat dizzy and for a long moment, you sit there with your mouth dry.'
+			'"<<$pcs_nickname>>! Please!"'
+			'Her voice, full of need, takes you away from your reverie, and without missing a beat, your hands spread the redhead''s legs to the max to have better access. Katja grunts at the awkward position, but doesn''t stop you and soon, you dig between her thighs.'
+			'"Fuck <<$pcs_nickname>>!"'
+			'The sauna''s dense air weighs over your shoulders as you caress her tender flesh, making your lover squirm and howl under the continuous assault coming from your tongue and fingers. Katja is on edge, but before cumming, she makes you rise to devour your mouth.'
+
+			act 'You devour each other':gt 'katja_lake','sauna_sex2'
+		end
+
+		gs 'willpower', 'cuni', 'force', 'easy'
+		if will_cost <= pcs_willpwr:
+			act 'Make her eat you':
+				menu_off = 1
+				*clr & cla
+				gs 'willpower', 'pay', 'force'
+				gs 'arousal', 'cuni_give', 10, 'exhibitionism', 'dom'
+				KatjaQW['dom'] -= 2
+				pcs_mood += 10
+				gs 'stat'
+				'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/sex/KS11.jpg"></center>'
+				'"You want more Katja? Ok, but first..."'
+				'You rise and caress Katja''s red mane as she looks consumed by her arousal and, understanding the statement, obediently rises from the bench and kneels so you can sit on her place. She bites her lips, transfixed by the need to play with your nether.'
+				'"<<$pcs_nickname>>... how do you make me want to do this so much?"'
+				'Katja pushes your legs so she has easy access to your pussy, and after a sigh, begins to give you little amorous kisses all over your thighs. You sit back and try to relax, biting your lips as the burning sensation in your core only gets stronger with Katja''s slow performance.'
+				'"Katja! Just... Fuck! Use your tongue!"'
+				'The redhead obeys your command and licks your cunt passionately, her cold tongue making your body tremble in pleasure. Your voice can''t be contained and soon, moans fill the sauna, announcing to those beyond the debauched act taking place within, but is not enough. You grab Katja by the hair and make her kiss you.'
+
+				act 'You devour each other':gt 'katja_lake','sauna_sex2'
+
+			end
+		else
+			act 'Make her eat you (<font color="red"><<will_cost>> Willpower</font>)': Msg '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+		end
+	else
+		'There is a tense silence as you both realize what is going to happen. Finally, the tension is broken when you rise and grab a handful of her hair.'
+		'"<<$pcs_nickname>>?!"'
+		'The nervous redhead looks sideways towards the door, but you, consumed by your need to fuck this cute little thing, ignore the danger and force your tongue in her mouth, silencing the complaints and at the same time, eliciting a pleasured gasp as your unoccupied hand works its way towards Katja''s pussy.'
+		'"Dammit Katja! Why are you so cute?"'
+		'As you approach her inner thighs, she gives a startled moan, and instinctively closes her legs, but you aren''t going to be denied and force your hand in, looking to penetrate the warm petals that hide between them. Warmth and wetness greet your fingers and soon, you are masturbating the redhead, who has forgetten her reservations and opened the legs so you can caress her quickly engorging clit.'
+		'"<<$pcs_nickname>>... I want... I mean..."'
+		'Katja bites her lips and looks at you with deseperate need. What are you going to do?'
+
+		act 'Eat her':
+			menu_off = 1
+			*clr & cla
+			gs 'arousal', 'cuni_give', 10, 'exhibitionism', 'sub'
+			pcs_mood += 10
+			gs 'stat'
+			'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/sex/KS10.jpg"></center>'
+			'You lick your lips and kneel before your redhaired goddess as Katja opens the legs, her beautiful pussy is fully exposed and ready for your imminent assault. The humid air, combined with your arousal, makes you somewhat dizzy and for a long moment, you sit there with your mouth dry.'
+			'"<<$pcs_nickname>>! Please!"'
+			'Her voice, full of need, takes you away from your reverie, and without missing a beat, your hands spread the redhead''s legs to the max to have better access. Katja grunts at the awkward position, but doesn''t stop you and soon, you dig between her thighs.'
+			'"Fuck <<$pcs_nickname>>!"'
+			'The sauna''s dense air weighs over your shoulders as you caress her tender flesh, making your lover squirm and howl under the continuous assault coming from your tongue and fingers. Katja is on edge, but before cumming, she makes you rise to devour your mouth.'
+
+			act 'You devour each other':gt 'katja_lake','sauna_sex2'
+		end
+		act 'Make her eat you':
+			menu_off = 1
+			*clr & cla
+			gs 'arousal', 'cuni_give', 10, 'exhibitionism', 'dom'
+			pcs_mood += 10
+			gs 'stat'
+			'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/sex/KS11.jpg"></center>'
+			'"You want more Katja? Ok, but first..."'
+			'You rise and caress Katja''s red mane as she looks consumed by her arousal and, understanding the statement, obediently rises from the bench and kneels so you can sit on her place. She bites her lips, transfixed by the need to play with your nether.'
+			'"<<$pcs_nickname>>... how do you make me want to do this so much?"'
+			'Katja pushes your legs so she has easy access to your pussy, and after a sigh, begins to give you little amorous kisses all over your thighs. You sit back and try to relax, biting your lips as the burning sensation in your core only gets stronger with Katja''s slow performance.'
+			'"Katja! Just... Fuck! Use your tongue!"'
+			'The redhead obeys your command and licks your cunt passionately, her cold tongue making your body tremble in pleasure. Your voice can''t be contained and soon, moans fill the sauna, announcing to those beyond the debauched act taking place within, but is not enough. You grab Katja by the hair and make her kiss you.'
+
+			act 'You devour each other':gt 'katja_lake','sauna_sex2'
+		end
+	end
+end
+
+
+if $ARGS[0] = 'sauna_sex2':
+	*clr & cla
+	menu_off = 1
+	$orgasm_or = 'yes'
+	gs 'arousal', 'vaginal_finger_give', 5, 'exhibitionism', 'lesbian'
+	gs 'arousal', 'cuni', 5, 'exhibitionism', 'lesbian'
+	pcs_mood += 10
+	if npc_sex['A14'] = 0: girl += 1 & npc_sex['A14'] += 1
+	gs 'fame', 'pav', 'sex', rand(0,2)
+	gs 'stat'
+
+	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/sex/KS12.jpg"></center>'
+	'Groaning in frustration the two of you engage in a furious kissing war, with the humid air in the sauna frustrating your attempts to think clearly. You caress and kiss your way around Katja''s petite body. At the same time, she constantly steps up the game.'
+	'"Fuck me! Fuck me!"'
+	'You don''t know who speaks only that somehow, you have ended up straddling Katja, who now lies sprawled over a bench, her pussy-hungry mouth desperately licking your cunt with all her might. Your breath comes out ragged, the hot air making your head dizzy, but somehow understanding what must be done.'
+	'"Yeah Katja, give it to me!"'
+	'You reach behind your back towards Katja''s soaking wet cunt and begin viciously masturbating her. She instinctively raises her hips to milk more pleasure from your fingers, somehow synchronizing with your own needs and making you both reach higher and higher until, (You don''t know who cum first)a orgasm was over you two.'
+
+	act 'Catching your breath':
+		*clr & cla
+		minut += 10
+		if succubusflag = 1:
+			scfeed = succublvl + rand(1,4) &
+			sexnutrition += 30 * scfeed
+			succubxp += 6
+		end
+		gs 'stat'
+		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/KS8.jpg"></center>'
+		'It takes a long while for you both to catch your breath after the frenetic sex you just had, the sauna''s atmosphere not helping much.'
+		'"<<$pcs_nickname>> Woah! Te-he Uff! I''m wasted, but... it was worth it!"'
+		'You smile tiredly to the good-spirited girl, who now sits happily by your side, tiredly caressing and kissing you.'
+		'"Yeah Katja... but we must leave before we dry up like raisins."'
+		'You help her get up and prepare to exit the sauna.'
+		if month >11 or month <3:
+			gs 'willpower', 'misc', 'force', 'easy'
+			if will_cost <= pcs_willpwr:
+				act 'Ice dipping!':
+					*clr & cla
+					gs 'willpower', 'pay', 'force'
+					gs 'stat'
+					gt 'katja_lake','ice_dipping'
+				end
+			else
+				act 'Ice dipping! (<font color="red"><<will_cost>> Willpower</font>)': Msg '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+			end
+		end
+
+		act 'Shower, redress and go':gs 'clothing', 'wear_last_worn' & gs 'underwear', 'wear' & minut += 10 & gt 'katjaEv','kathan'
+	end
+end
+
+--- katja_lake ---------------------------------
+

locations/katja_sex.qsrc

@@ -1,7 +1,7 @@
 # katja_sex
+!!2022/28/01
 
-!new from 1.2.3 fix2
-!from 1.2.3 [Katja_Parc_EV]
+!!Kissing competition in the park
 if $ARGS[0] = 'park':
 	if month=3 or month=4 or month=5:
 		if hour>=6 and hour<=17:
@@ -152,7 +152,7 @@ if $ARGS[0] = 'park':
 	end
 end
 
-!from 1.2.3 location [prohorov_sex]
+!!Sex with Ivan After School (should soon be redone to an anal only scene
 if $ARGS[0] = 'prohorov_sex':
 	cla & *clr
 	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/tease.jpg"></center>'
@@ -268,12 +268,12 @@ if $ARGS[0] = 'prohorov_sex':
 		end
 	end
 end
-!end port from 1.2.3 fix2
 
+!!Thresome whit Marcus at Katja''s home
 if $ARGS[0] = 'marcus_wait':
 	menu_off = 1
 	*clr & cla
-	minute += 5
+	minut += 5
 	gs 'arousal', 'foreplay', 5
 	katjaQW['horny'] += 10
 	gs 'stat'
@@ -283,7 +283,7 @@ if $ARGS[0] = 'marcus_wait':
 	'While you wait, you getly stroke Katja''s body to keep her'+iif(npc_vag['A14'] + 5 < npc_dick['A146'] or katjaQW['marcus_pussy'] = 0, ' nerves down.', ' exicited.')+' Finally, after what seems like an eternity, you hear the doorbell ring.'
 	act 'Tell him to come in':
 		*clr & cla
-		minute += 1
+		minut += 1
 		gs 'stat'
 		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/meynolds/sex/virgin/marcuswait2.jpg"></center>'
 		'"Come in, the door is open!" you shout. After hearing the door close, you shout "We''re in here!"'
@@ -547,5 +547,320 @@ if $ARGS[0] = 'marcus_aftermatch':
 	end
 end
 
+!!Threesome with Natasha after meeting her at the market
+if $ARGS[0] = 'katnatsex1':
+	*clr & cla
+	gs 'arousal', 'voyeur', 10, 'lesbian', 'group'
+	NatbelQW['training'] += 1
+	katjaQW['slut'] += 10
+	npc_rel['A14'] += 5
+	if npc_sex['A14'] = 0: girl += 1 & npc_sex['A14'] += 1
+	npc_rel['A16'] += 5
+	if npc_sex['A16'] = 0: girl += 1 & npc_sex['A16'] += 1
+	gs 'stat'
+	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/sex/KWS6.jpg"></center>'
+	'"Ok Slut, this is what is going to happen. You see cute little Katja here? Well, you are coming with us and will eat her pussy like there is no tomorrow. Do that and I will condone some of your debt. Understood?"'
+	'Natasha looks at you, but doesn''t retort, she just looks to Katja for a moment and then nods. Yeah! Total control!'
+	'"Hey! Let''s show Natasha your room!"'
+	'You grab Katja''s hand and exit the shop, followed by a meekly Natasha. The journey back seems to take an eternity as the two girls eye one another silently, but finally, you enter Katjas''s room, quickly undress and jump onto the bed.'
+	'"So girls, how do we begin?"'
+	'The girls strip slower than you, and you can see Katja ogling a blushing (but not embarrassed) Natasha. They then jumps on the bed and looks at you expectantly.'
+	gs 'clothing', 'strip_all'
+
+	act 'Katja':
+		menu_off = 1
+		*clr & cla
+		gs 'arousal', 'cuni_give', 10
+		gs 'stat'
+		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/sex/KWS7.jpg"></center>'
+		'You can only lick your lips as the ginger goddess smiles with grace and positions herself against the headboard. Then languidly, Katja opens her thighs so you can feast on her nectar, but as you kneel, the ginger grabs a spaced out Natasha and make her cuddle against her crotch.'
+		'"Hm? Don''t worry <<$pcs_nickname>>, Natasha is in good hands."'
+		'She smiles as you pout and try on puppy eyes, but the cold bitch just caresses and kisses the nerdy girl as Natasha give you sideways looks. Ok, message received. You are now her bitch... sigh... Time to serve your mistress!'
+		'"Ouch! <<$pcs_nickname>>!"'
+		'You smile, kissing the hickey that has just mysteriously appeared on Katja''s thigh and amorously, open her womanhood folds so your tongue can lick the redhead''s little love button. Her abstracted moans mix with Natasha''s insecure kisses as you take your time to take pleasure on the hotness between her legs, enjoying the slow cunnilingus as Katja approaches her orgasm. Finally, when she reaches it, you are so engrossed in the act that you practically lose it in the delicious moment when she tenses and relaxes.'
+		'"Now it''s my turn, isn''t it Katja?"'
+		'Natasha practically doesn''t react, happily snuggling under the redhead''s care, who somewhat tiredly(but satisfied) looks at you expectantly.'
+
+		act 'Now Natasha!':
+			*clr & cla
+			gs 'arousal', 'cuni_give', 10
+			gs 'stat'
+			'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/sex/KWS8.jpg"></center>'
+			'The redhead grabs Natasha and pushes her against the headboard. The nerd tries to get up, squirming under Katja''s hands, but her weight immobilizes Natasha against the bed''s headboard. At the same time, you force open Natasha''s thighs. The nerd seems to be about to say something, but Katja stops her with a finger on the lips'
+			'"Shh. Don''t worry Natasha, you are too nervous. Let <<$pcs_nickname>> and I take care of that, ok?"'
+			'"Hm... Ok Katja. I trust... OUCH!"'
+			'One of your fingers penetrates Natasha''s hot, wet pussy a little too roughly, but it sends the correct message, and the nerd finally shuts up and ends the struggling. Now she is at your tender mercies, and Katja kneels beside you to devour the now silent girl, but that doesn''t last long, as you two pussy-hungry vixens begin to lick, bite and fingerfuck the trashing girl, whose screams of pleasure are only contained by your deep kisses, making her raise her thighs little by little until, finally, she cums.'
+
+			act 'The girls seem too tired to continue.': gt 'katja_sex', 'katnatsex2'
+
+			gs 'willpower', 'cuni', 'force', 'hard'
+			if will_cost <= pcs_willpwr:
+				act 'Force the girls to eat you (<<will_cost>> Willpower)':
+					*clr & cla
+					KatjaQW['dom'] -= 2
+					$orgasm_or = 'yes'
+					gs 'arousal', 'cuni', 10, 'lesbian'
+					gs 'stat'
+					'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/sex/KWS10.jpg"></center>'
+
+					'You shove Natasha away and jump on the redhead who, faking surprise, lets your tongue ravage her mouth.'
+					'"Now... Muach... you are... slurp... mine Katja! I am horny, so you two can do your job!"'
+					'The redhead doesn''t retort. She just caresses your face and begins to kiss you. Then, a wet sensation reaches your back. It is Natasha, who has positioned herself behind you and has just licked your back. She stops when you turn towards her with curiosity, but after an embarrassing silence in which you don''t say anything, the nerdy girl continues licking and kissing her way back down your back, her hands groping your butt.'
+					'"Shh... Don''t worry <<$pcs_nickname>>, Natasha and I know what to do."'
+					'Katja embraces you and lies down, so you end on top, where you lash on her gorgeous bosom. Natasha meanwhile doesn''t stand idle and her hands begin to work you, her cold tongue tasting your asshole, startling you, but Katja embraces your body so you can''t escape the nerd''s probing. They continue doing this, slowly drilling your soaking cunt, exploring your hungry mouth and caressing your burning skin.'
+					'"Oh! Katja! I mean, oh! Fuck! Natasha I''m cumming!"'
+
+					act 'Cuddles': gt 'katja_sex', 'katnatsex2'
+				end
+			else
+				act 'Force the girls to eat you (<font color="red"><<will_cost>> Willpower</font>)': Msg '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+			end
+
+			act 'Your turn!':
+				*clr & cla
+				KatjaQW['dom'] += 2
+				$orgasm_or = 'yes'
+				gs 'arousal', 'cuni', 10, 'lesbian'			
+				gs 'stat'
+				'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/sex/KWS10.jpg"></center>'
+
+				'You shove Natasha away and jump on the redhead who, faking surprise, lets your tongue ravage her mouth.'
+				'"Now... Muach... you are... slurp... mine Katja! I am horny, so you two can do your job!"'
+				'The redhead doesn''t retort. She just caresses your face and begins to kiss you. Then, a wet sensation reaches your back. It is Natasha, who has positioned herself behind you and has just licked your back. She stops when you turn towards her with curiosity, but after an embarrassing silence in which you don''t say anything, the nerdy girl continues licking and kissing her way back down your back, her hands groping your butt.'
+				'"Shh... Don''t worry <<$pcs_nickname>>, Natasha and I know what to do."'
+				'Katja embraces you and lies down, so you end on top, where you lash on her gorgeous bosom. Natasha meanwhile doesn''t stand idle and her hands begin to work you, her cold tongue tasting your asshole, startling you, but Katja embraces your body so you can''t escape the nerd''s probing. They continue doing this, slowly drilling your soaking cunt, exploring your hungry mouth and caressing your burning skin.'
+				'"Oh! Katja! I mean, oh! Fuck! Natasha I''m cumming!"'
+
+				act 'Cuddle with Katja and ignore Natasha': gt 'katjaEv','katnatsex3'
+
+				act 'Too tired for sex, so "help" Natasha in another way':
+					*clr & cla
+					gs 'arousal', 'kiss', 10, 'lesbian'
+					gs 'stat'
+					'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/sex/KWS11.jpg"></center>'
+					'Sweet, loving, tired Katja moves towards a blushed with desire Natasha, but before the redhead can do anything, you grab Katja, and without care about your submissive slut, begin making out with your lover.'
+					'"Hmpf... <<$pcs_nickname>>... Muach... Is Katja''s... Lick..."'
+					'"Yeah... Slurp... Katja... Muach... Let''s give her a spectacle."'
+					'As you make out with the hot redhead, a gaze over her shoulder shows Natasha, squirming, not sure what to do. Finally, as it is evident that you aren''t going to let Katja fuck the little nerd, she slowly raises a hand towards her tit and the other down towards her pussy.'
+					'Katja sits hesitantly a moment, before hearing your slave''s moan, then looks into your eyes and begins to reply to your kisses. Soon, the sound of your own making out is joined with Natasha''s ragged breaths and wet slapping, that with a muffled scream, end in a much needed orgasm for the nerd.'
+
+					act 'Cuddles': gt 'katja_sex', 'katnatsex2'
+				end
+			end
+		end
+	end
+
+	act 'Natasha!':
+		menu_off = 1
+		*clr & cla
+		gs 'arousal', 'cuni_give', 10
+		gs 'stat'
+		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/sex/KWS8.jpg"></center>'
+		'The redhead grabs Natasha and pushes her against the headboard. The nerd tries to get up, squirming under Katja''s hands, but her weight immobilizes Natasha against the bed''s headboard. At the same time, you force open Natasha''s thighs. The nerd seems to be about to say something, but Katja stops her with a finger on the lips'
+		'"Shh. Don''t worry Natasha, you are too nervous. Let <<$pcs_nickname>> and I take care of that, ok?"'
+		'"Hm... Ok Katja. I trust... OUCH!"'
+		'One of your fingers penetrates Natasha''s hot, wet pussy a little too roughly, but it sends the correct message, and the nerd finally shuts up and ends the struggling. Now she is at your tender mercies, and Katja kneels beside you to devour the now silent girl, but that doesn''t last long, as you two pussy-hungry vixens begin to lick, bite and fingerfuck the trashing girl, whose screams of pleasure are only contained by your deep kisses, making her raise her thighs little by little until, finally, she cums.'
+
+		act 'Katja!':
+			*clr & cla
+			gs 'arousal', 'cuni_give', 10
+			gs 'stat'
+			'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/sex/KWS7.jpg"></center>'
+			'You can only lick your lips as the ginger goddess smiles with grace and positions herself against the headboard. Then languidly, Katja opens her thighs so you can feast on her nectar, but as you kneel, the ginger grabs a spaced out Natasha and make her cuddle against her crotch.'
+			'"Hm? Don''t worry <<$pcs_nickname>>, Natasha is in good hands."'
+			'She smiles as you pout and try on puppy eyes, but the cold bitch just caresses and kisses the nerdy girl as Natasha give you sideways looks. Ok, message received. You are now her bitch... sigh... Time to serve your mistress!'
+			'"Ouch! <<$pcs_nickname>>!"'
+			'You smile, kissing the hickey that has just mysteriously appeared on Katja''s thigh and amorously, open her womanhood folds so your tongue can lick the redhead''s little love button. Her abstracted moans mix with Natasha''s insecure kisses as you take your time to take pleasure on the hotness between her legs, enjoying the slow cunnilingus as Katja approaches her orgasm. Finally, when she reaches it, you are so engrossed in the act that you practically lose it in the delicious moment when she tenses and relaxes.'
+			'"Now it''s my turn, isn''t it Katja?"'
+			'Natasha practically doesn''t react, happily snuggling under the redhead''s care, who somewhat tiredly(but satisfied) looks at you expectantly.'
+
+			act 'Cuddles': gt 'katja_sex', 'katnatsex2'
+
+			gs 'willpower', 'cuni', 'force', 'hard'
+			if will_cost <= pcs_willpwr:
+				act 'Force the girls to eat you (<<will_cost>> Willpower)':
+					*clr & cla
+					KatjaQW['dom'] -= 2
+					$orgasm_or = 'yes'
+					gs 'arousal', 'cuni', 10, 'lesbian'
+					gs 'stat'
+					'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/sex/KWS10.jpg"></center>'
+
+					'You shove Natasha away and jump on the redhead who, faking surprise, lets your tongue ravage her mouth.'
+					'"Now... Muach... you are... slurp... mine Katja! I am horny, so you two can do your job!"'
+					'The redhead doesn''t retort. She just caresses your face and begins to kiss you. Then, a wet sensation reaches your back. It is Natasha, who has positioned herself behind you and has just licked your back. She stops when you turn towards her with curiosity, but after an embarrassing silence in which you don''t say anything, the nerdy girl continues licking and kissing her way back down your back, her hands groping your butt.'
+					'"Shh... Don''t worry <<$pcs_nickname>>, Natasha and I know what to do."'
+					'Katja embraces you and lies down, so you end on top, where you lash on her gorgeous bosom. Natasha meanwhile doesn''t stand idle and her hands begin to work you, her cold tongue tasting your asshole, startling you, but Katja embraces your body so you can''t escape the nerd''s probing. They continue doing this, slowly drilling your soaking cunt, exploring your hungry mouth and caressing your burning skin.'
+					'"Oh! Katja! I mean, oh! Fuck! Natasha I''m cumming!"'
+
+					act 'Cuddles': gt  'katja_sex','katnatsex2'
+				end
+			else
+				act 'Force the girls to eat you (<font color="red"><<will_cost>> Willpower</font>)': Msg '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+			end
+		end
+		act 'You':
+			*clr & cla
+			KatjaQW['dom'] += 2
+			$orgasm_or = 'yes'
+			gs 'arousal', 'cuni', 10, 'lesbian'
+			gs 'stat'
+			'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/sex/KWS10.jpg"></center>'
+			'You shove Natasha away and jump on the redhead who, faking surprise, lets your tongue ravage her mouth.'
+			'"Now... Muach... you are... slurp... mine Katja! I am horny, so you two can do your job!"'
+			'The redhead doesn''t retort. She just caresses your face and begins to kiss you. Then, a wet sensation reaches your back. It is Natasha, who has positioned herself behind you and has just licked your back. She stops when you turn towards her with curiosity, but after an embarrassing silence in which you don''t say anything, the nerdy girl continues licking and kissing her way back down your back, her hands groping your butt.'
+			'"Shh... Don''t worry <<$pcs_nickname>>, Natasha and I know what to do."'
+			'Katja embraces you and lies down, so you end on top, where you lash on her gorgeous bosom. Natasha meanwhile doesn''t stand idle and her hands begin to work you, her cold tongue tasting your asshole, startling you, but Katja embraces your body so you can''t escape the nerd''s probing. They continue doing this, slowly drilling your soaking cunt, exploring your hungry mouth and caressing your burning skin.'
+			'"Oh! Katja! I mean, oh! Fuck! Natasha I''m cumming!"'
+
+			act 'Too tired... cuddle with the girls': gt 'katja_sex','katnatsex3'
+
+			act 'Groaning help Katja':
+				*clr & cla
+				KatjaQW['dom'] += 2
+				gs 'arousal', 'cuni_give', 10
+				gs 'stat'
+				'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/sex/KWS7.jpg"></center>'
+				'You can only lick your lips as the ginger goddess smiles with grace and positions herself against the headboard. Then languidly, Katja opens her thighs so you can feast on her nectar, but as you kneel, the ginger grabs a spaced out Natasha and make her cuddle against her crotch.'
+				'"Hm? Don''t worry <<$pcs_nickname>>, Natasha is in good hands."'
+				'She smiles as you pout and try on puppy eyes, but the cold bitch just caresses and kisses the nerdy girl as Natasha give you sideways looks. Ok, message received. You are now her bitch... sigh... Time to serve your mistress!'
+				'"Ouch! <<$pcs_nickname>>!"'
+				'You smile, kissing the hickey that has just mysteriously appeared on Katja''s thigh and amorously, open her womanhood folds so your tongue can lick the redhead''s little love button. Her abstracted moans mix with Natasha''s insecure kisses as you take your time to take pleasure on the hotness between her legs, enjoying the slow cunnilingus as Katja approaches her orgasm. Finally, when she reaches it, you are so engrossed in the act that you practically lose it in the delicious moment when she tenses and relaxes.'
+				'"Now it''s my turn, isn''t it Katja?"'
+				'Natasha practically doesn''t react, happily snuggling under the redhead''s care, who somewhat tiredly(but satisfied) looks at you expectantly.'
+
+				act 'Cuddles': gt 'katja_sex','katnatsex2'
+			end
+		end
+	end
+
+	act 'You':
+		menu_off = 1
+		*clr & cla
+		$orgasm_or = 'yes'
+		gs 'arousal', 'cuni', 10, 'lesbian'
+		gs 'stat'
+		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/sex/KWS10.jpg"></center>'
+		'You shove Natasha away and jump on the redhead who, faking surprise, lets your tongue ravage her mouth.'
+		'"Now... Muach... you are... slurp... mine Katja! I am horny, so you two can do your job!"'
+		'The redhead doesn''t retort. She just caresses your face and begins to kiss you. Then, a wet sensation reaches your back. It is Natasha, who has positioned herself behind you and has just licked your back. She stops when you turn towards her with curiosity, but after an embarrassing silence in which you don''t say anything, the nerdy girl continues licking and kissing her way back down your back, her hands groping your butt.'
+		'"Shh... Don''t worry <<$pcs_nickname>>, Natasha and I know what to do."'
+		'Katja embraces you and lies down, so you end on top, where you lash on her gorgeous bosom. Natasha meanwhile doesn''t stand idle and her hands begin to work you, her cold tongue tasting your asshole, startling you, but Katja embraces your body so you can''t escape the nerd''s probing. They continue doing this, slowly drilling your soaking cunt, exploring your hungry mouth and caressing your burning skin.'
+		'"Oh! Katja! I mean, oh! Fuck! Natasha I''m cumming!"'
+
+		act 'Katja':
+			*clr & cla
+			gs 'arousal', 'cuni_give', 10
+			gs 'stat'
+			'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/sex/KWS7.jpg"></center>'
+			'You can only lick your lips as the ginger goddess smiles with grace and positions herself against the headboard. Then languidly, Katja opens her thighs so you can feast on her nectar, but as you kneel, the ginger grabs a spaced out Natasha and make her cuddle against her crotch.'
+			'"Hm? Don''t worry <<$pcs_nickname>>, Natasha is in good hands."'
+			'She smiles as you pout and try on puppy eyes, but the cold bitch just caresses and kisses the nerdy girl as Natasha give you sideways looks. Ok, message received. You are now her bitch... sigh... Time to serve your mistress!'
+			'"Ouch! <<$pcs_nickname>>!"'
+			'You smile, kissing the hickey that has just mysteriously appeared on Katja''s thigh and amorously, open her womanhood folds so your tongue can lick the redhead''s little love button. Her abstracted moans mix with Natasha''s insecure kisses as you take your time to take pleasure on the hotness between her legs, enjoying the slow cunnilingus as Katja approaches her orgasm. Finally, when she reaches it, you are so engrossed in the act that you practically lose it in the delicious moment when she tenses and relaxes.'
+			'"Now it''s my turn, isn''t it Katja?"'
+			'Natasha practically doesn''t react, happily snuggling under the redhead''s care, who somewhat tiredly(but satisfied) looks at you expectantly.'
+
+			act 'Cuddle': gt 'katja_sex','katnatsex3'
+
+			gs 'willpower', 'kiss', 'self', 'hard'
+			if will_cost <= pcs_willpwr:
+				act 'help Katja with Natasha':
+					*clr & cla
+					gs 'willpower', 'pay', 'self'
+					gs 'arousal', 'kiss', 10, lesbian
+					gs 'stat'
+					'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/sex/KWS11.jpg"></center>'
+
+					'Sweet, loving, tired Katja, move towards a blushed with desire Natasha, but before the redhead can do something, you grab Katja, and without care about your submissive slut, begin making out with your lover.'
+					'"Hmpf... <<$pcs_nickname>>... Muach... Is Katja''s... Lick..."'
+					'"Yeah... Slurp... Katja... Muach... Let''s give her a spectacle."'
+					'As you make it, whit the hot redhead, a gaze over her shoulder, show Natasha, squirming, not sure what to do, but finally, as is evident, that you aren''t going to let Katja, fuck the little nerd, she slowly raises a hand towards a tit, and other get down towards her twat.'
+					'Katja sits hesitantly a moment, before hearing your slave''s moan, then, look into your eyes, and begin to reply to your kisses. Soon, the sound of your own making out is joined with Natasha''s ragged breaths and wet slapping, that with a muffled scream, end in a needy orgasm for the nerd.'
+
+					act 'Cuddles': gt 'katja_sex','katnatsex2'
+				end
+			else
+				act 'help Katja with Natasha (<font color="red"><<will_cost>> Willpower</font>)': Msg '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+			end
+		end
+
+		act 'Natasha':
+			*clr & cla
+			katjaQW['dom'] += 2
+			gs 'arousal', 'cuni_give', 10
+			gs 'stat'
+			'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/sex/KWS8.jpg"></center>'
+			'The redhead grabs Natasha and pushes her against the headboard. The nerd tries to get up, squirming under Katja''s hands, but her weight immobilizes Natasha against the bed''s headboard. At the same time, you force open Natasha''s thighs. The nerd seems to be about to say something, but Katja stops her with a finger on the lips'
+			'"Shh. Don''t worry Natasha, you are too nervous. Let <<$pcs_nickname>> and I take care of that, ok?"'
+			'"Hm... Ok Katja. I trust... OUCH!"'
+			'One of your fingers penetrates Natasha''s hot, wet pussy a little too roughly, but it sends the correct message, and the nerd finally shuts up and ends the struggling. Now she is at your tender mercies, and Katja kneels beside you to devour the now silent girl, but that doesn''t last long, as you two pussy-hungry vixens begin to lick, bite and fingerfuck the trashing girl, whose screams of pleasure are only contained by your deep kisses, making her raise her thighs little by little until, finally, she cums.'
+
+			act 'Too tired... cuddle with the girls': gt 'katjaEv','katnatsex3'
+
+			act 'Groaning help Katja':
+				*clr & cla
+				gs 'arousal', 'cuni_give', 10
+				gs 'stat'
+				'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/sex/KWS7.jpg"></center>'
+				'You can only lick your lips as the ginger goddess smiles with grace and positions herself against the headboard. Then languidly, Katja opens her thighs so you can feast on her nectar, but as you kneel, the ginger grabs a spaced out Natasha and make her cuddle against her crotch.'
+				'"Hm? Don''t worry <<$pcs_nickname>>, Natasha is in good hands."'
+				'She smiles as you pout and try on puppy eyes, but the cold bitch just caresses and kisses the nerdy girl as Natasha give you sideways looks. Ok, message received. You are now her bitch... sigh... Time to serve your mistress!'
+				'"Ouch! <<$pcs_nickname>>!"'
+				'You smile, kissing the hickey that has just mysteriously appeared on Katja''s thigh and amorously, open her womanhood folds so your tongue can lick the redhead''s little love button. Her abstracted moans mix with Natasha''s insecure kisses as you take your time to take pleasure on the hotness between her legs, enjoying the slow cunnilingus as Katja approaches her orgasm. Finally, when she reaches it, you are so engrossed in the act that you practically lose it in the delicious moment when she tenses and relaxes.'
+				'"Now it''s my turn, isn''t it Katja?"'
+				'Natasha practically doesn''t react, happily snuggling under the redhead''s care, who somewhat tiredly(but satisfied) looks at you expectantly.'
+
+				act 'Cuddles': gt 'katja_sex','katnatsex2'
+			end
+		end
+	end
+end
+
+if $ARGS[0] = 'katnatsex2':
+	*clr & cla
+	minut += 10
+	gs 'arousal', 'voyeur', 5, 'lesbian'
+	NatbelQW['Debt'] -= 500
+	if succubusflag = 1:
+		scfeed = succublvl + rand(1,4)
+		sexnutrition += 30 * scfeed
+		succubxp += 6
+	end
+	gs 'stat'
+	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/sex/KWS9.jpg"></center>'
+	'The three of you lie on Katja''s bed. It''s quiet and nice, with a sleeping hot redhead at your left and a submissive nerd at your right.'
+	'"Ehm... <<$pcs_nickname>>, you know... my debt..."'
+	'"Hm? Oh yeah! I suppose that you have paid for something. I think it''s best if you leave. I want to pass some time with Katja."'
+	'Natasha doesn''t say anything. She just gets up and begins to redress, giving you a nice glance of her body, but before she leaves, you give her a signal to approach, then grab her hair and kiss her mouth. After a few moments, you release the nerd, who remains by the bedside a moment before giving Katja a quick peek that awakes the sleeping redhead. Before Katja can say anything, she exits the room.'
+	'"Hm?! What? <<$pcs_nickname>>? Huff! I''m wasted! That was nice... Hm? Where is Natasha?"'
+	'Kissing her, you explain to the redhead that Natasha has just left and then you snuggle against Katja, enjoying her company until you think it''s time to redress.'
+
+	act 'Redress and leave': gs 'clothing', 'wear_last_worn' & gs 'underwear', 'wear' & minut += 20 & gt 'pav_residential'
+end
+
+if $ARGS[0] = 'katnatsex3':
+	*clr & cla
+	minut += 10
+	gs 'arousal', 'voyeur', 5, 'lesbian'
+	NatbelQW['Debt'] = 0
+	npc_rel['A14'] -= 5
+	if succubusflag = 1:
+		scfeed = succublvl + rand(1,4)
+		sexnutrition += 30 * scfeed
+		succubxp += 6
+	end
+	gs 'stat'
+	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/sex/KWS9.jpg"></center>'
+	'Too tired to really do anything, Natasha and you cuddle with Katja. It''s quiet and nice, with a hot redhead at your left and a submissive nerd at your right.'
+	'"Ehm... <<$pcs_nickname>>, you know... my debt..."'
+	'"Hm? Oh yeah! I suppose that you have paid something."'
+	'"Yes Natasha, she will forget ALL your debt. You are friends aren''t you <<$pcs_nickname>>?"'
+	'You turn surprised towards the redhead... Shit! Before you can retort, a horny and frustrated Natasha gets up and begins to redress, giving you a nice glance of her body, but before she leaves, Katja grabs her hand and kisses the nerd''s mouth. After a few moments, she releases Natasha, who remains by the bedside a moment, before quickly exiting the room.'
+	'Katja is silent for a while, caressing your belly before sighing and redressing. She doesn''t say anything, but you doubt she is happy.'
+
+	act 'Redress and leave': gs 'clothing', 'wear_last_worn' & gs 'underwear', 'wear' & minut += 20 & gt 'pav_residential'
+end
+
 --- katja_sex ---------------------------------
 

locations/korr.qsrc

@@ -73,8 +73,6 @@ saunaYouRoom = 0
 boycherdaksex = 0
 bonusZ = 0
 minut += 1
-housrA = 1
-housrMir = 0
 elektro += 1
 
 gs 'stat'

locations/korr2x.qsrc

@@ -18,8 +18,6 @@ boycherdaksex = 0
 bonusZ = 0
 music_on = 0
 minut = minut + 1
-housrA = 1
-housrMir = 0
 elektro = elektro + 1
 gs'stat'
 

locations/kotovSex.qsrc

@@ -1593,7 +1593,7 @@ if $ARGS[0] = 'bj3':
 	menu_off = 1
 	kotov_bj_times += 1
 	'<center><video autoplay loop src="images/shared/sex/blowjob/kotovbj3'+rand(0,1)+'.mp4"></video></center>'
-	'You wrap your delicate fingers around the shaft of his cock, guiding it to your mouth. Ignoring his pleas, you don''t take it in your mouth and just put your <<$liptalk>> lips against it, kissing it over and over.'
+	'You wrap your delicate fingers around the shaft of his cock, guiding it to your mouth. Ignoring his pleas, you don''t take it in your mouth and just put your <<$pc_desc[''lips'']>> lips lips against it, kissing it over and over.'
 	*pl
 	gs 'arousal', 'foreplay', 5, 'sub'
 	gs 'stat'
@@ -1616,12 +1616,12 @@ if $ARGS[0] = 'bj2':
 	menu_off = 1
 	kotov_bj_times += 1
 	if pirsA > 0 and pirsA < 1000:
-		$textsexkotov = 'close your <<$liptalk>> lips around the head of his cock and suck him off eagerly, making sure you rub the barbell piercing in your tongue against his dick as often as you can'
+		$textsexkotov = 'close your <<$pc_desc[''lips'']>> lips lips around the head of his cock and suck him off eagerly, making sure you rub the barbell piercing in your tongue against his dick as often as you can'
 	else
-		$textsexkotov = 'close your <<$liptalk>> lips around the head of his cock and suck him off eagerly'
+		$textsexkotov = 'close your <<$pc_desc[''lips'']>> lips lips around the head of his cock and suck him off eagerly'
 	end
 	'<center><video autoplay loop src="images/shared/sex/blowjob/kotovbj2'+rand(0,6)+'.mp4"></video></center>'
-	'You <<$textsexkotov>>. You clench your <<$liptalk>> lips around his cock tightly, and try to give him the best blowjob you''ve ever given.'
+	'You <<$textsexkotov>>. You clench your <<$pc_desc[''lips'']>> lips lips around his cock tightly, and try to give him the best blowjob you''ve ever given.'
 	'The tenderness of your lips is driving Vitek crazy, and he can do little more than moan uncontrollably while you keep sucking.'
 	*pl
 	gs 'arousal', 'bj', 5, 'sub'

locations/liam.qsrc

@@ -11,15 +11,6 @@ menu_off = 0
 if sound = 0:PLAY 'sound/street.mp3',30
 *clr & cla
 gs'stat'
-bordysh = 0
-housrA = 0
-palMir = 0
-obdysh = 0
-tanhouse1 = 0
-obMir = 0
-obLoker = 0
-houseob = 0
-borMir = 0
 '<center><B>Pushkin Town Center</B></center>'
 if month >= 11 or month <= 3:
 	if hour >= 8 and hour <= 21:

locations/liames.qsrc

@@ -9,16 +9,6 @@ $menu_arg = ''
 menu_off = 0
 *clr & cla
 gs'stat'
-set bordysh=0
-set housrA=0
-set palMir=0
-set obdysh=0
-set tanhouse1=0
-set obMir=0
-set obLoker=0
-set houseob=0
-set borMir=0
-set borLoker=0
 
 '<center><B>Okhlopkov Square</B></center>'
 '<center><img <<$set_imgh>> src="images/locations/pushkin/liames.jpg" ></center>'