[removed] cleared most of the unused files as not required anymore

locations/unused/FSfight.qsrc

@@ -1,65 +0,0 @@
-# FSfight
-
-menu_off = 1
-minut += 1
-gs 'stat'
-'Your health <<FSHP>>.'
-'<<$FSnameV>>Health <<FSHPV>>'
-
-!!end of the fight
-if FSHP <= 0:
-	FSloss += 1
-	'You lost the fight'
-
-	act 'Leave':gt 'FSgame'
-
-	exit
-end
-
-if FSHPV <= 0:
-	FSWin += 1
-	'<<$FSnameV>> fell. You win the fight.'
-	'You got <<FSPrizeM>> coins and <<FSPrizeExp>> experience'
-
-	act 'Disengage':gt 'FSgame'
-
-	exit
-end
-
-!!initiative
-KGOLiniV = rand(FSreaktV / 2, FSreaktV * 2)
-KGOLini = rand(FSreakt / 2, FSreakt * 2)
-
-if KGOLini = KGOLiniV:
-	hodrand = rand(0, 1)
-
-	if hodrand = 0:KGOLini = 1 & KGOLiniV = 0
-	if hodrand = 1:KGOLini = 0 & KGOLiniV = 1
-end
-
-if KGOLini > KGOLiniV:KGOLiniSUM += 1
-if KGOLini < KGOLiniV:KGOLiniSUM -= 1
-if KGOLiniSUM > 3:KGOLini = 0 & KGOLiniV = 1 & KGOLiniSUM = 0
-if KGOLiniSUM < -3:KGOLini = 1 & KGOLiniV = 0 & KGOLiniSUM = 0
-
-!!moves
-if KGOLini > KGOLiniV:
-	'Now your turn'
-
-	act 'Attack':
-		cls
-		''
-		dynamic $FSatk
-
-		act 'Further':gt $curloc
-	end
-else
-	'Now opponents'
-	'<<$FSnameV>> attacks you'
-	dynamic $FSatkV
-
-	act 'Further':gt $curloc
-end
-
---- FSfight ---------------------------------
-

locations/unused/_menu_mobila.qsrc

@@ -1,4 +0,0 @@
-# $menu_mobila
-dynamic $objmobila
---- $menu_mobila ---------------------------------
-

locations/unused/_phone_theme.qsrc

@@ -1,5 +0,0 @@
-# $phone_theme
-
-$RESULT = 'images/system/phone/theme/' + $phonetheme_name[pcs_phonetheme] + '/'
-
---- $phone_theme ---------------------------------

locations/unused/_statcheck.qsrc

@@ -1,50 +0,0 @@
-# $statcheck
-
-!	FUNC('$statcheck', Statname, Value, Bordervalue)
-!	ARGS[0] = Statname: the stat you need to compare to
-!	ARGS[1] = Value: the comparison value. This is the value your stat needs to be higher, or lower.
-!	ARGS[2] = Bordervalue: the value above (or under) the current situation cannot raise (or lower) the stat. It is like saying that this set to 50 (panty flashing) cannot make Sveta into a total exhibitionist (value 100), even if she does this every day.
-!	Bordervalue always has to be closer to the defined edge of the scale (0 or 100) than the Value! It cannot be the same value than the Value, but can be close to it (like func('$statcheck', pcs_agil, 70, 71) )
-!	The result is given back in the RESULT variable, this should be the new value of Statname, unless it is -1, then the check failed
-!	Usage: if func('$statcheck', pcs_agil, 30, 50) >= 0: pcs_agil = func('$statcheck', pcs_agil, 30, 50)
-
-!If it is a stat lower than X check
-if ARGS[2] < ARGS[1]:
-	if ARGS[0] < ARGS[1]:
-		!if the difference between the current stat value and the border value is really big, your stat closes tha gap in increased tempo
-		if ARGS[0]-ARGS[2] > 30:
-			ARGS[0] -= 3
-		elseif ARGS[0]-ARGS[2] > 20:
-			ARGS[0] -= 2
-		elseif ARGS[0]-ARGS[2] > 10:
-			ARGS[0] -= 1
-		elseif ARGS[0]-ARGS[2] > 0 and rand(0,2) = 0:
-			ARGS[0] -= 1
-		end
-		RESULT = ARGS[0]
-	else
-		RESULT = -1
-	end
-!If it is a stat higher than X check
-elseif ARGS[2] > ARGS[1]:
-	if ARGS[0] > ARGS[1]:
-		!if the difference between the current stat value and the border value is really big, your stat closes tha gap in increased tempo
-		if ARGS[2]-ARGS[0] > 30:
-			ARGS[0] += 3
-		elseif ARGS[2]-ARGS[0] > 20:
-			ARGS[0] += 2
-		elseif ARGS[2]-ARGS[0] > 10:
-			ARGS[0] += 1
-		elseif ARGS[2]-ARGS[0] > 0 and rand(0,2) = 0:
-			ARGS[0] += 1
-		end
-		RESULT = ARGS[0]
-	else
-		RESULT = -1
-	end
-else
-	cls & '<b><font color="red">BAD ARGUMENT CHECK IN <i>$statcheck</i>, VALUE CANNOT BE 0!</font></b>'
-end
-
---- $statcheck ---------------------------------
-

locations/unused/before.qsrc

@@ -1,83 +0,0 @@
-# before
-!Calculating the events at the beginning of round.
-!Who protection, clones, etc.
-knife = 0
-knifeV = 0
-BonusAtak = 0
-BonusDef = 0
-BonusAtakV = 0
-BonusDefV = 0
-!stunner = 0
-!stunnerV = 0
-kisamePro = 0
-
-round = round + 1
-if tuman > 0:'<font color = green>The battlefield is covered by fog. All the stats go down, it will last for <<tuman>> moves.</font>'
-if tumanV > 0:'<font color = red>The battlefield is covered by the fog, you can''t see your enemy. All the stats go down, it will last for <<tumanV>> moves.</font>'
-if stun > 0:'<font color = red>You''re still stunned.</font>'
-if stunV > 0:'<font color = green><<$boydesc>> is still stunned and unable to move.</font>'
-
-if unmaterialV > 0:
-	unmaterialV = unmaterialV - 1
-	manaV = manaV - 20
-end
-
-if unmaterial > 0:
-	unmaterial = unmaterial - 1
-	pcs_mana = pcs_mana - 20
-
-	'<font color = green>You''re unable to withstand the most <<unmaterial>> moves.</font>'
-end
-
-if klon > 0:
-	'<font color = green>You have spawned <<klon>> Clones that will protect you in case of an enemy attack.</font>'
-end
-
-if poison > 0:
-	healthV = healthV - poison
-	'<font color = green><<$boydesc>> is poisoned and loses <<poison>> life.</font>'
-	poison = poison - 1
-end
-
-if poisonV > 0:
-	pcs_health = pcs_health - poisonV
-	'<font color = red>You are poisoned and lose <<poisonV>> life.</font>'
-	poisonV = poisonV - 1
-end
-
-if blood > 0:
-	healthV = healthV - blood
-	'<font color = green><<$boydesc>> loses <<blood>> life from bleeding.</font>'
-	blood = blood - 1
-	if blood < 0:blood = 0
-end
-
-if bloodV > 0:
-	pcs_health = pcs_health - bloodV
-	'<font color = red>You lose <<bloodV>> life from bleeding.</font>'
-	bloodV = bloodV - 1
-	if bloodV < 0:bloodV = 0
-end
-
-if dospehEnV <= 0 and dospehV > 0:
-	dospehEnV = 0
-	dospehV = 0
-	dospehDefV = 0
-	dospehVesV = 0
-
-	'<font color = green>The enemy''s armor is destroyed.</font>'
-end
-
-if dospehEn <= 0 and dospeh > 0:
-	dospehEn = 0
-	dospeh = 0
-	dospehDef = 0
-	dospehVes = 0
-
-	'<font color = red>Your armor is destroyed.</font>'
-end
-
-if initBonusA > 0:initBonusA = 0
-
---- before ---------------------------------
-

locations/unused/body.qsrc

@@ -1,2696 +0,0 @@
-# body
-
-!! 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: $pcdesc_type, $pcdesc_typewordy, and $pcdesc_typerandom. The last will give a new string each time, to allow for repeatedly referencing something accurately without it becoming repetitive.  Not EVERYTHING has a wordy 
-!! or even random variation, but these should work regardless -- they just may use a non-wordy, or non-random version, if it is something that does not really warrant such. 
-!! There is also a special string, $pcdesc_typeinsertive, that follows the format " , descriptive text" as in, " , invitingly-glossed". Please check the master string document to see if this exists for the string you need. - xerya, July 2017
-
-if $ARGS[0] = '':
-
-	if pcs_throat = 0:
-		$pcs_throat = 'You have a chaste <a href="exec:view''images/pc/body/throat/th0.jpg''">mouth</a>.'
-		$pcdesc_throatrandom = 'virgin'
-		$pcdesc_throat = 'virgin'
-		$pcdesc_throatwordy = '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>.'
-		$pcdesc_throatrandom = 'narrow'
-		$pcdesc_throat = 'narrow'
-		$pcdesc_throatwordy = '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.'
-		$pcdesc_throatrandom = 'delicate'
-		$pcdesc_throat = 'delicate'
-		$pcdesc_throatwordy = '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>.'
-		$pcdesc_throatrandom = 'fairly practiced'
-		$pcdesc_throat = 'fairly practiced'
-		$pcdesc_throatwordy = '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>.'
-		$pcdesc_throatrandom = 'well-trained'
-		$pcdesc_throat = 'well-trained'
-		$pcdesc_throatwordy = '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.'
-		$pcdesc_throatrandom = 'capacious'
-		$pcdesc_throat = 'capacious'
-		$pcdesc_throatwordy = '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.'
-		$pcdesc_throatrandom = 'bottomless'
-		$pcdesc_throat = 'bottomless'
-		$pcdesc_throatwordy = 'elastic, oft-fucked'
-		$throattipe = 'bottomless'
-	end
-
-	if pcs_breath = 1:$pcs_throat += ' Last you checked, your breath smelled fresh and minty.'
-
-
-	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'
-		rand_pussy = rand(0,6)
-		if rand_pussy = 0:
-			$pcdesc_pussyrandom = 'ruined'
-		elseif rand_pussy = 1:
-			$pcdesc_pussyrandom = 'broken'
-		elseif rand_pussy = 2:
-			$pcdesc_pussyrandom = 'prolapsed'
-		elseif rand_pussy = 3:
-			$pcdesc_pussyrandom = 'destroyed'
-		elseif rand_pussy = 4:
-			$pcdesc_pussyrandom = 'annihilated'
-		elseif rand_pussy = 5:
-			$pcdesc_pussyrandom = 'obliterated'
-		elseif rand_pussy = 6:
-			$pcdesc_pussyrandom = 'decimated'
-		end
-		$pcdesc_pussy = 'prolapsed'
-		$pcdesc_pussywordy = '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'
-		rand_pussy = rand(0,3)
-		if rand_pussy = 0:
-			$pcdesc_pussyrandom = 'gaping'
-		elseif rand_pussy = 1:
-			$pcdesc_pussyrandom = 'open'
-		elseif rand_pussy = 2:
-			$pcdesc_pussyrandom = 'extended'
-		elseif rand_pussy = 3:
-			$pcdesc_pussyrandom = 'wide'
-		end
-		$pcdesc_pussy = 'open'
-		$pcdesc_pussywordy = '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'
-		rand_pussy = rand(0,2)
-		if rand_pussy = 0:
-			$pcdesc_pussyrandom = 'recovering'
-		elseif rand_pussy = 1:
-			$pcdesc_pussyrandom = 'recently used'
-		elseif rand_pussy = 2:
-			$pcdesc_pussyrandom = 'welcoming'
-		end
-		$pcdesc_pussy = 'recovering'
-		$pcdesc_pussywordy = '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'
-		rand_pussy = rand(0,1)
-		if rand_pussy = 0:
-			$pcdesc_pussyrandom = 'pliable'
-		elseif rand_pussy = 1:
-			$pcdesc_pussyrandom = 'used'
-		end
-		$pcdesc_pussy = 'pliable'
-		$pcdesc_pussywordy = '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'
-		rand_pussy = rand(0,2)
-		if rand_pussy = 0:
-			$pcdesc_pussyrandom = 'snug'
-		elseif rand_pussy = 1:
-			$pcdesc_pussyrandom = 'tight'
-		elseif rand_pussy = 2:
-			$pcdesc_pussyrandom = 'cosy'
-		end
-		$pcdesc_pussy = 'tight'
-		$pcdesc_pussywordy = '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'
-		$pcdesc_pussyrandom = 'virgin'
-		$pcdesc_pussy = 'virgin'
-		$pcdesc_pussywordy = 'virgin'
-		$vaginatipe = 'virgin'
-	end
-
-	!! 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
-			rand_anus = rand(0,7)
-			if rand_anus = 0:
-				$pcdesc_anusrandom = 'gaping'
-			elseif rand_anus = 1:
-				$pcdesc_anusrandom = 'yawning'
-			elseif rand_anus = 2:
-				$pcdesc_anusrandom = 'obscenely yawning'
-			elseif rand_anus = 3:
-				$pcdesc_anusrandom = 'destroyed'
-			elseif rand_anus = 4:
-				$pcdesc_anusrandom = 'demolished'
-			elseif rand_anus = 5:
-				$pcdesc_anusrandom = 'uselessly loose'
-			elseif rand_anus = 6:
-				$pcdesc_anusrandom = 'ruined'
-			elseif rand_anus = 7:
-				$pcdesc_anusrandom = 'wrecked'
-			end
-			$pcdesc_anus = 'gaping'
-			$pcdesc_anuswordy = '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.'
-			rand_anus = rand(0,2)
-			if rand_anus = 0:
-				$pcdesc_anusrandom = 'loose'
-			elseif rand_anus = 1:
-				$pcdesc_anusrandom = 'casually open'
-			elseif rand_anus = 2:
-				$pcdesc_anusrandom = 'routinely-fucked'
-			end
-			$pcdesc_anus = 'loose'
-			$pcdesc_anuswordy = '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.'
-			rand_anus = rand(0,2)
-			if rand_anus = 0:
-				$pcdesc_anusrandom = 'stretchy'
-			elseif rand_anus = 1:
-				$pcdesc_anusrandom = 'experienced'
-			elseif rand_anus = 2:
-				$pcdesc_anusrandom = 'welcomingly ready'
-			end
-			$pcdesc_anus = 'stretchy'
-			$pcdesc_anuswordy = '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.'
-			rand_anus = rand(0,2)
-			if rand_anus = 0:
-				$pcdesc_anusrandom = 'flexible'
-			elseif rand_anus = 1:
-				$pcdesc_anusrandom = 'slightly experienced'
-			elseif rand_anus = 2:
-				$pcdesc_anusrandom = 'pliable'
-			end
-			$pcdesc_anus = 'flexible'
-			$pcdesc_anuswordy = '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.'
-			rand_anus = rand(0,2)
-			if rand_anus = 0:
-				$pcdesc_anusrandom = 'tight'
-			elseif rand_anus = 1:
-				$pcdesc_anusrandom = 'snug'
-			elseif rand_anus = 2:
-				$pcdesc_anusrandom = 'tightly-clenching'
-			end
-			$pcdesc_anus = 'tight'
-			$pcdesc_anuswordy = '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>.'
-			$pcdesc_anusrandom = 'virgin'
-			$pcdesc_anus = 'virgin'
-			$pcdesc_anuswordy = '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
-		$pcdesc_anusrandom = 'plugged'
-		$pcdesc_anus = 'plugged'
-		$pcdesc_anuswordy = '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
-
-	!!!!!!!!!!!!!!!!
-	!!!!!SIZE AND WEIGHT!!!
-	!!!!!!!!!!!!!!!!
-	if dounspell = 0:
-		pcs_hips = (pcs_hgt * hratio) / 100 + vhips
-		pcs_waist = (pcs_hips * wratio) / 100 + vofat
-		pcs_band = (pcs_waist * bratio) / 100 + vofat
-		pcs_bust = (pcs_waist * bratio) / 100 + nbsize + magicf2b + silicone
-		pcs_butt = (pcs_hips / 10) + silicone_butt + butt_cheat
-		pcs_cupsize = pcs_bust - pcs_band
-
-	!! 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_breastsqualifier = ''
-			$pcdesc_breastsqualifierinsertive = ''
-			$pcdesc_breastsword = 'bolt-ons'
-			pcdesc_breastimplantcheck = 1
-		elseif pcs_bustdisparity >= 2 and pcs_bustdisparity < 3:
-			$pcdesc_breastsqualifier = ' semi-spherical'
-			$pcdesc_breastsqualifierinsertive = ', semi-spherical'
-			$pcdesc_breastsword = 'bolt-ons'
-			pcdesc_breastimplantcheck = 1
-		elseif pcs_bustdisparity >= 3 and pcs_bustdisparity < 4:
-			$pcdesc_breastsqualifier = ' firm and round'
-			$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_breastsqualifier = ' clearly man-made'
-			$pcdesc_breastsqualifierinsertive = ', clearly man-made'
-			$pcdesc_breastsword = 'bolt-ons'
-			pcdesc_breastimplantcheck = 1
-		elseif pcs_bustdisparity >= 5 and pcs_bustdisparity < 6:
-			$pcdesc_breastsqualifier = ' plastic fuckdoll'
-			$pcdesc_breastsqualifierinsertive = ', plastic fuckdoll'
-			$pcdesc_breastsword = 'bolt-ons'
-			pcdesc_breastimplantcheck = 1
-		elseif pcs_bustdisparity >= 6 and pcs_bustdisparity < 7:
-			$pcdesc_breastsqualifier = ' walking fucktoy'
-			$pcdesc_breastsqualifierinsertive = ', walking fucktoy'
-			$pcdesc_breastsword = 'bolt-ons'
-			pcdesc_breastimplantcheck = 1
-		elseif pcs_bustdisparity >= 7 and pcs_bustdisparity < 8:
-			$pcdesc_breastsqualifier = ' laughably overdone fuckdoll'
-			$pcdesc_breastsqualifierinsertive = ', laughably overdone fuckdoll'
-			$pcdesc_breastsword = 'bolt-ons'
-			pcdesc_breastimplantcheck = 1
-		elseif pcs_bustdisparity >= 8:
-			$pcdesc_breastsqualifier = ' <<$pcdesc_haircolourwordy>> overdone fuckdoll'
-			$pcdesc_breastsqualifierinsertive = ', <<$pcdesc_haircolourwordy>> 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_breastsqualifier = ''
-			$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_breastsqualifier = ''
-			$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'
-			rand_breasts = rand(0,1)
-			if rand_breasts = 0:
-				$pcdesc_breastsrandom = 'tiny'
-			elseif rand_breasts = 1:
-				$pcdesc_breastsrandom = 'barely-there'
-			end
-			!! Honestly, I am not even sure it is possible to have silicone and be this small. But just in case...
-			if pcdesc_breastimplantcheck = 1:
-				$pcdesc_breastswordy = 'scarcely-augmented<<$pcdesc_breastsqualifierinsertive>> <<$pcdesc_breastsword>>'
-			else
-				$pcdesc_breastswordy = '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
-			if pcdesc_breastimplantcheck = 1:
-				$pcdesc_breastswordy = 'barely modified<<$pcdesc_breastsqualifierinsertive>> <<$pcdesc_breastsword>>'
-			else
-				$pcdesc_breastswordy = 'petite, puffy little <<$pcdesc_breastsword>>'
-			end
-			$pcdesc_breasts = 'petite'
-		elseif pcs_cupsize <= 15:
-			tits = 2
-			$titsize = 'B cup'
-			rand_breasts = rand(0,1)
-			if rand_breasts = 0:
-				$pcdesc_breastsrandom = 'small'
-			elseif rand_breasts = 1:
-				$pcdesc_breastsrandom = 'sporty'
-			end
-			if pcdesc_breastimplantcheck = 1:
-				$pcdesc_breastswordy = 'small, subtly augmented<<$pcdesc_breastsqualifierinsertive>> <<$pcdesc_breastsword>>'
-			else
-				$pcdesc_breastswordy = 'small, handful-sized <<$pcdesc_breastsword>>'
-			end
-			$pcdesc_breasts = 'small'
-		elseif pcs_cupsize <= 20:
-			tits = 3
-			$titsize = 'C cup'
-			rand_breasts = rand(0,1)
-			if rand_breasts = 0:
-				$pcdesc_breastsrandom = 'ample'
-			elseif rand_breasts = 1:
-				$pcdesc_breastsrandom = 'average-sized'
-			end
-			!! 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:
-				$pcdesc_breastswordy = 'ample, silicone-padded<<$pcdesc_breastsqualifierinsertive>> <<$pcdesc_breastsword>>'
-			else
-				$pcdesc_breastswordy = 'ample, handful-sized <<$pcdesc_breastsword>>'
-			end
-			$pcdesc_breasts = 'ample'
-		elseif pcs_cupsize <= 25:
-			tits = 4
-			$titsize = 'D cup'
-			rand_breasts = rand(0,1)
-			if rand_breasts = 0:
-				$pcdesc_breastsrandom = 'full'
-			elseif rand_breasts = 1:
-				$pcdesc_breastsrandom = 'hefty'
-			end
-			if pcdesc_breastimplantcheck = 1:
-				$pcdesc_breastswordy = 'full, silicone-padded<<$pcdesc_breastsqualifierinsertive>> <<$pcdesc_breastsword>>'
-			else
-				$pcdesc_breastswordy = 'jiggly, womanly full <<$pcdesc_breastsword>>'
-			end
-			$pcdesc_breasts = 'full'
-		elseif pcs_cupsize <= 30:
-			tits = 5
-			$titsize = 'E cup'
-			rand_breasts = rand(0,2)
-			if rand_breasts = 0:
-				$pcdesc_breastsrandom = 'generous'
-			elseif rand_breasts = 1:
-				$pcdesc_breastsrandom = 'heavy'
-			elseif rand_breasts = 2:
-				$pcdesc_breastsrandom = 'fairly large'
-			end
-			if pcdesc_breastimplantcheck = 1:
-				$pcdesc_breastswordy = 'heavy, fake<<$pcdesc_breastsqualifierinsertive>> <<$pcdesc_breastsword>>'
-			else
-				$pcdesc_breastswordy = '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'
-			rand_breasts = rand(0,1)
-			if rand_breasts = 0:
-				$pcdesc_breastsrandom = 'big'
-			elseif rand_breasts = 1:
-				$pcdesc_breastsrandom = 'large'
-			end
-			if pcdesc_breastimplantcheck = 1:
-				$pcdesc_breastswordy = 'big, implant-stuffed<<$pcdesc_breastsqualifierinsertive>> <<$pcdesc_breastsword>>'
-			else
-				$pcdesc_breastswordy = 'big, jiggly and sizeable <<$pcdesc_breastsword>>'
-			end
-			$pcdesc_breasts = 'big'
-		elseif pcs_cupsize <= 40:
-			tits = 7
-			$titsize = 'G cup'
-			rand_breasts = rand(0,1)
-			if rand_breasts = 0:
-				$pcdesc_breastsrandom = 'considerably large'
-			elseif rand_breasts = 1:
-				$pcdesc_breastsrandom = 'quite large'
-			end
-			if pcdesc_breastimplantcheck = 1:
-				$pcdesc_breastswordy = 'considerably large, implant-stuffed<<$pcdesc_breastsqualifierinsertive>> <<$pcdesc_breastsword>>'
-			else
-				$pcdesc_breastswordy = 'quite large and jiggly <<$pcdesc_breastsword>>'
-			end
-			$pcdesc_breasts = 'considerably large'
-		elseif pcs_cupsize <= 45:
-			tits = 8
-			$titsize = 'H cup'
-			rand_breasts = rand(0,1)
-			if rand_breasts = 0:
-				$pcdesc_breastsrandom = 'extremely large'
-			elseif rand_breasts = 1:
-				$pcdesc_breastsrandom = 'incredibly stacked'
-			end
-			if pcdesc_breastimplantcheck = 1:
-				$pcdesc_breastswordy = 'extremely large, silicone-stuffed<<$pcdesc_breastsqualifierinsertive>> <<$pcdesc_breastsword>>'
-			else
-				$pcdesc_breastswordy = 'extremely large, over-stacked <<$pcdesc_breastsword>>'
-			end
-			$pcdesc_breasts = 'extremely large'
-		elseif pcs_cupsize <= 50:
-			tits = 9
-			$titsize = 'I cup'
-			rand_breasts = rand(0,2)
-			if rand_breasts = 0:
-				$pcdesc_breastsrandom = 'huge'
-			elseif rand_breasts = 1:
-				$pcdesc_breastsrandom = 'impractically big'
-			elseif rand_breasts = 2:
-				$pcdesc_breastsrandom = 'figure-dominating'
-			end
-			if pcdesc_breastimplantcheck = 1:
-				$pcdesc_breastswordy = 'huge, silicone-swollen<<$pcdesc_breastsqualifierinsertive>> <<$pcdesc_breastsword>>'
-			else
-				$pcdesc_breastswordy = 'huge, wholly impractical <<$pcdesc_breastsword>>'
-			end
-			$pcdesc_breasts = 'huge'
-		elseif pcs_cupsize <= 55:
-			tits = 10
-			$titsize = 'J cup'
-			rand_breasts = rand(0,1)
-			if rand_breasts = 0:
-				$pcdesc_breastsrandom = 'massive'
-			elseif rand_breasts = 1:
-				$pcdesc_breastsrandom = 'enormous'
-			end
-			if pcdesc_breastimplantcheck = 1:
-				$pcdesc_breastswordy = 'massively fake<<$pcdesc_breastsqualifierinsertive>> <<$pcdesc_breastsword>>'
-			else
-				$pcdesc_breastswordy = 'massive, attention-grabbing <<$pcdesc_breastsword>>'
-			end
-			$pcdesc_breasts = 'massive'
-		else
-			tits = 11
-			$titsize = 'K cup'
-			rand_breasts = rand(0,2)
-			if rand_breasts = 0:
-				$pcdesc_breastsrandom = 'whorishly oversized'
-			elseif rand_breasts = 1:
-				$pcdesc_breastsrandom = 'fucktoy-appropriate'
-			elseif rand_breasts = 2:
-				$pcdesc_breastsrandom = 'ridiculously big'
-			end
-			if pcdesc_breastimplantcheck = 1:
-				$pcdesc_breastswordy = 'whorishly oversized<<$pcdesc_breastsqualifierinsertive>> <<$pcdesc_breastsword>>'
-			else
-				$pcdesc_breastswordy = 'ridiculously big and figure-dominating <<$pcdesc_breastsword>>'
-			end
-			$pcdesc_breasts = 'whorishly oversized'
-		end
-		if pcs_butt <= 4:
-			buttpic = 1
-			$pcs_butt_adj1 = 'flat ass'
-			$pcs_butt_adj2 = 'flat butt'
-			$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: 
-			buttpic = 2
-			$pcs_butt_adj1 = 'ass'
-			$pcs_butt_adj2 = 'butt'
-			$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: 
-			buttpic = 3
-			$pcs_butt_adj1 = 'tight ass'
-			$pcs_butt_adj2 = 'nice ass'
-			$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: 
-			buttpic = 4
-			$pcs_butt_adj1 = 'fat ass'
-			$pcs_butt_adj2 = 'bubble butt'
-			$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
-		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
-
-!! 'Thanks to the workouts you''ve been doing, you have gained a large and natural bubble butt that''s rounded and very firm. Guys hungrily fixate on you with their tongues hanging out and other girls are often envious of your booty.'
-
-		
-
-	!!pcs_weight: Svetas weight in kg 
-	!!Optimal Weight (170cm): 60kg, 60 salo
-	!!This is an approximation, so that a sveta with a different height has the same BMI for the same salo values.
-	!!The default height of 170 cm is used as a starting point. The bmi deviates by 0.06 for a deviation of 10cm and 0.4 for a deviation of 20cm. 
-		
-		pcs_weight = 30 + salo / 2 + (pcs_hgt - 170) * 7 / 10
-		
-	!!Do not remove (julzor)
-	!!This is the old more complex function, but it doesn''t work correctly.
-	!!This variable is actually only used ONCE (except for the BMI calculation), when stripping, to see if you fall off the pole from being too heavy. I am reluctant to touch it, since the math is not explained. Maybe later.
-	!!Weight = (height in cm x bottom of average weight in kilos for a 170cm female / 170cm + (hip modifier + 2 x overrun fat)/4 + cup size
-		
-		!!pcs_weight = (pcs_hgt * 62 / 170) + (vhips + (vofat * 2)) / 4 + tits
-			
-	!!BMI Calculation
-
-		bmi_calc = FUNC('body_shape', 'bmicalc', salo, pcs_hgt)
-
-	!!BMI Descriptions
-		if bmi_calc < 16:
-			$bmi_desc = 'You are severely underweight.'
-		elseif bmi_calc >= 16 and bmi_calc < 19:
-			$bmi_desc = 'You are underweight'
-		elseif bmi_calc >= 19 and bmi_calc < 25:
-			$bmi_desc = 'You have a normal, healthy weight.'
-		elseif bmi_calc >= 25 and bmi_calc < 30:
-			$bmi_desc = 'You are overweight.'
-		elseif bmi_calc >= 30 and bmi_calc < 35:
-			$bmi_desc = 'You are moderately obese.'
-		elseif bmi_calc >= 35 and bmi_calc < 40:
-			$bmi_desc = 'You are severely obese.'
-		elseif bmi_calc >= 40 and bmi_calc < 45:
-			$bmi_desc = 'You are very severely obese.'
-		elseif bmi_calc >= 45:
-			$bmi_desc = 'You are morbidly obese.'
-		end
-	end
-
-	!!! 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
-
-	if pcs_hairbsh = 0:
-		if pcs_hairlng > 30:
-			$pcs_hairbsh = 'tangled. You should comb it to keep it healthy'
-			rand_hairmess = rand(0,3)
-			if rand_hairmess = 0:
-				$pcdesc_hairmessrandom = 'tangled'
-			elseif rand_hairmess = 1:
-				$pcdesc_hairmessrandom = 'tousled'
-			elseif rand_hairmess = 2:
-				$pcdesc_hairmessrandom = 'disheveled'
-			elseif rand_hairmess = 3:
-				$pcdesc_hairmessrandom = 'mussed'
-			end
-			$pcdesc_hairmess = 'tangled'
-			$pcdesc_hairmessinsertive = ', tangled'
-			$pcdesc_hairmesswordy = 'tangled, poorly-kept'
-		else
-			$pcs_hairbsh = 'messy. You should style it to keep it looking good'
-			rand_hairmess = rand(0,1)
-			if rand_hairmess = 0:
-				$pcdesc_hairmessrandom = 'messy'
-			elseif rand_hairmess = 1:
-				$pcdesc_hairmessrandom = 'unkempt'
-			end
-			$pcdesc_hairmess = 'messy'
-			$pcdesc_hairmessinsertive = ', messy'
-			$pcdesc_hairmesswordy = 'messy, poorly-kept'
-		end
-	else
-		$pcs_hairbsh = 'neatly styled'
-		rand_hairmess = rand(0,1)
-		if rand_hairmess = 0:
-			$pcdesc_hairmessrandom = 'neat'
-		elseif rand_hairmess = 1:
-			$pcdesc_hairmessrandom = 'well-kept'
-		end
-		$pcdesc_hairmess = 'neat'
-		$pcdesc_hairmessinsertive = ', neat'
-		$pcdesc_hairmesswordy = 'neat, well-maintained'
-	end
-
-	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.
-		$pcdesc_hairtexturerandom = 'straight'
-		$pcdesc_hairwordrandom = 'locks'
-		$pcdesc_hairtexturewordy = 'straight, slightly wavy'
-		$pcdesc_hairwordwordy = 'locks'
-		$pcdesc_hairtexture = 'straight'
-		$pcdesc_hairword = 'locks'
-	else
-		$curly = 'curly '
-		rand_hairword = rand(0,1)
-		$pcdesc_hairtexturerandom = 'curly'
-		if rand_hairword = 0:
-			$pcdesc_hairwordrandom = 'curls'
-		elseif rand_hairword = 1:
-			$pcdesc_hairwordrandom = 'ringlets'
-		end
-		$pcdesc_hairtexturewordy = 'playfully curly'
-		$pcdesc_hairwordwordy = 'curls'
-		$pcdesc_hairtexture = 'curly'
-		$pcdesc_hairword = 'curls'
-	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 = ''
-		$pcdesc_foreheadrandom = 'forehead'
-		$pcdesc_foreheadwordy = 'forehead'
-		$pcdesc_forehead = 'forehead'
-	else
-		$hbangs = ', with a fringe covering your forehead'
-		rand_bangs = rand(0,1)
-		if rand_bangs = 0:
-			$pcdesc_foreheadrandom = 'bangs'
-		elseif rand_bangs = 1:
-			$pcdesc_foreheadrandom = 'fringe'
-		end
-		$pcdesc_foreheadwordy = 'fringe'
-		$pcdesc_forehead = 'bangs'
-	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'
-		$pcdesc_haircolour = 'black'
-		rand_hair = rand(0,9)
-		if rand_hair = 0:
-			$pcdesc_hairrandom = 'black'
-		elseif rand_hair = 1:
-			$pcdesc_hairrandom = 'ebony'
-		elseif rand_hair = 2:
-			$pcdesc_hairrandom = 'obsidian'
-		elseif rand_hair = 3:
-			$pcdesc_hairrandom = 'jet-black'
-		elseif rand_hair = 4:
-			$pcdesc_hairrandom = 'charcoal black'
-		elseif rand_hair = 5:
-			$pcdesc_hairrandom = 'raven black'
-		elseif rand_hair = 6:
-			$pcdesc_hairrandom = 'sable'
-		elseif rand_hair = 7:
-			$pcdesc_hairrandom = 'inky-black'
-		elseif rand_hair = 8:
-			$pcdesc_hairrandom = 'coal-black'
-		elseif rand_hair = 9:
-			$pcdesc_hairrandom = 'pitch-black'
-		end
-		$pcdesc_haircolourwordy = 'dark, obsidian-black'
-	elseif pcs_haircol = 1:
-		$pcs_haircol = 'brown'
-		$pcdesc_haircolour = 'brown'
-		rand_hair = rand(0,2)
-		if rand_hair = 0:
-			$pcdesc_hairrandom = 'brown'
-		elseif rand_hair = 1:
-			$pcdesc_hairrandom = 'russet brown'
-		elseif rand_hair = 2:
-			$pcdesc_hairrandom = 'chestnut brown'
-		end
-		$pcdesc_haircolourwordy = 'russet brown'
-	elseif pcs_haircol = 2:
-		$pcs_haircol = 'red'
-		$pcdesc_haircolour = 'red'
-		!! Remember, this is not the vibrant dyed red colour, this is a natural red
-		rand_hair = rand(0,2)
-		if rand_hair = 0:
-			$pcdesc_hairrandom = 'fiery red'
-		elseif rand_hair = 1:
-			$pcdesc_hairrandom = 'coppery red'
-		elseif rand_hair = 2:
-			$pcdesc_hairrandom = 'ginger'
-		end
-		$pcdesc_haircolourwordy = 'fiery red'
-	elseif pcs_haircol = 3:
-		$pcs_haircol = 'blonde'
-		$pcdesc_haircolour = 'blonde'
-		rand_hair = rand(0,3)
-		if rand_hair = 0:
-			$pcdesc_hairrandom = 'blonde'
-		elseif rand_hair = 1:
-			$pcdesc_hairrandom = 'golden-blonde'
-		elseif rand_hair = 2:
-			$pcdesc_hairrandom = 'golden'
-		elseif rand_hair = 3:
-			$pcdesc_hairrandom = 'fair, blonde'
-		end
-		$pcdesc_haircolourwordy = 'beautiful golden-blonde'
-	elseif pcs_haircol = 4:
-		$pcs_haircol = 'light red'
-		$pcdesc_haircolour = 'light red'
-		rand_hair = rand(0,2)
-		if rand_hair = 0:
-			$pcdesc_hairrandom = 'strawberry blonde'
-		elseif rand_hair = 1:
-			$pcdesc_hairrandom = 'fire-engine red'
-		elseif rand_hair = 2:
-			$pcdesc_hairrandom = 'scarlet'
-		end
-		$pcdesc_haircolourwordy = 'glowing, pale red'
-	elseif pcs_haircol = 5:
-		$pcs_haircol = 'dark blue'
-		$pcdesc_haircolour = 'dark blue'
-		rand_hair = rand(0,2)
-		if rand_hair = 0:
-			$pcdesc_hairrandom = 'dark blue'
-		elseif rand_hair = 1:
-			$pcdesc_hairrandom = 'blurple'
-		elseif rand_hair = 2:
-			$pcdesc_hairrandom = 'midnight blue'
-		end
-		$pcdesc_haircolourwordy = 'rich, purplish-blue'
-	elseif pcs_haircol = 6:
-		$pcs_haircol = 'blue'
-		$pcdesc_haircolour = 'blue'
-		rand_hair = rand(0,1)
-		if rand_hair = 0:
-			$pcdesc_hairrandom = 'blue'
-		elseif rand_hair = 1:
-			$pcdesc_hairrandom = 'electric blue'
-		end
-		$pcdesc_haircolourwordy = 'vibrant, electric blue'
-	elseif pcs_haircol = 7:
-		$pcs_haircol = 'light blue'
-		$pcdesc_haircolour = 'light blue'
-		rand_hair = rand(0,3)
-		if rand_hair = 0:
-			$pcdesc_hairrandom = 'light blue'
-		elseif rand_hair = 1:
-			$pcdesc_hairrandom = 'azure'
-		elseif rand_hair = 2:
-			$pcdesc_hairrandom = 'pale blue'
-		elseif rand_hair = 3:
-			$pcdesc_hairrandom = 'candy-floss blue'
-		end
-		$pcdesc_haircolourwordy = 'pale, candy-coloured blue'
-	elseif pcs_haircol = 8:
-		$pcs_haircol = 'dark green'
-		$pcdesc_haircolour = 'dark green'
-		$pcdesc_hairrandom = '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.
-		$pcdesc_haircolourwordy = 'deep, emerald-green'
-	elseif pcs_haircol = 9:
-		$pcs_haircol = 'green'
-		$pcdesc_haircolour = 'green'
-		rand_hair = rand(0,2)
-		if rand_hair = 0:
-			$pcdesc_hairrandom = 'green'
-		elseif rand_hair = 1:
-			$pcdesc_hairrandom = 'forest green'
-		elseif rand_hair = 2:
-			$pcdesc_hairrandom = 'fern-green'
-		end
-		$pcdesc_haircolourwordy = 'vibrant, forest-green'
-	elseif pcs_haircol = 10:
-		$pcs_haircol = 'light green'
-		$pcdesc_haircolour = 'light green'
-		rand_hair = rand(0,4)
-		if rand_hair = 0:
-			$pcdesc_hairrandom = 'light green'
-		elseif rand_hair = 1:
-			$pcdesc_hairrandom = 'pale green'
-		elseif rand_hair = 2:
-			$pcdesc_hairrandom = 'leaf-green'
-		elseif rand_hair = 3:
-			$pcdesc_hairrandom = 'minty green'
-		elseif rand_hair = 4:
-			$pcdesc_hairrandom = 'candy-floss green'
-		end
-		$pcdesc_haircolourwordy = 'pale, leaf-green'
-	elseif pcs_haircol = 11:
-		$pcs_haircol = 'dark pink'
-		$pcdesc_haircolour = 'dark pink'
-		rand_hair = rand(0,1)
-		if rand_hair = 0:
-			$pcdesc_hairrandom = 'dark pink'
-		elseif rand_hair = 1:
-			$pcdesc_hairrandom = 'purplish-pink'
-		end
-		$pcdesc_haircolourwordy = 'dark, purplish-pink'
-	elseif pcs_haircol = 12:
-		$pcs_haircol = 'pink'
-		$pcdesc_haircolour = 'pink'
-		rand_hair = rand(0,4)
-		if rand_hair = 0:
-			$pcdesc_hairrandom = 'bubblegum-pink'
-		elseif rand_hair = 1:
-			$pcdesc_hairrandom = 'Barbie pink'
-		elseif rand_hair = 2:
-			$pcdesc_hairrandom = 'fuchsia'
-		elseif rand_hair = 3:
-			$pcdesc_hairrandom = 'pink'
-		elseif rand_hair = 4:
-			$pcdesc_hairrandom = 'bright pink'
-		end
-		$pcdesc_haircolourwordy = 'bright, bubblegum-pink'
-	elseif pcs_haircol = 13:
-		$pcs_haircol = 'light pink'
-		$pcdesc_haircolour = 'light pink'
-		rand_hair = rand(0,5)
-		if rand_hair = 0:
-			$pcdesc_hairrandom = 'light pink'
-		elseif rand_hair = 1:
-			$pcdesc_hairrandom = 'pale pink'
-		elseif rand_hair = 2:
-			$pcdesc_hairrandom = 'babydoll pink'
-		elseif rand_hair = 3:
-			$pcdesc_hairrandom = 'China pink'
-		elseif rand_hair = 4:
-			$pcdesc_hairrandom = 'cotton-candy pink'
-		elseif rand_hair = 5:
-			$pcdesc_hairrandom = 'candy-floss pink'
-		end
-		$pcdesc_haircolourwordy = 'pale, cotton-candy pink'
-	elseif pcs_haircol = 14:
-		$pcs_haircol = 'dark purple'
-		$pcdesc_haircolour = 'dark purple'
-		rand_hair = rand(0,3)
-		if rand_hair = 0:
-			$pcdesc_hairrandom = 'dark purple'
-		elseif rand_hair = 1:
-			$pcdesc_hairrandom = 'deep purple'
-		elseif rand_hair = 2:
-			$pcdesc_hairrandom = 'midnight purple'
-		elseif rand_hair = 3:
-			$pcdesc_hairrandom = 'indigo'
-		end
-		$pcdesc_haircolourwordy = 'deep, bluish-purple'
-	elseif pcs_haircol = 15:
-		$pcs_haircol = 'purple'
-		$pcdesc_haircolour = 'purple'
-		rand_hair = rand(0,2)
-		if rand_hair = 0:
-			$pcdesc_hairrandom = 'purple'
-		elseif rand_hair = 1:
-			$pcdesc_hairrandom = 'plum purple'
-		elseif rand_hair = 2:
-			$pcdesc_hairrandom = 'royal purple'
-		end
-		$pcdesc_haircolourwordy = 'rich, royal purple'
-	elseif pcs_haircol = 16:
-		$pcs_haircol = 'light purple'
-		$pcdesc_haircolour = 'light purple'
-		rand_hair = rand(0,3)
-		if rand_hair = 0:
-			$pcdesc_hairrandom = 'light purple'
-		elseif rand_hair = 1:
-			$pcdesc_hairrandom = 'pale purple'
-		elseif rand_hair = 2:
-			$pcdesc_hairrandom = 'amethyst coloured'
-		elseif rand_hair = 3:
-			$pcdesc_hairrandom = 'lavender'
-		end
-		$pcdesc_haircolourwordy = 'pale, floral purple'
-	elseif pcs_haircol = 17:
-		$pcs_haircol = 'light orange'
-		$pcdesc_haircolour = 'light orange'
-		rand_hair = rand(0,2)
-		if rand_hair = 0:
-			$pcdesc_hairrandom = 'orange'
-		elseif rand_hair = 1:
-			$pcdesc_hairrandom = 'pumpkin orange'
-		elseif rand_hair = 2:
-			$pcdesc_hairrandom = 'bright orange'
-		end
-		$pcdesc_haircolourwordy = 'bright, fiery orange'
-	elseif pcs_haircol = 18:
-		$pcs_haircol = 'dark red'
-		$pcdesc_haircolour = 'dark red'
-		rand_hair = rand(0,2)
-		if rand_hair = 0:
-			$pcdesc_hairrandom = 'dark red'
-		elseif rand_hair = 1:
-			$pcdesc_hairrandom = 'wine red'
-		elseif rand_hair = 2:
-			$pcdesc_hairrandom = 'auburn'
-		end
-		$pcdesc_haircolourwordy = 'deep, seductive red'
-	elseif pcs_haircol = 19:
-		$pcs_haircol = 'medium red'
-		$pcdesc_haircolour = 'medium red'
-		rand_hair = rand(0,2)
-		if rand_hair = 0:
-			$pcdesc_hairrandom = 'medium red'
-		elseif rand_hair = 1:
-			$pcdesc_hairrandom = 'cherry red'
-		elseif rand_hair = 2:
-			$pcdesc_hairrandom = 'bronze'
-		end
-		$pcdesc_haircolourwordy = 'strong, fiery red'
-	elseif pcs_haircol = 20:
-		$pcs_haircol = 'turquoise'
-		$pcdesc_haircolour = 'turquoise'
-		rand_hair = rand(0,3)
-		if rand_hair = 0:
-			$pcdesc_hairrandom = 'turquoise'
-		elseif rand_hair = 1:
-			$pcdesc_hairrandom = 'ultramarine'
-		elseif rand_hair = 2:
-			$pcdesc_hairrandom = 'aquamarine'
-		elseif rand_hair = 3:
-			$pcdesc_hairrandom = 'sea green'
-		end
-		$pcdesc_haircolourwordy = 'soft milky blue'
-	elseif pcs_haircol = 21:
-		$pcs_haircol = 'medium orange'
-		$pcdesc_haircolour = 'medium orange'
-		rand_hair = rand(0,2)
-		if rand_hair = 0:
-			$pcdesc_hairrandom = 'medium orange'
-		elseif rand_hair = 1:
-			$pcdesc_hairrandom = 'pumpkin orange'
-		elseif rand_hair = 2:
-			$pcdesc_hairrandom = 'carrot orange'
-		end
-		$pcdesc_haircolourwordy = 'strong, fiery orange'
-	elseif pcs_haircol = 22:
-		$pcs_haircol = 'dark orange'
-		$pcdesc_haircolour = 'dark orange'
-		rand_hair = rand(0,2)
-		if rand_hair = 0:
-			$pcdesc_hairrandom = 'dark orange'
-		elseif rand_hair = 1:
-			$pcdesc_hairrandom = 'burnt Orange'
-		elseif rand_hair = 2:
-			$pcdesc_hairrandom = 'rust'
-		end
-		$pcdesc_haircolourwordy = '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'
-		$pcdesc_haircolour = 'strangely-coloured'
-		rand_hair = rand(0,1)
-		if rand_hair = 0:
-			$pcdesc_hairrandom = 'strangely-coloured'
-		elseif rand_hair = 1:
-			$pcdesc_hairrandom = 'multicoloured'
-		end
-		$pcdesc_haircolourwordy = 'exceptionally variegated'
-	end
-
-	if hscrunchw <= 0:
-		$mc_inventory['scrunchies'] =  ''
-		$hpigtail = ''
-		$pcdesc_hairstylerandom = 'loose'
-		$pcdesc_hairobjectrandom = 'hair'
-		$pcdesc_hairstyle = 'loose'
-		$pcdesc_hairobject = 'hair'
-		$pcdesc_hairobjectwordy = 'loose and free <<$pcs_haircol>> hair'
-	elseif hscrunchw = 1:
-		$mc_inventory['scrunchies'] =  'A hair-tie holds your hair in place with a ponytail.'
-		$hpigtail = ''
-		$pcdesc_hairstylerandom = 'ponytailed'
-		$pcdesc_hairobjectrandom = 'ponytail'
-		$pcdesc_hairstyle = 'ponytailed'
-		$pcdesc_hairobject = 'ponytail'
-		$pcdesc_hairobjectwordy = 'tight, high-set <<$pcs_haircol>> ponytail'
-	else
-		!! The actual, specific setting for hscrunchw when pigtails are desired is 2, but it is better to have a catch-all. Adjust the else above into an elseif set for 2 if more styles involving scrunchies are added.
-		$mc_inventory['scrunchies'] =  ''
-		$hpigtail = 'Two scrunchies hold your hair up into two cute, playful twin tails.'
-		$pcdesc_hairstylerandom = 'pigtailed'
-		$pcdesc_hairobjectrandom = 'pigtails'
-		$pcdesc_hairstyle = 'pigtailed'
-		$pcdesc_hairobject = 'pigtails'
-		$pcdesc_hairobjectwordy = 'youthful, playful and flirty <<$pcs_haircol>> pigtails'
-	end
-
-	if hpingripw <= 0:
-		$mc_inventory['kirbygrips'] =  ''
-		$pcdesc_hairstylerandom = 'loose'
-		$pcdesc_hairobjectrandom = 'hair'
-		$pcdesc_hairstyle = 'loose'
-		$pcdesc_hairobject = 'hair'
-		$pcdesc_hairobjectwordy = 'loose and free <<$pcs_haircol>> hair'
-	else
-		$mc_inventory['kirbygrips'] =  'Hair-pins hold your hair in place in a stylish updo.'
-		rand_hairstyle = rand(0,1)
-		if rand_hairstyle = 0:
-			$pcdesc_hairstylerandom = 'upswept'
-		elseif rand_hairstyle = 1:
-			$pcdesc_hairstylerandom = 'ornately-pinned'
-		end
-		$pcdesc_hairobjectrandom = 'updo'
-		$pcdesc_hairstyle = 'upswept'
-		$pcdesc_hairobject = 'updo'
-		$pcdesc_hairobjectwordy = 'ornate, intricately-pinned <<$pcs_haircol>> updo'
-	end
-
-	if hbraids <= 0:
-		$hbraids = ''
-		$pcdesc_hairstylerandom = 'loose'
-		$pcdesc_hairobjectrandom = 'hair'
-		$pcdesc_hairstyle = 'loose'
-		$pcdesc_hairobject = 'hair'
-		$pcdesc_hairobjectwordy = 'loose and free <<$pcs_haircol>> hair'
-	else	
-		$hbraids = 'Your hair is beautifully braided.'
-		rand_hairstyle = rand(0,1)
-		rand_hairobject = rand(0,1)
-		if rand_hairstyle = 0:
-			$pcdesc_hairstylerandom = 'braided'
-		elseif rand_hairstyle = 1:
-			$pcdesc_hairstylerandom = 'plaited'
-		end
-		if rand_hairobject = 0:
-			$pcdesc_hairobjectrandom = 'braids'
-		elseif rand_hairobject = 1:
-			$pcdesc_hairobjectrandom = 'plaits'
-		end
-		$pcdesc_hairstyle = 'braided'
-		$pcdesc_hairobject = 'braid'
-		$pcdesc_hairobjectwordy = 'delicately-wound <<$pcs_haircol>> braid'
-	end
-
-	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
-		$pcdesc_hairlength = 'normal length'
-		$pcdesc_hairlengthwordy = '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.'
-			rand_hairlength = rand(0,1)
-			if rand_hairlength = 0:
-				$pcdesc_hairlengthrandom = 'extremely short'
-			elseif rand_hairlength = 1:
-				$pcdesc_hairlengthrandom = 'boyishly short'
-			end
-			$pcdesc_hairlength = 'extremely short'
-			$pcdesc_hairlengthwordy = '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>>.'
-			rand_hairlength = rand(0,2)
-			if rand_hairlength = 0:
-				$pcdesc_hairlengthrandom = 'short'
-			elseif rand_hairlength = 1:
-				$pcdesc_hairlengthrandom = 'pixie-cut'
-			elseif rand_hairlength = 2:
-				$pcdesc_hairlengthrandom = 'androgynously short'
-			end
-			$pcdesc_hairlength = 'short'
-			$pcdesc_hairlengthwordy = '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. <<$hscrunch>><<$hpingrip>><<$hpigtail>>'
-			rand_hairlength = rand(0,1)
-			if rand_hairlength = 0:
-				$pcdesc_hairlengthrandom = 'medium'
-			elseif rand_hairlength = 1:
-				$pcdesc_hairlengthrandom = 'average'
-			end
-			$pcdesc_hairlength = 'medium'
-			$pcdesc_hairlengthwordy = '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>>. <<$hscrunch>><<$hpingrip>><<$hbraids>><<$hpigtail>>'
-			$pcdesc_hairlengthrandom = 'moderate'
-			$pcdesc_hairlength = 'moderate'
-			$pcdesc_hairlengthwordy = '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>>. <<$hscrunch>><<$hpingrip>><<$hbraids>><<$hpigtail>>'
-			rand_hairlength = rand(0,1)
-			if rand_hairlength = 0:
-				$pcdesc_hairlengthrandom = 'long'
-			elseif rand_hairlength = 1:
-				$pcdesc_hairlengthrandom = 'lengthy'
-			end
-			$pcdesc_hairlength = 'long'
-			$pcdesc_hairlengthwordy = '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>>. <<$hscrunch>><<$hpingrip>><<$hbraids>><<$hpigtail>>'
-			rand_hairlength = rand(0,3)
-			if rand_hairlength = 0:
-				$pcdesc_hairlengthrandom = 'very long'
-			elseif rand_hairlength = 1:
-				$pcdesc_hairlengthrandom = 'rather lengthy'
-			elseif rand_hairlength = 2:
-				$pcdesc_hairlengthrandom = 'quite long'
-			elseif rand_hairlength = 3:
-				$pcdesc_hairlengthrandom = 'back-length'
-			end
-			$pcdesc_hairlength = 'very long'
-			$pcdesc_hairlengthwordy = '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>>. <<$hscrunch>><<$hpingrip>><<$hbraids>><<$hpigtail>>'
-			rand_hairlength = rand(0,1)
-			if rand_hairlength = 0:
-				$pcdesc_hairlengthrandom = 'extremely long'
-			elseif rand_hairlength = 1:
-				$pcdesc_hairlengthrandom = 'waist-length'
-			end
-			$pcdesc_hairlength = 'extremely long'
-			$pcdesc_hairlengthwordy = '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>>. <<$hscrunch>><<$hbraids>>'
-			rand_hairlength = rand(0,1)
-			if rand_hairlength = 0:
-				$pcdesc_hairlengthrandom = 'exceptionally long'
-			elseif rand_hairlength = 1:
-				$pcdesc_hairlengthrandom = 'incredibly lengthy'
-			end
-			$pcdesc_hairlength = 'incredibly long'
-			$pcdesc_hairlengthwordy = 'exceptionally lengthy and princess-like'
-		end
-	end
-
-	!! A pair of ready-made long strings for writers to pull from for descriptions
-	$pcdesc_fullhair = '<<$pcdesc_hairmess>>, <<$pcdesc_hairlength>> <<$pcs_haircol>> <<$pcdesc_hairword>>'
-	$pcdesc_fullhairwordy = '<<$pcdesc_hairmess>>, <<$pcdesc_hairlengthwordy>> <<$pcdesc_hairword>> of <<$pcdesc_haircolourwordy>>'
-
-	!!! Maruda Hair Mod
-
-	!! Appearance factors and calculations
-
-	!! 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
-		
-
-	!! There were already checks to set the PC lip size to fit between 0 and 4, so I folded them into this check so as not to needlessly check the same variable multiple times. There was also some duplicate logic; it has since been culled.
-	!! When I got here, the $liptalk strings were all bafflingly identical, but were used interchangeably. I think it was probably something lost in translation. The intent was probably to reference lips without sounding repetitive, so for reasons of backward compatibility only,
-	!! I have gone ahead and added some variety to each category to help with that. In general, please do not use the $liptalk strings (I will not be documenting them), they are effectively replaced by $pcsdesc_lipsrandom.
-	if pcs_lip <= 0:
-		pcs_lip = 0
-		rand_lips = rand(0,2)
-		if rand_lips = 0:
-			$pcdesc_lipsrandom = 'thin'
-		elseif rand_lips = 1:
-			$pcdesc_lipsrandom = 'narrow'
-		elseif rand_lips = 2:
-			$pcdesc_lipsrandom = 'slender'
-		end
-		$pcdesc_lips = 'thin'
-		$pcdesc_lipswordy = 'thin, scarcely-noticeable'
-		$liptalk = 'thin lips'
-		$liptalk2 = 'narrow lips'
-		$liptalk3 = 'slender lips'
-		$lip1 = 'thin'
-	elseif pcs_lip = 1:
-		!! These are average lips, originally described as normal in the calculations I first came across. I suppose you could theoretically have blistered and sunburnt lips, not soft ones, but, you know, let us worry about that use case sometime later.
-		rand_lips = rand(0,1)
-		if rand_lips = 0:
-			$pcdesc_lipsrandom = 'kissable'
-		elseif rand_lips = 1:
-			$pcdesc_lipsrandom = 'average'
-		end
-		$pcdesc_lips = 'average'
-		$pcdesc_lipswordy = 'kissable, if average'
-		$liptalk = 'kissable lips'
-		$liptalk2 = 'kissable lips'
-		$liptalk3 = 'kissable lips'
-		$lip1 = 'normal'
-	elseif pcs_lip = 2:
-		rand_lips = rand(0,2)
-		if rand_lips = 0:
-			$pcdesc_lipsrandom = 'plump'
-		elseif rand_lips = 1:
-			$pcdesc_lipsrandom = 'full'
-		elseif rand_lips = 2:
-			$pcdesc_lipsrandom = 'inviting'
-		end
-		$pcdesc_lips = 'plump'
-		$pcdesc_lipswordy = 'invitingly full'
-		$liptalk = 'plump lips'
-		$liptalk2 = 'full lips'
-		$liptalk3 = 'inviting lips'
-		$lip1 = 'plump'
-	elseif pcs_lip = 3:
-		rand_lips = rand(0,2)
-		if rand_lips = 0:
-			$pcdesc_lipsrandom = 'thick'
-		elseif rand_lips = 1:
-			$pcdesc_lipsrandom = 'big'
-		elseif rand_lips = 2:
-			$pcdesc_lipsrandom = 'pouty'
-		end
-		$pcdesc_lips = 'pouty'
-		$pcdesc_lipswordy = 'big, pouty and full'
-		$liptalk = 'pouting lips'
-		$liptalk2 = 'big lips'
-		$liptalk3 = 'thick lips'
-		$lip1 = 'pouting'
-	else
-		pcs_lip = 4
-		rand_lips = rand(0,2)
-		if rand_lips = 0:
-			$pcdesc_lipsrandom = 'fat'
-		elseif rand_lips = 1:
-			$pcdesc_lipsrandom = 'pillowy'
-		elseif rand_lips = 2:
-			$pcdesc_lipsrandom = 'plush'
-		end
-		$pcdesc_lips = 'pillowy'
-		$pcdesc_lipswordy = 'plush, pillowy and inviting'
-		$liptalk = 'plush lips'
-		$liptalk2 = 'pillowy lips'
-		$liptalk3 = 'fat lips'
-		$lip1 = 'plump, pillowy'
-	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:
-		if pcs_lip = 1:
-			rand_lipgloss = rand(0,1)
-			if rand_lipgloss = 0:
-				$pcdesc_lipglossrandom = 'shiny'
-			elseif rand_lipgloss = 1:
-				$pcdesc_lipglossrandom = 'glossy'
-			end
-			$pcs_lipbalm  = 'shiny'
-			$pcdesc_lipgloss = 'shiny'
-			$pcdesc_lipglossinsertive = ', shiny'
-			$pcdesc_lipglossed = 'glossed'
-			$pcdesc_lipglosswordy = 'gloss-slicked'
-			$lip = 'You have normal<<$pcdesc_lipglossinsertive>> lips.<<$pirsB>><<$pirsA>>'
-		elseif pcs_lip = 2:
-			rand_lipgloss = rand(0,2)
-			if rand_lipgloss = 0:
-				$pcdesc_lipglossrandom = 'juicy'
-			elseif rand_lipgloss = 1:
-				$pcdesc_lipglossrandom = 'glossy'
-			elseif rand_lipgloss = 2:
-				$pcdesc_lipglossrandom = 'slippery'
-			end
-			$pcs_lipbalm  = 'brilliant and juicy'
-			$pcdesc_lipgloss = 'brilliant and juicy'
-			$pcdesc_lipglossinsertive = ', brilliant and juicy'
-			$pcdesc_lipglossed = 'glossed'
-			$pcdesc_lipglosswordy = 'invitingly glossed'
-			$lip = 'You have plump<<$pcdesc_lipglossinsertive>> lips. <<$pirsB>> <<$pirsA>>'
-		elseif pcs_lip = 3:
-			rand_lipgloss = rand(0,4)
-			if rand_lipgloss = 0:
-				$pcdesc_lipglossrandom = 'juicy'
-			elseif rand_lipgloss = 1:
-				$pcdesc_lipglossrandom = 'glossy'
-			elseif rand_lipgloss = 2:
-				$pcdesc_lipglossrandom = 'slippery'
-			elseif rand_lipgloss = 3:
-				$pcdesc_lipglossrandom = 'gloss-slicked'
-			elseif rand_lipgloss = 4:
-				$pcdesc_lipglossrandom = 'gloss-stickied'
-			end
-			$pcs_lipbalm  = 'juicy and full'
-			$pcdesc_lipgloss = 'juicy and full'
-			$pcdesc_lipglossinsertive = ', juicy and full'
-			$pcdesc_lipglossed = 'glossed'
-			$pcdesc_lipglosswordy = 'wetly-glossed'
-			$lip = 'You have big, pouting, <<$pcdesc_lipgloss>> lips. <<$pirsB>> <<$pirsA>>'
-		elseif pcs_lip = 4:
-			rand_lipgloss = rand(0,6)
-			!! I know what you are thinking -- dripping? But believe me; past a certain point it really will. It is far from the least realistic thing we would have in here anyway.
-			if rand_lipgloss = 0:
-				$pcdesc_lipglossrandom = 'juicy'
-			elseif rand_lipgloss = 1:
-				$pcdesc_lipglossrandom = 'glossy'
-			elseif rand_lipgloss = 2:
-				$pcdesc_lipglossrandom = 'gloss-slicked'
-			elseif rand_lipgloss = 3:
-				$pcdesc_lipglossrandom = 'gloss-stickied'
-			elseif rand_lipgloss = 4:
-				$pcdesc_lipglossrandom = 'gloss-dripping'
-			elseif rand_lipgloss = 5:
-				$pcdesc_lipglossrandom = 'glisteningly wet'
-			elseif rand_lipgloss = 6:
-				$pcdesc_lipglossrandom = 'slippery'
-			end
-			$pcs_lipbalm  = 'wet and glossy'
-			$pcdesc_lipgloss = 'wet and glossy'
-			$pcdesc_lipglossinsertive = ', wet and glossy'
-			$pcdesc_lipglossed = 'glossed'
-			$pcdesc_lipglosswordy = 'suggestively gloss-glazed'
-			$lip = 'You have pillowy, <<$pcdesc_lipgloss>>, suggestively full lips. <<$pirsB>> <<$pirsA>>'
-		else
-			!! Lip size 0
-			$pcdesc_lipglossrandom = 'shiny'
-			$pcs_lipbalm  = 'shiny'
-			$pcdesc_lipgloss = 'shiny'
-			$pcdesc_lipglossinsertive = ', shiny'
-			$pcdesc_lipglossed = 'glossed'
-			$pcdesc_lipglosswordy = 'gloss-slicked'
-			$lip = 'You have thin<<$pcdesc_lipglossinsertive>> lips. <<$pirsB>> <<$pirsA>>'
-		end
-	else
-		!! No gloss
-		$pcdesc_lipglossrandom = 'soft'
-		$pcs_lipbalm  = 'soft'
-		$pcdesc_lipgloss = 'soft'
-		$pcdesc_lipglossinsertive = ''
-		$pcdesc_lipglossed = 'softened'
-		$pcdesc_lipglosswordy = 'soft'
-		$lip = 'You have <<$pcdesc_lipswordy>> lips. <<$pirsB>> <<$pirsA>>'
-	end
-
-	!! 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.
-	$pcdesc_fulllips = '<<$pcdesc_lips>><<$pcdesc_lipglossinsertive>> lips'
-	$pcdesc_fulllipswordy = '<<$pcdesc_lipglossrandom>>, <<$pcdesc_lipswordy>> lips'
-
-	!! 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:
-		if pcs_tan > 0 and pcs_tan <= 5:
-			rand_tan = rand(0,2)
-			if rand_tan = 0:
-				$pcdesc_tanrandom = 'lightly tanned'
-			elseif rand_tan = 1:
-				$pcdesc_tanrandom = 'barely tanned'
-			elseif rand_tan = 2:
-				$pcdesc_tanrandom = 'scarcely darkened'
-			end
-			$pcdesc_tan = 'faintly tanned'
-			$pcdesc_tanwordy = 'just barely sun-kissed'
-			$pcs_tan = 'faintly tanned'
-		elseif pcs_tan > 5 and pcs_tan <= 10:
-			rand_tan = rand(0,3)
-			if rand_tan = 0:
-				$pcdesc_tanrandom = 'tanned'
-			elseif rand_tan = 1:
-				$pcdesc_tanrandom = 'lightly bronzed'
-			elseif rand_tan = 2:
-				$pcdesc_tanrandom = 'sun-kissed'
-			elseif rand_tan = 3:
-				$pcdesc_tanrandom = 'lightly browned'
-			end
-			$pcdesc_tan = 'tanned'
-			$pcdesc_tanwordy = 'gently sun-kissed'
-			$pcs_tan = 'tanned'
-		elseif pcs_tan > 10 and pcs_tan <= 25:
-			rand_tan = rand(0,2)
-			if rand_tan = 0:
-				$pcdesc_tanrandom = 'bronzed'
-			elseif rand_tan = 1:
-				$pcdesc_tanrandom = 'browned'
-			elseif rand_tan = 2:
-				$pcdesc_tanrandom = 'light caramel'
-			end
-			$pcdesc_tan = 'bronzed'
-			$pcdesc_tanwordy = 'sun-swept, beach-bunny brown'
-			$pcs_tan = 'bronzed'
-		elseif pcs_tan > 25 and pcs_tan <= 50:
-			rand_tan = rand(0,3)
-			if rand_tan = 0:
-				$pcdesc_tanrandom = 'deeply tanned'
-			elseif rand_tan = 1:
-				$pcdesc_tanrandom = 'very dark'
-			elseif rand_tan = 2:
-				$pcdesc_tanrandom = 'richly browned'
-			elseif rand_tan = 3:
-				$pcdesc_tanrandom = 'tawny'
-			end
-			$pcdesc_tan = 'deeply tanned'
-			$pcdesc_tanwordy = 'dark, richly browned'
-			$pcs_tan = 'deeply tanned'
-		else
-			!! This would take some very intentional tanorexia
-			rand_tan = rand(0,2)
-			if rand_tan = 0:
-				$pcdesc_tanrandom = 'extremely darkly tanned'
-			elseif rand_tan = 1:
-				$pcdesc_tanrandom = 'nearly unnaturally darkened'
-			elseif rand_tan = 2:
-				$pcdesc_tanrandom = 'dark, desert-tanned'
-			end
-			$pcdesc_tan = 'extremely darkly tanned'
-			$pcdesc_tanwordy = 'practically swarthy'
-			$pcs_tan = 'extremely darkly tanned'
-		end
-	else
-		rand_tan = rand(0,3)
-		if rand_tan = 0:
-			$pcdesc_tanrandom = 'pale'
-		elseif rand_tan = 1:
-			$pcdesc_tanrandom = 'alabaster'
-		elseif rand_tan = 2:
-			$pcdesc_tanrandom = 'porcelain'
-		elseif rand_tan = 3:
-			$pcdesc_tanrandom = 'fair'
-		end
-		$pcdesc_tan = 'pale'
-		$pcdesc_tanwordy = 'pale, alabaster'
-		$pcs_tan = 'pale'
-	end
-
-	!! Skin1 is only used in the foto location, and can be replaced at a later date. From here on out, do not use it.
-	if pcs_skin > 100:
-		pcs_skin = 100
-	elseif pcs_skin < 0:
-		pcs_skin = 0
-	end
-	if pcs_skin < 20:
-		rand_skin = rand(0,3)
-		if rand_skin = 0:
-			$pcdesc_skinrandom = 'terrible'
-		elseif rand_skin = 1:
-			$pcdesc_skinrandom = 'awful'
-		elseif rand_skin = 2:
-			$pcdesc_skinrandom = 'greasy'
-		elseif rand_skin = 3:
-			$pcdesc_skinrandom = 'pimple-strewn'
-		end
-		$pcdesc_skin = 'terrible'
-		$pcdesc_skinwordy = '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:
-		rand_skin = rand(0,3)
-		if rand_skin = 0:
-			$pcdesc_skinrandom = 'bad'
-		elseif rand_skin = 1:
-			$pcdesc_skinrandom = 'greasy'
-		elseif rand_skin = 2:
-			$pcdesc_skinrandom = 'rough'
-		elseif rand_skin = 3:
-			$pcdesc_skinrandom = 'unappealing'
-		end
-		$pcdesc_skin = 'bad'
-		$pcdesc_skinwordy = '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:
-		rand_skin = rand(0,2)
-		if rand_skin = 0:
-			$pcdesc_skinrandom = 'average'
-		elseif rand_skin = 1:
-			$pcdesc_skinrandom = 'normal'
-		elseif rand_skin = 2:
-			$pcdesc_skinrandom = 'clear'
-		end
-		$pcdesc_skin = 'average'
-		$pcdesc_skinwordy = '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:
-		rand_skin = rand(0,4)
-		if rand_skin = 0:
-			$pcdesc_skinrandom = 'good'
-		elseif rand_skin = 1:
-			$pcdesc_skinrandom = 'nice'
-		elseif rand_skin = 2:
-			$pcdesc_skinrandom = 'smooth'
-		elseif rand_skin = 3:
-			$pcdesc_skinrandom = 'well-kept'
-		elseif rand_skin = 4:
-			$pcdesc_skinrandom = 'great'
-		end
-		$pcdesc_skin = 'good'
-		$pcdesc_skinwordy = 'smooth, well-kept'
-		$skin = 'You have <<$pcs_tan>>, smooth and well-groomed skin. <<$pirsC>> <<$pirsD>> <<$pirsE>> <<$pirsN>>'
-		$skin1 = 'good'
-	else
-		rand_skin = rand(0,4)
-		if rand_skin = 0:
-			$pcdesc_skinrandom = 'excellent'
-		elseif rand_skin = 1:
-			$pcdesc_skinrandom = 'silken'
-		elseif rand_skin = 2:
-			$pcdesc_skinrandom = 'soft'
-		elseif rand_skin = 3:
-			$pcdesc_skinrandom = 'silky'
-		elseif rand_skin = 4:
-			$pcdesc_skinrandom = 'immaculate'
-		end
-		$pcdesc_skin = 'excellent'
-		$pcdesc_skinwordy = '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
-	if pcs_eyecol = 0:
-		rand_eyecol = rand(0,1)
-		if rand_eyecol = 0:
-			$pcdesc_eyecolourrandom = 'brown'
-		elseif rand_eyecol = 1:
-			$pcdesc_eyecolourrandom = 'hazel'
-		end
-		$pcdesc_eyecolour = 'brown'
-		$pcdesc_eyecolourwordy = 'warm, hazel'
-		$pcs_eyecol = 'brown'
-	elseif pcs_eyecol = 1:
-		rand_eyecol = rand(0,2)
-		if rand_eyecol = 0:
-			$pcdesc_eyecolourrandom = 'pale'
-		elseif rand_eyecol = 1:
-			$pcdesc_eyecolourrandom = 'grey'
-		elseif rand_eyecol = 2:
-			$pcdesc_eyecolourrandom = 'silvery'
-		end
-		$pcdesc_eyecolour = 'grey'
-		$pcdesc_eyecolourwordy = 'pale, silvery-grey'
-		$pcs_eyecol = 'grey'
-	elseif pcs_eyecol = 2:
-		rand_eyecol = rand(0,1)
-		if rand_eyecol = 0:
-			$pcdesc_eyecolourrandom = 'green'
-		elseif rand_eyecol = 1:
-			$pcdesc_eyecolourrandom = 'emerald'
-		end
-		$pcdesc_eyecolour = 'green'
-		$pcdesc_eyecolourwordy = 'sparkling green'
-		$pcs_eyecol = 'green'
-	elseif pcs_eyecol = 3:
-		rand_eyecol = rand(0,1)
-		if rand_eyecol = 0:
-			$pcdesc_eyecolourrandom = 'blue'
-		elseif rand_eyecol = 1:
-			$pcdesc_eyecolourrandom = 'sapphire'
-		end
-		$pcdesc_eyecolour = 'blue'
-		$pcdesc_eyecolourwordy = 'vibrant, crystal blue'
-		$pcs_eyecol = 'blue'
-	else
-		$pcdesc_eyecolourrandom = 'attractive'
-		$pcdesc_eyecolour = 'attractive'
-		$pcdesc_eyecolourwordy = 'attractive'
-		$pcs_eyecol = 'attractive'
-	end
-
-	!! 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:
-		rand_lashes = rand(0,3)
-		if rand_lashes = 0:
-			$pcdesc_lashesrandom = 'long, jewel-dusted'
-		elseif rand_lashes = 1:
-			$pcdesc_lashesrandom = 'incredibly extravagant'
-		elseif rand_lashes = 2:
-			$pcdesc_lashesrandom = 'overwhelmingly indulgent'
-		elseif rand_lashes = 3:
-			$pcdesc_lashesrandom = 'jewel-sparkled, showgirl'
-		end
-		$pcdesc_lashes = 'long, jewel-dusted'
-		$pcdesc_lasheswordy = 'incredibly extravagant, jewel-dusted'
-		$pcs_lashes = 'with over-the-top, jewel-dusted eyelash extensions'
-	elseif pcs_lashes = 4:
-		rand_lashes = rand(0,3)
-		if false_lashes >= 1:
-			if rand_lashes = 0:
-				$pcdesc_lashesrandom = 'mink-feathered'
-			elseif rand_lashes = 1:
-				$pcdesc_lashesrandom = 'attention-grabbing'
-			elseif rand_lashes = 2:
-				$pcdesc_lashesrandom = 'intoxicatingly seductive false'
-			elseif rand_lashes = 3:
-				$pcdesc_lashesrandom = 'wildly flirtatious false'
-			end
-			$pcdesc_lashes = 'mink-feathered false'
-			$pcs_lashes = 'with fabulous, mink-feathered false lashes'
-			$pcdesc_lasheswordy = 'fabulous, mink-feathered false'
-		else
-			if rand_lashes = 0:
-				$pcdesc_lashesrandom = 'amazingly lengthy'
-			elseif rand_lashes = 1:
-				$pcdesc_lashesrandom = 'show-stealing'
-			elseif rand_lashes = 2:
-				$pcdesc_lashesrandom = 'incredibly lush'
-			elseif rand_lashes = 3:
-				$pcdesc_lashesrandom = 'stunningly dark and full'
-			end
-			$pcdesc_lashes = 'show-stealing'
-			$pcs_lashes = 'with stunningly dark and full lash extensions'
-			$pcdesc_lasheswordy = 'stunningly dark and full, show-stealing'
-		end
-	elseif pcs_lashes = 3:
-		rand_lashes = rand(0,3)
-		if rand_lashes = 0:
-			$pcdesc_lashesrandom = 'lavish'
-		elseif rand_lashes = 1:
-			$pcdesc_lashesrandom = 'lush, dark'
-		elseif rand_lashes = 2:
-			$pcdesc_lashesrandom = 'seductively-curled'
-		elseif rand_lashes = 3:
-			$pcdesc_lashesrandom = 'flirtatiously lengthy'
-		end
-		$pcdesc_lashes = 'lavish'
-		if false_lashes >= 1:
-			$pcs_lashes = 'with lavish, fluttery false lashes'
-			$pcdesc_lasheswordy = 'lavish, attention-grabbing false'
-		else	
-			$pcs_lashes = 'with lavishly seductive lash extensions'
-			$pcdesc_lasheswordy = 'lavish, seductively dark'
-		end
-	elseif pcs_lashes = 2:
-		rand_lashes = rand(0,3)
-		if rand_lashes = 0:
-			$pcdesc_lashesrandom = 'lengthy'
-		elseif rand_lashes = 1:
-			$pcdesc_lashesrandom = 'long'
-		elseif rand_lashes = 2:
-			$pcdesc_lashesrandom = 'fluttery'
-		elseif rand_lashes = 3:
-			$pcdesc_lashesrandom = 'seductive'
-		end
-		$pcdesc_lashes = 'long'
-		$pcdesc_lasheswordy = 'long, fluttery'
-		$pcs_lashes = 'with long eyelashes'
-	elseif pcs_lashes = 1:
-		$pcdesc_lashesrandom = 'average'
-		$pcdesc_lashes = 'average'
-		$pcdesc_lasheswordy = 'average'
-		$pcs_lashes = 'with average eyelashes'
-	else
-		pcs_lashes = 0
-		rand_lashes = rand(0,2)
-		if rand_lashes = 0:
-			$pcdesc_lashesrandom = 'short'
-		elseif rand_lashes = 1:
-			$pcdesc_lashesrandom = 'scarce'
-		elseif rand_lashes = 2:
-			$pcdesc_lashesrandom = 'faint'
-		end
-		$pcdesc_lashes = 'short'
-		$pcdesc_lasheswordy = 'short, barely-noticeable'
-		$pcs_lashes = 'with short eyelashes'
-	end
-
-
-	!!!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:
-		rand_vision = rand(0,1)
-		if rand_vision = 0:
-			$pcdesc_visionrandom = 'glasses'
-		elseif rand_vision = 1:
-			$pcdesc_visionrandom = 'lenses'
-		end
-		$pcdesc_vision = 'glasses'
-		$pcdesc_visionwordy = 'chic, stylish glasses'
-		$glass = ' You wear glasses.'
-		glassvnesh = 0
-	elseif glass = 1:
-		rand_vision = rand(0,3)
-		if rand_vision = 0:
-			$pcdesc_visionrandom = 'glasses'
-		elseif rand_vision = 1:
-			$pcdesc_visionrandom = 'lenses'
-		elseif rand_vision = 2:
-			$pcdesc_visionrandom = 'dorky glasses'
-		elseif rand_vision = 3:
-			$pcdesc_visionrandom = 'geeky lenses'
-		end
-		$pcdesc_vision = 'nerdy glasses'
-		$pcdesc_visionwordy = 'cheap, utilitarian glasses'
-		$glass = ' You wear silly glasses in a cheap frame.'
-		glassvnesh = 10
-	else
-		glass = 0
-		rand_vision = rand(0,1)
-		if rand_vision = 0:
-			$pcdesc_visionrandom = 'lashes'
-		elseif rand_vision = 1:
-			$pcdesc_visionrandom = 'eyelashes'
-		end
-		$pcdesc_vision = 'lashes'
-		$pcdesc_visionwordy = '<<$pcdesc_lasheswordy>> lashes'
-		$glass = ''
-		glassvnesh = 0
-	end
-
-	!! 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:
-		$pcdesc_eyesizerandom = 'tiny'
-		$pcdesc_eyesize = 'small'
-		$pcdesc_eyesizeinsertive = ''
-		$pcdesc_eyesizewordy = 'little'
-		$glaza = 'You have little <<$pcs_eyecol>> eyes <<$pcs_lashes>>.<<$glass>>'
-	elseif pcs_eyesize = 1:
-		rand_eyesize = rand(0,1)
-		if rand_eyesize = 0:
-			$pcdesc_eyesizerandom = 'medium'
-		elseif rand_eyesize = 1:
-			$pcdesc_eyesizerandom = 'average-sized'
-		end
-		$pcdesc_eyesize = 'medium-sized'
-		$pcdesc_eyesizeinsertive = ''
-		$pcdesc_eyesizewordy = 'medium-sized'
-		$glaza = 'You have medium-sized <<$pcs_eyecol>> eyes <<$pcs_lashes>>.<<$glass>>'
-	elseif pcs_eyesize = 2:
-		rand_eyesize = rand(0,3)
-		if rand_eyesize = 0:
-			$pcdesc_eyesizerandom = 'big'
-		elseif rand_eyesize = 1:
-			$pcdesc_eyesizerandom = 'expressive'
-		elseif rand_eyesize = 2:
-			$pcdesc_eyesizerandom = 'wide'
-		elseif rand_eyesize = 3:
-			$pcdesc_eyesizerandom = 'large'
-		end
-		$pcdesc_eyesize = 'large'
-		$pcdesc_eyesizeinsertive = ' large,'
-		$pcdesc_eyesizewordy = 'large, expressive'
-		$glaza = 'You have large <<$pcs_eyecol>> eyes <<$pcs_lashes>>.<<$glass>>'
-	else
-		pcs_eyesize = 3
-		rand_eyesize = rand(0,3)
-		if rand_eyesize = 0:
-			$pcdesc_eyesizerandom = 'wide'
-		elseif rand_eyesize = 1:
-			$pcdesc_eyesizerandom = 'huge'
-		elseif rand_eyesize = 2:
-			$pcdesc_eyesizerandom = 'doll-like'
-		elseif rand_eyesize = 3:
-			$pcdesc_eyesizerandom = 'incredibly expressive'
-		end
-		$pcdesc_eyesize = 'huge'
-		$pcdesc_eyesizeinsertive = ' big, doll-like'
-		$pcdesc_eyesizewordy = 'huge'
-		$glaza = 'You have huge <<$pcs_eyecol>> eyes that almost look like they''re out of an anime, <<$pcs_lashes>>.<<$glass>>'
-	end
-
-	mopkoef = pcs_makupskl / 5
-	if pcs_makeup = 0:
-		rand_makeup = rand(0,2)
-		if rand_makeup = 0:
-			$pcdesc_makeuprandom = 'makeup-ruined'
-		elseif rand_makeup = 1:
-			$pcdesc_makeuprandom = 'makeup-smeared'
-		elseif rand_makeup = 2:
-			$pcdesc_makeuprandom = 'makeup-trashed'
-		end
-		$pcdesc_makeup = 'makeup-smeared'
-		$pcdesc_makeupwordy = 'clownishly makeup-smeared'
-		mopkoef = -5 
-		$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: 
-		rand_makeup = rand(0,1)
-		if rand_makeup = 0:
-			$pcdesc_makeuprandom = 'natural'
-		elseif rand_makeup = 1:
-			$pcdesc_makeuprandom = 'bare'
-		end
-		$pcdesc_makeup = 'natural'
-		$pcdesc_makeupwordy = 'bare, natural'
-		mopkoef = 0
-		$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: 
-		rand_makeup = rand(0,1)
-		if rand_makeup = 0:
-			$pcdesc_makeuprandom = 'lightly-accented'
-		elseif rand_makeup = 1:
-			$pcdesc_makeuprandom = 'subtly-highlighted'
-		end
-		$pcdesc_makeup = 'subtly-accented'
-		$pcdesc_makeupwordy = '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: 
-		rand_makeup = rand(0,1)
-		if rand_makeup = 0:
-			$pcdesc_makeuprandom = 'colourfully done-up'
-		elseif rand_makeup = 1:
-			$pcdesc_makeuprandom = 'vibrantly done-up'
-		end
-		$pcdesc_makeup = 'vibrantly done-up'
-		$pcdesc_makeupwordy = '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:
-		rand_makeup = rand(0,3)
-		if rand_makeup = 0:
-			$pcdesc_makeuprandom = 'painted-on'
-		elseif rand_makeup = 1:
-			$pcdesc_makeuprandom = 'makeup-caked'
-		elseif rand_makeup = 2:
-			$pcdesc_makeuprandom = 'dolled-up'
-		elseif rand_makeup = 3:
-			$pcdesc_makeuprandom = 'sultry, dramatically done-up'
-		end
-		$pcdesc_makeup = 'dolled-up'
-		$pcdesc_makeupwordy = '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:
-		rand_makeup = rand(0,3)
-		if rand_makeup = 0:
-			$pcdesc_makeuprandom = 'painted-on'
-		elseif rand_makeup = 1:
-			$pcdesc_makeuprandom = 'makeup-caked'
-		elseif rand_makeup = 2:
-			$pcdesc_makeuprandom = 'dolled-up'
-		elseif rand_makeup = 3:
-			$pcdesc_makeuprandom = 'sultry, dramatically done-up'
-		end
-		$pcdesc_makeup = 'dolled-up'
-		$pcdesc_makeupwordy = '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.'
-		mopkoef = 30
-	elseif pcs_makeup = 6:
-		rand_makeup = rand(0,3)
-		if rand_makeup = 0:
-			$pcdesc_makeuprandom = 'bimbo'
-		elseif rand_makeup = 1:
-			$pcdesc_makeuprandom = 'hawt'
-		elseif rand_makeup = 2:
-			$pcdesc_makeuprandom = 'O M G '
-		elseif rand_makeup = 3:
-			$pcdesc_makeuprandom = 'just, the best'
-		end
-		$pcdesc_makeup = 'bimbo'
-		$pcdesc_makeupwordy = '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.'
-		if bimbolevel >= 2: extra_supnatvnesh = 2*bimbolevel - 2
-	end
-
-	if pcs_leghair <= 0:
-		rand_legs = rand(0,2)
-		if rand_legs = 0:
-			$pcdesc_legsrandom = 'smooth'
-		elseif rand_legs = 1:
-			$pcdesc_legsrandom = 'silky'
-		elseif rand_legs = 2:
-			$pcdesc_legsrandom = 'soft'
-		end
-		$pcdesc_legs = 'smooth'
-		$pcdesc_legswordy = 'soft and silky-smooth'
-		legkoef = 0
-		$pcs_leghair = 'You have smooth legs.'
-	elseif pcs_leghair <= 3:
-		rand_legs = rand(0,1)
-		if rand_legs = 0:
-			$pcdesc_legsrandom = 'slightly scratchy'
-		elseif rand_legs = 1:
-			$pcdesc_legsrandom = 'faintly stubbly'
-		end
-		$pcdesc_legs = 'faintly stubbly'
-		$pcdesc_legswordy = 'slightly rough, invisibly-stubbled'
-		legkoef = 3
-		$pcs_leghair = 'You can''t see any hair, but your legs feel rough to the touch.'
-	elseif pcs_leghair <= 6:
-		rand_legs = rand(0,1)
-		if rand_legs = 0:
-			$pcdesc_legsrandom = 'somewhat hairy'
-		elseif rand_legs = 1:
-			$pcdesc_legsrandom = 'lightly-furred'
-		end
-		$pcdesc_legs = 'slightly hairy'
-		$pcdesc_legswordy = 'lightly-furred, soft-haired'
-		legkoef = 6
-		$pcs_leghair = 'You have light and just barely visible hair on your legs.'
-	else
-		rand_legs = rand(0,2)
-		if rand_legs = 0:
-			$pcdesc_legsrandom = 'hairy'
-		elseif rand_legs = 1:
-			$pcdesc_legsrandom = 'unshaven'
-		elseif rand_legs = 2:
-			$pcdesc_legsrandom = 'ungroomed'
-		end
-		$pcdesc_legs = 'hairy'
-		$pcdesc_legswordy = 'hairy, unshaven'
-		legkoef = 9
-		$pcs_leghair = 'Your legs are hairy.'
-	end
-
-	if clit_size < 20:
-		rand_clit = rand(0,1)
-		if rand_clit = 0:
-			$pcdesc_clitrandom = 'small'
-		elseif rand_clit = 1:
-			$pcdesc_clitrandom = 'tiny'
-		end
-		$pcdesc_clit = 'small'
-		$pcdesc_clitwordy = 'small, oft-hidden'
-		$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:
-		rand_clit = rand(0,2)
-		if rand_clit = 0:
-			$pcdesc_clitrandom = 'large'
-		elseif rand_clit = 1:
-			$pcdesc_clitrandom = 'big'
-		elseif rand_clit = 2:
-			$pcdesc_clitrandom = 'engorged'
-		end
-		$pcdesc_clit = 'big'
-		$pcdesc_clitwordy = 'big, easily-found'
-		$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:
-		rand_clit = rand(0,2)
-		if rand_clit = 0:
-			$pcdesc_clitrandom = 'meaty'
-		elseif rand_clit = 1:
-			$pcdesc_clitrandom = 'thick'
-		elseif rand_clit = 2:
-			$pcdesc_clitrandom = 'swollen'
-		end
-		$pcdesc_clit = 'meaty'
-		$pcdesc_clitwordy = 'thick, meaty'
-		$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:
-		rand_clit = rand(0,1)
-		if rand_clit = 0:
-			$pcdesc_clitrandom = 'oversized'
-		elseif rand_clit = 1:
-			$pcdesc_clitrandom = 'huge'
-		end
-		$pcdesc_clit = 'oversized'
-		$pcdesc_clitwordy = 'big, practically phallic'
-		$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
-		rand_clit = rand(0,2)
-		if rand_clit = 0:
-			$pcdesc_clitrandom = 'huge'
-		elseif rand_clit = 1:
-			$pcdesc_clitrandom = 'cock-like'
-		elseif rand_clit = 2:
-			$pcdesc_clitrandom = 'massive'
-		end
-		$pcdesc_clit = 'phallic'
-		$pcdesc_clitwordy = '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
-
-	if lashair = 1:
-		rand_pubes = rand(0,3)
-		if rand_pubes = 0:
-			$pcdesc_pubesrandom = 'silky-smooth'
-		elseif rand_pubes = 1:
-			$pcdesc_pubesrandom = 'hairless'
-		elseif rand_pubes = 2:
-			$pcdesc_pubesrandom = 'smooth'
-		elseif rand_pubes = 3:
-			$pcdesc_pubesrandom = 'bald'
-		end
-		$pcdesc_pubes = 'hairless'
-		$pcdesc_pubeswordy = 'eternally silky-smooth'
-		$pcs_pubes = 'You have a smooth, <a href="exec:view''<<FUNC(''$pube_image'')>>''">bald pussy</a>. <<$pirspiz>><br><<$clitsize>>'
-	end
-
-	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>>'
-			rand_pubes = rand(0,3)
-			if rand_pubes = 0:
-				$pcdesc_pubesrandom = 'silky'
-			elseif rand_pubes = 1:
-				$pcdesc_pubesrandom = 'hairless'
-			elseif rand_pubes = 2:
-				$pcdesc_pubesrandom = 'smooth-shaven'
-			elseif rand_pubes = 3:
-				$pcdesc_pubesrandom = 'freshly-shaven'
-			end
-			$pcdesc_pubes = 'smooth-shaven'
-			$pcdesc_pubeswordy = '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>>'
-			rand_pubes = rand(0,2)
-			if rand_pubes = 0:
-				$pcdesc_pubesrandom = 'stubbly'
-			elseif rand_pubes = 1:
-				$pcdesc_pubesrandom = 'scratchy'
-			elseif rand_pubes = 2:
-				$pcdesc_pubesrandom = 'roughly-stubbled'
-			end
-			$pcdesc_pubes = 'stubbly'
-			$pcdesc_pubeswordy = '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>>'
-			rand_pubes = rand(0,2)
-			if rand_pubes = 0:
-				$pcdesc_pubesrandom = 'almost bare'
-			elseif rand_pubes = 1:
-				$pcdesc_pubesrandom = 'barely-haired'
-			elseif rand_pubes = 2:
-				$pcdesc_pubesrandom = 'well-kept'
-			end
-			$pcdesc_pubes = 'stubbly'
-			$pcdesc_pubeswordy = '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
-			rand_pubes = rand(0,3)
-			if rand_pubes = 0:
-				$pcdesc_pubesrandom = 'wispy-haired'
-			elseif rand_pubes = 1:
-				$pcdesc_pubesrandom = 'lightly-furred'
-			elseif rand_pubes = 2:
-				$pcdesc_pubesrandom = 'trimmed'
-			elseif rand_pubes = 3:
-				$pcdesc_pubesrandom = 'well-maintained'
-			end
-			$pcdesc_pubes = 'neatly-trimmed'
-			$pcdesc_pubeswordy = '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>>'
-			rand_pubes = rand(0,2)
-			if rand_pubes = 0:
-				$pcdesc_pubesrandom = 'furred'
-			elseif rand_pubes = 1:
-				$pcdesc_pubesrandom = 'bushy'
-			elseif rand_pubes = 2:
-				$pcdesc_pubesrandom = 'partially-maintained'
-			end
-			$pcdesc_pubes = 'bushy'
-			$pcdesc_pubeswordy = '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>>'
-			rand_pubes = rand(0,2)
-			if rand_pubes = 0:
-				$pcdesc_pubesrandom = 'thickly-furred'
-			elseif rand_pubes = 1:
-				$pcdesc_pubesrandom = 'very hairy'
-			elseif rand_pubes = 2:
-				$pcdesc_pubesrandom = 'ill-maintained'
-			end
-			$pcdesc_pubes = 'hairy'
-			$pcdesc_pubeswordy = 'hairy, wild-maned'
-		end
-	end
-
-	if pcs_nips < 20:
-		$nipplesize = 'You have average <a href="exec:view''images/pc/body/nipples/nipples1.jpg''">nipples</a>.'
-		rand_nipples = rand(0,2)
-		if rand_nipples = 0:
-			$pcdesc_nipplesrandom = 'small'
-		elseif rand_nipples = 1:
-			$pcdesc_nipplesrandom = 'tiny'
-		elseif rand_nipples = 2:
-			$pcdesc_nipplesrandom = 'little'
-		end
-		$pcdesc_nipples = 'small'
-		$pcdesc_nippleswordy = '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.'
-		rand_nipples = rand(0,1)
-		if rand_nipples = 0:
-			$pcdesc_nipplesrandom = 'slightly large'
-		elseif rand_nipples = 1:
-			$pcdesc_nipplesrandom = 'decently-sized'
-		end
-		$pcdesc_nipples = 'slightly large'
-		$pcdesc_nippleswordy = '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>.'
-		rand_nipples = rand(0,2)
-		if rand_nipples = 0:
-			$pcdesc_nipplesrandom = 'puffy'
-		elseif rand_nipples = 1:
-			$pcdesc_nipplesrandom = 'swollen'
-		elseif rand_nipples = 2:
-			$pcdesc_nipplesrandom = 'large'
-		end
-		$pcdesc_nipples = 'puffy'
-		$pcdesc_nippleswordy = '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.'
-		rand_nipples = rand(0,1)
-		if rand_nipples = 0:
-			$pcdesc_nipplesrandom = 'big'
-		elseif rand_nipples = 1:
-			$pcdesc_nipplesrandom = 'thick'
-		end
-		$pcdesc_nipples = 'big'
-		$pcdesc_nippleswordy = '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>.'
-		rand_nipples = rand(0,3)
-		if rand_nipples = 0:
-			$pcdesc_nipplesrandom = 'huge'
-		elseif rand_nipples = 1:
-			$pcdesc_nipplesrandom = 'unmistakably big'
-		elseif rand_nipples = 2:
-			$pcdesc_nipplesrandom = 'meaty'
-		elseif rand_nipples = 3:
-			$pcdesc_nipplesrandom = 'enormous'
-		end
-		$pcdesc_nipples = 'meaty'
-		$pcdesc_nippleswordy = 'huge, meaty'
-	end
-
-
-	if dounspell = 1:
-		bodytipe = pcs_hips - pcs_waist
-		if bodytipe < 20:
-			bodykoef = 0
-		elseif bodytipe >= 20 and bodytipe < 25:
-			bodykoef = 2
-		elseif bodytipe >= 25 and bodytipe < 30:
-			bodykoef = 4
-		elseif bodytipe >= 30 and bodytipe < 35:
-			bodykoef = 8
-		elseif bodytipe >= 35:
-			bodykoef = 4
-		end
-	end
-
-	!!This is to force a base update if teeth changed since that is immediate
-	if zublast ! pcs_teeth:
-		gs 'body_shape', 'basebeautycalc', 1
-		zublast = pcs_teeth
-	end
-
-	!! Calculate hotcat etc
-	tempclothingbonus = FUNC('body', 'calcClothesBonus', PXCloThinness, PXCloTopCut, PXCloBottomShortness, PCloQuality, $clothingworntype, bmi_calc)
-	tempAccessoriesBonus = FUNC('body', 'calcAccessoriesBonus', bonusZ, PShoQuality, $pantyworntype, $braworntype)
-	tempGroomingBonus = FUNC('body', 'calcGroomingBonus', pcs_lipbalm, mopkoef, pcs_hairbsh, pcs_breath, deodorant_on, bmi_calc)
-	tempGroomingPenalty = FUNC('body', 'calcGroomingPenalty', pcs_hairlng, pcs_sweat, glassvnesh, dyevmod, legkoef)
-	Hotcat = FUNC('body', 'calcHotcat', pcs_apprncbase, (supnatvnesh + extra_supnatvnesh), tempclothingbonus, tempAccessoriesBonus, tempGroomingBonus, tempGroomingPenalty)
-	pcs_apprnc = temppcs_apprnc & killvar 'temppcs_apprnc' & killvar 'temppcs_maxapprnc'
-
-
-	if StrongNarkota <= 0:
-		if SNarkTimes >= 3 and SLomka = 0:SLomka = 1
-	end
-
-	if amphCount > 3 and amphHigh <= 0:
-		addictChance = rand(1,10)
-		if addictChance > 8:
-			amphWithdrawl = 2
-		end
-	end
-
-	if StrongNarkota > 0:
-		if SLomka > 0:SLomka = 0
-		pcs_mood = 100
-	end
-
-	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
-
-	!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-	!!!!!!!!BODY
-	!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-
-	if dounspell = 1:
-		salocatnow = (pcs_hips / 10) - 5
-		if bdsetlock = 0:
-			if (knowpreg = 1 or (preg = 1 and thinkpreg = 1) or (preg = 1 and PregChem > 3600)):
-				bodset = 3
-			elseif strenbuf >= 70:
-				bodset = 2
-			elseif strenbuf <= 40:
-				bodset = 0
-			else
-				bodset = 1
-			end
-		else
-			bodset = fixbodset
-		end
-	elseif (knowpreg = 1 or (preg = 1 and thinkpreg = 1) or (preg = 1 and PregChem > 3600)) and bodet ! 3 and bdsetlock = 0:
-		bodset = 3
-	elseif preg = 0 and bodset = 3 and bdsetlock = 0:
-		if strenbuf >= 70:
-			bodset = 2
-		elseif strenbuf <= 40:
-			bodset = 0
-		else
-			bodset = 1
-		end
-	end 
-
-	if (knowpreg = 1 or (preg = 1 and thinkpreg = 1) or (preg = 1 and PregChem > 3600)) and bodset = 3:
-		if PregChem > 6216:
-			$body = $bodimgsets[((bodset * 10) + 8)]
-		elseif PregChem < 2688:
-			$body = $bodimgsets[(bodset * 10)]
-		else 
-			$body = $bodimgsets[((bodset * 10)+((PregChem - 2184)/504))]
-		end
-	elseif salocatnow <= 7:
-		$body = $bodimgsets[((bodset * 10) + salocatnow)]
-	else
-		$body = $bodimgsets[((bodset * 10) + 7)]
-	end
-
-	!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-
-	!! kill temporary variables
-	killvar 'rand_pussy'
-	killvar 'rand_anus'
-	killvar 'rand_breasts'
-	killvar 'rand_hairmess'
-	killvar 'rand_hairword'
-	killvar 'rand_bangs'
-	killvar 'rand_hair'
-	killvar 'rand_hairstyle'
-	killvar 'rand_hairobject'
-	killvar 'rand_hairlength'
-	killvar 'rand_tongue'
-	killvar 'rand_lips'
-	killvar 'rand_lipgloss'
-	killvar 'rand_tan'
-	killvar 'rand_skin'
-	killvar 'rand_eyecol'
-	killvar 'rand_lashes'
-	killvar 'rand_vision'
-	killvar 'rand_eyesize'
-	killvar 'rand_makeup'
-	killvar 'rand_legs'
-	killvar 'rand_clit'
-	killvar 'rand_pubes'
-	killvar 'rand_nipples'
-	killvar 'tempclothingbonus'
-	killvar 'tempAccessoriesBonus'
-	killvar 'tempGroomingBonus'
-	killvar 'tempGroomingPenalty'
-end
-
-if $ARGS[0] = 'calcClothesBonus':
-	!! Note there is a limit of 9 args
-	tempPXCloThinness = ARGS[1] & !! PXCloThinness
-	tempPXCloTopCut = ARGS[2] & !! PXCloTopCut
-	tempPXCloBottomShortness = ARGS[3] & !! PXCloBottomShortness
-	tempPCloQuality = ARGS[4] & !! PCloQuality
-	$tempclothingworntype = $ARGS[5] & !!$clothingworntype
-	tempbmi_calc = ARGS[6] & !! bmi_calc
-
-	if tempbmi_calc < 16:
-		!!severely underweight
-		if $tempclothingworntype = 'nude':
-			tempRevealing = 0
-			tempPCloQuality = 1
-		else
-			tempRevealing = (400 - tempPXCloThinness) + (500 - tempPXCloTopCut) + (400 - tempPXCloBottomShortness)
-			tempRevealing = tempRevealing / 2
-		end
-	elseif tempbmi_calc >= 16 and tempbmi_calc < 19:
-		!!underweight
-		if $tempclothingworntype = 'nude':
-			tempRevealing = 0
-			tempPCloQuality = 1
-		else
-			tempRevealing = (400 - tempPXCloThinness) + (500 - tempPXCloTopCut) + (400 - tempPXCloBottomShortness)
-			tempRevealing = tempRevealing / 2
-		end
-	elseif tempbmi_calc >= 19 and tempbmi_calc < 25:
-		!!normal, healthy weight
-		if $tempclothingworntype = 'nude':
-			tempRevealing = 405
-			tempPCloQuality = 3
-		else
-			tempRevealing = tempPXCloThinness + tempPXCloTopCut + tempPXCloBottomShortness
-			tempRevealing = tempRevealing / 2
-		end
-	elseif tempbmi_calc >= 25 and tempbmi_calc < 30:
-		!!overweight
-		if $tempclothingworntype = 'nude':
-			tempRevealing = 405
-			tempPCloQuality = 3
-		else
-			tempRevealing = tempPXCloThinness + tempPXCloTopCut + tempPXCloBottomShortness
-			tempRevealing = tempRevealing / 2
-		end
-	elseif tempbmi_calc >= 30 and tempbmi_calc < 35:
-		!!moderately obese
-		if $tempclothingworntype = 'nude':
-			tempRevealing = 0
-			tempPCloQuality = 1
-		else
-			tempRevealing = (400 - tempPXCloThinness) + (500 - tempPXCloTopCut) + (400 - tempPXCloBottomShortness)
-			tempRevealing = tempRevealing * 3 / 4
-		end
-	elseif tempbmi_calc >= 35 and tempbmi_calc < 40:
-		!!severely obese
-		if $tempclothingworntype = 'nude':
-			tempRevealing = 0
-			tempPCloQuality = 1
-		else
-			tempRevealing = (400 - tempPXCloThinness) + (500 - tempPXCloTopCut) + (400 - tempPXCloBottomShortness)
-			tempRevealing = tempRevealing * 3 / 4
-		end
-	elseif tempbmi_calc >= 40 and tempbmi_calc < 45:
-		!!very severely obese
-		if $tempclothingworntype = 'nude':
-			tempRevealing = 0
-			tempPCloQuality = 1
-		else
-			tempRevealing = (400 - tempPXCloThinness) + (500 - tempPXCloTopCut) + (400 - tempPXCloBottomShortness)
-			tempRevealing = tempRevealing * 3 / 4
-		end
-	elseif tempbmi_calc >= 45:
-		!!morbidly obese
-		if $tempclothingworntype = 'nude':
-			tempRevealing = 0
-			tempPCloQuality = 1
-		else
-			tempRevealing = (400 - tempPXCloThinness) + (500 - tempPXCloTopCut) + (400 - tempPXCloBottomShortness)
-			tempRevealing = tempRevealing * 3 / 4
-		end
-	end
-
-	tempRevealing = tempRevealing / 76
-
-	tempCloAdjustedBeauty = tempRevealing * tempPCloQuality
-
-	!!if $tempclothingworntype = 'danilovich_outfits': tempCloAdjustedBeauty = tempCloAdjustedBeauty * 2 / 3
-
-	result = tempCloAdjustedBeauty
-
-	killvar 'tempPXCloThinness'
-	killvar 'tempPXCloTopCut'
-	killvar 'tempPXCloBottomShortness'
-	killvar 'tempPCloQuality'
-	killvar '$tempclothingworntype'
-	killvar 'tempRevealing'
-	killvar 'tempCloAdjustedBeauty'
-	killvar 'tempbmi_calc'
-end
-
-if $ARGS[0] = 'calcAccessoriesBonus':
-	tempcoatbonus = ARGS[1] & !! bonusZ
-	tempPShoQuality = ARGS[2] & !! PShoQuality
-	$temppantyworntype = $ARGS[3] & !! $pantyworntype
-	$tempbraworntype = $ARGS[4] & !! $braworntype
-	
-	!!bonuses for certain underwear
-	if $temppantyworntype = 'lusso':
-		temppantybounus = 4
-	elseif $temppantyworntype = 'fashionista':
-		temppantybounus = 2
-	end
-
-	if $tempbraworntype = 'lusso':
-		tempbrabounus = 4
-	elseif $tempbraworntype = 'fashionista':
-		tempbrabounus = 2
-	end
-
-	tempAccessoriesBonus = tempcoatbonus + tempPShoQuality + temppantybounus + tempbrabounus
-
-	result = tempAccessoriesBonus
-	killvar 'tempcoatbonus'
-	killvar 'tempPShoQuality'
-	killvar 'temppantybounus'
-	killvar 'tempbrabounus'
-	killvar '$temppantyworntype'
-	killvar '$tempbraworntype'
-	killvar 'tempAccessoriesBonus'
-end
-
-if $ARGS[0] = 'calcGroomingBonus':
-	!! Note there is a limit of 9 args
-	temppcs_lipbalm  = ARGS[1] & !! pcs_lipbalm
-	tempmakeupkoef = ARGS[2] & !! mopkoef 
-	temppcs_hairbsh = ARGS[3] & !! pcs_hairbsh
-	temppcs_breath = ARGS[4] & !! pcs_breath
-	tempdeodorant_on = ARGS[5] & !! deodorant_on
-	tempbmi_calc = ARGS[6] & !! bmi_calc
-
-	if temppcs_lipbalm > 0:
-		lipbalmKoef = 5
-	else
-		lipbalmKoef = 0
-	end
-
-	tempHairBonus = temppcs_hairbsh * 10
-
-	tempBreathBonus = temppcs_breath * 5
-
-	tempGroomingBonus = tempmakeupkoef + tempHairBonus + lipbalmKoef + tempBreathBonus
-
-	!!Small bonus for wearing deodorant, if pcs_sweat is low enough
-	if tempdeodorant_on = 1 and temppcs_sweat < 20: tempGroomingBonus += 5
-
-	tempGroomingBonus = FUNC('body_shape', 'bmiadjust', tempGroomingBonus, tempbmi_calc)
-
-	result = tempGroomingBonus
-
-	killvar 'temppcs_lipbalm'
-	killvar 'tempmakeupkoef'
-	killvar 'temppcs_hairbsh'
-	killvar 'temppcs_breath'
-	killvar 'tempdeodorant_on'
-	killvar 'tempHairBonus'
-	killvar 'tempBreathBonus'
-	killvar 'tempGroomingBonus'
-
-!! commented out as not used in the original calc
-!!Removed as primary appearance factors; will be eventually used in an NPC preference system instead; tanKoef = suntan
-!!	if temppcs_tan > 0:
-!!		tanKoef = 1
-!!	else
-!!		tanKoef = 0
-!!	end
-
-end
-
-if $ARGS[0] = 'calcGroomingPenalty':
-	temppcs_hairlng = ARGS[1] & !! pcs_hairlng
-	temppcs_sweat = ARGS[2] & !! pcs_sweat
-	tempglassvnesh = ARGS[3] & !! glassvnesh
-	tempdyevmod = ARGS[4] & !! dyevmod
-	templegkoef = ARGS[5] & !! legkoef
-
-	!! buzzcut penalty to pcs_apprnc
-	if temppcs_hairlng < 10:
-		hairkoef = 10
-	else
-		hairkoef = 0
-	end
-
-	if temppcs_sweat < 22:
-		sweatKoef = 0
-	elseif temppcs_sweat < 38:
-		sweatKoef = (temppcs_sweat - 10) / 4
-	elseif temppcs_sweat < 54:
-		sweatKoef = (temppcs_sweat - 10) / 2
-	else
-		sweatKoef = 3 * (temppcs_sweat - 10) / 4
-	end
-
-	tempGroomingPenalty = sweatKoef + tempglassvnesh + tempdyevmod + hairkoef + templegkoef
-
-	result = tempGroomingPenalty
-
-	killvar 'temppcs_hairlng'
-	killvar 'temppcs_sweat'
-	killvar 'tempglassvnesh'
-	killvar 'tempdyevmod'
-	killvar 'templegkoef'
-	killvar 'tempGroomingPenalty'
-end
-
-
-if $ARGS[0] = 'calcHotcat':
-	!!Appearance factors; hairkoef = very short hair / mopkoef = makeup bonus / legkoef = shaved legs / CloAdjustedBeauty = clothes / pcs_hairbsh = Hair brushed / lipbalmKoef = lip balm / pcs_breath = freash breath / sweatKoef = pcs_sweat / glassvnesh = glasses / dyevmod = hair dye fading
-	!!Moved to base calculation in "body_shape"; bimbobeauty = Bimbo bonus; pcs_lip = lip size; skin = skin condition; pcs_lashes = eyelashes; pcs_eyesize = eyes; bodykoef = hips:waist ratio; pcs_teeth = missing teeth; vidagebonus = youth
-	temppcs_apprncbase = ARGS[1] & !! pcs_apprncbase
-	tempsupnatvnesh = ARGS[2] & !! supnatvnesh
-	tempCloAdjustedBeauty = ARGS[3] & !! result of calcClothesBonus
-	tempAccessoriesBonus = ARGS[4] & !! result of calcAccessoriesBonus
-	tempGroomingBonus = ARGS[5] & !! result of calcGroomingBonus
-	tempGroomingPenalty = ARGS[6] & !! result of calcGroomingPenalty
-
-	temppcs_apprnc = temppcs_apprncbase + tempCloAdjustedBeauty + tempAccessoriesBonus + tempGroomingBonus - tempGroomingPenalty
-	!!adjustment to make max achievable
-	!!temppcs_maxapprnc = temppcs_apprnc*200/170
-	temppcs_maxapprnc = temppcs_apprnc
-
-	if temppcs_maxapprnc >= 200: 
-		temppcs_apprnc = 200
-	else
-		temppcs_apprnc = temppcs_maxapprnc
-	end 
-
-	temppcs_apprnc = temppcs_apprnc + tempsupnatvnesh
-
-	if temppcs_apprnc < 0: temppcs_apprnc = 0
-
-	!!This sets the "hotness catagory" varibale for use in checks
-	if temppcs_apprnc <= 200:
-		temphotcat = temppcs_apprnc / 20
-	else
-		temphotcat = 10
-	end
-
-	result = tempHotcat
-	!! do not kill temppcs_apprnc this is used as a second returned variable set pcs_apprnc = temppcs_apprnc and kill temppcs_apprnc after calling it
-	killvar 'tempsupnatvnesh'
-	killvar 'temppcs_apprncbase'
-	killvar 'tempCloAdjustedBeauty'
-	killvar 'tempGroomingBonus'
-	killvar 'tempGroomingBonus'
-	killvar 'tempGroomingPenalty'
-end 
-
-
---- body ---------------------------------

locations/unused/brosh.qsrc

@@ -1,219 +0,0 @@
-# brosh
-
-menu_off = 1
-minut += 60
-gs 'stat'
-
-evgentipe = rand(0,3)
-
-if evgentipe = 0:
-	'During the break you are greeted by Zhendos, a friend of your brother "<<$pcs_nickname>>! My little pet, come with me."'
-
-	act 'Go with him':
-		cls
-		gs'stat'
-
-		'You follow Zhendos behind the bike sheds.'
-
-		act 'Suck Zhendos':
-			cls
-			gs'stat'
-
-			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/afterschool/sex/bs.jpg"></center>'
-			'You crouch down in front of Zhendos, take his cock out of his pants and bring your face toward it. You dutifully wrap your lips around it and begin to suck.'
-
-			gs 'arousal', 'bj', 10, 'sub'
-			gs 'stat'
-
-			act 'Suck':
-				cls
-				gs 'cum_call', 'mouth_swallow', 'Zhendos', 1
-				gs 'stat'
-				'<center><img <<$set_imgh>> src="images/shared/sex/cum/mouth/cum50.jpg"></center>'
-				'Zhendos doesn''t last long and fills your mouth with sperm, you quickly swallow it down.'
-
-				gs 'arousal', 'bj', 10, 'sub'
-				gs 'arousal', 'end'
-				gs 'stat'
-
-				act 'Go back inside': gt 'gschool_lessons', 'short_break'
-			end
-		end
-	end
-	gs 'willpower', 'bj', 'resist'
-	if will_cost <= pcs_willpwr:
-		act 'Refuse (<<will_cost>> Willpower)':
-			gs 'willpower', 'bj', 'resist'
-			gs 'willpower', 'pay', 'resist'
-			gs 'stat'
-			gt 'gschool_lessons', 'short_break'
-		end
-	else
-		act 'Refuse (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
-	end
-
-	exit
-elseif evgentipe = 1:
-	'During the break you are greeted by Mishan, a friend of your brother "<<$pcs_nickname>>! Come with me, I have a treat for you."'
-
-	act 'Go with him':
-		cls
-		gs'stat'
-
-		'You follow Mishan behind the bike sheds.'
-
-		act 'Suck Mishanya':
-			cls
-			gs'stat'
-
-			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/afterschool/sex/bs1.jpg"></center>'
-			'You crouch down in front of Mishan, take his cock out of his pants and bring your face toward it. You dutifully wrap your lips around it and begin to suck.'
-
-			gs 'arousal', 'bj', 10, 'sub'
-			gs 'stat'
-
-			act 'Suck':
-				cls
-				gs 'cum_call', 'mouth_swallow', 'Mishan', 1
-				gs 'stat'
-				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/afterschool/sex/bscum'+rand(1,2)+'.jpg"></center>'
-				'Mishan doesn''t last long and fills your mouth with sperm, you quickly swallow it down.'
-
-				gs 'arousal', 'bj', 10, 'sub'
-				gs 'arousal', 'end'
-				gs 'stat'
-
-				act 'Go back inside': gt 'gschool_lessons', 'short_break'
-			end
-		end
-	end
-	gs 'willpower', 'bj', 'resist'
-	if will_cost <= pcs_willpwr:
-		act 'Refuse (<<will_cost>> Willpower)':
-			gs 'willpower', 'bj', 'resist'
-			gs 'willpower', 'pay', 'resist'
-			gs 'stat'
-			gt 'gschool_lessons', 'short_break'
-		end
-	else
-		act 'Refuse (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
-	end
-	
-	exit
-elseif evgentipe = 2:
-	'During the break you see your brother Kolka "<<$pcs_nickname>>! Follow me, I need to relieve some tension."'
-
-	act 'Go with him':
-		cls
-		gs'stat'
-
-		'You follow Kolka behind the bike sheds'
-		gs 'boyStat', 'A34'
-		act 'Suck Kolka':
-			cls
-			gs'stat'
-
-			'<center><img <<$set_imgh>> src="images/shared/sex/blowjob/bj43.jpg"></center>'
-			'You crouch down in front of Kolka, who takes his <<dick>> cm cock out of his pants and you bring your face toward it. You obediently wrap your lips around it and begin to suck.'
-
-			gs 'arousal', 'bj', 10, 'sub', 'incest'
-			gs 'stat'
-
-			act 'Suck':
-				cls
-				gs 'cum_call', 'mouth_swallow', 'Kolka', 1
-				gs 'stat'
-
-				'<center><img <<$set_imgh>> src="images/shared/sex/cum/mouth/cum43.jpg"></center>'
-				'Kolka doesn''t last long and fills your mouth with sperm, you make a show of swallowing it.'
-
-				gs 'arousal', 'bj', 10, 'sub', 'incest'
-				gs 'arousal', 'end'
-				gs 'stat'
-
-				act 'Go back inside': gt 'gschool_lessons', 'short_break'
-			end
-		end
-		if brotherSex > 6:
-			act 'Bend over':
-				cls
-				pose = 1
-				brosh_rand1 = rand(0,100)
-				gs 'stat'
-				'You decide: For your brother that simply won''t do, he should have some pussy.'
-				if brosh_rand1 < 5:'<center><img <<$set_imgh>> src="images/shared/sex/public/boysex.jpg"></center>'
-				if brosh_rand1 >= 5 and brosh_rand1 < 30:'<center><video autoplay loop src="images/shared/sex/public/publ1,<<rand(0,2)>>.mp4"></video></center>'
-				if brosh_rand1 >= 30:'<center><img <<$set_imgh>> src="images/shared/sex/public/publ1,<<rand(0,6)>>.jpg"></center>'
-				'You bend over and let your brother take you from behind.'
-				gs 'dinSex', 'wear_condom'
-				gs 'dinsex','vaginal_sex',10
-				gs 'dinsex','sexcum'
-
-				gs 'arousal', 'vaginal', 5, 'sub', 'incest'
-				gs 'arousal', 'end'
-				gs 'stat'
-
-				gs 'brother', 'brotherSexEnd'
-
-				act 'Go back inside': gt 'gschool_lessons', 'short_break'
-			end
-		end
-	end
-	gs 'willpower', 'bj', 'resist'
-	if will_cost <= pcs_willpwr:
-		act 'Refuse (<<will_cost>> Willpower)':
-			gs 'willpower', 'bj', 'resist'
-			gs 'willpower', 'pay', 'resist'
-			gs 'stat'
-			gt 'gschool_lessons', 'short_break'
-		end
-	else
-		act 'Refuse (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
-	end
-	
-	exit
-elseif evgentipe = 3:
-	'During the break you are greeted by Zhendos and Mishan, friends of your brother. "<<$pcs_nickname>>! Come with ust."'
-
-	act 'Go with them':
-		cls
-		gs'stat'
-
-		'You follow Zhendos and Mishan behind the bike sheds'
-
-		act 'Suck Guys':
-			cls
-			gs 'cum_call', 'mouth', 'Zhendos', 1
-			gs 'cum_call', 'mouth', 'Mishan', 1
-			swallow += 2
-			gs'stat'
-
-			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/afterschool/sex/bs2.jpg"></center>'
-			'You crouch down in front of the guys as they pull out their cocks, you take turns stroking and sucking each of them. The guys don''t last long and take turns finishing in your mouth, you swallow their seed hungrily.'
-
-			gs 'arousal', 'bj', 10, 'sub', 'group'
-			gs 'arousal', 'end'
-			gs 'stat'
-
-			act 'Go back inside': gt 'gschool_lessons', 'short_break'
-		end
-	end
-	gs 'willpower', 'bj', 'resist', 'hard'
-	if will_cost <= pcs_willpwr:
-		act 'Refuse (<<will_cost>> Willpower)':
-			gs 'willpower', 'bj', 'resist', 'hard'
-			gs 'willpower', 'pay', 'resist'
-			gs 'stat'
-			gt 'gschool_lessons', 'short_break'
-		end
-	else
-		act 'Refuse (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
-	end
-	
-	exit
-end
-
-!gt 'gschool_lessons', 'short_break'
-
---- brosh ---------------------------------
-

locations/unused/dangeon.qsrc

@@ -1,173 +0,0 @@
-# dangeon
-!2020/10/14/Gwen
-menu_off = 1
-
-$dundincif = {
-	cls
-	gs 'stat'
-	'8809 = 6'
-	'7111 = 0'
-	'2172 = 0'
-	'6666 = 4'
-	'1111 = 0'
-	'3213 = 0'
-	'7662 = 2'
-	'9312 = 1'
-	'0000 = 4'
-	'2222 = 0'
-	'3333 = 0'
-	'5555 = 0'
-	'8193 = 3'
-	'8096 = 5'
-	'7777 = 0'
-	'9999 = 4'
-	'7756 = 1'
-	'6855 = 3'
-	'9881 = 5'
-	'5531 = 0'
-	'Have a smart sense in such tomfoolery, because often clever fool walks.'
-
-	act 'Move away from labels':gt $curloc
-}
-
-$dundinboch = {
-	cls
-
-	if openstateDM2 = 0:openstateDM2 = 1
-
-	gs 'stat'
-	'Chimes hear soon reconcile those who quarrel.'
-
-	act 'Move away from the barrel':gt $curloc
-}
-
-$dundinsvitok = {
-	cls
-	svitokRTS = 1
-	heart += 1
-	gs 'stat'
-	'You picked up the scroll and he crumbled. As if you breathed in the wind. You listen to the feelings and understand that you have something changed. You feel like somewhere, as if in another dimension another beating heart belongs to you, which will die for you in battle.'
-
-	act 'Move away':gt $curloc
-}
-
-gs 'stat'
-
-if dungeonMark = 0:
-	'<center><img <<$set_imgh>> src="images/system/intro/shared/dunpre.jpg"></center>'
-	'The man-made cave in depth which shows the door.'
-
-	act 'Get out of the dungeon':minut += 5 & gt 'obekt2'
-	act 'Enter the door':minut += 5 & dungeonMark = 1 & gt $curloc
-elseif dungeonMark = 1:
-	'<center><img <<$set_imgh>> src="images/system/intro/shared/dunpre1.jpg"></center>'
-	'Quite large and deserted room in which there is nothing but a bunch of bones in the corner.'
-
-	act 'Leave':minut += 5 & dungeonMark = 0 & gt $curloc
-	act 'Go deep into':minut += 5 & dungeonMark = 2 & gt $curloc
-elseif dungeonMark = 2:
-	if svitokRTS = 1:exit
-
-	'<center><img <<$set_imgh>> src="images/system/intro/shared/dunpre2.jpg"></center>'
-	'Dilapidated gallery in the recesses of which are visible doors to other rooms.'
-
-	act 'Exit from the gallery':minut += 5 & dungeonMark = 1 & gt $curloc
-	act 'Sign in 1yu room':minut += 5 & dungeonMark = 3 & gt $curloc
-
-	act 'Sign in 2w room':
-		cls
-
-		if openstateDM = 1:
-			minut += 5
-			dungeonMark = 4
-			gt $curloc
-		end
-
-		if openstateDM = 0:
-			:markanotherrand
-			DMN[1] = rand(0, 9)
-			DMN[2] = rand(0, 9)
-			DMN[3] = rand(0, 9)
-			DMN[4] = rand(0, 9)
-
-			if DMN[1] = DMN[2] and DMN[1] = DMN[3] and DMN[1] = DMN[4]:jump 'markanotherrand'
-			if DMN[1] = 8 and DMN[2] = 8 and DMN[3] = 0 and DMN[4] = 9:jump 'markanotherrand'
-			if DMN[1] = 7 and DMN[2] = 1 and DMN[3] = 1 and DMN[4] = 1:jump 'markanotherrand'
-			if DMN[1] = 2 and DMN[2] = 1 and DMN[3] = 7 and DMN[4] = 2:jump 'markanotherrand'
-			if DMN[1] = 3 and DMN[2] = 2 and DMN[3] = 1 and DMN[4] = 3:jump 'markanotherrand'
-			if DMN[1] = 7 and DMN[2] = 6 and DMN[3] = 6 and DMN[4] = 2:jump 'markanotherrand'
-			if DMN[1] = 9 and DMN[2] = 3 and DMN[3] = 1 and DMN[4] = 2:jump 'markanotherrand'
-			if DMN[1] = 8 and DMN[2] = 1 and DMN[3] = 9 and DMN[4] = 3:jump 'markanotherrand'
-			if DMN[1] = 8 and DMN[2] = 0 and DMN[3] = 9 and DMN[4] = 6:jump 'markanotherrand'
-			if DMN[1] = 7 and DMN[2] = 7 and DMN[3] = 5 and DMN[4] = 6:jump 'markanotherrand'
-			if DMN[1] = 6 and DMN[2] = 8 and DMN[3] = 5 and DMN[4] = 5:jump 'markanotherrand'
-			if DMN[1] = 9 and DMN[2] = 8 and DMN[3] = 8 and DMN[4] = 1:jump 'markanotherrand'
-			if DMN[1] = 5 and DMN[2] = 5 and DMN[3] = 3 and DMN[4] = 1:jump 'markanotherrand'
-
-			i = 0
-			numdmr = 0
-			:markdnm
-			i += 1
-
-			if DMN[i] = 0 or DMN[i] = 6 or DMN[i] = 9:
-				numdmr += 1
-			elseif DMN[i] = 8:
-				numdmr += 2
-			end
-
-			if i < 4:jump 'markdnm'
-
-			numberOSDM = input("<<DMN[1]>><<DMN[2]>><<DMN[3]>><<DMN[4]>> >= ?")
-
-			if numberOSDM < 0 or numberOSDM > 8 or numdmr ! numberOSDM:
-				msg("Silence, nothing has changed")
-				gt $curloc
-			else
-				openstateDM = 1
-				msg("In the door that just clicked")
-				gt $curloc
-			end
-		end
-	end
-
-	if openstateDM2 = 2:act 'Sign in third room':minut += 5 & dungeonMark = 5 & gt $curloc
-elseif dungeonMark = 3:
-	'<center><img <<$set_imgh>> src="images/system/intro/shared/dunpre3.jpg"></center>'
-	'The room in which the middle stands a stone dais on which are various dusty bottles.'
-	'Scrawled on the wall of what is <a href="exec:dynamic $dundincif">signs</a>.'
-
-	act 'Leave the room':minut += 5 & dungeonMark = 2 & gt $curloc
-elseif dungeonMark = 4:
-	'<center><img <<$set_imgh>> src="images/system/intro/shared/dunpre4.jpg"></center>'
-	'Small room in which there are what that <a href="exec:dynamic $dundinboch">Drums</a>.'
-
-	act 'Leave the room':minut += 5 & dungeonMark = 2 & gt $curloc
-
-	if openstateDM2 = 1:
-		'In another barrel you see a device where you can enter numbers.'
-
-		act 'Enter the numbers':
-			cls
-			numberOSDM2 = input("12, 1, 1, 1, 2, 1, 3, ?, ?, ?, ?")
-
-			if numberOSDM2 = rikudootvet:
-				openstateDM2 = 2
-				msg("Outside that it rattled.")
-			else
-				msg("Silence, nothing has changed")
-			end
-
-			gt $curloc
-		end
-	end
-elseif dungeonMark = 5:
-	'<center><img <<$set_imgh>> src="images/system/intro/shared/dunpre5.jpg"></center>'
-	'The room in which the middle, sitting on a stone throne cobwebbed skeleton.'
-
-	if svitokRTS = 0:'In the hands of a skeleton lying <a href="exec:dynamic $dundinsvitok">scroll</a>.'
-
-	act 'Leave the room':minut += 5 & dungeonMark = 2 & gt $curloc
-end
-
---- dangeon ---------------------------------
-

locations/unused/enemy.qsrc

@@ -1,518 +0,0 @@
-# enemy
-!Calculation of the enemy''s attack
-if $ARGS[0] = 'start':
-	cla
-	!This block is selected on the basis of the variable program enemy attacks
-	if program = 0:
-		!Programme of Action of simple attackers fizuhoy
-		xgt'enemy','fighter'
-	elseif program = 1:
-		!Action Programme fizuha and knives
-		xgt'enemy','fighter2'
-	elseif program = 2:
-		!Action Programme fizuha, Knives, fog
-		xgt'enemy','fighter3'
-	elseif program = 3:
-		!Action Programme fizuha, Knives, fog, Clones
-		xgt'enemy','fighter4'
-	elseif program = 4:
-		!Action Programme fizuha, Knives, fog, Clones, paralysis
-		xgt'enemy','fighter5'
-	elseif program = 5:
-		!Action Programme kisame
-		xgt'enemy','kisame'
-	elseif program = 6:
-		!Action Programme Toby
-		xgt'enemy','tobi'
-	elseif program = 7:
-		!Action Programme Toby
-		xgt'enemy','gedomazo'
-	elseif program = 8:
-		!Action Programme firearms
-		xgt'enemy','gun'
-	elseif program = 9:
-		!Action Programme Sasori
-		xgt'enemy','sasori'
-	elseif program = 10:
-		!Action Programme Conan
-		xgt'enemy','konan'
-	elseif program = 11:
-		!Action Programme Hidan
-		xgt'enemy','hidan'
-	end
-end
-
-if $ARGS[0] = 'hidan':
-	cla
-	if zerkaloV > 0:barierV = 0
-	if zerkaloV <= 0:barierV = 5500
-	if healthV < vitalV*10 + strenV*5:healthV = vitalV*10 + strenV*5
-
-	if zerkaloV > 0:
-		healthV = vitalV*10 + strenV*5
-		manaV = intelV*magikV + magikV*100 + vitalV*10
-		willpowerV = willV*10
-		pcs_health = pcs_health - 400
-		pcs_mana -= 500
-
-		'<b><font color = red><<$boydesc>> shouts "RITUAL BEGINS!" and stands in a circle inscribed in blood on the ground.</font></b>'
-		'<b><font color = red>He stabs himself and you feel, pain pierces the body.</font></b>'
-
-		xgt'fight','sta'
-		exit
-	elseif zerkaloV <= 0 and defence > 0:
-		damTipV = 5000
-		bonusShV = 100
-		hidanAtk = 1
-
-		'<b><font color = red><<$boydesc>> shouts "Your existence offends my God DZHASHINA!" and throws you into a plait trehlezviynuyu driving it with the help of a rope.</font></b>'
-
-		if klon > 0:klon = klon/2 & '<b><font color = red><<$boydesc>> shouts "Crud! I''m like a pig slaughter YOU!"</font></b>'
-
-		xgt'atakA1','atak'
-		exit
-	elseif zerkaloV <= 0 and defence <= 0:
-		damTipV = 300
-		bonusShV = 100
-		hidanAtk = 1
-
-		'<b><font color = red><<$boydesc>> shouts "You will die a blasphemer!" and throws you into a plait trehlezviynuyu driving it with the help of a rope.</font></b>'
-
-		if klon > 0:klon = 0 & '<b><font color = red>Your clones turned into steam by hitting braids. <<$boydesc>> shouts "I IMMORTAL Ravager! And YOU SHIT!"</font></b>'
-		if tuman > 0:tuman = 0 & '<b><font color = red><<$boydesc>> shouts "You''re pathetic in their vain attempt to spryatatsya FROM ME!"</font></b>'
-
-		xgt'atakA1','atak'
-		exit
-	end
-end
-
-if $ARGS[0] = 'konan':
-	cla
-	if round < 6:
-		manaV = manaV - 10
-		damTipV = 500
-
-		'<b><font color = red><<$boydesc>> fold marks in his hands and you are flying sheets of paper.</font></b>'
-
-		if klon > 0:klon = 0 & '<b><font color = red>Your clones turned into steam by hitting paper.</font></b>'
-
-		xgt'atakA1','atak'
-		exit
-	elseif round >= 6:
-		if unmaterialV > 5 and defence > 0:
-			manaV = manaV - 250
-			damTipV = 15000
-			bonusShV = 100
-
-			'<b><font color = red><<$boydesc>> He takes to the air on the white wings and breaking out of its paper wings falls on you in a flood of flying with terrible speed paper swords.</font></b>'
-
-			if klon > 0:klon = 0 & '<b><font color = red>Your clones turned into steam by hitting paper.</font></b>'
-
-			xgt'atakA1','atak'
-			exit
-		elseif unmaterialV > 5 and defence <= 0:
-			manaV = manaV - 20
-			damTipV = 450
-
-			'<b><font color = red><<$boydesc>> creates paper boomerangs that fly in your direction.</font></b>'
-
-			xgt'atakA1','atak'
-			exit
-		elseif defenceV <= 0 and unmaterialV <= 5:
-			manaV = manaV - 250
-			defenceV = defenceV + 3000
-			defenceMV = defenceMV + 3000
-			defenceWV = defenceWV + 3000
-
-			'<b><font color = red>Conan shoots up on its paper wings like an angel. Around it starts spinning paper creating her protection.</font></b>'
-
-			xgt'fight','sta'
-			exit
-		elseif unmaterialV <= 2 and konanD < 3:
-			manaV = manaV - 150
-			konanD = konanD + 1
-
-			'<b><font color = red>Conan stops meditating in the air.</font></b>'
-
-			xgt'fight','sta'
-			exit
-		elseif konanD >= 3:
-			manaV = manaV - 250
-			konanD = 0
-			unmaterialV = 20
-
-			'<b><font color = red>Conan disintegrates in the air into thousands of sheets of paper.</font></b>'
-
-			xgt'fight','sta'
-			exit
-		end
-	end
-end
-
-if $ARGS[0] = 'sasori':
-	cla
-	if SasoriBody > 1:damTipV = 1000
-	if SasoriBody = 1:damTipV = 2000
-	poisonAV = 1
-	defenceV = defenceV + 10
-	defenceMV = defenceMV + 20
-	defenceWV = defenceWV + 50
-	manaV = manaV - 10
-
-	if SasoriBody = 1 and defence > 0:
-		defSasori = defence*20/100
-		defence = defence - defSasori
-		'<b><font color = red>On top of falling rain of steel needles greatly weakening your defense.</font></b>'
-	end
-
-	'<b><font color = red><<$boydesc>> It is shooting at you by a cloud of poisonous spines.</font></b>'
-
-	if klon > 0:klon = 0 & '<b><font color = red>Your clones turned into steam from the blow needle.</font></b>'
-
-	xgt'atakA1','atak'
-end
-
-if $ARGS[0] = 'gedomazo':
-	cla
-	if klon <= 0 and tuman <= 0:
-		magweapbonusV = 5000
-
-		'<b><font color = red><<$boydesc>> with a furious roar of effort on you for its huge stone fist.</font></b>'
-
-		xgt'atak','enemy'
-		exit
-	elseif klon > 0 or tuman > 0:
-		klon = 0
-		tuman = 0
-		manaV = manaV - 500
-
-		'<b><font color = red><<$boydesc>> issue a terrible roar and shock wave sweeps the air over the battlefield.</font></b>'
-
-		xgt'fight','sta'
-		exit
-	end
-end
-
-if $ARGS[0] = 'tobi':
-	cla
-	!Toby software attacks
-	if unmaterialV <= 0 and IzanagiV = 0 and GedoMazo = 0:
-		*clr
-		'<b><font color = red><<$boydesc>> put his fingers to his lips and said quietly, "KUCHIE SAINT BUT JITSU".</font></b>'
-		'<b><font color = red>You will see a giant stone statue of a demon and threw herself at you in attack.</font></b>'
-
-		GedoMazo = 1
-		gs 'boyStat', 'A168'
-		!The stats
-		strenV = 1000
-		speedV = 100
-		agilV = 90
-		reactV = 100
-		vitalV = 5000
-		intelV = 50
-		willV = 50
-		!Skills
-		magikV = 1
-		boxingV = 100
-		shootV = 100
-		!Parameters
-		healthV = vitalV*10 + strenV*5
-		manaV = intelV*magikV + magikV*100 + vitalV*10
-		willpowerV = willV*10
-		BonusAtakV = 0
-		BonusDefV = 0
-		!Action Programme
-		barierV = 1500
-		program = 7
-		xgt'fight','start'
-		exit
-	elseif unmaterialV <= 2 and IzanagiV = 0 and GedoMazo > 0 and TobiStena = 0:
-		manaV = manaV - 500
-		TobiStena = 1
-		defenceV = defenceV + 25000
-
-		'<b><font color = red><<$boydesc>> Arcanum makes his skin blackens solidifying his body and creating protection 25000 units.</font></b>'
-
-		barierV = 2000
-
-		xgt'fight','sta'
-		exit
-	elseif unmaterialV <= 2 and IzanagiV = 0 and GedoMazo > 0 and TobiStena = 1:
-		manaV = manaV + 6000
-		TobiStena = 2
-
-		'<b><font color = red><<$boydesc>> Arcanum and makes you feel like its magical energy increases sharply.</font></b>'
-
-		xgt'fight','sta'
-		exit
-	elseif stun > 0:
-		magweapbonusV = 2000
-
-		'<b><font color = red><<$boydesc>> said triumphantly, "NOW you''re dead".</font></b>'
-		'<b><font color = red>It grabs you by the throat and raises his hand in the air.</font></b>'
-		'<b><font color = red>His fingers were like steel and they squeeze your throat with terrible force.</font></b>'
-
-		xgt'atak','enemy'
-		exit
-	elseif defence >= 5000:
-		defence = 0
-		defenceM = 0
-		defenceActPar = 0
-		defenceActParM = 0
-		defenceAct = 0
-		defenceActM = 0
-		defAtk = 0
-		manaV = manaV - 100
-		stunV = 1
-
-		'<b><font color = red><<$boydesc>> Close your eyes and you will see, of it as a tear ran down a drop of blood.</font></b>'
-		'<b><font color = red>He opened his eyes became completely red with black streaks and said Amaterasu</font></b>'
-		'<b><font color = red>In your face black devouring flames rushed to destroy your lightning protection.</font></b>'
-
-		xgt'fight','sta'
-		exit
-	elseif tuman > 0:
-		tumanV = tumanV + tuman
-		tuman = 0
-
-		'<b><font color = red><<$boydesc>> adds magic signs hands and your fog coming under his control enveloping you review.</font></b>'
-		'<b><font color = red>He attacks you.</font></b>'
-
-		xgt'atak','enemy'
-		exit
-	elseif unmaterialV > 0 and klon <= 0:
-		stunnerV = 1
-		manaV = manaV - 20
-		magweapbonusV = 800
-
-		'<b><font color = red><<$boydesc>> attacks have gathered mana in the arm.</font></b>'
-
-		xgt'atak','enemy'
-		exit
-	elseif unmaterialV > 0 and klon > 0:
-		klon = 0
-		stunV = 1
-
-		'<b><font color = red><<$boydesc>> adds signs hands and all your clones simply turn into steam.</font></b>'
-
-		xgt'atak','enemy'
-		exit
-	elseif unmaterialV <= 0 and tobizanagi < 2:
-		manaV = manaV - 250
-		tobizanagi = tobizanagi + 1
-		!unmaterialV = 10
-
-		'<b><font color = red><<$boydesc>> adds signs hands.</font></b>'
-
-		xgt'fight','sta'
-		exit
-	elseif unmaterialV <= 0 and tobizanagi = 2:
-		manaV = manaV - 250
-		tobizanagi = 0
-		unmaterialV = 20
-		stunV = 1
-
-		'<b><font color = red><<$boydesc>> signs and puts his hands around his eyes twisted vortex.</font></b>'
-
-		xgt'fight','sta'
-		exit
-	end
-end
-
-if $ARGS[0] = 'kisame':
-	cla
-	!software attacks Kisame
-	if defenceV <= 0 and kisamePro = 0:
-		kisamePro = 1
-		manaV = manaV - 150
-		defenceV = defenceV + 1500
-		defenceMV = defenceMV + 1500
-		defenceWV = defenceWV + 1500
-		defenceActParV = 500
-		defenceActParMV = 500
-		defenceActV = 10
-		defenceActMV = 10
-
-		'<b><font color = red><<$boydesc>> fold marks around his hands and formed a water sphere of protecting it from damage.</font></b>'
-
-		xgt'fight','sta'
-		exit
-	elseif defenceV <= 1000 and kisamePro > 0:
-		manaV = manaV - 500
-		defenceV = defenceV + 5000
-		defenceMV = defenceMV + 5000
-		defenceWV = defenceWV + 5000
-		defenceActParV = 500
-		defenceActParMV = 500
-		defenceActV = 10
-		defenceActMV = 10
-		defAtkMV = 10
-
-		'<b><font color = red><<$boydesc>> adds signs hands and space around it begins to sink into the water.</font></b>'
-
-		if klon > 0:klon = 0 & '<b><font color = red>Your clones turned into steam from the impact of water.</font></b>'
-
-		xgt'fight','sta'
-		exit
-	elseif defenceV > 1000:
-		kisameRAND = RAND(0,3)
-		if kisameRAND = 0:
-			klonV = klonV + 3
-
-			'<b><font color = red><<$boydesc>> adds signs hands.</font></b>'
-
-			xgt'fight','sta'
-			exit
-		elseif kisameRAND > 0:
-			manaV = manaV - 250
-			damTipV = 1500
-			damTipMV = 2500
-			bonusShV = 50
-
-			'<b><font color = red><<$boydesc>> fold marks in his hands and you are flying out of the water by a shark.</font></b>'
-
-			if klon > 0:klon = 0 & '<b><font color = red>Your clones turned into steam from the impact of water.</font></b>'
-
-			xgt'atakA1','atak'
-			exit
-		end
-	end
-
-	'<b><font color = red><<$boydesc>> attacks.</font></b>'
-
-	xgt'enemy','fighter'
-end
-
-if $ARGS[0] = 'gun':
-	cla
-	!program directly attacks
-	!gs'atak'
-	damTipV = 1500
-
-	'<b><font color = red><<$boydesc>> shooting at you.</font></b>'
-
-	xgt'atakA1','atak'
-end
-
-if $ARGS[0] = 'fighter':
-	cla
-	!program directly attacks
-	!gs'atak'
-	xgt'atak','enemy'
-end
-
-if $ARGS[0] = 'fighter2':
-	cla
-	!program directly attacks
-	deystrand = RAND(0,1)
-	if deystrand = 0:
-		xgt'atak','enemy'
-	elseif deystrand = 1:
-		knifeV = RAND(1,3)
-
-		'<b><font color = red><<$boydesc>> throws in you <<knifeV>> knives</font></b>'
-
-		xgt'atak','enemy'
-	end
-end
-
-if $ARGS[0] = 'fighter3':
-	cla
-	!program directly attacks
-	if tuman = 0 and tumanV < 5 and manaV > 10:
-		manaV = manaV - 10
-		tumanV = tumanV + 10
-
-		'<b><font color = red><<$boydesc>> produces a fog on the battlefield.</font></b>'
-
-		xgt'fight','sta'
-		exit
-	end
-
-	deystrand = RAND(0,1)
-	if deystrand = 0:
-		xgt'atak','enemy'
-	elseif deystrand = 1:
-		knifeV = RAND(1,3)
-
-		'<b><font color = red><<$boydesc>> throws in you <<knifeV>> knives</font></b>'
-
-		xgt'atak','enemy'
-	end
-end
-
-if $ARGS[0] = 'fighter4':
-	cla
-	!program directly attacks
-	if tuman = 0 and tumanV < 5 and manaV > 10:
-		manaV = manaV - 10
-		tumanV = tumanV + 10
-
-		'<b><font color = red><<$boydesc>> produces a fog on the battlefield.</font></b>'
-
-		xgt'fight','sta'
-		exit
-	elseif klonV < 1 and manaV > 15:
-		manaV = manaV - 15
-		klonV = klonV + 1
-
-		'<b><font color = green>LOST</font></b>'
-
-		xgt'fight','sta'
-		exit
-	end
-
-	deystrand = RAND(0,1)
-	if deystrand = 0:
-		xgt'atak','enemy'
-	elseif deystrand = 1:
-		knifeV = RAND(1,3)
-
-		'<b><font color = red><<$boydesc>> throws in you <<knifeV>> knives</font></b>'
-
-		xgt'atak','enemy'
-	end
-end
-
-if $ARGS[0] = 'fighter5':
-	cla
-	!program directly attacks
-	if tuman = 0 and tumanV < 5 and manaV > 10:
-		manaV = manaV - 10
-		tumanV = tumanV + 10
-
-		'<b><font color = red><<$boydesc>> produces a fog on the battlefield.</font></b>'
-
-		xgt'fight','sta'
-		exit
-	elseif klonV < 1 and manaV > 15:
-		manaV = manaV - 15
-		klonV = klonV + 1
-
-		'<b><font color = green>LOST</font></b>'
-
-		xgt'fight','sta'
-		exit
-	elseif stun < 1 and pcs_mana > 20:
-		stunnerV = 1
-		manaV = manaV - 20
-
-		'<b><font color = red><<$boydesc>> attacks you Gouge.</font></b>'
-
-		xgt'atak','enemy'
-	end
-
-	deystrand = RAND(0,1)
-	if deystrand = 0:
-		xgt'atak','enemy'
-	elseif deystrand = 1:
-		knifeV = RAND(1,3)
-
-		'<b><font color = red><<$boydesc>> throws in you <<knifeV>> knives</font></b>'
-
-		xgt'atak','enemy'
-	end
-end
-
---- enemy ---------------------------------
-

locations/unused/init.qsrc

@@ -1,135 +0,0 @@
-# init
-!Calculation initiative
-!Be sure to check for mills
-!hod variable is responsible for who will attack
-!hod = 0 player attacks hod = 1 enemy attacks
-!<font color = red><<$pcs_nickname>> </font>
-
-if GedoMazo = 1 and stunV > 0:stunV = 0 & manaV = manaV - 1000 & '<font color = red><<$boydesc>> lets out a deafening roar. It rejuvenates a large amount of energy which allows him to attack you again.</font>'
-
-initi = pcs_react*20/100
-initi = initi - dospehVes
-if initi < 0:initi = 0
-init = RAND(pcs_react-initi,pcs_react+initi) + initBonus
-initiV = reactV*20/100
-initiV = initiV - dospehVesV
-if initiV < 0:initiV = 0
-initV = RAND(reactV-initiV,reactV+initiV) + initBonusV
-
-if hodtime >= 3 and stun = 0 and stunV = 0 and initBonus = 0:
-	!the player has already attacked three times
-	'<font color = red><<$boydesc>> took the initiative.</font>'
-
-	hod = 1
-	hodtime = 0
-	exit
-elseif hodtimeV >= 3 and stun = 0 and stunV = 0 and initBonusV = 0:
-	!the opponent three times already attacked
-	'<font color = green>You take the initiative.</font>'
-
-	hod = 0
-	hodtimeV = 0
-	exit
-end
-
-if stun = 0 and stunV = 0 and hodtime < 3 and hodtimeV < 3 or stun = 0 and stunV = 0 and initBonus > 0 or stun = 0 and stunV = 0 and initBonusV > 0:
-	!neither in the camp
-	if tuman = 0 and tumanV = 0:
-		!no fog
-		if init > initV:
-			!initiative tackler
-			'<font color = green>You take the initiative.</font>'
-
-			hod = 0
-			hodtime = hodtime + 1
-			exit
-		elseif init < initV:
-			!the initiative has captured the enemy
-			'<font color = red><<$boydesc>> took the initiative.</font>'
-
-			hod = 1
-			hodtimeV = hodtimeV + 1
-			exit
-		elseif init = initV:
-			hod = RAND(0,1)
-			if hod = 0:'<font color = green>You barely take the initiative.</font>'
-			if hod = 1:'<font color = red><<$boydesc>> barely took the initiative.</font>'
-			exit
-		end
-	elseif tuman > 0:
-		!fog player
-		tuman = tuman - 1
-		initV = reactV-initiV
-
-		if init > initV:
-			!initiative tackler
-			'<font color = green>Blinded by the mist <<$boydesc>> can''t find you, giving you the initiative.</font>'
-
-			hod = 0
-			hodtime = hodtime + 1
-			exit
-		elseif init < initV:
-			!the initiative has captured the enemy
-			'<font color = red><<$boydesc>> could find you through the mist. He takes the initiative.</font>'
-
-			hod = 1
-			hodtimeV = hodtimeV + 1
-			exit
-		elseif init = initV:
-			hod = RAND(0,1)
-			if hod = 0:'<font color = green>You were barely able to take the initiative despite the mist.</font>'
-			if hod = 1:'<font color = red>Despite the mist <<$boydesc>> still took the initiative.</font>'
-			exit
-		end
-	elseif tumanV > 0:
-		!fog opponent
-		tumanV = tumanV - 1
-		init = pcs_react-initi
-
-		if init > initV:
-			!initiative tackler
-			'<font color = green>Despite the mist, you managed to take the initiative.</font>'
-
-			hod = 0
-			hodtime = hodtime + 1
-			exit
-		elseif init < initV:
-			!the initiative has captured the enemy
-			'<font color = red><<$boydesc>> The enemy easily gains the initiative.</font>'
-
-			hod = 1
-			hodtimeV = hodtimeV + 1
-			exit
-		elseif init = initV:
-			hod = RAND(0,1)
-			if hod = 0:'<font color = green>You barely managed to take the initiative despite the mist.</font>'
-			if hod = 1:'<font color = red><<$boydesc>> The enemy easily gains the initiative by using the mist.</font>'
-			exit
-		end
-	end
-end
-
-if stun > 0:
-	!player in the camp
-	stun = stun - 1
-	hod = 1
-	if tuman > 0:tuman = tuman - 1
-	if tumanV > 0:tumanV = tumanV - 1
-
-	'<font color = red>You can not move, and <<$boydesc>> easy to takes the initiative.</font>'
-
-	exit
-elseif stunV > 0:
-	!the enemy in the camp
-	stunV = stunV - 1
-	hod = 0
-	if tuman > 0:tuman = tuman - 1
-	if tumanV > 0:tumanV = tumanV - 1
-
-	'<font color = green><<$boydesc>> can not move and you easily take the initiative.</font>'
-
-	exit
-end
-
---- init ---------------------------------
-

locations/unused/krutishi.qsrc

@@ -1,170 +0,0 @@
-# krutishi
-!2021/05/02
-
-if npc_grupTipe['A<<numnpc>>'] = 1:
-	if npc_gender['A<<numnpc>>'] = 0 and pcs_hairbsh = 0:
-		npc_rel['A<<numnpc>>'] -= 5
-		'<<$npc_firstname[''A<<numnpc>>'']>> looks at you and smiles at your messy hair.'
-	elseif npc_gender['A<<numnpc>>'] = 1 and pcs_hairbsh = 0:
-		npc_rel['A<<numnpc>>'] -= 5
-		'<<$npc_firstname[''A<<numnpc>>'']>> looks at you and smiles at your messy hair.'
-	elseif npc_gender['A<<numnpc>>'] = 0 and pcs_hairbsh > 0 and $loc = 'pav_disco' and npc_rel['A<<numnpc>>'] >= 40:
-		if PCloSkirt > 0:
-			cla
-			'<<$npc_firstname[''A<<numnpc>>'']>>: "Care for a dance?"'
-
-			act 'Dance':
-				cls
-				minut += 30
-				npc_rel['A<<numnpc>>'] += 5
-				pcs_stam -= 5
-				gs 'sweat', 'add', 3
-				fat -= 1
-				gs 'exp_gain', 'danc', rand(1,3)
-
-				if numnpc = 1:pcs_mood = 100
-
-				gs 'stat'
-				'He takes you by the hand and leads you onto the dance floor. You hear the first few tunes of a song - you know and like it, it''s a classic, but if somebody asked you what it''s called, you wouldn''t be able to tell them - and feel a joyous tingling in your belly as you dance with your partner.'
-				'This first song is followed by another good one, then another, and another.'
-				''
-				'Time flies, as they say, and before you know it, half an hour has passed.'
-
-				act 'You need a break - Move away':gt $loc, $loc_arg
-
-				if numnpc = 4 and npc_rel['A4'] >= 80:
-					!!Igor Kruglov
-					pcs_horny += 10
-					gs 'stat'
-
-					if IgorLoverQW > 0 and IgorDominaQW = 0:
-						'Igor whispers to you: "<<$pcs_nickname>>, I love you so much. Come with me."'
-
-						act 'Go with Igor':gt 'igorev', 'din_sex'
-					elseif IgorLoverQW > 0 and IgorDominaQW > 0:
-						'Igor whispers to you: "Mistress, I love you so much. Come with me."'
-
-						act 'Go with Igor':
-							if mc_inventory['strapon'] >= 1:
-								gt 'igorev', 'strap on'
-							else
-								gt 'igorev', 'din_sex'
-							end
-						end
-					elseif IgorLoverQW = 0:
-						'While you two are dancing, you feel Igor''s hands wander to the small of your back and further down, down to your ass which he gives a couple of good squeezes.'
-
-						if DimaRudeQW > 0:
-							'Igor leans to your ear and whispers: "Dimka told me that you were a fantastic cocksucker. How about we go outside and you show me if he''s right?"'
-
-							act 'Go outside with him':
-								cls
-								gs 'stat'
-								'You nod him yes and walk out of the disco with Igor, then slip around a corner to have a little privacy. Once you feel you''ve found a spot that''s secluded enough, Igor gives you a hungry kiss and lets his hands roam all over you, groping anything he can reach. Suddenly, you hear the sound of a zipper and feel Igor pushed you down - you''re too confused by how he managed to open his pants while he felt you up with both hands to even think about resisting.'
-								dynamic $din_igor_disco_bj
-							end
-
-							gs 'willpower', 'misc', 'resist', 'hard'
-							if will_cost <= pcs_willpwr:
-								act 'Refuse (<<will_cost>> Willpower)':
-									cls
-									gs 'willpower', 'pay', 'resist'
-									gs 'stat'
-									'You refuse to go outside with Igor. He doesn''t say a word in response but looks angry. Dimka, as if he had sensed your refusal, comes over and asks you what''s wrong. Igor shrugs: "Your cocksucker does not want to suck me off."' 
-									'Dimka frowns at you. "He''s my best friend. When he asks you to blow him, you just do it, as if it was me who asked. Now, let''s see about that blowjob!" He grabs your arm - you don''t know what it is about him but resistance seems futile. Igor, encouraged by Dimka''s action, takes the other, and the two of them lead you outside.'
-									dynamic $din_igor_dima_disco_bj
-								end
-							else
-								act 'Refuse (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
-							end	
-
-							exit
-						end
-
-						if npc_rel['A1'] = 0:
-							'Igor whispers into your ear: "Dimka told me that you dumped him. I get it, he can be a real asshole sometime."' 
-							'He pauses for a second. "<<$pcs_nickname>>, want to go outside and get some air?"'
-							'You feel that you could use some fresh air and agree.'
-							dynamic $din_igor__disco
-							exit
-						end
-
-						cla
-						'Igor whispers into your ear: "Hey <<$pcs_nickname>>, let''s go outside and get some fresh air."'
-						dynamic $din_igor__disco
-						exit
-					end
-				elseif numnpc = 1 and npc_rel['A1'] >= 80 and DimaRudeQW > 0:
-					'After the dance, Dimka holds onto your hand. "Let''s go outside."'
-
-					act 'Refuse':npc_rel['A1'] -= 5 & gt $loc, $loc_arg
-					act 'Go outside with Dimka':
-						cls
-						gs 'stat'
-						'You leave the club with Dimka and let him lead you away, to a more secluded spot. It doesn''t come as too big of a surprise when he turns to you with an imperious look. "You''re going to suck my dick now, pig."'
-
-						act 'Refuse':npc_rel['A1'] -= 5 & gt $loc, $loc_arg
-
-						dynamic $din_predlog_dima_bj
-					end
-				elseif numnpc = 1 and npc_rel['A1'] >= 80 and DimaRudeQW = 0:
-					'After the dance, Dimka keeps your hand in his. "Let''s go outside and get some fresh air."'
-
-					act 'Go outside with Dimka':
-						cls
-						gs 'stat'
-						'You go outside with Dimka and walk away from the club, eventually finding a quiet corner to yourselves. You''re surprised but also happy when Dimka suddenly turns to your and hugs you tightly. "<<$pcs_nickname>>, you''re such a pretty girl. Would you go out with me?"'
-
-						gs 'willpower', 'misc', 'self', 'hard'
-						if will_cost <= pcs_willpwr:
-							act 'No - This is all too sudden (<<will_cost>> Willpower)':
-								cls
-								gs 'willpower', 'pay', 'self'
-								gs 'stat'
-								'<center><b><font color="maroon"><<$npc_firstname[''A1'']>> <<$npc_lastname[''A1'']>></font></b></center>'
-								'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big1.jpg"></center>'
-								'You tell him "No" and give him an apologetic look. But to your surprise, Dimka grins. "Don''t be shy, <<$pcs_nickname>>, of course you want to go out with me. Why else would you be hanging out with me?"'
-
-								act 'Well, maybe you do have a little crush on him':
-									cls
-									gs 'stat'
-									'<center><b><font color="maroon"><<$npc_firstname[''A1'']>> <<$npc_lastname[''A1'']>></font></b></center>'
-									'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big1.jpg"></center>'
-									'"I don''t know", you say, embarrassed, "maybe?"'
-									'Dimka smiles and hugs you. "Of course. I knew it from the start. But... You know, I can''t be going out with some sort of nun - most girls here are prudes. I want a girl who knows how to enjoy herself... and you know how to have fun, right?"' 
-									'You nod carefully. Where is he going with this?'
-									'His smile get even bigger. "So, it''s simple: I''ll go out with you if you can prove to me that you''re not a prude. All you''ve gotta do... is suck my dick, right now."'
-									dynamic $din_dima_predlog
-								end
-
-								act 'Leave - You really don''t want to go out with him':gt $loc, $loc_arg
-							end
-						else
-							act 'No - This is all too sudden (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
-						end	
-
-						act 'Yes - You''ve always wanted a boyfriend like him':
-							cls
-							gs 'stat'
-							'<center><b><font color="maroon"><<$npc_firstname[''A1'']>> <<$npc_lastname[''A1'']>></font></b></center>'
-							'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big1.jpg"></center>'
-							'You were a little surprised by his directness but respond "Yes".'
-							'Dimka smiles. "Of course. I knew it from the start. But... You know, I can''t be going out with some sort of nun - most girls here are prudes. I want a girl who knows how to enjoy herself... and you know how to have fun, right?"' 
-							'You nod carefully. Where is he going with this?'
-							'His smile get even bigger. "So, it''s simple: I''ll go out with you if you can prove to me that you''re not a prude. All you''ve gotta do... is suck my dick, right now."'
-							dynamic $din_dima_predlog
-						end
-					end
-				end
-			end
-
-			act 'Refuse':npc_rel['A<<numnpc>>'] -= 5 & gt $loc, $loc_arg
-
-		exit
-
-		end
-	end
-end
-
---- krutishi ---------------------------------
-

locations/unused/location_settings.qsrc

@@ -1,6 +0,0 @@
-# location_settings
-
-
-
---- location_settings ---------------------------------
-

locations/unused/magik.qsrc

@@ -1,18 +0,0 @@
-# magik
-
-act 'Physical attacks':gt'boxing'
-
-$SpellListStr = '
-<center>
-	<h1>Choose a Spell to cast.</h1>
-	<br>' + func('spellBook','cast','$combatSpells') + '
-</center>'
-
-*pl func('cleanHTML',$SpellListStr)
-
-killvar '$SpellListStr'
-
-
-
---- magik ---------------------------------
-

locations/unused/npcbreeder.qsrc

@@ -1,92 +0,0 @@
-# npcbreeder
-
-!! This expects you to do a boystat a call for the receiver, and a boystat b call for the giver. example--- gs 'boystat', 'A14', 'a' & gs 'boystat' 'A34', 'b'
-
-if $ARGS[0] = '':
-	gs 'npcbreeder', 'insert'
-	gs 'npcbreeder', 'cum'
-end
-
-if $ARGS[0] = 'insert':
-	npcbrokehymen = 0
-	if npc_hymen[$boy1] < 3:
-		npcbrokehymen = 1
-		if $dick_girth2 = 'skinny' or $dick_girth2 = 'slim':
-			npc_hymen[$boy1] = 3
-		elseif $dick_girth2 = 'thick' or $dick_girth2 = 'massive':
-			npc_hymen[$boy1] = 5
-		elseif $dick_girth2 = 'monstrous':
-			npc_hymen[$boy1] = 6
-		else
-			npc_hymen[$boy1] = 4
-		end
-	elseif npc_hymen[boy1] = 3:
-		if $dick_girth2 = 'thick' or $dick_girth2 = 'massive' or $dick_girth2 = 'monstrous':
-			npc_hymen[$boy1] = 5
-		elseif rand(1,3) = 3:
-			npc_hymen[$boy1] += 1
-		end
-	elseif npc_hymen[boy1] < 6:	
-		if dick > npc_vag[$boy1] + 5 and rand(1,40) = 1:
-			npc_hymen[$boy1] += 1
-		elseif rand(1,500) = 1:
-			npc_hymen[$boy1] += 1
-		end
-	end
-end
-
-if $ARGS[0] = 'cum':
-	!! {Identifying the male potency.}
-	breedtemp[0] = npc_spermpot[$boy2]
-	
-	!! {Exiting for impotent or different species.}
-	if mid($boy1,1,1) = 'd': exit
-	if breedtemp[0] <= 0: exit
-
-	!! {Identifying the female fertility.}
-	if npc_fert[$boy1] ! 1: exit
-	breedtemp[1] = npc_cyc[$boy1]
-	breedtemp[4] = year - ((npc_dob[$boy1] - (npc_dob[$boy1] mod 10000)) / 10000)
-
-	!! {Culling the very young}
-	if breedtemp[4] < 9: exit
-
-	!! {Setting Risk of pregnancy. Roughly 1/3 at 300, 1/900 at 1.}
-	!! {Initial risk is determined by cycle status. 15-16 is "ovulated" and therefore perfect chance.}
-	if breedtemp[1] > 24 or breedtemp[1] < 7:
-		breedtemp[2] = 1
-	elseif breedtemp[1] > 17 or breedtemp[1] < 9:
-		breedtemp[2] = 5
-	elseif breedtemp[1] = 9:
-		breedtemp[2] = 10
-	elseif breedtemp[1] = 10:
-		breedtemp[2] = 50
-	elseif breedtemp[1] = 11 or breedtemp[1] > 16:
-		breedtemp[2] = 100
-	elseif breedtemp[1] = 12:
-		breedtemp[2] = 200
-	elseif breedtemp[1] = 13:
-		breedtemp[2] = 250
-	elseif breedtemp[1] = 14:
-		breedtemp[2] = 280
-	else
-		breedtemp[2] = 300
-	end
-	!! {Adjusting risk of pregnancy based on age. 1% change for each year, with a mean of 26.}
-	breedtemp[4] = 26 - breedtemp[4]
-	breedtemp[4] = (breedtemp[2] / 100) * breedtemp[4]
-	!! {Final chance calcuation}
-	breedtemp[3] = breedtemp[0] * (breedtemp[2] + breedtemp[4])
-
-	!! {Checking if she got knocked up, and setting the stats if she did.}
-	if rand(0,9000000) < breedtemp[3]:
-		npc_fert[$boy1] = 5
-		npc_cyc[$boy1] = 1
-		$npc_kidpater[$boy1] = $ARGS[0]
-	end
-	killvar 'breedtemp'
-end
-
-
---- npcbreeder ---------------------------------
-

locations/unused/porn_view.qsrc

@@ -1,670 +0,0 @@
-# porn_view
-$location_type = 'event'
-
-menu_off = 1
-
-act 'Go':
-	killvar '$_zz_boy_arr'
-	minut += iif(seepornofut < 4,rand(15,30),rand(60,80))
-	gt 'pav_residential'
-end
-
-! the initial string
-func('porn_view_strings', 'init0')
-
-if (seepornofut > 0 and seepornofut < 3) or (seepornofut = 0 and (sex + bj + hj + anal + kuni) > 0):
-	func('porn_view_strings', 'init1')
-end
-
-if seepornofut >= 3:
-	func('porn_view_strings', 'init2')
-end
-
-
-! the initial stage
-if seepornofut < 10:
-	if (sex + bj + hj + anal + kuni) = 0:
-		! gg no experience
-		! to escape can only first few times
-		if seepornofut < 3:
-			cla
-			act 'Escape': gt 'pav_residential'
-		end
-
-		if seepornofut = 0:
-			func('porn_view_strings', 'view_1_virgin')
-
-			seepornofut += 1
-			exit
-		end
-
-		if seepornofut > 0 and seepornofut < 3:
-			func('porn_view_strings', 'view_2_virgin')
-
-			! if escapes - view not sesitive
-			act 'Stay':
-				cla
-				seepornofut += 1
-				act 'Go': gt 'pav_residential'
-				func('porn_view_strings', 'view_2_virgin_next')
-
-				exit
-			end
-			exit
-		end
-
-		if seepornofut = 3 or seepornofut = 4:
-			func('porn_view_strings', 'view_3_virgin'+iif(pcs_horny > 70,'_horny',''))
-
-			seepornofut +=1
-			pcs_horny += 10
-			exit
-		end
-
-		if seepornofut = 5 or seepornofut = 6:
-			func('porn_view_strings', 'view_'+seepornofut+'_virgin'+iif(pcs_horny > 70,'_horny',''))
-
-			seepornofut += 1
-			pcs_horny += 10
-			exit
-		end
-
-		if seepornofut >= 7 and seepornofut < 10:
-			func('porn_view_strings', 'view_7_virgin'+iif(pcs_horny > 70,'_horny',''))
-
-			! is there underwear
-			if $pantyworntype = 'none':
-				func('porn_view_strings', 'view_7_virgin'+iif(pcs_horny > 70,'_horny_no_tanga','_no_tanga'))
-
-				! we`ve got skirt!
-				if PCloSkirt > 0:
-					func('porn_view_strings','view_7_virgin_horny_no_tanga_skirt')
-				end
-
-			end
-			seepornofut +=1
-			pcs_horny += 10
-			exit
-		end
-
-		exit
-	else
-		! he has experience
-		pcs_horny += rand(10,20)
-		if seepornofut < 3:
-			func('porn_view_strings', 'view_1')
-
-			seepornofut += 1
-			exit
-		end
-
-		if seepornofut = 3 or seepornofut = 4:
-			func('porn_view_strings', 'view_3'+iif(pcs_horny > 70,'_horny',''))
-
-			seepornofut += 1
-			exit
-		end
-
-		if seepornofut = 5:
-			func('porn_view_strings', 'view_5'+iif(pcs_horny > 70,'_horny',''))
-
-			! is there underwear
-			if $pantyworntype = 'none':
-				func('porn_view_strings', 'view_5'+iif(pcs_horny > 70,'_horny_no_tanga','_no_tanga'))
-			end
-
-			seepornofut += 1
-			exit
-		end
-
-		if seepornofut = 6:
-			func('porn_view_strings', 'view_6')
-
-			! is there underwear
-			if $pantyworntype = 'none':
-				func('porn_view_strings', 'view_6'+iif(pcs_horny > 70,'_horny_no_tanga','_no_tanga'))
-			end
-
-			func('porn_view_strings','view_6_next')
-
-			pcs_horny = 0
-			seepornofut += 1
-			exit
-		end
-
-		if seepornofut = 7:
-			func('porn_view_strings','view_7')
-
-			pcs_horny = 0
-			seepornofut += 1
-			exit
-		end
-
-		if seepornofut = 8:
-			pcs_horny = 0
-			seepornofut = 10
-
-			func('porn_view_strings','view_8')
-
-			func('porn_view_strings','view_8'+iif($pantyworntype = 'none','_no_tanga','_tanga'))
-
-			func('porn_view_strings','view_8_next')
-
-
-			! developed Svetka
-			if pcs_ass <= 15 and pcs_vag <= 15:
-				func('porn_view_strings','view_8_tight')
-
-				func('porn_view_strings','view_8_finish')
-
-				exit
-			end
-
-			if pcs_ass >= 15 and pcs_vag >= 15:
-				func('porn_view_strings','view_8_stretched_both')
-
-				func('porn_view_strings','view_8_finish')
-
-				exit
-			end
-
-			if pcs_ass >= 15:
-				func('porn_view_strings','view_8_stretched_anus')
-
-				func('porn_view_strings','view_8_finish')
-
-				exit
-			end
-
-			if pcs_vag >= 15:
-				func('porn_view_strings','view_8_stretched_vag')
-
-				func('porn_view_strings','view_8_finish')
-
-				exit
-			end
-			! -----
-			exit
-		end
-	end
-end
-
-! continue views
-if seepornofut >= 10:
-	orgasm += 1
-	pcs_mood += 20
-	!pcs_horny = 0
-	if seepornofut <= 14: mastr += 1
-
-	! name randomizer
-	$_init_arr[0] = 'Mishan'
-	$_init_arr[1] = 'Kolka'
-	$_init_arr[2] = 'Zhendos'
-	:loop_boys_names
-	i = rand(0,arrsize('$_init_arr')-1)
-	$_zz_boy_arr[] = $_init_arr[i]
-	killvar '$_init_arr', i
-	if arrsize('$_init_arr') > 1: jump 'loop_boys_names'
-	$_zz_boy_arr[] = $_init_arr[0]
-	killvar '$_init_arr'
-	! ---
-
-	if seepornofut = 10:
-		func('porn_view_strings', 'view_10')
-
-		func('porn_view_strings', 'view_10'+iif(pcs_horny>70,'_horny','_no_horny'))
-
-		seepornofut += 1
-		pcs_horny = 0
-		exit
-	end
-
-	if seepornofut = 11:
-		func('porn_view_strings', 'view_11')
-
-		seepornofut += 1
-		pcs_horny = 0
-		exit
-	end
-
-	if seepornofut = 12:
-		func('porn_view_strings', 'view_12')
-
-		seepornofut += 1
-		pcs_horny = 0
-		exit
-	end
-
-	if seepornofut = 13:
-		func('porn_view_strings', 'view_13')
-
-		func('porn_view_strings', 'view_13'+iif(pcs_horny>70,'_horny','_no_horny'))
-
-		if pcs_horny >= 70: seepornofut += 1
-		pcs_horny = 0
-		noshampoo = 1
-		dynamic $showerdin
-		exit
-	end
-
-	if seepornofut = 14:
-		func('porn_view_strings', 'view_14')
-
-		func('porn_view_strings', 'view_14'+iif($pantyworntype ! 'none','_tanga','_no_tanga'))
-
-		func('porn_view_strings', 'view_14'+iif(pcs_pubes>10,'_bush','_no_bush'))
-
-		func('porn_view_strings', 'view_14_next')
-		noshampoo = 1
-		dynamic $showerdin
-		pcs_horny = 0
-		stat['hj'] += 2
-		seepornofut += 1
-		exit
-	end
-
-	if seepornofut = 15:
-		func('porn_view_strings', 'view_15')
-
-		func('porn_view_strings', 'view_15_next'+iif(pcs_vag=0,'_virgin',iif(mesec>0,'_wdays','')))
-
-		func('porn_view_strings', 'view_15_fin')
-		noshampoo = 1
-		dynamic $showerdin
-		pcs_horny = 0
-		stat['hj'] += 3
-		seepornofut += 1
-		exit
-	end
-
-	if seepornofut = 16:
-		func('porn_view_strings', 'view_15')
-
-		func('porn_view_strings', 'view_15_next'+iif(pcs_vag=0,'_virgin',iif(mesec>0,'_wdays','')))
-
-		func('porn_view_strings', 'view_16')
-
-		func('porn_view_strings', 'view_16_next')
-
-		func('porn_view_strings', 'view_16_next'+iif(mesec>0,'_wdays',iif(pcs_vag=0,'_virgin','')))
-
-		func('porn_view_strings', 'view_16_next2')
-
-		func('porn_view_strings', 'view_16_next3'+iif(bj=0,'_virgin',''))
-
-		func('porn_view_strings', 'view_16_fin')
-
-		stat['bj'] += 3
-		stat['hj'] += 3
-		kuni += 1
-		guy += 3
-		gang += 1
-		pcs_horny = 0
-		brotherstat['vaginal'] += 1
-		gs 'cum_call', 'face', $boy
-		noshampoo = 1
-		dynamic $showerdin
-		seepornofut += 1
-		exit
-	end
-
-	if seepornofut = 17 or seepornofut = 18:
-		func('porn_view_strings', 'view_17')
-
-		func('porn_view_strings', 'view_17_next')
-
-		if rand(0,10) > 5:
-			kuni += 1
-			func('porn_view_strings', 'view_17_next_rand')
-		end
-
-		func('porn_view_strings', 'view_17_fin')
-
-		stat['bj'] += 1
-		stat['hj'] += 2
-		pcs_horny = 0
-		gs 'cum_call', 'face', $boy
-		noshampoo = 1
-		dynamic $showerdin
-		seepornofut += 1
-		exit
-	end
-
-	if seepornofut = 19:
-		func('porn_view_strings', 'view_19')
-
-		stat['bj'] += 3
-		kuni += 3
-		swallow += 3
-		pcs_horny = 0
-		gs 'cum_call', 'face', $boy
-		noshampoo = 1
-		dynamic $showerdin
-		seepornofut += 1
-		exit
-	end
-
-	if seepornofut = 20 or seepornofut = 21:
-		func('porn_view_strings', 'view_20')
-
-		if mesec > 0:
-			func('porn_view_strings', 'view_20_wdays')
-		end
-
-		func('porn_view_strings', 'view_20_end')
-
-		stat['bj'] += 3
-		kuni += 3
-		swallow += 3
-		pcs_horny = 0
-		gs 'cum_call', 'face', $boy
-		noshampoo = 1
-		dynamic $showerdin
-		seepornofut += 1
-		exit
-	end
-
-	if seepornofut = 22:
-		func('porn_view_strings', 'view_20')
-
-		if mesec > 0:
-			func('porn_view_strings', 'view_20_wdays')
-		end
-
-		func('porn_view_strings', 'view_22')
-
-		if pcs_vag > 0:
-			if mesec = 0:
-				func('porn_view_strings', 'view_22_no_virgin_no_wdays')
-			end
-
-			if mc_inventory['contraceptive_pill'] = 0 and mc_inventory['equipped_condoms'] = 0:
-				func('porn_view_strings', 'view_22_no_pills')
-			end
-
-			func('porn_view_strings', 'view_22_no_virgin')
-
-			stat['vaginal'] += 3
-			gang += 1
-			stat['bj'] += 3
-			brother_knows_not_virgin = 1
-			seepornofut = 31
-		else
-			func('porn_view_strings', 'view_22_virgin')
-
-			func('porn_view_strings', 'view_22_virgin'+iif(pcs_ass=0,'_first','')+'_anal')
-
-			swallow += 1
-			mastr += 1
-			if pcs_ass = 0: agape = 2
-			seepornofut = iif(pcs_ass = 0,23,24)
-			stat['anal'] += 1
-			if pcs_ass <= 5: pcs_ass += 1
-		end
-		pcs_horny = 0
-		gang += 1
-		swallow += 1
-		noshampoo = 1
-		dynamic $showerdin
-		exit
-	end
-
-	if seepornofut = 23:
-		func('porn_view_strings', 'view_23')
-
-		func('porn_view_strings', 'view_23'+iif(agape>0,'_pain','_anal'))
-
-		if agape > 0:
-			swallow += 3
-		else
-			stat['anal'] += 1
-			agape = 1
-			swallow += 2
-			if pcs_ass <= 5: pcs_ass += 1
-		end
-		pcs_horny = 0
-		stat['bj'] += 3
-		gang += 1
-		seepornofut += 1
-		noshampoo = 1
-		dynamic $showerdin
-		exit
-	end
-
-	if seepornofut >= 24 and seepornofut <= 26:
-		func('porn_view_strings', 'view_23')
-
-		func('porn_view_strings', 'view_'+iif(agape>0,'23_pain','24'))
-
-		if agape > 0:
-			swallow += 3
-		else
-			stat['anal'] += 1
-			swallow += 2
-			seepornofut += 1
-			if pcs_ass <= 5: pcs_ass += 1
-		end
-		pcs_horny = 0
-		stat['bj'] += 3
-		gang += 1
-		noshampoo = 1
-		dynamic $showerdin
-		exit
-	end
-
-	if seepornofut >= 27 and seepornofut <= 29:
-		func('porn_view_strings', 'view_23')
-
-		func('porn_view_strings', 'view_27'+iif(agape>0,'_pain',''))
-
-		if rand(0,10) > 5:
-			cla
-			act 'Continue':
-				*clr & cla
-				func('porn_view_strings', 'view_27_rand')
-
-				stat['anal'] += 3
-				stat['bj'] += 3
-				minut += 20
-				act 'Go':
-					noshampoo = 1
-					dynamic $showerdin
-					killvar '$_zz_boy_arr'
-					minut += iif(seepornofut < 4,rand(15,30),rand(60,80))
-					gt 'pav_residential'
-				end
-			end
-		end
-		stat['anal'] += 3
-		if pcs_ass <= 10: pcs_ass += 1
-		stat['bj'] += 3
-		gang += 1
-		seepornofut += 1
-		pcs_horny = 0
-		noshampoo = 1
-		dynamic $showerdin
-		exit
-	end
-
-	if seepornofut = 30:
-		func('porn_view_strings', 'view_30')
-
-		if mesec > 0:
-			func('porn_view_strings', 'view_30_anal')
-
-			stat['anal'] += 1
-			if pcs_ass <= 5: pcs_ass += 1
-		else
-			if pcs_vag > 0:
-				func('porn_view_strings', 'view_22_no_virgin_no_wdays')
-
-				if mc_inventory['contraceptive_pill'] = 0 and mc_inventory['equipped_condoms'] = 0:
-					func('porn_view_strings', 'view_22_no_pills')
-				end
-
-				func('porn_view_strings', 'view_30_sex')
-
-			else
-				func('porn_view_strings', 'view_30_first_sex')
-
-				vgape = 2
-			end
-			brother_knows_not_virgin = 1
-			if pcs_vag <= 5: pcs_vag += 1
-			stat['vaginal'] += 1
-			seepornofut += 1
-		end
-		gang += 1
-		stat['bj'] += 2
-		swallow += 2
-		pcs_horny = 0
-		noshampoo = 1
-		dynamic $showerdin
-		exit
-	end
-
-	if seepornofut = 31:
-		func('porn_view_strings', 'view_31')
-
-		if vgape > 0:
-			func('porn_view_strings', 'view_31_vpain')
-		end
-
-		if mesec > 0 or vgape > 0:
-			if pcs_ass = 0:
-				func('porn_view_strings', 'view_31_first_anal')
-
-				func('porn_view_strings', 'view_22_virgin_first_anal')
-
-				if pcs_ass = 0: agape = 2
-				stat['anal'] += 1
-				if pcs_ass <= 5: pcs_ass += 1
-				stat['bj'] += 2
-				swallow += 2
-			else
-				gs 'porn_view_construct', 'no_pussy'
-			end
-		else
-			func('porn_view_strings', 'view_31_sex')
-
-			func('porn_view_strings', 'view_22_no_pills')
-
-			gs 'porn_view_construct', 'vaginal'
-			if pcs_vag < 10: pcs_vag += 1
-			stat['vaginal'] += 3
-			seepornofut += 1
-			stat['bj'] += 3
-		end
-		gang += 1
-		pcs_horny = 0
-		noshampoo = 1
-		dynamic $showerdin
-		exit
-	end
-
-	if seepornofut >= 32 and seepornofut <= 35:
-		if pcs_sweat >= 2:
-			func('porn_view_strings', 'view_32_sweat')
-		end
-
-		if pcs_pubes > 10:
-			func('porn_view_strings', 'view_32_bush')
-
-			pcs_pubes = 0
-		end
-		gs 'porn_view_construct', iif(mesec > 0,'wdays','random')
-		seepornofut += 1
-		gang += 1
-		pcs_horny = 0
-		noshampoo = 1
-		dynamic $showerdin
-		exit
-	end
-
-	if seepornofut = 36:
-		func('porn_view_strings', 'view_36')
-
-		gs 'porn_view_construct', iif(mesec > 0,'wdays','dp')
-		seepornofut += 1
-		gang += 1
-		pcs_horny = 0
-		noshampoo = 1
-		dynamic $showerdin
-		exit
-	end
-
-	if seepornofut >= 37 and seepornofut <= 39:
-		func('porn_view_strings', 'view_40')
-
-		if mesec > 0:
-			gs 'porn_view_construct', 'wdays'
-		else
-			func('porn_view_strings', 'view_37')
-
-			func('porn_view_strings', 'view_37'+iif(pcs_vag<30,'_no_more','_more'))
-
-			func('porn_view_strings', 'view_37_next')
-
-			i = rand(0,10)
-			if i < 5: gs 'porn_view_construct', 'random'
-			if i >= 5 and i < 9: gs 'porn_view_construct', 'dp'
-			if i >= 9: gs 'porn_view_construct', 'no_pussy'
-			seepornofut += 1
-		end
-		pcs_horny = 0
-		gang += 1
-		noshampoo = 1
-		dynamic $showerdin
-		exit
-	end
-
-	if seepornofut = 40:
-		func('porn_view_strings', 'view_40')
-
-		if mesec > 0:
-			gs 'porn_view_construct', 'wdays'
-		else
-			func('porn_view_strings', 'view_36_dp0')+func('porn_view_strings', 'view_36_dp'+iif(pcs_vag>=30,2,1))
-
-			if mc_inventory['contraceptive_pill'] = 0 and mc_inventory['equipped_condoms'] = 0:
-				func('porn_view_strings', 'view_cum_in_mind'+rand(0,2))
-			end
-
-			func('porn_view_strings', 'view_36_fin')
-
-			stat['anal'] += 1
-			stat['vaginal'] += 2
-			stat['bj'] += 3
-			pcs_vag += 1
-			if pcs_ass <= 10: pcs_ass += 1
-			seepornofut += 1
-		end
-		pcs_horny = 0
-		gang += 1
-		noshampoo = 1
-		dynamic $showerdin
-		exit
-	end
-
-	if seepornofut > 40:
-		func('porn_view_strings', 'view_40')
-
-		func('porn_view_strings', 'view_41')
-
-		if mesec > 0:
-			gs 'porn_view_construct', 'wdays'
-		else
-			i = rand(0,10)
-			if i < 5: gs 'porn_view_construct', 'random'
-			if i >= 5 and i < 9: gs 'porn_view_construct', 'dp'
-			if i >= 9: gs 'porn_view_construct', 'no_pussy'
-		end
-		pcs_horny = 0
-		gang += 1
-		noshampoo = 1
-		dynamic $showerdin
-		exit
-	end
-end
---- porn_view ---------------------------------
-

locations/unused/porn_view_construct.qsrc

@@ -1,154 +0,0 @@
-# porn_view_construct
-! vaginal only
-if $args[0] = 'vaginal':
-	i = 0
-	:loop_bang
-	func('porn_view_strings', 'view_31_sex_next'+i)
-
-	if mc_inventory['contraceptive_pill'] = 0 and mc_inventory['equipped_condoms'] = 0:
-		func('porn_view_strings', 'view_31'+iif(rand(0,10)>(6+i),'_cum'+i,'_no_condom'))
-
-	else
-		if mc_inventory['contraceptive_pill'] > 0:
-			func('porn_view_strings', 'view_31_pills')
-
-		elseif mc_inventory['equipped_condoms'] > 0:
-			func('porn_view_strings', 'view_31_condom')
-
-			dynamic $prezik
-		end
-	end
-	i += 1
-	if i < 3: jump 'loop_bang'
-end
-
-! random w/o dp
-if $args[0] = 'random':
-	$_var_arr[0] = 'mouth'
-	$_var_arr[1] = 'pussy'
-	$_var_arr[2] = 'ass'
-	
-	_vaginal = 0
-	
-	! i = 0 - doggy
-	! i > 0 - missionary
-	
-	i = 0
-	:loop_random_bang
-	_var = rand(0,2)
-	if _var = 1: _vaginal += 1
-	! vaginal required
-	if i = 2 and _vaginal = 0: _var = 1
-	$sex_variant = $_var_arr[_var]
-	
-	func('porn_view_strings', 'view_pose_'+iif(i = 2 and _var = 1,3,i))
-
-	! mouth
-	if _var = 0: 
-		func('porn_view_strings', 'view_cum_on4')
-
-		stat['bj'] += 1
-		swallow += 1
-	end
-	! vag
-	if _var = 1:
-		gs 'porn_view_construct', 'cum_warning'
-		if i = 2: 
-			func('porn_view_strings', 'view_pose_4')
-		end
-
-		if mc_inventory['contraceptive_pill'] = 0 and mc_inventory['equipped_condoms'] = 0:
-			j = rand(0,10)
-			func('porn_view_strings', 'view_cum_on'+iif(j>(6+i),1,iif(i=0,2,5)))
-
-			if j>(6+i): 
-				func('porn_view_strings', iif(rand(0,1)=0,'view_cum_in'+rand(0,5),'view_cum_in_mind'+rand(0,2)))
-			end
-
-		else
-			if mc_inventory['contraceptive_pill'] > 0:
-				func('porn_view_strings', 'view_pills')
-
-			elseif mc_inventory['equipped_condoms'] > 0:
-				func('porn_view_strings', 'view_condom')
-
-				dynamic $prezik
-			end
-		end
-		stat['vaginal'] += 1
-	end
-	
-	! ass
-	if _var = 2: 
-		func('porn_view_strings', 'view_cum_on'+iif(i=0,rand(2,3),3))
-
-		stat['anal'] += 1
-	end
-
-	i += 1
-	if i < 3: jump 'loop_random_bang'
-	func('porn_view_strings', 'view_end')
-
-	killvar '_var'
-	killvar '_vaginal'
-	killvar '$_var_arr'
-end
-
-if $args[0] = 'dp':
-	func('porn_view_strings', 'view_36_dp0')+func('porn_view_strings', 'view_36_dp1')
-
-	if mc_inventory['contraceptive_pill'] = 0 and mc_inventory['equipped_condoms'] = 0: 
-		func('porn_view_strings', 'view_cum_in_mind'+rand(0,2))
-	end
-
-	func('porn_view_strings', 'view_36_fin')
-
-	stat['anal'] += 2
-	stat['vaginal'] += 1
-	stat['bj'] += 3
-	if pcs_ass <= 10: pcs_ass += 1
-end
-
-if $args[0] = 'cum_warning':
-	if mc_inventory['contraceptive_pill'] = 0 and mc_inventory['equipped_condoms'] = 0:
-		func('porn_view_strings', 'view_no_condom')
-
-	elseif mc_inventory['contraceptive_pill'] > 0:
-		func('porn_view_strings', 'view_pills')
-
-	end
-end	
-
-if $args[0] = 'wdays':
-	func('porn_view_strings', 'view_32_wdays')
-
-	gs 'porn_view_construct', 'no_pussy'
-end
-
-if $args[0] = 'no_pussy':
-	i = rand(0,3)
-	func('porn_view_strings', 'view_31_rand'+i)
-
-	if i = 0:
-		kuni += 1
-		stat['hj'] += 1
-		stat['bj'] += 3
-		swallow += 3
-	elseif i = 1:
-		stat['anal'] += 3
-		stat['bj'] += 2
-		if pcs_ass <= 10: pcs_ass += 1
-	elseif i = 2:
-		stat['bj'] += 3
-		swallow += 3
-	else
-		kuni += 1
-		stat['hj'] += 1
-		stat['bj'] += 2
-		swallow += 2
-		stat['anal'] += 1
-		if pcs_ass <= 5: pcs_ass += 1
-	end
-end
---- porn_view_construct ---------------------------------
-

locations/unused/porn_view_strings.qsrc

@@ -1,789 +0,0 @@
-# porn_view_strings
-!{
-<do> - npc dialogue
-<do>	<font color="maroon"><i>
-</do>	</i></font>
-<dh> - hero dialogue
-<dh>	<font color="navy"><i>
-</dh>	</i></font>
-}
-if $args[0] = 'init0': $result = 'Together with all the guys you came to Bear. The owner turned on the VCR and on the TV screen there were shots porn.'
-if $args[0] = 'init1': $result = 'The kid is clearly uncomfortable, blushing, looking at the screen, occasionally glancing sideways at you.'
-if $args[0] = 'init2': $result = 'The boys have become accustomed to your presence and watch porn do not hesitate.'
-
-if $args[0] = 'view_1_virgin': $result = 'You obviously didn`t expect to see similar with horror look at the screen.
-<font color="navy"><i>"You do come!? Watch this!</i></font>
-Blushing and stumbling you run out of the house to the street.'
-
-if $args[0] = 'view_2_virgin': $result = 'You sit, considering gender, but curiosity outweighed and occasionally forces you to look at the screen.
-Inside you bubbles and encourages all to escape... Or stay?'
-if $args[0] = 'view_2_virgin_next': $result = '<font color="navy"><i>— My God, how can such a thing a living person to poke...</i></font>.'
-
-if $args[0] = 'view_3_virgin': $result = 'You stolid look for what is happening on the screen and wonder: what can be interesting there?'
-if $args[0] = 'view_3_virgin_horny': $result = 'You, blushing, watching a movie and laugh at the comments boys.'
-
-if $args[0] = 'view_5_virgin': $result = 'You calmly watch the video and listen to the joking boys.'
-if $args[0] = 'view_5_virgin_horny': $result = 'You, blushing, watching a movie, laugh at the comments of the boys, and sometimes inserting themselves replica. This is a start.
-<font color="maroon"><i>- <<$pcs_nickname>>, and you could so?</i></font>
-<font color="navy"><i>— Don`t be stupid!</i></font> — resent you, <font color="navy"><i>— Because only whores do!</i></font>
-"Could I?", — think to yourself you.'
-
-if $args[0] = 'view_6_virgin': $result = 'You are watching a video, not particularly noticing the comments boys: the action on the screen starts you off slowly to start, stomach warmer, and imagination draw the image of the Prince (without a horse and without clothes).'
-if $args[0] = 'view_6_virgin_horny': $result = 'You are watching a movie. The action turns you on.
-<font color="maroon"><i>- <<$pcs_nickname>>, and you could so?</i></font>
-<font color="navy"><i>— Well... If only with a loved one...</i></font>
-<font color="maroon"><i>— And unloved?</i></font>
-<font color="navy"><i>— What am I, a whore any?!</i></font> — resent you.'
-
-if $args[0] = 'view_7_virgin': $result = 'You follow what is happening on the screen feel like between your legs begins to get wet.'
-if $args[0] = 'view_7_virgin_horny': $result = 'You follow what is happening on the screen, your face was burning, and pussy just flowing Creek.'
-
-if $args[0] = 'view_7_virgin_no_tanga': $result = '"Hell", — thought you — "I had to wear my underwear. So after noticing can..."
-<font color="maroon"><i>- <<$pcs_nickname>>, and have you ever done this?</i></font>
-<font color="navy"><i>"No," you answer blushing.</i></font>
-<font color="maroon"><i>A virgin that, if?</i></font>
-<font color="navy"><i>— What`s the difference?</i></font>
-<font color="maroon"><i>That sucked even?</i></font>
-<font color="navy"><i>— Suck Sluts only!</i></font>
-<font color="maroon"><i>— Well, do not tell. This is because even for sex not really considered: the sign in front of you, and in General, purely as friends is also not considered.</i></font>
-<font color="navy"><i>— Something I don`t like these conversations.</i></font>
-The guys guffawed.'
-
-if $args[0] = 'view_7_virgin_horny_no_tanga': $result = '"Hell", — thought you — "I`m all wet... I Wonder if the outside will make a difference?"
-<font color="maroon"><i>- <<$pcs_nickname>>, why are you all red this? Excited that Lee?</i></font>
-<font color="navy"><i>— Everything you say — Flirty reply you.</i></font>
-<font color="maroon"><i>- <<$pcs_nickname>>, and you`re a virgin?</i></font>
-<font color="navy"><i>— What`s the difference?</i></font>
-<font color="maroon"><i>Means no?</i></font>
-<font color="navy"><i>— So Yes.</i></font>
-<font color="maroon"><i>- <<$pcs_nickname>>, and live you ever a member of saw?</i></font> — with these words Zhendos pulls his pants and pulls out your erect member standing.
-You are in complete stupor were staring at his body with an open head and your traitor hand caught between your legs, begins to vigorously RUB pussy.
-Looking at it, the other boys also took out their cocks and began to masturbate in front of you.
-Almost immediately, they and you too, cumming.
-You, slightly wondering something, leaned back in his chair and vaguely hear the conversation guys:
-<font color="maroon"><i>Wow <<$pcs_nickname>> our hot!</i></font>
-<font color="maroon"><i>— It yeah...</i></font>
-<font color="maroon"><i>— Class!</i></font>
-They`re suddenly suspiciously silent. You open your eyes and see that look guys aimed between your legs.
-You quickly move your feet and straighten out the clothes, and the guys, seeing your gesture, look away.'
-
-if $args[0] = 'view_7_virgin_horny_no_tanga_skirt': $result = '<font color="maroon"><i>— Oh, <<$pcs_nickname>> we have decided your cake show!</i></font>
-You blush, but, on the other hand, you`ve seen their members?
-<font color="navy"><i>— All saw? Now it`s just bash to bash</i></font>, — said with a smile you.
-<font color="maroon"><i>— Come on, a lot we saw there...</i></font>
-Good gradually. I`m tired of boys, going home.'
-
-!-----------------------
-
-if $args[0] = 'view_1': $result = 'Curious, you look at the screen, feeling a burst of heat in the lower abdomen and occasionally glancing at zasmushalsya guys.'
-
-if $args[0] = 'view_3': $result = 'You calmly watch the video and listen to the joking boys.'
-if $args[0] = 'view_3_horny': $result = 'You, blushing, watching a movie, laugh at the comments of the boys, and sometimes inserting themselves replica. This is a start.
-<font color="maroon"><i>- <<$pcs_nickname>>, and you could so?</i></font>
-<font color="navy"><i>— What is there to be able? Suck, Yes, the language of the dickhead driver.</i></font>
-<font color="maroon"><i>Wow, dude you have, nick!</i></font>
-<font color="maroon"><i>And she did so?</i></font>
-<font color="navy"><i>— Do I.</i></font>
-
-"Everything you tell me Yes, tell me", — think to yourself you.'
-! --- 5 --- !
-if $args[0] = 'view_5': $result = 'You follow what is happening on the screen feel like between your legs begins to get wet.'
-if $args[0] = 'view_5_horny': $result = 'You follow what is happening on the screen, your face was burning, and pussy just flowing Creek.'
-
-if $args[0] = 'view_5_horny_no_tanga': $result = '"Hell", — thought you — "I`m all wet... I Wonder if the outside will make a difference?"
-<font color="maroon"><i>- <<$pcs_nickname>>, and you in the mouth took?</i></font>
-<font color="navy"><i>— Well, let`s say?</i></font>
-<font color="maroon"><i>Wow.</i></font>
-<font color="maroon"><i>And fucked?</i></font>
-<font color="navy"><i>— And then you ask where? So in your bath</i></font>, laughed you.
-<font color="maroon"><i>- <<$pcs_nickname>>, with you to any bath!</i></font>
-The guys snickered and you with them.'
-
-if $args[0] = 'view_5_no_tanga': $result = '"Hell", — thought you — "I had to wear my underwear. So after noticing can..."
-<font color="maroon"><i>- <<$pcs_nickname>>, and you in the mouth took?</i></font>
-<font color="navy"><i>— Everything you say...</i></font>
-<font color="maroon"><i>And fucked?</i></font>
-<font color="navy"><i>— Closed topic.</i></font>
-However... These conversations clearly make you.'
-
-! --- 6 --- !
-if $args[0] = 'view_6': $result = 'You follow what is happening on the screen, although more curiously watching the guys and feel like between your legs begins to get wet.'
-if $args[0] = 'view_6_show_pussy': $result = 'You, casually, running his hand over the thigh, lifting the hem so the boys could see your undisguised pussy. Not immediately, but they pay attention to you, and their opinion begins to be torn between the TV screen and what you have between your legs. From this action between the legs flowed a stream already.
-<font color="maroon"><i>- <<$pcs_nickname>>, where are you cowards lost?</i></font>
-<font color="navy"><i>— Why just lost? Just left home</i></font>, with a seductive smile and answer you, adjusting the hem.'
-
-if $args[0] = 'view_6_next': $result = 'The excitement is growing and the face is already burning with fire.
-<font color="maroon"><i>- <<$pcs_nickname>>, why are you all red this? Excited that Lee?</i></font>
-<font color="navy"><i>I`m actually a living person. The boys and show that you are hidden in his pants?</i></font>
-<font color="maroon"><i>— Wow thingy? And what are we going with this have?</i></font>
-<font color="navy"><i>And it will depend on your behavior, boys.</i></font>
-<font color="maroon"><i>— Yes, we feel sorry that, if, boys?</i></font> — with these words Zhendos, and behind him, and his friends pull down his pants and pull out his protruding members.
-You`ve been to that moment on the brink, and then the brain and all disconnected: you pushed his hand between my legs and almost instantly brought herself to orgasm. Then, eyes closed, with a blissful smile, curled up in the chair.
-<font color="maroon"><i>— Well Nicole! She came, and we?</i></font>
-<font color="navy"><i>— You boys themselves</i></font>, — opening his eyes, purred you.
-<font color="maroon"><i>- <<$pcs_nickname>>, be a man! You promised!</i></font>
-<font color="navy"><i>Yeah, once promised...</i></font>,— with these words you, exposing the shoulder, pulled on a review of one breast
-<font color="navy"><i>- Like?</i></font>
-But the guys have not responded: they are entirely focused on the sensations violently nadrachivat members. Almost immediately, they came.
-<font color="navy"><i>Boys? All right?</i></font> — you asked, hiding the chest.
-<font color="maroon"><i>— Ahhh, do not remove, <<$pcs_nickname>>, leave</i></font>, — excitedly wailed they
-<font color="navy"><i>— Enough is enough. I have the other still has</i></font>, "told you.
-<font color="maroon"><i>— Well, Kolenic, dude you have... Holy crap.</i></font>
-<font color="maroon"><i>— I know...</i></font>'
-! --- 7 --- !
-if $args[0] = 'view_7': $result = 'You follow what is happening on the screen feel, curiously watching the guys and feel like between your legs begins to get wet. The boys are now not so much looking at the screen, how many are watching you. You have not really hesitate of their pals start to caress her between her legs. Looking at you guys freed from his pants and begin to play their members.
-<font color="maroon"><i>- <<$pcs_nickname>>, and let`s then?</i></font>
-You silently bare the top so that both Breasts breast was on the outside. With one hand you continue to pull your pussy and the other gripping her breast, pinching the nipple.
-This time to the finish line first came guys. However, you have them behind the case.
-You are lying, spread-eagled in the chair.
-<font color="navy"><i>— Like? you ask, lifting and squeezing her Breasts.</i></font>
-<font color="maroon"><i>— Nice Tits, <<$pcs_nickname>>! You should be in the model!</i></font>
-<font color="navy"><i>— Oh, like you`ve seen a lot of them. But still, thanks.</i></font>'
-! --- 8 --- !
-if $args[0] = 'view_8': $result = 'You follow what is happening on the screen, curiously watching the guys and feel like between your legs begins to get wet. The boys are now not so much looking at the screen, how many are watching you. You have not really ashamed of his friends, lowered the top to expose the Breasts and start to caress her between her legs. Looking at you guys freed from his pants and begin to play their members.
-<font color="maroon"><i>- <<$pcs_nickname>>, we are here with trunks unsheathed, and you give us only your Boobs. So not fair.</i></font>
-<font color="navy"><i>— Oh? But I did not see Boobs</i></font>, — smile and answer you
-Guys are silently stripped naked:
-<font color="maroon"><i>— Now what?</i></font>'
-
-if $args[0] = 'view_8_tanga': $result = 'You can quickly get rid of the bottom part of clothing, graceful movement pulls off her panties and sits down in the chair, spread her legs wide apart:'
-if $args[0] = 'view_8_no_tanga': $result = 'You can quickly get rid of the bottom of the garment and sit in the chair, spread her legs wide apart:'
-
-if $args[0] = 'view_8_next': $result = '<font color="navy"><i>How do you like the view, boys?</i></font>'
-
-if $args[0] = 'view_8_tight': $result = 'Guys, almost opening his mouth, looking at your pussy.'
-
-if $args[0] = 'view_8_stretched_both': $result = 'Guys are amazed at your holes
-<font color="maroon"><i>— Holy shit...</i></font>
-<font color="navy"><i>— What happened?</i></font>
-<font color="maroon"><i>— How do you radjabli, <<$pcs_nickname>>?</i></font>
-<font color="navy"><i>— Not for you. Do not like do not watch, and go home.</i></font>
-<font color="maroon"><i>No no... All right, everything`s cool.</i></font>'
-
-if $args[0] = 'view_8_stretched_anus': $result = '<font color="maroon"><i>- <<$pcs_nickname>>, your ass did?</i></font>
-<font color="navy"><i>— What`s wrong with her?</i></font>
-<font color="maroon"><i>— Hole. There is the hand, probably to put you?</i></font>
-<font color="navy"><i>And not only. Don`t like? I then went.</i></font>
-<font color="maroon"><i>- <<$pcs_nickname>>, we joked that you`re all quite pretty.</i></font>'
-
-if $args[0] = 'view_8_stretched_vag': $result = 'Guys are amazed at your nezakryvayushhihsya vagina
-<font color="maroon"><i>— Well, pizdischa you <<$pcs_nickname>>!</i></font>
-<font color="navy"><i>— Pussy, actually.</i></font>
-<font color="maroon"><i>— Nah... This is Muff cabbage</i></font>
-<font color="navy"><i>— Well, you know... Don`t like to get dressed and go.</i></font>
-<font color="maroon"><i>- <<$pcs_nickname>>, we joked that you, a very nice hole... That is pussy.</i></font>'
-
-if $args[0] = 'view_8_finish': $result = 'Recovered, they are taken for jacking off and after a few movements, runs out onto the floor.
-You are also not wasting time and quickly bring yourself to orgasm.'
-! ---
-
-! ---- 10 and more ---- !
-if $args[0] = 'view_10': $result = 'You follow what is happening on the screen, occasionally glancing at the guys, and pay attention to what, judging by the bulging fabric on the pants from friends, they are very excited. Dirty thoughts begin to climb into your head, while your hand as if by itself, starts to finger your pussy. 
-At this time Zhendos lower a little pants, pulls out his cock and, looking at the screen, then you, begins to masturbate. Nick with a Bear followed his example, and you, torn between shame and arousal, increased the pressure between his legs.
-<font color="maroon"><i>- <<$pcs_nickname>>, help us</i></font>, — a breaking voice, asks Zhendos.
-<font color="navy"><i>— How?</i></font> — whisper to you.
-<font color="maroon"><i>Help us to cum...</i></font>'
-
-if $args[0] = 'view_10_horny': $result = '— How can I help you?
-<font color="maroon"><i>— Show us... Tits!</i></font>
-The situation excites you more and more. You bare your shoulder and get on public display one breast.
-<font color="maroon"><i>- <<$pcs_nickname>>AA...</i></font>
-Guys one after the other begin to cum and, after them, you are covered by a powerful orgasm.
-You are lying some time without power, and leaving the chest outside.
-And guys, he immediately cheered up.
-<font color="maroon"><i>- <<$pcs_nickname>>?</i></font>
-<font color="navy"><i>-?</i></font> — a barely audible reply you.
-<font color="maroon"><i>— I like your Tits! Just like the model some!</i></font>
-<font color="navy"><i>— The truth? Thank you</i></font>,— you answer with an embarrassed smile and hiding her Breasts.
-<font color="maroon"><i>- <<$pcs_nickname>>, don`t hide, leave</i></font>, — excitedly wailed guys.
-<font color="navy"><i>— No. That`s enough for today. And in General... I`m too shy.</i></font>'
-
-if $args[0] = 'view_10_no_horny': $result = '— I don`t know, what can you do. There, on the screen look, it will help you for sure.
-Guys, gritting your teeth, took your advice, still looking at your manipulation between the legs.
-You, lost in itself, soon came to an orgasm and loudly exhaling, he relaxed in the chair.
-Guys, by the time also got to the point, and seeing as you finished, immediately lowered themselves.
-<font color="maroon"><i>— What a plague you <<$pcs_nickname>>, could people help.</i></font>
-<font color="navy"><i>— I know nothing, I`m good</i></font> — you said, smiling blissfully.
-A little lie and listened to the chatter of the boys you going home.'
-
-if $args[0] = 'view_11': $result = 'You follow what is happening on the screen, occasionally glancing at the boys. Life again takes its toll and you begin to stroke yourself between your legs. 
-Guys, already did not hesitate to pull my pants down and start jacking off.
-<font color="maroon"><i>- <<$pcs_nickname>>?</i></font>
-<font color="navy"><i>— What?</i></font>
-<font color="maroon"><i>— Help?</i></font>
-You silently bare both the chest and focus on the sensations, looking at the standing members of the guys. With your free hand you begin to pinch your nipple and powerful orgasm covers you. Guys discharged after you.
-<font color="maroon"><i>- <<$pcs_nickname>>AA...</i></font>
-<font color="navy"><i>— What?</i></font>
-<font color="maroon"><i>— You`re cool!</i></font>
-<font color="navy"><i>— The truth?</i></font>
-<font color="maroon"><i>— Yeah... You''ve got Boobs, cool!</i></font>
-You lifted and squeezed her Breasts.
-<font color="navy"><i>- Like?</i></font>
-<font color="maroon"><i>— Very!</i></font>
-You silly giggled a bit and turned a little in front of the boys, showing Breasts and, slowly, began to go home.
-Looks like you came to like this attention. You enjoyed his youthful beauty and the effect that had your body on these boys.'
-
-if $args[0] = 'view_12': $result = 'The screen flashed footage of regular porn, but the guys a little more look at you.
-You`re standing in front of them and slowly lowered the top of the garment, exposing your chest. 
-<font color="navy"><i>Do you like my boobies?</i></font> — you ask, while making a slight movement, making your chest slightly swing.
-The guys off his pants and accepted for their trunks.
-<font color="maroon"><i>— Yes, <<$pcs_nickname>>, they are cool...</i></font> — meet the guys vigorously nadrachivaya.
-You turn to the guys side and bare ass.
-<font color="navy"><i>— And legs? And ass?</i></font>
-<font color="maroon"><i>— Yeah...</i></font>
-Guys come together to agulashvili. And you look at them angrily.
-<font color="navy"><i>— Bliin... You to wait for me couldn`t do?</i></font>
-However, the excitation is high enough and you stand in front of the boys, quickly bring yourself to orgasm.
-<font color="maroon"><i>Well, <<$pcs_nickname>>, you fire just!</i></font>
-You smiled at the boys and began to go home.'
-
-if $args[0] = 'view_13': $result = 'Porn is the background of guys with no pants looking at you and masturbate. 
-You, Topless, sprawled in the chair and stroked myself with one hand between her legs and the other squeezing a breast and caressing her nipples.
-The state of poluzabytogo brings you the voice of one of the guys: 
-<font color="maroon"><i>- <<$pcs_nickname>>?</i></font>
-<font color="navy"><i>-?</i></font>
-<font color="maroon"><i>— Can your titties touch?</i></font>'
-
-if $args[0] = 'view_13_horny': $result = '<font color="navy"><i>— Well.</i></font>
-The guys surround you and, at first very tentatively, begin to touch your Breasts. But the excitement, and with it, confidence grows, the guys become bolder, and they have already squeezed your breast, touch sticking out from the strong excitation nipple. You feel that between your legs you have a waterfall and this time someone of the guys carried away, quite significantly twisting your nipple. 
-<font color="navy"><i>Boys! Tear after all! Softer...</i></font>
-And again bliss, affection and bliss. And covers you... The guys also start to finish, but clearly perevozbuzdenie, they can`t think straight and part of the charges of semen arrives on your neck, chest and clothes.
-<font color="navy"><i>— Fuck! Neater it was impossible! I`ll go home now?! Head to think, too, sometimes need, not just the head!</i></font>
-<font color="maroon"><i>- <<$pcs_nickname>>, well, I`m sorry, let`s wipe it off...</i></font>
-<font color="navy"><i>— Oh you nafig! I myself sometime. Where bath?</i></font>
-You go to the bathroom, take a shower and try to clean the clothes from sperm. Hardly, but you do it. Good that hair do not need to wash.
-Wrapping a towel around the hips, you come out of the bathroom and turning to the landlord:
-<font color="navy"><i>— I hope the iron you have?</i></font>
-<font color="maroon"><i>— Of course!</i></font> - Bear shows where the iron and Ironing Board. You are taken for drying clothes.
-After a while you notice that guys jerk off again, looking at you. Well, still: one girl in loincloth, stroking things. And her Breasts at that time living my exciting and fulfilling life.
-The boys quickly finished, you dried up, finally my things and change clothes in the bathroom. Finally, listen to another apology guys and go home.'
-
-if $args[0] = 'view_13_no_horny': $result = '<font color="navy"><i>NEA</i></font>, — you coyly replied, continuing to wander in your mizunoe, — <font color="navy"><i>just watch</i></font>.
-However, guys are not particularly discouraged by the response and after some time to finish, and after them, and you.
-You are going home.'
-
-if $args[0] = 'view_14': $result = 'Porn is the background, the guys slowly take off your pants and look at you. You, mindful of the last misunderstanding, decide not to allow any more and so with a smile exempt from the clothes while looking at the reaction of the guys. And she, judging by the boner they have not kept itself waiting.'
-
-if $args[0] = 'view_14tanga': $result = 'You stay in some little panties.
-<font color="maroon"><i>- <<$pcs_nickname>>, actually that`s not fair.</i></font>
-<font color="navy"><i>— What?</i></font>
-<font color="maroon"><i>— We are here for a long time already without panties, and you in shorts.</i></font>
-<font color="navy"><i>— Yeah, but your top it is, and I bare Tits.</i></font>
-Guys, as a team, take off the remaining clothes.
-<font color="navy"><i>— Nuuu... and there is nothing to argue</i></font>, "you say, taking off panties.'
-
-if $args[0] = 'view_14_no_tanga': $result = '<font color="maroon"><i>- <<$pcs_nickname>>, where are your underpants?</i></font>
-<font color="navy"><i>— Not forgotten, but not wearing. That bad?</i></font>
-<font color="maroon"><i>Yeah well, <<$pcs_nickname>>.</i></font>
-Guys, seeing you completely naked, too off all your clothes.'
-
-if $args[0] = 'view_14_tanga_bush': $result = '<font color="navy"><i>— How do you like my Fox?</i></font> you ask, holding your hand over the pubis and vzloma his fur.
-<font color="maroon"><i>— Then, too, the mink soon</i></font>, — the guys are laughing and you laugh along with them.'
-
-if $args[0] = 'view_14_tanga_no_bush': $result = '<font color="maroon"><i>- <<$pcs_nickname>>, you shave that, if?</i></font>
-<font color="navy"><i>— Well, Yes, it`s cleaner somehow.</i></font>'
-
-if $args[0] = 'view_14_next': $result = 'You are lying naked in a chair and studying her pussy, while the guys crowded round you, furiously jerking off, not forgetting to squeeze your Breasts.
-Hand one of them goes down to your tummy and gently stroking it, starts to fall below. But when she`s already approaching the pussy, you intercept her wet with lubricant and put a hand on his chest.
-Finally, like a chain reaction, like an explosion, the orgasm covers all. Guys now discharged directly into you, spattering his chest and belly. You are finished, lie still for a while, with interest in studying, leading her finger, the cum on his body. In the movies you guys have seen how girls suck guys Dicks and they finished them right in the mouth. I wonder how it tastes? 
-<font color="navy"><i>— I`m in the shower</i></font>, you say guys.
-You gather your clothes and head for the shower. Left alone, you gently lick the finger that has just dipped in the sperm of the hilarious Trinity.
-You took a shower, Packed up and said goodbye to the guys, headed home.'
-
-if $args[0] = 'view_15': $result = 'You guys are watching porn.
-<font color="maroon"><i>- <<$pcs_nickname>>, how about a Striptease?</i></font>
-<font color="navy"><i>— What for? Or something you haven`t considered?</i></font>
-<font color="maroon"><i>— Yes, just for fun. More interesting than to watch porn.</i></font>
-<font color="navy"><i>— And the music is suitable, Mich?</i></font>
-<font color="maroon"><i>— `ll find something.</i></font>
-<font color="navy"><i>— Well, OK, I do wear shoes, but barefoot as it is not very...</i></font>
-While Bear is looking for music, you put on shoes and stand in the center of the room. 
-Listen to slow music and you start dancing. You see how guys look at you like they want you, and that feeling you start to wind up. Gradually, the object behind the subject you take off your clothes and stay in the same shoes.
-Guys are absolutely not aesthetically pleasing get rid of their clothes and surround you. And again their hands and begin to squeeze your Breasts, stroking your belly and squeeze your ass. Someone of the boys wants to kiss you lips and you answer him with a passionate kiss.
-Suddenly, your hand rests against something warm and solid, you grasp it with my hand and understand that the hand you have someone`s member. You begin to gently move the arm. With the other hand you hugged a guy, asked him for a kiss, and then took up his cock. 
-At this time someone started to suck your breast and you have covered orgasm...
-Hands you felt as a member of the boys pulse one after the other and plucked a seed on your hips. You helped handle to discharge the latter and went to shower.
-After a shower you gathered and went home.'
-
-if $args[0] = 'view_15': $result = 'You go with guys to the apartment. Includes bear porn and the boys settle down on the couch in front of the screen.
-You slowly, smiling and looking at the boys off all your clothes and come to him.
-<font color="navy"><i>— As I?</i></font>
-<font color="maroon"><i>Good girl!</i></font>
-One of the guys gently taps you on the ass. You laugh.
-<font color="navy"><i>— Come on, I think I`ll sit.</i></font>
-The guys take off their clothes and you sit on the couch between two guys, and the third stands in front of you.
-The guys begin to caress your body, play with Breasts, kiss you, and you at this time, turns fingering them.
-Hand one of the guys to slowly fall between your legs and begins to RUB her swollen wet pussy. You widely spread her legs to facilitate access to the guy to your treasure.'
-
-if $args[0] = 'view_15_next_virgin': $result = '<font color="navy"><i>— Bunny, just be careful out there: the fingers in me do not stick, do not tear me play the virgin.</i></font>
-The guy just nodded.'
-
-if $args[0] = 'view_15_next': $result = '<font color="navy"><i>The Bunny, put it inside me two fingers.</i></font>
-"Bunny", a little awkwardly, introduced two fingers into your squishing pussy and started for you to fuck them.
-<font color="navy"><i>— Yeah... so... well...</i></font>'
-
-if $args[0] = 'view_15_next_wdays': $result = '<font color="navy"><i>The Bunny, put it inside me two fingers.</i></font>
-The guy starts to RUB her fingers on your pussy, occasionally teasing the Clit.
-<font color="navy"><i>— Yeah... so... well...</i></font>'
-
-if $args[0] = 'view_15_fin': $result = 'You excited pussy flowing stream and hear the squishing sound. You caress all. At the same time squeezing a breast and pulling the expiring juice pussy. 
-Guys cumming. Follow them and you end up. Then go to the shower and get dressed and leave.'
-
-if $args[0] = 'view_16': $result = 'You excited pussy flowing stream and hear the squishing sound. You caress all. At the same time squeezing a breast and pulling the expiring juice pussy.
-Suddenly you feel someone`s hard cock touches your lips. You look up and see his brother, who is Horny looking at you. You extend your tongue and gently touch his head, feeling the slightly salty taste. You even bolder lips wrapped around the tip of the head and sucked it. 
-Suddenly nick grabs your head and literally skewer her on his cock so that he almost rests on the throat. You breath, tears gush from the eyes, you swallow, and nick at this time abundantly cums in your mouth. You swallow and spitting, and the rest of the guys in this time, in the end stunned by what he saw, cumming too.'
-
-if $args[0] = 'view_16_next': $result = '<font color="navy"><i>— You`re an asshole! What are you doing?! Quite ohueli that, if!</i></font> — you`re yelling at Kolka.
-<font color="maroon"><i>— Bro, did you fuck his SIS in the mouth fucked?</i></font> — laughing guys.
-Kolka, red as cancer, begins to apologize to you, stroking your hair.
-<font color="navy"><i>Fool, you should`ve told what`s happening!</i></font>
-<font color="maroon"><i>- <<$pcs_nickname>>, I`m sorry, I could not resist...</i></font>
-<font color="maroon"><i>- <<$pcs_nickname>>, and someone said that in the mouth take only whores. Now you`re a whore, Yes?</i></font> — laughing guys.
-<font color="navy"><i>I`m not a whore! And you sheep! I`m with you, as friends, and you... I will not come anymore...</i></font>
-Until guys realize the seriousness of the situation and not a pleasant prospect to remain without sweet and they start vying with each other to apologise. You for decency broke a bit, and then you got the idea:
-<font color="navy"><i>— You will be forgiven if I pussy lick, and I did not finish even. Only the mood ruined everything.</i></font>
-<font color="maroon"><i>— Well, who screwed up, he let your pussy and licks.</i></font>
-You get comfortable on the couch, pulling his knees bent legs to his chest, and nick begins to correct his wrongdoing.'
-
-if $args[0] = 'view_16_next_wdays': $result = '<font color="maroon"><i>— What kind of thread you got there?</i></font> — surprise asks Kolka.
-Guys pushing each other, also want to see that you have found the Kolka.
-<font color="navy"><i>Is a tampon in there. Monthly I.</i></font>'
-
-if $args[0] = 'view_16_next_wdays_virgin': $result = '<font color="maroon"><i>You said that a virgin? What is a tampon?</i></font>
-<font color="navy"><i>— Small. Like a virgin is impossible! Let`s not get distracted!</i></font>'
-
-if $args[0] = 'view_16_next2': $result = 'He licks clumsily, but you tell him how to make you nicer and it slowly goes smoothly.
-Others, looking at you, too excited. You grabbed Misha`s cock and began to jerk off, but when you want to take a member of Gandoca, he got up and put your dick in your mouth.
-<font color="navy"><i>— Only warn when to stop going</i></font> you say to him.
-Zhendos nodded and you took his organ in my mouth. Holding the cock with one hand, you began to slowly suck him, taking deeper.'
-
-if $args[0] = 'view_16_next3': $result = '<font color="maroon"><i>- <<$pcs_nickname>>, cool...</i></font>
-<font color="navy"><i>— What? AA...</i></font>
-<font color="maroon"><i>— To whom did you learn, <<$pcs_nickname>>?</i></font>
-<font color="navy"><i>— Cucumbers.</i></font>'
-
-if $args[0] = 'view_16_next3_virgin': $result = '<font color="maroon"><i>- <<$pcs_nickname>>, teeth.</i></font>
-<font color="navy"><i>— What? AAA... I will try...</i></font>'
-
-if $args[0] = 'view_16_fin': $result = 'After some time the Bear came. On the way there was Zhendos:
-<font color="maroon"><i>- <<$pcs_nickname>>, end...</i></font>
-You quickly pulled away and a jet of sperm, after a while, began to cover your face, neck and shoulders... and then you hit orgasm...
-You lie tired and happy, but in my head different thoughts: "My God, I just become a whore... or not? And if they find out? But how cool was that, when licked..."
-<font color="maroon"><i>Well, <<$pcs_nickname>>, krasava!</i></font>
-<font color="navy"><i>— Oh, come on... I went into the shower.</i></font>
-You go into the shower, washed, collected and go home.'
-
-if $args[0] = 'view_17': $result = 'On the next screen porn, and you, completely naked, lie with the guys on the couch.'
-if $args[0] = 'view_17_next': $result = '<font color="maroon"><i>- <<$pcs_nickname>>, suck my dick</i></font>, says <<$_zz_boy_arr[0]>>.
-<font color="navy"><i>— Okay, just let me know when you finish.</i></font>
-<<$_zz_boy_arr[0]>> framed his cock and you started sucking it intensely, at the same time jacking off the rest.
-After a while they end.'
-
-if $args[0] = 'view_17_next_rand': $result = 'You can not finish and ask the guys to help you.
-<<$_zz_boy_arr[0]>> starts to lick your pussy, gently parting the lips on her cunt with fingers.'
-
-if $args[0] = 'view_17_fin': $result = 'After a while you end up too. Take a shower and get dressed and go home.'
-
-if $args[0] = 'view_19': $result = 'On the next screen porn, and you, completely naked, lie with the guys on the couch.
-<font color="maroon"><i>- <<$pcs_nickname>>, we suck</i></font>, — appeals to you Zhendos.
-<font color="navy"><i>— Only warn when ending the will. Who was the first?</i></font>
-The first approaches you <<$_zz_boy_arr[0]>>. You start to suck his cock, slowly entering into the taste. You like this lesson, it starts. While you suck cock, the rest of the guys caress you, squeeze breast, RUB pussy.
-<font color="maroon"><i>I come</i></font>, warns <<$_zz_boy_arr[0]>>.
-You begin to feel the throbbing member, ready to be discharged, but only more energetic start to sit down on him, not letting go of his mouth. In the next moment you get a lot of salty liquid, but do not let dick and trying to milk it to the end, helping hand.
-You release the member from his mouth, but continued to hold his hand and swallow what has accumulated in your mouth. Then lick the remnants of sperm with deciduous member.
-You sit on the couch.
-<font color="navy"><i>Boys next while I suck, lick me.</i></font>
-While <<$_zz_boy_arr[1]>> Fucks you in the mouth, <<$_zz_boy_arr[2]>> licking your pussy, and <<$_zz_boy_arr[0]>> played with your Breasts.
-<font color="maroon"><i>I come</i></font>, warns <<$_zz_boy_arr[1]>>.
-You begin to feel the throbbing member, ready to be discharged, but only more energetic start to sit down on him, not letting go of his mouth. In the next moment you get a lot of salty liquid, but do not let dick and trying to milk it to the end, helping hand.
-You release the member from his mouth, but continued to hold his hand and swallow what has accumulated in your mouth. Then lick the remnants of sperm with deciduous member.
-Latest to your mouth is attached <<$_zz_boy_arr[2]>>, and your tongue for your pussy provides <<$_zz_boy_arr[0]>>, while <<$_zz_boy_arr[1]>> explores the nooks and crannies of your body.
-<font color="maroon"><i>I come</i></font>, warns <<$_zz_boy_arr[2]>>.
-You begin to feel the throbbing member, ready to be discharged, but only more energetic start to sit down on him, not letting go of his mouth. In the next moment you get a lot of salty liquid, but do not let dick and trying to milk it to the end, helping hand.
-You and your company lie tired, but happy.
-<font color="maroon"><i>— Yes, <<$pcs_nickname>> today fed</i></font>, — laughing guys.
-<font color="navy"><i>Yeah, you can not eat even</i></font>, — you giggle.
-You shower, dress and go home.'
-
-if $args[0] = 'view_20': $result = 'On the next screen porn, and you, completely naked, lie with the guys on the couch.
-<font color="maroon"><i>- <<$pcs_nickname>>, we suck</i></font>, — appeals to you Zhendos.
-<font color="navy"><i>— Well, just you, I also lick pussy well?</i></font>
-<font color="maroon"><i>— When we finish to prevent?</i></font>
-You only smile in response.
-You lay down on the couch and <<$_zz_boy_arr[0]>> inserts your dick in your mouth you immediately to him and to his pleasure start to suck, parallel podrachivaya cock and playing with his eggs. At this time <<$_zz_boy_arr[1]>> cozy up to your pussy.'
-
-if $args[0] = 'view_20_wdays': $result = '<font color="maroon"><i>- <<$pcs_nickname>>, monthly you`ve got something there?</i></font>
-<font color="navy"><i>Yeah, never mind, I got it clean.</i></font>'
-
-if $args[0] = 'view_20_end': $result = '<<$_zz_boy_arr[2]>> played with your Breasts.
-After a while you begin to feel the pulsing member is ready to discharge, but only more energetic start to sit down on him, not letting go of his mouth. In the next moment you get a lot of salty liquid, but do not let dick and trying to milk it to the end, helping hand.
-You release the member from his mouth, but continued to hold his hand and swallow what has accumulated in your mouth. Then lick the remnants of sperm with deciduous member.
-The following <<$_zz_boy_arr[1]>> Fucks you in the mouth, <<$_zz_boy_arr[2]>> licking your pussy, and <<$_zz_boy_arr[0]>> played with your Breasts.
-After a while you begin to feel the pulsing member is ready to discharge, but only more energetic start to sit down on him, not letting go of his mouth. In the next moment you get a lot of salty liquid, but do not let dick and trying to milk it to the end, helping hand.
-Latest to your mouth is attached <<$_zz_boy_arr[2]>>, and your tongue for your pussy provides <<$_zz_boy_arr[0]>>, while <<$_zz_boy_arr[1]>> explores the nooks and crannies of your body.
-You and your company lie tired, but happy.
-<font color="maroon"><i>- <<$pcs_nickname>> now we have star Blowjob!</i></font>
-And you guys laughed.
-<font color="navy"><i>"Boys, you really like how I suck?</i></font>
-<font color="maroon"><i>- <<$pcs_nickname>>, you`re a star!</i></font>
-<font color="navy"><i>— I also try to, you too very nice.</i></font> 
-You shower, dress and go home.'
-
-if $args[0] = 'view_22': $result = 'After a while you begin to feel the pulsing member is ready to discharge, but only more energetic start to sit down on him, not letting go of his mouth. In the next moment you get a lot of salty liquid, but do not let dick and trying to milk it to the end, helping hand.
-You release the member from his mouth, but continued to hold his hand and swallow what has accumulated in your mouth. Then lick the remnants of sperm with deciduous member.
-At this time <<$_zz_boy_arr[1]>> gets up and starts to RUB my bulging cock on your soft white pussy.'
-
-
-if $args[0] = 'view_22_virgin': $result = 'You quickly move the legs.
-<font color="navy"><i>— Well, what are you up to?</i></font>
-<font color="maroon"><i>- <<$pcs_nickname>>, I will fuck you up?</i></font>
-<font color="navy"><i>— Where?</i></font> you ask, frantically blinking his eyes.
-<font color="maroon"><i>— Fuck, of course.</i></font>
-<font color="navy"><i>— Here`s another. I told you a hundred times already: virginity I`m saving.</i></font>
-<font color="maroon"><i>Yes for someone to take care of something?</i></font>
-<font color="navy"><i>— Yes, at least for myself. All, topic closed.</i></font>
-<font color="maroon"><i>- <<$pcs_nickname>>, well, let`s work something out?</i></font>
-<font color="navy"><i>— Let`s suck, what`s wrong?</i></font>
-<font color="maroon"><i>- <<$pcs_nickname>>, and give in ass we will try?</i></font>'
-
-if $args[0] = 'view_22_no_pills': $result = '<font color="navy"><i>— Honey, I never stop.</i></font>'
-if $args[0] = 'view_22_no_virgin_no_wdays': $result = 'You unwittingly served to meet him, nasazhivayas to member'
-
-if $args[0] = 'view_22_no_virgin': $result = 'Guy, oshalev of his own happiness, starts to quickly fuck you. You were already on the brink, and the feeling that you fuck and look at you, you immediately cum. <<$_zz_boy_arr[1]>> finished the trail, having to pull out his dick and rasbridge his sperm in your belly.
-Guys frantically looking at you.
-<font color="maroon"><i>— Here is the number...</i></font>
-<font color="navy"><i>— Something wrong, boys?</i></font>
-You widely spread her legs and opened her vagina with fingers.
-<font color="navy"><i>- <<$_zz_boy_arr[2]>>, me? Just don`t come inside.</i></font>
-Two times to beg him not have. <<$_zz_boy_arr[2]>> inserts in you, stake standing member, and starts to fuck you fast.
-<font color="navy"><i>— Take your time, Bunny, the girl is also to take care of it is necessary. Is this your first time?</i></font>
-But <<$_zz_boy_arr[2]>> could no longer hold back and pulled out a cock, you cum on her stomach.
-<<$_zz_boy_arr[2]>> looking at everything that happens with greed. And although recently you blew him, it is clear that it does recently fallen member of the swell and begins to rise.
-<font color="navy"><i>— You will fuck me too? — you turn to him — <font color="navy"><i>come on, I`ll raise him good</i></font>.
-You take his cock in her mouth and quickly bring it to firing position. Then stand cancer and invitingly curved.
-<font color="navy"><i>— Come with me.</i></font>
-<<$_zz_boy_arr[0]>> comes into you and starts fucking. Due to the fact that he had cum, the sex with him lasted longer than with other guys. You even managed to discharge. But, in the end, and he pulled out a member and cum on your ass.
-<font color="navy"><i>"Boys, you are great. Just rubbed me a bit, it seems.</i></font>
-You go in the shower.
-After a shower, you dress and go home.'
-
-if $args[0] = 'view_22_virgin_anal': $result = '<font color="navy"><i>Why not? There is something to lubricate? Maybe butter some? Or cream?</i></font>
-<font color="maroon"><i>Now</i></font>, said the Bear and ran to the kitchen.
-A minute later he appeared with a bottle of sunflower oil.
-<font color="maroon"><i>— Refined!</i></font> with pride he said.
-You looked doubtfully at the bottle, got cancer and carefully lubricated the ring of the anus with oil, then put in the ass two fingers and smeared inside.
-<font color="navy"><i>— Come here, I`ll RUB your cock.</i></font>
-<<$_zz_boy_arr[1]>> suitable to you, and you carefully RUB his cock with oil. You`re bent over invitingly, trying makimalno to relax your back hollow-out.
-<<$_zz_boy_arr[1]>> inserts into your dick and starts fucking. 
-At this time <<$_zz_boy_arr[2]>> the front is attached to your mouth. You let his penis, but by focusing on the sensations don`t help him, just tightly clasping lips of his genital organ, allow you to fuck my mouth.
-Finally you feel that cock inside your priests pulse and your gut began to fill with cum. <<$_zz_boy_arr[2]>> also starts to cum in your mouth. You end up milked his cock and swallow sperm.
-<<$_zz_boy_arr[1]>> pulls out of your dick:
-<font color="maroon"><i>— Funny, <<$pcs_nickname>>, you have a hole isn`t closed! Oh, the cum flowed!</i></font>
-<font color="navy"><i>— Of course flowed. I`m in the shower.</i></font>
-You run to the shower, one hand closing the anus.
-In your heart you carefully washed the anus, trying to get fingers the remnants of sperm. Then, remembering that you did not manage to finish, you sent a shower between the legs and using her hand, cumming.
-Then wiped and dressed, back to the guys.
-<font color="maroon"><i>— Well, as you <<$pcs_nickname>>, liked?</i></font>
-<font color="navy"><i>— Well, not so much, but quite a. At least the sign on the place</i></font>, smile you. <font color="navy"><i>Okay, I will gather.</i></font>
-You go to shower, dress and go.'
-
-if $args[0] = 'view_22_virgin_first_anal': $result = '<font color="navy"><i>— Oh... it`s unnatural really...</i></font>, — insecure answer you.
-<font color="maroon"><i>Of course you don`t want? And then the cherry on the place and fun people. We`re watching movies... Look, just!</i></font>
-On the TV screen at this time, the three guys just fucked some girl in the two bow, despite the fact that the third in her mouth. The girl does not feel any negative emotions. 
-You think.
-<font color="navy"><i>— Need something to lubricate. It`s tight down there and its no lubrication</i></font>, said thoughtfully, " you.
-<font color="navy"><i>— Maybe butter some? Or cream?</i></font>
-<font color="maroon"><i>Now</i></font>, said the Bear and ran to the kitchen.
-A minute later he appeared with a bottle of sunflower oil.
-<font color="maroon"><i>— Refined!</i></font> with pride he said.
-You looked doubtfully at the bottle.
-<font color="navy"><i>- <<$_zz_boy_arr[1]>>, well look? Smear. Your dick RUB. Let me cancer arise — may be easier.</i></font>
-You stand cancer on the couch and <<$_zz_boy_arr[1]>> begins to lubricate you ring the anus and then his cock.
-<font color="navy"><i>- <<$_zz_boy_arr[1]>>, let`s try a finger first.</i></font>
-<<$_zz_boy_arr[1]>> tries to insert finger in anus. Good that you are very excited and do not mind experimenting. "Need to relax, need to relax", you say to yourself. You relax the sphincter and liberally lubricated finger easily enters into your hole.
-<font color="navy"><i>The second finger come on.</i></font>
-You lie in the knee-elbow position, and <<$_zz_boy_arr[1]>> inserts a second finger. It went worse, but in the end... Patience and hard work, as they say...
-<font color="navy"><i>— Thumbs screw do... Yeah... Spin... In... Try to breed... Oh... The hole again and brush member inserted.</i></font>
-<<$_zz_boy_arr[1]>> begins to slowly push his member inside you. He goes tight and you`re constantly sighing and ohaete. But now, finally, <<$_zz_boy_arr[1]>> put the dick enough, to start you fuck. 
-"Milfs is how tight", — I think you. However, you`re into this situation. And the member who is hurting you, but at the same time touches something inside of you, causing the pleasure.
-At this time <<$_zz_boy_arr[2]>> the front is attached to your mouth. You let his penis, but by focusing on the new sensations don`t help him, just tightly clasping lips of his genital organ, allow you to fuck my mouth.
-Finally you feel that cock inside your priests pulse and your gut began to fill with cum. <<$_zz_boy_arr[2]>> also starts to cum in your mouth. You end up milked his cock and swallow sperm.
-<<$_zz_boy_arr[1]>> pulls out of your dick:
-<font color="maroon"><i>— Funny, <<$pcs_nickname>>, you have a hole isn`t closed! Oh, the cum flowed!</i></font>
-<font color="navy"><i>— Of course flowed. I`m in the shower.</i></font>
-You run to the shower with one hand plugging the anus.
-In your heart you carefully washed the anus, trying to get fingers the remnants of sperm. Then, remembering that you did not manage to finish, you sent a shower between the legs and using her hand, cumming.
-Then wiped and dressed, back to the guys.
-<font color="maroon"><i>— Well, <<$pcs_nickname>>, we have printed your point?</i></font> — laughing guys.
-<font color="navy"><i>— Not funny. Butt hurts.</i></font>
-<font color="maroon"><i>"Is it that bad?</i></font>
-<font color="navy"><i>— Well, not so at all...</i></font>
-You again touch my rear hole.
-<font color="navy"><i>Okay, I will gather.</i></font>
-You dress and leave.'
-
-if $args[0] = 'view_23': $result = 'On the next screen porn, and you, completely naked, lie with the guys on the couch.
-<font color="navy"><i>— Boys, something to do today will?</i></font> — languidly asked you, stroking between her legs.
-<<$_zz_boy_arr[0]>> silently guides his cock into your mouth and you accepted it sucking. <<$_zz_boy_arr[1]>> put your free hand on top of my dick and you masturbate him, and <<$_zz_boy_arr[2]>> licking your pussy.
-After a while you release a member of one of the guy`s mouth and start to suck the other, then others squeeze you. Then you go to the member of the third.
-<font color="maroon"><i>— Well, <<$pcs_nickname>>, continue your butt to develop?</i></font> says <<$_zz_boy_arr[1]>>'
-
-if $args[0] = 'view_23_pain': $result = '<font color="navy"><i>"Oh, boys, no. Sick ass. Let it heal a bit.</i></font>
-<font color="maroon"><i>— Well okay, we let you in then her mouth will pobem.</i></font>
-You took turns sucking all the guys until they cum in your mouth.
-While you suck one, others take care of your body, so your share of fun, you also get.
-After this, you take a shower and get dressed and leave.'
-
-if $args[0] = 'view_23_anal': $result = 'You get up crustaceans and wait until <<$_zz_boy_arr[1]>> will not properly lubricate your hole.
-<font color="navy"><i>— Bunny, just be careful.</i></font>
-<<$_zz_boy_arr[1]>> inserts into your dick and starts fucking.
-Feelings are not as painful and you can concentrate on myself. You kinda like it, but something is missing.
-<font color="navy"><i>— And why are you standing? In the mouth I will fuck anyone?</i></font>
-<<$_zz_boy_arr[0]>> woke up and stuck his cock to your lips. You grabbed his mouth and began to suck diligently. And <<$_zz_boy_arr[2]>> engaged in, meanwhile, your body.
-"Well, that`s better", — I think you`re talking about yourself. "I think I became a whore... or not? After all, these are my friends... and my little brother (you laughed to myself, but smile to suppress failed. Fortunately the mouth was a dick and no one noticed). But I quite like that."
-Finally <<$_zz_boy_arr[1]>> cums, pulls out a member and his place is going to take <<$_zz_boy_arr[0]>>.
-<font color="navy"><i>- <<$_zz_boy_arr[0]>>, no! My butt is not iron. One day I will stand still, but more no. Come to me, I`ll suck.</i></font>
-<<$_zz_boy_arr[0]>> starts again to fuck you in the mouth, and you have to bring him to orgasm, swallowing cum and cleaning out the tongue head. Then takes his place <<$_zz_boy_arr[2]>> and you are doing it with a member of the same manipulation.
-Then take a shower and get dressed and leave.'
-
-if $args[0] = 'view_24': $result = 'He prepares it and his cock, lubricating thoroughly, and then you. You like these feelings and you start podmahivat him.
-<font color="navy"><i>— Come on, come on... Faster... Fuck me...</i></font>
-<<$_zz_boy_arr[0]>> Fucks you in the mouth, and <<$_zz_boy_arr[2]>> squeezes your Breasts, periodically pulling and lightly twisting your nipples sticking out.
-After <<$_zz_boy_arr[0]>> pulls you in the mouth, takes his place <<$_zz_boy_arr[2]>>.
-After a while you lie tired, but happy. Guys, too tired. You feel that of the priests, begins to flow semen, and run to the shower. There your ass thoroughly washed, rinsed, then dress up and go home.'
-
-if $args[0] = 'view_27_pain': $result = '<font color="navy"><i>— Brush better, and then something aches I have.</i></font>'
-
-if $args[0] = 'view_27': $result = '<<$_zz_boy_arr[1]>>, prepares your hole and his cock, lubricating thoroughly, and then you. You like these feelings and you start podmahivat him. You is very hot, you can feel his cock moving in your intestine through a thin wall regarding the uterus. 
-<font color="navy"><i>Deeper, honey... yeah...</i></font>
-<<$_zz_boy_arr[0]>> Fucks you in the mouth, and <<$_zz_boy_arr[2]>> squeezes your Breasts, periodically pulling and lightly twisting your nipples sticking out.
-<<$_zz_boy_arr[1]>> poured out into you and takes your limp member. The feeling of emptiness was gone, and you want to continue.
-<font color="navy"><i>Boys Moabite me in the ass</i></font>, — ask you.
-Boys to beg not had and <<$_zz_boy_arr[0]>> driving member to you in the ass.
-<font color="navy"><i>— Oh, yeah... well... ebite me in the queue...</i></font>
-After a while <<$_zz_boy_arr[0]>> cums and you are asking to <<$_zz_boy_arr[2]>> lay back. Then you onto his cock and begin jumping on it. Soon he cums. Your legs are shaking. You, exhausted, lying on the couch, curled up into a ball, and from your nitrogenous holes follows sperm.
-<font color="maroon"><i>As we <<$pcs_nickname>>well, ass has developed! Look, not even closes!</i></font>
-Guys consider your hole, stick it in her fingers, and you just lie.
-<font color="maroon"><i>- <<$pcs_nickname>>, you`re a natural fucking!</i></font>
-You smile and walk in shower.'
-
-if $args[0] = 'view_27_rand': $result = '<font color="maroon"><i>- <<$pcs_nickname>>, to help you?</i></font>
-<font color="navy"><i>— Well help</i></font>, — coquettishly smiling guys meet you.
-You guys go into the bathroom and climb under the shower.
-Guys wash you, getting fingers in the ass and squeezing Tits. Ends that one of the guys you tips and inserts dick in the ass. While he Fucks you, you in turn suck the remaining two. In the end, all end up, and you again find yourself covered in cum inside and out.
-<font color="navy"><i>— So, boys, so it will not work. Again, my whole beat. So I`m home today will not get. Get out, let`s.</i></font>
-The boys, chuckling, came out of the bathroom.
-You calmly take a shower and get dressed and leave.'
-
-if $args[0] = 'view_30': $result = 'On the next screen porn, and you, completely naked, lie with the guys on the couch.
-Are you excited to watch on the screen, podrachivaya member of one of the boys and stroking myself between the legs.
-<<$_zz_boy_arr[0]>> kneels before you and begins to drive hard on your lips of the vagina. The feeling is very pleasant and you are still a little spread her legs to make it easier and close my eyes.'
-
-if $args[0] = 'view_30_anal': $result = 'For some time he leads a cock in your current pussy, holding the tip of the cord from the pad, then carefully rubbing your lubricated his cock and your sphincter, and then starts fucking you in the ass. Emotions overwhelm you and you jerk off the remaining guys until they cum. 
-After a while your butt gets warm and you go to shower. Then dress up and go.'
-if $args[0] = 'view_30_sex': $result = 'Guy, oshalev of his own happiness, starts to quickly fuck you. You were already on the brink, and the feeling that you fuck and look at you, you immediately cum. <<$_zz_boy_arr[0]>> finished the trail, having to pull out his dick and rasbridge his sperm in your belly.
-Guys frantically looking at you.
-<font color="maroon"><i>— Here is the number... <<$pcs_nickname>>, you said that a virgin?</i></font>
-<font color="navy"><i>— Was a virgin, no hymen</i></font>, laughed you.
-<font color="maroon"><i>— Is Cho, <<$_zz_boy_arr[0]>> first you what became?</i></font>
-<font color="navy"><i>— It turns out that way.</i></font>
-The boys are starting to stare between your legs. You move the legs.
-<font color="maroon"><i>And the blood where?</i></font>
-<font color="navy"><i>Yeah, liters of blood. And you know that...</i></font>
-And you`re starting to talk about the fact that blood is a little that the hymen can be elastic and just stretch in General go to guys on the ears, and they listen with a straight face. Kind of like they believed, and if believed, then the question to ask did not.
-<font color="maroon"><i>— Well, <<$pcs_nickname>>, I also will fuck you up</i></font>, says <<$_zz_boy_arr[1]>>, if you are going to have to settle for you.
-<font color="navy"><i>— Guys, were you surprised that Lee? Just my innocence deprived and want more time? No. You`re not done yet? Come to me, I`ll suck.</i></font>
-<<$_zz_boy_arr[1]>> inserts the member into your mouth and you start with all his skill to suck it until he cums in your mouth. You swallow cum and lick clean his head.
-It takes place <<$_zz_boy_arr[2]>>. You give him a Blowjob and after swallows cum go in the shower.
-After a shower, you dress and go home.'
-
-if $args[0] = 'view_30_first_sex': $result = 'Suddenly <<$_zz_boy_arr[0]>> makes push and his penis enters your vagina. You feel a short sharp pain and scream.
-<font color="navy"><i>— Fucking moron! You I hymen broke! He asked how people!...</i></font>
-The guy, taken aback, pulls out a member, on which there is blood.
-<font color="maroon"><i>- <<$pcs_nickname>>, sorry, got carried away.</i></font>
-<font color="navy"><i>— Yes what now... fuck then too. Just don`t cum in me.</i></font>
-Again, the guy inserts the penis into your vagina and starts fucking. 
-The discomfort of the gap are interrupted by a new, pleasant feelings from fucking. You close your eyes and try to focus on them.
-At this time the other guys comment on this event.
-<font color="maroon"><i>— Cool look <<$pcs_nickname>> fuck fuck! <<$_zz_boy_arr[0]>>, well done, dude! Printed hymen!</i></font>
-<font color="maroon"><i>— Yes, what a virgin? We have it in all holes bareable.</i></font>
-<font color="maroon"><i>All, but not all. But today will really fuck.</i></font>
-<font color="navy"><i>— Calm down already! Not only that, the hymen broke, so I want more from a circle to let! You come? Until it heals, nothing will. And you get don`t forget! Missed me the first time to subrogate.</i></font>
-After a short time the guy pulls out your dick and runs down into your tummy.
-<font color="maroon"><i>- <<$pcs_nickname>>, and we, as?</i></font>
-<font color="navy"><i>— Well, blow you.</i></font>
-You in turn suck the remaining guys with some envy looking at the lucky guy who raped you. After they finished, you wash, dress and go.'
-
-if $args[0] = 'view_31': $result = 'On the next screen porn, and you, completely naked, lie with the guys on the couch.'
-
-if $args[0] = 'view_31_wdays': $result = '<font color="maroon"><i>- <<$pcs_nickname>>, how`s your pussy doing?</i></font>
-<font color="navy"><i>— Pussy output: I got my period.</i></font>'
-
-if $args[0] = 'view_31_vpain': $result = '<font color="maroon"><i>- <<$pcs_nickname>>, how`s your pussy doing?</i></font>
-<font color="navy"><i>— Pussy got and now it hurts.</i></font>
-<font color="maroon"><i>— Well, then we today not going to touch.</i></font>'
-
-if $args[0] = 'view_31_first_anal': $result = '<font color="maroon"><i>- <<$pcs_nickname>>, how`s your pussy doing?</i></font>
-<font color="navy"><i>Cat`s not in the mood today.</i></font>
-<font color="maroon"><i>— Well, what do we do now?</i></font>
-<font color="navy"><i>— Let me suck your dick?</i></font>
-<font color="maroon"><i>- <<$pcs_nickname>>, and give in ass we will try?</i></font>'
-
-if $args[0] = 'view_31_rand0': $result = '<<$_zz_boy_arr[0]>> silently guides his cock into your mouth and you accepted it sucking. <<$_zz_boy_arr[1]>> put your free hand on top of my dick and you masturbate him, and <<$_zz_boy_arr[2]>> licking your pussy.
-After a while <<$_zz_boy_arr[0]>> pulls your mouth, you swallow the sperm and carefully lick the head of his deciduous member. 
-His place immediately taken by another, and when he cums, the third.
-Satisfying guys and having satisfied myself, you take a shower and get dressed and go home.'
-if $args[0] = 'view_31_rand1': $result = '<<$_zz_boy_arr[0]>>, prepare your ass and your cock, carefully oiling and then comes in you. 
-<<$_zz_boy_arr[1]>> Fucks you in the mouth, and <<$_zz_boy_arr[2]>> squeezes your Breasts, periodically pulling and lightly twisting your nipples sticking out.
-<<$_zz_boy_arr[0]>> poured out into you and takes out my limp cock out of your holes. 
-After that <<$_zz_boy_arr[1]>> driving member to you in the ass. After a while <<$_zz_boy_arr[1]>> cums and takes his place  <<$_zz_boy_arr[2]>>. Soon he cums. Your legs are shaking. You, exhausted, lying on the couch, curled up into a ball, and from your nitrogenous holes follows sperm.
-After a short rest, you take a shower and get dressed and go home.'
-if $args[0] = 'view_31_rand2': $result = 'You sucked off all the guys in turn, while they squeeze you. Swallowing all the sperm, you go to shower, then dress and go home.'
-if $args[0] = 'view_31_rand3': $result = '<<$_zz_boy_arr[0]>> silently guides his cock into your mouth and you accepted it sucking. <<$_zz_boy_arr[1]>> put your free hand on top of my dick and you masturbate him, and <<$_zz_boy_arr[2]>> licking your pussy.
-After a while <<$_zz_boy_arr[0]>> pulls your mouth, you swallow the sperm and carefully lick the head of his deciduous member. 
-His place is immediately <<$_zz_boy_arr[1]>>, and <<$_zz_boy_arr[2]>> cozy up to your ass. After a while, the guys fill you with his sperm on both sides.
-Satisfying guys and having satisfied myself, you take a shower and get dressed and go home.'
-
-if $args[0] = 'view_31_sex': $result = '<font color="navy"><i>— Pussy is very good!</i></font> — you laugh, Flirty pushing the legs and spreading his fingers the petals of the labia.
-Guys consider your gaping vagina and you like it, but then they climb into her hands, beginning to shove fingers and doing it quite rudely.
-<font color="navy"><i>"Boys, you have but nothing left?</i></font> — you laugh.
-You undertake for the members of the next guys and start them off, shameless staring them right in the eye, while a third licks your pussy. You`re already well excited: pisya swollen and flowing Creek, the nipples standing erect and the guys twisting them periodically.
-Finally, you kick a guy`s head from his softened Picea and attract him so that he inserted his member inside you.'
-
-if $args[0] = 'view_31_sex_next0': $result = '<<$_zz_boy_arr[0]>> Fucks you, everything is speeding up, while you suck in turn the rest of the guys.'
-if $args[0] = 'view_31_sex_next1': $result = 'It takes place <<$_zz_boy_arr[1]>>. While he Fucks you, you caress members other guys, and they, in turn, play with your Tits and caress you.'
-if $args[0] = 'view_31_sex_next2': $result = 'Without giving a chance to recover, you pristroilsya <<$_zz_boy_arr[2]>>, but because of nervousness he did not last long.'
-
-if $args[0] = 'view_31_no_condom': $result = 'Finally, the guy cums, unload on your tummy.'
-if $args[0] = 'view_31_condom': $result = 'After a while, the guy cums in the condom.'
-if $args[0] = 'view_31_pills': $result = '<font color="navy"><i>— Can I pull.</i></font>
-You do not have time to say it, the guy is dead in you.'
-
-if $args[0] = 'view_31_cum0': $result = 'Finally, <<$_zz_boy_arr[0]>> cum let your pussy power sperm.
-<font color="navy"><i>— Damn! It asked the same! Could not get? Could gum to buy, I knew I fucking will!</i></font>
-The guy to blame is looking at you.'
-if $args[0] = 'view_31_cum1': $result = 'Soon <<$_zz_boy_arr[1]>> cum let your pussy power sperm.
-<font color="navy"><i>— Well hell, what are you stupid!</i></font>'
-if $args[0] = 'view_31_cum2': $result = '<<$_zz_boy_arr[2]>> Creampie you. 
-<font color="navy"><i>— You want me baby to make?</i></font>
-The guy to blame is looking at you and you run away in the shower, trying to wash out all the sperm. 
-When you are finished in the soul of your business, you return to the room, getting dressed and going home.'
-
-if $args[0] = 'view_32_sweat': $result = '<font color="navy"><i>— No one in the shower with me doesn`t want?</i></font> — Flirty you ask.
-The guys gladly agree. You pass with them to the bathroom, where the games begin: the guys lather your Breasts, squeezing them and pinching the nipples. Then comes the turn of your holes, which were also thoroughly lathered and scrubbed with fingers.'
-if $args[0] = 'view_32_bush': $result = '<font color="maroon"><i>- <<$pcs_nickname>>, why are you so hairy?</i></font>
-<font color="navy"><i>Meaning?</i></font>
-<font color="maroon"><i>— What is pussy don`t shave?</i></font>
-<font color="navy"><i>— And so bad, is it? I am lazy.</i></font>
-<font color="maroon"><i>— Not bad, but a mouthful of hair. Let`s go again?</i></font>
-You laughed.
-<font color="navy"><i>— Well, let`s!</i></font>
-You sit on the edge of the tub and spread her legs. <<$_zz_boy_arr[0]>> Soaps of your hairs on the pubic area and lips and begins to gently shave. When he reached the labia, <<$_zz_boy_arr[0]>> has been inserted into the vagina two fingers, pressing his small lips, so they do not interfere, then started to the most important shaving. You gasped.
-<font color="navy"><i>— I think I`m gonna come</i></font>, whispered you.
-<font color="maroon"><i>— Wait, wait...</i></font>
-<<$_zz_boy_arr[0]>> dobivaet you and rinses your pussy under the shower.
-After you washed <<$_zz_boy_arr[0]>> tips you and puts a cock to the entrance of the vagina.
-<font color="navy"><i>"Boys, let`s go to the crib. I`ll, uh, banging.</i></font>'
-
-if $args[0] = 'view_32_wdays': $result = '<font color="navy"><i>— Guys, only pussy today not a month from me.</i></font>
-<font color="maroon"><i>Well you can`t, that`s not right, we know our <<$pcs_nickname>> from different sides. She was a very versatile man!</i></font>'
-
-if $args[0] = 'view_36': $result = '<font color="navy"><i>— Well, boys like to fuck me today will?</i></font>
-<font color="maroon"><i>— And you only have to fuck?</i></font>
-<font color="navy"><i>— I wonder why I came here?</i></font>
-<font color="maroon"><i>- <<$pcs_nickname>>, you`re a born whore.</i></font>
-<font color="navy"><i>— I think so too. One profession mastered. And it`s not my fault that I like to fuck? And you did bad?</i></font>
-<font color="maroon"><i>— We? Yes, we do well! You need to expand the scope of activities.</i></font>
-<font color="navy"><i>— I don`t know... <<$npc_nickname[''A29'']>> says that being a prostitute is bad. Better just a whore. Although, what`s wrong? Only we have a small town, once the rumors will spread... All right, we about my bright prospects to say will you or I still will fuck?</i></font>
-With these words, you disrobe yourself and help to undress the guys, simultaneously caressing their members. And when all is stripped, you squat and hover around between you guys and start sucking and wanking them in turn.
-You stand cancer on the bed, appetizing arching the back and sticking out his ass, exposing an overview of their work both holes.'
-
-if $args[0] = 'view_36_dp0': $result = '<font color="navy"><i>— Who was the first?</i></font>
-To you <<$_zz_boy_arr[0]>> and starts fucking you in the ass. While he Fucks the other guys squeeze you, and you poskulivaet and squeal.
-After a while <<$_zz_boy_arr[0]>> you cums in the ass.
-<<$_zz_boy_arr[1]>> lies back and invites you to sit down on his cock.
-You get on top of him, turning to face him and sit with cunt on cock, immediately swallowing it to the depth.
-<font color="navy"><i>— The village girl on the needle...</i></font> — you mutter
-You lie down on the guy, while moving the hips so that your pussy was sucking the dick of your partner, and you can kiss a boy on the lips.
-At this time, <<$_zz_boy_arr[2]>> coming to you from behind.'
-
-if $args[0] = 'view_36_dp1': $result = 'He holds your ass with your hand, something lubricates your rear hole and having put a dick to the anus, and slowly enters you.
-<font color="navy"><i>— Ohhh!</i></font> — just say you.
-Your already rather podrastayut holes got a new sensation and almost forgotten feeling of fullness. At first, your Trinity is not entirely impossible to establish cooperation. A member of one, then the second guy POPs out and you help them to find the way back. But, little by little, the process has begun and you start to have fun.
-<<$_zz_boy_arr[2]>> you cums in the ass and you lie back, spread her legs and opening your mind to your nezakryvayushhihsya holes to <<$_zz_boy_arr[1]>> could you fucking with.
-<<$_zz_boy_arr[1]>> again comes into you and after a while cums in pussy.'
-
-if $args[0] = 'view_36_dp2': $result = 'He holds your ass with your hand, something lubricates your rear hole and having put a dick to the anus, is going to enter your ass, but a member of socalized and in contact with the guy`s dick you sit on. Smiling and something muttering, <<$_zz_boy_arr[2]>> also starts to shove his penis into your vagina is already taken. And he succeeds.
-<font color="navy"><i>— Oh, mother — you whine — you me and pussy will tear!</i></font>
-<font color="maroon"><i>— Do not ssy, <<$pcs_nickname>>, your Muff cabbage we have not exactly tear! Just a little bit more stretch, for the third!</i></font> — the guys start to laugh.
-But they are clearly uncomfortable. More little tough guys in turn fuck you, unceremoniously ending in the pussy.'
-
-if $args[0] = 'view_36_fin': $result = '<font color="maroon"><i>— Well, <<$pcs_nickname>>, as you doplatek?</i></font> asked someone of the guys.
-You lie tired, but happy. You involuntarily touch your hole hand: how did they developed...
-<font color="navy"><i>— Not very convenient, but... inexpressible feeling!</i></font>
-<font color="maroon"><i>— Repeat somehow?</i></font>
-<font color="navy"><i>— It would be necessary.</i></font>
-You go to shower, dress and go.'
-
-if $args[0] = 'view_37': $result = '<font color="navy"><i>- <<$_zz_boy_arr[0]>>, I put two fingers in her pussy</i></font>, — ask you.
-<<$_zz_boy_arr[0]>> willingly performs your request. But you somehow feel weak.
-<font color="navy"><i>Push as you enter.</i></font>'
-
-if $args[0] = 'view_37_more': $result = '<font color="maroon"><i>- <<$pcs_nickname>>, your tub leg completely comes in, not that hand.</i></font>
-<font color="navy"><i>— The leg we do not need. Fingers</i></font>.
-<<$_zz_boy_arr[0]>> starts to insert you hand and it slips easily on the wrist.
-<font color="maroon"><i>— Well, pizdischa you <<$pcs_nickname>>!</i></font>
-<font color="navy"><i>— Oh, come on, fuck yourself and themselves unhappy!</i></font>'
-if $args[0] = 'view_37_no_more': $result = '<<$_zz_boy_arr[0]>> starts to gently insert you hand and gradually it enters into the vagina by the thumb.'
-if $args[0] = 'view_37_next': $result = 'Oh, well something like! Now dig in boys!'
-
-if $args[0] = 'view_40': $result = 'You, totally naked, lying in bed with three young guys that caress you, while when you with mouth and pen, bring their members into the firing position.'
-
-
-
-if $args[0] = 'view_41': $result = '<font color="navy"><i>— Well, boys, I`ll fuck today?</i></font>
-Guys neigh.
-<font color="maroon"><i>- <<$pcs_nickname>>, you`re such a fucking.</i></font>
-<font color="navy"><i>— Damn, but is it bad?</i></font>
-You stand cancer on the bed, appetizing arching the back and sticking out his ass, exposing an overview of their work both holes.'
-
-
-! -----------------------------
-! cum variants
-if $args[0] = 'view_cum_in0': $result = '<font color="navy"><i>— Damn! It asked the same! Could not get? Could gum to buy, I knew I fucking will!</i></font>'
-if $args[0] = 'view_cum_in1': $result = '<font color="navy"><i>— You want me baby to make?</i></font>'
-if $args[0] = 'view_cum_in2': $result = '<font color="navy"><i>— Well hell, what are you stupid!</i></font>'
-if $args[0] = 'view_cum_in3': $result = '<font color="navy"><i>— Want to knock me up.?</i></font>'
-if $args[0] = 'view_cum_in4': $result = '<font color="navy"><i>Daddy like the baby of our call?</i></font>'
-if $args[0] = 'view_cum_in5': $result = '<font color="navy"><i>— Who is the last one and dad.</i></font>'
-
-if $args[0] = 'view_cum_in_mind0': $result = '"Damn, and to fly for long", — I think you.'
-if $args[0] = 'view_cum_in_mind1': $result = '"Well, I just play the game", thought you.'
-if $args[0] = 'view_cum_in_mind2': $result = '"I`m a real whore. But a whore must watch for your health. Need gum to buy. And tablets", — I think you.'
-
-! pose/variant
-if $args[0] = 'view_pose_0': $result = 'You stand cancer, and <<$_zz_boy_arr[0]>> Fucks you <<$sex_variant>>'
-if $args[0] = 'view_pose_1': $result = '<<$_zz_boy_arr[1]>> flips you on your back and starts fucking in <<$sex_variant>>'
-if $args[0] = 'view_pose_2': $result = 'To you <<$_zz_boy_arr[2]>> and going to fuck you in <<$sex_variant>>'
-!required vaginal
-if $args[0] = 'view_pose_3': $result = '<font color="navy"><i>— Honey, fuck me in the pussy, please, and then you all the other holes today, and I wish my puss fucked... Look how she is wet, swollen lips...</i></font>'
-if $args[0] = 'view_pose_4': $result = '<<$_zz_boy_arr[2]>> inserts into your languishing with desire pussy to his cock and starts fucking you, hammering at the depth. You ohaete and Aah and finish almost at the same time with your lover.'
-! with pills
-if $args[0] = 'view_pills': $result = '<font color="navy"><i>— Can I pull.</i></font>'
-! no condom
-if $args[0] = 'view_no_condom': $result = '<font color="navy"><i>— Only pull out do not forget!</i></font>'
-! condom
-if $args[0] = 'view_cum_on0': $result = 'After a while, the guy cums in the condom.'
-! cum on
-if $args[0] = 'view_cum_on1': $result = 'After a while, the guy cums in your pussy.'
-if $args[0] = 'view_cum_on2': $result = 'After a while, the guy cums on his back.'
-if $args[0] = 'view_cum_on3': $result = 'After a while, the guy cums you in the ass.'
-if $args[0] = 'view_cum_on4': $result = 'After a while, the guy cums in your mouth.'
-if $args[0] = 'view_cum_on5': $result = 'After a while, the guy cums on you belly.'
-! end
-if $args[0] = 'view_end': $result = 'After a short rest, you take a shower and get dressed and go home.'
-!---------
-
-
---- porn_view_strings ---------------------------------
-

locations/unused/pornfilm.qsrc

@@ -1,1978 +0,0 @@
-# pornfilm
-!!2021/06/10
-
-menu_off = 1
-
-if $ARGS[0] = 'pornactor':
-	if pfactor ! 50:
-		num = pfactor
-		:actorloop
-			akrand = rand(1,10)
-			if akrand = 1:
-				$pactor[num] = 'Alexei Radimov'
-				$pactorID[num] = 'A193'
-			elseif akrand = 2:
-				$pactor[num] = 'Sergei Tatarov'
-				$pactorID[num] = 'A194'
-			elseif akrand = 3:
-				$pactor[num] = 'Egor Klyuyev'
-				$pactorID[num] = 'A195'
-			elseif akrand = 4:
-				$pactor[num] = 'Ignat Vedenin'
-				$pactorID[num] = 'A196'
-			elseif akrand = 5:
-				$pactor[num] = 'Simon Rodionov'
-				$pactorID[num] = 'A197'
-			elseif akrand = 6:
-				$pactor[num] = 'Vasya Harkov'
-				$pactorID[num] = 'A198'
-			elseif akrand = 7:
-				$pactor[num] = 'Boris Tabrov'
-				$pactorID[num] = 'A199'
-			elseif akrand = 8:
-				$pactor[num] = 'Daniel Rasnik'
-				$pactorID[num] = 'A200'
-			elseif akrand = 9:
-				$pactor[num] = 'Peter Izratam'
-				$pactorID[num] = 'A201'
-			elseif akrand = 10:
-				$pactor[num] = 'Oleg Taburov'
-				$pactorID[num] = 'A202'
-			end
-			if num < pfactor:
-				num2 = pfactor
-				:actorloop2
-					if $pactor[num] = $pactor[num2]:jump 'actorloop'
-					num2 -= 1
-				if num2 > num:jump 'actorloop2'
-			end
-			if aksex[akrand] = 0:aksex[akrand] = 1 & guy += 1
-			num -= 1
-		if num > 0:jump 'actorloop'
-	end
-end
-
-if $ARGS[0] = 'pornactress':
-	if pfactor ! 50:
-		num = pfactor
-		:actressloop
-			akrand = rand(1,10)
-			if akrand = 1:
-				$pactress[num] = 'K'
-				$pactressID[num] = 'A207'
-			elseif akrand = 2:
-				$pactress[num] = 'Ellie Knight'
-				$pactressID[num] = 'A234'
-			elseif akrand = 3:
-				$pactress[num] = 'Jules Jordan'
-				$pactressID[num] = 'A235'
-			elseif akrand = 4:
-				$pactress[num] = 'Katrina Valentine'
-				$pactressID[num] = 'A236'
-			elseif akrand = 5:
-				$pactress[num] = 'Alexa Haze'
-				$pactressID[num] = 'A237'
-			elseif akrand = 6:
-			    $pactress[num] = 'Scarlett Rose'
-				$pactressID[num] = 'A203'
-			end
-			if num < pfactor:
-				num2 = pfactor
-				:actressloop2
-					if $pactress[num] = $pactress[num2]:jump 'actressloop'
-					num2 -= 1
-				if num2 > num:jump 'actressloop2'
-			end
-			if aksex[akrand] = 0:aksex[akrand] = 1 & girl += 1
-			num -= 1
-		if num > 0:jump 'actressloop'
-	end
-end
-
-if $ARGS[0] = '1':
-	if rand(0,1) = 0: pornhj += 1
-	pornbukk += 1
-	pfType = 0
-	*clr & cla
-	gs 'fame', 'city', 'porn', 10
-	minut += 30
-	gs 'stat'
-
-	'The set is already bustling with assistants preparing the set for the shoot.'
-	'<<$pactor[1]>> is your co-star for this shoot. He standing to the side, slowly stroking his dick.'
-
-	act 'Undress and start':
-		*clr & cla
-		'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/hj.mp4"></video></center>'
-		'<<$pactor[1]>> sits on the bed as the camera starts rolling. You kneel in front of him, take his dick in your hand and begin to stroke it.'
-
-		gs 'arousal', 'hj', 30, 'exhibitionism'
-		gs 'stat'
-
-		act 'Jerk him off':
-			*clr & cla
-			'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/hjcumontits.mp4"></video></center>'
-			'<<$pactor[1]>> caresses your tits as you continue to jerk his cock. After a few minutes, he stops feeling you up, leans back and starts groaning. You pick up the pace in repsonse, vigorously jerking his dick as you aim it at your tits.'
-			'He soon lets out a loud grunt and his hot cum starts squirting over your tits. When he finishes, you show your cum covered tits to the camera, playfully teasing your future viewers with a show of you squeezing and wiggling them before the shoot ends.'
-			gs 'cum_call', 'breasts', $pactorID[1], 1
-			gs 'arousal', 'hj', 5, 'exhibitionism'
-			gs 'arousal', 'end'
-			gs 'stat'
-
-			act 'Take a shower': gt 'pornstudio', 'shower'
-		end
-	end
-end
-
-if $ARGS[0] = '2':
-	if rand(0,2) = 0: pornhj += 1
-	if rand(0,1) = 0: pornbj += 1
-	pornswall += 1
-	if rand(0,2) = 0: pornbukk += 1
-	pfType = 0
-	*clr & cla
-	gs 'fame', 'city', 'porn', 12
-	minut += 30
-	gs 'stat'
-
-	'The set is already bustling with assistants preparing the set for the shoot.'
-	'<<$pactor[1]>> is your co-star for this shoot. He is standing to the side, slowly stroking his dick.'
-
-	act 'Undress and start':
-		*clr & cla
-		'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/hj.mp4"></video></center>'
-		'<<$pactor[1]>> sits on the bed as the camera starts rolling. You kneel in front of him, take his dick in your hand and begin to stroke it.'
-
-		gs 'arousal', 'hj', 30, 'exhibitionism'
-		gs 'stat'
-
-		act 'Blow him':
-			*clr & cla
-			'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/bj.mp4"></video></center>'
-			'His cock now rock hard, you take it into your mouth and start sucking.'
-
-			gs 'arousal', 'bj', 5, 'exhibitionism'
-			gs 'stat'
-
-			act 'Keep sucking':
-				*clr & cla
-				'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/deep.mp4"></video></center>'
-				'<<$pactor[1]>> grabs your hair in his fists and begins to fuck your mouth, driving his cock down your throat with every thrust.'
-				'After a few minutes of this, he takes his cock out and you wipe the saliva from your mouth while gasping for air.'
-
-				gs 'arousal', 'bj', 5, 'exhibitionism'
-				gs 'stat'
-
-				act 'Open your mouth':
-					*clr & cla
-					minut += 5
-					
-					'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/cum.mp4"></video></center>'
-					'<<$pactor[1]>> gives you a nod to let you know he is close, so you start quickly jerking him and stick your tongue out for him to shoot his load.'
-					cumnostd = 1
-					gs 'cum_call', 'mouth_swallow', $pactorID[1], 1, 0, 0, 36
-					gs 'cum_call', 'face', $pactorID[1], 1, 0, 0, 4
-					gs 'stat'
-					act 'Clean his cock':
-						*clr & cla
-						minut += 5
-						gs 'stat'
-						'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/bj2.mp4"></video></center>'
-						'You keep your eyes fixed on him as you gently lick every last drop of sperm from his cock before taking it back in your mouth and sucking, causing him to groan loudly in pleasure.'
-						'You then pop his dick out of your mouth and smile up at him as the shoot is called to an end.'
-						gs 'arousal', 'end'
-						gs 'stat'
-
-						act 'Take a shower': gt 'pornstudio', 'shower'
-					end
-				end
-			end
-		end
-	end
-end
-
-if $ARGS[0] = '3':
-	if rand(0,2) = 0: pornhj += 1
-	if rand(0,2) = 0: pornbj += 1
-	pornvag += 1
-	pornswall += 1
-	pfType = 0
-	*clr & cla
-	gs 'fame', 'city', 'porn', 16
-	minut += 180
-	gs 'stat'
-
-	'The set is already bustling with assistants preparing the set for the shoot.'
-	'<<$pactor[1]>> is your co-star for this shoot. He is standing to the side, slowly stroking his dick.'
-
-	act 'Undress and start':
-		*clr & cla
-		'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/hj.mp4"></video></center>'
-		'The camera starts rolling and the scene starts with you walking onto the set and giving the camera a very teasing striptease and close up of your naked body.'
-		'<<$pactor[1]>> then walks over and sits on the bed. You kneel in front of him, take his dick in your hand and start stroking it.'
-
-		gs 'arousal', 'hj', 30, 'exhibitionism'
-		gs 'stat'
-
-		act 'Blow him':
-			*clr & cla
-			'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/bj.mp4"></video></center>'
-			'You take his shaft into your mouth and start passionately sucking his dick while gazing up at him, giving him and the camera a seductive look. As you continue sucking, you reach between your legs and slowly massage your clit.'
-
-			gs 'arousal', 'bj', 5, 'exhibitionism'
-			gs 'stat'
-
-			act 'Deepthroat':
-				*clr & cla
-				'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/deep.mp4"></video></center>'
-				'<<$pactor[1]>> grabs your hair in his fists and begins to fuck your mouth deeply, occasionally withdrawing completely to allow you to catch your breath, before returning more vigorously.'
-
-				gs 'arousal', 'bj', 5, 'exhibitionism', 'deepthroat'
-				gs 'stat'
-
-				act 'Doggystyle':
-					*clr & cla
-					pcs_vag += 1
-					'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/doggysex.mp4"></video></center>'
-					'You stand and get on all fours on the edge of the bed. <<$pactor[1]>> guides his dick into your pussy and begins to fuck you hard from behind.'
-					'You spend the next few minutes getting fucked in this position before calling for a break. Once you''re rested, you get back into position and spend quite a bit of time getting fucked in a variety of other poses.'
-
-					!! Precum pregnancy check
-					cumnostd = 1
-					gs 'cum_call', 'precum', $pactorID[1], 1, 0, 10000, 1
-
-					gs 'arousal', 'vaginal', 15, 'exhibitionism'
-					gs 'stat'
-
-					act 'Facial':
-						*clr & cla
-						minut += 5
-						cumnostd = 1
-						gs 'cum_call', 'mouth_swallow', $pactorID[1], 1, 0, 0, 36
-						gs 'cum_call', 'face', $pactorID[1], 1, 0, 0, 4
-						
-						gs 'stat'
-						'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/cum.mp4"></video></center>'
-						'<<$pactor[1]>> is pounding you hard in the missionary position, your legs spread high and wide as you talk dirty for the camera, when you hear him panting loudly and feel him pulling out of you. You slide off the bed onto your knees in front of him and he shoots his load across your face with a loud grunt.'
-
-						act 'Clean his cock':
-							*clr & cla
-							minut += 5
-							gs 'stat'
-							'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/bj2.mp4"></video></center>'
-							'You gaze up at him adoringly as you meticulously lick all the cum off his dick before taking it into your mouth and sucking. The director ends the shoot looking rather pleased.'
-							gs 'arousal', 'end'
-							gs 'stat'
-
-							act 'Take a shower': gt 'pornstudio', 'shower'
-						end
-					end
-				end
-			end
-		end
-	end
-end
-
-if $ARGS[0] = '4':
-	if rand(0,2) = 0: pornhj += 1
-	if rand(0,1) = 0: pornbj += 1
-	if rand(0,1) = 0: pornvag += 1
-	if rand(0,1) = 0: pornanal += 1
-	if rand(0,1) = 0: pornbukk += 1
-	if rand(0,1) = 0: pornswall += 1
-	pfType = 0
-	*clr & cla
-	gs 'fame', 'city', 'porn', 20
-	minut += 180
-	gs 'stat'
-
-	'The set is already bustling with assistants preparing the set for the shoot.'
-	'<<$pactor[1]>> is your co-star for this shoot. He is standing to the side, slowly stroking his dick.'
-
-	act 'Undress and start':
-		*clr & cla
-		'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/hj.mp4"></video></center>'
-		'The camera starts rolling and the scene starts with you walking onto the set and giving the camera a very teasing striptease and close up of your naked body.'
-		'<<$pactor[1]>> then walks over and sits on the bed. You kneel in front of him, take his dick in your hand and start stroking it.'
-
-		gs 'arousal', 'hj', 30, 'exhibitionism'
-		gs 'stat'
-
-		act 'Blow him':
-			*clr & cla
-			'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/bj.mp4"></video></center>'
-			'Admiring the impressive size of the cock before you, you wrap your lips around the shaft and start sucking it as you reach between your legs and start rubbing your clit.'
-			
-			gs 'arousal', 'bj', 5, 'exhibitionism'
-			gs 'stat'
-
-			act 'Suck further':
-				*clr & cla
-				'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/deep.mp4"></video></center>'
-				'<<$pactor[1]>> relaxes as you take control, trying to take the full length of his cock down your throat.'
-
-				gs 'arousal', 'bj', 5, 'exhibitionism', 'deepthroat'
-				gs 'stat'
-
-				act 'Ride him':
-					*clr & cla
-					pcs_vag += 1
-					'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/sex.mp4"></video></center>'
-					'You straddle <<$pactor[1]>> and guide his dick into your pussy. You begin to ride him hard and really get into it. After a few minutes, he lifts you off of his dick, throws you on your back and spreads your legs so he can fuck you missionary style.'
-					'After pounding your pussy in a variety of other poses, <<$pactor[1]>> pulls his cock out of you and gets you on all fours, your ass high in the air. You feel him pressing against your anus.'
-
-					!! Precum pregnancy check
-					cumnostd = 1
-					gs 'cum_call', 'precum', $pactorID[1], 1, 0, 10000, 1
-
-					gs 'arousal', 'vaginal', 5, 'exhibitionism'
-					gs 'stat'
-
-					act 'Anal':
-						*clr & cla
-						pcs_ass += 1
-						'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/sex1.mp4"></video></center>'
-						'You try as best as you can to relax as <<$pactor[1]>> pushes into your ass and immediately goes at it like a jackhammer. He pulls out a few times to let you recover, the camera coming in for shots of your stretched hole each time, before he plunges his dick back inside you.'
-
-						gs 'arousal', 'anal', 5, 'exhibitionism'
-						gs 'stat'
-
-						act 'Kneel down and open your mouth':
-							*clr & cla
-							minut += 5
-							
-							gs 'stat'
-							'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/cum.mp4"></video></center>'
-							'<<$pactor[1]>> grabs you by the hips and really starts pounding your ass. Just as it''s starting to hurt, he pulls out of your ass and you quickly turn and kneel before him. He vigorously jerks his dick and his cum is soon splattering across your face and onto your tongue.'
-							cumnostd = 1
-							gs 'cum_call', 'mouth_swallow', $pactorID[1], 1, 0, 0, 36
-							gs 'cum_call', 'face', $pactorID[1], 1, 0, 0, 4
-
-							act 'Clean his cock':
-								*clr & cla
-								minut += 5
-								gs 'stat'
-								'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/bj2.mp4"></video></center>'
-								'You keep look deep into his eyes as you lick and suck his cock clean. He steps aside to let the camera come in for a shot of you. '
-								'You look up at the camera and smile, playfully showing off your cum coated face before the shoot ends.'
-								gs 'arousal', 'end'
-								gs 'stat'
-
-								act 'Take a shower': gt 'pornstudio', 'shower'
-							end
-						end
-					end
-				end
-			end
-		end
-	end
-end
-
-if $ARGS[0] = '5':
-	if rand(0,2) = 0: pornhj += 1
-	if rand(0,1) = 0: pornbj += 1
-	if rand(0,1) = 0: pornvag += 1
-	if rand(0,1) = 0: pornanal += 1
-	if rand(0,1) = 0: pornbukk += 1
-	if rand(0,1) = 0: pornswall += 1
-	porngang += 1
-	pfType = 0
-	*clr & cla
-	gs 'fame', 'city', 'porn', 25
-	minut += 180
-	gang += 1
-	gs 'stat'
-
-	'The set is already bustling with assistants preparing the set for the shoot.'
-	'You co-stars for this shoot are <<$pactor[1]>> and <<$pactor[2]>>. They are watching porn on a monitor, getting their cocks ready for you.'
-
-	act 'Undress and kneel':
-		*clr & cla
-		'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/tbj.mp4"></video></center>'
-		'You get into position kneeling before <<$pactor[1]>> and <<$pactor[2]>>. When the camera starts rolling, they slap their fully erect cocks against your face.'
-
-		gs 'arousal', 'bj', 10, 'exhibitionism', 'group'
-		gs 'stat'
-
-		act 'Suck them':
-			*clr & cla
-			pornbj += 1
-			gs 'stat'
-			'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/tbj2.mp4"></video></center>'
-			'You then start sucking the two dicks in front of you in turn, jerking the other with your hand. The two men moan loudly in pleasure and encourage you to take them deeper.'
-
-			gs 'arousal', 'bj', 15, 'exhibitionism'
-			gs 'stat'
-
-			act 'Spitroast':
-				*clr & cla
-				pcs_vag += 1
-				pornvag += 1
-				'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/three.mp4"></video></center>'
-				'The men get you on all fours and <<$pactor[1]>> slides his dick into your pussy while you continue to suck <<$pactor[2]>>''s dick.'
-				'The two men spend the next few minutes repositioning you and taking turns fucking your pussy.'
-
-				!! Precum pregnancy check
-				cumnostd = 1
-				gs 'cum_call', 'precum', $pactorID[1], 1, 0, 10000, 1
-
-				gs 'arousal', 'bj', -15, 'exhibitionism'
-				gs 'arousal', 'vaginal', 15, 'exhibitionism'
-				gs 'stat'
-
-				act 'Anal':
-					*clr & cla
-					pcs_ass += 1
-					pornanal += 1
-					'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/threea.mp4"></video></center>'
-					'<<$pactor[1]>> takes his cock out of your pussy and plunges it into your ass. The extra tightness quickly overwelms him and after only a few minutes in your ass, you feel him unloading inside you with a loud grunt.'
-					'You keep sucking <<$pactor[2]>>, who sounds like he is also close to climax.'
-					cumnostd = 1
-					gs 'cum_call', 'anus', $pactorID[1], 1, 0, 0, 40
-					gs 'arousal', 'bj', -15, 'exhibitionism'
-					gs 'arousal', 'anal', 15, 'exhibitionism'
-					gs 'stat'
-
-					act 'Facial':
-						*clr & cla
-						minut += 5
-						
-						pornswall += 1
-						'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/tcum.mp4"></video></center>'
-						'You are about to move around to clean up <<$pactor[1]>> when <<$pactor[2]>> grabs your head and shoots his load across your face. The two men say the most depraved things as cum slowly trickles down your face and out of your asshole.'
-                        'The director seems pleased, however, and calls an end to the shoot.'
-						cumnostd = 1
-						gs 'cum_call', 'mouth', $pactorID[2], 1, 0, 0, 40
-						gs 'arousal', 'end'
-						gs 'stat'
-
-						act 'Take a shower': gt 'pornstudio', 'shower'
-					end
-				end
-			end
-		end
-	end
-end
-
-if $ARGS[0] = '6':
-	pornbj += 1
-	pornvag += 1
-	pornanal += 1
-	if rand(0,1) = 0: pornbukk += 1
-	pornswall += 1
-	porngang += 1
-	pfType = 0
-	*clr & cla
-	gs 'fame', 'city', 'porn', 25
-	minut += 180
-	gang += 1
-	gs 'stat'
-
-	'The set is already bustling with assistants preparing the set for the shoot.'
-	'<<$pactor[1]>> and <<$pactor[2]>> are your co-stars for this shoot. They are watching porn on a monitor, getting their cocks ready for you.'
-
-	act 'Undress and start':
-		*clr & cla
-		'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/tbj.mp4"></video></center>'
-		'You get into position kneeling before <<$pactor[1]>> and <<$pactor[2]>>. When the camera starts rolling, they slap their fully erect cocks against your face.'
-
-		gs 'arousal', 'bj', 10, 'exhibitionism', 'group'
-		gs 'stat'
-
-		act 'Suck them':
-			*clr & cla
-			'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/tbj2.mp4"></video></center>'
-			'You start to suck both dicks in turn, jerking the other with your hand.'
-
-			gs 'arousal', 'bj', 15, 'exhibitionism', 'group'
-			gs 'stat'
-
-			act 'Fuck them':
-				*clr & cla
-				pcs_vag += 1
-				'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/three.mp4"></video></center>'
-				'You get on all fours and <<$pactor[1]>> fucks you from behind while you suck <<$pactor[2]>>''s dick.'
-                'You spend the next few minutes getting fucked in a variety of poses by the two men, who take turns fucking your pussy.'
-				!! Precum pregnancy check
-				cumnostd = 1
-				gs 'cum_call', 'precum', $pactorID[1], 1, 0, 10000, 1
-				gs 'stat'
-
-				gs 'arousal', 'bj', -15, 'exhibitionism', 'group'
-				gs 'arousal', 'vaginal', 15, 'exhibitionism', 'group'
-				gs 'stat'
-
-				act 'Anal':
-					*clr & cla
-					pcs_ass += 1
-					'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/threea.mp4"></video></center>'
-					'<<$pactor[1]>> switches it up and sticks his cock into your ass while you keep sucking <<$pactor[2]>>.'
-                    '<<$pactor[1]>> is really getting into it and is vigorously pounding your asshole.'
-					gs 'arousal', 'bj', -15, 'exhibitionism', 'group'
-					gs 'arousal', 'anal', 15, 'exhibitionism', 'group'
-					gs 'stat'
-
-					act 'Double penetration':
-						*clr & cla
-						pcs_ass += 1
-						pcs_vag += 1
-						'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/three2.mp4"></video></center>'
-						'<<$pactor[1]>> takes his dick out of your ass and lies down. Knowing <<$pactor[1]>> wants more, you straddle his cock.'
-						'You feel his cock fill your pussy while <<$pactor[2]>> moves in behind you and pushes his dick into your ass.'
-						'The guys find a rhythm and grind away at your holes as you moan loudly.'
-
-						gs 'arousal', 'anal', -15, 'exhibitionism', 'group'
-						gs 'arousal', 'vaginal', 15, 'exhibitionism', 'group'
-						gs 'stat'
-
-						act 'Finish them':
-							*clr & cla
-							minut += 5
-							
-							'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/tcum.mp4"></video></center>'
-							'The guys tell you they''re close and both pull out. You grab <<$pactor[1]>>''s dick and begin to suck it.'
-							'As you suck his dick, your head is suddenly grabbed and you are turned around. <<$pactor[2]>> shoots his load across your face and into your mouth, <<$pactor[1]>> following him close behind.'
-                            'The two men step aside to let the camera get a shot of you. You look up at the camera and smile, swallowing the cum in your mouth and finishing with a close up of your cum splattered face.'
-							cumnostd = 1
-							gs 'cum_call', 'mouth', $pactorID[1], 1, 0, 0, 10
-							gs 'cum_call', 'face', $pactorID[1], 1, 0, 0, 30
-							cumnostd = 1
-							gs 'cum_call', 'mouth', $pactorID[2], 1, 0, 0, 10
-							gs 'cum_call', 'face', $pactorID[2], 1, 0, 0, 30
-							gs 'arousal', 'end'
-							gs 'stat'
-
-							act 'Take a shower': gt 'pornstudio', 'shower'
-						end
-					end
-				end
-			end
-		end
-	end
-end
-
-if $ARGS[0] = '7':
-	if rand(0,1) = 0: pornbj += 1
-	pornvag += 1
-	if rand(0,2) = 0: porngang += 1
-	porncream += 1
-	pfType = 1
-	*clr & cla
-	gs 'fame', 'city', 'porn', 20
-	minut += 180
-	$orgasm_or = 'no'
-	gs 'stat'
-
-	'The set is already bustling with assistants preparing the set for the shoot.'
-	'Your co-star for this shoot is <<$pactor[1]>>. He is standing to the side, slowly stroking his dick.'
-
-	act 'Undress and start':
-		*clr & cla
-		pornbj += 1
-		'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/bj.mp4"></video></center>'
-		'You start by teasing the camera. You play with your tits and show off your pussy before <<$pactor[1]>> walks up. You kneel between his legs, take his shaft into your mouth and start passionately sucking his dick.'
-
-		gs 'arousal', 'bj', 30, 'exhibitionism'
-		gs 'stat'
-
-		act 'Keep sucking':
-			*clr & cla
-			'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/deep.mp4"></video></center>'
-			'<<$pactor[1]>> grabs your hair in his fists and begins to fuck your mouth, driving his cock down your throat with every thrust.'
-			'After a few minutes of this, he takes his cock out and you wipe the saliva from your mouth.'
-
-			gs 'arousal', 'bj', 15, 'exhibitionism'
-			gs 'stat'
-
-			act 'Get fucked':
-				*clr & cla
-				gs 'stat'
-				'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/pronebone.mp4"></video></center>'
-				'<<$pactor[1]>> grabs your hips, throws you on the couch and climbs on top of you. You feel him slide into your pussy and he begins to fuck you hard.'
-                'You spend the next few minutes getting fucked by him in a variety of positions.'
-				gs 'arousal', 'vaginal', 15, 'exhibitionism'
-				gs 'stat'
-
-				if orgasm_buildup => 200 - pcs_inhib:
-					if orgasm_buildup < 300 - pcs_inhib: gs 'willpower', 'exhib', 'self', 'hard'
-					if will_cost <= pcs_willpwr or orgasm_buildup => 300 - pcs_inhib:
-						act iif(orgasm_buildup < 300 - pcs_inhib, 'Block out everything but the pleasure and let yourself orgasm (<<will_cost>> Willpower)', 'Orgasm'):
-							*clr & cla
-							if orgasm_buildup < 300 - pcs_inhib: gs 'willpower', 'pay', 'self'
-							orgasmbonus += 10
-							porngasm += 1
-							cumnostd = 1
-							gs 'cum_call', '', $pactorID[1], 1, 0, 10000, 40
-							gs 'stat'
-							'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/porncp<<rand(1,3)>>.mp4" width="400"></video></center>'
-							'You are really getting into it and soon reach your orgasm. Your convulsing pussy tightens around <<$pactor[1]>>, which sends him over the edge. You soon feel yourself being filled with a considerable amount of sperm.'
-							'He climbs off of you, but you stay on the couch while the camera comes forward to film your pussy as you squeeze <<$pactor[1]>>''s load out from deep inside you. After a few minutes the director nods his head, and you get up.'
-							$orgasm_or = 'yes'
-							gs 'arousal', 'vaginal', 5, 'exhibitionism'
-							gs 'arousal', 'end'
-							gs 'stat'
-
-							act 'Take a shower': gt 'pornstudio', 'shower'
-						end
-					else
-						act 'Block out everything but the pleasure and let yourself orgasm (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
-					end
-				end
-				if orgasm_buildup < 300 - pcs_inhib:
-					act 'Fake orgasm':
-						*clr & cla
-						cumnostd = 1
-						!! gs 'cum_call', '', $pactorID[1], 1, 0, 10000, 40 (Not sure if this is needed anymore based on context. Delete if not.)
-						gs 'stat'
-						'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/porncp<<rand(1,3)>>.mp4" width="400"></video></center>'
-						'<<$pactor[1]>> is pounding your pussy a little too hard and cums too soon, his cum splattering across your stomach when he pulls out. The director cuts and <<$pactor[1]>> moves aside as an assistant comes forward with a towel and a plastic syringe. She wipes you clean before pushing the syringe inside you, causing you to gasp as you feel a cold liquid pool inside your vagina. Once he is hard again, <<$pactor[1]>> gets back into position and penetrates you.'
-						'The camera resumes filming and he starts thrusting. After a few minutes, you both fake an orgasm and he climbs off of you, but you stay on the couch while the camera comes forward to film your pussy as you squeeze the fake cum out from deep inside you. After a few minutes the director nods his head, and you get up.'
-						gs 'arousal', 'vaginal', 5, 'exhibitionism'
-						gs 'arousal', 'end'
-						gs 'stat'
-
-						act 'Take a shower': gt 'pornstudio', 'shower'
-					end
-				end
-			end
-		end
-	end
-end
-
-if $ARGS[0] = '8':
-	if rand(0,2) = 0: pornbj += 1
-	pornvag += 1
-	pornanal += 1
-	porngang += 1
-	porncream += 1
-	pfType = 1
-	*clr & cla
-	gs 'fame', 'city', 'porn', 25
-	minut += 180
-	gang += 1
-	porngang += 1
-	$orgasm_or = 'no'
-	gs 'stat'
-
-	'The set is already bustling with assistants preparing the set for the shoot.'
-	'<<$pactor[1]>> and <<$pactor[2]>> are your co-stars for this shoot. They are watching porn on a monitor, getting their cocks ready for you.'
-
-	act 'Undress and kneel':
-		*clr & cla
-		'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/tbj.mp4"></video></center>'
-		'You get into position kneeling before <<$pactor[1]>> and <<$pactor[2]>>. When the camera starts rolling, they slap their fully erect cocks against your face.'
-
-		gs 'arousal', 'bj', 10, 'exhibitionism', 'group'
-		gs 'stat'
-
-		act 'Suck them':
-			*clr & cla
-			'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/tbj2.mp4"></video></center>'
-			'You then start sucking the two dicks in front of you in turn, jerking the other with your hand. The two men moan loudly in pleasure and encourage you to take them deeper.'
-			gs 'arousal', 'bj', 15, 'exhibitionism', 'group'
-			gs 'stat'
-
-			act 'Fuck them':
-				*clr & cla
-				pcs_vag += 1
-				pcs_ass += 1
-				'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/threesomedp<<rand(1,5)>>.mp4" width="500"></video></center>'
-				if rand(0,1) = 0:
-					cumnostd = 1
-					gs 'cum_call', '', $pactorID[1], 1, 0, 10000, 40
-					gs 'cum_call', 'anus', $pactorID[2], 1, 0, 0, 40
-					'<<$pactor[1]>> lays on the bed and you climb on top of him, sliding his cock into your pussy, then wait until <<$pactor[2]>> pushes into your ass. He starts to fuck you enthusiastically, making you ride <<$pactor[1]>>''s dick. They fuck you like for a while before spending time repositioning you into various poses and fucking both your holes. After getting fucked in a variety of positions, the director signals to the guys that they should cum inside you.'
-				else
-					cumnostd = 1
-					gs 'cum_call', '', $pactorID[2], 1, 0, 10000, 40
-					gs 'cum_call', 'anus', $pactorID[1], 1, 0, 0, 40
-					'<<$pactor[2]>> lays on the bed and you climb on top of him, sliding his cock into your pussy, then wait until <<$pactor[1]>> pushes into your ass. He starts to fuck you enthusiastically, making you ride <<$pactor[2]>>''s dick. They fuck you like for a while before spending time repositioning you into various poses and fucking both your holes. After getting fucked in a variety of positions, the director signals to the guys that they should cum inside you.'
-				end
-				gs 'arousal', 'anal', -25, 'exhibitionism', 'group'
-				gs 'arousal', 'vaginal', 25, 'exhibitionism', 'group'
-				gs 'stat'
-
-				'The guys start to fuck you even faster in response, and you soon feel them twitching inside you.'
-
-				if orgasm_buildup => 200 - pcs_inhib:
-					if orgasm_buildup < 300 - pcs_inhib: gs 'willpower', 'exhib', 'self', 'hard'
-					if will_cost <= pcs_willpwr or orgasm_buildup => 300 - pcs_inhib:
-						act iif(orgasm_buildup < 300 - pcs_inhib, 'Block out everything but the pleasure and let yourself orgasm (<<will_cost>> Willpower)', 'Orgasm'):
-							cla
-							if orgasm_buildup < 300 - pcs_inhib: gs 'willpower', 'pay', 'self'
-							porngasm += 1
-							orgasmbonus += 10
-							'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/porgasm.mp4" width="400"></video></center>'
-							'You have a real and very explosive orgasm. Your legs buckle and you almost collapse on the guy beneath you as they both unload inside you. Once they are finished, they pull out and you lie on the bed with your legs spread so the camera can get a close up of your pussy and ass as their cum trickles out of you. After a few seconds, the director nods his head and you get up.'
-							$orgasm_or = 'yes'
-							gs 'arousal', 'vaginal', 5, 'exhibitionism'
-							gs 'arousal', 'end'
-							gs 'stat'
-
-							act 'Take a shower': gt 'pornstudio', 'shower'
-						end
-					else
-						act 'Block out everything but the pleasure and let yourself orgasm (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
-					end
-				end
-				if orgasm_buildup < 300 - pcs_inhib:
-					act 'Fake orgasm':
-						cla
-						'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/porgasm.mp4" width="400"></video></center>'
-						'You fake a screaming orgasm and talk dirty to the guys as they unload inside you. Once they are finished, they pull out and you lie on the bed with your legs spread so the camera can get a close up of your pussy and ass as their cum trickles out of you. After a few seconds, the director nods his head and you get up.'
-						gs 'arousal', 'vaginal', 5, 'exhibitionism'
-						gs 'arousal', 'end'
-						gs 'stat'
-
-						act 'Take a shower': gt 'pornstudio', 'shower'
-					end
-				end
-			end
-		end
-	end
-end
-
-if $ARGS[0] = '9':
-	if rand(0,2) = 0: pornbj += 1
-	pornswall += 1
-	pornvag += 1
-	porngang += 1
-	porncream += 1
-	pfType = 1
-	*clr & cla
-	gs 'fame', 'city', 'porn', 25
-	minut += 180
-	gang += 1
-	$orgasm_or = 'no'
-	gs 'stat'
-
-	'The set is already bustling with assistants preparing the set for the shoot.'
-	'<<$pactor[1]>> and <<$pactor[2]>> are your co-stars for this shoot. They are watching porn on a monitor, getting their cocks ready for you.'
-
-	act 'Undress and kneel':
-		*clr & cla
-		'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/tbj.mp4"></video></center>'
-		'You get into position kneeling before <<$pactor[1]>> and <<$pactor[2]>>. When the camera starts rolling, they slap their fully erect cocks against your face.'
-
-		gs 'arousal', 'bj', 10, 'exhibitionism', 'group'
-		gs 'stat'
-
-		act 'Suck them':
-			*clr & cla
-			'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/tbj2.mp4"></video></center>'
-			'You then start sucking the two dicks in front of you in turn, jerking the other with your hand. The two men moan loudly in pleasure and encourage you to take them deeper.'
-			'You are sucking <<$pactor[2]>>''s dick when he grabs your hair for leverage and starts face fucking you. After a while, the director gestures for you to move onto the next scene, so he releases you and urges you to push your ass out.'
-
-			gs 'arousal', 'bj', 15, 'exhibitionism', 'group', 'rough', 'deepthroat'
-			gs 'stat'
-
-			act 'Fuck them':
-				*clr & cla
-				pornvag += 1
-				pornswall += 1
-				'<center><video autoplay loop src="images/shared/sex/group/threesomepm<<rand(1,12)>>.mp4" width="500"></video></center>'
-
-				if rand(0,1) = 0:
-					!! Precum pregnancy check
-					cumnostd = 1
-					gs 'cum_call', 'precum', $pactorID[1], 1, 0, 10000, 1
-
-					cumnostd = 1
-					gs 'cum_call', '', $pactorID[1], 1, 0, 10000, 40
-					cumnostd = 1
-					gs 'cum_call', 'mouth', $pactorID[2], 1, 0, 0, 40
-
-					'You get in position before <<$pactor[2]>> and start to suck him while <<$pactor[1]>> starts to fuck your pussy. He fucks you enthusiastically, making you swallow <<$pactor[2]>>''s dick. They fuck you like this and in a number of other poses and take turns switching between your mouth and pussy before the director signals that it is time for the finale.'
-				else
-					!! Precum pregnancy check
-					cumnostd = 1
-					gs 'cum_call', 'precum', $pactorID[2], 1, 0, 10000, 1
-
-					cumnostd = 1
-					gs 'cum_call', '', $pactorID[2], 1, 0, 10000, 40
-					cumnostd = 1
-					gs 'cum_call', 'anus', $pactorID[1], 1, 0, 0, 40
-
-					'You get in position before <<$pactor[1]>> and start to suck him while <<$pactor[2]>> starts to fuck your pussy. He fucks you enthusiastically, making you swallow <<$pactor[1]>>''s dick. They fuck you like this and in a number of other poses and take turns switching between your mouth and pussy before the director signals that it is time for the finale.'
-				end
-				gs 'arousal', 'bj', -25, 'exhibitionism', 'group'
-				gs 'arousal', 'vaginal', 25, 'exhibitionism', 'group'
-				gs 'stat'
-
-				'The guys immediately start to fuck you even faster while still coordinating with each other and you soon feel them twitching inside you simultaneously. Your pussy is filled with cum as another load hits your throat, causing you to choke slightly.'
-
-				if orgasm_buildup => 200 - pcs_inhib:
-					if orgasm_buildup < 300 - pcs_inhib: gs 'willpower', 'exhib', 'self', 'hard'
-					if will_cost <= pcs_willpwr or orgasm_buildup => 300 - pcs_inhib:
-						act iif(orgasm_buildup < 300 - pcs_inhib, 'Block out everything but the pleasure and let yourself orgasm (<<will_cost>> Willpower)', 'Orgasm'):
-							cla
-							if orgasm_buildup < 300 - pcs_inhib: gs 'willpower', 'pay', 'self'
-							orgasmbonus += 10
-							porngasm += 1
-							'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/porgasm.mp4" width="400"></video></center>'
-							'You have a real orgasm and explosive orgasm, your moans muffled by the cock in your mouth. The guys finish and step away so the camera can film you swallowing the load in your mouth before moving down for a close up of the cum trickling out of your pussy.'
-							$orgasm_or = 'yes'
-							gs 'arousal', 'vaginal', 5, 'exhibitionism'
-							gs 'arousal', 'end'
-							gs 'stat'
-
-							act 'Take a shower': gt 'pornstudio', 'shower'
-						end
-					else
-						act 'Block out everything but the pleasure and let yourself orgasm (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
-					end
-				end
-				if orgasm_buildup < 300 - pcs_inhib:
-					act 'Fake orgasm':
-						cla
-						'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/porgasm.mp4" width="400"></video></center>'
-						'You fake an orgasm alongide the guys, your moans muffled by the cock in your mouth. The guys finish and step away so the camera can film you swallowing the load in your mouth before moving down to get a close up of the cum trickling out of your pussy.'
-						gs 'arousal', 'vaginal', 5, 'exhibitionism'
-						gs 'arousal', 'end'
-						gs 'stat'
-
-						act 'Take a shower': gt 'pornstudio', 'shower'
-					end
-				end
-			end
-		end
-	end
-end
-
-if $ARGS[0] = '10':
-	if rand(0,1) = 0: pornbj += 1
-	pornvag += 2
-	porngang += 2
-	if rand(0,1) = 0: pornhj += 1
-	pornbukk += 2
-	pfType = 1
-	*clr & cla
-	gs 'fame', 'city', 'porn', 30
-	minut += 180
-	gang += 1
-	$orgasm_or = 'no'
-	gs 'stat'
-
-	'The set is already bustling with assistants preparing the set for the shoot.'
-	'Your co-stars <<$pactor[1]>>, <<$pactor[2]>>, <<$pactor[3]>> and <<$pactor[4]>> are watching porn while loudly discussing who gets to do what first.'
-	'As they continue arguing with each other, you do a striptease for the camera, allowing it to get close up shots of both your holes as you talk dirty, teasing the viewers.'
-
-	act 'Warmup':
-		*clr & cla
-
-		'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/warmupgang.mp4" width="500"></video></center>'
-		'Under pressure from the director, the men eventually reach an agreement and gather around you. You starting sucking one guy''s dick while giving a handjob to another. The other two get creative - one of them sucks your tits while the other licks your pussy. The guys switch places once in a while, and soon the director indicates to change the scene.'
-
-		gs 'arousal', 'bj', -20, 'exhibitionism', 'group'
-		gs 'arousal', 'hj', 20, 'exhibitionism', 'group'
-		gs 'stat'
-
-		act 'Fuck them':
-			*clr & cla
-			'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/gangp<<rand(1,4)>>.mp4" width="500"></video></center>'
-			'The guys take turns fucking you in a variety of positions. You keep them hard by jerking and sucking them off when they''re not fucking you.'
-
-			!! Precum pregnancy check
-			cumnostd = 1
-			gs 'cum_call', 'precum', $pactorID[1], 1, 0, 10000, 1
-			cumnostd = 1
-			gs 'cum_call', 'precum', $pactorID[2], 1, 0, 10000, 1
-			cumnostd = 1
-			gs 'cum_call', 'precum', $pactorID[3], 1, 0, 10000, 1
-			cumnostd = 1
-			gs 'cum_call', 'precum', $pactorID[4], 1, 0, 10000, 1
-
-			gs 'arousal', 'vaginal', 20, 'exhibitionism', 'group'
-			gs 'stat'
-
-			act 'Finale':
-				killvar 'cuminside'
-				*clr & cla
-				'The guys continue to fuck you, but this time with the purpose of cumming as quickly as possible.'
-
-				if rand(0,5) > 0:
-					'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/cumbath<<rand(1,2)>>.mp4" width="500"></video></center>'
-					'<<$pactor[1]>> is fucking you when he suddenly groans and pulls out, coating your labia with his load of cum. You look up at him seductively while biting your lip, a look of satisifed pleasure on his face.'
-					gs 'cum_call', 'labia', $pactorID[1], 1, 0, 10000, 40
-				else
-					'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/cumbathm<<rand(1,2)>>.mp4" width="500"></video><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/cumbath<<rand(1,4)>>.mp4" width="500"></video></center>'
-					'<<$pactor[1]>> is fucking you when he suddenly groans and pulls his dick out of your pussy, but messes up when his first shot of cum shoots straight into your open pussy. He quickly corrects his aim, and the others coat your labia.'
-					cumnostd = 1
-					gs 'cum_call', '', $pactorID[1], 1, 0, 10000, 10
-					gs 'cum_call', 'labia', $pactorID[1], 1, 0, 10000, 30
-					cuminside = 1
-				end
-
-				if orgasm_buildup >= 200 - pcs_inhib:
-					orgasmbonus += 10
-					pornorg = 1
-					'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/porgasm.mp4" width="400"></video></center>'
-					'You are rubbing your clit and end up cumming alongside him as he coats your twitching pussy with his load.'
-					$orgasm_or = 'yes'
-					gs 'stat'
-				end
-				gs 'arousal', 'vaginal', 5, 'exhibitionism', 'group'
-				gs 'stat'
-
-				'When he is done, he is replaced by <<$pactor[2]>>, who quickly penetrates you and starts thrusting.'
-				if rand(0,5) > 0:
-					'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/cumbath4.mp4" width="500"></video></center>'
-					'Reaching climax, <<$pactor[2]>> groans and pulls out, aiming his dick at your tits. He jerks his dick and you look down to see hot cum splatter over your tits. You giggle and smile as you squeeze your cum covered tits in your hands.'
-					gs 'cum_call', 'breasts', $pactorID[2], 1, 0, 10000, 40
-				else
-					'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/cumbath4.mp4" width="500"></video></center>'
-					'Reaching climax, <<$pactor[2]>> groans and pulls out. He aims at your tits, but his first shot hits you straight in the face. He quickly corrects his aim, and the rest of his cum coats your tits.'
-					cumnostd = 1
-					gs 'cum_call', '', $pactorID[2], 1, 0, 10000, 10
-					gs 'cum_call', 'breasts', $pactorID[2], 1, 0, 10000, 30
-					cuminside = 1
-				end
-
-				if orgasm_buildup >= 200 - pcs_inhib:
-					orgasmbonus += 10
-					pornorg = 1
-					'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/porgasm.mp4" width="400"></video></center>'
-					'You are playing with your tits as <<$pactor[2]>> fucks you. You pinch your nipple just as he pulls out and have an explosive orgasm as he coats your writhing body with his cum.'
-					$orgasm_or = 'yes'
-					gs 'stat'
-				end
-				gs 'arousal', 'vaginal', 5, 'exhibitionism', 'group'
-				gs 'stat'
-
-				'When he is done, he is replaced by <<$pactor[3]>>, who moves in and starts pounding your pussy hard.'
-				if rand(0,5) > 0:
-					'<center><video autoplay loop src="images/shared/sex/cum/cum2.mp4" width="500"></video></center>'
-					'<<$pactor[3]>> is really going at it and doesn''t stop until the last second. He suddenly groans and quickly pulls out before straddling you. You close your eyes just in time as his warm cum splatter across your face and into your hair. When he''s finished, you take him into your mouth and suck his dick clean.'
-					gs 'cum_call', 'hair', $pactorID[3], 1, 0, 10000, 20
-					gs 'cum_call', 'face', $pactorID[3], 1, 0, 10000, 20
-				else
-					'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/cumbathm<<rand(1,2)>>.mp4" width="500"></video><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/cumbath2.mp4" width="500"></video></center>'
-					'<<$pactor[3]>> is pounding you hard. He reaches climax rather quickly, but doesn''t pull out fast enough. His first shot of cum shoots straight into your open pussy, and the rest splatters over your already covered labia.'
-					cumnostd = 1
-					gs 'cum_call', '', $pactorID[3], 1, 0, 10000, 10
-					gs 'cum_call', 'labia', $pactorID[3], 1, 0, 10000, 15
-					cuminside = 1
-				end
-
-				if orgasm_buildup >= 200 - pcs_inhib:
-					orgasmbonus += 10
-					pornorg = 1
-					'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/porgasm.mp4" width="400"></video></center>'
-					'<<$pactor[3]>> is pounding you so hard that you have an orgasm as he coats your writhing body with his load.'
-					$orgasm_or = 'yes'
-				end
-				gs 'arousal', 'vaginal', 5, 'exhibitionism', 'group'
-				gs 'stat'
-
-				'When he is done, he is replaced by <<$pactor[4]>>, the last of the men.'
-				if rand(0,5) > 0:
-					'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/cumbath3.mp4" width="500"></video></center>'
-					'<<$pactor[4]>> fucks you for only a few minutes before he groans and pulls out, coating your belly with his cum.'
-					gs 'cum_call', 'stomach', $pactorID[4], 1, 0, 10000, 40
-				else
-					'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/cumbathm<<rand(1,2)>>.mp4" width="500"></video><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/cumbath3.mp4" width="500"></video></center>'
-					'<<$pactor[4]>> fucks you for only a few minutes before he pulls out, but messes up when his first shot of cum shoots straight into your open pussy. He quickly corrects his aim, and the rest splatter across your stomach.'
-					cumnostd = 1
-					gs 'cum_call', '', $pactorID[4], 1, 0, 10000, 10
-					gs 'cum_call', 'stomach', $pactorID[4], 1, 0, 10000, 30
-					cuminside = 1
-				end
-
-				if orgasm_buildup >= 200 - pcs_inhib:
-					orgasmbonus += 10
-					pornorg = 1
-					'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/porgasm.mp4" width="400"></video></center>'
-					'The four guys fucking has aroused you greatly. You end up having an explosive orgasm as he coats your writhing body with his load.'
-					$orgasm_or = 'yes'
-				end
-				gs 'arousal', 'vaginal', 5, 'exhibitionism', 'group'
-				if cuminside = 1: porncream += 1 & killvar 'cuminside'
-				if pornorg = 1: porngasm += 1 & killvar 'pornorg'
-				gs 'stat'
-				gs 'arousal', 'end'
-				gs 'stat'
-				
-				'The men finished, you lie on the bed and teasingly play with your cum covered body for a few seconds, the camera getting few close ups of you before you sit up and use your fingers to scoop some cum off your tits, making a seductive show of sucking your fingers clean and smiling at the camera. The director is pleased and ends the shoot.'
-
-				act 'Take a shower': gt 'pornstudio', 'shower'
-			end
-		end
-	end
-end
-
-if $ARGS[0] = '11':
-	if rand(0,1) = 0:pornbj += 1
-	if rand(0,1) = 0:pornhj += 1
-	pornvag += 2
-	porngang += 2
-	porncream += 2
-	pfType = 1
-	*clr & cla
-	gs 'fame', 'city', 'porn', 30
-	minut += 180
-	gang += 1
-	$orgasm_or = 'no'
-	gs 'stat'
-
-	'The set is already bustling with assistants preparing the set for the shoot.'
-	'Your co-stars <<$pactor[1]>>, <<$pactor[2]>>, <<$pactor[3]>> and <<$pactor[4]>> are watching porn while loudly discussing who gets to do what first.'
-	'As they continue arguing with each other, you do a striptease for the camera, allowing it to get close up shots of both your holes as you talk dirty, teasing the viewers.'
-
-	act 'Warmup':
-		*clr & cla
-		'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/warmupgang.mp4" width="500"></video></center>'
-		'Under pressure from the director, the men eventually reach an agreement and gather around you. You starting sucking one guy''s dick while giving a handjob to another. The other two get creative - one of them sucks your tits while the other licks your pussy. The guys switch places once in a while, and soon the director indicates to change the scene.'
-
-		gs 'arousal', 'hj', -20, 'exhibitionism', 'group'
-		gs 'arousal', 'cuni', 20, 'exhibitionism', 'group'
-		gs 'stat'
-
-		act 'Fuck them':
-			*clr & cla
-			'<center><video autoplay loop src="images/shared/sex/group/threesomepm<<rand(1,12)>>.mp4" width="500"></video></center>'
-            'The guys take turns fucking you in a variety of positions. You keep them hard by jerking and sucking them off when they''re not fucking you.'
-
-			gs 'arousal', 'hj', -20, 'exhibitionism', 'group'
-			gs 'arousal', 'bj', -20, 'exhibitionism', 'group'
-			gs 'arousal', 'vaginal', 20, 'exhibitionism', 'group'
-			gs 'stat'
-
-			act 'Creampies':
-				*clr & cla
-				minut += 5
-				porncream += 1
-				'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/porncp<<rand(1,4)>>.mp4" width="500"></video></center>'
-				cumnostd = 1
-				gs 'cum_call', '', $pactorID[1], 1, 0, 10000, 40
-				cumnostd = 1
-				gs 'cum_call', '', $pactorID[2], 1, 0, 10000, 40
-				cumnostd = 1
-				gs 'cum_call', '', $pactorID[3], 1, 0, 10000, 40
-				cumnostd = 1
-				gs 'cum_call', '', $pactorID[4], 1, 0, 10000, 40
-				gs 'arousal', 'vaginal', 15, 'exhibitionism', 'group'
-
-				if orgasm_buildup => 200 - pcs_inhib:
-					if orgasm_buildup < 300 - pcs_inhib: gs 'willpower', 'exhib', 'self', 'hard'
-					if will_cost <= pcs_willpwr or orgasm_buildup => 300 - pcs_inhib:
-						act iif(orgasm_buildup < 300 - pcs_inhib, 'Block out everything but the pleasure and let yourself orgasm (<<will_cost>> Willpower)', 'Orgasm'):
-							*clr & cla
-							if orgasm_buildup < 300 - pcs_inhib: gs 'willpower', 'pay', 'self'
-							'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/porncp4some.mp4" width="400"></video></center>'
-							'You lie on your back, spread your legs and smile at the guys, talking dirty and inviting them to cum in you. They gather round and take turns fucking you, making you moan as you feel each load of cum pump deep inside you. The cum from the first two guys start to leak from you and pool below you as the last guy fucks you fast and hard.'
-							'Since you are already on edge, this pushes you over and you cum around his dick, milking it even more. This pleases the director greatly. As soon as the guys are finished, the camera comes for a close up as a stream of cum runs from your pussy. It then pans up to you and you give it a wink and kiss.'
-							orgasmbonus += 10
-							porngasm += 1
-							$orgasm_or = 'yes'
-							gs 'arousal', 'vaginal', 5, 'exhibitionism', 'group'
-							gs 'arousal', 'end'
-							gs 'stat'
-							act 'Finish':
-								*clr & cla
-								'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/pornwalk.mp4" height="200">'
-								'The scene ends with you putting on your dress and stepping out the door with cum still dripping from your pussy.'
-
-								act 'Take a shower': gt 'pornstudio', 'shower'
-							end
-						end
-					else
-						act 'Block out everything but the pleasure and let yourself orgasm (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
-					end
-				end
-				if orgasm_buildup < 300 - pcs_inhib:
-					act 'No orgasm':
-						*clr & cla
-						'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/porncp4some.mp4" width="400"></video></center>'
-						'You lie on your back, spread your legs and smile at the guys, talking dirty and inviting them to cum in you. They gather round and take turns fucking you, making you moan as you feel each load of cum pump deep inside you. The cum from the first two guys start to leak from you and pool below you as the last guy fucks you fast and hard.'
-						'As soon as the guys are finished, the camera comes for a close up as a stream of cum runs from your pussy. It then pans up to you and you give it a wink and kiss.'
-						gs 'arousal', 'end'
-						gs 'stat'
-						act 'Finish':
-							*clr & cla
-							'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/pornwalk.mp4" height="200">'
-							'The scene ends with you putting on your dress and stepping out the door with cum still dripping from your pussy.'
-
-							act 'Take a shower': gt 'pornstudio', 'shower'
-					    end
-					end
-				end
-			end
-		end
-	end
-end
-
-if $ARGS[0] = '12':
-	if rand(0,1) = 0: pornbj += 1
-	if rand(0,1) = 0: pornhj += 1
-	pornanal += 2
-	porngang += 2
-	porncream += 2
-	pfType = 0
-	*clr & cla
-	gs 'fame', 'city', 'porn', 30
-	minut += 180
-	gang += 1
-	$orgasm_or = 'no'
-	gs 'stat'
-
-	'The set is already bustling with assistants preparing the set for the shoot.'
-	'Your co-stars <<$pactor[1]>>, <<$pactor[2]>>, <<$pactor[3]>> and <<$pactor[4]>> are watching porn while loudly discussing who gets to do what first.'
-	'As they continue arguing with each other, you do a striptease for the camera, allowing it to get close up shots of both your holes as you talk dirty, teasing the viewers.'
-
-	act 'Warmup':
-		*clr & cla
-		'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/warmupgang.mp4" width="500"></video></center>'
-		'Under pressure from the director, the men eventually reach an agreement and gather around you. You starting sucking one guy''s dick while giving a handjob to another. The other two get creative - one of them sucks your tits while the other licks your pussy. The guys switch places once in a while, and soon the director indicates to change the scene.'
-
-		gs 'arousal', 'hj', -20, 'exhibitionism', 'group'
-		gs 'arousal', 'cuni', 20, 'exhibitionism', 'group'
-		gs 'stat'
-
-		act 'Fuck them':
-			*clr & cla
-			gs 'stat'
-			'<center><video autoplay loop src="images/shared/sex/group/threesomepm<<rand(0,5)>>.mp4" width="500"></video></center>'
-			'The guys take turns fucking your ass in a variety of positions. You keep them hard by jerking and sucking them off when they''re not fucking you.'
-
-			gs 'arousal', 'hj', -20, 'exhibitionism', 'group'
-			gs 'arousal', 'bj', -20, 'exhibitionism', 'group'
-			gs 'arousal', 'anal', 20, 'exhibitionism', 'group'
-			gs 'stat'
-
-			act 'Anal creampies':
-				*clr & cla
-				minut += 5
-				cumnostd = 1
-				gs 'cum_call', 'anus', $pactorID[1], 1, 0, 10000, 40
-				cumnostd = 1
-				gs 'cum_call', 'anus', $pactorID[2], 1, 0, 10000, 40
-				cumnostd = 1
-				gs 'cum_call', 'anus', $pactorID[3], 1, 0, 10000, 40
-				cumnostd = 1
-				gs 'cum_call', 'anus', $pactorID[4], 1, 0, 10000, 40
-				gs 'arousal', 'anal', 5, 'exhibitionism', 'group'
-				
-				if orgasm_buildup => 200 - pcs_inhib:
-					if orgasm_buildup < 300 - pcs_inhib: gs 'willpower', 'exhib', 'self', 'hard'
-					if will_cost <= pcs_willpwr or orgasm_buildup => 300 - pcs_inhib:
-						act iif(orgasm_buildup < 300 - pcs_inhib, 'Block out everything but the pleasure and let yourself orgasm (<<will_cost>> Willpower)', 'Orgasm'):
-							*clr & cla
-							if orgasm_buildup < 300 - pcs_inhib: gs 'willpower', 'pay', 'self'
-							'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/anal4some.mp4" width="400"></video></center>'
-							'You lower your head onto the pillows while pushing your ass in the air and spreading your cheeks to give the guys easy access to your hole. You feel a dick slide into your asshole and start fucking you hard for a few seconds before stopping. You then feel it push deep into your ass and pump a considerable amount of warm cum into your bowels.'
-							'Since you are already on edge, this pushes you over and you moan into the pillow as your legs buckle in orgasm. The director seems extremely pleased with this. The guy pulls out and you immediately feel another dick replace him, pushing deep into your ass before it starts thrusting. The other guys take their turns cumming in your ass, and by the time they''re done, you can feel a considerable amount of cum pooled inside you.'
-							orgasmbonus += 10
-							porngasm += 1
-							$orgasm_or = 'yes'
-							gs 'arousal', 'anal', 5, 'exhibitionism', 'group'
-							gs 'arousal', 'end'
-							gs 'stat'
-							act 'Finish':
-								*clr & cla
-								'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/pornwalk.mp4" height="200">'
-								'As soon as the last guy pulls out, you quickly stuff a butt plug into your ass to contain the cum inside you. The scene ends with you putting on your dress and stepping out the door with the cum inside you.'
-								act 'Take a shower': gt 'pornstudio', 'shower'
-							end
-						end
-					else
-						act 'Block out everything but the pleasure and let yourself orgasm (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
-					end
-				end
-				if orgasm_buildup < 300 - pcs_inhib:
-					act 'No orgasm':
-						*clr & cla
-						'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/anal4some.mp4" width="400"></video></center>'
-						'You lower your head onto the pillows while pushing your ass in the air and spreading your cheeks to give the guys easy access to your hole. You feel a dick slide into your asshole and start fucking you hard for a few seconds before stopping. You then feel it push deep into your ass and pump a considerable amount of warm cum into your bowels.' 
-						'The guy pulls out and you immediately feel another dick replace him, pushing deep into your ass before it starts thrusting. The other guys take their turns cumming in your ass, and by the time they''re done, you can feel a considerable amount of cum pooled inside you.'
-						gs 'arousal', 'anal', 5, 'exhibitionism', 'group'
-						gs 'arousal', 'end'
-						gs 'stat'
-						act 'Finish':
-							*clr & cla
-							'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/pornwalk.mp4" height="200">'
-							'As soon as the last guy pulls out, you quickly stuff a butt plug into your ass to contain the cum inside you. The scene ends with you putting on your dress and stepping out the door with the cum inside you.'
-							act 'Take a shower': gt 'pornstudio', 'shower'
-						end
-					end
-				end
-			end
-		end
-	end
-end
-
-if $ARGS[0] = '13':
-	if rand(0,1) = 0:pornbj += 1
-	if rand(0,1) = 0:pornhj += 1
-	pornvag += 1
-	pornanal += 1
-	porngang += 2
-	porncream += 2
-	pfType = 1
-	*clr & cla
-	gs 'fame', 'city', 'porn', 30
-	minut += 180
-	gang += 1
-	$orgasm_or = 'no'
-	gs 'stat'
-
-	'The set is already bustling with assistants preparing the set for the shoot.'
-	'Your co-stars <<$pactor[1]>>, <<$pactor[2]>>, <<$pactor[3]>> and <<$pactor[4]>> are watching porn while loudly discussing who gets to do what first.'
-	'As they continue arguing with each other, you do a striptease for the camera, allowing it to get close up shots of both your holes as you talk dirty, teasing the viewers.'
-
-	act 'Warmup':
-		*clr & cla
-		'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/warmupgang.mp4" width="500"></video></center>'
-		'Under pressure from the director, the men eventually reach an agreement and gather around you. You starting sucking one guy''s dick while giving a handjob to another. The other two get creative - one of them sucks your tits while the other licks your pussy. The guys switch places once in a while, and soon the director indicates to change the scene.'
-
-		gs 'arousal', 'hj', -20, 'exhibitionism', 'group'
-		gs 'arousal', 'bj', 20, 'exhibitionism', 'group'
-		gs 'stat'
-
-		act 'Let them fuck you':
-			*clr & cla
-			cumnostd = 1
-			gs 'cum_call', '', $pactorID[1], 1, 0, 10000, 40
-			cumnostd = 1
-			gs 'cum_call', '', $pactorID[2], 1, 0, 10000, 40
-			gs 'arousal', 'vaginal', 25, 'exhibitionism', 'group'
-
-			'<center><video autoplay loop src="images/shared/sex/group/doublevag<<rand(1,4)>>.mp4" width="500"></video></center>'
-
-			if orgasm_buildup < 200 - pcs_inhib:
-			    '<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/porgasm.mp4" width="400"></video></center>'
-				'<<$pactor[1]>> lies down on the bed and you slide down onto his dick, moaning as it stretches your pussy. <<$pactor[2]>> steps behind you and pushes his dick inside of your already occupied vagina, and the two guys start to fuck you in tandem. When the director signals, the two guys start fucking you more forcefully, and thanks to their timing, they cum inside you at the same time.'
-				'You talk dirty to them and fake an orgasm while you wait for them to finish unloading inside you.'
-				gs 'arousal', 'vaginal', 5, 'exhibitionism', 'group'
-				gs 'stat'
-			else
-				orgasmbonus += 10
-				porngasm += 1
-				'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/porgasm.mp4" width="400"></video></center>'
-				'<<$pactor[1]>> lies down on the bed and you slide down onto his dick, moaning as it stretches your pussy. <<$pactor[2]>> steps behind you and pushes his dick inside of your already occupied vagina, and the two guys start to fuck you in tandem. When the director signals, the two guys start fucking you more forcefully, and thanks to their timing, they cum inside you at the same time.'
-				'Thnaks to the two dicks stretching your pussy and fucking you hard, you also cum, crying out in pleasure as your pussy contracts around them while they unload inside you.'
-				$orgasm_or = 'yes'
-				gs 'arousal', 'vaginal', 5, 'exhibitionism', 'group'
-				gs 'stat'
-			end
-			$orgasm_or = 'no'
-			gs 'stat'
-
-			act 'They fuck your ass':
-				*clr & cla
-				cumnostd = 1
-				gs 'cum_call', 'anus', $pactorID[3], 1, 0, 10000, 40
-				cumnostd = 1
-				gs 'cum_call', 'anus', $pactorID[4], 1, 0, 10000, 40
-
-				gs 'arousal', 'anal', 25, 'exhibitionism', 'group'
-				gs 'stat'
-				'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/doublean<<rand(1,4)>>.mp4" width="500"></video></center>'
-                'Cum leaks from your pussy as <<$pactor[1]>> and <<$pactor[2]>> pull out and let <<$pactor[3]>> and <<$pactor[4]>> replace them. You give them both a quick blowjob before <<$pactor[3]>> lies on the bed and pulls you on top of him, sliding his cock into your ass. <<$pactor[4]>> moves in behind and inserts his dick into your already stretched hole. Despite the tightness, the guys quickly find a rhythm.'
-				
-				if orgasm_buildup => 200 - pcs_inhib:
-					if orgasm_buildup < 300 - pcs_inhib: gs 'willpower', 'exhib', 'self', 'hard'
-					if will_cost <= pcs_willpwr or orgasm_buildup => 300 - pcs_inhib:
-						act iif(orgasm_buildup < 300 - pcs_inhib, 'Block out everything but the pleasure and let yourself orgasm (<<will_cost>> Willpower)', 'Orgasm'):
-							*clr & cla
-							if orgasm_buildup < 300 - pcs_inhib: gs 'willpower', 'pay', 'self'
-							orgasmbonus += 10
-							porngasm += 1
-							'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/porgasm.mp4" width="400"></video></center>'
-							'The pleasure of your ass being double fucked means you also cum, visibly orgasming on camera alongside the guys.'
-							$orgasm_or = 'yes'
-							gs 'arousal', 'anal', 5, 'exhibitionism', 'group'
-							gs 'arousal', 'end'
-							gs 'stat'
-
-							act 'Take a shower': gt 'pornstudio', 'shower'
-						end
-					else
-						act 'Block out everything but the pleasure and let yourself orgasm (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
-					end
-					gs 'pornfilm', '13a'
-				else
-					gs 'pornfilm', '13a'
-				end
-			end
-		end
-	end
-end
-
-if $ARGS[0] = '13a':
-	act 'Fake orgasm':
-		*clr & cla
-		'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/porgasm.mp4" width="400"></video></center>'
-		'Cum leaks from your pussy as <<$pactor[1]>> and <<$pactor[2]>> pull out and let <<$pactor[3]>> and <<$pactor[4]>> replace them. You give them both a quick blowjob before <<$pactor[3]>> lies on the bed and pulls you on top of him, sliding his cock into your ass. <<$pactor[4]>> moves in behind and inserts his dick into your already stretched hole. Despite the tightness, the guys quickly find a rhythm.'
-		'You talk dirty to them while they fuck your ass and fake an orgasm when they cum inside you.'
-		gs 'arousal', 'anal', 5, 'exhibitionism', 'group'
-		gs 'arousal', 'end'
-		gs 'stat'
-
-		act 'Take a shower': gt 'pornstudio', 'shower'
-	end
-end
-
-if $ARGS[0] = '14':
-	porngang += 5
-	pornexhib += 5
-	pfType = 1
-	*clr & cla
-	gs 'fame', 'city', 'porn', 40
-	minut += 30
-	gang += 1
-	guy += 50
-	$orgasm_or = 'no'
-	gs 'stat'
-
-	'The set is already bustling with assistants preparing the set for the shoot.'
-	'There are fifty guys standing around. They are your fans, and they have come just for the chance to fuck you. They are all nervously talking, and watching your previous works on screens.'
-	'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/touching.mp4" width="500"></video></center>'
-	'You lie down on the stage and let them touch you to get them into the mood.'
-
-	gs 'arousal', 'foreplay', 60, 'gangbang', 'exhibitionism'
-	gs 'stat'
-
-	act 'Start filming':
-		*clr & cla
-		bj50 = rand(0,8)
-		hj50 = rand(0,8)
-		lip50 = rand(0,8)
-		anal50 = rand(0,8)
-		bukk50 = rand(0,8)
-		sex50 = 50 - bj50 - hj50 - lip50 - anal50 - bukk50
-		stat['vaginal'] += 50-anal50
-		if bj50 > 5:pornbj += 1
-		if hj50 > 5:
-			pornhj += 1 & pornbukk += 1
-		elseif hj50 > 5:
-			pornhj += 1
-		end
-		if lip50 > 5:pornbj += 1 & pornswall += 1
-		if anal50 > 5:pornanal += 1
-		if bukk50 > 5:pornbukk += 1
-		if sex50 > 45:
-			pornvag += 5
-			porncream += 5
-		elseif sex50 > 35:
-			pornvag += 4
-			porncream += 4
-		elseif sex50 > 25:
-			pornvag += 3
-			porncream += 3
-		elseif sex50 > 15:
-			pornvag += 2
-			porncream += 2
-		elseif sex50 > 5:
-			pornvag += 1
-			porncream += 1
-		end
-		sexpartkno = 0
-		pfcounter = 0
-		:gbblow
-		if bj50 > 0:
-			gs 'npcgeneratec', 0, 'Porn Fan', rand(22,38)
-			!! Precum pregnancy check
-			cumnostd = 1
-			gs 'cum_call', 'precum', 'Porn Fan', 0, 0, 10000, 1
-			cumnostd = 1
-			gs 'cum_call', 'mouth_swallow', 'Porn Fan', 0, 0, 10000, 40
-			bj50 -= 1
-			stat['bj'] += 1
-		end
-		if bj50 > 0: jump 'gbblow'
-		:gbhand
-		if hj50 > 0:
-			gs 'npcgeneratec', 0, 'Porn Fan', rand(22,38)
-			!! Precum pregnancy check
-			cumnostd = 1
-			gs 'cum_call', 'precum', 'Porn Fan', 0, 0, 10000, 1
-			gs 'cum_call', 'hands', 'Porn Fan', 0, 0, 10000, 40
-			hj50 -= 1
-			stat['hj'] += 1
-		end
-		if hj50 > 0: jump 'gbhand'
-		:gbface
-		if lip50 > 0:
-			gs 'npcgeneratec', 0, 'Porn Fan', rand(22,38)
-			!! Precum pregnancy check
-			cumnostd = 1
-			gs 'cum_call', 'precum', 'Porn Fan', 0, 0, 10000, 1
-			if rand(0,1)=0:
-				gs 'cum_call', 'face', 'Porn Fan', 0, 0, 10000, 40
-			else
-				gs 'cum_call', 'hair', 'Porn Fan', 0, 0, 10000, 40
-			end
-			lip50 -= 1
-			
-		end
-		if lip50 > 0: jump 'gbface'
-		:gbass
-		if anal50 > 0:
-			gs 'npcgeneratec', 0, 'Porn Fan', rand(22,38)
-			!! Precum pregnancy check
-			cumnostd = 1
-			gs 'cum_call', 'precum', 'Porn Fan', 0, 0, 10000, 1
-			cumnostd = 1
-			gs 'cum_call', 'anus', 'Porn Fan', 0, 0, 10000, 40
-			anal50 -= 1
-			stat['anal'] += 1
-		end
-		if anal50 > 0: jump 'gbass'
-		:gbbukk
-		if bukk50 > 0:
-			gs 'npcgeneratec', 0, 'Porn Fan', rand(22,38)
-			!! Precum pregnancy check
-			cumnostd = 1
-			gs 'cum_call', 'precum', 'Porn Fan', 0, 0, 10000, 1
-			bukkloc = rand(0,6)
-			if bukkloc = 0:
-				gs 'cum_call', 'labia', 'Porn Fan', 0, 0, 10000, 40
-			elseif bukkloc = 1:
-				gs 'cum_call', 'butt', 'Porn Fan', 0, 0, 10000, 40
-			elseif bukkloc = 2:
-				gs 'cum_call', 'back', 'Porn Fan', 0, 0, 10000, 40
-			elseif bukkloc = 3:
-				gs 'cum_call', 'legs', 'Porn Fan', 0, 0, 10000, 40
-			elseif bukkloc = 4:
-				gs 'cum_call', 'arms', 'Porn Fan', 0, 0, 10000, 40
-			elseif bukkloc = 5:
-				gs 'cum_call', 'stomach', 'Porn Fan', 0, 0, 10000, 40
-			else
-				gs 'cum_call', 'breasts', 'Porn Fan', 0, 0, 10000, 40
-			end
-			bukk50 -= 1
-		end
-		if bukk50 > 0: jump 'gbbukk'
-		:gbsex
-		if sex50 > 0:
-			gs 'npcgeneratec', 0, 'Porn Fan', rand(22,38)
-			gs 'boyStat', $npclastgenerated
-			pfcounter += 1
-			cumnostd = 1
-			gs 'cum_call', '', 'Porn Fan', 0, 0, 10000, 40
-			sex50 -= 1
-		end
-		if sex50 > 0: jump 'gbsex'
-
-		gangOrg = 0
-		!if pcs_horny > 70 and pcs_inhib > 80:gangOrg = rand(1,5) & orgazm += gangOrg & pcs_horny = rand(0,50)
-		!if gangOrg = 1:
-		!	$gangorg = ' and you still managed to have an orgasm.'
-		!	$orgasm_or = 'yes'
-		!elseif gangOrg > 0:
-		!	$gangorg = ' and you still managed to orgasm <<gangOrg>> times.'
-		!	$orgasm_or = 'yes'
-		!else
-		!	$gangorg = '.'
-		!end
-		!orgasmbonus += gangOrg*10
-		!porngasm += gangOrg
-		gs 'stat'
-		:gangbang_orgasm_loop
-		gangbang_loop_counter += 1
-		minut += 7
-		gs 'arousal', 'vaginal', -10, 'gangbang', 'exhibitionism'
-		$orgasm_or = 'no'
-		if orgasm_buildup >= 400 - 3*pcs_inhib:
-			gangOrg += 1
-			$orgasm_txt = ''
-			$orgasm_or = 'custom'
-		end
-		if gangbang_loop_counter < 50: jump 'gangbang_orgasm_loop'
-		killvar 'gangbang_loop_counter'
-		killvar '$orgasm_or'
-		*clr
-		'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/fuckfifty<<rand(0,5)>>.mp4" width="500"></video></center>'
-		'Your fans gather around and start to fuck you with great enthusiasm, but little technique. The gangbang lasts for hours and you are plastered in cum by the time they are finished.'
-
-		if gangOrg > 0: 'During the shoot you managed to ' + iif(gangOrg = 1, 'have one orgasm.', 'orgasm <<gangOrg>> times.')
-		orgasmbonus += gangOrg*10
-		porngasm += gangOrg
-
-		!gs 'arousal', 'vaginal', 360, 'gangbang', 'exhibitionism'
-		gs 'arousal', 'end'
-		gs 'stat'
-
-		act 'Take a shower': gt 'pornstudio', 'shower'
-	end
-end
-
-if $ARGS[0] = '15':
-	if rand(0,1) = 0:pornbj += 1
-	pornanal += 1
-	if rand(0,2) = 0:porngang += 1
-	porncream += 1
-	pfType = 1
-	*clr & cla
-	gs 'fame', 'city', 'porn', 20
-	minut += 180
-	gs 'stat'
-
-	'The set is already bustling with assistants preparing the set for the shoot.'
-	'<<$pactor[1]>> is your co-star for this shoot. He is standing to the side, slowly stroking his dick.'
-
-	act 'Undress and start':
-		*clr & cla
-		pornbj += 1
-		'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/bj.mp4"></video></center>'
-		'The scene starts with you giving a camera a striptease and bending over to give it a close up view of your asshole. You then finger your ass and use a dildo to fuck yourself before <<$pactor[1]>> walks over.'
-		'You crawl up to him with a seductive gaze, take his cock in your mouth and begin sucking it.'
-
-		gs 'arousal', 'bj', 30, 'exhibitionism'
-		gs 'stat'
-
-		act 'Keep sucking':
-			*clr & cla
-			'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/deep.mp4"></video></center>'
-			'<<$pactor[1]>> grabs your hair in his fists and begins to fuck your mouth, driving his cock down your throat with every thrust.'
-			'After a few minutes of this, he takes his cock out and you wipe the saliva from your mouth.'
-
-			gs 'arousal', 'bj', 15, 'exhibitionism'
-			gs 'stat'
-
-			act 'Penetration':
-				*clr & cla
-				'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/analinsert.mp4"></video></center>'
-				'<<$pactor[1]>> sits on the bed and you turn around, presenting your ass to him. He slaps and squeezes your ass a few times before you start grinding his cock between your ass cheeks, your saliva coating your asshole. <<$pactor[1]>> then guides his cock to your now wet hole and slowly penetrates you, both of you groaning as he slides inside you.'
-
-				gs 'arousal', 'anal', 15, 'exhibitionism'
-				gs 'stat'
-
-				act 'Anal':
-					*clr & cla
-					pcs_ass += 1
-					'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/sex2.mp4"></video></center>'
-					'<<$pactor[1]>> enjoys the tightness as you ride his dick hard, occasionally sliding it out to show both <<$pactor[1]>> and the camera your stretched hole. This continues for a while before it starts hurting and you pull out to suck his dick for a few minutes to let your ass recover.'
-					'You then get on all fours and <<$pactor[1]>> slides back inside you and resumes fucking your ass. You get ass fucked in a variety of positions, with breaks being called to let you rest or to let <<$pactor[1]>> get hard again.'
-
-					gs 'arousal', 'anal', 15, 'exhibitionism'
-					gs 'stat'
-
-					if orgasm_buildup => 200 - pcs_inhib:
-						gs 'willpower', 'exhib', 'self', 'hard'
-						if orgasm_buildup => 300 - pcs_inhib:
-							act 'Orgasm': gs 'pornfilm', '15b'
-						elseif will_cost <= pcs_willpwr:
-							act 'Block out everything but the pleasure and let yourself orgasm (<<will_cost>> Willpower)':
-								gs 'willpower', 'pay', 'self'
-								gs 'pornfilm', '15b'
-							end
-						else
-							act 'Block out everything but the pleasure and let yourself orgasm (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
-						end
-						gs 'pornfilm', '15a'
-					else
-						gs 'pornfilm', '15a'
-					end
-				end
-			end
-		end
-	end
-end
-
-if $ARGS[0] = '15a':
-	act 'Too early':
-		*clr & cla
-		sexpartkno = 1
-		cumnostd = 1
-		gs 'cum_call', 'anus', $pactorID[1], 1, 0, 10000, 40
-
-		'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/porncpanal.mp4" width="400"></video></center>'
-		'You have returned to riding <<$pactor[1]>>''s dick when you feel him starting to twitch inside you. It''s too early for him to finish, so he lifts you off of him, but not fast enough. You feel spurts of warm cum plastering your ass cheek.'
-		'The director cuts and motions for an assistant to come and clean you up. As she wipes the cum from your ass, you hear the director tell <<$pactor[1]>> that there isn''t enough time left to wait for him to get hard again, so makes the decison to take his place and make it a POV shot to hide his face.'
-		'The assistant finishes cleaning you as the director undresses and sits on the bed. You straddle him, slide down onto his awaiting dick and start riding him as he takes the camera in his hand and resumes filming. After a few minutes, you feel him unload deep inside your ass. You pull yourself off of him and bend over on all fours as he moves in behind you with the camera. Your ass lets out a loud squelch as you squeeze the cum from your well fucked asshole.' 
-		'The director seems satisfied with the scene and ends the shoot.'
-		gs 'arousal', 'anal', 5, 'exhibitionism'
-		gs 'arousal', 'end'
-		gs 'stat'
-
-		act 'Take a shower': gt 'pornstudio', 'shower'
-	end
-end
-
-if $ARGS[0] = '15b':
-	*clr & cla
-	sexpartkno = 1
-	orgasmbonus += 10
-	porngasm += 1
-	cumnostd = 1
-	gs 'cum_call', 'anus', $pactorID[1], 1, 0, 10000, 40
-
-	'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/porncpanal.mp4" width="400"></video></center>'
-	'You have returned to riding his dick and are really getting into it. You soon reach your orgasm and let out a pleasured scream as your ass tightens around <<$pactor[1]>>, which also sends him over the edge. You feel your bowels being flooded with warm cum.'
-	'You climb off of <<$pactor[1]>> and bend over on all fours as the camera moves in behind you. Your well fucked hole lets out a loud squelch as you squeeze the cum from your ass.'
-	'The director seems satisfied with the scene and ends the shoot.'
-	$orgasm_or = 'yes'
-	gs 'arousal', 'anal', 5, 'exhibitionism'
-	gs 'arousal', 'end'
-	gs 'stat'
-
-	act 'Take a shower': gt 'pornstudio', 'shower'
-end
-
-if $ARGS[0] = '16':
-	if rand(0,2)=0:pornhj += 1
-	if rand(0,2)=0:pornbj += 1
-	pornanal += 1
-	pornbukk += 1
-	pfType = 0
-	*clr & cla
-	gs 'fame', 'city', 'porn', 16
-	minut += 180
-	gs 'stat'
-
-	'The set is already bustling with assistants preparing the set for the shoot.'
-	'<<$pactor[1]>> is your co-star for this shoot. He is standing to the side, slowly stroking his dick.'
-
-	act 'Undress and start':
-		*clr & cla
-		'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/hj.mp4"></video></center>'
-		'The scene starts with you giving a camera a striptease and getting on all fours on a sofa to give it a close up view of your asshole. You then finger your ass before <<$pactor[1]>> walks over.'
-        '<<$pactor[1]>> sits on the sofa next to you. You kneel beside him, take his dick in your hand and start jerking it while making out with him.'
-
-		gs 'arousal', 'hj', 30, 'exhibitionism'
-		gs 'stat'
-
-		act 'Blow him':
-			*clr & cla
-			'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/bj.mp4"></video></center>'
-			'<<$pactor[1]>> is now rock hard in your hand, so you bend over and start passionately sucking his dick while he leans over and plays with your ass.'
-
-			gs 'arousal', 'bj', 5, 'exhibitionism'
-			gs 'stat'
-
-			act 'Rimjob':
-				*clr & cla
-				'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/rimming.mp4"></video></center>'
-				'After sucking his dick for a few minutes, you get up and seductively walk over to a nearby table. You lie down on the table and spread your ass for <<$pactor[1]>>, who walks over and begins to rim you, expertly flicking his tongue over your hole.'
-
-				gs 'arousal', 'rimming', 5, 'exhibitionism'
-				gs 'stat'
-
-				act 'Anal':
-					*clr & cla
-					pcs_ass += 1
-					'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/sexanal.mp4"></video></center>'
-					'Your asshole now wet and ready, <<$pactor[1]>> fingers your hole before standing and inserting his dick inside. He begins to fuck you hard, occasionally pulling out to show your gaping hole to the camera.'
-                    'You get ass fucked in various poses both on and next to the table with a number of breaks in filming to let you rest or let him get hard again. You eventually return to the pose on the table you started with.'
-					gs 'arousal', 'anal', 15, 'exhibitionism'
-					gs 'stat'
-
-					act 'Climax':
-						*clr & cla
-						minut += 5
-						cumnostd = 1
-						gs 'cum_call', 'butt', $pactorID[1], 1, 0, 10000, 40
-						gs 'stat'
-						'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/cumanal.mp4"></video></center>'
-						'<<$pactor[1]>> starts fucking your ass fast and hard as you talk dirty to him and the camera. He starts panting, and just as he is about to cum, he pulls out and shoots his load over your ass.'
-
-						act 'Clean his cock':
-							*clr & cla
-							minut += 5
-							gs 'cum_call', 'mouth_swallow', $pactorID[1], 1, 0, 10000, 4
-							'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/bj2.mp4"></video></center>'
-							'You quickly slide off the table and take his cock down your throat before licking his shaft clean, the camera getting a good shot of your cum covered ass as you do.'
-							gs 'arousal', 'end'
-							gs 'stat'
-
-							act 'Take a shower': gt 'pornstudio', 'shower'
-						end
-					end
-				end
-			end
-		end
-	end
-end
-
-if $ARGS[0] = '17':
-	porntrib += 1
-	porncuni += 1
-	pornlesbo += 1
-	pfType = 0
-	*clr & cla
-	gs 'fame', 'city', 'porn', 16
-	minut += 180
-	gs 'stat'
-
-	'The set is already bustling with assistants preparing the set for the shoot.'
-	'<<$pactress[1]>> is your co-star for this shoot. She is sitting to the side, fondling her breasts while watching porn on a monitor.'
-
-	act 'Start':
-		*clr & cla
-		'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/lesbo0.mp4"></video></center>'
-		'The scene starts with you playing with <<$pactress[1]>>''s ass. You give her a firm slap on the rear and tease the camera by slowly pulling her panties halfway down before pulling them up again. You then quickly pull them down again, this time to her ankles. She gives the camera a view of her pussy and asshole before you push her onto the bed in front of you.'
-
-		gs 'arousal', 'foreplay_give', 5, 'exhibitionism'
-		gs 'stat'
-
-		act 'Eat her pussy':
-			*clr & cla
-			'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/lesbo1.mp4"></video></center>'
-			'You kneel before <<$pactress[1]>>, lifting her panties from her ankles and spreading her legs. You slowly trace lines along her labia with your tongue before running it between her lips and reaching her clit. You then quickly start flicking her clit, your tongue swirling over it as it begins to swell.'
-
-			gs 'arousal', 'cuni_give', 15, 'exhibitionism'
-			gs 'stat'
-
-			act 'Your turn':
-				*clr & cla
-				'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/lesbo2.mp4"></video></center>'
-				'After pleasing her for a while, you withdraw your tongue from her crotch as she quickly pulls you down onto your back. She lifts your legs and practically rips your panties off, tossing them aside. She wastes no time and buries her face right into your pussy, teasing your engorged clit as she vigorously eats you out, her tongue lapping up the juices that run from your pussy.'
-
-				gs 'arousal', 'cuni', 15, 'exhibitionism'
-				gs 'stat'
-
-				act 'Tribbing':
-					*clr & cla
-					'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/lesbo3.mp4"></video></center>'
-					'Satisfied with pleasing you with her tongue, <<$pactress[1]>> straddles you and holds your leg to one side as she brings her pussy down to meet your own. You let out a pleasured moan as your clits make contact. She then begins rocking her hips back and forth and you both enjoy the sensation as your wet labia makes it easy for her to slide herself across you.'
-
-					gs 'arousal', 'trib', 15, 'exhibitionism'
-					gs 'stat'
-
-					act 'Double dildo':
-						*clr & cla
-						'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/lesbo4.mp4"></video></center>'
-						'<<$pactress[1]>> stops her movements and reaches over to grab a sizeable doubled headed dildo. She sucks on one end and slides it into your pussy. The toy buried firmly in your hole, she slides herself down onto the other end. She then starts to ride the dildo, her movements pushing it deeper into your pussy.'
-
-						gs 'arousal', 'vaginal_dildo', 15, 'exhibitionism'
-						gs 'stat'
-
-						act 'Finish':
-							*clr & cla
-							minut += 5
-							'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/porgasm.mp4"></video></center>'
-							'<<$pactress[1]>> reaches her climax as she slams down on the dildo, sending it deep into her pussy. Her body is overwhelmed in pleasure as her juices run down the shaft of the dildo and onto your pussy. She withdraws the dildo from her pussy and pulls it out of you. You both suck the ends of it clean.'
-							gs 'arousal', 'end'
-							gs 'stat'
-
-							act 'Take a shower': gt 'pornstudio', 'shower'
-						end
-					end
-				end
-			end
-		end
-	end
-end
-
-if $ARGS[0] = '18':
-	porncuni += 1
-	pornlesbo += 1
-	pfType = 0
-	*clr & cla
-	gs 'fame', 'city', 'porn', 16
-	minut += 180
-	gs 'stat'
-
-	'The set is already bustling with assistants preparing the set for the shoot.'
-	'<<$pactress[1]>>, your co-star for this shoot, is sitting to the side, fondling her breasts while watching porn on a monitor.'
-
-	act 'Start':
-		*clr & cla
-		'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/lesbo0.mp4"></video></center>'
-		'The scene starts with you playing with <<$pactress[1]>>''s ass. You give her a firm slap on the rear and tease the camera by slowly pulling her panties halfway down before pulling them up again. You then quickly pull them down, this time to her ankles. She gives the camera a view of her pussy and asshole before you push her onto the bed in front of you.'
-
-		gs 'arousal', 'foreplay_give', 5, 'exhibitionism'
-		gs 'stat'
-
-		act 'Eat her pussy':
-			*clr & cla
-			'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/lesbo1.mp4"></video></center>'
-			'You kneel before <<$pactress[1]>>, lifting her panties from her ankles and spreading her legs. You slowly trace lines along her labia with your tongue before running it between her lips and reaching her clit. You then quickly start flicking her clit, your tongue swirling over it as it begins to swell.'
-
-			gs 'arousal', 'cuni_give', 15, 'exhibitionism'
-			gs 'stat'
-
-			act 'Your turn':
-				*clr & cla
-				'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/lesbo2.mp4"></video></center>'
-				'After pleasing her for a while, you withdraw your tongue from her crotch as she quickly pulls you down onto your back. She lifts your legs and practically rips your panties off, tossing them aside. She wastes no time and buries her face right into your pussy, teasing your engorged clit as she vigorously eats you out, her tongue lapping up the juices that run from your pussy.'
-
-				gs 'arousal', 'cuni', 15, 'exhibitionism'
-				gs 'stat'
-
-				act 'Get fucked':
-					*clr & cla
-					'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/lesbo5.mp4"></video></center>'
-					'You are lying on the bed as <<$pactress[1]>> moves off to the side and slips on a strapon dildo. She moves over to you as you slide down, take the plastic cock in your mouth and give her a blowjob. She pushes you down onto the bed and climbs on top of you. She slides inside your pussy and begins to fuck you hard.'
-
-					gs 'arousal', 'vaginal_strap', 15, 'exhibitionism'
-					gs 'stat'
-
-					act 'Her turn':
-						*clr & cla
-						'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/lesbo6.mp4"></video></center>'
-						'After the vigorous pounding, <<$pactress[1]>> pulls out, slides the strapon off and gets on all fours as you stand and strap yourself in. She is on her knees before you begging you to fuck her ass and you are eager to comply. The plastic cock is coated in your juices and this makes it easy to push yourself into her awaiting hole. You begin to fuck her ass as she begs you to go harder.'
-
-						gs 'arousal', 'anal_strap_give', 15, 'exhibitionism'
-						gs 'stat'
-
-						act 'Finish':
-							*clr & cla
-							minut += 5
-							'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/lesbo7.mp4"></video></center>'
-							'The relentless ass fucking you give <<$pactress[1]>> is enough to bring her to orgasm. Her juices spray from her twitching pussy as her ass tightens around your fake cock. You pull out of her and the camera comes in for a shot of her stretched hole. The scene ends with you locking tongues with <<$pactress[1]>> '
-							gs 'arousal', 'end'
-							gs 'stat'
-
-							act 'Take a shower': gt 'pornstudio', 'shower'
-						end
-					end
-				end
-			end
-		end
-	end
-end
-
-
-if $ARGS[0] = '19':
-	pornbj += 1
-	pornvag += 1
-	pornanal += 1
-	pornswall += 1
-	porngang += 1
-	pfType = 0
-	*clr & cla
-	gs 'fame', 'city', 'porn', 25
-	minut += 180
-	gang += 1
-	gs 'stat'
-
-	'The set is already bustling with assistants preparing the set for the shoot.'
-	'<<$pactor[1]>> is watching porn on a monitor, getting himself ready while <<$pactress[1]>> is having her make up touched up.'
-
-	act 'Undress and start':
-		*clr & cla
-		'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/mff0.mp4"></video></center>'
-		'The camera starts rolling and comes for a close up of you and <<$pactress[1]>>. As it does, she grabs your ass and gives it a jiggle for the camera. <<$pactor[1]>> moves into the scene and you both kneel before him.'
-
-		act 'Suck':
-			*clr & cla
-			'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/mff1.mp4"></video></center>'
-			'You take <<$pactor[1]>>''s cock into your mouth and begin sucking on his tip as <<$pactress[1]>> runs her tongue along his shaft. You then take him deeper into your throat as <<$pactress[1]>> playfully sucks on his balls.'
-
-			gs 'arousal', 'bj', 15, 'exhibitionism', 'group'
-			gs 'stat'
-
-			act 'Fuck':
-				*clr & cla
-				pcs_vag += 1
-				'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/mff2.mp4"></video></center>'
-				'<<$pactress[1]>> remains on her knees as you move up and guide <<$pactor[1]>>''s cock into your pussy. You start riding him as <<$pactress[1]>> buries her face in your pussy and quickly starts flicking her tongue over your clit, waves of pleasure overwhelming you.'
-
-				!! Precum pregnancy check
-				cumnostd = 1
-				gs 'cum_call', 'precum', $pactorID[1], 1, 0, 10000, 1
-
-				gs 'arousal', 'bj', 15, 'exhibitionism', 'group'
-				gs 'arousal', 'vaginal', 15, 'exhibitionism', 'group'
-				gs 'arousal', 'cuni', 15, 'exhibitionism', 'group'
-				gs 'stat'
-
-				act 'Anal':
-					*clr & cla
-					pcs_ass += 1
-					'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/mff3.mp4"></video></center>'
-					'<<$pactress[1]>> gets up from the floor and lies down on the bed. You straddle her, your pussy sitting before her face. <<$pactor[1]>> moves in behind and slowly pushes his cock into your ass. <<$pactress[1]>> playfully licks your swollen clit as he starts fucking your ass hard.'
-
-					gs 'arousal', 'cuni', 15, 'exhibitionism', 'group'
-					gs 'arousal', 'anal', 15, 'exhibitionism', 'group'
-					gs 'stat'
-
-					act 'Creampie':
-						*clr & cla
-						'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/mff4.mp4"></video></center>'
-						'You eventually feel <<$pactor[1]>> starting to twitch and feel a sudden warmth flood your ass. He pulls out and a stream of cum soon follows, running down your pussy and into <<$pactress[1]>>''s awaiting mouth.'
-
-						cumnostd = 1
-						gs 'cum_call', 'anus', $pactorID[1], 1, 0, 10000, 20
-						gs 'arousal', 'anal', 15, 'exhibitionism', 'group'
-						gs 'arousal', 'cuni', 15, 'exhibitionism', 'group'
-						gs 'stat'
-
-						act 'Cum sharing':
-							*clr & cla
-							minut += 5
-							pornswall += 1
-							'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/mff5.mp4"></video></center>'
-							'You quickly climb off <<$pactress[1]>> and kneel before her as she opens her mouth and <<$pactor[1]>>''s load drools from her tongue and into your mouth. You show the camera your cum filled mouth before swallowing the cum and finishing the scene making out with <<$pactress[1]>>'
-							cumnostd = 1
-							gs 'cum_call', 'mouth', $pactorID[1], 1, 0, 10000, 20
-							act 'Take a shower': gt 'pornstudio', 'shower'
-						end
-					end
-				end
-			end
-		end
-	end
-end
-
-if $ARGS[0] = '20':
-	pornbj += 1
-	pornswall += 1
-	porngang += 1
-	pfType = 0
-	*clr & cla
-	gs 'fame', 'city', 'porn', 25
-	minut += 180
-	gang += 1
-	gs 'stat'
-
-	'The set is already bustling with assistants preparing the set for the shoot.'
-	'<<$pactor[1]>> is watching porn on a monitor, getting himself ready while <<$pactress[1]>> is having her make up touched up.'
-
-	act 'Undress and start':
-		*clr & cla
-		'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/mff0.mp4"></video></center>'
-		'The camera starts rolling and comes for a close up of you and <<$pactress[1]>>. As it does, you grab her ass and give it a jiggle for the camera. <<$pactor[1]>> moves into the scene and you both kneel before him.'
-
-		act 'Suck':
-			*clr & cla
-			'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/mff1.mp4"></video></center>'
-			'<<$pactress[1]>> wastes no time and takes <<$pactor[1]>>''s cock right down her throat as you get down low and suck his balls.'
-
-			gs 'arousal', 'bj', 15, 'exhibitionism', 'group'
-			gs 'stat'
-
-			act 'Fuck':
-				*clr & cla
-				'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/mff2.mp4"></video></center>'
-				'You remain on your knees as <<$pactress[1]>> straddles <<$pactor[1]>>, slides down onto his cock and starts riding him. You take your place and bury your face into her pussy, running your tongue over her clit as she takes <<$pactor[1]>> deep inside her. She shrieks in pleasure and you''re sure that she orgasms at least once.'
-
-				gs 'arousal', 'cuni_give', 15, 'exhibitionism', 'group'
-				gs 'stat'
-
-				act 'Anal':
-					*clr & cla
-					'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/mff3.mp4"></video></center>'
-					'You lie down on the bed, <<$pactress[1]>> straddling you, her glistening pussy begging for you to please it. <<$pactor[1]>> moves in behind and inserts himself into her ass and starts to pound her, <<$pactress[1]>> begging him to go harder. You start flicking your tongue over <<$pactress[1]>>''s now massively engorged clit.'
-
-					gs 'arousal', 'cuni_give', 15, 'exhibitionism', 'group'
-					gs 'stat'
-
-					act 'Creampie':
-						*clr & cla
-						'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/mff4.mp4"></video></center>'
-						'You pull your face out of <<$pactress[1]>>''s crotch in time to see <<$pactor[1]>>''s balls twitching as he unloads inside her ass. At the same time, you see her pussy convulsing and she screams in pleasure as they reach orgasm together. You open your mouth as he pulls out of her, and a stream of cum runs from her hole down onto your tongue.'
-
-						cumnostd = 1
-						gs 'cum_call', 'mouth', $pactorID[1], 1, 0, 10000, 30
-						gs 'arousal', 'cuni_give', 15, 'exhibitionism', 'group'
-						gs 'stat'
-
-						act 'Cum sharing':
-							*clr & cla
-							minut += 5
-							'<center><video autoplay loop src="images/locations/city/redlight/studio_porn/sex/mff5.mp4"></video></center>'
-							'<<$pactress[1]>> climbs off and kneels in front of you as you open your mouth and allow <<$pactor[1]>>''s load to drool from your tongue and into her mouth. She then shows her cum filled mouth to the camera and makes a rather perverted show of swallowing it. The scene ends with the two of you making out.'
-							act 'Take a shower': gt 'pornstudio', 'shower'
-						end
-					end
-				end
-			end
-		end
-	end
-end
-
---- pornfilm ---------------------------------
-

locations/unused/pornhist.qsrc

@@ -1,354 +0,0 @@
-# pornhist
-!! Short description of made movies, without details
-if $ARGS[0] = 'short':
-	i = 1
-	$pfilmhistory = ''
-	:pornhistloop
-		dynamic $pornfilmdesc, pornfilmType[i]
-		if pornfilmMonth[i] >= 10 and pornfilmDay[i] >= 10:
-			$pornfilmDate[i] = '<<pornfilmYear[i]>>-<<pornfilmMonth[i]>>-<<pornfilmDay[i]>>'
-		elseif pornfilmMonth[i] >= 10 and pornfilmDay[i] < 10:
-			$pornfilmDate[i] = '<<pornfilmYear[i]>>-<<pornfilmMonth[i]>>-0<<pornfilmDay[i]>>'
-		elseif pornfilmMonth[i] < 10 and pornfilmDay[i] >= 10:
-			$pornfilmDate[i] = '<<pornfilmYear[i]>>-0<<pornfilmMonth[i]>>-<<pornfilmDay[i]>>'
-		else
-			$pornfilmDate[i] = '<<pornfilmYear[i]>>-0<<pornfilmMonth[i]>>-0<<pornfilmDay[i]>>'
-		end
-
-		if $porntitle[i] = '':
-			$pfilmhistory += '● <b><<i>>. Movie</b><br><font size=2></font><br>'
-		else
-			if i = 1:
-				$pfilmhistory += '● <b>'+$porntitle[i]+'<<$pfname>></b><br><font size=2>'+$pfilmtext+'</font><br>'
-			else
-				$pfilmhistory += '● <b>'+$porntitle[i]+'</b><br><font size=2>'+$pfilmtext+'</font><br>'
-			end
-		end
-	if i < film: i += 1 & jump 'pornhistloop'
-end
-
-!! Detailed description of movies, only available after selecting the "Filmography" link
-if $ARGS[0] = 'pdetail':
-	*clr & cla
-	'<center><h1>Filmography of <font color="magenta"><<$pfname>></font></h1></center>'
-	'<center><table width="90%" cellspacing="0" cellpadding="20" valign="top"><tr>'
-	'<td cellspacing="0" cellpadding="0" valign="top">'
-	i = 1
-	killvar 'firstvariable'
-	killvar 'firstvariable2'
-	:pornhistloop2
-		dynamic $pornfilmdesc, pornfilmType[i]
-		if $porntitle[i] = '':
-			if firstvariable = 0:firstvariable = 1 & fvvalue = i
-			'<b><a href="exec:$porntitle[fvvalue] = input(''<font color=#FF0000>WARNING!</font> No matter where you clicked, it will name the <b>first</b> unnamed movie! This action can be done only once!'') & gs ''pornhist'', ''pdetail''"><<i>>. Movie</a></b>'
-		else
-			if i = 1:
-				'<b><font color="brown"><<$porntitle[i]>><<$pfname>></font></b>'
-			else
-				'<b><font color="brown"><<$porntitle[i]>></font></b>'
-			end
-		end
-		if daystart - porndaystart[i] = 0:
-			' <b>Production date:</b> <font size=2><<$pornfilmDate[i]>> (Today)</font>'
-		elseif daystart - porndaystart[i] = 1:
-			' <b>Production date:</b> <font size=2><<$pornfilmDate[i]>> (Yesterday)</font>'
-		else
-			' <b>Production date:</b> <font size=2><<$pornfilmDate[i]>> (<<daystart - porndaystart[i]>> days ago)</font>'
-		end
-		' <b>Actress age:</b> <font size=2><<pornfilmActAge[i]>></font>  <font size=2>(Appears: <<pornfilmAppAge[i]>>)</font>'
-		if $pornfilmActor[i] = 'Fifty fans of':
-			' <b>Actors:</b> <font size=2><<$pornfilmActor[i]>> <<$pfname>> and <<$pfname>> herself</font>'
-		else
-			' <b>Actors:</b> <font size=2><<$pornfilmActor[i]>> and <<$pfname>></font>'
-		end
-		' <b>Income:</b> <font size=2><<pornfilmCash[i]>>₽</font>'
-		if pornfilmacting[i] < 15:
-			' <b>Acting:</b> <font size=2>Your acting was as fake as a bad boobjob. Did you get paid for this?</font>'
-		elseif pornfilmacting[i] < 30:
-			' <b>Acting:</b> <font size=2>You were acting quite fake, but it was passable.</font>'
-		elseif pornfilmacting[i] < 45:
-			' <b>Acting:</b> <font size=2>You probably could have done better, but at least you were not totally unconvincing.</font>'
-		elseif pornfilmacting[i] < 60:
-			' <b>Acting:</b> <font size=2>You were actually acting, even if it wasn''t entirely convincing.</font>'
-		elseif pornfilmacting[i] < 75:
-			' <b>Acting:</b> <font size=2>You were acting really well.</font>'
-		elseif pornfilmacting[i] < 90:
-			' <b>Acting:</b> <font size=2>As a professional actress, everybody believed your every gesture and sentence.</font>'
-		else
-			' <b>Acting:</b> <font size=2>Your performance was phenomenal. You may actually win some awards with this one.</font>'
-		end
-		if pornfilmvnesh[i] >= 9:
-			' <b>Look:</b> <font size=2>Amazingly beautiful.</font>'
-		elseif pornfilmvnesh[i] >= 7:
-			' <b>Look:</b> <font size=2>Beautiful.</font>'
-		elseif pornfilmvnesh[i] >= 5:
-			' <b>Look:</b> <font size=2>Attractive.</font>'
-		else
-			' <b>Look:</b> <font size=2>Unnoticeable.</font>'
-		end
-		' <b>Description:</b> <font size=2><<$pfilmtext>></font>'
-		if $pornfilmstory[i] = '':
-			if firstvariable2 = 0:firstvariable2 = 1 & fvvalue2 = i
-			' <b>Story:</b> <font size=2><a href="exec:$pornfilmstory[fvvalue2] = input(''<font color=#FF0000>WARNING!</font> No matter where you clicked, you will enter the story of the <b>first</b> movie which missing it! This action can be done only once!'') & gs ''pornhist'', ''pdetail''">Missing story</a></font>'
-		else
-			' <b>Story:</b> <font color=#1B4532 size=2><<$pornfilmstory[i]>></font>'
-		end
-		' <b>Tags: <font color=#541717 size=2><<$pfilmtags>></font></b>'
-		if pornDanger[i] = 1 and pfType = 1:' <font color="red" size=2><b>You were unprotected and fertile during the shoot.</b></font>'
-		killvar '$pfilmtags'
-	if i < film:
-		*p '<font color="sienna"><hr></font>'
-		i += 1
-		jump 'pornhistloop2'
-	end
-	act 'Return to Reputation': killvar 'pornfilmdesc' & killvar 'porntag' & gt 'obj_din', 'reputation'
-	'</td></tr></table></center>'
-end
-
-!! Dynamic of selectable porn movies, called from:
-!!	pornhist: 'short', 'pdetail'
-!!	pornschedule: 'pornmiss'
-!!	pornstudio: 'options', 'medical', 'postvideo'
-$pornfilmdesc = {
-	film_type = ARGS[0]
-	killvar '$pstory'
-	$porndesc[1] = 'Handjob'
-	$porndesc[2] = 'Blowjob'
-	$porndesc[3] = 'Vaginal sex with facial'
-	$porndesc[4] = 'Vaginal and anal sex with facial'
-	$porndesc[5] = 'Threesome with anal creampie and facial'
-	$porndesc[6] = 'Threesome with double penetration, facial and swallowing'
-	$porndesc[7] = 'Vaginal sex with creampie'
-	$porndesc[8] = 'Double penetration with vaginal creampies'
-	$porndesc[9] = 'Spitroast with two guys with creampie and swallowing'
-	$porndesc[10] = 'Four guy gangbang with vaginal sex and cumshots'
-	$porndesc[11] = 'Four guy gangbang with vaginal sex and creampies'
-	$porndesc[12] = 'Four guy gangbang with anal sex and anal creampies'
-	$porndesc[13] = 'Two double penetration with four guys, vaginal and anal creampies'
-	$porndesc[14] = 'Gangbang with 50 guys'
-	$porndesc[15] = 'Anal sex with anal creampie'
-	$porndesc[16] = 'Anal sex with cumshot'
-	$porndesc[17] = 'Lesbian sex with double dildo'
-	$porndesc[18] = 'Lesbian sex with strapon'
-	$porndesc[19] = 'Primary role in MFF threesome'
-	$porndesc[20] = 'Secondary role in MFF threesome'
-	if film_type = 1:
-		pfType = 0
-		pcash = 20
-		pfactor = 1
-		actbonus = 1
-		$tags = 'handjob, cumshot'
-		$pfilmtext = 'You jerked off a guy and he came on your tits.'
-	elseif film_type = 2:
-		pfType = 0
-		pcash = 30
-		pfactor = 1
-		actbonus = 1
-		$tags = 'blowjob, facial'
-		$pfilmtext = 'You gave a guy a blowjob and got a facial.'
-	elseif film_type = 3:
-		pfType = 0
-		pcash = 50
-		pfactor = 1
-		actbonus = rand(1,2)
-		$tags = 'blowjob, vaginal, facial'
-		$pfilmtext = 'You gave a guy a blowjob and he fucked before giving you a facial.'
-	elseif film_type = 4:
-		pfType = 0
-		pcash = 60
-		pfactor = 1
-		actbonus = rand(1,2)
-		$tags = 'blowjob, facial, vaginal, anal'
-		$pfilmtext = 'You gave a guy a blowjob and he fucked your pussy and ass before giving you a facial.'
-	elseif film_type = 5:
-		pfType = 0
-		pcash = 70
-		pfactor = 2
-		actbonus = rand(1,3)
-		$tags = 'facial, vaginal, anal, blowjob, creampie'
-		$pfilmtext = 'A guy fucked your pussy and ass and came in your ass while you sucked off an another guy who gave you a facial.'
-	elseif film_type = 6:
-		pfType = 0
-		pcash = 90
-		pfactor = 2
-		actbonus = rand(1,3)
-		$tags = 'DP, vaginal, anal, blowjob, facial, swallowing'
-		$pfilmtext = 'A guy fucked your pussy and ass while you sucked off another guy. They then double penetrated you before cumming on your face. You swallowed their loads.'
-	elseif film_type = 7:
-		pfType = 1
-		pcash = 80
-		pfactor = 1
-		actbonus = rand(1,2)
-		$tags = 'vaginal, creampie'
-		$pfilmtext = 'You gave a guy a blowjob before he fucked you and gave you a creampie.'
-	elseif film_type = 8:
-		pfType = 1
-		pcash = 100
-		pfactor = 2
-		actbonus = rand(1,2)
-		$tags = 'DP, vaginal, anal, creampie'
-		$pfilmtext = 'Two guys fucked you in double penetration before giving you a double creampie.'
-	elseif film_type = 9:
-		pfType = 1
-		pcash = 90
-		pfactor = 2
-		actbonus = rand(1,3)
-		$tags = 'blowjob, vaginal, swallowing, creampie'
-		$pfilmtext = 'Two guys fucked your pussy and mouth. One gave you a creampie and the other came in your mouth and you swallowed.'
-	elseif film_type = 10:
-		pfType = 1
-		pcash = 120
-		pfactor = 4
-		actbonus = rand(2,3)
-		$tags = 'vaginal, cumshot'
-		$pfilmtext = 'Four guys fucked your pussy and they all ejaculated on your body and face.'
-	elseif film_type = 11:
-		pfType = 1
-		pcash = 150
-		pfactor = 4
-		actbonus = rand(2,3)
-		$tags = 'vaginal, creampie'
-		$pfilmtext = 'Four guys fucked your pussy, giving you four creampies.'
-	elseif film_type = 12:
-		pfType = 0
-		pcash = 150
-		pfactor = 4
-		actbonus = rand(2,3)
-		$tags = 'anal, creampie'
-		$pfilmtext = 'Four guys fucked your ass, giving you four anal creampies.'
-	elseif film_type = 13:
-		pfType = 1
-		pcash = 150
-		pfactor = 4
-		actbonus = rand(2,3)
-		$tags = 'DP, vaginal, anal, creampie'
-		$pfilmtext = 'Four guys fucked you in double penetration in pairs. You got two double creampies.'
-	elseif film_type = 14:
-		pfType = 1
-		pcash = 300
-		pfactor = 50
-		actbonus = rand(1,2)
-		$tags = 'vaginal, anal, blowjob, cumshot, facial, swallowing'
-		$pfilmtext = 'Fifty of your fans fucked you however they could. Almost all of them came in your pussy.'
-		$pstory = 'You called out to your fans on the internet, giving them an opportunity to fuck you however they like.'
-	elseif film_type = 15:
-		pfType = 0
-		pcash = 50
-		pfactor = 1
-		actbonus = rand(1,2)
-		$tags = 'blowjob, anal, creampie'
-		$pfilmtext = 'You gave a guy a blowjob before he fucked your ass and gave you an anal creampie.'
-	elseif film_type = 16:
-		pfType = 0
-		pcash = 50
-		pfactor = 1
-		actbonus = rand(1,2)
-		$tags = 'blowjob, anal, cumshot'
-		$pfilmtext = 'You gave a guy a blowjob and he fucked your ass. He came over your ass.'
-	elseif film_type = 17:
-		pfType = 0
-		pcash = 50
-		pfactress = 1
-		actbonus = rand(1,2)
-		$tags = 'lesbian, tribbing, double dildo'
-		$pfilmtext = 'You had sex with a girl using a double dildo.'
-	elseif film_type = 18:
-		pfType = 0
-		pcash = 50
-		pfactress = 1
-		actbonus = rand(1,2)
-		$tags = 'lesbian, strapon, vaginal, anal'
-		$pfilmtext = 'You had sex with a girl using a strapon.'
-	elseif film_type = 19:
-		pfType = 0
-		pcash = 100
-		pfactor = 1
-		pfactress = 1
-		actbonus = rand(2,3)
-		$tags = 'threesome, mff, blowjob, anal, creampie, cumshare'
-		$pfilmtext = 'You took part in an MFF threesome, sucking a guy off before he fucked your ass while the girl licked your pussy. You got an anal creampie and shared it with the girl.'
-	elseif film_type = 20:
-		pfType = 0
-		pcash = 100
-		pfactor = 1
-		pfactress = 1
-		actbonus = rand(2,3)
-		$tags = 'threesome, mff, blowjob, anal, creampie, cumshare, cuni'
-		$pfilmtext = 'You took part in an MFF threesome, sucking him off before he fucked her ass while you licked her pussy. She shared her anal creampie with you.'
-	end
-	dynamic $porntag
-}
-
-$porntag = {
-	if pornfilmAppAge[i] < 20: 
-		$pfilmtags = 'teen'
-	elseif pornfilmAppAge[i] >= 40:
-		$pfilmtags = 'mature'
-	else
-		$pfilmtags = ''
-	end
-	
-	if pornfilmpreg[i] = 1:
-		if $pfilmtags <> '':
-			$pfilmtags+=', pregnant'
-		else
-			$pfilmtags = 'pregnant'
-		end
-	end
-	
-	if pfactor = 0 and pfactress > 0:
-		if $pfilmtags <> '':
-			$pfilmtags += ', lesbian'
-		else
-			$pfilmtags = 'lesbian'
-		end
-	end
-	
-	if pfactor > 2 and pfactress = 0:
-		if $pfilmtags <> '':
-			$pfilmtags += ', gangbang'
-		else
-			$pfilmtags = 'gangbang'
-		end
-	elseif pfactor > 2 and pfactress > 1:
-		if $pfilmtags <> '':
-			$pfilmtags += ', orgy'
-		else
-			$pfilmtags = 'orgy'
-		end
-	elseif pfactor = 2 and pfactress = 0:
-		if $pfilmtags <> '':
-			$pfilmtags += ', threesome'
-		else
-			$pfilmtags = 'threesome'
-		end
-	elseif pfactor = 1 and pfactress = 1:
-		if $pfilmtags <> '':
-			$pfilmtags += ', threesome'
-		else
-			$pfilmtags = 'threesome'
-		end
-	elseif pfactor = 0 and pfactress = 2:
-		if $pfilmtags <> '':
-			$pfilmtags += ', threesome'
-		else
-			$pfilmtags = 'threesome'
-		end
-	end
-	
-	if pfType = 1:
-		if $pfilmtags <> '':
-			$pfilmtags += ', creampie'
-		else
-			$pfilmtags = 'creampie'
-		end
-	end
-	
-	if $pfilmtags <> '':
-		$pfilmtags += ', '+$tags
-	else
-		$pfilmtags = $tags
-	end
-}
---- pornhist ---------------------------------
-

locations/unused/pornschedule.qsrc

@@ -1,72 +0,0 @@
-# pornschedule
-
-if $ARGS[0] = 'pornmiss':
-	pornmiss = 1
-	missedshoot = 0
-	pf = pfilmday[0]
-	film_idx = film
-	dynamic $pornfilmdesc, pornfilmType[film]
-	porndebt += prodcost
-	if pornstack > 0:pornstack -= 1
-end
-
-if $ARGS[0] = 'schedule':
-	killvar 'pfilmday', 0
-	days = 0
-	:fillschedule
-		porns = 0
-		:moveschedule
-			if porntaken['<<days+1>>,<<porns>>'] = 0 and days >= 14:
-				if rand(1,100) = 1: pornplan['<<days+1>>,<<porns>>'] = 0
-				!Change of plans if there is no contract on the movie, shooting some other kind of porn instead
-			end
-			if days = 49 or pornplan['<<days+1>>,<<porns>>'] = 0:
-			!If there is a missing slot in the schedule, it fills in. It also regenerates the last selection on the end, so no endless repetition
-				pornvariable = rand(0,90)
-				if pornvariable <= 1:
-					!50 person
-					pornplan['<<days+1>>,<<porns>>'] = 14
-				elseif pornvariable <= 10:
-					!4 person
-					!some way to randomize the scene
-					pornplan['<<days+1>>,<<porns>>'] = rand(10,13)
-				elseif pornvariable <= 30:
-					!2 person
-					!some way to randomize the scene
-					pornplan['<<days+1>>,<<porns>>'] = rand(8,9)
-				elseif pornvariable <= 60:
-					!single person
-					!some way to randomize the scene
-					pornplan['<<days+1>>,<<porns>>'] = rand(1,7)
-				elseif pornvariable <= 80:
-					!single person
-					!some way to randomize the scene
-					pornplan['<<days+1>>,<<porns>>'] = rand(15,20)
-				else
-					!masturbation scene
-					!some way to randomize the scene - if there will be more than one(???)
-					pornplan['<<days+1>>,<<porns>>'] = 15
-				end
-			end
-			pornplan['<<days>>,<<porns>>'] = pornplan['<<days+1>>,<<porns>>']
-			porntaken['<<days>>,<<porns>>'] = porntaken['<<days+1>>,<<porns>>']
-			!moving the shooting schedule and the contracts ahead by one day. "days = 0" is the current day
-			if porntaken['<<days>>,<<porns>>'] = 0:
-				if rand(1,days*3/2) = 1: porntaken['<<days>>,<<porns>>'] = 1
-				!some other porn actress contracted the movie. The more closer the shooting day is, the more likely, that all of them is taken
-			end
-			if porntaken['<<days>>,<<porns>>'] = 1:
-				if rand(1,100) = 1: porntaken['<<days>>,<<porns>>'] = 0
-				!some other porn actress contracted to the movie has canceled her contract. Not likely, but it happens.
-			end
-		if porns < 3:porns += 1 & jump 'moveschedule'	
-	if days < 49:days += 1 & jump 'fillschedule'
-	! Finally deleting the unnecessary (and the next day overwritten) schedule day to reduce array size
-	killvar 'pornplan', 203
-	killvar 'pornplan', 202
-	killvar 'pornplan', 201
-	killvar 'pornplan', 200
-end
-
---- pornschedule ---------------------------------
-

locations/unused/pornstudio.qsrc

@@ -1,1189 +0,0 @@
-# pornstudio
-!!2021/07/17
-
-$location_type = 'public_indoors'
-
-if $ARGS[0] = 'start':
-	CLOSE ALL
-	$loc_arg = 'start'
-	$loc = 'pornstudio'
-	$menu_loc = 'pornstudio'
-	$menu_arg = 'start'
-	menu_off = 0
-	gs 'pornhist', 'short'
-	cls
-	minut += 5
-	gs 'stat'
-	'<center><img <<$set_imgh>> src="images/locations/city/redlight/studio_porn/studia_0.jpg"></center>'
-
-	act 'Leave': gt 'city_redlight', 'start'
-
-	if hour < 10 or hour > 22:
-		'The porn studio is currently closed. It is open between 10:00 and 22:00.'
-		exit
-	end
-
-	'You enter the studio and are greeted by a busy scene of actors, actresses and other studio employees going about their business or chatting to each other. It looks like the manager is in his office.'
-
-	act 'Go to the manager': gt 'pornstudio', 'manager'
-
-	act 'Visit the manager''s PA': gt 'pornstudio', 'pa'
-
-	if bomzQW = 1 and week = 4 and workDisk = 0: act 'Arrive for work': gt 'pornstudio', 'delivery'
-
-	if workDolg > 0 and money >= workDolg:
-		act 'Repay your debt':
-			cls
-			menu_off = 1
-			minut += 5
-			workDisk = 0
-			money -= workDolg
-			workDolg = 0
-			menu_off = 1
-			gs 'stat'
-			'You give the money that you owe to the studio.'
-
-			act 'Leave': gt 'pornstudio', 'start'
-		end
-	elseif workDolg = 0:
-		if workDisk = 1 and week = 5:
-			act 'Take the disk':
-				cls
-				menu_off = 1
-				minut += 5
-				workDisk = 2
-				gs 'stat'
-				'You are given a thumb drive, and asked if you remember all the instructions. You quietly nod and leave.'
-				'As you leave the studio, you hear someone exit a nearby building and start following you.'
-				'<font color="magenta"> "Just avoid dark, deserted places and this will blow over."</font> you reassure yourself, and carry on.'
-
-				act 'Leave': gt 'city_redlight', 'start'
-			end
-		elseif workDisk = 3 and week = 5:
-			act 'Give the envelope':
-				cls
-				menu_off = 1
-				minut += 5
-				workDisk = 4
-				gs 'stat'
-
-				if konvert = 0:
-					workDolg = 200000
-					workDolgDay = 7
-					'Digging through your things, you begin to panic. No envelope. You search again, but to your despair, you can''t find it. You stand there, unable to speak.'
-					'The manager grabs his phone and makes a call. You can''t hear exactly what he''s saying because your heart is beating so loud, but he soon hangs up.'
-					'"You''re very lucky the boss is in a good mood. He''s given you one week to recover his losses, so you have until next Friday evening to bring me 200,000 <b>₽</b>. Do this and we''re done, you''ll never work for us again. Fail, and bad things will happen to you." he says with a stern look on his face.'
-				else
-					konvert = 0
-					money += 5000
-					'You give the envelope to the manager and he gives you 5,000 <b>₽</b>.'
-				end
-
-				act 'Leave': gt 'city_redlight', 'start'
-			end
-		end
-	end
-
-	if pfilmNO = 1 and pfilmNoVenera = 1 and Venera = 0:
-		act 'Show your medical certificate':
-			cls
-			menu_off = 1
-			minut += 5
-			pfilmNoVenera = 0
-			pfilmNO = 0
-			gs 'stat'
-			'You hand over your medical certificate showing that you''re STD free. They promise to consider your reinstatement.'
-
-			act 'Leave': gt 'pornstudio', 'start'
-		end
-	end
-end
-
-if $ARGS[0] = 'pa':
-	*clr & cla
-	minut += 5
-	$menu_loc = 'pornstudio'
-	$menu_arg = 'pa'
-	menu_off = 0
-	gs 'stat'
-	'Inside the small office is a young man sitting at a computer, tapping away at the keyboard.'
-
-	if film = 0:
-	'"Who are you? This office is for staff only."'
-	else
-		'"Hi there, what can I do for you?"'
-		if pfilmNO = 0:
-			act 'Change your porn name':
-				*clr & cla
-				menu_off = 1
-				gs 'stat'
-				'"Is it possible for me to change my stage name?"'
-				'"Of course! Just give me a minute to register it in the database. So, what would you like to be called?" he replies.'
-				act '"I want to be called..."':
-					$pfname = input("Enter the name you want to be known as.")
-					if $pfname = '':$pfname = 'Lotta Cox'
-					gt 'pornstudio', 'pa'
-				end
-				act 'Nothing': gt 'pornstudio', 'pa'
-			end
-		end
-		if pfilmSTOP = 0:
-			act 'What''s the rating of my videos?':
-				cla
-				minut += 5
-				menu_off = 1
-				gs 'stat'
-
-				'"You''ve made <<film>> films."'
-
-				if porn_fame < 10:
-					'"Nobody knows your name. You''re one of hundreds of amateur actresses who only play minor roles in big movies. Your own movies sold really cheap."'
-				elseif porn_fame < 20:
-					'"You''re still unknown, but your name is mentioned in the credits. You''re unlikely to be recognized, and your own movies are still sold cheap."'
-				elseif porn_fame < 40:
-					'"You''re mentioned here and there, but you still mostly get secondary roles in most of your movies. Your name is slowly emerging and you have your own fanbase."'
-				elseif porn_fame < 60:
-					'"You''re a minor, but known porn actress. You get the occasional primary role and back cover appearance. Your movies are getting more popular, which means more fans and more money."'
-				elseif porn_fame < 80:
-					'"You''re a known porn actress who mostly plays primary roles, and you appear on the front cover. Your movies are sold at a decent price, and in big numbers. You may also appear in a variety of adult magazines."'
-				else
-					'"You''re a famous porn starlet and always play the main role. You''re a brand name, with sex toys and T-shirts among the items sold as part of your own line of merchandise."'
-				end
-
-				if porn_fame >= 20:
-					ftypecount[0] = pornvag & $ftypecount[0] = 'vaginal'
-					ftypecount[1] = pornanal & $ftypecount[1] = 'anal'
-					ftypecount[2] = porngasm & $ftypecount[15] = 'orgasm'
-					ftypecount[3] = porngang & $ftypecount[3] = 'group sex'
-					ftypecount[4] = porncream & $ftypecount[4] = 'creampie'
-					ftypecount[5] = pornhole & $ftypecount[5] = 'gloryhole'
-					ftypecount[6] = pornbdsm & $ftypecount[6] = 'bdsm'
-					ftypecount[7] = pornlesbo & $ftypecount[7] = 'lesbian'
-					ftypecount[8] = pornpreg & $ftypecount[8] = 'pregnant'
-					ftypecount[9] = pornexhib & $ftypecount[9] = 'public'
-					ftypecount[10] = pornmast & $ftypecount[10] = 'masturbation'
-					ftypecount[11] = pornbukk & $ftypecount[11] = 'cumshot'
-					ftypecount[12] = pornbj & $ftypecount[12] = 'blowjob'
-					ftypecount[13] = pornhj & $ftypecount[13] = 'handjob'
-					ftypecount[14] = pornswall & $ftypecount[14] = 'cum swallowing'
-					k = 1
-					:repeating
-						c = 14
-						:ftypecount
-							current = ftypecount[c]
-							$current = $ftypecount[c]
-							c -= 1
-							if current > ftypecount[c]:
-								ftypecount[c+1] = ftypecount[c]
-								$ftypecount[c+1] = $ftypecount[c]
-								ftypecount[c] = current
-								$ftypecount[c] = $current
-							end
-						if c >= k:jump 'ftypecount'
-						k += 1
-					if k < 14:jump 'repeating'
-					if ftypecount[1] = ftypecount[0]:
-						if ftypecount[0] = ftypecount[2]:
-							'You''re known for your <<$ftypecount[0]>>, <<$ftypecount[1]>> and <<$ftypecount[2]>> scenes.'
-						else
-							'You''re known for your <<$ftypecount[0]>> and <<$ftypecount[1]>> scenes.'
-						end
-					else
-						'You''re known for your <<$ftypecount[0]>> scenes.'
-					end
-				end
-
-				if film < 10 and porn_fame < 10:
-
-					'"By the way, if you wanted, I could completely remove them from our systems - for the right price of course." the guy whispers.'
-
-					act 'Tell me more':
-						cla
-						minut += 5
-						films_stop_payment = film * 40000
-						gs 'stat'
-						'"Seeing as you''re not well known, it''s unlikely anyone would notice. However, to remove them you''d have to cover the loss of the studio''s profits- 40,000 <b>₽</b> per film. That''s a total of <<films_stop_payment>> <b>₽</b>."'
-						'"Also, it would piss off your co-stars and director, and likely end your porn career. You should also know that there''s no guarantee that there''s no other copies of your movies out there anyway, so think carefully."'
-
-						if money >= films_stop_payment:
-							act 'Remove them':
-								minut += 5
-								money -= films_stop_payment
-								pfilmSTOP = 1
-								killvar 'pfilmday'
-								killvar 'pornplan'
-								killvar 'porntaken'
-								killvar 'pornstack'
-								killvar 'prodcosttrue'
-								killvar 'prodcost'
-								film = 0
-								gs 'stat'
-								'"We never met. Have a nice day, and don''t come back."'
-
-								act 'Leave': gt 'pornstudio', 'start'
-							end
-						end
-
-						act 'Not interested': gt 'pornstudio', 'start'
-					end
-
-					act 'Leave': gt 'pornstudio', 'start'
-				end
-
-				act 'Leave': gt 'pornstudio', 'start'
-			end
-		end
-
-		act 'Leave': gt 'pornstudio', 'start'
-
-	end
-
-	act 'Leave': gt 'pornstudio', 'start'
-end
-
-if $ARGS[0] = 'delivery':
-	cls
-	minut += 15
-	menu_off = 1
-	gs 'stat'
-	'"We made inquiries about you, and everything seems in order. Essentially, we give you a thumb drive, you deliver it to the sauna, they give you an envelope and you bring it to us. Immediately."'
-	'"Upon delivery of the envolope, you get 5000 <b>₽</b>. Deliveries are available every Friday, after the studio has opened. If you agree, then visit any Friday, and choose a safe mode of transport."'
-
-	act 'Disagree':bomzQW = -1 & gt 'city_redlight', 'start'
-
-	act 'Agree':
-		cls
-		minut += 15
-		gs 'stat'
-		'"We''ll take you this one time. In the future, you''ll have to make your own way because Fridays are getting risky for us. We need to introduce you to our colleagues."'
-
-		act 'Let''s go':
-			cls
-			workDisk = 1
-			minut += 15
-			gs 'stat'
-			'You climb into a car by the entrance and are driven to the sauna.'
-
-			if saunasex = 1:
-				'You recall going to this sauna. You had some pretty energetic sex here.'
-			elseif sauna > 0:
-				'Oh, it''s the sauna in the city residential area.'
-			else
-				'This sauna is located in the city residential area. You find it strange that you didn''t notice it before.'
-			end
-
-			'You go to the sauna, and are introduced to the local managers. It''s explained to you who you need to deliver to, and are reminded that it is necessary to return the envelope the same day you receive it.'
-			'"Don''t forget to use secure transport. We''ll see you on Fridays. <i>Don''t</i> fuck up."'
-
-			act 'Leave':bomzQW = 2 & gt 'city_residential'
-		end
-	end
-end
-
-if $ARGS[0] = 'shower':
-	*clr & cla
-	$location_type = 'bathroom'
-	$loc = 'pornstudio'
-	$loc_arg = 'bathroom'
-	$locM = 'pornstudio'
-	$locM_arg = 'bathroom'
-	$menu_loc = 'pornstudio'
-	$menu_arg = 'bathroom'
-	menu_off = 1
-	minut += 5
-	pcs_horny += 1
-	pcs_makeup = 1
-	dynamic $showerdin
-	gs 'stat'
-	'<center><video autoplay loop src="images/shared/home/bathroom/dush.mp4"></video></center>'
-    cumspclnt = 20
-	gs 'cum_cleanup'
-	'You enter the cubicle, turn the water on and thoroughly wash yourself.'
-	if deodorant_on = 1: gs 'sweat', 'remove_deo' & '<br>Your deodorant gets washed away in the shower.'
-	
-	act 'Look in the mirror': gt 'mirror', 'start'
-	act 'Go and see Dimitri': gt 'pornstudio', 'postvideo'
-end
-
-if $ARGS[0] = 'bathroom':
-	*clr & cla
-	minut += 1
-	menu_off = 1
-	gs 'stat'
-	'<center><img <<$set_imgh>> src="images/locations/city/citycenter/photo/shower.jpg"></center>'
-	'You can freshen up in the mirror or go and see Dimitri about being paid.'
-
-	act 'Look in the mirror': gt 'mirror', 'start'
-	act 'Go and see Dimitri': gt 'pornstudio', 'postvideo'
-end
-
-if $ARGS[0] = 'manager':
-	cls
-	minut += 5
-	menu_off = 1
-	gs 'stat'
-	'<center><img <<$set_imgh>> src="images/locations/city/redlight/studio_porn/studia_0.jpg"></center>'
-	'You walk into the manager''s office and find Dimitri at his desk.'
-
-	if firstkasting = 0: gt 'pornstudio', 'first'
-
-	if pregchem >= 2688 and pregtalkpornstudio = 0: gt 'pornstudio', 'pregreact'
-
-	if pfilmNO = 1:
-	!! Banned from shooting porn
-		'"Why are you here? You''re blacklisted and will never work in porn again."'
-	elseif pfilmSTOP = 1:
-	!! No longer shooting porn
-		'"I''m sorry, I thought you had retired?"'
-	elseif ((pfilmday[0] > 0 and hour > 12) or pornmiss = 1) and prodcosttrue <= 20000 and missedshoot = 0:
-	!! You missed your shooting time, but you have a chance to work it off
-		missedshoot = 1
-		pornmiss = 0
-		'Dimitri looks agitated as he storms towards you, ready to chew you out.'
-		'"Didn''t I tell you not to be late? Where the fuck were you? I''ve wasted a lot of money! I had to pay actors, assistants, the director and the doctor just to sit around on their asses waiting for you! The whole shoot was a bust!"'
-		'He manages to cool off a little with the venting of his frustration, and after a deep breath, he continues more calmly.'
-		if pfilmday[1] = 0:
-			missday = rand(0,3)
-			porntaken['1,<<missday>>'] = 0
-			act 'Jump in tomorrow':
-				prodcost = 0
-				pfilmNOPAY = 1
-				porntaken['1,<<missday>>'] = 2
-				pfilmday[1] = pornplan['1,<<missday>>']
-				pornstack += 1
-				freefilm = 1
-				gt 'pornstudio', 'start'
-			end
-			'"I''ll give you a chance to make it right. Another actress has gotten sick and cancelled her shoot. If you jump in for her, your debt is cancelled. Or you can work it off, but that will take longer. Of course you can also pay it back, if you have the money. And no, I don''t remember what she was going to shoot. This day has been anything but easy due to you!"'
-		else
-			'"You know what, you can work it off, but it will take you a while. Of course you can also pay it back, if you have the money."'
-		end
-
-		act 'Accept your debt':prodcosttrue += prodcost & gt 'pornstudio', 'start'
-
-		gs 'willpower', 'misc', 'self'
-		if will_cost <= pcs_willpwr:
-			act 'I quit! (<<will_cost>> Willpower)':
-				gs 'willpower', 'pay', 'self'
-				'"Fuck this shit, I quit!" you yell before storming out of his office.'
-				pfilmNO = 1
-				killvar 'prodcosttrue'
-				killvar 'pfilmday'
-				killvar 'pornplan'
-				killvar 'porntaken'
-				killvar 'pornnow'
-				gt 'pornstudio', 'start'
-			end
-		else
-			act 'I quit! (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
-		end
-		exit
-	elseif prodcosttrue > 20000 and prodcost > 0:
-	!! You really fucked up and are banned from shooting porn
-		pfilmNO = 1
-		killvar 'prodcosttrue'
-		killvar 'pfilmday'
-		killvar 'pornplan'
-		killvar 'porntaken'
-		killvar 'pornnow'
-		'"You didn''t come to the shoot! You fucked me over again, and you already owed me a lot of money! You took the second chance I gave you and threw it back in my face! I don''t want to work with you anymore. You''re now blacklisted, so get out!"'
-	elseif pfilmday[0] > 0 and hour >= 10 and hour <= 12:
-	!! You have a porn shoot and are on time
-		pornnow = 1
-		if hour = 10: '"You''re just in time for your inspection. Off you go now." he says with a smile.'
-		if hour = 11: '"You''re late. My patience is not eternal." he says strictly. "Get going to your inspection, quickly!"'
-		if hour = 12: '"What the hell? Everyone''s waiting for you! Hurry up and get inspected! Now!"'
-
-		act 'Go for medical check-up': gt 'pornstudio', 'medical', pfilmday[0]
-		exit
-	elseif film = 0 and pornstack = 0:
-	! Your first ever movie offer
-		if firstoffer = 0:
-			firstoffer = 1
-			'"So you''re the new girl? As luck would have it, we''re looking for someone fresh for our next shoot. It''s called ''Girls Jerk Guys #36''."'
-			'"For 500 <b>₽</b>, you have to jerk a guy off and have him cum on your tits."'
-		else
-			'"Hello. Since you''re brand new, all I can offer you is an introductory movie called ''Girls Jerk Guys #36''."'
-			'"For 500 <b>₽</b>, you have to jerk a guy off and have him cum on your tits."'
-		end
-
-		gs 'willpower', 'exhib', 'self'
-		if will_cost <= pcs_willpwr:
-			act 'Agree (<<will_cost>> Willpower)':
-				cla
-				gs 'willpower', 'pay', 'self'
-				pornstack += 1
-				pfilmday[1] = 1
-				gs 'stat'
-				'"Cool. We shoot tomorrow, so be here between 10:00 and 11:00. And please, don''t be late."'
-
-				act 'Leave': gt 'pornstudio', 'start'
-			end
-		else
-			act 'Agree (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
-		end
-
-		act 'I don''t think I''m ready': gt 'pornstudio', 'start'
-		exit
-	elseif film > 0:
-		gs 'pornstudio', 'options'
-	else
-		'Dimitri looks up from his paperwork and greets you. "Hello. Can I help you with something?"'
-	end
-
-	if porndebt > 0:
-		act 'Ask about your debt': '"Of course. Your current debt to the company is <<porndebt>> <b>₽</b>."'
-	end
-
-	act 'Leave': gt 'pornstudio', 'start'
-end
-
-if $ARGS[0] = 'options':
-	'"Let''s see what I have on offer for you."'
-	if film < 5:
-		fmulti = 100
-	elseif film < 10:
-		fmulti = 120
-	elseif film < 15:
-		fmulti = 140
-	elseif film < 25:
-		fmulti = 160
-	elseif film < 50:
-		fmulti = 180
-	elseif film >= 50:
-		fmulti = 200
-	end
-
-	act 'Filter by date':
-		$selection = {
-			*clr
-			'<center><img <<$set_imgh>> src="images/locations/city/redlight/studio_porn/studia_0.jpg"></center>'
-			'<font color="grey">The selected days will not be displayed</font><br>'
-			m1 = month
-			d1 = day + 1
-			if monthsend[m1] < d1: m1 += 1 & d1 = 1
-			if m1 > 12: m1 = 1
-			w2 = week + 1
-			if w2 > 7: w2 = 1
-			p1 = 1
-			w1 = 1
-			:monthloop
-				*p '<Table border=0 cellpadding=1><TR><TH colspan=7><b><i><font size=6 color="brown"><<$monthName[m1]>></font></i></b></TH></TR>'
-				*p '<TR align="center"><TH>   Monday    </TH><TH>   Tuesday   </TH><TH>Wednesday</TH><TH>  Thursday   </TH><TH>     Friday     </TH><TH>  Saturday   </TH><TH>    Sunday    </TH></TR>'
-				:weekloop
-					selected[p1] = p1
-					if w1 = 1:*p '<TR>'
-					!making sure that the date and the day of the week are in the correct position
-					if w2 ! 1:
-						if w2 = 7:
-							w1 = 7 & *p '<TD></TD><TD></TD><TD></TD><TD></TD><TD></TD><TD></TD>'
-						elseif w2 = 6:
-							w1 = 6 & *p '<TD></TD><TD></TD><TD></TD><TD></TD><TD></TD>'
-						elseif w2 = 5:
-							w1 = 5 & *p '<TD></TD><TD></TD><TD></TD><TD></TD>'
-						elseif w2 = 4:
-							w1 = 4 & *p '<TD></TD><TD></TD><TD></TD>'
-						elseif w2 = 3:
-							w1 = 3 & *p '<TD></TD><TD></TD>'
-						else
-							w1 = 2 & *p '<TD></TD>'
-						end
-						w2 = 1
-					end
-					!selectable day display comes
-					if inversefilter = 1:
-						if datefilter['<<selected[p1]>>'] = 1:
-							datefilter['<<selected[p1]>>'] = 0
-						else
-							datefilter['<<selected[p1]>>'] = 1
-						end
-					end
-
-					if m1 = 1 and d1 >= 1 and d1 <= 8:nh1 = 1
-					if m1 = 2 and d1 = 23:nh1 = 1
-					if m1 = 3 and d1 = 8:nh1 = 1
-					if m1 = 5 and (d1 = 1 or d1 = 2):nh1 = 1
-					if m1 = 5 and d1 = 9:nh1 = 1
-					if m1 = 6 and (d1 = 12 or d1 = 13):nh1 = 1
-					if m1 = 11 and d1 = 4:nh1 = 1
-
-					if nh1 = 1:
-						$option = '<font color="red"><del><b><<d1>><b></del></font>'
-					elseif pfilmday[p1] > 0:
-						$option = '<font color="green"><<d1>></font>'
-					elseif datefilter['<<selected[p1]>>'] = 1 or (weekdayfilter = 1 and w1 < 6) or (weekendfilter = 1 and w1 >= 6):
-						$option = '<font color="grey"><del><<d1>></del></font>'
-					else
-						$option = '<a href="exec:datefilter[''<<selected[p1]>>''] = 1 & dynamic $selection"><font color="black"><<d1>></font></a>'
-					end
-					killvar 'nh1'
-					*p '<TD align="center"><font size=5><<$option>></font></TD>'
-					!preparing for next day
-					d1 += 1
-					p1 += 1
-					w1 += 1
-			!we have to check the end of the month too
-			if monthsend[m1] < d1:
-				!Oh-oh, this is the next month already!
-				*p '</TR></TABLE><br>'
-				if w1 = 8: w1 = 1
-				w2 = w1
-				w1 = 1
-				m1 += 1
-				if m1 > 12: m1 = 1
-				d1 = 1
-				!does it necessary to display the next month?
-				if p1 < 50:jump 'monthloop'
-			else
-				!the next day is still the same month
-				if p1 < 50:
-					!the next day have to be displayed
-					if w1 = 8: *p '</TR>' & w1 = 1
-					jump 'weekloop'
-				else
-					!the next day does not have to be displayed
-					*p '</TR></TABLE><br>'
-				end
-			end
-			inversefilter = 0
-			''
-			if weekdayfilter = 0:
-				$weekdayfilter = '<a href="exec:weekdayfilter = 1 & dynamic $selection">Remove weekdays</a>'
-			else
-				$weekdayfilter = '<a href="exec:weekdayfilter = 0 & dynamic $selection">Restore weekdays</a>'
-			end
-			if weekendfilter = 0:
-				$weekendfilter = '<a href="exec:weekendfilter = 1 & dynamic $selection">Remove weekends</a>'
-			else
-				$weekendfilter = '<a href="exec:weekendfilter = 0 & dynamic $selection">Restore weekends</a>'
-			end
-			*p '<<$weekdayfilter>>  <<$weekendfilter>>  <a href="exec:inversefilter = 1 & dynamic $selection">Inverse selection</a><br>'
-			*p '<a href="exec:killvar ''datefilter'' & killvar ''selected'' & weekdayfilter = 0 & weekendfilter = 0 & dynamic $selection">Clear date filters</a>'
-		}
-		dynamic $selection
-	end
-
-!{	act 'Filter by tag':
-		$displaytag = {
-			*clr
-			'<center><img <<$set_imgh>> src="images/locations/city/redlight/studio_porn/studia_0.jpg"></center>'
-			'<font color="grey">The selected tags will not be displayed</font><br><br>Currenty filtered tags: <font color="green"><<$tagfilter>></font>'
-			if flag_tag[1] = 0: '<a href="exec:$tagfilter += ''hetero '' & flag_tag[1] = 1 & dynamic $displaytag">heterosexual</a>'
-			if flag_tag[2] = 0: '<a href="exec:$tagfilter += ''lesbian '' & flag_tag[2] = 1 & dynamic $displaytag">lesbian</a>'
-			if flag_tag[3] = 0: '<a href="exec:$tagfilter += ''threesome '' & flag_tag[3] = 1 & dynamic $displaytag">threesome</a>'
-			if flag_tag[4] = 0: '<a href="exec:$tagfilter += ''gangbang '' & flag_tag[4] = 1 & dynamic $displaytag">gangbang</a>'
-			if flag_tag[5] = 0: '<a href="exec:$tagfilter += ''facial '' & flag_tag[5] = 1 & dynamic $displaytag">facial</a>'
-			if flag_tag[6] = 0: '<a href="exec:$tagfilter += ''vaginal '' & flag_tag[6] = 1 & dynamic $displaytag">vaginal</a>'
-			if flag_tag[7] = 0: '<a href="exec:$tagfilter += ''anal '' & flag_tag[7] = 1 & dynamic $displaytag">anal</a>'
-			if flag_tag[8] = 0: '<a href="exec:$tagfilter += ''blowjob '' & flag_tag[8] = 1 & dynamic $displaytag">blowjob</a>'
-			if flag_tag[9] = 0: '<a href="exec:$tagfilter += ''handjob '' & flag_tag[9] = 1 & dynamic $displaytag">handjob</a>'
-			if flag_tag[10] = 0: '<a href="exec:$tagfilter += ''cumshot '' & flag_tag[10] = 1 & dynamic $displaytag">cumshot</a>'
-			if flag_tag[11] = 0: '<a href="exec:$tagfilter += ''swallowing '' & flag_tag[11] = 1 & dynamic $displaytag">swallowing</a>'
-			if flag_tag[12] = 0: '<a href="exec:$tagfilter += ''DP '' & flag_tag[12] = 1 & dynamic $displaytag">DP</a>'
-			if flag_tag[13] = 0: '<a href="exec:$tagfilter += ''creampie '' & flag_tag[13] = 1 & dynamic $displaytag">creampie</a>'
-			''
-			'<a href="exec:killvar ''$tagfilter'' & killvar ''flag_tag'' & dynamic $displaytag">Clear date filters</a>'
-		}
-		dynamic $displaytag
-	end
-}
-	act 'Filter by participants':
-		$displaynum = {
-			*clr
-			'<center><img <<$set_imgh>> src="images/locations/city/redlight/studio_porn/studia_0.jpg"></center>'
-			'<font color="grey">The movies above the selected number of partners will not be displayed</color><br>'
-			if ppnum = 1:
-				$pp1 = '<b><font color="red" size=8>1</font></b>'
-			else
-				$pp1 = '<a href="exec:ppnum = 1 & dynamic $displaynum"><font size=8 color="black">1</font></a>'
-			end
-			if ppnum = 2:
-				$pp2 = '<b><font color="red" size=8>2</font></b>'
-			else
-				$pp2 = '<a href="exec:ppnum = 2 & dynamic $displaynum"><font size=8 color="black">2</font></a>'
-			end
-			if ppnum = 3:
-				$pp3 = '<b><font color="red" size=8>3</font></b>'
-			else
-				$pp3 = '<a href="exec:ppnum = 3 & dynamic $displaynum"><font size=8 color="black">3</font></a>'
-			end
-			if ppnum = 4:
-				$pp4 = '<b><font color="red" size=8>4</font></b>'
-			else
-				$pp4 = '<a href="exec:ppnum = 4 & dynamic $displaynum"><font size=8 color="black">4</font></a>'
-			end
-			if ppnum = 5:
-				$pp5 = '<b><font color="red" size=8>5</font></b>'
-			else
-				$pp5 = '<a href="exec:ppnum = 5 & dynamic $displaynum"><font size=8 color="black">5</font></a>'
-			end
-			'<Table border=0 cellspacing=10><TR><TH><<$pp1>></TH><TH><<$pp2>></TH><TH><<$pp3>></TH><TH><<$pp4>></TH><TH><<$pp5>></TH></TR>'
-			''
-			'<a href="exec:killvar ''ppnum'' & dynamic $displaynum">Clear participant limitations</a>'
-		}
-		dynamic $displaynum
-	end
-
-	act 'Porn production schedule':
-		$contracting = {
-			*clr
-			'<center><img <<$set_imgh>> src="images/locations/city/redlight/studio_porn/studia_0.jpg"></center>'
-			''
-			d1 = day
-			w1 = week
-			m1 = month
-			counter = 1
-			$pornofday = ''
-			:pornopt
-				killvar 'nh1'
-				pcount[counter] = counter
-				w1 += 1
-				if w1 > 7:w1 = 1
-				d1 += 1
-				if monthsend[m1] < d1: m1 += 1 & d1 = 1
-				if m1 > 12: m1 = 1
-
-				if m1 = 1 and d1 >= 1 and d1 <= 8:nh1 = 1
-				if m1 = 2 and d1 = 23:nh1 = 1
-				if m1 = 3 and d1 = 8:nh1 = 1
-				if m1 = 5 and (d1 = 1 or d1 = 2):nh1 = 1
-				if m1 = 5 and d1 = 9:nh1 = 1
-				if m1 = 6 and (d1 = 12 or d1 = 13):nh1 = 1
-				if m1 = 11 and d1 = 4:nh1 = 1
-
-				if (weekdayfilter = 1 and w1 >= 6) or (weekendfilter = 1 and w1 < 6) or (weekdayfilter = 0 and weekendfilter = 0) or nh1 = 1:
-					if datefilter['<<selected[counter]>>'] = 0:
-						if nh1 = 1:
-							$pornofday = '<i><b>National holiday, no shootings!</b></i><br>'
-						else
-							porns = 0
-							:pornplanloop
-								dynamic $pornfilmdesc, pornplan['<<counter>>,<<porns>>']
-								if (pfactor <= ppnum) or (ppnum = 0):
-									if porntaken['<<counter>>,<<porns>>'] = 2:
-										$pornofday += '<font color="green"><b><<$porndesc[pornplan[''<<counter>>,<<porns>>'']]>></b> - <i>Already contracted</i></font><br>'
-									elseif pfilmday[counter] > 0 and porntaken['<<counter>>,<<porns>>'] = 0:
-										$pornofday += '<font color="grey"><<$porndesc[pornplan[''<<counter>>,<<porns>>'']]>></font><br>'
-									elseif pfilmday[counter - 1] > 0 and porntaken['<<counter>>,<<porns>>'] = 0:
-										$pornofday += '<font color="grey"><<$porndesc[pornplan[''<<counter>>,<<porns>>'']]>></font><br>'
-									elseif pfilmday[counter - 2] > 0 and porntaken['<<counter>>,<<porns>>'] = 0:
-										$pornofday += '<font color="grey"><<$porndesc[pornplan[''<<counter>>,<<porns>>'']]>></font><br>'
-									elseif pfilmday[counter - 3] > 0 and porntaken['<<counter>>,<<porns>>'] = 0:
-										$pornofday += '<font color="grey"><<$porndesc[pornplan[''<<counter>>,<<porns>>'']]>></font><br>'
-									elseif pfilmday[counter - 4] > 0 and porntaken['<<counter>>,<<porns>>'] = 0:
-										$pornofday += '<font color="grey"><<$porndesc[pornplan[''<<counter>>,<<porns>>'']]>></font><br>'
-									elseif pfilmday[counter - 5] > 0 and porntaken['<<counter>>,<<porns>>'] = 0:
-										$pornofday += '<font color="grey"><<$porndesc[pornplan[''<<counter>>,<<porns>>'']]>></font><br>'
-									elseif pfilmday[counter + 1] > 0 and porntaken['<<counter>>,<<porns>>'] = 0:
-										$pornofday += '<font color="grey"><<$porndesc[pornplan[''<<counter>>,<<porns>>'']]>></font><br>'
-									elseif pfilmday[counter + 2] > 0 and porntaken['<<counter>>,<<porns>>'] = 0:
-										$pornofday += '<font color="grey"><<$porndesc[pornplan[''<<counter>>,<<porns>>'']]>></font><br>'
-									elseif pfilmday[counter + 3] > 0 and porntaken['<<counter>>,<<porns>>'] = 0:
-										$pornofday += '<font color="grey"><<$porndesc[pornplan[''<<counter>>,<<porns>>'']]>></font><br>'
-									elseif pfilmday[counter + 4] > 0 and porntaken['<<counter>>,<<porns>>'] = 0:
-										$pornofday += '<font color="grey"><<$porndesc[pornplan[''<<counter>>,<<porns>>'']]>></font><br>'
-									elseif pfilmday[counter + 5] > 0 and porntaken['<<counter>>,<<porns>>'] = 0:
-										$pornofday += '<font color="grey"><<$porndesc[pornplan[''<<counter>>,<<porns>>'']]>></font><br>'
-									elseif porntaken['<<counter>>,<<porns>>'] = 1:
-										$pornofday += '<font color="red"><<$porndesc[pornplan[''<<counter>>,<<porns>>'']]>> - <i>Taken by someone else</i></font><br>'
-									elseif pornstack < 10:
-										$pornofday += '<a href="exec:pornstack += 1 & porntaken[''<<counter>>,<<porns>>''] = 2 & pfilmday[<<pcount[counter]>>] = pornplan[''<<counter>>,<<porns>>''] & gs ''stat'' & dynamic $contracting"><<$porndesc[pornplan[''<<counter>>,<<porns>>'']]>></a><br>'
-									else
-										$pornofday += '<font color="grey"><<$porndesc[pornplan[''<<counter>>,<<porns>>'']]>></font><br>'
-									end
-								end
-							if porns < 3: porns += 1 & jump 'pornplanloop'
-						end
-						if $pornofday ! '':
-							'<<$monthName[m1]>> <<d1>>, <<$week[w1]>>: '
-							'<<$pornofday>>'
-							$pornofday = ''
-						end
-					end
-				end
-			if counter < 49:
-				counter += 1
-				jump 'pornopt'
-			end
-		}
-		dynamic $contracting
-	end
-
-	if pornstack > 1 or (freefilm = 0 and pornstack > 0):
-		act 'Cancel a contract':
-			$canceling = {
-				*clr
-				'<center><img <<$set_imgh>> src="images/locations/city/redlight/studio_porn/studia_0.jpg"></center>'
-				d1 = day
-				w1 = week
-				m1 = month
-				i = 1
-				:nopornopt
-					pcount[i] = i
-					w1 += 1
-					if w1 > 7:w1 = 1
-					d1 += 1
-					if monthsend[m1] < d1: m1 += 1 & d1 = 1
-					if (pfilmday[i] = 1 and freefilm = 0) or pfilmday[i] > 1: '<<$monthName[m1]>> <<d1>>, <<$week[w1]>>: '
-					porns = 0
-					:nopornplanloop
-						if porntaken['<<i>>,<<porns>>'] = 2: '<a href="exec:pornstack -= 1 & porntaken[''<<i>>,<<porns>>''] = 0 & pfilmday[<<pcount[i]>>] = 0 & gs ''stat'' & dynamic $canceling"><<$porndesc[pornplan[''<<i>>,<<porns>>'']]>></a>'
-					if porns < 3: porns += 1 & jump 'nopornplanloop'
-				if i < 49:
-					i += 1
-					jump 'nopornopt'
-				end
-			}
-			dynamic $canceling
-		end
-	end
-
-	act 'Leave':
-		killvar 'ppnum'
-		killvar 'displaynum'
-		killvar 'displaytext'
-		killvar 'displayimage'
-		killvar '$pp1'
-		killvar '$pp2'
-		killvar '$pp3'
-		killvar '$pp4'
-		killvar '$pp5'
-		killvar 'displaytag'
-		killvar 'flag_tag'
-		killvar 'selection'
-		killvar 'datefilter'
-		killvar 'selected'
-		killvar 'option'
-		killvar 'tagfilter'
-		killvar 'contracting'
-		killvar 'pcount'
-		killvar 'weekdayfilter'
-		killvar 'weekendfilter'
-		gt 'pornstudio', 'start'
-	end
-end
-
-if $ARGS[0] = 'first':
-	cls
-	menu_off = 1
-	gs 'stat'
-	'<center><img <<$set_imgh>> src="images/locations/city/redlight/studio_porn/casting/casting0.jpg"></center>'
-	'You sit down on the sofa and greet the manager. "I see it''s your first time with us. So, you want to be a porn star?'
-
-	if pcs_inhib < 40 and (money <= 500 and karta <= 500 and func('homes_properties', 'get_accessible_property_count') = 0) or (narkoman = 1 or SLomka > 0):
-		'While you don''t feel confident enough showing off your body, you''re desperate for money, and are willing to do anything to earn it.'
-		act 'Continue': gt 'pornstudio', 'yes'
-	elseif pcs_inhib < 40:
-		'You don''t feel confident enough to start a career in porn. You should gain some confidence showing off your body first.'
-		act 'Leave': gt 'pornstudio', 'start'
-	else
-		act 'Continue': gt 'pornstudio', 'yes'
-	end
-end
-
-if $ARGS[0] = 'yes':
-	cls
-	menu_off = 1
-	gs 'stat'
-	'<center><img <<$set_imgh>> src="images/locations/city/redlight/studio_porn/casting/casting0.jpg"></center>'
-	'You sit down on the sofa and greet the manager. "I see it''s your first time with us. So, you want to be a porn star?"'
-	act 'Yes':
-		cla
-		minut += 5
-		gs 'stat'
-		'You confirm your enthusiasm to be in porn and he nods. "Let''s see your papers. You are 18 or older, yes?"'
-		if age >= 18:
-			'"Yes, I am." you answer, handing him your passport.'
-			'"All right then. First we''ll need to do a casting. Take off your clothes and let me see your body."'
-		elseif fakepassport = 1:
-			'"Yes, I am." you answer, handing him your fake passport.'
-			'You see him frown as he checks your passport with suspicion.'
-			'"Well, I guess everything is in order. First we''ll need to do a casting. Take off your clothes and let me see your body."'
-		else
-			'"Nearly..." you plead.'
-			'"Right... Here''s my card. Come back when you''re old enough, kid."'
-			fakepassport = 2
-			act 'Leave': gt 'pornstudio', 'start'
-			exit
-		end
-
-		act 'Make excuses and leave': gt 'pornstudio', 'start'
-
-		gs 'willpower', 'exhib', 'self'
-		if will_cost <= pcs_willpwr:
-			act 'Undress (<<will_cost>> Willpower)':
-				cla & *clr
-				gs 'willpower', 'pay', 'self'
-				minut += 5
-				gs 'stat'
-				'<center><img <<$set_imgh>> src="images/locations/city/redlight/studio_porn/casting/casting1.jpg"></center>'
-				'You undress as he gets up from his chair and walks towards you. "Lie down on the couch and spread your legs."'
-                
-				act 'Grab your clothes and run out': gt 'pornstudio', 'start'
-
-				act 'Lie down':
-					cla & *clr
-					minut += 5
-					gs 'stat'
-					'<center><img <<$set_imgh>> src="images/locations/city/redlight/studio_porn/casting/casting2.jpg"></center>'
-					'You lie down on the sofa and spread your legs. The manager takes a few pictures on his phone, explaining that they''re for your portfolio. After that, he asks you to kneel.'
-
-					act 'Kneel':
-						cla & *clr
-						minut += 5
-						gs 'stat'
-						'<center><img <<$set_imgh>> src="images/locations/city/redlight/studio_porn/casting/casting3.jpg"></center>'
-						'You get up from the sofa and kneel in front of him as he pulls out his sizeable cock. You admire it for a few seconds before slowly sucking on his tip. He takes more pictures as he says "Now suck."'
-
-						act 'Suck his dick':
-							cla & *clr
-							minut += 5
-							gs 'stat'
-							'<center><img <<$set_imgh>> src="images/locations/city/redlight/studio_porn/casting/casting4.jpg"></center>'
-							'You take his shaft into your mouth and begin to suck it as he takes a few more pictures.'
-
-							act 'Finish him':
-								cla & *clr
-								minut += 5
-								gs 'stat'
-								'<center><img <<$set_imgh>> src="images/locations/city/redlight/studio_porn/casting/casting5.jpg"></center>'
-								'You take his dick deep into your throat while trying to look as sexy as possible. Meanwhile, he fondles your breast with his free hand.'
-								'After a few minutes, he pulls his dick out of your mouth. "Finish me off!" he curtly orders. You quickly jerk him off and soon a thick load of cum is covering your face. He takes some last photos of you before returning to his desk and offering you wipes. You quickly clean yourself, get dressed and sit down.'
-								'"You can call me Dimitri. You''re going to need a stage name.'
-
-								act 'Choose your name':
-									cla & *clr
-									firstkasting = 1
-									$pfname = input ("What will your porn name be?")
-
-									if $pfname <= 0:$pfname = '<<$pcs_nickname>> BimboStar'
-
-									'"<<$pfname>>, wonderful name. Now listen. Before shooting starts, you have to pass a medical examination. If we find any sign of a sexually transmitted disease, you''re out, no exceptions."'
-									'"There we go, you''re now registered. We''re quite big in the industry, shooting about four films a day, so you can choose what you to be in. Anal or gangbang, it''s your choice, just remember to take care of your health. If you get sick or something, just cancel the shoot. You can do this up to the day of the shooting."'
-									'"Come see me when you want a contract. And welcome to the world of pornography...<<$pfname>>."'
-
-									act 'Continue': gt 'pornstudio', 'start'
-								end
-							end
-						end
-					end
-				end
-			end
-		else
-			act 'Undress (<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
-
-if $ARGS[0] = 'medical':
-	*clr & cla
-	menu_off = 1
-	'<center><img <<$set_imgh>> src="images/locations/city/redlight/studio_porn/exam.jpg"></center>'
-	minut += 5
-	gs 'stat'
-	'You enter the office where the doctor is waiting. He quickly snaps on a pair of rubber gloves and tells you to undress.'
-	'You remove your clothes and sit on the gynecological chair. The doctor comes up to you and starts the check up. After a thorough inspection, he takes a blood sample.'
-	'"It will be about half an hour before the tests are finished. They will tell us if you have caught something."'
-
-	act 'Wait':
-		cla
-		minut += 30
-		gs 'stat'
-		'...'
-		'...'
-		if venera > 0:
-			pfilmNO = 1
-			pfilmNoVenera = 1
-			'"Your analysis shows you have an STD." the doctor tells you as he calls Dimitri to the office.' 
-			'Once he arrives, Dimitri looks at the test results. "Sorry, but as long as you have an STD, you cannot make films."'
-			act 'Leave': gt 'pornstudio', 'start'
-		else
-			'"Very good, you are clean. You can go to the dressing room."'
-
-			act 'Go to the dressing room':
-				pf = ARGS[1]
-				dynamic $pornfilmdesc, pf
-				gs 'pornfilm', 'pornactor'
-				gs 'pornfilm', 'pornactress'
-				*clr & cla
-				'<center><img width=700 src="images/locations/city/redlight/studio_porn/makeup.jpg"></center>'
-				minut += 30
-				cumspclnt = 20
-				gs 'cum_cleanup'
-				pcs_sweat = 0
-				pcs_hairbsh = 1
-				pcs_makeup = 4
-				pcs_lipbalm += 8
-				pcs_breath = 1
-				gs 'stat'
-				'A skinny white-haired woman is waiting for you in the dressing room.'
-				'You take a thorough shower before getting an enema. You then get your hair and make-up done.'
-
-				act 'Go to the set': gt 'pornfilm', '<<pf>>'
-			end
-		end
-	end
-end
-
-if $ARGS[0] = 'postvideo':
-	cls
-	menu_off = 1
-	minut += 30
-	pf = pfilmday[0]
-	pfilmday[0] = 0
-	pornstack -= 1
-	pornnow = 0
-	if film < 5:
-		fmulti = 25
-	elseif film < 10:
-		fmulti = 30
-	elseif film < 15:
-		fmulti = 35
-	elseif film < 25:
-		fmulti = 40
-	elseif film < 50:
-		fmulti = 45
-	elseif film >= 50:
-		fmulti = 50
-	end
-
-	film += 1
-	if film = 1:
-		$porntitle[film] = 'Girls Jerk Guys #36 - <<$pfname>>'
-		$pornfilmstory[film] = '<<$pfname>>''s debut into the world of porn. Watch as she jerks off <<$pactor[1]>> and lets him cum all over her tits.'
-	else
-		if $pstory = '' and editpornname = 1:
-			$pornfilmstory[film] = input('You can enter the story of the porn movie. This action can be done only once, but you can choose to do it later! (Just hit Enter/Esc when blank)<br>Tags of the current movie: <font color=#541717 size=2><<$pfilmtags>></font>')
-		else
-			$pornfilmstory[film] = $pstory
-		end
-		if editpornname = 1:
-			$porntitle[film] = input("Enter the name of the porn movie. <i>This action can be done only once, but you can choose to do it later! (Just hit Enter/Esc when blank)</i>")
-		end
-	end
-
-	if pfilmNOPAY = 0:
-		pfcash = pcash * fmulti
-		money += pfcash
-		'Dimitri counts <<pfcash>> <b>₽</b> out for your film and wishes good luck.'
-	else
-		pfilmNOPAY = 0
-		pfcash = 0
-		'You have fulfilled your obligation and made the film for free.'
-	end
-	pornfilmYear[film] = year
-	pornfilmMonth[film] = month
-	pornfilmDay[film] = day
-	porndaystart[film] = daystart
-	pornfilmType[film] = pf
-	pornfilmCash[film] = pfcash
-	pornfilmActAge[film] = age
-	pornfilmAppAge[film] = vidage
-	pornfilmpregchem[film] = pregchem
-	pornfilmacting[film] = acting+orgasmbonus+pcs_intel/10
-	dynamic $pornfilmdesc, pf
-	killvar 'orgasmbonus'
-	if pornfilmacting[film] >= 90:
-		porn_fame += 3
-	elseif pornfilmacting[film] >= 75:
-		porn_fame += 2
-	elseif pornfilmacting[film] >= 60:
-		porn_fame += 1
-	end
-	if hotcat >= 9:
-		porn_fame += 3
-	elseif hotcat >= 7:
-		porn_fame += 2
-	elseif hotcat >= 5:
-		porn_fame += 1
-	end
-	pornfilmvnesh[film] = hotcat
-
-	acting += actbonus
-
-	if pfType ! 0:
-		unprotfilm = -1
-		if succubusflag = 1:
-!!			May add a check to clear unprotfilm based on sucpcinfo (the PC knows Succubae are immune to STD''s)
-			if pfcash > 0:
-				$tmp = '"I almost can''t believe they paid me <<pfcash>><b>₽</b> for such a wonderful meal!"'
-			else
-				$tmp = '"And they think I''m doing this for free. If only they knew they were paying me in another way..."'
-			end
-			'You let slip a satisfied smirk and think to yourself, <<$tmp>>'
-		elseif knowpreg = 0 and thinkpreg = 0 and pillcon2 < 1000:
-			pornDanger[film] = 1
-!!			Left "ppreg" pending its eventual use
-			if ppreg = 0:
-				if pfcash > 0:
-					$tmp = ' Was <<pfcash>> <b>₽</b> worth the risk of getting impregnated by a seedy porn actor you''ll probably never see again?'
-				else
-					$tmp = 'You didn''t even get paid to risk pregnancy! You''ll likely never see the guy again.'
-				end
-				'With a growing sense of horror, you realize that you aren''t on the shot and have no idea when you last took a birth control pill.<<$tmp>>'
-			else
-				!{If she has birth control and deliberately isn''t using it, obviously she wants to get pregnant or just doesn''t care.}
-				if pfcash > 0:
-					$tmp = 'Either way, <<pfcash>> <b>₽</b> will definitely help make a better life for you and your baby if you end up pregnant.'
-				else
-					$tmp = 'The fact that you weren''t even paid to take this risk excites you more than you''d like to admit.'
-				end
-				'From the moment you stepped onto the set, you kept thinking about how you were completely unprotected during this shoot. You aren''t sure if you''re afraid of the consequences or excited by them.<<$tmp>>'
-				pcs_horny += 10
-			end
-		end
-		killvar '$tmp'
-	end
-
-	if pfactor = 50:
-		$pornfilmActor[film] = 'Fifty fans of'
-	else
-		$pornfilmActor[film] = ''
-		pact = pfactor
-		:pornactortext
-			if pact > 1:
-				$pornfilmActor[film] += $pactor[pact]+', '
-			else
-				$pornfilmActor[film] += $pactor[pact]
-			end
-			pact -= 1
-		if pact > 0:jump 'pornactortext'
-	end
-
-	if film < 10:
-		filmkoef = 10
-	elseif film < 25:
-		filmkoef = 5
-	else
-		filmkoef = 0
-	end
-
-	pfcash = 0
-	gs 'stat'
-
-	act 'Leave': gt 'pornstudio', 'start'
-end
-
-if $ARGS[0] = '1':
-	$loc_arg = $ARGS[0]
-	$loc = 'pornstudio'
-
-	minut = minut + 5
-	clr
-	menu_off = 1
-	gs'stat'
-
-	'<center><img <<$set_imgh>> src="images/locations/city/redlight/studio_porn/pierre_1.jpg"></center>'
-	'You''ve come to the studio, looking for someone - anything that you think can help you.'
-	'You approach a man, who introduces himself as Dimitri.'
-
-	act 'State the purpose of your visit':
-		*clr & cla
-		minut += 60
-        '<center><img <<$set_imgh>> src="images/locations/city/redlight/studio_porn/pierre_2.jpg"></center>'
-		'Dimitri smiles. "New actresses are always welcome, but if they''re terrible, the studio won''t take them. The auditions are made public, so remember that if you ever consider it."'
-		'"I''ll tell you everything else under one condition - you have to undress."'
-
-		act 'Undress':
-			*clr & cla
-			'<center><img <<$set_imgh>> src="images/locations/city/redlight/studio_porn/casting_3.jpg"></center>'
-			'You strip out of your clothes. Once you''re nude, Dimitri smiles and starts his tour.'
-			'"We start with the casting auditions. As I said, if you''re terrible, then you have no hope. This can be overlooked if you have an attractive appearance, however."'
-
-			act 'Continue':
-				*clr & cla
-				'<center><img <<$set_imgh>> src="images/locations/city/redlight/studio_porn/model_0.jpg"></center>'
-				'"Then a girl is chosen for the lead role. Only the most attractive of girls are chosen."'
-				
-				act 'Continue':
-					*clr & cla
-					'<center><img <<$set_imgh>> src="images/locations/city/redlight/studio_porn/film_0.jpg"></center>'
-					'"Then she shoots the scenes, an interesting and exciting process that can take hours. The films we shoot...'
-					
-					act 'Continue':
-						*clr & cla
-						'<center><img <<$set_imgh>> src="images/locations/city/redlight/studio_porn/dvd-disx.jpg"></center>'
-						'He pulls a DVD off the top of a nearby stack. "Are how we make money."'
-
-						act 'How and where is it all sold?':
-							*clr & cla
-							'<center><img <<$set_imgh>> src="images/locations/city/redlight/studio_porn/pierre_2.jpg"></center>'
-							'"We mostly sell it digitally on our premium websites, but we have guys at the sauna in the residential area and in the sex shop for those who want to buy physically.' 
-							'We''re thinking of moving in on the university as well- and not just selling our films there. We could possibly shoot a few films on campus. There''s a huge market for young college students and we want a slice."'
-
-							act 'Is that legal?':
-								*clr & cla
-								'<center><img <<$set_imgh>> src="images/locations/city/redlight/studio_porn/ment_0.jpg"></center>'
-								'"It doesn''t matter since we bribe the cops. Maybe in the future you''ll be able to help us with that? In the meantime, I''ve told you everything you need to know."'
-
-								act 'I understand':
-									*clr & cla
-									pornstudio = 3
-
-									'<center><img <<$set_imgh>> src="images/locations/city/redlight/studio_porn/pierre_2.jpg"></center>'
-									'"Good girl. Now leave and stop wasting my time."'
-                                    gt 'pornstudio', 'start'
-								end
-							end
-						end
-					end
-				end
-			end
-		end
-	end
-end
-
-if $ARGS[0] = '2':
-	$loc_arg = $ARGS[0]
-	$loc = 'pornstudio'
-	menu_off = 1
-
-	clr
-	! WD: Fix Uninitialised ~ 'carrf' to 'carrar'
-	carrar = RAND(40, 100)
-	gs 'stat'
-
-	'<center><img <<$set_imgh>> src="images/locations/city/redlight/studio_porn/casting_<<rand(1,6)>>.jpg"></center>'
-
-	'You spend eight hours posing in a variety of sexy underwear for the casting director.'
-
-	minut += 120
-	gs 'stat'
-	minut += 120
-	gs 'stat'
-	minut += 120
-	gs 'stat'
-	minut += 120
-	gs 'stat'
-
-	if pcs_apprnc < carrar:
-		'"You don''t have what it takes. Sorry."'
-	elseif pcs_apprnc >= carrar:
-		actr = 1
-
-		'You get the role.'
-	end
-
-	act 'Finish':
-		gt 'pornstudio','start'
-	end
-end
-
-if $ARGS[0] = '3':
-	$loc_arg = $ARGS[0]
-	$loc = 'pornstudio'
-
-	clr
-	actr = 0
-	gs 'stat'
-	gt 'bdsm'
-end
-
-if $ARGS[0] = 'pregreact':
-	'"Wow. I''m surprised you still want to do the shoot considering how far along you are. The good news is, we''ve been looking into appealing to people with different fetishes, so this is the perfect opportunity to start marketing to pregnancy fetishists. However, this is also going to change the shoots you can do."' 
-	'"You see, this is more of a niche thing and not something we can really use for wide appeal. You can still work, but only on specific pregnancy shoots, so you might not get the same amount of work you got before. Don''t worry though, if we can find a way to make money off of you, we definitely will." the manager ends with a smile.'
-	act 'Continue': pregtalkpornstudio = 1 & gt 'pornstudio', 'manager'
-end
-
---- pornstudio ---------------------------------
-

locations/unused/randAnpc.qsrc

@@ -1,51 +0,0 @@
-# randAnpc
-
-!! arguments: <gender> <excluded_first_name> <grupTipeEnabled>...
-!! gender : 0 for male, 1 for female, 2 for any gender
-!! excluded_first_name : can be '' or you can provide result of previous invocation, so you can compose non-repeating pairs of people
-!! <grupTipeEnabled>... : 1 if you include grupTipe, 0 otherwise, look at examples below
-!!
-!! example:
-!! $rand_girl = func('randAnpc', 1, '', 1, 1, 0, 1, 0, 0, 0, 0)
-!! $rand_girl1 = func('randAnpc', 1, $rand_girl, 1, 1, 0, 1)
-!!
-!! Having grupTipes (social groups)
-!! 1 - cool kids
-!! 2 - jocks
-!! 3 - nerds
-!! 4 - Gopnik
-!! 5 - outcasts
-!! 6 - teachers
-!! 7 - family
-!! 8 - other Pavlovsk
-!! examples above instruct to choose random person from: cool kids, jocks and gopniks
-!! NOTE that in $rand_girl1 zero values for outcasts, teachers, family and other Pavlovk npcs are not defined - undefined values will be zero by language
-!! Thanks to that you can include new social group and you don''t need to make changes in all places
-
-:selectloop
-	r = rand(1, aarraynumber)
-	if ARGS[1] ! 2:
-		if npc_gender['A<<r>>'] ! ARGS[1]: jump 'selectloop'
-	end
-	if npc_grupTipe['A<<r>>'] = 1:
-		if ARGS[3] = 0: jump 'selectloop'
-	elseif npc_grupTipe['A<<r>>'] = 2:
-		if ARGS[4] = 0: jump 'selectloop'
-	elseif npc_grupTipe['A<<r>>'] = 3:
-		if ARGS[5] = 0: jump 'selectloop'
-	elseif npc_grupTipe['A<<r>>'] = 4:
-		if ARGS[6] = 0: jump 'selectloop'
-	elseif npc_grupTipe['A<<r>>'] = 5:
-		if ARGS[7] = 0: jump 'selectloop'
-	elseif npc_grupTipe['A<<r>>'] = 6:
-		if ARGS[8] = 0: jump 'selectloop'
-	elseif npc_grupTipe['A<<r>>'] = 7:
-		if ARGS[9] = 0: jump 'selectloop'
-	elseif npc_grupTipe['A<<r>>'] = 8:
-		if ARGS[10] = 0: jump 'selectloop'
-	end
-if $npc_firstname['A<<r>>'] = $ARGS[2]: jump 'selectloop'
-
-numnpc = r
-
---- randAnpc ---------------------------------

locations/unused/rex_party_boys_events.qsrc

@@ -1,928 +0,0 @@
-# rex_party_boys_events
-
-if $ARGS[0] = 'drink':
-	cls
-	minut += 5
-	gs 'drugs', 'alcohol', 'beer'
-	party_boys_drink += 1
-	$menu_loc = 'rex_party_boys_events'
-	$menu_arg = 'drink'
-	menu_off = 0
-	minut += 5
-	gs 'stat'
-	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_2_<<rand(1,4)>>.jpg"></center>'
-	i = rand(1,6)
-	if i = 1:
-		'You drink along with a crowd of boys. The men constantly guffaw as they tell stories: '
-		'"Girl, sorry, and you will not have to have sex?"'
-		'"Oh, sorry, I threw ..."'
-		'"Congratulations."'
-	elseif i = 2:
-		'You drink along with a crowd of boys. The men constantly guffaw as they tell stories: "When I was a child my parents forbade me all the fun things. Now I''m grown up and my girl doesn''t allow me to do them."'
-	elseif i = 3:
-		'You drink along with a crowd of boys. The men constantly guffaw as they tell stories: "Previously, it was clear. Did the lessons - good, grandmother moved across the street - clever, the ball broke the glass - bad. And now - one girl did well, and the other from this - bad. And you all did everything for the third. And she - still!'
-	elseif i = 4:
-		'You drink along with a crowd of boys. The men constantly guffaw as they tell stories: "Girls always say: Well all, until the evening, Smack! - Well, what, on dick, Smack? Do you want to kiss - a kiss!'
-	elseif i = 5:
-		'You drink along with a crowd of boys. The men constantly guffaw as they tell stories: '
-		'"Just listen, <<$pcs_nickname>>. When I tell a girl "Come to me", and she asks me "To do what?" do I really have to explain it to her? After all, my house is not a bowling alley or a cinema."'
-		'"If I say: "I want to have sex. I definitely will have a sex. You can join in, or not. Afterwards you can stay, but it would be better if you leave", she won''t come over."'
-		'"But if I tell her something ridiculous like "Come back home with me, I have a fine collection of lute music of the 16th century" she will go for it. Girls are well aware what will happen when they come over but they want to have an excuse for it."'
-	elseif i = 6:
-		'You drink along with a crowd of boys. The men constantly guffaw as they tell stories: '
-		'So I''m starting to have sex with this girl and she keeps complaining. It goes like this: '
-		'"The windows are open!"'
-		'"Who cares?"'
-		'"There will be mosquitoes everywhere!"'
-		'"We''ll turn off the lights."'
-		'"But then the cockroaches come out!"'
-	end
-	act 'Move away': gt $loc, $loc_arg
-
-	if party_boys_drink > 2:
-		cls
-		minut += 5
-		gs 'stat'
-		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_kuh_2_<<rand(1,3)>>.jpg"></center>'
-		'"Guys, you poured too much into the glass. I''m drunk already.", you say."'
-		'"Come on <<$pcs_nickname>>, lets have another." with that, one of the guys puts his arm around you and bares your breasts. The touchy guy is surprisingly nice and you are a little amused by this situation.'
-		if npc_rel['A57'] >= 50: 'You notice Rex in the room...'
-		if npc_rel['A57'] >= 50: act 'Get Rex''s attention': gt 'rex_party_boys_events', 'Rex_save'
-		act 'Have fun with them': gt 'rex_party_boys_events', 'smile'
-		gs 'willpower', 'action', 'type', 'medium'
-		if will_cost <= pcs_willpwr:
-			act 'Break free of them (<<will_cost>> Willpower)':
-				*clr & cla
-				gs 'willpower', 'pay', 'type'
-				gs 'stat'
-				gt 'rex_party_boys_events', 'Try_save'
-			end
-		else
-			act 'Break free of them (<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
-
-if $ARGS[0] = 'Rex_save':
-	cls
-	Rex_save += 1
-	$menu_loc = 'rex_party_boys_events'
-	$menu_arg = 'Rex_save'
-	menu_off = 0
-	minut += 5
-	gs 'stat'
-	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_kuh_10.jpg"></center>'
-	'You glance over to Rex. He seems ready to help you out of this awkward situation.'
-	'He quickly exclaims, "Hey boys, are you insane? Take your hands off my fucking girl. One more time and I will kick your ass!"'
-	'The guy takes his hands off of you, "Rex, bro, we were just having a bit of drunken fun. I''m sorry, if I hurt your girl."'
-	'Rex comes up to you and picks you up, "Come on, sweety. I''ll make sure the other guys leave you alone. Lets go to another room."'
-	act 'Go to the Rex''s room': gt 'rex_party_boys_events', 'V_komnatu'
-end
-
-if $ARGS[0] = 'smile':
-	cls
-	$menu_loc = 'rex_party_boys_events'
-	$menu_arg = 'smile'
-	menu_off = 0
-	party_boys_in += 1
-	gs 'npcgeneratec', 0, 'Boy from Rex''s Party', 17
-	gs 'boyStat', $npclastgenerated
-	$boydesc = $npc_usedname[$npclastgenerated]
-	gs 'npcgeneratec', 0, 'Boy from Rex''s Party', 17
-	$boy1 = $npclastgenerated
-	$boydesc1 = $npc_usedname[$npclastgenerated]
-	gs 'npcgeneratec', 0, 'Boy from Rex''s Party', 17
-	$boy2 = $npclastgenerated
-	$boydesc2 = $npc_usedname[$npclastgenerated]
-	gs 'stat'
-	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_kuh_4_<<rand(1,3)>>.jpg"></center>'
-	'You give the guys a faint smile, showing your availability. They quickly realize the situation and come over to you and start to stroke your hair and massage your neck. It is very relaxing and you give a soft sigh which turns into a moan. You have the full attention of the boys and they decide to drag you.'
-	act 'Go outside Rex''s house': gt 'rex_party_boys_events', 'out'
-	act 'Go to another room':minut += 5 & gt 'rex_party_boys_events', 'V_komnatu'
-end
-
-if $ARGS[0] = 'Try_save':
-	cls
-	$menu_loc = 'rex_party_boys_events'
-	$menu_arg = 'Try_save'
-	menu_off = 0
-	minut += 5
-	gs 'stat'
-	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_kuh_3.jpg"></center>'
-	'You find the strength to break free of the grasping hands, shouting "Let me go, I don''t want that. Get your filthy hands off me."'
-	'"Come on, <<$pcs_nickname>>, we''re just having fun. Just admit that you liked where this was going." the touchy guy responds.'
-	act 'Move away': gt $loc,$loc_arg
-	act 'Have fun with them': gt 'rex_party_boys_events', 'smile'
-end
-
-if $ARGS[0] = 'V_komnatu':
-	cls
-	$menu_loc = 'rex_party_boys_events'
-	$menu_arg = 'V_komnatu'
-	menu_off = 0
-	gs 'stat'
-	i = rand(1,5)
-	if i = 1:
-		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_kuh_5_1.jpg"></center>'
-		'One of the girls is sitting in the room trying to recover from the exhausting party.'
-		if Rex_save = 1: 'Rex bursts into the room with you in tow, throws everyone out and shuts the door. He gently puts you on a soft bed and lies down on the floor near you.'
-		if party_boys_in >= 1: 'Several guys switch their attention to her, but are quickly rebuffed. The girl looks at you curiously as the guys unceremoniously put you on your knees and unzip their pants. Even in your drunken delirium you know what they want.'
-	elseif i = 2:
-		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_kuh_5_2.jpg"></center>'
-		'One of the girls is sitting in the room trying to recover from the exhausting party.'
-		if Rex_save = 1: 'Rex bursts into the room with you in tow, throws everyone out and shuts the door. He gently puts you on a soft bed and lies down on the floor near you.'
-		if party_boys_in >= 1: 'Anticipating what will happen next, she quickly dodges out of the room. The guys unceremoniously put you on your knees and unzip their pants. Even in your drunken delirium you know what they want.'
-	elseif i = 3:
-		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_kuh_5_<<rand(3,4)>>.jpg"></center>'
-		'In the room your sister and Roma are engaged in sweaty sex.'
-		if Rex_save = 1: 'Rex just glances at them and says, "Guys, I don''t want you to stop, but you will have to continue in another place."'
-		'"Hey thats my sister Anya" you exclaim. "Let''s just close the door and let them continue. They won''t mind, right Anya?"'
-		'Anya looks at you with a blissful smile, "No, I''m all for it. We''ll just keep fucking over here."'
-		'"No you won''t. You get your ass out of here already!" says Rex with a menacing expression on his face and the couple quickly leaves the room. He then gently puts you on a soft bed and lies down on the floor near you.'
-		if party_boys_in >= 1: '"Hey grandpa, do you need help?", one of the boys shouts.'
-		'Roma looks at them and says, "Shut up, you dumb fucks, you have your own bitch." The guys laugh a little and decide to leave the couple alone. Then they unceremoniously put you on your knees and unzip their pants. Even in your drunken delirium you know what they want.'
-	elseif i = 4:
-		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_kuh_5_5.jpg"></center>'
-		'The room is occupied by Lena, who is lying on a bed flashing her pussy. You can see cum dripping out of it.'
-		if Rex_save = 1: 'Rex bursts into the room with you in tow, throws everyone out and shuts the door. He gently puts you on a soft bed and lies down on the floor near you.'
-		if party_boys_in >= 1: '"Hey look, there is another pretty girl. This seems to be our lucky night." one of the guys says.'
-		'Another one chimes in with a grin on his face, "Yeah, but she is already used and has cum on her. Our lovely little <<$pcs_nickname>> here is fresh and clean." With that the guys unceremoniously put you on your knees and unzip their pants. Even in your drunken delirium you know what they want.'
-	elseif i = 5:
-		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_kuh_5_6.jpg"></center>'
-		'However, the room you are dragged into is currently occupied by two guys fucking Lena.'
-		if Rex_save = 1: 'Rex bursts into the room with you in tow, throws everyone out and shuts the door. He gently puts you on a soft bed and lies down on the floor near you.'
-		if party_boys_in >= 1: '"Do you mind, guys?" one of the boy asks with a grin.'
-		'"No, sit. There is room enough for everyone!" one of the guys who is fucking Lena answers.	The boys then unceremoniously put you on your knees and unzip their pants. Even in your drunken delirium you know what they want.'
-	end
-	if Rex_save = 1: act 'Fall asleep': gt 'rex_party_events', 'sleep'
-	if party_boys_in >= 1: act 'Start to suck': gt 'rex_party_boys_events', 'in'
-end
-
-if $ARGS[0] = 'out':
-	cls
-	i3 = rand(3,6)
-	guy += 3
-	gang += 1
-	pcs_vag += 3
-	pcs_ass += 3
-	menu_off = 1
-	i = rand(1,4)
-	if i = 1:
-		'<center><video autoplay loop src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_kuh_4_4.mp4"></video></center>'
-		'Together they get you out to the street and one of the guys pushes you down to your knees and pull his cock out. "Come on, <<$pcs_nickname>>, start sucking." You put you hand on his member and start to lick the whole length before wrapping your lips around the head. You keep sucking, taking turns on the guy''s dicks, until they are all hard and ready. Then one of them tells you to bend over.'
-		gs 'arousal', 'bj', 5, 'sub', 'group'
-		gs 'stat'
-		act 'Bend over':
-			cls
-			'<center><video autoplay loop src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_kuh_4_5.mp4"></video></center>'
-			'"Bend over, <<$pcs_nickname>>, and show us your tight, wet hole." You get in a comfortable position and the guys take turns fucking your wet pussy. You really enjoy yourself as you move your hips towards their rock hard members, making them glide in and out of your pussy, occasionally they switch to your ass, fucking it as well. The guys finish on your ass and back, except the last one who groans and tells you: "Ah, <<$pcs_nickname>>, open up, I want to cum in your mouth!"'
-			gs 'arousal', 'vaginal', 5, 'sub', 'group'
-			gs 'arousal', 'anal', 5, 'sub', 'group'
-			minut -= 5
-			gs 'stat'
-			act 'Open your mouth':
-				cls
-				minut += 5
-				
-				cumprecheck = 1
-				gs 'cum_manage'
-				spafinloc = 8
-				gs 'cum_manage'
-				gs 'boyStat', $boy1
-				cumprecheck = 1
-				gs 'cum_manage'
-				spafinloc = 4
-				gs 'cum_manage'
-				gs 'boyStat', $boy2
-				cumprecheck = 1
-				gs 'cum_manage'
-				sexvolume = 30
-				spafinloc = 12
-				gs 'cum_manage'
-				sexvolume = 10
-				spafinloc = 11
-				gs 'cum_manage'
-				'<center><video autoplay loop src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_kuh_4_6.mp4"></video></center>'
-				'You turn around and kneel in front of him, playfully sticking out your tongue. The drunk guy gives a little jerk and sprays of sperm jets into your mouth. "Ah, <<$pcs_nickname>>, you are truly the best bitch at this party!" the guys all laugh. You try to join in, but your laughter is stifled by the mouthful of sperm.'
-				gs 'arousal', 'end'
-				gs 'stat'
-				act 'Swallow': gt 'rex_party_events', 'boys_swalow'
-				act 'Spit out': gt 'rex_party_events', 'boys_spit'
-			end
-		end
-	elseif i = 2:
-		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_kuh_4_7.jpg"></center>'
-		'The boys have fun dragging you into the street, and you immediately go down on your knees. "Hey, <<$pcs_nickname>>, try our lollipops." You get excited as more and more members are put in front of your plump lips. You open your lips and even feel turned on while sucking them. You talk dirty, squeeze your boobs together and even give a little moan with their dicks in your mouth. After everyone is hard and you had your fun you get up, still sucking on one of their members with your mouth, and the boys tell you to bend over.'
-		
-		gs 'arousal', 'bj', 5, 'sub', 'group'
-		gs 'stat'
-		
-		act 'Bend over':
-			cls
-			minut += 5
-				i = rand(0,16)
-				if i = 2 or i = 5: i -= 2
-				if i = 6: i = 1
-				if i = 7: i = 4
-				cumprecheck = 1
-				gs 'cum_manage'
-				spafinloc = i
-				gs 'cum_manage'
-				if i = 0: i2 = 1
-				if rand(0,5) = 5:
-					i = rand(0,16)
-					if i = 2 or i = 5: i -= 2
-					if i = 6: i = 1
-					if i = 7: i = 4
-					sexvolume = 20
-					spafinloc = i
-					gs 'cum_manage'
-					if i = 0: i2 = 1
-				end
-				gs 'boyStat', $boy1
-				i = rand(0,16)
-				if i = 2 or i = 5: i -= 2
-				if i = 6: i = 1
-				if i = 7: i = 4
-				cumprecheck = 1
-				gs 'cum_manage'
-				spafinloc = i
-				gs 'cum_manage'
-				if i = 0: i2 = 1
-				if rand(0,5) = 5:
-					i = rand(0,16)
-					if i = 2 or i = 5: i -= 2
-					if i = 6: i = 1
-					if i = 7: i = 4
-					sexvolume = 20
-					spafinloc = i
-					gs 'cum_manage'
-					if i = 0: i2 = 1
-				end
-				gs 'boyStat', $boy2
-				i = rand(0,16)
-				if i = 2 or i = 5: i -= 2
-				if i = 6: i = 1
-				if i = 7: i = 4
-				cumprecheck = 1
-				gs 'cum_manage'
-				spafinloc = i
-				gs 'cum_manage'
-				if i = 0: i2 = 1
-				if rand(0,5) = 5:
-					i = rand(0,16)
-					if i = 2 or i = 5: i -= 2
-					if i = 6: i = 1
-					if i = 7: i = 4
-					sexvolume = 20
-					spafinloc = i
-					gs 'cum_manage'
-					if i = 0: i2 = 1
-				end
-			'<center><video autoplay loop src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_kuh_4_8.mp4"></video></center>'
-			'You dutifully oblige and bend over not letting the member out of your mouth. One of the guys enters your aching pussy. In time they switch positions and even start fucking you in the ass. You feel relaxed and relish having their cocks in every hole, completely giving yourself up to the boys. After playing with you the guys finish one by one. Half awake and drunk you hardly care where they cum on you. Exhausted and quite a mess you drunkenly stumble into a room.'
-			gs 'arousal', 'vaginal', 5, 'sub', 'group'
-			gs 'arousal', 'anal', -5, 'sub', 'group'
-			if i2 = 1: gs 'cuminsidereact', 'one of the guys from the party'
-			killvar 'i2'
-			gs 'arousal', 'end'
-			gs 'stat'
-			act 'Fall asleep': gt 'rex_party_events', 'sleep'
-		end
-	elseif i = 3:
-		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_kuh_4_9.jpg"></center>'
-		'You are dragged into the street, undressed and unceremoniously pushed down on a bench. You give a sigh of pleasure when the guys begin to slowly fuck your mouth and pussy.'
-		'They take turns fucking you and letting you suck their cock, they even start fucking you in the ass.'
-		'Their cocks glide in and out of your holes, going deeper with every thrust.'
-		
-		gs 'arousal', 'vaginal', 5, 'sub', 'group'
-		gs 'arousal', 'anal', 5, 'sub', 'group'
-		gs 'arousal', 'bj', 5, 'sub', 'group'
-		minut -= 5
-		gs 'stat'
-			
-		act 'Go on':
-			cls
-			minut += 5
-				cumprecheck = 1
-				gs 'cum_manage'
-				spafinloc = 4
-				gs 'cum_manage'
-				if rand(0,5) = 5:
-					i = rand(0,8)
-					if i = 2 or i = 5: i -= 2
-					if i = 6: i = 1
-					if i = 7: i = 4
-					sexvolume = 20
-					spafinloc = i
-					gs 'cum_manage'
-				end
-				gs 'boyStat', $boy1
-				gs 'cum_manage'
-				if rand(0,5) = 5:
-					i = rand(0,8)
-					if i = 2 or i = 5: i -= 2
-					if i = 6: i = 1
-					if i = 7: i = 4
-					sexvolume = 20
-					spafinloc = i
-					gs 'cum_manage'
-				end
-				gs 'boyStat', $boy2
-				cumprecheck = 1
-				gs 'cum_manage'
-				spafinloc = 8
-				gs 'cum_manage'
-				if rand(0,5) = 5:
-					i = rand(0,8)
-					if i = 2 or i = 5: i -= 2
-					if i = 6: i = 1
-					if i = 7: i = 4
-					sexvolume = 20
-					spafinloc = i
-					gs 'cum_manage'
-				end
-			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_kuh_4_10.jpg"></center>'
-			'The guys a very drunk and soon begin to focus on your pussy and ass, fucking you roughly. Enthralled by the moment the guys cum wherever they want. You feel hot jets of sperm hitting your back and ass. Some of them even cum inside of you. After they are done, one of them exclaims, "Uhh, the crown for the best whore of the evening certainly belongs to you, <<$pcs_nickname>>." Exhausted and quite a mess you drunkenly stumble into a room.'
-			gs 'arousal', 'vaginal', 5, 'sub', 'group', 'rough'
-			gs 'arousal', 'anal', -5, 'sub', 'group', 'rough'
-			gs 'cuminsidereact', 'one of the guys from the party'
-			gs 'arousal', 'end'
-			gs 'stat'
-			act 'Fall asleep': gt 'rex_party_events', 'sleep'
-		end
-	elseif i = 4:
-		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_kuh_4_11.jpg"></center>'
-		'Out on the street, one of the guys immediately grabs you from behind, and tells you to bend over. You obediently follow his order as he spits in his hand and rubs his saliva all over your pussy. His member easily enters you and he brazenly grabs you by the hips and starts pumping you hard balls deep, completely unconcerned if you are enjoying yourself or not. The guy spanks you, his hand coming down in sweeping strokes on your ass, as he drives his dick in your pussy. You feel yourself getting wet from the forceful fucking and begin to rhythmically wag your ass enjoying every movement while holding two of the other guy''s members in your hands. Not quite done the first guy helps you up.'
-		
-		gs 'arousal', 'vaginal', 5, 'sub', 'group', 'rough'
-		gs 'arousal', 'hj', 5, 'sub', 'group'
-		minut -= 5
-		gs 'stat'
-			
-		act 'Get up':
-			cls
-			minut += 5
-			cumprecheck = 1
-			gs 'cum_manage'
-			spafinloc = 3
-			gs 'cum_manage'
-			if rand(0,5) = 5:
-				i = rand(0,16)
-!!				if i = 11: 
-				if i = 2 or i = 5: i -= 2
-				if i = 6: i = 1
-				if i = 7: i = 4
-				sexvolume = 20
-				spafinloc = i
-				gs 'cum_manage'
-				if i = 0: i2 = 1
-			end
-			gs 'boyStat', $boy1
-			cumprecheck = 1
-			gs 'cum_manage'
-			spafinloc = i
-			sexvolume = 20
-			gs 'cum_manage'
-			spafinloc = i
-			sexvolume = 20
-			gs 'cum_manage'
-			if rand(0,5) = 5:
-				i = rand(0,16)
-!!				if i = 11: 
-				if i = 2 or i = 5: i -= 2
-				if i = 6: i = 1
-				if i = 7: i = 4
-				sexvolume = 20
-				spafinloc = i
-				gs 'cum_manage'
-				if i = 0: i2 = 1
-			end
-			gs 'boyStat', $boy2
-			i = rand(0,16)
-!!			if i = 11: 
-			if i = 2 or i = 5: i -= 2
-			if i = 6: i = 1
-			if i = 7: i = 4
-			cumprecheck = 1
-			gs 'cum_manage'
-			spafinloc = i
-			gs 'cum_manage'
-			if i = 0: i2 = 1
-			if rand(0,5) = 5:
-				i = rand(0,16)
-!!				if i = 11: 
-				if i = 2 or i = 5: i -= 2
-				if i = 6: i = 1
-				if i = 7: i = 4
-				sexvolume = 20
-				spafinloc = i
-				gs 'cum_manage'
-				if i = 0: i2 = 1
-			end
-			gs 'stat'
-			'<center><video autoplay loop src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_kuh_4_12.mp4"></video></center>'
-			'You rest your hands on a railing and the guy slips his cock in your ass and continues pumping, emptying his balls inside your ass before long. Another stud comes over and stupidly continues with the monotonous movements, using both of your holes looking to get off soon. When he starts to twitch, clearly being close to orgasm, he abruptly pulls his dick out of your vagina and you can feel warm drops on your back and buttocks.'
-			'"I''m next. Move!" says a voice from behind you. "Someone else can use her mouth." echoes another voice. Before long the rest of the guys finish too. Exhausted and quite a mess you drunkenly stumble into a room.'
-			gs 'arousal', 'bj', 5, 'sub', 'group'
-			gs 'arousal', 'vaginal', 5, 'sub', 'group', 'rough'
-			gs 'arousal', 'anal', 5, 'sub', 'group', 'rough'
-			minut -= 5
-			gs 'stat'
-			if i2 = 1: gs 'cuminsidereact', 'one of the guys from the party'
-			killvar 'i2'
-			gs 'arousal', 'end'
-			gs 'stat'
-			act 'Fall asleep': gt 'rex_party_events', 'sleep'
-		end
-	end
-end
-
-if $ARGS[0] = 'in':
-	cls
-	guy += 3
-	gang += 1
-	stat['vaginal'] += 1
-	stat['anal'] +=1
-	pcs_vag += 3
-	pcs_ass += 3
-	menu_off = 1
-	gs 'stat'
-	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_kuh_5_<<rand(7,13)>>.jpg"></center>'
-	'You fall down on your knees in front of the annoying guys and put your hand on two of their members. Tightening your grip slightly, you cause a faint sigh from one of the boys. You lick their members from the bottom up closing your lips around their heads. You continue taking turns sucking on their dicks without stopping. Your lips slide up and down on each member, exploring every bump and vein on their rock hard dicks. Greedily you take care of each one, leaving nobody unsatisfied. One of the guys starts to caress your back. He seems ready.'
-	
-	gs 'arousal', 'bj', 5, 'sub', 'group'
-	gs 'stat'
-		
-	act 'Surrender':
-		cls
-		gs 'stat'
-		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_kuh_5_<<rand(15,19)>>.jpg"></center>'
-		'The hands on your back grip you firmly and the guy enters you with a swift movement, parting your pussy lips. His hands grab your hips authoritatively as he thrusts his member into your wet pussy. You feel the movement of fingers sliding down you buttocks and into your ass followed by an indescribable sensation as one of the guy''s members slips into your tight ring.'
-		'Feeling stretched inside you are overcome by pleasure and start to relax and enjoy everything that is happening to you. They use you as they please, and you are defenseless, subordinate to their will. After a while the guys pull out and put you on your knees in front of them.'
-		'Each of them taking a turn fucking your mouth, pussy and ass, pounding all of your holes with reckless abandon, seemingly unconcerned if you are enjoy it or not.'
-		
-		gs 'arousal', 'bj', 5, 'sub', 'group'
-		gs 'arousal', 'vaginal', 5, 'sub', 'group'
-		gs 'arousal', 'anal', 5, 'sub', 'group'
-		minut -= 5
-		gs 'stat'
-			
-		act 'Take their cum':
-			cls
-			minut += 5
-			
-			cumprecheck = 1
-			gs 'cum_manage'
-			spafinloc = 15
-			sexvolume = 5
-			gs 'cum_manage'
-			spafinloc = 12
-			sexvolume = 10
-			gs 'cum_manage'
-			spafinloc = 11
-			sexvolume = 20
-			gs 'cum_manage'
-
-			gs 'boyStat', $boy1
-			cumprecheck = 1
-			gs 'cum_manage'
-			spafinloc = 15
-			sexvolume = 5
-			gs 'cum_manage'
-			spafinloc = 12
-			sexvolume = 10
-			gs 'cum_manage'
-			spafinloc = 11
-			sexvolume = 20
-			gs 'cum_manage'
-
-			gs 'boyStat', $boy2
-			cumprecheck = 1
-			gs 'cum_manage'
-			spafinloc = 15
-			sexvolume = 5
-			gs 'cum_manage'
-			spafinloc = 12
-			sexvolume = 10
-			gs 'cum_manage'
-			spafinloc = 11
-			sexvolume = 20
-			gs 'cum_manage'
-
-			gs 'stat'
-			if rand(1,2) = 1:
-				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_kuh_5_<<rand(20,23)>>.jpg"></center>'
-			else
-				'<center><video autoplay loop src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_kuh_5_<<rand(24,25)>>.mp4"></video></center>'
-			end
-			'The guys stand over you and begin to finish at the same time, spurting streams of semen on you from all sides. Some of them come into your mouth and you swallow copious amounts of sperm. You sit in front of the happy guys, licking every last drop off of their limp dicks. "Good work boys. We really used this bitch up.", you hear a muffled voice say, as you begin to fall asleep.'
-			gs 'arousal', 'end'
-			gs 'stat'
-			act 'Fall asleep': gt 'rex_party_events', 'sleep'
-		end
-	end
-end
-
-if $ARGS[0] = 'gost_drink':
-	cls
-	minut += 5
-	gs 'drugs', 'alcohol', 'beer'
-	party_boys_in += 1
-	menu_off = 1
-	gs 'stat'
-	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_boys_party_gost_1.jpg"></center>'
-	'You happily make a couple of sips. Some guys urge you to show off more of your body.'
-	'"Hey, how about you show us your great tits. Just for fun?"'
-	gs 'willpower', 'exhib', 'resist', 'easy'
-	if will_cost <= pcs_willpwr:
-		act 'Move away (<<will_cost>> Willpower)':
-			*clr & cla
-			gs 'willpower', 'pay', 'resist'
-			gs 'stat'
-			gt $loc,$loc_arg
-		end
-	else
-		act 'Move away (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
-	end	
-	act 'Show your tits': gt 'rex_party_boys_events', 'boobs'
-	if alko >= 7: act 'Fall asleep drunk': gt 'rex_party_events', 'sleep'
-end
-
-if $ARGS[0] = 'boobs_yes':
-	cls
-	menu_off = 1
-	gs 'stat'
-	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_boys_party_gost_3.jpg"></center>'
-	if Rex_Love = 1: 'You completely ignore Rex and laugh at the seemingly happy guys.'
-	'They grab at your stunning body, fondling your tits and ass. You enjoy their attention.'
-	gs 'arousal', 'foreplay', 5, 'sub', 'group'
-	gs 'stat'
-	act 'Have fun with them':
-		cls
-		minut += 5
-		gs 'stat'
-		if rand(1,2) = 1:
-			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_boys_party_gost_4_1.jpg"></center>'
-		else
-			'<center><video autoplay loop src="images/locations/pavlovsk/resident/rekshome/party/party_boys_party_gost_4_2.mp4"></video></center>'
-		end
-		'Surrounded by the guys you let out a silly laugh. ' + iif(Rex_Love = 0,'Rex', 'One of the guys') + ' already has a bulge in his pants and turns his attention to your erect nipples. He then invites you to say hello to his friend.'
-		act 'Take a closer look':
-			cls
-			minut += 5
-			gs 'stat'
-			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_boys_party_gost_5.jpg"></center>'
-			'You gladly kneel in front of him to take a closer look at his erect member. "Come on <<$pcs_nickname>>, don''t be shy."'
-			act 'Start sucking':
-				cls
-				minut += 5
-				if Rex_Love = 0:
-					gs 'boyStat', 'A57'
-				else
-					gs 'npcgeneratec', 0, 'Boy from Rex''s Party', 17
-					gs 'boyStat', $npclastgenerated
-				end
-				guy += 1
-				gs 'stat'
-				'<center><video autoplay loop src="images/locations/pavlovsk/resident/rekshome/party/party_boys_party_gost_6.mp4"></video></center>'
-				'The beautiful view of his erect cock gets you very excited. As soon as your lips wrap around his cock, ' + iif(Rex_Love = 0,'Rex', 'the guy') + ' begins to furiously fuck your mouth. After a while he slows down, pulls his dick out and tells you to bend over...'
-				
-				gs 'arousal', 'bj', 5, 'sub'
-				gs 'stat'
-				
-				act 'Bend over':
-					cls
-					pcs_vag += 1
-					gs 'stat'
-					'<center><video autoplay loop src="images/locations/pavlovsk/resident/rekshome/party/party_boys_party_gost_7_<<rand(1,2)>>.mp4"></video></center>'
-					'You are happy to fulfill his wish and he immediately thrusts his hard cock inside your wet pussy. The two of you start fucking wildly, getting cheered on by the crowd of friends and acquaintances standing around you. ' + iif(Rex_Love = 0,'Rex', 'The guy') + ' is clearly excited and fucks you with vengeance.'
-					'Suddenly ' + iif(Rex_Love = 0,'Rex', 'the guy') + ' hastily pulls out his dick, and you realize, that he is about to cum.'
-					
-					gs 'arousal', 'vaginal', 5, 'sub'
-					gs 'stat'
-					
-					act 'Continue':
-						cls
-						minut += 5
-						spafinloc = 7
-						gs 'cum_manage'
-						
-						spafinloc = 11
-						gs 'cum_manage'
-						party_boys_in += 1
-						spafinloc = 12
-						gs 'cum_manage'
-						gs 'stat'
-						'<center><video autoplay loop src="images/locations/pavlovsk/resident/rekshome/party/party_boys_party_gost_8.mp4"></video></center>'
-						'The crowd whistles and cheers him on: "Go on! Cover that bitch in cum!" You quickly turn around and get your pretty face covered in sperm. Streams of sticky semen flow down your lashes, lips and chin.'
-						gs 'arousal', 'end'
-						gs 'stat'
-						act 'Swallow': gt 'rex_party_events', 'boys_swalow'
-						act 'Spit it out': gt 'rex_party_events', 'boys_spit'
-					end
-				end
-			end
-		end
-	end
-end
-
-if $ARGS[0] = 'boobs':
-	cls
-	menu_off = 1
-	gs 'stat'
-	if rand(1,2) = 1:
-		'<center><video autoplay loop src="images/locations/pavlovsk/resident/rekshome/party/party_boys_party_gost_2_1.mp4"></video></center>'
-	else
-		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_boys_party_gost_2_<<rand(2,5)>>.jpg"></center>'
-	end
-	'With a twinkle in your eyes you lower your bra, baring your breasts, as the guys watch you with pleasure.'
-	'"So what do you think, boys?" you ask with a smile on your face.'
-	'"You are a straight up sex grenade, and I would like to pull your pin." one of the guys answers. With these words, they come over to you.'
-	if Rex_Love = 1: 'Rex looks unhappily in your direction, his eyes flashing with anger and jealousy.'
-	if Rex_Love = 1: act 'Drag Rex to the restroom': gt 'rex_party_girls_events', 'rex'
-	gs 'arousal', 'flash', 5, 'exhibitionism'
-	gs 'stat'
-	act 'Move closer': gt 'rex_party_boys_events', 'boobs_yes'
-	gs 'willpower', 'exhib', 'resist', 'easy'
-	if will_cost <= pcs_willpwr:
-		act 'Move away (<<will_cost>> Willpower)':
-			*clr & cla
-			gs 'willpower', 'pay', 'resist'
-			gs 'stat'
-			gt $loc,$loc_arg
-		end
-	else
-		act 'Move away (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
-	end
-end
-
-if $ARGS[0] = 'gost_drink_else':
-	cls
-	menu_off = 1
-	minut += 5
-	gs 'drugs', 'alcohol', 'beer'
-	gs 'stat'
-	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_boys_party_gost_9_4.jpg"></center>'
-	'Despite feeling very drunk you decide that it is time for another drink. But this time it seems to have been too much as you feel very dizzy and your legs begin to buckle, sending you to the floor. You are suddenly surrounded by a bunch of guys who drag you off.'
-	act 'Look around':
-		cls
-		minut += 5
-		gs 'stat'
-		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_boys_party_gost_9_41.jpg"></center>'
-		'When you come to your senses you are lying in a room with a bunch of erect penises surrounding your face. Given your drunken state you don''t need much persuasion.'
-		act 'Suck':
-			cls
-			gs 'stat'
-			'<center><video autoplay loop src="images/locations/pavlovsk/resident/rekshome/party/party_boys_party_gost_9_42.mp4"></video></center>'
-			'You start sucking the dicks surrounding your face, paying attention to every single one. But this is not enough for the guys: "Look, how eager she is. But we can''t get all our dicks in her mouth at once. Good thing, there are other options." It only takes a moment for you to realize what they have on their mind.'
-			gs 'arousal', 'bj', 5, 'sub', 'group'
-			gs 'stat'
-			act 'Surrender':
-				cls
-				guy += 5
-				gang += 1
-				pcs_vag += 3
-				pcs_ass += 3
-				gs 'npcgeneratec', 0, 'Boy from Rex''s Party', 17
-				$boy[1] = $npclastgenerated
-				gs 'npcgeneratec', 0, 'Boy from Rex''s Party', 17
-				$boy[2] = $npclastgenerated
-				gs 'npcgeneratec', 0, 'Boy from Rex''s Party', 17
-				$boy[3] = $npclastgenerated
-				gs 'npcgeneratec', 0, 'Boy from Rex''s Party', 17
-				$boy[4] = $npclastgenerated
-				gs 'stat'
-				'<center><video autoplay loop src="images/locations/pavlovsk/resident/rekshome/party/party_boys_party_gost_9_43.mp4"></video></center>'
-				'The first one, without caring about your comfort, roughly drives his dick balls deep into your pussy and begins to fuck you while the others stand around you in a circle using your mouth. You just feel their dicks randomly switching between your hand, mouth and pussy. In time as your pussy gets looser from the five dicks fucking it, they start fucking you in the ass instead. The guys can not hold up this pace for long and are soon ready to cum.'
-				gs 'arousal', 'bj', 5, 'sub', 'group'
-				gs 'arousal', 'vaginal', 5, 'sub', 'group'
-				gs 'arousal', 'anal', 5, 'sub', 'group'
-				minut -= 5
-				gs 'stat'
-				act 'Cum':
-					cls
-					minut += 5
-					
-					i=5
-					:looppartycrain
-					if i > 0:
-						gs 'npcgeneratec', 0, 'Boy from Rex''s Party', 17
-						gs 'boyStat', $npclastgenerated
-						cumprecheck = 1
-						gs 'cum_manage'
-						spafinloc = 10
-						sexvolume = 6
-						gs 'cum_manage'
-						spafinloc = 11
-						sexvolume = 6
-						gs 'cum_manage'
-						spafinloc = 12
-						sexvolume = 5
-						gs 'cum_manage'
-						spafinloc = 13
-						sexvolume = 6
-						gs 'cum_manage'
-						spafinloc = 14
-						sexvolume = 6
-						gs 'cum_manage'
-						spafinloc = 15
-						sexvolume = 6
-						gs 'cum_manage'
-						spafinloc = 16
-						sexvolume = 5
-						gs 'cum_manage'
-						i -= 1
-						jump 'looppartycrain'
-					end
-					party_boys_in +=1
-					gs 'stat'
-					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_boys_party_gost_9_44.jpg"></center>'
-					'Sperm sprinkles on you from all sides like rain. After they finish they leave you alone in the room, exhausted and covered in cum.'
-					gs 'arousal', 'end'
-					gs 'stat'
-					act 'Fall asleep': gt 'rex_party_events', 'sleep'
-				end
-			end
-		end
-	end
-end
-
-if $ARGS[0] = 'gost_home_cum':
-	cls
-	menu_off = 1
-	minut += 5
-	
-	gs 'boyStat', $boy1
-	spafinloc = 11
-	gs 'cum_manage'
-	spafinloc = 12
-	sexvolume = 1
-	gs 'cum_manage'
-	gs 'boyStat', $boy2
-	spafinloc = 11
-	gs 'cum_manage'
-	spafinloc = 12
-	sexvolume = 1
-	gs 'cum_manage'
-
-	party_boys_in +=1
-	gs 'stat'
-	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_boys_party_gost_9_<<rand(19,20)>>.jpg"></center>'
-	iif(Rex_Love = 0,'Roma and Rex', 'The guys') + ' pull their dick out and cover your face and body with thick streams of semen. They are leaning over you, breathing heavily, only gradually calming down while you are lying there relaxed, licking the last drops of semen off of their limp dicks. ' + iif(Rex_Love = 0,'Roma and Rex', 'The guys') + ' leave you alone, exhausted and ready to fall asleep.'
-	gs 'arousal', 'end'
-	gs 'stat'
-	act 'Fall asleep': gt 'rex_party_events', 'sleep'
-end
-
-if $ARGS[0] = 'gost_home_cow':
-	cls
-	menu_off = 1
-	pcs_vag += 1
-	pcs_ass += 1
-	guy += 2
-	gang += 1
-	gs 'stat'
-	if rand(1,2) = 1:
-		'<center><video autoplay loop src="images/locations/pavlovsk/resident/rekshome/party/party_boys_party_gost_9_16.mp4"></video></center>'
-	else
-		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_boys_party_gost_9_<<rand(17,18)>>.jpg"></center>'
-	end
-	'You push one of them down onto his back as jump onto ' + iif(Rex_Love = 0,'Roma', 'the guy') + ' and straddle him, his cock easily slides inside your wet pussy. Meanwhile ' + iif(Rex_Love = 0,'Rex', 'another one') + ' begins to massage your asshole with wet fingers. You feel the head of his cock slowly trying to enter your ass, shooting a sharp pain through your body. You do not dare to move and lie there waiting. After a few moments ' + iif(Rex_Love = 0,'Rex', 'the other guy') + ' push his dick fully into your ass, causing violent sensations of pain and pleasure, as a blissful moan escapes your mouth. ' + iif(Rex_Love = 0,'Roma and Rex', 'The guys') + ' fuck you in your ass and pussy, their members, only separated by a thin wall, rubbing together inside of you. You feel a new sense of arousal that previously seemed unthinkable. Clearly enjoying themselves both guys are soon ready to cum.'
-	gs 'boyStat', $boy2
-	cumprecheck = 1
-	gs 'cum_manage'
-	gs 'arousal', 'bj', 5, 'sub', 'group'
-	gs 'arousal', 'vaginal', 5, 'sub', 'group'
-	gs 'arousal', 'anal', 5, 'sub', 'group'
-	minut -= 5
-	gs 'stat'
-	act 'Continue': gt 'rex_party_boys_events', 'gost_home_cum'
-end
-
-if $ARGS[0] = 'gost_home_dog':
-	cls
-	menu_off = 1
-	pcs_vag += 2
-	guy += 2
-	gang += 1
-	gs 'stat'
-	'<center><video autoplay loop src="images/locations/pavlovsk/resident/rekshome/party/party_boys_party_gost_9_<<rand(12,14)>>.mp4"></video></center>'
-	'You turn your ass to ' + iif(Rex_Love = 0,'Rex', 'one of them,') + ', while greedily sucking of ' + iif(Rex_Love = 0,'Roma', 'the other') + '. After massaging your wet pussy ' + iif(Rex_Love = 0,'Rex', 'the first guy') + ' enters you, piercing you like a magic dagger, and you feel nicely stretched inside. ' + iif(Rex_Love = 0,'Rex and Roma', 'The guys') + ' sometimes change places, and you enjoy the taste of your own juice on the their dicks. After some wild fucking, the guys are ready to come.'
-	gs 'boyStat', $boy1
-	cumprecheck = 1
-	gs 'cum_manage'
-	gs 'boyStat', $boy2
-	cumprecheck = 1
-	gs 'cum_manage'
-	gs 'arousal', 'bj', 5, 'sub', 'group'
-	gs 'arousal', 'vaginal', 5, 'sub', 'group'
-	minut -= 5
-	gs 'stat'
-	act 'Continue': gt 'rex_party_boys_events', 'gost_home_cum'
-end
-
-if $ARGS[0] = 'gost_home_suck':
-	cls
-	menu_off = 1
-	gs 'stat'
-	if rand(1,2) = 1:
-		'<center><video autoplay loop src="images/locations/pavlovsk/resident/rekshome/party/party_boys_party_gost_9_<<rand(8,9)>>.mp4"></video></center>'
-	else
-		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_boys_party_gost_9_<<rand(10,11)>>.jpg"></center>'
-	end
-	iif(Rex_Love = 0,'Roma and Rex', 'The guys') + ' push down on your shoulders and you dutifully kneel down in front of them. You start sucking both their cocks, bringing them close to orgasm, when they ask you what you want to do next.'
-	gs 'arousal', 'bj', 5, 'sub', 'group'
-	gs 'stat'
-	act 'Bend over': gt 'rex_party_boys_events', 'gost_home_dog'
-	act 'Get on his cock': gt 'rex_party_boys_events', 'gost_home_cow'
-end
-
-if $ARGS[0] = 'gost_home_hand':
-	cls
-	menu_off = 1
-	gs 'stat'
-	'<center><video autoplay loop src="images/locations/pavlovsk/resident/rekshome/party/party_boys_party_gost_9_<<rand(6,7)>>.mp4"></video></center>'
-	'You run your fingers up and down their shafts before gripping them firmly. You start to stroke them, feeling their dicks getting harder and harder in your hands.'
-	gs 'arousal', 'hj', 5, 'sub', 'group'
-	gs 'stat'
-	act 'Suck': gt 'rex_party_boys_events', 'gost_home_suck'
-end
-
-if $ARGS[0] = 'gost_home':
-	cls
-	menu_off = 1
-	if Rex_Love ! 0:
-		gs 'npcgeneratec', 0, 'Boy from Rex''s Party', 17
-		$boy1 = $npclastgenerated
-		gs 'npcgeneratec', 0, 'Boy from Rex''s Party', 17
-		$boy2 = $npclastgenerated
-	else
-		$boy1 = 'A57'
-		$boy2 = 'A56'
-	end
-	gs 'stat'
-	'<center><video autoplay loop src="images/locations/pavlovsk/resident/rekshome/party/party_boys_party_gost_9_5.mp4"></video></center>'
-	'As soon as you get in the room, ' + iif(Rex_Love = 0,'Roma and Rex', 'the guys') + ' begin to undress and gently caress you. You feel like the belle of the ball as they passionately kiss you and start to lick your ass and pussy at the same time. After taking care of you for a long time, their dicks are both erect and the guys look expectantly at you.'
-	gs 'arousal', 'foreplay', 5, 'sub', 'group'
-	gs 'stat'
-	act 'Give them a handjob': gt 'rex_party_boys_events', 'gost_home_hand'
-	act 'Give them a blowjob': gt 'rex_party_boys_events', 'gost_home_suck'
-end
-
-if $ARGS[0] = 'gost_dance':
-	cls
-	menu_off = 1
-	minut += 5
-	if pcs_inhib < 40:inhib_exp += rand(1,2)
-	gs 'stat'
-	'<center><video autoplay loop src="images/locations/pavlovsk/resident/rekshome/party/party_boys_party_gost_9_<<rand(1,3)>>.mp4"></video></center>'
-	if Rex_Love = 1: 'Two of the hottest guys come over to you, apparently deciding you are the finest girl here. Rex looks indignantly at you, trying to figure out what you are going to do.'
-	if Rex_Love = 0: 'Roma and Rex come to you. Having decided that you are the finest girl here they start do dance with you.'
-	'You lasciviously move your sexy young body, dancing with ' + iif(Rex_Love = 0,'Roma and Rex', 'the guys') + ' . Visibly turned on by you they offer to take you somewhere else and do more than just dancing.'
-	if Rex_Love = 1:act 'Dance with Rex': gt 'rex_party_events', 'rex_dance'
-	act 'Drink': gt 'rex_party_boys_events', 'gost_drink_else'
-	act 'Go with them': gt 'rex_party_boys_events', 'gost_home'
-end
-
-if $ARGS[0] = 'dance':
-	cls
-	menu_off = 1
-	minut += 5
-	if pcs_inhib < 40:inhib_exp += rand(1,2)
-	gs 'stat'
-	'<center><video autoplay loop src="images/locations/pavlovsk/resident/rekshome/party/party_boys_party_gost_9.mp4"></video></center>'
-	'You are enthralled by the rhythmic sounds and indulge in unrestrained dancing with the crowd. You jump around and twist your body, completely absorbed in the moment.'
-	if pcs_danc >= 50: 'Your curves and movements to the music make you a pleasure to watch. The boys stare at you excitedly.'
-	if pcs_danc < 50: 'Your ridiculous movements during the dance don''t bother anyone. You dance badly, but you do not care.'
-	act 'Dance with Rex': gt 'rex_party_events', 'rex_dance'
-	act 'Dance with the guys': gt 'rex_party_boys_events', 'gost_dance'
-	act 'Have a rest': gt $loc,$loc_arg
-end
-
-if $ARGS[0] = 'party_boys':
-	cls
-	menu_off = 1
-	minut += 5
-	gs 'stat'
-	'<center><b><font color = maroon>Guys</font></b></center>'
-	if $loc_arg = 'party_kuh' or $loc_arg = 'party_gost':
-		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_boys_2.jpg"></center>'
-		''
-	else
-		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_boys.jpg"></center>'
-		''
-	end
-	'You see a couple of former classmates of your sister. You are not familiar with them.'
-	if $loc_arg = 'party_gost': 'A couple of fun energetic guys come over to you. "Hey <<$pcs_nickname>>, long time no see. Do you want to come with us?"'
-	if alko >= 5: '"Hey <<$pcs_nickname>>, how about you show us your great tits. Just for fun?"'
-	act 'Move away': gt $loc,$loc_arg
-	if alko < 6 and $loc_arg = 'party_home': act 'Drink': gt 'rex_party_home', 'party_drink'
-	if $loc_arg = 'party_kuh': act 'Drink': gt 'rex_party_boys_events', 'drink'
-	if $loc_arg = 'party_gost': act 'Drink': gt 'rex_party_boys_events', 'gost_drink'
-	if alko >= 5 and $loc_arg = 'party_gost': act 'Show your tits': gt 'rex_party_boys_events', 'boobs'
-	if $loc_arg = 'party_gost': act 'Dance': gt 'rex_party_boys_events', 'dance'
-end
-
---- rex_party_boys_events ---------------------------------
-

locations/unused/rex_party_events.qsrc

@@ -1,675 +0,0 @@
-# rex_party_events
-
-!A random event in the toilet
-if $ARGS[0] = 'party_toilet_event':
-	menu_off = 1
-	temp = rand(1,8)
-	if toiletEvent_Girls = daystart: temp += 1
-	if toiletEvent_Rex = daystart: temp += 1
-	if toiletEvent_Sis = daystart: temp += 1
-	if toiletEvent_SisBoy = daystart: temp = 1
-	*clr & cla
-	minut += 5
-	gs 'stat'
-	if temp = 1:
-		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_toilet_2_<<rand(1,2)>>.jpg"></center>'
-		'A girl sits on the toilet drinking.'
-		act 'Go to the living room': gt 'rex_party_home', 'party_gost'
-	elseif temp = 2:
-		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_toilet_3_<<rand(1,5)>>.jpg"></center>'
-		'A girl sits on the toilet, urinating. She seems oddly happy to see you.'
-		act 'Go to the living room': gt 'rex_party_home', 'party_gost'
-	elseif temp = 3:
-		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_toilet_4.jpg"></center>'
-		'A wasted girl sits on the toilet masturbating.'
-		act 'Go to the living room': gt 'rex_party_home', 'party_gost'
-	elseif temp = 4:
-		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_toilet_5_1.jpg"></center>'
-		'You go into the bathroom, only to find Rex standing in there completely naked with a raging hard on.'
-		act 'Help':
-			*clr & cla
-			toiletEvent_Rex = daystart
-			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_toilet_5_2.jpg"></center>'
-			'You walk over to Rex and when you are within arms reach, he grabs you by the neck and pulls you close, kissing your lips. You take his dick in your hand and gently stroke it.'			
-			
-			gs 'arousal', 'kiss', 5
-			gs 'stat'
-			
-			act 'Masturbate':
-				*clr & cla
-				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_toilet_5_<<rand(3,4)>>.jpg"></center>'
-				'Breaking the kiss, you put your full attention into jerking Rex off.'
-				
-				gs 'arousal', 'hj', 5
-				gs 'stat'
-				
-				act 'Cum':
-					*clr & cla
-					minut += 5
-					gs 'boyStat', 'A57'
-					spafinloc = 15
-					gs 'cum_manage'
-					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_toilet_5_5.jpg"></center>'
-					'As you jerk him off, he moans and sperm starts squirting all over your hands. "Ooh <<$pcs_nickname>>, you saved me. But next time, use your mouth." he says with a wink.'
-					
-					gs 'arousal', 'end'
-					gs 'stat'
-					
-					act 'Move away': gt $loc, $loc_arg
-				end
-			end
-			act 'Suck':
-				*clr & cla
-				if reksMeet = 1: bja += 1
-				gs 'boyStat', 'A57'
-				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_toilet_5_<<rand(6,10)>>.jpg"></center>'
-				'You feel Rex''s hands on your shoulders gently pushing you down. You instantly obey and drop to your knees. Once you''re level with Rex''s <<dick>>cm <<$dick_girth>> dick, you take his head into your mouth and wrap your lips tightly around his shaft as you begin to suck him off.'
-				'He moans as you suck his cock. He is already tensing up and you can tell he is already about to cum.'
-				
-				gs 'arousal', 'bj', 5
-				gs 'stat'
-			
-				act 'Cum':
-					*clr & cla
-					minut += 5
-					gs 'boyStat', 'A57'
-					spafinloc = 12
-					gs 'cum_manage'
-					spafinloc = 11
-					gs 'cum_manage'
-					
-					i = rand(11,18)
-					if i = 11:
-						'<center><video autoplay loop src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_toilet_5_<<i>>.mp4"></video></center>'
-					else
-						'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_toilet_5_<<i>>.jpg"></center>'
-					end
-					'You barely have time to pull his cock out of your mouth and a couple of spurts of cum shoot into your mouth, but the rest coats your pretty face. You happily lick his quivering dick, licking the last drops of cum up.'
-					
-					gs 'arousal', 'end'
-					gs 'stat'
-					
-					act 'Move away': gt $loc, $loc_arg
-				end
-			end
-		end
-		act 'Go to the living room': gt 'rex_party_home', 'party_gost'
-	elseif temp = 5:
-		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_toilet_6_1.jpg"></center>'
-		'Entering the bathroom, you find your sister sitting on the toilet. You notice the cum on her face.'
-		'When she sees you, she smiles, then opens up her mouth and sticks out her tongue, showing how it is completely coated in cum.'
-		act 'Lick':
-			*clr & cla
-			toiletEvent_Sis = daystart
-			minut += 5
-			gs 'boyStat', 'A56'
-			sexvolume = 5
-			spafinloc = 12
-			gs 'cum_manage'
-			gs 'stat'
-			i = rand(2,5)
-			if i = 2 or i = 4:
-				'<center><video autoplay loop src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_toilet_6_<<i>>.mp4"></video></center>'
-			else
-				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_toilet_6_<<i>>.jpg"></center>'
-			end
-			'Seeing this little display, you smile and kneel down in front of her and start licking the sperm off her face. Once you have licked it all up, you kiss her. The two of you share a long kiss where you trade the cum back and forth in your mouths before you both end up swallowing a portion of it.'
-			'"So who''s dick, or should I say dicks, have you been sucking to get all that cum all over you?" you ask with a smile.'
-			'"Roma tried to make up again." your sister responds angrily. Once she has finished peeing, she gets up and leaves, obviously not wanting to talk about it.'
-			act 'Move away': gt $loc, $loc_arg
-		end
-		act 'Go to the living room': gt 'rex_party_home', 'party_gost'
-	elseif temp = 6:
-		toiletEvent_Girls = daystart
-		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_toilet_7_1.jpg"></center>'
-		'You open the door and see Lena and Ira kissing while Ira sits on the toilet. Lena pushes Ira''s legs apart and then breaks the kiss, lowers herself and begins to lick her pussy while Ira is still sitting on the toilet.'
-		'"Ahaha, Lena, your such a bitch sometimes and that''s why I love you." Moaned Ira.'
-		act 'Watch':
-			*clr & cla
-			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_toilet_7_2.jpg"></center>'
-			'A few moments later, they both get up and strip naked. Lena sits Ira on the edge of the sink and drops back to her knees while Ira spreads her legs wide, giving her friend easy access. Lena starts licking her friend''s pussy at once and Ira closes her eyes and moans softly.'
-			
-			gs 'arousal', 'voyeur_sex', 5, 'lesbian'
-			gs 'stat'
-			
-			act 'Watch':
-				*clr & cla
-				'<center><video autoplay loop src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_toilet_7_3.mp4"></video></center>'
-				'Ira moans louder and her breathing becoming quicker. She grabs Lena''s head and pushes it against her crotch as she grinds herself against her friend''s face. Her body begins to tremble as she lets out a loud moan of pleasure as she orgasms, coating her friend''s face with her pussy juices.'
-				
-				gs 'arousal', 'voyeur_sex', 5, 'lesbian'
-				gs 'stat'
-			
-				act 'Go in':
-					*clr & cla
-					minut += 5
-					gs 'stat'
-					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_toilet_7_4.jpg"></center>'
-					'Once they finish, you walk in. Ira and Lena look at each other and then smile at you.'
-					'"Oh, it''s you <<$pcs_nickname>>. Glad it is not some guy. We do not know what we would have done with him."'
-					'"Yes, I just wanted to tidy myself up." you say with a slight blush.'
-					'Lena comes up to you and leans in close as she whispers in your ear: "You liked watching what we were doing, right? Stay with us and you''ll like it even more."'
-					act 'Stay':
-						*clr & cla
-						'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_toilet_7_5.jpg"></center>'
-						'Looking at the naked girls, you bite your lower lip as your eyes roam over their bodies with a lustful look. Ira and Lena start kissing you all over while stripping you.'
-						'"Mmm... Oh yes, don''t stop." you moan out. Lena sucks your clit and begins licking your wet pussy.'
-						
-						gs 'arousal', 'cuni', 5, 'lesbian'
-						gs 'stat'
-			
-						act 'Enjoy':
-							*clr & cla
-							pcs_mood = 100
-							'<center><video autoplay loop src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_toilet_7_6.mp4"></video></center>'
-							'You feel incredible pleasure from the gentle carresses of the girls. Completely trusting them, you feel totally relaxed. Ira takes Lena''s place licking your pussy, while Lena slides her tongue to your asshole and begins to lick it.'
-							'You don''t last long from this dual tobgue lashing. You start moaning loudly and your body spasms hard with an orgasm, coating Ira''s face from the wetness of your pussy. Once your orgasm passes, both girls stand up and Lena starts licking Ira''s face, licking your wetness off her. You quickly join in, licking Ira''s juices off of Lena''s face while Ira kisses you both in turns.'
-							
-							$orgasm_or = 'yes'
-							gs 'arousal', 'cuni', 5, 'lesbian', 'group'
-							gs 'stat'
-			
-							act 'Chat':
-								*clr & cla
-								minut += 5
-								'<center><video autoplay loop src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_toilet_7_7.mp4"></video></center>'
-								'"Well <<$pcs_nickname>>, did you like it?"'
-								'"Oh, that was amazing girls! It makes me think we never need the touch of a man."'
-								'"That''s for sure! You only need a special girlfriend or girlfriends." Lena and Ira then leave.'
-								
-								gs 'arousal', 'end'
-								gs 'stat'
-								
-								act 'Move away': gt $loc, $loc_arg
-							end
-						end
-					end
-				act 'Go to the living room': gt 'rex_party_home', 'party_gost'
-				end
-			act 'Go to the living room': gt 'rex_party_home', 'party_gost'
-			end
-		act 'Go to the living room': gt 'rex_party_home', 'party_gost'
-		end
-	act 'Go to the living room': gt 'rex_party_home', 'party_gost'
-	elseif temp = 7:
-		i = rand(1,3)
-		if i = 2:
-			'<center><video autoplay loop src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_toilet_8_<<i>>.mp4"></video></center>'
-		else
-			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_toilet_8_<<i>>.jpg"></center>'
-		end
-		'From the sounds of the groans, moans and cries of passion, the bathroom is in use again. Peeking inside, you see a sweet couple fucking like rabbits.'
-		act 'Go to the living room': gt 'rex_party_home', 'party_gost'
-	elseif temp = 8:
-		toiletEvent_SisBoy = daystart
-		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_toilet_9.jpg"></center>'
-		'Looking inside the bathroom, you see your sister with her back against the wall, her skirt pulled up and panties around her ankles with Roma''s face buried between her legs. He''s apparently asking for forgiveness from your sister again.'
-		act 'Go to the living room': gt 'rex_party_home', 'party_gost'
-	end
-end
-
-!Masturbating in the bathroom
-if $ARGS[0] = 'toilet_mast':
-	cla
-	*clr
-	menu_off = 1
-	if pcs_inhib < 30:inhib_exp += rand(1,3)
-	i = rand(1,3)
-	if i < 3:'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_toilet_1_<<i>>.jpg"></center>'
-	if i = 3:'<center><video autoplay loop src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_toilet_1_<<i>>.mp4"></video></center>'
-	'With your arousal overpowering your senses, you can''t take it anymore. You pull your panties down and rigorously begin rubbing your clit. Once you are good and wet, you slide your fingers inside your pussy and start finger fucking yourself, switching back and forth between rubbing your clit and fucking your fingers until you bring yourself to an orgasm.'
-	
-	$orgasm_or = 'no'
-	gs 'arousal', 'vaginal_finger', 5, 'masturbate'
-	$orgasm_or = 'custom'
-	gs 'arousal', 'clit_finger', 5, 'masturbate'
-	gs 'arousal', 'end'
-	gs 'stat'
-	
-	act 'Move away': gt $loc, $loc_arg
-end
-
-!Speakers for DJ
-if $ARGS[0] = 'dj':
-	cla
-	*clr
-	menu_off = 1
-	minut += 5
-	dj_beer = 1
-	gs 'stat'
-	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_girls_party_gost_2_3.jpg"></center>'
-	'You take two bottles of booze to the DJ and his friend'
-	act 'Move away': gt $loc, $loc_arg
-end
-
-if $ARGS[0] = 'dj_beer':
-	cla
-	*clr
-	menu_off = 1
-	minut += 5
-	dj_thank = 1
-	gs 'stat'
-	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_boy.jpg"></center>'
-	'You take two beers to the guys. They gratefully appreciate your offer.'
-	'"<<$pcs_nickname>>, you ever use one of these before?" the DJ asks you, indicating the turntable.'
-	'You shake your head. "No, I can''t say I have."'
-	'He smiles at you. "While everyone is still sitting and drinking, you can give it a little <a href="exec: gt ''rex_party_events'', ''dj_thank''">twist</a>. Let''s see what you can do girl!"'
-	act 'Move away': gt $loc, $loc_arg
-end
-
-if $ARGS[0] = 'dj_thank':
-	cla
-	*clr
-	menu_off = 1
-	minut += 5
-	dj_bad = 1
-	gs 'exp_gain', 'instrmusic', rand(0,2)
-	gs 'stat'
-	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_boy_1.jpg"></center>'
-	'You are happy to take this opportunity. Putting your fingers on the records, you move them around, making some god awful noises. The guys stop you before too long. "OK, I think that''s enough. I think you made my ears bleed." he says with a laugh.'
-	act 'Move away': gt $loc, $loc_arg
-!why not add in an option here to start the series below?
-end
-
-if $ARGS[0] = 'dj_boobs':
-	cla
-	*clr
-	menu_off = 1
-	gs 'arousal', 'flash', 5
-	dj_boobs = 1
-	gs 'stat'
-	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_boy_2.jpg"></center>'
-	'"Like this boys?" you ask as you put your breasts on the turntable and move it a bit with your breasts.'
-	'Not much sound comes out from your attempt, but the guys seem to love it all the same.'
-	act 'Move away': gt $loc, $loc_arg
-	act 'Take off your top': gt 'rex_party_events', 'dj_cock'
-end
-
-if $ARGS[0] = 'dj_cock':
-	cla
-	*clr
-	menu_off = 1
-	minut += 5
-	gs 'stat'
-	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_boy_3.jpg"></center>'
-	'Seeing the interest from the smiling guys watching you, you get rid of your top and bra and then place your naked breasts on the turntable, trying to play it topless. "I think I did better that time. What do you think?"'
-	'The guy pulls out his erection and says "Not bad. Maybe try this instead."'
-	act 'Move away': gt $loc, $loc_arg
-	act 'Give his dick a try': gt 'rex_party_events', 'dj_suck'
-end
-
-if $ARGS[0] = 'dj_suck':
-	cla
-	*clr
-	menu_off = 1
-	gs 'arousal', 'foreplay', 5
-	gs 'stat'
-	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_boy_4.jpg"></center>'
-	'You grab his hard cock and place the head on the spinning record, barely touching it. The guy squirms a bit. Perhaps it was a little painful for him?'
-	if Rex_Love = 1: 'You don''t think Rex would like you playing these games with the DJ. You''ve had a little fun, but that''s enough.'
-	act 'Move away': gt $loc, $loc_arg
-	if Rex_Love = 0:
-		act 'Kiss it and make it better':
-			cla
-			*clr
-			gs 'npcgeneratec', 0, 'The DJ at Rex''s Party', rand(17,22)
-			gs 'boyStat', $npclastgenerated
-			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_boy_5.jpg"></center>'
-			'You decide to make amends to the guy and kiss the head of his cock.'
-			'You find you don''t want to stop and passionately start sucking his <<dick>>cm <<$dick_girth>> dick right there in front of everyone.'
-			'After you suck him for a bit, he pulls you up and turns you around. Pulling your panties down, he pushes you forward, bending you over.'
-			
-			gs 'arousal', 'bj', 5, 'exhibitionism'
-			gs 'stat'
-			
-			act 'Bend over':
-				cla
-				*clr
-				guy += 1
-				pcs_vag += 1
-				gs 'cum_manage'
-				'<center><video autoplay loop src="images/locations/pavlovsk/resident/rekshome/party/party_boy_6.mp4"></video></center>'
-				'You let him bend you over as he begins to rub the head of his dick against your pussy lips.'
-				'He abruptly pushes his <<dick>>cm <<$dick_girth>> dick inside of you and starts fucking you with a fast pace.'
-				'Within just a few moments, he grunts and you feel him shooting his load deep into your wet pussy.'
-				
-				gs 'arousal', 'vaginal', 5, 'exhibitionism'
-				gs 'arousal', 'end'
-				gs 'stat'
-				
-				gs 'cuminsidereact'
-				act 'Move away': gt $loc, $loc_arg
-			end
-		end
-	end
-end
-
-!Speaker dance
-if $ARGS[0] = 'dance':
-	cla
-	*clr
-	minut += 5
-	if pcs_inhib < 40: inhib_exp += rand(1,2)
-	gs 'stat'
-	'<center><video autoplay loop src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_gost_1_<<rand(1,7)>>.mp4"></video></center>'
-	'Moving to the rhythmic sounds, you indulge in an unrestrained dance.'
-	'You jump, sway your body and rock your booty, losing yourself in the general merriment.'
-	if pcs_danc >= 50: 'You move your body perfectly with the rhythm of the music in an erotic way. This gets you a lot of attention from the others. Attention that you love.'
-	if pcs_danc < 50: 'Your ridiculous movements during the dance doesn''t bother anyone. You dance badly, but you don''t care.'
-	act 'Have a rest': gt $loc, $loc_arg
-	act 'Dance more': gt 'rex_party_events', 'dance' 
-end
-
-
-if $ARGS[0] = 'boys_swalow':
-	*clr & cla
-	menu_off = 1
-	minut += 5
-	swallow += 1
-	i = 5
-	:dinPartySwalloop
-	gs 'npcgeneratec', 0, 'a guy from Rex''s party', rand(17,22)
-	gs 'boyStat', $npclastgenerated
-	spafinloc = 12
-	gs 'cum_manage'
-	i -= 1
-	if i > 0: jump 'dinPartySwalloop'
-	gs 'stat'
-	'<center><video autoplay loop src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_kuh_4_<<rand(13,15)>>.mp4"></video></center>'
-	'You swallow the tart mixture of several different guys sperm, greedily licking your lips with your tongue.'
-	'"Uhh <<$pcs_nickname>>! You''re still the best cocksucker around. If you want more sperm to swallow, call us."'
-	'The guys help you back into the apartment and into one of the bedrooms as you are too drunk to do it yourself.'
-	
-	act 'Fall asleep': gt 'rex_party_events', 'sleep'
-end
-
-if $ARGS[0] = 'boys_spit':
-	*clr & cla
-	menu_off = 1
-	minut += 5
-	i = 5
-	:dinPartySpitloop
-	gs 'npcgeneratec', 0, 'a guy from Rex''s party', rand(17,22)
-	gs 'boyStat', $npclastgenerated
-	spafinloc = 12
-	sexvolume = 1
-	gs 'cum_manage'
-	i -= 1
-	if i > 0: jump 'dinPartySpitloop'
-	gs 'stat'
-	'<center><video autoplay loop src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_kuh_4_<<rand(16,17)>>.mp4"></video></center>'
-	'You spit out the mixture of cum from several guys.'
-	'"What''s wrong <<$pcs_nickname>>? Didn''t you like it? I thought all girls loved the taste of cum." one of the guys asked you with a laugh.'
-	'The guys help you back into the apartment and into one of the bedrooms as you are too drunk to do it yourself.'
-	
-	act 'Fall asleep': gt 'rex_party_events', 'sleep'
-end
-
-if $ARGS[0] = 'rex_talk':
-	*clr & cla
-	menu_off = 1
-	minut += 5
-	rex_talk += 1
-	gs 'stat'	
-	'<center><video autoplay loop src="images/locations/pavlovsk/resident/rekshome/party/party_rex_party_gost_2_<<rand(1,5)>>.mp4"></video></center>'
-	'You find a space to sit and talk to Rex. He''s quite interesting and very handsome, so you spend most of the time just nodding and flirting.'
-	act 'Move away': gt $loc, $loc_arg
-	if rex_talk >= 2: act 'Hug': gt 'rex_party_events', 'rex_hug'
-	act 'Ask Rex to dance': gt 'rex_party_events', 'rex_dance'
-end
-
-if $ARGS[0] = 'rex_hug':
-	*clr & cla
-	menu_off = 1
-	minut += 5
-	if pcs_inhib < 40:inhib_exp += rand(1,2)
-	gs 'stat'
-	if Rex_Love =1:
-		if rand(1,2) = 1:
-			'<center><video autoplay loop src="images/locations/pavlovsk/resident/rekshome/party/party_rex_party_gost_4_1.mp4"></video></center>'
-		else
-			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_rex_party_gost_4_<<rand(2,5)>>.jpg"></center>'
-		end
-		'Rex grabs you with his strong hands and begins to knead your ass with one hand and caress your pussy with the other in front of everybody.'
-		'You grab his neck and audibly groan, completely giving into his affections.'
-		'You are overwhelmed with the most pleasant feeling in the world. You don''t want it to stop.'
-		act 'Kiss':
-			*clr & cla
-			if rand(1,2) = 1:
-				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_rex_party_gost_5_1.jpg"></center>'
-			else
-				'<center><video autoplay loop src="images/locations/pavlovsk/resident/rekshome/party/party_rex_party_gost_5_<<rand(2,4)>>.mp4"></video></center>'
-			end
-			'Looking adoringly into each other''s eyes, you begin to passionately kiss.'
-			'You lips touch in your long kiss. It almost feels like a shock of electricity is running through your body.'
-			'For a long time, you continue to enjoy the warm kiss, but Rex eventually breaks the kiss and says "Come with me <<$pcs_nickname>>. I think we''ve had enough fun here." Smiling, he takes you by the hand and leads you away.'
-			
-			gs 'arousal', 'kiss', 5, 'exhibitionism'
-			gs 'stat'
-	
-			act 'Move away': gt $loc, $loc_arg
-			act 'Follow Rex': gt 'rex_events', 'Party_rex_sex'
-		end
-	end
-
-	if Rex_Love = 0:
-		if rand(1,2) = 1:
-			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_rex_party_gost_13_<<rand(4,7)>>.jpg"></center>'
-		else
-			'<center><video autoplay loop src="images/locations/pavlovsk/resident/rekshome/party/party_rex_party_gost_13_<<rand(1,3)>>.mp4"></video></center>'
-		end
-		'Rex grabs you with his strong hands and begins to knead your ass with one hand and caress your pussy with the other in front of everybody.'
-		'You grab his neck and audibly groan, completely giving into his affections.'
-		'After playing with your pussy for a bit, he stops, takes you by the hand and pulls you away as he says "Come with me <<$pcs_nickname>>, I think we''ve had enough fun here."'
-
-		gs 'arousal', 'foreplay', 5, 'exhibitionism'
-		gs 'stat'
-		
-		act 'Follow Rex': gt 'rex_events', 'Party_rex_sex'
-	end    
-end
-
-if $ARGS[0] = 'rex_dance':
-	*clr & cla
-	menu_off = 1
-	minut += 5
-	if pcs_inhib < 40: inhib_exp += rand(1,2)
-	gs 'stat'
-	if rand(1,2) = 1:
-		'<center><video autoplay loop src="images/locations/pavlovsk/resident/rekshome/party/party_rex_party_gost_3_<<rand(4,6)>>.mp4"></video></center>'
-	else
-		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_rex_party_gost_3_<<rand(1,3)>>.jpg"></center>'
-	end
-	'Rex takes you by the hand and drags you out to dance. You are happy to follow him.'
-	'You dance, slowly getting closer to each other and finally grinding a bit against each other.'
-	'You turn around, putting your back to him and grind your tight ass against his crotch. You can feel his hard cock against your ass as you grind against it.'
-	act 'Move away': gt $loc, $loc_arg 
-	if rex_talk >= 2: act 'Hug': gt 'rex_party_events', 'rex_hug'
-end
-
-if $ARGS[0] = 'sleep':
-	*clr & cla
-	menu_off = 1
-	minut += 5
-	gs 'stat'
-	if Rex_save = 1 and Rex_Love = 1:
-		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_kuh_13_<<rand(1,4)>>.jpg"></center>'
-		'You fall asleep feeling the warmth of his body against your back as he hugs you tightly.'
-		'You feel his hard erection against your ass. It excites you, but you are too tired to do anything with it as you fall fast asleep.'
-	elseif Rex_save = 1 and Rex_Love = 0:
-		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_kuh_12_<<rand(1,11)>>.jpg"></center>'
-		'You feel completely safe as you fall asleep.'
-	elseif iralenasleep >= 1:
-		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_iralena_6_<<rand(6,7)>>.jpg"></center>'
-		'You Lena and Ira lie in the bed side by side as you fall asleep.'
-	elseif drunk_sveta >= 1 and sister_party_dom < 1:
-		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_girls_party_gost_4_<<rand(1,3)>>.jpg"></center>'
-		'Your body could not withstand so much alcohol and you end up passing out. Fortunately for you, friends are close and you are placed in a bed.'
-	elseif sister_party_dom >= 1:
-		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_sister_9_<<rand(3,5)>>.jpg"></center>'
-		'You fall asleep in the arms of your sister with a final kiss before drifting off.'
-	elseif party_boys_in >= 1:
-		i = rand(1,3)
-		hidden_guy += 3
-		if i = 1:
-			gs 'npcgeneratec', 0, 'unconcious rapist', rand(17,22)
-			gs 'boyStat', $npclastgenerated
-			sexunaware = 1
-			sloc = rand(0,6)
-			if sloc = 1:
-				spafinloc = 1
-			elseif sloc = 2:
-				spafinloc = 4
-			elseif sloc = 3:
-				spafinloc = 8
-			elseif sloc = 4:
-				spafinloc = 11
-			elseif sloc = 5:
-				spafinloc = 12
-			elseif sloc = 6:
-				spafinloc = 14
-			end
-			gs 'cum_manage'
-			gs 'npcgeneratec', 0, 'unconcious rapist', rand(17,22)
-			gs 'boyStat', $npclastgenerated
-			sexunaware = 1
-			sloc = rand(0,6)
-			if sloc = 1:
-				spafinloc = 1
-			elseif sloc = 2:
-				spafinloc = 4
-			elseif sloc = 3:
-				spafinloc = 8
-			elseif sloc = 4:
-				spafinloc = 11
-			elseif sloc = 5:
-				spafinloc = 12
-			elseif sloc = 6:
-				spafinloc = 14
-			end
-			gs 'cum_manage'
-			gs 'npcgeneratec', 0, 'unconcious rapist', rand(17,22)
-			gs 'boyStat', $npclastgenerated
-			sexunaware = 1
-			sloc = rand(0,6)
-			if sloc = 1:
-				spafinloc = 1
-			elseif sloc = 2:
-				spafinloc = 4
-			elseif sloc = 3:
-				spafinloc = 8
-			elseif sloc = 4:
-				spafinloc = 11
-			elseif sloc = 5:
-				spafinloc = 12
-			elseif sloc = 6:
-				spafinloc = 14
-			end
-			gs 'cum_manage'
-			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_kuh_6_<<rand(1,9)>>.jpg"></center>'
-			'After everything that happened tonight, you feel exhausted and fall asleep. Your face and body are still smeared and coated in sperm, but you don''t care.'
-		elseif i = 2:
-			gs 'npcgeneratec', 0, 'unconcious rapist', rand(17,22)
-			gs 'boyStat', $npclastgenerated
-			sexunaware = 1
-			spafinloc = 11
-			gs 'cum_manage'
-			gs 'npcgeneratec', 0, 'unconcious rapist', rand(17,22)
-			gs 'boyStat', $npclastgenerated
-			sexunaware = 1
-			spafinloc = 11
-			gs 'cum_manage'
-			gs 'npcgeneratec', 0, 'unconcious rapist', rand(17,22)
-			gs 'boyStat', $npclastgenerated
-			sexunaware = 1
-			spafinloc = 11
-			gs 'cum_manage'
-			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_kuh_8_<<rand(1,5)>>.jpg"></center>'
-			'After everything that happened tonight, you feel exhausted and fall asleep. You have a dream about warm wet drops landing on your face and lips, like a warm summers rain. You sleepily like at the drops.'
-		elseif i = 3:
-			gs 'npcgeneratec', 0, 'unconcious rapist', rand(17,22)
-			gs 'boyStat', $npclastgenerated
-			sexunaware = 1
-			if rand(0,1) = 0:
-				spafinloc = 3 & stat['hidden_anal'] += 1
-			else
-				stat['hidden_vaginal'] += 1
-			end
-			gs 'cum_manage'
-			gs 'npcgeneratec', 0, 'unconcious rapist', rand(17,22)
-			gs 'boyStat', $npclastgenerated
-			sexunaware = 1
-			if rand(0,1) = 0:
-				spafinloc = 3 & stat['hidden_anal'] += 1
-			else
-				stat['hidden_vaginal'] += 1
-			end
-			gs 'cum_manage'
-			gs 'npcgeneratec', 0, 'unconcious rapist', rand(17,22)
-			gs 'boyStat', $npclastgenerated
-			sexunaware = 1
-			if rand(0,1) = 0:
-				spafinloc = 3 & stat['hidden_anal'] += 1
-			else
-				stat['hidden_vaginal'] += 1
-			end
-			gs 'cum_manage'
-			i = rand(1,2)
-			if i = 1:'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_kuh_9_<<rand(1,2)>>.jpg"></center>'
-			if i = 2:'<center><video autoplay loop src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_kuh_9_3.mp4"></video></center>'
-			'After everything that happened tonight, you feel exhausted and fall asleep. You have a dream about being impaled on a stake for all your sins but surprisingly, instead of hurting, it actually feels wonderful.'               
-		end
-	end
-	if (indorf = 0):
-		''
-		'After sleeping for some time, you are suddenly awakened by someone yelling at you to wake up while they slap you.'
-		act 'Wake up':
-			*clr & cla
-			minut += 90
-			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_kuh_7.jpg"></center>'
-			'Anya shakes, yells at and slaps you until you slowly wake up.'
-			'She smiles at you. "It looks like you had fun tonight. How are you feeling?"'
-			'You groan, feeling sick. Your head is pounding, you feel like you are about to throw up and you are sore in more places than you can remember. "Go away and let me sleep, sis"'
-			'Anya shakes you again. "Get up you drunk idiot! Mom will kill us both if you don''t come home tonight."'
-			if Rex_save = 1 and Rex_Love = 0: 'As you leave the apartment, you gently kiss Rex on the cheek, thanking for the evening.'
-			if Rex_Love = 1: 'As you leave the apartment, you passionatly kiss Rex on the lips. "Thank you for a lovely evening."'
-			if party_boys_in >= 1: 'As you leave the apartment, some drunk guys tell you they will miss you and to sleep well while laughing to each other.'
-			if hour < 22 and  hour > 18:
-				minut += ((21 - hour) * 60) + (60 - minut)
-				gs 'arousal', 'end'
-				gs 'stat'
-				act 'Go home': gt 'bedrPar'
-			else 
-				gs 'arousal', 'end'
-				gs 'stat'
-				act 'Go home':minut += 15 & gt 'bedrPar'
-			end
-		end
-	else
-		if hour < 9 and hour > 3 :
-			pcs_sleep += (9 - hour) * 5
-			minut += ((8 - hour) * 60) + (60 - minut)
-			*clr & cla
-			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_kuh_7.jpg"></center>'
-			'Anya shakes you until you slowly wake up'
-			'She smiles at you. "Well it looks like you had fun tonight. How are you feeling?"'
-			'You groan, feeling sick. Your head is pounding and you are sore in more places than you can remember. "Let me sleep sis! I feel so sick."'
-			'Anya shakes you again. "Get up you drunk idiot! Mom is going to kill us both since we haven''t come home yet!"'
-			if Rex_save = 1 and Rex_Love = 0: 'As you leave the apartment, you gently kiss Rex on the cheek, thanking for the evening.'
-			if Rex_Love = 1: 'As you leave the apartment, you passionatly kiss Rex on the lips. "Thank you for a lovely evening."'
-			gs 'arousal', 'end'
-			gs 'stat'
-			act 'Go home': minut += 15 & gt 'bedrPar'
-		else
-			*clr & cla
-			minut += 90
-			gs 'stat'
-			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_girls_party_gost_4_1.jpg"></center>'
-			*nl 'You wake up an hour later and find the party still in full swing.'
-			act 'Return to party': gt $loc, $loc_arg
-		end
-	end
-end
-
---- rex_party_events ---------------------------------
-

locations/unused/rex_party_girls_events.qsrc

@@ -1,950 +0,0 @@
-# rex_party_girls_events
-
-menu_off = 1
-
-if $ARGS[0] = 'talk':
-	cls
-	minut += 5
-	party_girls_talk += 1
-	gs 'stat'
-	i = rand(1,18)
-	if i = 1:
-		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_home_2_<<i>>.jpg"></center>'
-		'You sit and chat with a couple of cute girls. One of them tells you, "I am dating a divorced man. He is very kinky and I''m afraid I can not keep up with it.'
-	elseif i = 2:
-		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_home_2_<<i>>.jpg"></center>'
-		'You sit and chat with a couple of cute girls. One of them tells you, "I have a very childish voice. I sound like a Japanese schoolgirl. The guy I''m dating says he likes it, but I''m still insecure about it."'
-	elseif i = 3:
-		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_home_2_<<i>>.jpg"></center>'
-		'You sit and chat with a couple of cute girls. One of them tells you, "I am dating the perfect man. Everything is great. The communication between us, the sex, I can discuss everything with him. But now he sent me a video, where he cums on a photo of me. The whole photo was covered in his cum eeww. Now I don''t want to see him anymore."'
-	elseif i = 4:
-		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_home_2_<<i>>.jpg"></center>'
-		'You sit and chat with a couple of cute girls. One of them tells you, "I came home after going out with a guy, my knees were all red. When my mother saw it she seriously asked, if it was mosquito bites or allergies. I just nodded ashamed."'
-	elseif i = 5:
-		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_home_2_<<i>>.jpg"></center>'
-		'You sit and chat with a couple of cute girls. One of them says, "Blowjob week during menstruation is for wimps! I want anal week!!"'
-	elseif i = 6:
-		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_home_2_<<i>>.jpg"></center>'
-		'You sit and chat with a couple of cute girls. One of them tells you, "A friend of mine broke up with a girl so I asked him to come over and talk. I gave him a blowjob in the car to help him get over her."'
-	elseif i = 7:
-		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_home_2_<<i>>.jpg"></center>'
-		'You sit and chat with a couple of cute girls. One of them tells you, "I felt so bad when I had to tell my mother that I lost my virginity over two years ago."'
-	elseif i = 8:
-		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_home_2_<<i>>.jpg"></center>'
-		'You sit and chat with a couple of cute girls. One of them tells you, "After spending a day with my boyfriend in bed, his pillow always smells of his cologne. When he is not here I hug the pillow and masturbate. It feels amazing!"'
-	elseif i = 9:
-		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_home_2_<<i>>.jpg"></center>'
-		'You sit and chat with a couple of cute girls. One of them tells you, "I love when, during sex, my boyfriend moans in my ear. His sighs really turn me on. I often hold my ear near his mouth on purpose just to hear him moan."'
-	elseif i = 10:
-		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_home_2_<<i>>.jpg"></center>'
-		'You sit and chat with a couple of cute girls. One of them tells you, "I like how men go wild, when I touch them through their shorts. It really excites me and I do it as often as I can."'
-	elseif i = 11:
-		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_home_2_<<i>>.jpg"></center>'
-		'You sit and chat with a couple of cute girls. One of them tells you, "A year and a half ago, an attractive neighbor moved in. I really want to fuck him and constantly try to seduce him with my outfits, but we haven''t had sex yet. I''m afraid he will move out soon.'
-	elseif i = 12:
-		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_home_2_<<i>>.jpg"></center>'
-		'You sit and chat with a couple of cute girls. One of them tells you, "It really infuriates me, when I feel close to orgasm and then the guy wants to change position. It happens to me all the time."'
-	elseif i = 13:
-		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_home_2_<<i>>.jpg"></center>'
-		'You sit and chat with a couple of cute girls. One of them tells you, "The guys really love it when I caress their cocks and use my fingers massaging their ass. Then I move the tongue in there and start licking greedily."'
-	elseif i = 14:
-		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_home_2_<<i>>.jpg"></center>'
-		'You sit and chat with a couple of cute girls. One of them tells you, "I love to passionately kiss during sex, grab the guys ass and claw his back, mrrr."'
-	elseif i = 15:
-		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_home_2_<<i>>.jpg"></center>'
-		'You sit and chat with a couple of cute girls. One of them tells you, "Life becomes a pain, when you wear a man out to such a degree, that he doesn''t want to have sex anymore. I love it when they almost beg you to wrap your lips around their cock."'
-	elseif i = 16:
-		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_home_2_<<i>>.jpg"></center>'
-		'You sit and chat with a couple of cute girls. One of them tells you, "I met a guy once who immediately invited me to his home. I agreed and just like in every good affair we start kissing and undressing each other. But then I saw his small penis and broke down, laughing out loud. The guy didn''t seem hurt so I quickly sucked him off and went home. I haven''t seen him since."'
-	elseif i = 17:
-		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_home_2_<<i>>.jpg"></center>'
-		'You sit and chat with a couple of cute girls. One of them tells you, "My childhood dream was to become an astronaut. Now I not only want to be one, but have sex with one too. Right there in space. I want to experience a cosmic orgasm!"'
-	elseif i = 18:
-		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_home_2_<<i>>.jpg"></center>'
-		'You sit and chat with a couple of cute girls. One of them tells you, "My former boyfriend''s member was as big, as my whole arm. At first it hurt fucking him, but then I got used to it and really enjoyed it."'
-	end
-
-	act 'Move away': gt 'rex_party_home', 'party_home'
-end
-
-if $ARGS[0] = 'smoke':
-	cls
-	minut += 5
-	gs 'stat'
-	if girls_smoke = 0:
-		girls_smoke = 1
-		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_home_3_1.jpg"></center>'
-		'"Girls, look what I stole from my worthless, addicted brother.", one of the girls says, showing you two bags of marijuana. "So, do you want to keep staring at me, or do you want to have fun?"'
-		act 'Start smoking': gt 'rex_party_girls_events', 'smoke'
-		gs 'willpower', 'drugs', 'resist', 'medium'
-		if will_cost <= pcs_willpwr:
-			act 'Move away (<<will_cost>> Willpower)':
-				*clr & cla
-				gs 'willpower', 'pay', 'resist'
-				gs 'stat'
-				gt 'rex_party_home', 'party_home'
-			end
-		else
-			act 'Move away (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
-		end
-	else
-		girls_smoke += 1
-		pcs_horny += 30
-		joint += 1
-		gs 'drugs', 'joint'
-		gs 'stat'
-		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_home_3_<<rand(2,6)>>.jpg"></center>'
-		'You pour some of the marijuana into the bowl, and fill water into the bong. Then you press a finger on the hole while using a lighter to burn the weed, drawing in smoke. After some time you begin to relax and embrace the mild euphoria.'
-		act 'Chill':
-			cls
-			gs 'stat'
-			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_home_4_<<rand(1,7)>>.jpg"></center>'
-			i = rand(1,5)
-			if i = 1:
-				'For a moment, you feel almost cut off from the outside world. Your body has found a general state of calm and relaxation. After a while the relaxing feeling goes away and you feel excitement wash over you.'
-			elseif i = 2:
-				'Almost instantly you feel an increased sensitivity to touch as well as an enhanced vision, hearing and sense of smell. You hear the voices of others much clearer, see <<$pcs_nickname>> much brighter and feel the whole range of odors.'
-			elseif i = 3:
-				'When you feel the effect you lose all sense of time as if everything stands still. Everyone speaks and moves very slowly and it seems like minutes are stretched into hours...'
-			elseif i = 4:
-				'You feel like you can fly, entering a state of nirvana. You absorb the feeling of unreality. Your attention to details is greatly increased, nothing can escape your view.'
-			elseif i = 5:
-				'The smoke makes you feel good, letting you focus on positive emotions. You are able to feel all kinds of effects, happy, pleased, delighted, euphoric.'
-			end
-			act 'Move away': gt 'rex_party_home', 'party_home'
-		end
-	end
-end
-
-if $ARGS[0] = 'fun':
-	cls
-	minut += 5
-	gs 'stat'
-	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_home_5_<<rand(1,6)>>.jpg"></center>'
-	'The weed affects you greatly. It improves your mood and you become wildly aroused. "Well girls, why don''t we have some fun?"'
-	act 'Rejoice':
-		inhib_exp += rand(1,2)
-		fun_rand = rand(1,3)
-		if fun_rand = 1:
-			cls
-			minut += 5
-			gs 'stat'
-			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_home_fun_1_<<rand(1,6)>>.jpg"></center>'
-			'You and the girls decide to have a contest for the best ass. You call over a couple of guys and stick out your butts for them to appraise. The drunk guys are all very impressed and it is difficult for them to settle on only one of the choices.'
-			if Rex_Love = 1: 'You show off your ass right in front of Rex.'
-			act 'Shake your booty':
-				cls
-				minut += 5
-				gs 'stat'
-				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_home_fun_1_<<rand(7,11)>>.jpg"></center>'
-				'You seductively wag your ass. ' + iif(Rex_Love = 0,'One boy', 'Rex') + ' is standing right in front of you and you firmly press your buttocks in his palms. He exclaims, "Boys, I think I already know the winner!" You win the competition easily.'
-				act 'Move away': gt 'rex_party_home', 'party_home'
-			end
-		elseif fun_rand = 2:
-			cls
-			minut += 5
-			gs 'stat'
-			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_home_fun_2_<<rand(1,5)>>.jpg"></center>'
-			'You become very curious and tell they girls it would be fun to compare your boobs. They agree and you all lift your shirts and look at each others breasts, estimating the size and shape, complimenting each other''s boobs.'
-			act 'Further':
-				if rand(1,2) = 1:
-					cls
-					minut += 5
-					gs 'stat'
-					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_home_fun_2_6_<<rand(1,5)>>.jpg"></center>'
-					'You enthusiastically examine each others breasts, when a couple of guys burst into the room. You decide that the guys should evaluate your boobs with their hands and call them closer.'
-					iif(Rex_Love = 0,'The guys have fun touching your boobs.', 'Rex is right in front of you and gently squeezes your breasts with his hands.')
-					gs 'willpower', 'sex', 'resist', 'medium'
-					if will_cost <= pcs_willpwr:
-						act 'Move away (<<will_cost>> Willpower)':
-							*clr & cla
-							gs 'willpower', 'pay', 'resist'
-							gs 'stat'
-							gt 'rex_party_home', 'party_home'
-						end
-					else
-						act 'Move away (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
-					end
-					act 'Moan':
-						cls
-						minut += 5
-						pcs_horny += 10
-						gs 'stat'
-						'<center><video autoplay loop src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_home_fun_2_6_<<rand(6,7)>>.mp4"></video></center>'
-						'Getting touched by ' + iif(Rex_Love = 0,'one of the guys', 'Rex') + ' you can''t help but to start moaning. When ' + iif(Rex_Love = 0,'the guy', 'Rex') + ' notices he begins to caress you even more insistently, grabbing your breasts firmly and licking your nipples. "Hey baby, if you like it so much, maybe we should go further."	Then ' + iif(Rex_Love = 0,'the guy', 'Rex') + ' grabs you by the waist...'
-						act 'Surrender':
-							cls
-							if Rex_Love = 0:
-								guy += 1
-								gs 'npcgeneratec', 0, 'Boy from Rex''s Party', 17
-								gs 'boyStat', $npclastgenerated
-							else
-								sexa += 1
-								if rexSex = 0: rexSex = 1 & guy += 1
-								gs 'boyStat', 'A57'
-							end
-							gs 'stat'
-							'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_home_fun_2_6_8.jpg"></center>'
-							'He pulls your clothes off and then lays down on his back on the floor, pulling his <<dick>>cm <<$dick_girth>> cock out. You climb on him straddling him, you lower yourself onto his cock, feeling is slip inside of your wet pussy, working your down till he is completely inside of you as deep as you can take him.'
-							'The two of you begin to rhythmically fuck in front of the others. The girls cheer you on fervently, filming everything on their phones. "Come on <<$pcs_nickname>>, move your ass faster." You feel his hard member inside of you, and soon realize that he is about to come.'
-							gs 'arousal', 'vaginal', 5, 'exhibitionism'
-							act 'Let him come on you':
-								cls
-								minut += 5
-								pcs_horny += 10
-								gs 'stat'
-								'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_home_fun_2_6_9.jpg"></center>'
-								iif(Rex_Love = 0,'The guy', 'Rex') + ' quickly pulls his dick out of you and pushes you off him. He stands up while you remain on your knees, he jerks his dick a few times until he starts shooting his cum all over you, leaving streaks of semen on your chest and abdomen. After he finishes the other girls sit down next to you and have a lot of fun as they lick all the sperm off of your body.'
-								gs 'cum_call', 'stomach', $boy
-								gs 'arousal', 'cuni', 15, 'exhibitionism'
-								gs 'arousal', 'end'
-								cumspclnt = 14 & gs 'cum_cleanup'
-								act 'Move away': gt 'rex_party_home', 'party_home'
-							end
-							act 'Move faster':
-								cls
-								minut += 5
-								pcs_horny += 10
-								gs 'stat'
-								'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_home_fun_2_6_9.jpg"></center>'
-								iif(Rex_Love = 0,'The guy', 'Rex') + ' you move faster as he requests, and you push him over the top. He halfheartedly tries to push you off him, but then it is too late. He shoots his load into you, as you rock back and forth on top of him. You stand up, his cock coming out trailing spent sperm across him. The other girls sit down, cleaning him up with their tongues.'
-								gs 'arousal', 'vaginal', 5, 'exhibitionism'
-								gs 'arousal', 'end'
-								gs 'Cum_Manage'
-								act 'Move away': gt 'rex_party_home', 'party_home'
-							end
-						end
-					end
-				else
-					cls
-					minut += 5
-					gs 'stat'
-					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_home_fun_2_7_<<rand(1,5)>>.jpg"></center>'
-					'You are having fun and get very excited. One of the girls, can''t resist and starts to lick your erect nipples, gently sucking on them and teasing them with her tongue. You enjoy it.'
-					gs 'willpower', 'cuni', 'resist', 'medium'
-					if will_cost <= pcs_willpwr:
-						act 'Move away (<<will_cost>> Willpower)':
-							*clr & cla
-							gs 'willpower', 'pay', 'resist'
-							gs 'stat'
-							gt 'rex_party_home', 'party_home'
-						end
-					else
-						act 'Move away (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
-					end
-					if pcs_horny > 50:
-						act 'Moan':
-							cls
-							minut += 10
-							orgasm += 1
-							pcs_horny = 0
-							pcs_mood = 100
-							lesbian += 1
-							gs 'stat'
-							if rand(1,2) = 1:
-								'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_home_fun_2_7_6.jpg"></center>'
-								'You can''t help but start to moan and the girls quickly spread you legs an begin to lick your holes in unison. You quickly come from the sensation of having every hole licked and caressed.'
-							else
-								'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_home_fun_2_7_7.jpg"></center>'
-								'You start to moan and the girls quickly lay you down on your back an start to caress you with their tongues. They take turns kissing you and licking your pussy, quickly bringing you to orgasm.'
-							end
-							act 'Move away': gt 'rex_party_home', 'party_home'
-						end
-					end
-				end
-			end
-		elseif fun_rand = 3:
-			cls
-			minut += 5
-			gs 'stat'
-			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_home_fun_2_8_<<rand(1,3)>>.jpg"></center>'
-			'You call in the guys and announce that you and the girls want to check out the contents of their pants. Excitedly they unzip their pants and pull out their dicks.'
-			iif(reksMeet = 1,'You have Rex'' member in front of you and compare it with your arm.', 'One of the more persistent guys comes up to you and you compare his penis with your arm.')
-			gs 'willpower', 'bj', 'resist', 'medium'
-			if will_cost <= pcs_willpwr:
-				act 'Move away (<<will_cost>> Willpower)': gs 'willpower', 'pay', 'resist' & gt 'rex_party_home', 'party_home'
-			else
-				act 'Move away (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
-			end
-			act 'Suck him':
-				cls
-				gs 'arousal', 'bj', 5
-				if Rex_Love = 1: bja += 1
-				gs 'stat'
-				$party_suck = {
-					act 'Make him cum':
-						cls
-						minut += 5
-						spafinloc = 12
-						gs 'cum_manage'
-						spafinloc = 11
-						gs 'cum_manage'
-						
-						gs 'stat'
-						'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_home_fun_2_8_<<rand(6,12)>>.jpg"></center>'
-						'You open your mouth and stick out your tongue.'
-						iif(Rex_Love = 0,'The guy', 'Rex') + ' cums hard, filling up your mouth and smearing sperm all over your face.'
-						act 'Move away': gt 'rex_party_home', 'party_home'
-					end
-				}
-				if rand(1,2) = 1:
-					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_home_fun_2_8_4.jpg"></center>'
-					'Strong desire clouds your mind, and you grab ' + iif(Rex_Love = 0,'the guy''s', 'Rex''s') + ' member in full view of all the girls. You gently masturbate it with your hand, then take it in your mouth and begin to suck on its head.'
-					iif(Rex_Love = 0,'The guy', 'Rex') + ' can''t resist for long and starts...'
-					dynamic $party_suck
-				else
-					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_home_fun_2_8_5.jpg"></center>'
-					'One of the girls takes the dick in front of her in her mouth. Feeling encouraged you take ' + iif(Rex_Love = 0,'the guy''s', 'Rex''s') + ' dick and gently masturbate it with your hand. Soon you put it in your mouth and begin to suck on its head, watching the other girl giving head at the same time.'
-					iif(Rex_Love = 0,'The guy', 'Rex') + ' can''t resist for long and starts...'
-					dynamic $party_suck
-				end
-			end
-		end
-	end
-	gs 'willpower', 'exhib', 'resist', 'easy'
-	if will_cost <= pcs_willpwr:
-		act 'Move away (<<will_cost>> Willpower)':
-			*clr & cla
-			gs 'willpower', 'pay', 'resist'
-			gs 'stat'
-			gt 'rex_party_home', 'party_home'
-		end
-	else
-		act 'Move away (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
-	end
-end
-
-if $ARGS[0] = 'drunk':
-	cls
-	minut += 5
-	drunk_sveta += 1
-	gs 'stat'
-	i = rand(1,2)
-	if i = 1: '<center><video autoplay loop src="images/locations/pavlovsk/resident/rekshome/party/party_girls_party_gost_3_1.mp4"></video></center>'
-	if i = 2: '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_girls_party_gost_3_<<rand(2,3)>>.jpg"></center>'
-	'You have another drink, and start to lose touch with reality. You feel dizzy and very sick...'
-	act 'Pass out': gt 'rex_party_events', 'sleep'
-end
-
-if $ARGS[0] = 'lena':
-	cls
-	minut += 5
-	gs 'stat'
-	'<center><b><font color = maroon>Lena</font></b></center>'
-	if $loc_arg = 'party_gost':
-		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_iralena_1_<<rand(1,5)>>.jpg"></center>'
-		'Ira and Lena are really getting into the spirit of the party.'
-	else
-		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/lena/lena.jpg"></center>'
-		'Walking up to Lena you talk and share a drink.'
-	end
-	'Small and mobile Lena'
-	act 'Move away': gt $loc, $loc_arg
-	if $loc_arg = 'party_gost':
-		'Lena and Ira together clink cups. "<<$pcs_nickname>>, Lets party!" As they offer you a drink.'
-		
-		gs 'willpower', 'drink', 'resist', 'hard'
-		if will_cost <= pcs_willpwr:
-			act 'Drink (<<will_cost>> Willpower)': gs 'willpower', 'pay', 'self' &  gt 'rex_party_girls_events', 'ira_drink'
-		else
-			act 'Drink (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
-		end	
-		
-		act 'Dance': gt 'rex_party_girls_events', 'ira_dance'
-	else
-		if alko < 6 and $loc_arg = 'party_home': act 'Have a drink': gt 'rex_party_home', 'party_drink'
-	end
-end
-
-if $ARGS[0] = 'ira':
-	cls
-	minut += 5
-	$menu_loc = 'rex_party_girls_events'
-	$menu_arg = 'ira'
-	menu_off = 0
-	gs 'stat'
-	'<center><b><font color = maroon>Ira</font></b></center>'
-	if $loc_arg = 'party_gost':
-		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_iralena_1_<<rand(1,5)>>.jpg"></center>'
-		'Ira and Lena are really getting into the spirit of the party.'
-	else
-		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/ira/ira.jpg"></center>'
-		'Walking up to Ira you talk and share a drink.'
-	end
-	'Constantly embarrassing Ira'
-	act 'Move away': gt $loc, $loc_arg
-	if $loc_arg = 'party_gost':
-		'Lena and Ira together clink cups. "<<$pcs_nickname>>, Lets party!" As they offer you a drink.'
-		act 'Drink': gt 'rex_party_girls_events', 'ira_drink'
-		act 'Dance': gt 'rex_party_girls_events', 'ira_dance'
-	else
-		if alko < 6 and $loc_arg = 'party_home': act 'Have a drink': gt 'rex_party_home', 'party_drink'
-	end
-end
-
-if $ARGS[0] = 'ira_dance':
-	cls
-	minut += 5
-	menu_off = 1
-	gs 'stat'
-	'<center><b><font color = maroon>Ira and Lena</font></b></center>'
-	'<center><video autoplay loop src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_gost_1_<<rand(1,7)>>.mp4"></video></center>'
-	'Moving to the rhythmic sounds, you indulge in an unrestrained dance with Lena and Ira.'
-	'You jump, sway your body, and rock your booty, losing yourself in the general merriment.'
-	if pcs_danc >= 50: 'You move your body perfectly with the rhythm of the music in an erotic way, getting you a lot of attention from others and you love they attention.'
-	if pcs_danc < 50: 'Your ridiculous movements during the dance does not bother anyone, you dance badly, but you do not care.'
-	act 'Have a rest': gt $loc, $loc_arg
-	act 'Kiss':
-		cls
-		'<center><b><font color = maroon>Ira and Lena</font></b></center>'
-		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_iralena_7_<<rand(1,2)>>.jpg"></center>'
-		'While you dance Lena moves in close to you and soon you are dancing up against each other, she leans in and kisses you. You momentarily dumbfounded, her lips are soft and they taste sweet as you kiss her back. Ira with fervent interest is watching the two of you.'
-		'Soon Ira joins the two of you, then all three of you start kissing each other. Your hands exploring each others bodies, as you begin to remove each others clothes right in the middle of the room, in front of everyone.'
-		gs 'arousal', 'kiss', 5, 'lesbian', 'group'
-		gs 'stat'
-		act 'Move away': gt $loc, $loc_arg
-		act 'Continue cuddling':
-			cls
-			'<center><b><font color = maroon>Ira and Lena</font></b></center>'
-			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_iralena_7_3.jpg"></center>'
-			'You, along with Lena and Ira undress each other as you continue you to kiss and caress each other until you are all completely naked right in the middle of the room, in front of all the other guys and girls.'
-			if Rex_Love = 1: 'Rex curiously stares only at you.'
-			'As your fingers and tongues begin to explore each others naked bodies you finally realize where you are, surrounded by guys who start cheering and whistling loudly pulling you at of the moment.'
-			'You have gone too far, the girls and you gather up your things as you leave the room the guys calmed down and continued to have fun discussing the incident.'
-			gs 'arousal', 'foreplay', 5, 'lesbian', 'group'
-			gs 'stat'
-			act 'Move away': gt $loc, $loc_arg
-			act 'Drag the girls in another room':
-				cls
-				'<center><b><font color = maroon>Ira and Lena</font></b></center>'
-				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_iralena_7_4.jpg"></center>'
-				'As you leave the room, you are far to turned on to stop now, so you grab Ira and Lena by the hands and pull them into one of the empty bedrooms with you. "Well, girls, should we continue here, without prying eyes." you ask'
-				'They answer you by dropping their things on the floor and join you in kissing and fondling each other again.'
-				gs 'arousal', 'foreplay', 5, 'lesbian', 'group'
-				gs 'stat'
-				act 'Start bed games':
-					cls
-					'<center><b><font color = maroon>Ira and Lena</font></b></center>'
-					i = rand(1,2)
-					if i = 1: '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_iralena_7_<<rand(5,7)>>.jpg"></center>'
-					if i = 2: '<center><video autoplay loop src="images/locations/pavlovsk/resident/rekshome/party/party_iralena_7_<<rand(8,9)>>.mp4"></video></center>'
-					'Together, laying down comfortably you continue to kiss and caress each other.'
-				    'You lick each other, using your tongue and fingers to explore each others pussies. Lapping up and swallowing each others juices, stopping only to share a passionate kiss with one another.'
-					'You work each others bodies, sometimes two on one and other times each giving and receiving from different girls. As you feel yourself getting close, you pay extra attention to whom ever seems to be lagging behind, emphasizing the sensual caress in the most erogenous places.'
-					'Soon, the three of you are moaning almost as one, all nearing your peak.'
-					gs 'arousal', 'kiss', 5, 'lesbian', 'group'
-					gs 'arousal', 'cuni', 5, 'lesbian', 'group'
-					gs 'arousal', 'cuni_give', 5, 'lesbian', 'group'
-					gs 'arousal', 'vaginal_finger', 5, 'lesbian', 'group'
-					gs 'arousal', 'vaginal_finger_give', -5, 'lesbian', 'group'
-					gs 'stat'
-					act 'Cum':
-						cls
-						minut += 5
-						iralenasleep += 1
-						'<center><b><font color = maroon>Ira and Lena</font></b></center>'
-						'<center><video autoplay loop src="images/locations/pavlovsk/resident/rekshome/party/party_iralena_7_10.mp4"></video></center>'
-						'Laying side by side with you in the middle, your hands on each others clits, rubbing and caressing them until an incredibly strong orgasm overtakes you all, and the three of you wither in sweet release. "Uhh, who says we need men anyways?" All of your answers with satisfied giggles.'
-						'Continuing to be in ecstasy, you slowly come down on your sexual high, as you do you slowly fall asleep.'
-						$orgasm_or = 'yes'
-						gs 'arousal', 'vaginal_finger', 5, 'lesbian', 'group'
-						gs 'arousal', 'vaginal_finger_give', -5, 'lesbian', 'group'
-						gs 'arousal', 'end'
-						gs 'stat'
-						act 'Fall asleep': gt 'rex_party_events', 'sleep'
-					end
-				end
-			end
-		end
-	end
-end
-
-if $ARGS[0] = 'ira_drink':
-	cls
-	menu_off = 1
-	minut += 5
-	drunk_sveta += 1
-	gs 'drugs', 'alcohol', 'beer', 1
-	gs 'stat'
-	'<center><b><font color = maroon>Ira and Lena</font></b></center>'
-	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_iralena_2.jpg"></center>'
-	'Ira and Lena ply you with drinks, the more you drink the more your mood is markedly improved.'
-	'After several drinks Lena and Ira pull you roughly along to come have fun with them.'
-	if alko >= 7: 'Sudden your head starts spinning and you feel unsteady.'
-	if alko >= 7: act 'Pass out': gt 'rex_party_events', 'sleep'
-	if alko < 7: act 'Have fun': gt 'rex_party_girls_events', 'ira_lena_fun'
-	if alko < 7: act 'Move away': gt $loc, $loc_arg
-end
-
-if $ARGS[0] = 'ira_lena_fun':
-	cls
-	'<center><b><font color = maroon>Ira and Lena</font></b></center>'
-	if rand(1,2) = 1:
-		'<center><video autoplay loop src="images/locations/pavlovsk/resident/rekshome/party/party_iralena_3_2.mp4"></video></center>'
-	else
-		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_iralena_3_1.jpg"></center>'
-	end
-	'Music pumping puts you in the mood of fierce desire to have fun with Lena and Ira. Dancing with them, you start pulling their clothes off and they follow suit, taking your clothes off until all three of you are half naked just wearing your underwear.'
-	'The buzz of the booze makes you feel a lot more liberated as you slap each of the girls on the ass, which they return the favor and soon all three of you are taking turns slapping each others asses, in front of the guys.'
-	gs 'arousal', 'foreplay', 5, 'exhibitionism', 'lesbian'
-	gs 'stat'
-	if rand(1,2) = 1:
-		if Rex_Love = 0: 'Seeing what you are doing, Rex walks over and grabs you, then drags you into another room.'
-		if Rex_Love = 1: 'Seeing what you are doing, Rex walks over and grabs you, then drags you into another room.'
-		if Rex_Love = 1: 'Rex glares in the direction of Roma and your female companions.'
-		act 'Go with him': gt 'rex_party_girls_events', 'ira_boy'
-		if Rex_Love = 1:act 'Stay with Rex': gt 'rex_party_events', 'rex_talk'
-	else
-		'Seeing what you are doing, a couple of guys walk over and grab you, then they drag you into another room.'
-		if Rex_Love = 1: 'Rex glares in the direction of your female companions.'
-		act 'Go with them': gt 'rex_party_girls_events', 'ira_fun_boys'
-		if Rex_Love = 1:act 'Stay with Rex': gt 'rex_party_events', 'rex_talk'
-	end
-end
-
-if $ARGS[0] = 'ira_boy':
-	cls
-	'<center><b><font color = maroon>Ira and Lena</font></b></center>'
-	if Rex_love = 0:
-		gs 'boyStat', 'A57'
-	else
-		gs 'boyStat', 'A56'
-	end
-	if rand(1,2) = 1:
-		'<center><video autoplay loop src="images/locations/pavlovsk/resident/rekshome/party/party_iralena_4_2.mp4"></video></center>'
-	else
-		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_iralena_4_1.jpg"></center>'
-	end
-	'You go with <<$boydesc>>, Lena and Ira follow a little ways behind and without waiting for them, he puts you down on your knees.'
-	'You finish stripping naked, he has his cock out stroking it watching as you got undressed, seeing his cock you start sucking it at once.'
-	'Just as you start sucking his cock, Lena and Ira belatedly join you. They start kissing each other and undressing.'
-	gs 'arousal', 'bj', 5, 'sub', 'unknown'
-	gs 'stat'
-	act 'Suck together':
-		cls
-		'<center><b><font color = maroon>Ira and Lena</font></b></center>'
-		if rand(1,2) = 1:
-			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_iralena_5_<<rand(1,2)>>.jpg"></center>'
-		else
-			'<center><video autoplay loop src="images/locations/pavlovsk/resident/rekshome/party/party_iralena_5_3.mp4"></video></center>'
-		end
-		'Lena and Ira come over and kneel down next to you, one of them on each side of you. Each of you take turn sucking his cock, while the other two kiss each other or suck on his balls.'
-		gs 'arousal', 'bj', 5, 'sub', 'unknown', 'group'
-		gs 'stat'
-		act 'Lie on your back':
-			cls
-			pcs_vag += 1
-			cumprecheck = 1
-			gs 'cum_manage'
-			'<center><b><font color = maroon>Ira and Lena</font></b></center>'
-			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_iralena_5_4.jpg"></center>'
-			'You lay down on your back legs wide apart, Ira crawls over to you on all fours and buries her face between your legs and begins kissing, licking and sucking on your clit.'
-			'<<$boydesc>>  takes advantage of Ira''s position and slides his cock inside of her and begins to fuck her roughly.'
-			'Ira bouncing her hips back and forth, fucking him as much as he was fucking her as she keeps licking your pussy, Lena starts kissing <<$boydesc>>, while her hand caress his balls.'
-			'Time flies fast, Ira, Lena and yourself have all switched positions many times, letting him fuck all three of you, <<$boydesc>> can take no more.'
-			gs 'arousal', 'cuni', 5, 'sub', 'unknown', 'lesbian'
-			gs 'arousal', 'vaginal', 5, 'sub', 'unknown'
-			minut -= 5
-			gs 'stat'
-			act 'Cum': gt 'rex_party_girls_events', 'ira_boy_cum'
-		end
-
-		act 'Bend over':
-			cls
-			pcs_vag += 1
-			cumprecheck = 1
-			gs 'cum_manage'
-			'<center><b><font color = maroon>Ira and Lena</font></b></center>'
-			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_iralena_5_5.jpg"></center>'
-			'You bend over in front of him, Lena and Ira obediently bend over in front of <<$boydesc>> as well. One of them to each side of you, giving him a lovely view of all three of your asses.'
-			'<<$boydesc>> enjoys the spectacular view of your graceful asses. He fucks you first, while he slaps the girls on the ass, as he pounds into you.'
-			'You got the feeling he meant to take turns fucking each of you, but he grunts and can no longer hold back.'
-			gs 'arousal', 'vaginal', 5, 'sub', 'unknown', 'group'
-			gs 'stat'
-			act 'Cum': gt 'rex_party_girls_events', 'ira_boy_cum'
-		end
-	end
-end
-
-if $ARGS[0] = 'ira_boy_cum':
-	cls
-	gs 'arousal', 'foreplay', 5, 'group', 'lesbian'
-	spafinloc = 7
-	gs 'cum_manage'
-	'<center><b><font color = maroon>Ira and Lena</font></b></center>'
-	if rand(1,2):
-		spafinloc = 12
-		gs 'cum_manage'
-		spafinloc = 14
-		gs 'cum_manage'
-		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_iralena_5_6.jpg"></center>'
-		'<<$boydesc>> pulls out of you and blows his load all over your ass, covering it in his spunk.'
-		'Lena and Ira without hesitation began to lick up all the cum, then they kiss you and each other, sharing the taste of sperm with you.'
-		''
-	else
-		
-		spafinloc = 11
-		gs 'cum_manage'
-		spafinloc = 12
-		gs 'cum_manage'
-		'<center><video autoplay loop src="images/locations/pavlovsk/resident/rekshome/party/party_iralena_5_<<rand(7,8)>>.mp4"></video></center>'
-		'With a slap on your ass he pulls out, knowing what he wants you turn around and open your mouth, sticking out your tongue, your girlfriends obediently follow suit and open their mouths, sticking out there tongues as well.'
-		'<<$boydesc>> jerks his cock until he starts shooting his sperm all over the three of you, he does his best to aim for your mouths and tries to make sure he gets at least a little in all of your mouths. Once his dick stops spurting cum the three of you start licking up the cum that missed your mouths and kissing, exchanging his sperm from one mouth to another mouth, until it finally ends up back in your mouth and you swallow it.'
-		''
-	end
-	gs 'arousal', 'end'
-	gs 'stat'
-	act 'Move away': gt 'rex_party_home', 'party_home'
-end
-
-if $ARGS[0] = 'ira_fun_boys':
-	cls
-	minut += 5
-	pcs_vag += 2
-	gs 'stat'
-	gs 'npcgeneratec', 0, 'Boy from Rex''s Party', 17
-	gs 'boyStat', $npclastgenerated
-	gs 'npcgeneratec', 0, 'Boy from Rex''s Party', 17
-	gs 'boyStat', $npclastgenerated, 'a'
-	'<center><b><font color = maroon>Ira and Lena</font></b></center>'
-	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_toilet_7_4.jpg"></center>'
-	'The three guys each pull one of you into the bathroom, they quickly help you girls finish getting undressed until your all naked. Once you are all completely naked the guys crowd around you in a circle and pull their dicks out of pants and begin stroking them, looking at you expectantly.'
-	act 'Suck':
-		cls
-		'<center><b><font color = maroon>Ira and Lena</font></b></center>'
-		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_iralena_6_<<rand(1,2)>>.jpg"></center>'
-		'With Lena and Ira, you get down on your knees in front of the guys, each of you take one of the cocks into your mouth and begin sucking on it. After a bit you switch which cock your sucking on, until all three of you have sucked all the guys cocks.'
-		gs 'arousal', 'bj', 5, 'sub', 'group', 'unknown'
-		gs 'stat'
-		act 'Fuck': gt 'rex_party_girls_events', 'ira_boys_fuck'
-	end
-	act 'Fuck': gt 'rex_party_girls_events', 'ira_boys_fuck'
-end
-
-if $ARGS[0] = 'ira_boys_fuck':
-	cls
-	'<center><b><font color = maroon>Ira and Lena</font></b></center>'
-	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_iralena_6_<<rand(3,4)>>.jpg"></center>'
-	'Two of the guys, you, Ira, and Lena all take it into the bedroom. The two boys start off fucking Ira and Lena, while you fondled the girls. Eventually they switch and one of them bends you over and starts fucking your pussy, while another fucks Ira, leaving Lena to take turns kissing you and Ira. In time the boys keep switching until both of them have fucked all three of you several times. After several orgasms each, Ira, Lena and you lay back on the bed.'
-	$orgasm_or = 'yes'
-	gs 'arousal', 'vaginal', 5, 'sub', 'group', 'unknown'
-	gs 'stat'
-	act 'Cum':
-		cls
-		minut += 5
-		cumprecheck = 1
-		gs 'cum_manage'
-		spafinloc = 14
-		gs 'cum_manage'
-		gs 'boyStat', $boy1
-		cumprecheck = 1
-		gs 'cum_manage'
-		spafinloc = 14
-		gs 'cum_manage'
-		iralenasleep += 1
-		'<center><b><font color = maroon>Ira and Lena</font></b></center>'
-		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_iralena_6_5.jpg"></center>'
-		'As Lena, Ira, and you lay on the bed side by side, the two boys jerk themselves off to finish. Spraying all three of your naked bodies with their spunk. As the boys get dressed and leave, the three of you kiss and lick the sperm off each others bodies until you get to tired and fall asleep in a tangle.'
-		cumspclnt = 14  & gs 'cum_cleanup'
-		gs 'arousal', 'end'
-		gs 'stat'
-		act 'Fall asleep': gt 'rex_party_events', 'sleep'
-	end
-end
-
-if $ARGS[0] = 'rex':
-	cls
-	minut += 2
-	gs 'boyStat', 'A57'
-	gs 'stat'
-	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_girls_party_gost_7.jpg"></center>'
-	'Rex drags you to the toilet, sporting a huge erection. You quickly squat down and eagerly plunge his <<dick>>cm <<$dick_girth>> cock into your mouth. Rex exclaims excitedly, "Wow, you are really unpredictable, and for that I love you." With that, he fucks you in the mouth, while you suck on him passionately. Soon you can tell he is about to blow his load.'
-	act 'Continue':
-		cls
-		gs 'arousal', 'bj', 8
-		
-		spafinloc = 12
-		gs 'cum_manage'
-		spafinloc = 11
-		gs 'cum_manage'
-		spafinloc = 7
-		gs 'cum_manage'
-		gs 'stat'
-		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_girls_party_gost_8.jpg"></center>'
-		'You eagerly open your mouth and instantly get hit by a stream of semen. Rex groans passionately as he finishes. "Ooh, babe, that was fantastic. You know how to get me in a good mood. You clean yourself up, while I go back to the guests."'
-		act 'Move away': gt 'rex_party_home', 'party_toilet'
-	end
-end
-
-if $ARGS[0] = 'bra':
-	cls
-	minut += 5
-	inhib_exp += rand(0,1)
-	gs 'stat'
-	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_girls_party_gost_5_<<rand(1,3)>>.jpg"></center>'
-	'Yielding to the general madness, you pull your top off exposing your bra to the frantic shouts of the boys. In this state your dancing clearly will look much more spectacular.'
-	if Rex_Love = 1: 'Rex watches you closely, but says nothing.'
-	gs 'willpower', 'exhib', 'resist', 'easy'
-	if will_cost <= pcs_willpwr:
-		act 'Move away (<<will_cost>> Willpower)': gs 'willpower', 'pay', 'resist' & gt 'rex_party_home', 'party_home'
-	else
-		act 'Move away (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
-	end
-	act 'Dance topless':
-		cls
-		inhib_exp += rand(0,2)
-		gs 'arousal', 'flash', 5
-		gs 'stat'
-		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_girls_party_gost_6_<<rand(1,3)>>.jpg"></center>'
-		'Under the merry shouts of the boys and girls you take off your bra and dance half-naked. A lot of the guys come closer trying to enjoy the view.'
-		if Rex_Love = 1: 'You enjoy yourself when Rex shouts "Maybe thats enough? This isn''t very nice to look at."'
-		act 'Move away': gt $loc, $loc_arg
-		if Rex_Love = 1: act 'Drag him to the restroom': gt 'rex_party_girls_events', 'rex'
-		act 'Undress':
-			gs 'npcgeneratec', 0, 'Boy from Rex''s Party', 17
-			gs 'boyStat', $npclastgenerated
-			$boydesc = $npc_usedname[$npclastgenerated]
-			inhib_exp += rand(0,2)
-			cls
-			gs 'arousal', 'flash', 5
-			gs 'stat'
-			if rand(1,2) = 1:
-				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_girls_party_gost_9_1.jpg"></center>'
-			else
-				'<center><video autoplay loop src="images/locations/pavlovsk/resident/rekshome/party/party_girls_party_gost_9_2.mp4"></video></center>'
-			end
-			if Rex_Love = 1: 'You completely ignore Rex. He glares at you and turns away.'
-			'You undress completely, only a few girls follow your example and get naked as well. You all get into the middle of the room and dance together. Ignoring the surrounding people, you dance together, naked. Several drunks guys approach you, and tell you it would be a sin to not use such a fine bitch like you.'
-			act 'Go with the guys':
-				cls
-				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_girls_party_gost_10.jpg"></center>'
-				'The boys take you to the bathroom and put you on your knees, unzipping their pants. Even in such a drunken state, you can still guess, what they want you to do.'
-				act 'Suck':
-					cls
-					gs 'arousal', 'hj', 5, 'group', 'gangbang'
-					gs 'arousal', 'bj', 5, 'group', 'gangbang'
-					guy += 3
-					gang += 1
-					gs 'stat'
-					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_girls_party_gost_11.jpg"></center>'
-					'You try to service them both awkwardly, stroking them both while trying to lick the heads of their dick, in your drunken state you can''t keep up any kind of rhythm with your hands. One of the guys tells you to just use your mouth.'
-					act 'Remove hands':
-						cls
-						i = rand(1,2)
-						if i = 1: '<center><video autoplay loop src="images/locations/pavlovsk/resident/rekshome/party/party_girls_party_gost_12_1.mp4"></video></center>'
-						if i = 2: '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_girls_party_gost_12_3.jpg"></center>'
-						'You dutifully remove your hands and instinctively begin to fondle your pussy with your free hand. The guys take turns fucking your mouth, sliding their cocks until their balls are against you chin, making your gag and your eyes water, while the other masturbates. Soon you bring them both to the point where they are ready to come.'
-						gs 'arousal', 'bj', 5, 'group', 'gangbang'
-						gs 'arousal', 'clit_finger', -5, 'masturbate'
-						gs 'stat'
-						act 'Continue':
-							cls
-							gs 'cum_call', 'mouth', $boy, 1,'','',20
-							gs 'cum_call', 'face', $boy, 1,'','',20
-							gs 'npcgeneratec', 0, 'Boy from Rex''s Party', 17
-							gs 'boyStat', $npclastgenerated
-							gs 'cum_call', 'clothes', $boy, 1,'','',20
-							gs 'cum_call', 'hair', $boy, 1,'','',20
-							gs 'stat'
-							'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_girls_party_gost_13.jpg"></center>'
-							'Still squatting and barely able to stay in this position they grab their hard dicks and masturbate them until you get splashed with their semen, spurts of cum cover your face and hair. The boys wipe off the last drop of cum from their limp dicks onto your face and cackle as they leave you alone in the room.'
-							gs 'arousal', 'end'
-							act 'Move away': gt 'rex_party_home', 'party_toilet'
-						end
-					end
-				end
-			end
-		end
-	end
-end
-
-if $ARGS[0] = 'drink':
-	cls
-	minut += 5
-	gs 'drugs', 'alcohol', 'beer'
-	drunk_sveta +=1
-	gs 'stat'
-	i = rand(1,2)
-	if i = 1: '<center><video autoplay loop src="images/locations/pavlovsk/resident/rekshome/party/party_girls_party_gost_2_1.mp4"></video></center>'
-	if i = 2: '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_girls_party_gost_2_<<rand(2,4)>>.jpg"></center>'
-	'The girls have some booze with them and you are happy to share a drink with them. You and the girls keep drinking during dancing. Your drunk yelling drowned out by the music, as the girls tell you they want to have even more fun...'
-	if alko >= 7: 'You are dizzy, and feel very ill.'
-	if alko >= 7: act 'Sleep': gt 'rex_party_events', 'sleep'
-	gs 'willpower', 'exhib', 'resist', 'easy'
-	if will_cost <= pcs_willpwr:
-		act 'Move away (<<will_cost>> Willpower)': gs 'willpower', 'pay', 'resist' & gt 'rex_party_home', 'party_home'
-	else
-		act 'Move away (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
-	end
-	act 'Drink more': gt 'rex_party_girls_events', 'drunk'
-	act 'Take off your top': gt 'rex_party_girls_events', 'bra'
-end
-
-if $ARGS[0] = 'boys':
-	cls
-	if rex_love = 0:
-		gs 'npcgeneratec', 0, 'Boy from Rex''s Party', 17
-		gs 'boyStat', $npclastgenerated
-		$boydesc = $npc_usedname[$npclastgenerated]
-	else
-		gs 'boyStat', 'A57'
-	end
-	i = rand(1,2)
-	if i = 1:
-		
-		gs 'arousal', 'bj', 5, 'gangbang'
-		spafinloc = 12
-		gs 'cum_manage'
-		spafinloc = 11
-		gs 'cum_manage'
-		spafinloc = 7
-		gs 'cum_manage'
-		gs 'stat'
-		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_girls_party_gost_19.jpg"></center>'
-		'The guys soon are unable to withstand just watching, decide to join the fun. The guys walk up in front of you girls and unbutton their pants, pulling out their hard dicks. You and the other pretty girls look at each other and decide to go with it. You kneel down in front of ' + iif(Rex_Love = 0,'one of the guys', 'Rex') + ' and happily begin to suck his already rock hard member. After you and the girls make the guys cum, each of you swallowing down the sperm, you continue with the fun.'
-		act 'Move away': gt $loc, $loc_arg
-	elseif i = 2:
-		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_girls_party_gost_20_<<rand(1,2)>>.jpg"></center>'
-		'The guys soon are unable to withstand just watching, decide to join the fun. Soon you kiss and caress each other in unison. Rex closely keeps you to himself, not letting any of the other guys touch you.'
-		act 'Further':
-			cla
-			*clr
-			gs 'arousal', 'vaginal', 30, 'group', 'gangbang'
-			gs 'arousal', 'bj', -30, 'group', 'gangbang'
-			
-			spafinloc = 12
-			gs 'cum_manage'
-			spafinloc = 11
-			gs 'cum_manage'
-			spafinloc = 7
-			gs 'cum_manage'
-			guy += 1
-			gang += 1
-			gs 'cum_manage'
-			gs 'stat'
-			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_girls_party_gost_21_<<rand(1,6)>>.jpg"></center>'
-			'You don''t really recall how your adult game turned into a raging orgy. Everyone is divided into pairs who passionately fuck each other. There are not enough girls for every guy and you notice how they are huddling around your sister with Roma as Anya gladly accepts any dick that is put in front of her. The apartment is dipped into an atmosphere of wild and depraved sex, groans and cries of pleasure coming from every corner. Time seems to have stopped and eventually everyone is just fucking each other until they run out of energy.'
-			gs 'cuminsidereact', '<<$boydesc>>'
-			act 'Fall asleep':
-				cla
-				*clr
-				minut += 5
-				gs 'stat'
-				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_kuh_6_<<rand(1,9)>>.jpg"></center>'
-				'After everything that happened, you fall asleep instantly, plunging into a sweet dream. You went to sleep all smeared with sperm, but you do not care. After some time you are woken up by someone shouting at you and slapping your face.'
-				act 'Wake up':
-					cls
-					minut += 90
-					gs 'stat'
-					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_kuh_7.jpg"></center>'
-					'You slowly wake up as Anya keeps slapping you in the face.'
-					'"Well that was fun. How are you feeling?"'
-					'"Everything hurts, I''m dizzy. Give me a little more sleep." you answer with a weak voice.'
-					'"Get up stupid. Our parents are going to kill us, if we don''t spend the night at home."'
-					act 'Going home': gt 'bedrPar'
-				end
-			end
-		end
-	end
-end
-
-if $ARGS[0] = 'girls':
-	cls
-	minut += 5
-	inhib_exp += rand(1,3)
-	gs 'stat'
-	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_girls_party_gost_16_<<rand(1,2)>>.jpg"></center>'
-	'You decide that you want to be alone with the girls. You close the door, making sure that none of the boys will disturb you.'
-	act 'Proceed':
-		cla
-		*clr
-		minut += 5
-		gs 'stat' 
-		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_girls_party_gost_17_<<rand(4,5)>>.jpg"></center>'
-		'You continue your lesbian play. It is an insane orgy as you caress each other, using your tongues and gentle fingers on every available hole. Time flies as you bring each other to orgasm, convulsing from the pleasure.'
-		act 'Fall asleep':
-			cla
-			*clr
-			minut += 5
-			gs 'stat'
-			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_girls_party_gost_18_<<rand(1,2)>>.jpg"></center>'
-			'Covered in each others juices and warm embraces you quickly fall asleep. After some time you are woken up by someone shouting at you and slapping your face.'
-			act 'Wake up':
-				cls
-				*clr
-				minut += 90
-				gs 'stat'
-				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_kuh_7.jpg"></center>'
-					'You slowly wake up as Anya keeps slapping you in the face.'
-					'"Well that was fun. How are you feeling?"'
-					'"Everything hurts, I''m dizzy. Give me a little more sleep." you answer with a weak voice.'
-					'"Get up stupid. Our parents are going to kill us, if we don''t spend the night at home."'
-				act 'Going home': gt 'bedrPar'
-			end
-		end
-	end
-end
-!!		i = rand(1,2)
-!!		if i = 1: '<center><video autoplay loop src="images/locations/pavlovsk/resident/rekshome/party/party_girls_party_gost_17_<<rand(1,3)>>.mp4"></video></center>'
-!!		if i = 2:
-
-if $ARGS[0] = 'dirty':
-	cls
-	minut += 5
-	inhib_exp += rand(1,2)
-	gs 'stat'
-	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_girls_party_gost_14_<<rand(1,4)>>.jpg"></center>'
-	'You have a lot of fun as you dance with the girls under the deafening music. During the dance you are pressed against each other and the other girls touch you in all sorts of places. Suddenly a pair of hands pull up you skirts and bare your ass. One of the girls pulls down your panties and starts to kiss and lick you.'
-	if Rex_Love = 1: 'Rex watches you with interest as you have fun with the girls.'
-	'The girls are only getting warmed up and offer you more.'
-	gs 'willpower', 'cuni', 'resist', 'medium'
-	if will_cost <= pcs_willpwr:
-		act 'Move away (<<will_cost>> Willpower)': gs 'willpower', 'pay', 'resist' & gt 'rex_party_home', 'party_home'
-	else
-		act 'Move away (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
-	end
-	act 'Give in':
-		cla
-		*clr
-		minut += 5
-		gs 'stat'
-		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_girls_party_gost_15_<<rand(1,8)>>.jpg"></center>'
-		'"Come on <<$pcs_nickname>>, lets get wild." You give in to the general madness, taking off all your clothes, and diving headlong into the abyss of insane lesbian fervor.'
-		act 'Have fun with the guys': gt 'rex_party_girls_events', 'boys'
-		act 'Go into another room with the girls': gt 'rex_party_girls_events', 'girls'
-	end
-end
-if $ARGS[0] = 'dance':
-	cls
-	minut += 5
-	if pcs_inhib < 40:inhib_exp += rand(1,2)
-	gs 'stat'
-	'<center><video autoplay loop src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_gost_1_<<rand(1,7)>>.mp4"></video></center>'
-	'You are grabbed by the rhythmic sounds and indulge in unrestrained dancing with the crowd.	You jump and twist your body, completely merging and absorbing yourself in the fun atmosphere.'
-	if pcs_danc >= 50: 'Your curves and movements to the music make you a pleasure to watch. The others stare at you excitedly.'
-	if pcs_danc < 50: 'Your ridiculous movements during the dance don''t bother anyone. You dance badly, but you do not care.'
-	act 'Take a breather': gt $loc, $loc_arg
-	act 'Dance more': gt 'rex_party_girls_events', 'dirty'
-end
-
-if $ARGS[0] = 'party_girls':
-	cls
-	minut += 5
-	gs 'stat'
-	'<center><b><font color = maroon>Girls</font></b></center>'
-	if $loc_arg = 'party_home':
-		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_girls.jpg"></center>'
-		*nl
-	else
-		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_girls_party_gost_1_<<rand(1,4)>>.jpg"></center>'
-		*nl
-	end
-	'Some former classmates of your sister. You are not familiar with them.'
-	act 'Move away': gt $loc, $loc_arg
-	if $loc_arg = 'party_gost': act 'Drink': gt 'rex_party_girls_events', 'drink'
-	if $loc_arg = 'party_gost': act 'Dance together': gt 'rex_party_girls_events', 'dance'
-	if $loc_arg = 'party_home' and alko < 6: act 'Propose a toast': gt 'rex_party_home', 'party_drink'
-end
-
---- rex_party_girls_events ---------------------------------
-

locations/unused/rex_party_home.qsrc

@@ -1,231 +0,0 @@
-# rex_party_home
-
-if indorf = 0 and (sisboyparty_day + 2 = daystart or hour > 21):
-	cls
-	'<center><b><font color = maroon>Rex''s Apartment</font></b></center>'
-	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/sisboyqwparty_6_' + rand(1,5) + '.jpg"></center>'
-	*nl 'Drunk and disheveled, Anya bursts into the room. You notice that her hair and clothes are smeared all over in sticky sperm. Anya stops you and says, "We should move our asses and go home <<$pcs_nickname>>, or mother will kill us both, if you don''t come home tonight."'
-	if Rex_save = 1 and Rex_Love = 0: 'As you leave the apartment, you gently kiss Rex on the cheek, thanking him for the evening.'
-	if Rex_Love = 1: 'As you leave the apartment, you passionately kiss Rex on the lips. "Thank you for a lovely evening."'
-	if party_boys_in >= 1: 'As you leave the apartment, some drunk guys tell you they will miss you and sleep well, while laughing to each other.'
-	gs 'arousal', 'end'
-	gs 'stat'
-	act 'Go home': minut += 15 & gt 'bedrPar'
-end
-
-if $ARGS[0] = 'party':
-	CLOSE ALL
-	$location_type = 'event'
-
-	gs 'themes', 'indoors'
-	$loc_arg = 'party'
-	$loc = 'rex_party_home'
-	$menu_loc = 'rex_party_home'
-	$menu_arg = 'party'
-	menu_off = 0
-	cls
-	sisterQW['partycount'] += 1
-	sisterQW['party'] = 2
-	minut += 15
-	sisboyparty = 1
-	sisboypartyQW += 1
-	alkoParty = 0
-	party_girls_talk = 0
-	girls_smoke = 0
-	party_dj = 0
-	dj_beer = 0
-	dj_thank = 0
-	dj_bad = 0
-	dj_boobs = 0
-	party_boys_drink = 0
-	Rex_save = 0
-	party_boys_in = 0
-	rex_talk = 0
-	rex_sex = 0
-	drunk_sveta = 0
-	iralenasleep = 0
-	sister_party_dom = 0
-	gs 'stat'
-	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_1_' + rand(1,5) + '.jpg"></center>'
-	'You arrive at Rex''s apartment for the weekend party. Going inside with the others, the loud music drowns out any noise from outside. As soon as you are inside, several boys immediately start offering you drinks.'
-	act 'Drink':
-		cls
-		minut += 5
-		alkoParty += 1
-		gs 'drugs', 'alcohol', 'vodka'
-		gs 'stat'
-		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_2_' + rand(1,4) + '.jpg"></center>'
-		'In all this mess, you are unable to find a clean cup and are handed a full bottle of booze. Clinking glasses with the bottle, you put your lips to its mouth and turn it up, gulping down several swigs of strong drink, noticing the effects almost at once.'
-		'The party has just begun. You can still walk through the apartment and find something to do.'
-		act 'Move away': gt 'rex_party_home', 'party_home'
-	end
-end
-
-!room Rex
-if $ARGS[0] = 'party_home':
-	$loc_arg = 'party_home'
-	$loc = 'rex_party_home'
-	killvar '$locclass'
-	cls
-	minut += 5
-	gs 'stat'
-	'<center><b><font color = maroon>Rex''s Room</font></b></center>'
-	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_1_' + rand(1,5) + '.jpg"></center>'
-	'You sit at a table and drink with your friends. Sitting to one side of you sharing a bottle as always are <a href="exec: gt ''rex_party_girls_events'', ''lena''">Lena</a> who is always fun, her slightly more reserved friend <a href="exec: gt ''rex_party_girls_events'', ''ira''">Ira</a>, and always upbeat <a href="exec: gt ''rex_events'', ''party''">Rex</a>.'
-	'To your other side sits your sister <a href="exec: gt ''rex_party_sister_events'', ''sister_party''">Anya</a>, drinking already, and <a href="exec: gt ''rex_party_home'', ''roma''">Roma</a>, who himself sits just a bit away looking more serious than normal, plus lots of <a href="exec: gt ''rex_party_girls_events'', ''party_girls''">girls</a> and <a href="exec: gt ''rex_party_boys_events'', ''party_boys''">guys</a> you barely know.'
-	if alko < 3:'One of the guys offers you a bottle to <a href="exec: gt ''rex_party_home'', ''party_drink''">drink</a> from as he says, "A little more to set the mood."'
-	!You''re drunk
-	if alko >= 3:
-		*clr
-		gs 'stat'
-		'<center><b><font color = maroon>Rex''s Room</font></b></center>'
-		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_home_1_' + rand(1,5) + '.jpg"></center>'
-		'After a while, everyone gets up to go dance and drink. Only a few <a href="exec: gt ''rex_party_girls_events'', ''party_girls''">girls</a> are left in the room, but they are fun to hang out and gossip with.'
-		iif(party_girls_talk >= 2,'You <a href="exec: gt ''rex_party_girls_events'', ''talk''">chat</a> and gossip with them. One of the girls pulls out some marijuana and invites all of you to <a href="exec: gt ''rex_party_girls_events'', ''smoke''">have a smoke</a>.', 'You <a href="exec: gt ''rex_party_girls_events'', ''talk''">chat</a> and gossip with them.')
-		if pcs_mood = 100 and pcs_horny >= 50 and girls_smoke > 1:
-			'All the girls are in a good mood, and several of them excitedly pull you with them to have some <a href="exec: gt ''rex_party_girls_events'', ''fun''">fun</a>.'
-		end
-	end
-	act 'Go to the living room': gt 'rex_party_home', 'party_gost'
-end
-
-if $ARGS[0] = 'roma':
-	cls
-	minut += 5
-	gs 'stat'
-	'<center><b><font color = maroon>Roma</font></b></center>'
-	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/roma/roma.jpg"></center>'
-	'Red-haired skinny guy named Roma.'
-	act 'Move away': gt $loc, $loc_arg
-end
-
-!Drink
-if $ARGS[0] = 'party_drink':
-	cls
-	minut += 5
-	alkoParty += 1
-	gs 'drugs', 'alcohol', 'vodka'
-	gs 'stat'
-	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_2_' + rand(1,4) + '.jpg"></center>'
-	'Someone hands you a half full bottle of booze. Putting your lips to the mouth of the bottle, you turn it up and gulp down several swigs of strong drink, noticing the effects almost at once.'
-	'The party has just begun, you can still walk through the apartment and find something to do.'
-	act 'Move away': gt $loc, $loc_arg
-end
-
-!Rex Lounge
-if $ARGS[0] = 'party_gost':
-	$loc_arg = 'party_gost'
-	$loc = 'rex_party_home'
-	$locclass = 'livingr'
-	cls
-	minut += 5
-	gs 'stat'
-	if alko < 3:
-		'<center><b><font color = maroon>Living room</font></b></center>'
-		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_3.jpg"></center>'
-		'This is a large living room. Hardly anyone is here, most are all still sitting in the other room talking and drinking. Only one <a href="exec: gt ''rex_party_home'', ''party_boy''">guy</a> is in here tinkering with a turntable.'
-	elseif alko >= 3:
-		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/reksparty_4_' + rand(1,8) + '.jpg"></center>'
-		'The party is in full swing. In one corner. a <a href="exec: gt ''rex_party_home'', ''party_boy''">guy</a>, the party DJ, is spinning beats at the turntable. You want to give it a try and <a href="exec: gt ''rex_party_events'', ''dance''">spin some beats</a>.'
-		'<a href="exec: gt ''rex_party_home'', ''roma''">Roma</a> and <a href="exec: gt ''rex_party_sister_events'', ''sister_party''">Anya</a> are locked together having fun dancing.'
-		if Rex_Love = 0:'<a href="exec: gt ''rex_events'', ''party''">Rex</a> is having fun dancing with some <a href="exec: gt ''rex_party_girls_events'', ''party_girls''">girls</a>.'
-		if Rex_Love = 1:'You are dancing with some <a href="exec: gt ''rex_party_girls_events'', ''party_girls''">girls</a> and <a href="exec: gt ''rex_events'', ''party''">Rex</a>, who looks at you with loving eyes.'
-		'<a href="exec: gt ''rex_party_girls_events'', ''lena''">Lena</a> and <a href="exec: gt ''rex_party_girls_events'', ''ira''">Ira</a> are having fun in the company of drunken <a href="exec: gt ''rex_party_boys_events'', ''party_boys''">guys</a>.'
-	end
-	act 'Go to Rex''s room': gt 'rex_party_home', 'party_home'
-	act 'Go to the kitchen': gt 'rex_party_home', 'party_kuh'
-	act 'Go to the bathroom': gt 'rex_party_home', 'party_toilet'
-	act 'Leave Rex''s home': gt 'pav_commercial'
-end
-
-if $ARGS[0] = 'party_boy':
-	*clr & cla
-	minut += 5
-	menu_off = 1
-	party_dj = 1
-	gs'stat'
-	if party_dj = 1 and dj_beer < 1:
-		'<center><b><font color = maroon>DJ</font></b></center>'
-		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_boy.jpg"></center>'
-		'The guy messes with the soundboard and makes the sound even louder. "Hello, <<$pcs_nickname>>, get my friend and me a beer. You can find all the booze in the kitchen."'
-	elseif dj_beer = 1 and dj_thank < 1:
-		'<center><b><font color = maroon>DJ</font></b></center>'
-		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_boy.jpg"></center>'
-		'The guy messes with the soundboard and makes the sound even louder. "Well, <<$pcs_nickname>>, where are our beers?" You go into the kitchen, get two bottles of beer and <a href="exec:gt ''rex_party_events'', ''dj_beer''">bring</a> them to the guys.'
-	elseif dj_thank = 1 and dj_bad < 1:
-		'<center><b><font color = maroon>DJ</font></b></center>'
-		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_boy.jpg"></center>'
-		'The guy messes with the soundboard and makes the sound even louder. You are allowed to <a href="exec:gt ''rex_party_events'', ''dj_thank''">twist</a> some knobs on the turntable.'
-	elseif dj_bad = 1 and dj_boobs < 1:
-		'<center><b><font color = maroon>DJ</font></b></center>'
-		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_boy.jpg"></center>'
-		'"<<$pcs_nickname>>, you won''t get a turn. Don''t even try this time.'
-	elseif dj_boobs = 1:
-		'<center><b><font color = maroon>DJ</font></b></center>'
-		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_boy.jpg"></center>'
-		'The guy messes with the soundboard and makes the sound even louder. You are again allowed to <a href="exec:gt ''rex_party_events'', ''dj_cock''">twist</a> some knobs on the turntable.'
-	end
-	act 'Move away': gt $loc, $loc_arg
-	gs 'willpower', 'exhib', 'self', 'medium'
-	if will_cost <= pcs_willpwr:
-		act 'Flash boobs (<<will_cost>> Willpower)': gs 'willpower', 'pay', 'self' & gt 'rex_party_events', 'dj_boobs'
-	else
-		act 'Flash boobs (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
-	end
-end
-
-!Kitchen Rex
-if $ARGS[0] = 'party_kuh':
-	$loc_arg = 'party_kuh'
-	$loc = 'rex_party_home'
-	$locclass = 'kitr'
-	cls
-	minut += 5
-	gs 'stat'
-	'<center><b><font color = maroon>Kitchen</font></b></center>'
-	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/kuh.jpg"></center>'
-	'The kitchen is spacious, but kinda dirty. The kitchen table is covered in cans and bottles of beer as well as 5ths of booze. You can grab any bottle you want and <a href="exec: gt ''rex_party_home'', ''party_drink''">drink</a>.'
-	if party_dj =1 and dj_beer < 1:'You grab two bottle for the <a href="exec: gt ''rex_party_events'', ''dj''">DJ and his friend</a>.'
-	if alko >= 3: 'Some <a href="exec: gt ''rex_party_boys_events'', ''party_boys''">guys</a> bang their empty drinks down on the table. Refilling, they offer a cup to you and try to get you to <a href="exec: gt ''rex_party_boys_events'', ''drink''">drink</a> with them.'
-	act 'Go to the living room': gt 'rex_party_home', 'party_gost'
-end
-
-!Toilet Rex
-if $ARGS[0] = 'party_toilet':
-	$loc_arg = 'party_toilet'
-	$loc = 'rex_party_home'
-	$locM_arg = 'party_toilet'
-	$locM = 'rex_party_home'
-	killvar '$locclass'
-	cls
-	minut += 5
-	gs 'stat'
-	if alko > 3 and rand(1,100) <= 30: gt 'rex_party_events', 'party_toilet_event'
-	'<center><b><font color = maroon>Toilet</font></b></center>'
-	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/toilet.jpg"></center>'
-
-	'Here you can wash your face, freshen up or touch up your make-up at <a href="exec: gt ''mirror'', ''start''">mirrors</a>.'
-	if pcs_horny > 50:'Feeling yourself ready to burst with desire, you can''t take it anymore and begin to <a href="exec: gt ''rex_party_events'', ''toilet_mast''">masturbate</a>.'
-	act 'Go to the living room': gt 'rex_party_home', 'party_gost'
-	if cumloc[11] = 1 or cumloc[12] = 1:
-		act 'Clean the sperm from your face (0:10)':
-			cla
-			*clr
-			pcs_makeup = 1
-			cumspclnt = 9
-			gs 'cum_cleanup'
-			cumspclnt = 13
-			gs 'cum_cleanup'
-			if pcs_sweat > 19 : pcs_sweat -= 5
-			minut += 10
-			'<center><img <<$set_imgh>> src="images/shared/home/bathroom/facesp.jpg"></center>'
-			*nl
-			'You clean your face and get rid of any trace of cum.'
-
-			act 'Move away': gt 'rex_party_home', 'party_toilet'
-		end
-	end
-end
-
---- rex_party_home ---------------------------------
-

locations/unused/rex_party_sister_events.qsrc

@@ -1,598 +0,0 @@
-# rex_party_sister_events
-
-if $ARGS[0] = 'sister_party':
-	*clr & cla
-	minut += 5
-	gs 'stat'
-	'<center><b><font color = maroon>Anya</font></b></center>'
-	if $loc_arg = 'party_gost':
-		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_sister_1.jpg"></center>'
-		''
-	else
-		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/anya/sister2.jpg"></center>'
-		''
-	end
-	'Your sister' + iif($loc_arg = 'party_gost', ' is drunk and in good spirits.', '.')
-	'"Oh <<$pcs_nickname>>, how do you like our humble party? It looks like you''re having a good time."'
-	act 'Move away': gt $loc, $loc_arg
-	if alko < 6 and $loc_arg = 'party_home': act 'Have a drink': gt 'rex_party_home', 'party_drink'
-	if $loc_arg = 'party_gost': act 'Drink': gt 'rex_party_sister_events', 'sister_drink'
-	if $loc_arg = 'party_gost': act 'Chat about guys': gt 'rex_party_sister_events', 'talk'
-end
-
-if $ARGS[0] = 'talk':
-	*clr & cla
-	minut += 5
-	gs 'stat'
-	'<center><b><font color = maroon>Anya</font></b></center>'
-	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_sister_1.jpg"></center>'
-	! These chat options will happen when Anya and Roma had their fight.
-	if sisterQW['AnyaRomaQW'] = 1:
-		sisterQW['partytalk'] += 1
-		if sisterQW['partytalk'] = 1:
-			'"It is strange seeing you back together with Roma."'
-			'"We talked things out and decided to give it another chance.'
-		elseif sisterQW['partytalk'] = 2:
-			'"You''re over it after all the cursing, crying and yelling?"'
-			'"I know, I know. I got excited a little bit, but now everything is worked out."'
-		elseif sisterQW['partytalk'] = 3:
-			'"So you are just going to continue dating him after everything that happened?"'
-			'"Well little sis, he made mistakes. Now he and I have worked things out, and I thank God everything is behind us."'
-		elseif sisterQW['partytalk'] = 4:
-			'"I cannot believe it! You let him crawl back and took him back? It''s not like you."'
-			'"Well <<$pcs_nickname>>, it''s best to have a bird in the hand, especially now that we don''t have such a simple relationship anymore.'
-		elseif sisterQW['partytalk'] = 5:
-			'"What do you mean you ''don''t have a simple relationship''? I need more details."'
-			'"Yes I know, so pay attention, I''m not going to repeat this. In a sense, we now have an open relationship."'
-		elseif sisterQW['partytalk'] = 6:
-			'"Open relationship? You mean where you can both fuck anyone you want and you keep dating him?"'
-			'"Eh, something like that <<$pcs_nickname>>."'
-		elseif sisterQW['partytalk'] = 7:
-			'"I can see that you are a fool! I could not agree to that."'
-			'"Why? I know he loves me, and he knows that I love him, but while we are young, we have fun."'
-		elseif sisterQW['partytalk'] = 8:
-			'"I still say it''s crazy how you can be in a loving relationship and still fuck anyone."'
-			'"<<$pcs_nickname>>, I am not a complete fool. Why ''anyone''? Look around, there are other nice guys here too, such as Rex.'
-		elseif sisterQW['partytalk'] = 9 and Rex_Love = 1:
-			'"Do you want me to kill you? You know that I''m dating Rex!"'
-			'"Calm down <<$pcs_nickname>>, I was joking! I know that you two are dating. Although... I did let you fuck my boyfriend, so why can''t I fuck yours?"'
-		elseif sisterQW['partytalk'] = 9 and Rex_Love = 0:
-			'"You''re right. I wouldn''t mind having him myself, but I don''t know if Rex would agree."'
-			'"Oh, what a naughty girl! Well then, how about we lure him together?"'
-		elseif sisterQW['partytalk'] = 10 and Rex_Love = 1:
-			sisterQW['AnyaRomaQW'] = 2
-			'You huff and pout, but realize she has a point. "OK fine, but I''m not sure Rex would agree. You and Roma both agreed ahead of time."'
-			'"The main thing is that you are not opposed to it <<$pcs_nickname>>. Besides, all men are the same. You really think Rex could withstand both our charms?"'
-		elseif sisterQW['partytalk'] = 10 and Rex_Love = 0:
-			sisterQW['AnyaRomaQW'] = 2
-			'"You want to seduce Rex? Haha, I''ve already fucked him! You have no idea what he is like in bed.'
-			'"Wow! What a saucy little minx you are! So that''s why you are always running around in his room? Well then, that will make this easier."'     
-		end
-		
-	else
-		i = rand(1,9)
-		if i = 1:'"<<$pcs_nickname>>, you still don''t have a man?"'
-		if i = 2:'"Sometimes I can''t decide what is more important: the size of their wallet or the size of their dick. What do you think <<$pcs_nickname>>?"'
-		if i = 3:'"If you have a reputation as the town whore, the guys won''t let you come to the parties anymore."'
-		if i = 4:'"It''s not good to come here when you''re in a bad mood. Rex hates having miserable bastards in his house."'
-		if i = 5:'"Still going to that crap school? Idiot, find yourself a rich man, and all your problems are solved!"'
-		if i = 6:'"When I drink, I become like a man and constantly think about sex."'
-		if i = 7:'"Roma sends his greetings. He said he missed our threesomes, so I slapped him across the face."'
-		if i = 8:'"What do you think of our host?"'
-		if i = 9:'"Get wild <<$pcs_nickname>>! Everything that happens at Rex''s parties, stays at Rex''s parties."'
-
-	end
-	act 'Move away': gt $loc, $loc_arg
-end
-
-if $ARGS[0] = 'sister_drink':
-	minut += 5
-	*clr & cla
-	gs 'drugs', 'alcohol', 'beer'
-	drunk_sveta += 1
-	gs 'stat'
-	'<center><b><font color = maroon>Anya</font></b></center>'
-	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_sister_2.jpg"></center>'
-	'Anya hands you a bottle. You take a swig and hand it back. "Keep the bottle, little sis. I won''t tell <<$npc_nickname[''A29'']>>," she says with a wink.'
-	if alko >= 7:
-		'With her encouragement, you end up drinking more than you should.'
-		'Suddenly your head is severely spinning...'
-		act 'Pass out': gt 'rex_party_events', 'sleep'
-	else
-		'You gladly drink more, sharing it with your sister.'
-		'Feeling buzzed, you are ready to plunge into the wild debauchery of the party.'
-		act 'Dance topless': gt 'rex_party_sister_events', 'fun'
-		act 'Move away': gt $loc, $loc_arg
-	end
-end
-
-if $ARGS[0] = 'fun':
-	*clr & cla
-	minut += 5
-	gs 'stat'
-	'<center><b><font color = maroon>Anya</font></b></center>'     
-	'<center><video autoplay loop src="images/locations/pavlovsk/resident/rekshome/party/party_sister_3_<<rand(1,2)>>.mp4"></video></center>'
-	'The alcohol has hit you hard. You feel a little light headed, but warm and happy. Anya cheerfully stumbles up to you.'
-	'"<<$pcs_nickname>>, let''s dance like there''s no tomorrow!" Pulling her top off, she helps you remove yours.'
-	'Before long, you and Anya have both stripped down to your panties and are dancing and shaking your tits for anyone that wants to watch.'
-	if Rex_Love = 1: 'Rex watches you and your sister with great curiosity.'     
-	act 'Move away': gt $loc, $loc_arg
-	act 'Kiss':
-		*clr & cla
-		'<center><b><font color = maroon>Anya</font></b></center>'
-		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_sister_3_<<rand(3,4)>>.jpg"></center>'
-		'As you dance half naked with your sister, the strong intoxication and excitement turns you on, and you start kissing her.'
-		'She doesn''t resist. Instead, she responds in kind, and soon you are both embraced in a deep passionate makeout, your tongues exploring each other''s mouths.'
-		if Rex_Love = 1:'Rex continues to watch you and your sister with great curiosity.'
-		'Wild desire seizes you. As you continue to kiss, you pull her towards one of the bedrooms.'
-		
-		gs 'arousal', 'kiss', 5, 'lesbian', 'incest'
-		gs 'stat'
-		
-		act 'Go to Rex''s room':
-			*clr & cla
-			'<center><b><font color = maroon>Anya</font></b></center>'
-			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_sister_3_<<rand(5,10)>>.jpg"></center>'
-			'Once in the room, you push the door closed and then push Anya down on the bed. You quickly crawl on top of her as you continue to kiss and caress her.'
-			'Anya, panting with excitement, caresses your body in return and just as fiercely returns the kiss.'
-			
-			gs 'arousal', 'foreplay', 5, 'lesbian', 'incest'
-			gs 'stat'
-		
-			act 'Lick Anya''s pussy':
-				*clr & cla
-				sister_party_dom = 1
-				'<center><b><font color = maroon>Anya</font></b></center>'
-				'<center><video autoplay loop src="images/locations/pavlovsk/resident/rekshome/party/party_sister_4_<<rand(1,3)>>.mp4"></video></center>'
-				'You kiss her breasts and stomach right down to her panties. You pull her panties down, exposing her already soaking wet pussy, which you begin to lick.'
-				'Both of you moan in pleasure. You feel hot with desire and can''t help but think that, despite all your sister''s protests that she isn''t a lesbian, she is just kidding herself. She loves having lesbian sex way too much.'
-				'Kissing, licking and sucking her clit, your face is wet with her juices. Her body twitches, and she moans loudly from your actions.' 
-				'After her moaning starts getting louder, you plunge your tongue inside of her, eliciting a cry of pleasure as you tongue fuck her pussy, slipping your tongue in and out of her.'
-				
-				gs 'arousal', 'cuni_give', 5, 'lesbian', 'incest'
-				gs 'stat'
-		
-				act 'Caress Anya with your hand': gt 'rex_party_sister_events', 'hand'
-     
-			end
-			act 'Lie on your back':
-				*clr & cla
-				sister_party_dom = 2
-				'<center><b><font color = maroon>Anya</font></b></center>'
-				'<center><video autoplay loop src="images/locations/pavlovsk/resident/rekshome/party/party_sister_4_<<rand(1,3)>>.mp4"></video></center>'
-				'You roll over as Anya climbs on top of you. As she kisses her way down to your nipples, your body arches in pleasure as you feel your pussy getting wet already.'
-				'Kissing and licking her way down your body, she pulls your panties off and gently kisses your clit. Her tongue gently flicking your clit elicits deep moans of pleasure from you. You feel a full tremor run through your body as her tongue slips inside of you.'
-				'"Mmm <<$pcs_nickname>>, you taste so sweet," Anya murmurs. You can''t help but smile at the skill of her tongue and again silently question her claims that she isn''t into girls.'
-				'Anya''s tongue works wonders, filling you with mounting pleasure as it strokes inside of you, penetrating you as deeply as it can go. She starts to tongue fuck your pussy.' 
-				
-				gs 'arousal', 'cuni', 5, 'lesbian', 'incest'
-				gs 'stat'
-		
-				act 'Let Anya caress you with her hand': gt 'rex_party_sister_events', 'hand'
-			end
-		end
-	end
-end
-
-if $ARGS[0] = 'hand':
-	*clr & cla
-	'<center><b><font color = maroon>Anya</font></b></center>'
-	'<center><video autoplay loop src="images/locations/pavlovsk/resident/rekshome/party/party_sister_5_<<rand(1,3)>>.mp4"></video></center>'
-	if sister_party_dom = 1:
-		'After licking your sister''s pussy for some time, you pull your head away from her and start rubbing her clit with your fingers.'
-		'She moans and bucks her hips against your hand. You then slip several of your fingers inside of her pussy and start rapidly finger blasting her wet hole.'
-		'Her moans get louder, and she starts to fuck your fingers, pleading with you not to stop.'
-		
-		gs 'arousal', 'vaginal_finger_give', 5, 'lesbian', 'incest'
-		gs 'stat'
-				
-	elseif sister_party_dom = 2:
-		'After receiving plenty of oral attention from Anya, she withdraws and starts rubbing your wet pussy with her fingers.'
-		'She slips a finger into your wet hole, then a second and finally a third. She then starts finger fucking you in earnest.'
-		'You start trying to hump her hand as you wither in pleasure, begging her not to stop.'
-		
-		gs 'arousal', 'vaginal_finger', 5, 'lesbian', 'incest'
-		gs 'stat'
-		
-	end
-	act 'Caress each other':
-		*clr & cla
-		'<center><b><font color = maroon>Anya</font></b></center>'
-		if rand(1,2) = 1:
-			'<center><video autoplay loop src="images/locations/pavlovsk/resident/rekshome/party/party_sister_6_<<rand(1,3)>>.mp4"></video></center>'
-			'Stopping a moment so you can both catch your breath, neither of you wants it to end, but you are both also desperate for release.'
-			'Anya smiles wickedly at you. "Well little sis, let''s see who eats pussy better and brings the other to orgasm first."'
-			'With those words, you simultaneously seek out each other''s crotch and start licking, sucking and using your fingers and tongue to fuck the other. You both start moaning and panting, close to your sweet releases.'
-			''
-			
-			gs 'arousal', 'vaginal_finger_give', 5, 'lesbian', 'incest'
-			gs 'arousal', 'vaginal_finger', 5, 'lesbian', 'incest'
-			gs 'arousal', 'cuni_give', -5, 'lesbian', 'incest'
-			gs 'arousal', 'cuni', 5, 'lesbian', 'incest'
-			gs 'stat'
-			
-			act 'Cum': gt 'rex_party_sister_events', 'cum'
-		else
-			if rand(1,2) = 1:
-				'<center><video autoplay loop src="images/locations/pavlovsk/resident/rekshome/party/party_sister_7_1.mp4"></video></center>'
-			else
-				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/party_sister_7_2.jpg"></center>'
-			end
-			if sister_party_dom = 2:'You let Anya know you also want to caress her pussy with your fingers.'
-			if sister_party_dom = 1:'Anya lets you know she also wants to caress your pussy with her fingers.'
-			'With delicate and skillful hands, you plunge your fingers into each other, at times pulling them out to lick and suck on them. Both of you moan and pant, close to your sweet releases.'
-			''
-			
-			gs 'arousal', 'vaginal_finger_give', 5, 'lesbian', 'incest'
-			gs 'arousal', 'vaginal_finger', 5, 'lesbian', 'incest'
-			gs 'arousal', 'cuni_give', -5, 'lesbian', 'incest'
-			gs 'arousal', 'cuni', 5, 'lesbian', 'incest'
-			gs 'stat'
-			
-			act 'Cum': gt 'rex_party_sister_events', 'cum'
-		end
-	end
-
-	act 'Move to scissoring':
-		*clr & cla
-		gs 'stat'
-		'<center><b><font color = maroon>Anya</font></b></center>'
-		'<center><video autoplay loop src="images/locations/pavlovsk/resident/rekshome/party/party_sister_8_<<rand(1,4)>>.mp4"></video></center>'
-		'Opening up your legs, you rub your wet pussies against one another in a slow motion, both moaning in pleasure as you look into each other''s eyes. You slowly pick up speed as you continue to grind your pussies against one another.'     
-		
-		gs 'arousal', 'trib', 5, 'lesbian', 'incest'
-		gs 'stat'
-		
-		act 'Cum': gt 'rex_party_sister_events', 'cum'
-	end
-end
-
-if $ARGS[0] = 'cum':     
-	*clr & cla
-	'<center><b><font color = maroon>Anya</font></b></center>'
-	'<center><video autoplay loop src="images/locations/pavlovsk/resident/rekshome/party/party_sister_9_<<rand(1,2)>>.mp4"></video></center>'
-	'Your bodies convulse and spasm at the same time as a pure wave of pleasure overwhelms you both. In time, both of you will claim the other came first, but for now, you are lost in the ecstasy of the moment.'
-	'"Oh <<$pcs_nickname>>, if you weren''t my sister, I would marry you," your sister mumbles.'
-	'Your warm, wet and limp bodies lie entangled in a moment of pure bliss before you fall asleep in each other''s arms.'    
-
-	$orgasm_or = 'yes'
-	gs 'arousal', 'vaginal_finger', 5
-	gs 'arousal', 'end'
-	gs 'stat'
-	
-	act 'Fall asleep': gt 'rex_party_events', 'sleep'
-end
-
-!!this is the party stuff from sisterQW file so we can keep all the party stuff in a single file. Not sure how we should merge it.
-!! party stuff is all under sisboyQW_party as arg 0
-if $ARGS[0] = 'sisboyQW_party':
-	sisterQW['partycount'] += 1
-	sisterQW['party'] = 2
-	if sisterQW['rexbday'] = 1: sisterQW['rexbday'] = 2
-	*clr & cla
-	minut += 15
-	gs 'stat'
-	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/sisboyqwparty_8.jpg"></center>'
-	*nl
-	'Once you burst into Rex''s house, the loud music immediately drowns out just about any other noise.'
-	'You help the guys lay out the table. They carry the drinks and you the snacks, but there is so much booze that it covers the table, leaving nowhere to put the snacks.'
-	'Everyone starts to thump in unison, dealing, laughing and telling funny stories.'
-	'You cheerfully ask Anya, "You won''t leave me alone at the party will you?"'
-	'Anya smiles and hands you a bottle of vodka. "Of course not <<$pcs_nickname>>."'
-	act 'Decline the drink':
-		*clr & cla
-		minut += 15
-		gs 'stat'
-		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/sisboyqwparty_9.jpg"></center>'
-		*nl
-		'You politely try to refuse the drink, but everyone watching has gathered round and started chanting, "Drink! Drink! Drink! Drink! Drink! Drink!"'
-		'Giving in to peer pressure, you take the bottle from Anya''s hand and gulp down a huge swig of vodka.'
-		act 'Go dance': gt 'rex_party_sister_events', 'dance'
-		act 'Drink': gt 'rex_party_sister_events', 'drink'
-		act 'Sit': gt 'rex_party_sister_events', 'sit'
-	end
-	act 'Accept the drink':
-		*clr & cla
-		minut += 15
-		gs 'drugs', 'alcohol', 'vodka'
-		gs 'stat'
-		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/sisboyqwparty_9.jpg"></center>'
-		*nl
-		'You take the bottle from her hand. "Well, let''s party!" you say and gulp down a huge swig of vodka.'
-		'Roma looks at Anya and smirks. "Look, <<$pcs_nickname>> is drinking more than you!" Everyone then begins to drink heavily.'
-		act 'Go dance': gt 'rex_party_sister_events', 'dance'
-		act 'Drink': gt 'rex_party_sister_events', 'drink'
-		act 'Sit': gt 'rex_party_sister_events', 'sit'
-	end
-	act 'Get up to dance':
-		*clr & cla
-		minut += 15
-		gs 'drugs', 'alcohol', 'vodka'
-		gs 'stat'
-		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/sisboyqwparty_9.jpg"></center>'
-		*nl
-		'Standing, you try to get out from behind the table to go dancing, but no one is actually dancing. They are all just sitting and drinking.'
-		'Seeing what you''re doing, Rex pulls you over. "Where are you going? It''s only the beginning! Hold the bottle and let''s drink, otherwise I will be offended."'
-		'You can''t deny the ' + iif(sisterQW['rexbday'] = 2, 'birthday boy', 'host of the party') + ', so you take the bottle from his hand and gulp down a huge shot, feeling it burn down your throat. You hear others shouting in encouragement.'
-		act 'Go dance': gt 'rex_party_sister_events', 'dance'
-		act 'Drink': gt 'rex_party_sister_events', 'drink'
-		act 'Sit': gt 'rex_party_sister_events', 'sit'
-	end
-end
-
-if $ARGS[0] = 'dance':
-	*clr & cla
-	minut += 15
-	pcs_horny += 10
-	gs 'stat'
-	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/sisboyqwparty_10.jpg"></center>'
-	*nl
-	'You drunkenly stumble around to go and dance.'
-	'You do not need to be persuaded. You are on the same wavelength with everyone else and pull your top off, dancing in your bra.'
-	'The boys carry on dancing, jumping and bumping into each other. Even though you are almost half-naked, it seems like no one is paying any attention to you.'
-	'Anya approaches you. "Cheer up <<$pcs_nickname>>! Go get in the center and have fun dancing, among other things..."'
-	act 'Drink':
-		*clr & cla
-		minut += 10
-		gs 'drugs', 'alcohol', 'whiskey'
-		gs 'stat'
-		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/sisboyqwparty_13.jpg"></center>'
-		*nl
-		'You want to drink again and again. The boys quickly give you two bottles of whiskey, and without any hesitation, you start to pour both of them into your mouth. The whiskey spills out of your mouth as you are unable to drink it all fast enough. It pours all down your body.'
-		'Your clothes are soaked in alcohol, and everyone can see your nipples poking through your wet bra.'
-		'Two guys, mad with energy, begin to dance around you, persistently lapping at the booze on your body.'
-		act 'Dance with them': gt 'rex_party_sister_events', 'two_boy'
-	end
-	act 'Keep dancing':
-		*clr & cla
-		'<center><video autoplay loop src="images/locations/pavlovsk/resident/rekshome/party/sisboyqwparty_18.mp4"></video></center>'
-		*nl
-		'You''re drunk, but still able to control yourself. You want to continue dancing.'
-		'Your erotic movements have attracted the attention of many guys, and two of them approach.'
-		gs 'arousal', 'foreplay', 10
-		gs 'stat'
-!! This should have a way to back out, but where to?
-		if sisterQW['rexbday'] = 2: act 'Congratulate Rex personally': gt 'rex_party_sister_events', 'reks'
-		if sisterQW['AnyaRomaQW'] = 0: act 'Look for Anya': gt 'rex_party_sister_events', 'anya_find'
-		act 'Dance with them': gt 'rex_party_sister_events', 'two_boy'
-	end
-	if sisterQW['rexbday'] = 2:
-		act 'Congratulate Rex personally': gt 'rex_party_sister_events', 'reks'
-	end
-end
-
-if $ARGS[0] = 'anya_find':
-	*clr & cla
-	minut += 5
-	gs 'stat'
-	'You look for your sister but can''t find her. "Where the hell did she go?" You look everywhere in desperation.'
-	act 'Look in the bathroom': gt 'rex_party_sister_events', 'anya_toilet'
-	act 'Look in the kitchen': gt 'rex_party_sister_events', 'anya_kit'
-	act 'Look in the bedroom': gt 'rex_party_sister_events', 'anya_bed'
-end
-
-if $ARGS[0] = 'anya_kit':
-	*clr & cla
-	minut += 5
-	$locclass = 'kitr'
-	sisterQW['AnyaRomaQW'] = 1
-	gs 'stat'
-	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/sisboyqwparty_24.jpg"></center>'
-	*nl
-	'You walk into the kitchen and look around for your sister. You see two drunk girls having fun in the corner of the room, but neither of them know where your sister is. Suddenly, you hear heavy breathing behind you.'
-	act 'Turn around':
-		*clr & cla
-		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/sisboyqwparty_25.jpg"></center>'
-		*nl
-		'Turning around, you find Anya completely naked, drinking from a bottle with tears running down her face while looking at Roma. "Well it''s over between us. Go to hell dog!"'
-		'Roma doesn''t say anything in response, and Anya turns and runs away in tears. You glare at him for a few few moments, then rush after her.'
-		gs 'arousal', 'erotic_nudity', 5, 'incest'
-		gs 'stat'
-		act 'Chase Anya':
-			*clr & cla
-			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/sisboyqwparty_26.jpg"></center>'
-			*nl
-			'It takes you a while to find Anya again, but you eventually find her on her knees in front of two unfamiliar guys. "What are you doing? Stop and think about this!" you plead to your sister.'
-			'Anya keeps drunkenly sucking the guys off, and they turn to look at you. "Come and join us or get the fuck out."'
-			gs 'arousal', 'voyeur_sex', 5
-			gs 'stat'
-			act 'Wait':
-				*clr & cla
-				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/sisboyqwparty_27.jpg"></center>'
-				*nl
-				'You decide not to argue with them, afraid of what they might do and wait.'
-				'The guys push Anya down on her stomach. One kneels down in front of her and sticks his cock back in her mouth, while the other kneels down behind her, shoves his dick in her ass and begins to fuck her hard.'
-				'Turning to look at you again, one of the guys leers and pats the floor next to Anya. "Come over here and join us if you''re so worried about her. Then we will take turns fucking you both in the ass."'
-				gs 'arousal', 'voyeur_sex', 10
-				gs 'stat'
-				if hour < 22:
-					minut += ((21 - hour) * 60) + (60 - minut)
-					act 'Leave': gs 'arousal', 'end' & gt 'bedrPar'
-				else
-					act 'Leave': minut += 15 & gs 'arousal', 'end' & gt 'bedrPar'
-				end
-				act 'Join':
-					*clr & cla
-					sisterknowslut = 2
-					gs 'npcgeneratec', 0, 'Boy from Rex''s Party', 17
-					gs 'boyStat', $npclastgenerated
-
-					gs 'npcgeneratec', 0, 'Boy from Rex''s Party', 17
-					gs 'boyStat', $npclastgenerated, 'a'
-					spafinloc = 3
-					gs 'cum_manage'
-					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/sisboyqwparty_28.jpg"></center>'
-					*nl
-					'You frown upon seeing your sister being used like this, but maybe it would be better for her if you let them use you too so she wouldn''t be the sole object of their lust? "OK, who wants to fuck me first?" you say as you walk over and take your clothes off.'
-					'The one that had been talking to you and fucking your sister''s mouth pulls away from her and shoves you down on your hands and knees. Without waiting, he shoves his cock in your ass and begins to furiously fuck you.'
-					'Your hands tighten as you grimace in pain, trying to think about anything but the pain of having your ass torn up.'
-					'This goes on for some time, though the boys do switch places from time to time, taking turns fucking you and Anya in the ass. Finally, and mercifully, they cum inside of both of you. After they are finished, they laugh and leave the room.'
-					'You gather your clothes up and get dressed. You then help Anya get dressed and help her home.'
-					gs 'arousal', 'anal', 10, 'rough', 'sub', 'group', 'unknown'
-					gs 'stat'
-					if hour < 22:
-						minut += ((21 - hour) * 60) + (60 - minut)
-						gs 'arousal', 'end'
-						act 'Leave': gt 'bedrPar'
-					else
-						gs 'arousal', 'end'
-						act 'Leave': minut += 15 & gt 'bedrPar'
-					end
-				end
-			end
-		end
-	end
-end
-
-if $ARGS[0] = 'anya_toilet':
-	*clr & cla
-	minut += 5
-	gs 'stat'
-	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/sisboyqwparty_22.jpg"></center>'
-	*nl
-	'You walk into the bathroom and find some guy pushing some poor girl''s head into the toilet. Thankfully, it isn''t Anya, and not wanting to get involved any further, you leave.'
-	act 'Look in the kitchen': gt 'rex_party_sister_events', 'anya_kit'
-	act 'Look in the bedroom': gt 'rex_party_sister_events', 'anya_bed'
-end
-
-if $ARGS[0] = 'anya_bed':
-	*clr & cla
-	minut += 5
-	pcs_horny += 5
-	gs 'stat'
-	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/sisboyqwparty_23.jpg"></center>'
-	*nl
-	'In the bedroom, you see two guys jerking off onto the face of some poor unconscious girl as one of them says to the other, "Let''s get the fuck out of here before she wakes up. I don''t want to deal with her ex-boyfriend. He''s one of the boxers."'
-	'Anya isn''t here, so you keep searching.'
-	act 'Look in the bathroom': gt 'rex_party_sister_events', 'anya_toilet'
-	act 'Look in the kitchen': gt 'rex_party_sister_events', 'anya_kit'
-end
-
-if $ARGS[0] = 'reks':
-	*clr & cla
-	minut += 5
-	gs 'drugs', 'alcohol', 'champagne'
-	gs 'stat'
-	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/sisboyqwparty_19.jpg"></center>'
-	*nl
-	'"Hey girl! Damn, you''ve been having fun. Oh yeah, you''re Anya''s little sister, right? I know she''s... That''s odd, I haven''t seen her. Although I have been drinking bubbly all day. Here, drink up!"'
-	'He starts pouring the sweet champagne down your throat. He''s so drunk that he pours it too fast, and as much as you try to keep up, a lot of it spills on you and the floor.
-	 Then, without a word, Rex just staggers off.'
-	act 'Look for Anya': gt 'rex_party_sister_events', 'anya_find'
-	act 'Follow Rex to the toilet for birthday sex':
-		*clr & cla
-		toiletRexSex = 1
-		gs 'stat'
-		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/sisboyqwparty_20.jpg"></center>'
-		*nl
-		'You go to the bathroom, only to find Rex already there, having just finished taking a piss with his dick still out in his hand. "Oh <<$pcs_nickname>>, you again? I''m here already..."'
-		'Stopping him mid-sentence, you push him down onto the toilet and pull his hand away from his cock. You start undressing and watch his cock stiffen as he stares at your naked body. You climb on and straddle him. Lowering yourself onto his cock, you feel it slide into your wet pussy. "Happy birthday," you whisper in his ear.'
-		'"Fucking hell," he mumbles as you ride him.'
-		gs 'arousal', 'vaginal', 5, 'sub'
-		gs 'stat'
-		act 'Doggystyle':
-			*clr & cla
-			rexSex = 1
-			gs 'boyStat', 'A57'
-			sexpartkno = 1
-			gs 'cum_manage'
-			'<center><video autoplay loop src="images/locations/pavlovsk/resident/rekshome/party/sisboyqwparty_21.mp4"></video></center>'
-			*nl
-			'Rex growls as he grabs you and lifts you off him. He gets up, bends you over and plunges his dick right back into your pussy, beginning to furiously fuck you balls deep.'
-			'"Not so fast, not so deep," you beg him. However, the pain of his frantic balls deep fucking soon gives way to waves of deep pleasure as he keeps pounding you.'
-			'With a final grunt, he shoots his load deep inside your pussy. "Wow <<$pcs_nickname>>, you are hotter than your sister!" He then zips his pants and leaves you alone in the bathroom.'
-			gs 'arousal', 'vaginal', 5, 'sub', 'rough'
-			gs 'stat'
-			act 'Look for Anya': gt 'rex_party_sister_events', 'anya_find'
-		end
-	end
-end
-
-if $ARGS[0] = 'two_boy':
-	*clr & cla
-	gs 'stat'
-	'<center><video autoplay loop src="images/locations/pavlovsk/resident/rekshome/party/sisboyqwparty_14.mp4"></video></center>'
-	*nl
-	'They rub your body, grab your boobs and squeeze your ass. Under the influence of alcohol, you really like it and just enjoy the moment.'
-	'Seeing that you aren''t resisting, they pull you into the next room.'
-	gs 'arousal', 'foreplay', 5, 'sub', 'group', 'unknown'
-	gs 'stat'
-	act 'Go':
-		*clr & cla
-		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/sisboyqwparty_15.jpg"></center>'
-		*nl
-		'As you enter the room, they push you down on the bed and pull out their cocks.'
-		'In a drunken fog, you try to grab one, then the other, but you are so drunk that the room is spinning.'
-		'One of the guys starts licking your pussy, and you can hear yourself moaning in passion.'
-		gs 'arousal', 'cuni', 5, 'sub', 'group', 'unknown'
-		gs 'stat'
-		act 'Doggystyle':
-			*clr & cla
-			gs 'npcgeneratec', 0, 'unknown guy', rand(18,40)
-			$boy1[1] = $npclastgenerated
-			gs 'npcgeneratec', 0, 'unknown guy', rand(18,40)
-			$boy1[2] = $npclastgenerated
-			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/sisboyqwparty_16.jpg"></center>'
-			*nl
-			'They lift you up onto your knees. Their hands help hold you steady as one of them slides his dick into your pussy and the other shoves his cock in your mouth.'
-			'The guys start laughing, obviously having fun fucking you as they talk and joke to each other. "She looks a bit young. I think she might be Anya''s little sister."'
-			'"Fuck, I think you''re right. She''s a sweet little thing, but I don''t fuck schoolgirls. I''ll trade you."'
-			gs 'arousal', 'vaginal', 5, 'sub', 'group', 'unknown'
-			gs 'arousal', 'bj', 5, 'sub', 'group', 'unknown'
-			minut -= 5
-			gs 'stat'
-			act 'Switch':
-				*clr & cla
-				gs 'boyStat', $boy1[2]
-				cumprecheck = 1
-				gs 'cum_manage'
-				sexpartkno = 0
-				spafinloc = 11
-				gs 'cum_manage'
-				swallow += 1
-				gs 'boyStat', $boy1[1]
-				cumprecheck = 1
-				gs 'cum_manage'
-				sexpartkno = 0
-				spafinloc = 4
-				gs 'cum_manage'
-				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/sisboyqwparty_17.jpg"></center>'
-				*nl
-				'The guys switch places and continue to rhythmically fuck you. After they have fucked you for a while, you somewhat come to your senses. "Oh yeah, wake up bitch! Suck and fuck us harder."'
-				'Still mostly out of it, you obey and begin to suck harder until he starts to cum. He pulls out of your mouth and splatters your entire face in his cum. The second guy cums quickly too, pulling out of your pussy and covering your ass with his cum.'
-				'After spending some time cleaning yourself up, you decide to go and find your sister.'
-				gs 'arousal', 'vaginal', 5, 'sub', 'group', 'unknown'
-				gs 'arousal', 'bj', 5, 'sub', 'group', 'unknown'
-				gs 'arousal', 'end'
-				minut -= 5
-				gs 'stat'
-				act 'Look For Anya': gt 'rex_party_sister_events', 'anya_find'
-			end
-		end
-	end
-end
-
-if $ARGS[0] = 'drink':
-	*clr & cla
-	minut += 10
-	gs 'drugs', 'alcohol', 'vodka'
-	gs 'stat'
-	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/sisboyqwparty_11.jpg"></center>'
-	*nl
-	'Everyone undresses to the waist and goes into the hall to dance. "Come dance <<$pcs_nickname>>, you don''t want to be left alone," Anya calls out to you.'
-	'Not now Anya. I want to drink some more first," you reply, but not taking no for an answer, Anya drags you out to dance with her and her friends.'
-	act 'Go dance': gt 'rex_party_sister_events', 'dance'
-end
-
-if $ARGS[0] = 'sit':
-	*clr & cla
-	minut += 10
-	gs 'stat'
-	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/rekshome/party/sisboyqwparty_12.jpg"></center>'
-	*nl
-	'You are starting to feel a little dizzy after drinking so much and so sit down for a while. Anya and her friends then approach you. "<<$pcs_nickname>>? Why are you just sitting there? Come dance with us." Not taking no for an answer, Anya drags you out to dance with her and her friends.'
-	act 'Go dance': gt 'rex_party_sister_events', 'dance'
-end
-
---- rex_party_sister_events ---------------------------------
-

locations/unused/statBat.qsrc

@@ -1,22 +0,0 @@
-# statBat
-clr
-! WD: Uninitialised Vars
-if tobiPic = 1:pl '<center><img <<$set_imgh>> src="images/characters/city/tobi/tobi.jpg"></center>'
-if kisamePic = 1:pl '<center><img <<$set_imgh>> src="images/characters/city/kisame/kisame.jpg"></center>'
-if sasoriPic = 1:pl '<center><img <<$set_imgh>> src="images/characters/city/sasori/sasori.jpg"></center>'
-if konanPic = 1:pl '<center><img <<$set_imgh>> src="images/characters/city/konan/konan.jpg"></center>'
-if kakuzuPic = 1:pl '<center><img <<$set_imgh>> src="images/characters/city/kakuzu/kakuzu.jpg"></center>'
-if hidanPic = 1:pl '<center><img <<$set_imgh>> src="images/characters/city/hidan/hidan.jpg"></center>'
-if itachiPic = 1:pl '<center><img <<$set_imgh>> src="images/characters/city/itachi/itachi.jpg"></center>'
-if deidaraPic = 1:pl '<center><img <<$set_imgh>> src="images/characters/city/deidara/deidara.jpg"></center>'
-if zetsuPic = 1:pl '<center><img <<$set_imgh>> src="images/characters/city/zetsu/zetsu.jpg"></center>'
-if orotimaruPic = 1:pl '<center><img <<$set_imgh>> src="images/characters/city/orotimaru/orotimaru.jpg"></center>'
-if painPic = 1:pl '<center><img <<$set_imgh>> src="images/characters/city/orotimaru/pain.jpg"></center>'
-if pain2Pic = 1:pl '<center><img <<$set_imgh>> src="images/characters/city/orotimaru/pain2.jpg"></center>'
-if pain3Pic = 1:pl '<center><img <<$set_imgh>> src="images/characters/city/orotimaru/pain3.jpg"></center>'
-if pain4Pic = 1:pl '<center><img <<$set_imgh>> src="images/characters/city/orotimaru/pain4.jpg"></center>'
-if pain5Pic = 1:pl '<center><img <<$set_imgh>> src="images/characters/city/orotimaru/pain5.jpg"></center>'
-if pain6Pic = 1:pl '<center><img <<$set_imgh>> src="images/characters/city/orotimaru/pain6.jpg"></center>'
-
---- statBat ---------------------------------
-

locations/unused/virginity_call.qsrc

@@ -1,588 +0,0 @@
-# virginity_call
-
-!{ 	This is to keep track of how the main character loses her virginity. It can store a different set of details for vaginal, anal and oral.
-	It creates messages that can serve as responses when talking about Sveta''s virginity
-	
-	Details it keeps track of:
-		- Type of virginity
-		- Name or description of who takes her virginity
-		- Wether of not Sveta knows this person or persons
-		- If she was forced or not
-		- Rough or gentle
-		- What state Sveta was in at the time
-		- Where it happened
-		- What object was used (Leave blank if it''s a dick!)
-
-$ARGS[0] 'vaginal', 'anal' or 'oral'
-$ARGS[1] is for the name of the sexual partner or description
-$ARGS[2] 'unknown', 'known' or 'unaware'
-$ARGS[3] 'rape', 'consensual' or 'self'
-$ARGS[4] 'gentle', 'rough' or 'unknown'
-$ARGS[5] 'sober', 'tipsy', 'verydrunk', 'hornyfromdrugs' or 'unabletomove'
-$ARGS[6] location description of where it happened. this should always start with 'in ...' for the automated messages
-$ARGS[7] object used in case you did it yourself (my dildo, a cucumber, a magically conjured horsecock)
-
-firstvagmsg1, firstvagmsg2, firstvagmsg3, firstanalmsg1, firstanalmsg2, firstanalmsg3, firstoralmsg1, firstoralmsg2, firstoralmsg3 are the generated responses.
-msg1 includes age, partner, location and object if applicable
-msg2 includes roughness
-msg3 includes state
-
-Examples:
-gs 'virginity_call', 'anal', 'Kolka', 'known', 'consensual', 'gentle', 'tipsy', 'in my room', ''
-gs 'virginity_call', 'vaginal', 'some guys', 'unknown', 'rape', 'rough', 'unabletomove', 'in their hotel room', 'various toys'
-gs 'virginity_call', 'anal', 'unknown', 'unaware', 'rape', 'rough', 'sober', 'in a hotel room', ''
-}
-
-! This should only update if Sveta has vaginal, anal or oral sex for the first time. I check this by using firstvag, firstanal and firstoral variables.
-
-if ($ARGS[0] = 'vaginal' and firstvag ! 1) or ($ARGS[0] = 'anal' and firstanal ! 1) or ($ARGS[0] = 'oral' and firstoral ! 1):
-	
-	! Storing all parameters
-	
-	if $ARGS[0] = 'vaginal':
-		firstvag = 1
-		firstvagage = age
-		$firstvagwho = $ARGS[1]
-		$firstvagpart = $ARGS[2]
-		$firstvagconsent = $ARGS[3]
-		$firstvagrough = $ARGS[4]
-		$firstvagstate = $ARGS[5]
-		$firstvagloc = $ARGS[6]
-		$firstvagobj = $ARGS[7]
-	elseif $ARGS[0] = 'anal':
-		firstanal = 1
-		firstanalage = age
-		$firstanalwho = $ARGS[1]
-		$firstanalpart = $ARGS[2]
-		$firstanalconsent = $ARGS[3]
-		$firstanalrough = $ARGS[4]
-		$firstanalstate = $ARGS[5]
-		$firstanalloc = $ARGS[6]
-		$firstanalobj = $ARGS[7]
-	elseif $ARGS[0] = 'oral':
-		firstoral = 1
-		firstoralage = age
-		$firstoralwho = $ARGS[1]
-		$firstoralpart = $ARGS[2]
-		$firstoralconsent = $ARGS[3]
-		$firstoralrough = $ARGS[4]
-		$firstoralstate = $ARGS[5]
-		$firstoralloc = $ARGS[6]
-		$firstoralobj = $ARGS[7]
-	end
-	
-	! This will construct a default message in which Sveta explains how she lost her virginity
-
-	if $ARGS[2] = 'unaware':
-		if $ARGS[0] = 'vaginal':
-			if $firstvagrough = 'gentle':
-				$firstvagmsg1 = '"I-I was raped when I was <<firstvagage>>. I woke up <<$firstvagloc>>, and my pussy hurt, so I went to have a checkup, and the gynaecologist told me I wasn''t a virgin."'
-			elseif firstvagrough = 'rough':
-				$firstvagmsg1 = '"I-I was raped when I was <<firstvagage>>. I woke up <<$firstvagloc>>, and my pussy felt like it was on fire, so I went to have a checkup, and the gynaecologist told me I wasn''t a virgin."'
-			elseif $firstvagrough = 'unknown':
-				$firstvagmsg1 = '"I-I was raped when I was <<firstvagage>>. I woke up <<$firstvagloc>>, and my pussy hurt a lot, so I went to have a checkup, and the gynaecologist told me I wasn''t a virgin."'
-			end
-			$firstvagmsg2 = '"I broke down crying right there in his office. It''s just so... so creepy... and wrong!"'
-			if $firstvagstate = 'sober' or $firstvagstate = 'tipsy':
-				$firstvagmsg3 = '"What scares me the most is that I don''t know how it could have happened. I didn''t drink or eat anything funny."'
-			elseif $firstvagstate = 'verydrunk':
-				$firstvagmsg3 = '"I sometimes wonder if it would have gone differently if I hadn''t been so drunk. Maybe..."'
-			end
-		elseif $ARGS[0] = 'anal':
-			if $firstanalrough = 'gentle':
-				$firstanalmsg1 = '"I-I was raped when I was <<firstanalage>>. I woke up <<$firstanalloc>>, and my ass hurt, so I went to have a checkup, and the gynaecologist told me it was because of anal sex. He even tried giving me advice on lubricants."'
-			elseif firstanalrough = 'rough':
-				$firstanalmsg1 = '"I-I was raped when I was <<firstanalage>>. I woke up <<$firstanalloc>> and my ass felt like it was on fire, so I went to have a checkup, and the gynaecologyst told me it was because of anal sex. He showed me his bloody fingertip and tried giving me advice on lubricants."'
-			elseif $firstanalrough = 'unknown':
-				$firstanalmsg1 = '"I-I was raped when I was <<firstanalage>>. I woke up <<$firstanalloc>>, and my ass hurt a lot, so I went to have a checkup, and the gynaecologist told me I wasn''t a virgin. He even tried giving me advice on lubricants."'
-			end
-			$firstanalmsg2 = '"I broke down crying right there in his office. It''s just so... so creepy... and wrong!"'
-			if $firstanalstate = 'sober' or $firstanalstate = 'tipsy':
-				$firstanalmsg3 = '"What scares me the most is that I don''t know how it could have happened. I didn''t drink or eat anything funny."'
-			elseif $firstanalstate = 'verydrunk':
-				$firstanalmsg3 = '"I sometimes wonder if it would have gone differently if I hadn''t been so drunk. Maybe..."'
-			end
-		elseif $ARGS[0] = 'oral':
-			if $firstoralrough = 'gentle':
-				$firstoralmsg1 = '"I-I think I was raped when I was <<firstoralage>>. I woke up <<$firstoralloc>>, and my throat hurt, so I went to have a checkup, and the doctor told me I had a bruised throat. He gently tried to tell me I should be careful when taking a penis in my throat."'
-			elseif firstoralrough = 'rough':
-				$firstoralmsg1 = '"I-I think I was raped when I was <<firstoralage>>. I woke up <<$firstoralloc>>, and my throat felt like it was on fire, so I went to have a checkup, and the doctor told me I had a badly bruised throat. He tried to tell me I should practice before letting someone fuck my throat."'
-			elseif $firstoralrough = 'unknown':
-				$firstoralmsg1 = '"I-I think I was raped when I was <<firstoralage>>. I woke up <<$firstoralloc>>, and my throat hurt a lot, so I went to have a checkup, and the doctor told me I had a bruised throat. He gently tried to tell me I should be careful when taking a penis in my throat."'
-			end
-			$firstoralmsg2 = '"I broke down crying right there in his office. It''s just so... so creepy... and wrong!"'
-			if $firstoralstate = 'sober' or $firstoralstate = 'tipsy':
-				$firstoralmsg3 = '"What scares me the most is that I don''t know how it could have happened. I didn''t drink or eat anything funny."'
-			elseif $firstoralstate = 'verydrunk':
-				$firstoralmsg3 = '"I sometimes wonder if it would have gone differently if I hadn''t been so drunk. Maybe..."'
-			end
-		end
-	elseif $ARGS[2] ! 'unaware':
-		if $ARGS[0] = 'vaginal':
-			! Building auto responses in case it was rape
-			if $firstvagconsent = 'rape':
-				if $firstvagobj = '':
-					$firstvagmsg1 = '"I-I was raped when I was <<firstvagage>> by <<$firstvagwho>>. It all happened <<$firstvagloc>>."'
-				else
-					$firstvagmsg1 = '"I-I was raped when I was <<firstvagage>> by <<$firstvagwho>>. It happened with <<$firstvagobj>> <<$firstvagloc>>."'
-				end
-				if $firstvagrough = 'gentle':
-					$firstvagmsg2 = '"It hurt when my hymen broke, but I guess I should be thankful I wasn''t just used the second my pussy was bared. I-I was played with to prepare me first."'
-				elseif $firstvagrough = 'rough':
-					$firstvagmsg2 = '"It was so painful. As soon as my pussy was bared, I was used roughly."'
-				elseif $firstvagrough = 'unknown':
-					$firstvagmsg2 = '"To be honest, I don''t really know how it felt at the time. I mostly just remember feeling discomfort after it was over. When I... got back to my senses."'
-				end
-				if $firstvagstate = 'sober' or $firstvagstate = 'tipsy':
-					$firstvagmsg3 = '"Sometimes I wish I had been passed out drunk at the time. Because now I have to relive it in full detail from time to time in my nightmares."'
-				elseif $firstvagstate = 'verydrunk':
-					$firstvagmsg3 = '"I sometimes wonder if it would have gone differently if I hadn''t been so drunk. Maybe..."'
-				elseif $firstvagstate = 'hornyfromdrugs':
-					$firstvagmsg3 = '"I guess I should count myself lucky that I was so horny from the drugs that I just couldn''t really care about it while it happened."'
-				elseif $firstvagstate = 'unabletomove':
-					$firstvagmsg3 = '"It was horrible. I wasn''t able to lift a finger but I felt every second of it as it happened. It would have been better if I had been unconscious because now I have to relive it in full detail from time to time in my nightmares."'
-				end
-			! Building auto responses in case it was consensual
-			elseif $firstvagconsent = 'consensual':
-				if $firstvagobj = '':
-					$firstvagmsg1 = '"I lost my virginity when I was <<firstvagage>>. It was <<$firstvagwho>> who claimed my first time. It all happened <<$firstvagloc>>."'
-				else
-					$firstvagmsg1 = '"I lost my virginity when I was <<firstvagage>>. It was <<$firstvagwho>> who claimed my first time. It all happened <<$firstvagloc>> with <<$firstvagobj>>."'
-				end
-				if $firstvagrough = 'gentle':
-					$firstvagmsg2 = '"It hurt a bit when my hymen broke, but soon after, it felt good. I was soaking wet at the time."'
-				elseif $firstvagrough = 'rough':
-					$firstvagmsg2 = '"It was so painful. As soon as my pussy was bared, I was used roughly."'
-				elseif $firstvagrough = 'unknown':
-					$firstvagmsg2 = '"To be honest, I don''t really know how it felt at the time. I mostly just remember feeling discomfort after it was over. When I... got back to my senses."'
-				end
-				if $firstvagstate = 'sober' or $firstvagstate = 'tipsy':
-					$firstvagmsg3 = '"It''s good that I wasn''t out of it or anything. I wouldn''t want to be unable to remember my first time."'
-				elseif $firstvagstate = 'verydrunk':
-					$firstvagmsg3 = '"I sometimes wonder if it would have gone differently if I hadn''t been so drunk. Maybe..."'
-				elseif $firstvagstate = 'hornyfromdrugs':
-					$firstvagmsg3 = '"At the time, I was so horny from the drugs that I just couldn''t really do anything but go on."'
-				! I added this message even though it is unlikely that Sveta would agree to sex and take a daterape drug at the same time
-				elseif $firstvagstate = 'unabletomove':
-					$firstvagmsg3 = '"It was very uncomfortable. I wasn''t able to lift a finger, but I felt every second of it as it happened. Thinking about it still makes me a bit uneasy."'
-				end
-			! Building auto responses in case Sveta did it herself
-			elseif $firstvagconsent = 'self':
-				$firstvagmsg1 = '"I broke my own hymen when I was <<firstvagage>>. I did it <<$firstvagloc>> with <<$firstvagobj>>."'
-				if $firstvagrough = 'gentle':
-					$firstvagmsg2 = 'It hurt a bit when I broke my hymen, but soon after, it felt good. I was soaking wet at the time.'
-				elseif $firstvagrough = 'rough':
-					$firstvagmsg2 = 'It was so painful I almost had to stop completely. I was too worked up and just shoved it in. Take it from me, that''s not the way for a girl to lose her virginity.'
-				elseif $firstvagrough = 'unknown':
-					$firstvagmsg2 = 'To be honest, I don''t really know how it felt at the time. I mostly just remember feeling discomfort after it was over. When I... got back to my senses.'
-				end
-				if $firstvagstate = 'sober' or $firstvagstate = 'tipsy':
-					$firstvagmsg3 = '"It''s good that I wasn''t out of it or anything. I wouldn''t want to be unable to remember popping my own cherry."'
-				elseif $firstvagstate = 'verydrunk':
-					$firstvagmsg3 = '"I sometimes wonder if it would have gone differently if I hadn''t been so drunk. Maybe..."'
-				elseif $firstvagstate = 'hornyfromdrugs':
-					$firstvagmsg3 = '"At the time I was so horny from the drugs that I just couldn''t really do anything but go on."'
-				end
-			end
-		elseif $ARGS[0] = 'anal':
-			if $firstanalconsent = 'rape':
-				if $firstanalobj = '':
-					$firstanalmsg1 = '"I-I was raped when I was <<firstanalage>> by <<$firstanalwho>> <<$firstanalloc>>."'
-				else
-					$firstanalmsg1 = '"I-I was raped when I was <<firstanalage>> by <<$firstanalwho>> <<$firstanalloc>>. It happened with <<$firstanalobj>>."'
-				end
-				if $firstanalrough = 'gentle':
-					$firstanalmsg2 = '"It hurt when it happened, but I guess I should be thankful I wasn''t just used the second my ass was bared. I-I was played with to prepare me first."'
-				elseif $firstanalrough = 'rough':
-					$firstanalmsg2 = '"It was so painful. As soon as my ass was bared, I was used roughly."'
-				elseif $firstanalrough = 'unknown':
-					$firstanalmsg2 = '"To be honest, I don''t really know how it felt at the time. I mostly just remember feeling discomfort after it was over. When I... got back to my senses."'
-				end
-				if $firstanalstate = 'sober' or $firstanalstate = 'tipsy':
-					$firstanalmsg3 = '"Sometimes I wish I had been passed out drunk at the time. Because now I have to relive it in full detail from time to time in my nightmares."'
-				elseif $firstanalstate = 'verydrunk':
-					$firstanalmsg3 = '"I sometimes wonder if it would have gone differently if I hadn''t been so drunk. Maybe..."'
-				elseif $firstanalstate = 'hornyfromdrugs':
-					$firstanalmsg3 = '"I guess I should count myself lucky that I was so horny from the drugs that I just couldn''t really care about it while it happened."'
-				elseif $firstanalstate = 'unabletomove':
-					$firstanalmsg3 = '"It was horrible. I wasn''t able to lift a finger but I felt every second of it as it happened. It would have been better if I had been unconscious because now I have to relive it in full detail from time to time in my nightmares."'
-				end
-			elseif $firstanalconsent = 'consensual':
-				if $firstanalobj = '':
-					$firstanalmsg1 = '"I lost my anal virginity when I was <<firstanalage>>. It was <<$firstanalwho>> who claimed my first time. It all happened <<$firstanalloc>>."'
-				else
-					$firstanalmsg1 = '"I lost my anal virginity when I was <<firstanalage>>. It was <<$firstanalwho>> who claimed my first time. It all happened <<$firstanalloc>> with <<$firstanalobj>>."'
-				end
-				if $firstanalrough = 'gentle':
-					$firstanalmsg2 = '"It hurt a bit at first, but soon after, it felt good. I was soaking wet at the time."'
-				elseif $firstanalrough = 'rough':
-					$firstanalmsg2 = '"It was so painful. As soon as my ass was bared, I was used roughly."'
-				elseif $firstanalrough = 'unknown':
-					$firstanalmsg2 = '"To be honest, I don''t really know how it felt at the time. I mostly just remember feeling discomfort after it was over. When I... got back to my senses."'
-				end
-				if $firstanalstate = 'sober' or $firstanalstate = 'tipsy':
-					$firstanalmsg3 = '"It''s good that I wasn''t out of it or anything. I wouldn''t want to be unable to remember my first time having anal sex."'
-				elseif $firstanalstate = 'verydrunk':
-					$firstanalmsg3 = '"I sometimes wonder if it would have gone differently if I hadn''t been so drunk. Maybe..."'
-				elseif $firstanalstate = 'hornyfromdrugs':
-					$firstanalmsg3 = '"At the time, I was so horny from the drugs that I just couldn''t really do anything but go on."'
-				! I added this message even though it is unlikely that Sveta would agree to sex and take a daterape drug at the same time
-				elseif $firstanalstate = 'unabletomove':
-					$firstanalmsg3 = '"It was very uncomfortable. I wasn''t able to lift a finger, but I felt every second of it as it happened. Thinking about it still makes me a bit uneasy."'
-				end
-			elseif $firstanalconsent = 'self':
-				$firstanalmsg1 = '"I first started exploring my ass when I was <<firstanalage>>. I did it <<$firstanalloc>> with <<$firstanalobj>>."'
-				if $firstanalrough = 'gentle':
-					$firstanalmsg2 = 'It hurt a bit when I forced the <<$fistanalobj>> in, but soon after, it felt good. I was soaking wet at the time.'
-				elseif $firstanalrough = 'rough':
-					$firstanalmsg2 = 'It was so painful I almost had to stop completely. I was too worked up and just shoved it in. Take it from me, that''s not the way for a girl to play with her ass the first time.'
-				elseif $firstanalrough = 'unknown':
-					$firstanalmsg2 = 'To be honest, I don''t really know how it felt at the time. I mostly just remember feeling discomfort after it was over. When I... got back to my senses.'
-				end
-				if $firstanalstate = 'sober' or $firstanalstate = 'tipsy':
-					$firstanalmsg3 = '"It''s good that I wasn''t out of it or anything. I wouldn''t want to be unable to remember popping my own anal cherry."'
-				elseif $firstanalstate = 'verydrunk':
-					$firstanalmsg3 = '"I sometimes wonder if it would have gone differently if I hadn''t been so drunk. Maybe..."'
-				elseif $firstanalstate = 'hornyfromdrugs':
-					$firstanalmsg3 = '"At the time I was so horny from the drugs that I just couldn''t really do anything but go on."'
-				end
-			end
-		elseif $ARGS[0] = 'oral':
-			if $firstoralconsent = 'rape':
-				if $firstoralobj = '':
-					$firstoralmsg1 = '"I-I was raped when I was <<firstoralage>> by <<$firstoralwho>> <<$firstoralloc>>."'
-				else
-					$firstoralmsg1 = '"I-I was raped when I was <<firstoralage>> by <<$firstoralwho>> <<$firstoralloc>>. It all happened with <<$firstanalobj>>."'
-				end
-				if $firstoralrough = 'gentle':
-					$firstoralmsg2 = '"It was humiliating. First, I had to lick it. When that wasn''t enough, I had to suck. Eventually, I even had to take it in my throat. I almost puked then."'
-				elseif $firstoralrough = 'rough':
-					$firstoralmsg2 = '"It was so painful. As soon as my mouth was forced open, I was throatfucked roughly. I was very close to throwing up several times. The only way I kept it down was the fact that I knew it would get only worse if I actually threw up."'
-				elseif $firstoralrough = 'unknown':
-					$firstoralmsg2 = '"To be honest, I don''t really know how it felt at the time. I mostly just remember feeling discomfort after it was over. When I... got back to my senses."'
-				end
-				if $firstoralstate = 'sober' or $firstoralstate = 'tipsy':
-					$firstoralmsg3 = '"Sometimes I wish I had been passed out drunk at the time. Because now I have to relive it in full detail from time to time in my nightmares."'
-				elseif $firstoralstate = 'verydrunk':
-					$firstoralmsg3 = '"I sometimes wonder if it would have gone differently if I hadn''t been so drunk. Maybe..."'
-				elseif $firstoralstate = 'hornyfromdrugs':
-					$firstoralmsg3 = '"I guess I should count myself lucky that I was so horny from the drugs that I just couldn''t really care about it while it happened."'
-				elseif $firstoralstate = 'unabletomove':
-					$firstoralmsg3 = '"It was horrible. I wasn''t able to lift a finger but I felt every second of it as it happened. It would have been better if I had been unconscious because now I have to relive it in full detail from time to time in my nightmares."'
-				end
-			elseif $firstoralconsent = 'consensual':
-				if $firstoralobj = '':
-					$firstoralmsg1 = '"I sucked my first dick when I was <<firstoralage>>. It was <<$firstoralwho>> who claimed my first time. It all happened <<$firstoralloc>>."'
-				else
-					$firstoralmsg1 = '"I sucked my first <<$firstoralobj>> when I was <<firstoralage>>. It was <<$firstoralwho>> who claimed my first time. It all happened <<$firstoralloc>>."'
-				end
-				if $firstoralrough = 'gentle':
-					$firstoralmsg2 = '"It turned me on so much as I was doing it. First I licked it, and then, when I got it nice and wet, I went on and started sucking. Eventually, I even tried to take it in my throat. I almost puked then, so I just went back to sucking it."'
-				elseif $firstoralrough = 'rough':
-					$firstoralmsg2 = '"It was so painful. As soon as I was on my knees, I was used roughly."'
-				elseif $firstoralrough = 'unknown':
-					$firstoralmsg2 = '"To be honest, I don''t really know how it felt at the time. I mostly just remember feeling discomfort after it was over. When I... got back to my senses."'
-				end
-				if $firstoralstate = 'sober' or $firstoralstate = 'tipsy':
-					$firstoralmsg3 = '"It''s good that I wasn''t out of it or anything. I wouldn''t want to be unable to remember sucking my first cock."'
-				elseif $firstoralstate = 'verydrunk':
-					$firstoralmsg3 = '"I sometimes wonder if it would have gone differently if I hadn''t been so drunk. Maybe..."'
-				elseif $firstoralstate = 'hornyfromdrugs':
-					$firstoralmsg3 = '"At the time I was so horny from the drugs that I just couldn''t really do anything but go on."'
-				! I added this message even though it is unlikely that Sveta would agree to sex and take a daterape drug at the same time
-				elseif $firstoralstate = 'unabletomove':
-					$firstoralmsg3 = '"It was very uncomfortable. I wasn''t able to lift a finger, but I felt every second of it as it happened. Thinking about it still makes me a bit uneasy."'
-				end
-			elseif $firstoralconsent = 'self':
-				$firstoralmsg1 = '"I decided to practice before sucking a real dick when I was <<firstoralage>>. I did it <<$firstoralloc>> whith <<$firstoralobj>>."'
-				if $firstoralrough = 'gentle':
-					$firstoralmsg2 = '"It turned me on so much as I was doing it. First I licked it, and then, when I got it nice and wet, I went on and started sucking. Eventually, I even tried to take it in my throat. I almost puked then, so I just went back to sucking it."'
-				elseif $firstoralrough = 'rough':
-					$firstoralmsg2 = 'It was so painful I almost had to stop completely. I was too worked up and just shoved it in my throat. Take it from me, that''s not the way for a girl to test her throating skills for the first time.'
-				elseif $firstoralrough = 'unknown':
-					$firstoralmsg2 = 'To be honest, I don''t really know how it felt at the time. I mostly just remember feeling discomfort after it was over. When I... got back to my senses.'
-				end
-				if $firstoralstate = 'sober' or $firstoralstate = 'tipsy':
-					$firstoralmsg3 = '"It''s good that I wasn''t out of it or anything. I wouldn''t want to be unable to remember how it made me feel."'
-				elseif $firstoralstate = 'verydrunk':
-					$firstoralmsg3 = '"I sometimes wonder if it would have gone differently if I hadn''t been so drunk. Maybe..."'
-				elseif $firstoralstate = 'hornyfromdrugs':
-					$firstoralmsg3 = '"At the time I was so horny from the drugs that I just couldn''t really do anything but go on."'
-				end
-			end
-		end
-	end
-	
-!! Generate message for description
-	
-	if $ARGS[2] = 'unaware':
-		if $ARGS[0] = 'vaginal':
-			if $firstvagrough = 'gentle' or $firstvagrough = 'unknown':
-				if $firstvagobj = '':
-					$firstvagstat = 'You were raped when you were <<firstvagage>> by <<$firstvagwho>> <<$firstvagloc>>.'
-				else
-					$firstvagstat = 'You were raped when you were <<firstvagage>> by <<$firstvagwho>> <<$firstvagloc>> using <<$firstvagobj>>.'
-				end
-			elseif firstvagrough = 'rough':
-				if $firstvagobj = '':
-					$firstvagstat = 'You were raped roughly when you were <<firstvagage>> by <<$firstvagwho>> <<$firstvagloc>>.'
-				else
-					$firstvagstat = 'You were raped roughly when you were <<firstvagage>> by <<$firstvagwho>> <<$firstvagloc>> using <<$firstvagobj>>.'
-				end
-			end
-		elseif $ARGS[0] = 'anal':
-			if $firstanalrough = 'gentle' or $firstanalrough = 'unknown':
-				if $firstanalobj = '':
-					$firstanalstat = 'You were raped when you were <<firstanalage>> by <<$firstanalwho>> <<$firstanalloc>>.'
-				else
-					$firstanalstat = 'You were raped when you were <<firstanalage>> by <<$firstanalwho>> <<$firstanalloc>> using <<$firstanalobj>>.'
-				end
-			elseif firstanalrough = 'rough':
-				if $firstanalobj = '':
-					$firstanalstat = 'You were raped roughly when you were <<firstanalage>> by <<$firstanalwho>> <<$firstanalloc>>.'
-				else
-					$firstanalstat = 'You were raped roughly when you were <<firstanalage>> by <<$firstanalwho>> <<$firstanalloc>> using <<$firstanalobj>>.'
-				end
-			end
-		elseif $ARGS[0] = 'oral':
-			if $firstoralrough = 'gentle' or $firstoralrough = 'unknown':
-				if $firstoralobj = '':
-						$firstoralstat = 'You were raped when you were <<firstoralage>> by <<$firstoralwho>> <<$firstoralloc>>.'
-				else
-					$firstoralstat = 'You were raped when you were <<firstoralage>> by <<$firstoralwho>> <<$firstoralloc>> using <<$firstoralobj>>.'
-				end
-			elseif firstoralrough = 'rough':
-				if $firstoralobj = '':
-					$firstoralstat = 'You were raped roughly when you were <<firstoralage>> by <<$firstoralwho>> <<$firstoralloc>>.'
-				else
-					$firstoralstat = 'You were raped roughly when you were <<firstoralage>> by <<$firstoralwho>> <<$firstoralloc>> using <<$firstoralobj>>.'
-				end
-			end
-		end
-		if $firstvagstate = 'sober':
-			$firstvagstat += ' You don''t have any recollection of it happening even though you were <<$firstvagstate>>.'
-		elseif $firstvagstate = 'tipsy':
-			$firstvagstat += ' You don''t have any recollection of it happening even though you were only <<$firstvagstate>>.'
-		elseif $firstvagstate = 'verydrunk':
-			$firstvagstat += ' You don''t have any recollection of it happening, probably because you were <<$firstvagstate>>.'
-		elseif $firstvagstate = 'hornyfromdrugs':
-			$firstvagstat += ' You don''t have any recollection of it happening, probably a side effect of the drugs that made you horny.'
-		elseif $firstvagstate = 'unabletomove':
-			$firstvagstat += ' You don''t have any recollection of it happening, probably a side effect of the drugs that made you unable to move.'
-		end
-	elseif $ARGS[2] ! 'unaware':
-		if $ARGS[0] = 'vaginal':
-			if $firstvagconsent = 'rape':
-				if $firstvagrough = 'gentle' or $firstvagrough = 'unknown':
-					if $firstvagobj = '':
-						$firstvagstat = 'You were raped when you were <<firstvagage>> by <<$firstvagwho>> <<$firstvagloc>>.'
-					else
-						$firstvagstat = 'You were raped when you were <<firstvagage>> by <<$firstvagwho>> <<$firstvagloc>> using <<$firstvagobj>>.'
-					end
-				elseif $firstvagrough = 'rough':
-					if $firstvagobj = '':
-						$firstvagstat = 'You were raped roughly when you were <<firstvagage>> by <<$firstvagwho>> <<$firstvagloc>>.'
-					else
-						$firstvagstat = 'You were raped roughly when you were <<firstvagage>> by <<$firstvagwho>> <<$firstvagloc>> using <<$firstvagobj>>.'
-					end
-				end
-				if $firstvagstate = 'sober':
-					$firstvagstat += ' You remember every moment of it as you were <<$firstvagstate>>.'
-				elseif $firstvagstate = 'tipsy':
-					$firstvagstat += ' You remember every moment of it as you were only <<$firstvagstate>>.'
-				elseif $firstvagstate = 'verydrunk':
-					$firstvagstat += ' You don''t remember every moment of it happening, probably because you were <<$firstvagstate>>.'
-				elseif $firstvagstate = 'hornyfromdrugs':
-					$firstvagstat += ' You still don''t like to think about how horny you were from the drugs despite knowing deep down that you didn''t want it to happen.'
-				elseif $firstvagstate = 'unabletomove':
-					$firstvagstat += ' You don''t remember every moment of it happening, probably a side effect of the drugs that made you unable to move.'
-				end
-			elseif $firstvagconsent = 'consensual':
-				if $firstvagrough = 'gentle' or $firstvagrough = 'unknown':
-					if $firstvagobj = '':
-						$firstvagstat = 'You lost your virginity when you were <<firstvagage>>. Your first time was with <<$firstvagwho>> <<$firstvagloc>>.'
-					else
-						$firstvagstat = 'You lost your virginity when you were <<firstvagage>>. Your first time was with <<$firstvagwho>> <<$firstvagloc>> using <<$firstvagobj>>.'
-					end
-				elseif $firstvagrough = 'rough':
-					if $firstvagobj = '':
-						$firstvagstat = 'You lost your virginity when you were <<firstvagage>>. Your first time you had rough sex with <<$firstvagwho>> <<$firstvagloc>>.'
-					else
-						$firstvagstat = 'You lost your virginity when you were <<firstvagage>>. Your first time you had rough sex with <<$firstvagwho>> <<$firstvagloc>> using <<$firstvagobj>>.'
-					end
-				end
-				if $firstvagstate = 'sober':
-					$firstvagstat += ' You remember every moment of it as you were <<$firstvagstate>>.'
-				elseif $firstvagstate = 'tipsy':
-					$firstvagstat += ' You remember every moment of it as you were only <<$firstvagstate>>.'
-				elseif $firstvagstate = 'verydrunk':
-					$firstvagstat += ' You don''t remember every moment of it happening, probably because you were <<$firstvagstate>>.'
-				elseif $firstvagstate = 'hornyfromdrugs':
-					$firstvagstat += ' You still remember how horny you were from the drugs.'
-				elseif $firstvagstate = 'unabletomove':
-					$firstvagstat += ' You don''t remember every moment of it happening, probably a side effect of the drugs that made you unable to move.'
-				end
-			elseif $firstvagconsent = 'self':
-				if $firstvagrough = 'gentle' or $firstvagrough = 'unknown':
-					$firstvagstat = 'You broke your own hymen when you were <<firstvagage>>. You did it <<$firstvagloc>> using <<$firstvagobj>>.'
-				elseif $firstvagrough = 'rough':
-					$firstvagstat = 'You broke your own hymen when you were <<firstvagage>>. You fucked yourself roughly <<$firstvagloc>> using <<$firstvagobj>>.'
-				end
-				if $firstvagstate = 'sober':
-					$firstvagstat += ' You remember every moment of it as you were <<$firstvagstate>>.'
-				elseif $firstvagstate = 'tipsy':
-					$firstvagstat += ' You remember every moment of it as you were only <<$firstvagstate>>.'
-				elseif $firstvagstate = 'verydrunk':
-					$firstvagstat += ' You don''t remember every moment of it happening, probably because you were <<$firstvagstate>>.'
-				elseif $firstvagstate = 'hornyfromdrugs':
-					$firstvagstat += ' You still remember how horny you were from the drugs.'
-				!! This should be an impossibiliy - If this shows up someone passed the wrong parameters
-				elseif $firstvagstate = 'unabletomove':
-					$firstvagstat += ' You don''t remember every moment of it happening, probably a side effect of the drugs that made you unable to move.'
-				end
-			end
-		elseif $ARGS[0] = 'anal':
-			if $firstanalconsent = 'rape':
-				if $firstanalrough = 'gentle' or $firstanalrough = 'unknown':
-					if $firstanalobj = '':
-						$firstanalstat = 'You were raped when you were <<firstanalage>> by <<$firstanalwho>> <<$firstanalloc>>.'
-					else
-						$firstanalstat = 'You were raped when you were <<firstanalage>> by <<$firstanalwho>> <<$firstanalloc>> using <<$firstanalobj>>.'
-					end
-				elseif firstanalrough = 'rough':
-					if $firstanalobj = '':
-						$firstanalstat = 'You were raped roughly when you were <<firstanalage>> by <<$firstanalwho>> <<$firstanalloc>>.'
-					else
-						$firstanalstat = 'You were raped roughly when you were <<firstanalage>> by <<$firstanalwho>> <<$firstanalloc>> using <<$firstanalobj>>.'
-					end
-				end
-				if $firstanalstate = 'sober':
-					$firstanalstat += ' You remember every moment of it as you were <<$firstanalstate>>.'
-				elseif $firstanalstate = 'tipsy':
-					$firstanalstat += ' You remember every moment of it as you were only <<$firstanalstate>>.'
-				elseif $firstanalstate = 'verydrunk':
-					$firstanalstat += ' You don''t remember every moment of it happening, probably because you were <<$firstanalstate>>.'
-				elseif $firstanalstate = 'hornyfromdrugs':
-					$firstanalstat += ' You still don''t like to think about how horny you were from the drugs despite knowing deep down that you didn''t want it to happen.'
-				elseif $firstanalstate = 'unabletomove':
-					$firstanalstat += ' You don''t remember every moment of it happening, probably a side effect of the drugs that made you unable to move.'
-				end
-			elseif $firstanalconsent = 'consensual':
-				if $firstanalrough = 'gentle' or $firstanalrough = 'unknown':
-					if $firstanalobj = '':
-						$firstanalstat = 'You lost your anal virginity when you were <<firstanalage>> to <<$firstanalwho>> <<$firstanalloc>>.'
-					else
-						$firstanalstat = 'You lost your anal virginity when you were <<firstanalage>> to <<$firstanalwho>> <<$firstanalloc>> using <<$firstanalobj>>.'
-					end
-				elseif firstanalrough = 'rough':
-					if $firstanalobj = '':
-						$firstanalstat = 'You lost your anal virginity when you were <<firstanalage>>. You had rough anal sex with <<$firstanalwho>> <<$firstanalloc>>.'
-					else
-						$firstanalstat = 'You lost your anal virginity when you were <<firstanalage>>. You had rough anal sex with <<$firstanalwho>> <<$firstanalloc>> using <<$firstanalobj>>.'
-					end
-				end
-				if $firstanalstate = 'sober':
-					$firstanalstat += ' You remember every moment of it as you were <<$firstanalstate>>.'
-				elseif $firstanalstate = 'tipsy':
-					$firstanalstat += ' You remember every moment of it as you were only <<$firstanalstate>>.'
-				elseif $firstanalstate = 'verydrunk':
-					$firstanalstat += ' You don''t remember every moment of it happening, probably because you were <<$firstanalstate>>.'
-				elseif $firstanalstate = 'hornyfromdrugs':
-					$firstanalstat += ' You still remember how horny you were from the drugs.'
-				elseif $firstanalstate = 'unabletomove':
-					$firstanalstat += ' You don''t remember every moment of it happening, probably a side effect of the drugs that made you unable to move.'
-				end
-			elseif $firstanalconsent = 'self':
-				if $firstanalrough = 'gentle' or $firstanalrough = 'unknown':
-					$firstanalstat = 'You popped your own anal cherry when you were <<firstanalage>>. You did it <<$firstanalloc>> using <<$firstanalobj>>.'
-				elseif $firstanalrough = 'rough':
-					$firstanalstat = 'You popped your own anal cherry when you were <<firstanalage>>. You fucked yourself roughly <<$firstanalloc>> using <<$firstanalobj>>.'
-				end
-				if $firstanalstate = 'sober':
-					$firstanalstat += ' You remember every moment of it as you were <<$firstanalstate>>.'
-				elseif $firstanalstate = 'tipsy':
-					$firstanalstat += ' You remember every moment of it as you were only <<$firstanalstate>>.'
-				elseif $firstanalstate = 'verydrunk':
-					$firstanalstat += ' You don''t remember every moment of it happening, probably because you were <<$firstanalstate>>.'
-				elseif $firstanalstate = 'hornyfromdrugs':
-					$firstanalstat += ' You still remember how horny you were from the drugs.'
-				!! This should be an impossibiliy - If this shows up someone passed the wrong parameters
-				elseif $firstanalstate = 'unabletomove':
-					$firstanalstat += ' You don''t remember every moment of it happening, probably a side effect of the drugs that made you unable to move.'
-				end
-			end
-		elseif $ARGS[0] = 'oral':
-			if $firstoralconsent = 'rape':
-				if $firstoralrough = 'gentle' or $firstoralrough = 'unknown':
-					if $firstoralobj = '':
-						$firstoralstat = 'You were raped when you were <<firstoralage>> by <<$firstoralwho>> <<$firstoralloc>>.'
-					else
-						$firstoralstat = 'You were raped when you were <<firstoralage>> by <<$firstoralwho>> <<$firstoralloc>> using <<$firstoralobj>>.'
-					end
-				elseif firstoralrough = 'rough':
-					if $firstoralobj = '':
-						$firstoralstat = 'You were raped roughly when you were <<firstoralage>> by <<$firstoralwho>> <<$firstoralloc>>.'
-					else
-						$firstoralstat = 'You were raped roughly when you were <<firstoralage>> by <<$firstoralwho>> <<$firstoralloc>> using <<$firstoralobj>>.'
-					end
-				end
-				if $firstoralstate = 'sober':
-					$firstoralstat += ' You remember every moment of it as you were <<$firstoralstate>>.'
-				elseif $firstoralstate = 'tipsy':
-					$firstoralstat += ' You remember every moment of it as you were only <<$firstoralstate>>.'
-				elseif $firstoralstate = 'verydrunk':
-					$firstoralstat += ' You don''t remember every moment of it happening, probably because you were <<$firstoralstate>>.'
-				elseif $firstoralstate = 'hornyfromdrugs':
-					$firstoralstat += ' You still don''t like to think about how horny you were from the drugs despite knowing deep down that you didn''t want it to happen.'
-				elseif $firstoralstate = 'unabletomove':
-					$firstoralstat += ' You don''t remember every moment of it happening, probably a side effect of the drugs that made you unable to move.'
-				end
-			elseif $firstoralconsent = 'consensual':
-				if $firstoralrough = 'gentle' or $firstoralrough = 'unknown':
-					if $firstoralobj = '':
-						$firstoralstat = 'You lost your anal virginity when you were <<firstoralage>> to <<$firstoralwho>> <<$firstoralloc>>.'
-					else
-						$firstoralstat = 'You lost your anal virginity when you were <<firstoralage>> to <<$firstoralwho>> <<$firstoralloc>> using <<$firstoralobj>>.'
-					end
-				elseif firstoralrough = 'rough':
-					if $firstoralobj = '':
-						$firstoralstat = 'You lost your anal virginity when you were <<firstoralage>>. You had rough anal sex with <<$firstoralwho>> <<$firstoralloc>>.'
-					else
-						$firstoralstat = 'You lost your anal virginity when you were <<firstoralage>>. You had rough anal sex with <<$firstoralwho>> <<$firstoralloc>> using <<$firstoralobj>>.'
-					end
-				end
-				if $firstoralstate = 'sober':
-					$firstoralstat += ' You remember every moment of it as you were <<$firstoralstate>>.'
-				elseif $firstoralstate = 'tipsy':
-					$firstoralstat += ' You remember every moment of it as you were only <<$firstoralstate>>.'
-				elseif $firstoralstate = 'verydrunk':
-					$firstoralstat += ' You don''t remember every moment of it happening, probably because you were <<$firstoralstate>>.'
-				elseif $firstoralstate = 'hornyfromdrugs':
-					$firstoralstat += ' You still remember how horny you were from the drugs.'
-				elseif $firstoralstate = 'unabletomove':
-					$firstoralstat += ' You don''t remember every moment of it happening, probably a side effect of the drugs that made you unable to move.'
-				end
-			elseif $firstoralconsent = 'self':
-				if $firstoralrough = 'gentle' or $firstoralrough = 'unknown':
-					$firstoralstat = 'You popped your own anal cherry when you were <<firstoralage>>. You did it <<$firstoralloc>> using <<$firstoralobj>>.'
-				elseif $firstoralrough = 'rough':
-					$firstoralstat = 'You popped your own anal cherry when you were <<firstoralage>>. You fucked yourself roughly <<$firstoralloc>> using <<$firstoralobj>>.'
-				end
-				if $firstoralstate = 'sober':
-					$firstoralstat += ' You remember every moment of it as you were <<$firstoralstate>>.'
-				elseif $firstoralstate = 'tipsy':
-					$firstoralstat += ' You remember every moment of it as you were only <<$firstoralstate>>.'
-				elseif $firstoralstate = 'verydrunk':
-					$firstoralstat += ' You don''t remember every moment of it happening, probably because you were <<$firstoralstate>>.'
-				elseif $firstoralstate = 'hornyfromdrugs':
-					$firstoralstat += ' You still remember how horny you were from the drugs.'
-				!! This should be an impossibiliy - If this shows up someone passed the wrong parameters
-				elseif $firstoralstate = 'unabletomove':
-					$firstoralstat += ' You don''t remember every moment of it happening, probably a side effect of the drugs that made you unable to move.'
-				end
-			end
-		end
-	end	
-end
-
---- virginity_call ---------------------------------