Merge branch 'mine'

# Conflicts:
#	locations/pornfilm.qsrc

locations/Cum_Manage.qsrc

@@ -798,21 +798,21 @@ if $ARGS[0] = 'cum_stat_display':
 
 				!! if sperm age stage is 4, it means inside the body
 				if j = 4:
+					cumLeak = 0
 					if (vibratorIN = 1 and i = 0) or (analplugin = 1 and i = 3):
 						$txtproxy = 'being plugged in '
-					elseif i = 0 and cumvolume['<<i>>:<<j>>'] < pcs_vag*5:
+					elseif i = 0 and cumvolume['<<i>>:<<j>>'] < 100 - pcs_vag - vgape * 10:
 						$txtproxy = 'staying inside of '
-					elseif i = 3 and pcs_ass <= 25:
+					elseif i = 3 and cumvolume['<<i>>:<<j>>'] < 100 - pcs_ass - agape * 10:
 						$txtproxy = 'staying inside of '
 					else
+						cumLeak = 1
 						if cumvolume['<<i>>:<<j>>'] > 250:
 							$txtproxy = 'gushing out of '
 						elseif cumvolume['<<i>>:<<j>>'] > 100:
 							$txtproxy = 'flowing out of '
-						elseif cumvolume['<<i>>:<<j>>'] >= 40:
-							$txtproxy = 'seeping out of '
 						else
-							$txtproxy = 'staying inside of '
+							$txtproxy = 'seeping out of '
 						end
 					end
 				elseif j >= 5:
@@ -902,7 +902,7 @@ if $ARGS[0] = 'cum_stat_display':
 				if $txtperson ! '':
 					$txtperson = ' from ' + $txtperson
 				end
-				if i = 0 and j = 4 and vibratorIN = 0 and pcs_vag*10 < cumvolume['<<i>>:<<j>>'] and cumvolume['<<i>>:<<j>>'] >= 20:
+				if j = 4 and (i = 0 or i = 3) and cumLeak = 1:
 					$stat_cum_text += '<BR><b><font color="red">' + $txtamount + 'amounts of ' + $txtiscum + $txtperson + 'is ' + $txtproxy + $txtloc + iif($pantyworntype ! 'none', ' into your panties.', ' down your legs.')+'</font></b>'
 					if $stat_cum_msg ! '': $stat_cum_msg += '<br>'
 					$stat_cum_msg += $txtamount + 'amounts of ' + $icon_txtiscum + $txtperson + 'is ' + $txtproxy + $icon_txtloc + iif($pantyworntype ! 'none', ' into your panties.', ' down your legs.')

locations/NikoEv2.qsrc

@@ -615,7 +615,7 @@ if $ARGS[0] =  'Diner 1':
 				minut += 5
 				gs'stat'
 				'<center><img <<$set_imgh>> src="images/locations/highway/borisdiner/npc/1.jpg"></center>'
-				'You step forward then wait to see what the biker will do. The biker begins looking you up and down then asks Niko, "Can I touch her a bit? I just want to make sure that she isn''t hiding anything down there." The biker points toward your vagina. Niko chuckles, "Fine, make it quick." The biker begins rubbing on your vagina, for a few seconds before saying, "I''m interested. How much?" Niko responds, "2000 <b>₽</b>" the biker scratches his beard as he replies, "She better be real good, for that price."' 
+				'You step forward then wait to see what the biker will do. The biker begins looking you up and down then asks Niko, "Can I touch her a bit? I just want to make sure that she isn''t hiding anything down there." The biker points toward your vagina. Niko chuckles, "Fine, make it quick." The biker begins rubbing on your vagina, for a few seconds before saying, "I''m interested. How much?" Niko responds, "500 <b>₽</b>" the biker scratches his beard as he replies, "She better be real good, for that price."' 
 				*nl
 				'Niko replies, "She certainly is." the biker responds, "So you say, but what guarantee do I have that you are telling the truth? She could be a breathing blow up doll, for all I know." Niko responds, "How about this, For this time only, you can use her now then pay me afterward? Doesn''t that sound fair?" The biker nods, "You have yourself a deal. Come on girl, we''re doing this in the bathroom." The man grabs you by your arm then leads you to the restroom, where he takes off his pants then points to his dick as he says, "Alright girl, get to work."'
 				
@@ -667,7 +667,7 @@ if $ARGS[0] =  'Diner 1':
 										'Biker3: I wonder how much she''s chargin''?'
 									end
 									*nl
-									'Niko chuckles as he replies, "She is my girl and it will be 2000 <b>₽</b>, per customer." All of the truckers and bikers begin lining up in front of Niko giving him money, before approaching you. '+$OpenInnerThought+'Am I about to have sex with all these men? How can I satisfy that many men? I don''t know if I can even handle that.'+$CloseInnerThought+' The men begin undressing you as they roughly finger your holes. You close your eyes as one of the men pushes you down on your knees as another shoves his dick into your mouth.'
+									'Niko chuckles as he replies, "She is my girl and it will be 500 <b>₽</b>, per customer." All of the truckers and bikers begin lining up in front of Niko giving him money, before approaching you. '+$OpenInnerThought+'Am I about to have sex with all these men? How can I satisfy that many men? I don''t know if I can even handle that.'+$CloseInnerThought+' The men begin undressing you as they roughly finger your holes. You close your eyes as one of the men pushes you down on your knees as another shoves his dick into your mouth.'
 									
 									act 'Suck their dicks':	
 										*clr & cla
@@ -845,8 +845,8 @@ end
 
 if $ARGS[0] =  'Diner Exit':
 	*clr & cla
-	minut += 15
-	money += 2400
+	minut += 5
+	money += 1200
 	gs'stat'
 	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/niko/nikoev2/diner/payment.jpg"></center>'
 	'You walk out of the diner to find Niko waiting for you. "You did great today <<$pcs_nickname>>. I am so proud of you. Here is your share of the profits." Niko hands you 2400 <b>₽</b> You look up to Niko then say, "I thought that you would give me half. There were at least six men in there." Niko places his hand on your shoulder with a sympathetic look on his face. "I wanted to split it half way, but it would take us too long to pay up on that debt. You don''t want your reputation to remain this way, do you?" You lower your head as you reply. "I don''t... I''m sorry. I was just being greedy."' 
@@ -1083,7 +1083,7 @@ end
 if $ARGS[0] = 'Diner Exit 2':
 	*clr & cla
 	VKLenaBully = 1
-	if NikoSlut < 3:money += NikoProfit * 400
+	if NikoSlut < 3:money += NikoProfit * 300
 	NikoSlut = 1
 	NikoEv = 20
 	minut += 5
@@ -1131,7 +1131,7 @@ if $ARGS[0] = 'Diner Slut':
 	
 	act 'Sure':
 		*clr & cla
-		NikoDiner = rand(2,3)
+		NikoDiner = rand(1,5) + fame['pav_prostitute'] / 10
 		NikoSlut = 2
 		minut += 5
 		gs'stat'

locations/NikoSlut.qsrc

@@ -683,7 +683,7 @@ if $ARGS[0] = 'Customer 6':
 	gs 'fame'
 	gs'stat'
 	'<center><img <<$set_imgh>> src="images/locations/highway/borisdiner/npc/6.jpg"></center>'
-	'A trucker approaches Niko then says, "I would like to borrow this young lady for a few minutes. How much?" Niko replies, "2000 <b>₽</b>" The trucker hands Niko the money then leads you out of the diner as Niko follows closely behind. Once outside the trucker says, "Alright young lady, pull down your pants then get ready for the biggest dick you''ve ever had." You nod then do as he says.'
+	'A trucker approaches Niko then says, "I would like to borrow this young lady for a few minutes. How much?" Niko replies, "500 <b>₽</b>" The trucker hands Niko the money then leads you out of the diner as Niko follows closely behind. Once outside the trucker says, "Alright young lady, pull down your pants then get ready for the biggest dick you''ve ever had." You nod then do as he says.'
 	
 	VK = rand(1,2)
 	if VK = 1:
@@ -815,7 +815,7 @@ if $ARGS[0] = 'Customer 7':
 	minut += 15
 	gs'stat'
 	'<center><img <<$set_imgh>> src="images/locations/highway/borisdiner/npc/7.jpg"></center>'
-	'A trucker approaches Niko then says, "Hello there. I heard that this one is good at helping a lonely man." Niko chuckles as he replies, "She sure is. Are you interested? Her services are only 2000 <b>₽</b>." The trucker responds, "Sounds fair. I''m friends with the owner of this diner, so we can use the back room." He then hands Niko the money before leading you toward the back room.'
+	'A trucker approaches Niko then says, "Hello there. I heard that this one is good at helping a lonely man." Niko chuckles as he replies, "She sure is. Are you interested? Her services are only 500 <b>₽</b>." The trucker responds, "Sounds fair. I''m friends with the owner of this diner, so we can use the back room." He then hands Niko the money before leading you toward the back room.'
 
 	act 'Continue':
 		*clr & cla
@@ -949,7 +949,7 @@ if $ARGS[0] = 'Customer 8':
 	minut += 15
 	gs'stat'
 	'<center><img <<$set_imgh>> src="images/locations/highway/borisdiner/npc/8.jpg"></center>'
-	'A trucker approaches Niko then says, "Hello there. How much for this one''s services?" Niko replies, "2000 <b>₽</b>" The trucker responds, "Fair enough. Here you go." He hands Niko the money then offers you his hand which you take as he leads you toward the restroom.'
+	'A trucker approaches Niko then says, "Hello there. How much for this one''s services?" Niko replies, "500 <b>₽</b>" The trucker responds, "Fair enough. Here you go." He hands Niko the money then offers you his hand which you take as he leads you toward the restroom.'
 
 	act 'Continue':
 		*clr & cla
@@ -1084,7 +1084,7 @@ if $ARGS[0] = 'Customer 9':
 	*clr & cla
 	gs 'fame', 'pav', 'sex', 5
 	gs 'fame', 'pav', 'prostitute', 10
-	NikoProfit += 3
+	NikoProfit += 1
 	NikoDiner -= 1
 	NikoDinerSlut += 1
 	NikoCust9 = daystart
@@ -1092,7 +1092,7 @@ if $ARGS[0] = 'Customer 9':
 	minut += 15
 	gs'stat'
 	'<center><img <<$set_imgh>> src="images/locations/highway/borisdiner/npc/9.jpg"></center>'
-	'A trucker approaches Niko then says, "I wound like to borrow <<$NikoSlutName>> for a few minutes." Niko replies, "Sure, pay 2000 <b>₽</b> and you can borrow her for a time." The trucker responds, "Kinda high but I guess I can spare a few bucks." He hands Niko the money then wraps his arm around your waist and leads you toward the restroom.'
+	'A trucker approaches Niko then says, "I wound like to borrow <<$NikoSlutName>> for a few minutes." Niko replies, "Sure, pay 500 <b>₽</b> and you can borrow her for a time." The trucker responds, "Kinda high but I guess I can spare a few bucks." He hands Niko the money then wraps his arm around your waist and leads you toward the restroom.'
 
 	if VK = 1:
 		act 'Continue':
@@ -1656,9 +1656,9 @@ if $ARGS[0] = 'Diner Exit':
 			minut += 15
 			if NikoSlut = 2:NikoSlut = 1
 			if NikoSlut < 3:
-				money += NikoProfit * 400
+				money += NikoProfit * 300
 			else
-				money += NikoProfit * 1000
+				money += NikoProfit * 400
 			end	
 			gs'stat'
 			'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/niko/nikoev2/diner/payment.jpg"></center>'

locations/_attributes_salacious_dress.qsrc

@@ -998,10 +998,11 @@ elseif ARGS[1] = 141:
 elseif ARGS[1] = 142:
 	CloQuality = 3
 	CloThinness = 6
-	CloTopCut = 1
+	CloTopCut = 3
 	CloSkirtShortness = 6
 	CloDress = 1
 	CloBimbo = 1
+	CloStyle = 4
 
 elseif ARGS[1] = 143:
 	CloQuality = 3

locations/_attributes_salacious_outfits.qsrc

@@ -134,5 +134,5 @@ elseif ARGS[1] = 20:
 
 end
 
---- $attributes_salacious_outfits_outfits ---------------------------------
+--- $attributes_salacious_outfits ---------------------------------
 

locations/albina_starlets.qsrc

@@ -278,7 +278,7 @@ if $ARGS[0] = 'starlets':
 	
 	act 'Leave': gt 'gdksport', 'start'
 
-	if AlbinaQW['ShowTriggerCount'] >= 6:
+	if AlbinaQW['ShowTriggerCount'] >= iif(week > 5, rand(1,3), rand(3,6)):
 
 		!! third rally in the park if sveta is dancing
 		if ((month = 10 and day > 20) or (month = 11 and day < 16)) and week > 5 and hour > 8 and hour < 20 and AlbinaQW['ParkRally'] = 2 :  gt 'albina_starlets', 'parkrally'
@@ -290,8 +290,8 @@ if $ARGS[0] = 'starlets':
 		end
 
 		AlbinaQW['ShowTriggerCount'] = 0
-		albpayrand = rand(1,5)
-		'After you finish training, Albina gathers you and the girls round. "We have a small show planned. Each of you will receive <<albpayrand*1000>>. The show will last for a few hours."'
+		albpayrand = rand(1,3)
+		'After you finish training, Albina gathers you and the girls round. "We have a small show planned. Each of you will receive <<albpayrand * 100 + 400>>. The show will last for a few hours."'
 
 		act 'Do the show':
 			*clr & cla
@@ -299,7 +299,7 @@ if $ARGS[0] = 'starlets':
 			'Albina calls for a car. Once the car arrives, you all bundle in. You arrive at the performance hall and are ushered into a small dressing room, where you all change into your outfits and group up at the edge of the stage.'
 			act'Dance':
 				gs 'exercise', 'tier2', 120, 'agil_exp', 'danc_exp'
-				money += albpayrand * 1000
+				money += albpayrand * 100 + 400
 				killvar 'albpayrand'
 				profiDanceTime += 1
 				inhib_exp += rand(3,5)
@@ -370,10 +370,10 @@ if $ARGS[0] = 'starlets':
 									'You can see a little bit of fear in Albina''s eyes as you ask her what''s wrong.'
 									*nl
 									if AlbinaQW['StarletsCustomerCount'] = 1:
-										'Albina avoids eye contact. "Nothing, it''s just...If you go with this person and be... ''affectionate''" she says hesitantly, "you''ll get <<AlbinaQW[''StarletPay'']*1000>> <b>₽</b>."'
+										'Albina avoids eye contact. "Nothing, it''s just...If you go with this person and be... ''affectionate''" she says hesitantly, "you''ll get <<AlbinaQW[''StarletPay'']*250>> <b>₽</b>."'
 										'She looks you in the eye, the fear within her apparently growing. "Please <<$pcs_nickname>>, I need you to do this for me. Just... please."'
 									else
-										'Albina avoids eye contact. "Nothing, it''s just... see those guys? If you go with them and be...''affectionate''" she says hesitantly, "you will get <<AlbinaQW[''StarletPay'']*1000>> <b>₽</b>."'
+										'Albina avoids eye contact. "Nothing, it''s just... see those guys? If you go with them and be...''affectionate''" she says hesitantly, "you will get <<AlbinaQW[''StarletPay'']*250>> <b>₽</b>."'
 										'She looks you in the eye, the fear within her apparently growing. "Please <<$pcs_nickname>>, I need you to do this for me. Just... please."'
 									end
 
@@ -397,7 +397,7 @@ if $ARGS[0] = 'starlets':
 
 									act 'Agree':
 										*clr & cla
-										money += AlbinaQW['StarletPay'] * 1000
+										money += AlbinaQW['StarletPay'] * 250
 										AlbinaQW['StarletsWhore'] += 1
 										gs 'stat'
 										'You agree to be "nice" and Albina reluctantly hands over the money.'

locations/body_shape.qsrc

@@ -602,7 +602,7 @@ if $ARGS[0] = 'calcHeadBonus':
 
 	tempHeadBonus = resnicbonus + glarazbonus + lipbonus - teethcalc
 
-	result = tempHeadBonus
+	result = tempHeadBonus + 10
 
 	killvar 'temppcs_lashes'
 	killvar 'temppcs_eyesize'

locations/cikl.qsrc

@@ -386,13 +386,18 @@ if GerpesOnce = 1: Venera += 1
 if TriperOnce = 1: Venera += 1
 
 
-if pcs_ass > 1 and ashrink > 0 and analplugIN = 0:
-	if daystart mod(ashrinkdays) = 0: pcs_ass -= ashrink
-	if pcs_ass < 0: pcs_ass = 0
+if pcs_ass > 1 and ashrink > 0:
+	if anusMin = 0: anusMin = 1
+ 	if daystart mod(ashrinkdays) = 0: pcs_ass -= ashrink
+	pcs_ass = max(pcs_ass, anusMin)
+	if analplugIN = 1:
+		pcs_ass = max(pcs_ass, 10)
+	end
 end
-if pcs_vag > 10 and vshrink > 0:
-	if daystart mod(vshrinkdays) = 0: pcs_vag -= vshrink
-	if pcs_vag < 0: pcs_vag = 0
+if pcs_vag > 1 and vshrink > 0:
+	if vaginaMin = 0: vaginaMin = 1
+ 	if daystart mod(vshrinkdays) = 0: pcs_vag -= vshrink
+	pcs_vag = max(pcs_vag, vaginaMin)
 end
 
 lipkoef -= rand(0,1)

locations/city_clinic.qsrc

@@ -1769,7 +1769,7 @@ if $ARGS[0] = 'milk_donation':
 			end
 			lact_ev['poli_milkedvolume'] = 0
 			if lact_ev['poli_donationsessioncount'] > 0:
-				lact_ev['poli_donatemoney'] = (lact_ev['poli_donationsessioncount']*100)
+				lact_ev['poli_donatemoney'] = (lact_ev['poli_donationsessioncount']*50)
 			else
 				lact_ev['poli_donatemoney'] = 0
 			end

locations/cum_cleanup.qsrc

@@ -52,8 +52,8 @@ if $ARGS[0] = 'cleanloc' and arrsize('ARGS') > 1:
 	if i < arrsize('$sparrnam'):
 		if sparrloc[i] = ARGS[1]:
 			if sparrloc[i] = 0 or sparrloc[i] = 3:
-				sparrvol[i] = 0
-				sparrslc[i] = 0
+				sparrvol[i] = (4 - rand(1, 2)) * sparrvol[i] / 4
+				sparrslc[i] = max(0, sparrslc[i] - 1)
 			else
 				gs 'cum_cleanup', 'cleandeposit', i
 			end

locations/din_van.qsrc

@@ -544,7 +544,7 @@ $tampon = {
 
 $quickwash = {
 	if spdirty > 0:
-		act 'Quick wash (0:15)':
+		act 'Quick wash (0:05)':
 			menu_off = 1
 			*clr & cla
 
@@ -555,7 +555,7 @@ $quickwash = {
 			else
 				pcs_sweat -= 10 + rand(0,4)
 			end
-			minut += 15
+			minut += 5
 			'<center><img <<$set_imgh>> src="images/shared/home/bathroom/wash5.jpg"></center>'
 			*nl
 			'You give yourself a catlick, thus removing any traces of cum.'
@@ -687,12 +687,12 @@ $publicpan = {
 
 $basin = {
 	if cumloc[12] = 1:
-		act 'Rinse your mouth (0:05)':
+		act 'Rinse your mouth (0:01)':
 			menu_off = 1
 			cla
 			cumspclnt = 2
 			gs 'cum_cleanup'
-			minut += 5
+			minut += 1
 			gs 'stat'
 			*nl
 			'You rinse your mouth and get rid of the taste of cum.'
@@ -702,12 +702,12 @@ $basin = {
 	end
 
 	if cumloc[13] = 1:
-		act 'Wash the cum from your hands (0:05)':
+		act 'Wash the cum from your hands (0:01)':
 			menu_off = 1
 			cla
 			cumspclnt = 9
 			gs 'cum_cleanup'
-			minut += 5
+			minut += 1
 			gs 'stat'
 			*nl
 			'You wash your hands and get rid of any trace of cum.'
@@ -717,7 +717,7 @@ $basin = {
 	end
 
 	if cumloc[11] = 1 and cumloc[16] = 0:
-		act 'Wash the cum from your face (0:05)':
+		act 'Wash the cum from your face (0:02)':
 			menu_off = 1
 			*clr & cla
 			pcs_makeup = 1
@@ -726,7 +726,7 @@ $basin = {
 			cumspclnt = 11
 			gs 'cum_cleanup'
 			if pcs_sweat > 19 : pcs_sweat -= 5
-			minut += 5
+			minut += 2
 			gs 'stat'
 			'<center><img <<$set_imgh>> src="images/shared/home/bathroom/facesp.jpg"></center>'
 			*nl
@@ -790,12 +790,12 @@ $basin = {
 	end
 
 	if body_write > 0 or face_write > 0:
-		act 'Wash the writings off your body (0:10)':
+		act 'Wash the writings off your body (0:15)':
 			menu_off = 1
 			*clr & cla
 			body_write = 0
 			face_write = 0
-			minut += 10
+			minut += 15
 			gs'stat'
 
 			'<center><img <<$set_imgh>> src="images/shared/home/bathroom/wash1.jpg"></center>'
@@ -807,7 +807,7 @@ $basin = {
 	end
 
 	if pcs_makeup ! 1 and cosmetic_tattoo = 0:
-		act 'Wash off cosmetics (0:10)':
+		act 'Wash off cosmetics (0:05)':
 			menu_off = 1
 			cla
 			pcs_makeup = 1
@@ -815,7 +815,7 @@ $basin = {
 			gs 'cum_cleanup'
 			cumspclnt = 11
 			gs 'cum_cleanup'
-			minut += 10
+			minut += 5
 			*nl
 			'You wash off your makeup.'
 
@@ -824,7 +824,7 @@ $basin = {
 	end
 
 	if false_lashes >= 1:
-		act 'Remove false lashes (0:05)':
+		act 'Remove false lashes (0:02)':
 			menu_off = 1
 			cla
 			'You carefully peel off the glued-on strip, careful to protect your natural lashes.'
@@ -836,7 +836,7 @@ $basin = {
 			end
 			pcs_lashes = pcs_naturallashes
 			false_lashes = 0
-			minut += 5
+			minut += 2
 			gs 'body_shape', 'basebeautycalc', 1
 			act 'Finish':menu_off = 0 & gt $loc, $loc_arg
 		end
@@ -883,14 +883,15 @@ $enema = {
 
 $toymanage = {
 	if analplug = 1 and analplugin = 1:
-		act 'Remove your butt plug (0:05)':
+		act 'Remove your butt plug (0:01)':
 			menu_off = 1
 			cla
 			*clr
-			minut += 5
+			minut += 1
 			analplugIN = 0
 
 			if pcs_ass < 30:pcs_ass += 1
+			agape = max(agape, 1)
 
 			'<center><img <<$set_imgh>> src="images/pc/body/analplug.jpg"></center>'
 			*nl
@@ -898,12 +899,12 @@ $toymanage = {
 
 			act 'Finish':menu_off = 0 & gt $loc, $loc_arg
 		end
-	elseif analplug = 1 and analplugin = 0 and klismaday = daystart:
-		act 'Insert your butt plug (0:05)':
+	elseif analplug = 1 and analplugin = 0:
+		act 'Insert your butt plug (0:01)':
 			menu_off = 1
 			cla
 			*clr
-			minut += 5
+			minut += 1
 			analplugIN = 1
 
 			if pcs_ass < 10:pcs_ass += 5
@@ -920,14 +921,15 @@ $toymanage = {
 	end
 
 	if vibrator = 1 and vibratorIN = 1:
-		act 'Remove the vibrator (0:05)':
+		act 'Remove the vibrator (0:01)':
 			menu_off = 1
 			cla
 			*clr
-			minut += 5
+			minut += 1
 			vibratorIN = 0
 
 			if pcs_vag < 30:pcs_vag += 1
+			vgape = max(vgape, 1)
 
 			'<center><img <<$set_imgh>> src="images/pc/items/sextoys/vibrator.jpg"></center>'
 			*nl
@@ -936,11 +938,11 @@ $toymanage = {
 			act 'Finish':menu_off = 0 & gt $loc, $loc_arg
 		end
 	elseif vibrator = 1 and vibratorIN = 0 and pcs_vag ! 0:
-		act 'Insert the vibrator in your vagina (0:05)':
+		act 'Insert the vibrator in your vagina (0:01)':
 			menu_off = 1
 			cla
 			*clr
-			minut += 5
+			minut += 1
 			vibratorIN = 1
 
 			if pcs_vag < 30:pcs_vag += 2
@@ -1418,12 +1420,12 @@ end
 !!Private bathrooms: One of these text should be randomly selected if using a private restroom, such as one in a home.
 if $ARGS[0] = 'prvt_pee':
 	if pee_hour ! hour or (pee_hour = hour and pee_day ! daystart): 
-		act 'Go pee (0:04)':
+		act 'Go pee (0:01)':
 			*clr & cla
 			menu_off = 1
 			pee_hour = hour
 			pee_day = daystart
-			minut += 4
+			minut += 1
 			'<center><img <<$set_imgh>> src="images/pc/body/pee/private/' + rand(1,19) + '.jpg"></center>'
 			!!Get random private peeing picture
 			rand_pee = rand(0,7)
@@ -1495,12 +1497,12 @@ end
 !!Public bathrooms: These texts should be randomly selected if using a public restroom
 if $ARGS[0] = 'pblc_pee':
 	if pee_hour ! hour or (pee_hour = hour and pee_day ! daystart): 
-		act 'Go pee (0:04)':
+		act 'Go pee (0:01)':
 			*clr & cla
 			menu_off = 1
 			pee_hour = hour
 			pee_day = daystart
-			minut += 4
+			minut += 1
 			'<center><img <<$set_imgh>> src="images/pc/body/pee/public/' + rand(1,11) + '.jpg"></center>'
 			rand_pee = rand(0,7)
 			if rand_pee = 0:

locations/exercise.qsrc

@@ -672,11 +672,13 @@ if $ARGS[0] = 'get_sport_clothes_exercise_bonus':
 		sport_clothes_exercise_bonus += 1
 	elseif PCLoPanties = 1 and $clothingworntype = 'danilovich_outfits':
 		sport_clothes_exercise_bonus += 1
+	elseif $clothingworntype = 'nude' and $pantyworntype = 'none':
+		sport_clothes_exercise_bonus += 1
 	end
-	if $clothingworntype = 'danilovich_outfits':
+	if $clothingworntype = 'danilovich_outfits' or $clothingworntype = 'nude':
 		sport_clothes_exercise_bonus += 1
 	end
-	if $shoeworntype = 'danilovich':
+	if $shoeworntype = 'danilovich' or $shoeworntype = 'none':
 		sport_clothes_exercise_bonus += 1
 	end
 end

locations/food.qsrc

@@ -13,7 +13,7 @@ menu_off = 1
 if $ARGS[0] = 'pirosh':
 	*clr & cla
 	frost = 0
-	minut += 15
+	minut += 10
 	money -= val($_eat['<<args[1]>>,price'])
 	pcs_health += 5
 	pcs_mood += 5
@@ -43,7 +43,7 @@ end
 if $ARGS[0] = 'golub':
 	*clr & cla
 	frost = 0
-	minut += 20
+	minut += 15
 	money -= val($_eat['<<args[1]>>,price'])
 	pcs_health += 10
 	pcs_mood += 5
@@ -103,7 +103,7 @@ end
 if $ARGS[0] = 'reuben':
 	*clr & cla
 	frost = 0
-	minut += 25
+	minut += 20
 	money -= val($_eat['<<args[1]>>,price'])
 	pcs_health += 20
 	pcs_mood += 25
@@ -133,7 +133,7 @@ end
 if $ARGS[0] = 'bliny':
 	*clr & cla
 	frost = 0
-	minut += 15
+	minut += 10
 	money -= val($_eat['<<args[1]>>,price'])
 	pcs_health += 10
 	pcs_mood += 5
@@ -192,7 +192,7 @@ end
 if $ARGS[0] = 'salfan':
 	*clr & cla
 	frost = 0
-	minut += 40
+	minut += 30
 	money -= val($_eat['<<args[1]>>,price'])
 	pcs_health += 20
 	pcs_mood += 20
@@ -222,7 +222,7 @@ end
 if $ARGS[0] = 'strofan':
 	*clr & cla
 	frost = 0
-	minut += 35
+	minut += 30
 	money -= val($_eat['<<args[1]>>,price'])
 	pcs_health += 20
 	pcs_mood += 30
@@ -252,7 +252,7 @@ end
 if $ARGS[0] = 'borfan':
 	*clr & cla
 	frost = 0
-	minut += 25
+	minut += 15
 	money -= val($_eat['<<args[1]>>,price'])
 	pcs_health += 10
 	pcs_mood += 25
@@ -282,7 +282,7 @@ end
 if $ARGS[0] = 'blifan':
 	*clr & cla
 	frost = 0
-	minut += 20
+	minut += 10
 	money -= val($_eat['<<args[1]>>,price'])
 	pcs_health += 30
 	pcs_mood += 40
@@ -492,7 +492,7 @@ end
 if $ARGS[0] = 'cheburg':
 	*clr & cla
 	frost = 0
-	minut += 25
+	minut += 20
 	money -= val($_eat['<<args[1]>>,price'])
 	pcs_health += 20
 	pcs_mood += 20
@@ -546,7 +546,7 @@ end
 if $ARGS[0] = 'f_food':
 	*clr & cla
 	frost = 0
-	minut += 10
+	minut += 15
 	money -= val($_eat['<<args[1]>>,price'])
 	pcs_health += 10
 	fat += 14
@@ -604,7 +604,7 @@ end
 if $ARGS[0] = 'm_meal':
 	*clr & cla
 	frost = 0
-	minut += 15
+	minut += 20
 	money -= val($_eat['<<args[1]>>,price'])
 	pcs_health += 10
 	fat += 8
@@ -634,7 +634,7 @@ end
 if $ARGS[0] = 'l_meal':
 	*clr & cla
 	frost = 0
-	minut += 20
+	minut += 30
 	money -= val($_eat['<<args[1]>>,price'])
 	pcs_health += 10
 	fat += 14
@@ -652,6 +652,7 @@ if $ARGS[0] = 'l_meal':
 	'You are almost overwhelmed by the delicious meal laid before you and enjoy it immensely. The meal was simply colossal and<<$mtxt>>'
 	gs 'stat'
 	killvar '$_eat'
+	if plcooked = 1: killvar 'plcooked'
 
 	if food_loc = 1:
 		act 'Finish': gt 'food_menu'
@@ -686,7 +687,7 @@ end
 if $ARGS[0] = 'h_food':
 	*clr & cla
 	frost = 0
-	minut += 25
+	minut += 20
 	money -= val($_eat['<<args[1]>>,price'])
 	pcs_health += 10
 	fat += 7
@@ -717,7 +718,7 @@ end
 if $ARGS[0] = 'h_meal':
 	*clr & cla
 	frost = 0
-	minut += 25
+	minut += 20
 	money -= val($_eat['<<args[1]>>,price'])
 	pcs_health += 20
 	fat += 1
@@ -801,7 +802,7 @@ end
 if $ARGS[0] = 'mush_soup':
 	*clr & cla
 	frost = 0
-	minut += 30
+	minut += 15
 	money -= val($_eat['<<args[1]>>,price'])
 	pcs_health += 10
 	fat += 3
@@ -831,7 +832,7 @@ end
 if $ARGS[0] = 'bilberry':
 	*clr & cla
 	gs 'stat'
-	minut += 15
+	minut += 10
 	money -= val($_eat['<<args[1]>>,price'])
 	pcs_health += 5
 	pcs_mood += 10
@@ -860,6 +861,21 @@ if $ARGS[0] = 'family_meals':
 	pcs_mood += 10
 	fat += iif($ARGS[1] = 'dinner', 8, 6)
 	pcs_energy += 60
+	if pcs_hydra >= 100:
+		pcs_hydra += 30
+	else
+		pcs_hydra += 60
+	end
+	cumspclnt = 2
+	gs 'cum_cleanup'
+	pcs_breath = 0
+end
+
+if $ARGS[0] = 'breakfast':
+	frost = 0
+	pcs_health += 10
+	pcs_mood += 10
+	pcs_energy += 60
 	if pcs_hydra >= 100:
 		pcs_hydra += 30
 	elseif pcs_hydra < 20:
@@ -887,6 +903,5 @@ if $ARGS[0] = 'aftermeal':
 	end
 end
 
-
 --- food ---------------------------------
 

locations/gschool_events.qsrc

@@ -229,7 +229,7 @@ if $ARGS[0] = 'break_events':
 		end
 	end
 	gs 'gschool_events', 'leave_break_events'
-	break_rand = rand(1,72)
+	break_rand = iif(rand(0, max(0, fame['pav_slut'] - 300) / 50) > 0 , rand(1, 15), rand(1,72))
 	if break_rand = 1 and hotcat > 5:
 		cla
 		if $pantyworntype ! 'none' and pcs_inhib < 60: inhib_exp += 2
@@ -326,7 +326,7 @@ if $ARGS[0] = 'break_events':
 	elseif break_rand =< 5 and fame['pav_slut'] > 200 and gruptipe ! 4:
 		cla
 		'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big9.jpg"></center>'
-		if AlbinaQW['Friends'] >= 1 and SchoolGossip > 0 and rand(0,1) = 0:
+		if AlbinaQW['Friends'] >= 1 and SchoolGossip > 0 and rand(0,10) = 0:
 			AlbinaBlockHumiliation = 1
 			minut += 60
 			'During the break, you are approached by Vitek and some other gopniks. "I know why you look so glum <<$pcs_nickname>>, you miss our cocks! Ain''t that right, cocksucker? Don''t worry, you can come with us and we''ll give you all the dick you want."'
@@ -391,9 +391,10 @@ if $ARGS[0] = 'break_events':
 		cla
 		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/lunch/blowme.jpg"></center>'
 		'During the break, some guy you''ve never seen before approaches you. "Hi! <<$pcs_nickname>> right? I hear you''re the best in the school at giving blowjobs! Want to umm, want to come with me and prove it?"'
-		if fame['pav_prostitute'] >= fame['pav_sex']:
+		bjPay = rand(0,2)
+		if fame['pav_prostitute'] >= 200 and bjPay > 0:
 			gs 'willpower', 'prostitution', 'resist'
-			'He then adds "I''ll give you 50 <b>₽</b>?"'
+			'He then adds "I''ll give you <<40 + bjPay * 10>> <b>₽</b>."'
 		else
 			gs 'willpower', 'bj', 'resist'
 		end
@@ -403,7 +404,7 @@ if $ARGS[0] = 'break_events':
 				gs 'willpower', 'pay', 'resist'
 				gs 'stat'
 				'<center><video autoplay loop src="images/locations/pavlovsk/school/lunch/flipoff.mp4"></video></center>'
-				if fame['pav_prostitute'] >= fame['pav_sex']:
+				if fame['pav_prostitute'] >= 200 and bjPay > 0:
 					'You give him a haughty smile. "Sweetie, does it look like I''m working now? Come find me at my home later, or at the disco."'
 				else
 					gs 'fame', 'pav', 'sex', -2
@@ -416,9 +417,9 @@ if $ARGS[0] = 'break_events':
 		end
 
 		act 'Go to the men''s restroom with him':
-			if fame['pav_prostitute'] >= fame['pav_sex']:
+			if fame['pav_prostitute'] >= 200 and bjPay > 0:
 				gs 'fame', 'pav', 'prostitute', 5
-				money += 50
+				money += 40 + bjPay * 10
 				slutty += 1
 			else
 				gs 'fame', 'pav', 'sex', 5
@@ -446,9 +447,10 @@ if $ARGS[0] = 'break_events':
 		cla
 		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/lunch/blowme.jpg"></center>'
 		'During the break, some guy you''ve never seen before approaches you. "Hi <<$pcs_nickname>>, right? I hear you''re the best fuck in school! Want to umm, want to come with me and prove it?"'
-		if fame['pav_prostitute'] >= fame['pav_sex']:
+		fuckPay = rand(0,5)
+		if fame['pav_prostitute'] >= 200 and fuckPay > 1:
 			gs 'willpower', 'prostitution', 'resist'
-			'He then adds "I''ll give you 200 <b>₽</b>?"'
+			'He then adds "I''ll give you <<80 + fuckPay * 10>> <b>₽</b>."'
 		else
 			gs 'willpower', 'sex', 'resist'
 		end
@@ -459,7 +461,7 @@ if $ARGS[0] = 'break_events':
 				gs 'willpower', 'pay', 'resist'
 				gs 'stat'
 				'<center><video autoplay loop src="images/locations/pavlovsk/school/lunch/flipoff.mp4"></video></center>'
-				if fame['pav_prostitute'] >= fame['pav_sex']:
+				if fame['pav_prostitute'] >= 200 and fuckPay > 1:
 					'You give him a haughty smile. "Sweetie, does it look like I''m working now? Come find me at my home later, or at the disco."'
 				else
 					gs 'fame', 'pav', 'sex', -2
@@ -477,9 +479,9 @@ if $ARGS[0] = 'break_events':
 			'Hmm he is kind of cute. It could be your good deed for the day? Plus you''re bored, horny as hell and want a good fuck. Making sure no one is watching you, you tell him "Alright then, come with me." You take him by the hand and quickly guide him to the roof. At first you have to pull him along, seemingly surprised you agreed, but soon he is eagerly leading the way and pulling you along.'
 
 			act 'Continue':
-				if fame['pav_prostitute'] >= fame['pav_sex']:
+				if fame['pav_prostitute'] >= 200 and fuckPay > 1:
 					gs 'fame', 'pav', 'prostitute', 5
-					money += 200
+					money += 80 + fuckPay * 10
 					slutty += 1
 				else
 					gs 'fame', 'pav', 'sex', 5
@@ -850,7 +852,7 @@ if $ARGS[0] = 'break_events':
 		'"Lesco, are you out of your mind!?" you cry out as the other boys burst out into laughter. You can see the panic in his face as he raises his hands in defense, rapidly apologizing:'
 		*nl
 		'"Please, I didn''t want to! They made me, I promise! I''m sorry!"'
-		'You stare him down for a few seconds and realize he''s not lying. You know Lesco doesn''t have an easy time in school, so you let him off the hook. "Alright, I believe you. Just don''t do it again, okay?" You turn to the other guys and consider your options while Lesco quickly takes his seat for the class, visibly relieved you didn''t report him.'
+		'You stare him down for a few seconds and realize he''s not lying. You know Lesco already doesn''t have an easy time in school, so you let him off the hook. "Alright, I believe you. Just don''t do it again, okay?" then turn to the other guys and consider your options while Lesco quickly takes his seat for the class, visibly relieved you didn''t report him.'
 		
 		act 'Give them a derogatory look':
 			*clr & cla
@@ -865,7 +867,7 @@ if $ARGS[0] = 'break_events':
 
 		gs 'willpower', 'exhib', 'self'
 		if will_cost <= pcs_willpwr:
-			act 'Tease them (<<will_cost>> Willpower)':
+			act 'Tease him (<<will_cost>> Willpower)':
 				*clr & cla
 				gs 'willpower', 'exhib', 'self'
 				gs 'willpower', 'pay', 'self'
@@ -879,7 +881,7 @@ if $ARGS[0] = 'break_events':
 				gs 'arousal', 'flash', -5
 				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/events/rand_scoolboy3.jpg"></center>'
 				'<i>Some of them are actually kind of cute...</i> you think to yourself.'
-				'You pretend the other people aren''t there and sweetly smile at them. "Come on boys, you know you only have to ask if you want to see more..." you tease as you slowly begin to lift your skirt. All the boys stare at your body in disbelief that their ploy worked. Just before your skirt is high enough to reveal '+iif($pantyworntype ! 'none', 'your panties', 'your pussy')+', you drop it and skip back, giggling. "Just kidding you perverts! Not in public anyway." You give them all a cute wink as you sit down and get ready for the class. When you look back, you can see their faces all flustered.'
+				'You pretend the other people aren''t there and sweetly ask them "Come on boys, you know you only have to ask if you want to see more..." you smile sweetly as you slowly begin to lift your skirt. All the boys stare at your body in disbelief that their ploy worked. Just before your skirt is high enough to reveal '+iif($pantyworntype ! 'none', 'your panties', 'your pussy')+', you drop it and skip back, giggling. "Just kidding you perverts! Not in public anyway." and you give them all a cute wink as you sit down and get ready for your next class. When you look back, you can see their faces all flustered.'
 				gs 'gschool_events', 'leave_break_events'
 			end
 		else
@@ -939,7 +941,7 @@ if $ARGS[0] = 'break_events':
 		act 'Flirt back':
 			*clr & cla
 			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/lunch/hallflirt.jpg"></center>'
-			'You think he is kinda cute, so you decide to flirt back with him. You place your hand on his chest and tell him he isn''t so bad himself. Soon, you are flirting back just as much as he is flirting with you.'
+			'You think he is kinda cute, so you decide to flirt back with him. You lay your hand on his chest and tell him he isn''t so bad himself. Soon, you are flirting back just as much as he is flirting with you.'
 			*nl
 			'After a while, he seems emboldened by you flirting back at him and if you are not mistaken, he is sporting a raging hard-on as well. "Hey <<$pcs_nickname>>, want to go somewhere private and have some fun?"'
 			
@@ -2441,5 +2443,21 @@ if $ARGS[0] = 'random_pers':
 	killvar 'tmpCandidateArr'
 end
 
+if $ARGS[0] = 'christinaphotos':
+	cla & *clr
+	menu_off = 1
+	pcs_mood -= 20
+	grupvalue[1] -= 15
+	grupvalue[2] -= 10
+	grupvalue[3] -= 20
+	christinaphotos = -1
+	gs 'fame', 'pav', 'sex', 40
+	gs 'stat'
+	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/events/shamewalk.jpg"></center>'
+	'As you walk down the hall everyone is staring at you. Several are laughing and many check their phones. A couple of the boys show you their phones with nude pictures of you on it. "Hey, since you like walking around naked why don''t you do a little strip tease for us right now?" Roman yells out to you, which gets everyone laughing. You hang your head down and try to ignore everyone. Luckily, Mr. Tsarev comes out and breaks it up, telling everyone to get to class. For the rest of the day, you get side long glances and hear snickers as you walk by. You can''t believe Christina would be such a bitch.'
+	act 'Move to next class': gt 'gschool_lessons', 'schedule'
+	act 'Skip next class': school_period += 1 & gt 'gschool_lessons', 'skip'
+end
+
 --- gschool_events ---------------------------------
 

locations/gschool_lunch.qsrc

@@ -429,7 +429,7 @@ if $ARGS[0] = 'events':
 			act 'Not today (<font color="red"><<will_cost>> Willpower</font>)':'<br>You don''t have enough willpower to refuse.'
 		end
 		act 'Go somewhere private':gt 'gschool_sex', 'Anush_private2'
-	elseif gruptipe = 4 and rand(0,3) = 0:
+	elseif (gruptipe = 4 or fame['pav_slut'] > 200) and rand(0,3) = 0:
 		cla
 		'During the break, you are approached by some of the gopniks. "<<$pcs_nickname>>, come to the bathroom with us so we can have a little fun. You look like you could use a protein snack anyways." A couple of them snicker as they put their hands around your arms and try to guide you towards the restrooms.'
 		*nl

locations/hotel_resep.qsrc

@@ -49,7 +49,7 @@ if $ARGS[0] = '':
 		end
 	end
 
-	if proshotelopen = 1 and proshotelday ! daystart:
+	if proshotelopen = 1 and (proshotelday ! daystart or rand(0, 3) = 0):
 		act'Ask for "The Peacock"':
 			*clr & cla
 			menu_off = 1

locations/kiosk.qsrc

@@ -14,7 +14,7 @@ if $ARGS[0] = 'start':
 		
 		act 'Leave': minut += 1 & gt $loc
 		
-		act 'Wait in line (20 Minutes)': minut += 20 & gt 'kiosk', 'counter'
+		act 'Wait in line (10 Minutes)': minut += 10 & gt 'kiosk', 'counter'
 
 		if exhibitionist_lvl > 1:
 			act 'Flash both your tits and your pussy to jump the queue':

locations/kit_din.qsrc

@@ -377,9 +377,9 @@ $edagotd = {
 	'<center><img <<$set_imgh>> src="images/shared/home/kitchen/cook.jpg"></center>'
 	'What kind of meal would you like to make?'
 
-	act 'Prepare a light meal (0:20)': $edameal = 's_meal' & dynamic $edagotpk
-	act 'Prepare a normal meal (0:25)': $edameal = 'm_meal' & dynamic $edagotpk
-	act 'Prepare a hearty meal (0:30)': $edameal = 'l_meal' & dynamic $edagotpk
+	act 'Prepare a light meal (0:10)': $edameal = 's_meal' & dynamic $edagotpk
+	act 'Prepare a normal meal (0:20)': $edameal = 'm_meal' & dynamic $edagotpk
+	act 'Prepare a hearty meal (0:30)': $edameal = 'l_meal' & plcooked = 1 & dynamic $edagotpk
 	act 'Nevermind':gt $loc, $loc_arg
 }
 
@@ -388,12 +388,12 @@ $edagotpk = {
 	if $edameal = 'l_meal':
 		minut += 30
 	elseif $edameal = 'm_meal':
-		minut += 25
-	elseif $edameal = 's_meal':
 		minut += 20
+	elseif $edameal = 's_meal':
+		minut += 10
 	else
 		$edameal = 'm_meal'
-		minut += 25
+		minut += 20
 	end
 	edahot += 1
 	eda -= 1
@@ -454,7 +454,7 @@ $pranik = {
 		else
 			'You have enough tea biscuits for <b><<pranik>></b> more snacks.'
 		end
-		act 'Eat some tea biscuits (0:05)':
+		act 'Have tea with biscuits (0:05)':
 			*clr & cla
 			menu_off = 1
 			minut += 5
@@ -462,11 +462,19 @@ $pranik = {
 			pcs_health += 30
 			pcs_mood += 20
 			pcs_energy += 20
+			if pcs_hydra >= 100:
+				pcs_hydra += 30
+			else
+				pcs_hydra += 60
+			end
+			cumspclnt = 2
+			gs 'cum_cleanup'
+			pcs_breath = 0
 			fat += 4
 			frost = 0
 			gs 'stat'
 			'<center><img <<$set_imgh>> src="images/shared/food/food.jpg"></center>'
-			'You enjoy your biscuits. You know they''re too sweet and can''t be good for your figure, but they taste so good!'
+			'You drank some tea and enjoyed your biscuits. You know they''re too sweet and can''t be good for your figure, but they taste so good!'
 
 			act 'Get up from the table':gt $loc, $loc_arg
 		end

locations/npcstatic4.qsrc

@@ -702,8 +702,8 @@ npc_dob['A<<npctemp>>'] = 19790812
 npc_gender['A<<npctemp>>'] = 0
 gs 'npcstaticdefaults', 'defaults'
 gs 'npcstaticdefaults', 'body', 'actor'
-$npc_thdick['A<<npctemp>>'] = 'well proportioned'
-npc_dick['A<<npctemp>>'] = 15
+$npc_thdick['A<<npctemp>>'] = 'thicker'
+npc_dick['A<<npctemp>>'] = 20
 npc_sexskill['A<<npctemp>>'] = 1
 npc_spermpot['A<<npctemp>>'] = 10500
 npc_height['A<<npctemp>>'] = 182

locations/pav_clinic.qsrc

@@ -1575,7 +1575,7 @@ if $ARGS[0] = 'maternity_ward':
 						end
 						'Donation count: <<pcs_gpoli_totalmilkdonation_count>>'
 						'Average milk volume per donation in ml: <<pcs_gpoli_totalmilkdonation/pcs_gpoli_totalmilkdonation_count>>'
-						'Paid money: <<((pcs_gpoli_totalmilkdonation/50)*100)>><b>₽</b>'
+						'Paid money: <<((pcs_gpoli_totalmilkdonation/50)*50)>><b>₽</b>'
 						'<br>----------------------------------------'
 					end
 					act 'Leave': gt 'pav_clinic', 'maternity_ward'
@@ -2022,7 +2022,7 @@ if $ARGS[0] = 'maternity_ward_donation':
 			end
 			lact_ev['gpoli_milkedvolume'] = 0
 			if pcs_gpoli_donationsessioncount > 0:
-				mward_donatemoney = (pcs_gpoli_donationsessioncount*100)
+				mward_donatemoney = (pcs_gpoli_donationsessioncount*50)
 			else
 				mward_donatemoney = 0
 			end

locations/pav_shared_apt.qsrc

@@ -11,11 +11,11 @@ if $ARGS[0] = 'update':
 
 	price_cook = 50
 	price_clean = 50
-	price_handjob = 50
-	price_blowjob = 100
-	price_vaginal = 150
-	price_anal = 200
-	price_special = 250
+	price_handjob = max(10, 50 - fame['pav_slut'] / 100 * 10)
+	price_blowjob = max(20, 100 - fame['pav_slut'] / 100 * 10)
+	price_vaginal = max(30, 250 - fame['pav_slut'] / 100 * 10)
+	price_anal = max(40, 300 - fame['pav_slut'] / 100 * 10)
+	price_special = max(50, 500 - fame['pav_slut'] / 100 * 10)
 
 	! time calculations
 	weekNum = (daystart - (daystart mod 7)) / 7
@@ -663,7 +663,7 @@ if $ARGS[0] = 'cookForGuys':
 	*clr
 	$loc = 'pav_shared_apt'
 	$loc_arg = 'kitchen'
-	minut += 90
+	minut += 30
 	kuhdrova = 0
 	pcs_mood -= 10
 	gs 'stat'

locations/pav_shared_gp.qsrc

@@ -3,7 +3,7 @@
 if $ARGS[0] = 'gp':
 	menu_off = 1
 	$loc_arg = 'gp'
-	minut += 2
+	minut += 1
 	'<h3><center><font color=#<<$gp_font>>><<$gp_name>></font></h3></center>'
 	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/sharedapt/gp/gp.jpg"></center>'
 	''
@@ -36,7 +36,7 @@ end
 
 if $ARGS[0] = 'gpDick':
 	menu_off = 1
-	minut += 2
+		   
 	'<h3><font color=#<<$gp_font>>><<$gp_name>></font></h3>'
 	if set_imgh < 250:
 		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/sharedapt/gp/gp.jpg"></center>'
@@ -136,7 +136,7 @@ if $ARGS[0] = 'gpChat':
 			act 'Chat about everyday stuff': step = 10 & gt 'pav_shared_gp', 'gpChat'
 			act 'Leave':gt 'pav_shared_apt', 'start'
 		elseif step = 10:
-			minut += 15
+			minut += 5
 			sayN = rand (1, 10)
 			if sayN = 1:'<i><font color=#<<$gp_font>>>"Once I have kicked a guy to his nose... he bled like a pig!"</font></i>'
 			if sayN = 2:'<i><font color=#<<$gp_font>>>"Only morons have a job. I know how to make money without one, that''s a skill!"</font></i>'
@@ -327,7 +327,7 @@ if $ARGS[0] = 'gpHandjob':
 		''
 		'You grab <<$gp_name>>''s cock in your hand, jerking it slowly, changing the pressure from time to time.'
 		if cockHard = 0:cockHard = 1 & 'Your moves are slowly making the cock to get harder and harder, finally reaching his full <<gpDick>> cm length.'
-		gs 'arousal', 'hj', 3
+		gs 'arousal', 'hj', iif(rand(0,1) > 0, -1, 1)
 		gs 'stat'
 		
 		act 'Jerk it slowly':step = 1 & gt 'pav_shared_gp', 'gpHandjob'
@@ -341,7 +341,7 @@ if $ARGS[0] = 'gpHandjob':
 		''
 		orgB += rand(10, 20)
 		'You jerk his hard cock with quite a fast pace, making him moan from pleasure.'
-		gs 'arousal', 'hj', 3
+		gs 'arousal', 'hj', iif(rand(0,1) > 0, -1, 1)
 		gs 'stat'
 		act 'Jerk it slowly':step = 1 & gt 'pav_shared_gp', 'gpHandjob'
 		act 'Jerk it fast':step = 2 & gt 'pav_shared_gp', 'gpHandjob'
@@ -359,7 +359,7 @@ if $ARGS[0] = 'gpHandjob':
 		'You put some lube on your hands and massage his cock with it.'
 		'The slimy lube enables you to increase the sensation, making him moan even more inensively.'
 		'<font color=#<<$gp_font>>>"Oh yeah <<$pcs_firstname>>, this is what girls should learn as young as possible!"</font>'
-		gs 'arousal', 'hj', 3
+		gs 'arousal', 'hj', iif(rand(0,1) > 0, -1, 1)
 		gs 'stat'
 		act 'Jerk it slowly':step = 1 & gt 'pav_shared_gp', 'gpHandjob'
 		act 'Jerk it fast':step = 2 & gt 'pav_shared_gp', 'gpHandjob'
@@ -373,7 +373,7 @@ if $ARGS[0] = 'gpHandjob':
 	elseif step = 4:
 		'<center><img <<$set_imgh>> src="images/shared/sex/handjob/hj1.jpg"></center>'
 		''
-		minut += 3
+		minut += 1
 		orgB += rand(15, 30)
 		'You put some lube on your hands and massage the tip of his cock with it.'
 		'The slimy lube enables you to play with the violet head of his cock, stroking also the hole time to time.'
@@ -495,7 +495,7 @@ if $ARGS[0] = 'gpSuck':
 		'Slowly you move your head down in his crotch and bellow his phallus. The moment you start using your tongue on his device, you can feel the increased pulsation in his veins, making the cock larger and thicker every second.'
 		orgB += rand(0, 5)
 		cockHard = 1
-		gs 'arousal', 'bj', 3
+		gs 'arousal', 'bj', iif(rand(0,1) > 0, -1, 1)
 		gs 'stat'
 		act 'Lick his balls':step = 1 & gt 'pav_shared_gp', 'gpSuck'
 		act 'Lick the tip':step = 2 & gt 'pav_shared_gp', 'gpSuck'
@@ -508,7 +508,7 @@ if $ARGS[0] = 'gpSuck':
 		''
 		'You take <<$gp_name>> cock in your hand, pointing the tip in front of your mouth.'
 		'As it was your favourity puppy, you start to gently Lick the tip all around, slowly making the cock to get harder and harder, finally reaching his full <<gpDick>> cm length.'
-		gs 'arousal', 'bj', 3
+		gs 'arousal', 'bj', iif(rand(0,1) > 0, -1, 1)
 		gs 'stat'
 		orgB += rand(2, 7)
 		cockHard = 1
@@ -530,7 +530,7 @@ if $ARGS[0] = 'gpSuck':
 			orgB += rand(10, 20)
 			'<<$gp_name>>''s already hard cock points toward you and you suck the dark pink tip as a lolipop.'
 		end
-		gs 'arousal', 'bj', 3
+		gs 'arousal', 'bj', iif(rand(0,1) > 0, -1, 1)
 		gs 'stat'
 		act 'Lick his balls':step = 1 & gt 'pav_shared_gp', 'gpSuck'
 		act 'Lick the tip':step = 2 & gt 'pav_shared_gp', 'gpSuck'
@@ -554,7 +554,7 @@ if $ARGS[0] = 'gpSuck':
 			orgB += rand(20, 40)
 			'<<$gp_name>>''s already hard cock points toward you and you suck almost half of it, sucking and slurping it as best as you can.'
 		end
-		gs 'arousal', 'bj', 8
+		gs 'arousal', 'bj', iif(rand(0,1) > 0, -1, 1)
 		gs 'stat'
 		act 'Lick his balls':step = 1 & gt 'pav_shared_gp', 'gpSuck'
 		act 'Lick the tip':step = 2 & gt 'pav_shared_gp', 'gpSuck'
@@ -574,14 +574,14 @@ if $ARGS[0] = 'gpSuck':
 		'You force yourself on to it, overcoming the gag reflex in your throat, saliva and tears almost squirting out of you.'
 		'Doing this several times in a row, you try to hold on as long as you can with dick all the way down in your throat.'
 		gp_bjDeep = 1
-		gs 'arousal', 'bj', 6
+		gs 'arousal', 'bj', iif(rand(0,1) > 0, -1, 1)
 		gs 'stat'
-		deepthroatFailCh = rand(0, 100)
+		deepthroatFailCh = rand(0, 100) + pcs_throat / 3
 		fadeOutCh = rand(0, 100)
 		if deepthroatFailCh <= 10:
 			'<b>You try too hard to put it as far as possible, unable to hold the gag reflex anymore, still with his dick inside you vomit right in <<$gp_name>>''s crotch!</b>'
 			act 'Continue':step = 8 & gt 'pav_shared_gp', 'gpSuck'
-		elseif fadeOutCh <= 10:
+		elseif fadeOutCh <= 5:
 			'<b>You try too hard to keep the cock inside you as long as possible, not being able to catch enough breath. Suddenly all goes dark and you fade away...</b>'
 			act 'Continue':step = 9 & gt 'pav_shared_gp', 'gpSuck'
 		else
@@ -599,7 +599,7 @@ if $ARGS[0] = 'gpSuck':
 	elseif step = 6:
 		'You decided that now it''s time to try and make him finally cum.'
 		'Intensifying the pressure and pace, you expect him every moment to moan and be done with it.'
-		gs 'arousal', 'bj', 5
+		gs 'arousal', 'bj', iif(rand(0,1) > 0, -1, 1)
 		cumCh = rand(0, 100)
 		if cumCh <= 70:
 			'<center><video autoplay loop src="images/shared/sex/cum/mouth/cum1,5.mp4"></video></center>'
@@ -756,17 +756,17 @@ if $ARGS[0] = 'gpSexVaginal':
 			'Slightly shaking you do as he says...'
 			'In that moment he pushes his dick inside you as far as your somewhat dry pussy let''s him.'
 			'<<$gp_name>> bangs you wildly right from the start.'
-			gs 'arousal', 'vaginal', 10, 'lube'
+			gs 'arousal', 'vaginal', iif(rand(0,1) > 0, -1, 1)
 			gs 'stat'
 			orgB += rand(10, 25) 
 			act 'Let him continue':subStep = 1 & gt 'pav_shared_gp', 'gpSexVaginal'
 		elseif subStep = 1:
-			minut += 10
+			  
 			'<center><video autoplay loop src="images/locations/pavlovsk/resident/sharedapt/sex/gp/vagmissionary2.mp4"></video></center>'
 			''
 			'As he continuously and wildly rams your pussy, you have no strength to do anything but endure it and moan like an injured pig.'
 			'<<$gp_name>> now rams you as fast as he can, all his <<gpDick>> cm are inside you.'
-			gs 'arousal', 'vaginal', 10
+			gs 'arousal', 'vaginal', iif(rand(0,1) > 0, -1, 1)
 			gs 'stat'
 			orgB += rand(30, 50) 
 			if orgB < 100:act 'Let him continue':subStep = 1 & gt 'pav_shared_gp', 'gpSexVaginal'
@@ -784,17 +784,17 @@ if $ARGS[0] = 'gpSexVaginal':
 			'After his words, he grabs your hips and thrusts all of his <<gpDick>> centimeters inside your pussy, making you scream from discomfort.'
 			'The first pain fades away and you can feel building warmth and a good feeling of being fucked from behind like a mare in heat.'
 			'He fucks you furiously right from the start.'
-			gs 'arousal', 'vaginal', 10, 'lube'
+			gs 'arousal', 'vaginal', iif(rand(0,1) > 0, -1, 1)
 			gs 'stat'
 			orgB += rand(5, 20)
 			act 'Let him continue':subStep = 1 & gt 'pav_shared_gp', 'gpSexVaginal'
 		elseif subStep = 1:
-			minut += 10
+			  
 			'<center><video autoplay loop src="images/locations/city/residential/sauna/sex/fuckroughvaginal4.mp4"></video></center>'
 			''
 			'As he continuously and wildly rams your pussy, you have no strength to do anything but endure it and moan like an injured pig.'
 			'<<$gp_name>> now rams you as deep and as fast he can, the every one of his <<gpDick>> cm are inside you with each stroke.'
-			gs 'arousal', 'vaginal', 10
+			gs 'arousal', 'vaginal', iif(rand(0,1) > 0, -1, 1)
 			gs 'stat'
 			orgB += rand(20, 40) 
 			if orgB < 100:act 'Let him continue':subStep = 1 & gt 'pav_shared_gp', 'gpSexVaginal'
@@ -812,18 +812,18 @@ if $ARGS[0] = 'gpSexVaginal':
 			'<font color=#<<$gp_font>>>"<<$pcs_firstname>>, prepare for the penetration!"</font>'
 			'Then he pushes as far as his <<gpDick>> cm long dick can reach.' 
 			'<<$gp_name>> bangs you wildly right from the start.'
-			gs 'arousal', 'vaginal', 10, 'lube'
+			gs 'arousal', 'vaginal', iif(rand(0,1) > 0, -1, 1)
 			gs 'stat'
 			orgB += rand(10, 25) 
 			act 'Let him continue':subStep = 1 & gt 'pav_shared_gp', 'gpSexVaginal'
 		elseif subStep = 1:
-			minut += 10
+			  
 			'<center><video autoplay loop src="images/locations/pavlovsk/resident/sharedapt/sex/vagsidefuck2.mp4"></video></center>'
 			''
 			'As he continuously and wildly rams your pussy, you have no strength to do anything but endure it and moan like an injured pig.'
 			'<<$gp_name>> now rams you as deep as he can and giving the position and the whole (<<gpDick>> cm) size of his dick, most of the strokes hurt.'
 			gs 'pain', 1, 'vaginal', 'stretch'
-			gs 'arousal', 'vaginal', 10
+			gs 'arousal', 'vaginal', iif(rand(0,1) > 0, -1, 1)
 			gs 'stat'
 			orgB += rand(30, 50) 
 			if orgB < 100:act 'Let him continue':subStep = 1 & gt 'pav_shared_gp', 'gpSexVaginal'
@@ -840,17 +840,17 @@ if $ARGS[0] = 'gpSexVaginal':
 			'Facing him with your back, you climb on top of him and burry his <<gpDick>> cm long dick in your pussy. You wanted to ride it a bit to make the fuck smoother, but he doesn''t let you:<font color=#<<$gp_font>>>"No time for that <<$pcs_firstname>>, let''s start already!"</font>'
 			'Not waiting for your answer he grabs your legs and reaches for your head, immobilizing you entirely. Then he starts fucking you like a wild animal.'
 			'In this position you literally see every stroke of his <<gpDick>> cm long penis into your pussy... And there is nothing else you can do.'
-			gs 'arousal', 'vaginal', 10, 'lube'
+			gs 'arousal', 'vaginal', iif(rand(0,1) > 0, -1, 1)
 			gs 'stat'
 			orgB += rand(30, 50) 
 			act 'Let him continue':subStep = 1 & gt 'pav_shared_gp', 'gpSexVaginal'
 		elseif subStep = 1:
-			minut += 10
+			  
 			'<center><video autoplay loop src="images/locations/pavlovsk/resident/sharedapt/sex/vagfullnelson2.mp4"></video></center>'
 			''
 			'As he continuously and wildly rams your pussy, you have no strength to do anything but endure it and moan like an injured pig.'
 			'<<$gp_name>> rams you as deep as he can.'
-			gs 'arousal', 'vaginal', 10
+			gs 'arousal', 'vaginal', iif(rand(0,1) > 0, -1, 1)
 			gs 'stat'
 			orgB += rand(40, 60) 
 			if orgB < 100:act 'Let him continue':subStep = 1 & gt 'pav_shared_gp', 'gpSexVaginal'
@@ -868,17 +868,17 @@ if $ARGS[0] = 'gpSexVaginal':
 			'<<$gp_name>> now has the very best access to your pussy: <font color=#<<$gp_font>>>"Now that''s a sight! Every girl should be fucked like that!"</font>'
  			'He goes to you, probing your pussy with several of his fingers.'
 			'After while he takes his phallus, somehow bending it downwards and pushes it inside you.'
-			gs 'arousal', 'vaginal', 10, 'lube'
+			gs 'arousal', 'vaginal', iif(rand(0,1) > 0, -1, 1)
 			gs 'stat'
 			orgB += rand(30, 50) 
 			act 'Let him continue':subStep = 1 & gt 'pav_shared_gp', 'gpSexVaginal'
 		elseif subStep = 1:
-			minut += 10
+			  
 			'<center><video autoplay loop src="images/locations/pavlovsk/resident/sharedapt/sex/vagpiledriver2.mp4"></video></center>'
 			''
 			'As he continuously and wildly rams your pussy, you have no strength to do anything but endure it and moan like an injured pig.'
 			'<<$gp_name>> rams you as deep as he can, making big effort to hammer you down as much as he can.'
-			gs 'arousal', 'vaginal', 10
+			gs 'arousal', 'vaginal', iif(rand(0,1) > 0, -1, 1)
 			gs 'stat'
 			orgB += rand(40, 60) 
 			if orgB < 100:act 'Let him continue':subStep = 1 & gt 'pav_shared_gp', 'gpSexVaginal'
@@ -905,7 +905,7 @@ if $ARGS[0] = 'gpSexVaginal':
 			'He starts pushing it into, and even that it is quite lubed, it goes hard.'
 			'Finally he slips through the inner barrier and thrusts large part of his enlarged, <<gpDick_enlarged>> cm long and very thick dick into you.'
 			orgB += rand(20, 30)
-			gs 'pain', 1, 'vaginal', 'tear'
+			gs 'pain', 3, 'vaginal', 'tear'
 			act 'Endure it':subStep = 2 & gt 'pav_shared_gp', 'gpSexVaginal'
 		elseif subStep = 2:
 			'<center><video autoplay loop src="images/locations/shared/abduction/sex/slavewhorefuckdeep2.mp4"></video></center>'
@@ -914,7 +914,7 @@ if $ARGS[0] = 'gpSexVaginal':
 			'Today he obviously enjoys his dominance and fucks you relentlessly.'
 			'You have no strength to fight him and just try to endure it till the end.'
 			orgB += rand(40, 60)
-			gs 'pain', 1, 'vaginal', 'stretch'
+			gs 'pain', 5, 'vaginal', 'stretch'
 			if orgB < 100:act 'Let him continue':subStep = 2 & gt 'pav_shared_gp', 'gpSexVaginal'
 			if orgB >= 100:act 'He is about to cum':step = 10 & subStep = 0 & gt 'pav_shared_gp', 'gpSexVaginal'			
 		end
@@ -940,7 +940,7 @@ if $ARGS[0] = 'gpSexVaginal':
 			gp_cumVag += gp_cumVol
 			gp_lastCum = daystart
 			gs 'cum_call', '', $boy, 1, 0, gp_cumVol
-			gs 'arousal', 'vaginal', 2
+			gs 'arousal', 'vaginal', iif(rand(0,1) > 0, -1, 1)
 			gs 'arousal', 'end'
 			gs 'stat'
 			act 'Leave':gp_cumVol = 0 & gt 'pav_shared_apt', 'payService'
@@ -951,7 +951,7 @@ if $ARGS[0] = 'gpSexVaginal':
 			''
 			'<<$gp_name>> finally reaches his violent orgasm and in the moment he starts spouting his seed, he takes his dick out and points it on your stomach.'
 			'A large pool of cum lands on your abdomen, feeling warm but sticky.'
-			minut += 2
+			minut += 1
 			gp_lastCum = daystart
 			gs 'cum_call', 'stomach', $boy, 1, 0, gp_cumVol
 			gs 'arousal', 'end'
@@ -964,7 +964,7 @@ if $ARGS[0] = 'gpSexVaginal':
 			''
 			'<<$gp_name>> finally reaches his violent orgasm and in the moment he starts spouting his seed, he takes his dick out and points it on your ass.'
 			'Both your asscheeks are covered in sticky, warm seed.'
-			minut += 2
+			minut += 1
 			gp_lastCum = daystart
 			gs 'cum_call', 'butt', $boy, 1, 0, gp_cumVol
 			gs 'arousal', 'end'
@@ -978,7 +978,7 @@ if $ARGS[0] = 'gpSexVaginal':
 			'<<$gp_name>> finally reaches his violent orgasm and in the moment he starts spouting his seed, he pushes you on your knees and points his tip in front of your face.'
 			'The seed starts squirting, splashing your face with surprisingly strong force, leaking to your nose and eyes and hair...'
 			'<font color=#<<$gp_font>>>"Oh yes, now that''s the right makeup for a girl!"</font>'
-			minut += 2
+			minut += 1
 			gp_lastCum = daystart
 			gs 'cum_call', 'face', $boy, 1, 0, gp_cumVol
 			gs 'arousal', 'end'
@@ -1006,7 +1006,7 @@ if $ARGS[0] = 'gpSexVaginal':
 			gp_vagCumInside += 1
 			gp_vagCumInsideUnwanted += 1
 			gs 'cum_call', '', $boy, 1, 0, gp_cumVol
-			gs 'arousal', 'vaginal', 5, 'sub'
+			gs 'arousal', 'vaginal', iif(rand(0,1) > 0, -1, 1), 'sub'
 			gs 'arousal', 'end'
 			gs 'stat'
 			act 'Leave':gp_cumVol = 0 & gt 'pav_shared_apt', 'payService'
@@ -1111,7 +1111,7 @@ if $ARGS[0] = 'gpSexAnal':
 			'As he is content with the sight, he leans above you, moving his hips closer to your crotch.'
 			'He points the tip of his <<gpDick>> to your pussy and looks up to your face: <font color=#<<$gp_font>>>"Look at me while I penetrate your sphincter!"</font>'
 			! normal/or-better mood OR likes Sveta
-			if gp_mood <= 3 or gp_rel > 80:
+			if gp_mood <= 3:
 				'Before doing so, he takes some more lube on his fingers and one by one he sretches your anus with them. Making it easier for you to be penetrated.'
 				'He starts pushing his dick inside, and as it is lubed, it goes in quite easily.'
 			else
@@ -1119,10 +1119,10 @@ if $ARGS[0] = 'gpSexAnal':
 				'In that moment he pushes his dick inside your ass as far as he can!'
 				'<font color=#<<$pcs_font>>>"Ouuuch! <<$gp_name>>, that hurt!"</font>'
 				'<font color=#<<$gp_font>>>"Shut up <<$pcs_firstname>> and take it like a good little girl!"</font>'
-				gs 'pain', 1, 'asshole', 'tear'
+				gs 'pain', 3, 'asshole', 'tear'
 			end
 			'<<$gp_name>> bangs you wildly right from the start.'
-			gs 'arousal', 'anal', 10, 'lube'
+			gs 'arousal', 'anal', iif(rand(0,1) > 0, -1, 1)
 			gs 'stat'
 			orgB += rand(5, 20) 
 			act 'Let him continue':subStep = 1 & gt 'pav_shared_gp', 'gpSexAnal'
@@ -1132,7 +1132,8 @@ if $ARGS[0] = 'gpSexAnal':
 			''
 			'As he continuously and wildly rams your anus, you have no strength to do anything but endure it and moan like an injured pig.'
 			'<<$gp_name>> now rams you as deep as he can, all his <<gpDick>> centimeters are inside you.'
-			gs 'arousal', 'anal', 10
+			gs 'arousal', 'anal', iif(rand(0,1) > 0, -1, 1)
+			agape = 2
 			gs 'stat'
 			orgB += rand(20, 40) 
 			if orgB < 100:act 'Let him continue':subStep = 1 & gt 'pav_shared_gp', 'gpSexAnal'
@@ -1147,17 +1148,18 @@ if $ARGS[0] = 'gpSexAnal':
 			'You kneel on the bed, bending your back as much as you can, putting your nice round ass as high as possible.'
 			'<<$gp_name>> kneels behind you, poking your anus with several of his fingers.'
 			! normal/or-better mood OR likes Sveta
-			if gp_mood <= 3 or gp_rel > 80:
+			if gp_mood <= 3:
 				'He takes some more lube on his fingers and one by one he sretches your anus with them. Making it easier for you to be penetrated.'
 				'He starts pushing his dick inside, and as it is lubed, it goes in quite easily.'
 			else
 				'In a few moments he pushes his dick inside your ass as far as he can!'
 				'<font color=#<<$pcs_font>>>"Ouuuch! <<$gp_name>>, that hurt!"</font>'
 				'<font color=#<<$gp_font>>>"Shut up <<$pcs_firstname>> and take it like a good little girl!"</font>'
-				gs 'pain', 1, 'asshole', 'tear'
+				gs 'pain', 3, 'asshole', 'tear'
 			end
 			'<<$gp_name>> bangs you wildly right from the start.'	
-			gs 'arousal', 'anal', 10, 'lube'
+			gs 'arousal', 'anal', iif(rand(0,1) > 0, -1, 1)
+			agape = 2
 			gs 'stat'
 			orgB += rand(5, 20)
 			act 'Let him continue':subStep = 1 & gt 'pav_shared_gp', 'gpSexAnal'
@@ -1167,7 +1169,7 @@ if $ARGS[0] = 'gpSexAnal':
 			''
 			'As he continuously and wildly rams your anus, you have no strength to do anything but endure it and moan like an injured pig.'
 			'<<$gp_name>> now rams you as deep and as fast he can, the every one of his <<gpDick>> centimeters are inside you with every stroke.'
-			gs 'arousal', 'anal', 10
+			gs 'arousal', 'anal', iif(rand(0,1) > 0, -1, 1)
 			gs 'stat'
 			orgB += rand(20, 40) 
 			if orgB < 100:act 'Let him continue':subStep = 1 & gt 'pav_shared_gp', 'gpSexAnal'
@@ -1184,17 +1186,18 @@ if $ARGS[0] = 'gpSexAnal':
 			'<<$gp_name>> takes his rod, pointing the tip right to your anus.'
 			'<font color=#<<$gp_font>>>"<<$pcs_firstname>>, prepare for the penetration!"</font>'
 			! normal/or-better mood OR likes Sveta
-			if gp_mood <= 3 or gp_rel > 80:
+			if gp_mood <= 3:
 				'He takes some more lube on his fingers and one by one he sretches your anus with them. Making it easier for you to be penetrated later.'
 				'He starts pushing his dick inside, and as it is lubed, it goes in quite easily.'
 			else
 				'In a few moments he pushes his dick inside your ass as far as he can!'
 				'<font color=#<<$pcs_font>>>"Ouuuch! <<$gp_name>>, that hurt!"</font>'
 				'<font color=#<<$gp_font>>>"Shut up <<$pcs_firstname>> and take it like a good little girl!"</font>'
-				gs 'pain', 1, 'asshole', 'tear'
+				gs 'pain', 3, 'asshole', 'tear'
 			end
 			'<<$gp_name>> bangs you wildly right from the start.'
-			gs 'arousal', 'anal', 10, 'lube'
+			gs 'arousal', 'anal', iif(rand(0,1) > 0, -1, 1)
+			agape = 2
 			gs 'stat'
 			orgB += rand(5, 20) 
 			act 'Let him continue':subStep = 1 & gt 'pav_shared_gp', 'gpSexAnal'
@@ -1204,7 +1207,8 @@ if $ARGS[0] = 'gpSexAnal':
 			'As he continuously and wildly rams your anus, you have no strength to do anything but endure it and moan like an injured pig.'
 			'<<$gp_name>> now rams you as deep and he can and giving the position and the entire (<<gpDick>> cm) size of his dick, the continuous banging hurts.'
 			gs 'pain', 1, 'anal', 'stretch'
-			gs 'arousal', 'anal', 10
+			gs 'arousal', 'anal', iif(rand(0,1) > 0, -1, 1)
+			agape
 			gs 'stat'
 			orgB += rand(20, 40) 
 			if orgB < 100:act 'Let him continue':subStep = 1 & gt 'pav_shared_gp', 'gpSexAnal'
@@ -1223,7 +1227,7 @@ if $ARGS[0] = 'gpSexAnal':
 			'In this position you literally see every stroke of his <<gpDick>> cm long penis into your pussy... And there is nothing else you can do.'
 			'In this position you literally see every stroke of his penis into your anus, hidden bellow your empty pussy... But there is nothing else you can do.'
 			'You feel like being continuously impaled.'
-			gs 'arousal', 'anal', 10, 'lube'
+			gs 'arousal', 'anal', iif(rand(0,1) > 0, -1, 1)
 			gs 'stat'
 			orgB += rand(20, 40) 
 			act 'Let him continue':subStep = 1 & gt 'pav_shared_gp', 'gpSexAnal'
@@ -1232,7 +1236,8 @@ if $ARGS[0] = 'gpSexAnal':
 			''
 			'As he continuously and wildly rams your anus, you have no strength to do anything but endure it and moan like an injured pig.'
 			'<<$gp_name>> rams you as deep as he can.'
-			gs 'arousal', 'anal', 10
+			gs 'arousal', 'anal', iif(rand(0,1) > 0, -1, 1)
+			agape=2
 			gs 'stat'
 			orgB += rand(30, 50) 
 			if orgB < 100:act 'Let him continue':subStep = 1 & gt 'pav_shared_gp', 'gpSexAnal'
@@ -1250,17 +1255,17 @@ if $ARGS[0] = 'gpSexAnal':
 			'<<$gp_name>> now has the very best access to your pussy: <font color=#<<$gp_font>>>"Now that''s a sight! Every girl should be fucked like that!"</font>'
  			'He goes to you, probing your pussy with several of his fingers.'
 			! normal/or-better mood OR likes Sveta
-			if gp_mood <= 3 or gp_rel > 80:
+			if gp_mood <= 3:
 				'He takes some more lube on his fingers and one by one he sretches your anus with them. Making it easier for you to be penetrated later.'
 				'He starts pushing his dick inside, and as it is lubed, it goes in quite easily.'
 			else
 				'Without much care about your feelings he rams his <<gpDick>> cm long thick dick into your anus.'
 				'<font color=#<<$pcs_font>>>"Ouuuch! <<$gp_name>>, that hurt!"</font>'
 				'<font color=#<<$gp_font>>>"Shut up <<$pcs_firstname>> and take it like a good anal slut!"</font>'
-				gs 'pain', 1, 'asshole', 'tear'
+				gs 'pain', 3, 'asshole', 'tear'
 			end
 			'You feel like being continuously impaled.'
-			gs 'arousal', 'anal', 10, 'lube'
+			gs 'arousal', 'anal', iif(rand(0,1) > 0, -1, 1)
 			gs 'stat'
 			orgB += rand(20, 40) 
 			act 'Let him continue':subStep = 1 & gt 'pav_shared_gp', 'gpSexAnal'
@@ -1269,7 +1274,8 @@ if $ARGS[0] = 'gpSexAnal':
 			''
 			'As he continuously and wildly rams your anus, you have no strength to do anything but endure it and moan like an injured pig.'
 			'<<$gp_name>> rams you as deep as he can.'
-			gs 'arousal', 'anal', 10
+			gs 'arousal', 'anal', iif(rand(0,1) > 0, -1, 1)
+			agape=2
 			gs 'stat'
 			orgB += rand(30, 50) 
 			if orgB < 100:act 'Let him continue':subStep = 1 & gt 'pav_shared_gp', 'gpSexAnal'
@@ -1296,7 +1302,7 @@ if $ARGS[0] = 'gpSexAnal':
 			'He starts pushing it into you, and even that it is quite lubed, it goes hard.'
 			'Finally he slips through the sphincter and thrusts large part of his enlarged, <<gpDick_enlarged>> cm long and very thick dick into your ass.'
 			orgB += rand(20, 30)
-			gs 'pain', 1, 'asshole', 'tear'
+			gs 'pain', 6, 'asshole', 'tear'
 			act 'Endure it':subStep = 2 & gt 'pav_shared_gp', 'gpSexAnal'
 		elseif subStep = 2:
 			'<center><video autoplay loop src="images/locations/shared/abduction/sex/slavewhorefuckanaldeep1.mp4"></video></center>'
@@ -1304,7 +1310,8 @@ if $ARGS[0] = 'gpSexAnal':
 			'<<$gp_name>> uses his newly gained centimeters and fucks your ass harder than usual, making you scream and moan and beg for relief... in vain.'
 			'Today he obviously enjoys his dominance and fucks you relentlessly.'
 			'You have no strength to fight him and just try to endure it till the end.'
-			gs 'pain', 1, 'asshole', 'stretch'
+			gs 'pain', 5, 'asshole', 'stretch'
+			agape=3
 			orgB += rand(40, 60) 
 			if orgB < 100:act 'Let him continue':subStep = 2 & gt 'pav_shared_gp', 'gpSexAnal'
 			if orgB >= 100:act 'He is about to cum':step = 10 & subStep = 0 & gt 'pav_shared_gp', 'gpSexAnal'			

locations/pav_shared_nd.qsrc

@@ -3,7 +3,7 @@
 if $ARGS[0] = 'nd':
 	menu_off = 1
 	$loc_arg = 'nd'
-	minut += 2
+	minut += 1
 	'<h3><font color=#<<$nd_font>>><<$nd_name>></font></h3>'
 	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/sharedapt/nd/nd.jpg"></center>'
 	''
@@ -94,7 +94,7 @@ if $ARGS[0] = 'ndChat':
 			act 'Chat about everyday stuff': step = 10 & gt 'pav_shared_nd', 'ndChat'
 			act 'Leave':gt 'pav_shared_apt', 'start'
 		elseif step = 10:
-			minut += 15
+			minut += 5
 			sayN = rand (1, 10)
 			if sayN = 1:'<i><font color=#<<$nd_font>>>"Once I have hacked into FSB network... the stuff there, you should see."</font></i>'
 			if sayN = 2:'<i><font color=#<<$nd_font>>>"I really like playing MMO games!"</font></i>'
@@ -213,7 +213,7 @@ end
 
 if $ARGS[0] = 'ndDick':
 	menu_off = 1
-	minut += 2
+		   
 	'<h3><font color=#<<$nd_font>>><<$nd_name>></font></h3>'
 	if set_imgh < 250:
 		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/sharedapt/nd/nd.jpg"></center>'
@@ -371,7 +371,7 @@ if $ARGS[0] = 'ndSuckBellowTable':
 		'<center><video autoplay loop src="images/locations/pavlovsk/resident/sharedapt/sex/bjtablekisstip.mp4"></video></center>'
 		'You take <<$nd_name>> cock in your hand, pointing the tip in fron of your mouth.'
 		'As it was your favourity puppy, you start to gently Lick the tip all around, slowly making the cock to get harder and harder, finally reaching his full <<ndDick>> cm length.'
-		gs 'arousal', 'bj', 3
+		gs 'arousal', 'bj', iif(rand(0,1) > 0, -1, 1)
 		gs 'stat'
 		cockHard = 1
 		act 'Suck just the tip':step = 2 & gt 'pav_shared_nd', 'ndSuckBellowTable'
@@ -390,7 +390,7 @@ if $ARGS[0] = 'ndSuckBellowTable':
 			orgB += rand(10, 20)
 			'<<$nd_name>>''s already hard cock points toward you and you suck the dark pink tip as a lolipop.'
 		end
-		gs 'arousal', 'bj', 3
+		gs 'arousal', 'bj', iif(rand(0,1) > 0, -1, 1)
 		gs 'stat'
 		act 'Lick the tip':step = 1 & gt 'pav_shared_nd', 'ndSuckBellowTable'
 		act 'Suck just the tip':step = 2 & gt 'pav_shared_nd', 'ndSuckBellowTable'
@@ -413,7 +413,7 @@ if $ARGS[0] = 'ndSuckBellowTable':
 			orgB += rand(20, 40)
 			'<<$nd_name>>''s already hard cock points toward you and you suck almost half of it, sucking and slurping it as best as you can.'
 		end
-		gs 'arousal', 'bj', 8
+		gs 'arousal', 'bj', iif(rand(0,1) > 0, -1, 1)
 		gs 'stat'
 		act 'Lick the tip':step = 1 & gt 'pav_shared_nd', 'ndSuckBellowTable'
 		act 'Suck just the tip':step = 2 & gt 'pav_shared_nd', 'ndSuckBellowTable'
@@ -432,9 +432,9 @@ if $ARGS[0] = 'ndSuckBellowTable':
 		'You force yourself on to it, overcoming the gag reflex in your throat, saliva and tears almost squirting out of you.'
 		'Doing this several times in a row, you try to hold on as long as you can with dick all the way down in your throat.'
 		nd_bjDeep = 1
-		gs 'arousal', 'bj', 6
+		gs 'arousal', 'bj', iif(rand(0,1) > 0, -1, 1)
 		gs 'stat'
-		deepthroatFailCh = rand(0, 100)
+		deepthroatFailCh = rand(0, 100) + pcs_throat / 2
 		fadeOutCh = rand(0, 100)
 		if deepthroatFailCh <= 10:
 			'<b>You try too hard to put it as far as possible, unable to hold the gag reflex anymore, still with his dick inside you vomit right in <<$nd_name>>''s crotch!</b>'
@@ -456,7 +456,7 @@ if $ARGS[0] = 'ndSuckBellowTable':
 	elseif step = 5:
 		'You decided that now it''s time to try and make him finally cum.'
 		'Intensifying the pressure and pace, you expect him every moment to moan and be done with it.'
-		gs 'arousal', 'bj', 5
+		gs 'arousal', 'bj', iif(rand(0,1) > 0, -1, 1)
 		cumCh = rand(0, 100)
 		if cumCh <= 70:
 			''
@@ -590,7 +590,7 @@ if $ARGS[0] = 'ndSuck':
 		'Slowly you move your head down in his crotch and bellow his phallus. The moment you start using your tongue on his device, you can feel the increased pulsation in his veins, making the cock larger and thicker every second.'
 		orgB += rand(0, 5)
 		cockHard = 1
-		gs 'arousal', 'bj', 3
+		gs 'arousal', 'bj', iif(rand(0,1) > 0, -1, 1)
 		gs 'stat'
 		act 'Lick his balls':step = 1 & gt 'pav_shared_nd', 'ndSuck'
 		act 'Lick the tip':step = 2 & gt 'pav_shared_nd', 'ndSuck'
@@ -603,7 +603,7 @@ if $ARGS[0] = 'ndSuck':
 		''
 		'You take <<$nd_name>> cock in your hand, pointing the tip in front of your mouth.'
 		'As it was your favourity puppy, you start to gently Lick the tip all around, slowly making the cock to get harder and harder, finally reaching his full <<ndDick>> cm length.'
-		gs 'arousal', 'bj', 2
+		gs 'arousal', 'bj', iif(rand(0,1) > 0, -1, 1)
 		gs 'stat'
 		orgB += rand(2, 7)
 		cockHard = 1
@@ -624,7 +624,7 @@ if $ARGS[0] = 'ndSuck':
 			orgB += rand(10, 20)
 			'<<$nd_name>>''s already hard cock points toward you and you suck the dark pink tip as a lolipop.'
 		end
-		gs 'arousal', 'bj', 3
+		gs 'arousal', 'bj', iif(rand(0,1) > 0, -1, 1)
 		gs 'stat'
 		act 'Lick his balls':step = 1 & gt 'pav_shared_nd', 'ndSuck'
 		act 'Lick the tip':step = 2 & gt 'pav_shared_nd', 'ndSuck'
@@ -648,7 +648,7 @@ if $ARGS[0] = 'ndSuck':
 			orgB += rand(20, 40)
 			'<<$nd_name>>''s already hard cock points toward you and you suck almost half of it, sucking and slurping it as best as you can.'
 		end
-		gs 'arousal', 'bj', 8
+		gs 'arousal', 'bj', iif(rand(0,1) > 0, -1, 1)
 		gs 'stat'
 		act 'Lick his balls':step = 1 & gt 'pav_shared_nd', 'ndSuck'
 		act 'Lick the tip':step = 2 & gt 'pav_shared_nd', 'ndSuck'
@@ -668,9 +668,9 @@ if $ARGS[0] = 'ndSuck':
 		'You force yourself on to it, overcoming the gag reflex in your throat, saliva and tears almost squirting out of you.'
 		'Doing this several times in a row, you try to hold on as long as you can with dick all the way down in your throat.'
 		nd_bjDeep = 1
-		gs 'arousal', 'bj', 6
+		gs 'arousal', 'bj', iif(rand(0,1) > 0, -1, 1)
 		gs 'stat'
-		deepthroatFailCh = rand(0, 100)
+		deepthroatFailCh = rand(0, 100) + pcs_throat / 2
 		fadeOutCh = rand(0, 100)
 		if deepthroatFailCh <= 10:
 			'<b>You try too hard to put it as far as possible, unable to hold the gag reflex anymore, still with his dick inside you vomit right in <<$nd_name>>''s crotch!</b>'
@@ -693,7 +693,7 @@ if $ARGS[0] = 'ndSuck':
 	elseif step = 6:
 		'You decided that now it''s time to try and make him finally cum.'
 		'Intensifying the pressure and pace, you expect him every moment to moan and be done with it.'
-		gs 'arousal', 'bj', 5
+		gs 'arousal', 'bj', iif(rand(0,1) > 0, -1, 1)
 		cumCh = rand(0, 100)
 		if cumCh <= 70:
 			'<center><video autoplay loop src="images/characters/pavlovsk/resident/leonid/sex/cummouth1.mp4"></video></center>'
@@ -844,7 +844,7 @@ if $ARGS[0] = 'ndSexVaginal':
 			'You can feel warm sensation between your legs, replaced by pressure and suddenly even a mild pain. That''s when he enters your tender pussy.'
 			'<<$nd_name>> begins to move inside you, ever increasing the pace.'
 			'In a few moments he starts groaning, obviously enjoying the fuck.'
-			gs 'arousal', 'vaginal', 10, 'lube'
+			gs 'arousal', 'vaginal', iif(rand(0,1) > 0, -1, 1)
 			gs 'stat'
 			orgB += rand(5, 20) 
 			act 'Let him continue':subStep = 1 & gt 'pav_shared_nd', 'ndSexVaginal'
@@ -853,7 +853,7 @@ if $ARGS[0] = 'ndSexVaginal':
 			''
 			'As he continuously fucks your pussy, you rub his hairy ass, making him even hornier.'
 			'<<$nd_name>> now rams you as deep as he can, all his <<ndDick>> cm are inside you.'
-			gs 'arousal', 'vaginal', 10
+			gs 'arousal', 'vaginal', iif(rand(0,1) > 0, -1, 1)
 			gs 'stat'
 			orgB += rand(20, 40) 
 			if orgB < 100:act 'Let him continue':subStep = 1 & gt 'pav_shared_nd', 'ndSexVaginal'
@@ -871,7 +871,7 @@ if $ARGS[0] = 'ndSexVaginal':
 			'He slowly enters your moist hole, pushing as far as your still somewhat dry pussy let''s him.'
 			'The first mild pain fades away and you can feel building warmth and a good feeling of being fucked from behind like a mare in heat.'
 			'In a few moments he starts groaning, obviously enjoying the fuck.'
-			gs 'arousal', 'vaginal', 10, 'lube'
+			gs 'arousal', 'vaginal', iif(rand(0,1) > 0, -1, 1)
 			gs 'stat'
 			orgB += rand(5, 20)
 			act 'Let him continue':subStep = 1 & gt 'pav_shared_nd', 'ndSexVaginal'
@@ -880,7 +880,7 @@ if $ARGS[0] = 'ndSexVaginal':
 			''
 			'As he continuously fucks your pussy, you reach for his hairy balls bashing your clitoris from behind and rub it, making his fuck fury even more intensive.'
 			'<<$nd_name>> now rams you as deep and as fast he can, the every one of his <<ndDick>> cm are inside you with each stroke.'
-			gs 'arousal', 'vaginal', 10
+			gs 'arousal', 'vaginal', iif(rand(0,1) > 0, -1, 1)
 			gs 'stat'
 			orgB += rand(20, 40) 
 			if orgB < 100:act 'Let him continue':subStep = 1 & gt 'pav_shared_nd', 'ndSexVaginal'
@@ -899,7 +899,7 @@ if $ARGS[0] = 'ndSexVaginal':
 			'He starts pushing it inside, and as it is lubed, it goes in quite easily.'
 			'<<$nd_name>> uses this to his advantage and pushes as far as his <<ndDick>> cm long dick can reach.' 
 			'In a few moments he starts groaning, obviously enjoying the fuck.'
-			gs 'arousal', 'vaginal', 10, 'lube'
+			gs 'arousal', 'vaginal', iif(rand(0,1) > 0, -1, 1)
 			gs 'stat'
 			orgB += rand(5, 20) 
 			act 'Let him continue':subStep = 1 & gt 'pav_shared_nd', 'ndSexVaginal'
@@ -909,7 +909,7 @@ if $ARGS[0] = 'ndSexVaginal':
 			'As he continuously fucks your pussy, you reach for his hairy balls between your legs, rubbing it and making him groan even more...'
 			'<<$nd_name>> now rams you as deep and he can and giving the position and the whole (<<ndDick>> cm) size of his dick, some of the strokes hurt a little.'
 			gs 'pain', 1, 'vaginal', 'stretch'
-			gs 'arousal', 'vaginal', 10
+			gs 'arousal', 'vaginal', iif(rand(0,1) > 0, -1, 1)
 			gs 'stat'
 			orgB += rand(20, 40) 
 			if orgB < 100:act 'Let him continue':subStep = 1 & gt 'pav_shared_nd', 'ndSexVaginal'
@@ -929,7 +929,7 @@ if $ARGS[0] = 'ndSexVaginal':
 			'Then he grabs your head with both hands, pushing it forwards almost down to your stomach.'
 			'In this position you literally see every stroke of his penis into your pussy... But there is nothing else you can do.'
 			'In a few moments he starts groaning, obviously enjoying the fuck.'
-			gs 'arousal', 'vaginal', 10, 'lube'
+			gs 'arousal', 'vaginal', iif(rand(0,1) > 0, -1, 1)
 			gs 'stat'
 			orgB += rand(20, 40) 
 			act 'Let him continue':subStep = 1 & gt 'pav_shared_nd', 'ndSexVaginal'
@@ -938,7 +938,7 @@ if $ARGS[0] = 'ndSexVaginal':
 			''
 			'As he continuously fucks your pussy, you can do nothing but watch the penis moving in and out of you and his balls banging your labia and clitoris.'
 			'<<$nd_name>> rams you as deep as he can.'
-			gs 'arousal', 'vaginal', 10
+			gs 'arousal', 'vaginal', iif(rand(0,1) > 0, -1, 1)
 			gs 'stat'
 			orgB += rand(30, 50) 
 			if orgB < 100:act 'Let him continue':subStep = 1 & gt 'pav_shared_nd', 'ndSexVaginal'
@@ -957,7 +957,7 @@ if $ARGS[0] = 'ndSexVaginal':
 			'He goes to you, rubbing your ass and penetrating your pussy with his wet fingers.'
 			'After while he takes his phallus, somehow bending it downwards and pushes it inside you.'
 			'In a few moments he starts groaning, obviously enjoying the fuck.'
-			gs 'arousal', 'vaginal', 10, 'lube'
+			gs 'arousal', 'vaginal', iif(rand(0,1) > 0, -1, 1)
 			gs 'stat'
 			orgB += rand(20, 40) 
 			act 'Let him continue':subStep = 1 & gt 'pav_shared_nd', 'ndSexVaginal'
@@ -966,7 +966,7 @@ if $ARGS[0] = 'ndSexVaginal':
 			''
 			'As he continuously fucks your pussy, you can do nothing but watch his penis and hairy crotch bang you down like a hammer.'
 			'<<$nd_name>> rams you as deep as he can.'
-			gs 'arousal', 'vaginal', 10
+			gs 'arousal', 'vaginal', iif(rand(0,1) > 0, -1, 1)
 			gs 'stat'
 			orgB += rand(30, 50) 
 			if orgB < 100:act 'Let him continue':subStep = 1 & gt 'pav_shared_nd', 'ndSexVaginal'
@@ -1166,7 +1166,7 @@ if $ARGS[0] = 'ndSexAnal':
 			end
 			'<<$nd_name>> begins to move inside you, ever increasing the pace.'
 			'In a few moments he starts groaning, obviously enjoying the fuck.'
-			gs 'arousal', 'anal', 10, 'lube'
+			gs 'arousal', 'anal', iif(rand(0,1) > 0, -1, 1)
 			gs 'stat'
 			orgB += rand(5, 20) 
 			act 'Let him continue':subStep = 1 & gt 'pav_shared_nd', 'ndSexAnal'
@@ -1175,7 +1175,7 @@ if $ARGS[0] = 'ndSexAnal':
 			''
 			'As he continuously fucks your anus, you reach to rub his hairy ass, making him even hornier.'
 			'<<$nd_name>> now rams you as deep as he can, all his <<ndDick>> centimeters are inside you.'
-			gs 'arousal', 'anal', 10
+			gs 'arousal', 'anal', iif(rand(0,1) > 0, -1, 1)
 			gs 'stat'
 			orgB += rand(20, 40) 
 			if orgB < 100:act 'Let him continue':subStep = 1 & gt 'pav_shared_nd', 'ndSexAnal'
@@ -1200,7 +1200,7 @@ if $ARGS[0] = 'ndSexAnal':
 				gs 'pain', 1, 'asshole', 'tear'
 			end
 			'In a few moments he starts groaning, obviously enjoying the fuck.'
-			gs 'arousal', 'anal', 10, 'lube'
+			gs 'arousal', 'anal', iif(rand(0,1) > 0, -1, 1)
 			gs 'stat'
 			orgB += rand(5, 20)
 			act 'Let him continue':subStep = 1 & gt 'pav_shared_nd', 'ndSexAnal'
@@ -1209,7 +1209,7 @@ if $ARGS[0] = 'ndSexAnal':
 			''
 			'As he continuously fucks your anus, you reach for his hairy balls bashing your empty pussy from behind and rub it, making his fuck fury even more intensive.'
 			'<<$nd_name>> now rams you as deep and as fast he can, the every one of his <<ndDick>> centimeters are inside you with every stroke.'
-			gs 'arousal', 'anal', 10
+			gs 'arousal', 'anal', iif(rand(0,1) > 0, -1, 1)
 			gs 'stat'
 			orgB += rand(20, 40) 
 			if orgB < 100:act 'Let him continue':subStep = 1 & gt 'pav_shared_nd', 'ndSexAnal'
@@ -1235,7 +1235,7 @@ if $ARGS[0] = 'ndSexAnal':
 				gs 'pain', 1, 'asshole', 'tear'
 			end
 			'In a few moments he starts groaning, obviously enjoying the fuck.'
-			gs 'arousal', 'anal', 10, 'lube'
+			gs 'arousal', 'anal', iif(rand(0,1) > 0, -1, 1)
 			gs 'stat'
 			orgB += rand(5, 20) 
 			act 'Let him continue':subStep = 1 & gt 'pav_shared_nd', 'ndSexAnal'
@@ -1245,7 +1245,7 @@ if $ARGS[0] = 'ndSexAnal':
 			'As he continuously fucks your anus, you reach for his hairy balls between your legs, rubbing it and making him groan even more...'
 			'<<$nd_name>> now rams you as deep and he can and giving the position and the entire (<<ndDick>> cm) size of his dick, the continuous banging hurts a little.'
 			gs 'pain', 1, 'anal', 'stretch'
-			gs 'arousal', 'anal', 10
+			gs 'arousal', 'anal', iif(rand(0,1) > 0, -1, 1)
 			gs 'stat'
 			orgB += rand(20, 40) 
 			if orgB < 100:act 'Let him continue':subStep = 1 & gt 'pav_shared_nd', 'ndSexAnal'
@@ -1265,7 +1265,7 @@ if $ARGS[0] = 'ndSexAnal':
 			'Then he grabs your head with both hands, pushing it forwards almost down to your stomach.'
 			'In this position you literally see every stroke of his penis into your anus, hidden bellow your empty pussy... But there is nothing else you can do.'
 			'In a few moments he starts groaning, obviously enjoying the fuck.'
-			gs 'arousal', 'anal', 10, 'lube'
+			gs 'arousal', 'anal', iif(rand(0,1) > 0, -1, 1)
 			gs 'stat'
 			orgB += rand(20, 40) 
 			act 'Let him continue':subStep = 1 & gt 'pav_shared_nd', 'ndSexAnal'
@@ -1274,7 +1274,7 @@ if $ARGS[0] = 'ndSexAnal':
 			''
 			'As he continuously fucks your pussy, you can do nothing but watch the penis moving in and out of you and his balls banging your empty pussy.'
 			'<<$nd_name>> rams you as deep as he can.'
-			gs 'arousal', 'anal', 10
+			gs 'arousal', 'anal', iif(rand(0,1) > 0, -1, 1)
 			gs 'stat'
 			orgB += rand(30, 50) 
 			if orgB < 100:act 'Let him continue':subStep = 1 & gt 'pav_shared_nd', 'ndSexAnal'
@@ -1301,7 +1301,7 @@ if $ARGS[0] = 'ndSexAnal':
 				gs 'pain', 1, 'asshole', 'tear'
 			end
 			'In a few moments he starts groaning, obviously enjoying the fuck.'
-			gs 'arousal', 'anal', 10, 'lube'
+			gs 'arousal', 'anal', iif(rand(0,1) > 0, -1, 1)
 			gs 'stat'
 			orgB += rand(20, 40) 
 			act 'Let him continue':subStep = 1 & gt 'pav_shared_nd', 'ndSexAnal'
@@ -1311,7 +1311,7 @@ if $ARGS[0] = 'ndSexAnal':
 			'As he continuously fucks your anus, you can do nothing but watch his penis and hairy crotch bang you down like a hammer.'
 			'He uses the position and the fact that your pussy is empty in his advantage and while fucking your anus he sticks some of his fingers inside your pussy.'
 			'<<$nd_name>> rams you as deep as he can.'
-			gs 'arousal', 'anal', 10
+			gs 'arousal', 'anal', iif(rand(0,1) > 0, -1, 1)
 			gs 'stat'
 			orgB += rand(30, 50) 
 			if orgB < 100:act 'Let him continue':subStep = 1 & gt 'pav_shared_nd', 'ndSexAnal'
@@ -1483,7 +1483,7 @@ if $ARGS[0] = 'ndSexPiss':
 	
 	! foreplay
 	elseif step = 10:
-		gs 'arousal', 'foreplay', 5
+		gs 'arousal', 'foreplay', iif(rand(0,1) > 0, -1, 1)
 		'<center><video autoplay loop src="images/shared/sex/kiss/kotovpre10.mp4"></video></center>'
 		''
 		'You feel somehow awkward as <<$nd_name>> starts spreading a plastic sheet on the bed and around it.'
@@ -1493,7 +1493,7 @@ if $ARGS[0] = 'ndSexPiss':
 
 	! suck
 	elseif step = 20:
-		gs 'arousal', 'bj', 3
+		gs 'arousal', 'bj', iif(rand(0,1) > 0, -2, 2)
 		cockHard = 1
 		'<center><video autoplay loop src="images/shared/sex/blowjob/kotovbj120.mp4"></video></center>'
 		''
@@ -1503,7 +1503,7 @@ if $ARGS[0] = 'ndSexPiss':
 
 	! vaginal
 	elseif step = 30:
-		gs 'arousal', 'vaginal', 5
+		gs 'arousal', 'vaginal', iif(rand(0,1) > 0, -2, 2)
 		'<center><video autoplay loop src="images/shared/sex/vag/cowgirl/kotovsexbonus17.mp4"></video></center>'
 		''
 		'<<$nd_name>> signals you that he wants to move to a next step and starts stroking his fingers into your already moist pussy.'
@@ -1512,7 +1512,7 @@ if $ARGS[0] = 'ndSexPiss':
 
 	! anal
 	elseif step = 40:
-		gs 'arousal', 'anal', 5
+		gs 'arousal', 'anal', iif(rand(0,1) > 0, -2, 2)
 		'<center><video autoplay loop src="images/shared/sex/anal/cowgirl/kotovsexanal30.mp4"></video></center>'
 		''
 		'As you move to a doggy position, he starts caressing your anus.'

locations/pav_shared_sp.qsrc

@@ -1,9 +1,8 @@
 # pav_shared_sp
-
 if $ARGS[0] = 'sp':
 	menu_off = 1
 	$loc_arg = 'sp'
-	minut += 2
+	minut += 1
 	'<h3><font color=#<<$sp_font>>><<$sp_name>></font></h3>'
 	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/sharedapt/sp/sp.jpg"></center>'
 	''
@@ -50,7 +49,7 @@ if $ARGS[0] = 'spChat':
 				if salocatnow <= 1:
 					'He is not very content with the sight: <font color=#<<$sp_font>>>"<<$pcs_firstname>>, are you not anorexic? Better not, it is a terrible thing."</font>'
 				elseif salocatnow > 1 and salocatnow <= 3:
-					'<font color=#<<$sp_font>>>"<<$pcs_firstname>>, you have nice bodyshape you know. Do you exercise or are you mp4ten from nature?"</font>'
+					'<font color=#<<$sp_font>>>"<<$pcs_firstname>>, you have nice bodyshape you know. Do you exercise or are you fit from nature?"</font>'
 				else
 					'He is not very content with the sight: <font color=#<<$sp_font>>>"<<$pcs_firstname>>, you should eat less, too much bodyfat is bad for your sport performance."</font>'
 				end
@@ -99,7 +98,7 @@ if $ARGS[0] = 'spChat':
 			act 'Chat about everyday stuff': step = 10 & gt 'pav_shared_sp', 'spChat'
 			act 'Leave':gt 'pav_shared_apt', 'start'
 		elseif step = 10:
-			minut += 15
+			minut += 5
 			sayN = rand (1, 10)
 			if sayN = 1:'<i><font color=#<<$sp_font>>>"Doing sports is the way of my life. I cannot imagine not doing any."</font></i>'
 			if sayN = 2:'<i><font color=#<<$sp_font>>>"I need to work harder on my abs."</font></i>'
@@ -186,7 +185,7 @@ end
 
 if $ARGS[0] = 'spDick':
 	menu_off = 1
-	minut += 2
+		   
 	'<h3><font color=#<<$sp_font>>><<$sp_name>></font></h3>'
 	if set_imgh < 250:
 		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/sharedapt/sp/sp.jpg"></center>'
@@ -334,7 +333,7 @@ if $ARGS[0] = 'spSuck':
 		'Slowly you move your head down in his crotch and bellow his phallus. The moment you start using your tongue on his device, you can feel the increased pulsation in his veins, making the cock larger and thicker every second.'
 		orgB += rand(0, 5)
 		cockHard = 1
-		gs 'arousal', 'bj', 3
+		gs 'arousal', 'bj', iif(rand(0,1) > 0, -1, 1)
 		gs 'stat'
 		act 'Lick his balls':step = 1 & gt 'pav_shared_sp', 'spSuck'
 		act 'Lick the tip':step = 2 & gt 'pav_shared_sp', 'spSuck'
@@ -347,7 +346,7 @@ if $ARGS[0] = 'spSuck':
 		''
 		'You take <<$sp_name>> cock in your hand, pointing the tip in front of your mouth.'
 		'As it was your favourity puppy, you start to gently lick the tip all around, slowly making the cock to get harder and harder, finally reaching his full <<spDick>> cm length.'
-		gs 'arousal', 'bj', 3
+		gs 'arousal', 'bj', iif(rand(0,1) > 0, -1, 1)
 		gs 'stat'
 		orgB += rand(2, 7)
 		cockHard = 1
@@ -368,7 +367,7 @@ if $ARGS[0] = 'spSuck':
 			orgB += rand(10, 20)
 			'<<$sp_name>>''s already hard cock points toward you and you suck the dark pink tip as a lolipop.'
 		end
-		gs 'arousal', 'bj', 3
+		gs 'arousal', 'bj', iif(rand(0,1) > 0, -1, 1)
 		gs 'stat'
 		act 'Lick his balls':step = 1 & gt 'pav_shared_sp', 'spSuck'
 		act 'Lick the tip':step = 2 & gt 'pav_shared_sp', 'spSuck'
@@ -392,7 +391,7 @@ if $ARGS[0] = 'spSuck':
 			orgB += rand(20, 40)
 			'<<$sp_name>>''s already hard cock points toward you and you suck almost half of it, sucking and slurping it as best as you can.'
 		end
-		gs 'arousal', 'bj', 8
+		gs 'arousal', 'bj', iif(rand(0,1) > 0, -1, 1)
 		gs 'stat'
 		act 'Lick his balls':step = 1 & gt 'pav_shared_sp', 'spSuck'
 		act 'Lick the tip':step = 2 & gt 'pav_shared_sp', 'spSuck'
@@ -413,9 +412,9 @@ if $ARGS[0] = 'spSuck':
 		'Even though his cock is not the largest one, it is long enough to make you gag.'
 		'Doing this several times in a row, you try to hold on as long as you can with dick all the way down in your throat.'
 		nd_bjDeep = 1
-		gs 'arousal', 'bj', 6
+		gs 'arousal', 'bj', iif(rand(0,1) > 0, -1, 1)
 		gs 'stat'
-		deepthroatFailCh = rand(0, 100)
+		deepthroatFailCh = rand(0, 100) + pcs_throat / 2
 		fadeOutCh = rand(0, 100)
 		if deepthroatFailCh <= 10:
 			'<b>You try too hard to put it as far as possible, unable to hold the gag reflex anymore, still with his dick inside you vomit right in <<$sp_name>>''s crotch!</b>'
@@ -438,9 +437,9 @@ if $ARGS[0] = 'spSuck':
 	elseif step = 6:
 		'You decided that now it''s time to try and make him finally cum.'
 		'Intensifying the pressure and pace, you expect him every moment to moan and be done with it.'
-		gs 'arousal', 'bj', 5
+		gs 'arousal', 'bj', iif(rand(0,1) > 0, -1, 1)
 		cumCh = rand(0, 100)
-		if cumCh <= 70:
+		if cumCh <= 80:
 			'<center><video autoplay loop src="images/characters/pavlovsk/resident/leonid/sex/cummouth1.mp4"></video></center>'
 			''
 			'Your attempt is successful, as <<$sp_name>> cums right into your mouth and on your face.'
@@ -589,7 +588,7 @@ if $ARGS[0] = 'spSexVaginal':
 			'You can feel warm sensation between your legs, replaced by pressure and suddenly even a mild pain. That''s when he enters your tender pussy.'
 			'<<$sp_name>> begins to move inside you, ever increasing the pace.'
 			'In a few moments he starts groaning, obviously enjoying the fuck.'
-			gs 'arousal', 'vaginal', 10, 'lube'
+			gs 'arousal', 'vaginal', iif(rand(0,1) > 0, -1, 1), 'lube'
 			gs 'stat'
 			orgB += rand(5, 20) 
 			act 'Let him continue':subStep = 1 & gt 'pav_shared_sp', 'spSexVaginal'
@@ -599,7 +598,7 @@ if $ARGS[0] = 'spSexVaginal':
 			'As he continuously fucks your pussy, you rub his hairless ass, making him even hornier.'
 			'As you move your hands around his smooth asscheeks, it seems to arouse him even more.'
 			'<<$sp_name>> fucks you slowly and sensitively.'
-			gs 'arousal', 'vaginal', 10
+			gs 'arousal', 'vaginal', iif(rand(0,1) > 0, -1, 1)
 			gs 'stat'
 			orgB += rand(20, 40) 
 			if orgB < 100:act 'Let him continue':subStep = 1 & gt 'pav_shared_sp', 'spSexVaginal'
@@ -615,7 +614,7 @@ if $ARGS[0] = 'spSexVaginal':
 			'<<$sp_name>> kneels behind you, rubbing your asscheeks. He starts probing your pussy with his lubed fingers, sensitively stimulating your labia and clitoris.'
 			'Then he takes his dick and slowly enters your moist hole, pushing in until you he feels it''s starting to feel enough for you.'
 			'The first mild pain fades away and you can feel building warmth and a good feeling of being fucked from behind like a mare in heat.'
-			gs 'arousal', 'vaginal', 10, 'lube'
+			gs 'arousal', 'vaginal', iif(rand(0,1) > 0, -1, 1), 'lube'
 			gs 'stat'
 			orgB += rand(5, 20)
 			act 'Let him continue':subStep = 1 & gt 'pav_shared_sp', 'spSexVaginal'
@@ -625,7 +624,7 @@ if $ARGS[0] = 'spSexVaginal':
 			'As he continuously fucks your pussy, you reach for his smooth balls bashing your clitoris from behind and rub it, making his slow movements even more passionate.'
 			'He often plays with your anus with his fingers during the sex, using the doggystyle position to his advantage.'
 			'<<$sp_name>> fucks you slowly and sensitively.'
-			gs 'arousal', 'vaginal', 10
+			gs 'arousal', 'vaginal', iif(rand(0,1) > 0, -1, 1)
 			gs 'stat'
 			orgB += rand(20, 40) 
 			if orgB < 100:act 'Let him continue':subStep = 1 & gt 'pav_shared_sp', 'spSexVaginal'
@@ -642,7 +641,7 @@ if $ARGS[0] = 'spSexVaginal':
 			'He rubs your ass, slowly making his way to your hole, playing with it for a while.'
 			'Finally <<$sp_name>> takes his rod, pointing the tip right to the entry of your vagina.'
 			'He starts pushing it inside, and as it is lubed, it goes in quite easily.'
-			gs 'arousal', 'vaginal', 10, 'lube'
+			gs 'arousal', 'vaginal', iif(rand(0,1) > 0, -1, 1), 'lube'
 			gs 'stat'
 			orgB += rand(5, 20) 
 			act 'Let him continue':subStep = 1 & gt 'pav_shared_sp', 'spSexVaginal'
@@ -652,7 +651,7 @@ if $ARGS[0] = 'spSexVaginal':
 			'As he continuously fucks your pussy, you reach for his smooth balls and rub them, making his slow movements even more passionate.'
 			'<<$sp_name>> fucks you slowly and sensitively.'
 			gs 'pain', 1, 'vaginal', 'stretch'
-			gs 'arousal', 'vaginal', 10
+			gs 'arousal', 'vaginal', iif(rand(0,1) > 0, -1, 1)
 			gs 'stat'
 			orgB += rand(20, 40) 
 			if orgB < 100:act 'Let him continue':subStep = 1 & gt 'pav_shared_sp', 'spSexVaginal'
@@ -841,7 +840,7 @@ if $ARGS[0] = 'spSexAnal':
 			'He rubs the tip of his phallus around your sphincter, making it wet and preparing to penetrate it.'		
 			'Before doing so, he takes some more lube on his fingers and one by one he stretches your anus with them. Making it easier for you to be penetrated.'
 			'He gently starts pushing his dick inside, and as it is lubed, it goes in quite easily.'
-			gs 'arousal', 'anal', 10, 'lube'
+			gs 'arousal', 'anal', iif(rand(0,1) > 0, -1, 1), 'lube'
 			gs 'stat'
 			orgB += rand(5, 20) 
 			act 'Let him continue':subStep = 1 & gt 'pav_shared_sp', 'spSexAnal'
@@ -851,7 +850,7 @@ if $ARGS[0] = 'spSexAnal':
 			'As he continuously fucks your anus, you rub his hairless ass, making him even hornier.'
 			'As you move your hands around his smooth asscheeks, it seems to arouse him even more.'
 			'<<$sp_name>> fucks you slowly and sensitively.'
-			gs 'arousal', 'anal', 10
+			gs 'arousal', 'anal', iif(rand(0,1) > 0, -1, 1)
 			gs 'stat'
 			orgB += rand(20, 40) 
 			if orgB < 100:act 'Let him continue':subStep = 1 & gt 'pav_shared_sp', 'spSexAnal'
@@ -867,7 +866,7 @@ if $ARGS[0] = 'spSexAnal':
 			'<<$sp_name>> kneels behind you, rubbing your asscheeks. He starts probing your anus with his lubed fingers, penetrating in and out, playing with the nice round sphincter...'
 			'He takes some more lube on his fingers and one by one he sretches your anus with them. Making it easier for you to be penetrated.'
 			'He starts pushing his dick inside, and as it is lubed, it goes in quite easily.'
-			gs 'arousal', 'anal', 10, 'lube'
+			gs 'arousal', 'anal', iif(rand(0,1) > 0, -1, 1), 'lube'
 			gs 'stat'
 			orgB += rand(5, 20)
 			act 'Let him continue':subStep = 1 & gt 'pav_shared_sp', 'spSexAnal'
@@ -876,7 +875,7 @@ if $ARGS[0] = 'spSexAnal':
 			''
 			'As he continuously fucks your anus, you reach for his smooth balls and rub them, making his slow movements even more passionate.'
 			'<<$sp_name>> fucks you slowly and sensitively.'
-			gs 'arousal', 'anal', 10
+			gs 'arousal', 'anal', iif(rand(0,1) > 0, -1, 1)
 			gs 'stat'
 			orgB += rand(20, 40) 
 			if orgB < 100:act 'Let him continue':subStep = 1 & gt 'pav_shared_sp', 'spSexAnal'
@@ -893,7 +892,7 @@ if $ARGS[0] = 'spSexAnal':
 			'He rubs your ass, slowly making his way to your hole, playing with it for a while.'
 			'He takes some more lube on his fingers and one by one he sretches your anus with them. Making it easier for you to be penetrated later.'
 			'He starts pushing his dick inside, and as it is lubed, it goes in quite easily.'
-			gs 'arousal', 'anal', 10, 'lube'
+			gs 'arousal', 'anal', iif(rand(0,1) > 0, -1, 1), 'lube'
 			gs 'stat'
 			orgB += rand(5, 20) 
 			act 'Let him continue':subStep = 1 & gt 'pav_shared_sp', 'spSexAnal'
@@ -903,7 +902,7 @@ if $ARGS[0] = 'spSexAnal':
 			'As he continuously fucks your anus, you reach for his smooth balls and rub them, making his slow movements even more passionate.'
 			'<<$sp_name>> fucks you slowly and sensitively.'
 			gs 'pain', 1, 'anal', 'stretch'
-			gs 'arousal', 'anal', 10
+			gs 'arousal', 'anal', iif(rand(0,1) > 0, -1, 1)
 			gs 'stat'
 			orgB += rand(20, 40) 
 			if orgB < 100:act 'Let him continue':subStep = 1 & gt 'pav_shared_sp', 'spSexAnal'

locations/placer_act.qsrc

@@ -284,7 +284,7 @@ if plact = 1:
 						act 'Leave':gt 'pav_park', 'start'
 					end
 				end
-			elseif know_gor_slut = 1 and BjBeerQW > 1 and bjgangrand = 1:
+			elseif know_gor_slut = 1 and BjBeerQW > 1 and rand(0,2) = 1:
 					'One of the guys suddenly laughs: "Wait a minute, I know her! That''s <<$pcs_nickname>>, everyone knows she''s a <<$gnikname>>. She gives guys blowjobs just to get a beer! My buddy showed me a video where they gave like three guys a blowjob, and then happily said hi to her mother with the cum still on her face!"'
 					'One of the other guys approaches you, and puts his hand on your chin while he takes a good look at your face. When he sees you flinch, he slaps you across the face quite hard. He orders you: "Don''t move, bitch."'
 					'You''re too afraid to fight him, and just let him do what he wants while he runs his fingers over your lips and slips a finger inside your mouth, which you begin to suck on without even giving it any thought.'

locations/placer_man.qsrc

@@ -2,7 +2,7 @@
 if mass_ver_zn > 0:
 	!!calculation of the probability of dating
 	ver_zn = 0
-	if rand(0, 200) < pcs_apprnc and (rand(0, 1) = 0 or Frend_num = 14):
+	if rand(100, 200) < pcs_apprnc and (rand(0, 1) = 0 or Frend_num = 14):
 		ver_zn = 1
 		if kol_man = 1:
 			$kol_man_text = 'guy' & $kol_man_text_a = 'man' & $kol_man_prefiks_he = 'he'
@@ -22,8 +22,8 @@ if mass_ver_zn > 0:
 
 		!!iconic moments
 		if fame['pav_slut'] >= 50 and know_gor_slut = 0:
-			if know_status = 1:knowrand = rand(0, 1)
-			if know_status = 2:knowrand = rand(0, 4)
+			if know_status = 1:knowrand = rand(0, max(0, 3 - fame['pav_slut'] / 100))
+			if know_status = 2:knowrand = rand(0, max(0, 5 - fame['pav_slut'] / 100))
 			if knowrand = 0:know_gor_slut = 1
 		end
 

locations/placer_pav_park.qsrc

@@ -1,19 +1,16 @@
 # placer_pav_park
 
 if hour >= 22 or hour < 8:
-	encounter = 0
+	encounter = rand(5, 25)
 else
 	if Frend_num = 14 and katjaQW['park_sex'] < 2:
 		encounter = rand(0, 8)
 	else
-		encounter = rand(0, 10)
+		encounter = rand(0, 11)
 	end
 end
 
-if encounter = 0:
-	!!no one in the park
-	$textEvent = 'The park is quiet and deserted. There is no one in sight.'
-elseif encounter = 1:
+if encounter = 1:
 	!!people in the park mother walking with a baby
 	$textEvent = 'You see a young mother with a stroller walking along a path.'
 elseif encounter = 2:
@@ -71,24 +68,23 @@ elseif encounter = 6:
 elseif encounter = 7:
 	!!couple in love in the park
 	$textEvent = 'You see a man and woman walking in the park, holding each other''s hands tightly. They''re clearly in love.'
-elseif encounter = 8:
-	if hotelcouple = 1:
-		$location_type = 'public_indoors'
-		*clr
-		gs 'stat'
-		' after walking around the park for 10 minutes you decide to relax in the grass.'
-		'Suddenly you are approached by a couple. They come sit next to you.'
-		'You think you recognise the man but you can''t quite put your finger on it.'
-		'Then the man starts speaking : " hi girl, I don''t know if you remember but we have met once in the hotel "'
-		'Now you remember where you know the man from, you watched his children so he and his wife could have some ''alone time''.'
-		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/hotel/couple_park_meet.jpg"></center>'
-		'" You really helped us out that time.  Usually we are able to drop the children off with my parents but they were out that day."'
-		'" My name is Motya and this is my wife Uliana."'
-		'" So we stay in the Pavlovsk hotel every Thursday. If you want to visit us on a Thursday evening, feel free to drop by in room 207 so we can give you a proper thanks for your help."'
-		'Then they get up and leave you'
-		'You wonder what kind of ''thanks'' they have in mind'
-		hotelcouple = 2
-		jump 'parkaway'
+elseif encounter = 8 and hour < 22 and hour >= 8 and hotelcouple = 1:
+	$location_type = 'public_indoors'
+	*clr
+	gs 'stat'
+	' after walking around the park for 10 minutes you decide to relax in the grass.' 
+	'Suddenly you are approached by a couple. They come sit next to you.'
+	'You think you recognise the man but you can''t quite put your finger on it.'
+	'Then the man starts speaking : " hi girl, I don''t know if you remember but we have met once in the hotel "'
+	'Now you remember where you know the man from, you watched his children so he and his wife could have some ''alone time''.'
+	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/hotel/couple_park_meet.jpg"></center>'
+	'" You really helped us out that time.  Usually we are able to drop the children off with my parents but they were out that day."'
+	'" My name is Motya and this is my wife Uliana."'
+	'" So we stay in the Pavlovsk hotel every Thursday. If you want to visit us on a Thursday evening, feel free to drop by in room 207 so we can give you a proper thanks for your help."'
+	'Then they get up and leave you'
+	'You wonder what kind of ''thanks'' they have in mind'
+	hotelcouple = 2
+	jump 'parkaway'
 elseif encounter = 9:
 	!!young people in the park company
 	$textEvent = 'You see a group of teenagers sitting on a park bench, listening to some music.'
@@ -101,10 +97,10 @@ elseif encounter = 10:
 	$textEvent = 'Some Gopniks are sitting on their haunches just off to the side of one of the main paths, drinking beer. The area around them is littered with empty bottles.'
 	mass_ver_zn = 1
 	know_status = 2
-else
+elseif encounter = 11:
 	$textEvent = 'You see 2 women walking in the park, holding each other''s hands tightly. They''re clearly in love.'
-end
-
+else
+	$textEvent = 'The park is quiet and deserted. There is no one in sight.'
 end
 
 gs 'placer_man'
@@ -121,7 +117,6 @@ if month=3 or month=4 or month=5:
 		'The park is not particularly crowded, this time of year. Many people think it''s still too cold to spend much time outdoors.'
 		*nl
 	else
-		prcptn_exp += rand(1,2)
 		'<center><h2>Pavlovsk Park</h2></center>'
 		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/skver.spring.night.jpg"></center>'
 		*nl
@@ -139,7 +134,6 @@ if month=6 or month=7 or month=8:
 		'It''s always busy: people are resting, walking, playing and dating to their heart''s desires, enjoying the nice surroundings.'
 		*nl
 	else
-		prcptn_exp += rand(1,2)
 		'<center><h2>Pavlovsk Park</h2></center>'
 		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/skver.summer.night.jpg"></center>'
 		*nl
@@ -205,11 +199,11 @@ if soniaPS=5 and rand(1,10)=>9 and hour>14 and hour<20:
 			'After a while, the guy tells Sonia that he wants more. Sonia obediently gets up and asks him: "Would you like to fuck me from behind, sir?"'
 			'The stranger happily accepts the invitation, and watches in amazement when he notices Sonia eagerly grinding her hips back against him once he''s inside her. He had no idea she would be such a lusty slut for him, willing to do all the work!'
 			'You watch Sonia give herself to the man for just a moment longer, before you decide you really have to get going. You''re quite turned on from her little show. Sonia looks like she''s having a lot of fun, and for just a second you think about what it would feel like to be in her place.'
-
+			
 			gs 'arousal', 'voyeur_sex', 15
 			gs 'arousal', 'end'
 			gs 'stat'
-
+			
 			act'Leave them be':gt 'pav_park', 'start'
 		end
 	end
@@ -248,8 +242,8 @@ if Frend_num > 0:
 					end
 				else
 					act 'Leave with your friend (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
-				end
-
+				end	
+				
 				act 'Say goodbye to your friend and stay':
 					Frend_num = 0
 					gt 'placer_act'
@@ -282,3 +276,4 @@ end
 gs 'stat'
 
 --- placer_pav_park ---------------------------------
+

locations/pornschedule.qsrc

@@ -20,7 +20,7 @@ if $ARGS[0] = 'schedule':
 				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 days = 29 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:
@@ -47,20 +47,21 @@ if $ARGS[0] = 'schedule':
 					!some way to randomize the scene - if there will be more than one(???)
 					pornplan['<<days+1>>,<<porns>>'] = 15
 				end
+				roleFit = rand(0, 200 - porn_fame)
+				if roleFit < 50 or roleFit > 125: porntaken['<<days+1>>,<<porns>>'] = 3
 			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
+			if (porntaken['<<days>>,<<porns>>'] = 0 or porntaken['<<days>>,<<porns>>'] = 3) and 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
+			elseif porntaken['<<days>>,<<porns>>'] = 1 and 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'
+		if porns < 3: porns += 1 & jump 'moveschedule'	
+	if days < 29: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

locations/pornstudio.qsrc

@@ -84,13 +84,12 @@ if $ARGS[0] = 'start':
 		end
 	end
 
-	if pfilmNO = 1 and pfilmNoVenera = 1 and Venera = 0:
+	if 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.'
 
@@ -109,7 +108,7 @@ if $ARGS[0] = 'pa':
 	'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."'
+		'"Who are you? This office is for staff only."'
 	else
 		'"Hi there, what can I do for you?"'
 		if pfilmNO = 0:
@@ -332,10 +331,12 @@ if $ARGS[0] = 'manager':
 	if pfilmNO = 1:
 	!! Banned from shooting porn
 		'"Why are you here? You''re blacklisted and will never work in porn again."'
+	elseif pfilmNoVenera = 1:
+		'"Did you seek treatment for your STDs? You must bring a certificate proving you are clean."'
 	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:
+	elseif ((pfilmday[0] > 0 and hour > 12) or pornmiss = 1) and porndebt <= 20000 and missedshoot = 0:
 	!! You missed your shooting time, but you have a chance to work it off
 		missedshoot = 1
 		pornmiss = 0
@@ -359,7 +360,7 @@ if $ARGS[0] = 'manager':
 			'"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'
+		act 'Accept your debt': porndebt += prodcost & gt 'pornstudio', 'start'
 
 		gs 'willpower', 'misc', 'self'
 		if will_cost <= pcs_willpwr:
@@ -367,7 +368,7 @@ if $ARGS[0] = 'manager':
 				gs 'willpower', 'pay', 'self'
 				'"Fuck this shit, I quit!" you yell before storming out of his office.'
 				pfilmNO = 1
-				killvar 'prodcosttrue'
+				killvar 'porndebt'
 				killvar 'pfilmday'
 				killvar 'pornplan'
 				killvar 'porntaken'
@@ -378,10 +379,10 @@ if $ARGS[0] = 'manager':
 			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:
+	elseif porndebt > 20000 and prodcost > 0:
 	!! You really fucked up and are banned from shooting porn
 		pfilmNO = 1
-		killvar 'prodcosttrue'
+		killvar 'porndebt'
 		killvar 'pfilmday'
 		killvar 'pornplan'
 		killvar 'porntaken'
@@ -664,29 +665,11 @@ if $ARGS[0] = 'options':
 										$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:
+									elseif porntaken['<<counter>>,<<porns>>'] = 3:
+										$pornofday += '<font color="red"><<$porndesc[pornplan[''<<counter>>,<<porns>>'']]>> - <i>You don''t fit the role</i></font><br>'
+									elseif pornstack < 10 and porntaken['<<counter>>,<<porns>>'] = 0:
 										$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>'
@@ -701,7 +684,7 @@ if $ARGS[0] = 'options':
 						end
 					end
 				end
-			if counter < 49:
+			if counter < 29:
 				counter += 1
 				jump 'pornopt'
 			end
@@ -892,8 +875,8 @@ if $ARGS[0] = 'medical':
 		'...'
 		'...'
 		if venera > 0:
-			pfilmNO = 1
 			pfilmNoVenera = 1
+			gs 'pornschedule', 'pornmiss'
 			'"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'

locations/shop.qsrc

@@ -244,10 +244,10 @@ if $shoplocation = 'grocery':
 	*pl '<center><table align="center" width=80%>'
 	*p func ('$stock_item', 1, 'Regular food', 80, 'eda', $curloc)
 	*p func ('$stock_item', 10, 'Regular food', 800, 'eda', $curloc)
-	*p func ('$stock_item', 1, 'Diet food', 300, 'edaD', $curloc)
-	*p func ('$stock_item', 10, 'Diet food', 3000, 'edaD', $curloc)
+	*p func ('$stock_item', 1, 'Diet food', 200, 'edaD', $curloc)
+	*p func ('$stock_item', 10, 'Diet food', 2000, 'edaD', $curloc)
 	*p func ('$stock_item', 10, 'Tea biscuits', 400, 'pranik', $curloc)
-	*p func ('$single_stock_item', 1, 'Bottle of water', 100, 'bottle', $curloc, '', iif(bag > 0, 0, 1), 'You need a handbag')
+	*p func ('$single_stock_item', 1, 'Bottle of water', 70, 'bottle', $curloc, '', iif(bag > 0, 0, 1), 'You need a handbag')
 	*p func ('$single_stock_item', 1, 'Sandwich', 100, 'buterbrod', $curloc, '', iif(bag > 0, 0, 1), 'You need a handbag')
 	*p func ('$single_stock_item', 1, 'Cheap Bottle of wine', 200, 'wine', $curloc, '', iif(bag > 0, 0, 1), 'You need a handbag')
 	*p '</table></center>'
@@ -391,12 +391,12 @@ if $shoplocation= 'cosmetics':
 		''
 	end
 	*pl '<center><table align="center" width=80%>'
-	*p func ('$stock_item', 50, 'Cosmetics', 1300, 'kosmetica', $curloc)
+	*p func ('$stock_item', 90, 'Cosmetics', 1600, 'kosmetica', $curloc)
 	*P func ('$stock_item', 30, 'Lip balm', 127, 'lipbalm', $curloc)
 	*p func ('$stock_item', 10, 'Plain false lashes', 1500, 'falselashesplain',$curloc)
 	*p func ('$stock_item', 3, 'Mink false lashes', 900, 'falselashesmink',$curloc)
 	*p func ('$stock_item', 25, 'Razors (number of shaves)', 350, 'stanok', $curloc)
-	*p func ('$stock_item', 20, 'Sunblock', 500, 'krem', $curloc)
+	*p func ('$stock_item', 30, 'Sunblock', 500, 'krem', $curloc)
 	*p func ('$stock_item', 40, 'Deodorant', 200, 'deodorant', $curloc)
 	*p func ('$stock_item', 20, 'Tampons', 200, 'tampon', $curloc)
 	*p func ('$stock_item', 20, 'Sanitary napkins', 100, 'sanpad', $curloc)

locations/shulga_room.qsrc

@@ -47,7 +47,7 @@ if $ARGS[0] = 'start' or $ARGS[0] = '':
 	if hour >= 14 and hour <= 18 and shulga_whore ! 0 and shulga_whore ! daystart + 7:
 		if shulga_whore < daystart:
 			shulga_whore = daystart + 7
-			gs 'fame', 'pav', 'sex', 20
+			gs 'fame', 'pav', 'sex', rand(5, 20)
 			'As you walk in, the boys are already laughing. "Too late <<$pcs_nickname>>, the whole school now knows what a whore you are. But since you''re here you might as well fuck us like the good little whore you are."'
 
 			gs 'willpower', 'misc', 'self', 'hard'
@@ -69,7 +69,14 @@ if $ARGS[0] = 'start' or $ARGS[0] = '':
 			else
 				act 'Run out of the room crying (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
 			end
-			act 'Get naked': gt 'shulga_room', 'gang_sex_room_ev1_1'
+			act 'Get naked':
+				if rand(0, 9) = 0:
+					gt 'shulga_room', 'gang_sex_room_ev1_1'
+				else
+					gs 'gopsex', 'settings'
+					gs 'gopsex', 'shgopsex_group'
+				end
+			end
 			exit
 		else
 			shulga_whore = daystart + 7
@@ -81,7 +88,14 @@ if $ARGS[0] = 'start' or $ARGS[0] = '':
 			'You nod your head yes, knowing you have no choice but to obey. "Yes I''m your fuck slut."'
 			'Laughing, they look to each other. "Damn if we don''t have the bitch well trained." Then they look back to you. "So... take off your clothes then and come on over here, like the good little slut we know you are."'
 			'You walk over to them taking off your clothes.'
-			act 'Serve them': gt 'shulga_room', 'gang_sex_room_ev1_2'
+			act 'Serve them':
+				if rand(0, 9) = 0:
+					gt 'shulga_room', 'gang_sex_room_ev1_2'
+				else
+					gs 'gopsex', 'settings'
+					gs 'gopsex', 'shgopsex_group'
+				end
+			end
 			exit
 		end
 	end
@@ -461,7 +475,7 @@ if $ARGS[0] = 'gang_sex_room_ev1_2':
 	npc_sex['A9'] += 1
 	npc_sex['A10'] += 1
 	npc_sex['A11'] += 1
-	gs 'arousal','bj',10,'dick[1]','group','gangbang'
+	gs 'arousal','bj',5,'dick[1]','group','gangbang'
 	gs 'stat'
 	'The boys crowd around you eager to be pleased. As Dan approaches from the front you look up and give him a sultry smile'
 	'Spurred into action, Dan almost knocks you over as jabs his <<dick[1]>>cm <<$dick_girth[1]>> cock in you face. You obediently open your mouth as Dan wraps his hand around the back of your head. He lets out a groan as he slowly begins to fuck your mouth.'
@@ -471,8 +485,8 @@ if $ARGS[0] = 'gang_sex_room_ev1_2':
 		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/shulginhome/bigroom/sex/1_6.jpg"></center>'
 		'The boys each have a turn with your mouth. They all do their best to give your mouth and throat a thorough workout. When they finally pause to let you catch your breath, you smile up at them with tears in your eyes.'
 		'You''re really starting to love having your mouth used like this. Just the thought of servicing your boys is enough to get your wet, but after all this attention your pussy is positively soaked. The memory of the guys telling you that you were now their personal slut to be used as they saw fit bubbles up in your mind, and a plaintive moan escapes your lips'
-		gs 'arousal','bj',5,'dick[3]','group','gangbang'
-		gs 'arousal','bj',5,'dick[2]','group','gangbang'
+		gs 'arousal','bj',-5,'dick[3]','group','gangbang'
+		gs 'arousal','bj',-5,'dick[2]','group','gangbang'
 		gs 'stat'
 		'As they lead you over to the sofa, the damp spot you left on floor shows how eager you are for more.'
 
@@ -480,7 +494,7 @@ if $ARGS[0] = 'gang_sex_room_ev1_2':
 			*clr & cla
 			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/shulginhome/bigroom/sex/1_7.jpg"></center>'
 			'The boys laid you on the sofa, and you spread your legs wide so they can see that even your thighs are all slippery. They get to work between your legs. All you can do is giggle when Vasily remarks on how wet you are. You squirm wildly, as Vitek slides two fingers inside you, while Vasily plays with your clit.'
-			gs 'arousal','vaginal_finger',10,'group','gangbang','exhibitionism'
+			gs 'arousal','vaginal_finger',1,'group','gangbang','exhibitionism'
 			gs 'stat'
 			if analplugin = 1:
 				'Vitek notices your anal plug and voices his approval.'
@@ -496,22 +510,22 @@ if $ARGS[0] = 'gang_sex_room_ev1_2':
 				'They put you down on all fours, Dan immediately starts to furiously fucking you from behind with his <<dick[1]>>cm <<$dick_girth[1]>> cock. Every few seconds he gives you a little slap on the ass for encouragement.'
 				'You answer back with muffled moans that can barely escape your mouth, which is stuffed full with Vitek''s <<dick[3]>>cm <<$dick_girth[3]>> cock.'
 				'Vitek grabs the back of your head and forces himself further into your mouth. When he yells, "Suck it bitch, take it all", a wave of pleasure runs though your body, and you redouble your effort.'
-				gs 'arousal','vaginal',10,'dick[1]','group','gangbang'
-				gs 'arousal','bj',-10,'dick[3]','group','gangbang'
+				gs 'arousal','vaginal',3,'dick[1]','group','gangbang'
+				gs 'arousal','bj',-3,'dick[3]','group','gangbang'
 				'You do your best to pay some attention to Vasily too, but it looks like he will just have to wait for his turn.'
 				gs 'stat'
 
 				act 'Get thoroughly fucked':
 					*clr & cla
 					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/shulginhome/bigroom/sex/1_9.jpg"></center>'
-					gs 'arousal','vaginal',10,'dick[2]','group','gangbang'
+					gs 'arousal','vaginal',3,'dick[2]','group','gangbang'
 					gs 'stat'
 					'Vitek and Dan stop spit roasting you as Vasily stay down beside you as he waited for his turn, and now you dutifully show him that he was not forgotten. Short sharp breaths are all that escape your mouth as you lower yourself onto <<dick[2]>>cm <<$dick_girth[2]>> cock and ride him with an urgent need.'
 
 					act 'Take a breather':
 						*clr & cla
 						'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/shulginhome/bigroom/sex/1_10.jpg"></center>'
-						gs 'arousal','foreplay',10,'group','gangbang','exhibitionism'
+						gs 'arousal','foreplay',3,'group','gangbang','exhibitionism'
 						gs 'stat'
 						'It seems the boys have come up with a plan to fill all your holes.'
 						if analplugin = 1:
@@ -538,12 +552,13 @@ if $ARGS[0] = 'gang_sex_room_ev1_2':
 								if analplugin = 1:
 									analplugin = 0
 									analplugout = 1
+									agape = max(agape, 1)
 									'Dan was kind enough to help remove anal plug.'
 								end
 								if lubri > 0: 'Remembering it at the last moment, you asked Vasily to grab the lube from your purse.'
 								gs 'arousal', 'anal_finger', 1,'lube'
 								fat -= 1
-								gs 'arousal','vaginal',10,'dick[3]','group','gangbang'
+								gs 'arousal','vaginal',5,'dick[3]','group','gangbang'
 								gs 'arousal','anal',-5,'dick[1]','group','gangbang'
 								'You mount Vitek, while he is laying on the sofa. As you slide him into you, he leans up suckles at your nipple. Just as you were start to enjoy this pleasant surprise, Dan abruptly drives his <<dick[1]>>cm <<$dick_girth[1]>> cock inside your ass. You let out a loud grunt, but it''s more from the surprise, than any pain.'
 								'By the time Vasily worked himself close enough to allow you to wrap your lips around his cock then there was only pleasure.'
@@ -553,9 +568,9 @@ if $ARGS[0] = 'gang_sex_room_ev1_2':
 									*clr & cla
 									'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/shulginhome/bigroom/sex/1_13.jpg"></center>'
 									'You revel in the feeling of being used so completely. This night of drunken debauchery somehow makes you feel whole.'
-									gs 'arousal','vaginal',10,'dick[3]','group','gangbang'
-									gs 'arousal','anal',-10,'dick[1]','group','gangbang'
-									gs 'arousal','bj',-10,'dick[2]','group','gangbang'
+									gs 'arousal','vaginal',2,'dick[3]','group','gangbang'
+									gs 'arousal','anal',-2,'dick[1]','group','gangbang'
+									gs 'arousal','bj',-2,'dick[2]','group','gangbang'
 									gs 'stat'
 									'You get lost in the rhythm, and only snap back to reality when Vasily tells you it''s time for a change as the boys switch positions.'
 
@@ -564,9 +579,9 @@ if $ARGS[0] = 'gang_sex_room_ev1_2':
 										'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/shulginhome/bigroom/sex/1_14.jpg"></center>'
 										'You moan loudly as Vitek rocks you from behind with his powerful <<dick[3]>>cm <<$dick_girth[3]>> cock thrusting into your ass. With your head upturned it doesn''t take Dan long to silence yous cries, and fill your mouth back up.'
 										'It goes on like this for awhile with no sound other than soft grunts and moans. Your lower half is almost numb with pleasure. Having your holes stretched like this all at once almost feels too good to put into words. The only word you can think of to describe it is: full. You feel so wonderfully full.'
-										gs 'arousal','anal',10,'dick[3]','group','gangbang'
-										gs 'arousal','bj',-10,'dick[1]','group','gangbang'
-										gs 'arousal','vaginal',-10,'dick[2]','group','gangbang'
+										gs 'arousal','anal',2,'dick[3]','group','gangbang'
+										gs 'arousal','bj',-2,'dick[1]','group','gangbang'
+										gs 'arousal','vaginal',-2,'dick[2]','group','gangbang'
 										gs 'stat'
 										'Eventually Dan decides to take the initiative, or rather take your head in his hands. He forces his cock into the side of your mouth stretching your mouth to it''s limits. Then he sinks halfway down your throat and slowly pulls back out. He orders you to stick out your tongue and begins to slap his rock hard cock against your face. With a groan of appreciation Dan says: "<<$pcs_nickname>> you have become such a good little cocksucker. It wasn''t so long ago that you couldn''t even give a decent hand-job. I think you might even deserve a reward."'
 										'Before you can respond Dan rewards you by violently shoving his cock down your throat until your <<$lip1>> lips are wrapped around the base.'

locations/sleep.qsrc

@@ -29,9 +29,9 @@ if $ARGS[0] = 'simple':
 	stime += 1
 	if recuperation = 0:pcs_health += 5
 	
-	if stime >= 60:
+	if stime >= 12:
 		stime = 0
-		pcs_sleep += 15
+		pcs_sleep += 3
 		gs 'stat'
 	end
 	

locations/stat.qsrc

@@ -309,11 +309,20 @@ if vgape[4] = 0: vgape[4] = 10
 if vgape > vgape[1]:
 	vgape[3] = totminut
 	vgape[1] = vgape
-elseif vgape > 0:
-	if (totminut - vgape[3])/vgape[4] >= 1: vgape -= 1
-	vgape[1] = vgape
-else
-	vgape[3] = 0
+	if vgape > 2:
+		if rand(0,9) > 1:
+			vshrink = max(1, vshrink - 1)
+		else
+			vaginaMin += 1
+			vgape[4] += 1
+		end
+	end
+elseif vgape > vaginaMin / 10:
+	if totminut - vgape[3] - vaginaMin > vgape[4]:
+		vgape -= 1
+		vgape[1] = vgape
+		vgape[3] = totminut
+	end
 end
 
 !!Gaping of anus recovery time
@@ -321,12 +330,20 @@ end
 if agape > agape[1]:
 	agape[3] = totminut
 	agape[1] = agape
-elseif agape > 0:
-	if (totminut - agape[3])/agape[4] >= 1: agape -= 1
-	if agape = 0: agape[3] = 0
-	agape[1] = agape
-else
-	agape[3] = 0
+	if agape > 2:
+		if rand(0,9) > 1:
+			ashrink = max(1, ashrink - 1)
+		else
+			anusMin += 1
+			agape[4] += 1
+		end
+	end
+elseif agape > anusMin / 10:
+	if totminut - agape[3] - anusMin > agape[4]:
+		agape -= 1
+		agape[1] = agape
+		agape[3] = totminut
+	end
 end
 
 !!Recovery from spanking - will be superseded by pain system
@@ -339,7 +356,7 @@ end
 
 !! Orgasmic cooldown
 if orgasmic ! 0:
-	if orgasmic < totminut - 30: orgasmic = 0 & pcs_horny = 0
+	if orgasmic < totminut - 10: orgasmic = 0 & pcs_horny = 0
 end
 
 !!!!!!!!!!!!!!! Heels pain and skill gain

locations/street_event.qsrc

@@ -53,7 +53,7 @@ elseif $ARGS[0] = 'city_center':
 elseif $ARGS[0] = 'city_industrial':
 	$streetev_title = '<center><b>City industrial region</b></center>'
 	streetev_rob = 2
-	streetev_hijack = 0
+	streetev_hijack = 3
 	streetev_bf = 30
 	streetev_mistmeet = 5
 	if home_owned[1] = 0 and tanwork = 0 and func('uniutil', 'student', 'not_enrolled'):
@@ -86,9 +86,13 @@ elseif $ARGS[0] = 'pav_commercial':
 elseif $ARGS[0] = 'pav_industrial':
 	$streetev_title = '<center><b>Pavlovsk Industrial District</b></center>'
 	streetev_rob = 2
-	streetev_hijack = 0
+	streetev_hijack = 3
 	streetev_bf = 30
 	streetev_mistmeet = 5
+elseif $ARGS[0] = 'pav_market':
+	$streetev_title = '<center><b>Pavlovsk''s Market Square</b></center>'
+	streetev_rob = 2
+	streetev_hijack = 2
 elseif $ARGS[0] = 'city_island':
 	$streetev_title = '<center><b>Island</b></center>'
 	streetev_rob = 0
@@ -102,8 +106,8 @@ elseif $ARGS[0] = 'city_island':
 else
 	$streetev_title = '<center><b>in dark</b></center>'
 	streetev_rape = 10
-	streetev_rob = 1
-	streetev_hijack = 1
+	streetev_rob = 3
+	streetev_hijack = 3
 	streetev_bf = 90
 end
 
@@ -127,17 +131,9 @@ else
 	end
 end
 
-if money >= 2500:
-	if streetev_rob > streetev_hijack:
-		streetev_rob += money / 2500
-	else
-		streetev_hijack += money / 2500
-	end
-end
-
-!!The chance to get robbed is capped at 10%
-if streetev_rob > 10: streetev_rob = 10
-if streetev_hijack > 10: streetev_hijack = 10
+streetev_target_bonus = ShoHeels + alko
+streetev_rob += streetev_target_bonus
+streetev_hijack += streetev_target_bonus
 
 if $ARGS[1] = 'extras':
 	if rand(0, 100) < streetev_bf and pcs_lover < 3 and streetbfhour ! hour and random_bf_gf_cheat = 0:
@@ -191,14 +187,14 @@ if $ARGS[1] = 'main':
 	!!Changing this event some and rewriting parts of it. I also want to change how often and when it can happen, based on clothes, time and if drunk. If drunk double the odds and for time it can happen from 24:00 to 04:00. This gets checked last after any other events could happen.
 	!!town(pav or pushkin) normal clothes 1 in 50, if drunk 1 in 25. slutty clothes(clothes that cover everything but very short skirts revealing tops etc) 1 in 30, if drunk 1 in 15. bimbo/exhibitionist clothes 1 in 20, if drunk 1 in 10. naked 1 in 5, if drunk 1 in 2
 	!!city normal clothes 1 in 40, if drunk 1 in 20. slutty clothes(clothes that cover everything but short skirts revealing tops etc) 1 in 20, if drunk 1 in 10, bimbo/exhibitionist clothes 1 in 10, if drunk 1 in 5. naked 1 in 2, if drunk always
-	if $loc = 'pav_residential' or $loc = 'pav_commercial':
+	if $loc = 'pav_residential' or $loc = 'pav_commercial' or $loc = 'pav_industrial' or $loc = 'pav_market':
 		if $clothingworntype = 'nude':
 			if alko >= 6:
 				streetev_rape = 50
 			else
 				streetev_rape = 20
 			end
-		elseif $clothingworntype = 'salacious_dress' or $clothingworntype = 'salacious_outfits' or PCloBimbo = 1:
+		elseif $clothingworntype = 'salacious_dress' or $clothingworntype = 'salacious_outfits' or PCloBimbo = 1 or PCloStyle = 4:
 			if alko >= 6:
 				streetev_rape = 10
 			else
@@ -217,6 +213,7 @@ if $ARGS[1] = 'main':
 				streetev_rape = 2
 			end
 		end
+		streetev_rape += max(fame['pav_slut'], fame['pav_sexind'], fame['pav_acting'], fame['pav_modelling'], fame['pav_media']) / 100
 	else
 		if $clothingworntype = 'nude':
 			if alko >= 6:
@@ -224,7 +221,7 @@ if $ARGS[1] = 'main':
 			else
 				streetev_rape = 20
 			end
-		elseif $clothingworntype = 'salacious_dress' or $clothingworntype = 'salacious_outfits' or PCloBimbo = 1:
+		elseif $clothingworntype = 'salacious_dress' or $clothingworntype = 'salacious_outfits' or PCloBimbo = 1 or PCloStyle = 4:
 			if alko >= 6:
 				streetev_rape = 20
 			else
@@ -243,9 +240,10 @@ if $ARGS[1] = 'main':
 				streetev_rape = 2
 			end
 		end
+		streetev_rape += max(fame['city_slut'], fame['city_sexind'], fame['city_acting'], fame['city_modelling'], fame['city_media']) / 100
 	end
 
-	if streetrand < streetev_rape and hour <= 3 and streetev_day ! daystart and cheat_street_rapists = 0:
+	if streetrand < streetev_rape and (hour <= 3 or (hour >= 22 and ($loc = 'pav_industrial' or $loc = 'city_industrial'))) and streetev_day ! daystart and cheat_street_rapists = 0:
 		*clr & cla
 		menu_off = 1
 		prcptn_exp += rand(1,2)
@@ -281,8 +279,9 @@ if $ARGS[1] = 'main':
 				elseif pcs_run < 170:
 					peshimraperand = rand(0, 90)
 				else
-					peshimraperand = 11
+					peshimraperand = rand(0, 100)
 				end
+				peshimraperand -= (ShoHeels + alko) * 10
 
 				if peshimraperand <= 10:
 					*clr & cla
@@ -309,7 +308,6 @@ if $ARGS[1] = 'main':
 		end
 	end
 
-	streetrand = rand(0, 100)
 	if streetrand < streetev_rob and daystart >= 10 and (hour < 6 or hour >= 20) and streetev_day ! daystart and bag = 1 and streetev_rob_day ! daystart and cheat_street_robbers = 0:
 		*clr & cla
 		menu_off = 1
@@ -346,8 +344,9 @@ if $ARGS[1] = 'main':
 				elseif pcs_run < 170:
 					peshimraperand = rand(0, 90)
 				else
-					peshimraperand = 11
+					peshimraperand = rand(0, 100)
 				end
+				peshimraperand -= (ShoHeels + alko) * 10
 				if peshimraperand <= 10:
 					*clr & cla
 					'He drags you into an alley.'
@@ -389,9 +388,7 @@ if $ARGS[1] = 'main':
 		streetev_rob_day = daystart
 	end
 
-	streetrand = rand(0, 100)
-
-	if streetrand < streetev_hijack and daystart >= 10 and hour >= 6 and hour < 20 and streetev_day ! daystart and bag = 1 and streetev_hijack_day ! daystart and cheat_street_robbers = 0:
+	if streetrand < streetev_hijack and daystart >= 10 and streetev_day ! daystart and bag = 1 and streetev_hijack_day ! daystart and cheat_street_robbers = 0:
 		*clr & cla
 		menu_off = 1
 		gs'stat'
@@ -413,7 +410,7 @@ if $ARGS[1] = 'main':
 			end
 			act 'Chase him':
 				*clr & cla
-				if (pcs_run + pcs_stam) < rand(120,250):
+				if pcs_run + pcs_stam - (ShoHeels + alko) * 10 < rand(120,250):
 					dynamic $currentpursetype + '_purses[<<currentpursenumber>>] = 0'
 					$currentpursetype = ''
 					currentpursenumber = ''