Merge branch 'QSRC2TW' into wardrobe

glife.qproj

@@ -113,7 +113,6 @@
 		<Location name="$body_image"/>
 	</Folder>
 	<Folder name="Stimulus">
-		<Location name="boyStat"/>
 		<Location name="pain"/>
 		<Location name="arousal"/>
 		<Location name="arousal_oneline"/>
@@ -247,11 +246,11 @@
 	</Folder>
 	<Folder name="Phone">
 		<Location name="telefon"/>
+		<Location name="telefon_schedules"/>
 		<Location name="phone_selfies"/>
 		<Location name="phone_selfies_popup"/>
 		<Location name="SMStext_builder"/>
 		<Location name="SMS_selfies"/>
-		<Location name="SMS_schedules"/>
 	</Folder>
 	<Folder name="Prostitution">
 		<Location name="street_walker"/>
@@ -300,11 +299,14 @@
 		<Location name="stat_explanations"/>
 	</Folder>
 	<Folder name="NPCManage">
-		<Location name="npccleanc"/>
 		<Location name="npcgeneratec"/>
-		<Location name="npcgenext"/>
 		<Location name="npcpreservec"/>
+		<Location name="npccleanc"/>
+		<Location name="npcgenext"/>
 		<Location name="npcrnamefile"/>
+		<Location name="npcStat"/>
+		<Location name="npcStat_clean"/>
+		<Location name="boyStat"/>
 		<Location name="npcstaticdefaults"/>
 		<Location name="npcstatic1"/>
 		<Location name="npcstatic2"/>
@@ -560,6 +562,7 @@
 	<Folder name="Igor Kruglov">
 		<Location name="igorev"/>
 		<Location name="igorhome"/>
+		<Location name="igorsex"/>
 		<Location name="igor_schedule"/>
 	</Folder>
 	<Folder name="Katja Meynold">
@@ -861,24 +864,22 @@
 		<Location name="anekdot"/>
 		<Location name="stihi"/>
 		<Location name="love"/>
-		<Location name="brosok"/>
 		<Location name="gossips"/>
 	</Folder>
 	<Folder name="Boys">
 		<Location name="BDman"/>
 		<Location name="BDsex"/>
-		<Location name="boyfrend"/>
 		<Location name="boylove"/>
 	</Folder>
 	<Folder name="Lover">
-		<Location name="girlfriend"/>
 		<Location name="lover"/>
+		<Location name="lover_call"/>
 		<Location name="lover_change"/>
 		<Location name="lover_likes"/>
 		<Location name="lover_love"/>
+		<Location name="lover_living"/>
 		<Location name="lover_meet"/>
 		<Location name="lover_pref"/>
-		<Location name="lover_pronouns"/>
 		<Location name="pronouns"/>
 	</Folder>
 	<Folder name="Salon">

locations/BDman.qsrc

@@ -1,186 +1,186 @@
 # BDman
 if $ARGS[0] = 'givi':
 	!!stopboy = 0
-	gs 'boyStat', 'A41'
-	$boybody = 'small'
-	$boybod = 'thick'
-	$boyface = 'bald'
+	gs 'npcStat', 'A41'
+	$npcheight = 'small'
+	$npcbuild = 'thick'
+	$npchair = 'bald'
 	!!security, is responsible for the money and requirements 0 beggar, 1 middle_peasant 2 rich
 	finance = 2
 	!!check in appearance, a parameter pcs_apprnc
 	vneshBoy = 40
-	$boyClo = 'dressed in a leather jacket and cap'
+	$npcClo = 'a leather jacket and cap'
 	!!0 - ass less 80, 1 back from 80 prior_to 100, 2 ass over 100
 	figurBoy = 2
 	!!0 - chest less 3, 1 breast 3-4, 2 breasts bigger 4
 	titBoy = 1
 	!!favorite hair color 0 - black, 1 - brown, 2 - redhead, 3 - blonde
 	hairBoy = 3
-	!!character 0 - soft, 1 -norm 2 - aggressor
-	harakBoy = 2
+	!!character: npc_gentle=1 - soft; norm ; npc_rough=1 - aggressor
+	npc_rough[$boy] = 1
 	!!perversity
-	izvrat = 1
+	npc_pervert[$boy] = 1
 end
 
 if $ARGS[0] = 'ashot':
 	!!stopboy = 0
-	gs 'boyStat', 'A42'
-	$boybody = 'average growth'
-	$boybod = 'muscular'
-	$boyface = 'black-haired'
+	gs 'npcStat', 'A42'
+	$npcheight = 'average growth'
+	$npcbuild = 'muscular'
+	$npchair = 'black'
 	!!security, is responsible for the money and requirements 0 beggar, 1 middle_peasant 2 rich
 	finance = 1
 	!!check in appearance, a parameter pcs_apprnc
 	vneshBoy = 60
-	$boyClo = 'dressed in a leather jacket and cap'
+	$npcClo = 'a leather jacket and cap'
 	!!0 - ass less 80, 1 back from 80 prior_to 100, 2 ass over 100
 	figurBoy = 2
 	!!0 - chest less 3, 1 breast 3-4, 2 breasts bigger 4
 	titBoy = 2
 	!!favorite hair color 0 - black, 1 - brown, 2 - redhead, 3 - blonde
 	hairBoy = 3
-	!!character 0 - soft, 1 -norm 2 - aggressor
-	harakBoy = 2
+	!!character: npc_gentle=1 - soft; norm ; npc_rough=1 - aggressor
+	npc_rough[$boy] = 1
 	!!perversity
-	izvrat = 1
+	npc_pervert[$boy] = 1
 end
 
 if $ARGS[0] = 'arthur':
 	!!stopboy = 0
-	gs 'boyStat', 'A73'
-	$boybody = 'average growth'
-	$boybod = 'muscular'
-	$boyface = 'black-haired'
+	gs 'npcStat', 'A73'
+	$npcheight = 'average growth'
+	$npcbuild = 'muscular'
+	$npchair = 'black'
 	!!security, is responsible for the money and requirements 0 beggar, 1 middle_peasant 2 rich
 	finance = 2
 	!!check in appearance, a parameter pcs_apprnc
 	vneshBoy = 100
-	$boyClo = 'dressed in a leather jacket and cap'
+	$npcClo = 'a leather jacket and cap'
 	!!0 - ass less 80, 1 back from 80 prior_to 100, 2 ass over 100
 	figurBoy = 2
 	!!0 - chest less 3, 1 breast 3-4, 2 breasts bigger 4
 	titBoy = 2
 	!!favorite hair color 0 - black, 1 - brown, 2 - redhead, 3 - blonde
 	hairBoy = 3
-	!!character 0 - soft, 1 -norm 2 - aggressor
-	harakBoy = 2
+	!!character: npc_gentle=1 - soft; norm ; npc_rough=1 - aggressor
+	npc_rough[$boy] = 1
 	!!perversity
-	izvrat = 1
+	npc_pervert[$boy] = 1
 end
 
 if $ARGS[0] = 'abdula':
 	!!stopboy = 0
-	gs 'boyStat', 'A91'
-	$boybody = 'long'
-	$boybod = 'skinny'
-	$boyface = 'gray'
+	gs 'npcStat', 'A91'
+	$npcheight = 'long'
+	$npcbuild = 'skinny'
+	$npchair = 'gray'
 	!!security, is responsible for the money and requirements 0 beggar, 1 middle_peasant 2 rich
 	finance = 2
 	!!check in appearance, a parameter pcs_apprnc
 	vneshBoy = 100
-	$boyClo = 'dressed in a leather jacket and cap'
+	$npcClo = 'a leather jacket and cap'
 	!!0 - ass less 80, 1 back from 80 prior_to 100, 2 ass over 100
 	figurBoy = 2
 	!!0 - chest less 3, 1 breast 3-4, 2 breasts bigger 4
 	titBoy = 2
 	!!favorite hair color 0 - black, 1 - brown, 2 - redhead, 3 - blonde
 	hairBoy = 3
-	!!character 0 - soft, 1 -norm 2 - aggressor
-	harakBoy = 2
+	!!character: npc_gentle=1 - soft; norm ; npc_rough=1 - aggressor
+	npc_rough[$boy] = 1
 	!!perversity
-	izvrat = 1
+	npc_pervert[$boy] = 1
 end
 
 if $ARGS[0] = 'hasan':
 	!!stopboy = 0
-	gs 'boyStat', 'A92'
-	$boybody = 'average growth'
-	$boybod = 'abdominous'
-	$boyface = 'black-haired'
+	gs 'npcStat', 'A92'
+	$npcheight = 'average growth'
+	$npcbuild = 'abdominous'
+	$npchair = 'black'
 	!!security, is responsible for the money and requirements 0 beggar, 1 middle_peasant 2 rich
 	finance = 2
 	!!check in appearance, a parameter pcs_apprnc
 	vneshBoy = 100
-	$boyClo = 'dressed in a leather jacket and cap'
+	$npcClo = 'a leather jacket and cap'
 	!!0 - ass less 80, 1 back from 80 prior_to 100, 2 ass over 100
 	figurBoy = 2
 	!!0 - chest less 3, 1 breast 3-4, 2 breasts bigger 4
 	titBoy = 2
 	!!favorite hair color 0 - black, 1 - brown, 2 - redhead, 3 - blonde
 	hairBoy = 3
-	!!character 0 - soft, 1 -norm 2 - aggressor
-	harakBoy = 2
+		!!character: npc_gentle=1 - soft; norm ; npc_rough=1 - aggressor
+	npc_rough[$boy] = 1
 	!!perversity
-	izvrat = 1
+	npc_pervert[$boy] = 1
 end
 
 if $ARGS[0] = 'kamil':
 	!!stopboy = 0
-	gs 'boyStat', 'A97'
-	$boybody = 'average growth'
-	$boybod = 'thin'
-	$boyface = 'black-haired'
+	gs 'npcStat', 'A97'
+	$npcheight = 'average growth'
+	$npcbuild = 'thin'
+	$npchair = 'black'
 	!!security, is responsible for the money and requirements 0 beggar, 1 middle_peasant 2 rich
 	finance = 2
 	!!check in appearance, a parameter pcs_apprnc
 	vneshBoy = 100
-	$boyClo = 'dressed in a leather jacket and cap'
+	$npcClo = 'a leather jacket and cap'
 	!!0 - ass less 80, 1 back from 80 prior_to 100, 2 ass over 100
 	figurBoy = 2
 	!!0 - chest less 3, 1 breast 3-4, 2 breasts bigger 4
 	titBoy = 2
 	!!favorite hair color 0 - black, 1 - brown, 2 - redhead, 3 - blonde
 	hairBoy = 3
-	!!character 0 - soft, 1 -norm 2 - aggressor
-	harakBoy = 2
+	!!character: npc_gentle=1 - soft; norm ; npc_rough=1 - aggressor
+	npc_rough[$boy] = 1
 	!!perversity
-	izvrat = 1
+	npc_pervert[$boy] = 1
 end
 
 if $ARGS[0] = 'aslan':
 	!!stopboy = 0
-	gs 'boyStat', 'A98'
-	$boybody = 'small'
-	$boybod = 'thin'
-	$boyface = 'black-haired'
+	gs 'npcStat', 'A98'
+	$npcheight = 'small'
+	$npcbuild = 'thin'
+	$npchair = 'black'
 	!!security, is responsible for the money and requirements 0 beggar, 1 middle_peasant 2 rich
 	finance = 2
 	!!check in appearance, a parameter pcs_apprnc
 	vneshBoy = 100
-	$boyClo = 'dressed in a leather jacket and cap'
+	$npcClo = 'a leather jacket and cap'
 	!!0 - ass less 80, 1 back from 80 prior_to 100, 2 ass over 100
 	figurBoy = 2
 	!!0 - chest less 3, 1 breast 3-4, 2 breasts bigger 4
 	titBoy = 2
 	!!favorite hair color 0 - black, 1 - brown, 2 - redhead, 3 - blonde
 	hairBoy = 3
-	!!character 0 - soft, 1 -norm 2 - aggressor
-	harakBoy = 2
+	!!character: npc_gentle=1 - soft; norm ; npc_rough=1 - aggressor
+	npc_rough[$boy] = 1
 	!!perversity
-	izvrat = 1
+	npc_pervert[$boy] = 1
 end
 
 if $ARGS[0] = 'muhtar':
 	!!stopboy = 0
-	gs 'boyStat', 'A99'
-	$boybody = 'small'
-	$boybod = 'thick'
-	$boyface = 'black-haired'
+	gs 'npcStat', 'A99'
+	$npcheight = 'small'
+	$npcbuild = 'thick'
+	$npchair = 'black'
 	!!security, is responsible for the money and requirements 0 beggar, 1 middle_peasant 2 rich
 	finance = 2
 	!!check in appearance, a parameter pcs_apprnc
 	vneshBoy = 100
-	$boyClo = 'dressed in a leather jacket and cap'
+	$npcClo = 'a leather jacket and cap'
 	!!0 - ass less 80, 1 back from 80 prior_to 100, 2 ass over 100
 	figurBoy = 2
 	!!0 - chest less 3, 1 breast 3-4, 2 breasts bigger 4
 	titBoy = 2
 	!!favorite hair color 0 - black, 1 - brown, 2 - redhead, 3 - blonde
 	hairBoy = 3
-	!!character 0 - soft, 1 -norm 2 - aggressor
-	harakBoy = 2
+	!!character: npc_gentle=1 - soft; norm ; npc_rough=1 - aggressor
+	npc_rough[$boy] = 1
 	!!perversity
-	izvrat = 1
+	npc_pervert[$boy] = 1
 end
 
 --- BDman ---------------------------------

locations/BDsex.qsrc

@@ -11,8 +11,8 @@ if $ARGS[0] = 'start':
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/shared/sex/pet/petting1.jpg"></center>'
 
-	if harakBoy = 0:
-		'<<$boydesc>> hugs you and gently caresses your breasts.'
+	if npc_gentle[$npcID] = 1:
+		'<<$npcdesc>> hugs you and gently caresses your breasts.'
 
 		gs 'willpower', 'cuni', 'force'
 		if will_cost <= pcs_willpwr:
@@ -20,101 +20,101 @@ if $ARGS[0] = 'start':
 		else
 			act 'Order him to lick you (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
 		end
-		act 'Stroke his cock':gt 'BDsex', 'hj'
-		act 'Suck his dick':gt 'BDsex', 'minet'
-		act 'Lie on your back and spread your legs ':gt 'BDsex', 'sex'
-		act 'Go on all fours':gt 'BDsex', 'sex2'
-		act 'Do anal':gt 'BDsex', 'anal2'
-	elseif harakBoy = 1:
-		'<<$boydesc>> skillfully caresses your breasts.'
+		act 'Stroke his cock': gt 'BDsex', 'hj'
+		act 'Suck his dick': gt 'BDsex', 'minet'
+		act 'Lie on your back and spread your legs ': gt 'BDsex', 'sex'
+		act 'Go on all fours': gt 'BDsex', 'sex2'
+		act 'Do anal': gt 'BDsex', 'anal2'
+
+	elseif npc_rough[$npcID] = 0:
+		'<<$npcdesc>> skillfully caresses your breasts.'
 		gs 'arousal', 'foreplay', 5
 		gs 'stat'
 
 		if rand(0, 100) < 70:
-			'<<$boydesc>> strokes and caresses your pussy with his fingers.'
+			'<<$npcdesc>> strokes and caresses your pussy with his fingers.'
 			gs 'arousal', 'vaginal_finger', -5, 'sub'
 			gs 'stat'
 
-			if rand(0, 2) < 2:
-				'<<$boydesc>> moves to lay you down on your back.'
+			if rand(0, 2) ! 0:
+				'<<$npcdesc>> moves to lay you down on your back.'
 
-				act 'Lie on your back and spread your legs ':gt 'BDsex', 'sex'
+				act 'Lie on your back and spread your legs ': gt 'BDsex', 'sex'
 			else
-				'<<$boydesc>> turns you face down.'
+				'<<$npcdesc>> turns you face down.'
 
-				act 'Stand on all fours':gt 'BDsex', 'sex2'
+				act 'Stand on all fours': gt 'BDsex', 'sex2'
 			end
 
-			act 'Suck him':gt 'BDsex', 'minet'
+			act 'Suck him': gt 'BDsex', 'minet'
 		else
-			'<<$boydesc>> asks you to suck his cock.'
+			'<<$npcdesc>> asks you to suck his cock.'
 
-			act 'Stroke his cock':gt 'BDsex', 'hj'
-			act 'Take by mouth':gt 'BDsex', 'minet'
-			act 'Tell him you prefer to lay down and happily spread your legs for him':gt 'BDsex', 'sex'
+			act 'Stroke his cock': gt 'BDsex', 'hj'
+			act 'Take by mouth': gt 'BDsex', 'minet'
+			act 'Tell him you prefer to lay down and happily spread your legs for him': gt 'BDsex', 'sex'
 		end
-	elseif harakBoy = 2:
-		'<<$boydesc>> hugs you and passionately caresses your breasts.'
+	else
+		'<<$npcdesc>> hugs you and passionately caresses your breasts.'
 		gs 'arousal', 'foreplay', 5
 		gs 'stat'
-		tmpbrand = rand(0, 100)
+		temp_rand = rand(0, 100)
 
-		if tmpbrand < 70:
-			'<<$boydesc>> caresses your pussy with his fingers.'
+		if temp_rand < 70:
+			'<<$npcdesc>> caresses your pussy with his fingers.'
 			gs 'arousal', 'vaginal_finger', -5, 'sub'
 			gs 'stat'
-			killvar 'tmpbrand'
 
-			if rand(0, 2) < 2:
-				'<<$boydesc>> moves to lay you down on your back.'
+			if rand(0, 2) ! 0:
+				'<<$npcdesc>> moves to lay you down on your back.'
 
-				act 'Lie on your back and spread your legs ':gt 'BDsex', 'sex'
+				act 'Lie on your back and spread your legs ': gt 'BDsex', 'sex'
 			else
-				'<<$boydesc>> turns you around.'
+				'<<$npcdesc>> turns you around.'
 
-				act 'Go on all fours':gt 'BDsex', 'sex2'
+				act 'Go on all fours': gt 'BDsex', 'sex2'
 			end
-		elseif tmpbrand >= 70 and tmpbrand < 90:
-			'<<$boydesc>> grabs the back of your head and pulls you to face his penis.'
-			killvar 'tmpbrand'
+		elseif temp_rand >= 70 and temp_rand < 90:
+			'<<$npcdesc>> grabs the back of your head and pulls you to face his penis.'
 
-			act 'Take by mouth':gt 'BDsex', 'minet'
+			act 'Take by mouth': gt 'BDsex', 'minet'
 			gs 'willpower', 'bj', 'resist', 'easy'
-			if will_cost <= pcs_willpwr:
-				act 'Lie on your back and spread your legs (<<will_cost>> Willpower)': gs 'willpower', 'pay', 'resist' & gt 'BDsex', 'sex'
-				act 'Stand on all fours (<<will_cost>> Willpower)': gs 'willpower', 'pay', 'resist' & gt 'BDsex', 'sex2'
-			else
+			if pcs_willpwr < will_cost:
 				act 'Lie on your back and spread your legs (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
 				act 'Stand on all fours (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+			else
+				act 'Lie on your back and spread your legs (<<will_cost>> Willpower)': gs 'willpower', 'pay', 'resist' & gt 'BDsex', 'sex'
+				act 'Stand on all fours (<<will_cost>> Willpower)': gs 'willpower', 'pay', 'resist' & gt 'BDsex', 'sex2'
 			end
-		elseif tmpbrand >= 90:
-			killvar 'tmpbrand'
-			'<<$boydesc>> tells you that he wants to take you in the ass.'
+		elseif temp_rand >= 90:
+			'<<$npcdesc>> tells you that he wants to take you in the ass.'
 
-			act 'Do anal':gt 'BDsex', 'anal2'
+			act 'Do anal': gt 'BDsex', 'anal2'
 
 			gs 'willpower', 'anal', 'resist', 'easy'
-			if will_cost <= pcs_willpwr:
-				act '"I do not want to!" Lie on your back and spread your legs (<<will_cost>> Willpower)': gs 'willpower', 'anal', 'resist', 'easy' & gs 'willpower', 'pay', 'resist' & gt 'BDsex', 'sex'
-				act '"I''ll do it doggy style, but not in the ass!" (<<will_cost>> Willpower)': gs 'willpower', 'anal', 'resist', 'easy' & gs 'willpower', 'pay', 'resist' & gt 'BDsex', 'sex2'
-			else
+			if pcs_willpwr < will_cost:
 				act '"I do not want to!" Lie on your back and spread your legs (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
 				act '"I''ll do it doggy style, but not in the ass!" (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+			else
+				act '"I do not want to!" Lie on your back and spread your legs (<<will_cost>> Willpower)': gs 'willpower', 'anal', 'resist', 'easy' & gs 'willpower', 'pay', 'resist' & gt 'BDsex', 'sex'
+				act '"I''ll do it doggy style, but not in the ass!" (<<will_cost>> Willpower)': gs 'willpower', 'anal', 'resist', 'easy' & gs 'willpower', 'pay', 'resist' & gt 'BDsex', 'sex2'
 			end
+
 			gs 'willpower', 'bj', 'force'
-			if will_cost <= pcs_willpwr:
-				act 'Take him into your mouth (<<will_cost>> Willpower)': gs 'willpower', 'bj', 'force' & gs 'willpower', 'pay', 'force' & gt 'BDsex', 'minet'
-			else
+			if pcs_willpwr < will_cost:
 				act 'Take him into your mouth (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+			else
+				act 'Take him into your mouth (<<will_cost>> Willpower)': gs 'willpower', 'bj', 'force' & gs 'willpower', 'pay', 'force' & gt 'BDsex', 'minet'
 			end
 		end
+		killvar 'temp_rand'
 	end
 end
 
 if $ARGS[0] = 'kuni':
 	'<center><img <<$set_imgh>> src="images/shared/sex/kuni/kuni.jpg"></center>'
 	'You undress and lay on the bed, bringing his face to your pussy.'
-	'<<$boydesc>> lays down between your legs and begins to work his tongue across your pussy.'
+	'<<$npcdesc>> lays down between your legs and begins to work his tongue across your pussy.'
 	gs 'arousal', 'cuni', 10, 'dom'
 	gs 'stat'
 	if pcs_horny >= 90:
@@ -126,11 +126,11 @@ if $ARGS[0] = 'kuni':
 		'His tongue work is exciting, but After a while, you begin to grow bored.'
 	end
 
-	act 'Stroke his cock':gt 'BDsex', 'hj'
-	act 'Take by mouth':gt 'BDsex', 'minet'
-	act 'Lie on your back and spread your legs ':gt 'BDsex', 'sex'
-	act 'Go on all fours':gt 'BDsex', 'sex2'
-	act 'Do anal':gt 'BDsex', 'anal2'
+	act 'Stroke his cock': gt 'BDsex', 'hj'
+	act 'Take by mouth': gt 'BDsex', 'minet'
+	act 'Lie on your back and spread your legs ': gt 'BDsex', 'sex'
+	act 'Go on all fours': gt 'BDsex', 'sex2'
+	act 'Do anal': gt 'BDsex', 'anal2'
 end
 
 if $ARGS[0] = 'sex':
@@ -141,22 +141,22 @@ if $ARGS[0] = 'sex':
 	gs 'stat'
 	gs 'BDsex', 'org'
 
-	if harakBoy > 0:
+	if npc_gentle[$npcID] = 0:
 		if rand(0, 10) >= 8:
-			'Suddenly <<$boydesc>> pulls out of you and takes you by the shoulders, guiding you to your knees before him.'
+			'Suddenly <<$npcdesc>> pulls out of you and takes you by the shoulders, guiding you to your knees before him.'
 
-			act 'Take it on the face':gt 'BDsex', 'facial'
-			act 'Open your mouth':gt 'BDsex', 'swallow'
+			act 'Take it on the face': gt 'BDsex', 'facial'
+			act 'Open your mouth': gt 'BDsex', 'swallow'
 
 			exit
 		end
 	end
 
-	if harakBoy = 2:
+	if npc_rough[$npcID] = 1:
 		if rand(0, 10) >= 8:
-			'Suddenly <<$boydesc>> pulls his member out and begins to fondle your ass, preparing it for penetration.'
+			'Suddenly <<$npcdesc>> pulls his member out and begins to fondle your ass, preparing it for penetration.'
 
-			act 'Do anal':gt 'BDsex', 'anal2'
+			act 'Do anal': gt 'BDsex', 'anal2'
 
 			exit
 		end
@@ -164,7 +164,7 @@ if $ARGS[0] = 'sex':
 
 	gs 'BDsex', 'cum'
 
-	act 'Leave':gt 'BDsex', 'end'
+	act 'Leave': gt 'BDsex', 'end'
 end
 
 
@@ -176,22 +176,22 @@ if $ARGS[0] = 'sex2':
 	gs 'stat'
 	gs 'BDsex', 'org'
 
-	if harakBoy > 0:
+	if npc_gentle[$npcID] = 0:
 		if rand(0, 10) >= 8:
-			'Suddenly <<$boydesc>> pulls out of you and takes you by the shoulders, guiding you to your knees before him.'
+			'Suddenly <<$npcdesc>> pulls out of you and takes you by the shoulders, guiding you to your knees before him.'
 
-			act 'Take it on the face':gt 'BDsex', 'facial'
-			act 'Open mouth':gt 'BDsex', 'swallow'
+			act 'Take it on the face': gt 'BDsex', 'facial'
+			act 'Open mouth': gt 'BDsex', 'swallow'
 
 			exit
 		end
 	end
 
-	if harakBoy = 2:
+	if npc_rough[$npcID] = 1:
 		if rand(0, 10) >= 8:
-			'Suddenly <<$boydesc>> withdraws and begins to fondle your ass, preparing it for penetration.'
+			'Suddenly <<$npcdesc>> withdraws and begins to fondle your ass, preparing it for penetration.'
 
-			act 'Anal':gt 'BDsex', 'anal2'
+			act 'Anal': gt 'BDsex', 'anal2'
 
 			exit
 		end
@@ -199,7 +199,7 @@ if $ARGS[0] = 'sex2':
 
 	gs 'BDsex', 'cum'
 
-	act 'Leave':gt 'BDsex', 'end'
+	act 'Leave': gt 'BDsex', 'end'
 end
 
 
@@ -228,19 +228,19 @@ if $ARGS[0] = 'anal2':
 	gs 'stat'
 	gs 'bdsex', 'an'
 
-	if harakBoy > 0:
+	if npc_gentle[$npcID] = 0:
 		if rand(0, 10) >= 8:
-			'Suddenly <<$boydesc>> pulls out of you and takes you by the shoulders, guiding you to your knees before him.'
+			'Suddenly <<$npcdesc>> pulls out of you and takes you by the shoulders, guiding you to your knees before him.'
 
-			act 'Take it on the face':gt 'BDsex', 'facial'
-			act 'Open mouth':gt 'BDsex', 'swallow'
+			act 'Take it on the face': gt 'BDsex', 'facial'
+			act 'Open mouth': gt 'BDsex', 'swallow'
 
 			exit
 		end
 	end
 
 	gs 'bdsex', 'ancum'
-	act 'Leave':gt 'BDsex', 'end'
+	act 'Leave': gt 'BDsex', 'end'
 end
 
 
@@ -259,72 +259,71 @@ if $ARGS[0] = 'hj':
 	gs 'arousal', 'hj', 5
 	gs 'stat'
 
-	if rand(0, 100) >= 75:
-		if harakBoy = 0:
-			'<<$boydesc>> moans, "I''m going to come."'
+	if rand(0, 100) < 75:
+		'<<$npcdesc>> Now finish.'
+
+		act 'Take it on the face': gt 'BDsex', 'facial'
+		act 'Open mouth': gt 'BDsex', 'swallow'
+	else
+		if npc_gentle[$npcID] = 1:
+			'<<$npcdesc>> moans, "I''m going to come."'
 
 			act 'Let ends':
-				cla
-				*clr
+				*clr & cla
 				'<center><img <<$set_imgh>> src="images/shared/sex/cum/handjob/hand2.jpg"></center>'
 				if protect = 1:
 					gs 'cum_manage'
 					protect = 0
 					if sexcontra = 4:
-						'<<$boydesc>> finishes, filling the condom with his hot and sticky cum, and then a slimy feeling. You realize that the condom burst.'
+						'<<$npcdesc>> finishes, filling the condom with his hot and sticky cum, and then a slimy feeling. You realize that the condom burst.'
 						gs 'arousal', 'end'
 						gs 'stat'
 					elseif sexcontra = 5:
-						'<<$boydesc>> finishes, filling the condom with his hot and sticky cum. As he pulls out, you feel a ghostly sensation, as if he didn''t come all the way out. Looking down, you see his bare dick.'
+						'<<$npcdesc>> finishes, filling the condom with his hot and sticky cum. As he pulls out, you feel a ghostly sensation, as if he didn''t come all the way out. Looking down, you see his bare dick.'
 						gs 'arousal', 'end'
 						gs 'stat'
 					else
-						'<<$boydesc>> finishes, filling the condom with his hot and sticky cum.'
+						'<<$npcdesc>> finishes, filling the condom with his hot and sticky cum.'
 						gs 'arousal', 'end'
 						gs 'stat'
 					end
 					sexcontra = 0
 				else
-					'<<$boydesc>> finishes, covering your hands in his hot and sticky cum.'
+					'<<$npcdesc>> finishes, covering your hands in his hot and sticky cum.'
 					spafinloc = 13
 					sexpartkno = 1
 					gs 'cum_manage'
 					gs 'arousal', 'end'
 					gs 'stat'
 				end
-				act 'Leave':gt 'BDsex', 'end'
+				act 'Leave': gt 'BDsex', 'end'
 			end
 
-			act 'Take by mouth':gt 'BDsex', 'minet'
-			act 'Lie on your back and spread your legs ':gt 'BDsex', 'sex'
-		elseif harakBoy = 1:
-			'<<$boydesc>> groans, "<<$pcs_nickname>> take my cock in your mouth or let me fuck you!"'
-
-			act 'Take by mouth':gt 'BDsex', 'minet'
-			act 'Lie on your back and spread her legs ':gt 'BDsex', 'sex'
-		else
+			act 'Take by mouth': gt 'BDsex', 'minet'
+			act 'Lie on your back and spread your legs ': gt 'BDsex', 'sex'
+		elseif npc_rough[$npcID] = 1:
 			tmpbrand = rand(0, 100)
 
 			if tmpbrand < 70:
-				'<<$boydesc>> caresses your pussy with his fingers.'
+				'<<$npcdesc>> caresses your pussy with his fingers.'
 				gs 'arousal', 'vaginal_finger', -5, 'sub'
 				gs 'stat'
 				killvar 'tmpbrand'
 
 				if rand(0, 2) < 2:
-					'<<$boydesc>> attempts to lay you down on your back.'
+					'<<$npcdesc>> attempts to lay you down on your back.'
 
-					act 'Lie on your back and spread your legs ':gt 'BDsex', 'sex'
+					act 'Lie on your back and spread your legs ': gt 'BDsex', 'sex'
 				else
-					'<<$boydesc>> turns you around.'
+					'<<$npcdesc>> turns you around.'
 
-					act 'Stand on all fours':gt 'BDsex', 'sex2'
+					act 'Stand on all fours': gt 'BDsex', 'sex2'
 				end
 			elseif tmpbrand >= 70 and tmpbrand < 80:
-				'<<$boydesc>> tells you that he wants your ass.'
+				'<<$npcdesc>> tells you that he wants your ass.'
 				killvar 'tmpbrand'
 
-				act 'Anal':gt 'BDsex', 'anal2'
+				act 'Anal': gt 'BDsex', 'anal2'
 
 				gs 'willpower', 'anal', 'resist', 'easy'
 				if will_cost <= pcs_willpwr:
@@ -341,17 +340,18 @@ if $ARGS[0] = 'hj':
 					act 'Take him into your mouth (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
 				end
 			elseif tmpbrand >= 80:
-				'<<$boydesc>> forces your face down on his member.'
+				'<<$npcdesc>> forces your face down on his member.'
 				killvar 'tmpbrand'
 
-				act 'Take by mouth':gt 'BDsex', 'minet'
+				act 'Take by mouth': gt 'BDsex', 'minet'
 			end
-		end
-	else
-		'<<$boydesc>> Now finish.'
 
-		act 'Take it on the face':gt 'BDsex', 'facial'
-		act 'Open mouth':gt 'BDsex', 'swallow'
+		else
+			'<<$npcdesc>> groans, "<<$pcs_nickname>> take my cock in your mouth or let me fuck you!"'
+
+			act 'Take by mouth': gt 'BDsex', 'minet'
+			act 'Lie on your back and spread her legs ': gt 'BDsex', 'sex'
+		end
 	end
 end
 
@@ -362,55 +362,79 @@ if $ARGS[0] = 'minet':
 	gs 'stat'
 	gs 'bdsex', 'autobj'
 
-	if rand(0, 100) >= 75:
-		if harakBoy = 0:
-			'<<$boydesc>> moans, "I''m going to come."'
+	if rand(0, 100) < 75:
+		'<<$npcdesc>> Now finish.'
+
+		act 'Take it on the face': gt 'BDsex', 'facial'
+		act 'Open mouth': gt 'BDsex', 'swallow'
 
+		if npc_gentle[$npcID] = 1:
 			act 'In the palm of your hand':
 				cla
 				*clr
 				'<center><img <<$set_imgh>> src="images/shared/sex/cum/handjob/hand2.jpg"></center>'
 				if protect = 1:
-					'<<$boydesc>> finishes, filling the condom with his cum.'
+					'<<$npcdesc>> finishes, filling the condom with his cum.'
 					protect = 0
 					sexcontra = 0
 					gs 'arousal', 'end'
 					gs 'stat'
 				else
-					'<<$boydesc>> finished all over your hands covering them in hot and sticky cum.'
+					'<<$npcdesc>> finished all over your hands covering them in hot and sticky cum.'
 					spafinloc = 13
 					sexpartkno = 1
 					gs 'cum_manage'
 					gs 'arousal', 'end'
 					gs 'stat'
 				end
-				act 'Leave':gt 'BDsex', 'end'
+				act 'Leave': gt 'BDsex', 'end'
 			end
+		end
+	else
+		if npc_gentle[$npcID] = 1:
+			'<<$npcdesc>> moans, "I''m going to come."'
 
-			act 'Lie on your back and spread your legs ':gt 'BDsex', 'sex'
-		elseif harakBoy = 1:
-			'<<$boydesc>> groans, "<<$pcs_nickname>> take my cock in your mouth or let me fuck you!"'
+			act 'In the palm of your hand':
+				cla
+				*clr
+				'<center><img <<$set_imgh>> src="images/shared/sex/cum/handjob/hand2.jpg"></center>'
+				if protect = 1:
+					'<<$npcdesc>> finishes, filling the condom with his cum.'
+					protect = 0
+					sexcontra = 0
+					gs 'arousal', 'end'
+					gs 'stat'
+				else
+					'<<$npcdesc>> finished all over your hands covering them in hot and sticky cum.'
+					spafinloc = 13
+					sexpartkno = 1
+					gs 'cum_manage'
+					gs 'arousal', 'end'
+					gs 'stat'
+				end
+				act 'Leave': gt 'BDsex', 'end'
+			end
 
-			act 'Lie on your back and spread your legs ':gt 'BDsex', 'sex'
-		else
+			act 'Lie on your back and spread your legs ': gt 'BDsex', 'sex'
+		elseif npc_rough[$npcID] = 1:
 			if rand(0, 100) < 70:
-				'<<$boydesc>> caresses your pussy with his fingers.'
+				'<<$npcdesc>> caresses your pussy with his fingers.'
 				gs 'arousal', 'vaginal_finger', -10, 'sub'
 				gs 'stat'
 
 				if rand(0, 2) < 2:
-					'<<$boydesc>> tries to lay you down on your back.'
+					'<<$npcdesc>> tries to lay you down on your back.'
 
-					act 'Lie on your back and spread your legs ':gt 'BDsex', 'sex'
+					act 'Lie on your back and spread your legs ': gt 'BDsex', 'sex'
 				else
-					'<<$boydesc>> turns you around.'
+					'<<$npcdesc>> turns you around.'
 
-					act 'Stand on all fours':gt 'BDsex', 'sex2'
+					act 'Stand on all fours': gt 'BDsex', 'sex2'
 				end
 			else
-				'<<$boydesc>> tells you that he wants your ass.'
+				'<<$npcdesc>> tells you that he wants your ass.'
 
-				act 'Anal':gt 'BDsex', 'anal2'
+				act 'Anal': gt 'BDsex', 'anal2'
 
 				gs 'willpower', 'anal', 'resist', 'easy'
 				if will_cost <= pcs_willpwr:
@@ -421,34 +445,10 @@ if $ARGS[0] = 'minet':
 					act '"I''ll do it doggy style, but not in the ass!" (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
 				end
 			end
-		end
-	else
-		'<<$boydesc>> Now finish.'
-
-		act 'Take it on the face':gt 'BDsex', 'facial'
-		act 'Open mouth':gt 'BDsex', 'swallow'
+		else
+			'<<$npcdesc>> groans, "<<$pcs_nickname>> take my cock in your mouth or let me fuck you!"'
 
-		if harakBoy = 0:
-			act 'In the palm of your hand':
-				cla
-				*clr
-				'<center><img <<$set_imgh>> src="images/shared/sex/cum/handjob/hand2.jpg"></center>'
-				if protect = 1:
-					'<<$boydesc>> finishes, filling the condom with his cum.'
-					protect = 0
-					sexcontra = 0
-					gs 'arousal', 'end'
-					gs 'stat'
-				else
-					'<<$boydesc>> finished all over your hands covering them in hot and sticky cum.'
-					spafinloc = 13
-					sexpartkno = 1
-					gs 'cum_manage'
-					gs 'arousal', 'end'
-					gs 'stat'
-				end
-				act 'Leave':gt 'BDsex', 'end'
-			end
+			act 'Lie on your back and spread your legs ': gt 'BDsex', 'sex'
 		end
 	end
 end
@@ -458,7 +458,7 @@ if $ARGS[0] = 'facial':
 	minut += 3
 	'<center><img <<$set_imgh>> src="images/shared/sex/cum/facial/facial<<rand(11, 15)>>.jpg"></center>'
 	if protect = 1:
-		'<<$boydesc>> finishes, filling the condom with his cum.'
+		'<<$npcdesc>> finishes, filling the condom with his cum.'
 		protect = 0
 		sexcontra = 0
 	else
@@ -468,22 +468,22 @@ if $ARGS[0] = 'facial':
 		gs 'cum_manage'
 	end
 	gs 'stat'
-	act 'Brush up':gt 'BDsex', 'end'
+	act 'Brush up': gt 'BDsex', 'end'
 end
 
 if $ARGS[0] = 'swallow':
 	minut += 3
 	'<center><img <<$set_imgh>> src="images/shared/sex/cum/mouth/cum<<rand(20, 29)>>.jpg"></center>'
 	if protect = 1:
-		'<<$boydesc>> finishes, and you feel the condom balloon up in your mouth.'
+		'<<$npcdesc>> finishes, and you feel the condom balloon up in your mouth.'
 		protect = 0
 		sexcontra = 0
 	else
 		'Thick jets of sharply smelling sperm fill your mouth.'
-		gs 'cum_call', 'mouth_swallow', $boy, 1
+		gs 'cum_call', 'mouth_swallow', $npcID, 1
 	end
 	gs 'stat'
-	act 'Brush up':gt 'BDsex', 'end'
+	act 'Brush up': gt 'BDsex', 'end'
 end
 
 if $ARGS[0] = 'end':
@@ -491,7 +491,7 @@ if $ARGS[0] = 'end':
 
 	if BDcafe = 1:
 		BDcafe = 0
-		act 'Leave':gt 'city_residential'
+		act 'Leave': gt 'city_residential'
 	elseif Yuri_sex = 1:
 		Yuri_sex = 0
 		cumspclnt = 4
@@ -499,27 +499,20 @@ if $ARGS[0] = 'end':
 		gs 'stat'
 		'Yuri lets you have a quick shower and dress before giving you a quick kiss on the cheek.'
 		if deodorant_on = 1: gs 'sweat', 'remove_deo' & '<br>Your deodorant gets washed away in the shower.'
-		act 'Leave':gt 'city_industrial'
-	elseif $boydesc = 'Michael N.':
+		act 'Leave': gt 'city_industrial'
+	elseif $npcdesc = 'Michael N.':
 		act 'Leave':dynamic $brodilr
 	elseif InYouHome = 1:
 		InYouHome = 0
-		'<<$boydesc>> politely says goodbye and leaves.'
+		'<<$npcdesc>> politely says goodbye and leaves.'
 
-		act 'Leave':gt $home['entrance'], $home['entrance_arg']
+		act 'Leave': gt $home['entrance'], $home['entrance_arg']
 
 		exit
 	elseif GoToGuy = 1:
 		GoToGuy = 0
-		act 'Leave':gt 'city_industrial'
-	elseif harakBoy = 1:
-		harakBoy = 0
-		cumspclnt = 4
-		gs 'cum_cleanup'
-		'You wash quickly in shower and <<$boydesc>> begins to hurry you out.'
-		if deodorant_on = 1: gs 'sweat', 'remove_deo' & '<br>Your deodorant gets washed away in the shower.'
-		act 'Leave':dynamic $brodilr
-	elseif harakBoy = 0:
+		act 'Leave': gt 'city_industrial'
+	elseif npc_gentle[$npcID] = 1:
 		minut += 15
 		pcs_horny += 1
 		pcs_hairbsh = 1
@@ -530,17 +523,28 @@ if $ARGS[0] = 'end':
 		'You go into the bathroom and turn on the shower, lathering body and washing as well as you can.'
 		if deodorant_on = 1: gs 'sweat', 'remove_deo' & '<br>Your deodorant gets washed away in the shower.'
 		act 'Leave':dynamic $brodilr
-	elseif harakBoy = 2:
-		'<<$boydesc>> won''t even let you go to the bathroom to clean up.'
+	elseif npc_rough[$npcID] = 1:
+		'<<$npcdesc>> won''t even let you go to the bathroom to clean up.'
 		act 'Leave':dynamic $brodilr
-	elseif finance > 0:
-		if finance = 1:money += 300
-		if finance = 2:money += 500
-		'<<$boydesc>> gives you money for a taxi and kicks you out of the apartment.'
+	elseif npc_gentle[$npcID] = 0 and npc_rough[$npcID] = 0:
+		npc_gentle[$npcID] = 1
+		cumspclnt = 4
+		gs 'cum_cleanup'
+		'You wash quickly in shower and <<$npcdesc>> begins to hurry you out.'
+		if deodorant_on = 1: gs 'sweat', 'remove_deo' & '<br>Your deodorant gets washed away in the shower.'
 		act 'Leave':dynamic $brodilr
-	elseif finance = 0:
-		'<<$boydesc>> kicks you out of the apartment.'
+
+	!! These will never trigger?
+	elseif npc_finance[$npcID] > 0:
+		if npc_finance[$npcID] = 1: money += 300
+		if npc_finance[$npcID] = 2: money += 500
+		'<<$npcdesc>> gives you money for a taxi and kicks you out of the apartment.'
 		act 'Leave':dynamic $brodilr
+	elseif npc_finance[$npcID] = 0:
+		'<<$npcdesc>> kicks you out of the apartment.'
+		act 'Leave':dynamic $brodilr
+
+	!! This will never trigger
 	elseif GoToGuy = 0:
 		act 'Leave':
 			tmpgorand = rand(0, 2)
@@ -559,7 +563,7 @@ if $ARGS[0] = 'org':
 	if mc_inventory['contraceptive_pill'] <= 0 and mc_inventory['equipped_condoms'] > 0:
 		dynamic $prezik
 		protect = 1
-		'<<$boydesc>> takes a condom and puts it on his <<dick>> centimeter member.'
+		'<<$npcdesc>> takes a condom and puts it on his <<dick>> centimeter member.'
 		if preziktype = 2:
 			sexcontra = 7
 		else
@@ -651,27 +655,27 @@ if $ARGS[0] = 'org':
 
 		if orgazm = 0:
 			pcs_mood -= 15
-			'You groan in pain when <<$boydesc>> enters you, tears flowing from your eyes as you endure the feeling of having a red-hot rod between your legs. You cry and moan while his strong <<dick>> centimeter dick fucks your pussy.'
+			'You groan in pain when <<$npcdesc>> enters you, tears flowing from your eyes as you endure the feeling of having a red-hot rod between your legs. You cry and moan while his strong <<dick>> centimeter dick fucks your pussy.'
 			gs 'arousal', 'vaginal', 5, 'sub'
 			gs 'stat'
 		elseif orgazm = 1:
 			pcs_mood -= 10
-			'You bite your lip in pain when <<$boydesc>> enters you, a twinge of pain between your legs. Frowning, you moan in pain while his strong <<dick>> centimeter dick fucks your pussy.'
+			'You bite your lip in pain when <<$npcdesc>> enters you, a twinge of pain between your legs. Frowning, you moan in pain while his strong <<dick>> centimeter dick fucks your pussy.'
 			gs 'arousal', 'vaginal', 5, 'sub'
 			gs 'stat'
 		elseif orgazm = 2:
 			pcs_mood -= 5
-			'You wince at the sudden pain when <<$boydesc>> enters you, the pain between your legs gradually calms and becomes quite tolerable. You try to get aroused while his strong <<dick>> centimeter dick fucks your pussy, but it is not enough.'
+			'You wince at the sudden pain when <<$npcdesc>> enters you, the pain between your legs gradually calms and becomes quite tolerable. You try to get aroused while his strong <<dick>> centimeter dick fucks your pussy, but it is not enough.'
 			gs 'arousal', 'vaginal', 5, 'sub'
 			gs 'stat'
 		elseif orgazm = 3:
 			pcs_mood += 5
-			'You are startled by the feeling as your pussy is stretched when <<$boydesc>> enters you. A shiver of pleasure starts from between your legs and travels up your spine as each stroke of his <<dick>> centimeter fucks into your pussy.'
+			'You are startled by the feeling as your pussy is stretched when <<$npcdesc>> enters you. A shiver of pleasure starts from between your legs and travels up your spine as each stroke of his <<dick>> centimeter fucks into your pussy.'
 			gs 'arousal', 'vaginal', 5, 'sub'
 			gs 'stat'
 		elseif orgazm = 4:
 			pcs_mood += 10
-			'You are startled by the feeling as your pussy is stretched when <<$boydesc>> enters you. A shiver of pleasure starts from between your legs and travels up your spine as each stroke of his <<dick>> centimeter fucks into your pussy. Gradually a pleasant warmth and ripple grows in the lower abdomen, but the feeling never peaks, instead decreasing in strength even as it remains with you until the end.'
+			'You are startled by the feeling as your pussy is stretched when <<$npcdesc>> enters you. A shiver of pleasure starts from between your legs and travels up your spine as each stroke of his <<dick>> centimeter fucks into your pussy. Gradually a pleasant warmth and ripple grows in the lower abdomen, but the feeling never peaks, instead decreasing in strength even as it remains with you until the end.'
 			gs 'arousal', 'vaginal', 5, 'sub'
 			gs 'stat'
 		elseif orgazm = 5:
@@ -682,7 +686,7 @@ if $ARGS[0] = 'org':
 			gs 'stat'
 		elseif orgazm = 6:
 			pcs_mood += 5
-			'You feel every centimeter as his member enters your pussy when <<$boydesc>> slides home. It is a pleasant feeling, but his dick is significantly smaller than you prefer and <<dick>> centimeter is not enough for you. Gradually, a pleasant ripples grows in your lower abdomen, but the feeling never rises to true orgasm.'
+			'You feel every centimeter as his member enters your pussy when <<$npcdesc>> slides home. It is a pleasant feeling, but his dick is significantly smaller than you prefer and <<dick>> centimeter is not enough for you. Gradually, a pleasant ripples grows in your lower abdomen, but the feeling never rises to true orgasm.'
 			gs 'arousal', 'vaginal', 5, 'sub'
 			gs 'stat'
 		end
@@ -690,7 +694,7 @@ if $ARGS[0] = 'org':
 		if pcs_vag <= dick:pcs_vag += 1
 	elseif stat['think_virgin'] = 1 and mesec <= 0:
 		pcs_mood -= 15
-		'You bite your lip in pain and tears gush from your eyes when <<$boydesc>> enters you, breaking your hymen. You moan while weeping as his strong <<dick>> centimeter dick fucks your bloody pussy.'
+		'You bite your lip in pain and tears gush from your eyes when <<$npcdesc>> enters you, breaking your hymen. You moan while weeping as his strong <<dick>> centimeter dick fucks your bloody pussy.'
 		gs 'arousal', 'vaginal', 5, 'sub', 'rough'
 		gs 'stat'
 	end
@@ -708,7 +712,7 @@ if $ARGS[0] = 'cum':
 			!!inside
 			sexpartkno = 1
 			gs 'cum_manage'
-			'<<$boydesc>> groans and you feel each jet of sperm paint the walls of your womb with seed.'
+			'<<$npcdesc>> groans and you feel each jet of sperm paint the walls of your womb with seed.'
 			gs 'arousal', 'end'
 			gs 'stat'
 			pcs_mood -= 15
@@ -719,14 +723,14 @@ if $ARGS[0] = 'cum':
 				spafinloc = 14
 				sexpartkno = 1
 				gs 'cum_manage'
-				'<<$boydesc>> shouts, pulling out to finish on your stomach.'
+				'<<$npcdesc>> shouts, pulling out to finish on your stomach.'
 				gs 'arousal', 'end'
 				gs 'stat'
 			elseif pose = 1:
 				spafinloc = 4
 				sexpartkno = 1
 				gs 'cum_manage'
-				'<<$boydesc>> shudders, pulling out just in time to paint your ass white with semen.'
+				'<<$npcdesc>> shudders, pulling out just in time to paint your ass white with semen.'
 				gs 'arousal', 'end'
 				gs 'stat'
 			end
@@ -734,15 +738,15 @@ if $ARGS[0] = 'cum':
 	elseif protect = 1:
 		protect = 0
 		if sexcontra = 4:
-			'<<$boydesc>> groans and you feel heat building deep inside, and then a slimy feeling. You realize that the condom burst.'
+			'<<$npcdesc>> groans and you feel heat building deep inside, and then a slimy feeling. You realize that the condom burst.'
 			gs 'arousal', 'end'
 			gs 'stat'
 		elseif sexcontra = 5:
-			'<<$boydesc>> groans and you feel heat building deep inside. As he pulls out, you feel a ghostly sensation, as if he didn''t come all the way out. Looking down, you see his bare dick.'
+			'<<$npcdesc>> groans and you feel heat building deep inside. As he pulls out, you feel a ghostly sensation, as if he didn''t come all the way out. Looking down, you see his bare dick.'
 			gs 'arousal', 'end'
 			gs 'stat'
 		else
-			'<<$boydesc>> groans and you feel heat building deep inside. You realize that he has filled the condom.'
+			'<<$npcdesc>> groans and you feel heat building deep inside. You realize that he has filled the condom.'
 			gs 'arousal', 'end'
 			gs 'stat'
 		end
@@ -756,20 +760,20 @@ if $ARGS[0] = 'autobj':
 	'You little fingers caress his <<dick>> centimeter shaft before you take the head into your mouth and began to suck.'
 	gs 'arousal', 'hj', 5, 'sub'
 	gs 'stat'
-	if harakBoy = 0:
-		'<<$boydesc>> closes his eyes in pleasure, enjoying the caress of your lips.'
+	if npc_gentle[$npcID] = 1:
+		'<<$npcdesc>> closes his eyes in pleasure, enjoying the caress of your lips.'
 		gs 'arousal', 'bj', 5, 'sub'
 		gs 'stat'
-	elseif harakBoy = 1:
-		'<<$boydesc>> stares expectingly at you until your lips glide over his hard dick.'
-		gs 'arousal', 'bj', 5, 'sub'
-		gs 'stat'
-	elseif harakBoy = 2:
+	elseif npc_rough[$npcID] = 1:
 		if pcs_makeup > 1:pcs_makeup = 0
 		pcs_hairbsh = -1
-		'<<$boydesc>> grabs your hair and begins to fuck your mouth roughly, each thrust strikes against the back of your throat as tears flow from your eyes.'
+		'<<$npcdesc>> grabs your hair and begins to fuck your mouth roughly, each thrust strikes against the back of your throat as tears flow from your eyes.'
 		gs 'arousal', 'bj', 5, 'sub', 'rough'
 		gs 'stat'
+	else
+		'<<$npcdesc>> stares expectingly at you until your lips glide over his hard dick.'
+		gs 'arousal', 'bj', 5, 'sub'
+		gs 'stat'
 	end
 
 	pcs_horny += pcs_throat + 10 - (willpowermax / 10)
@@ -784,33 +788,33 @@ if $ARGS[0] = 'autobj':
 		gs 'stat'
 	end
 
-	!!'Finally <<$boydesc>> groans and you realize that he is at his limit.'
+	!!'Finally <<$npcdesc>> groans and you realize that he is at his limit.'
 end
 
 if $ARGS[0] = 'an':
 	!!if analplugin = 1:
 	!!	analpluginbonus = 10
 	!!	analplugin = 0
-	!!	if pcs_ass < 16:'<<$boydesc>> pulls the plug out of your narrow and tight ass.'
-	!!	if pcs_ass >= 16:'<<$boydesc>> pulls the butt plug out of your ass, hot juices dripping from your now unstoppered hole.'
+	!!	if pcs_ass < 16:'<<$npcdesc>> pulls the plug out of your narrow and tight ass.'
+	!!	if pcs_ass >= 16:'<<$npcdesc>> pulls the butt plug out of your ass, hot juices dripping from your now unstoppered hole.'
 	!!	if pcs_ass + analpluginbonus < dick:'You scream and bite your lip at the sharp pain when the <<dick>> centimeter dick parts your ass and plunges home.'
 	!!	if pcs_ass + analpluginbonus >= dick:'You groan and a satisfying fullness spreads through you as the <<dick>> member centimeter dick forces its way into your ass.'
 	!!	!!gs 'BDsex', 'ancum'
 	!!end
 
 	gs 'dinsex','boy_wants_anal'
-	'<<$boydesc>> lays you on your stomach on the bed, spreading your ass apart as he begins to massage and open your anus with his fingers, first one, then two.'
+	'<<$npcdesc>> lays you on your stomach on the bed, spreading your ass apart as he begins to massage and open your anus with his fingers, first one, then two.'
 	gs 'arousal', 'anal_finger', 5, 'sub'
 	if pcs_ass < 10:
 		'You groan in pain as his third finger invades your ass.'
 	else
 		'You feel your asshole stretch to accommodate his third finger.'
 	end
-	'<<$boydesc>> abruptly pulls his fingers out of your ass and you feel his hard cock rest against your hole.'
+	'<<$npcdesc>> abruptly pulls his fingers out of your ass and you feel his hard cock rest against your hole.'
 
 	if pcs_ass + lubonus < dick:'You scream and bite your lip at the sharp pain when the <<dick>> member centimeter enters your ass.'
 	if pcs_ass + lubonus >= dick:'You groan and a satisfying fullness spreads through you as the <<dick>> member centimeter dick forces its way into your ass.'
-	'<<$boydesc>> stops his assault for a moment, giving your ass time to adapt to the cock invading it before he starts you again, this time even more insistent.'
+	'<<$npcdesc>> stops his assault for a moment, giving your ass time to adapt to the cock invading it before he starts you again, this time even more insistent.'
 	gs 'arousal', 'anal', 10, 'sub'
 	gs 'stat'
 	if pcs_ass + lubonus + 2 < dick:
@@ -826,7 +830,7 @@ if $ARGS[0] = 'an':
 end
 
 if $ARGS[0] = 'ancum':
-	'Finally <<$boydesc>> grabs your tight ass and drives home, hilting his dick in your aching ass and slapping your pussy with his balls as he cums.'
+	'Finally <<$npcdesc>> grabs your tight ass and drives home, hilting his dick in your aching ass and slapping your pussy with his balls as he cums.'
 	spafinloc = 3
 	sexvolume = 20
 	sexpartkno = 1

locations/Cheatmenu_din.qsrc

@@ -1670,35 +1670,15 @@ if $ARGS[0] = 'reputation':
 	*nl
 	'<font color="blue"><b>Nicholas'' Family</b></font>'
 	'<a href="exec:gt ''nichUtil'', ''debug''">Storyline Debug Menu</a>'
+	*nl
 
-	temp_cmd_i = 0
-	:loverrelationshiploop
-	if temp_cmd_i < arrsize('$lover'):
-		if pcs_lovers[temp_cmd_i] = 1:
-			$temp_npcid = $lover[temp_cmd_i]
-			*nl
-			'You are dating <<$npc_usedname[$temp_npcid]>>.'
-			if loverrelation[temp_cmd_i] < 0: loverrelation[temp_cmd_i] = 0
-			if loverdays[temp_cmd_i] < 0: loverdays[temp_cmd_i] = 0
-			if npc_gentle[$temp_npcid] = 1:
-				'Change lover''s personality: <a href="exec: npc_gentle[<<$temp_npcid>>] = 0 & dynamic $cheatmenu[''reputation'']">Gentle</a>'
-			elseif npc_rough[$temp_npcid] = 0:
-				'Change lover''s personality: <a href="exec: npc_rough[<<$temp_npcid>>] = 1 & dynamic $cheatmenu[''reputation'']">Normal</a>'
-			else
-				'Change lover''s personality: <a href="exec: npc_rough[<<$temp_npcid>>] = 0 & npc_gentle[<<$temp_npcid>>] = 1 & dynamic $cheatmenu[''reputation'']">Rough</a>'
-			end
-			if npc_pervert[$temp_npcid] = 0:
-				'Change lover''s perversion: <a href="exec: npc_pervert[<<$temp_npcid>>] = 1 & dynamic $cheatmenu[''reputation'']">Not perverted</a>'
-			else
-				'Change lover''s perversion: <a href="exec: npc_pervert[<<$temp_npcid>>] = 0 & dynamic $cheatmenu[''reputation'']">Perverted</a>'
-			end
-			'Relationship: <<loverrelation[temp_cmd_i]>> <a href="exec: loverrelation[<<temp_cmd_i>>] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec: loverrelation[<<temp_cmd_i>>] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
-			'You''ve been dating for <<loverdays[temp_cmd_i]>> days. <a href="exec:loverdays[<<temp_cmd_i>>] += 5 & dynamic $cheatmenu[''reputation'']">+5</a> <a href="exec: loverdays[<<temp_cmd_i>>] -= 5 & dynamic $cheatmenu[''reputation'']">-5</a>'
-		end
-		temp_cmd_i += 1
-		jump 'loverrelationshiploop'
+	if arrsize('$lover') > 0:
+		'<font color="blue"><b>Lovers</b></font>'
+		'<a href="exec:gt ''cheatmenu_din'', ''lover_menu''">Edit lovers</a>'
+		*nl
 	end
-	*nl
+
+
 	if fame['pav_slut'] >= 50:
 		gs 'fame'
 		'In Pavlovsk you are known as a <font color="red"><<$gnikname>></font> <a href="exec:fame[''pav_sex''] = 0 & fame[''pav_prostitute''] = 0 & gs ''fame'', ''calculateSlut'' & dynamic $cheatmenu[''reputation'']">Clear</a>'
@@ -1754,6 +1734,70 @@ if $ARGS[0] = 'reputation':
 	$cheatmenu['table_end']
 end
 
+
+$cheatmenu['lover_menu'] = "gt 'cheatmenu_din', 'lover_menu'"
+if $ARGS[0] = 'lover_menu':
+	*clr & cla
+	'<center><h2>Cheat Menu - Relationships - Lovers</h2></center>'
+
+	$cheatmenu['table_start']
+		act 'Go Back': gt 'cheatmenu_din', 'reputation'
+		'<a href="exec:gt ''cheatmenu_din'', ''reputation''">Go Back</a>'
+
+		temp_cmd_i = 0
+		temp_cmd_max_i = arrsize('$lover')
+		:loverrelationshiploop
+		if temp_cmd_i < temp_cmd_max_i:
+			$cmd_temp_npcid = $lover[temp_cmd_i]
+			if mid($npc_rel_type[$cmd_temp_npcid], 1, 2) = 'ex':
+				temp_cmd_i += 1
+				jump 'loverrelationshiploop'
+			end
+
+			*nl
+
+			if npc_rel[$cmd_temp_npcid] < 0: npc_rel[$cmd_temp_npcid] = 0
+			if npc_rel[$cmd_temp_npcid] > 100: npc_rel[$cmd_temp_npcid] = 100
+			if npc_dates[$cmd_temp_npcid] < 0: npc_dates[$cmd_temp_npcid] = 0
+
+			if $npc_rel_type[$cmd_temp_npcid] = 'boyfriend' or $npc_rel_type[$cmd_temp_npcid] = 'girlfriend':
+				'You are dating <<$npc_usedname[$cmd_temp_npcid]>>.'
+			elseif $npc_rel_type[$cmd_temp_npcid] = 'husband' or $npc_rel_type[$cmd_temp_npcid] = 'wife':
+				'You are married to <<$npc_usedname[$cmd_temp_npcid]>>.'
+			elseif $npc_rel_type[$cmd_temp_npcid] = 'fuckbuddy':
+				'You are fuckbuddies with <<$npc_usedname[$cmd_temp_npcid]>>.'
+			elseif $npc_rel_type[$cmd_temp_npcid] = 'sugar_daddy':
+				'<<$npc_usedname[$cmd_temp_npcid]>> is your sugar daddy.'
+			end
+
+			if npc_gentle[$cmd_temp_npcid] = 1:
+				'Change lover''s personality: <a href="exec: npc_gentle[''<<$cmd_temp_npcid>>''] = 0 & dynamic $cheatmenu[''lover_menu'']">Gentle</a>'
+			elseif npc_rough[$cmd_temp_npcid] = 0:
+				'Change lover''s personality: <a href="exec: npc_rough[''<<$cmd_temp_npcid>>''] = 1 & dynamic $cheatmenu[''lover_menu'']">Normal</a>'
+			else
+				'Change lover''s personality: <a href="exec: npc_rough[''<<$cmd_temp_npcid>>''] = 0 & npc_gentle[''<<$cmd_temp_npcid>>''] = 1 & dynamic $cheatmenu[''lover_menu'']">Rough</a>'
+			end
+
+			if npc_pervert[$cmd_temp_npcid] = 0:
+				'Change lover''s perversion: <a href="exec: npc_pervert[''<<$cmd_temp_npcid>>''] = 1 & dynamic $cheatmenu[''lover_menu'']">Not perverted</a>'
+			else
+				'Change lover''s perversion: <a href="exec: npc_pervert[''<<$cmd_temp_npcid>>''] = 0 & dynamic $cheatmenu[''lover_menu'']">Perverted</a>'
+			end
+
+			'Relationship: <<npc_rel[$cmd_temp_npcid]>> <a href="exec: npc_rel[''<<$cmd_temp_npcid>>''] += 10 & dynamic $cheatmenu[''lover_menu'']">+10</a> <a href="exec: npc_rel[''<<$cmd_temp_npcid>>''] -= 10 & dynamic $cheatmenu[''lover_menu'']">-10</a>'
+			'You''ve been on <<npc_dates[$cmd_temp_npcid]>> dates. <a href="exec: npc_dates[''<<$cmd_temp_npcid>>''] += 5 & dynamic $cheatmenu[''lover_menu'']">+5</a> <a href="exec: npc_dates[''<<$cmd_temp_npcid>>''] -= 5 & dynamic $cheatmenu[''lover_menu'']">-5</a>'
+
+			temp_cmd_i += 1
+			jump 'loverrelationshiploop'
+		end
+		killvar 'temp_cmd_max_i'
+		killvar 'temp_cmd_i'
+
+	$cheatmenu['table_end']
+end
+
+
+
 !!----------------------------------------------------------------------------------------------------------------------------
 !! Diplomas, Licences, and Certificates
 !!----------------------------------------------------------------------------------------------------------------------------

locations/Katlake.qsrc

@@ -39,7 +39,7 @@ if $ARGS[0] = 'znakomstvo':
 		katday = daystart
 		telkat += 1
 		gs 'telefon', 'AddContact', 'A219', 'icon_kat', 0
-		gs 'telefon', 'SetCallSchedule', 'A219', "$telsob = 'Kate' & gt 'telefon', 'mobilaraz'", "hour >= 8 and hour <= 20", "", "0"
+		gs 'telefon', 'SetCallSchedule', 'A219', "$telsob = 'Kate' & gt 'lover_call', 'mobilaraz'", "hour >= 8 and hour <= 20", "", "0"
 		kat = 1
 		npc_rel['A219'] += 1
 		minut += 30

locations/LakeBoyZ.qsrc

@@ -9,12 +9,11 @@ $gL_boy_z = {
 			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/event/sunbathe_lake.jpg"></center>'
 		end
 		'He seems nice enough so you decide to give him your name.'
-		randvnesh = rand(40,120)
-		if rand(0,10) = 0 and pcs_apprnc >= randvnesh:
+		if rand(0,10) = 0 and pcs_apprnc >= rand(40,120):
 			'<<$boydesc>> smiles as he says, "You''re a pretty cool girl. Maybe we can hang out again?"'
 			gs 'willpower', 'misc', 'resist', 'easy'
 			if will_cost <= pcs_willpwr:
-				act 'Smile and leave (<<will_cost>> Willpower)':	
+				act 'Smile and leave (<<will_cost>> Willpower)':
 					gs 'willpower', 'pay', 'resist'
 					gt 'pav_lake'
 				end
@@ -24,7 +23,7 @@ $gL_boy_z = {
 			act 'Give him your phone number':
 				*clr & cla
 				pcs_mood += 10
-				if rand(0,2) = 0: gs 'boyfrend','start'
+				if rand(0,2) = 0: gs 'lover', 'add_boyfriend', $boy
 				minut += 5
 				bmFrend[Tboynum] = 1
 				gs 'stat'

locations/albina_chat.qsrc

@@ -949,40 +949,46 @@ if $ARGS[0] = 'lover_conversation':
 		act 'Change the subject': gt 'albina_chat', 'chat'
 	end
 
-	if arrsize('$fuckbuddy') = 1:
-		act 'I have a fuckbuddy':
-			*clr & cla
-			'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/albina/albinatalk.jpg"></center>'
-			'"Pretty much the same deal as you," you smile. "I keep it casual with a fuckbuddy. We booty call each other whenever we want to get off."'
-			'"Better that way, isn''t it?" she smirks. "Romance is overrated. Let''s not kid ourselves. We''re all in it for the fucking."'
-			act 'Stop talking': gt 'albina_chat', 'chat_exit'
-			act 'Change the subject': gt 'albina_chat', 'chat'
-		end
-	elseif arrsize('$fuckbuddy') < 7:
-		act 'A few fuckbuddies':
-			*clr & cla
-			'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/albina/albinatalk.jpg"></center>'
-			'"Pretty much the same deal as you," you smile. "I keep it casual with a few fuckbuddies I have stashed around the way. They booty call me whenever they want to hook up."'
-			'"Better that way, isn''t it?" she smirks. "Romance is overrated. Let''s not kid ourselves. Even couples are just looking for an excuse to fuck."'
-			act 'Stop talking': gt 'albina_chat', 'chat_exit'
-			act 'Change the subject': gt 'albina_chat', 'chat'
-		end
-	else
-		act 'A lot of fuckbuddies':
-			*clr & cla
-			'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/albina/albinatalk.jpg"></center>'
-			'"Pretty much the same deal as you," you smile. "I have a bunch of guys I keep it casual with. They booty call me whenever they want to hook up."'
-			'"A bunch?" She raises an eyebrow. "How much is ''a bunch''?"'
-			iif(arrsize('$fuckbuddy') <= 10, '"Hmmm..." You start counting off your various lovers on your fingers.  "<<arrsize(''$fuckbuddy'') - 1>>? No wait, <<arrsize(''$fuckbuddy'')>>. I just wait for them to text me if they want to fuck."', '"Let''s just say more than ten," you say with a wry smirk.')
-			'"You slut!" she grins.'
-			act 'Stop talking': gt 'albina_chat', 'chat_exit'
-			act 'Change the subject': gt 'albina_chat', 'chat'
-			act 'Accept your sluttiness':
-				cla & *nl
-				'"Uh, yes?" You give her a nonchalant shrug. "I like sex. I''m going to have as much of it as I want. If that makes me a slut then so be it."'
+	if stat['fuckbuddies_current'] > 0:
+		if stat['fuckbuddies_current'] = 1:
+			act 'I have a fuckbuddy':
+				*clr & cla
+				'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/albina/albinatalk.jpg"></center>'
+				'"Pretty much the same deal as you," you smile. "I keep it casual with a fuckbuddy. We booty call each other whenever we want to get off."'
+				'"Better that way, isn''t it?" she smirks. "Romance is overrated. Let''s not kid ourselves. We''re all in it for the fucking."'
 				act 'Stop talking': gt 'albina_chat', 'chat_exit'
 				act 'Change the subject': gt 'albina_chat', 'chat'
 			end
+		elseif stat['fuckbuddies_current'] < 7:
+			act 'A few fuckbuddies':
+				*clr & cla
+				'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/albina/albinatalk.jpg"></center>'
+				'"Pretty much the same deal as you," you smile. "I keep it casual with a few fuckbuddies I have stashed around the way. They booty call me whenever they want to hook up."'
+				'"Better that way, isn''t it?" she smirks. "Romance is overrated. Let''s not kid ourselves. Even couples are just looking for an excuse to fuck."'
+				act 'Stop talking': gt 'albina_chat', 'chat_exit'
+				act 'Change the subject': gt 'albina_chat', 'chat'
+			end
+		else
+			act 'A lot of fuckbuddies':
+				*clr & cla
+				'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/albina/albinatalk.jpg"></center>'
+				'"Pretty much the same deal as you," you smile. "I have a bunch of guys I keep it casual with. They booty call me whenever they want to hook up."'
+				'"A bunch?" She raises an eyebrow. "How much is ''a bunch''?"'
+				if stat['fuckbuddies_current'] <= 10:
+					'"Hmmm..." You start counting off your various lovers on your fingers.  "<<stat[''fuckbuddies_current''] - 1>>? No wait, <<stat[''fuckbuddies_current'']>>. I just wait for them to text me if they want to fuck."'
+				else
+					'"Let''s just say more than ten," you say with a wry smirk.'
+				end
+				'"You slut!" she grins.'
+				act 'Stop talking': gt 'albina_chat', 'chat_exit'
+				act 'Change the subject': gt 'albina_chat', 'chat'
+				act 'Accept your sluttiness':
+					cla & *nl
+					'"Uh, yes?" You give her a nonchalant shrug. "I like sex. I''m going to have as much of it as I want. If that makes me a slut then so be it."'
+					act 'Stop talking': gt 'albina_chat', 'chat_exit'
+					act 'Change the subject': gt 'albina_chat', 'chat'
+				end
+			end
 		end
 	end
 
@@ -1017,7 +1023,7 @@ if $ARGS[0] = 'lover_conversation':
 		end
 	end
 
-	if Rex_Love = 1 or artemQW['bf'] = 1 or kotovLoveQW = 1 or fedorKozlovQW or NikoVolkovQW >= 5 or pcs_lover > pcs_girlfriends:
+	if Rex_Love = 1 or artemQW['bf'] = 1 or kotovLoveQW = 1 or fedorKozlovQW or NikoVolkovQW >= 5 or stat['boyfriends_current'] > 0:
 		act 'I have a boyfriend':
 			*clr & cla
 			'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/albina/albinatalk.jpg"></center>'
@@ -1028,10 +1034,10 @@ if $ARGS[0] = 'lover_conversation':
 			gs 'albina_chat', 'lover_rex_talk'
 			i = 0
 			:lover_looop
-			if i < arrsize('lover'):
+			if i < arrsize('$lover'):
 				$temp_npcid = $lover[i]
-				if npc_gender[$temp_npcid] ! 1:
-					dynamic 'act ''<<$npc_usedname["<<$temp_npcid>>"]>>'': gt ''albina_chat'', ''tell_about_generic_boyfreind'', $npc_usedname["<<$temp_npcid>>"]'
+				if $npc_rel_type[$temp_npcid] = 'boyfriend':
+					dynamic 'act ''<<$npc_usedname["<<$temp_npcid>>"]>>'': gt ''albina_chat'', ''tell_about_generic_boyfriend'', $npc_usedname["<<$temp_npcid>>"]'
 				end
 				killvar '$temp_npcid'
 				i += 1
@@ -1243,9 +1249,9 @@ if $ARGS[0] = 'zoya_conversation':
 				if NikoVolkovQW >= 5: act 'Get married to Niko': gt 'albina_chat', 'telling_marrige_dreams', 'Niko'
 				i = 0
 				:marrid_looop
-				if i < arrsize('lover'):
+				if i < arrsize('$lover'):
 					$temp_npcid = $lover[i]
-					if npc_gender[$temp_npcid] ! 1:
+					if $npc_rel_type[$temp_npcid] = 'boyfriend':
 						dynamic 'act ''Get married to <<$npc_usedname["<<$temp_npcid>>"]>>'': gt ''albina_chat'', ''telling_marrige_dreams'', $npc_usedname["<<$temp_npcid>>"]'
 					end
 					killvar 'temp_npcid'

locations/albina_sex_chat.qsrc

@@ -496,7 +496,7 @@ if $ARGS[0] = 'bj_fav':
 
 	end
 
-	if arrsize('$lover') > 0:
+	if stat['boyfriends_current'] > 0:
 		act 'I do it for my boyfriend':
 			cla & *nl
 			'"I like making my boyfriend feel good," you smile. "He likes it, so I like it."'
@@ -687,7 +687,7 @@ if $ARGS[0] = 'birth_control_talk':
 							gs 'albina_sex_chat', 'sex_talk'
 						end
 
-						if pcs_lover - pcs_girlfriends > 0:
+						if stat['boyfriends_current'] > 0:
 							act 'I love my boyfriend':
 								*clr & cla
 								'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/albina/albinatalk.jpg"></center>'

locations/albina_sex_scenes.qsrc

@@ -47,7 +47,7 @@ if $ARGS[0] = 'virgin_take1':
 	!! IMAGE HERE
 	'"Albina," you murmur.'
 	'"What is it?" she smiles up at you.'
-	act'Ask shyly':
+	act 'Ask shyly':
 		cla & *nl
 		'"W-will... Will you take my virginity?" you stammer shyly.'
 		'Her eyes go wide. "What?! You-" She chokes on her words. "You want me to-? Are you... sure?"'
@@ -644,7 +644,7 @@ if $ARGS[0] = 'fuck_albina_magic':
 			*clr & cla
 			'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/albina/sex/game/givevag.jpg"></center>'
 			'You slap her on the ass. "Come on, Albina! Ride it like you mean it!"'
-			'With your encouragement, she starts really riding you hard and fast, her ass slapping against your thighs as she takes the whole length inside her. She rides you for several minutes before you feel a tingling sensation in your stomach and feel a pressure building within your dick. You''re about to cum!'
+			'With your encouragement, she starts really riding you hard and fast, her ass slapping against your thighs as she takes the whole length inside her. She rides you for several minutes before you feel a tingling sensation in your stomach and a pressure building within your dick. You''re about to cum!'
 			gs 'arousal', 'magicd_vaginal', 8, 'dom'
 			gs 'stat'
 
@@ -1236,7 +1236,7 @@ if $ARGS[0] = 'lazar_start':
 	if AlbinaQW['Lazar_Sex'] = 0:
 		'"Miss <<$pcs_firstname>>, how nice to see you. Miss Albina already has a guest, shall I tell them of your arrival?"'
 		'You shake your head, knowing what Albina and her "guest" are doing upstairs. "No, it''s fine. She should be expecting me, so I''ll head up to her room if that''s okay?"'
-		'The maid just nods and continues with her duties, leaving you to head up the stairs, curious to know what "other friend" this could be as you reach the door...'
+		'The maid just nods and continues with her duties, leaving you to head up the stairs, curious to know who this "other friend" could be as you reach the door...'
 		act 'Open the door': gt 'albina_sex_scenes', 'lazar_door_first'
 	else
 		'"Miss <<$pcs_firstname>>, how nice to see you. Miss Albina already has a guest, shall I tell them of your arrival?"'
@@ -1254,13 +1254,13 @@ if $ARGS[0] = 'lazar_door_first':
 	if AlbinaQW['Lazar_Sex'] = 0:
 		AlbinaQW['Lazar_Sex'] = 1
 		*nl
-		'<b><i>"OH FUCK! JUST LIKE THAT! POUND MY FUCKING PUSSY!"</i></b>'
+		'<b><i>"OH FUCK! JUST LIKE THAT! POUND MY TIGHT LITTLE PUSSY!"</i></b>'
 		*nl
 		'You jump in surprise as Albina''s screaming voice blasts right through the closed door, clear into the hallway.'
 	else
 		*nl
 		if rand(1,3) = 1:
-			'<b><i>"OH FUCK! JUST LIKE THAT! POUND MY FUCKING PUSSY!"</i></b>'
+			'<b><i>"OH FUCK! JUST LIKE THAT! POUND MY TIGHT LITTLE PUSSY!"</i></b>'
 		elseif rand(1,2) = 1:
 			'<b><i>"YES! YES! FUCK ME WITH YOUR BIG FAT COCK!"</i></b>'
 		else

locations/albina_starlets.qsrc

@@ -443,13 +443,13 @@ if $ARGS[0] = 'after_show':
 end
 
 if $ARGS[0] = 'parkrally':
-	cla & *clr
+	*clr & cla
 	AlbinaQW['ParkRally'] = 3
 	AlbinaQW['ShowTriggerCount'] = 0
-
-	'After practice, Albina walks up to the group, furious. "My stupid father wants us to perform at his stupid rally! Using us to try and win back some of his supporters!" she huffs.'
-	'She directs you to follow her, saying her father had someone drop off special outfits for you to wear. As you walk into the changing room, a box sits on the bench.'
-	'Albina pulls a lycra leotard out and her fist clenches around it as she sees how skimpy it is, but resigns herself and hands them out to the reluctant girls.'
+	
+	'After practice, Albina walks up to the group, furious. "My father wants us to perform at his stupid rally!" she huffs.'
+	'She directs you to follow her, saying someone dropped off special outfits for you to wear. As you walk into the changing room, a box sits on the bench.'
+	'Albina reads a note before she pulls a lycra leotard out. Her fist clenches around it as she sees how skimpy it is, but resigns herself and hands them out to the reluctant girls.'
 	*nl
 	'You undress and slide the outfit on.'
 	if tits = 4:
@@ -459,9 +459,10 @@ if $ARGS[0] = 'parkrally':
 	else
 		'It''s skin tight and your nipples poke through the thin fabric as you adjust the straps. The back isn''t much better...'
 	end
+	'You might as well be wearing a thong for all it covers. You have to constantly adjust the strip of fabric covering your crotch to make it comfortable as you can.'
 	*nl
-	'Albina walks up behind you and pulls your leotard from between your ass with her fingers. "We might as well dance in thongs for all these are covering!"'
-	'You jump slightly as she lets go and the fabric snaps back into place. "Let''s just get this over with. A car is waiting for us outside."'
+	'You look over and see Albina scowling as she inspects herself in the mirror, her leotard somehow looking even skimpier than yours and leaving little to the imagination; the outline of her perky breasts and nipples can clearly be seen and the near lack of rear coverage all but draws your attention to her jiggling bubble butt.'
+	'"She fumes as she approaches you and the other girls. "Let''s just get this over with. A car is waiting for us outside."'
 
 	act 'Do the show':
 		*clr & cla
@@ -472,11 +473,11 @@ if $ARGS[0] = 'parkrally':
 		dynamic $showerdin
 		gs 'stat'
 		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/park/event/meeting/meeting3.jpg"></center>'
-		'You arrive at the park and gather behind the stage as Albina''s father gives an awkward speech to what is left of his supporters. He clears his throat and calls you up onto the stage as music starts playing. You reluctantly walk out onto the stage with the other girls, the crowd reacting to your skimpy clothing. Some men whistle and holler and others avert their gaze while the women watch in disgust and whisper among themselves. '
-		'You and the girls start your routine, but the crowd''s reactions at your outfits makes you all feel very uncomfortable and you see Albina glaring at her father a few times. You finally finish the awkward performance and Albina motions for you all to return to the car as her father makes desperate pleas to the diminishing crowd.'
-		'You return to the community center locker room, where Albina practically rips her leotard off and storms off into the showers. You remove your own outfit and go for a shower yourself. '
+		'You arrive at the park and gather behind the stage as Albina''s father gives an awkward speech to what is left of his supporters. He clears his throat and calls you up onto the stage as music starts playing. You reluctantly walk out onto the stage with the other girls, the crowd reacting to your skimpy clothing. Some men whistle and holler and others avert their gaze while the women watch in disgust and whisper among themselves.'
+		'You and the girls start your routine, but the crowd''s reactions at your outfits makes you all feel very uncomfortable and you see Albina glaring at someone in the crowd a few times. You finally finish the awkward performance and Albina motions for you all to return to the car as her father makes desperate pleas to the diminishing crowd.'
+		'You return to the community center locker room, where Albina literally rips her leotard off and storms off naked into the showers. You remove your own outfit and go for a shower yourself. '
 		if deodorant_on = 1: gs 'sweat', 'remove_deo' & '<br>Your deodorant gets washed away in the shower.'
-		act 'Leave': gt 'pav_park', 'start'
+		act 'Leave': gt 'gdksport', 'start'
 	end
 end
 

locations/albinahome.qsrc

@@ -100,8 +100,8 @@ if $ARGS[0] = 'downstairs_bathroom':
 	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/albinahome/bathroom.jpg"></center>'
 	'The bathroom is just as well appointed as the rest of the house, with polished marble used throughout its furnishings.'
 	*nl
-	'There is a shower, toilet, sink, <a href="exec:gt ''mirror'',''start''">mirror</a>, where you can ' + iif(pcs_hairbsh < 1,'<a href="exec:gt ''mirror'',''brush''">brush</a>','brush') + ' your hair, and even a separate bath tub.'
-	act 'Return to the hallway':gt 'albinahome', 'hallway'
+	'There is a shower, toilet, sink, <a href="exec:gt ''mirror'',''start''">mirror</a>, where you can ' + iif(pcs_hairbsh < 1,'<a href="exec:gt ''mirror'',''brush''">brush</a>','brush') + ' your hair, and even a separate bathtub.'
+	act 'Return to the hallway': gt 'albinahome', 'hallway'
 	dynamic $tampon
 	dynamic $quickwash
 	dynamic $basin
@@ -123,7 +123,7 @@ if $ARGS[0] = 'downstairs_bathroom':
 end
 
 if $ARGS[0] = 'bedroom_event_random':
-	!!temp = iif((month < 9) and (month > 5) and (week = 3 or week = 6), rand(1, 12), rand(1,10)) 
+	!!temp = iif((month < 9) and (month > 5) and (week = 3 or week = 6), rand(1,12), rand(1,10)) 
 	if rand(1,6) = 1:
 		!! Lazar Sex Event
 		gt 'albina_sex_scenes', 'lazar_start'
@@ -197,10 +197,14 @@ if $ARGS[0] = 'albina_bathroom':
 	gs 'stat'
 	gs 'themes', 'indoors'
 	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/albinahome/bathroom.jpg"></center>'
-	'Albina''s bathroom.'
+	'Much like the other bathrooms in the house, Albina''s en-suite is extravagantly decorated with polished marble and glossy tiles.'
 	*nl
-	'There is a shower, toilet, sink, <a href="exec:gt ''mirror'',''start''">mirror</a>, where you can ' + iif(pcs_hairbsh < 1,'<a href="exec:gt ''mirror'',''brush''">brush</a>','brush') + ' your hair, and even a separate bath tub.'
-	!! add a dildo?
+	'There is a large shower, toilet, sink, <a href="exec:gt ''mirror'',''start''">mirror</a>, where you can ' + iif(pcs_hairbsh < 1,'<a href="exec:gt ''mirror'',''brush''">brush</a>','brush') + ' your hair, and a huge marble bathtub that looks big enough to fit two people.'
+	if rand (0,2) = 0: 
+		'As you glance around the room, you notice the suction dildo stuck to the edge of the bathtub. Albina could have absent-mindedly left it here by mistake, but knowing your friend, it''s also likely that she done it deliberately.'
+		!!act 'Inspect it': gt 'albina_sex_scenes', 'bath_dildo'
+		act 'Leave it alone': gt 'albina_chat', 'chat_exit'
+	end
 	act 'Return to Albina''s room': gt 'albina_chat', 'chat_exit'
 	dynamic $tampon
 	dynamic $quickwash
@@ -271,7 +275,7 @@ if $ARGS[0] = 'pool_side':
 	else
 		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/albinahome/pool_winter.jpg"></center>'
 	end
-	'Albina''s pool.'
+	'The small pool takes up most of the space in the center of the backyard, with a seperate hot tub built next to it. Multiple loungers and deck chairs line the edge of the pool.'
 	act 'Back to the hall': gt 'albinahome', 'hallway'
 	act 'Go to Albina''s bedroom': gt 'albinahome', 'bedroom'
 !!	act 'Go to Zoya''s bedroom': gt 'albinahome', 'zoya_room'
@@ -315,7 +319,7 @@ if $ARGS[0] = 'stripping':
 	AlbinaQW['SportDay'] = daystart
 	npc_rel['A23'] += 1
 	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/albinahome/stripdance.jpg"></center>'
-	if pcs_inhib < 60:inhib_exp += rand(2,3)
+	if pcs_inhib < 60: inhib_exp += rand(2,3)
 
 	if pcs_danc >= 40:
 		gs 'exercise', 'tier2', 120, 'agil', 'dancero'
@@ -323,7 +327,7 @@ if $ARGS[0] = 'stripping':
 		'"Okay, we need some space. Follow me."'
 		'She leads you down to the home gym, where she teaches you how to passionately dance to the music while stripping.'
 
-		if pcs_dancero >= 100:'You don''t learn anything new since you already know everything she can teach you.'
+		if pcs_dancero >= 100: 'You don''t learn anything new since you already know everything she can teach you.'
 	else
 		gs 'exercise', 'tier3', 120, 'agil', 'danc'
 		gs 'stat'
@@ -338,7 +342,7 @@ if $ARGS[0] = 'poledancing':
 	AlbinaQW['SportDay'] = daystart
 	npc_rel['A23'] += 1
 	if pcs_stren >= 40 and pcs_dancero > 50:
-		if pcs_inhib < 60:inhib_exp += rand(2,3)
+		if pcs_inhib < 60: inhib_exp += rand(2,3)
 		gs 'exercise', 'tier2', 120, 'stren', 'vital', 'dancpol'
 		gs 'stat'
 		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/albinahome/poledance.jpg"></center>'
@@ -363,7 +367,7 @@ if $ARGS[0] = 'poledancing':
 	else
 		gs 'stat'
 		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/albinahome/stripdance.jpg"></center>'
-		if pcs_inhib < 60:inhib_exp += rand(2,3)
+		if pcs_inhib < 60: inhib_exp += rand(2,3)
 		'Albina grins. "You still can''t strip well enough for pole dancing. We should practice that first."'
 		if pcs_danc >= 40:
 			gs 'exercise', 'tier2', 120, 'agil', 'dancero'

locations/andreihunter.qsrc

@@ -3,7 +3,7 @@
 
 menu_off = 1
 gs 'boystat', 'A172'
-harakBoy = 2
+npc_rough[$boy] = 1
 boyage = npc_dob[$boy]
 boyage = (boyage - boyage mod 10000) / 10000
 boyage = year - boyage

locations/anushka.qsrc

@@ -568,7 +568,7 @@ if $ARGS[0] = 'chatwhilewaiting':
 				'"It''s fine. I''m just yanking your chain. I like things just as how they are too."'
 				act 'Talk about something else': gt 'anushka', 'chatwhilewaiting'
 			end
-			if Rex_Love = 1 or artemQW['bf'] = 1 or kotovLoveQW = 1 or fedorKozlovQW or NikoVolkovQW >= 5 or pcs_lover > pcs_girlfriends:
+			if Rex_Love = 1 or artemQW['bf'] = 1 or kotovLoveQW = 1 or fedorKozlovQW or NikoVolkovQW >= 5 or arrpos('$pcs_rel_type', 'boyfriend') >= 0:
 				act 'I have a boyfriend':
 					*clr & cla
 					'<center><b><font color="maroon">Classroom</font></b></center>'
@@ -717,9 +717,9 @@ if $ARGS[0] = 'chatwhilewaiting':
 					end
 					i = 0
 					:lover_looop
-					if i < arrsize('lover'):
+					if i < arrsize('$lover'):
 						$temp_npcid = $lover[i]
-						if npc_gender[$temp_npcid] ! 1:
+						if $npc_rel_type[$temp_npcid] = 'boyfriend':
 							dynamic 'act ''<<$npc_usedname["<<$temp_npcid>>"]>>'': gt ''anushka'', ''tell_about_generic_boyfreind'', $npc_usedname["<<$temp_npcid>>"]'
 						end
 						killvar '$temp_npcid'
@@ -791,9 +791,9 @@ if $ARGS[0] = 'chatwhilewaiting':
 				if NikoVolkovQW >= 5:	act 'Get married to Niko': gt 'anushka', 'telling_marrige_dreams', 'Niko'
 				i = 0
 				:marrid_looop
-				if i < arrsize('lover'):
+				if i < arrsize('$lover'):
 					$temp_npcid = $lover[i]
-					if npc_gender[$temp_npcid] ! 1:
+					if $npc_rel_type[$temp_npcid] = 'boyfriend':
 						dynamic 'act ''Get married to <<$npc_usedname["<<$temp_npcid>>"]>>'': gt ''anushka'', ''telling_marrige_dreams'', $npc_usedname["<<$temp_npcid>>"]'
 					end
 					killvar '$temp_npcid'

locations/anushkachat.qsrc

@@ -310,7 +310,7 @@ if $ARGS[0] = 'chat':
 			act 'Stop talking': gt 'anush_bedroom','anushroom'
 			act 'Keep talking': gt 'anushkachat', 'chat'
 		end
-		if Rex_Love = 1 or artemQW['bf'] = 1 or kotovLoveQW = 1 or fedorKozlovQW or NikoVolkovQW >= 5 or (pcs_lover - pcs_girlfriends) > 0:
+		if Rex_Love = 1 or artemQW['bf'] = 1 or kotovLoveQW = 1 or fedorKozlovQW or NikoVolkovQW >= 5 or stat['boyfriends_current'] > 0:
 			if Rex_Love = 1:	act 'Get married to Rex': gt 'anushkachat', 'telling_marrige_dreams', 'Rex'
 			if artemQW['bf'] = 1: act 'Get married to Artem': gt 'anushkachat', 'telling_marrige_dreams', 'Artem'
 			if kotovLoveQW = 1: act 'Get married to Vitek': gt 'anushkachat', 'telling_marrige_dreams', 'Vitek'
@@ -318,9 +318,9 @@ if $ARGS[0] = 'chat':
 			if NikoVolkovQW >= 5:	act 'Get married to Niko': gt 'anushkachat', 'telling_marrige_dreams', 'Niko'
 			i = 0
 			:marrid_looop
-			if i < arrsize('lover'):
+			if i < arrsize('$lover'):
 				$temp_npcid = $lover[i]
-				if npc_gender[$temp_npcid] ! 1:
+				if $npc_rel_type[$temp_npcid] = 'boyfriend':
 					dynamic 'act ''Get married to <<$npc_usedname["<<$temp_npcid>>"]>>'': gt ''anushkachat'', ''telling_marrige_dreams'', $npc_usedname["<<$temp_npcid>>"]'
 				end
 				killvar '$temp_npcid'
@@ -374,7 +374,7 @@ if $ARGS[0] = 'chat':
 			act 'Stop talking': gt 'anush_bedroom','anushroom'
 			act 'Keep talking': gt 'anushkachat', 'chat'
 		end
-		if Rex_Love = 1 or artemQW['bf'] = 1 or kotovLoveQW = 1 or fedorKozlovQW or NikoVolkovQW >= 5 or (pcs_lover - pcs_girlfriends) > 0:
+		if Rex_Love = 1 or artemQW['bf'] = 1 or kotovLoveQW = 1 or fedorKozlovQW or NikoVolkovQW >= 5 or stat['boyfriends_current'] > 0:
 			act 'I have a boyfriend': gt 'anushkachat', 'boyfriend_chat'
 		end
 	end
@@ -843,10 +843,10 @@ if $ARGS[0] = 'boyfriend_chat':
 	end
 	i = 0
 	:lover_looop
-	if i < arrsize('lover'):
+	if i < arrsize('$lover'):
 		$temp_npcid = $lover[i]
-		if npc_gender[$temp_npcid] ! 1:
-			dynamic 'act ''<<$npc_usedname["<<$temp_npcid>>"]>>'': gt ''anushkachat'', ''tell_about_generic_boyfreind'', $npc_usedname["<<$temp_npcid>>"]'
+		if $npc_rel_type[$temp_npcid] = 'boyfriend':
+			dynamic 'act ''<<$npc_usedname["<<$temp_npcid>>"]>>'': gt ''anushkachat'', ''tell_about_generic_boyfriend'', $npc_usedname["<<$temp_npcid>>"]'
 		end
 		killvar '$temp_npcid'
 		i += 1
@@ -855,7 +855,7 @@ if $ARGS[0] = 'boyfriend_chat':
 	killvar 'i'
 end
 
-if $ARGS[0] = 'tell_about_generic_boyfreind':
+if $ARGS[0] = 'tell_about_generic_boyfriend':
 	*clr & cla
 	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/anushka/bedroom/bedroomtalk.jpg"></center>'
 	'"I have a boyfriend you know," you tell her.'

locations/anushkachat_city.qsrc

@@ -350,7 +350,7 @@ if $ARGS[0] = 'chat':
 			act 'Stop talking': gt 'anush_bedroom_city','anushroom'
 			act 'Keep talking': gt 'anushkachat_city', 'chat'
 		end
-		if artemQW['bf'] = 1 or fedorKozlovQW or NikoVolkovQW >= 5 or (pcs_lover - pcs_girlfriends) > 0:
+		if artemQW['bf'] = 1 or fedorKozlovQW or NikoVolkovQW >= 5 or stat['boyfriends_current'] > 0:
 			act 'I have a boyfriend': gt 'anushkachat_city', 'boyfriend_chat'
 		end
 	end
@@ -769,10 +769,10 @@ if $ARGS[0] = 'boyfriend_chat':
 	end
 	i = 0
 	:lover_looop
-	if i < arrsize('lover'):
+	if i < arrsize('$lover'):
 		$temp_npcid = $lover[i]
-		if npc_gender[$temp_npcid] ! 1:
-			dynamic 'act ''<<$npc_usedname["<<$temp_npcid>>"]>>'': gt ''anushkachat_city'', ''tell_about_generic_boyfreind'', $npc_usedname["<<$temp_npcid>>"]'
+		if $npc_rel_type[$temp_npcid] = 'boyfriend':
+			dynamic 'act ''<<$npc_usedname["<<$temp_npcid>>"]>>'': gt ''anushkachat_city'', ''tell_about_generic_boyfriend'', $npc_usedname["<<$temp_npcid>>"]'
 		end
 		killvar '$temp_npcid'
 		i += 1
@@ -781,7 +781,7 @@ if $ARGS[0] = 'boyfriend_chat':
 	killvar 'i'
 end
 
-if $ARGS[0] = 'tell_about_generic_boyfreind':
+if $ARGS[0] = 'tell_about_generic_boyfriend':
 	*clr & cla
 	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/anushka/bedroom/bedroomtalk.jpg"></center>'
 	'"I have a boyfriend you know," you tell her.'

locations/bank.qsrc

@@ -355,18 +355,19 @@ end
 
 
 if $ARGS[0] = 'deposit_cash':
-	kartaIN = input ("How much money do you want to deposit into your account?")
+	kartaIN = input ("How much money do you want to deposit into your account? (There''s a 100 <b>₽</b> fee)")
 
-	if kartaIN <= 0 or kartaIN > money:
+	if kartaIN <= 100 or kartaIN > money:
 		'Invalid operation.'
 	else
-		atmDeposit[] += kartaINATM - 100
+		atmDeposit[] = kartaIN - 100
 		atmDepositDate[] = daystart + 2
-		money -= kartaINATM
+		money -= kartaIN
 
-		'<br>You deposit <<kartaINATM>> <b>₽</b> into your account.'
+		'<br>After the fee, you deposit <<atmDeposit[]>> <b>₽</b> into your account.'
 		'It will take 2 days for funds to be available. Your new balance will be <<karta - bankDebtLimit + atmDeposit[]>> <b>₽</b>.'
 	end
+	killvar 'kartaIN'
 end
 
 
@@ -536,15 +537,20 @@ if $ARGS[0] = 'cikl':
 			'<b><font color="green">Your salary of <<pay>> <b>₽</b> has been paid into your bank account for your job at the garment factory.</font></b>'
 		end
 
-		if husband > 0 and paydayHusb = 0:
+		if $husID ! '' and paydayHusb = 0:
 			paydayHusb = 1
 
-			if husbFin = 0:huspay = 20000
-			if husbFin = 1:huspay = 30000
-			if husbFin = 2:huspay = 40000
+			if npc_finance[$husID] = 0:
+				huspay = 20000
+			elseif npc_finance[$husID] = 1:
+				huspay = 30000
+			else
+				huspay = 40000
+			end
 
 			karta += huspay
 			'<b><font color="green">Your husband has paid <<huspay>> <b>₽</b> into your bank account.</font></b>'
+			killvar 'huspay'
 		end
 
 		if func('uniutil', 'scholarship' , 'is_active') and scholarshipday = 0:

locations/bdsm_dressing.qsrc

@@ -27,7 +27,7 @@ if ($clothingworntype = 'gm_maid' or PCloStyle2 = 1) or PCloStyle3 = 2 or $cloth
 		gt 'bdsm_hallway', 'foyer'
 	end
 end
-if PCloQuality >= 5 and bdsmclub['payday'] + 30 > daystart and bdsmclub['domtraining'] = 2:
+if PCloQuality >= 5 and bdsmclub['payday'] + 30 > daystart and bdsmclub['domtraining'] = 1:
 	act 'Enter the club''s foyer (dominant role)':
 		$bdsmclub['role'] = 'dom'
 		gt 'bdsm_hallway', 'foyer'

locations/bed_events.qsrc

@@ -24,7 +24,7 @@ if $ARGS[0] = 'start' or $ARGS[0] = '':
 		if (hour > 22 or hour < 3) and rand(0, 50) = 0 and houserab = 1 and houserabday ! daystart and pcs_sleep < 50 and $loc = 'nichBedroomServant':
 			$sleep_events[] = 'gs ''bed_events'', ''rab'' '
 		end
-		if (hour > 22 or hour < 3) and rand(0, 200) = 0 and strpos('bedr,bedr2x,korr,korr2x',$loc) > 0 and husband = 0:
+		if (hour > 22 or hour < 3) and rand(0, 200) = 0 and strpos('bedr,bedr2x,korr,korr2x', $loc) > 0 and $husID = '':
 			$sleep_events[] = 'gs ''bed_events'', ''vor'' '
 		end
 
@@ -360,7 +360,7 @@ if $ARGS[0] = 'mast':
 	pcs_mood += 15
 	pcs_vag += 1
 
-	if husband = 0 or strpos('bedr,bedr2x,korr,korr2x',$loc) <= 0 or husbandrink = 10:
+	if $husID = '' or strpos('bedr,bedr2x,korr,korr2x', $loc) <= 0 or spouseVars['drink'] = 10:
 		gs 'bed_events', 'exit'
 		gt 'selfplay', 'start'
 	else
@@ -387,18 +387,23 @@ if $ARGS[0] = 'mast':
 			else
 				'<center><img <<$set_imgh>> src="images/characters/city/husband/sex/m21.jpg"></center>'
 				'You bend over and start fucking your pussy with your dildo.'
+				gs 'boyStat', $husID
 				gs 'arousal', 'vaginal_dildo', 15
 				gs 'stat'
 
-				if hour > 22 or hour < 7:'<<$husName>> looks at you, a little dumbfounded.'
-				if hour >= 7 and hour <= 22:'Once you get into it, <<$husName>> enters the room.'
-				if harakHusb = 0:
+				if hour > 22 or hour < 7:
+					'<<$boydesc>> looks at you, a little dumbfounded.'
+				else
+					'Once you get into it, <<$boydesc>> enters the room.'
+				end
+				if npc_gentle[$boy] = 1:
 					'"What are you doing?" he asks.'
 					'"I''m sorry dear, but I really need it, and you''ve been busy," you reply without stopping.'
 					'"How often do you do this?" he asks.'
 					'"Quite often, sometimes in my ass. you want to see?" you ask.'
-					if izvratH = 0:
-						husband -= 1
+
+					if npc_pervert[$boy] = 0:
+						npc_rel[$boy] -= 1
 						'"I''ll wait outside the door until you''re done," he says and leaves. You continue to satisfy yourself rapidly, and soon finish.'
 						$orgasm_or = 'yes'
 						gs 'arousal', 'clit_finger', 5, 'masturbate'
@@ -407,14 +412,14 @@ if $ARGS[0] = 'mast':
 
 						act 'Finish': gs 'bed_events', 'event_end'
 
-					elseif izvratH = 1:
+					else
 						'"Oh. I don''t know..." he stammers.'
 						'"Come on," you encourage him.'
 
 						act 'Show him':
 							*clr & cla
 							'<center><img <<$set_imgh>> src="images/characters/city/husband/sex/m22.jpg"></center>'
-							'You pull the dildo out of your pussy and, winking at your husband, insert it into your ass. <<$husName>> watches closely as the dildo disappears into your ass.'
+							'You pull the dildo out of your pussy and, winking at your husband, insert it into your ass. <<$boydesc>> watches closely as the dildo disappears into your ass.'
 							'You see how his pants swell. "Anything else you want, dear?" you ask while smiling.'
 							'"Can I join?" he asks, a little embarrassed.'
 							gs 'arousal', 'anal_dildo', 5, 'masturbate'
@@ -423,9 +428,9 @@ if $ARGS[0] = 'mast':
 							act 'Invite':
 								*clr & cla
 								'<center><img <<$set_imgh>> src="images/characters/city/husband/sex/m23.jpg"></center>'
-								'<<$husName>> gets his dick out and starts masturbating. It''s not what you expected and you feel a little sad that he isn''t fucking you as you start to masturbate.'
+								'<<$boydesc>> gets his dick out and starts masturbating. It''s not what you expected and you feel a little sad that he isn''t fucking you as you start to masturbate.'
 								'You watch your husband masturbate as he watches you, his face covered in pleasure, before you scream and fall on the table, having experienced an orgasm.'
-								'<<$husName>> is still masturbating, looking at you stretched out on the table before you take the dildo out of your ass and start lick it while looking into his eyes.'
+								'<<$boydesc>> is still masturbating, looking at you stretched out on the table before you take the dildo out of your ass and start lick it while looking into his eyes.'
 								'The spectacle has him immediately cum all over the floor before you walk over to him and kiss him on the lips. He passionately kisses you back.'
 								gs 'arousal', 'anal_dildo', 5, 'masturbate'
 								$orgasm_or = 'custom'
@@ -437,34 +442,34 @@ if $ARGS[0] = 'mast':
 						end
 					end
 
-				elseif harakHusb = 1:
+				elseif npc_rough[$boy] = 0:
 					'"Are you trying to tell me that I''m not enough to satisfy you?" He asks.'
 					'"I''m sorry dear, but I really need this, and you''ve been busy," you reply without stopping.'
 					'"Well then, show me everything now that you know I''ll watch," he says.'
 					'"Want to see me do it in the ass too?" you offer.'
 
-					if izvratH = 0:
-						husband += 1
-						husbizvradd += 1
+					if npc_pervert[$boy] = 0:
+						npc_rel[$boy] += 1
+						spouseVars['pervert_add'] += 1
 						'"No, I think this is enough," he says as he sits on a chair and starts watching you. You continue to satisfy yourself rapidly and soon finish in front of him.'
 						$orgasm_or = 'yes'
 						gs 'arousal', 'clit_finger', 5, 'masturbate'
 						gs 'arousal', 'end'
 						gs 'stat'
-						'<<$husName>> stands up and playfully claps. "Bravo! Encore?" he laughs.'
-						'"Anything for such a lovely audience, but first an intermission," you laugh and <<$husName>> helps you down from the table.'
+						'<<$boydesc>> stands up and playfully claps. "Bravo! Encore?" he laughs.'
+						'"Anything for such a lovely audience, but first an intermission," you laugh and <<$boydesc>> helps you down from the table.'
 
 						act 'Finish': gs 'bed_events', 'event_end'
 
-					elseif izvratH = 1:
-						husband += 1
+					else
+						npc_rel[$boy] += 1
 						'"Well then, I think you better show me," he says.'
 						'"As you wish," you reply.'
 
 						act 'Show':
 							*clr & cla
 							'<center><img <<$set_imgh>> src="images/characters/city/husband/sex/m22.jpg"></center>'
-							'You pull the dildo out of your pussy and, winking at your husband, insert it into your ass. <<$husName>> watches closely as you slide the dildo in and out of your ass.'
+							'You pull the dildo out of your pussy and, winking at your husband, insert it into your ass. <<$boydesc>> watches closely as you slide the dildo in and out of your ass.'
 							'You see how his pants swell. "Anything else you want, dear?" you ask while smiling.'
 							'"I don''t just want something, I''ll do something!" he replies, unbuttoning his pants and brings his cock to your mouth.'
 							gs 'arousal', 'anal_dildo', 5
@@ -474,7 +479,7 @@ if $ARGS[0] = 'mast':
 								*clr & cla
 								'<center><img <<$set_imgh>> src="images/characters/city/husband/sex/m24.jpg"></center>'
 								'You take his flaccid penis in your mouth and start sucking while continuing to drive the dildo into your ass.'
-								'When his cock has finally hardened, <<$husName>> stops you. "Now I''ll take this hole."'
+								'When his cock has finally hardened, <<$boydesc>> stops you. "Now I''ll take this hole."'
 								gs 'arousal', 'clit_finger', 5
 								gs 'arousal', 'bj', -5
 								gs 'stat'
@@ -486,49 +491,48 @@ if $ARGS[0] = 'mast':
 								end
 							end
 						end
+					end
+				else
+					'"Itchy hole?" he asks.'
+					'"I''m sorry dear, but I really need it, and you''ve been busy," you reply without stopping.'
+
+					if npc_pervert[$boy] = 0:
+						npc_rel[$boy] += 1
+						spouseVars['pervert_add'] += 1
+						'"You should have said something. Now open your mouth," he says while pulling out his cock and forcefully pushing it into your mouth.'
+						'He holds you by the hair and fucks your mouth, telling you not to stop masturbating before he tires of your mouth. "Enough of this rubber shit! I''m going to fuck you."'
+						gs 'arousal', 'vaginal_dildo', 10
+						gs 'arousal', 'bj', -10
+						gs 'stat'
+
+						act 'Spread your legs ':
+							picrand = 89
+							gs 'bed_events', 'exit'
+							gt 'sex', 'vag'
+						end
 
 					else
-						'"Itchy hole?" he asks.'
-						'"I''m sorry dear, but I really need it, and you''ve been busy," you reply without stopping.'
-
-						if izvratH = 0:
-							husband += 1
-							husbizvradd += 1
-							'"You should have said something. Now open your mouth," he says while pulling out his cock and forcefully pushing it into your mouth.'
-							'He holds you by the hair and fucks your mouth, telling you not to stop masturbating before he tires of your mouth. "Enough of this rubber shit! I''m going to fuck you."'
-							gs 'arousal', 'vaginal_dildo', 10
+						npc_rel[$boy] += 1
+						'"You''re going to insert this stupid toy into your pussy, ass and mouth. You''ll pulverize them for as long as I like," he says while sitting down to watch.'
+						'You quickly and submissively do as you''re told.'
+						gs 'arousal', 'vaginal_dildo', 5
+						gs 'arousal', 'anal_dildo', -5
+						gs 'stat'
+
+						act 'Offer your mouth':
+							*clr & cla
+							'<center><img <<$set_imgh>> src="images/characters/city/husband/sex/m24.jpg"></center>'
+							'Still using the dildo on your pussy and ass, you offer <<$boydesc>> your mouth. He gets up and walks over to you.'
+							'You take his flaccid penis and start sucking until his cock is finally hard and he stops you. "Now I''ll fuck your ass."'
+							gs 'arousal', 'vaginal_dildo', 5
+							gs 'arousal', 'anal_dildo', 5
 							gs 'arousal', 'bj', -10
 							gs 'stat'
 
-							act 'Spread your legs ':
+							act 'Offer your ass':
 								picrand = 89
 								gs 'bed_events', 'exit'
-								gt 'sex', 'vag'
-							end
-
-						else
-							husband += 1
-							'"You''re going to insert this stupid toy into your pussy, ass and mouth. You''ll pulverize them for as long as I like," he says while sitting down to watch.'
-							'You quickly and submissively do as you''re told.'
-							gs 'arousal', 'vaginal_dildo', 5
-							gs 'arousal', 'anal_dildo', -5
-							gs 'stat'
-
-							act 'Offer your mouth':
-								*clr & cla
-								'<center><img <<$set_imgh>> src="images/characters/city/husband/sex/m24.jpg"></center>'
-								'Still using the dildo on your pussy and ass, you offer <<$husName>> your mouth. He gets up and walks over to you.'
-								'You take his flaccid penis and start sucking until his cock is finally hard and he stops you. "Now I''ll fuck your ass."'
-								gs 'arousal', 'vaginal_dildo', 5
-								gs 'arousal', 'anal_dildo', 5
-								gs 'arousal', 'bj', -10
-								gs 'stat'
-
-								act 'Offer your ass':
-									picrand = 89
-									gs 'bed_events', 'exit'
-									gt 'sex', 'anal'
-								end
+								gt 'sex', 'anal'
 							end
 						end
 					end

locations/bedr.qsrc

@@ -35,148 +35,7 @@ if $ml_guitar['location'] = $loc: 'Your guitar rests on its stand next to your b
 *nl
 act 'Go to the corridor': gt 'korr'
 
-if husbandrinkday = daystart:
-	if husbanstrapon = 1:'Your drunken husband sleeps on the bed with a butt plug up his ass.'
-	if husbanstrapon = 2:'Your drunken husband sleeps on the bed after you put a dildo up his ass.'
-	if husbanstrapon = 3:'Your drunken husband sleeps on the bed after you fucked him with a strap-on.'
-	gs 'music_actions', 'no_music'
-end
-if husband > 0 and husbandrink ! 10 and husbandrinkday ! daystart:
-	if hour > 22 or hour < 7:'Your <a href="exec:gt ''husb'', ''start''">husband</a> is sleeping on the bed.'
-	gs 'music_actions', 'no_music'
-end
-
-if husbandrink = 11 and husbanstrapon > 0 and husbandrinkday ! daystart:
-	cla
-	'Your husband approaches you. "Honey, my ass hurts. Like a lot. Do you know why?"'
-
-	act 'Lie':
-		cla
-		menu_off = 1
-		husbanstrapon = 0
-		'"No dear, I don''t know anything about that," you answer, trying to look as innocent as possible before he shrugs and walks away.'
-
-		act 'Finish': gt 'bedr'
-	end
-
-	act 'Confess':
-		cla
-		menu_off = 1
-
-		if husbanstrapon = 1:'"Honey, you were so drunk last night that I decided to teach you a lesson and put a butt plug up your ass."'
-		if husbanstrapon = 2:'"I wanted to make you happy, so I started to give you a blowjob, but you didn''t cum, so I inserted a finger into your asshole. When you still didn''t cum, I took a small dildo and some lube and put in it your ass; I''ve never seen you cum like that before. I even gave you a second blowjob. Forgive me, but you seemed to enjoy it so much that I could''t stop. I just wanted to make you happy," you lie to him.'
-		if husbanstrapon = 3:'"I wanted to make you happy, so I started to give you a blowjob, but you didn''t cum, so I inserted a finger into your asshole. When you still didn''t cum, I put in a second finger you began to move your ass towards my fingers, moaning heavily. I thought that you liked it, so I put on a strap-on. You enjoyed it so much that you finished over and over again, and I continued until I was tired. I then licked all the cum off your body and went to sleep. I just wanted to make you happy and you were enjoying it," you lie to him.'
-
-		if harakHusb = 2:
-			husbizvradd = 0
-			husbharmin = 0
-			husbandMark = 0
-			husband = 0
-			divorced += 1
-			fingal += 1
-			minut += 120
-			'The next thing you feel is a powerful slap to the face. When you come back to your senses, your husband and his things are gone. He left a note telling you he''s going to file for divorce.'
-		elseif harakHusb = 1:
-			if husbanstrapon = 1:
-				'"Don''t do that again!" he snarls and storms off.'
-			elseif husbanstrapon = 2:
-				husbizvradd += 1
-				'"Don''t do that again! I''m a man and I''m not supposed to get fucked in the ass!" he snarls and storms off.'
-
-			elseif husbanstrapon = 3:
-				if pcs_intel > 40 or izvratH = 1:
-					husbharmin += 1
-					'"Are you serious?! I''m not some kind of bitch that wants to get fucked up the ass!" he yells at you. You start to cry and say that you only wanted to please him and he looks at you and sighs. "Don''t cry, sweetie. I believe you, just don''t do it again."'
-				elseif pcs_intel <= 40:
-					husbizvradd = 0
-					husbharmin = 0
-					husbandMark = 0
-					husband = 0
-					divorced += 1
-					fingal += 1
-					minut += 120
-					'The next thing you feel is a powerful slap to the face. When you come back to your senses, your husband and his things are gone. He left a note telling you he''s going to file for divorce.'
-				end
-			end
-		elseif harakHusb = 0:
-			if husbanstrapon = 1:
-				'"I''m sorry. I won''t get that drunk again," he says and leaves the room.'
-			elseif husbanstrapon = 2:
-				husbizvradd += 1
-				'"You''re so thoughtful. Instead of scolding me, you still wanted to make me happy. Thank you, dear," he says and leaves the room.'
-			elseif husbanstrapon = 3:
-				husbizvradd += 1
-				'"Did I really like it?" he asks and you nod.'
-				'"Well then, thank you dear. Ask me next time though," he says and leaves the room.'
-			end
-		end
-
-		act 'Finish':husbanstrapon = 0 & gt 'bedr'
-	end
-end
-
-if husbandrink = 10 and hour > 20 and hour < 23 and husbanstrapon = 0:
-	'<<$husName>> came home drunk and fell asleep on the bed.'
-	'<i>That pig</i>! you think when an idea springs to mind. <i>Maybe I should teach him a lesson so he won''t get drunk again</i>.'
-
-	if mc_inventory['buttplug'] = 1:
-		act 'Insert a butt plug in his ass':
-			*clr & cla
-			menu_off = 1
-			husbandrinkday = daystart
-			husbandrink = 11
-			husbanstrapon = 1
-			minut += 10
-			'<center><img <<$set_imgh>> src="images/characters/city/husband/sex/h0.jpg"></center>'
-			if analplugin = 0: 'You take an anal plug and put it into his ass.'
-			if analplugin = 1: analplugIN = 0 & analplugout = 0 & 'You pull the plug out of you and shove it up his ass.'
-
-			'<<$husName>> moves, but he doesn''t wake up.'
-
-			if mc_inventory['dildo_small'] > 0:
-				act 'Insert a dildo into his ass':
-					*clr & cla
-					menu_off = 1
-					husbanstrapon = 2
-					gs 'boyStat', $HusID
-					gs 'cum_call', 'mouth_swallow', $boy, 1
-					'<center><img <<$set_imgh>> src="images/characters/city/husband/sex/h1.jpg"></center>'
-					'You pull out the plug and replace it with a dildo. <<$husName>> doesn''t even budge as you slowly move the dildo in and out, trying not to wake him up. You notice his cock starts to get rock-hard, and he starts to moan softly in his sleep. His dick starts to throb like he''s going to cum. You take his dick in your mouth and don''t need to suck on it for long. You swallow his cum before carefully putting his underpants back on.'
-					gs 'arousal', 'bj', 20
-					gs 'arousal', 'anal_dildo_give', 20
-					minut -= 20
-					gs 'arousal', 'end'
-					gs 'stat'
-
-					act 'Finish':gt 'bedr'
-				end
-			end
-
-			if mc_inventory['strapon'] > 0:
-				act 'Use the strap-on':
-					*clr & cla
-					menu_off = 1
-					minut += 20
-					husbanstrapon = 3
-					gs 'boyStat', $HusID
-					gs 'cum_call', 'mouth_swallow', $boy, 1
-					pcs_horny += 30
-					'<center><img <<$set_imgh>> src="images/characters/city/husband/sex/h2.jpg"></center>'
-					'You put on the strapon and pull out the butt plug. You gently move the shaft of the strap-on inside his ass and <<$husName>> moves, but doesn''t wake up. You continue to slowly move it in and out, trying not to wake him. You notice his cock is getting rock-hard and he starts to moan softly in his sleep. Hoping that he won''t wake up, you increase your speed and push the entire length of the strap-on into his ass as you start to stroke his dick. Realizing he''s not far from cumming, you pull out and finish him by giving him a blowjob. He cums in your mouth and you swallow before carefully putting his underpants back on.'
-					gs 'arousal', 'bj', 20
-					gs 'arousal', 'anal_strap_give', 20
-					minut -= 20
-					gs 'arousal', 'end'
-					gs 'stat'
-
-					act 'Finish':gt 'bedr'
-				end
-			end
-
-			act 'Finish':gt 'bedr'
-		end
-	end
-end
+gs 'lover_living', 'bedr'
 
 if sick >= 1:
 	act 'Go to sleep (Sick)':

locations/bedr2x.qsrc

@@ -2,13 +2,8 @@
 
 CLOSE ALL
 *clr & cla
-$loc = 'bedr2x'
-$loc_arg = ''
-$locM = 'bedr2x'
-$locM_arg = ''
-$menu_loc = 'bedr2x'
-$menu_arg = ''
 menu_off = 0
+gs 'shortgs', 'setloc', 'bedr2x', ''
 $locclass = 'bedr'
 $location_type = 'private'
 minut += 1
@@ -34,143 +29,7 @@ if $ml_guitar['location'] = $loc: 'Your guitar rests on its stand next to your b
 act 'Go to the corridor': gt 'korr2x'
 gs 'wardrobe', 'default_clothing_options'
 
-if husbandrinkday = daystart:
-	if husbanstrapon = 1:'Your husband is still passed out drunk after you used an anal plug on him.'
-	if husbanstrapon = 2:'Your husband is still passed out drunk after you stuck a dildo in his ass.'
-	if husbanstrapon = 3:'Your husband is still passed out drunk after you fucked him in the ass with a strap-on.'
-	gs 'music_actions', 'no_music'
-end
-if husband > 0 and husbandrink ! 10 and husbandrinkday ! daystart:
-	if hour > 22 or hour < 7:
-		'Your <a href="exec: gt''husb'',''start'' ">husband</a> is sleeping on the bed.'
-		gs 'music_actions', 'no_music'
-	end
-end
-if husbandrink = 11 and husbanstrapon > 0 and husbandrinkday ! daystart:
-	cla
-	'Your husband approaches you. "Honey, my ass hurts. Did something happen yesterday?"'
-	act 'Lie':
-		cla
-		menu_off = 1
-		husbanstrapon = 0
-		'"Not that I know of, though you were in the bathroom a lot," you say with an innocent look on your face before he shrugs his shoulders and walks away.'
-		act 'Finish': gt 'bedr2x'
-	end
-	act 'Confess':
-		cla
-		menu_off = 1
-		if husbanstrapon = 1:'"You got so drunk yesterday that I decided to teach you a lesson and put a plug in your ass."'
-		if husbanstrapon = 2:'"I wanted to give you a pleasant surprise and started to give you a blowjob, but you wouldn''t cum no matter how much I tried, so I put a finger in your ass, but again you failed to cum. That''s when I put the dildo in your ass and you shot your load. Forgive me, but I just wanted to get you off."'
-		if husbanstrapon = 3:'"I wanted to give you a pleasant surprise and started to give you a blowjob, but you wouldn''t cum no matter how much I tried, so I put a finger in your ass, but again you failed to cum. That''s when I put in a second finger and you started moving your ass up and down, fucking my fingers as you moaned in pleasure. Since you seemed to be liking it so much and asked for more, I put on my strap-on and fucked you with it while I was jerking you off. I just wanted you to be happy, even if you don''t remember. Please forgive me!"'
-		if harakHusb = 2:
-			husbizvradd = 0
-			husbharmin = 0
-			husbandMark = 0
-			husband = 0
-			divorced += 1
-			fingal += 1
-			minut += 120
-
-			'The next thing you feel is a powerful slap to the face. When you come back to your senses, your husband and his things are gone. He left a note telling you he''s going to file for divorce.'
-		elseif harakHusb = 1:
-			if husbanstrapon = 1:
-				'"Just don''t do that anymore," is all he says before leaving the room.'
-			elseif husbanstrapon = 2:
-				husbizvradd += 1
-				'"Don''t ever do that again. I''m a man and <i>I</i> do the fucking!" he says before leaving the room.'
-			elseif husbanstrapon = 3:
-				if pcs_intel > 40 or izvratH = 1:
-					husbharmin += 1
-					'"Are you really trying to tell me that I asked you to fuck me with a strap-on, bitch?" he bellows. When you start crying and lamenting that you only wanted to please him, he looks at you and exhales. "Fine, fine, I believe you. I believe you wanted to pleasure me and make me happy, but never do that again."'
-				elseif pcs_intel <= 40:
-					husbizvradd = 0
-					husbharmin = 0
-					husbandMark = 0
-					husband = 0
-					divorced += 1
-					fingal += 1
-					minut += 120
-
-					'The next thing you feel is a powerful slap to the face. When you come back to your senses, your husband and his things are gone. He left a note telling you he''s going to file for divorce.'
-				end
-			end
-		elseif harakHusb = 0:
-			if husbanstrapon = 1:
-				'"I''m sorry. I won''t get that drunk again," he says before leaving the room.'
-			elseif husbanstrapon = 2:
-				husbizvradd += 1
-				'"You''re such a caring woman. Instead of scolding me for being drunk, you suck me off. Thank you, dear," he says before leaving the room.'
-			elseif husbanstrapon = 3:
-				husbizvradd += 1
-				'"I really liked it?" he asks and you nod. "Well then, thank you dear, but ask for my consent next time," he says before leaving the room.'
-			end
-		end
-
-		act 'Finish':husbanstrapon = 0 & gt 'bedr2x'
-	end
-end
-
-if husbandrink = 10 and hour > 20 and hour < 23 and husbanstrapon = 0:
-	'<<$husName>> came home very drunk and collapsed on the bed. He fell asleep in his clothes.'
-	'<i>That pig</i>! you think when an idea springs to mind. <i>Maybe I should teach him a lesson so he won''t get drunk again</i>.'
-
-	if mc_inventory['buttplug'] = 1:
-		act 'Insert an anal plug':
-			*clr & cla
-			menu_off = 1
-			husbandrinkday = daystart
-			husbandrink = 11
-			husbanstrapon = 1
-			minut += 10
-			'<center><img <<$set_imgh>> src="images/characters/city/husband/sex/h0.jpg"></center>'
-			if analplugin = 0: 'You take an anal plug and put it into his ass.'
-			if analplugin = 1: analplugIN = 0 & analplugout = 0 & 'You get your butt plug out and pull down his pants. You put just a dab of lube on the tip of the plug, then gently insert it into his ass.'
-			'<<$husName>> moves, but he doesn''t wake up.'
-
-			if mc_inventory['dildo_small'] > 0:
-				act 'Insert dildo':
-					*clr & cla
-					menu_off = 1
-					husbanstrapon = 2
-					gs 'boyStat', $HusID
-					gs 'cum_call', 'mouth_swallow', $boy
-					'<center><img <<$set_imgh>> src="images/characters/city/husband/sex/h1.jpg"></center>'
-					'You pull out the plug and stick the dildo up his ass instead, <<$husName>> did not move. You began to slowly move the dildo trying not to wake him. After a bit, his dick begins to get hard in front of your face, and <<$husName>> moaned softly, but didn''t wake up. You start to really work the dildo in his ass, stroking it deep in his ass, before too long his cock started to throb. You wrap your lips around his cock, you barely even started to suck his dick when suddenly your mouth is filled with a jet of sperm, you swallow it all and carefully cleaned his penis, then you pulled his pants back up.'
-					gs 'arousal', 'bj', 20
-					gs 'arousal', 'anal_dildo_give', 20
-					minut -= 20
-					gs 'arousal', 'end'
-					gs 'stat'
-
-					act 'Finish': gt 'bedr2x'
-				end
-			end
-
-			if mc_inventory['strapon'] > 0:
-				act 'Wear strap-on':
-					*clr & cla
-					menu_off = 1
-					minut += 20
-					husbanstrapon = 3
-					gs 'boyStat', $HusID
-					gs 'cum_call', 'mouth_swallow', $boy, 1
-					pcs_horny += 30
-					'<center><img <<$set_imgh>> src="images/characters/city/husband/sex/h2.jpg"></center>'
-					'You put on the strapon and pull out the butt plug. You gently move the shaft of the strap-on inside his ass and <<$husName>> moves, but doesn''t wake up. You continue to slowly move it in and out, trying not to wake him. You notice his cock is getting rock-hard and he starts to moan softly in his sleep. Hoping that he won''t wake up, you increase your speed and push the entire length of the strap-on into his ass as you start to stroke his dick. Realizing he''s not far from cumming, you pull out and finish him by giving him a blowjob. He cums in your mouth and you swallow before carefully putting his underpants back on.'
-					gs 'arousal', 'bj', 20
-					gs 'arousal', 'anal_strap_give', 20
-					minut -= 20
-					gs 'arousal', 'end'
-					gs 'stat'
-
-					act 'Finish': gt 'bedr2x'
-				end
-			end
-
-			act 'Finish': gt 'bedr2x'
-		end
-	end
-end
+gs 'lover_living', 'bedr'
 
 if sick >= 1:
 	act 'Go to bed rest (Sick)':

locations/billsvid.qsrc

@@ -47,11 +47,11 @@ if $ARGS[0] = '':
 			else
 				gt 'billsvid', '3'
 			end
-		elseif $telsob = $loverdesc[lover_number]:
+		elseif $telsob = $npcdesc:
 			!! date with girlfriend
-			loverrelation[lover_number] += 1
+			npc_rel[$npcID] += rand(0, 1)
 
-			if loverrelation[lover_number] >= 20:
+			if npc_rel[$npcID] >= 60:
 				bilrand = rand(0, 10)
 				if bilrand > 0 and bilrand < 3:gt 'billsvid', '1'
 				if bilrand > 2 and bilrand < 5:gt 'billsvid', '2'
@@ -283,7 +283,7 @@ if $ARGS[0] = '3':
 	gs 'arousal', 'end'
 	gs 'stat'
 
-	if $telsob = $loverdesc[lover_number]:
+	if $telsob = $boydesc:
 		'When you have finished playing, <<$telsob>> looks at you and waits for your next move.'
 		act 'Say goodbye': gt 'city_mall'
 		act 'Invite her to your home': gt 'lezbsex', 'startloverhome'

locations/blackmailer.qsrc

@@ -736,7 +736,7 @@ if $ARGS[0] = 'set_SMSTree':
 						else
 							$SMSTree['a4'] = 'What do you want from me?'
 						end
-						if blackmailQQW['total_material'] <= 4:
+						if blackmailQW['total_material'] <= 4:
 							if rand(0, 1) = 0:
 								$SMSTree['b4'] = 'Where am I going to get that much money from?'
 							else
@@ -1004,7 +1004,7 @@ if $ARGS[0] = 'sms_repeat_switch5':
 		gs 'SMStext_builder', 'show_sms', ARGS[2]
 		wait 250
 		gs 'SMStext_builder', 'receive', '<i>Love, Anjuna</i>'
-		gs 'SMStext_builder', 'show_sms', ARGS[3]
+		gs 'SMStext_builder', 'show_sms', ARGS[2]
 	gs 'SMStext_builder', 'end'
 end
 

locations/booty_call.qsrc

@@ -12,43 +12,37 @@ end
 
 if $ARGS[0] = 'booty_call_scheduler':
 	temp_bc_i = 0
-	:bc_fb_sched_loop
-	if temp_bc_i < arrsize('$fuckbuddy'):
-		$temp_bc_id = $FuckBuddy[temp_bc_i]
-		gs 'telefon', 'ClearSMSSchedule', $temp_bc_id
-		gs 'booty_call', 'bc_npc_stat_update', $temp_bc_id
-!!		if (rand(1, 10) <= npc_sexdrive[$temp_bc_id] or npc_booty_call[$temp_bc_id] = daystart) and npc_rel[$temp_bc_id] > 0 and npc_no_booty_call[$temp_bc_id] ! daystart and npc_big_fight[$temp_bc_id] < daystart - 7:
+	:bc_sched_loop
+	if temp_bc_i < arrsize('$lover'):
+		$temp_bc_id = $lover[temp_bc_i]
+		if $npc_rel_type[$temp_bc_id] = 'fuckbuddy':
+			gs 'telefon', 'ClearSMSSchedule', $temp_bc_id
+			gs 'booty_call', 'bc_npc_stat_update', $temp_bc_id
+!!			if (rand(1, 10) <= npc_sexdrive[$temp_bc_id] or npc_booty_call[$temp_bc_id] = daystart) and npc_rel[$temp_bc_id] > 0 and npc_no_booty_call[$temp_bc_id] ! daystart and npc_big_fight[$temp_bc_id] < daystart - 7:
 
-!!		temporary removal of npc_rel requirement until boy initiated breakups can occur
+!!			temporary removal of npc_rel requirement until boy initiated breakups can occur
 
-!!		if (rand(1, 10) <= npc_sexdrive[$temp_bc_id] or npc_booty_call[$temp_bc_id] = daystart) and npc_no_booty_call[$temp_bc_id] ! daystart and (npc_big_fight[$temp_bc_id] < daystart - 7 and daystart > 7):
+!!			if (rand(1, 10) <= npc_sexdrive[$temp_bc_id] or npc_booty_call[$temp_bc_id] = daystart) and npc_no_booty_call[$temp_bc_id] ! daystart and (npc_big_fight[$temp_bc_id] < daystart - 7 and daystart > 7):
 
-		if daystart > npc_no_booty_call[$temp_bc_id] and (npc_booty_call_date[$temp_bc_id] = daystart or rand(1, 10) <= npc_sexdrive[$temp_bc_id] or rand(1, 100) <= npc_rel[$temp_bc_id]):
-			gs 'booty_call', 'schedule_sms', $temp_bc_id
-		end
-		temp_bc_i += 1
-		jump 'bc_fb_sched_loop'
-	end
-
-
-	temp_bc_i = 0
-	:bc_sd_sched_loop
-	if temp_bc_i < arrsize('$sugar_daddy'):
-		$temp_bc_id = $sugar_daddy[temp_bc_i]
-		gs 'telefon', 'ClearSMSSchedule', $temp_bc_id
-		gs 'booty_call', 'bc_npc_stat_update', $temp_bc_id
-!!		if (rand(1, 10) <= npc_sexdrive[$temp_bc_id] or npc_booty_call[$temp_bc_id] = daystart) and npc_rel[$temp_bc_id] > 0 and npc_no_booty_call[$temp_bc_id] ! daystart and npc_big_fight[$temp_bc_id] < daystart - 7:
+			if daystart > npc_no_booty_call[$temp_bc_id] and (npc_booty_call_date[$temp_bc_id] = daystart or rand(1, 10) <= npc_sexdrive[$temp_bc_id] or rand(1, 100) <= npc_rel[$temp_bc_id]):
+				gs 'booty_call', 'schedule_sms', $temp_bc_id
+			end
+		elseif $npc_rel_type[$temp_bc_id] = 'sugar_daddy':
+			gs 'telefon', 'ClearSMSSchedule', $temp_bc_id
+			gs 'booty_call', 'bc_npc_stat_update', $temp_bc_id
+!!			if (rand(1, 10) <= npc_sexdrive[$temp_bc_id] or npc_booty_call[$temp_bc_id] = daystart) and npc_rel[$temp_bc_id] > 0 and npc_no_booty_call[$temp_bc_id] ! daystart and npc_big_fight[$temp_bc_id] < daystart - 7:
 
-!!		temporary removal of npc_rel requirement until boy initiated breakups can occur
+!!			temporary removal of npc_rel requirement until boy initiated breakups can occur
 
-!!		if (rand(1, 10) <= npc_sexdrive[$temp_bc_id] or npc_booty_call[$temp_bc_id] = daystart) and npc_no_booty_call[$temp_bc_id] ! daystart and (npc_big_fight[$temp_bc_id] < daystart - 7 and daystart > 7):
+!!			if (rand(1, 10) <= npc_sexdrive[$temp_bc_id] or npc_booty_call[$temp_bc_id] = daystart) and npc_no_booty_call[$temp_bc_id] ! daystart and (npc_big_fight[$temp_bc_id] < daystart - 7 and daystart > 7):
 
-		if daystart > npc_no_booty_call[$temp_bc_id] and (daystart + npc_rel[$temp_bc_id] / 10 >= npc_sugar_daddy_timer[$temp_bc_id]) and (npc_booty_call_date[$temp_bc_id] = daystart or rand(1, 10) <= npc_sexdrive[$temp_bc_id] or rand(1, 100) <= npc_rel[$temp_bc_id]):
-			sugar_daddy_call[$sugar_daddy[temp_bc_i]] = 1
-			gs 'booty_call', 'schedule_sms', $temp_bc_id
+			if daystart > npc_no_booty_call[$temp_bc_id] and (daystart + npc_rel[$temp_bc_id] / 10 >= npc_sugar_daddy_timer[$temp_bc_id]) and (npc_booty_call_date[$temp_bc_id] = daystart or rand(1, 10) <= npc_sexdrive[$temp_bc_id] or rand(1, 100) <= npc_rel[$temp_bc_id]):
+				sugar_daddy_call[$temp_bc_id] = 1
+				gs 'booty_call', 'schedule_sms', $temp_bc_id
+			end
 		end
 		temp_bc_i += 1
-		jump 'bc_sd_sched_loop'
+		jump 'bc_sched_loop'
 	end
 
 	killvar 'temp_bc_i'
@@ -72,17 +66,17 @@ if $ARGS[0] = 'schedule_sms':
 end
 
 
-!!	if npc_start_free_time[$FuckBuddy[i]] = 0 or npc_day_off[$FuckBuddy[i]] = 0 or npc_end_free_time[$FuckBuddy[i]] = 0:
-!!		$boy = $FuckBuddy[i]
+!!	if npc_start_free_time[$lover[i]] = 0 or npc_day_off[$lover[i]] = 0 or npc_end_free_time[$lover[i]] = 0:
+!!		$boy = $lover[i]
 
 !!	end
 
-!!		if ((rand(1, 10) <= npc_sexdrive[$FuckBuddy[i]] or npc_booty_call[$FuckBuddy[i]] = daystart) and (rand(1, npc_rel[$FuckBuddy[i]]) > 0)) and npc_no_booty_call[$FuckBuddy[i]] ! daystart and npc_big_fight[$FuckBuddy[i]] < daystart - 7:
+!!		if ((rand(1, 10) <= npc_sexdrive[$lover[i]] or npc_booty_call[$lover[i]] = daystart) and (rand(1, npc_rel[$lover[i]]) > 0)) and npc_no_booty_call[$lover[i]] ! daystart and npc_big_fight[$lover[i]] < daystart - 7:
 
 !!			elseif week < 6:
-!!				booty_call_time[$FuckBuddy[i]] = 900 + rand(0, 210)
+!!				booty_call_time[$lover[i]] = 900 + rand(0, 210)
 !!			else
-!!				booty_call_time[$FuckBuddy[i]] = 600 + rand(0, 720)
+!!				booty_call_time[$lover[i]] = 600 + rand(0, 720)
 
 
 !! ------------ NPC Stat Updater ------------------------
@@ -162,27 +156,23 @@ end
 
 if $ARGS[0] = 'home_links':
 	temp_bc_i = 0
-	:loopFB_homes
-	if temp_bc_i < arrsize('$Fuckbuddy'):
-		gs 'booty_call', 'generate_home_link', $Fuckbuddy[temp_bc_i]
-		temp_bc_i += 1
-		jump 'loopFB_homes'
-	end
-
-	temp_bc_i = 0
-	:loopSD_homes
-	if temp_bc_i < arrsize('$sugar_daddy'):
-		gs 'booty_call', 'generate_home_link', $sugar_daddy[temp_bc_i]
+	:loop_homes
+	if temp_bc_i < arrsize('$lover'):
+		$temp_bc_id = $lover[temp_bc_i]
+		if $npc_rel_type[$temp_bc_id] = 'fuckbuddy' or $npc_rel_type[$temp_bc_id] = 'sugar_daddy':
+			gs 'booty_call', 'generate_home_link', $temp_bc_id
+		end
 		temp_bc_i += 1
-		jump 'loopSD_homes'
+		jump 'loop_homes'
 	end
-
 	killvar 'temp_bc_i'
+	killvar '$temp_bc_id'
 end
 
+
 ! $ARGS[1] = $npc_id
 if $ARGS[0] = 'generate_home_link':
-	if (npc_residence[$ARGS[1]] = 1 and $loc = 'pav_residential') or (npc_residence[$ARGS[1]] = 3 and $loc = 'city_residential') or (npc_residence[$ARGS[1]] = 4 and $loc = 'city_center'):
+	if $npc_residence[$ARGS[1]] = $loc and $npc_residence[$ARGS[1]] ! 'uni_grounds':
 		*nl
 		dynamic(' ''<a href="exec: minut += 2 & gt ''''sex_ev_start'''',''''initiate_pre'''',''''<<$ARGS[1]>>'''' "><<$npc_firstname[$ARGS[1]]>>''''s</a> apartment is nearby.'' ')
 		!! ''''
@@ -194,22 +184,17 @@ end
 
 if $ARGS[0] = 'hotel_links':
 	temp_bc_i = 0
-	:loopFB_hotel
-	if temp_bc_i < arrsize('$Fuckbuddy'):
-		gs 'booty_call', 'generate_hotel_link', $Fuckbuddy[temp_bc_i]
-		temp_bc_i += 1
-		jump 'loopFB_hotel'
-	end
-
-	temp_bc_i = 0
-	:loopSD_hotel
-	if temp_bc_i < arrsize('$sugar_daddy'):
-		gs 'booty_call', 'generate_hotel_link', $sugar_daddy[temp_bc_i]
+	:loop_hotel
+	if temp_bc_i < arrsize('$lover'):
+		$temp_bc_id = $lover[temp_bc_i]
+		if $npc_rel_type[$temp_bc_id] = 'fuckbuddy' or $npc_rel_type[$temp_bc_id] = 'sugar_daddy':
+			gs 'booty_call', 'generate_hotel_link', $temp_bc_id
+		end
 		temp_bc_i += 1
-		jump 'loopSD_hotel'
+		jump 'loop_hotel'
 	end
-
 	killvar 'temp_bc_i'
+	killvar '$temp_bc_id'
 end
 
 if $ARGS[0] = 'generate_hotel_link':
@@ -350,14 +335,14 @@ if $ARGS[0] = 'text2':
 	act'I''m on my way':
 		cla & *nl
 		'<b><font color="pink">ill come right now ;)</font></b>'
-		if npc_humor[$boy] <= 1:
-			'	<b><font color="blue">my cock is waiting for you</font></b>'
-		elseif npc_humor[$boy] = 2:
+		if $npc_humor[$boy] = 'perverted':
 			'	<b><font color="blue">in the street?</font></b>'
 			'	<b><font color="blue">damn!</font></b>'
 			'	<b><font color="blue">keep it in your pants till you get here!</font></b>'
-		elseif npc_humor[$boy] = 3:
+		elseif $npc_humor[$boy] = 'intellectual':
 			'	<b><font color="blue">phrasing</font></b>'
+		else
+			'	<b><font color="blue">my cock is waiting for you</font></b>'
 		end
 		!! missing code
 		!! confirm player is coming over
@@ -375,13 +360,14 @@ if $ARGS[0] = 'text2':
 			!! IMAGE HERE
 			!! missing code
 			!! fix this code to work with this event
-			contMeetHour[Call4Date["ContactIndex"]] = input ("When do you want to go over to his place? It is now <<$mid(100+hour,2,2)>>:<<$mid(100+minut,2,2)>>. [Enter the hour only <<hour>> - 22]")
-			if contMeetHour[Call4Date["ContactIndex"]] <= hour or contMeetHour[Call4Date["ContactIndex"]] > 23:contMeetHour[Call4Date["ContactIndex"]] = 20
+			npc_meetday[$boy] = daystart
+			npc_meethour[$boy] = input ("When do you want to go over to his place? It is now <<func('time', 'get_time_string', hour, minut)>>. [Enter the hour only <<hour>> - 22]")
+			if npc_meethour[$boy] <= hour or npc_meethour[$boy] > 23: npc_meethour[$boy] = 20
 
-			'<b><font color="pink">maybe around <<contMeetHour[Call4Date["ContactIndex"]]>>:00?</font></b>'
+			'<b><font color="pink">maybe around <<npc_meethour[$boy]>>:00?</font></b>'
 
-			'"How about <<contMeetHour[Call4Date["ContactIndex"]]>>:00?."'
-			'<<$Call4Date["CallerName"]>>, "Okay <<$Call4Date["SvetaName"]>>, see you at <<contMeetHour[Call4Date["ContactIndex"]]>>:00."'
+			'"How about <<npc_meethour[$boy]>>:00?."'
+			'<<$Call4Date["CallerName"]>>, "Okay <<$Call4Date["SvetaName"]>>, see you at <<npc_meethour[$boy]>>:00."'
 
 			act 'Put away your phone': gt $loc, $loc_arg
 		end
@@ -509,48 +495,38 @@ if $ARGS[0] = 'draw':
 	! but I cannnot randomize the time because the probability is 100 % now
 	! I suppose that the routine will be modified later to take in account the lovers preferences
 	if booty_call['A0'] ! daystart :
-		temp_bc_i = rand(0, arrsize('$fuckbuddy')-1)
-		$lover_drawn = $fuckbuddy[temp_bc_i]
-		!$booty_call_daily_id[temp_bc_i] = $lover_drawn
-		gs 'booty_call_sms', 'start', $lover_drawn
+		if stat['boyfriends_current'] > 0 or stat['girlfriends_current'] > 0:
+			:find_textable_lover
+				temp_bc_i = rand(0, arrsize('$lover')-1)
+				$lover_drawn = $lover[temp_bc_i]
+				!$booty_call_daily_id[temp_bc_i] = $lover_drawn
+			if $npc_rel_type[$lover_drawn] ! 'boyfriend' and $npc_rel_type[$lover_drawn] ! 'girlfriend': jump 'find_textable_lover'
+			gs 'booty_call_sms', 'start', $lover_drawn
+		end
 		booty_call['A0'] = daystart
 	end
 	killvar 'temp_bc_i'
+	killvar '$lover_drawn'
 end
 
 
 if $ARGS[0] = 'SMS raiser':
 	temp_bc_i = 0
-	:fuckbuddy_sms_raiser_loop
-	if temp_bc_i < arrsize('$FuckBuddy'):
-		$temp_bc_id = $FuckBuddy[temp_bc_i]
-		if booty_call_time[$temp_bc_id] < ((hour * 60) + minut) and npc_no_booty_call[$temp_bc_id] ! daystart and npc_last_booty_call[$temp_bc_id] ! daystart:
-			!$booty_call_daily_id[temp_bc_i] = $temp_bc_id
-			gs 'booty_call_sms', 'start', $temp_bc_id
-			booty_call_time[$temp_bc_id] = 2399
-			!! this is a bit superfluous, but it makes the code run faster.
-			booty_call_invite[$temp_bc_id] = daystart
-		end
-		temp_bc_i += 1
-		jump 'fuckbuddy_sms_raiser_loop'
-	end
-
-
-	temp_bc_i = 0
-	:sugar_daddy_sms_raiser_loop
-	if temp_bc_i < arrsize('$sugar_daddy'):
-		$temp_bc_id = $sugar_daddy[temp_bc_i]
-		if booty_call_time[$temp_bc_id] < ((hour * 60) + minut) and npc_no_booty_call[$temp_bc_id] ! daystart and npc_last_booty_call[$temp_bc_id] ! daystart:
-			!$booty_call_daily_id[i] = $temp_bc_id
-			gs 'booty_call_sms', 'start', $temp_bc_id
-			booty_call_time[$temp_bc_id] = 2399
-			!! this is a bit superfluous, but it makes the code run faster.
-			booty_call_invite[$temp_bc_id] = daystart
+	:sms_raiser_loop
+	if temp_bc_i < arrsize('$lover'):
+		$temp_bc_id = $lover[temp_bc_i]
+		if $npc_rel_type[$temp_bc_id] = 'fuckbuddy' or $npc_rel_type[$temp_bc_id] = 'sugar_daddy':
+			if booty_call_time[$temp_bc_id] < ((hour * 60) + minut) and npc_no_booty_call[$temp_bc_id] ! daystart and npc_last_booty_call[$temp_bc_id] ! daystart:
+				!$booty_call_daily_id[temp_bc_i] = $temp_bc_id
+				gs 'booty_call_sms', 'start', $temp_bc_id
+				booty_call_time[$temp_bc_id] = 2399
+				!! this is a bit superfluous, but it makes the code run faster.
+				booty_call_invite[$temp_bc_id] = daystart
+			end
 		end
 		temp_bc_i += 1
-		jump 'sugar_daddy_sms_raiser_loop'
+		jump 'sms_raiser_loop'
 	end
-
 	killvar 'temp_bc_i'
 	killvar '$temp_bc_id'
 end

locations/booty_call_sms.qsrc

@@ -81,7 +81,7 @@ if $ARGS[0] = 'default_booty_call':
 					!! player response 1 option 1
 				$SMSTree['a3'] = 'what were you thinking about?'
 						!! boy response 1
-					if npc_finance[$ARGS[1]] = 2 and func('homes_properties_attr', 'get_property_attribute', '$town', $home['current']) ! 'city' and npc_residence[$ARGS[1]] >= 3:
+					if npc_finance[$ARGS[1]] = 2 and func('homes_properties_attr', 'get_property_attribute', '$town', $home['current']) ! 'city' and mid($npc_residence[$ARGS[1]], 1, 4) = 'city':
 						$SMSTree['a4'] = 'I booked a hotel room in Pav. why dont you come by?'
 					else
 						if $npc_fav_pos[$ARGS[1]] = 'blowjob' and rand(0, 2) = 0:
@@ -123,16 +123,16 @@ if $ARGS[0] = 'default_booty_call':
 									!! player response 2 option 2
 								$SMSTree['ab5'] = 'ill come right now ;)'
 										!! boy response 2 option 1
-									if npc_humor[$ARGS[1]] <= 1 and rand(0,1) = 0:
-										$SMSTRee['ab6'] = 'im already hard'
-									elseif npc_humor[$ARGS[1]] = 2 and rand(0,1) = 0:
+									if $npc_humor[$ARGS[1]] = 'perverted' and rand(0, 1) = 0:
 										if rand(0,1) = 1:
 											$SMSTRee['ab6'] = 'in the street?? damn! keep it in your pants till you get here!'
 										else
 											$SMSTRee['ab6'] = 'as long as you make me cum later'
 										end
-									elseif npc_humor[$ARGS[1]] = 3 and rand(0, 1) = 0:
+									elseif $npc_humor[$ARGS[1]] = 'intellectual' and rand(0, 1) = 0:
 										$SMSTRee['ab6'] = 'phrasing'
+									elseif rand(0, 1) = 0:
+										$SMSTRee['ab6'] = 'im already hard'
 									else
 										$SMSTRee['ab6'] = 'cant wait'
 									end
@@ -141,7 +141,7 @@ if $ARGS[0] = 'default_booty_call':
 					!! player response 1 option 2
 				$SMSTree['b3'] = 'me too'
 						!! boy response 2
-					if npc_finance[$ARGS[1]] = 2 and func('homes_properties_attr', 'get_property_attribute', '$town', $home['current']) ! 'city' and npc_residence[$ARGS[1]] >= 3:
+					if npc_finance[$ARGS[1]] = 2 and func('homes_properties_attr', 'get_property_attribute', '$town', $home['current']) ! 'city' and mid($npc_residence[$ARGS[1]], 1, 4) = 'city':
 						$SMSTree['b4'] = 'I booked a hotel room in Pav. why dont you come by?'
 					else
 						if $npc_fav_pos[$ARGS[1]] = 'blowjob' and rand(0, 2) = 0:
@@ -222,20 +222,20 @@ if $ARGS[0] = 'pre_planned_booty_call':
 				$SMSTree['bb3'] = 'ill come right now ;)'
 
 					! boy
-					if npc_humor[$ARGS[1]] <= 1:
-						$SMSTree['bb4'] = 'im already hard'
-					elseif npc_humor[$ARGS[1]] = 2:
+					if $npc_humor[$ARGS[1]] = 'perverted':
 						if rand(0,1) = 1:
 							$SMSTree['bb4'] = 'in the street?? damn! keep it in your pants till you get here!'
 						else
 							$SMSTree['bb4'] = 'as long as you make me cum later'
 						end
-					elseif npc_humor[$ARGS[1]] = 3:
+					elseif $npc_humor[$ARGS[1]] = 'intellectual':
 						if rand(0,1) = 1:
 							$SMSTree['bb4'] = 'phrasing'
 						else
 							$SMSTree['bb4'] = 'as long as you make me cum later'
 						end
+					else
+						$SMSTree['bb4'] = 'im already hard'
 					end
 end
 
@@ -280,16 +280,16 @@ if $ARGS[0] = 'std_free':
 							!! player response 2 option 2
 						$SMSTree['ab5'] = 'ill come right now ;)'
 								!! boy response 2 option 2
-							if npc_humor[$ARGS[1]] <= 1 and rand(0, 1) = 0:
-								$SMSTree['ab6'] = 'im already hard'
-							elseif npc_humor[$ARGS[1]] = 2 and rand(0, 1) = 0:
+							if $npc_humor[$ARGS[1]] = 'perverted' and rand(0, 1) = 0:
 								if rand(0, 1) = 0:
 									$SMSTree['ab6'] = 'in the street?? damn! keep it in your pants till you get here!'
 								else
 									$SMSTree['ab6'] = 'as long as you make me cum later'
 								end
-							elseif npc_humor[$ARGS[1]] = 3 and rand(0, 1) = 0:
+							elseif $npc_humor[$ARGS[1]] = 'intellectual' and rand(0, 1) = 0:
 								$SMSTree['ab6'] = 'phrasing'
+							elseif rand(0, 1) = 0:
+								$SMSTree['ab6'] = 'im already hard'
 							else
 								$SMSTree['ab6'] = 'cant wait'
 							end
@@ -339,7 +339,7 @@ if $ARGS[0] = 'sugar_daddy_booty_call':
 				$SMSTree['a3'] = 'what were you thinking about?'
 
 						!! boy response to 1st reply, choice A
-					if ($home['current'] ! 'city_apartment' and $home['current'] ! 'niko_apartment' and $home['current'] ! 'university_dorm' and $home['current'] ! 'city_house' and $home['current'] ! 'maid_bedroom') and npc_residence[$ARGS[1]] >= 3:
+					if ($home['current'] ! 'city_apartment' and $home['current'] ! 'niko_apartment' and $home['current'] ! 'university_dorm' and $home['current'] ! 'city_house' and $home['current'] ! 'maid_bedroom') and mid($npc_residence[$ARGS[1]], 1, 4) = 'city':
 						$SMSTree['a4'] = 'I booked a hotel room in Pav. why dont you come by?'
 					else
 						$SMSTree['a4'] = 'I want to see you. why dont you come by my apartment?'
@@ -356,15 +356,15 @@ if $ARGS[0] = 'sugar_daddy_booty_call':
 							!! player 2nd reply, choice B
 						$SMSTree['ab5'] = 'ill come right now ;)'
 								!! boy response to 2nd reply, choice B
-							if ($home['current'] = 'parents_home' or $home['current'] = 'meynold_household' or $home['current'] = 'shared_apartment') and npc_residence[$ARGS[1]] >= 3:
+							if ($home['current'] = 'parents_home' or $home['current'] = 'meynold_household' or $home['current'] = 'shared_apartment') and mid($npc_residence[$ARGS[1]], 1, 4) = 'city':
 								$SMSTree['ab6'] = 'room <<rand(1,3)>><<rand(10,19)>>'
 							else
-								if npc_humor[$ARGS[1]] <= 1 and rand(0,1) = 1:
-									$SMSTree['ab6'] = 'im already hard'
-								elseif npc_humor[$ARGS[1]] = 2 and rand(0,1) = 1:
+								if $npc_humor[$ARGS[1]] = 'perverted' and rand(0, 1) = 1:
 									$SMSTree['ab6'] = 'as long as you make me cum later'
-								elseif npc_humor[$ARGS[1]] = 3 and rand(0,1) = 1:
+								elseif $npc_humor[$ARGS[1]] = 'intellectual' and rand(0, 1) = 1:
 									$SMSTree['ab6'] = 'phrasing'
+								elseif rand(0, 1) = 1:
+									$SMSTree['ab6'] = 'im already hard'
 								else
 									$SMSTree['ab6'] = 'cant wait'
 								end
@@ -430,7 +430,7 @@ if $ARGS[0] = 'new_booty_call':
 				!! player response 1 option 1
 			$SMSTree['a11'] = 'what were you thinking about?'
 					!! boy response 1
-				if npc_finance[$ARGS[1]] = 2 and func('homes_properties_attr', 'get_property_attribute', '$town', $home['current']) ! 'city' and npc_residence[$ARGS[1]] >= 3:
+				if npc_finance[$ARGS[1]] = 2 and func('homes_properties_attr', 'get_property_attribute', '$town', $home['current']) ! 'city' and mid($npc_residence[$ARGS[1]], 1, 4) = 'city':
 					$SMSTree['a12'] = 'I booked a hotel room in Pav. why dont you come by?'
 				else
 					if $npc_fav_pos[$ARGS[1]] = 'blowjob' and rand(0, 2) = 0:
@@ -465,7 +465,7 @@ if $ARGS[0] = 'new_booty_call':
 				!! player response 1 option 2
 			$SMSTree['b11'] = 'me too'
 					!! boy response 2
-				if npc_finance[$ARGS[1]] = 2 and func('homes_properties_attr', 'get_property_attribute', '$town', $home['current']) ! 'city' and npc_residence[$ARGS[1]] >= 3:
+				if npc_finance[$ARGS[1]] = 2 and func('homes_properties_attr', 'get_property_attribute', '$town', $home['current']) ! 'city' and mid($npc_residence[$ARGS[1]], 1, 4) = 'city':
 					$SMSTree['b12'] = 'I booked a hotel room in Pav. why dont you come by?'
 				else
 					if $npc_fav_pos[$ARGS[1]] = 'blowjob' and rand(0, 2) = 0:
@@ -520,9 +520,14 @@ if $ARGS[0] = 'new_booty_call':
 			end
 		end
 
-	elseif $npc_rel_type[$ARGS[1]] = 'lover':
+	elseif $npc_rel_type[$ARGS[1]] = 'boyfriend':
 		!! temp
-		$SMSTree['10'] = '$npc_rel_type = lover!!'
+		$SMSTree['10'] = '$npc_rel_type = boyfriend!!'
+			$SMSTree['11'] = 'PLACEHOLDER2'
+
+	elseif $npc_rel_type[$ARGS[1]] = 'girlfriend':
+		!! temp
+		$SMSTree['10'] = '$npc_rel_type = girlfriend!!'
 			$SMSTree['11'] = 'PLACEHOLDER2'
 
 	else
@@ -548,16 +553,16 @@ if $ARGS[0] = 'new_booty_call':
 			!! player response 2 option 2
 		$SMSTree['b20'] = 'ill come right now ;)'
 				!! boy response 2 option 1
-			if npc_humor[$ARGS[1]] <= 1 and rand(0, 1) = 0:
-				$SMSTRee['b21'] = 'im already hard'
-			elseif npc_humor[$ARGS[1]] = 2 and rand(0, 1) = 0:
+			if $npc_humor[$ARGS[1]] = 'perverted' and rand(0, 1) = 0:
 				if rand(0, 1) = 0:
 					$SMSTRee['b21'] = 'in the street?? damn! keep it in your pants till you get here!'
 				else
 					$SMSTRee['b21'] = 'as long as you make me cum later'
 				end
-			elseif npc_humor[$ARGS[1]] = 3 and rand(0, 1) = 0:
+			elseif $npc_humor[$ARGS[1]] = 'intellectual' and rand(0, 1) = 0:
 				$SMSTRee['b21'] = 'phrasing'
+			elseif rand(0, 1) = 0:
+				$SMSTRee['b21'] = 'im already hard'
 			else
 				$SMSTRee['b21'] = 'cant wait'
 			end
@@ -893,7 +898,7 @@ end
 !  ARGS[2] = smsID
 if $ARGS[0] = 'accept_booty_call':
 	booty_call_invite[$ARGS[1]] = daystart
-	if npc_finance[$ARGS[1]] = 2 and npc_residence[$ARGS[1]] >= 3:
+	if npc_finance[$ARGS[1]] = 2 and mid($npc_residence[$ARGS[1]], 1, 4) = 'city':
 		if func('homes_properties_attr', 'get_property_attribute', '$town', $home['current']) = 'city':
 			$booty_call_hotel[$ARGS[1]] = 'city'
 		else

locations/boyStat.qsrc

@@ -1,118 +1,9 @@
 # boyStat
 
-!!For setting the $boy, dick and $dick_girth with a single call for a npc
-!!Use with a gosub and match the ARGS[0] with the correct char
-!!A generated NPC would be gs 'boyStat', $npclastcalled
-!!Other NPCs may be called either by number if they are a static NPC, or by letter and number otherwise.
-!!eg. "gs 'boyStat', 'A56'" would call for Roma. Likewise, "gs 'boyStat', 'A56'" also calls for Roma.
-!! A second argument calls for multiple partners. They are output as stats1, stats2, stats3, and stats4, for a total of 5 stats.
-!! If ARGS[1] is not set it defaults to zero, so you can use the variables it sets with or without [0] e.g. dick or dick[0] are equivalent 
-
-if ($ARGS[0] = '' and ARGS[0] > 0) or (isnum(mid($ARGS[0],1,1)) and val(mid($ARGS[0],1,1)) < 10):
-	npclastcalledn = iif(isnum($ARGS[0]),val($ARGS[0]),ARGS[0])
-	$npcboytemp = 'A' + npclastcalledn
-else
-	$npcboytemp = $ARGS[0]
-	!! {This error is for where something outside the range of possibility is specified. The calling code is broken. The exact thing specified will be announced.}
-	if isnum(mid($npcboytemp,2,1)) and val(mid($npcboytemp,2,1)) > 10:
-		MSG 'There has been an error in the $boy passing code. Please contact a developer with what you were doing prior to receiving this message so the error may be fixed. Error type: Improper value for boyStat. Calling <<$ARGS[0]>>'
-		$npcboytemp = 'D0'
-	end
-end
-
-if mid($npcboytemp,1,1) = 'A' or mid($npcboytemp,1,1) = 'B' or mid($npcboytemp,1,1) = 'C':
-	$npclastcalled = $npcboytemp
-	npclastcalledn = val(mid($npcboytemp, 2))
-	if isnum($npc_usedname[$npclastcalled]) or $npc_usedname[$npclastcalled] = '': $npc_usedname[$npclastcalled] = $npc_firstname[$npclastcalled] & !! this is a workaround which compensate incomplete settings in npc_static files, it can be removed later ...
-	$bstemp[1] = $npc_usedname[$npclastcalled]
-	bstemp[2] = npc_dick[$npclastcalled]
-	$bstemp[3] = $npc_thdick[$npclastcalled]
-	bstemp[4] = npc_sexskill[$npclastcalled]
-	gs 'pronouns', npc_gender[$npclastcalled], $ARGS[1]
-elseif mid($npcboytemp,1,1) = 'D':
-	npclastcalledn = val(mid($npcboytemp, 2))
-	if npclastcalledn = 1:
-		$bstemp[1] = 'small sized'
-		bstemp[2] = 10
-		$bstemp[3] = 'slim'
-	elseif npclastcalledn = 2:
-		$bstemp[1] = 'medium sized'
-		bstemp[2] = 15
-		$bstemp[3] = 'well proportioned'
-	elseif npclastcalledn = 3:
-		$bstemp[1] = 'large sized'
-		bstemp[2] = 20
-		$bstemp[3] = 'thicker than average'
-	elseif npclastcalledn = 4:
-		$bstemp[1] = 'huge sized'
-		bstemp[2] = 25
-		$bstemp[3] = 'thick'
-	elseif npclastcalledn = 5:
-		$bstemp[1] = 'giant sized'
-		bstemp[2] = 30
-		$bstemp[3] = 'massive'
-	elseif npclastcalledn = 6:
-		$bstemp[1] = 'humongous sized'
-		bstemp[2] = 35
-		$bstemp[3] = 'monstrous'
-	else
-		$bstemp[1] = 'horse sized'
-		bstemp[2] = 40
-		$bstemp[3] = 'monstrous'
-	end
-end
-
-if $ARGS[1] = 'a':
-	$boy1 = $npclastcalled
-	$boydesc1 = $bstemp[1]
-	dick1 = bstemp[2]
-	$dick_girth1 = $bstemp[3]
-	silavag1 = bstemp[4]
-elseif $ARGS[1] = 'b':
-	$boy2 = $npclastcalled
-	$boydesc2 = $bstemp[1]
-	dick2 = bstemp[2]
-	$dick_girth2 = $bstemp[3]
-	silavag2 = bstemp[4]
-elseif $ARGS[1] = 'c':
-	$boy3 = $npclastcalled
-	$boydesc3 = $bstemp[1]
-	dick3 = bstemp[2]
-	$dick_girth3 = $bstemp[3]
-	silavag3 = bstemp[4]
-elseif $ARGS[1] = 'd':
-	$boy4 = $npclastcalled
-	$boydesc4 = $bstemp[1]
-	dick4 = bstemp[2]
-	$dick_girth4 = $bstemp[3]
-	silavag4 = bstemp[4]
-elseif $ARGS[1] = 'e':
-	$boy5 = $npclastcalled
-	$boydesc5 = $bstemp[1]
-	dick5 = bstemp[2]
-	$dick_girth5 = $bstemp[3]
-	silavag5 = bstemp[4]
-elseif $ARGS[1] = 'f':
-	$boy6 = $npclastcalled
-	$boydesc6 = $bstemp[1]
-	dick6 = bstemp[2]
-	$dick_girth6 = $bstemp[3]
-	silavag6 = bstemp[4]
+if $ARGS[1] ! '':
+	gs 'npcStat', $ARGS[0], $ARGS[1]
 else
-	boyStat_i = iif(isnum($ARGS[1]),val($ARGS[1]),ARGS[1])
-	$boy[boyStat_i] = $npclastcalled
-	$boydesc[boyStat_i] = $bstemp[1]
-	dick[boyStat_i] = bstemp[2]
-	$dick_girth[boyStat_i] = $bstemp[3]
-	silavag[boyStat_i] = bstemp[4]
+	gs 'npcStat', $ARGS[0], ARGS[1]
 end
 
-killvar 'bstemp'
-killvar 'boyStat_i'
-killvar 'npclastcalledn'
-killvar 'npcboytemp'
-
-
-
 --- boyStat ---------------------------------
-

locations/boy_updater.qsrc

@@ -1,20 +1,14 @@
 # boy_updater
 
 if $ARGS[0] = 'home_update':
-	if $npc_residence[$boy] = '':
-		if npc_residence[$boy] = 1:
-			npc_finance[$boy] = 0
-			$npc_residence[$boy] = 'pav_res'
-		elseif npc_residence[$boy] = 2:
-			npc_finance[$boy] = 0
-			$npc_residence[$boy] = 'student_dorms'
-		elseif npc_residence[$boy] = 3:
-			npc_finance[$boy] = rand(1,2)
-			$npc_residence[$boy] = 'city_res'
-		elseif npc_residence[$boy] = 4:
-			npc_finance[$boy] = 2
-			$npc_residence[$boy] = 'city_center'
-		end
+	if $npc_residence[$boy] = 'pav_residential':
+		npc_finance[$boy] = 0
+	elseif $npc_residence[$boy] = 'uni_grounds':
+		npc_finance[$boy] = 0
+	elseif $npc_residence[$boy] = 'city_residential':
+		npc_finance[$boy] = rand(1,2)
+	elseif $npc_residence[$boy] = 'city_center':
+		npc_finance[$boy] = 2
 	end
 end
 
@@ -94,20 +88,20 @@ if $ARGS[0] = 'schedule_update':
 			if rand(1,3) = 1:
 				npc_start_free_time[$boy] = 8
 				npc_end_free_time[$boy] = 12
-				
+
 				npc_work_start[$boy] = 13
 				npc_work_end[$boy] = 21
-				
+
 			elseif rand(1,2) = 1:
 				npc_start_free_time[$boy] = 15
 				npc_end_free_time[$boy] = 20
-				
+
 				npc_work_start[$boy] = 6
 				npc_work_end[$boy] = 14
 			else
 				npc_start_free_time[$boy] = 18
 				npc_end_free_time[$boy] = 22
-				
+
 				npc_work_start[$boy] = 9
 				npc_work_end[$boy] = 17
 			end
@@ -116,13 +110,13 @@ if $ARGS[0] = 'schedule_update':
 			if rand(1,2) = 1:
 				npc_start_free_time[$boy] = 8
 				npc_end_free_time[$boy] = 12
-				
+
 				npc_work_start[$boy] = 13
 				npc_work_end[$boy] = 21
 			else
 				npc_start_free_time[$boy] = 18
 				npc_end_free_time[$boy] = 22
-				
+
 				npc_work_start[$boy] = 9
 				npc_work_end[$boy] = 17
 			end
@@ -130,13 +124,13 @@ if $ARGS[0] = 'schedule_update':
 			if rand(1,2) = 1:
 				npc_start_free_time[$boy] = 8
 				npc_end_free_time[$boy] = 12
-				
+
 				npc_work_start[$boy] = 13
 				npc_work_end[$boy] = 21
 			else
 				npc_start_free_time[$boy] = 18
 				npc_end_free_time[$boy] = 22
-				
+
 				npc_work_start[$boy] = 9
 				npc_work_end[$boy] = 17
 			end
@@ -158,7 +152,7 @@ end
 
 if $ARGS[0] = 'unique_NPC_stat_seed':
 	if $boy = 'A11':
-		
+
 	end
 end
 
@@ -185,8 +179,8 @@ if $ARGS[0] = 'vasily_seed':
 		npc_dirty_lover['A11'] = 1
 		npc_cum_pref['A11'] = 1
 		$npc_cum_pref['A11'] = 'creampie'
-		npc_tit_pref['A11'] = 3
-		npc_bush_pref['A11'] = 1
+		gs 'npc_set_preference', 'A11', 'body_tits_big', 'like'
+		gs 'npc_set_preference', 'A11', 'hair_pubes_shaven', 'like'
 		$npc_fav_body_part['A11'] = 'tits'
 		npc_sexdrive['A11'] = 4
 		npc_sex_stamina['A11'] = 5

locations/boyfrend.qsrc

@@ -1,19 +0,0 @@
-# boyfrend
-
-if $ARGS[0] = 'start':
-	if arrsize('pcs_lovers') > 2:
-		'Hmm, you are already three lovers, why do you need a fourth?'
-	else
-		gs 'lover', 'add'
-	end
-end
-
-!use    $boyfriend_code = func('boyfrend','add',$npclastgenerated)
-!the function returns the string, that correspends npc identificator in B array
-if $ARGS[0] = 'add':
-	gs 'npcpreservec', $ARGS[1]
-	$result = $npclastsaved
-end
-
---- boyfrend ---------------------------------
-

locations/boylove.qsrc

@@ -1,80 +1,122 @@
 # boylove
-if $ARGS[0] = 'hair':
-	if hairlover[lover_number] ! pcs_haircol:
-		loverrelation[lover_number] -= 1
 
-		if hairlover[lover_number] = 0:'<<$loverdesc[lover_number]>> says that you are very beautiful, although he likes the black-haired.'
-		if hairlover[lover_number] = 1:'<<$loverdesc[lover_number]>> says that you are very beautiful, although he likes the brown-haired.'
-		if hairlover[lover_number] = 2:'<<$loverdesc[lover_number]>> says that you are very beautiful, although he likes red.'
-		if hairlover[lover_number] = 3:'<<$loverdesc[lover_number]>> says that you are very beautiful, although he likes blondes.'
-	elseif hairlover[lover_number] = pcs_haircol:
-		loverrelation[lover_number] += 1
-		'<<$loverdesc[lover_number]>> says that you have beautiful hair.'
+dynamic $npc_preferences[$npcID]
+
+
+if $ARGS[0] = 'hair':
+	if npc_pref_values['hair_color_black'] > 0:
+		if func('pcs_has_attr', 'hair_color_black'):
+			npc_rel[$npcID] += rand(0, 1)
+			'<<$npcdesc>> says that you have beautiful hair.'
+		else
+			npc_rel[$npcID] -= rand(0, 1)
+			'<<$npcdesc>> says that you are very beautiful, although he likes black-haired women.'
+		end
+	elseif npc_pref_values['hair_color_brown'] > 0:
+		if func('pcs_has_attr', 'hair_color_brown'):
+			npc_rel[$npcID] += rand(0, 1)
+			'<<$npcdesc>> says that you have beautiful hair.'
+		else
+			npc_rel[$npcID] -= rand(0, 1)
+			'<<$npcdesc>> says that you are very beautiful, although he likes brunettes.'
+		end
+	elseif npc_pref_values['hair_color_red'] > 0:
+		if func('pcs_has_attr', 'hair_color_red'):
+			npc_rel[$npcID] += rand(0, 1)
+			'<<$npcdesc>> says that you have beautiful hair.'
+		else
+			npc_rel[$npcID] -= rand(0, 1)
+			'<<$npcdesc>> says that you are very beautiful, although he likes redheads.'
+		end
+	elseif npc_pref_values['hair_color_blonde'] > 0:
+		if func('pcs_has_attr', 'hair_color_blonde'):
+			npc_rel[$npcID] += rand(0, 1)
+			'<<$npcdesc>> says that you have beautiful hair.'
+		else
+			npc_rel[$npcID] -= rand(0, 1)
+			'<<$npcdesc>> says that you are very beautiful, although he likes bondes.'
+		end
 	end
 end
 
+
 if $ARGS[0] = 'figure':
-	if figurlover[lover_number] = 0:
-		if pcs_hips < 80:
-			loverrelation[lover_number] += 1
-			'<<$loverdesc[lover_number]>> tells you that you have a perfect figure.'
-		elseif pcs_hips >= 80:
-			loverrelation[lover_number] -= 1
-			'<<$loverdesc[lover_number]>> says that you love him despite the fact that he always met with skinny.'
+	if npc_pref_values['body_bmi_starving'] > 0 or npc_pref_values['body_bmi_underweight'] > 0:
+		if func('pcs_has_attr', 'OR', 'body_bmi_starving', 'body_bmi_underweight'):
+			npc_rel[$npcID] += rand(0, 1)
+			'<<$npcdesc>> tells you that you have a perfect figure.'
+		else
+			npc_rel[$npcID] -= rand(0, 1)
+			'<<$npcdesc>> says that you love him despite the fact that he always met with skinny.'
 		end
-	elseif figurlover[lover_number] = 1:
-		if pcs_hips > 80 and pcs_hips < 100:
-			loverrelation[lover_number] += 1
-			'<<$loverdesc[lover_number]>> tells you that you have a perfect figure.'
-		elseif pcs_hips <= 80:
-			loverrelation[lover_number] -= 1
-			'<<$loverdesc[lover_number]>> asks whether you have anorexia.'
-		elseif pcs_hips >= 100:
-			loverrelation[lover_number] -= 1
-			'<<$loverdesc[lover_number]>> asks whether you are going on a diet.'
+	elseif npc_pref_values['body_bmi_normal'] > 0:
+		if func('pcs_has_attr', 'OR', 'body_bmi_starving', 'body_bmi_underweight'):
+			npc_rel[$npcID] -= rand(0, 1)
+			'<<$npcdesc>> asks whether you have anorexia.'
+		elseif func('pcs_has_attr', 'body_bmi_normal'):
+			npc_rel[$npcID] += rand(0, 1)
+			'<<$npcdesc>> tells you that you have a perfect figure.'
+		else
+			npc_rel[$npcID] -= rand(0, 1)
+			'<<$npcdesc>> asks whether you are going on a diet.'
 		end
-	elseif figurlover[lover_number] = 2:
-		if pcs_hips >= 100:
-			loverrelation[lover_number] += 1
-			'<<$loverdesc[lover_number]>> tells you that you have a perfect figure.'
-		elseif pcs_hips < 100:
-			loverrelation[lover_number] -= 1
-			'<<$loverdesc[lover_number]>> says that you are beautiful, but the woman should be in the body.'
+	elseif npc_pref_values['body_bmi_overweight'] > 0 or npc_pref_values['body_bmi_obese'] > 0:
+		if func('pcs_has_attr', 'OR', 'body_bmi_overweight', 'body_bmi_obese') = 0:
+			npc_rel[$npcID] -= rand(0, 1)
+			'<<$npcdesc>> says that you are beautiful, but the woman should be in the body.'
+		else
+			npc_rel[$npcID] += rand(0, 1)
+			'<<$npcdesc>> tells you that you have a perfect figure.'
 		end
 	end
 end
 
+
 if $ARGS[0] = 'tits':
-	!!titlover[lover_number]
-	if titlover[lover_number] = 0:
-		if tits < 3:
-			loverrelation[lover_number] += 1
-			'<<$loverdesc[lover_number]>> tells you that you have beautiful breasts.'
-		elseif tits >= 3:
-			loverrelation[lover_number] -= 1
-			'<<$loverdesc[lover_number]>> says that you love him despite the fact that he prefers small breasts.'
+	if npc_pref_values['body_tits_small'] > 0:
+		if func('pcs_has_attr', 'body_tits_small'):
+			npc_rel[$npcID] += rand(0, 1)
+			'<<$npcdesc>> tells you that you have beautiful breasts.'
+		else
+			npc_rel[$npcID] -= rand(0, 1)
+			'<<$npcdesc>> says that you love him despite the fact that he prefers small breasts.'
 		end
-	elseif titlover[lover_number] = 1:
-		if tits >= 3 and tits <= 4:
-			loverrelation[lover_number] += 1
-			'<<$loverdesc[lover_number]>> tells you that you have perfect breasts.'
-		elseif tits < 3:
-			loverrelation[lover_number] -= 1
-			'<<$loverdesc[lover_number]>> says that you are beautiful, though small breasts.'
-		elseif tits > 4:
-			loverrelation[lover_number] -= 1
-			'<<$loverdesc[lover_number]>> says that you have a really huge breasts.'
+	elseif npc_pref_values['body_tits_average'] > 0:
+		if func('pcs_has_attr', 'body_tits_small'):
+			npc_rel[$npcID] -= rand(0, 1)
+			'<<$npcdesc>> says that you are beautiful, though small breasts.'
+		elseif func('pcs_has_attr', 'body_tits_average'):
+			npc_rel[$npcID] += rand(0, 1)
+			'<<$npcdesc>> tells you that you have perfect breasts.'
+		else
+			npc_rel[$npcID] -= rand(0, 1)
+			'<<$npcdesc>> says that you have a really huge breasts.'
 		end
-	elseif titlover[lover_number] = 2:
-		if tits > 4:
-			loverrelation[lover_number] += 1
-			'<<$loverdesc[lover_number]>> tells you that you have a great chest.'
-		elseif tits <= 4:
-			loverrelation[lover_number] -= 1
-			'<<$loverdesc[lover_number]>> says that you are beautiful, though small breasts.'
+	elseif npc_pref_values['body_tits_big'] > 0:
+		if func('pcs_has_attr', 'OR', 'body_tits_small', 'body_tits_average'):
+			npc_rel[$npcID] -= rand(0, 1)
+			'<<$npcdesc>> says that you are beautiful, though small breasts.'
+		elseif func('pcs_has_attr', 'body_tits_big'):
+			npc_rel[$npcID] += rand(0, 1)
+			'<<$npcdesc>> tells you that you have perfect breasts.'
+		else
+			npc_rel[$npcID] -= rand(0, 1)
+			'<<$npcdesc>> says that you have a really huge breasts.'
+		end
+	elseif npc_pref_values['body_tits_huge'] > 0:
+		if func('pcs_has_attr', 'body_tits_huge') = 0:
+			npc_rel[$npcID] -= rand(0, 1)
+			'<<$npcdesc>> says that you are beautiful, though small breasts.'
+		else
+			npc_rel[$npcID] += rand(0, 1)
+			'<<$npcdesc>> tells you that you have a great chest.'
 		end
 	end
 end
 
---- boylove ---------------------------------
 
+killvar '$npc_pref_traits'
+killvar 'npc_pref_values'
+
+
+--- boylove ---------------------------------

locations/brosok.qsrc

@@ -1,37 +0,0 @@
-# brosok
-if boyonce[lover_number] = 0:
-	!!racing requirements after sex
-	boyonce[lover_number] = 1
-	guy += 1
-	!!!WD:  Probably community extension
-	$bfsex += '<font color="maroon">'+$lover[lover_number]+'</font>:He was a '+$boybody+' '+$boybod+' '+$boyface+'. Most of the time he was '+$boyClo+' First time we had sex was on the '+day+'th of '+$month+'. He had a '+loverdick[lover_number]+' cm long member'
-
-	if loverdick[lover_number] > 20:
-		$bfsex += '[:c].'
-		elseif loverdick[lover_number] > 14:
-		$bfsex += '[:)].'
-	else
-		$bfsex += '[:(].'
-	end
-
-	if haraklover[lover_number] = 0:$bfsex += 'He was a calm and self-possessed character.<br>'
-	if haraklover[lover_number] = 1:$bfsex += 'He was cheerful and sociable nature.<br>'
-	if haraklover[lover_number] = 2:$bfsex += 'He was irascible and very rigid.<br>'
-	!!!
-	if loverfinance[lover_number] = 0:
-		if haraklover[lover_number] = 0:vneshlover[lover_number] += 8
-		if haraklover[lover_number] = 1:vneshlover[lover_number] += 16
-		if haraklover[lover_number] = 2:vneshlover[lover_number] += 32
-	elseif loverfinance[lover_number] = 1:
-		if haraklover[lover_number] = 0:vneshlover[lover_number] += 24
-		if haraklover[lover_number] = 1:vneshlover[lover_number] += 40
-		if haraklover[lover_number] = 2:vneshlover[lover_number] += 56
-	elseif loverfinance[lover_number] = 2:
-		if haraklover[lover_number] = 0:vneshlover[lover_number] += 56
-		if haraklover[lover_number] = 1:vneshlover[lover_number] += 72
-		if haraklover[lover_number] = 2:vneshlover[lover_number] += 88
-	end
-end
-
---- brosok ---------------------------------
-

locations/cikl.qsrc

@@ -31,7 +31,6 @@ end
 ciklNewWeek = 0
 if week = 1:
 	ciklNewWeek = 1
-	husbandrink = 0
 	if military = 1: military = 0
 end
 
@@ -99,24 +98,23 @@ age = year - ((pcs_dob - (pcs_dob mod 10000)) / 10000)
 if ((month * 100) + day) <= pcs_dob mod 10000: age -= 1
 if birthday = day and birthmonth = month and model['age'] > 0:model['age'] += 1
 
-if workDolgDay > 0: workDolgDay -= 1
-if QWdogreiqTimer > 0: QWdogreiqTimer -= 1
-if husband > 0: husbanday += 1
-if husband > 10 and husbanday > 0: husband -= 15
 if fingal > 0: fingal -= 1
 
-if husbandMark = 1 and husband <= 10:
-	husbizvradd = 0
-	husbharmin = 0
-	husbandMark = 0
-	husband = 0
-	divorced += 1
-
-	if KFOnLineReaga > 0:KFOnLineReaga -= 1
-
-	'<b><font color="red">Your husband has filed for a divorce.</font></b>'
+if workDolgDay > 0: workDolgDay -= 1
+if QWdogreiqTimer > 0: QWdogreiqTimer -= 1
+if $husID ! '':
+	if npc_rel[$husID] > 10: npc_rel[$husID] -= 15
+	if npc_rel[$husID] > 0 and spouseVars['drink'] ! 11: spouseVars['drink'] = rand(0, 10)
+	husbandsexday = 0
+
+	if npc_rel[$husID] <= 10:
+		gs 'lover_love', 'divorce'
+		'<b><font color="red">Your husband has filed for a divorce.</font></b>'
+	end
 end
 
+if KFOnLineReaga > 0: KFOnLineReaga -= 1
+
 !! after having surgery you will be in recuperation for a few days
 if surgeryday > 0:
 	if daystart - 7 <= surgeryday:
@@ -601,15 +599,12 @@ gs 'schedule', 'cikl'
 
 
 
-if husband > 0 and husbandrink ! 11:husbandrink = rand(0, 10)
-
 !!Pussy_Kats job settings
 inWorkYoungShop = 0
 if week = 1 and young_shop_work = 100: young_shop_work = 1
 if week = 5 and young_shop_work1 = 100: young_shop_work1 = 1
 if week = 1 and young_shop_work2 = 100: young_shop_work2 = 1
 
-husbandsexday = 0
 borsexkol = 0
 givisexday = 0
 
@@ -911,11 +906,11 @@ end
 
 	!!====================================================================!!
 	!!                                                                    !!
-	!!                      Setting story SMS times                       !!
+	!!                     Setting story phone times                      !!
 	!!                                                                    !!
 	!!====================================================================!!
 
-gs 'SMS_schedules', 'cikl'
+gs 'telefon_schedules', 'cikl'
 
 
 
@@ -1281,4 +1276,16 @@ end
 
 if blackmailQW['stage'] > 0: gs 'blackmailer', 'cikl'
 
+
+
+	!!================================================================!!
+	!!                                                                !!
+	!!                        NPCSTAT CLEANUP                         !!
+	!!                                                                !!
+	!!================================================================!!
+
+
+gs 'npcStat_clean'
+
+
 --- cikl ---------------------------------

locations/city_apt_building.qsrc

@@ -20,13 +20,18 @@ if $ARGS[0] = 'housemates':
 	'<center><img <<$set_imgh>> src="images/locations/city/residential/apartment/stairs/housemates.jpg"></center>'
 	'Floor 1 - You don''t know anyone on this floor.'
 	'Floor 2 - You don''t know anyone on this floor.'
-	'Floor 3 - You don''t know anyone on this floor.'
+	if porn_studio['know_alli_home'] = 1 and film > 0:
+		'Floor 3 - Apartment 28: Aliana Smirnova'
+	else
+		'Floor 3 - You don''t know anyone on this floor.'
+	end
 	if trychat >= 1:
 		'Floor 4 - Apartment number 37: Tryndin Maximovich'
 	else
 		'Floor 4 - You don''t know anyone on this floor.'
 	end
 	'Floor 5 - Apartment number 49: Your apartment'
+	
 	act 'Leave': gt 'city_apt_building', 'floor_1'
 end
 
@@ -86,6 +91,13 @@ if $ARGS[0] = 'floor_3':
 	end
 	act 'Go down to the second floor': minut +=1 & gt 'city_apt_building','floor_2'
 	act 'Go up to the fourth floor': minut +=1 & gt 'city_apt_building','floor_4'
+	if porn_studio['know_alli_home'] = 1:
+		if film > 0:
+			'Your fellow porn actress Alli lives on this floor, but she never seems to be home. Knowing Alli, you''re more likely to find her at the porn studio.'
+		else
+			'A girl called Aliana lives on this floor, but she never seems to be home. She did mention that she spends a lot of time working at the nearby porn studio.'
+		end
+	end
 	act 'Take the elevator': gt 'city_apt_building','lift','floor_3'
 end
 
@@ -128,7 +140,7 @@ if $ARGS[0] = 'floor_5':
 	act 'Go down to the fourth floor': minut +=1 & gt 'city_apt_building','floor_4'
 	act 'Go up to the roof': minut +=1 & gt 'city_apt_building', 'roof'
 	act 'Take the elevator': gt 'city_apt_building','lift','floor_5'
-	act 'Apartment 69: Your home': gt 'korr'
+	act 'Apartment 49: Your home': gt 'korr'
 end
 
 if $ARGS[0] = 'roof':
@@ -176,7 +188,7 @@ if $ARGS[0] = 'roof':
 	end
 	if temper >= 15 and daystage < 5 and sunWeather = 1:
 		if func('changingroom','count_swim_item') > 0 and PCloswimwear = 0:
-			act 'Change into a bikini':gt 'changingroom', 'view_swim_list'
+			act 'Change into a bikini': gt 'changingroom', 'view_swim_list'
 		end
 		if pcs_inhib > 30:
 			act 'Sunbathe naked':
@@ -207,7 +219,7 @@ if $ARGS[0] = 'roof':
 					pcs_tan += 3
 					'You strip out of your clothes, put sunblock on your body and lie down on the roof to sunbathe.'
 				end
-				act 'Get Up':gt 'city_apt_building', 'roof'
+				act 'Get up': gt 'city_apt_building', 'roof'
 			end
 		end
 
@@ -229,7 +241,7 @@ if $ARGS[0] = 'roof':
 					pcs_tan += 3
 					'You put sunblock on your body and lie down on the roof to sunbathe.'
 				end
-				act 'Get Up':gt 'city_apt_building', 'roof'
+				act 'Get up': gt 'city_apt_building', 'roof'
 			end
 		end
 	end
@@ -478,7 +490,7 @@ if $ARGS[0] = 'floor2_events':
 end
 
 if $ARGS[0] = 'floor3_events':
-	floor3 = rand(1,18)
+	floor3 = rand(1,19)
 	if floor3 < 3:
 		*clr & cla
 		menu_off = 1
@@ -642,6 +654,47 @@ if $ARGS[0] = 'floor3_events':
 		gs 'arousal', 'end'
 		gs 'stat'
 		act 'Leave': gt 'city_apt_building', 'floor_3'
+	elseif floor3 = 19 and (hour >= 23 and hour < 2) and porn_studio['know_alli_home'] = 0:
+		*clr & cla
+		menu_off = 1
+		porn_studio['know_alli_home'] = 1
+		gs 'stat'
+		'<center><img <<$set_imgh>> src="images/locations/city/residential/apartment/stairs/event/floor3_nudedoor.jpg"></center>'
+		if film > 0:
+			'As you get to the stairwell landing, the door of one of the apartments suddenly opens and you see a naked Alli standing there, her perky breasts and neatly trimmed bush on full display.'
+			'"Alli?!" you ask in bewilderment and she giggles.'
+			'"Oh hey there. Sorry, I thought you were someone else. I didn''t know you lived here?"'
+			'"Yeah, I live on the fifth floor. Apartment 49," you reply.'
+			*nl
+			'"I would say I live here, but I spend most of my time at work and other places, so I only come here to crash," she smiles.'
+			'At this point, an older man appears on the stairs and Alli grins. "Sorry, I need to go, but I''ll see you at work?"'
+			'You just nod and the man smacks her ass as he enters her apartment and she closes the door.'
+			gs 'arousal', 'voyeur', 3
+			gs 'arousal', 'end'
+			gs 'stat'
+		else
+			'As you get to the stairwell landing, the door of one of the apartments suddenly opens and you see a naked girl standing there, her perky breasts and neatly trimmed bush on full display.'
+			'"Oh hey there. Sorry, I thought you were someone else. I''m Alli," she smiles as she casually reaches out to shake your hand. "Are you one of my neigbors?"'
+			*nl
+			'"Yeah, I''m <<$pcs_nickname>>. I live up on the fifth floor."'
+			'"Cool," she replies. "I''d say I live here, but I spend most of my time working at the porn studio and doing other stuff, so I only come here to crash," she smiles.'
+			'"You''re a porn star?" you ask and she smiles.'
+			'"I wouldn''t say a star since I only just started, but yes, I do work in porn and I don''t care what anyone thinks. I signed up at the local studio on my 18th birthday and never looked back."'
+			if pornstudio = 0:
+				pornstudio = 1
+				'"There''s a porn studio in the city?" you ask.'
+				'"Yeah, it''s in one of the warehouses in the redlight district. You should swing by sometime and sign up."'
+				'She gives you directions to the studio before she excuses herself and closes the door, leaving you to continue on your way.'
+			else
+				'"I heard there was a porn studio somewhere in the industrial district," you reply.'
+				'"Yeah, it''s in one of the warehouses in the redlight district. You should swing by sometime and sign up."'
+				'You just nod your head and she smiles before excusing herself and closing the door, leaving you to continue on your way.' 
+				gs 'arousal', 'voyeur', 3
+				gs 'arousal', 'end'
+				gs 'stat'
+			end
+		end
+		act 'Leave': gt 'city_apt_building', 'floor_3'
 	else
 		gt 'city_apt_building', 'floor_3'
 	end

locations/city_bobka.qsrc

@@ -15,15 +15,15 @@ $bobkabj = {
 
 if ARGS[0] = 0:
 	dick = 16
-	gs 'cum_call', 'mouth', 'Bobka', 1
+	gs 'cum_call', 'mouth', 'A47', 1
 	gs 'stat'
 
 	gs 'arousal', 'bj', 5, 'sub', 'deepthroat'
 	gs 'stat'
-	
+
 	gs 'dinSex', 'std_trigger_oral'
 	dynamic $bobkabj
-	
+
 	gs 'arousal', 'end'
 	gs 'stat'
 
@@ -34,7 +34,7 @@ if ARGS[0] = 1:
 
 	gs 'arousal', 'bj', 5, 'sub', 'deepthroat'
 	gs 'stat'
-	
+
 	gs 'dinSex', 'std_trigger_oral'
 	dynamic $bobkabj
 	gs 'stat'
@@ -45,19 +45,19 @@ if ARGS[0] = 1:
 		sexpartkno = 1
 		gs 'dinSex', 'std_trigger'
 		'<center><img <<$set_imgh>> src="images/characters/city/bobka/sex/doggy.jpg"></center>'
-		
+
 		gs 'arousal', 'vaginal', 5, 'sub'
 		gs 'stat'
-		
+
 		gs 'dinsex', 'boy_puts_condom'
 		gs 'dinsex','vaginal_sex',10
 		gs 'dinsex','sexcum'
 		gs 'stat'
 		'Bobka tosses you a syringe, and tells you to get lost.'
-		
+
 		gs 'arousal', 'end'
 		gs 'stat'
-		
+
 		act 'Inject yourself with the drugs ': gt 'city_bobka', 'inject'
 	end
 end
@@ -66,7 +66,7 @@ if ARGS[0] = 2:
 	!HM Is this the correct call, the scene is about anal, not deepthroat
 	gs 'arousal', 'bj', 5, 'sub', 'deepthroat'
 	gs 'stat'
-	
+
 	gs 'dinSex', 'std_trigger'
 	dynamic $bobkabj
 	gs 'stat'
@@ -80,14 +80,14 @@ if ARGS[0] = 2:
 		gs 'dinsex','analsex'
 
 		'<center><img <<$set_imgh>> src="images/characters/city/bobka/sex/anal.jpg"></center>'
-	
+
 		gs 'stat'
 		'You feel <<$boydesc>>''s sperm spread inside you when he finally stops thrusting. When he pulls out of you, some of his sperm slowly trickles out of your gaping butthole.'
 		'Bobka tosses you a syringe, and tells you to get lost.'
-		
+
 		gs 'arousal', 'end'
 		gs 'stat'
-		
+
 		act 'Inject yourself with the drugs ': gt 'city_bobka', 'inject'
 	end
 end
@@ -103,7 +103,7 @@ if ARGS[0] = 3:
 	'<center><img <<$set_imgh>> src="images/characters/city/bobka/sex/rimming.jpg"></center>'
 	'<<$tempval>> drop to your knees before Bobka and look at him questioningly, softly muttering you''ll do whatever he wants you to do.'
 	'Bobka lies back and lifts his legs, exposing his ass to you. He grunts: "Start licking, bitch! If you know what''s good for you..."'
-	
+
 	gs 'willpower', 'bj', 'resist'
 	if will_cost <= pcs_willpwr:
 		act 'Lick his ass reluctantly (<<will_cost>> Willpower)':

locations/city_house_res_kitch.qsrc

@@ -46,25 +46,7 @@ if $ARGS[0] = 'kitch':
 
 	if edahot > 0:'<a href="exec:dynamic $edahotd">There''s a warm meal on the table.</a>'
 
-	if husband > 0 and husbandrink ! 10:
-		if hour = 7 or hour = 17:'<a href="exec:gt ''husb'', ''start''">Your husband is eating at the table.</a>'
-	end
-
-	if husband > 0 and husbanday > 0 and huseatday ! daystart and mc_inventory['food_basic'] >= 2:
-		act 'Cook a meal for your husband and yourself (1:00)':
-			cla
-			*clr
-			husband += 5
-			mc_inventory['food_basic'] -= 2
-			minut += 60
-			huseatday = daystart
-			pcs_mood -= 25
-			'<center><img <<$set_imgh>> src="images/shared/home/kitchen/cook.jpg"></center>'
-			'You prepare a meal for your husband and yourself.'
-
-			act 'Leave the meal':gt 'kuhr'
-		end
-	end
+	gs 'lover_living', 'kitchen'
 
 	dynamic $edasnack
 	dynamic $sandwich

locations/city_mansion_entrance.qsrc

@@ -35,14 +35,18 @@ if $ARGS[0] = '':
 		if vladimirQW['day'] = daystart and vladimirQW['stage'] = 30 and hour >= 16 and week = 6:'<a href="exec:gt ''vladimirQW_meet'',''2''">There''s an Audi parked in front of your mansion, and standing beside it, you notice Vladimir</a>.'
 		if vladimirQW['day'] = daystart and vladimirQW['stage'] = 40 and hour >= 16 and week = 6:'<a href="exec:gt ''vladimirQW_meet'',''3''">There''s an Audi parked in front of your mansion, and standing beside it, you notice Vladimir</a>.'
 
-		if hour = meethour[0]:
-			if svidanie[0] = 1:'<b><a href="exec:lover_number = 0 & gt ''lover_meet'', ''start''"><<$loverdesc[0]>></a> is waiting at the entrance to your mansion.</b>'
-		end
-		if hour = meethour[1]:
-			if svidanie[1] = 1:'<b><a href="exec:lover_number = 1 & gt ''lover_meet'', ''start''"><<$loverdesc[1]>></a> is waiting at the entrance to your mansion.</b>'
-		end
-		if hour = meethour[2]:
-			if svidanie[2] = 1:'<b><a href="exec:lover_number = 2 & gt ''lover_meet'', ''start''"><<$loverdesc[2]>></a> is waiting at the entrance to your mansion.</b>'
+		if arrsize('$lover') > 0:
+			temp_i = 0
+			temp_max_i = arrsize('$lover')
+			:lover_pickup_loop
+				$temp_npcid = $lover[temp_i]
+				if npc_meetday[$temp_npcid] = daystart and npc_meethour[$temp_npcid] = hour:
+					'<b><a href="exec: gt ''lover_meet'', ''start'', ''<<$temp_npcid>>''"><<$npc_usedname[$temp_npcid]>></a> is waiting at the entrance to your mansion.</b>'
+				end
+				temp_i += 1
+			if temp_i < temp_max_i: jump 'lover_pickup_loop'
+			killvar 'temp_i'
+			killvar 'temp_max_i'
 		end
 	end
 

locations/city_mansion_residence_1.qsrc

@@ -204,25 +204,7 @@ if $ARGS[0] = 'ykitchen':
 
 		if edahot > 0:'<a href="exec:dynamic $edahotd">There''s a warm meal on the table.</a>'
 
-		if husband > 0 and husbandrink ! 10:
-			if hour = 7 or hour = 17:'<a href="exec:gt ''husb'', ''start''">Your husband is eating at the table.</a>'
-		end
-
-		if husband > 0 and husbanday > 0 and huseatday ! daystart and mc_inventory['food_basic'] >= 2:
-			act 'Cook a meal for your husband and yourself (1:00)':
-				cla
-				*clr
-				husband += 5
-				mc_inventory['food_basic'] -= 2
-				minut += 60
-				huseatday = daystart
-				pcs_mood -= 25
-				'<center><img <<$set_imgh>> src="images/shared/home/kitchen/cook.jpg"></center>'
-				'You prepare a meal for your husband and yourself.'
-
-				act 'Leave the meal':gt 'kuhr'
-			end
-		end
+		gs 'lover_living', 'kitchen'
 
 		dynamic $edasnack
 		dynamic $sandwich

locations/city_nightclub.qsrc

@@ -210,9 +210,9 @@ if $ARGS[0] = 'dance':
 				if clrand < 5:
 					gs 'arousal', 'foreplay', 1
 					gs 'npcgeneratec', 0
-					gs 'boyStat', $npclastgenerated
+					gs 'npcStat', $npclastgenerated
 
-					'As you''re dancing, you feel someone groping your ass. You turn around and see <<$boybody_pref>>, <<$boybod>> guy with <<$boyface>> hair. He''s <<$boyClo>>'
+					'As you''re dancing, you feel someone groping your ass. You turn around and see <<$npcheight_pref>>, <<$npcbuild>> guy with <<$npchair>> hair. He''s wearing <<$npcClo>>.'
 					act 'Stop dancing': gt 'city_nightclub', 'inside'
 					act 'Dance with him': gt 'city_nightclub', 'dance_guy'
 				elseif clrand > 8:
@@ -278,7 +278,7 @@ if $ARGS[0] = 'dance':
 								*clr & cla
 								pcs_horny += 10
 								minut += 10
-								gs 'boystat', 'A81'
+								gs 'npcStat', 'A81'
 								gs 'cum_call', 'mouth_swallow', $boy, 1
 								gs 'stat'
 								'<center><img <<$set_imgh>> src="images/shared/sex/cum/mouth/cum<<rand(34, 47)>>.jpg"></center>'
@@ -460,7 +460,7 @@ if $ARGS[0] = 'bar':
 			gs 'stat'
 			'<center><img <<$set_imgh>> src="images/shared/sex/public/ivrand4.jpg"></center>'
 			gs 'npcgeneratec', 0, 'Club Dancer', rand(18,26)
-			gs 'boyStat', $npclastgenerated
+			gs 'npcStat', $npclastgenerated
 			spafinloc = 12
 			gs 'cum_manage'
 			'The last thing you remember is how you sucked someone''s cock in the middle of the dance floor.'
@@ -660,7 +660,7 @@ if $ARGS[0] = 'sex':
 	gs 'dinSex', 'std_trigger_oral'
 	gs 'npcgeneratec', 0
 	dick = rand(10, 18)
-	gs 'boyStat', $npclastgenerated
+	gs 'npcStat', $npclastgenerated
 	gs 'stat'
 	'<center><b><font color="maroon">toilet stall</font></b></center>'
 	'<center><img <<$set_imgh>> src="images/locations/city/citycenter/nightclub/sex.jpg"></center>'
@@ -679,12 +679,18 @@ if $ARGS[0] = 'sex':
 
 		act 'Take his cock out of your mouth':
 			*clr & cla
-			if harakBoy = 0:
+			if npc_gentle[$boy] = 1:
 				'<center><img <<$set_imgh>> src="images/shared/sex/handjob/hand.jpg"></center>'
 				spafinloc = 13
 				gs 'cum_manage'
 				'You take his cock and point it away from you. He groans as he cums and most of his cum gets splattered onto the floor, with a few drops covering your hand.'
-			elseif harakBoy = 1:
+			elseif npc_rough[$boy] = 1:
+				spafinloc = 11
+				gs 'cum_manage'
+				SUB += 1
+				'<center><img <<$set_imgh>> src="images/locations/city/citycenter/nightclub/sex/clubfacial.jpg"></center>'
+				'The guy grabs your hair and cums on your face. You quickly close your eyes, but it''s too late. A few blasts of cum get in your eyes and sting them.'
+			else
 				act 'Point his cock at the floor':
 					cla
 					'<center><img <<$set_imgh>> src="images/shared/sex/handjob/hand.jpg"></center>'
@@ -703,12 +709,6 @@ if $ARGS[0] = 'sex':
 					act 'Stand up': gt 'city_nightclubToilet', 'clubtoilet_men'
 				end
 				exit
-			elseif harakBoy = 2:
-				spafinloc = 11
-				gs 'cum_manage'
-				SUB += 1
-				'<center><img <<$set_imgh>> src="images/locations/city/citycenter/nightclub/sex/clubfacial.jpg"></center>'
-				'The guy grabs your hair and cums on your face. You quickly close your eyes, but it''s too late. A few blasts of cum get in your eyes and sting them.'
 			end
 			act 'Stand up': gt 'city_nightclubToilet', 'clubtoilet_men'
 		end

locations/city_trademission.qsrc

@@ -108,22 +108,23 @@ if svQW = 2:
 			act 'Agree':
 				'You smile, "I would love to start dating you." He jumps for joy and promises to call you soon to set up a date.'
 				TPmainQW = 2
-				gs 'boyStat', 'A50'
-				boybodyrand = 1
-				$boybody = 'high'
-				boybodrand = 1
-				$boybod = 'thin'
-				boyfacerand = 3
-				$boyface = 'blond'
-				harakBoy = 1
-				finance = 1
-				vneshBoy = 1
-				$boyClo = 'dressed in jeans and a sweater.'
+				npc_height['A50'] = 181
+				npc_weight['A50'] = 58
+				npc_haircol['A50'] = 3
+				npc_finance['A50'] = 1
+				npc_pervert['A50'] = 0
+
 				figurBoy = rand(0, 2)
 				titBoy = rand(0, 2)
 				hairBoy = rand(0, 3)
-				izvrat = 0
-				gs 'boyfrend', 'start'
+
+				gs 'npcStat', 'A50'
+				$npcheight = 'high'
+				$npcbuild = 'thin'
+				$npchair = 'blond'
+				vneshBoy = 1
+				$npcClo = 'jeans and a sweater'
+				gs 'lover', 'add_boyfriend', 'A50'
 				stopboy = 0
 				bfa = 70
 				boyonceA = 1

locations/clothing.qsrc

@@ -1860,15 +1860,6 @@ if $ARGS[0] = 'strip_code':
 	PCloCoverBack = 4
 	PCloCoverFront = 4
 
-	PShoQuality = 0
-	PShoCut = 0
-	PShoHeels = 0
-	PShoStyle = 0
-	PShoStyle2 = 0
-	PShoBimbo = 0
-	PShoGoth = 0
-	PShoPunk = 0
-
 	gs 'outfit', 'set_tags'
 
 	gs 'outfit', 'exposure_calc'

locations/dachain.qsrc

@@ -37,7 +37,7 @@ if $args[0] = 'start':
 		'Your <a href="exec: gt ''Komp'',''start''">computer</a> is on the table. Unfortunately, there is no internet service in the village.'
 	end
 	*nl
-	
+
 	if hour >= 6 and hour <= 20 and etoexhib = 11:'Kopashatsya working in the garden, hmm... maybe sometime <a href="exec:gt ''etoexhib'', ''pos10''">motivate</a> for them to work quicker and smarter.'
 	if hour >= 6 and hour <= 20 and etoexhib = 12:'Leave in <a href="exec:gt ''etoexhib'', ''pos11''">garden in lingerie and robe.</a>'
 	if hour >= 6 and hour <= 20 and etoexhib = 13 and temp ! daystart:'I wonder how to <a href="exec:gt ''etoexhib'', ''pos12''">garden</a>'
@@ -63,7 +63,7 @@ if $args[0] = 'start':
 
 	!! IMPORTANT: if there is anything added later that could mean that others are in the room, gs 'music_actions', 'not_alone' should be added with the correct conditions.
 	gs 'music_actions', 'start'
-	
+
 end
 
 if $args[0] = 'dachakit':
@@ -85,7 +85,7 @@ if $args[0] = 'dachakit':
 	else
 		'<center><img <<$set_imgh>> src="images/locations/suburban/cottage/dachakit1.jpg"></center>'
 	end
-	
+
 	act 'Go into the main room': gt 'dachain', 'start'
 
 	if mc_inventory['dish_plates'] > 0:
@@ -110,28 +110,10 @@ if $args[0] = 'dachakit':
 	elseif mc_inventory['food_diet'] = 0 and mc_inventory['food_basic'] = 0:
 		'<b><font color="red">The fridge is empty. You have nothing to eat.</font></b>'
 	end
-	
-	if edahot > 0:'<a href="exec:dynamic $edahotd">There''s a warm meal on the table.</a>'
 
-	if husband > 0 and husbandrink ! 10:
-		if hour = 7 or hour = 17:'<a href="exec:gt ''husb'', ''start''">Your husband is eating at the table.</a>'
-	end
+	if edahot > 0:'<a href="exec:dynamic $edahotd">There''s a warm meal on the table.</a>'
 
-	if husband > 0 and husbanday > 0 and huseatday ! daystart and mc_inventory['food_basic'] >= 2:
-		act 'Cook a meal for your husband and yourself (1:00)':
-			cla
-			*clr
-			husband += 5
-			mc_inventory['food_basic'] -= 2
-			minut += 60
-			huseatday = daystart
-			pcs_mood -= 25
-			'<center><img <<$set_imgh>> src="images/shared/home/kitchen/cook.jpg"></center>'
-			'You prepare a meal for your husband and yourself.'
-
-			act 'Leave the meal':gt 'kuhr'
-		end
-	end
+	gs 'lover_living', 'kitchen'
 
 	dynamic $edasnack
 	dynamic $sandwich

locations/dachi.qsrc

@@ -6,7 +6,7 @@ $loc = 'dachi'
 $menu_arg = ''
 menu_off = 0
 music_loop = 0
-CLOSE ALL 
+CLOSE ALL
 
 $location_type = 'public_outdoors'
 *clr & cla
@@ -28,10 +28,19 @@ act 'Go to the highway (0:15)': minut += 15 & nroad = 5 & gt 'road'
 if func('homes_properties', 'has_access','village_cottage'):
 	'Enter <a href="exec:gt ''dachamy'', ''start''">your yard</a>.'
 	'Across the street from your cottage is another <a href="exec:gt ''etoexhib'', ''pos8''">cottage</a> almost identical to yours.'
-	if hour = meethour:
-		if svidanie[0] = 1:'<b>Near the entrance you expect <a href="exec:lover_number = 0 & gt ''lover_meet'',''start''"><<$loverdesc[0]>></a></b>'
-		if svidanie[1] = 1:'<b>Near the entrance you expect <a href="exec:lover_number = 1 & gt ''lover_meet'',''start''"><<$loverdesc[1]>></a></b>'
-		if svidanie[2] = 1:'<b>Near the entrance you expect <a href="exec:lover_number = 2 & gt ''lover_meet'',''start''"><<$loverdesc[2]>></a></b>'
+
+	if arrsize('$lover') > 0:
+		temp_i = 0
+		temp_max_i = arrsize('$lover')
+		:lover_pickup_loop
+			$temp_npcid = $lover[temp_i]
+			if npc_meetday[$temp_npcid] = daystart and npc_meethour[$temp_npcid] = hour:
+				'<b>Near the entrance you expect <a href="exec: gt ''lover_meet'', ''start'', ''<<$temp_npcid>>''"><<$npc_usedname[$temp_npcid]>></a></b>'
+			end
+			temp_i += 1
+		if temp_i < temp_max_i: jump 'lover_pickup_loop'
+		killvar 'temp_i'
+		killvar 'temp_max_i'
 	end
 end
 
@@ -39,14 +48,18 @@ if  func('homes_properties', 'is_current_home', 'village_cottage'):
 	if vladimirQW['day'] = daystart and vladimirQW['stage'] = 30 and hour >= 16 and week = 6:'<a href="exec:gt ''vladimirQW_meet'',''2''">There''s an Audi parked in front of your cottage, and standing beside it, you notice Vladimir</a>.'
 	if vladimirQW['day'] = daystart and vladimirQW['stage'] = 40 and hour >= 16 and week = 6:'<a href="exec:gt ''vladimirQW_meet'',''3''">There''s an Audi parked in front of your cottage, and standing beside it, you notice Vladimir</a>.'
 
-	if hour = meethour[0]:
-		if svidanie[0] = 1:'<b><a href="exec:lover_number = 0 & gt ''lover_meet'', ''start''"><<$loverdesc[0]>></a> is waiting at the entrance to your yard.</b>'
-	end
-	if hour = meethour[1]:
-		if svidanie[1] = 1:'<b><a href="exec:lover_number = 1 & gt ''lover_meet'', ''start''"><<$loverdesc[1]>></a> is waiting at the entrance to your yard.</b>'
-	end
-	if hour = meethour[2]:
-		if svidanie[2] = 1:'<b><a href="exec:lover_number = 2 & gt ''lover_meet'', ''start''"><<$loverdesc[2]>></a> is waiting at the entrance to your yard.</b>'
+	if arrsize('$lover') > 0:
+		temp_i = 0
+		temp_max_i = arrsize('$lover')
+		:lover_pickup_loop
+			$temp_npcid = $lover[temp_i]
+			if npc_meetday[$temp_npcid] = daystart and npc_meethour[$temp_npcid] = hour:
+				'<b><a href="exec: gt ''lover_meet'', ''start'', ''<<$temp_npcid>>''"><<$npc_usedname[$temp_npcid]>></a> is waiting at the entrance to your yard.</b>'
+			end
+			temp_i += 1
+		if temp_i < temp_max_i: jump 'lover_pickup_loop'
+		killvar 'temp_i'
+		killvar 'temp_max_i'
 	end
 end
 

locations/dateF.qsrc

@@ -19,25 +19,25 @@ if $ARGS[0] = 'start':
 	*clr & cla
 	!! generate a girl
 	gs 'npcgeneratec', 1, '', rand(18, 35)
-	gs 'boyStat', $npclastgenerated
+	gs 'npcStat', $npclastgenerated
 
 
 	act 'Ignore her and hurry away':gt $loc, $loc_arg
 	!!1) Sveta in a school uniform
 	if PCloStyle2 = 4:
-		'<center><img <<$set_imgh>> src="images/characters/shared/headshots_generic/<<lover_picrand[$boy]>>.jpg"></center>'
-		'You notice <<$boybody_pref>> girl with <<$boybod_pref>> body and <<$boyface>> hair approaching you. She is wearing <<$boyClo>>'
+		'<center><img <<$set_imgh>> src="<<$npc_pic[$boy]>>"></center>'
+		'You notice <<$npcheight_pref>> girl with <<$npcbuild_pref>> body and <<$npchair>> hair approaching you. She is wearing <<$npcClo>>.'
 		'As she nears you, she presents herself; "Hi. My name is <<$boydesc>>. What are you doing here all by yourself?"'
 		act 'Greet her':
 			*clr & cla
 			minut += 5
 			gs 'stat'
-			'<center><img <<$set_imgh>> src="images/characters/shared/headshots_generic/<<lover_picrand[$boy]>>.jpg"></center>'
+			'<center><img <<$set_imgh>> src="<<$npc_pic[$boy]>>"></center>'
 			'"Hi! My name is <<$pcs_nickname>>." you answer. "School just ended so I was trying to figure out what to do for the rest of the day."'
 			'"Oh really." After a moment of silence <<$boydesc>> finally speaks up; "Don''t take this the wrong way but what school do you attend?" she asks.'
 			act 'Don''t tell her which school':
 				*clr & cla
-				'<center><img <<$set_imgh>> src="images/characters/shared/headshots_generic/<<lover_picrand[$boy]>>.jpg"></center>'
+				'<center><img <<$set_imgh>> src="<<$npc_pic[$boy]>>"></center>'
 				'You break out into laughter, "Why would I tell you that, for all I know you could be a weird stalker."'
 				'"Did you just accuse me for being a stalker?" she asks as her voice changes to a more serious tone.'
 				'"I didn''t mean to make you upset, but don''t you thinks it''s a bit creepy for someone unknown to walk up a schoolgirl and ask what school they go to?" you answer.'
@@ -47,7 +47,7 @@ if $ARGS[0] = 'start':
 			end
 			act 'Tell her':
 				*clr & cla
-				'<center><img <<$set_imgh>> src="images/characters/shared/headshots_generic/<<lover_picrand[$boy]>>.jpg"></center>'
+				'<center><img <<$set_imgh>> src="<<$npc_pic[$boy]>>"></center>'
 				'"I don''t really know if I should tell you that. For all I know you might be a creepy woman that wants to kidnap me."'
 				'"I''m sorry I knew I would come off as creepy, but I got a bit thrown off by your school outfit. I didn''t mean anything by it."'
 				if $loc = 'pav_residential' or $loc = 'pav_commercial':
@@ -63,7 +63,7 @@ if $ARGS[0] = 'start':
 				end
 				act 'Decline':
 					*clr & cla
-					'<center><img <<$set_imgh>> src="images/characters/shared/headshots_generic/<<lover_picrand[$boy]>>.jpg"></center>'
+					'<center><img <<$set_imgh>> src="<<$npc_pic[$boy]>>"></center>'
 					'As you''re talking you get a creepy feeling about this girl, "I''m sorry but I just remembered I was supposed to meet a friend."'
 					'<<$boydesc>> looks at you disappointed. "Oh, that''s a shame. Could I get-..."'
 					'You''re already moving away from her before she even finished her sentence not hearing what she wanted.'
@@ -71,7 +71,7 @@ if $ARGS[0] = 'start':
 				end
 				act 'Decline politely':
 					*clr & cla
-					'<center><img <<$set_imgh>> src="images/characters/shared/headshots_generic/<<lover_picrand[$boy]>>.jpg"></center>'
+					'<center><img <<$set_imgh>> src="<<$npc_pic[$boy]>>"></center>'
 					'"I''m sorry but I''m not interested. I sort of have a boyfriend..." you answer wanting to reject the girl as easy as possible.'
 					'"That''s too bad... I should have guessed a girl in that hot outfit would be taken."'
 					'As you move away from her, you''re glad you declined, especially after the last comment.'
@@ -79,15 +79,15 @@ if $ARGS[0] = 'start':
 				end
 				act 'I would love to':
 					*clr & cla
-					'<center><img <<$set_imgh>> src="images/characters/shared/headshots_generic/<<lover_picrand[$boy]>>.jpg"></center>'
+					'<center><img <<$set_imgh>> src="<<$npc_pic[$boy]>>"></center>'
 					'"Sure, that sounds fun and I just so happen to have some time to kill." You say with a wink.'
 					'"Great!" answers <<$boydesc>> "So, what do you want to do?".'
 					gs 'dateF', 'date_choice'
 				end
 				act 'I would love to but can''t right now':
 					*clr & cla
-					gs 'girlfriend', 'start'
-					'<center><img <<$set_imgh>> src="images/characters/shared/headshots_generic/<<lover_picrand[$boy]>>.jpg"></center>'
+					gs 'lover', 'add_girlfriend', $boy
+					'<center><img <<$set_imgh>> src="<<$npc_pic[$boy]>>"></center>'
 					'"I''m sorry, I would love to go on a date with you but I''m busy right. What if I give you my number so you can call me?"'
 					'"I say that''s a great idea. I''ll be in touch." <<$boydesc>> adds your number to her contact list.'
 					'"You better be." you say teasingly.'
@@ -97,26 +97,26 @@ if $ARGS[0] = 'start':
 		end
 	!!2) Gopnik Sveta
 	elseif gruptipe = 4:
-		'<center><img <<$set_imgh>> src="images/characters/shared/headshots_generic/<<lover_picrand[$boy]>>.jpg"></center>'
-		'You notice <<$boybody_pref>> girl with <<$boybod_pref>> body and <<$boyface>> hair approaching you. She is wearing <<$boyClo>>'
+		'<center><img <<$set_imgh>> src="<<$npc_pic[$boy]>>"></center>'
+		'You notice <<$npcheight_pref>> girl with <<$npcbuild_pref>> body and <<$npchair>> hair approaching you. She is wearing <<$npcClo>>.'
 		'As she nears you, you hear her say, "Hey baby, you seem like a girl that likes to have fun. What do you say, wanna hang out?"'
 		act 'Look at her':
 			*clr & cla
 			minut += 5
 			gs 'stat'
-			'<center><img <<$set_imgh>> src="images/characters/shared/headshots_generic/<<lover_picrand[$boy]>>.jpg"></center>'
+			'<center><img <<$set_imgh>> src="<<$npc_pic[$boy]>>"></center>'
 			'You give her a once over and then give her an amused look, "What did you say? I hope you know what you''re getting yourself into."'
 			'Not fazed by your brashness she continues on, "I know it''s just a front with girls like you. All of you just act hard but I''ve got you all figured out. Tell me this instead, what is your name?"'
 			act 'No':
 				*clr & cla
-				'<center><img <<$set_imgh>> src="images/characters/shared/headshots_generic/<<lover_picrand[$boy]>>.jpg"></center>'
+				'<center><img <<$set_imgh>> src="<<$npc_pic[$boy]>>"></center>'
 				'"How about I kick your ass instead? Now get out of here before you know what my boot feels like shoved up your ass." you reply angrily.'
 				'"Okay, okay, sheesh... take it easy." she says loudly as she''s moving away from you.'
 				act 'Continue': gt $loc, $loc_arg
 			end
 			act 'Answer her':
 				*clr & cla
-				'<center><img <<$set_imgh>> src="images/characters/shared/headshots_generic/<<lover_picrand[$boy]>>.jpg"></center>'
+				'<center><img <<$set_imgh>> src="<<$npc_pic[$boy]>>"></center>'
 				'You give her a contemptuous look. "Oh, you have me all figured out do you? My name is <<$pcs_nickname>>, not that it is any of your business."'
 				if $loc = 'pav_residential' or $loc = 'pav_commercial':
 					'"Well, I spotted you while I was on my way to a friend''s place and your looks caught my attention. Simply said, I want to add another trophy to my trophy wall." she impudently answers.'
@@ -129,8 +129,8 @@ if $ARGS[0] = 'start':
 				end
 				act 'Not now':
 					*clr & cla
-					gs 'girlfriend', 'start'
-					'<center><img <<$set_imgh>> src="images/characters/shared/headshots_generic/<<lover_picrand[$boy]>>.jpg"></center>'
+					gs 'lover', 'add_girlfriend', $boy
+					'<center><img <<$set_imgh>> src="<<$npc_pic[$boy]>>"></center>'
 					'"I''m busy right now." You tell her and watch her become disappointed. "But maybe I will get bored out of my skull and you will seem like a better open, so take my number and maybe I will answer if you call."'
 					'She laughs at your response. "Thanks. I''ll try to make sure to call you when you''re really bored." <<$boydesc>> adds your number to her contact list.'
 					'"Don''t count on it loser." you answer.'
@@ -146,7 +146,7 @@ if $ARGS[0] = 'start':
 				end
 				act 'Fine':
 					*clr & cla
-					'<center><img <<$set_imgh>> src="images/characters/shared/headshots_generic/<<lover_picrand[$boy]>>.jpg"></center>'
+					'<center><img <<$set_imgh>> src="<<$npc_pic[$boy]>>"></center>'
 					'You give her a hard look and eye her up and down. "Fine I''m fucking bored anyways, but you''re paying."'
 					'"Good, I expected no other outcome." she says. "I''ll give it to you to decide what we should do?".'
 					gs 'dateF', 'date_choice'
@@ -155,12 +155,12 @@ if $ARGS[0] = 'start':
 		end
 	!!3 - unattractive or average Sveta
 	elseif pcs_hotcat < 6:
-		'<center><img <<$set_imgh>> src="images/characters/shared/headshots_generic/<<lover_picrand[$boy]>>.jpg"></center>'
-		'You notice <<$boybody_pref>> girl with <<$boybod_pref>> body and <<$boyface>> hair approaching you. She is wearing <<$boyClo>>'
+		'<center><img <<$set_imgh>> src="<<$npc_pic[$boy]>>"></center>'
+		'You notice <<$npcheight_pref>> girl with <<$npcbuild_pref>> body and <<$npchair>> hair approaching you. She is wearing <<$npcClo>>.'
 		'As she nears you, she reaches out her hand for a handshake. "Hi. My name is <<$boydesc>>."'
 		act 'Refuse and walk away':
 			*clr & cla
-			'<center><img <<$set_imgh>> src="images/characters/shared/headshots_generic/<<lover_picrand[$boy]>>.jpg"></center>'
+			'<center><img <<$set_imgh>> src="<<$npc_pic[$boy]>>"></center>'
 			'Not really impressed, you decide to teach her a lesson, "Sure thing, here''s my number."'
 			'<<$boydesc>> quickly scribbles it down not knowing you''ve just given her a totally unknown number.'
 			act 'Continue': gt $loc, $loc_arg
@@ -169,14 +169,14 @@ if $ARGS[0] = 'start':
 			*clr & cla
 			minut += 5
 			gs 'stat'
-			'<center><img <<$set_imgh>> src="images/characters/shared/headshots_generic/<<lover_picrand[$boy]>>.jpg"></center>'
+			'<center><img <<$set_imgh>> src="<<$npc_pic[$boy]>>"></center>'
 			'You think <<$boydesc>> is cute-looking and even though you''re not sure about this you decide grasping her hand.'
 			'"Aren''t you going to tell me your name?" she asks.'
 	!!I would suggest an option for Sveta to be happy about it.
 			act 'Decline':gt 'dateF', 'decline'
 			act 'Happily tell her your name':
 				*clr & cla
-				'<center><img <<$set_imgh>> src="images/characters/shared/headshots_generic/<<lover_picrand[$boy]>>.jpg"></center>'
+				'<center><img <<$set_imgh>> src="<<$npc_pic[$boy]>>"></center>'
 				'All of a sudden you get a bubbly feeling in your stomach thinking if she''s really asking your name?'
 				'You break out in a smile telling her, "My name is <<$pcs_nickname>>."'
 				'"What a beautiful name and a loving smile." <<$boydesc>> tells you.'
@@ -185,15 +185,15 @@ if $ARGS[0] = 'start':
 				act 'Decline':gt 'dateF', 'decline'
 				act 'I would love to':
 					*clr & cla
-					'<center><img <<$set_imgh>> src="images/characters/shared/headshots_generic/<<lover_picrand[$boy]>>.jpg"></center>'
+					'<center><img <<$set_imgh>> src="<<$npc_pic[$boy]>>"></center>'
 					'You think about it a moment and figure why not "Sure I would love to out with you."'
 					'"Great!" answers <<$boydesc>> "So, what do you want to do?".'
 					gs 'dateF', 'date_choice'
 				end
 				act 'I would love to but can''t right now':
 					*clr & cla
-					gs 'girlfriend', 'start'
-					'<center><img <<$set_imgh>> src="images/characters/shared/headshots_generic/<<lover_picrand[$boy]>>.jpg"></center>'
+					gs 'lover', 'add_girlfriend', $boy
+					'<center><img <<$set_imgh>> src="<<$npc_pic[$boy]>>"></center>'
 					'"I''m sorry, I would love to go on a date with you but I''m busy right. What if I give you my number so you can call me?"'
 					'"I say that''s a great idea. I''ll be in touch." <<$boydesc>> adds your number to her contact list.'
 					'"You better be." you say teasingly.'
@@ -202,19 +202,19 @@ if $ARGS[0] = 'start':
 			end
 		end
 	else
-		'<center><img <<$set_imgh>> src="images/characters/shared/headshots_generic/<<lover_picrand[$boy]>>.jpg"></center>'
-		'You notice <<$boybody_pref>> girl with <<$boybod_pref>> body and <<$boyface>> hair approaching you. She is wearing <<$boyClo>>'
+		'<center><img <<$set_imgh>> src="<<$npc_pic[$boy]>>"></center>'
+		'You notice <<$npcheight_pref>> girl with <<$npcbuild_pref>> body and <<$npchair>> hair approaching you. She is wearing <<$npcClo>>.'
 		'She walks up to full of confidence, "Damn, baby, on a scale from 1 to 10, you''re an 11. How about a date?"'
 		act 'Excuse me?':
 			*clr & cla
 			minut += 5
 			gs 'stat'
-			'<center><img <<$set_imgh>> src="images/characters/shared/headshots_generic/<<lover_picrand[$boy]>>.jpg"></center>'
+			'<center><img <<$set_imgh>> src="<<$npc_pic[$boy]>>"></center>'
 			'"Yeah, you heard me." said <<$boydesc>>. "Don''t act all that surprised, you''re good-looking, I''m good-looking we would be the perfect couple, so what do you say?"'
 			'"Isn''t someone full of confidence." you comment, seizing control of the conversation, as you contemplate your next move...'
 			act 'Remain silent':
 				*clr & cla
-				'<center><img <<$set_imgh>> src="images/characters/shared/headshots_generic/<<lover_picrand[$boy]>>.jpg"></center>'
+				'<center><img <<$set_imgh>> src="<<$npc_pic[$boy]>>"></center>'
 				'"Come on, gorgeous, don''t give me the silent treatment."'
 				'As you hear the word gorgeous you melt straight away. You blush and mumble thanks, stammering like a buffoon.'
 				'<<$boydesc>> noticing that you''re having some trouble, smiles and tells you, "I''ll ask you one more time, I don''t want to come off as desperate." she says laughing.'
@@ -226,7 +226,7 @@ if $ARGS[0] = 'start':
 
 				act 'Decline':
 					*clr & cla
-					'<center><img <<$set_imgh>> src="images/characters/shared/headshots_generic/<<lover_picrand[$boy]>>.jpg"></center>'
+					'<center><img <<$set_imgh>> src="<<$npc_pic[$boy]>>"></center>'
 					'"I''m sorry but I don''t feel myself attracted to you enough and I don''t want to lead you on."'
 					'<<$boydesc>> looks at you disappointed. "Oh well, I didn''t think I had a chance but you can''t blame me for trying."'
 					'The two of you say goodbye to each other.'
@@ -235,7 +235,7 @@ if $ARGS[0] = 'start':
 
 				act 'Look at her in disgust':
 					*clr & cla
-					'<center><img <<$set_imgh>> src="images/characters/shared/headshots_generic/<<lover_picrand[$boy]>>.jpg"></center>'
+					'<center><img <<$set_imgh>> src="<<$npc_pic[$boy]>>"></center>'
 					'"I''m sorry, it''s good that you have all this confidence, but I''m way out of your league. There''s no way I would be caught seen out with you."'
 					'"What did you say, you little..." you''re not able to hear the rest as you walk away...'
 					act 'Continue': gt $loc, $loc_arg
@@ -243,7 +243,7 @@ if $ARGS[0] = 'start':
 
 				act 'Agree to a date':
 					*clr & cla
-					'<center><img <<$set_imgh>> src="images/characters/shared/headshots_generic/<<lover_picrand[$boy]>>.jpg"></center>'
+					'<center><img <<$set_imgh>> src="<<$npc_pic[$boy]>>"></center>'
 					'"Stop, you''re making me blush again. Sure, sounds like fun, I would love to."'
 					'"Great!" answers <<$boydesc>> "So, what do you want to do gorgeous?".'
 					gs 'dateF', 'date_choice'
@@ -251,8 +251,8 @@ if $ARGS[0] = 'start':
 
 				act 'I would love to but can''t right now':
 					*clr & cla
-					gs 'girlfriend', 'start'
-					'<center><img <<$set_imgh>> src="images/characters/shared/headshots_generic/<<lover_picrand[$boy]>>.jpg"></center>'
+					gs 'lover', 'add_girlfriend', $boy
+					'<center><img <<$set_imgh>> src="<<$npc_pic[$boy]>>"></center>'
 					'"I''m sorry, I would love to go on a date with you but I''m busy right. What if I give you my number so you can call me?"'
 					'"I say that''s a great idea. I''ll be in touch." <<$boydesc>> adds your number to her contact list.'
 					'"You better be." you say teasingly.'
@@ -265,7 +265,7 @@ end
 
 if $args[0] = 'decline':
 	*clr & cla
-	'<center><img <<$set_imgh>> src="images/characters/shared/headshots_generic/<<lover_picrand[$boy]>>.jpg"></center>'
+	'<center><img <<$set_imgh>> src="<<$npc_pic[$boy]>>"></center>'
 	'"I''m sorry but I don''t feel us clicking so I''ll have to decline."'
 	'<<$boydesc>> looks at you disappointed and then shrugs. "Well can''t blame a girl for trying, right?"'
 	'The two of you say goodbye to each other.'
@@ -371,7 +371,7 @@ if $ARGS[0] = 'walk_back':
 	'"I''ve had a great time." you say smiling. "Yeah, me too..." <<$boydesc>> says quietly. "Could I get your number so I can call you?"'
 	act 'Sure':
 		*clr & cla
-		gs 'girlfriend', 'start'
+		gs 'lover', 'add_girlfriend', $boy
 		'<center><img <<$set_imgh>> src="images/locations/shared/date/givenumber.jpg"></center>'
 		'You give <<$boydesc>> your number. "Now I really hope you don''t forget to call me." you tell her. "Oh, don''t worry about that I''ll be in touch." she says.'
 		'You end the date by her giving you a kiss on the cheek.'
@@ -526,7 +526,7 @@ if $ARGS[0] = 'barend':
 	'"I had a great time, you''re really fun to hang out with." <<$boydesc>> tells you. "Could I get your number?"'
 	act 'Sure':
 		*clr & cla
-		gs 'girlfriend', 'start'
+		gs 'lover', 'add_girlfriend', $boy
 		'<center><img <<$set_imgh>> src="images/locations/shared/date/givenumber.jpg"></center>'
 		'You give <<$boydesc>> your number. "Now I really hope you don''t forget to call me." you tell her. "Oh, don''t worry about that I''ll be in touch." she says.'
 		'You end the date by her giving you a kiss on the cheek.'

locations/dateM.qsrc

@@ -18,13 +18,13 @@ if $ARGS[0] = 'start':
 	*clr & cla
 	!! generate a boy
 	gs 'npcgeneratec', 0, '', rand(18, 35)
-	gs 'boyStat', $npclastgenerated
+	gs 'npcStat', $npclastgenerated
 
 	act 'Ignore him and hurry away':gt $loc, $loc_arg
 !!1) Sveta in a school uniform
 	if PCloStyle2 = 4:
-		'<center><img <<$set_imgh>> src="images/characters/shared/headshots_generic/<<lover_picrand[$boy]>>.jpg"></center>'
-!!		'You notice a guy of <<$boybody>> height with a <<$boybod>> body and <<$boyface>> hair approaching you. He is wearing <<$boyClo>>.'
+		'<center><img <<$set_imgh>> src="<<$npc_pic[$boy]>>"></center>'
+!!		'You notice a guy of <<$npcheight>> height with <<$npcbuild_pref>> body and <<$npchair>> hair approaching you. He is wearing <<$npcClo>>.'
 !!		'As he nears you, he presents himself; "Hi. My name is <<$npc_firstname[$boy]>>. What are you doing here all by yourself?"'
 		'A man approaches, smiling at you.'
 		'"Hi. My name is <<$npc_firstname[$boy]>>. What are you doing here all by yourself?"'
@@ -33,12 +33,12 @@ if $ARGS[0] = 'start':
 			*clr & cla
 			minut += 5
 			gs 'stat'
-			'<center><img <<$set_imgh>> src="images/characters/shared/headshots_generic/<<lover_picrand[$boy]>>.jpg"></center>'
+			'<center><img <<$set_imgh>> src="<<$npc_pic[$boy]>>"></center>'
 			'"Hi! My name is <<$pcs_nickname>>." you answer. "School just ended so I was trying to figure out what to do for the rest of the day."'
 			'"Oh really." After a moment of silence <<$npc_firstname[$boy]>> finally speaks up; "Don''t take this the wrong way but what school do you attend?" he asks.'
 			act 'Don''t tell him which school':
 				*clr & cla
-				'<center><img <<$set_imgh>> src="images/characters/shared/headshots_generic/<<lover_picrand[$boy]>>.jpg"></center>'
+				'<center><img <<$set_imgh>> src="<<$npc_pic[$boy]>>"></center>'
 				'You break out into laughter, "Why would I tell you that, for all I know you could be a rapist."'
 				'"Did you just accuse me for a rapist?" he asks as his voice changes to a more serious tone.'
 				'"I didn''t mean to make you upset, but don''t you thinks it''s a bit strange for someone unknown to walk up a schoolgirl and ask what school they go to?" you answer.'
@@ -48,7 +48,7 @@ if $ARGS[0] = 'start':
 			end
 			act 'Tell him':
 				*clr & cla
-				'<center><img <<$set_imgh>> src="images/characters/shared/headshots_generic/<<lover_picrand[$boy]>>.jpg"></center>'
+				'<center><img <<$set_imgh>> src="<<$npc_pic[$boy]>>"></center>'
 				'"I don''t really know if I should tell you that. For all I know you might be a creepy guy, that wants to kidnap me."'
 				'"I''m sorry I knew I would come off as creepy but I got a bit thrown off by your school outfit. I didn''t mean anything by it."'
 				if $loc = 'pav_residential' or $loc = 'pav_commercial':
@@ -64,15 +64,15 @@ if $ARGS[0] = 'start':
 				end
 				act 'I would love to':
 					*clr & cla
-					'<center><img <<$set_imgh>> src="images/characters/shared/headshots_generic/<<lover_picrand[$boy]>>.jpg"></center>'
+					'<center><img <<$set_imgh>> src="<<$npc_pic[$boy]>>"></center>'
 					'"Sure, that sounds fun and I just so happen to have some time to kill." You say with a wink.'
 					'"Great!" answers <<$npc_firstname[$boy]>> "So, what do you want to do?".'
 					gs 'dateM', 'date_choice'
 				end
 				act 'I would love to but can''t right now':
 					*clr & cla
-					gs 'boyfrend', 'start'
-					'<center><img <<$set_imgh>> src="images/characters/shared/headshots_generic/<<lover_picrand[$boy]>>.jpg"></center>'
+					gs 'lover', 'add_boyfriend', $boy
+					'<center><img <<$set_imgh>> src="<<$npc_pic[$boy]>>"></center>'
 					'"I''m sorry, I would love to go on a date with you but I''m busy right. What if I give you my number so you can call me?"'
 					'"I say that''s a great idea. I''ll be in touch." <<$npc_firstname[$boy]>> adds your number to his contact list.'
 					'"You better be." you say teasingly.'
@@ -80,7 +80,7 @@ if $ARGS[0] = 'start':
 				end
 				act 'Decline':
 					*clr & cla
-					'<center><img <<$set_imgh>> src="images/characters/shared/headshots_generic/<<lover_picrand[$boy]>>.jpg"></center>'
+					'<center><img <<$set_imgh>> src="<<$npc_pic[$boy]>>"></center>'
 					'As you''re talking you get a creepy feeling about this guy, "I''m sorry but I just remembered I was supposed to meet a friend."'
 					'<<$npc_firstname[$boy]>> looks at you disappointed. "Oh, that''s a shame. Could I get-..."'
 					'You''re already moving away from him before he even finished his sentence not hearing what he wanted.'
@@ -88,7 +88,7 @@ if $ARGS[0] = 'start':
 				end
 				act 'Decline politely':
 					*clr & cla
-					'<center><img <<$set_imgh>> src="images/characters/shared/headshots_generic/<<lover_picrand[$boy]>>.jpg"></center>'
+					'<center><img <<$set_imgh>> src="<<$npc_pic[$boy]>>"></center>'
 					'"I''m sorry but I''m not interested. I sort of have a boyfriend..." you answer wanting to reject the guys as easy as possible.'
 					'"That''s too bad... I should have guessed a girl in that hot outfit would be taken."'
 					'As you move away from him, you''re glad you declined, especially after the last comment.'
@@ -96,7 +96,7 @@ if $ARGS[0] = 'start':
 				end
 				act'How about we fuck?':
 					cla & *clr
-					'<center><img <<$set_imgh>> src="images/characters/shared/headshots_generic/<<lover_picrand[$boy]>>.jpg"></center>'
+					'<center><img <<$set_imgh>> src="<<$npc_pic[$boy]>>"></center>'
 					'"How about a fuck for the road instead?"'
 					'"Excuse me?" It''s his turn to look surprised now.'
 					'"You, me, your place, we have sex right now. How about it?"'
@@ -113,27 +113,27 @@ if $ARGS[0] = 'start':
 		end
 	!!2) Gopnik Sveta
 	elseif gruptipe = 4:
-		'<center><img <<$set_imgh>> src="images/characters/shared/headshots_generic/<<lover_picrand[$boy]>>.jpg"></center>'
-!!		'You notice a guy of <<$boybody>> height with a <<$boybod>> body and <<$boyface>> hair approaching you. He is wearing <<$boyClo>>.'
+		'<center><img <<$set_imgh>> src="<<$npc_pic[$boy]>>"></center>'
+!!		'You notice a guy of <<$npcheight>> height with <<$npcbuild_pref>> body and <<$npchair>> hair approaching you. He is wearing <<$npcClo>>.'
 		'A man approaches, smiling at you.'
 		'"Hey baby, you seem like a girl that likes to have fun. What do you say, wanna hang out?"'
 		act 'Look at him':
 			*clr & cla
 			minut += 5
 			gs 'stat'
-			'<center><img <<$set_imgh>> src="images/characters/shared/headshots_generic/<<lover_picrand[$boy]>>.jpg"></center>'
+			'<center><img <<$set_imgh>> src="<<$npc_pic[$boy]>>"></center>'
 			'You give him a once over and then give him an amused look, "What did you say? I hope you know what you''re getting yourself into."'
 			'Not fazed by your brashness he continues on, "I know it''s just a front with girls like you. All of you just act hard but I''ve got you all figured out. Tell me this instead, what is your name?"'
 			act 'No':
 				*clr & cla
-				'<center><img <<$set_imgh>> src="images/characters/shared/headshots_generic/<<lover_picrand[$boy]>>.jpg"></center>'
+				'<center><img <<$set_imgh>> src="<<$npc_pic[$boy]>>"></center>'
 				'"How about I kick your ass instead? Now get out of her before you know what my boot feels like shoved up your ass." you reply angrily.'
 				'"Okay, okay, sheesh... take it easy." he says loudly as he''s moving away from you.'
 				act 'Continue': gt $loc, $loc_arg
 			end
 			act 'Answer him':
 				*clr & cla
-				'<center><img <<$set_imgh>> src="images/characters/shared/headshots_generic/<<lover_picrand[$boy]>>.jpg"></center>'
+				'<center><img <<$set_imgh>> src="<<$npc_pic[$boy]>>"></center>'
 				'You give him a contemptuous look. "Oh, you have us all figured out do you? My name is <<$pcs_nickname>>, not that it is any of your business."'
 				if $loc = 'pav_residential' or $loc = 'pav_commercial':
 					'"Well, I spotted you while I was on my way to a friends place and your looks caught my attention. Simply said, I want to add another trophy to my trophy wall." he impudently answers.'
@@ -146,8 +146,8 @@ if $ARGS[0] = 'start':
 				end
 				act 'Not now':
 					*clr & cla
-					gs 'boyfrend', 'start'
-					'<center><img <<$set_imgh>> src="images/characters/shared/headshots_generic/<<lover_picrand[$boy]>>.jpg"></center>'
+					gs 'lover', 'add_boyfriend', $boy
+					'<center><img <<$set_imgh>> src="<<$npc_pic[$boy]>>"></center>'
 					'"I''m busy right now." You tell him and watch him become disappointed. "But maybe I will get bored out of my skull and you will seem like a better open, so take my number and maybe I will answer if you call."'
 					'He laughs at your response. "Thanks. I''ll try to make sure to call you when you''re really bored." <<$npc_firstname[$boy]>> adds your number to his contact list.'
 					'"Don''t count on it loser." you answer.'
@@ -163,14 +163,14 @@ if $ARGS[0] = 'start':
 				end
 				act 'Fine':
 					*clr & cla
-					'<center><img <<$set_imgh>> src="images/characters/shared/headshots_generic/<<lover_picrand[$boy]>>.jpg"></center>'
+					'<center><img <<$set_imgh>> src="<<$npc_pic[$boy]>>"></center>'
 					'You give him a hard look and eye him up and down. "Fine I''m fucking bored anyways, but you''re paying."'
 					'"Good, I expected no other outcome." he says. "I''ll give it to you to decide what we should do?".'
 					gs 'dateM', 'date_choice'
 				end
 				act'How about we fuck?':
 					cla & *clr
-					'<center><img <<$set_imgh>> src="images/characters/shared/headshots_generic/<<lover_picrand[$boy]>>.jpg"></center>'
+					'<center><img <<$set_imgh>> src="<<$npc_pic[$boy]>>"></center>'
 					'"How about a fuck for the road instead?"'
 					'"Excuse me?" It''s his turn to look surprised now.'
 					'"You, me, your place, we have sex right now. How about it?"'
@@ -186,14 +186,14 @@ if $ARGS[0] = 'start':
 		end
 	!!3 - unattractive or average Sveta
 	elseif pcs_hotcat < 6:
-		'<center><img <<$set_imgh>> src="images/characters/shared/headshots_generic/<<lover_picrand[$boy]>>.jpg"></center>'
-!!		'You notice a guy of <<$boybody>> height with a <<$boybod>> body and <<$boyface>> hair approaching you. He is wearing <<$boyClo>>.'
+		'<center><img <<$set_imgh>> src="<<$npc_pic[$boy]>>"></center>'
+!!		'You notice a guy of <<$npcheight>> height with <<$npcbuild_pref>> body and <<$npchair>> hair approaching you. He is wearing <<$npcClo>>.'
 !!		'As he nears you, he reaches out his hand for a handshake. "Hi. My name is <<$npc_firstname[$boy]>>."'
 		'A man approaches, smiling at you.'
 		'As he nears you, he reaches out his hand for a handshake. "Hi. My name is <<$npc_firstname[$boy]>>."'
 		act 'Give him a fake number':
 			*clr & cla
-			'<center><img <<$set_imgh>> src="images/characters/shared/headshots_generic/<<lover_picrand[$boy]>>.jpg"></center>'
+			'<center><img <<$set_imgh>> src="<<$npc_pic[$boy]>>"></center>'
 			'Not really impressed, you decide to teach him a lesson, "Sure thing, here''s my number."'
 			'<<$npc_firstname[$boy]>> quickly scribbles it down not knowing you''ve just given him a totally unknown number.'
 			act 'Continue': gt $loc, $loc_arg
@@ -202,14 +202,14 @@ if $ARGS[0] = 'start':
 			*clr & cla
 			minut += 5
 			gs 'stat'
-			'<center><img <<$set_imgh>> src="images/characters/shared/headshots_generic/<<lover_picrand[$boy]>>.jpg"></center>'
+			'<center><img <<$set_imgh>> src="<<$npc_pic[$boy]>>"></center>'
 			'Even though you know it''s impolite to shake hands with the opposite sex, you think <<$npc_firstname[$boy]>> is cute-looking and even though you''re not sure about this you decide grasping his hand.'
 			'"Aren''t you going to tell me your name?" he asks.'
 	!!I would suggest an option for Sveta to be happy about it.
 			act 'Decline':gt 'dateM', 'decline'
 			act 'Happily tell him your name':
 				*clr & cla
-				'<center><img <<$set_imgh>> src="images/characters/shared/headshots_generic/<<lover_picrand[$boy]>>.jpg"></center>'
+				'<center><img <<$set_imgh>> src="<<$npc_pic[$boy]>>"></center>'
 				'All of a sudden you get a bubbly feeling in your stomach thinking if he''s really asking your name?'
 				'You break out in a smile telling him, "My name is <<$pcs_nickname>>."'
 				'"What a beautiful name and a loving smile." <<$npc_firstname[$boy]>> tells you.'
@@ -218,15 +218,15 @@ if $ARGS[0] = 'start':
 				act 'Decline':gt 'dateM', 'decline'
 				act 'I would love to':
 					*clr & cla
-					'<center><img <<$set_imgh>> src="images/characters/shared/headshots_generic/<<lover_picrand[$boy]>>.jpg"></center>'
+					'<center><img <<$set_imgh>> src="<<$npc_pic[$boy]>>"></center>'
 					'You think about it a moment and figure why not "Sure I would love to out with you."'
 					'"Great!" answers <<$npc_firstname[$boy]>> "So, what do you want to do?".'
 					gs 'dateM', 'date_choice'
 				end
 				act 'I would love to but can''t right now':
 					*clr & cla
-					gs 'boyfrend', 'start'
-					'<center><img <<$set_imgh>> src="images/characters/shared/headshots_generic/<<lover_picrand[$boy]>>.jpg"></center>'
+					gs 'lover', 'add_boyfriend', $boy
+					'<center><img <<$set_imgh>> src="<<$npc_pic[$boy]>>"></center>'
 					'"I''m sorry, I would love to go on a date with you but I''m busy right. What if I give you my number so you can call me?"'
 					'"I say that''s a great idea. I''ll be in touch." <<$npc_firstname[$boy]>> adds your number to his contact list.'
 					'"You better be." you say teasingly.'
@@ -234,7 +234,7 @@ if $ARGS[0] = 'start':
 				end
 				act'How about we fuck?':
 					cla & *clr
-					'<center><img <<$set_imgh>> src="images/characters/shared/headshots_generic/<<lover_picrand[$boy]>>.jpg"></center>'
+					'<center><img <<$set_imgh>> src="<<$npc_pic[$boy]>>"></center>'
 					'"How about a fuck for the road instead?"'
 					'"Excuse me?" It''s his turn to look surprised now.'
 					'"You, me, your place, we have sex right now. How about it?"'
@@ -250,8 +250,8 @@ if $ARGS[0] = 'start':
 		end
 	!!4) Attractive Sveta
 	else
-		'<center><img <<$set_imgh>> src="images/characters/shared/headshots_generic/<<lover_picrand[$boy]>>.jpg"></center>'
-!!		'You notice a guy of <<$boybody>> height with a <<$boybod>> body and <<$boyface>> hair approaching you. He is wearing <<$boyClo>>.'
+		'<center><img <<$set_imgh>> src="<<$npc_pic[$boy]>>"></center>'
+!!		'You notice a guy of <<$npcheight>> height with <<$npcbuild_pref>> body and <<$npchair>> hair approaching you. He is wearing <<$npcClo>>.'
 !!		'He walks up to full of confidence, "Damn, baby, on a scale from 1 to 10, you''re an 11. How about a date?"'
 		'A man approaches, smiling confidently at you.'
 		'"Damn, baby, on a scale from 1 to 10, you''re an 11. How about a date?"'
@@ -260,12 +260,12 @@ if $ARGS[0] = 'start':
 			*clr & cla
 			minut += 5
 			gs 'stat'
-			'<center><img <<$set_imgh>> src="images/characters/shared/headshots_generic/<<lover_picrand[$boy]>>.jpg"></center>'
+			'<center><img <<$set_imgh>> src="<<$npc_pic[$boy]>>"></center>'
 			'"Yeah, you heard me." said <<$npc_firstname[$boy]>>. "Don''t act all that surprised, you''re good-looking, I''m good-looking we would be the perfect couple, so what do you say?"'
 			'"Isn''t someone full of confidence," you comment, seizing control of the conversation, as you contemplate your next move...'
 			act 'Remain silent':
 				*clr & cla
-				'<center><img <<$set_imgh>> src="images/characters/shared/headshots_generic/<<lover_picrand[$boy]>>.jpg"></center>'
+				'<center><img <<$set_imgh>> src="<<$npc_pic[$boy]>>"></center>'
 				'"Come on, gorgeous, don''t give me the silent treatment."'
 				'As you hear the word gorgeous you melt straight away. You blush and mumble thanks, stammering like a buffoon.'
 				'<<$npc_firstname[$boy]>> noticing that you''re having some trouble, smiles and tells you, "I''ll ask you one more time, I don''t want to come off as desperate." he says laughing.'
@@ -276,7 +276,7 @@ if $ARGS[0] = 'start':
 				!!Go on date, same answer no matter what time of day or weather
 				act 'Decline':
 					*clr & cla
-					'<center><img <<$set_imgh>> src="images/characters/shared/headshots_generic/<<lover_picrand[$boy]>>.jpg"></center>'
+					'<center><img <<$set_imgh>> src="<<$npc_pic[$boy]>>"></center>'
 					'"I''m sorry but I don''t feel myself attracted to you enough and I don''t want to lead you on."'
 					'<<$npc_firstname[$boy]>> looks at you disappointed. "Oh well, I didn''t think I had a chance but you can''t blame me for trying."'
 					'The two of you say goodbye to each other.'
@@ -284,22 +284,22 @@ if $ARGS[0] = 'start':
 				end
 				act 'Look at him in disgust':
 					*clr & cla
-					'<center><img <<$set_imgh>> src="images/characters/shared/headshots_generic/<<lover_picrand[$boy]>>.jpg"></center>'
+					'<center><img <<$set_imgh>> src="<<$npc_pic[$boy]>>"></center>'
 					'"I''m sorry, it''s good that you have all this confidence, but I''m way out of your league. There''s no way I would be caught seen out with you."'
 					'"What did you say, you little..." you''re not able to hear the rest as you walk away...'
 					act 'Continue': gt $loc, $loc_arg
 				end
 				act 'Agree to a date':
 					*clr & cla
-					'<center><img <<$set_imgh>> src="images/characters/shared/headshots_generic/<<lover_picrand[$boy]>>.jpg"></center>'
+					'<center><img <<$set_imgh>> src="<<$npc_pic[$boy]>>"></center>'
 					'"Stop, you''re making me blush again. Sure, sounds like fun, I would love to."'
 					'"Great!" answers <<$npc_firstname[$boy]>> "So, what do you want to do gorgeous?".'
 					gs 'dateM', 'date_choice'
 				end
 				act 'I would love to but can''t right now':
 					*clr & cla
-					gs 'boyfrend', 'start'
-					'<center><img <<$set_imgh>> src="images/characters/shared/headshots_generic/<<lover_picrand[$boy]>>.jpg"></center>'
+					gs 'lover', 'add_boyfriend', $boy
+					'<center><img <<$set_imgh>> src="<<$npc_pic[$boy]>>"></center>'
 					'"I''m sorry, I would love to go on a date with you but I''m busy right. What if I give you my number so you can call me?"'
 					'"I say that''s a great idea. I''ll be in touch." <<$npc_firstname[$boy]>> adds your number to his contact list.'
 					'"You better be." you say teasingly.'
@@ -308,7 +308,7 @@ if $ARGS[0] = 'start':
 			end
 			act'How about we fuck?':
 				cla & *clr
-				'<center><img <<$set_imgh>> src="images/characters/shared/headshots_generic/<<lover_picrand[$boy]>>.jpg"></center>'
+				'<center><img <<$set_imgh>> src="<<$npc_pic[$boy]>>"></center>'
 				'"How about a fuck for the road instead?"'
 				'"Excuse me?" It''s his turn to look surprised now.'
 				'"You, me, your place, we have sex right now. How about it?"'
@@ -326,7 +326,7 @@ end
 
 if $args[0] = 'decline':
 	*clr & cla
-	'<center><img <<$set_imgh>> src="images/characters/shared/headshots_generic/<<lover_picrand[$boy]>>.jpg"></center>'
+	'<center><img <<$set_imgh>> src="<<$npc_pic[$boy]>>"></center>'
 	'"I''m sorry but I don''t feel us clicking so I''ll have to decline."'
 	'<<$npc_firstname[$boy]>> looks at you disappointed then shrugs. "Well can''t blame a guy for trying right."'
 	'The two of you say goodbye to each other.'
@@ -478,7 +478,7 @@ if $ARGS[0] = 'walk_back':
 	'"I''ve had a great time." you say smiling. "Yeah, me too..." <<$npc_firstname[$boy]>> says quietly. "Could I get your number so I can call you?"'
 	act 'Sure':
 		*clr & cla
-		gs 'boyfrend', 'start'
+		gs 'lover', 'add_boyfriend', $boy
 		'<center><img <<$set_imgh>> src="images/locations/shared/date/givenumber.jpg"></center>'
 		'You give <<$npc_firstname[$boy]>> your number. "Now I really hope you don''t forget to call me." you tell him. "Oh, don''t worry about that I''ll be in touch." he says.'
 		'You end the date by him giving you a kiss on the cheek.'
@@ -644,7 +644,7 @@ end
 
 if $ARGS[0] = 'cinema_sure':
 	*clr & cla
-	gs 'boyfrend', 'start'
+	gs 'lover', 'add_boyfriend', $boy
 	'<center><img <<$set_imgh>> src="images/locations/shared/date/givenumber.jpg"></center>'
 	'You give <<$npc_firstname[$boy]>> your number. "Now I really hope you don''t forget to call me." you tell him. "Oh, don''t worry about that I''ll be in touch." he says.'
 	'You end the date by him giving you a kiss on the cheek.'
@@ -772,7 +772,7 @@ if $ARGS[0] = 'cafeend':
 	'"I had a great time, you''re really fun to hang out with." <<$npc_firstname[$boy]>> tells you. "Could I get your number?"'
 	act 'Sure':
 		*clr & cla
-		gs 'boyfrend', 'start'
+		gs 'lover', 'add_boyfriend', $boy
 		'<center><img <<$set_imgh>> src="images/locations/shared/date/givenumber.jpg"></center>'
 		'You give <<$npc_firstname[$boy]>> your number. "Now I really hope you don''t forget to call me." you tell him. "Oh, don''t worry about that I''ll be in touch." he says.'
 		'You end the date by him giving you a kiss on the cheek.'
@@ -961,7 +961,7 @@ if $ARGS[0] = 'barend':
 	'"I had a great time, you''re really fun to hang out with." <<$npc_firstname[$boy]>> tells you. "Could I get your number?"'
 	act 'Sure':
 		*clr & cla
-		gs 'boyfrend', 'start'
+		gs 'lover', 'add_boyfriend', $boy
 		'<center><img <<$set_imgh>> src="images/locations/shared/date/givenumber.jpg"></center>'
 		'You give <<$npc_firstname[$boy]>> your number. "Now I really hope you don''t forget to call me." you tell him. "Oh, don''t worry about that I''ll be in touch." he says.'
 		'You end the date by him giving you a kiss on the cheek.'
@@ -977,5 +977,5 @@ if $ARGS[0] = 'barend':
 	end
 end
 
---- dateM ---------------------------------
 
+--- dateM ---------------------------------

locations/dimaHome.qsrc

@@ -670,7 +670,7 @@ if $ARGS[0] = 'dimka_chat':
 		*clr & cla
 		'<center><h4><font color="maroon">Dimka''s Room</font></h4></center>'
 		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/dimkahome/talk.jpg"></center>'
-		if igor_DimaNos = 4:
+		if IgorQW['DimaNos'] = 4:
 			'He looks at you with disgust. "That faggot? What about him?"'
 			act 'What happened?':
 				*clr & cla
@@ -948,7 +948,7 @@ if $ARGS[0] = 'dimka_chat':
 			act 'No (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
 		end
 		!! I changed the else condition so it matches up with generic boyfriends, because I think the variable boyfriend doesnt exist... if it does a third elseif must be added for boyfirend or generic boyfriends and the if conditions must be changed
-		if NikoVolkovQW >= 5 or fedorKozlovQW >= 1 or pcs_lover ! 0:
+		if NikoVolkovQW >= 5 or fedorKozlovQW >= 1 or stat['boyfriends_current'] > 0:
 			act 'I have a boyfriend':
 				*clr & cla
 				'<center><h4><font color="maroon">Dimka''s Room</font></h4></center>'
@@ -960,8 +960,11 @@ if $ARGS[0] = 'dimka_chat':
 					'You tell him. "I have a boyfriend you know, I''m dating Fedor."'
 					'He busts out laughing. "Fedor? Oh god I thought you had more sense than that. I mean if it was Lazar or Ivan, maybe. Fedor is just a hanger on, you know you could do much better than that, don''t you?" He says as he strokes your hair.'
 				else
-					'You tell him. "I have a boyfriend you know, I''m dating <<$loverdesc[0]>>."'
-					'He busts out laughing. "<<$loverdesc[0]>>? Oh god I thought you had more sense than that. You know you could do much better than him, right?" He says as he strokes your hair.'
+					$temp_npcID = func('lover', 'draw_random_from', 'boyfriend')
+
+					'You tell him. "I have a boyfriend you know, I''m dating <<$npc_usedname[$temp_npcID]>>."'
+					'He busts out laughing. "<<$npc_usedname[$temp_npcID]>>? Oh god I thought you had more sense than that. You know you could do much better than him, right?" He says as he strokes your hair.'
+					killvar '$temp_npcID'
 				end
 				gs 'willpower', 'misc', 'self', 'easy'
 				if will_cost <= pcs_willpwr:

locations/din_bad.qsrc

@@ -7,6 +7,7 @@ $mobile_check = "gs 'din_bad', 'mobile_check'"
 if $ARGS[0] = 'mobile_check':
 	if menu_off = 0:
 		gs 'stat'
+		!{
 		if vladimirQW['day'] ! daystart and hour >= 15 and hour <= 17:
 			if vladimirQW['stage'] = 20:
 				'<b><font color="red">Your phone is ringing</font></b>'
@@ -28,6 +29,7 @@ if $ARGS[0] = 'mobile_check':
 				pl'<center><a href="exec:gt ''vladimirQW_loc'',''4''"><img src="images/system/phone/call_accept.png"></a>		<a href="exec:vladimirQW[''day''] = daystart & gt $loc, $loc_arg"><img src="images/system/phone/decline.png"></a></center>'
 			end
 		end
+		}
 
 		if leonidSlaveDay = daystart and hour >= 6 and hour <= 10 and leonidVisit = 0:
 			'<b><font color="red">Your phone is ringing</font></b>'
@@ -54,34 +56,6 @@ if $ARGS[0] = 'mobile_check':
 			pl''
 			'<center><a href="exec:gt ''qwlocdog''"><img src="images/system/phone/call_accept.png"></a>			 <a href="exec:qwdogiventday = daystart & gt $loc, $loc_arg"><img src="images/system/phone/decline.png"></a></center>'
 		end
-
-		!! iterating all lovers
-		lover_number = 0
-		:loverloop
-			$temp_npcid = $lover[lover_number]
-			if pcs_lovers[lover_number] = 1 and loverday[lover_number] ! daystart and hour > 5 and hour < 20 and ringA = 0 and rand(1,7) > 5:
-				if pcs_apprnc < vneshlover[lover_number]:
-					loverrelation[lover_number] -= 1
-					if loverrelation[lover_number] = 0:
-						'<b><font color="red">Your lover hasn''t been calling you lately, they''ve probably grown tired of you.</font></b>'
-					else
-						'Your lover <<$loverdesc[lover_number]>> has not called you.'
-					end
-				else
-					ring = 1
-					ringA = 1
-					'<b><font color="red">Your phone is ringing</font></b>'
-					PLAY 'sound/old_phone.mp3',30
-					$caller = '<<$loverdesc[lover_number]>>'
-					$callerid = $npc_pic[$temp_npcid]
-					gs 'telefon','phone_ring'
-					pl'<center><a href="exec:gt ''telefon'', ''lover'', <<lover_number>>"><img src="images/system/phone/call_accept.png"></a>			 <a href="exec:gt $loc, $loc_arg"><img src="images/system/phone/decline.png"></a></center>'
-				end
-			end
-			lover_number += 1
-		if lover_number < arrsize('pcs_lovers'): jump 'loverloop'
-		killvar '$temp_npc_id'
-		killvar 'lover_number'
 	end
 end
 

locations/din_van.qsrc

@@ -1288,7 +1288,7 @@ if $ARGS[0] = 'private':
 			mc_inventory['pregnancy_test'] -= 1
 			gs 'stat'
 			act 'Finish':menu_off = 0 & gt $loc, $loc_arg
-			if pregchem > 120 and bimbolevel < 3 and hypnoAddict = 0 and knowpreg = 0 and husband = 0 and pcs_pregtalk = 0:
+			if pregchem > 120 and bimbolevel < 3 and hypnoAddict = 0 and knowpreg = 0 and $husID = '' and pcs_pregtalk = 0:
 				cla
 				knowpreg = 1
 				thinkpreg = 1
@@ -1297,7 +1297,7 @@ if $ARGS[0] = 'private':
 				act 'Horrified':gt 'din_van', 'HorrifiedReact1'
 				act 'Concerned':gt 'din_van', 'ConcernedReact1'
 				act 'Excited':gt 'din_van', 'ExcitedReact1'
-			elseif pregchem > 120 and (bimbolevel = 3 or hypnoAddict = 1) and knowpreg = 0 and husband = 0 and pcs_pregtalk = 0:
+			elseif pregchem > 120 and (bimbolevel = 3 or hypnoAddict = 1) and knowpreg = 0 and $husID = '' and pcs_pregtalk = 0:
 				cla
 				knowpreg = 1
 				thinkpreg = 1
@@ -1305,11 +1305,11 @@ if $ARGS[0] = 'private':
 				'The test shows two strips. You are pregnant. As you look at the test in your hand, you are...'
 				act 'Excited':gt 'din_van', 'ExcitedReact1'
 				if pcs_horny >= 50 or bimbolevel = 3: act 'Aroused':gt 'din_van', 'ArousedReact1'
-			elseif pregchem > 120 and knowpreg = 0 and husband = 1 and kid = 0 and pcs_pregtalk = 0:
+			elseif pregchem > 120 and knowpreg = 0 and $husID ! '' and kid = 0 and pcs_pregtalk = 0:
 				knowpreg = 1
 				thinkpreg = 1
 				gt 'din_van', 'WifeReact1'
-			elseif pregchem > 120 and knowpreg = 0 and husband = 1 and kid > 0 and pcs_pregtalk = 0:
+			elseif pregchem > 120 and knowpreg = 0 and $husID ! '' and kid > 0 and pcs_pregtalk = 0:
 				knowpreg = 1
 				thinkpreg = 1
 				gt 'din_van', 'WifeReact2'
@@ -1352,8 +1352,8 @@ if $ARGS[0] = 'misery':
 	menu_off = 1
 
 	if mc_inventory['tech_washing_machine'] > 0:
-		if husband > 0 and husbanday > 0 and husporday ! daystart and mc_inventory['laundry_soap'] >= 1:
-			husband += 5
+		if $husID ! '' and spouseVars['marry_day'] > daystart and husporday ! daystart and mc_inventory['laundry_soap'] >= 1:
+			npc_rel[$husID] += 5
 			mc_inventory['laundry_soap'] -= 1
 			husporday = daystart
 			'The washing machine washed your husband''s dirty laundry.'
@@ -1362,34 +1362,36 @@ if $ARGS[0] = 'misery':
 		end
 	end
 
-	if husband > 0 and husbanday > 0 and husporday ! daystart and mc_inventory['laundry_soap'] >= 2:
-		act 'Wash your husband''s clothes (2 units of washing powder) (1:00)':
-			*clr & cla
-			husband += 5
-			mc_inventory['laundry_soap'] -= 2
-			minut += 60
-			husporday = daystart
-			pcs_mood -= 20
-			'<center><img <<$set_imgh>> src="images/locations/city/residential/apartment/stir.jpg"></center>'
-			*nl
-			'You spend an hour washing your husband''s dirty laundry.'
+	if $husID ! '':
+		if spouseVars['marry_day'] > daystart and husporday ! daystart and mc_inventory['laundry_soap'] >= 2:
+			act 'Wash your husband''s clothes (2 units of washing powder) (1:00)':
+				*clr & cla
+				npc_rel[$husID] += 5
+				mc_inventory['laundry_soap'] -= 2
+				minut += 60
+				husporday = daystart
+				pcs_mood -= 20
+				'<center><img <<$set_imgh>> src="images/locations/city/residential/apartment/stir.jpg"></center>'
+				*nl
+				'You spend an hour washing your husband''s dirty laundry.'
 
-			act 'Leave the bathroom':menu_off = 0 & gt $loc, $loc_arg
+				act 'Leave the bathroom': menu_off = 0 & gt $loc, $loc_arg
+			end
 		end
-	end
 
-	if husband > 0 and husbanday > 0 and huspolday ! daystart:
-		act 'Clean the apartment (1:00)':
-			*clr & cla
-			husband += 5
-			minut += 60
-			huspolday = daystart
-			pcs_mood -= 20
-			!!'<center><img <<$set_imgh>> src="images/shared/home/kitchen/cook.jpg"></center>'
-			*nl
-			'You take a rag and start cleaning the apartment.'
+		if spouseVars['marry_day'] > daystart and huspolday ! daystart:
+			act 'Clean the apartment (1:00)':
+				*clr & cla
+				npc_rel[$husID] += 5
+				minut += 60
+				huspolday = daystart
+				pcs_mood -= 20
+				!!'<center><img <<$set_imgh>> src="images/shared/home/kitchen/cook.jpg"></center>'
+				*nl
+				'You take a rag and start cleaning the apartment.'
 
-			act 'Finish':menu_off = 0 & gt $loc, $loc_arg
+				act 'Finish': menu_off = 0 & gt $loc, $loc_arg
+			end
 		end
 	end
 end
@@ -1398,8 +1400,8 @@ if $ARGS[0] = 'misery_2':
 	menu_off = 1
 
 	if mc_inventory['tech_washing_machine'] > 0:
-		if husband > 0 and husbanday > 0 and husporday ! daystart and mc_inventory['laundry_soap'] >= 1:
-			husband += 5
+		if $husID ! '' and spouseVars['marry_day'] > daystart and husporday ! daystart and mc_inventory['laundry_soap'] >= 1:
+			npc_rel[$husID] += 5
 			mc_inventory['laundry_soap'] -= 1
 			husporday = daystart
 			'The washing machine washed your husband''s dirty laundry.'
@@ -1408,34 +1410,36 @@ if $ARGS[0] = 'misery_2':
 		end
 	end
 
-	if husband > 0 and husbanday > 0 and husporday ! daystart and mc_inventory['laundry_soap'] >= 2:
-		act 'Wash your husband''s clothes (2 units of washing powder) (1:00)':
-			*clr & cla
-			husband += 5
-			mc_inventory['laundry_soap'] -= 2
-			minut += 60
-			husporday = daystart
-			pcs_mood -= 20
-			'<center><img <<$set_imgh>> src="images/locations/city/residential/apartment/stir.jpg"></center>'
-			*nl
-			'You spend an hour washing your husband''s dirty laundry.'
+	if $husID ! '':
+		if husporday ! daystart and mc_inventory['laundry_soap'] >= 2:
+			act 'Wash your husband''s clothes (2 units of washing powder) (1:00)':
+				*clr & cla
+				npc_rel[$husID] += 5
+				mc_inventory['laundry_soap'] -= 2
+				minut += 60
+				husporday = daystart
+				pcs_mood -= 20
+				'<center><img <<$set_imgh>> src="images/locations/city/residential/apartment/stir.jpg"></center>'
+				*nl
+				'You spend an hour washing your husband''s dirty laundry.'
 
-			act 'Leave the bathroom':menu_off = 0 & gt $loc, $loc_arg
+				act 'Leave the bathroom': menu_off = 0 & gt $loc, $loc_arg
+			end
 		end
-	end
 
-	if husband > 0 and husbanday > 0 and huspolday ! daystart:
-		act 'Clean the apartment (1:00)':
-			*clr & cla
-			husband += 5
-			minut += 60
-			huspolday = daystart
-			pcs_mood -= 20
-			!!'<center><img <<$set_imgh>> src="images/shared/home/kitchen/cook.jpg"></center>'
-			*nl
-			'You take a rag and start cleaning the apartment.'
+		if spouseVars['marry_day'] > daystart and huspolday ! daystart:
+			act 'Clean the apartment (1:00)':
+				*clr & cla
+				npc_rel[$husID] += 5
+				minut += 60
+				huspolday = daystart
+				pcs_mood -= 20
+				!!'<center><img <<$set_imgh>> src="images/shared/home/kitchen/cook.jpg"></center>'
+				*nl
+				'You take a rag and start cleaning the apartment.'
 
-			act 'Finish':menu_off = 0 & gt $loc, $loc_arg
+				act 'Finish': menu_off = 0 & gt $loc, $loc_arg
+			end
 		end
 	end
 end

locations/event.qsrc

@@ -1,25 +1,24 @@
 # event
 !2021/05/06
 
+menu_off = 1
+
 if $ARGS[0] = 'klof 2':
-	cla
-	*clr
+	*clr & cla
 	minut += 5
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/characters/city/jora/15 1.jpg"></center>'
 	'"Well baby, come and see us if you want more entertainment, and if you behave, you can earn some cash"'
 	'- "Okay, guys give her our address."'
 
-	act 'Get dressed':gt 'event', 'klof 3'
-	!!act 'Move away':gt 'city_park', 'start'
+	act 'Get dressed': gt 'event', 'klof 3'
+	!!act 'Move away': gt 'city_park', 'start'
 end
 
 if $ARGS[0] = 'klof 3':
-	cla
-	*clr
+	*clr & cla
 	minut += 5
 	klofQW = 2
-	clr
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/characters/city/jora/15 1.jpg"></center>'
 	'With sudden curiosity, you ask:'
@@ -27,49 +26,45 @@ if $ARGS[0] = 'klof 3':
 	'"Of course, Come visit us in the afternoons and we''ll talk", the guy says and smirks at you.'
 	'(It turns out, they live really close to you.)'
 
-	act 'Leave':gt 'city_park', 'start'
+	act 'Leave': gt 'city_park', 'start'
 end
 
 if $ARGS[0] = 'city_park':
-	cla
-	*clr
+	*clr & cla
 	'<center><img <<$set_imgh>> src="images/locations/city/centralpark/sex/event/benchkiss.jpg"></center>'
 	'You find a quiet, deserted bench off the main paths, you sit together and you start to kiss, but you want more.'
 	gs 'arousal', 'kiss', 5
 	gs 'stat'
-	act 'Masturbate him':gt 'event', 'hand'
-	act 'Suck':gt 'event', 'blow'
-	act 'Fuck':gt 'event', 'sex'
+	act 'Masturbate him': gt 'event', 'hand'
+	act 'Suck': gt 'event', 'blow'
+	act 'Fuck': gt 'event', 'sex'
 end
 
 if $ARGS[0] = 'hand':
-	cla
-	*clr
+	*clr & cla
 	bfa += 1
 	'<center><img <<$set_imgh>> src="images/locations/city/centralpark/sex/event/event.jpg"></center>'
-	'Without breaking the kiss you deftly unbutton his pants <<$loverdesc[lover_number]>> and start to wank your <<loverdick[lover_number]>> cm friend. Unable to withstand such pressure he spills his seed on the ground.'
+	'Without breaking the kiss you deftly unbutton his pants <<$boydesc>> and start to wank your <<npc_dick[$boy]>> cm friend. Unable to withstand such pressure he spills his seed on the ground.'
 	gs 'arousal', 'hj', 5, 'dom'
 	gs 'arousal', 'end'
 	gs 'stat'
-	act 'Finish walk':gt 'city_park', 'start'
+	act 'Finish walk': gt 'city_park', 'start'
 end
 
 if $ARGS[0] = 'blow':
-	cla
-	*clr
+	*clr & cla
 	bfa += 2
 	'<center><img <<$set_imgh>> src="images/locations/city/centralpark/sex/event/event1.jpg"></center>'
-	'You get on your knees, unbutton his pants, and dramatically immerse yourself in sucking his member, looking up as his face relaxs. After a few minutes the <<$loverdesc[lover_number]>> tenses in anticipation of orgasm'
+	'You get on your knees, unbutton his pants, and dramatically immerse yourself in sucking his member, looking up as his face relaxs. After a few minutes the <<$boydesc>> tenses in anticipation of orgasm'
 	gs 'arousal', 'bj', 5, 'sub'
 	gs 'stat'
 	act 'Continue sucking.':
 		cla
 		gs 'cum_call', 'mouth_swallow', $boy, 1
 		'<center><img <<$set_imgh>> src="images/shared/sex/cum/mouth/cum30.jpg"></center>'
-		'A jet of hot sperm hits you in the mouth. You begin to swallow cum, and <<$loverdesc[lover_number]>> continues to cum in your mouth. Finally, the flow of hot pungent liquid stops.'
+		'A jet of hot sperm hits you in the mouth. You begin to swallow cum, and <<$boydesc>> continues to cum in your mouth. Finally, the flow of hot pungent liquid stops.'
 
 		act 'Leave':
-			cla
 			gs 'arousal', 'end'
 			gs 'stat'
 			gt 'city_park', 'start'
@@ -79,32 +74,29 @@ if $ARGS[0] = 'blow':
 	act 'Remove from your mouth.':
 		cla
 
-		if haraklover[lover_number] = 0:
+		if npc_gentle[$boy] = 1:
 			'<center><img <<$set_imgh>> src="images/shared/sex/handjob/hj.jpg"></center>'
-			'You take his cock out of your mouth and <<$loverdesc[lover_number]>> finishes in your hand.'
-		elseif haraklover[lover_number] = 1:
+			'You take his cock out of your mouth and <<$boydesc>> finishes in your hand.'
+		elseif npc_rough[$boy] = 0:
 			tiprand = rand(0, 3)
 
-			if tiprand < 3:
+			if rand(0, 3) < 3:
 				'<center><img <<$set_imgh>> src="images/shared/sex/handjob/hj.jpg"></center>'
-				'You take his cock out of your mouth and <<$loverdesc[lover_number]>> finishes in your hand.'
-			elseif tiprand = 3:
-
+				'You take his cock out of your mouth and <<$boydesc>> finishes in your hand.'
+			else
 				spafinloc = 11
 				gs 'cum_manage'
 				'<center><img <<$set_imgh>> src="images/shared/sex/cum/facial/facial0,8.jpg"></center>'
-				'You took his cock out of your mouth and immediatly <<$loverdesc[lover_number]>> cums directly on your face, covering it with his warm and sticky seed.'
+				'You took his cock out of your mouth and immediatly <<$boydesc>> cums directly on your face, covering it with his warm and sticky seed.'
 			end
-		elseif haraklover[lover_number] = 2:
-
+		else
 			spafinloc = 11
 			gs 'cum_manage'
 			'<center><img <<$set_imgh>> src="images/shared/sex/cum/facial/facial0,8.jpg"></center>'
-			'<<$loverdesc[lover_number]>> holds your hair, pulls his dick out of your mouth and finishes on your face. Covering it with warm and sticky cum.'
+			'<<$boydesc>> holds your hair, pulls his dick out of your mouth and finishes on your face. Covering it with warm and sticky cum.'
 		end
 
 		act 'Leave':
-			cla
 			gs 'arousal', 'end'
 			gs 'stat'
 			gt 'city_park', 'start'
@@ -113,39 +105,36 @@ if $ARGS[0] = 'blow':
 end
 
 if $ARGS[0] = 'sex':
-	cla
-	*clr
+	*clr & cla
 	'<center><img <<$set_imgh>> src="images/locations/city/centralpark/sex/event/event2.jpg"></center>'
 	bfa += 3
 	pose = 1
-	gs 'boyStat', $lover[lover_number]
 	'<center><img <<$set_imgh>> src="images/shared/sex/vag/doggy/dog.jpg"></center>'
 	'You remove your heels, pull down your pants, and shake your ass invitingly. <<$boydesc>> pushes you onto all fours, and abruptly enters you'
 	gs 'arousal', 'vaginal', 15, 'sub'
 	gs 'arousal', 'end'
 	gs 'stat'
-	act 'Complete walk':gt 'city_park', 'start'
+	act 'Complete walk': gt 'city_park', 'start'
 end
 
 if $ARGS[0] = 'dima':
-	cls
+	*clr & cla
 	gs 'stat'
 	'Seeing that you are interested, the man walks up to you.'
 	'He stands in front of you and asks politely:'
 	'"Hey girl. You look lonely there, maybe you can help me out."'
 
-	act 'Not interested':gt 'shop', 'start'
+	act 'Not interested': gt 'shop', 'start'
 
 	act 'Help him?':
 		cla
 		'"Help you how, exactly?" you ask.'
 		'"Well you see, my friend is visiting me and my wife, and you well, three''s a bit awkward. However, if you join us for a drink and a chat, it would be much more relaxed. I promise it won''t be boring.'
 
-		act 'No':gt 'shop', 'start'
+		act 'No': gt 'shop', 'start'
 
 		act 'Yes':
-			cla
-			*clr
+			*clr & cla
 			minut = minut + 60
 			'"Thanks, My name is Dmitry".'
 			'You hold out your hand to him - "<<$pcs_nickname>>".'
@@ -174,7 +163,7 @@ if $ARGS[0] = 'dima':
 end
 
 if $ARGS[0] = 'dima2':
-	cls
+	*clr & cla
 	gs 'stat'
 	'You drank one shot, then another, and so on, until you are a little tipsy. The men took turns to telling you entertaining stories, you had a lot of fun. The wife did not come of course, but you never thought to ask about it.'
 	'Dima turns on some music, and invites you to dance. Alexei protested, "You can''t dance with Dima and not me!"'
@@ -189,21 +178,21 @@ if $ARGS[0] = 'dima2':
 	gs 'arousal', 'foreplay', 5, 'sub', 'group'
 	minut -= 5
 	gs 'stat'
-	act 'Moan with pleasure':gt 'event', 'dima3'
+	act 'Moan with pleasure': gt 'event', 'dima3'
 end
 
 if $ARGS[0] = 'dima3':
-	cls
+	*clr & cla
 	minut += 10
 	gs 'stat'
 	'They take you to the bedroom. In an instant, your gallant gentlemen turn into animals, and you into a whore. This turns you on even more. In the bedroom stands a large bed, the men unzip their pants and take out their huge cocks.'
 	'"Go on start sucking, I see that you want it" says Alex.'
 
-	act 'Kneel down':gt 'event', 'dima4'
+	act 'Kneel down': gt 'event', 'dima4'
 end
 
 if $ARGS[0] = 'dima4':
-	cls
+	*clr & cla
 	guy += 2
 	pcs_throat += 1
 	'<center><img <<$set_imgh>> src="images/characters/city/dmitry/sex/dima.jpg"></center>'
@@ -218,11 +207,11 @@ if $ARGS[0] = 'dima4':
 	gs 'arousal', 'anal', 10, 'sub', 'group', 'rough'
 	minut -= 30
 	gs 'stat'
-	act 'Scream in pain':gt 'event', 'dima5'
+	act 'Scream in pain': gt 'event', 'dima5'
 end
 
 if $ARGS[0] = 'dima5':
-	cls
+	*clr & cla
 	pcs_throat += 1
 	pcs_ass += 1
 	spafinloc = 4
@@ -243,14 +232,12 @@ if $ARGS[0] = 'dima5':
 	gs 'arousal', 'anal', 10, 'sub', 'group', 'rough'
 	minut -= 10
 	gs 'stat'
-	act 'Lick':gt 'event', 'dima6'
+	act 'Lick': gt 'event', 'dima6'
 end
 
 if $ARGS[0] = 'dima6':
-	cls
-
-	if pcs_makeup > 1:pcs_makeup = 0
-
+	*clr & cla
+	if pcs_makeup > 1: pcs_makeup = 0
 	spafinloc = 12
 	gs 'cum_manage'
 	gs 'stat'
@@ -259,11 +246,11 @@ if $ARGS[0] = 'dima6':
 	'"Did you like how we fucked you?"'
 	gs 'arousal', 'bj', 10, 'sub'
 	gs 'stat'
-	act 'Very much':gt 'event', 'dima7'
+	act 'Very much': gt 'event', 'dima7'
 end
 
 if $ARGS[0] = 'dima7':
-	cls
+	*clr & cla
 	pcs_vag += 1
 	pcs_ass += 1
 	gs 'cum_manage'
@@ -286,11 +273,11 @@ if $ARGS[0] = 'dima7':
 	gs 'arousal', 'anal', 10, 'sub', 'group', 'rough'
 	minut -= 10
 	gs 'stat'
-	act 'No please... I''ll do whatever you want!':gt 'event', 'dima8'
+	act 'No please... I''ll do whatever you want!': gt 'event', 'dima8'
 end
 
 if $ARGS[0] = 'dima8':
-	cls
+	*clr & cla
 	spank += 1
 	minut += 5
 	gs 'stat'
@@ -300,34 +287,34 @@ if $ARGS[0] = 'dima8':
 	'He puts you doggy-style on the floor and starts beating your ass with the belt, you cry and beg him to stop. Ass burning with pain. Each hit getting more painful.'
 	'"Get up bitch!" he ties your hands with the belt, "suck my dick before bedtime."'
 	gs 'pain', 2, 'asscheeks', 'spank'
-	act 'Suck':gt 'event', 'dima9'
+	act 'Suck': gt 'event', 'dima9'
 end
 
 if $ARGS[0] = 'dima9':
-	cls
+	*clr & cla
 	pcs_throat += 1
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/characters/city/dmitry/sex/dima5.jpg"></center>'
 	'Alex holds your head and starts to fuck your mouth, it does not last very long. His dick is big and goes deep into your throat, he holds your hair. When he has finished, he ties you to a radiator and collapses on the sofa bed.'
 	gs 'arousal', 'bj', 5, 'sub', 'deepthroat', 'rough', 'bound'
 	gs 'stat'
-	act 'Cry from the beating':gt 'event', 'dima10'
+	act 'Cry from the beating': gt 'event', 'dima10'
 end
 
 if $ARGS[0] = 'dima10':
-	cls
+	*clr & cla
 	minut += 30
 	dimaQW = 2
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/characters/city/dmitry/sex/dima6.jpg"></center>'
 	'You are tied to the radiator weeping uncontrolably. Your ass is on fire after the whipping. The drunken men have gine to bed. Finally you hear them snoring loudly.'
 
-	act 'Struggle free and escape':gt 'city_residential'
-	act 'Fall asleep':gt 'event', 'dima11'
+	act 'Struggle free and escape': gt 'city_residential'
+	act 'Fall asleep': gt 'event', 'dima11'
 end
 
 if $ARGS[0] = 'dima11':
-	cls
+	*clr & cla
 	minut += 480
 	datster = 1
 	gs 'stat'
@@ -336,11 +323,11 @@ if $ARGS[0] = 'dima11':
 	'"I bet you''re hungy", you recognize Dimas'' voice, "Breakfast must be earned!"'
 	gs 'arousal', 'bj', 10, 'sub', 'deepthroat', 'rough', 'bound'
 	gs 'stat'
-	act 'Suck':gt 'event', 'dima12'
+	act 'Suck': gt 'event', 'dima12'
 end
 
 if $ARGS[0] = 'dima12':
-	cls
+	*clr & cla
 	pcs_throat += 1
 	gs 'cum_call', 'mouth_swallow', $boy, 1
 	gs 'stat'
@@ -350,13 +337,13 @@ if $ARGS[0] = 'dima12':
 	gs 'arousal', 'foreplay', 10, 'sub'
 	minut -= 10
 	gs 'stat'
-	act 'Grudgingly comply':gt 'event', 'dima13'
-	act 'Enthusiastically lick his balls':gt 'event', 'dima14'
-	act 'Bite his balls':gt 'event', 'dima31'
+	act 'Grudgingly comply': gt 'event', 'dima13'
+	act 'Enthusiastically lick his balls': gt 'event', 'dima14'
+	act 'Bite his balls': gt 'event', 'dima31'
 end
 
 if $ARGS[0] = 'dima13':
-	cls
+	*clr & cla
 	minut += 5
 	balls += 1
 	gs 'stat'
@@ -364,22 +351,21 @@ if $ARGS[0] = 'dima13':
 	'You lick and suck his shaven balls, but he doesn''t seem to like it. After a couple of minutes, he slaps you and says:'
 	'"What the fuck? I''m going to have to teach you some obedience!"'
 
-	act 'Look down':gt 'event', 'dima39'
+	act 'Look down': gt 'event', 'dima39'
 end
 
 if $ARGS[0] = 'dima14':
-	*clr
-	cla
+	*clr & cla
 	'<center><img <<$set_imgh>> src="images/characters/city/dmitry/sex/dima9.jpg"></center>'
 	'You remember having seen this done in a porno, and try to emulate. Your tongue and lips lick and kiss every millimeter, moistening the tender skin. Then a smooth transition to his cock which you swallow whole, he immediately pushes against your head and rapidly fucks your throat again, without releasing, until his cock starts convulse'
 	gs 'arousal', 'bj', 10, 'sub', 'group', 'deepthroat', 'rough', 'bound'
 	gs 'cum_call', 'mouth_swallow', $boy, 1
 	gs 'stat'
-	act 'Swallow':gt 'event', 'dima15'
+	act 'Swallow': gt 'event', 'dima15'
 end
 
 if $ARGS[0] = 'dima15':
-	cls
+	*clr & cla
 	minut += 10
 	runrnd = rand(0, 10)
 
@@ -395,11 +381,11 @@ if $ARGS[0] = 'dima15':
 		end
 	end
 
-	act 'Go to the bathroom':gt 'event', 'dima16'
+	act 'Go to the bathroom': gt 'event', 'dima16'
 end
 
 if $ARGS[0] = 'dima16':
-	cls
+	*clr & cla
 	minut += 30
 	lobkoef = 3
 	cumspclnt = 20
@@ -408,12 +394,12 @@ if $ARGS[0] = 'dima16':
 	'<center><img <<$set_imgh>> src="images/characters/city/dmitry/sex/dima6.jpg"></center>'
 	'You convolse as you find a mesh bodysuit in the parcel. In the bathroom, you wash off the thick layer of sperm and shave as needed, then apply makeup.'
 
-	act 'Wear bodysuit':gt 'event', 'dima19'
-	act 'Don''t wear bodysuit':gt 'event', 'dima17'
+	act 'Wear bodysuit': gt 'event', 'dima19'
+	act 'Don''t wear bodysuit': gt 'event', 'dima17'
 end
 
 if $ARGS[0] = 'dima17':
-	cls
+	*clr & cla
 	runrnd = rand(0, 10)
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/characters/city/dmitry/sex/dima6.jpg"></center>'
@@ -429,35 +415,33 @@ if $ARGS[0] = 'dima17':
 end
 
 if $ARGS[0] = 'dima18':
-	cls
+	*clr & cla
 	minut += 30
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/characters/city/dmitry/sex/dima6.jpg"></center>'
 	'"Oh, we have a defiant bitch! You think you can do what you want? Fuck! You''re nobody here, and you will do what you are told! You like to go naked in public? Great! We''ll help you!" With these words something is sprayed in your face, and you passed out.'
 
-	act 'Fall asleep':gt 'event', 'dima49'
+	act 'Fall asleep': gt 'event', 'dima49'
 end
 
 if $ARGS[0] = 'dima19':
-	clr
+	*clr & cla
 	gs 'stat'
 	'Subdued and in shock, you have lost any desire to stand up to these men'
 
-	act 'Go to them':gt 'event', 'dima20'
+	act 'Go to them': gt 'event', 'dima20'
 end
 
 if $ARGS[0] = 'dima20':
-	cls
+	*clr & cla
 	gs 'stat'
 	'"Well done, bitch. Now that you are well trained, time for your reward"'
 
-	act 'Obey the men unreservedly':gt 'event', 'dima21'
+	act 'Obey the men unreservedly': gt 'event', 'dima21'
 end
 
 if $ARGS[0] = 'dima21':
-	cla
-	clr
-	*clr
+	*clr & cla
 	dimaQW = 2
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/characters/city/dmitry/sex/dima3.jpg"></center>'
@@ -469,7 +453,7 @@ if $ARGS[0] = 'dima21':
 	minut -= 80
 	gs 'arousal', 'end'
 	gs 'stat'
-	act 'Leave':gt 'city_residential'
+	act 'Leave': gt 'city_residential'
 end
 
 if $ARGS[0] = 'dima30':
@@ -479,7 +463,7 @@ if $ARGS[0] = 'dima30':
 	gs 'stat'
 	'I confess, I am a sinner, a writer from me worthless, and all my dark little thoughts went to the recent arrival of women. If there are interesting ideas/scenarios to continue - fling in a personal, zabubenyu'
 
-	act 'Leave':gt 'city_residential'
+	act 'Leave': gt 'city_residential'
 end
 
 if $ARGS[0] = 'dima31':
@@ -492,13 +476,11 @@ if $ARGS[0] = 'dima31':
 	'"Bitch, you think you can get away with that?!"'
 	'You feel a strong blow to your face and lose consciousness.'
 
-	act 'Wake up':gt 'event', 'dima32'
+	act 'Wake up': gt 'event', 'dima32'
 end
 
 if $ARGS[0] = 'dima32':
-	cla
-	clr
-	*clr
+	*clr & cla
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/locations/city/residential/street/sex/10028_tommypistoljacquelineblacklady_180.jpg"></center>'
 	'You wake up to a bright light, making you squint. Your mouth is dry. What is stopping you from shuting your mouth? Your body aches.'
@@ -508,7 +490,7 @@ if $ARGS[0] = 'dima32':
 	'With these words, Alex puts you on your knees in front of him, he pulls out his penis and puts it in your mouth.'
 	gs 'arousal', 'bj', 10, 'sub'
 	gs 'stat'
-	act 'Resist':gt 'event', 'dima33'
+	act 'Resist': gt 'event', 'dima33'
 	gs 'willpower', 'misc', 'self', 'medium'
 	if will_cost <= pcs_willpwr:
 		act 'Kick (<<will_cost>> Willpower)':
@@ -522,9 +504,7 @@ if $ARGS[0] = 'dima32':
 	end
 end
 if $ARGS[0] = 'dima33':
-	cla
-	clr
-	*clr
+	*clr & cla
 	pcs_throat += 1
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/locations/city/residential/street/sex/10028_tommypistoljacquelineblacklady_183.jpg"></center>'
@@ -533,13 +513,11 @@ if $ARGS[0] = 'dima33':
 	'"Oh, are you enjoying safe sex? Come on, don''t stop!"'
 	gs 'arousal', 'bj', 10, 'sub', 'deepthroat'
 	gs 'stat'
-	act 'Continue to please':gt 'event', 'dima38'
-	act 'Stop tongue movement':gt 'event', 'dima34'
+	act 'Continue to please': gt 'event', 'dima38'
+	act 'Stop tongue movement': gt 'event', 'dima34'
 end
 if $ARGS[0] = 'dima34':
-	cla
-	clr
-	*clr
+	*clr & cla
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/locations/city/residential/street/sex/10028_tommypistoljacquelineblacklady_187.jpg"></center>'
 	'Alex realizes, you''re not going to continue humoring him:'
@@ -548,16 +526,14 @@ if $ARGS[0] = 'dima34':
 	'You are trapped in an empty underground passage. Alex takes the gag out of your mouth, and you''re finally able to close it.'
 	'As you start to get some feeling back in your jaw, he blindfolds you, turns you around and bends you over.'
 
-	act 'stand still':gt 'event', 'dima35'
+	act 'stand still': gt 'event', 'dima35'
 end
 if $ARGS[0] = 'dima35':
-	cla
-	clr
-	*clr
+	*clr & cla
 	pcs_vag += 1
 	rape += 1
 	spafinloc = 11
-gs 'cum_manage'
+	gs 'cum_manage'
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/locations/city/residential/street/sex/10028_tommypistoljacquelineblacklady_301.jpg"></center>'
 	'<center><img <<$set_imgh>> src="images/locations/city/residential/street/sex/10028_tommypistoljacquelineblacklady_301.jpg"></center>'
@@ -568,25 +544,21 @@ gs 'cum_manage'
 	$orgasm_or = 'yes'
 	gs 'arousal', 'vaginal', 30, 'sub', 'rough', 'bound'
 	gs 'stat'
-	act 'Recover':gt 'event', 'dima36'
+	act 'Recover': gt 'event', 'dima36'
 end
 
 if $ARGS[0] = 'dima36':
-	cla
-	clr
-	*clr
+	*clr & cla
 	minut += 5
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/locations/city/residential/street/sex/10028_tommypistoljacquelineblacklady_352.jpg"></center>'
 	'After sitting in this position for a few minutes, you start to free your hands. Once they''re loose, you tear off the blindfold, and wipe as much of the sperm of your face as is possible.'
 	'Looking around, you find the box Alex had put your stuff it. You get dressed and find a passage that leads to the street above.'
 
-	act 'Leave':gt 'city_residential'
+	act 'Leave': gt 'city_residential'
 end
 if $ARGS[0] = 'dima37':
-	cla
-	clr
-	*clr
+	*clr & cla
 	minut += 30
 	money = 0
 	gs 'stat'
@@ -597,10 +569,10 @@ if $ARGS[0] = 'dima37':
 	'Your dress is trampled and torn in places, but still able to cover your body. You are lost, but after a while find the supermarket, where you met Dima.'
 	'Only then do you realize Alex took all your money.'
 
-	act 'Relax':gt 'city_residential'
+	act 'Relax': gt 'city_residential'
 end
 if $ARGS[0] = 'dima38':
-	cls
+	*clr & cla
 	spafinloc = 12
 	gs 'cum_manage'
 	pcs_throat += 1
@@ -615,22 +587,22 @@ if $ARGS[0] = 'dima38':
 	gs 'arousal', 'bj', 10, 'sub', 'deepthroat', 'rough', 'bound'
 	gs 'arousal', 'end'
 	gs 'stat'
-	act 'Leave':gt 'city_residential'
+	act 'Leave': gt 'city_residential'
 end
 
 if $ARGS[0] = 'dima39':
-	cls
+	*clr & cla
 	minut += 30
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/locations/city/residential/street/sex/13606_zenzaragginikisweet085.jpg"></center>'
 	'Alex dresses you, sticks a gag in your mouth and binds your hands. Then he leads you from the apartment, and onto a bus going to the center. It is surprisingly empty.'
 	'"I noticed you didn''t try to escape last night, so I''m thinking, maybe you simply didn''t get enough sex? Don''t worry I''ll fix that mistake.'
 
-	act 'Smile seductively':gt 'event', 'dima40'
-	act 'Try to get away':gt 'event', 'dima45'
+	act 'Smile seductively': gt 'event', 'dima40'
+	act 'Try to get away': gt 'event', 'dima45'
 end
 if $ARGS[0] = 'dima40':
-	cls
+	*clr & cla
 	pcs_vag += 2
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/locations/city/residential/street/sex/13606_zenzaragginikisweet113.jpg"></center>'
@@ -638,11 +610,11 @@ if $ARGS[0] = 'dima40':
 	'You begin to move rhythmically, but the bus keeps bouncing around, adding new sensations.'
 	gs 'arousal', 'vaginal', 10, 'sub', 'exhibitionism'
 	gs 'stat'
-	act 'Change position':gt 'event', 'dima41'
+	act 'Change position': gt 'event', 'dima41'
 end
 
 if $ARGS[0] = 'dima41':
-	cls
+	*clr & cla
 	minut += 30
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/locations/city/residential/street/sex/13606_zenzaragginikisweet154.jpg"></center>'
@@ -653,11 +625,11 @@ if $ARGS[0] = 'dima41':
 	'Soon you find a small clearing in the park.'
 	'"Time to show me that you can do even better than this morning!"'
 
-	act 'Kneel down':gt 'event', 'dima42'
+	act 'Kneel down': gt 'event', 'dima42'
 end
 
 if $ARGS[0] = 'dima42':
-	cls
+	*clr & cla
 	spafinloc = 12
 	gs 'cum_manage'
 	pcs_throat += 1
@@ -672,12 +644,12 @@ if $ARGS[0] = 'dima42':
 	'"I''ll be gone for a couple of hours, when I get back, I''ll bring your stuff. You just sit here and show off your skills, like a good little girl!"'
 	gs 'arousal', 'bj', 10, 'sub', 'deepthroat', 'bound'
 	gs 'stat'
-	act 'Wait for his return':gt 'event', 'dima43'
-	act 'Leave':gt 'event', 'dima44'
+	act 'Wait for his return': gt 'event', 'dima43'
+	act 'Leave': gt 'event', 'dima44'
 end
 
 if $ARGS[0] = 'dima43':
-	cls
+	*clr & cla
 	minut += 50
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/locations/city/residential/street/sex/13606_zenzaragginikisweet263.jpg"></center>'
@@ -687,10 +659,10 @@ if $ARGS[0] = 'dima43':
 	'When Alex returns, he unties you, and hands you your stuff. He says that he was sorry he has to leave and would be very happy for another "rendezvous" with you.'
 	'You dress, Take your things and hurriedly leave him.'
 
-	act 'Go to the yard':gt 'city_residential'
+	act 'Go to the yard': gt 'city_residential'
 end
 if $ARGS[0] = 'dima44':
-	cls
+	*clr & cla
 	minut += 5
 	money = 0
 	gs 'stat'
@@ -699,10 +671,10 @@ if $ARGS[0] = 'dima44':
 	'Unfortunately he took your money. You find a sharpened stone, and when your hands are free, you carefully wipe the semen from your face.'
 	'You are lost, but after a while manage to find yourself the supermarket where you met Dimitry.'
 
-	act 'Relax':gt 'city_residential'
+	act 'Relax': gt 'city_residential'
 end
 if $ARGS[0] = 'dima45':
-	cls
+	*clr & cla
 	minut += 30
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/locations/city/residential/street/sex/13606_zenzaragginikisweet084.jpg"></center>'
@@ -711,11 +683,11 @@ if $ARGS[0] = 'dima45':
 	'"Hello there", A girl greets you. She unceremoniously grabs you and takes to a back room. There she undresses you.'
 	'"Follow me", the girl leads you to the stairs.'
 
-	act 'Go to the basement':gt 'event', 'dima46'
+	act 'Go to the basement': gt 'event', 'dima46'
 end
 
 if $ARGS[0] = 'dima46':
-	cls
+	*clr & cla
 	pcs_throat += 1
 	gs 'npcgeneratec', 0, 'gloryhole stranger', rand(19,45)
 	gs 'boyStat', $npclastgenerated
@@ -731,12 +703,12 @@ if $ARGS[0] = 'dima46':
 	'"Your companion has been paid for a certain number of customers. Do you think you can manage, or do you need my help?'
 	gs 'arousal', 'bj', 5, 'sub', 'prostitution', 'unknown'
 	gs 'stat'
-	act 'Agree to suck':gt 'event', 'dima47'
-	act 'Two of you would make it easier':gt 'event', 'dima48'
+	act 'Agree to suck': gt 'event', 'dima47'
+	act 'Two of you would make it easier': gt 'event', 'dima48'
 end
 
 if $ARGS[0] = 'dima47':
-	cls
+	*clr & cla
 	pcs_throat += 5
 	dimagh_counter = 0
 	:gloryhole1
@@ -769,11 +741,11 @@ if $ARGS[0] = 'dima47':
 	gs 'arousal', 'end'
 	gs 'stat'
 	killvar 'dimagh_counter'
-	act 'Get Outside' :gt 'city_industrial'
+	act 'Get Outside' : gt 'city_industrial'
 end
 
 if $ARGS[0] = 'dima48':
-	cls
+	*clr & cla
 	pcs_throat += 5
 	dimagh_counter = 0
 	:gloryhole2
@@ -795,11 +767,11 @@ if $ARGS[0] = 'dima48':
 	gs 'arousal', 'end'
 	gs 'stat'
 	killvar 'dimagh_counter'
-	act 'Get Outside' :gt 'city_industrial'
+	act 'Get Outside' : gt 'city_industrial'
 end
 
 if $ARGS[0] = 'dima49':
-	cls
+	*clr & cla
 	minut += 50
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/locations/city/residential/street/sex/10022_paristommy_021.jpg"></center>'
@@ -808,11 +780,11 @@ if $ARGS[0] = 'dima49':
 	'Suddenly you notice, a man standing in front of you.'
 	'"Do you need help?" He asks'
 
-	act 'Nod':gt 'event', 'dima50'
+	act 'Nod': gt 'event', 'dima50'
 end
 
 if $ARGS[0] = 'dima50':
-	cls
+	*clr & cla
 	minut += 30
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/locations/city/residential/street/sex/10022_paristommy_028.jpg"></center>'
@@ -821,17 +793,17 @@ if $ARGS[0] = 'dima50':
 	'When you''re there, the guy asks,:'
 	'"Will you reward your savior?"'
 
-	act 'Suck':gt 'event', 'dima51'
+	act 'Suck': gt 'event', 'dima51'
 
 	if pcs_agil < 50:
-		act 'Dismiss':gt 'event', 'dima52'
+		act 'Dismiss': gt 'event', 'dima52'
 	else
-		act 'Dismiss':gt 'event', 'dima53'
+		act 'Dismiss': gt 'event', 'dima53'
 	end
 end
 
 if $ARGS[0] = 'dima51':
-	cls
+	*clr & cla
 	pcs_throat += 1
 	gs 'cum_call', 'mouth_swallow', $boy, 1
 	spafinloc = 11
@@ -842,11 +814,11 @@ if $ARGS[0] = 'dima51':
 	gs 'arousal', 'bj', 5, 'sub', 'unknown'
 	gs 'arousal', 'end'
 	gs 'stat'
-	act 'Freshen up' :gt 'city_industrial'
+	act 'Freshen up' : gt 'city_industrial'
 end
 
 if $ARGS[0] = 'dima52':
-	cls
+	*clr & cla
 	pcs_throat += 2
 	gs 'npcgeneratec', 0, 'stranger', rand(19,45)
 	gs 'boyStat', $npclastgenerated
@@ -866,75 +838,75 @@ if $ARGS[0] = 'dima52':
 	gs 'arousal', 'bj', 20, 'group','sub'
 	gs 'arousal', 'end'
 	gs 'stat'
-	act 'Relax':gt 'city_residential'
+	act 'Relax': gt 'city_residential'
 end
 
 
 if $ARGS[0] = 'dima53':
-	cls
+	*clr & cla
 	minut += 30
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="<<FUNC(''$clothing_image'', $clothingworntype, clothingwornnumber)>>"></center>'
 	'Enraged by your refusal, man pushes you, but you stand firm. Realizing that you''re not to be messed with, he runs away.'
 	'You sort out you clothing and dress yourself in the outfit you were wearing when this all started.'
 
-	act 'Freshen up' :gt 'city_industrial'
+	act 'Freshen up' : gt 'city_industrial'
 end
 
 if $ARGS[0] = 'scoreslut1':
-	cls
+	*clr & cla
 	minut += 30
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/characters/city/dmitry/sex/dima6.jpg"></center>'
 	'You wake up, hands tied to the radiator. From the sofa Dima looks at you expectantly.'
 
-	act 'Frightened look':gt 'event', 'scoreslut2'
-	act 'Trying to escape':gt 'event', 'scoreslut3'
+	act 'Frightened look': gt 'event', 'scoreslut2'
+	act 'Trying to escape': gt 'event', 'scoreslut3'
 end
 
 if $ARGS[0] = 'scoreslut2':
-	cls
+	*clr & cla
 	minut += 5
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/characters/city/dmitry/sex/dima6.jpg"></center>'
 	'"You awake, bitch? Want to go home?"'
 
-	act 'Frightened look':gt 'event', 'dima30'
+	act 'Frightened look': gt 'event', 'dima30'
 end
 
 if $ARGS[0] = 'scoreslut3':
-	cls
+	*clr & cla
 	minut += 5
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/characters/city/dmitry/sex/dima6.jpg"></center>'
 	'"I don''t think so, bitch"'
 
-	act 'Frightened look':gt 'event', 'dima30'
+	act 'Frightened look': gt 'event', 'dima30'
 end
 
 if $ARGS[0] = 'lesbi':
-	cls
+	*clr & cla
 	minut += 5
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/characters/city/natalya/lesbi.jpg"></center>'
 	'The woman stares at you, you catch her eye. She looks you up and down, smiles and licks her lips.'
 
-	act 'Turn away':gt 'shop_moncheri', 'start'
-	act 'Get acquainted':gt 'event', 'lesbi1'
+	act 'Turn away': gt 'shop_moncheri', 'start'
+	act 'Get acquainted': gt 'event', 'lesbi1'
 end
 
 if $ARGS[0] = 'lesbi1':
-	cls
+	*clr & cla
 	minut += 5
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/characters/city/natalya/lesbi.jpg"></center>'
 	'You go to the woman. She looks at you with a twinkle in her eye "I am Natalya Petrovna, here''s my card, maybe you would let me take you somewhere interesting?"'
     'The woman is very confident and it makes it hard for you to think clearly.'
-	act 'Paris?':gt 'event', 'lesbi2'
+	act 'Paris?': gt 'event', 'lesbi2'
 end
 
 if $ARGS[0] = 'lesbi2':
-	cls
+	*clr & cla
 	minut += 5
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/characters/city/natalya/lesbi.jpg"></center>'
@@ -944,11 +916,11 @@ if $ARGS[0] = 'lesbi2':
 	if lesbian > 0:'No... no, I haven''t - You mumble. I''ve been with girls, but not like that...'
 	if lesbian = 0:'No... no, I haven''t - You mumble. I''ve never been with a girl to try such a thing...'
 
-	act 'Ask to learn':gt 'event', 'lesbi3'
+	act 'Ask to learn': gt 'event', 'lesbi3'
 end
 
 if $ARGS[0] = 'lesbi3':
-	cls
+	*clr & cla
 	minut += 5
 	lesbiQW = 1
 	gs 'stat'
@@ -959,7 +931,7 @@ if $ARGS[0] = 'lesbi3':
 	'"Teach?" She asked in surprise. "Teach... hmm... I think I might be able to help you!" The lady says with a grin. "Come visit me at my apartment."'
 	'You read the card and see that see lives in the city residential area, looking up again, Natalya is walking out of the boutique with a graceful and confident gait.'
 
-	act 'Leave':gt 'shop_moncheri', 'start'
+	act 'Leave': gt 'shop_moncheri', 'start'
 end
 
 --- event ---------------------------------

locations/flash.qsrc

@@ -28,12 +28,8 @@
 !!	There is no continue action so you must add this as required
 !!	You should add checks for underwear before allowing the player to flash them but a non-event contingency is included
 
-if $ARGS[0] = 'panties': $ARGS[0] = 'panty'
-if $ARGS[0] = 'panties_rear': $ARGS[0] = 'pantyrear'
-if $ARGS[0] = 'butt' and analplugin = 1: $ARGS[0] = 'butt_plug'
 
-
-if $ARGS[0] = 'get_image' and $flash_image = '' and $flash_video = '':
+if $ARGS[0] = 'get_image':
 	flashVars['dress_ind_bra'] = 3
 	flashVars['dress_ind_tits'] = 12
 	flashVars['dress_ind_panty'] = 4
@@ -77,49 +73,73 @@ if $ARGS[0] = 'get_image' and $flash_image = '' and $flash_video = '':
 	flashVars['pants_out_full_hairy'] = 6
 
 
+	$flashVars['image'] = 'images/pc/activities/flashing/'
 	$flash_image = 'images/pc/activities/flashing/'
 	$temp_id_text = ''
 
 	if PCloSkirt > 0:
 		$temp_id_text += 'dress_'
-		$flash_image += 'dress/'
+		$flashVars['image'] += 'dress/'
 	else
 		$temp_id_text += 'pants_'
-		$flash_image += 'pants/'
+		$flashVars['image'] += 'pants/'
 	end
 	if $ARGS[2] = 'inside' or $ARGS[2] = 'indoors':
 		$temp_id_text += 'ind_'
-		$flash_image += 'inside/'
+		$flashVars['image'] += 'inside/'
 	else
 		$temp_id_text += 'out_'
-		$flash_image += 'outside/'
+		$flashVars['image'] += 'outside/'
 	end
 	$temp_id_text += $ARGS[1]
-	$flash_image += $ARGS[1]
-	$flash_image += '/'
+	$flashVars['image'] += $ARGS[1]
+	$flashVars['image'] += '/'
 
 	if ($ARGS[1] = 'pussy' or $ARGS[1] = 'full') and pcs_pubes > 20:
 		$temp_id_text += '_hairy'
-		$flash_image += 'hairy'
+		$flashVars['image'] += 'hairy'
 	end
 
 	flashVars['rand'] = rand(1, flashVars[$temp_id_text])
-	$flash_image += str(flashVars['rand']) + '.jpg'
-
-	$flashVars['image'] = $flash_image
+	$flashVars['image'] += str(flashVars['rand']) + '.jpg'
 
 	killvar 'temp_id_text'
 end
 
 
 if $ARGS[0] = 'display_image':
-	if $flash_video = '':
-		'<center><img <<$set_imgh>> src="<<$flash_image>>"></center>'
-	else
+	if $flash_video ! '':
 		'<center><video autoplay loop src="<<$flash_video>>"></video></center>'
+	elseif $flash_image ! '':
+		'<center><img <<$set_imgh>> src="<<$flash_image>>"></center>'
 	end
 end
 
+! $ARGS[1] = 'type' (bra)
+! $ARGS[2] = 'location'
+! $ARGS[3] = 'arousal type' (flashlite vs flash)
+!  ARGS[4] = time
+!  ARGS[5] = option
+if $ARGS[0] = 'generate_output':
+	if ARGS[5] < 1:
+		*clr
+		$flash_text[0] = $flashVars['text_before']
+		$flash_text[1] = $flashVars['text_after']
+	end
+
+	if ARGS[5] ! 1:
+		if $flash_image = '': $flash_image = $flashVars['image']
+		gs 'flash', 'display_image'
+	end
+
+	if $flash_text[0] ! '': '<<$flash_text[0]>>'
+	gs 'arousal', $ARGS[3], ARGS[4]
+	if ARGS[5] ! 1: gs 'flash', 'events', $ARGS[1], $ARGS[2], ARGS[4], ARGS[5]
+	if $flash_text[1] ! '': '<<$flash_text[1]>>'
+
+	gs 'arousal', 'end'
+	gs 'flash', 'cleanup', ARGS[5]
+end
 
 
 
@@ -130,166 +150,83 @@ end
 	!!=========================================================!!
 
 
+! $ARGS[0] = 'type' (bra)
+! $ARGS[1] = 'location'
+!  ARGS[2] = time
+!  ARGS[3] = option
 if $ARGS[0] = 'bra':
 	if Exhibitionist_lvl < 1 or pcs_inhib < 40: gs 'flash', 'exhibitionism', 1
 
-	$flashVars['text_before'] = 'You glance around to see who  is in the area, then you pull up your top and expose your bra clad breasts to the world. Most people don''t notice but a few do, some smile, others frown or shake their head in disgust.'
+	$flashVars['text_before'] = 'You glance around to see who is in the area, then you pull up your top and expose your bra clad breasts to the world. Most people don''t notice but a few do, some smile, others frown or shake their head in disgust.'
 	$flashVars['text_after'] = 'You pull your top back down, feeling the thrill of excitement running down your spine.'
+	gs 'flash', 'get_image', 'bra', $ARGS[1]
 
-	if ARGS[3] < 1:
-		*clr
-		$flash_text[0] = $flashVars['text_before']
-		$flash_text[1] = $flashVars['text_after']
-	end
-
-	gs 'flash', 'get_image', $ARGS[0], $ARGS[1]
-	if ARGS[4] ! 1: gs 'flash', 'display_image'
-
-	if $flash_text[0] ! '': '<<$flash_text[0]>>'
-	gs 'arousal', 'flashlite', ARGS[2]
-	if ARGS[4] ! 1: gs 'flash', 'events', $ARGS[1], $ARGS[2], ARGS[3], ARGS[4]
-	if $flash_text[1] ! '': '<<$flash_text[1]>>'
-	gs 'arousal', 'end'
-
-	gs 'flash', 'cleanup', ARGS[3]
+	gs 'flash', 'generate_output', 'bra', $ARGS[1], 'flashlite', ARGS[2], ARGS[3]
 end
 
 if $ARGS[0] = 'tits':
 	gs 'flash', 'exhibitionism', 1
 
-	$flashVars['text_before'] = 'You glance around to see who  is in the area, then you pull up your top and expose your bare breasts to the world. Most people don''t notice but a few do, some smile, others frown or shake their head in disgust.'
-	$flashVars['text_before'] = 'You pull your top back down, feeling the thrill of excitement running down your spine.'
-
-	if ARGS[3] < 1:
-		$flash_text[0] = $flashVars['text_before']
-		$flash_text[1] = $flashVars['text_after']
-	end
-
-	gs 'flash', 'get_image', $ARGS[0], $ARGS[1]
-	if ARGS[4] ! 1: gs 'flash', 'display_image'
-
-	if $flash_text[0] ! '': '<<$flash_text[0]>>'
-	gs 'arousal', 'flashlite', ARGS[2]
-	if ARGS[4] ! 1: gs 'flash', 'events', $ARGS[1], $ARGS[2], ARGS[3], ARGS[4]
-	if $flash_text[1] ! '': '<<$flash_text[1]>>'
-	gs 'arousal', 'end'
+	$flashVars['text_before'] = 'You glance around to see who is in the area, then you pull up your top and expose your bare breasts to the world. Most people don''t notice but a few do, some smile, others frown or shake their head in disgust.'
+	$flashVars['text_after'] = 'You pull your top back down, feeling the thrill of excitement running down your spine.'
+	gs 'flash', 'get_image', 'tits', $ARGS[1]
 
-	gs 'flash', 'cleanup', ARGS[3]
+	gs 'flash', 'generate_output', 'tits', $ARGS[1], 'flash', ARGS[2], ARGS[3]
 end
 
 if $ARGS[0] = 'panty' or $ARGS[0] = 'panties':
 	gs 'flash', 'exhibitionism', 2
 
-	$flashVars['text_before'] = 'You glance around to see who  is in the area, then you ' + iif(PCloSkirt > 0, 'lift the front of your skirt', 'pull down the front of your pants') + ' to show off your panties. Most people don''t notice but a few do, some smile, others frown or shake their head in disgust.'
-	$flashVars['text_before'] = 'You ' + iif(PCloSkirt > 0, 'lower the skirt back in place', 'pull your pants back up') + ', feeling the thrill of excitement running down your spine.'
-
-	if ARGS[3] < 1:
-		$flash_text[0] = $flashVars['text_before']
-		$flash_text[1] = $flashVars['text_after']
-	end
-
-	gs 'flash', 'get_image', $ARGS[0], $ARGS[1]
-	if ARGS[4] ! 1: gs 'flash', 'display_image'
-
-	if $flash_text[0] ! '': '<<$flash_text[0]>>'
-	gs 'arousal', 'flash', ARGS[2]
-	if ARGS[4] ! 1: gs 'flash', 'events', $ARGS[1], $ARGS[2], ARGS[3], ARGS[4]
-	if $flash_text[1] ! '': '<<$flash_text[1]>>'
-	gs 'arousal', 'end'
+	$flashVars['text_before'] = 'You glance around to see who is in the area, then you ' + iif(PCloSkirt > 0, 'lift the front of your skirt', 'pull down the front of your pants') + ' to show off your panties. Most people don''t notice but a few do, some smile, others frown or shake their head in disgust.'
+	$flashVars['text_after'] = 'You ' + iif(PCloSkirt > 0, 'lower the skirt back in place', 'pull your pants back up') + ', feeling the thrill of excitement running down your spine.'
+	gs 'flash', 'get_image', 'panty', $ARGS[1]
 
-	gs 'flash', 'cleanup', ARGS[3]
+	gs 'flash', 'generate_output', 'panty', $ARGS[1], 'flash', ARGS[2], ARGS[3]
 end
 
 if $ARGS[0] = 'pantyrear' or $ARGS[0] = 'panties_rear':
 	gs 'flash', 'exhibitionism', 2
 
-	$flashVars['text_before'] = 'You glance around to see who  is in the area, then you pull ' + iif(PCloSkirt > 0, 'up your skirt', 'down the back of your pants') + ' to show off your panty-clad butt. Most people don''t notice but a few do, some smile, others frown or shake their head in disgust.'
-	$flashVars['text_before'] = 'You ' + iif(PCloSkirt > 0, 'lower the skirt back in place', 'pull your pants back up') + ', feeling the thrill of excitement running down your spine.'
+	$flashVars['text_before'] = 'You glance around to see who is in the area, then you pull ' + iif(PCloSkirt > 0, 'up your skirt', 'down the back of your pants') + ' to show off your panty-clad butt. Most people don''t notice but a few do, some smile, others frown or shake their head in disgust.'
+	$flashVars['text_after'] = 'You ' + iif(PCloSkirt > 0, 'lower the skirt back in place', 'pull your pants back up') + ', feeling the thrill of excitement running down your spine.'
+	gs 'flash', 'get_image', 'pantyrear', $ARGS[1]
 
-	if ARGS[3] < 1:
-		$flash_text[0] = $flashVars['text_before']
-		$flash_text[1] = $flashVars['text_after']
-	end
-
-	gs 'flash', 'get_image', $ARGS[0], $ARGS[1]
-	if ARGS[4] ! 1: gs 'flash', 'display_image'
-
-	if $flash_text[0] ! '': '<<$flash_text[0]>>'
-	gs 'arousal', 'flash', ARGS[2]
-	if ARGS[4] ! 1: gs 'flash', 'events', $ARGS[1], $ARGS[2], ARGS[3], ARGS[4]
-	if $flash_text[1] ! '': '<<$flash_text[1]>>'
-	gs 'arousal', 'end'
-
-	gs 'flash', 'cleanup', ARGS[3]
+	gs 'flash', 'generate_output', 'pantyrear', $ARGS[1], 'flash', ARGS[2], ARGS[3]
 end
 
 if $ARGS[0] = 'butt' or $ARGS[0] = 'butt_plug':
 	gs 'flash', 'exhibitionism', 2
 
-	$flashVars['text_before'] = 'You glance around to see who  is in the area, then you pull ' + iif(PCloSkirt > 0, 'up the back of your skirt', 'down the back of your pants') + ' to show off your butt. Most people don''t notice but a few do, some smile, others frown or shake their head in disgust.'
-	$flashVars['text_before'] = 'You ' + iif(PCloSkirt > 0, 'lower the skirt back in place', 'pull your pants back up') + ', feeling the thrill of excitement running down your spine.'
+	$flashVars['text_before'] = 'You glance around to see who is in the area, then you pull ' + iif(PCloSkirt > 0, 'up the back of your skirt', 'down the back of your pants') + ' to show off your butt. Most people don''t notice but a few do, some smile, others frown or shake their head in disgust.'
+	$flashVars['text_after'] = 'You ' + iif(PCloSkirt > 0, 'lower the skirt back in place', 'pull your pants back up') + ', feeling the thrill of excitement running down your spine.'
 
-	if ARGS[3] < 1:
-		$flash_text[0] = $flashVars['text_before']
-		$flash_text[1] = $flashVars['text_after']
+	if analplugin = 0:
+		gs 'flash', 'get_image', 'butt', $ARGS[1]
+		gs 'flash', 'generate_output', 'butt', $ARGS[1], 'flash', ARGS[2], ARGS[3]
+	else
+		gs 'flash', 'get_image', 'butt_plug', $ARGS[1]
+		gs 'flash', 'generate_output', 'butt_plug', $ARGS[1], 'flash', ARGS[2], ARGS[3]
 	end
-
-	gs 'flash', 'get_image', $ARGS[0], $ARGS[1]
-	if ARGS[4] ! 1: gs 'flash', 'display_image'
-
-	if $flash_text[0] ! '': '<<$flash_text[0]>>'
-	gs 'arousal', 'flash', ARGS[2]
-	if ARGS[4] ! 1: gs 'flash', 'events', $ARGS[1], $ARGS[2], ARGS[3], ARGS[4]
-	if $flash_text[1] ! '': '<<$flash_text[1]>>'
-	gs 'arousal', 'end'
-
-	gs 'flash', 'cleanup', ARGS[3]
 end
 
 if $ARGS[0] = 'pussy':
 	gs 'flash', 'exhibitionism', 3
 
-	$flashVars['text_before'] = 'You glance around to see who  is in the area, then you pull ' + iif(PCloSkirt > 0, 'up the front of your skirt', 'down the front of your pants') + ' to show off your pussy. Most people don''t notice but a few do, some smile, others frown or shake their head in disgust.'
-	$flashVars['text_before'] = 'You ' + iif(PCloSkirt > 0, 'lower the skirt back in place', 'pull your pants back up') + ', feeling the thrill of excitement running down your spine.'
-
-	if ARGS[3] < 1:
-		$flash_text[0] = $flashVars['text_before']
-		$flash_text[1] = $flashVars['text_after']
-	end
-
-	gs 'flash', 'get_image', $ARGS[0], $ARGS[1]
-	if ARGS[4] ! 1: gs 'flash', 'display_image'
-
-	if $flash_text[0] ! '': '<<$flash_text[0]>>'
-	gs 'arousal', 'flash', ARGS[2]
-	if ARGS[4] ! 1: gs 'flash', 'events', $ARGS[1], $ARGS[2], ARGS[3], ARGS[4]
-	if $flash_text[1] ! '': '<<$flash_text[1]>>'
-	gs 'arousal', 'end'
+	$flashVars['text_before'] = 'You glance around to see who is in the area, then you pull ' + iif(PCloSkirt > 0, 'up the front of your skirt', 'down the front of your pants') + ' to show off your pussy. Most people don''t notice but a few do, some smile, others frown or shake their head in disgust.'
+	$flashVars['text_after'] = 'You ' + iif(PCloSkirt > 0, 'lower the skirt back in place', 'pull your pants back up') + ', feeling the thrill of excitement running down your spine.'
+	gs 'flash', 'get_image', 'pussy', $ARGS[1]
 
-	gs 'flash', 'cleanup', ARGS[3]
+	gs 'flash', 'generate_output', 'pussy', $ARGS[1], 'flash', ARGS[2], ARGS[3]
 end
 
 if $ARGS[0] = 'full':
 	gs 'flash', 'exhibitionism', 3
 
-	$flashflashVars['text_before'] = 'Making sure there are no children around and it''s not too busy you ' + iif(PCloSkirt > 0, 'lift your skirt and top', 'lower your pants and lift your top') + ' to expose both your pussy and breasts. Most people who see you are shocked but some look at you admiringly.'
-	$flashVars['text_before'] = 'You quickly cover up again enjoying a buzz of excitement.'
-
-	if ARGS[3] < 1:
-		$flash_text[0] = $flashVars['text_before']
-		$flash_text[1] = $flashVars['text_after']
-	end
-
-	gs 'flash', 'get_image', $ARGS[0], $ARGS[1]
-	if ARGS[4] ! 1: gs 'flash', 'display_image'
-
-	if $flash_text[0] ! '': '<<$flash_text[0]>>'
-	gs 'arousal', 'flash', ARGS[2]
-	if ARGS[4] ! 1: gs 'flash', 'events', $ARGS[1], $ARGS[2], ARGS[3], ARGS[4]
-	if $flash_text[1] ! '': '<<$flash_text[1]>>'
-	gs 'arousal', 'end'
+	$flashVars['text_before'] = 'Making sure there are no children around and it''s not too busy you ' + iif(PCloSkirt > 0, 'lift your skirt and top', 'lower your pants and lift your top') + ' to expose both your pussy and breasts. Most people who see you are shocked but some look at you admiringly.'
+	$flashVars['text_after'] = 'You quickly cover up again enjoying a buzz of excitement.'
+	gs 'flash', 'get_image', 'full', $ARGS[1]
 
-	gs 'flash', 'cleanup', ARGS[3]
+	gs 'flash', 'generate_output', 'full', $ARGS[1], 'flash', ARGS[2], ARGS[3]
 end
 
 !!For us only when Sveta chooses to flash

locations/foto_albums.qsrc

@@ -343,12 +343,12 @@ end
 if $ARGS[0] = 'anushka':
 	*clr & cla
 	if anushkaQW['model'] >= 1:
-		'You open up the ninth album and browse through some of the pictures of Anushka placed inside. Well she did say she modeled here, so you are not really surprised to see a album of her here.'
-		'The photo''s all seem to be single pictures taken from past photo shoots.'
+		'You open up the ninth album and browse through some of the pictures of Anushka placed inside. She did say she modeled here, so you''re not that surprised to find her in an album.'
+		'They seem to be single pictures taken from past photo shoots.'
 	elseif mid($start_type,1,2) = 'sg':
 		anushkaQW['model'] = 1
-		'You open up the ninth album and are surprised to see pictures of Anushka placed inside. She is one of the prettier girls in school and it is not surprising she would like being a model, she loves attention, still you are surprised no one has mentioned it at school, surely someone else has to know right?'
-		'The photo''s all seem to be single pictures taken from past photo shoots.'
+		'You open up the ninth album and are surprised to see pictures of Anushka placed inside. It''s not surprising that she''d like being a model given that she loves attention, but you''re surprised that nobody at school has ever mentioned it. Somebody else surely must know?'
+		'They all seem to be single pictures taken from past photo shoots.'
 	else
 		'You open up the ninth album and browse through some of the pictures placed inside.'
 		'They seem to be single pictures taken from past photo shoots.'
@@ -436,13 +436,11 @@ if $ARGS[0] = 'sveta_9':
 	'<a href="exec:gt ''foto_albums'',''mari''">8. Mari E.</a>'
 	'<a href="exec:gt ''foto_albums'',''sveta''">9. <<$model[''firstname'']>> <<mid($model[''lastname''],1,1)>>.</a>'
 	'<a href="exec:gt ''foto_albums'',''anushka''">10. Anushka K.</a>'
-	
 	act 'Move away': gt 'foto', 'studio'
 end
 	
 if $ARGS[0] = 'sveta_8':
 	*clr & cla
-
 	'<center><img <<$set_imgh>> src="images/locations/city/citycenter/photo/portraits/albums.jpg"></center>'
 	'Here is the shelf that has the albums of the top 10 models. You''ve taken Mari''s spot in the rankings. Your name now marks the eighth spot, Mari''s in the ninth. You don''t think she''ll be upset or anything like that, she''ll probably want to congradulate you if nothing else. She was never one to care about the rankings. You take a moment to be amazed with the two of you, how far a farm girl from Gadukino and a schoolgirl from Pavlovsky have come... '
 	'<a href="exec:gt ''foto_albums'',''anastasia''">1. Anastasia P.</a>'

locations/foto_model_documentary.qsrc

@@ -20,7 +20,7 @@ if $ARGS[0] = '1st_documentary':
 	'<i>You mean naked...</i> you think to yourself.'
 	*nl
 	'"They''re paying the equivalent of a two hour nude shoot for every model that participates. Do you want in?"'
-	
+
 	if modelfoto['nip']  < 1:
 		act'No way! I''ve never been naked on camera before!':
 			cla & *clr
@@ -50,7 +50,7 @@ if $ARGS[0] = '1st_documentary':
 			else
 				act 'Still no (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
 			end
-			
+
 			act'I guess I could...':
 				cla & *clr
 				'<center><img <<$set_imgh>> src="images/locations/city/citycenter/photo/fotograph.jpg"></center>'
@@ -60,7 +60,7 @@ if $ARGS[0] = '1st_documentary':
 			end
 		end
 	end
-	
+
 	act'No thanks, not interested':
 		cla & *clr
 		'<center><img <<$set_imgh>> src="images/locations/city/citycenter/photo/fotograph.jpg"></center>'
@@ -86,7 +86,7 @@ if $ARGS[0] = '1st_documentary':
 		else
 			act 'Still no (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
 		end
-		
+
 		act'I guess I could...':
 			cla & *clr
 			'<center><img <<$set_imgh>> src="images/locations/city/citycenter/photo/fotograph.jpg"></center>'
@@ -95,7 +95,7 @@ if $ARGS[0] = '1st_documentary':
 			act 'Go to the set': gt 'foto_model_documentary', 'documentary_1'
 		end
 	end
-	
+
 	act'No thanks, I''m here to model':
 		cla & *clr
 		'<center><img <<$set_imgh>> src="images/locations/city/citycenter/photo/fotograph.jpg"></center>'
@@ -121,7 +121,7 @@ if $ARGS[0] = '1st_documentary':
 		else
 			act 'Still no (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
 		end
-		
+
 		act'I guess I could...':
 			cla & *clr
 			'<center><img <<$set_imgh>> src="images/locations/city/citycenter/photo/fotograph.jpg"></center>'
@@ -138,7 +138,7 @@ if $ARGS[0] = '1st_documentary':
 !!			'"Ehh, no thanks. I''m here to model, not do interviews."'
 !!		end
 !!	end
-	
+
 	act'Sure, I''ll take part':
 		cla
 		*nl
@@ -168,7 +168,7 @@ if $ARGS[0] = 'documentary_1':
 		'"Okay, we''re all set. Ready?"'
 		'You nod.'
 		'"Okay, first question then. What''s your name, how old are you, and what is your job?"'
-	
+
 		act'I''m <<$model[''firstname'']>>':
 			cla & *clr
 			'<center><video autoplay loop src="images/locations/city/citycenter/photo/special/interview/1.mp4"></video></center>'
@@ -180,7 +180,7 @@ if $ARGS[0] = 'documentary_1':
 			*nl
 			gs 'foto_model_documentary','documentary_2'
 		end
-		
+
 		act'I''m <<$model[''nickname'']>>':
 			cla & *clr
 			'<center><video autoplay loop src="images/locations/city/citycenter/photo/special/interview/1.mp4"></video></center>'
@@ -209,7 +209,7 @@ if $ARGS[0] = 'documentary_2':
 		*nl
 		gs 'foto_model_documentary','documentary_3'
 	end
-	
+
 	act'I''ve always wanted to be a model':
 		foto_documentary['question_2'] = 2
 		cla & *clr
@@ -220,7 +220,7 @@ if $ARGS[0] = 'documentary_2':
 		*nl
 		gs 'foto_model_documentary','documentary_3'
 	end
-	
+
 	act'I just wanted some extra cash':
 		foto_documentary['question_2'] = 3
 		cla & *clr
@@ -232,7 +232,7 @@ if $ARGS[0] = 'documentary_2':
 		*nl
 		gs 'foto_model_documentary','documentary_3'
 	end
-	
+
 	act'I was desperate and needed money':
 		foto_documentary['question_2'] = 4
 		cla & *clr
@@ -243,7 +243,7 @@ if $ARGS[0] = 'documentary_2':
 		*nl
 		gs 'foto_model_documentary','documentary_3'
 	end
-	
+
 	act'I love attention':
 		foto_documentary['question_2'] = 5
 		cla & *clr
@@ -254,7 +254,7 @@ if $ARGS[0] = 'documentary_2':
 		*nl
 		gs 'foto_model_documentary','documentary_3'
 	end
-	
+
 	if pcs_inhib < 20 or studio_inhib > 0:
 		act'To build confidence':
 			foto_documentary['question_2'] = 5
@@ -271,7 +271,7 @@ if $ARGS[0] = 'documentary_2':
 			gs 'foto_model_documentary','documentary_3'
 		end
 	end
-	
+
 	if Exhibitionist_lvl > 0:
 		act'It turns me on':
 			foto_documentary['question_2'] = 6
@@ -301,7 +301,7 @@ if $ARGS[0] = 'documentary_3':
 		*nl
 		gs 'foto_model_documentary','documentary_4'
 	end
-	
+
 	act'I want to be the number one model in the city':
 		foto_documentary['question_3'] = 2
 		cla & *clr
@@ -318,7 +318,7 @@ if $ARGS[0] = 'documentary_3':
 			*nl
 			gs 'foto_model_documentary','documentary_4'
 		end
-		
+
 		act'Personal':
 			foto_documentary['question_3.2'] = 2
 			cla & *clr
@@ -329,7 +329,7 @@ if $ARGS[0] = 'documentary_3':
 			gs 'foto_model_documentary','documentary_4'
 		end
 	end
-	
+
 	act'No, I hate dieting':
 		foto_documentary['question_3'] = 3
 		cla & *clr
@@ -345,7 +345,7 @@ if $ARGS[0] = 'documentary_3':
 			gs 'foto_model_documentary','documentary_4'
 		end
 	end
-	
+
 	act'As long as it pays the bills':
 		foto_documentary['question_3'] = 4
 		cla & *clr
@@ -355,7 +355,7 @@ if $ARGS[0] = 'documentary_3':
 		*nl
 		gs 'foto_model_documentary','documentary_4'
 	end
-	
+
 	act'Yes! I love this job!':
 		foto_documentary['question_3'] = 5
 		cla & *clr
@@ -365,7 +365,7 @@ if $ARGS[0] = 'documentary_3':
 		*nl
 		gs 'foto_model_documentary','documentary_4'
 	end
-	
+
 	act'I''m not sure yet':
 		foto_documentary['question_3'] = 6
 		cla & *clr
@@ -393,7 +393,7 @@ if $ARGS[0] = 'documentary_4':
 			gs 'foto_model_documentary','documentary_5'
 		end
 	end
-	
+
 	if studio_inhib > 0:
 		act'It used to be worse but I''m still a little shy':
 			foto_documentary['question_4'] = 2
@@ -403,7 +403,7 @@ if $ARGS[0] = 'documentary_4':
 			*nl
 			gs 'foto_model_documentary','documentary_5'
 		end
-		
+
 		act'I used to be shy but now I''m not':
 			foto_documentary['question_4'] = 3
 			cla & *clr
@@ -413,7 +413,7 @@ if $ARGS[0] = 'documentary_4':
 			gs 'foto_model_documentary','documentary_5'
 		end
 	end
-	
+
 	act'I haven''t been shy since I was little':
 		foto_documentary['question_4'] = 4
 		cla & *clr
@@ -422,7 +422,7 @@ if $ARGS[0] = 'documentary_4':
 		*nl
 		gs 'foto_model_documentary','documentary_5'
 	end
-	
+
 	act'I''ve never been shy':
 		foto_documentary['question_4'] = 5
 		cla & *clr
@@ -431,8 +431,8 @@ if $ARGS[0] = 'documentary_4':
 		*nl
 		gs 'foto_model_documentary','documentary_5'
 	end
-	
-	
+
+
 	act'I''m fucking hot and I know it':
 		foto_documentary['question_4'] = 6
 		cla & *clr
@@ -455,7 +455,7 @@ if $ARGS[0] = 'documentary_5':
 		*nl
 		gs 'foto_model_documentary','documentary_6'
 	end
-	
+
 	act'It''s really embarrassing':
 		foto_documentary['question_5'] = 2
 		cla & *clr
@@ -464,7 +464,7 @@ if $ARGS[0] = 'documentary_5':
 		*nl
 		gs 'foto_model_documentary','documentary_6'
 	end
-	
+
 	act'I''m not very comfortable with it':
 		foto_documentary['question_5'] = 3
 		cla & *clr
@@ -473,7 +473,7 @@ if $ARGS[0] = 'documentary_5':
 		*nl
 		gs 'foto_model_documentary','documentary_6'
 	end
-	
+
 	if studio_inhib > 0:
 		act'I got used to it eventually':
 			foto_documentary['question_5'] = 4
@@ -483,7 +483,7 @@ if $ARGS[0] = 'documentary_5':
 			*nl
 			gs 'foto_model_documentary','documentary_6'
 		end
-		
+
 		act'I think it really helped me':
 			foto_documentary['question_5'] = 5
 			cla & *clr
@@ -493,7 +493,7 @@ if $ARGS[0] = 'documentary_5':
 			gs 'foto_model_documentary','documentary_6'
 		end
 	end
-	
+
 	act'I don''t really mind it':
 		foto_documentary['question_5'] = 6
 		cla & *clr
@@ -502,7 +502,7 @@ if $ARGS[0] = 'documentary_5':
 		*nl
 		gs 'foto_model_documentary','documentary_6'
 	end
-	
+
 	act'I love it!':
 		foto_documentary['question_5'] = 7
 		cla & *clr
@@ -511,7 +511,7 @@ if $ARGS[0] = 'documentary_5':
 		*nl
 		gs 'foto_model_documentary','documentary_6'
 	end
-	
+
 	act'I think it promotes camaraderie':
 		foto_documentary['question_5'] = 8
 		cla & *clr
@@ -520,15 +520,15 @@ if $ARGS[0] = 'documentary_5':
 		*nl
 		gs 'foto_model_documentary','documentary_6'
 	end
-	
-	
+
+
 !!	if Exhibitionist_lvl > 0:
 !!		act'It gets me wet':
 !!			foto_documentary['question_5'] = 8
 !!			cla & *clr
 !!			'<center><video autoplay loop src="images/locations/city/citycenter/photo/special/interview/6.mp4"></video></center>'
-!!			
-!!			
+!!
+!!
 !!			gs 'foto_model_documentary','documentary_6'
 !!		end
 !!	end
@@ -546,7 +546,7 @@ if $ARGS[0] = 'documentary_6':
 		*nl
 		gs 'foto_model_documentary','documentary_7'
 	end
-	
+
 	act'Sports':
 		foto_documentary['question_6'] = 2
 		cla & *clr
@@ -557,7 +557,7 @@ if $ARGS[0] = 'documentary_6':
 		*nl
 		gs 'foto_model_documentary','documentary_7'
 	end
-	
+
 	act'Dancing':
 		foto_documentary['question_6'] = 3
 		cla & *clr
@@ -566,7 +566,7 @@ if $ARGS[0] = 'documentary_6':
 		*nl
 		gs 'foto_model_documentary','documentary_7'
 	end
-	
+
 	act'I''m a foodie':
 		foto_documentary['question_6'] = 4
 		cla & *clr
@@ -579,7 +579,7 @@ if $ARGS[0] = 'documentary_6':
 		*nl
 		gs 'foto_model_documentary','documentary_7'
 	end
-	
+
 	act'Going clubbing':
 		foto_documentary['question_6'] = 5
 		cla & *clr
@@ -588,7 +588,7 @@ if $ARGS[0] = 'documentary_6':
 		*nl
 		gs 'foto_model_documentary','documentary_7'
 	end
-	
+
 	act'Having sex (clean answer)':
 		foto_documentary['question_6'] = 6
 		cla & *clr
@@ -603,34 +603,36 @@ if $ARGS[0] = 'documentary_6':
 			*nl
 			gs 'foto_model_documentary','documentary_7'
 		end
-		
-		if husband > 0:
-			act'With my husband':
+
+		if $husID ! '':
+			act 'With my husband':
 				cla & *clr
 				'<center><video autoplay loop src="images/locations/city/citycenter/photo/special/interview/1.mp4"></video></center>'
 				'"With my husband actually," you say. "I''m married. Nothing is better than making love to him."'
 				*nl
 				gs 'foto_model_documentary','documentary_7'
 			end
-		else
-			act'With <b>my</b> boyfriend':
+		end
+
+		if stat['boyfriends_current'] > 0:
+			act 'With <b>my</b> boyfriend':
 				cla & *clr
 				'<center><video autoplay loop src="images/locations/city/citycenter/photo/special/interview/1.mp4"></video></center>'
 				'"With my boyfriend," you say. "He just knows my body so well! Spending the time investing in a relationship is the only way to get that." She nods at your sage advice.'
 				*nl
 				gs 'foto_model_documentary','documentary_7'
 			end
-			
-			act'With <b>a</b> boyfriend':
-				cla & *clr
-				'<center><video autoplay loop src="images/locations/city/citycenter/photo/special/interview/9.mp4"></video></center>'
-				'"I would say... with a boyfriend. I''m single for the moment, but spending the time to let someone get to know you and what turns you on really is the best. You''ll never get that kind of satisfaction randomly sleeping around." She nods at your sage advice.'
-				*nl
-				gs 'foto_model_documentary','documentary_7'
-			end
 		end
-		
-		act'Why not girlfriends?':
+
+		act 'With <b>a</b> boyfriend':
+			cla & *clr
+			'<center><video autoplay loop src="images/locations/city/citycenter/photo/special/interview/9.mp4"></video></center>'
+			'"I would say... with a boyfriend. I''m single for the moment, but spending the time to let someone get to know you and what turns you on really is the best. You''ll never get that kind of satisfaction randomly sleeping around." She nods at your sage advice.'
+			*nl
+			gs 'foto_model_documentary','documentary_7'
+		end
+
+		act 'Why not girlfriends?':
 			cla & *clr
 			'<center><video autoplay loop src="images/locations/city/citycenter/photo/special/interview/1.mp4"></video></center>'
 			'"Why not girlfriends?" you smile with a twinkle in your eye. "Who said I liked sleeping with men the most?"'
@@ -638,7 +640,7 @@ if $ARGS[0] = 'documentary_6':
 			*nl
 			gs 'foto_model_documentary','documentary_7'
 		end
-		
+
 		act'Group sex':
 			cla & *clr
 			'<center><video autoplay loop src="images/locations/city/citycenter/photo/special/interview/4.mp4"></video></center>'
@@ -647,7 +649,7 @@ if $ARGS[0] = 'documentary_6':
 			gs 'foto_model_documentary','documentary_7'
 		end
 	end
-	
+
 	act'Having sex (slutty answer)':
 		foto_documentary['question_6'] = 6
 		cla & *clr
@@ -663,34 +665,36 @@ if $ARGS[0] = 'documentary_6':
 			*nl
 			gs 'foto_model_documentary','documentary_7'
 		end
-		
-		if husband > 0:
-			act'With my husband':
+
+		if $husID ! '':
+			act 'With my husband':
 				cla & *clr
 				'<center><video autoplay loop src="images/locations/city/citycenter/photo/special/interview/1.mp4"></video></center>'
 				'"With my husband actually," you say. "I''m married. I love getting fucked by him. He knows every centimeter of my body, nobody knows how to make me cum like he does."'
 				*nl
 				gs 'foto_model_documentary','documentary_7'
 			end
-		else
-			act'With <b>my</b> boyfriend':
+		end
+
+		if stat['boyfriends_current'] > 0:
+			act 'With <b>my</b> boyfriend':
 				cla & *clr
 				'<center><video autoplay loop src="images/locations/city/citycenter/photo/special/interview/6.mp4"></video></center>'
 				'"With my boyfriend," you say. "He just knows my body so well! I never feel better than I do after he fucks me."'
 				*nl
 				gs 'foto_model_documentary','documentary_7'
 			end
-			
-			act'With <b>a</b> boyfriend':
-				cla & *clr
-				'<center><video autoplay loop src="images/locations/city/citycenter/photo/special/interview/12.mp4"></video></center>'
-				'"I would say... with a boyfriend. I''m single for the moment, which is a bit of a problem, but there''s nothing better than getting fucked by a guy who knows every part of your body. Unfortunately, most guys don''t have that information instinctively. It takes time for them to really learn how to make you cum."'
-				'She nods with eyebrows raised, as if surprised by your answer.'
-				*nl
-				gs 'foto_model_documentary','documentary_7'
-			end
 		end
-		
+
+		act 'With <b>a</b> boyfriend':
+			cla & *clr
+			'<center><video autoplay loop src="images/locations/city/citycenter/photo/special/interview/12.mp4"></video></center>'
+			'"I would say... with a boyfriend. I''m single for the moment, which is a bit of a problem, but there''s nothing better than getting fucked by a guy who knows every part of your body. Unfortunately, most guys don''t have that information instinctively. It takes time for them to really learn how to make you cum."'
+			'She nods with eyebrows raised, as if surprised by your answer.'
+			*nl
+			gs 'foto_model_documentary','documentary_7'
+		end
+
 		act'Why not girlfriends?':
 			cla & *clr
 			'<center><video autoplay loop src="images/locations/city/citycenter/photo/special/interview/1.mp4"></video></center>'
@@ -699,7 +703,7 @@ if $ARGS[0] = 'documentary_6':
 			*nl
 			gs 'foto_model_documentary','documentary_7'
 		end
-		
+
 		act'Group sex':
 			cla & *clr
 			'<center><video autoplay loop src="images/locations/city/citycenter/photo/special/interview/6.mp4"></video></center>'
@@ -709,7 +713,7 @@ if $ARGS[0] = 'documentary_6':
 			gs 'foto_model_documentary','documentary_7'
 		end
 	end
-	
+
 	act'Masturbating':
 		foto_documentary['question_6'] = 7
 		cla & *clr
@@ -727,7 +731,7 @@ if $ARGS[0] = 'documentary_6':
 			*nl
 			gs 'foto_model_documentary','documentary_7'
 		end
-		
+
 		act'... with my dildo':
 			cla & *clr
 			'<center><video autoplay loop src="images/locations/city/citycenter/photo/special/interview/6.mp4"></video></center>'
@@ -738,7 +742,7 @@ if $ARGS[0] = 'documentary_6':
 			*nl
 			gs 'foto_model_documentary','documentary_7'
 		end
-		
+
 		act'... in the shower':
 			cla & *clr
 			'<center><video autoplay loop src="images/locations/city/citycenter/photo/special/interview/6.mp4"></video></center>'
@@ -748,7 +752,7 @@ if $ARGS[0] = 'documentary_6':
 			*nl
 			gs 'foto_model_documentary','documentary_7'
 		end
-		
+
 		act'... in the bath':
 			cla & *clr
 			'<center><video autoplay loop src="images/locations/city/citycenter/photo/special/interview/6.mp4"></video></center>'
@@ -758,7 +762,7 @@ if $ARGS[0] = 'documentary_6':
 			*nl
 			gs 'foto_model_documentary','documentary_7'
 		end
-		
+
 		act'... with my shower dildo':
 			cla & *clr
 			'<center><video autoplay loop src="images/locations/city/citycenter/photo/special/interview/6.mp4"></video></center>'
@@ -767,9 +771,9 @@ if $ARGS[0] = 'documentary_6':
 			'"Masturbating! Honestly, my interests are pretty all over the place so I don''t know if any of those really classify as hobbies, but the one thing I do all the time is masturbate with my shower dildo. Nice steamy room, hot water, a showerhead to use for vibrations, a nice rubber dick to fill me up, oh man. I could spend hours in there."'
 			*nl
 			gs 'foto_model_documentary','documentary_7'
-		end		
+		end
 	end
-	
+
 	act'Nothing in particular':
 		foto_documentary['question_6'] = 8
 		cla & *clr
@@ -794,7 +798,7 @@ if $ARGS[0] = 'documentary_7':
 		*nl
 		gs 'foto_model_documentary','documentary_8'
 	end
-	
+
 	act'Something fun with lots of activities':
 		foto_documentary['question_7'] = 2
 		cla & *clr
@@ -803,7 +807,7 @@ if $ARGS[0] = 'documentary_7':
 		*nl
 		gs 'foto_model_documentary','documentary_8'
 	end
-	
+
 	act'Dinner and a movie':
 		foto_documentary['question_7'] = 3
 		cla & *clr
@@ -812,7 +816,7 @@ if $ARGS[0] = 'documentary_7':
 		*nl
 		gs 'foto_model_documentary','documentary_8'
 	end
-	
+
 	act'A long walk with scenery':
 		foto_documentary['question_7'] = 4
 		cla & *clr
@@ -821,7 +825,7 @@ if $ARGS[0] = 'documentary_7':
 		*nl
 		gs 'foto_model_documentary','documentary_8'
 	end
-	
+
 	act'Something thrilling':
 		foto_documentary['question_7'] = 5
 		cla & *clr
@@ -830,7 +834,7 @@ if $ARGS[0] = 'documentary_7':
 		*nl
 		gs 'foto_model_documentary','documentary_8'
 	end
-	
+
 	act'A romantic evening that ends in sex':
 		foto_documentary['question_7'] = 6
 		cla & *clr
@@ -855,7 +859,7 @@ if $ARGS[0] = 'documentary_8':
 		*nl
 		gs 'foto_model_documentary','documentary_9'
 	end
-	
+
 	act'Day drinking':
 		foto_documentary['question_8'] = 2
 		cla & *clr
@@ -864,7 +868,7 @@ if $ARGS[0] = 'documentary_8':
 		*nl
 		gs 'foto_model_documentary','documentary_9'
 	end
-	
+
 	act'Binge watching':
 		foto_documentary['question_8'] = 3
 		cla & *clr
@@ -873,7 +877,7 @@ if $ARGS[0] = 'documentary_8':
 		*nl
 		gs 'foto_model_documentary','documentary_9'
 	end
-	
+
 	act'Bad romcoms':
 		foto_documentary['question_8'] = 4
 		cla & *clr
@@ -882,7 +886,7 @@ if $ARGS[0] = 'documentary_8':
 		*nl
 		gs 'foto_model_documentary','documentary_9'
 	end
-	
+
 	act'Social media':
 		foto_documentary['question_8'] = 5
 		cla & *clr
@@ -891,7 +895,7 @@ if $ARGS[0] = 'documentary_8':
 		*nl
 		gs 'foto_model_documentary','documentary_9'
 	end
-	
+
 	act'Sleeping in':
 		foto_documentary['question_8'] = 6
 		cla & *clr
@@ -914,7 +918,7 @@ if $ARGS[0] = 'documentary_9':
 		*nl
 		gs 'foto_model_documentary','documentary_10'
 	end
-	
+
 	act'Panties':
 		foto_documentary['question_9'] = 2
 		cla & *clr
@@ -923,7 +927,7 @@ if $ARGS[0] = 'documentary_9':
 		*nl
 		gs 'foto_model_documentary','documentary_10'
 	end
-	
+
 	act'I sleep naked':
 		foto_documentary['question_9'] = 3
 		cla & *clr
@@ -932,7 +936,7 @@ if $ARGS[0] = 'documentary_9':
 		*nl
 		gs 'foto_model_documentary','documentary_10'
 	end
-	
+
 	act'Negligee':
 		foto_documentary['question_9'] = 4
 		cla & *clr
@@ -941,7 +945,7 @@ if $ARGS[0] = 'documentary_9':
 		*nl
 		gs 'foto_model_documentary','documentary_10'
 	end
-	
+
 	act'A big t-shirt and panties':
 		foto_documentary['question_9'] = 5
 		cla & *clr
@@ -950,7 +954,7 @@ if $ARGS[0] = 'documentary_9':
 		*nl
 		gs 'foto_model_documentary','documentary_10'
 	end
-	
+
 	act'Just a big t-shirt':
 		foto_documentary['question_9'] = 6
 		cla & *clr
@@ -961,7 +965,7 @@ if $ARGS[0] = 'documentary_9':
 		*nl
 		gs 'foto_model_documentary','documentary_10'
 	end
-	
+
 	act'Pajamas':
 		foto_documentary['question_9'] = 7
 		cla & *clr
@@ -983,7 +987,7 @@ if $ARGS[0] = 'documentary_10':
 		*nl
 		gs 'foto_model_documentary','documentary_11'
 	end
-	
+
 	act'Early morning to do chores':
 		foto_documentary['question_10'] = 2
 		cla & *clr
@@ -994,7 +998,7 @@ if $ARGS[0] = 'documentary_10':
 		*nl
 		gs 'foto_model_documentary','documentary_11'
 	end
-	
+
 	act'Early morning with a light breakfast':
 		foto_documentary['question_10'] = 3
 		cla & *clr
@@ -1003,7 +1007,7 @@ if $ARGS[0] = 'documentary_10':
 		*nl
 		gs 'foto_model_documentary','documentary_11'
 	end
-	
+
 	act'Anything involving coffee':
 		foto_documentary['question_10'] = 4
 		cla & *clr
@@ -1013,7 +1017,7 @@ if $ARGS[0] = 'documentary_10':
 		*nl
 		gs 'foto_model_documentary','documentary_11'
 	end
-	
+
 	act'Anything involving coffee (slightly crude/slutty)':
 		foto_documentary['question_10'] = 5
 		cla & *clr
@@ -1023,7 +1027,7 @@ if $ARGS[0] = 'documentary_10':
 		*nl
 		gs 'foto_model_documentary','documentary_11'
 	end
-	
+
 	act'Sleeping in followed by brunch':
 		foto_documentary['question_10'] = 6
 		cla & *clr
@@ -1032,7 +1036,7 @@ if $ARGS[0] = 'documentary_10':
 		*nl
 		gs 'foto_model_documentary','documentary_11'
 	end
-	
+
 	act'Wakeup sex':
 		foto_documentary['question_10'] = 7
 		cla & *clr
@@ -1056,7 +1060,7 @@ if $ARGS[0] = 'documentary_11':
 		*nl
 		act 'Finish interview': gt 'foto_model_documentary', '1st_documentary_end'
 	end
-	
+
 	act'Early morning to do chores':
 		foto_documentary['question_11'] = 2
 		cla & *clr
@@ -1065,7 +1069,7 @@ if $ARGS[0] = 'documentary_11':
 		*nl
 		act 'Finish interview': gt 'foto_model_documentary', '1st_documentary_end'
 	end
-	
+
 	act'Early morning with a light breakfast':
 		foto_documentary['question_11'] = 3
 		cla & *clr
@@ -1074,7 +1078,7 @@ if $ARGS[0] = 'documentary_11':
 		*nl
 		act 'Finish interview': gt 'foto_model_documentary', '1st_documentary_end'
 	end
-	
+
 	act'Anything involving coffee':
 		foto_documentary['question_11'] = 4
 		cla & *clr
@@ -1083,7 +1087,7 @@ if $ARGS[0] = 'documentary_11':
 		*nl
 		act 'Finish interview': gt 'foto_model_documentary', '1st_documentary_end'
 	end
-	
+
 	act'Anything involving coffee (slightly crude/slutty)':
 		foto_documentary['question_11'] = 5
 		cla & *clr
@@ -1092,7 +1096,7 @@ if $ARGS[0] = 'documentary_11':
 		*nl
 		act 'Finish interview': gt 'foto_model_documentary', '1st_documentary_end'
 	end
-	
+
 	act'Sleeping in followed by brunch':
 		foto_documentary['question_11'] = 6
 		cla & *clr
@@ -1101,7 +1105,7 @@ if $ARGS[0] = 'documentary_11':
 		*nl
 		act 'Finish interview': gt 'foto_model_documentary', '1st_documentary_end'
 	end
-	
+
 	act'':
 		foto_documentary['question_11'] = 7
 		cla & *clr
@@ -1135,9 +1139,9 @@ if $ARGS[0] = '1st_documentary_end':
 	'"No problem! You were a very good interviewer."'
 	*nl
 	'After exchanging a few more pleasantries, they hand you an envelope filled with bills that count out to <<modelpayfin>> <b>₽</b> and call the next girl in from the side.'
-	
+
 	foto['1st_documentary'] = 1
-	
+
 	act 'Leave': gt 'foto', 'studio'
 end
 

locations/gadukino.qsrc

@@ -97,14 +97,18 @@ if $ARGS[0] = '':
 			if vladimirQW['day'] = daystart and vladimirQW['stage'] = 30 and hour >= 16 and week = 6:'<a href="exec:gt ''vladimirQW_meet'',''2''">There''s an Audi parked in the street, and standing beside it, you notice Vladimir</a>.'
 			if vladimirQW['day'] = daystart and vladimirQW['stage'] = 40 and hour >= 16 and week = 6:'<a href="exec:gt ''vladimirQW_meet'',''3''">There''s an Audi parked in the street, and standing beside it, you notice Vladimir</a>.'
 
-			if hour = meethour[0]:
-				if svidanie[0] = 1:'<b><a href="exec:lover_number = 0 & gt ''lover_meet'', ''start''"><<$loverdesc[0]>></a> is waiting in the street.</b>'
-			end
-			if hour = meethour[1]:
-				if svidanie[1] = 1:'<b><a href="exec:lover_number = 1 & gt ''lover_meet'', ''start''"><<$loverdesc[1]>></a> is waiting in the street.</b>'
-			end
-			if hour = meethour[2]:
-				if svidanie[2] = 1:'<b><a href="exec:lover_number = 2 & gt ''lover_meet'', ''start''"><<$loverdesc[2]>></a> is waiting in the street.</b>'
+			if arrsize('$lover') > 0:
+				temp_i = 0
+				temp_max_i = arrsize('$lover')
+				:lover_pickup_loop
+					$temp_npcid = $lover[temp_i]
+					if npc_meetday[$temp_npcid] = daystart and npc_meethour[$temp_npcid] = hour:
+						'<b><a href="exec: gt ''lover_meet'', ''start'', ''<<$temp_npcid>>''"><<$npc_usedname[$temp_npcid]>></a> is waiting in the street.</b>'
+					end
+					temp_i += 1
+				if temp_i < temp_max_i: jump 'lover_pickup_loop'
+				killvar 'temp_i'
+				killvar 'temp_max_i'
 			end
 		end
 		if npc_rel['A60'] > 0 and npc_known['A60'] = 1:
@@ -115,9 +119,9 @@ if $ARGS[0] = '':
 
 		if month >= 6 and month <= 9:
 			if hour >= 6 and hour <= 16:
-				'An old farm truck is parked halfway off one of the roads nearby. The farmer who owns it will buy <a href="exec: gt ''gadukino'',''collection_point''">mushrooms and berries</a> from the locals to sell back in the city. He makes multiple trips from Gadukino to the city daily to ensure the freshest produce so he can be found from '+func('time', 'get_time_string', 6, 0, cheatVars['time_format'])+' to '+func('time', 'get_time_string', 16, 0, cheatVars['time_format'])+'.'
+				'An old farm truck is parked halfway off one of the roads nearby. The farmer who owns it will buy <a href="exec: gt ''gadukino'',''collection_point''">mushrooms and berries</a> from the locals to sell back in the city. He makes multiple trips from Gadukino to the city daily to ensure the freshest produce so he can be found from 6 am to 4 pm.'
 			else
-				'This time of year, a truck usually comes by multiple times a day between '+func('time', 'get_time_string', 16, 0, cheatVars['time_format'])+' and '+func('time', 'get_time_string', 18, 0, cheatVars['time_format'])+' to purchase mushrooms and berries from the locals.'
+				'This time of year, a truck usually comes by multiple times a day between 6 am and 4 pm to purchase mushrooms and berries from the locals.'
 			end
 		else
 			'During the summer, a truck usually comes into town from the city to buy fresh mushrooms and berries from the locals. It''s not the right season for it right now, though.'
@@ -144,9 +148,8 @@ if $ARGS[0] = '':
 				menu_off = 1
 				gs 'stat'
 
-				temp = rand(1,100)
 				! 50% chance of mira events if you already found the meadow and are still friends with mira
-				if temp >= 50 and locat['A60'] = 30:
+				if rand(0, 1) = 0 and locat['A60'] = 30:
 					gt 'gadukino', 'mira_events'
 				! 50% chance of other random 1 picture flavour events
 				else

locations/gevent.qsrc

@@ -182,7 +182,7 @@ if $ARGS[0] = '4':
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/park/sex/4.jpg"></center>'
 	'You accompany the guy to his house, where you enjoy a few beverages with him. A while later you find yourself on your back, getting pounded by this stranger. He rides you with his hairy body and pulls out right before he orgasms, draping his load all over your buttocks. Not bothering to clean it up, you simply get dressed. You sit back down and chat with him for a while, drinking some tea in an attempt to sober up before leaving. You still feel rather drunk when you close the door behind you, returning to the streets.'
-	
+
 	gs 'arousal', 'vaginal', 20, 'humiliation'
 	gs 'arousal', 'end'
 	gs 'stat'
@@ -234,14 +234,13 @@ if $ARGS[0] = '5':
 	gs 'arousal', 'vaginal', 15, 'prostitution'
 	gs 'arousal', 'end'
 	gs 'stat'
-	
+
 	act 'Straighten your clothes':gt 'pav_residential'
 end
 
 if $ARGS[0] = '6':
 	*clr & cla
 	menu_off = 1
-	gs 'cikl'
 	gs 'fame', 'pav', 'sex', rand(8,16)
 	guyondisco = rand(5, 10)
 	guy += guyondisco
@@ -249,34 +248,34 @@ if $ARGS[0] = '6':
 	pcs_throat += guyondisco
 	gang += 1
 	:geventgondloop
-	gs 'npcgeneratec', 0, 'guy from the disco', rand(19,27)
-	gs 'boyStat', $npclastgenerated
-	gs 'cum_manage'
-	spafinloc = 1
-	gs 'cum_manage'
-	spafinloc = 3
-	gs 'cum_manage'
-	spafinloc = 4
-	gs 'cum_manage'
-	spafinloc = 8
-	gs 'cum_manage'
-	spafinloc = 9
-	gs 'cum_manage'
-	spafinloc = 10
-	gs 'cum_manage'
-	spafinloc = 11
-	gs 'cum_manage'
-	spafinloc = 12
-	gs 'cum_manage'
-	spafinloc = 13
-	gs 'cum_manage'
-	spafinloc = 14
-	gs 'cum_manage'
-	spafinloc = 15
-	gs 'cum_manage'
-	spafinloc = 16
-	gs 'cum_manage'
-	guyondisco -= 1
+		gs 'npcgeneratec', 0, 'guy from the disco', rand(19,27)
+		gs 'boyStat', $npclastgenerated
+		gs 'cum_manage'
+		spafinloc = 1
+		gs 'cum_manage'
+		spafinloc = 3
+		gs 'cum_manage'
+		spafinloc = 4
+		gs 'cum_manage'
+		spafinloc = 8
+		gs 'cum_manage'
+		spafinloc = 9
+		gs 'cum_manage'
+		spafinloc = 10
+		gs 'cum_manage'
+		spafinloc = 11
+		gs 'cum_manage'
+		spafinloc = 12
+		gs 'cum_manage'
+		spafinloc = 13
+		gs 'cum_manage'
+		spafinloc = 14
+		gs 'cum_manage'
+		spafinloc = 15
+		gs 'cum_manage'
+		spafinloc = 16
+		gs 'cum_manage'
+		guyondisco -= 1
 	if guyondisco > 0: jump 'geventgondloop'
 	gs 'stat'
 
@@ -287,11 +286,10 @@ if $ARGS[0] = '6':
 	'By the time you wake up again it''s the middle of the next day, and you are lying naked in a ditch somewhere just outside of town, covered in semen. Luckily they were decent enough to at least give you your clothes back, which you find in a pile next to you with your other belongings. As you quickly get dressed you silently pray they reconsidered and didn''t share the video, but at the same time know better. As you make your way back to Pavlovsk you realize this probably hurt your reputation in town as a result, since many people will have seen the video by now.'
 
 	gs 'arousal', 'bj', 600, 'rough', 'rape', 'humiliation', 'group'
-	gs 'arousal', 'vaginal', 600, 'rough', 'rape', 'humiliation', 'group'
-	minut -= 600
+	gs 'arousal', 'vaginal', -600, 'rough', 'rape', 'humiliation', 'group'
 	gs 'arousal', 'end'
 	gs 'stat'
-	
+
 	act 'Return to the Pavlovsk streets':gt 'pav_residential'
 end
 
@@ -325,7 +323,7 @@ if $ARGS[0] = '7':
 	minut -= 50
 	gs 'arousal', 'end'
 	gs 'stat'
-	
+
 	act 'Return to the Pavlovsk streets':gt 'pav_residential'
 end
 

locations/girlfriend.qsrc

@@ -1,13 +0,0 @@
-# girlfriend
-
-if $ARGS[0] = 'start':
-	if arrsize('pcs_lovers') > 2:
-		'Hmm, you are already three lovers, why do you need a fourth?'
-	else
-		gs 'lover', 'add'
-	end
-end
-
-
---- girlfriend ---------------------------------
-

locations/gschool_boys_bathroom.qsrc

@@ -1768,7 +1768,7 @@ if $ARGS[0] = 'boy7':
 		'Within seconds, the two of you are chatting away about school, movies, sports, music and anything else that strikes your fancy. Before you know it, the bell rings amd you both stop and gather your things before bidding each other farewell and heading to your next class.'
 		act 'Go to class':gt 'gschool_lessons', 'short_break'
 	end
-	if igorstrap >= 1 and strapon > 0 and dildonumber > 0:
+	if IgorQW['strap'] >= 1 and strapon > 0 and dildonumber > 0:
 		act 'I brought my strapon...':
 			*clr & cla
 			'<center><b><font color="maroon">Boy''s bathroom</font></b></center>'

locations/gschool_coolkid_chats.qsrc

@@ -221,17 +221,17 @@ if $ARGS[0] = 'igor':
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big4.jpg"></center>'
 	act 'Time for the next class': gt 'gschool_lessons', 'short_break'
-	if IgorLoverQW > 0:
+	if IgorQW['Lover'] > 0:
 		'When Igor sees you, his face lights up and he smiles warmly. "I was hoping I''d see you. I, uh, kind of missed you..." he says shyly and it makes you giggle. While you talk with each other, his warm hand finds yours.'
 		func('npc_reactions', 'general', 'A4')
 		act 'Help with homework':
 			*clr & cla
-			igor_history = 1
+			IgorQW['history'] = 1
 			'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big4.jpg"></center>'
 			'Igor is almost offended that you''d even have to ask that. "What kind of boyfriend would I be if I didn''t help my girlfriend?" he chuckles. "Of course I''ll help you."'
 			act 'Time for the next class': gt 'gschool_lessons', 'short_break'
 		end
-		if igorstrap >= 1:
+		if IgorQW['strap'] >= 1:
 			act 'Tease him':
 				*clr & cla
 				gs 'npc_relationship', 'modify', 'A4', 'like'
@@ -246,7 +246,7 @@ if $ARGS[0] = 'igor':
 				act 'Tell him you have a surprise':
 					*clr & cla
 					'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big4.jpg"></center>'
-					if igorqw['schoolstrap'] = 1:
+					if IgorQW['schoolstrap']= 1:
 						'You keep whispering in his ear. "I want to fuck your tight little ass with my strapon again." He gives you a shocked look and you open your purse and show him your strapon nestled inside, which makes him blush even more.'
 						'He looks around and you can tell he is excited, you think you even notice a bulge forming in his pants before he bites his lower lip and nods. "Okay, but let''s be careful." He sounds scared and excited at the same time.'
 						'You pat him on the cheek. "Trust me." He grins and eagerly follows you as you lead him away.'
@@ -259,7 +259,7 @@ if $ARGS[0] = 'igor':
 				end
 				act 'Help with homework':
 					*clr & cla
-					igor_history = 1
+					IgorQW['history'] = 1
 					'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big4.jpg"></center>'
 					'"Oh... yeah, I can help you with your homework..." Igor smiles, but glances down and shuffles restlessly.'
 					'You smirk and lean in closer. "Don''t look so disappointed. Who knows, the quicker we finish with that, the more time we have for <i>other</i> things."'
@@ -296,7 +296,7 @@ if $ARGS[0] = 'igor':
 				'You know he doesn''t have many friends, so he''s more than happy that you want to hang out with him. Unlike most boys, Igor is really attentive and listens to everything you say, even taking an interest in the more "girly" topics.'
 				'"Oh, it''s not that weird," he says while blushing. "I have a sister, so I hear about these things all the time..."'
 				'The two of you spend some time chatting before Dimka shows up and you see Igor''s face light up. "I need to get going. Maybe we can hang out some time, if you want come by my house?" he says while telling you where he lives, after which he gives you a small smile as he waves goodbye.'
-			elseif igorstrap >= 1:
+			elseif IgorQW['strap'] >= 1:
 				act 'Tease him': gt 'gschool_coolkid_chats', 'tease_igor'
 			else
 				'You know he doesn''t have many friends, so he''s more than happy that you want to hang out with him. Unlike most boys, Igor is really attentive and listens to everything you say, even taking an interest in the more "girly" topics.'
@@ -304,7 +304,7 @@ if $ARGS[0] = 'igor':
 				'The two of you spend some time chatting before Dimka shows up and you see Igor''s face light up. "I need to get going. Maybe we can talk some other time?" he asks with a small smile as he waves goodbye.'
 				act 'Help with homework':
 					*clr & cla
-					igor_history = 1
+					IgorQW['history'] = 1
 					'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big4.jpg"></center>'
 					'Before he can leave, you ask him if he can help with your homework and his face lights up. "Yeah, of course I''ll help you."'
 					act 'Time for the next class': gt 'gschool_lessons', 'short_break'
@@ -322,7 +322,7 @@ if $ARGS[0] = 'igor':
 			'As usual, Igor is hanging around Dimka, but he pays closer attention to you. With a smile, he asks you how your day has been so far and before long you''re talking about all kinds of things. He even takes an interest in the more "girly" topics.'
 			act 'Help with homework':
 				*clr & cla
-				igor_history = 1
+				IgorQW['history'] = 1
 				'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big4.jpg"></center>'
 				'"Oh, you need my help?" he asks curiously, a bit surprised that you would ask him of all people. After a few seconds, he smiles and nods. "Yeah, of course I''ll help you."'
 				act 'Time for the next class': gt 'gschool_lessons', 'short_break'
@@ -336,7 +336,7 @@ if $ARGS[0] = 'igor':
 				'"Hey Igor, what are you doing?" you ask as you see him looking around for someone.'
 				'He shrugs dismissively. "Just waiting for Dimka."'
 				'The two of you spend some time chatting while he waits for Dimka. Eventually he shows up and Igor is ready to leave. "Maybe we can hang out some time, if you want come by my house?" he says while telling you where he lives, after which he gives you a small smile as he waves goodbye.'
-			elseif igorstrap >= 1:
+			elseif IgorQW['strap'] >= 1:
 				act 'Tease him': gt 'gschool_coolkid_chats', 'tease_igor'
 			else
 				'"Hey Igor, what are you doing?" you ask as you see him looking around for someone.'
@@ -344,7 +344,7 @@ if $ARGS[0] = 'igor':
 				'The two of you spend some time chatting while he waits for Dimka. Eventually he shows up and Igor is ready to leave. "Maybe we can talk some other time?" he asks with a small smile as he waves goodbye.'
 				act 'Help with homework':
 					*clr & cla
-					igor_history = 1
+					IgorQW['history'] = 1
 					'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big4.jpg"></center>'
 					'After a few seconds, he smiles and nods. "Yeah, of course I''ll help you."'
 					act 'Time for the next class': gt 'gschool_lessons', 'short_break'
@@ -362,7 +362,7 @@ if $ARGS[0] = 'igor':
 			'As usual, Igor is hanging around Dimka, but he pays closer attention to you. With a smile, he asks you how your day has been so far and before long you''re talking about all kinds of things. He even takes an interest in the more "girly" topics.'
 			act 'Help with homework':
 				*clr & cla
-				igor_history = 1
+				IgorQW['history'] = 1
 				'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big4.jpg"></center>'
 				'After a few seconds, he smiles and nods. "Yeah, of course I''ll help you."'
 				act 'Time for the next class': gt 'gschool_lessons', 'short_break'
@@ -376,7 +376,7 @@ if $ARGS[0] = 'igor':
 				'"Hey Igor, what are you doing?" you ask as you see him looking around for someone.'
 				'He shrugs dismissively. "Just waiting for Dimka."'
 				'The two of you spend some time chatting while he waits for Dimka. Eventually he shows up and Igor is ready to leave. "Maybe we can hang out some time, if you want come by my house?" he says while telling you where he lives, after which he gives you a small smile as he waves goodbye.'
-			elseif igorstrap >= 1:
+			elseif IgorQW['strap'] >= 1:
 				act 'Tease him': gt 'gschool_coolkid_chats', 'tease_igor'
 			else
 				'"Hey Igor, what are you doing?" you ask as you see him looking around for someone.'
@@ -384,7 +384,7 @@ if $ARGS[0] = 'igor':
 				'The two of you spend some time chatting while he waits for Dimka. Eventually he shows up and Igor is ready to leave. "Maybe we can talk some other time?" he asks with a small smile as he waves goodbye.'
 				act 'Help with homework':
 					*clr & cla
-					igor_history = 1
+					IgorQW['history'] = 1
 					'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big4.jpg"></center>'
 					'"You need my help?" he asks curiously, a bit surprised that you would ask him of all people. After a few seconds, he smiles and nods. "Yeah, of course I''ll help you."'
 					act 'Time for the next class': gt 'gschool_lessons', 'short_break'
@@ -402,7 +402,7 @@ if $ARGS[0] = 'igor':
 			'As usual, Igor is hanging around Dimka, but he pays closer attention to you. With a smile, he asks you how your day has been so far and before long you''re talking about all kinds of things. He even takes an interest in the more "girly" topics.'
 			act 'Help with homework':
 				*clr & cla
-				igor_history = 1
+				IgorQW['history'] = 1
 				'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big4.jpg"></center>'
 				'"You need my help?" he asks curiously, a bit surprised that you would ask him of all people. After a few seconds, he shrugs. "Yeah, I guess I can help you."'
 				act 'Time for the next class': gt 'gschool_lessons', 'short_break'
@@ -416,7 +416,7 @@ if $ARGS[0] = 'igor':
 				'"Hey Igor, what are you doing?" you ask as you see him looking around for someone.'
 				'He shrugs dismissively. "Just waiting for Dimka."'
 				'The two of you spend some time chatting while he waits for Dimka. Eventually he shows up and Igor is ready to leave. "Maybe we can hang out some time, if you want come by my house?" he says while telling you where he lives, after which he gives you a small smile as he waves goodbye.'
-			elseif igorstrap >= 1:
+			elseif IgorQW['strap'] >= 1:
 				act 'Tease him': gt 'gschool_coolkid_chats', 'tease_igor'
 			else
 				'"Hey Igor, what are you doing?" you ask as you see him looking around for someone.'
@@ -424,7 +424,7 @@ if $ARGS[0] = 'igor':
 				'The two of you spend some time chatting while he waits for Dimka. Eventually he shows up and Igor is ready to leave. "Maybe we can talk some other time?" he asks with a small smile as he waves goodbye.'
 				act 'Help with homework':
 					*clr & cla
-					igor_history = 1
+					IgorQW['history'] = 1
 					'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big4.jpg"></center>'
 					'"Oh, you need my help?" he asks, seemingly not surprised you need help but perhaps a bit surprised you asked him. After a few seconds, he smiles and nods. "Yeah, of course I''ll help you."'
 					act 'Time for the next class': gt 'gschool_lessons', 'short_break'
@@ -447,7 +447,7 @@ if $ARGS[0] = 'igor':
 			'The two of you spend some time chatting while he waits for Dimka. Eventually he shows up and Igor is ready to leave. "Maybe we can talk some other time?" he asks with a small smile as he waves goodbye.'
 			act 'Help with homework':
 				*clr & cla
-				igor_history = 1
+				IgorQW['history'] = 1
 				'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big4.jpg"></center>'
 				'"Oh, you need my help?" he asks curiously, a bit surprised that you would ask him of all people. After a moment, he smiles and nods. "Yeah, of course I''ll help you."'
 				act 'Time for the next class': gt 'gschool_lessons', 'short_break'
@@ -478,7 +478,7 @@ if $ARGS[0] = 'tease_igor':
 	act 'Tell him you have a surprise':
 		*clr & cla
 		'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big4.jpg"></center>'
-		if igorqw['schoolstrap'] = 1:
+		if IgorQW['schoolstrap']= 1:
 			'You keep whispering in his ear. "I want to fuck your tight little ass with my strapon again." He gives you a shocked look and you open your purse and show him your strapon nestled inside, which makes him blush even more.'
 			'He looks around and you can tell he is excited, you think you even notice a bulge forming in his pants before he bites his lower lip and nods. "Okay, but let''s be careful." He sounds scared and excited at the same time.'
 			'You pat him on the cheek. "Trust me." He grins and eagerly follows you as you lead him away.'
@@ -528,7 +528,7 @@ if $ARGS[0] = 'igor_peg':
 						*clr & cla
 						gs 'boyStat', 'D<<strapnumber>>'
 						'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/igor/sex/school/break5.jpg"></center>'
-						if igorqw['schoolstrap'] = 1:
+						if IgorQW['schoolstrap']= 1:
 							'Once he has the strap-on wet with his saliva, he stands up and bends over one of the desks without you even having to tell him. He seems very eager for you to fuck his ass. You step up behind him and rub the tip of your strap-on against his puckered asshole. You spit in the crack of his ass to add a little more lubrication before you press the head of the strap-on against his asshole until it pops in. He moans in pleasure as your dick easily slides inside him.'
 							'You slowly slide the full length of your <<dick>>cm <<$dick_girth>> dildo into his ass, causing him to moan even louder. Once you are balls deep, you start to slowly thrust the strapon into his ass. "Oh yes, fuck me with your cock!" he moans out. You steadily pick up speed with each thrust and before long, you''re holding onto his hips and pounding his ass. It doesn''t take long until he moans loudly and his whole body starts to shudder. You know he just shot his load without either of you even touching his dick.'
 						else
@@ -542,14 +542,14 @@ if $ARGS[0] = 'igor_peg':
 						act 'Clean up':
 							*clr & cla
 							'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big4.jpg"></center>'
-							if igorqw['schoolstrap'] = 1:
+							if IgorQW['schoolstrap']= 1:
 								'Feeling better, and knowing he feels better, you give him a few last hard deep thrusts before pulling out of him. You take the harness off and clean up the dildo before putting them back in your purse and you both get dressed. Just as you both finish, the bell rings for your next class. You slap him on the ass, which makes him yelp a little as you walk out of the classroom with him. "Fuck you later Igor," you say to him with a wink.'
 								'He blushes and nods as he replies. "Talk to you later <<$pcs_nickname>>." You then both hurry to your next class.'
 							else
 								'Feeling better, and knowing he feels better, you give him a few last hard deep thrusts before pulling out of him. You take the harness off and clean up the dildo before putting them back in your purse and you both get dressed. Just as you both finish, the bell rings for your next class. You slap him on the ass, which makes him yelp a little as you walk out of the classroom with him. "Talk to you later Igor," you say to him with a wink.'
 								'He blushes and nods as he replies. "Talk to you later <<$pcs_nickname>>." You then both hurry to your next class.'
 							end
-							igorqw['schoolstrap'] = 1
+							IgorQW['schoolstrap']= 1
 							act 'Time for the next class': gt 'gschool_lessons', 'short_break'
 						end
 					end

locations/gschool_gossip.qsrc

@@ -431,7 +431,7 @@ if $ARGS[0] = 'mixed':
 		'"She shot him down. Just turned around and left without saying anything."'
 		'"Wow, that''s cold."'
 		'"I know, right? I almost felt a little sorry for the little nerd."'
-	elseif chat_rand = 76 and igor_kdprogulka >= 3:
+	elseif chat_rand = 76 and IgorQW['kdwalk'] >= 3:
 		'"I saw <<$pcs_nickname>> walking through the park with some girl I''ve never seen. She was really pretty."'
 		'"Was she a girl from our school?"'
 		'"I couldn''t get a good look at her face, but they were being really friendly with each other. Maybe a bit too friendly..."'
@@ -945,8 +945,8 @@ if $ARGS[0] = 'girls':
 		'The other girl thinks for a second before answering. "I would say Igor. Sometimes he acts really strange and not like a real man."'
 		'"You''re right, I haven''t really been thinking about it, but I''ve heard he sits down while peeing, just like a girl."'
 		'The two girls laugh and continue gossiping as you move away from them.'
-	elseif chat_rand = 33 and igor_DimaNos > 1:
-		if igor_DimaNos >= 3:
+	elseif chat_rand = 33 and IgorQW['DimaNos'] > 1:
+		if IgorQW['DimaNos'] >= 3:
 			'"Have you seen the girl Dimka has been seen with lately?"'
 			'"Yeah, I saw them holding hands in town. They''re quite cute together."'
 			'"But don''t you think she looks kind of manly?"'
@@ -1189,7 +1189,7 @@ if $ARGS[0] = 'sonia_disco_gossip':
 	end
 	soniafall['gossip'] = soniaQW['soniafall']
 end
-	
+
 if $ARGS[0] = 'gosip':
 	if soniaQW['slut'] > 0 and soniaQW['slut'] < 4 and rand(0,2) = 0:
 		if soniaQW['slut'] = 1:

locations/gschool_grounds.qsrc

@@ -260,7 +260,7 @@ if $ARGS[0] = 'main':
 				if rand(0,4) = 0: gt 'dimaEv', 'after_school'
 				'<a href="exec:minut += 15 & gt ''dimaEv'', ''after_school''">Dimka</a> is deep in thought, as he leans against a lamp post.'
 			end
-			if (igor_history = 1 or IgorLoverQW > 0) and igorkruglovday ! daystart and IdorBlock = 0 and locat['igor'] = 6: '<a href="exec:minut += 15 & igorkruglovday = daystart & gt ''igorhome'', ''entrance''">Igor</a> is talking to some of his friends on the courtyard.'
+			if (IgorQW['history'] = 1 or IgorQW['Lover'] > 0) and IgorQW['daystart'] ! daystart and IgorQW['block'] = 0 and locat['igor'] = 6: '<a href="exec:minut += 15 & IgorQW[''daystart''] = daystart & gt ''igorhome'', ''entrance''">Igor</a> is talking to some of his friends on the courtyard.'
 			if fedorKozlovQW >= 10 and kotovVSkozlov = 1:
 				'You can see <a href="exec: gt ''FedorEv'', ''Strela Chat''">Fedor</a> sitting in the corner of the schoolyard by himself.'
 			elseif fedorKozlovQW >= 10 and fedorkozqw = 2 and FedorLuv < -4:
@@ -290,7 +290,7 @@ if $ARGS[0] = 'main':
 				if rand(0,4) = 0: gt 'dimaEv', 'after_school'
 				gs 'show_table', '<a href="exec:minut += 15 & gt ''dimaEv'', ''after_school''">Dimka Nosov</a>', '5'
 			end
-			if (igor_history = 1 or IgorLoverQW > 0) and igorkruglovday ! daystart and IdorBlock = 0 and locat['igor'] = 6: gs 'show_table', '<a href="exec:minut += 15 & igorkruglovday = daystart & gt ''igorhome'', ''entrance''">Igor Kruglov</a>', '5'
+			if (IgorQW['history'] = 1 or IgorQW['Lover'] > 0) and IgorQW['daystart'] ! daystart and IgorQW['block'] = 0 and locat['igor'] = 6: gs 'show_table', '<a href="exec:minut += 15 & IgorQW[''daystart''] = daystart & gt ''igorhome'', ''entrance''">Igor Kruglov</a>', '5'
 			if fedorKozlovQW >= 10 and kotovVSkozlov = 1:
 				gs 'show_table', '<a href="exec: gt ''FedorEv'', ''Strela Chat''">Fedor</a>', '5'
 			elseif fedorKozlovQW >= 10 and fedorkozqw = 2 and FedorLuv < -4:
@@ -980,15 +980,12 @@ if $ARGS[0] = 'Family extension':
 				end
 			end
 		else
-			if Boyfriend = 0:
-				if $lover[0] ! '':
-					lover_number = 0
-				elseif $lover[1] ! '':
-					lover_number = 1
-				else
-					lover_number = 2
-				end
-				'You hear <<$lover[lover_number]>> shouting your name and jog over to meet them. You both embrace with a cuddle and a kiss on the cheek.'
+			if stat['boyfriends_current'] > 0 or stat['girlfriends_current']:
+				$temp_npcID = func('lover', 'draw_random_from', 'boyfrined', 'girlfriend')
+				gs 'npcStat', $temp_npcID
+				killvar '$temp_npcid'
+
+				'You hear <<$npcdesc>> shouting your name and jog over to meet them. You both embrace with a cuddle and a kiss on the cheek.'
 				'"Hey love, well done."'
 				'"Thanks. And thanks for coming, it means a lot."'
 				'"Of course, I''d come and support you. Now go and get freshened up and we''ll go out, my treat and you choose."'
@@ -1000,8 +997,8 @@ if $ARGS[0] = 'Family extension':
 					if deodorant_on = 1: gs 'sweat', 'remove_deo' & 'Your deodorant gets washed away in the shower.'
 					pcs_hairbsh = 1
 					'<center><video autoplay loop src="images/shared/home/bathroom/dush.mp4"></video></center>'
-					'Rejoining <<$lover[lover_number]>>, you both have a passionate embrace as most folks have gone.'
-					'<<$lover[lover_number]>> then says "Well done again <<$pcs_nickname>>, but I have something I have to do that won''t wait. See you soon."'
+					'Rejoining <<$npcdesc>>, you both have a passionate embrace as most folks have gone.'
+					'<<$npcdesc>> then says "Well done again <<$pcs_nickname>>, but I have something I have to do that won''t wait. See you soon."'
 					minut += 10
 					gs 'stat'
 					act 'Go home': minut += 4 & gt 'homes_properties', 'go_home'

locations/havana_crossfit.qsrc

@@ -14,7 +14,7 @@ if $ARGS[0] = 'box':
 		crossfit_random_choice = daystart
 	end
 
-	if $previous_record_holder ! ''  and pcs_lover < 3 and last_crossfit_workout < daystart:
+	if $previous_record_holder ! '' and last_crossfit_workout < daystart:
 		gt 'havana_crossfit', 'girlmeet'
 	end
 
@@ -115,16 +115,16 @@ if $ARGS[0] = 'girlmeet':
 	menu_off = 1
 	!! generate a girlfriend
 	gs 'npcgeneratec', 1
-	gs 'boyStat', $npclastgenerated
+	gs 'npcStat', $npclastgenerated
 	$boydesc = $previous_record_holder
-	$boyClo = 'wearing workout clothes'
+	$npcClo = 'workout clothes'
 	killvar '$previous_record_holder'
 	minut += 5
 	gs 'stat'
 
-	'<center><img <<$set_imgh>> src="images/characters/shared/headshots_generic/<<lover_picrand[$boy]>>.jpg"></center>'
-	'As you enter the crossfit box, you notice <<$boybody_pref>> girl with <<$boybod_pref>> body and <<$boyface>> hair.
-	She is <<$boyClo>>'
+	'<center><img <<$set_imgh>> src="<<$npc_pic[$boy]>>"></center>'
+	'As you enter the crossfit box, you notice <<$npcheight_pref>> girl with <<$npcbuild_pref>> body and <<$npchair>> hair.
+	She is wearing <<$npcClo>>.'
 	'As she notices you, she greets you "Hi. My name is <<$boydesc>>. I heard you beat my old record, very impressive!"'
 
 	act 'Thank her':
@@ -143,7 +143,7 @@ if $ARGS[0] = 'girlmeet':
 			end
 			act 'Decline':
 				*clr & cla
-				'<center><img <<$set_imgh>> src="images/characters/shared/headshots_generic/<<lover_picrand[$boy]>>.jpg"></center>'
+				'<center><img <<$set_imgh>> src="<<$npc_pic[$boy]>>"></center>'
 				'"I''m sorry but I don''t feel myself attracted to you enough and I don''t want to lead you on."'
 				'<<$boydesc>> looks at you disappointed. "Oh well, I didn''t know if I had a chance but you can''t blame me for trying."'
 				'The two of you say goodbye to each other.'

locations/havana_crossfit_funcs.qsrc

@@ -117,8 +117,7 @@ if $ARGS[0] = 'box_records':
 			box_wod_record[$crossfit_wod] = new_record_wod_time
 			!! record holder changes only in 1/3rd of the cases from previous holder, or if sveta is record holder
 			if rand(0, 2) = 0 OR $box_wod_record_holder[$crossfit_wod] = '' OR $box_wod_record_holder[$crossfit_wod] = $pcs_nickname:
-				gs 'npcrnamefile', 'rusFemale'
-				$box_wod_record_holder[$crossfit_wod] = $npctempgn[1]
+				$box_wod_record_holder[$crossfit_wod] = func('npcrnamefile', 'rusFemale')
 			end
 		end
 		crossfit_record_it += 1

locations/homes_properties.qsrc

@@ -299,14 +299,6 @@ end
 !!			 'purchased' -> both 'owned' and 'tenants'
 !!			 'blocked' -> is the property blocked?
 !!			 'hasaccess' -> can Sveta use the property (without owning or renting it)?
-!! ARGS[1]: the status that is checked as a number
-!!			 Accepted values
-!!			 RENTED or 1 -> is the property rented?
-!!			 OWNED or 2  -> is the property is owned (bought by Sveta) ?
-!!			 TENANTS or 3 -> are there tenants in the property?
-!!			 NO_ACCESS or 0  -> is the property blocked?
-!!			 ACCESSIBLE or 4 -> can Sveta use the property (without owning or renting it)?
-!!			 PURCHASED or 5 -> both 'owned' and 'tenants'
 !! $ARGS[2]: the location for which the access is checked
 !!			Accepted values
 !!			- property code   -> 'city_apartment', 'parents_home'
@@ -316,18 +308,17 @@ end
 !!			  					NOTE: only added in case someone really want to use the old ids
 if $ARGS[0] = 'is_property_of_status':
 	$propstatcode = iif($ARGS[2] = '', $home_name[$loc], $home_name[$ARGS[2]])
-
-	if $ARGS[1] = 'rented' or ARGS[1] = RENTED:
+	if $ARGS[1] = 'rented':
 		result = accessible_property[$propstatcode] = RENTED
-	elseif $ARGS[1] = 'owned' or ARGS[1] = OWNED:
+	elseif $ARGS[1] = 'owned':
 		result = accessible_property[$propstatcode] = OWNED
-	elseif $ARGS[1] = 'tenants' or ARGS[1] = TENANTS:
+	elseif $ARGS[1] = 'tenants':
 		result = accessible_property[$propstatcode] = TENANTS
-	elseif $ARGS[1] = 'blocked' or ARGS[1] = NO_ACCESS:
+	elseif $ARGS[1] = 'blocked':
 		result = accessible_property[$propstatcode] = NO_ACCESS
-	elseif $ARGS[1] = 'hasacces' or ARGS[1] = ACCESSIBLE:
+	elseif $ARGS[1] = 'hasacces':
 		result = accessible_property[$propstatcode] = ACCESSIBLE
-	elseif $ARGS[1] = 'purchased' or ARGS[1] = PURCHASED:
+	elseif $ARGS[1] = 'purchased':
 		result = accessible_property[$propstatcode] = OWNED or accessible_property[$propstatcode] = TENANTS
 	else
 		result = 0

locations/hookup_after.qsrc

@@ -8,30 +8,30 @@ if $ARGS[0] = 'exit':
 	npc_last_sex[$boy] = daystart
 	if hookup['virgin'] = 1 and hookup['fuck'] > 0: npc_virgin_take[$boy] = 1
 	gs 'hookup_after', 'dress'
-			
+
 	if hookup['fuckbuddy'] > 0:
 		know_virgin[$boy] = hookup['virgin']
 		gs 'lover', 'add_fuckbuddy',$boy
 		npc_fuckbuddy[$boy] = 1
 		npc_no_booty_call[$boy] = daystart
 	end
-	
+
 	killvar 'hookup'
 	minut += 2
 	!! exit should be based on type of apartment and location
-	if npc_residence[$boy] = 1:
+	if $npc_residence[$boy] = 'pav_residential':
 		!! Pav residential exit
 		gs 'fame', 'pav', 'sex', rand(2,5)
 		gt 'pav_residential'
-	elseif npc_residence[$boy] = 2:
+	elseif $npc_residence[$boy] = 'uni_grounds':
 		!! Student dorms exit
 		gs 'fame', 'city', 'sex', rand(2,5)
-		gt 'city_island'
-	elseif npc_residence[$boy] = 3:
+		gt 'uni_grounds', 'main'
+	elseif $npc_residence[$boy] = 'city_residential':
 		!! St. Petersburg Residential exit
 		gs 'fame', 'city', 'sex', rand(2,5)
 		gt 'city_residential'
-	elseif npc_residence[$boy] = 4:
+	elseif $npc_residence[$boy] = 'city_center':
 		!! St. Petersburg City Center exit
 		gs 'fame', 'city', 'sex', rand(2,5)
 		gt 'city_center'
@@ -122,13 +122,13 @@ if $ARGS[0] = 'creampie_mad':
 				'"It''s fine," you sigh, taking another deep breath. "I''ll just buy a morning-after pill tomorrow. I shouldn''t have freaked out so much. Sorry."'
 				gs 'hookup_after', 'pre'
 			end
-			
+
 			act'I''ll buy a morning-after pill (calm)':
 				cla & *nl
 				'"It''s fine," you say, shaking your head. "I''ll just buy a morning-after pill."'
 				gs 'hookup_after', 'pre'
 			end
-			
+
 			act'I''ll buy a morning-after pill (nervous)':
 				cla & *nl
 				'"Everything will be okay," you say, still taking deep breaths. "I''ll just buy a morning-after pill. I won''t get pregnant, everything will be fine..." You keep repeating the words to yourself and eventually your heartrate decreases and you feel calm again.'
@@ -165,7 +165,7 @@ if $ARGS[0] = 'creampie_panic':
 		'"Ohmygodohmygodohmygodohmygod!" You cut him off with a torrent of words that spill from your mouth and globs of cum spill from your pussy, causing you to hyperventilate. "You said-! You promised-!"'
 	elseif hookup['condom'] = 4:
 		!! he promised he wouldn''t cum inside you
-		'"Ohmygodohmygodohmygodohmygod!" You cut him off with a torrent of words that spill from your mouth and globs of cum spill from your pussy, causing you to hyperventilate. "You said-! I told you-!"'		
+		'"Ohmygodohmygodohmygodohmygod!" You cut him off with a torrent of words that spill from your mouth and globs of cum spill from your pussy, causing you to hyperventilate. "You said-! I told you-!"'
 	else
 		'"Ohmygodohmygodohmygodohmygod!" You cut him off with a torrent of words that spill from your mouth and globs of cum spill from your pussy, causing you to hyperventilate.'
 	end
@@ -229,7 +229,7 @@ if $ARGS[0] = 'creampie_panic':
 		end
 		act 'Leave': gt 'hookup_after', 'exit'
 	end
-	
+
 	act'That''s not what I''m concerned about! (STDs)':
 		cla & *clr
 		'<center><b><font color="maroon"><<$npc_firstname[$boy]>>''s Bedroom</font></b></center>'
@@ -347,7 +347,7 @@ if $ARGS[0] = 'creampie_react':
 				end
 				gs 'hookup_after', 'creampie_react2'
 			end
-			
+
 		end
 		if orgasm = hookup['orgasm']:
 			act'Come':
@@ -371,12 +371,12 @@ if $ARGS[0] = 'creampie_react':
 			end
 		end
 	end
-	
-	
+
+
 !!{		if hookup['creampie_ask'] = 0:
 			act'Did you just cum inside me?':
 				gs 'cum_call', 'hands',$boy,1
-				
+
 				if $hookup['position'] = 'miss':
 					cla & *clr
 					'<center><img <<$set_imgh>> src="images/shared/sex/cum/vagcreampie/oops.jpg"></center>'
@@ -400,21 +400,21 @@ if $ARGS[0] = 'creampie_react':
 				else
 					'"Yeah, your pussy was so tight, I just couldn''t help it."'
 				end
-				
+
 				act'What the fuck!':
 					cla & *clr
 					'<center><img <<$set_imgh>> src="images/shared/sex/cum/cum111.jpg"></center>'
 					'"What the fuck!" you shout, scrambling backwards off the bed to look down at your pussy, horrified by the white liquid dripping from your snatch.'
 					gs 'hookup_after', 'creampie_mad'
 				end
-				
+
 				act'Panic!':
 					cla & *clr
 					'<center><img <<$set_imgh>> src="images/shared/sex/cum/cum111.jpg"></center>'
 					'"Holy shit!" you shout, scrambling backwards off the bed to look down at your pussy, horrified by the white liquid dripping from your snatch.'
 					gs 'hookup_after', 'creampie_panic'
 				end
-				
+
 				if hookup['not_inside'] = 1 or hookup['condom'] = 2 or hookup['condom'] = 3:
 					act'Forgive the mistake':
 						cla & *clr
@@ -424,7 +424,7 @@ if $ARGS[0] = 'creampie_react':
 						gs 'hookup_talk', 'pillow_talk1'
 					end
 				end
-				
+
 				act'Just wondering':
 					cla & *clr
 					if $hookup['position'] = 'miss':
@@ -440,7 +440,7 @@ if $ARGS[0] = 'creampie_react':
 					gs 'hookup_after', 'pre'
 					gs 'hookup_talk', 'pillow_talk1'
 				end
-				
+
 				act'That''s hot':
 					cla & *clr
 					if $hookup['position'] = 'miss':
@@ -461,7 +461,7 @@ if $ARGS[0] = 'creampie_react':
 						gs 'hookup_after', 'pre'
 						gs 'hookup_talk', 'pillow_talk1'
 					end
-					
+
 					if hookup['creampie_surprise'] = 1:
 						act'Premature ejaculation is hot':
 							cla & *nl
@@ -474,7 +474,7 @@ if $ARGS[0] = 'creampie_react':
 						end
 					end
 				end}
-				
+
 				!!{act'Prank him':
 					cla & *clr
 					if $hookup['position'] = 'miss':
@@ -523,7 +523,7 @@ if $ARGS[0] = 'creampie_react':
 			else
 				'"Yeah, your pussy was so tight, I just couldn''t help it."'
 			end
-			
+
 			act'What the fuck!':
 				gs 'cum_call', 'hands',$boy,1
 				cla & *clr
@@ -537,7 +537,7 @@ if $ARGS[0] = 'creampie_react':
 				end
 				gs 'hookup_after', 'creampie_mad'
 			end
-			
+
 			act'Panic!':
 				gs 'cum_call', 'hands',$boy,1
 				cla & *clr
@@ -551,7 +551,7 @@ if $ARGS[0] = 'creampie_react':
 				end
 				gs 'hookup_after', 'creampie_panic'
 			end
-			
+
 			act'Just wondering':
 				cla & *clr
 				if $hookup['position'] = 'miss':
@@ -567,7 +567,7 @@ if $ARGS[0] = 'creampie_react':
 				gs 'hookup_after', 'pre'
 				gs 'hookup_talk', 'pillow_talk1'
 			end
-			
+
 			act'That''s hot':
 				cla & *clr
 				if $hookup['position'] = 'miss':
@@ -601,14 +601,14 @@ if $ARGS[0] = 'creampie_react':
 					end
 				end
 			end
-			
-!!{			if orgasm = hookup['orgasm'] 
+
+!!{			if orgasm = hookup['orgasm']
 				act'Ugh, two pump chump':
-				
-				
+
+
 				end
 			end}
-			
+
 			if hookup['not_inside'] = 1 or hookup['condom'] = 2 or hookup['condom'] = 3:
 				act'Forgive the mistake':
 					cla & *clr
@@ -621,7 +621,7 @@ if $ARGS[0] = 'creampie_react':
 						'<i>I''ll probably be fine. I mean, what are the odds that something bad happens, right?</i>'
 						gs 'hookup_after', 'pre'
 					end
-					
+
 					act'I''ll buy a morning-after pill':
 						cla & *nl
 						'You bite your lip for a moment considering the situation.'
@@ -629,7 +629,7 @@ if $ARGS[0] = 'creampie_react':
 						'<i>Well... that probably isn''t good... I''ll have to buy a morning-after pill tomorrow. As long as I don''t forget it should be fine, right?</i>'
 						gs 'hookup_after', 'pre'
 					end
-					
+
 					if tabletkishot > 0 or birth_control['think_safe'] = 1:
 						gs 'hookup_after', 'birth_control'
 					else
@@ -649,9 +649,9 @@ if $ARGS[0] = 'creampie_react2':
 	gs 'hookup_after', 'birth_control'
 	gs 'hookup_after', 'birth_control_lie'
 	gs 'hookup_after', 'preg_responsibility_tease'
-	
+
 	gs 'hookup_after', 'have_to_ask'
-	
+
 	if npc_selfish[$boy] > 0 or npc_abusive[$boy] > 0:
 		if hookup['did_you_cum_inside'] = 0 and hookup['take_in_stride'] ! 1:'"Ahh yeah. Cumming inside is the best."'
 		act'Glad you enjoyed yourself':
@@ -661,7 +661,7 @@ if $ARGS[0] = 'creampie_react2':
 			gs 'hookup_after', 'pre'
 			gs 'hookup_talk', 'pillow_talk1'
 		end
-		
+
 		act'It was hot':
 			cla & *clr
 			'<center><video autoplay loop src="images/shared/sex/after/pillow_talk1.mp4"></video></center>'
@@ -681,7 +681,7 @@ if $ARGS[0] = 'creampie_react2':
 			gs 'hookup_after', 'pre'
 			gs 'hookup_talk', 'pillow_talk1'
 		end
-		
+
 		act'It was cute':
 			cla & *clr
 			'<center><video autoplay loop src="images/shared/sex/after/pillow_talk2.mp4"></video></center>'
@@ -692,7 +692,7 @@ if $ARGS[0] = 'creampie_react2':
 			gs 'hookup_after', 'pre'
 			gs 'hookup_talk', 'pillow_talk1'
 		end
-		
+
 		act'It was hot':
 			cla & *clr
 			'<center><video autoplay loop src="images/shared/sex/after/pillow_talk1.mp4"></video></center>'
@@ -850,7 +850,7 @@ if $ARGS[0] = 'light_cigarette':
 				'<center><img <<$set_imgh>> src="images/shared/sex/after/bed_smoke2.jpg"></center>'
 				'"Any chance I could get one of those?" you ask in the most sultry way you can.'
 				'"Cost is one fuck per," <<$npc_firstname[$boy]>> says, grinning.'
-				'"Well it''s a good thing I paid upfront then," you smile back, plucking one from his pack.' 
+				'"Well it''s a good thing I paid upfront then," you smile back, plucking one from his pack.'
 				act'Continue':
 					cla & *clr
 					gs 'drugs', 'smoke', 1
@@ -906,7 +906,7 @@ if $ARGS[0] = 'light_cigarette2':
 		'<center><img <<$set_imgh>> src="images/shared/sex/after/bed_smoke2.jpg"></center>'
 		'"Any chance I could get one of those?" you ask in the most sultry way you can.'
 		'"Cost is one fuck per," <<$npc_firstname[$boy]>> says, grinning.'
-		'"Well it''s a good thing I paid upfront then," you smile back, plucking one from his pack.' 
+		'"Well it''s a good thing I paid upfront then," you smile back, plucking one from his pack.'
 		act'Continue':
 			cla & *clr
 			gs 'drugs', 'smoke', 1
@@ -962,7 +962,7 @@ if $ARGS[0] = 'pre':
 						end
 						gs 'cum_cleanup'
 						cla & *clr
-						
+
 						if cum_loc['vagina'] > 0 or $hookup['cum_choice'] = 'creampie':
 							!! vagina
 							if hypnoAddict > 0:
@@ -1003,7 +1003,7 @@ if $ARGS[0] = 'pre':
 								'"Oh yeah, right here." <<$npc_firstname[$boy]>> reaches over to his nightstand, pulls a packet of tissues and tosses them over to you. Gratefully accepting them, you pull out a handful and get to work cleaning yourself up.'
 							end
 							*nl
-							
+
 							if cum_loc['hair'] > 0:
 								!! hair
 								'You carefully wipe the cum from your face, making sure to get every last drop, including getting the tangled web that <<$npc_firstname[$boy]>> managed to get in your hair. About a minute later, you can still feel a faintly sticky layer over the top of your skin, but at least nobody is going to give you funny looks walking down the street.'
@@ -1030,7 +1030,7 @@ if $ARGS[0] = 'pre':
 							else
 								'You really need to clean yourself after up after that. Reaching down to your purse, you pull some wipes out of your purse.'
 							end
-						end						
+						end
 						act'Get dressed':
 							cla & *clr
 							'<center><video autoplay loop src="images/pc/activities/misc/dress_1.mp4"></video></center>'
@@ -1042,7 +1042,7 @@ if $ARGS[0] = 'pre':
 							act 'Leave': gt 'hookup_after', 'exit'
 						end
 					end
-					
+
 					act'Borrow your shower?':
 						cla & *clr
 						$npc_apt_bedroom[$boy]
@@ -1108,7 +1108,7 @@ if $ARGS[0] = 'pre':
 					end
 				end
 			end
-			
+
 			act'Seriously?':
 				cla & *nl
 				'"Seriously?" you ask in disbelief.'
@@ -1234,7 +1234,7 @@ if $ARGS[0] = 'pre':
 			end
 			gs 'hookup_after', 'start'
 		end
-		
+
 		act'Get up':
 			hookup['get_up'] = 1
 			cla & *clr
@@ -1244,7 +1244,7 @@ if $ARGS[0] = 'pre':
 			*nl
 			'You swing your legs over the side and scooting forward until your feet touch the ground and allow you to stand up from the bed.'
 		end
-		
+
 		act'Play with your phone':
 			cla & *clr
 			minut += rand(2,5)
@@ -1265,7 +1265,7 @@ if $ARGS[0] = 'pre':
 			end
 			gs 'hookup_after', 'start'
 		end
-		
+
 		if mc_inventory['cigarettes'] > 0 and hookup['cigarette'] = 0:
 			act'Have a smoke':
 				cla & *clr
@@ -1274,7 +1274,7 @@ if $ARGS[0] = 'pre':
 				hookup['cigarette'] = 1
 				act 'Smoke': gt 'hookup_after', 'start'
 			end
-			
+
 			act'Have a smoke and play with your phone':
 				hookup['cigarette'] = 3
 				gs 'hookup_after', 'start'
@@ -1288,7 +1288,7 @@ if $ARGS[0] = 'pre':
 					gt 'hookup_after', 'wipes'
 				end
 			end
-			
+
 			act'Clean yourself up (ask him for wipes)':
 				hookup['wipes'] = 2
 				gt 'hookup_after', 'wipes'
@@ -1315,7 +1315,7 @@ if $ARGS[0] = 'wipes':
 			'You reach up and poke at the sperm coating your face. Ew. You really need to clean that up before you do anything else. Reaching down to your purse, you pull some wipes out of your purse.'
 		end
 		*nl
-		
+
 		if cum_loc['hair'] > 0:
 			!! hair
 			'You carefully wipe the cum from your face, making sure to get every last drop, including getting the tangled web that <<$npc_firstname[$boy]>> managed to get in your hair. About a minute later, you can still feel a faintly sticky layer over the top of your skin, but at least nobody is going to give you funny looks walking down the street.'
@@ -1371,13 +1371,13 @@ if $ARGS[0] = 'wipes':
 			end
 		end
 	end
-		
+
 	if cum_loc['hands'] > 0:
 		*nl
 		!! hands
 		'Once you''re satisfied that the rest of your body is clean, you wipe your hands off and toss the wipes into the trash.'
 	end
-	
+
 	hookup['wipes'] = 0
 	gs 'cum_cleanup'
 	gs 'hookup_after', 'start'
@@ -1436,7 +1436,7 @@ if $ARGS[0] = 'start':
 		*nl
 		'<<$npc_firstname[$boy]>> is just laying back on his bed, relaxing in the afterglow of your little encounter together.'
 	end
-	
+
 	act'Can I borrow your shower?':
 		cla & *clr
 		$npc_apt_bathroom[$boy]
@@ -1453,17 +1453,17 @@ if $ARGS[0] = 'start':
 			!!	'Joins you in the shower'
 			dynamic $showerdin
 			'You turn on the faucet, relaxing as the hot water pours down over your skin. After a few minutes, you turn the tap off, toweling off using what you can only assume to be <<$npc_firstname[$boy]>>''s towel and walk naked back into his room. <<$npc_firstname[$boy]>> is still there, relaxing in his bed'
-			
+
 			gs 'hookup_after', 'gotta_go'
-			
+
 			act 'Crawl back into bed': gt 'hookup_after', 'cuddle'
 		end
 	end
 	if hookup['get_up'] ! 1:
 		if hour > 20 or hour < 5:act 'Rest your eyes': gt 'hookup_after', 'bed'
-		
+
 		act 'Cuddle up with <<$npc_firstname[$boy]>>': gt 'hookup_after', 'cuddle'
-			
+
 		if npc_smoker[$boy] > 0 and hookup['cigarette'] = 0:
 			act'Ask to bum a cigarette':
 				cla & *nl
@@ -1473,7 +1473,7 @@ if $ARGS[0] = 'start':
 			end
 		end
 	end
-	
+
 	gs 'hookup_after', 'gotta_go'
 end
 
@@ -1525,13 +1525,13 @@ if $ARGS[0] = 'bed':
 		if $hookup['cum_choice'] = 'face':
 			!! face
 			'<center><img <<$set_imgh>> src="images/shared/sex/cum/facial/sleep<<rand(1,3)>>.jpg"></center>'
-			
+
 		elseif $hookup['cum_choice'] = 'stomach':
 			!! stomach
 			'<center><img <<$set_imgh>> src="images/shared/sex/cum/stomach/sleep1.jpg"></center>'
 		elseif $hookup['cum_choice'] = 'ass' or $hookup['cum_choice'] = 'back':
 			!! butt
-			'<center><img <<$set_imgh>> src="images/shared/sex/cum/back1.jpg"></center>'			
+			'<center><img <<$set_imgh>> src="images/shared/sex/cum/back1.jpg"></center>'
 		elseif $hookup['cum_choice'] = 'creampie':
 			!! vagina
 			'<center><img <<$set_imgh>> src="images/shared/sex/cum/vagcreampie/after2.jpg"></center>'
@@ -1565,7 +1565,7 @@ if $ARGS[0] = 'cuddle':
 		'Hair still wet from the shower, you crawl back into bed with <<$npc_firstname[$boy]>> and cuddle up, resting your naked body on top of his. He wraps his arms around you in return and the two of you relax, listening to the sound of each other''s breathing.'
 	else
 		'Scootching over, you cuddle up with <<$npc_firstname[$boy]>>, resting your naked body on top of his. He wraps his arms around you in return and the two of you relax, listening to the sound of each other''s breathing.'
-	end	
+	end
 
 	gs 'hookup_after', 'gotta_go'
 	if hour > 20 or hour < 2:
@@ -1598,7 +1598,7 @@ if $ARGS[0] = 'gotta_go':
 		gs 'hookup_after', 'dress_loop'
 		gs 'hookup_after', 'hookup_continuation'
 	end
-	
+
 	act'Thanks for the <<$hookup[''fun'']>>':
 		hookup['thank_for_fun'] = 1
 		gs 'hookup_after', 'dress_loop'
@@ -1609,7 +1609,7 @@ if $ARGS[0] = 'gotta_go':
 		else
 			'"Well, thanks for the <<$hookup[''fun'']>>," you say, bending down to pick up your clothes.'
 		end
-		
+
 		if hookup['bj'] > 0 and hookup['fuck'] < 1:
 			if hookup['virgin'] > 0:
 				'"Thanks for the blowjob," he smirks back. "You give pretty good head. You sure you''re a virgin?" You don''t respond, <<$hookup[''dress_describe'']>>, but roll your eyes at his commentary.'
@@ -1628,9 +1628,9 @@ if $ARGS[0] = 'hookup_continuation':
 		'"Really?" <<$npc_firstname[$boy]>> sits up in bed. "You don''t have to. Are you sure you don''t want to spend the night?"'
 		gs 'hookup_after', 'spend_the_night'
 	elseif hookup['continuation'] > 0:
-		if npc_goal[$boy] = 1:
+		if $npc_rel_goal[$boy] = 'sex':
 			gs 'hookup_after', 'npc_fuckbuddy_request'
-		elseif npc_goal[$boy] > 1:
+		elseif $npc_rel_goal[$boy] ! '':
 			gs 'hookup_after', 'npc_date_request'
 		end
 		gs 'hookup_after', 'finish_dressing'
@@ -1660,7 +1660,7 @@ if $ARGS[0] = 'spend_the_night':
 			'"... no," you sigh. "I really shouldn''t. I want to, but I can''t."'
 			gs 'hookup_after', 'hookup_continuation'
 		end
-		
+
 		act'I guess I could...':
 			cla & *clr
 			'<center><b><font color="maroon"><<$npc_firstname[$boy]>>''s Bedroom</font></b></center>'
@@ -1669,16 +1669,16 @@ if $ARGS[0] = 'spend_the_night':
 			act'Undress and get into bed with him':
 				cla & *clr
 				'<center><img <<$set_imgh>> src="images/shared/sex/after/cuddle1.jpg"></center>'
-				'After pulling off your clothes again, you slip back into bed and cuddle up with <<$npc_firstname[$boy]>>, resting your naked body on top of his. He wraps his arms around you in return and the two of you relax, listening to the sound of each other''s breathing.'						
+				'After pulling off your clothes again, you slip back into bed and cuddle up with <<$npc_firstname[$boy]>>, resting your naked body on top of his. He wraps his arms around you in return and the two of you relax, listening to the sound of each other''s breathing.'
 				act'Fall asleep':
 					cla & *nl
 					'As you lay there together, your eyelids slowly grow heavier until they close completely and your consciousness drifts slowly into darkness...'
 					act '. . .': gt 'hookup_after', 'sleep'
 				end
 			end
-		end				
+		end
 	end
-	
+
 	act'I really need to go':
 		cla & *clr
 		'<center><video autoplay loop src="images/pc/activities/misc/dress_1.mp4"></video></center>'
@@ -1759,7 +1759,7 @@ if $ARGS[0] = 'pc_date_request':
 end
 
 if $ARGS[0] = 'npc_fuckbuddy_request':
-	if hookup['thank_for_fun'] = 1:		
+	if hookup['thank_for_fun'] = 1:
 		'"You want to do it again sometime? Nothing serious, just sex. No strings."'
 		'"Like what?" you ask back, <<$hookup[''dress_describe'']>>. "Friends with benefits? Fuckbuddies? Booty callers?"'
 		'"Yeah, just like that," he grins.'
@@ -1830,11 +1830,11 @@ if $ARGS[0] = 'npc_date_request':
 			'<i>Holy fuck this is awkward,</i> you think to yourself as you pull the last of your clothes on. After giving yourself a once over, you give <<$npc_firstname[$boy]>> a strained smile and wave goodbye, quickly striding towards the door to escape.'
 			act 'Leave': gt 'hookup_after', 'exit'
 		end
-		
+
 		act'If we were fuckbuddies...':
 			cla & *nl
 			'"If it were something purely physical, like fuckbuddies or something, I wouldn''t mind getting together for some fun, but I''m just not interested in dating."'
-			if rand(1,10) > 7 and npc_goal[$boy] ! 3:
+			if rand(1,10) > 7 and $npc_rel_goal[$boy] ! 'serious':
 				hookup['fuckbuddy'] = 1
 				'"Well... If it means I can see you again, then sure I guess." <<$npc_firstname[$boy]>> doesn''t really seem satisfied with the results, but he still tells you his number while you tap it into your contact list.'
 				'"So uhh, yeah... Call me sometime?"'
@@ -1850,7 +1850,7 @@ if $ARGS[0] = 'npc_date_request':
 					'"Uhh well, uhh... Alright... Guess I won''t see you later then..." you respond awkwardly. After giving yourself a once over, you give <<$npc_firstname[$boy]>> a strained smile and wave goodbye, quickly striding towards out the door.'
 					act 'Leave': gt 'hookup_after', 'exit'
 				end
-				
+
 				act'It''s to be expected':
 					cla & *clr
 					'<center><b><font color="maroon"><<$npc_firstname[$boy]>>''s Bedroom</font></b></center>'
@@ -1907,14 +1907,18 @@ if $ARGS[0] = 'just_a_hookup':
 end
 
 if $ARGS[0] = 'have_a_boyfriend':
-	if pcs_lovers - pcs_girlfriends > 0:
-		act'I have a boyfriend':
+	if stat['boyfriends_current'] > 0:
+		act 'I have a boyfriend':
 			npc_know_girlfriend[$boy] = 0
 			cla & *clr
 			'<center><video autoplay loop src="images/shared/romance/misc/depart_annoyed1.mp4"></video></center>'
 			'"I have a boyfriend," you say, giving him a look.'
-			if npc_fidelity[$boy] = 6:
-				if npc_girlfriend[$boy] = 1 and npc_goal[$boy] = 1:
+			if $npc_fidelity[$boy] = 'faithful':
+				'"Oh. Uhh, well..." <<$npc_firstname[$boy]>> trails off and you''re left in an extremely uncomfortable silence while you get dressed in front of him.'
+				'<i>Holy fuck this is awkward,</i> you think to yourself as you pull the last of your clothes on. After giving yourself a once over, you give <<$npc_firstname[$boy]>> a strained smile and wave goodbye, quickly striding towards the door to escape.'
+				act 'Leave': gt 'hookup_after', 'exit'
+			else
+				if npc_girlfriend[$boy] = 1 and $npc_rel_goal[$boy] = 'sex':
 					'"So? I have a girlfriend," he grins shamelessly. "Doesn''t mean we can''t keep fucking."'
 					act'No way':
 						cla & *clr
@@ -1936,24 +1940,20 @@ if $ARGS[0] = 'have_a_boyfriend':
 					'"Yeah, sure," you snigger back, pulling on the rest of your clothes. You give yourself a once over, making sure everything''s in place and wave goodbye as you head towards the door.'
 					act 'Leave': gt 'hookup_after', 'exit'
 				end
-			else
-				'"Oh. Uhh, well..." <<$npc_firstname[$boy]>> trails off and you''re left in an extremely uncomfortable silence while you get dressed in front of him.'
-				'<i>Holy fuck this is awkward,</i> you think to yourself as you pull the last of your clothes on. After giving yourself a once over, you give <<$npc_firstname[$boy]>> a strained smile and wave goodbye, quickly striding towards the door to escape.'
-				act 'Leave': gt 'hookup_after', 'exit'
 			end
 		end
 	end
 end
 
 if $ARGS[0] = 'have_a_girlfriend':
-	if pcs_girlfriends > 0:
+	if stat['girlfriends_current'] > 0:
 		act'I have a girlfriend':
 			npc_know_girlfriend[$boy] = 1
 			cla & *clr
 			'<center><video autoplay loop src="images/shared/romance/misc/depart_annoyed1.mp4"></video></center>'
 			'"I have a girlfriend," you say, giving him a look.'
 			if npc_fidelity[$boy] = 6:
-				if npc_girlfriend[$boy] = 1 and npc_goal[$boy] = 1:
+				if npc_girlfriend[$boy] = 1 and $npc_rel_goal[$boy] = 'sex':
 					'"Hey, me too!" he grins shamelessly.'
 					act'No way':
 						cla & *clr
@@ -2002,7 +2002,7 @@ if $ARGS[0] = 'dress_loop':
 		gs 'panties', 'wear', $lastwornpantytype['hookup'], lastwornpantynumber['hookup']
 		killvar 'lastwornpantytype'
 		killvar 'lastwornpantynumber'
-		
+
 		if $lastwornbratype['hookup'] ! 'none':
 			$hookup['dress_describe'] += 'fastening your bra around your chest'
 			if $clothingworntype = 'nude': $hookup['dress_describe'] += ' then '
@@ -2104,7 +2104,7 @@ if $ARGS[0] = 'panty_gift2':
 			gs 'hookup_after', 'later'
 		end
 	end
-	
+
 	act'Something to remember the occassion':
 		cla & *clr
 		$npc_apt_bedroom[$boy]
@@ -2122,7 +2122,7 @@ if $ARGS[0] = 'panty_gift2':
 			gs 'hookup_after', 'later'
 		end
 	end
-	
+
 	act'Consider it a trophy':
 		cla & *clr
 		$npc_apt_bedroom[$boy]
@@ -2163,7 +2163,7 @@ if $ARGS[0] = 'panty_gift2':
 				gs 'hookup_after', 'later'
 			end
 		end
-		
+
 	end
 end
 
@@ -2174,13 +2174,13 @@ if $ARGS[0] = 'panty_gift_girlfriend':
 		'"Just hide them," you say, <<$hookup[''dress_describe'']>>. "If you can hide a fucking a girl in your bed, surely you can hide a pair of panties."'
 		gs 'hookup_after', 'finish_dressing'
 	end
-	
+
 	act'Say they''re hers':
 		cla & *nl
 		'"Tell her they''re hers," you snicker, <<$hookup[''dress_describe'']>>. "Maybe she''ll think she bought them."'
 		gs 'hookup_after', 'finish_dressing'
 	end
-	
+
 	act'Say they''re yours':
 		gs 'hookup_after', 'dress_loop'
 		cla & *nl
@@ -2195,7 +2195,7 @@ if $ARGS[0] = 'panty_gift_girlfriend':
 				'You move to <<$hookup[''dress_describe'']>> but <<$npc_firstname[$boy]>> continues to glare at you out of the corner of your eye for a few moments longer before looking away.'
 				gs 'hookup_after', 'later'
 			end
-			
+
 			act'I was kidding (acerbic)':
 				cla & *clr
 				$npc_apt_bedroom[$boy]
@@ -2209,13 +2209,13 @@ if $ARGS[0] = 'panty_gift_girlfriend':
 			gs 'hookup_after', 'later'
 		end
 	end
-	
+
 	act'Give them to her':
 		cla & *nl
 		'"Gift them to her," you say mischievously, <<$hookup[''dress_describe'']>>. "Maybe she''ll put them on."'
 		gs 'hookup_after', 'later'
 	end
-	
+
 	act'Throw them away':
 		cla & *nl
 		'"Throw them away then," you shrug, <<$hookup[''dress_describe'']>>. "Do whatever you want with them.'
@@ -2234,8 +2234,8 @@ if $ARGS[0] = 'sleep':
 		gs 'pain', 3, 'head', 'ache'
 	else
 		gs 'sleep', 'simple'
-	end	
-	
+	end
+
 	if mid($start_type,1,2) = 'sg' and func('homes_properties', 'has_access', 'parents_home'): sveta_punishment['no_come_home'] = 1
 	gt 'hookup_morning', 'morning'
 end

locations/hookup_female.qsrc

@@ -2,6 +2,7 @@
 !! 2021/05/06
 if $ARGS[0] = 'quickie':
 	$location_type = 'indoors'
+	gs 'boyStat', $npclastsaved
 	*clr & cla
 	'<center><img <<$set_imgh>> src="images/shared/romance/lovers/hookups/gf/gf1.jpg"></center>'
 	'<<$npc_firstname[$npclastsaved]>> opens the door to her apartment and you both immediately begin caressing each other and kissing passionately.'
@@ -56,16 +57,16 @@ if $ARGS[0] = 'quickie':
 						gs 'arousal', 'kiss', 2
 						act 'Yes':
 							*clr & cla
-							'<center><img <<$set_imgh>> src="images/characters/shared/headshots_generic/<<lover_picrand[$boy]>>.jpg"></center>'
+							'<center><img <<$set_imgh>> src="<<$npc_pic[$boy]>>"></center>'
 							'"Umm, very unexpected but wow! Yeah, that would be great, I''ll look forward to our date. Don''t make me wait too long!'
 							act 'Leave':
-								gs 'lover', 'add'
+								gs 'lover', 'add_girlfriend', $boy
 								gt 'hookup_after', 'exit'
 							end
 						end
 						act 'No':
 							*clr & cla
-							'<center><img <<$set_imgh>> src="images/characters/shared/headshots_generic/<<lover_picrand[$boy]>>.jpg"></center>'
+							'<center><img <<$set_imgh>> src="<<$npc_pic[$boy]>>"></center>'
 							'"I really enjoyed it too, but it''s probably best to leave it here. You never know, we might bump into each other again."'
 							act 'Leave':
 								gt 'hookup_after', 'exit'

locations/hunterLoveSex.qsrc

@@ -21,8 +21,11 @@ if $ARGS[0] = 'din_hunters_bj_bonusH1':
 	'<center><video autoplay loop src="images/shared/sex/blowjob/kotovbjbonus1.mp4"></video></center>'
 	*pl
 	'You glide your tongue over the head of his member, gently flicking and poking at his urethra.'
-	if harakBoyH = 2:'<<$boydesc>> looks down at you: -<<$pcs_nickname>>, what are you doing, stop it, I''m fucking going to cum from this already.'
-	if harakBoyH < 2:'<<$boydesc>> looks down at you: -<<$pcs_nickname>>, what are you doing, stop it, I''m going to shoot my load already.'
+	if npc_rough[$boy] = 1:
+		'<<$boydesc>> looks down at you: -<<$pcs_nickname>>, what are you doing, stop it, I''m fucking going to cum from this already.'
+	else
+		'<<$boydesc>> looks down at you: -<<$pcs_nickname>>, what are you doing, stop it, I''m going to shoot my load already.'
+	end
 	gs 'arousal', 'foreplay', 5, 'sub'
 	gs 'stat'
 	act 'Continue':gt 'hunterLoveSex', 'din_hunters_bjH1'
@@ -93,8 +96,11 @@ if $ARGS[0] = 'din_hunters_bj_bonusH2':
 	'<center><video autoplay loop src="images/shared/sex/blowjob/kotovbjbonus2.mp4"></video></center>'
 	*pl
 	'He shivers slightly as you gently bite the head of his cock with your pearly white teeth.'
-	if harakBoyH = 2:'-Hey, fuck, <<$pcs_nickname>>, are you mistaking my dick for a banana? Cut that shit out!'
-	if harakBoyH < 2:'-Be careful <<$pcs_nickname>>, stop joking around with that thing.'
+	if npc_rough[$boy] = 1:
+		'-Hey, fuck, <<$pcs_nickname>>, are you mistaking my dick for a banana? Cut that shit out!'
+	else
+		'-Be careful <<$pcs_nickname>>, stop joking around with that thing.'
+	end
 	'You smile and look at him.'
 	gs 'arousal', 'foreplay', 5, 'sub'
 	gs 'stat'
@@ -231,8 +237,11 @@ if $ARGS[0] = 'din_hunters_bj_bonusH4':
 	'<center><video autoplay loop src="images/shared/sex/blowjob/kotovbjbonus4.mp4"></video></center>'
 	*pl
 	'Grasping the base of his penis, you do as he asks, slapping his cock against your cheeks.'
-	if harakBoyH = 2:'-Oh yeah, you are my little submissive bitch, get down on that dick honey.'
-	if harakBoyH = 0:'-Oh yeah, you know what I like, go ahead honey.'
+	if npc_rough[$boy] = 1:
+		'-Oh yeah, you are my little submissive bitch, get down on that dick honey.'
+	elseif npc_gentle[$boy] = 1:
+		'-Oh yeah, you know what I like, go ahead honey.'
+	end
 	gs 'arousal', 'foreplay', 5, 'sub'
 	gs 'stat'
 	act 'Continue':gt 'hunterLoveSex', 'din_hunters_bjH4'
@@ -289,8 +298,11 @@ if $ARGS[0] = 'din_hunters_bj_bonusH6':
 	'<center><video autoplay loop src="images/shared/sex/blowjob/kotovbjbonus6.mp4"></video></center>'
 	*pl
 	'<<$boydesc>> slaps his member on your face.'
-	if harakBoyH > 0:'-Bad girl, now daddy will punish you.'
-	if harakBoyH = 0:'-You are a perfect little slut, he says with a smile.'
+	if npc_gentle[$boy] = 1:
+		'-You are a perfect little slut, he says with a smile.'
+	else
+		'-Bad girl, now daddy will punish you.'
+	end
 	gs 'arousal', 'foreplay', 5, 'sub'
 	gs 'stat'
 	act 'Continue':gt 'hunterLoveSex', 'din_hunters_bjH6'
@@ -303,9 +315,9 @@ if $ARGS[0] = 'din_hunters_bjH6':
 	*pl
 	h = rand(1,3)
 	'Grasping his thick cock in your hands, you begin to stroke it confidently watching his reaction.'
-	if harakBoyH > 0:'-Well,<<$pcs_nickname>>, I can jerk myself off, but lets see what sort of skills you have.'
+	if npc_gentle[$boy] = 0: '-Well,<<$pcs_nickname>>, I can jerk myself off, but lets see what sort of skills you have.'
 	gs 'arousal', 'foreplay', 5, 'sub'
-	if harakBoyH = 0:'-Come on,<<$pcs_nickname>>, show me what you can do!   <<$boydesc>> says, gazing deep into your eyes.'
+	if npc_gentle[$boy] = 1: '-Come on,<<$pcs_nickname>>, show me what you can do!   <<$boydesc>> says, gazing deep into your eyes.'
 	*pl
 	gs 'arousal', 'foreplay', 5, 'sub'
 	if hunters_bj_times < 3:'You stick out your tongue and <a href="exec:gt ''hunterLoveSex'', ''din_hunters_bj_bonusH6''">lick</a> his hot cockhead.'
@@ -422,8 +434,8 @@ if $ARGS[0] = 'din_hunters_bj_bonusH8':
 	'<center><video autoplay loop src="images/shared/sex/cum/kotovbjbonus12.mp4"></video></center>'
 	*pl
 	'You try to take his cock even deeper, but, unaccustomed to deepthroating, you gag and almost puked all over him.'
-	if harakBoyH = 2:' -Fuck, fucking<<$pcs_nickname>>, if you are not able to take it all, work on it at home with a banana, and not on my cock.'
-	if harakBoyH = 0:' -Don''t worry <<$pcs_nickname>>, maybe you''ll be able to take all of it next time.'
+	if npc_rough[$boy] = 1: ' -Fuck, fucking<<$pcs_nickname>>, if you are not able to take it all, work on it at home with a banana, and not on my cock.'
+	if npc_gentle[$boy] = 1: ' -Don''t worry <<$pcs_nickname>>, maybe you''ll be able to take all of it next time.'
 	gs 'arousal', 'bj', 5, 'sub', 'deepthroat'
 	gs 'stat'
 	act 'Continue':gt 'hunterLoveSex', 'din_hunters_bjH8'
@@ -597,7 +609,7 @@ if $ARGS[0] = 'din_hunters_sex_cumface7':
 	'<center><video autoplay loop src="images/shared/sex/cum/cumf70.mp4"></video></center>'
 	*pl
 	'You feel his member begin to throb in your mouth as it unleashes a torrent of hot, tart spunk down your throat.'
-	if harakBoyH < 2: '-Sorry <<$pcs_nickname>>, I couldn''t hold  back any longer.'
+	if npc_rough[$boy] = 0: '-Sorry <<$pcs_nickname>>, I couldn''t hold  back any longer.'
 	if silavag = 0 and dikos = 0:'All <<$pcs_nickname>> hare. I can''t.'
 	if silavag = 1 and dikos = 1:'All <<$pcs_nickname>>. I can''t.'
 	if silavag = 2 and dikos = 2:'All <<$pcs_nickname>>, enough. I can''t.'
@@ -662,7 +674,7 @@ if $ARGS[0] = 'din_hunters_sex_cumface6':
 	'<center><video autoplay loop src="images/shared/sex/cum/cumf60.mp4"></video></center>'
 	*pl
 	'You feel his cock start to throb in your mouth as it unleashes a torrent of spunk. Your mouth can''t possibly accomodate his massive load and your quickly gulp it down as fast as you can.'
-	if harakBoyH = 2: '-Insatiable slut, here''s what you''ve been missing all day.'
+	if npc_rough[$boy] = 1: '-Insatiable slut, here''s what you''ve been missing all day.'
 	if silavag = 0 and dikos = 0:'Sorry <<$pcs_nickname>>. I couldn''t help myself!'
 	if silavag = 1 and dikos = 1:'Sorry <<$pcs_nickname>>. I couldn''t help myself!'
 	if silavag = 2 and dikos = 2:'Sorry <<$pcs_nickname>>. I couldn''t help myself!'
@@ -728,7 +740,7 @@ if $ARGS[0] = 'din_hunters_sex_cumface5':
 	'<center><video autoplay loop src="images/shared/sex/cum/cumf50.mp4"></video></center>'
 	*pl
 	'His powerful jet of cum hits you on the face chin. It slowly drips onto your tits, leaving them nicely glazed with his fresh load.'
-	if harakBoyH = 2: '-<<$pcs_nickname>>, just dig your kueng Boobs.'
+	if npc_rough[$boy] = 1: '-<<$pcs_nickname>>, just dig your kueng Boobs.'
 	if silavag = 0 and dikos = 0:'Sorry <<$pcs_nickname>>. I couldn''t help myself!'
 	if silavag = 1 and dikos = 1:'Sorry <<$pcs_nickname>>. I couldn''t help myself!'
 	if silavag = 2 and dikos = 2:'Sorry <<$pcs_nickname>>. I couldn''t help myself!'
@@ -794,7 +806,7 @@ if $ARGS[0] = 'din_hunters_sex_cumface4':
 	'<center><video autoplay loop src="images/shared/sex/cum/cumf40.mp4"></video></center>'
 	*pl
 	'<<$boydesc>> cum is on your chest. Warm droplets flow down to your stomach. You smear the sticky cum all over your body, relishing the feeling.'
-	if harakBoyH = 2: '-<<$pcs_nickname>>, it''s supposed to help your tits grow. Do you want to be my Busty beauty?'
+	if npc_rough[$boy] = 1: '-<<$pcs_nickname>>, it''s supposed to help your tits grow. Do you want to be my Busty beauty?'
 	if silavag = 0 and dikos = 0:'Sorry <<$pcs_nickname>>. I couldn''t help myself!'
 	if silavag = 1 and dikos = 1:'Sorry <<$pcs_nickname>>. I couldn''t help myself!'
 	if silavag = 2 and dikos = 2:'Sorry <<$pcs_nickname>>. I couldn''t help myself!'
@@ -860,7 +872,7 @@ if $ARGS[0] = 'din_hunters_sex_cumface3':
 	'<center><video autoplay loop src="images/shared/sex/cum/cumf30.mp4"></video></center>'
 	*pl
 	'You feel his hard dick begin to throb in your hands and soon <<$boydesc>> cum gushes out covering your hands in a fresh coat of warm spunk.'
-	if harakBoyH > 0: '-Baby, you have some Golden hands! Will you lend them to me sometime?'
+	if npc_gentle[$boy] = 0: '-Baby, you have some Golden hands! Will you lend them to me sometime?'
 	if silavag = 0 and dikos = 0:'Sorry <<$pcs_nickname>>. I couldn''t help myself!'
 	if silavag = 1 and dikos = 1:'Sorry <<$pcs_nickname>>. I couldn''t help myself!'
 	if silavag = 2 and dikos = 2:'Sorry <<$pcs_nickname>>. I couldn''t help myself!'
@@ -936,7 +948,7 @@ if $ARGS[0] = 'din_hunters_sex_cumface2':
 		'<center><video autoplay loop src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_kuh_4_' + rand(13,14) + '.mp4"></video></center>'
 		*pl
 		'With great pleasure you swallow every last drop.'
-		if harakBoyH = 2: '-Fuck  <<$pcs_nickname>>, you''re a real cum guzzler, don''t forget to mouth wash, I still want to kiss you sometime.'
+		if npc_rough[$boy] = 1: '-Fuck  <<$pcs_nickname>>, you''re a real cum guzzler, don''t forget to mouth wash, I still want to kiss you sometime.'
 		if silavag = 0 and dikos = 0:'Sorry <<$pcs_nickname>>. I couldn''t help myself!'
 		if silavag = 1 and dikos = 1:'Sorry <<$pcs_nickname>>. I couldn''t help myself!'
 		if silavag = 2 and dikos = 2:'Sorry <<$pcs_nickname>>. I couldn''t help myself!'
@@ -1001,7 +1013,7 @@ if $ARGS[0] = 'din_hunters_sex_cumface2':
 		'<center><video autoplay loop src="images/locations/pavlovsk/resident/rekshome/party/reksparty_party_kuh_4_16.mp4"></video></center>'
 		*pl
 		'You don''t like the taste and you quickly spit out his disgusting load.'
-		if harakBoyH = 2: '-Does that not taste good <<$pcs_nickname>>? I thought all women loved the taste of a fresh load. It''s a pity you don''t. '
+		if npc_rough[$boy] = 1: '-Does that not taste good <<$pcs_nickname>>? I thought all women loved the taste of a fresh load. It''s a pity you don''t. '
 		if silavag = 0 and dikos = 0:'Sorry <<$pcs_nickname>>. I couldn''t help myself!'
 		if silavag = 1 and dikos = 1:'Sorry <<$pcs_nickname>>. I couldn''t help myself!'
 		if silavag = 2 and dikos = 2:'Sorry <<$pcs_nickname>>. I couldn''t help myself!'
@@ -1068,7 +1080,7 @@ if $ARGS[0] = 'din_hunters_sex_cumface1':
 	'<center><video autoplay loop src="images/shared/sex/cum/cumf10.mp4"></video></center>'
 	*pl
 	'The jets of hot sperm hit you in the face and slowly flow down onto your throat and tits.'
-	if harakBoyH > 0: '-Ohh, <<$pcs_nickname>>, god that felt good!'
+	if npc_gentle[$boy] = 0: '-Ohh, <<$pcs_nickname>>, god that felt good!'
 	if silavag = 0 and dikos = 0:'Sorry <<$pcs_nickname>>. I couldn''t help myself!'
 	if silavag = 1 and dikos = 1:'Sorry <<$pcs_nickname>>. I couldn''t help myself!'
 	if silavag = 2 and dikos = 2:'Sorry <<$pcs_nickname>>. I couldn''t help myself!'
@@ -2158,8 +2170,8 @@ if $ARGS[0] = 'din_hunters_sex_cum3':
 	'<center><video autoplay loop src="images/shared/sex/cum/cum3.mp4"></video></center>'
 	*pl
 	'<<$boydesc>> pulls out his member and groans as you feel his warm drops of sperm drip on your ass and back.'
-	if harakBoyH = 2:'-Hell,<<$pcs_nickname>>, in this position you fuck like a perfect whore. He slaps you lightly on the ass.'
-	if harakBoyH = 0:'-<<$pcs_nickname>>, in this position you are simply irresistible. He gently kisses you on the cheek.'
+	if npc_rough[$boy] = 1:'-Hell,<<$pcs_nickname>>, in this position you fuck like a perfect whore. He slaps you lightly on the ass.'
+	if npc_gentle[$boy] = 1:'-<<$pcs_nickname>>, in this position you are simply irresistible. He gently kisses you on the cheek.'
 	if silavag = 0 and dikos = 0:'Sorry <<$pcs_nickname>>. I couldn''t help myself!'
 	if silavag = 1 and dikos = 1:'Sorry <<$pcs_nickname>>. I couldn''t help myself!'
 	if silavag = 2 and dikos = 2:'Sorry <<$pcs_nickname>>. I couldn''t help myself!'
@@ -2224,7 +2236,7 @@ if $ARGS[0] = 'din_hunters_sex_cum2':
 	'<center><video autoplay loop src="images/shared/sex/cum/cum2.mp4"></video></center>'
 	*pl
 	'<<$boydesc>> pulls out his cock and groans as you feel his warm sperm drip onto your stomach.'
-	if harakBoyH = 2:'-Shit, <<$pcs_nickname>> that was awesome, <<$boydesc>> looks completely satisfied. He passionately kisses you.'
+	if npc_rough[$boy] = 1:'-Shit, <<$pcs_nickname>> that was awesome, <<$boydesc>> looks completely satisfied. He passionately kisses you.'
 	if silavag = 0 and dikos = 0:'Sorry <<$pcs_nickname>>. I couldn''t help myself!'
 	if silavag = 1 and dikos = 1:'Sorry <<$pcs_nickname>>. I couldn''t help myself!'
 	if silavag = 2 and dikos = 2:'Sorry <<$pcs_nickname>>. I couldn''t help myself!'
@@ -2566,9 +2578,9 @@ if $ARGS[0] = 'din_hunters_sex_bell_bonus1':
 	'<center><H4>Hut</H4></center>'
 	'<center><video autoplay loop src="images/shared/sex/vag/facedown/kotovsexbonus10.mp4"></video></center>'
 	'Lying relaxed on your stomach, you lazily twist your ass, spreading your cheeks open to show off your tight hole. <<$boydesc>> freezes and enjoys the view.'
-	if harakBoyH = 2: 'Oh yeah, my kitty, I never get tired of looking at your tasty ass.'
-	if harakBoyH = 2:'-Uhh, <<$pcs_nickname>>, don''t stop...'
-	if harakBoyH < 2:'-It''s super cute...'
+	if npc_rough[$boy] = 1: 'Oh yeah, my kitty, I never get tired of looking at your tasty ass.'
+	if npc_rough[$boy] = 1:'-Uhh, <<$pcs_nickname>>, don''t stop...'
+	if npc_rough[$boy] = 0:'-It''s super cute...'
 	*pl
 	*pl
 	gs 'arousal', 'anal', 5, 'sub'
@@ -2705,7 +2717,7 @@ if $ARGS[0] = 'din_hunters_sex_cow_bonus2':
 	'<center><H4>Hut</H4></center>'
 	'<center><video autoplay loop src="images/shared/sex/vag/hug/kotovsex60.mp4"></video></center>'
 	'<<$boydesc>> gets up and you tightly hug him. You clasp his neck, and move your waist.'
-	if harakBoyH = 2:'-Umm, what a hot bitch, let me get my hands on those tits of yours...'
+	if npc_rough[$boy] = 1:'-Umm, what a hot bitch, let me get my hands on those tits of yours...'
 	*pl
 	gs 'dinsex','vaginal_sex',10
 	*pl
@@ -2743,8 +2755,8 @@ if $ARGS[0] = 'din_hunters_sex_cow_bonus1':
 	'<center><video autoplay loop src="images/shared/sex/vag/cowgirl/kotovsexbonus'+rand(17,19)+'.mp4"></video></center>'
 	*pl
 	'You turn your back to him and continue to slide your wet pussy up and down his rock-hard member.'
-	if harakBoyH = 2:'-Uhh, baby, your ass looks so fucking great...'
-	if harakBoyH < 2:'-Lookin good <<$pcs_nickname>>...'
+	if npc_rough[$boy] = 1:'-Uhh, baby, your ass looks so fucking great...'
+	if npc_rough[$boy] = 0:'-Lookin good <<$pcs_nickname>>...'
 	*pl
 	gs 'dinsex','vaginal_sex',10 & !original dynamic $sexstart5
 	*pl
@@ -2851,9 +2863,13 @@ if $ARGS[0] = 'din_hunters_sex_dog_bonus':
 	'<center><video autoplay loop src="images/shared/sex/sequence/kotovsexbonus'+rand(11,12)+'.mp4"></video></center>'
 	*pl
 	'Slowing him down, you start to move your dripping pussy to meet his hot member.'
-	if harakBoyH = 2:'<<$boydesc>> slows his movements "Excellent work, bootyfull bitch."'
-	if harakBoyH = 1:'<<$boydesc>> slows his movements "Cool <<$pcs_nickname>>."'
-	if harakBoyH = 0:'<<$boydesc>> slows his movements "You''re good just so good <<$pcs_nickname>>."'
+	if npc_gentle[$boy] = 1:
+		'<<$boydesc>> slows his movements "You''re good just so good <<$pcs_nickname>>."'
+	elseif npc_rough[$boy] = 1:
+		'<<$boydesc>> slows his movements "Excellent work, bootyfull bitch."'
+	else
+		'<<$boydesc>> slows his movements "Cool <<$pcs_nickname>>."'
+	end
 	*pl
 	gs 'arousal', 'vaginal', 5, 'sub'
 	gs 'stat'
@@ -3085,12 +3101,12 @@ if $ARGS[0] = 'din_hunters_sex_kuni_bonus':
 	if silavag = 2: pcs_horny += 25
 	'<center><H4>Hut</H4></center>'
 	'<center><video autoplay loop src="images/shared/sex/facesit/kotovsexbonus'+rand(23,24)+'.mp4"></video></center>'
-	if harakBoyH = 2:'-What are you doing? Oh shit, <<$pcs_nickname>>, not this! Why do I let you do this to me...'
+	if npc_rough[$boy] = 1:'-What are you doing? Oh shit, <<$pcs_nickname>>, not this! Why do I let you do this to me...'
 	'You climb up and begin rubbing your wet pussy on his face.'
 	gs 'arousal', 'cuni', 5, 'dom'
-	if harakBoyH > 0:'He doesn''t seem to like it, but he dutifully laps at your pussy, making you quiver at the pleasent feeling of a tongue on your clit.'
+	if npc_gentle[$boy] = 0:'He doesn''t seem to like it, but he dutifully laps at your pussy, making you quiver at the pleasent feeling of a tongue on your clit.'
 	gs 'arousal', 'cuni', 5, 'dom'
-	if harakBoyH = 0:'Apparently he enjoys it, and he diligently licks and sucks at your pussy and clit, causing you to quiver in exstacy.'
+	if npc_gentle[$boy] = 1:'Apparently he enjoys it, and he diligently licks and sucks at your pussy and clit, causing you to quiver in exstacy.'
 	gs 'arousal', 'cuni', 5, 'dom'
 	gs 'stat'
 	if pcs_horny >= 90:
@@ -3104,7 +3120,7 @@ if $ARGS[0] = 'din_hunters_sex_kuni_bonus':
 	*pl
 	'You enjoy the sweet efforts of your boyfriend.
 	-Alright <<$boydesc>>, come here and fuck me.'
-	if harakBoyH > 0:'-Yes baby, I''m going to fuck you like crazy. Come over here, my dick is like stone.'
+	if npc_gentle[$boy] = 0:'-Yes baby, I''m going to fuck you like crazy. Come over here, my dick is like stone.'
 	*pl
  	 i = rand(1,5)
 	 if i = 1: act 'Spread your legs ':gt 'hunterLoveSex', 'din_hunters_sex_misionary'
@@ -3122,18 +3138,18 @@ if $ARGS[0] = 'din_hunters_sex_kuni':
 		'<center><video autoplay loop src="images/shared/sex/oface/kotovecho.mp4"></video></center>'
 		if pcs_horny >= 80:
 			'<<$boydesc>> refuses to lick your pussy.'
-			if harakBoyH = 2: '-No <<$pcs_nickname>>, leave me alone. Real men don''t lick pussy, now spread those legs.'
-			if harakBoyH = 0: 'Maybe another time, honey'
+			if npc_rough[$boy] = 1: '-No <<$pcs_nickname>>, leave me alone. Real men don''t lick pussy, now spread those legs.'
+			if npc_gentle[$boy] = 1: 'Maybe another time, honey'
 			act 'Continue': gt 'hunterLoveSex', 'din_hunters_sex_misionary'
 		else
-			if harakBoyH = 2:
-				'<<$boydesc>> reluctantly agrees to lick you.'
-				'-Okay,<<$pcs_nickname>>, don''t tell anyone or they''ll lose all respect for me.'
-			end
-			if harakBoyH = 1: '<<$boydesc>> agrees to lick you.'
-			if harakBoyH = 0:
+			if npc_gentle[$boy] = 1:
 				'<<$boydesc>> happily agrees to lick you.'
 				'-<<$pcs_nickname>>, I will deliver you unearthly pleasure.'
+			elseif npc_rough[$boy] = 1:
+				'<<$boydesc>> reluctantly agrees to lick you.'
+				'-Okay,<<$pcs_nickname>>, don''t tell anyone or they''ll lose all respect for me.'
+			else
+				'<<$boydesc>> agrees to lick you.'
 			end
 			act 'Spread your legs for him':
 				*clr & cla
@@ -3331,9 +3347,9 @@ if $ARGS[0] = 'din_hunters_bj_bonus12':
 	'<center><H4>Hut</H4></center>'
 	'<center><video autoplay loop src="images/shared/sex/cum/kotovbjbonus12.mp4"></video></center>'
 	'You try to swallow his cock even deeper, but gag in the process. You barely avoid throwing up all over him.'
-	if harakBoyH = 2:' -Fu fucking<<$pcs_nickname>>, if you are not able to swallow normally, practice at home on a banana and not on my cock!'
-	if harakBoyH = 0:' -Do not worry <<$pcs_nickname>>, deep throating is hard to learn, but gets easier the more you do it.'
-	if harakBoyH = 0:' -Do not worry <<$pcs_nickname>>, maybe next time it will work.'
+	if npc_rough[$boy] = 1:' -Fu fucking<<$pcs_nickname>>, if you are not able to swallow normally, practice at home on a banana and not on my cock!'
+	if npc_gentle[$boy] = 1:' -Do not worry <<$pcs_nickname>>, deep throating is hard to learn, but gets easier the more you do it.'
+	if npc_gentle[$boy] = 1:' -Do not worry <<$pcs_nickname>>, maybe next time it will work.'
 	gs 'arousal', 'bj', 5, 'sub', 'deepthroat'
 	gs 'stat'
 	act 'Continue':gt 'hunterLoveSex', 'din_hunters_bj12'
@@ -3396,9 +3412,13 @@ if $ARGS[0] = 'din_hunters_bj_bonus11':
 	'<center><H4>Hut</H4></center>'
 	'<center><video autoplay loop src="images/shared/sex/blowjob/kotovbjbonus11.mp4"></video></center>'
 	'You take his cock into your mouth and <<$boydesc>> starts roughly fucking your face, doing his best to shove as much of his cock down your throat as he can.'
-	if harakBoyH = 2:'-Oh yeah, baby, just let me do this for a little while, your pretty face looks so sexy.'
-	if harakBoyH = 1:'-Oh yeah, <<$pcs_nickname>>, come on, that feels so good.'
-	if harakBoyH = 0:'-Honey, this is amazing, your face looks so sexy.'
+	if npc_gentle[$boy] = 1:
+		'-Honey, this is amazing, your face looks so sexy.'
+	elseif npc_rough[$boy] = 1:
+		'-Oh yeah, baby, just let me do this for a little while, your pretty face looks so sexy.'
+	else
+		'-Oh yeah, <<$pcs_nickname>>, come on, that feels so good.'
+	end
 	gs 'arousal', 'bj', 5, 'sub', 'deepthroat'
 	gs 'stat'
 	act 'Continue':gt 'hunterLoveSex', 'din_hunters_bj11'
@@ -3551,14 +3571,18 @@ if $ARGS[0] = 'din_hunters_bj9':
 end &! --- din_hunters_bj9 ---
 
 if $ARGS[0] = 'din_hunters_bj_bonus8':
-	if harakBoyH > 0:hunters_bj_times -= 1
-	if harakBoyH = 0:hunters_bj_times += 1
+	if npc_gentle[$boy] = 0:hunters_bj_times -= 1
+	if npc_gentle[$boy] = 1:hunters_bj_times += 1
 	'<center><H4>Hut</H4></center>'
 	'<center><video autoplay loop src="images/shared/sex/blowjob/kotovbjbonus8.mp4"></video></center>'
 	'While <<$boydesc>> continues to enjoy himself, you lick the pucker of his asshole, forcing your tongue inside. He jumps and looks down at you startled.'
-	if harakBoyH = 2:'-Who told you to fuck my ass with your tongue? No, <<$pcs_nickname>>, I don''t like it. Cut that shit out!'
-	if harakBoyH = 1:'- What the hell <<$pcs_nickname>>, stop!'
-	if harakBoyH = 0:'- Mmmm <<$pcs_nickname>>, don''t stop," <<$boydesc>> says.'
+	if npc_gentle[$boy] = 1:
+		'- Mmmm <<$pcs_nickname>>, don''t stop," <<$boydesc>> says.'
+	elseif npc_rough[$boy] = 1:
+		'-Who told you to fuck my ass with your tongue? No, <<$pcs_nickname>>, I don''t like it. Cut that shit out!'
+	else
+		'- What the hell <<$pcs_nickname>>, stop!'
+	end
 	gs 'arousal', 'cuni_give', 5, 'sub'
 	gs 'stat'
 	act 'Continue':gt 'hunterLoveSex', 'din_hunters_bj8'
@@ -3687,8 +3711,8 @@ if $ARGS[0] = 'din_hunters_bj_bonus6':
 	'<center><video autoplay loop src="images/shared/sex/blowjob/kotovbjbonus6.mp4"></video></center>'
 	*pl
 	'<<$boydesc>> slaps his cock against your tongue.'
-	if harakBoyH = 2:'-Bad girl, now daddy will punish you.'
-	if harakBoyH < 2:'- You''re a dirty little girl, he says with a smile.'
+	if npc_rough[$boy] = 1:'-Bad girl, now daddy will punish you.'
+	if npc_rough[$boy] = 0:'- You''re a dirty little girl, he says with a smile.'
 	gs 'arousal', 'foreplay', 5, 'sub'
 	gs 'stat'
 	act 'Continue':gt 'hunterLoveSex', 'din_hunters_bj6'
@@ -3701,8 +3725,8 @@ if $ARGS[0] = 'din_hunters_bj6':
 	'<center><video autoplay loop src="images/shared/sex/blowjob/kotovbj6'+rand(0,1)+'.mp4"></video></center>'
 	h = rand(1,3)
 	'Capturing hold of his thick meat with your hands, you start to jerk it confidently, watching his reaction.'
-	if harakBoyH > 0:'-Well,<<$pcs_nickname>>, I can jerk my dick myself, but I bet you have some better tools to use on what you''re holding there.'
-	if harakBoyH = 0:'-Come on,<<$pcs_nickname>>, show me what you can do - <<$boydesc>> says with a smile.'
+	if npc_gentle[$boy] = 0:'-Well,<<$pcs_nickname>>, I can jerk my dick myself, but I bet you have some better tools to use on what you''re holding there.'
+	if npc_gentle[$boy] = 1:'-Come on,<<$pcs_nickname>>, show me what you can do - <<$boydesc>> says with a smile.'
 	*pl
 	gs 'arousal', 'hj', 5, 'sub'
 	if hunters_bj_times < 3 and bj > 10:'You stick out your tongue and he <a href="exec:gt ''hunterLoveSex'', ''din_hunters_bj_bonus6''">spanks</a> his cock on it.'
@@ -3814,8 +3838,8 @@ if $ARGS[0] = 'din_hunters_bj_bonus4':
 	'<center><video autoplay loop src="images/shared/sex/blowjob/kotovbjbonus4.mp4"></video></center>'
 	*pl
 	'You grasp the base of the penis and, carrying out his request, slap his glistening cock head against your cheeks.'
-	if harakBoyH = 2:'-Oh yeah, you submissive little slut. You''ve really got me going.'
-	if harakBoyH = 0:'-Oh yeah, you''ve really got me hard, keep going honey.'
+	if npc_rough[$boy] = 1:'-Oh yeah, you submissive little slut. You''ve really got me going.'
+	if npc_gentle[$boy] = 1:'-Oh yeah, you''ve really got me hard, keep going honey.'
 	gs 'arousal', 'foreplay', 5, 'sub'
 	gs 'stat'
 	act 'Continue':gt 'hunterLoveSex', 'din_hunters_bj4'
@@ -3938,8 +3962,8 @@ if $ARGS[0] = 'din_hunters_bj_bonus2':
 	'<center><H4>Hut</H4></center>'
 	'<center><video autoplay loop src="images/shared/sex/blowjob/kotovbjbonus2.mp4"></video></center>'
 	'He shivers slightly as you bite the head of his dick with your pearly white teeth.'
-	if harakBoyH = 2:'-Hey, fuck, <<$pcs_nickname>>, are you mistaking my dick for a fucking banana? Suck it, don''t bite it!'
-	if harakBoyH < 2:'-Careful <<$pcs_nickname>>, don''t joke like that!'
+	if npc_rough[$boy] = 1:'-Hey, fuck, <<$pcs_nickname>>, are you mistaking my dick for a fucking banana? Suck it, don''t bite it!'
+	if npc_rough[$boy] = 0:'-Careful <<$pcs_nickname>>, don''t joke like that!'
 	'You smiled and look at him, deciding to...'
 	gs 'arousal', 'foreplay', 5, 'sub'
 	gs 'stat'
@@ -4007,8 +4031,8 @@ if $ARGS[0] = 'din_hunters_bj_bonus1':
 	'<center><H4>Hut</H4></center>'
 	'<center><video autoplay loop src="images/shared/sex/blowjob/kotovbjbonus1.mp4"></video></center>'
 	'You run your tongue along the tip of his penis, flicking at his urethra.'
-	if harakBoyH = 2:'<<$boydesc>> is already on edge: -<<$pcs_nickname>>, what are you doing, stop it, I''m fucking going to cum from this.'
-	if harakBoyH < 2:'<<$boydesc>> is already on edge: -<<$pcs_nickname>>, what are you doing, stop it or i''m going to blow my load!'
+	if npc_rough[$boy] = 1:'<<$boydesc>> is already on edge: -<<$pcs_nickname>>, what are you doing, stop it, I''m fucking going to cum from this.'
+	if npc_rough[$boy] = 0:'<<$boydesc>> is already on edge: -<<$pcs_nickname>>, what are you doing, stop it or i''m going to blow my load!'
 	gs 'arousal', 'foreplay', 5, 'sub'
 	gs 'stat'
 	act 'Continue':gt 'hunterLoveSex', 'din_hunters_bj1'
@@ -4118,13 +4142,21 @@ if $ARGS[0] = 'din_hunters_first_sex':
 		'<center><H4>Hut</H4></center>'
 		'<center><img <<$set_imgh>> src="images/shared/sex/oface/kotovfirst1.jpg"></center>'
 		*pl
-		if harakBoyH = 2:'Oh,<<$pcs_nickname>>, you''re a fucking woman now, congratulations! Now quit being a little crybaby. How do you feel?'
-		if harakBoyH = 1:'Well <<$pcs_nickname>>, congratulations, you''re not a little girl any more. How do you feel?'
-		if harakBoyH = 0:'-<<$pcs_nickname>>, all is well, how are you feeling? '
+		if npc_gentle[$boy] = 1:
+			'-<<$pcs_nickname>>, all is well, how are you feeling? '
+		elseif npc_rough[$boy] = 1:
+			'Oh,<<$pcs_nickname>>, you''re a fucking woman now, congratulations! Now quit being a little crybaby. How do you feel?'
+		else
+			'Well <<$pcs_nickname>>, congratulations, you''re not a little girl any more. How do you feel?'
+		end
 		'-It hurts damn, never going to do it.'
-		if harakBoyH = 2:'-Ha ha, we''ll see if we can''t fix that.'
-		if harakBoyH = 1:'- Come on, all girls do it eventually. It''s nothing to be upset about.'
-		if harakBoyH = 0:'- Calm down, sweetheart, next time will be much better and you''ll still like it, I promise -  <<$boydesc>> says with a smile. He gently kisses and comforts you.'
+		if npc_gentle[$boy] = 1:
+			'- Calm down, sweetheart, next time will be much better and you''ll still like it, I promise -  <<$boydesc>> says with a smile. He gently kisses and comforts you.'
+		elseif npc_rough[$boy] = 1:
+			'-Ha ha, we''ll see if we can''t fix that.'
+		else
+			'- Come on, all girls do it eventually. It''s nothing to be upset about.'
+		end
 		gs 'arousal', 'end'
 		gs 'stat'
 		act 'Further':gt $loc, $loc_arg
@@ -4133,7 +4165,7 @@ end &! --- din_hunters_first_sex ---
 
 if $ARGS[0] = 'Igor':
 	if huntersIgorLove > 0 and huntersIgorQw <= 50:
-		harakBoyH = 0
+		npc_gentle[$boy] = 1
 		if huntersIgorLove = 2: bfa += 1
 		boyonceA = 1
 		hunters_bj_times = 0
@@ -4210,7 +4242,8 @@ if $ARGS[0] = 'Igor':
 			end
 		end
 	elseif huntersIgorLove > 0 and huntersIgorQw > 50:
-		harakBoyH = 1
+		npc_gentle[$boy] = 0
+		npc_rough[$boy] = 0
 		hunters_bj_times = 0
 		boyonceA = 1
 
@@ -4311,7 +4344,8 @@ end
 
 if $ARGS[0] = 'Andrei':
 	if huntersAndreiLove > 0 and stat['think_virgin'] = 1:
-		harakBoyH = 1
+		npc_gentle[$boy] = 0
+		npc_rough[$boy] = 0
 		hunters_bj_times = 0
 		boyonceA = 1
 
@@ -4352,7 +4386,8 @@ if $ARGS[0] = 'Andrei':
 			end
 		end
 	elseif huntersAndreiLove > 0 and stat['think_virgin'] = 0:
-		harakBoyH = 1
+		npc_gentle[$boy] = 0
+		npc_rough[$boy] = 0
 		hunters_bj_times = 0
 		boyonceA = 1
 
@@ -4453,7 +4488,8 @@ end
 
 if $ARGS[0] = 'Sergei':
 	if huntersSergeiLove > 0 and huntersSergeiQw <= 40:
-		harakBoyH = 1
+		npc_gentle[$boy] = 0
+		npc_rough[$boy] = 0
 		hunters_bj_times = 0
 		boyonceA = 1
 
@@ -4529,7 +4565,8 @@ if $ARGS[0] = 'Sergei':
 		end
 
 	elseif huntersSergeiLove > 0 and huntersSergeiQw > 40:
-		harakBoyH = 1
+		npc_gentle[$boy] = 0
+		npc_rough[$boy] = 0
 		hunters_bj_times = 0
 		boyonceA = 1
 

locations/hunters.qsrc

@@ -298,12 +298,15 @@ if $ARGS[0] = 'start':
 		boyAsexa = 0
 		boyBsexa = 0
 		boyCsexa = 0
-		if hunterandreisex = 0:hunterandreisex = 1 & guy += 1
-		if huntersergeisex = 0:huntersergeisex = 1 & guy += 1
-		if hunterigorsex = 0:hunterigorsex = 1 & guy += 1
-		if huntersIgorLove = 1:huntersIgorLove = 0 & huntersIgorQw -= 100
-		if huntersIgorLove = 2:huntersIgorLove = 0 & huntersIgorQw -= 100 & bfA = 0
-		if huntersIgorLove = 3:huntersIgorLove = 0 & huntersIgorQw -= 100 & husband = 0 & divorced += 1 & husbandMark = 0 & husbharmin = 0 & husbizvradd = 0
+		if hunterandreisex = 0: hunterandreisex = 1 & guy += 1
+		if huntersergeisex = 0: huntersergeisex = 1 & guy += 1
+		if hunterigorsex = 0: hunterigorsex = 1 & guy += 1
+		if huntersIgorLove > 0:
+			huntersIgorLove = 0
+			huntersIgorQw -= 100
+			if huntersIgorLove = 2: bfA = 0
+			if huntersIgorLove = 3: gs 'lover_love', 'divorce'
+		end
 		if huntersSergeiLove = 1:huntersSergeiLove = 0 & huntersSergeiQw -= 100
 		if huntersAndreiLove = 1:huntersAndreiLove = 0 & huntersAndreiQw -= 100
 		gs 'stat'

locations/huntersex.qsrc

@@ -187,9 +187,12 @@ if $ARGS[0] = 'sexafterstrip1':
 																pcs_health += 50
 																pcs_mood += 50
 																huntdanceslut = 1
-																if huntersIgorLove = 3:huntersIgorLove = 0 & huntersIgorQw -= 100 & husband = 0 & divorced += 1 & husbandMark = 0 & husbharmin = 0 & husbizvradd = 0
-																if huntersIgorLove = 2:huntersIgorLove = 0 & huntersIgorQw -= 100 & bfa += 0
-																if huntersIgorLove = 1:huntersIgorLove = 0 & huntersIgorQw -= 100
+																if huntersIgorLove > 0:
+																	huntersIgorLove = 0
+																	huntersIgorQw -= 100
+																	if huntersIgorLove = 2: bfa += 0
+																	if huntersIgorLove = 3: gs 'lover_love', 'divorce'
+																end
 																if huntersSergeiLove = 1:huntersSergeiLove = 0 & huntersSergeiQw -= 100
 																if huntersAndreiLove = 1:huntersAndreiLove = 0 & huntersAndreiQw -= 100
 																'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/shulginhome/bigroom/drunk_ev/pohmel1.jpg"></center>'

locations/husb.qsrc

@@ -3,9 +3,11 @@
 
 if $ARGS[0] = 'start':
 	CLOSE ALL
-	cla & *clr
-	gs'stat'
-	'<center><B><font color = maroon><<$husName>></font></B></center>'
+	*clr & cla
+	gs 'boyStat', $husID
+	gs 'stat'
+
+	'<center><B><font color = maroon><<$boydesc>></font></B></center>'
 	'<center><img <<$set_imgh>> src="images/characters/shared/headshots_generic/<<HusbPic>>.jpg"></center>'
 	gs 'husb', 'husb_discription'
 	gs 'husb', 'husb_action'
@@ -26,36 +28,46 @@ if $ARGS[0] = 'start':
 end
 
 if $ARGS[0] = 'husb_discription':
+	husb_birth_day = npc_dob[$boy] mod 100
+	husb_birth_month = npc_dob[$boy] / 100 mod 100
+	husb_birth_year = npc_dob[$boy] / 10000
+
 	if birthyear < husb_birth_year:
 		age_diff = husbAge - age
-		$h_age = '<<$husName>> was born in <<husb_birth_year>>, he is <<husbAge>> years old. He is <<age_diff>> years older than you.'
+		$h_age = '<<$boydesc>> was born in <<husb_birth_year>>, he is <<husbAge>> years old. He is <<age_diff>> years older than you'
 	elseif birthyear = husb_birth_year:
-		$h_age = '<<$husName>> was born in <<husb_birth_year>>, he is <<husbAge>> years old. Same as you.'
-	else 
+		$h_age = '<<$boydesc>> was born in <<husb_birth_year>>, he is <<husbAge>> years old. Same as you'
+	else
 		age_diff = age - husbAge
-		$h_age = '<<$husName>> was born in <<husb_birth_year>>, he is <<husbAge>> years old. You are <<age_diff>> years older than him.'
+		$h_age = '<<$boydesc>> was born in <<husb_birth_year>>, he is <<husbAge>> years old. You are <<age_diff>> years older than him'
+	end
+	'Your husband <<$boydesc>>, <<$h_age>>. It <<$npcheight>> <<$npcbuild>> <<$npchair>>.'
+	if npc_rel[$boy] < 20:
+		'You have a terrible row with your husband.'
+	elseif npc_rel[$boy] < 40:
+		'There are tension between you and your husband.'
+	elseif npc_rel[$boy] < 60:
+		'You have a normal relationship with your husband.'
+	elseif npc_rel[$boy] < 80:
+		'You have a good relationship with your husband.'
+	else
+		'You have a great relationship with your husband.'
 	end
-	'Your husband <<$husName>>, <<$h_age>> It <<$husBody>> <<$husFat>> <<$husHair>>.'
-	if husband<20:'You have a terrible row with your husband.'
-	if husband>=20 and husband<40:'There are tension between you and your husband.'
-	if husband>=40 and husband<60:'You have a normal relationship with your husband.'
-	if husband>=60 and husband<80:'You have a good relationship with your husband.'
-	if husband>=80:'You have a great relationship with your husband.'
-	''
+	*nl
 end
 
 if $ARGS[0] = 'husb_action':
 	if $loc = 'korr':$husb_action = ''
 	if $loc = 'bedr':
-		if hour > 22 or hour < 7: $husb_action = 'Your husband <<$husName>> is lying in bed, eyes open. "What do you want? It is late, go to sleep."'
+		if hour > 22 or hour < 7: $husb_action = 'Your husband <<$boydesc>> is lying in bed, eyes open. "What do you want? It is late, go to sleep."'
 	end
 	if $loc = 'sitr':
-		if hour > 7 and hour < 17 and week >= 6: $husb_action = '<<$husName>> is sitting on the couch and watching TV.'
-		if hour > 17 and hour <= 22: $husb_action = '<<$husName>> is sitting on the couch and watching TV.'
+		if hour > 7 and hour < 17 and week >= 6: $husb_action = '<<$boydesc>> is sitting on the couch and watching TV.'
+		if hour > 17 and hour <= 22: $husb_action = '<<$boydesc>> is sitting on the couch and watching TV.'
 	end
 	if $loc = 'vanr':$husb_action = ''
 	if $loc = 'kuhr':
-		if hour = 17 or hour = 7:$husb_action = '<<$husName>> is sitting at the kitchen table.'
+		if hour = 17 or hour = 7:$husb_action = '<<$boydesc>> is sitting at the kitchen table.'
 	end
 	'<<$husb_action>>'
 end

locations/husbSex.qsrc

@@ -1,13 +1,11 @@
 # husbSex
 if $ARGS[0] = 'room':
-	clr
+	menu_off = 1
 	minut += 60
-	gs 'boyStat', $HusID
+	gs 'npcStat', $husID
 	husbandsexday += 1
 	suprdolg += 1
-	sexrand = RAND(0,3)
-	menu_off = 1
-
+	gs 'stat'
 	gs 'themes', 'indoors'
 
 	'<center><b><font color = maroon>Bedroom</font></b></center>'
@@ -15,28 +13,26 @@ if $ARGS[0] = 'room':
 	if rembedr = 1:'<center><img <<$set_imgh>> src="images/locations/city/residential/apartment/bedr2.jpg"></center>'
 
 	'You go with your husband into the bedroom.'
-	'<<$husName>> grabs you and roughly pushes you on the bed and starts to passionately kiss you while trying to get rid of your clothes.'
-	'Finally, <<$husName>> wins his unequal battle with the straps of your bra.'
+	'<<$boydesc>> grabs you and roughly pushes you on the bed and starts to passionately kiss you while trying to get rid of your clothes.'
+	'Finally, <<$boydesc>> wins his unequal battle with the straps of your bra.'
 
 	if husbdolg = 0:
-		cla
-		*clr
-		sexrand = 4
+		*clr & cla
 		husbdolg = 1
 
 		'<center><img <<$set_imgh>> src="images/characters/city/husband/sex/d0.jpg"></center>'
-		'<<$husName>> is about to enter you as he gets pulled back and you spot two other men in the room. One is standing by the bed holding your husband''s hair, the second one is holding a gun in his hand.'
+		'<<$boydesc>> is about to enter you as he gets pulled back and you spot two other men in the room. One is standing by the bed holding your husband''s hair, the second one is holding a gun in his hand.'
 		'"Do you have the money, moron?" Asks the one holding your husband.'
-		'"I told, I will pay you. I have no money now, but in a month I can give it to you" Says <<$husName>>.'
+		'"I told, I will pay you. I have no money now, but in a month I can give it to you" Says <<$boydesc>>.'
 		'"You should have thought about this earlier. We need the money now!" Continues the bandit.'
-		'"But I don''t have the money. I need more time." Pleads <<$husName>>.'
+		'"But I don''t have the money. I need more time." Pleads <<$boydesc>>.'
 		'"Stop whining. We have your fine bitch and all her holes and you already owe us 100000 rubles" Says the bandit.'
 
-		if harakHusb < 2:
-			'"Don''t touch her! I''ll get you the money. You will have it tomorrow." Says <<$husName>>.'
+		if npc_rough[$boy] = 0:
+			'"Don''t touch her! I''ll get you the money. You will have it tomorrow." Says <<$boydesc>>.'
 			'"Maybe, but we are here today. And we will get something out of this." Adressing you the bandit says "Yes Beauty, open your mouth as wide as you can. You will need to fit both of us in there."'
-		elseif harakHusb = 2:
-			'"Alright you can have her. But this is part of my payment, Kral." Says <<$husName>>.'
+		else
+			'"Alright you can have her. But this is part of my payment, Kral." Says <<$boydesc>>.'
 
 			if pcs_apprnc < 60:
 				'"No! Look at her Kral. She looks like she has just washed the floors in a public toilet" Says one of the bandits.'
@@ -78,43 +74,35 @@ if $ARGS[0] = 'room':
 		end
 
 		act 'Open your mouth': gt 'husbSex', 'dolg'
+		exit
 	end
 
+	sexrand = rand(0, 3)
 	if sexrand = 0:
 		'"<<$pcs_nickname>>, wrap your lips around my cock."'
 
-		act 'Give him a blowjob':
-			cla
-			husband += 1
-			gt 'husbsex', 'minet'
-		end
-		act 'Not now. Let''s do another position.':husband -= 1 & gt 'husbsex', 'variant'
+		act 'Give him a blowjob': npc_rel[$npcID] += 1 & gt 'husbsex', 'minet'
+		act 'Not now. Let''s do another position.': npc_rel[$npcID] -= 1 & gt 'husbsex', 'variant'
 	elseif sexrand = 1:
 		'"<<$pcs_nickname>>, I want your ass."'
 
-		act 'Anal':
-			cla
-			husband += 2
-			gt 'husbsex', 'anal'
-		end
-		act 'Fuck that. Let''s do something else.':husband -= 1 & gt 'husbsex', 'variant'
+		act 'Anal': npc_rel[$npcID] += 2 & gt 'husbsex', 'anal'
+		act 'Fuck that. Let''s do something else.': npc_rel[$npcID] -= 1 & gt 'husbsex', 'variant'
 	elseif sexrand = 2:
 		'"Lie down <<$pcs_nickname>> and open your legs for me."'
 
-		act 'Open your legs':gt 'husbsex', 'miss'
-		act 'Let''s do another positon.':husband -= 1 & gt 'husbsex', 'variant'
+		act 'Open your legs': gt 'husbsex', 'miss'
+		act 'Let''s do another positon.': npc_rel[$npcID] -= 1 & gt 'husbsex', 'variant'
 	elseif sexrand = 3:
 		'"I want to take you from behind <<$pcs_nickname>>."'
 
-		act 'Doggy style':gt 'husbsex', 'dog'
-		act 'Let''s do another positon.':husband -= 1 & gt 'husbsex', 'variant'
+		act 'Doggy style': gt 'husbsex', 'dog'
+		act 'Let''s do another positon.': npc_rel[$npcID] -= 1 & gt 'husbsex', 'variant'
 	end
+	killvar 'sexrand'
 end
 
 if $ARGS[0] = 'dolg':
-	cla
-	*clr
-
 	'<center><img <<$set_imgh>> src="images/characters/city/husband/sex/d1.jpg"></center>'
 	'The bandits take out their cocks and attempt to put them both in your mouth. You try to open your mouth as wide as possible, but you fail and eventually begin to suck them one by one. Soon they get tired and hurl you on the bed, arguing who will be the first to fuck you.'
 
@@ -122,8 +110,7 @@ if $ARGS[0] = 'dolg':
 	gs 'stat'
 
 	act 'Further':
-		cla
-		*clr
+		*clr & cla
 		'<center><img <<$set_imgh>> src="images/characters/city/husband/sex/d2.jpg"></center>'
 		'They fuck you as they please, using each of your holes several times. Periodically, you glance at your husband.'
 
@@ -133,31 +120,35 @@ if $ARGS[0] = 'dolg':
 		gs 'arousal', 'end'
 		gs 'stat'
 
-		act 'Finish':gt 'husbSex', 'dolgend'
-
-		if harakHusb = 0 and izvratH = 0:
-			'He is huddled in a corner quietly weeping, not looking in your direction.'
-		elseif harakHusb = 0 and izvratH = 1:
-			'He is huddled in a corner quietly weeping, glancing in your direction. It seems he is a little excited.'
-		elseif harakHusb = 1 and izvratH = 0:
-			'He is standing on the sidelines, leaning against the wall looking at you.'
-		elseif harakHusb = 1 and izvratH = 1:
-			'He is standing on the sidelines, watching you. He looks very excited.'
-		elseif harakHusb = 2 and izvratH = 0:
-			'He is standing on the sidelines, not looking at you swearing loudly. He curses the bandits, then himself, then he calls you a horny slut.'
-		elseif harakHusb = 2 and izvratH = 1:
-			cla
-			picrand = 18
-			'He is standing on the sidelines, looking at you with his dick in his hand. Soon he can no longer resist and comes over to the bed, saying "Well, you both can do what you want, but she is my bitch and I''ll fuck her too." The bandits don''t object.'
+		act 'Finish': gt 'husbSex', 'dolgend'
 
-			act 'Further':gt 'paysex', 'var'
+		if npc_gentle[$boy] = 1:
+			if npc_pervert[$boy] = 0:
+				'He is huddled in a corner quietly weeping, not looking in your direction.'
+			else
+				'He is huddled in a corner quietly weeping, glancing in your direction. It seems he is a little excited.'
+			end
+		elseif npc_rough[$boy] = 0:
+			if npc_pervert[$boy] = 0:
+				'He is standing on the sidelines, leaning against the wall looking at you.'
+			else
+				'He is standing on the sidelines, watching you. He looks very excited.'
+			end
+		else
+			if npc_pervert[$boy] = 0:
+				'He is standing on the sidelines, not looking at you swearing loudly. He curses the bandits, then himself, then he calls you a horny slut.'
+			else
+				cla
+				picrand = 18
+				'He is standing on the sidelines, looking at you with his dick in his hand. Soon he can no longer resist and comes over to the bed, saying "Well, you both can do what you want, but she is my bitch and I''ll fuck her too." The bandits don''t object.'
+
+				act 'Further': gt 'paysex', 'var'
+			end
 		end
 	end
 end
 
 if $ARGS[0] = 'dolgend':
-	cla
-	*clr
 	noshampoo = 1
 	dynamic $showerdin
 	gs'stat'
@@ -165,67 +156,70 @@ if $ARGS[0] = 'dolgend':
 	'<center><img <<$set_imgh>> src="images/characters/city/husband/sex/d3.jpg"></center>'
 	'When it''s over, they take you to the bathroom and tell you to clean yourself up as they go back into the bedroom.'
 
-	if pcs_apprnc >= 60 and husbdolg = 1:
-		cla
-		husbdolg = 2
-		workDolg += 100000
+	if pcs_apprnc >= 60:
+		if husbdolg = 1:
+			cla
+			husbdolg = 2
+			workDolg += 100000
 
-		'"What a beauty. You will come with us and we''ll get your husband''s debt sorted out." Grins one of the men.'
+			'"What a beauty. You will come with us and we''ll get your husband''s debt sorted out." Grins one of the men.'
 
-		act 'Go with them':
-			cla
-			pcs_leghair = 0
-			pcs_pubes = 0
-			pcs_hairbsh = 1
-			pcs_makeup = 3
+			act 'Go with them':
+				cla
+				pcs_leghair = 0
+				pcs_pubes = 0
+				pcs_hairbsh = 1
+				pcs_makeup = 3
 
-			'They take you to the sauna. The bandits drag you into a room start to explain. "You will live here and work, until the debt is paid off. Everything clear? If you try to escape we''ll put a bullet in your head and bury you in the woods, understood?"'
-			'You nod fearfully, realizing that they aren''t kidding.'
+				'They take you to the sauna. The bandits drag you into a room start to explain. "You will live here and work, until the debt is paid off. Everything clear? If you try to escape we''ll put a bullet in your head and bury you in the woods, understood?"'
+				'You nod fearfully, realizing that they aren''t kidding.'
 
-			act 'Look around':gt 'city_sauna', 'saunaroom'
-		end
+				act 'Look around': gt 'city_sauna', 'saunaroom'
+			end
+			exit
 
-		exit
-	elseif pcs_apprnc >= 60 and husbdolg = 2:
-		cla
-		husbdolg = 3
-		saunaWorkWhore = 1
+		elseif husbdolg = 2:
+			cla
+			husbdolg = 3
+			saunaWorkWhore = 1
 
-		'"What a beauty. You did well. If you want you can come to the sauna, we have a job for you there." One man says grinning.'
+			'"What a beauty. You did well. If you want you can come to the sauna, we have a job for you there." One man says grinning.'
 
-		act 'Finish':gt'bedr'
+			act 'Finish': gt'bedr'
+		end
+	else
+		'"She looks frightening. Like a poltergeist." Says one of the thugs, looking at you. "Okay, you bring us the money tomorrow, and then she''s getting fucked." Says the second one to your husband.'
 	end
-
-	if pcs_apprnc < 60:'"She looks frightening. Like a poltergeist." Says one of the thugs, looking at you. "Okay, you bring us the money tomorrow, and then she''s getting fucked." Says the second one to your husband.'
 	if deodorant_on = 1: gs 'sweat', 'remove_deo' & '<br>Your deodorant gets washed away in the shower.'
 
-	act 'Finish':gt'bedr'
+	act 'Finish': gt'bedr'
 end
 
 if $ARGS[0] = 'variant':
-	'<<$husName>> He is looking at you and waiting for what you say'
+	gs 'npcStat', $HusID
+
+	'<<$npcdesc>> He is looking at you and waiting for what you say'
 
-	act 'Open your legs':gt 'husbsex', 'miss'
-	act 'Get into doggy position':gt 'husbsex', 'dog'
-	act 'Anal':gt 'husbsex', 'anal'
-	act 'Give him a blowjob':gt 'husbsex', 'minet'
-	act 'Give him a handjob':gt 'husbsex', 'hand'
+	act 'Open your legs': gt 'husbsex', 'miss'
+	act 'Get into doggy position': gt 'husbsex', 'dog'
+	act 'Anal': gt 'husbsex', 'anal'
+	act 'Give him a blowjob': gt 'husbsex', 'minet'
+	act 'Give him a handjob': gt 'husbsex', 'hand'
 
 	if kundayH ! daystart:
-		act 'Ask him to lick you':gt 'husbsex', 'kuni'
+		act 'Ask him to lick you': gt 'husbsex', 'kuni'
 	end
 
-	if harakHusb = 0 and izvratH = 1 and mc_inventory['strapon'] > 0:
-		act 'Use a strapon':gt 'husbsex', 'strapon'
+	if npc_gentle[$npcID] = 1 and npc_pervert[$npcID] = 1 and mc_inventory['strapon'] > 0:
+		act 'Use a strapon': gt 'husbsex', 'strapon'
 	end
 end
 
 if $ARGS[0] = 'minet':
 	*clr
-	gs'brosok'
 
 	'<center><img <<$set_imgh>> src="images/shared/sex/blowjob/bj24.jpg"></center>'
-	'Your husband''s <<husDick>> centimeter member enters your mouth.'
+	'Your husband''s <<dick>> centimeter member enters your mouth.'
 
 	gs 'arousal', 'bj', 10
 	gs 'stat'
@@ -235,14 +229,12 @@ if $ARGS[0] = 'minet':
 	gs 'oral', 'start'
 
 	act 'Continue to suck':
-		cla
-		*clr
-		gs 'boyStat', $HusID
-		gs 'cum_call', 'mouth_swallow', $boy, 1
-		husband += 1
+		*clr & cla
+		gs 'cum_call', 'mouth_swallow', $npcID, 1
+		npc_rel[$npcID] += 1
 
 		'<center><img <<$set_imgh>> src="images/shared/sex/cum/mouth/cum30.jpg"></center>'
-		'A jet of hot sperm hits you in the mouth. You begin to swallow his sperm as <<$husName>> continues to cum in your mouth. Finally, the flow of hot, pungent tasting liquid stops.'
+		'A jet of hot sperm hits you in the mouth. You begin to swallow his sperm as <<$npcdesc>> continues to cum in your mouth. Finally, the flow of hot, pungent tasting liquid stops.'
 
 		act 'Leave':
 			cla
@@ -255,20 +247,20 @@ if $ARGS[0] = 'minet':
 
 		tiprand = RAND(0,1)
 		if tiprand = 0:
-			
+
 			gs 'boyStat', $HusID
 			sexpartkno = 1
 			spafinloc = 11
 			gs 'cum_manage'
-			husband += 1
+			npc_rel[$npcID] += 1
 
 			'<center><img <<$set_imgh>> src="images/shared/sex/cum/facial/facial16.jpg"></center>'
-			'You take his member out and at this point <<$husName>> discharges directly on your face, covering it with warm and sticky sperm.'
+			'You take his member out and at this point <<$npcdesc>> discharges directly on your face, covering it with warm and sticky sperm.'
 		else
-			husband -= 1
+			npc_rel[$npcID] -= 1
 
 			'<center><img <<$set_imgh>> src="images/shared/sex/handjob/hand.jpg"></center>'
-			'You take his member out of your mouth and <<$husName>> finishes onto the palm of your hand.'
+			'You take his member out of your mouth and <<$npcdesc>> finishes onto the palm of your hand.'
 		end
 
 		act 'Leave':
@@ -280,14 +272,12 @@ end
 
 if $ARGS[0] = 'hand':
 	*clr
-	gs'brosok'
-	gs 'boyStat', $HusID
 	sexpartkno = 1
 	spafinloc = 13
 	gs 'cum_manage'
 
 	'<center><img <<$set_imgh>> src="images/shared/sex/cum/handjob/hand1.jpg"></center>'
-	'You take the <<husDick>> inch cock and begin to caress it with your hands, moving the skin of the purple head.'
+	'You take the <<$dick_desc>> cock and begin to caress it with your hands, moving the skin of the purple head.'
 	'Soon your skillful movements bring your husband to orgasm and he finishes onto the palms of you hands, covering them with warm and sticky sperm.'
 
 	gs 'arousal', 'hj', 20
@@ -303,11 +293,10 @@ end
 if $ARGS[0] = 'kuni':
 	*clr
 	kunday = daystart
-	gs'brosok'
 
 	'<center><img <<$set_imgh>> src="images/shared/sex/kuni/kuni.jpg"></center>'
 	'You undres and lie down on the bed, telling your husband to caress you with his tongue.'
-	'<<$husName>> lies down between your legs and begins to lick your clit and pussy.'
+	'<<$npcdesc>> lies down between your legs and begins to lick your clit and pussy.'
 
 	gs 'arousal', 'cuni', 20, 'dom'
 	gs 'stat'
@@ -333,10 +322,9 @@ end
 
 if $ARGS[0] = 'strapon':
 	*clr
-	gs'brosok'
 
 	'<center><video autoplay loop src="images/shared/sex/dom/pegging.mp4"></video></center>'
-	'You get the strap-on from the box and put it on. <<$husName>> kneels in the doggy position on the bed.'
+	'You get the strap-on from the box and put it on. <<$npcdesc>> kneels in the doggy position on the bed.'
 	'You lubricate his anus and enter him with the strap-on. While you fuck his ass, he groans and finally finishes. You pull the strap-on out and go to the bathroom.'
 
 	gs 'arousal', 'anal_strap_give', 20, 'dom'
@@ -351,7 +339,6 @@ end
 
 if $ARGS[0] = 'anal':
 	*clr
-	gs'brosok'
 
 	if analplugin = 1:
 		analpluginbonus = 10
@@ -360,25 +347,25 @@ if $ARGS[0] = 'anal':
 		sexpartkno = 1
 		spafinloc = 3
 		gs 'cum_manage'
-		if pcs_ass < husDick: pcs_ass += 1
+		if pcs_ass < dick_length: pcs_ass += 1
 
 		'<center><img <<$set_imgh>> src="images/shared/sex/vag/doggy/dog2.jpg"></center>'
 		if pcs_ass < 16:
-			'<<$husName>> pulls the anal plug out of your narrow and tight ass.'
+			'<<$npcdesc>> pulls the anal plug out of your narrow and tight ass.'
 		else
-			'<<$husName>> pulls out the anal plug and oozes flush out of your ass. Soon you feel his hard cock enter your hole.'
+			'<<$npcdesc>> pulls out the anal plug and oozes flush out of your ass. Soon you feel his hard cock enter your hole.'
 		end
 
 		gs 'arousal', 'anal_dildo', 3, 'sub'
 		gs 'stat'
 
-		if pcs_ass + analpluginbonus < husDick:
-			'You scream and bite your lip from the sharp pain when <<husDick>> member inches apart your ass as he enters you.'
+		if pcs_ass + analpluginbonus < dick_length:
+			'You scream and bite your lip from the sharp pain when <<$dick_desc>> member inches apart your ass as he enters you.'
 		else
-			'You groan when his full <<husDick>> member inches apart your ass as he enters you.'
+			'You groan when his full <<$dick_desc>> member inches apart your ass as he enters you.'
 		end
 
-		'<<$husName>> tightly grabs your buttcheeks as he drives is cock deep into your aching ass one last time, releasing the contents of his balls.'
+		'<<$npcdesc>> tightly grabs your buttcheeks as he drives is cock deep into your aching ass one last time, releasing the contents of his balls.'
 
 		$orgasm_txt = 'As you press your ass against his dick, your anus feels like it is blazing with fire and waves of pleasure sweep your body.'
 		gs 'arousal', 'anal', 20, 'sub'
@@ -392,12 +379,12 @@ if $ARGS[0] = 'anal':
 		end
 	end
 
-	if husDick < pcs_ass: pcs_ass += 1
+	if dick_length < pcs_ass: pcs_ass += 1
 	'<center><img <<$set_imgh>> src="images/shared/sex/vag/doggy/dog2.jpg"></center>'
 
 	if mc_inventory['lubricant'] = 0:
 		anal_slip += 2
-		'You don''t have an lubricants, so <<$husName>> spits on his fingers and uses the saliva to lubricate your ass.'
+		'You don''t have an lubricants, so <<$npcdesc>> spits on his fingers and uses the saliva to lubricate your ass.'
 	else
 		mc_inventory['lubricant'] -= 1
 		anal_slip += 8
@@ -407,7 +394,7 @@ if $ARGS[0] = 'anal':
 	gs 'arousal', 'anal_finger', 3, 'sub'
 	gs 'stat'
 
-	'<<$husName>> puts you on you stomach and parts your buttocks, massaging your anus with his fingers, first one, then two.'
+	'<<$npcdesc>> puts you on you stomach and parts your buttocks, massaging your anus with his fingers, first one, then two.'
 
 	if pcs_ass < 10:
 		'When he enters your ass with three fingers you involuntarily groan in pain.'
@@ -418,43 +405,43 @@ if $ARGS[0] = 'anal':
 	gs 'arousal', 'anal_finger', 3, 'sub'
 	gs 'stat'
 
-	'<<$husName>> Pulls his fingers out of your ass, and you feel his hard cock slide into your hole.'
+	'<<$npcdesc>> Pulls his fingers out of your ass, and you feel his hard cock slide into your hole.'
 
 	gs 'arousal', 'anal', 10, 'sub'
 	gs 'stat'
 
-	if pcs_ass + anal_slip < husDick:
+	if pcs_ass + anal_slip < dick_length:
 		'You scream and bit your lip from the sharp pain when his member slides into your ass.'
 	else
 		'You groan at the feeling of fullness when his penis parts your ass as he enters.'
 	end
 
-	'<<$husName>> freezes for a moment giving your ass time to adapt to his member. Then he begins to drive it in, all the more insistent.'
+	'<<$npcdesc>> freezes for a moment giving your ass time to adapt to his member. Then he begins to drive it in, all the more insistent.'
 
 	gs 'arousal', 'anal', 10, 'sub'
 	gs 'stat'
 
-	if pcs_ass + anal_slip + 2 < husDick:
+	if pcs_ass + anal_slip + 2 < dick_length:
 		if pcs_makeup > 1:pcs_makeup = 0
-		'You cry and sink your teeth into the pillow when his <<husDick>> inch cock begins to fuck your ass at full power.'
+		'You cry and sink your teeth into the pillow when his <<$dick_desc>> cock begins to fuck your ass at full power.'
 	else
 		'You start moaning rhythmically to the beat of the movements inside you.'
 	end
 
-	'<<$husName>> tightly grabs your buttcheeks as he drives is cock deep into your aching ass one last time, releasing the contents of his balls.'
+	'<<$npcdesc>> tightly grabs your buttcheeks as he drives is cock deep into your aching ass one last time, releasing the contents of his balls.'
 
 	gs 'arousal', 'anal', 10, 'sub'
 	gs 'stat'
 
 	if klismaday ! daystart:
-		husband -= 1
-		'<<$husName>> takes his member out of your ass and seeing shit on his dick tells you, "Damn. <<$pcs_nickname>> clean your ass before sex."'
+		npc_rel[$npcID] -= 1
+		'<<$npcdesc>> takes his member out of your ass and seeing shit on his dick tells you, "Damn. <<$pcs_nickname>> clean your ass before sex."'
 	else
-		husband += 5
-		'<<$husName>> takes his member out of you, kisses you and goes to the bathroom.'
+		npc_rel[$npcID] += 5
+		'<<$npcdesc>> takes his member out of you, kisses you and goes to the bathroom.'
 	end
 
-	if pcs_ass < husDick: pcs_ass += 1
+	if pcs_ass < dick_length: pcs_ass += 1
 
 	gs 'arousal', 'end'
 	gs 'stat'
@@ -467,13 +454,11 @@ end
 
 if $ARGS[0] = 'miss':
 	*clr
-	husband += 1
-	gs'brosok'
+	npc_rel[$npcID] += 1
 	pose = 0
-	gs 'boyStat', $HusID
 
 	'<center><img <<$set_imgh>> src="images/shared/sex/vag/miss/vag.jpg"></center>'
-	'<<$husName>> spreads your legs and uses his fingers to caress your pussy.'
+	'<<$npcdesc>> spreads your legs and uses his fingers to caress your pussy.'
 	'After a few minutes you are practically begging him to take you and he is more than willing, it is slow and gentle making you feel full and satisfied.'
 
 	gs 'arousal', 'vaginal_finger', -15
@@ -491,13 +476,11 @@ end
 
 if $ARGS[0] = 'dog':
 	*clr
-	husband += 1
-	gs'brosok'
+	npc_rel[$npcID] += 1
 	pose = 1
-	gs 'boyStat', $HusID
 
 	'<center><img <<$set_imgh>> src="images/shared/sex/vag/doggy/dog1.jpg"></center>'
-	'<<$husName>> turns you around into the doggy style position and spreads your buttcheeks before he enters you.'
+	'<<$npcdesc>> turns you around into the doggy style position and spreads your buttcheeks before he enters you.'
 
 	gs 'dinsex', 'boy_puts_condom'
 	gs 'dinsex', 'vaginal_sex', 15, 'sub'
@@ -522,26 +505,26 @@ if $ARGS[0] = 'husb_mastr_vtor':
 		gs 'stat'
 
 		if hour > 22 or hour < 7:
-			'<<$husName>> looks at you, obviously a little dumbfounded.'
+			'<<$npcdesc>> looks at you, obviously a little dumbfounded.'
 		else
-			'Just as you start getting into it, <<$husName>> walks in.'
+			'Just as you start getting into it, <<$npcdesc>> walks in.'
 		end
 
-		if harakHusb = 0:
+		if npc_gentle[$boy] = 1:
 			'"What are you doing honey?" he asks.'
 			'"Sorry, honey, but I really need to release steam, and you were busy." You answer, while continuing to masturbate.'
 			'"And how often do you do that?" He asks.'
 			'"As often as I need to. Do you want to watch?" You reply'
 
-			if izvratH = 0:
-				husband -= 1
+			if npc_pervert[$boy] = 0:
+				npc_rel[$npcID] -= 1
 				$orgasm_or = 'yes'
 				'"I''ll wait outside the door until you''re done" he says, as he goes away. You continue to satisfy yourself rapidly, and soon finish.'
 
 				gs 'arousal', 'end'
 				gs 'stat'
 
-				act 'Finish':gt $loc, $loc_arg
+				act 'Finish': gt $loc, $loc_arg
 			else
 				'"Well, I don''t know." He says hesitantly.'
 				'"So you want to." You say smiling'
@@ -550,7 +533,7 @@ if $ARGS[0] = 'husb_mastr_vtor':
 					cla
 					*clr
 					'<center><img <<$set_imgh>> src="images/characters/city/husband/sex/m22.jpg"></center>'
-					'You pull the dildo out of your pussy and, winking at your husband, insert it into your anus. <<$husName>> closely watches as the dildo disappears in your ass and then reappears. You see a swelling in his pants.'
+					'You pull the dildo out of your pussy and, winking at your husband, insert it into your anus. <<$npcdesc>> closely watches as the dildo disappears in your ass and then reappears. You see a swelling in his pants.'
 					'"Is there anything else you want, dear?" You ask with a smile.'
 					'"Can I join you?" He asks a little sheepishly.'
 
@@ -561,18 +544,18 @@ if $ARGS[0] = 'husb_mastr_vtor':
 						cla
 						*clr
 						'<center><img <<$set_imgh>> src="images/characters/city/husband/sex/m23.jpg"></center>'
-						'<<$husName>> takes out his member and begins to masturbate. This is not what you expected and at first you even feel a little sorry that he did not enter you, but then you start to masturbate again. You look at your husband, who masturbates looking at you, as you drive the dildo in your ass. Soon you feel yourself coming and you cry out in delight as you fall on the table, orgasming, the dildo still sticking out of your ass. <<$husName>> furiously masturbates looking at you stretched out on the table. You remov the dildo from your ass and start licking it in front of your husband''s eyes. Clearly excited from such a spectacle he soon starts cumming, spraying his sperm on the floor. You reach out to him sticking out your lips. A moment later he passionately kisses you.'
+						'<<$npcdesc>> takes out his member and begins to masturbate. This is not what you expected and at first you even feel a little sorry that he did not enter you, but then you start to masturbate again. You look at your husband, who masturbates looking at you, as you drive the dildo in your ass. Soon you feel yourself coming and you cry out in delight as you fall on the table, orgasming, the dildo still sticking out of your ass. <<$npcdesc>> furiously masturbates looking at you stretched out on the table. You remov the dildo from your ass and start licking it in front of your husband''s eyes. Clearly excited from such a spectacle he soon starts cumming, spraying his sperm on the floor. You reach out to him sticking out your lips. A moment later he passionately kisses you.'
 
 						$orgasm_or = 'yes'
 						gs 'arousal', 'anal_dildo', 5, 'masturbate'
 						gs 'arousal', 'end'
 						gs 'stat'
 
-						act 'Finish':gt $loc, $loc_arg
+						act 'Finish': gt $loc, $loc_arg
 					end
 				end
 			end
-		elseif harakHusb = 1:
+		elseif npc_rough[$boy] = 0:
 			'"Do you not get enough with me?" He asks.'
 			'"Sorry, honey, but I really need to let of steam, and you were busy" You answer, while continuing to masturbate.'
 			'"Well, at least give me a show." He says.'
@@ -581,19 +564,19 @@ if $ARGS[0] = 'husb_mastr_vtor':
 			gs 'arousal', 'vaginal_dildo', 10, 'masturbate'
 			gs 'stat'
 
-			if izvratH = 0:
-				husband += 1
-				husbizvradd += 1
+			if npc_pervert[$boy] = 0:
+				npc_rel[$npcID] += 1
+				spouseVars['pervert_add'] += 1
 
-				'"No, don''t. This is enough" He says, and sits down on a chair watching you. You continue to satisfy yourself rapidly, and soon finish in front of husband. <<$husName>> stands up and begins to applaud. "Bravo, can I have an encore?" He says laughing.'
-				'"For such a wonderful audience I will do anything, but only after the intermission," You laugh. <<$husName>> helps you getting off the table.'
+				'"No, don''t. This is enough" He says, and sits down on a chair watching you. You continue to satisfy yourself rapidly, and soon finish in front of husband. <<$npcdesc>> stands up and begins to applaud. "Bravo, can I have an encore?" He says laughing.'
+				'"For such a wonderful audience I will do anything, but only after the intermission," You laugh. <<$npcdesc>> helps you getting off the table.'
 
 				gs 'arousal', 'end'
 				gs 'stat'
 
-				act 'Finish':gt $loc, $loc_arg
+				act 'Finish': gt $loc, $loc_arg
 			else
-				husband += 1
+				npc_rel[$npcID] += 1
 
 				'"You do that too? I would love a demonstration." He says.'
 				'"Whatever you want" You reply'
@@ -602,7 +585,7 @@ if $ARGS[0] = 'husb_mastr_vtor':
 					cla
 					*clr
 					'<center><img <<$set_imgh>> src="images/characters/city/husband/sex/m22.jpg"></center>'
-					'You pull the dildo out of your pussy and, winking at your husband, insert it into your anus. <<$husName>> watches closely as the dildo disappears in your ass and then reappears. You see a swelling in his pants.'
+					'You pull the dildo out of your pussy and, winking at your husband, insert it into your anus. <<$npcdesc>> watches closely as the dildo disappears in your ass and then reappears. You see a swelling in his pants.'
 					'"Is there anything else you want, dear?" You ask with a smile.'
 					'"I would like to join" He says, unbuttoning his pants and exposing his member to your face.'
 
@@ -613,7 +596,7 @@ if $ARGS[0] = 'husb_mastr_vtor':
 						cla
 						*clr
 						'<center><img <<$set_imgh>> src="images/characters/city/husband/sex/m24.jpg"></center>'
-						'You take his slightly flaccid penis and start sucking, continuing to drive the dildo in your anus. You quickly get him hard and <<$husName>> stops you. "Wait, I think I''ll take another hole."'
+						'You take his slightly flaccid penis and start sucking, continuing to drive the dildo in your anus. You quickly get him hard and <<$npcdesc>> stops you. "Wait, I think I''ll take another hole."'
 
 						gs 'arousal', 'bj', 10, 'sub'
 						gs 'arousal', 'anal_dildo', 10, 'sub'
@@ -627,16 +610,16 @@ if $ARGS[0] = 'husb_mastr_vtor':
 					end
 				end
 			end
-		elseif harakHusb = 2:
+		else
 			'"After all the fucking I give you, you''re still not satisfied? You horny bitch." He asks.'
 			'"I''m sorry dear, but I really need to let of steam, and you were busy" You answer, while continuing to masturbate.'
 
 			gs 'arousal', 'vaginal_dildo', 10
 			gs 'stat'
 
-			if izvratH = 0:
-				husband += 1
-				husbizvradd += 1
+			if npc_pervert[$boy] = 0:
+				npc_rel[$npcID] += 1
+				spouseVars['pervert_add'] += 1
 
 				'"Well then, open your mouth." He says pulling his member out of his pants and roughly pushing it into your mouth. He grabs you by the hair and starts fucking your mouth telling you to not stop masturbating. Soon, he tires of your mouth. "Take that rubber thing out of your hole because I''ll use it now."'
 
@@ -650,7 +633,7 @@ if $ARGS[0] = 'husb_mastr_vtor':
 					gt 'sex', 'vag'
 				end
 			else
-				husband += 1
+				npc_rel[$npcID] += 1
 
 				'"Put it in your ass and open your mouth" He says, pulling out his cock. You quickly take the dildo out of your pussy and put it in your ass as you humbly open your mouth.'
 
@@ -661,7 +644,7 @@ if $ARGS[0] = 'husb_mastr_vtor':
 					cla
 					*clr
 					'<center><img <<$set_imgh>> src="images/characters/city/husband/sex/m24.jpg"></center>'
-					'You take his slightly flaccid penis and start sucking, continuing to drive the dildo in your anus. You quickly get him hard and <<$husName>> stops you. "Take the dildo out. It is time for me to fuck your ass."'
+					'You take his slightly flaccid penis and start sucking, continuing to drive the dildo in your anus. You quickly get him hard and <<$npcdesc>> stops you. "Take the dildo out. It is time for me to fuck your ass."'
 
 					gs 'arousal', 'bj', 10, 'sub'
 					gs 'arousal', 'anal_dildo', 10, 'sub'

locations/igor_schedule.qsrc

@@ -43,7 +43,7 @@ if SchoolAtestat = 0 and kanikuli = 0:
 			end
 		end
 	elseif week = 6:
-		if igor_DimaNos_day = daystart:
+		if IgorQW['DimaNos_day'] = daystart:
 			!! Igor is at a date with Dimka wont be availebel whole day.
 			locat['igor']  = 11
 		elseif hour < 8:
@@ -134,7 +134,7 @@ else
 			end
 		end
 	elseif week = 6:
-		if igor_DimaNos_day = daystart:
+		if IgorQW['DimaNos_day'] = daystart:
 			!! Igor is at a date with Dimka wont be availebel whole day.
 			locat['igor']  = 11
 		elseif hour < 8:

locations/igorhunter.qsrc

@@ -4,22 +4,15 @@
 $menu_loc = 'igorhunter'
 $menu_arg = ''
 menu_off = 0
-gs 'boyStat', 'A173'
-$boybody = 'high'
-$boybod = 'athletic'
-$boyface = 'brunette'
+
+!! NEEDS TO BE UPDATED TO CORRECT VALEUS
+gs 'npcStat', 'A173'
 lover_picture_number = 31
-finance = 1
-vneshBoy = 8
-$boyClo = 'dressed in jeans and a sweater.'
-figurBoy = 1
-titBoy = 1
-hairBoy = 3
-harakBoy = 1
-izvrat = 0
-boyage = year - ((npc_dob['A173'] - (npc_dob['A173'] mod 10000)) / 10000)
-boy_birth_date = 9
-boy_birth_month = 6
+$npcClo = 'jeans and a sweater'
+npc_pervert[$boy] = 0
+boyage = year - (npc_dob['A173'] / 10000)
+boy_birth_month = (npc_dob['A173'] / 100) mod 100
+boy_birth_date = npc_dob['A173'] mod 100
 
 if huntersIgorQw < 10 and huntersIgorLove > 0:
 	*clr & cla
@@ -79,37 +72,15 @@ else
 			gs 'arousal', 'foreplay', 1
 			gs 'stat'
 		!! this part is not included properly into boyfriend system yet - rachels
-		!! it could be simply replaced with gs 'boyfrend', 'start' but we need to check if a slot is empty
+		!! it could be simply replaced with gs 'lover', 'add_boyfriend', $boy but we need to check if a slot is empty
 		!! at the moment I disable all the actions
 			act 'Yes':
 				*clr & cla
 				'<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/hanterkiss2.jpg"></center>'
 				'You move closer to him and begin kissing him again. Igor gently kisses you back.'
 				'<center><b>Be aware! Igor is not in the Boyfriend system yet!</b></center>'
-				!stopboy = 0
-		!!		$lover[lover_number] = $boy
-		!!		$loverbody[lover_number] = $boybody
-		!!		$loverbod[lover_number] = $boybod
-		!!		$loverface[lover_number] = $boyface
-		!!		loverdick[lover_number] = dick
-		!!		loversilaVag[lover_number] = silaVag
-		!!		loverfinance[lover_number] = finance
-		!!		vneshlover[lover_number] = vneshBoy
-		!!		$loverClo[lover_number] = $boyClo
-		!!		figurlover[lover_number] = figurBoy
-		!!		titlover[lover_number] = titBoy
-		!!		hairlover[lover_number] = hairBoy
-		!!		haraklover[lover_number] = harakBoy
-		!!		boyage[lover_number] = boyage
-		!!		loverday[lover_number] = day
+		!!		gs 'lover', 'add_boyfriend', $boy
 		!!		bfA = 1
-		!!		day[lover_number] = 0
-		!!		boyonce[lover_number] = 0
-		!!		loverizvrat[lover_number] = izvrat
-		!!		giftDay[lover_number] = 0
-		!!		giftNum[lover_number] = 0
-		!!		loverlove[lover_number] = 0
-		!!		lover_picture[lover_number] = lover_picture_number
 				huntersIgorLove = 2
 				pcs_mood = 100
 				gs 'arousal', 'kiss', 5

locations/igorsex.qsrc

@@ -0,0 +1,1671 @@
+# igorsex
+!2024/08/21
+
+menu_off = 1
+!!Igor = A4
+
+!!igorQW['bottom'] = 1 - Igor has been topped by someone
+!!igorQW['bottom'] = 5 - Igor likes being the bottom
+!!igorQW['bottom'] = 10 - Igor only wants to be a bottom
+!!igorQW['bottom'] = 20 - Igor will be open to letting anyone he "likes" or his romantic partner/BF with benefits to top him
+
+
+!!start of dating sex story arc.
+!!this one should only be if Sveta is dating Igor.
+if $ARGS[0] = 'din_sex':
+	if IgorQW['htday'] ! daystart:
+		*clr & cla
+		gs 'boyStat', 'A4'
+		IgorQW['htday'] = daystart
+		gs 'stat'
+		'Both of you quickly undress while kissing, pulling the clothes off each other.'
+
+		act 'Squat':
+			*clr & cla
+			bja += 1
+			if npc_sex['A4'] = 0: npc_Sex['A4'] = 1 & guy += 1
+			gs 'stat'
+			'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/igor/sex/home/tinydick.jpg"></center>'
+			'You get down on your knees in front of him, playing with his small hard cock. You lick the head as Igor breathes hard and sharp. "Don''t stop <<$pcs_nickname>>, I''m right on the edge!"'
+			gs 'arousal', 'bj', 2
+			gs 'stat'
+
+			act 'Start sucking':
+				*clr & cla
+				IgorQW['sex'] += 1
+				'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/igor/sex/home/suckdick.jpg"></center>'
+				'You grab his small rock-hard cock and start sucking it. Igor groans and you feel a huge jet of cum spurt into your mouth.'
+				gs 'cum_call', 'mouth', $boy, 1
+				gs 'arousal', 'bj', 2
+				gs 'stat'
+
+				act 'Swallow':
+					*clr & cla
+					'<center><img <<$set_imgh>> src="images/pc/body/cum/swallow/swallow7.jpg"></center>'
+					'You continue sucking his cock and swallow the cum as soon as it reaches your mouth. The stream of sperm is never ending, so instead of trying to swallowing everything, you let it drip out of your mouth.'
+					'Once he finally finishes, you let his limp cock slide out of your mouth. Your <<$pc_desc[''lips'']>> lips are wet from all the cum.'
+					gs 'cum_call', 'mouth_swallow', $boy, 1
+					gs 'arousal', 'bj', 2
+					gs 'stat'
+					act 'Continue': gt 'igorsex', 'din_igor_end'
+				end
+
+				act 'Remove his cock from your mouth':
+					*clr & cla
+					'<center><img <<$set_imgh>> src="images/pc/body/cum/cumface/cumface2.jpg"></center>'
+					'You remove his cock from your mouth as a continuous jet of semen shoots out of the tip, hitting you in the face. Some of the splatter gets into your eyes, making you blink in panic as spurt after spurt of cum splashes across your face.'
+					gs 'cum_call', 'face', $boy, 1
+					gs 'arousal', 'end'
+					gs 'stat'
+					act 'Continue': gt 'igorsex', 'din_igor_end'
+				end
+			end
+
+			act 'Have anal sex':
+				*clr & cla
+				IgorQW['sex'] += 1
+				'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/igor/sex/home/anal.jpg"></center>'
+				'You lay down on your stomach and grab your ass cheeks with both hands, spreading them wide and presenting your ass to Igor. You look at him with lust in your eyes and he hesitantly grabs his little cock and tries to push it inside your asshole.'
+				'Even though he only has a little cock, it gives you some pleasure and you let out a quiet whimper.'
+				*nl
+				'After a few minutes, you feel his cock growing and getting rock-hard.'
+				'"Can I cum inside you?" he asks.'
+				'Before you can answer, you feel him shooting his load inside you.'
+				'He''s clearly upset over this, but you tell him it''s okay and that you don''t mind him finishing inside you.'
+				gs 'cum_call', 'anus', $boy, 1
+				gs 'arousal', 'anal', 2
+				gs 'arousal', 'end'
+				gs 'stat'
+				act 'Continue': gt 'igorsex', 'din_igor_end'
+			end
+
+			if stat['think_virgin'] = 0 and IgorQW['sex'] >= 1:
+				act 'Tell him to fuck you in the pussy':
+					*clr & cla
+					IgorQW['sex'] += 1
+					sexa += 1
+					'<center><video autoplay loop src="images/characters/pavlovsk/school/boy/igor/sex/home/pussy.mp4"></video></center>'
+					'Igor nervously spreads your legs and thrusts his cock into you.'
+					'His little cock is giving you very little pleasure and you just wish he''ll finish quickly.'
+					'Igor tries his best and speeds up, but it only makes him edge quicker.'
+					'You see him making faces and he pull outs at the last second, cumming on your pussy lips.'
+					'"You were lucky. I would have killed you if you had gotten me pregnant..." you tell him.'
+					gs 'cum_call', 'labia', $boy, 1
+					gs 'arousal', 'vaginal', 3
+					gs 'arousal', 'end'
+					gs 'stat'
+					act 'Continue': gt 'igorsex', 'din_igor_end'
+				end
+			end
+		end
+
+		if IgorQW['sex'] >= 2 and IgorQW['qwday'] ! daystart:
+			act 'Lick my pussy':
+				*clr & cla
+				IgorQW['kuni'] += 1
+				'<center><video autoplay loop src="images/characters/pavlovsk/school/boy/igor/sex/home/kuni.mp4"></video></center>'
+				'Both of you get undressed and start caressing each other before you tell him that you want him to please you instead.'
+				'He nods and without a word drops down on his knees. He starts licking you, expertly working his tongue.'
+				'You feel your pussy pulsating thanks to Igor''s smooth tongue. You notice that he''s as excited as you, jerking his cock.'
+				'After a while, you start breathing more loudly, grabbing him by the hair and cumming in his mouth.'
+				gs 'arousal', 'cuni', 2
+				gs 'arousal', 'end'
+				gs 'stat'
+				act 'Continue': gt 'igorsex', 'din_igor_end'
+			end
+		end
+	else
+		*clr & cla
+		IgorQW['qwday'] = daystart
+		gs 'stat'
+		act 'Lick my pussy':
+			*clr & cla
+			IgorQW['kuni'] += 1
+			'<center><video autoplay loop src="images/characters/pavlovsk/school/boy/igor/sex/home/kuni.mp4"></video></center>'
+			'Both of you get undressed and start caressing each other before you tell him that you want him to please you instead.'
+			'You''ve already had sex today.'
+			gs 'arousal', 'cuni', 2
+			gs 'arousal', 'end'
+			gs 'stat'
+			act 'Finish': gt 'igorsex', 'din_igor_end'
+		end
+	end
+end
+
+if $ARGS[0] = 'din_igor_end':
+	*nl
+	if $loc = 'pav_disco':
+		'With Igor having taken you to his house, you should take advantage and use his bathroom to freshen up.'
+	else
+		'You should go to the bathroom to freshen up.'
+	end
+	act 'Go to the bathroom': gt 'igorhome', 'bathroom'
+end
+
+if $ARGS[0] = 'din_krossdresssex':
+	*clr & cla
+	gs 'stat'
+	gs 'igorsex', 'kruglov_desc'
+	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/igor/talkgf.jpg"></center>'
+	'"You know what? I really enjoyed having sex when you were dressed as a girl!" you tell him.'
+	'"Is that so? I have to admit, I enjoyed it too. The sex, that is..." he responds.'
+	'"Let''s do it again," you suggest.'
+	'"I don''t know..." he says with a hint of hesitation.'
+	'You try teasing him into compliance. "I really like that girl! She was sexy and made me wet straight away!"'
+	'"To hell with it, let''s do it!" he relents.'
+	'"Sweet!" you happily start clapping your hands, having already planned out every little step.'
+
+	act 'Put on makeup':
+		*clr & cla
+		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/igor/crossdress/makeup.jpg"></center>'
+		'You quickly put the makeup on him and pick out some good clothes. He puts on the clothes and seems to quickly get into dressing up.'
+
+		act 'Further':
+			*clr & cla
+			'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/igor/crossdress/rkd.jpg"></center>'
+			'"Well, there we have her, my beautiful girl!" you say with lust in your voice as you look at him. He blushes a little and checks out his reflection in the mirror.'
+
+			act 'Kiss him':
+				*clr & cla
+				'<center><video autoplay loop src="images/characters/pavlovsk/school/boy/igor/crossdress/kiss.mp4"></video></center>'
+				'You can''t resist any longer. You lean forward and start making out with him.'
+				gs 'arousal', 'kiss',2
+				gs 'stat'
+				if mc_inventory['strapon'] > 0:
+					act 'You have a strapon': gt 'igorsex', 'strapon_crossdress'
+				end
+
+				act 'Ask Igor to lick your pussy':
+					*clr & cla
+					IgorQW['Horny'] = 0
+					IgorQW['kdsexday'] = day
+					IgorQW['crossdressSex']  += 1
+					gs 'stat'
+					'<center><video autoplay loop src="images/characters/pavlovsk/school/boy/igor/sex/crossdress/kdsex.mp4"></video></center>'
+					'You ask him if he can lick your pussy. He nods and without a word drops down on his knees. He starts licking you, expertly working his tongue.'
+					'You feel your pussy pulsating thanks to Igor''s smooth tongue. You notice that he''s as exicted as you, jerking his cock.'
+					'After a while, your breathing turns heavy and you grab him by the hair as you cum in his mouth.'
+					gs 'arousal', 'cuni', 5, 'dom'
+					gs 'arousal', 'end'
+					gs 'stat'
+					act 'Finish': gt 'igorhome', 'igorroom'
+				end
+			end
+		end
+	end
+end
+
+if $ARGS[0] = 'strap on':
+!!this is just the first time they have strapon sex.
+	if IgorQW['strap'] = 0:
+		*clr & cla
+		if PCLoSkirt > 0:
+			'<center><video autoplay loop src="images/characters/pavlovsk/school/boy/igor/namek.mp4"></video></center>'
+			'You excuse yourself and head to the bathroom. Once there, you quickly put your strapon on under your clothes before heading back to Igor''s room. He smiles at you when you return.'
+			'You start stroking the strap-on under your dress. "I have a surprise for you..."'
+			'"Oh? What is it?" he eagerly asks, awaiting your answer.'
+		else
+			'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/igor/strapon_pants1.jpg"></center>'
+			'You excuse yourself and head to the bathroom. Once there, you quickly put your strapon on under your clothes before heading back to Igor''s room. He smiles at you when you return.'
+			'You start rubbing the bulge in your pants. "I have a surprise for you..."'
+			'His eyes dart down and you know he can''t miss it, even if he might not know what it is. "Oh? What is it?" he eagerly asks, awaiting your answer.'
+		end
+
+		act 'Show him the strap-on':
+			*clr & cla
+			IgorQW['net'] += 1
+			IgorQW['napoit'] += 1
+			gs 'drugs', 'alcohol', 'wine'
+			gs 'stat'
+			if PCLoSkirt > 0:
+				'<center><video autoplay loop src="images/characters/pavlovsk/school/boy/igor/namek2.mp4"></video></center>'
+				if strapnumber >= 5:
+					'You lift your dress and show him the strap-on as your hand caresses it.'
+					'"Well," you say in a dramatic effect. "Here it is! Surprise!!"'
+					'His eyes widen. "Oh my God! Why do you have that on you?!"'
+					'"You wanted to know what it''s like to be a girl, right?" you grin.'
+					'"No! That''s way too big! Maybe something smaller, but not that thing!" he says while shaking his head.'
+					'You sigh and look down at the dildo. Maybe it is too much for a first time. "Okay, I''ll get something smaller and we can try some other time."'
+					'He shrugs. "I don''t know..."'
+					'The two of you talk for a while and you''re able to convince him to try with a smaller one some other time. You then decide it''s time to leave.'
+					act 'Go home': gt 'pav_residential'
+				else
+					'You lift your dress, showing him the strap-on as your hand caresses it.'
+					'"Well," you say in a dramatic effect. "Here it is! Surprise!!"'
+					'His eyes widen. "Oh my God! Why do you have that on you?!"'
+					'"You wanted to know what it''s like to be a girl, right?" you grin.'
+					'"No! I mean yeah, but... I don''t know..."'
+					*nl
+					'"You said you wanted to know what it''s like being a girl. Well being fucked is a big part of being a girl! Besides, it will be fun," you tell him.'
+					'He stares at the strap-on as you stroke it, biting his lower lip before he nods his head and looks you in the eye. "Okay, let''s do it. But before we start, I''ll need a drink."'
+					'Igor fetches a bottle of wine and opens it, pouring both of you a drink. You sit on the couch together and talk about what sex feels like for a girl. Igor drinks a lot more than you do and ends up clearly tipsy.'
+				end
+			else
+				'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/igor/strapon_pants1.jpg"></center>'
+				if strapnumber >= 5:
+					'You unzip your pants and pull the strapon free, stroking it like it''s a cock.'
+					'"Well," you say in a dramatic effect. "Here it is! Surprise!!"'
+					'"Oh my God! Why do you have that on you?!" his eyes widen.'
+					'"You wanted to know what it''s like to be a girl, right?" you grin.'
+					'"No! That''s way too big! Maybe something smaller, but not that thing!" he says while shaking his head.'
+					'You sigh and look down at the dildo. Maybe it is too much for a first time. "Okay, I''ll get something smaller and we can try some other time."'
+					'He shrugs. "I don''t know..."'
+					'The two of you talk for a while and you''re able to convince him to try with a smaller one some other time. You then decide it''s time to leave.'
+					act 'Go home': gt 'pav_residential'
+				else
+					'You unzip your pants and pull the strapon free, stroking it like it''s a cock.'
+					'"Well," you say in a dramatic effect. "Here it is! Surprise!!"'
+					'His eyes widen. "Oh my God! Why do you have that on you?!"'
+					'"You wanted to know what it''s like to be a girl, right?" you grin.'
+					'"No! I mean yeah, but... I don''t know..."'
+					*nl
+					'"You said you wanted to know what it''s like being a girl. Well being fucked is a big part of being a girl! Besides, it will be fun." you tell him.'
+					'He stares at the strap-on as you stroke it, biting his lower lip before he nods his head and looks you in the eye. "Okay, let''s do it. But before we start, I''ll need a drink."'
+					'Igor fetches a bottle of wine and opens it, pouring both of you a drink. You sit on the couch together and talk about what sex feels like for a girl. Igor drinks a lot more than you do and ends up clearly tipsy.'
+				end
+			end
+
+			if strapnumber <= 4:
+				act 'It''s time':
+					*clr & cla
+					IgorQW['strap'] += 1
+					'<center><video autoplay loop src="images/characters/pavlovsk/school/boy/igor/sex/home/ygov1.mp4"></video></center>'
+					'You put the wine glass down and take his away from him, placing it down as well before you lean in close to him. "Okay, I think you''re ready for it. Let me show you an experience you''ll never forget!"'
+					'He nods, clearly nervous, thought he also looks very excited as well, almost eager.'
+
+					act 'Further':
+						*clr & cla
+						'<center><video autoplay loop src="images/characters/pavlovsk/school/boy/igor/sex/home/ygov2.mp4"></video></center>'
+						'You open your legs, showing the strap-on under your skirt before you lean in close and whisper. "Don''t be nervous. I promise that this will be great."'
+						'He lets out a nervous laugh. "I don''t really know if this was such a smart idea. That strap-on looks pretty big..."'
+
+						act 'It''s not that big':
+							*clr & cla
+							'<center><video autoplay loop src="images/characters/pavlovsk/school/boy/igor/sex/home/ygov3.mp4"></video></center>'
+							'You look down at the dildo as you stroke it. "Trust me, it''s not that big. There''s a lot of guys bigger than this, but if you really don''t want to know what it''s like to be a girl..."'
+							'He takes a deep breath before sighing. "You''re right, I want to know, just... Just take it easy. I''m a virgin after all."'
+							'You both laugh at his remark.'
+
+							act 'Igor takes off his pants':
+								*clr & cla
+								'<center><video autoplay loop src="images/characters/pavlovsk/school/boy/igor/sex/home/ygov4.mp4"></video></center>'
+								'"Go ahead and take off your pants," you command.'
+								'He looks at you before hesitating. You hear him take a deep breath before he complies with your command and pulls down his pants.'
+								'You look at him, becoming quite aroused fantasizing about what it''s going to be like fucking a guy instead of being fucked by one. You feel very empowered about how you''ll soon be having some fun...'
+
+								act 'Further':
+									*clr & cla
+									'<center><video autoplay loop src="images/characters/pavlovsk/school/boy/igor/sex/home/ygov5.mp4"></video></center>'
+									'Undressed, Igor approaches you and attempts to kiss you, but you pull away and point at the couch on a spot next to you. He quickly sits down.'
+									'"Don''t think you can distract me by trying to kiss me. Now let''s go to your bedroom so we can have some fun."'
+									'He grins and nods before you get up and head to his bedroom.'
+
+									act 'Lay him down':
+										*clr & cla
+										'<center><video autoplay loop src="images/characters/pavlovsk/school/boy/igor/sex/home/shlepaet_1.mp4"></video></center>'
+										'Naked, he lays down on his stomach on his bed.'
+										'You start kneading his firm ass cheeks, spanking him a few times. "Please <<$pcs_nickname>>, I beg you, be gentle! This is my first time."'
+										'"Shut up and don''t whine or I''ll pound your ass until you can''t sit down."'
+										gs 'arousal', 'foreplay_give', 5, 'dom'
+										gs 'stat'
+
+										act 'Insert the tip':
+											*clr & cla
+											'<center><video autoplay loop src="images/characters/pavlovsk/school/boy/igor/sex/home/vstavlaet_1.mp4"></video></center>'
+											'You lube up the strap-on and spit on his asshole for a little extra lube before you move up behind him and slowly push the tip of the strap-on against his asshole. Igor starts moaning immediately.'
+											gs 'arousal', 'anal_strap_give', 3, 'dom'
+											gs 'stat'
+
+											act 'Fuck his ass':
+												*clr & cla
+												igorQW['bottom'] += 1
+												'<center><video autoplay loop src="images/characters/pavlovsk/school/boy/igor/sex/home/terpit.mp4" ></video></center>'
+												'You continue pressing a little harder before the strap-on slides into his ass. He groans loudly as you start pumping his ass.'
+												'"Oh... Fuck <<$pcs_nickname>>, it hurts!!! Stop! Stop! You said you would take it slow!" Igor cries out, gripping the pillow.'
+												gs 'arousal', 'anal_strap_give', 3, 'dom'
+												gs 'stat'
+
+												act 'Stop':
+													*clr & cla
+													'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/igor/sex/home/strapstop.jpg" ></center>'
+													'You stop and pull out.'
+													'"Fuck, that hurt! I''m never doing that again!" he yells out.'
+													'You nod your head understandingly but you''re convinced that you''ll have another try.'
+													'He gets out of bed as you take off the strap-on.'
+													gs 'arousal', 'end'
+													gs 'stat'
+													act 'Finish': gt 'igorhome', 'igorroom'
+												end
+
+												act 'Slow down':
+													*clr & cla
+													'<center><video autoplay loop src="images/characters/pavlovsk/school/boy/igor/sex/home/strapon1.mp4" ></video></center>'
+													'"Stop being a pussy! I know you love this! But since it''s your first time, I''ll slow down. Just take a deep breath and relax."'
+													'You feel him relax you start slowly fucking him again. "Okay, that''s not too bad."'
+													'"Good," you reply. "Now just stay relaxed."'
+													'As you keep fucking him, he starts moaning as he gets into it and starts enjoying it.'
+													gs 'arousal', 'anal_strap_give', 3, 'dom'
+													gs 'stat'
+
+													act 'Finish':
+														*clr & cla
+														'<center><video autoplay loop src="images/characters/pavlovsk/school/boy/igor/sex/home/pegcum.mp4" ></video></center>'
+														'You pull him up into a doggystyle position and reach around to grab his dick. It''s already rock-hard as you start jerking him off while continuing to pump his ass with your strap-on.'
+														'It doesn''t take very long at all until he moans loudly and blows his load. Once he''s finished, you stop and pull your strap-on out of his ass.'
+														*nl
+														'"Fuck, that was amazing! I never knew sex could feel that great!" He turns around and kisses you. "Thank you for helping me explore my sexuality."'
+														'You feel great! That was one of the best experiences of your life! You grin at him. "I''m glad you enjoyed it. I look forward to fucking you again."'
+														'He kisses you and reaches down, stroking your strap-on with his hand a few times. "I look forward to it as well."'
+														gs 'arousal', 'anal_strap_give', 3, 'dom'
+														gs 'arousal', 'end'
+														gs 'stat'
+														act 'Finish': gt 'igorhome', 'igorroom'
+													end
+												end
+												gs 'willpower', 'anal', 'force', 'medium'
+
+												if will_cost <= pcs_willpwr:
+													act 'Take it like a bitch (<<will_cost>> Willpower)':
+														*clr & cla
+														gs 'willpower', 'pay', 'force'
+														igorQW['bottom'] += 1
+														gs 'stat'
+														'<center><video autoplay loop src="images/characters/pavlovsk/school/boy/igor/sex/home/rough1.mp4" ></video></center>'
+														'"Shut up and don''t be a pussy! I know you love this!" You keep pounding him without stopping while laying on top on him.'
+														'"<<$pcs_nickname>>, please stop!" he begs.'
+														'"I said shut up, bitch!" you snarl before you grab him by the hips and pull him up onto all fours. You then firmly grab his hips and really start pounding his ass, causing him to cry out.'
+														'"Relax your ass or it''ll continue to hurt!" you tell him.'
+														gs 'arousal', 'anal_strap_give', 3, 'dom', 'rough'
+														gs 'stat'
+
+														act 'Finish':
+															*clr & cla
+															'<center><video autoplay loop src="images/characters/pavlovsk/school/boy/igor/sex/home/pegcum.mp4" ></video></center>'
+															'After you hammer him for a while, you reach around and grab his dick which, despite all his bitching, is rock-hard. You start jerking him off as you hammer his ass with your strap-on.'
+															'It doesn''t take very long until he moans loudly and shoots his load. Once he''s finished, you stop and pull your strap-on out of his ass.'
+															*nl
+															'"Fuck, that hurt! But it also felt amazing at the same time." He pulls away from you and rubs his ass. "Maybe next time you can be a bit gentler?"'
+															'You feel great! That was one of the best experiences of your life! You grin at him. "That''s up to you, slave. If you please me, then maybe I won''t be so rough next time, but if you displease me, then you''ll wish I was this gentle again..."'
+															'He looks at you with a mix of fear and anticipation. "I hope you''re kidding, but we better get cleaned up."'
+															gs 'arousal', 'anal_strap_give', 3, 'dom', 'rough'
+															gs 'arousal', 'end'
+															gs 'stat'
+															act 'Finish': gt 'igorhome', 'igorroom'
+														end
+													end
+												else
+													act 'Take it like a bitch (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+												end
+											end
+										end
+									end
+								end
+							end
+						end
+					end
+				end
+			end
+		end
+	else
+		*clr & cla
+		'<center><video autoplay loop src="images/characters/pavlovsk/school/boy/igor/sex/home/strapup.mp4"></video></center>'
+		if strapnumber >= 5:
+			'You pull out the strap-on and start putting it on. "I''m going to fuck you like a bitch with my big hard cock."'
+			'His eyes widen. You can tell he''s turned on by you taking charge like this, but he doesn''t seem to agree with using the massive dildo.'
+			'"Oh my God, are you crazy?! That thing is huge! It would hurt too much!"'
+			'"What? You already let me fuck you with one before," you grin.'
+			'"The smaller one was okay, but not that thing!" he says while shaking his head.'
+			'You sigh and look down at the monster dildo. You know he won''t budge on trying it. "Okay, I''ll get something smaller next time."'
+			'He nods. "Sounds good. I can''t wait."'
+			'The two of you talk for a few minutes before you decide it''s time to leave.'
+			act 'Go home': gt 'pav_residential'
+		else
+			'You pull out the strap-on and start putting it on. "I''m going to fuck you like a bitch with my big hard cock."'
+			'His eyes widen, but you can tell he''s turned on by you taking charge as he stares at the dildo.'
+
+			act 'Take off your pants':
+				*clr & cla
+				IgorQW['strap'] += 1
+				'<center><video autoplay loop src="images/characters/pavlovsk/school/boy/igor/sex/home/pulldown.mp4"></video></center>'
+				'"Go ahead and take off your pants," you command.'
+				'He gets up and eagerly starts taking off his pants.'
+
+				act 'Suck my cock':
+					*clr & cla
+					'<center><video autoplay loop src="images/characters/pavlovsk/school/boy/igor/sex/home/suck1.mp4"></video></center>'
+					'You pull him over to you and push him down. "Suck my cock, bitch!"'
+					'He eagerly takes your strap-on into his mouth and starts sucking it for all he''s worth.'
+					'After you fuck his mouth for a few seconds, you pull him over to the bed and lay him down.'
+					gs 'arousal', 'bj', 2, 'dom'
+					gs 'stat'
+
+					act 'Lay him down':
+						*clr & cla
+						'<center><video autoplay loop src="images/characters/pavlovsk/school/boy/igor/sex/home/shlepaet_1.mp4"></video></center>'
+						'He lays down on his stomach on his bed and you start kneading his firm ass cheeks, spanking him a few times.'
+						'"Please, <<$pcs_nickname>>, I want it now! Stop teasing me!"'
+						gs 'arousal', 'foreplay_give', 2, 'dom'
+						gs 'stat'
+
+						act 'Insert the tip':
+							*clr & cla
+							'<center><video autoplay loop src="images/characters/pavlovsk/school/boy/igor/sex/home/vstavlaet_1.mp4"></video></center>'
+							'You lube up the strap-on and spit on his asshole for a little extra lube before you move up behind him and slowly push the tip of the strap-on against his asshole. Igor starts moaning immediately.'
+							gs 'arousal', 'anal_strap_give', 3, 'dom'
+							gs 'stat'
+
+							act 'Fuck his ass':
+								*clr & cla
+								igorQW['bottom'] += 1
+								'<center><video autoplay loop src="images/characters/pavlovsk/school/boy/igor/sex/home/terpit.mp4" ></video></center>'
+								'You continue pressing a little harder before the strap-on slides into his ass. He groans loudly as you start pumping his ass.'
+								'"Oh... Fuck <<$pcs_nickname>>, that feels so good! Fuck me baby, fuck me!" he cries out before biting the pillow.'
+								gs 'arousal', 'anal_strap_give', 3, 'dom'
+								gs 'stat'
+
+								act 'Fuck him more':
+									*clr & cla
+									'<center><video autoplay loop src="images/characters/pavlovsk/school/boy/igor/sex/home/strapon1.mp4" ></video></center>'
+									'You can tell that he''s enjoying this, and so are you. You ride him for a long time, loving every moment of it as his moans get louder and louder.'
+									'You know he''s getting close to finishing.'
+									gs 'arousal', 'anal_strap_give', 3, 'dom'
+									gs 'stat'
+
+									act 'Finish':
+										*clr & cla
+										'<center><video autoplay loop src="images/characters/pavlovsk/school/boy/igor/sex/home/pegcum.mp4" ></video></center>'
+										'You pull him up into a doggystyle position. Once he''s up, you reach around and grab his dick, which is already rock-hard as you start jerking him off as you pump his ass with your strap-on.'
+										'It doesn''t take very long until he moans loudly and shoots his load. Once he''s finished, you stop and pull your strap-on out of his ass.'
+										*nl
+										'He turns around and kisses you. "Fuck, that was amazing as always. I never understood how anyone could like being fucked in the ass, now I don''t understand why everyone doesn''t want to be fucked in the ass."'
+										'You feel great! This was one of the best experiences of your life! You grin at him. "I''m glad you enjoyed it. I look forward to fucking you again."'
+										'He kisses you again and reaches down, stroking your strap-on with his hand a few times. "I look forward to being fucked by you again."'
+										gs 'arousal', 'anal_strap_give', 3, 'dom'
+										gs 'arousal', 'end'
+										gs 'stat'
+										act 'Finish': gt 'igorhome', 'igorroom'
+									end
+								end
+								gs 'willpower', 'anal', 'force', 'medium'
+								if will_cost <= pcs_willpwr:
+									act 'Take it like a bitch (<<will_cost>> Willpower)':
+										*clr & cla
+										gs 'willpower', 'pay', 'force'
+										igorQW['bottom'] += 1
+										gs 'stat'
+										'<center><video autoplay loop src="images/characters/pavlovsk/school/boy/igor/sex/home/trahaet1.mp4" ></video></center>'
+										'You grab hold of his hips and pull him up until he''s in a doggystyle position. Once he''s in place, you start really hammering his ass and occasionally smacking him with one of your hands.'
+										gs 'arousal', 'anal_strap_give', 3, 'dom', 'rough'
+										gs 'stat'
+
+										act 'Slow down':
+											*clr & cla
+											'<center><video autoplay loop src="images/characters/pavlovsk/school/boy/igor/sex/home/strapon1.mp4" ></video></center>'
+											'You decide to slow down and fuck much slower and more sensually. Maybe after he gets a little more used to it he''ll let you really hammer his ass.'
+											gs 'arousal', 'anal_strap_give', 3, 'dom'
+											gs 'stat'
+
+											act 'Finish':
+												*clr & cla
+												'<center><video autoplay loop src="images/characters/pavlovsk/school/boy/igor/sex/home/pegcum.mp4" ></video></center>'
+												'You pull him up into a doggystyle position. Once he is up, you reach around and grab his dick, which is already rock-hard as you start jerking him off as you pump his ass with your strap-on.'
+												'It doesn''t take very long until he moans loudly and shoots his load. Once he''s finished, you stop and pull your strap-on out of his ass.'
+												*nl
+												'"Fuck, that was amazing! I never knew sex could feel that great!" He turns around and kisses you. "Thank you for helping me explore my sexuality."'
+												'You feel great! This was one of the best experiences of your life! You grin at him. "I''m glad you enjoyed it. I look forward to fucking you again."'
+												'He kisses you and reaches down, stroking your strap-on with his hand a few times. "I look forward to it as well."'
+												gs 'arousal', 'anal_strap_give', 3, 'dom'
+												gs 'arousal', 'end'
+												gs 'stat'
+												act 'Finish': gt 'igorhome', 'igorroom'
+											end
+										end
+
+										act 'Show him no mercy':
+											*clr & cla
+											igorQW['bottom'] += 1
+											'<center><video autoplay loop src="images/characters/pavlovsk/school/boy/igor/sex/home/trahaet1.mp4" ></video></center>'
+											'"Shut up and don''t be a pussy! I know you love this!" You keep on pounding him without stopping while holding tightly to his hips so he can''t pull away.'
+											'"<<$pcs_nickname>>, please stop!" he begs as he tries to pull away, but you just hold onto him tighter and pull him back, burying your strap-on balls deep in his ass, causing him to gasp in pain.'
+											'"I said shut up, bitch!" You really start pounding his ass and he starts crying out. "Relax your ass or it''ll continue to hurt!"'
+											gs 'arousal', 'anal_strap_give', 3, 'dom', 'rough'
+											gs 'stat'
+
+											act 'Finish':
+												*clr & cla
+												'<center><video autoplay loop src="images/characters/pavlovsk/school/boy/igor/sex/home/pegcum.mp4" ></video></center>'
+												'After you hammer him for a while, you reach around and grab his dick which, despite all his bitching, is rock-hard. You start jerking him off as you hammer his ass with your strap-on.'
+												'It doesn''t take very long until he moans loudly and shoots his load. Once he''s finished, you stop and pull your strap-on out of his ass.'
+												*nl
+												'"Fuck, that hurt! But it also felt amazing at the same time." He pulls away from you and rubs his ass. "Maybe next time you can be a bit gentler?"'
+												'You feel great! That was one of the best experiences of your life! You grin at him. "That''s up to you, slave. If you please me, then maybe I won''t be so rough next time, but if you displease me, then you''ll wish I was this gentle again..."'
+												'He looks at you with a mix of fear and anticipation. "I hope you''re kidding, but we better get cleaned up."'
+												gs 'arousal', 'anal_strap_give', 3, 'dom', 'rough'
+												gs 'arousal', 'end'
+												gs 'stat'
+												act 'Finish': gt 'igorhome', 'igorroom'
+											end
+										end
+									end
+								else
+									act 'Take it like a bitch (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+								end
+							end
+						end
+					end
+				end
+			end
+		end
+	end
+end
+
+!!this shows up in place of the above if they are dating.
+if $ARGS[0] = 'din_sisterkom_krossdress':
+	*clr & cla
+	'<center><b><font color = maroon>Igor''s sister''s room</font></b></center>'
+	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/igorhome/komsister.jpg"></center>'
+	'You walk into Igor''s sister''s room which, to put it mildly, is a complete mess.'
+	'"I see that cleaning isn''t her favorite activity!" you say and smile at Igor.'
+	'"That''s for sure!" he grins back.'
+
+	act 'Open the closet':
+		*clr & cla
+		'<center><b><font color = maroon>Igor''s sister''s room</font></b></center>'
+		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/igor/crossdress/chto_nadet.jpg"></center>'
+		'You open the closet and start rifling through the huge mountain of clothes searching for something unusual.'
+
+		act 'Search for something interesting':
+			*clr & cla
+			minut += 15
+			gs 'stat'
+			'<center><b><font color = maroon>Igor''s sister''s room</font></b></center>'
+			'You start looking through the clothes and quickly find some beautiful lingerie.'
+			'"Wow, look at this beautiful lingerie," you comment and see Igor appreciatively nodding.'
+			'"If you like it that much, then why don''t you try it on?" you jest and toss the lingerie at him.'
+			'"Very funny..." he replies as he picks the lingerie up from the floor.'
+			'"Come on, let''s find something nice for you to try on! Here, try these panties on... And this bra too!" you laugh as you toss the items at him.'
+			'"What?! You want me to dress like a girl?!" he says indignantly.'
+			'"Come on, don''t be such a bore! Let''s have some fun!" you say playfully and giggle sweetly.'
+			'"<<$pcs_nickname>>, you..." he begins before falling silent. "Fine. If it will make you happy..."'
+			'"Alright!" you cry out in excitement.'
+
+			act 'Put this on...':
+				*clr & cla
+				minut += 5
+				'<center><b><font color = maroon>Igor''s sister''s room</font></b></center>'
+				'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/igor/crossdress/odet.jpg"></center>'
+				'Igor strips down and puts the lingerie set on while you smile at him.'
+
+				act 'Further':
+					*clr & cla
+					'<center><b><font color = maroon>Igor''s sister''s room</font></b></center>'
+					'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/igor/crossdress/trysi.jpg"></center>'
+					'"This is fucking insane!" Igor scowls.'
+					'"Don''t be like that! This is you, this is sooo you!" you reply with a smile.'
+					'"Fuck you, <<$pcs_nickname>>!" he says says before he starts checking himself in the mirror.'
+					'"You''re so sexy!" you say with a laugh.'
+					'"Oh, I get it now!" he responds.'
+
+					act 'Further':
+						*clr & cla
+						minut += 10
+						gs 'stat'
+						'<center><b><font color = maroon>Igor''s sister''s room</font></b></center>'
+						'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/igor/crossdress/draka.jpg"></center>'
+						'Igor grabs a pillow off his sister''s bed and hits you in the face.'
+						'"Hey, you little sissy! Are you nuts?!" you say as he rolls in laughter.'
+						'You also grab a pillow and hit him back. He responds in kind and the pillow fight ends in a draw.'
+
+						act 'Further':
+							*clr & cla
+							'<center><b><font color = maroon>Igor''s sister''s room</font></b></center>'
+							'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/igor/crossdress/onbed.jpg"></center>'
+							'Panting, you both lay down on the bed side by side.'
+							'"You''re such a class act!" you say, catching your breath.'
+							'"And you''re a dirty fighter," he replies, rubbing his crotch.'
+							'After a short pause, you bite your lip. "Come on, let''s find a nice outfit for you to wear! I want to see you fully dolled up."'
+							'"What? A dress?!" he stammers in surprise.'
+							'"Pretty please?" you beg.'
+							'"Fine, but only because I know you won''t leave me alone. Give me your best shot," he says before striking a pose.'
+
+							act 'Put on makeup':
+								*clr & cla
+								minut += 15
+								gs 'stat'
+								'<center><b><font color = maroon>Igor''s sister''s room</font></b></center>'
+								'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/igor/crossdress/makeup.jpg"></center>'
+								'Before you pick out a dress for him, you have Igor sit at his sister''s makeup table and start applying makeup.'
+
+								act 'Pick out a dress':
+									*clr & cla
+									minut += 10
+									gs 'stat'
+									'<center><b><font color = maroon>Igor''s sister''s room</font></b></center>'
+									'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/igor/crossdress/garderob.jpg"></center>'
+									'You start looking for a suitable dress and unexpectedly find an expensive wig with long natural blonde hair. You give it to him to put it on.'
+
+									act 'Look at the result':
+										*clr & cla
+										'<center><b><font color = maroon>Igor''s sister''s room</font></b></center>'
+										'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/igor/crossdress/dress.jpg"></center>'
+										'"Well, how do I look?" he asks once he finishes putting on the dress.'
+										'"Wow, you look... Amazing. This is just fantastic!" you enthusiastically answer.'
+										'"Really? You''re not kidding?" Judging by his reaction, he''s genuinely surprised. "Is it that bad?"'
+										'"Take a look for yourself," you say and nod towards the mirror.'
+										'He walks over to the mirror and starts examining himself.'
+
+										act 'Further':
+											*clr & cla
+											'<center><b><font color = maroon>Igor''s sister''s room</font></b></center>'
+											'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/igor/crossdress/ydivlenie.jpg"></center>'
+											'"Holy fuck! Is this really me? Is this really me?!!" he asks as he twirls in front of the mirror.'
+											'"You''re one really sexy bitch!" you reply and wink at him.'
+											'"Hell yeah, that''s for sure!" He suddenly bats his eyes like a model, a strange look turning up in his eyes.'
+
+											act 'Kiss him':
+												*clr & cla
+												'<center><b><font color = maroon>Igor''s sister''s room</font></b></center>'
+												'<center><video autoplay loop src="images/characters/pavlovsk/school/boy/igor/crossdress/kiss.mp4"></video></center>'
+												'You''re startled by his appearance, not expecting him to look this good. You can''t resist any longer and lean forward to start making out with him.'
+												gs 'arousal', 'kiss', 2
+												gs 'stat'
+												if mc_inventory['strapon'] > 0:
+													act 'You have a strapon': gt 'igorsex', 'strapon_crossdress'
+												end
+
+												act 'Push him onto the bed':
+													*clr & cla
+													gs 'stat'
+													'<center><b><font color = maroon>Igor''s sister''s room</font></b></center>'
+													'<center><video autoplay loop src="images/characters/pavlovsk/school/boy/igor/sex/crossdress/dzhulia.mp4"></video></center>'
+													'You push him onto the bed and plant yourself on his face before you reach down and pull his dick out of the panties and start sucking it. He has a smaller than average dick, but his skill with his tongue is great.'
+													'You continue sucking his small dick before it starts twitching. You quickly deepthroat and swallow the cum that shoots into your mouth, but some of it drips from your mouth onto Igor.'
+													*nl
+													'Once he finishes, you release his now limp cock from your mouth, your <<$pc_desc[''lips'']>> lips wet with semen. While you put all you might into handling Igor''s cum, Igor continues licking your now dripping pussy.'
+													'You lick up the remaining sperm from Igor''s cock and swallow it before you turn and see Igor still going strong.'
+													'You''re impressed by his stamina when your legs start trembling and you feel a warmth in your pussy as you start screaming. You tell Igor not to stop, embracing your orgasm.'
+													gs 'arousal', 'bj', -5
+													$orgasm_or = 'yes'
+													gs 'arousal', 'cuni', 5
+													gs 'arousal', 'end'
+													gs 'cum_call', 'mouth_swallow', 'A4', 1
+													gs 'stat'
+
+													act 'Finish':
+														*clr & cla
+														IgorQW['crossdressSex']  += 1
+														IgorQW['eqwtday'] = daystart
+														gs 'stat'
+														'<center><b><font color = maroon>Igor''s sister''s room</font></b></center>'
+														'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/igor/crossdress/face.jpg"></center>'
+														'"That was great! This is something we need to do again," you say as you pant in exhaustion.'
+														'"That''s for sure!" he pants back, his face wet from eating your pussy.'
+														'"I have to go now, but you have to dress up next time we have sex. Just look at you! I immediately get turned on when I see you like that," you say.'
+														'"I think we can pull it off again. Now get your cute ass out of here before someone catches us."'
+														'"Okay. See you later, honey."'
+														'"Later," he waves absently as you leave the room.'
+														act 'Go home': gt 'pav_residential'
+													end
+												end
+											end
+										end
+									end
+								end
+							end
+						end
+					end
+				end
+			end
+		end
+	end
+end
+
+if $ARGS[0] = 'strapon_crossdress':
+!!this is just the first time they have strapon sex.
+	if IgorQW['strap'] = 0:
+		*clr & cla
+		'<center><img  src="images/characters/pavlovsk/school/boy/igor/sex/crossdress/strapon_cd1.jpg"></center>'
+		if strapnumber >= 5:
+			'You pull out the strap-on and start putting it on. "I''m going to fuck you like a bitch with my big hard cock."'
+			'His eyes widen. You can tell he''s turned on by you taking charge like this, but he doesn''t seem to agree with using the massive dildo.'
+			'"Oh my God, are you crazy?! That thing is huge! It would hurt too much!"'
+			'You sigh and look down at the monster dildo. You know he won''t budge on trying it. "Okay, I''ll get something smaller next time."'
+			'He nods. "Sounds good. I can''t wait."'
+			'The two of you talk for a few minutes before you decide it''s time to leave.'
+			act 'Go home': gt 'pav_residential'
+		else
+			if spellKnown['penisenvy'] = 1:
+				'You pull out the strap-on and start putting it on. "I''m going to fuck you like a bitch with my big hard cock."'
+				'You can tell he''s turned on by you taking charge as you notice him staring at the dildo.'
+				'His eyes widen. "Oh my God! Why are you putting that thing on?!"'
+				'"You wanted to know what it''s like to be a girl, right?" you grin.'
+				'"No! I mean yeah, but... I don''t know..." he says.'
+				*nl
+				'"You said you wanted to know what it''s like being a girl. Well being fucked is a big part of being a girl, so I''m going to fuck you with my big cock. It will be fun," you tell him.'
+				'He bites his lower lip for a few seconds before he nods his head and looks you in the eyes. "Okay, you''re right. Let''s do it."'
+				'You grin at him as you stand up, stroking the strap-on like it was a real dick. "Well get on your knees then, bitch!"'
+				'He blushes as he gets down on his knees in front of you.'
+				'"Come and suck my dick, baby," you tell him with a grin. Now would be an ideal time to cast Penis Envy.'
+				if penisEnvyVariable = 0:
+					act 'Cast Penis Envy spell':
+						*clr & cla
+						gs 'castSpell', 'penisenvy'
+						if spellSuccess > 0:
+							act 'Get a blowjob': gt 'igorsex', 'strapon_crossdress_bj_magic'
+						else
+							act 'Get a blowjob': gt 'igorsex', 'strapon_crossdress_bj'
+						end
+					end
+				else
+					act 'Get a blowjob': gt 'igorsex', 'strapon_crossdress_bj_magic'
+				end
+			else
+				'You pull out the strap-on and start putting it on. "I''m going to fuck you like a bitch with my big hard cock."'
+				'You can tell he''s turned on by you taking charge as you notice him staring at the dildo.'
+				'His eyes widen. "Oh my God! Why are you putting that thing on?!"'
+				'"You wanted to know what it''s like to be a girl, right?" you grin.'
+				'"No! I mean yeah, but... I don''t know..." he says.'
+				*nl
+				'"You said you wanted to know what it''s like being a girl. Well being fucked is a big part of being a girl, so I''m going to fuck you with my big cock. It will be fun," you tell him.'
+				'He bites his lower lip for a few seconds before he nods his head and looks you in the eyes. "Okay, you''re right. Let''s do it."'
+				'You grin at him as you stand up, stroking the strap-on like it was a real dick. "Well get on your knees then, bitch!"'
+				'He blushes as he gets down on his knees in front of you.'
+				'"Come and suck my dick, baby," you tell him with a grin.'
+				act 'Get a blowjob': gt 'igorsex', 'strapon_crossdress_bj'
+			end
+		end
+	else
+		*clr & cla
+		'<center><img  src="images/characters/pavlovsk/school/boy/igor/sex/crossdress/strapon_cd1.jpg"></center>'
+		if strapnumber >= 5:
+			'You pull out the strap-on and start putting it on. "I''m going to fuck you like a bitch with my big hard cock."'
+			'His eyes widen. You can tell he''s turned on by you taking charge like this, but he doesn''t seem to agree with using the massive dildo.'
+			'"Oh my God, are you crazy?! That thing is huge! It would hurt too much!"'
+			'"What? You already let me fuck you with one before," you grin.'
+			'"The smaller one was okay, but not that thing!" he says while shaking his head.'
+			'You sigh and look down at the monster dildo. You know he won''t budge on trying it. "Okay, I''ll get something smaller next time."'
+			'He nods. "Sounds good. I can''t wait."'
+			'The two of you talk for a few minutes before you decide it''s time to leave.'
+			act 'Go home': gt 'pav_residential'
+		else
+			'You pull out the strap-on and start putting it on. "Is your ass ready for my big hard cock, bitch?"'
+			'You can tell he''s turned on by you taking charge as you also notice him statring at the dildo.'
+			'His eyes widen as he nods.'
+			'"Then beg me for it, bitch." you grin.'
+			'"Please, please fuck me with your big hard cock!" he eagerly pleads.'
+			'You grin at him as you start stroking the strap-on like it was a real dick. "Well get on your knees then, bitch!"'
+			'He eagerly gets down on his knees in front of you.'
+			if spellKnown['penisenvy'] = 1:
+				'"Come and suck my dick, baby," you tell him with a grin. Now would be an ideal time to cast Penis Envy.'
+				if penisEnvyVariable = 0:
+					act 'Cast Penis Envy spell':
+						*clr & cla
+						gs 'castSpell', 'penisenvy'
+						if spellSuccess > 0:
+							act 'Get a blowjob': gt 'igorsex', 'strapon_crossdress_bj_magic_second'
+						else
+							act 'Get a blowjob': gt 'igorsex', 'strapon_crossdress_bj_second'
+						end
+					end
+				else
+					act 'Get a blowjob': gt 'igorsex', 'strapon_crossdress_bj_magic_second'
+				end
+			else
+				act 'Get a blowjob': gt 'igorsex', 'strapon_crossdress_bj_second'
+			end
+		end
+	end
+end
+
+if $ARGS[0] = 'strapon_crossdress_bj':
+	*clr & cla
+	IgorQW['net'] += 1
+	IgorQW['napoit'] += 1
+	IgorQW['strap'] += 1
+	gs 'stat'
+	'<center><img  src="images/characters/pavlovsk/school/boy/igor/sex/crossdress/strapon_cd2.jpg"></center>'
+	'You push your hips forward until the tip of the strap-on is against his lips. "Open your mouth and suck my dick."'
+	'He opens his mouth and starts sucking on the dildo, doing a surprisingly good job by the looks of it. Maybe he''s watched some porn or is just a naturally good cocksucker.'
+	gs 'arousal', 'foreplay_give', 2, 'dom'
+	gs 'stat'
+
+	act 'Gag him':
+		*clr & cla
+		'<center><img  src="images/characters/pavlovsk/school/boy/igor/sex/crossdress/strapon_cd3.jpg"></center>'
+		'He''s only taking about half the dildo into his mouth, so you reach over and place your hand on the back of his head, forcing the dildo down his throat until he starts gagging on it.'
+		'"That''s it, bitch! I want to feel my balls bouncing off your chin!" you tell him, doing your best to sound like a guy.'
+		gs 'arousal', 'foreplay_give', 2, 'dom'
+		gs 'stat'
+
+		act 'Fuck him on his back':
+			*clr & cla
+			igorQW['bottom'] += 1
+			gs 'boyStat', 'D<<strapnumber>>'
+			'<center><img  src="images/characters/pavlovsk/school/boy/igor/sex/crossdress/strapon_cd4.jpg"></center>'
+			'You pull away from him so your dildo slides out of his mouth before you point over to his chaise lounge. "Lay down on your back."'
+			'He lays on his back on the chaise lounge as you see him biting his lip. You push up his dress and expose his panties, his little hard dick straining against the fabric. You pull his panties down and toss them aside before you grab some lube and lube up your dildo before getting on your knees between his legs.'
+			*nl
+			'You rub the tip of your lubed dildo against his asshole until you''re sure it''s lubed as well before you thrust your hips forward to pop the tip of it into his ass.'
+			'He lets out a slight hiss followed by a long low moan as you grab his hips and pull him back as more of the <<dick>>cm <<$dick_girth>> dildo slides up his ass, which only makes him moan louder.'
+			'You start slowly fucking him and see the tip of his hard dick is getting wet with precum.'
+			gs 'arousal', 'anal_strap_give', 3, 'dom'
+			gs 'stat'
+
+			act 'Start really fucking him':
+				*clr & cla
+				'<center><img  src="images/characters/pavlovsk/school/boy/igor/sex/crossdress/strapon_cd5.jpg"></center>'
+				'You slide your knees back, spreading your legs fairly wide so you can more easily thrust your hips. You grab his legs with your hands and spread them apart, allowing you to thrust into him much easier and really start fucking him. You alternate from watching your cock slide in and out of his ass and looking at him as he moans louder and louder.'
+				gs 'arousal', 'anal_strap_give', 3, 'dom'
+				gs 'stat'
+
+				act 'Go balls deep':
+					*clr & cla
+					'<center><img  src="images/characters/pavlovsk/school/boy/igor/sex/crossdress/strapon_cd6.jpg"></center>'
+					'Since he seems to be really enjoying it, you start really thrusting into him, driving yourself balls deep into his ass. He places his hands on your thighs, likely in a effort to slow you down, but you ignore it as you keep fucking him balls deep.'
+					'He starts crying out each time you thrust all the way into him until he groans loudly. You glance down and see him cumming on his stomach. You ride him through his orgasm before you pull out of him.'
+					gs 'arousal', 'anal_strap_give', 3, 'dom'
+					gs 'stat'
+
+					act 'Finish':
+						*clr & cla
+						'<center><img  src="images/characters/pavlovsk/school/boy/igor/crossdress/getdressed3.jpg"></center>'
+						'You take the strap-on harness off and start getting dressed as he starts cleaning himself up, putting the harness away in your purse as he finishes getting his clothes back in place. You pull him over to the mirror so you can see your reflections. "So what did you think?"'
+						'He blushes, looking down for several seconds before looking back up at you in the reflection. "It was amazing! I didn''t know anything could feel that good. I''m glad you talked me into it."'
+						*nl
+						'You grin at him through the reflection and hug him with one arm. "I''m glad. I liked doing it too and I''m more than happy if you want to be friends with benefits and keep doing it."'
+						'He looks thoughtful before he nods. "Yeah, I''d like that, but I should really change."'
+						'You nod in agreement. "Yeah, I should likely get going myself. See you later."'
+						'You gather up your stuff and leave as he changes back into his clothes.'
+						gs 'arousal', 'end'
+						gs 'stat'
+						act 'Go home': gt 'pav_residential'
+					end
+				end
+			end
+		end
+
+		act 'Fuck him doggy style':
+			*clr & cla
+			'<center><img  src="images/characters/pavlovsk/school/boy/igor/sex/crossdress/strapon_cd7.jpg"></center>'
+			'You pull away from him so your dildo slides out of his mouth before you point over to his chaise lounge. "Get on your hands and knees."'
+			'He goes over and kneels on the chaise lounge, bending forward as he rests his elbows on the back of the lounge. You push up his dress and expose his panties, his little hard dick straining against the fabric. You pull his panties down and toss them aside before you grab some lube and lube up your dick before getting on the lounge behind him. You scoot up close behind him as you stroke the slick dildo with your hand.'
+			*nl
+			'You rub the tip against his asshole until you''re sure it''s lubed as well before you thrust your hips forward to pop the tip of it into his ass.'
+			'He lets out a slight hiss followed by a long low moan as you grab his hips so he can''t pull away. You then push more of the <<dick>>cm <<$dick_girth>> dildo up his ass and start slowly fucking him as he starts moaning louder.'
+			gs 'arousal', 'anal_strap_give', 3, 'dom'
+			gs 'stat'
+
+			act 'Fuck him harder':
+				*clr & cla
+				'<center><img  src="images/characters/pavlovsk/school/boy/igor/sex/crossdress/strapon_cd8.jpg"></center>'
+				'You grab his ass cheeks with your hands and spread them apart so you can watch your fake cock slide in and out of his ass. He starts moaning louder as you keep fucking him, which only encourages you to fuck him harder and faster.'
+				'His moans start turning into grunts and he places a hand on your hip to slow you down. "Not so rough!"'
+				gs 'arousal', 'anal_strap_give', 3, 'dom'
+				gs 'stat'
+
+				act 'Ease up':
+					*clr & cla
+					'<center><img  src="images/characters/pavlovsk/school/boy/igor/sex/crossdress/strapon_cd9.jpg"></center>'
+					'You push his hand away, but do slow down and his grunts turn back into moans of pleasure. "OH... yes... I love it... AH..."'
+					'You seem to have hit the sweet spot, so you get into a rhythm and it doesn''t take long before he tenses up and groans loudly. You ride him through his orgasm before you pull out of him.'
+					gs 'arousal', 'anal_strap_give', 3, 'dom'
+					gs 'stat'
+
+					act 'Finish':
+						*clr & cla
+						'<center><img  src="images/characters/pavlovsk/school/boy/igor/crossdress/getdressed3.jpg"></center>'
+						'You take the strap-on harness off and start getting dressed as he starts cleaning himself up, putting the harness away in your purse as he finishes getting his clothes back in place. You pull him over to the mirror so you can see your reflections. "So what did you think?"'
+						'He blushes, looking down for several seconds before looking back up at you in the reflection. "It was amazing! I didn''t know anything could feel that good. I''m glad you talked me into it."'
+						*nl
+						'You grin at him through the reflection and hug him with one arm. "I''m glad. I liked doing it too and I''m more than happy if you want to be friends with benefits and keep doing it."'
+						'He looks thoughtful before he nods. "Yeah, I''d like that, but I should really change."'
+						'You nod in agreement. "Yeah, I should likely get going myself. See you later."'
+						'You gather up your stuff and leave as he changes back into his clothes.'
+						gs 'arousal', 'end'
+						gs 'stat'
+						act 'Go home': gt 'pav_residential'
+					end
+				end
+				gs 'willpower', 'anal', 'force', 'medium'
+				if will_cost <= pcs_willpwr:
+					act 'Take it like a bitch (<<will_cost>> Willpower)':
+						*clr & cla
+						gs 'willpower', 'pay', 'force'
+						igorQW['bottom'] += 1
+						gs 'stat'
+						'<center><img  src="images/characters/pavlovsk/school/boy/igor/sex/crossdress/strapon_cd10.jpg"></center>'
+						'You push his hand away while gripping one of his hips with one hand as the other reaches up and grabs hold of his shoulder so he can''t pull away at all.'
+						'You pull your hips back before you thrust forward as hard as you can while pulling him back, burying your fake dick balls deep up his ass. He cries out in a mix of pain and pleasure as you start roughly fucking him as hard and fast as you can. "Shut up and take it, bitch!"'
+						'He lowers his head and lets you roughly fuck him as he grunts and moans, occasionally hissing from an especially hard thrust. He reaches between his legs and starts jerking off before he groans loudly in orgasm. You give him one more hard thrust before pulling out of him.'
+						gs 'arousal', 'anal_strap_give', 5, 'dom'
+						gs 'stat'
+
+						act 'Finish':
+							*clr & cla
+							'<center><img  src="images/characters/pavlovsk/school/boy/igor/crossdress/getdressed3.jpg"></center>'
+							'You take the strap-on harness off and start getting dressed as he starts cleaning himself up, putting the harness away in your purse as he finishes getting his clothes back in place. You pull him over to the mirror so you can see your reflections. "So what did you think?"'
+							'He blushes, looking down for several seconds before looking back up at you in the reflection. "I liked it, but you got a little too rough there at the end. It started to really hurt."'
+							'You smile at him through the reflection and hug him with one arm. "Don''t worry, you''ll get used to it. Soon, you''ll love being roughly fucked."'
+							*nl
+							'He looks thoughtful. "I don''t know about that. I think it would be better if it was less rough."'
+							'You chuckle. "Trust me, all girls learn to love it."'
+							'He looks skeptical, but then shrugs. "Yeah, I guess we can try again some day, but I should really change."'
+							'You nod in agreement. "Yeah, I should likely get going myself. See you later."'
+							'You gather up your stuff and leave as he changes back into his clothes.'
+							gs 'arousal', 'end'
+							gs 'stat'
+							act 'Go home': gt 'pav_residential'
+						end
+					end
+				else
+					act 'Take it like a bitch (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+				end
+			end
+		end
+	end
+end
+
+if $ARGS[0] = 'strapon_crossdress_bj_magic':
+	*clr & cla
+	IgorQW['net'] += 1
+	IgorQW['napoit'] += 1
+	IgorQW['strap'] += 1
+	$orgasm_or = 'no'
+	gs 'stat'
+	'<center><img  src="images/characters/pavlovsk/school/boy/igor/sex/crossdress/strapon_cd2.jpg"></center>'
+	'You push your hips forward until the tip of your dick is against his lips. "Open your mouth and suck my dick."'
+	'He opens his mouth and starts sucking on your cock, which feels amazing. Maybe he''s watched a lot of porn or is just a naturally good cocksucker.'
+	gs 'arousal', 'magicd_bj', 2, 'dom'
+	gs 'stat'
+
+	act 'Gag him':
+		*clr & cla
+		'<center><img  src="images/characters/pavlovsk/school/boy/igor/sex/crossdress/strapon_cd3.jpg"></center>'
+		'He''s only taking about half the dildo into his mouth, so you reach over and place a hand on the back of his head, forcing your cock down his throat until he starts gagging on it.'
+		'"That''s it, bitch! I want to feel my balls bouncing off your chin!" you tell him, doing your best to sound like a guy.'
+		gs 'arousal', 'magicd_bj', 2, 'dom'
+		gs 'stat'
+
+		act 'Fuck him on his back':
+			*clr & cla
+			igorQW['bottom'] += 1
+			gs 'boyStat', 'D<<strapnumber>>'
+			'<center><img  src="images/characters/pavlovsk/school/boy/igor/sex/crossdress/strapon_cd4.jpg"></center>'
+			'You pull away from him so your dick slides out of his mouth before you point over to his chaise lounge. "Lay down on your back."'
+			'He lays on his back on the chaise lounge as you see him biting his lip. You push up his dress and expose his panties, his little hard dick straining against the fabric. You pull his panties down and toss them aside before you grab some lube and lube up your dick before getting on your knees between his legs.'
+			*nl
+			'You rub the tip of your lubed dick against his asshole until you''re sure it''s lubed as well before you thrust your hips forward to pop the tip of it into his ass.'
+			'He lets out a slight hiss followed by a long low moan as you grab his hips and pull him back as more of your <<dick>>cm <<$dick_girth>> dick slides up his ass, which only makes him moan louder.'
+			'You start slowly fucking him and see the tip of his hard dick is getting wet with precum.'
+			gs 'arousal', 'magicd_anal', 3, 'dom'
+			gs 'stat'
+
+			act 'Start really fucking him':
+				*clr & cla
+				'<center><img  src="images/characters/pavlovsk/school/boy/igor/sex/crossdress/strapon_cd5.jpg"></center>'
+				'You slide your knees back, spreading your legs fairly wide so you can more easily thrust your hips. You grab his legs with your hands and spread them apart, allowing you to thrust into him much easier and really start fucking him. You alternate from watching your cock slide in and out of his ass and looking at him as he moans louder and louder.'
+				gs 'arousal', 'magicd_anal', 3, 'dom'
+				gs 'stat'
+
+				act 'Go balls deep':
+					*clr & cla
+					'<center><img  src="images/characters/pavlovsk/school/boy/igor/sex/crossdress/strapon_cd6.jpg"></center>'
+					'Since he seems to be really enjoying it, you start really thrusting into him, driving yourself balls deep into his ass. He places his hands on your thighs, likely in a effort to slow you down, but you ignore it as you keep fucking him balls deep.'
+					'He starts crying out each time you thrust all the way into him until he groans loudly. You glance down and see him cumming on his stomach. You ride him through his orgasm before you pull out of him.'
+					gs 'arousal', 'magicd_anal', 3, 'dom'
+					gs 'stat'
+
+					act 'Cum in his mouth':
+						*clr & cla
+						'<center><img <<$set_imgh>> src="images/pc/magic/penis_envy/mouthfull_girl1.jpg"></center>'
+						'You grab him and pull him up onto his knees as you stroke your cock. "Open your mouth like a good little slut and take my load," you tell him.'
+						'He looks a little confused, but does as you command and opens his mouth.'
+						$orgasm_txt = 'You keep stroking your cock until you feel the sudden release and start shooting your cum into his open mouth. He takes hold of your dick and strokes it himself, milking every last drop of cum from you. With the last drop of cum squeezed out, he swallows it down and starts sucking your dick, cleaning the cum from it.'
+						$orgasm_or = 'yes'
+						'Once you''ve both finished, he gives you a puzzled look. "What was that?"'
+						'You smile, knowing the magic is already clouding his mind to what just happened. "Fake cum. You know some of these dildos have that."'
+						'He nods and seems to believe it. "Oh... Yeah, I''ve heard of those. It tasted salty."'
+						gs 'arousal', 'magicd_hj', 2, 'dom'
+						gs 'stat'
+
+						act 'Finish':
+							*clr & cla
+							'<center><img  src="images/characters/pavlovsk/school/boy/igor/crossdress/getdressed3.jpg"></center>'
+							'You start taking off the strap-on harness, which breaks the magic, turning it back into a normal strapon as he starts cleaning himself up. You get dressed and put the harness away in your purse as he finishes getting his clothes back in place. You grab him and pull him over to the mirror so you can both look into it and see your reflections. "So what did you think?"'
+							'He blushes, looking down for several seconds before looking back up at you in the reflection. "It was amazing! I didn''t know anything could feel that good. I''m glad you talked me into it."'
+							*nl
+							'You grin at him through the reflection and hug him with one arm. "I''m glad. I liked doing it too and I''m more than happy if you want to be friends with benefits and keep doing it."'
+							'He looks thoughtful before he nods. "Yeah, I''d like that, but I should really change."'
+							'You nod in agreement. "Yeah, I should likely get going myself. See you later."'
+							'You gather up your stuff and leave as he changes back into his clothes.'
+							gs 'arousal', 'end'
+							gs 'stat'
+							act 'Go home': gt'pav_residential'
+						end
+					end
+
+					act 'Cum on his face':
+						*clr & cla
+						'<center><img <<$set_imgh>> src="images/pc/magic/penis_envy/facial_girl1.jpg"></center>'
+						'You grab him and pull him up onto his knees as you stroke your cock. "Take my load on that pretty face of yours like a good little slut," you tell him.'
+						'He looks a little confused, but does as you command and open his mouth.'
+						$orgasm_txt = 'You keep stroking your cock until you feel the sudden release and start shooting your cum across his face. He takes hold of your dick and strokes it himself, milking every last drop of cum from you. With the last drop of cum squeezed out, he swallows it down and starts sucking your dick, cleaning the cum from it.'
+						$orgasm_or = 'yes'
+						'Once you''ve both finished, he gives you a puzzled look. "What was that?"'
+						'You smile, knowing the magic is already clouding his mind to what just happened. "Fake cum. You know some of these dildos have that."'
+						'He nods and seems to believe it. "Oh... Yeah, I''ve heard of those," he says as he grabs some tissues to clean his face."'
+						gs 'arousal', 'magicd_hj', 2, 'dom', 'inhibition'
+
+						gs 'stat'
+
+						act 'Finish':
+							*clr & cla
+							'<center><img  src="images/characters/pavlovsk/school/boy/igor/crossdress/getdressed3.jpg"></center>'
+							'You start taking off the strap-on harness, which breaks the magic, turning it back into a normal strapon as he starts cleaning himself up. You get dressed and put the harness away in your purse as he finishes getting his clothes back in place. You grab him and pull him over to the mirror so you can both look into it and see your reflections. "So what did you think?"'
+							'He blushes, looking down for several seconds before looking back up at you in the reflection. "It was amazing! I didn''t know anything could feel that good. I''m glad you talked me into it."'
+							*nl
+							'You grin at him through the reflection and hug him with one arm. "I''m glad. I liked doing it too and I''m more than happy if you want to be friends with benefits and keep doing it."'
+							'He looks thoughtful before he nods. "Yeah, I''d like that, but I should really change."'
+							'You nod in agreement. "Yeah, I should likely get going myself. See you later."'
+							'You gather up your stuff and leave as he changes back into his clothes.'
+							gs 'arousal', 'end'
+							gs 'stat'
+							act 'Go home': gt 'pav_residential'
+						end
+					end
+				end
+			end
+		end
+
+		act 'Fuck him doggy style':
+			*clr & cla
+			'<center><img  src="images/characters/pavlovsk/school/boy/igor/sex/crossdress/strapon_cd7.jpg"></center>'
+			'You pull away from him so your dick slides out of his mouth before you point over to his chaise lounge. "Get on your hands and knees."'
+			'He goes over and kneels on the chaise lounge, bending forward as he rests his elbows on the back of the lounge. You push up his dress and expose his panties, his little hard dick straining against the fabric. You pull his panties down and toss them aside before you grab some lube and lube up your dick before getting on the lounge behind him. You scoot up close behind him as you stroke your slick dick with your hand.'
+			*nl
+			'You rub the tip against his asshole until you''re sure it''s lubed as well before you thrust your hips forward to pop the tip of it into his ass.'
+			'He lets out a slight hiss followed by a long low moan as you grab his hips so he can''t pull away. You then push more of your <<dick>>cm <<$dick_girth>> dick up his ass and start slowly fucking him as he starts moaning louder.'
+			gs 'arousal', 'magicd_anal', 3, 'dom'
+			gs 'stat'
+
+			act 'Fuck him harder':
+				*clr & cla
+				'<center><img  src="images/characters/pavlovsk/school/boy/igor/sex/crossdress/strapon_cd8.jpg"></center>'
+				'You grab his ass cheeks with your hands and spread them apart so you can watch your cock slide in and out of his ass. He starts moaning louder as you keep fucking him, which only encourages you to fuck him harder and faster.'
+				'His moans start turning into grunts and he places a hand on your hip to slow you down. "Not so rough!"'
+				gs 'arousal', 'magicd_anal', 3, 'dom'
+				gs 'stat'
+
+				act 'Ease up':
+					*clr & cla
+					'<center><img  src="images/characters/pavlovsk/school/boy/igor/sex/crossdress/strapon_cd9.jpg"></center>'
+					'You push his hand away, but do slow down and his grunts turn back into moans of pleasure. "OH... yes... I love it... AH..."'
+					'You seem to have hit the sweet spot, so you get into a rhythm and it doesn''t take long before he tenses up and groans loudly. You ride him through his orgasm before you pull out of him.'
+					gs 'arousal', 'magicd_anal', 3, 'dom'
+					gs 'stat'
+
+					act 'Cum in his ass':
+						*clr & cla
+						'<center><img <<$set_imgh>> src="images/pc/magic/penis_envy/guy_internal_butt_cum1.jpg"></center>'
+						$orgasm_txt = 'You bury your cock balls deep into his ass and feel it twitching as you empty your load into his ass, causing you to moan loudly. Once you''re finished, you pull your cock out of his ass and stand up. He sighs loudly as you step back and see your cum leaking out of his gaping hole.'
+						$orgasm_or = 'yes'
+						'He reaches back and pulls his hand back with some of your cum on his fingers. He looks at you with a puzzled stare. "What was that?"'
+						'You smile, knowing the magic is already clouding his mind as to what just happened. "Fake cum. You know some of these have that."'
+						'He nods and seems to believe it. "Oh... Yeah, I''ve heard of those," he says before he grabs some tissues and cleans himself up.'
+						gs 'arousal', 'magicd_anal', 2, 'dom'
+						gs 'stat'
+
+						act 'Finish':
+							*clr & cla
+							'<center><img  src="images/characters/pavlovsk/school/boy/igor/crossdress/getdressed3.jpg"></center>'
+							'You start taking off the strap-on harness, which breaks the magic, turning it back into a normal strapon as he starts cleaning himself up. You get dressed and put the harness away in your purse as he finishes getting his clothes back in place. You grab him and pull him over to the mirror so you can both look into it and see your reflections. "So what did you think?"'
+							'He blushes, looking down for several seconds before looking back up at you in the reflection. "It was amazing! I didn''t know anything could feel that good. I''m glad you talked me into it."'
+							*nl
+							'You grin at him through the reflection and hug him with one arm. "I''m glad. I liked doing it too and I''m more than happy if you want to be friends with benefits and keep doing it."'
+							'He looks thoughtful before he nods. "Yeah, I''d like that, but I should really change."'
+							'You nod in agreement. "Yeah, I should likely get going myself. See you later."'
+							'You gather up your stuff and leave as he changes back into his clothes.'
+							gs 'arousal', 'end'
+							gs 'stat'
+							act 'Go home': gt 'pav_residential'
+						end
+					end
+
+					act 'Cum on his ass':
+						*clr & cla
+						'<center><img <<$set_imgh>> src="images/pc/magic/penis_envy/guy_butt_cum2.jpg"></center>'
+						$orgasm_txt = 'You pull your cock out of his ass and he sighs loudly as you start stroking your cock. You soon feel it twitching in your hand as you start spurting your cum onto his ass. Once you finish, you step back and see your cum running down his crack over his balls.'
+						$orgasm_or = 'yes'
+						'He reaches back and pulls his hand back with some of your cum on his fingers. He looks at you with a puzzled stare. "What was that?"'
+						'You smile, knowing the magic is already clouding his mind as to what just happened. "Fake cum. You know some of these have that."'
+						'He nods and seems to believe it. "Oh... Yeah, I''ve heard of those," he says as he grabs some tissues and cleans himself up.'
+						gs 'arousal', 'magicd_anal', 2, 'dom'
+
+						gs 'stat'
+
+						act 'Finish':
+							*clr & cla
+							'<center><img  src="images/characters/pavlovsk/school/boy/igor/crossdress/getdressed3.jpg"></center>'
+							'You start taking off the strap-on harness, which breaks the magic, turning it back into a normal strapon as he starts cleaning himself up. You get dressed and put the harness away in your purse as he finishes getting his clothes back in place. You grab him and pull him over to the mirror so you can both look into it and see your reflections. "So what did you think?"'
+							'He blushes, looking down for several seconds before looking back up at you in the reflection. "It was amazing! I didn''t know anything could feel that good. I''m glad you talked me into it."'
+							*nl
+							'You grin at him through the reflection and hug him with one arm. "I''m glad. I liked doing it too and I''m more than happy if you want to be friends with benefits and keep doing it."'
+							'He looks thoughtful before he nods. "Yeah, I''d like that, but I should really change."'
+							'You nod in agreement. "Yeah, I should likely get going myself. See you later."'
+							'You gather up your stuff and leave as he changes back into his clothes.'
+							gs 'arousal', 'end'
+							gs 'stat'
+							act 'Go home': gt 'pav_residential'
+						end
+					end
+				end
+				gs 'willpower', 'anal', 'force', 'medium'
+				if will_cost <= pcs_willpwr:
+					act 'Take it like a bitch (<<will_cost>> Willpower)':
+						*clr & cla
+						gs 'willpower', 'pay', 'force'
+						igorQW['bottom'] += 1
+						gs 'stat'
+						'<center><img  src="images/characters/pavlovsk/school/boy/igor/sex/crossdress/strapon_cd10.jpg"></center>'
+						'You push his hand away while gripping one of his hips with one hand as the other reaches up and grabs hold of his shoulder so he can''t pull away at all.'
+						'You pull your hips back before you thrust forward as hard as you can while pulling him back, burying your fake dick balls deep up his ass. He cries out in a mix of pain and pleasure as you start roughly fucking him as hard and fast as you can. "Shut up and take it, bitch!"'
+						'He lowers his head and lets you roughly fuck him as he grunts and moans, occasionally hissing from an especially hard thrust. He reaches between his legs and starts jerking off before he groans loudly in orgasm.'
+						gs 'arousal', 'magicd_anal', 5, 'dom'
+						gs 'stat'
+
+						act 'Cum in his ass':
+							*clr & cla
+							'<center><img <<$set_imgh>> src="images/pc/magic/penis_envy/guy_internal_butt_cum1.jpg"></center>'
+							$orgasm_txt = 'You bury your cock balls deep into his ass and feel it twitching as you empty your load into his ass, causing you to moan loudly. Once you''re finished, you pull your cock out of his ass and stand up. He sighs loudly as you step back and see your cum leaking out of his gaping hole.'
+							$orgasm_or = 'yes'
+							'He reaches back and pulls his hand back with some of your cum on his fingers. He looks at you with a puzzled stare. "What was that?"'
+							'You smile, knowing the magic is already clouding his mind as to what just happened. "Fake cum. You know some of these have that."'
+							'He nods and seems to believe it. "Oh... Yeah, I''ve heard of those," he says before he grabs some tissues and cleans himself up.'
+							gs 'arousal', 'magicd_anal', 2, 'dom'
+
+							gs 'stat'
+
+							act 'Finish':
+								*clr & cla
+								'<center><img  src="images/characters/pavlovsk/school/boy/igor/crossdress/getdressed3.jpg"></center>'
+								'You start taking off the strap-on harness, which breaks the magic, turning it back into a normal strapon as he starts cleaning himself up. You get dressed and put the harness away in your purse as he finishes getting his clothes back in place. You grab him and pull him over to the mirror so you can both look into it and see your reflections. "So what did you think?"'
+								'He blushes, looking down for several seconds before looking back up at you in the reflection. "I liked it, but you got a little too rough there at the end. It started to really hurt."'
+								'You smile at him through the reflection and hug him with one arm. "Don''t worry, you''ll get used to it. Soon, you''ll love being roughly fucked."'
+								*nl
+								'He looks thoughtful. "I don''t know about that. I think it would be better if it was less rough."'
+								'You chuckle. "Trust me, all girls learn to love it."'
+								'He looks skeptical, but then shrugs. "Yeah, I guess we can try again some day, but I should really change."'
+								'You nod in agreement. "Yeah, I should likely get going myself. See you later."'
+								'You gather up your stuff and leave as he changes back into his clothes.'
+								gs 'arousal', 'end'
+								gs 'stat'
+								act 'Go home': gt 'pav_residential'
+							end
+						end
+
+						act 'Cum on his ass':
+							*clr & cla
+							'<center><img <<$set_imgh>> src="images/pc/magic/penis_envy/guy_butt_cum2.jpg"></center>'
+							$orgasm_txt = 'You pull your cock out of his ass and he sighs loudly as you start stroking your cock. You soon feel it twitching in your hand as you start spurting your cum onto his ass. Once you finish, you step back and see your cum running down his crack over his balls.'
+							$orgasm_or = 'yes'
+							'He reaches back and pulls his hand back with some of your cum on his fingers. He looks at you with a puzzled stare. "What was that?"'
+							'You smile, knowing the magic is already clouding his mind as to what just happened. "Fake cum. You know some of these have that."'
+							'He nods and seems to believe it. "Oh... Yeah, I''ve heard of those," he says as he grabs some tissues and cleans himself up.'
+							gs 'arousal', 'magicd_anal', 2, 'dom'
+
+							gs 'stat'
+
+							act 'Finish':
+								*clr & cla
+								'<center><img  src="images/characters/pavlovsk/school/boy/igor/crossdress/getdressed3.jpg"></center>'
+								'You start taking off the strap-on harness, which breaks the magic, turning it back into a normal strapon as he starts cleaning himself up. You get dressed and put the harness away in your purse as he finishes getting his clothes back in place. You grab him and pull him over to the mirror so you can both look into it and see your reflections. "So what did you think?"'
+								'He blushes, looking down for several seconds before looking back up at you in the reflection. "I liked it, but you got a little too rough there at the end. It started to really hurt."'
+								'You smile at him through the reflection and hug him with one arm. "Don''t worry, you''ll get used to it. Soon, you''ll love being roughly fucked."'
+								*nl
+								'He looks thoughtful. "I don''t know about that. I think it would be better if it was less rough."'
+								'You chuckle. "Trust me, all girls learn to love it."'
+								'He looks skeptical, but then shrugs. "Yeah, I guess we can try again some day, but I should really change."'
+								'You nod in agreement. "Yeah, I should likely get going myself. See you later."'
+								'You gather up your stuff and leave as he changes back into his clothes.'
+								gs 'arousal', 'end'
+								gs 'stat'
+								act 'Go home': gt 'pav_residential'
+							end
+						end
+					end
+				else
+					act 'Take it like a bitch (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+				end
+			end
+		end
+	end
+end
+
+if $ARGS[0] = 'strapon_crossdress_bj_second':
+	*clr & cla
+	IgorQW['net'] += 1
+	IgorQW['napoit'] += 1
+	IgorQW['strap'] += 1
+	gs 'stat'
+	'<center><img  src="images/characters/pavlovsk/school/boy/igor/sex/crossdress/strapon_cd2.jpg"></center>'
+	'His knees barely touch the floor before he has his mouth open for you. You push your hips forward, sliding the dildo into his mouth as he starts sucking on it. He looks to be doing an even better job than last time. You can only guess that he''s been watching porn and practicing.'
+	gs 'arousal', 'foreplay_give', 2, 'dom'
+	gs 'stat'
+
+	act 'Gag him':
+		*clr & cla
+		'<center><img  src="images/characters/pavlovsk/school/boy/igor/sex/crossdress/strapon_cd3.jpg"></center>'
+		'He''s taking most of the dildo into his mouth, so you reach over and place a hand on the back of his head and force it down his throat until he starts gagging on it.'
+		'"That''s it, bitch! I want to feel my balls bouncing off your chin!" you tell him, doing your best to sound like a guy.'
+		gs 'arousal', 'foreplay_give', 2, 'dom'
+		gs 'stat'
+
+		act 'Fuck him on his back':
+			*clr & cla
+			igorQW['bottom'] += 1
+			gs 'boyStat', 'D<<strapnumber>>'
+			'<center><img  src="images/characters/pavlovsk/school/boy/igor/sex/crossdress/strapon_cd4.jpg"></center>'
+			'You pull away from him so your dildo slides out of his mouth and point over to his chaise lounge. "Lay down on your back."'
+			'He quickly gets up to lay on his back on the chaise lounge, eagerly lifting his legs up and spreading them slightly. You push up his dress and expose his panties, his little hard dick straining against the fabric. You grab some lube and lube up your dildo before getting on your knees between his legs.'
+			*nl
+			'You rub the tip of your lubed dildo against his asshole until you''re sure it''s lubed as well before you thrust your hips forward to pop the tip of it into his ass.'
+			'He lets out a slight hiss followed by a long low moan as you grab his hips and pull him back as more of the <<dick>>cm <<$dick_girth>> dildo slides up his ass, which only makes him moan louder.'
+			'You start slowly fucking him and see the tip of his hard dick is getting wet with precum.'
+			gs 'arousal', 'anal_strap_give', 3, 'dom'
+			gs 'stat'
+
+			act 'Start really fucking him':
+				*clr & cla
+				'<center><img  src="images/characters/pavlovsk/school/boy/igor/sex/crossdress/strapon_cd5.jpg"></center>'
+				'You slide your knees back, spreading your legs fairly wide so you can more easily thrust your hips. You grab his legs with your hands and spread them apart, allowing you to thrust into him much easier and really start fucking him. You alternate from watching your cock slide in and out of his ass and looking at him as he moans louder and louder. "Tell me how much you love my cock in your ass!"'
+				'He bites his lower lip while moaning louder. "OH... yes... I love... AH... it... OH... when you... fuck my... AH... ass... OH... with... your... AH... big cock!"'
+				'You grin at him as he looks totally lost in pleasure, barely able to speak as you fuck his ass. "You''re such a dirty little slut."'
+				'"OH... yes... I''m your... AH... dirty... OH... little slut... fuck me... AH... Harder!" he begs.'
+				gs 'arousal', 'anal_strap_give', 3, 'dom'
+				gs 'stat'
+
+				act 'Go balls deep':
+					*clr & cla
+					'<center><img  src="images/characters/pavlovsk/school/boy/igor/sex/crossdress/strapon_cd6.jpg"></center>'
+					'Since he seems to be loving it, not to mention begging you for it, you thrust the dildo balls deep into his ass, causing him to moan even louder before you start thrusting your strap-on into him, driving it balls deep in his ass as hard as you can.'
+					'He starts crying out each time you thrust into him until he groans loudly. You glance down and see him cumming on his stomach. You ride him through his orgasm before pulling out of him.'
+					gs 'arousal', 'anal_strap_give', 3, 'dom'
+					gs 'stat'
+
+					act 'Finish':
+						*clr & cla
+						'<center><img  src="images/characters/pavlovsk/school/boy/igor/crossdress/getdressed3.jpg"></center>'
+						'You start taking off the strap-on harness as he starts cleaning himself up. You get dressed and put the harness away as he finishes getting his clothes back in place. You grab him and pull him over to the mirror so you can both look into it and see your reflections. "So what did you think?"'
+						'He looks right into your eyes through the reflection. "I loved it! Every time it feels better than the last. I''m glad you talked me into this."'
+						*nl
+						'You grin at him through the reflection and hug him with one arm. "I''m glad. I liked doing it too and I''m more than happy if you want to be friends with benefits and keep doing it."'
+						'He looks thoughtful before he nods. "Yeah, I''d like that, but I should really change."'
+						'You nod in agreement. "Yeah, I should likely get going myself. See you later."'
+						'You gather up your stuff and leave as he changes back into his clothes.'
+						gs 'arousal', 'end'
+						gs 'stat'
+						act 'Go home': gt 'pav_residential'
+					end
+				end
+			end
+		end
+
+		act 'Fuck him doggy style':
+			*clr & cla
+			igorQW['bottom'] += 1
+			'<center><img  src="images/characters/pavlovsk/school/boy/igor/sex/crossdress/strapon_cd7.jpg"></center>'
+			'You pull away from him so your dildo slides out of his mouth before you point over to his chaise lounge. "Get on your hands and knees."'
+			'He almost leaps onto the chaise lounge in his eagerness before he bends forward and rests his elbows on the back of the lounge and sticks out his ass to present it to you. You push up his dress and pull his panties down before tossing them aside. You then grab some lube and lube up your dildo before getting on the lounge behind him. You scoot up close behind him as you stroke the slick dildo in your hand.'
+			*nl
+			'You rub the tip against his asshole until you''re sure it''s lubed as well before you thrust your hips forward to pop the tip of it into his ass.'
+			'He lets out a long low moan and you grab his hips so he can''t pull away, but it doesn''t feel like he''s trying; he seems eager to get fucked by you.'
+			'You push more of the <<dick>>cm <<$dick_girth>> dildo into his ass, which only makes him moan louder before you start slowly fucking him as he starts moaning louder.'
+			gs 'arousal', 'anal_strap_give', 3, 'dom'
+			gs 'stat'
+
+			act 'Fuck him harder':
+				*clr & cla
+				'<center><img  src="images/characters/pavlovsk/school/boy/igor/sex/crossdress/strapon_cd8.jpg"></center>'
+				'You grab his ass cheeks with your hands and spread them apart so you can watch your cock slide in and out of his ass. He starts moaning louder as you keep fucking him, which only encourages you to fuck him harder and faster.'
+				'His moans start to get louder and louder. "OH... yeah... AH... fuck me..."'
+				gs 'arousal', 'anal_strap_give', 3, 'dom'
+				gs 'stat'
+
+				act 'Keep up the pace':
+					*clr & cla
+					'<center><img  src="images/characters/pavlovsk/school/boy/igor/sex/crossdress/strapon_cd9.jpg"></center>'
+					'You seem to have hit the sweet spot, so you get into a rhythmn as he moans loudly in pleasure. "OH... yes... I love it... AH..."'
+					'You hold onto his hips as you rhythmically thrust forward. It doesn''t take long before he tenses up and groans loudly. You ride him through his orgasm before you pull out of him.'
+					gs 'arousal', 'anal_strap_give', 3, 'dom'
+					gs 'stat'
+
+					act 'Finish':
+						*clr & cla
+						'<center><img  src="images/characters/pavlovsk/school/boy/igor/crossdress/getdressed3.jpg"></center>'
+						'You start taking off the strap-on harness as he starts cleaning himself up. You get dressed and put the harness away as he finishes getting his clothes back in place. You grab him and pull him over to the mirror so you can both look into it and see your reflections. "So what did you think?"'
+						'He looks right into your eyes through the reflection. "I loved it! Every time it feels better than the last. I''m glad you talked me into this."'
+						*nl
+						'You grin at him through the reflection and hug him with one arm. "I''m glad. I liked doing it too and I''m more than happy if you want to be friends with benefits and keep doing it."'
+						'He looks thoughtful before he nods. "Yeah, I''d like that, but I should really change."'
+						'You nod in agreement. "Yeah, I should likely get going myself. See you later."'
+						'You gather up your stuff and leave as he changes back into his clothes.'
+						gs 'arousal', 'end'
+						gs 'stat'
+						act 'Go home': gt 'pav_residential'
+					end
+				end
+				gs 'willpower', 'anal', 'force', 'medium'
+				if will_cost <= pcs_willpwr:
+					act 'Take it like a bitch (<<will_cost>> Willpower)':
+						*clr & cla
+						gs 'willpower', 'pay', 'force'
+						igorQW['bottom'] += 1
+						gs 'stat'
+						'<center><img  src="images/characters/pavlovsk/school/boy/igor/sex/crossdress/strapon_cd10.jpg"></center>'
+						'You push his hand away while gripping one of his hips with one hand as the other reaches up and grabs hold of his shoulder so he can''t pull away at all.'
+						'You pull your hips back before you thrust forward as hard as you can while pulling him back, burying your fake dick balls deep up his ass. He cries out in a mix of pain and pleasure as you start roughly fucking him as hard and fast as you can. "Shut up and take it, bitch!"'
+						'He lowers his head and lets you roughly fuck him as he grunts and moans, occasionally hissing from an especially hard thrust. He reaches between his legs and starts jerking off before he groans loudly in orgasm.'
+						gs 'arousal', 'anal_strap_give', 5, 'dom'
+						gs 'stat'
+
+						act 'Finish':
+							*clr & cla
+							'<center><img  src="images/characters/pavlovsk/school/boy/igor/crossdress/getdressed3.jpg"></center>'
+							'You start taking off the strap-on harness as he starts cleaning himself up. You get dressed and put the harness away as he finishes getting his clothes back in place. You grab him and pull him over to the mirror so you can both look into it and see your reflections. "So what did you think?"'
+							'He blushes, looking down for several seconds before looking back up at you in the reflection. "I liked it. Even you got a little too rough at the end, I started to love being treated like that."'
+							*nl
+							'You smile at him through the reflection and hug him with one arm. "I told you. In time, it will get even better."'
+							'He looks eager at the idea. "That sounds amazing! I''m looking forward to it, but I should really change."'
+							'You nod in agreement. "Yeah, I should likely get going myself. See you later."'
+							'You gather up your stuff and leave as he changes back into his clothes.'
+							gs 'arousal', 'end'
+							gs 'stat'
+							act 'Go home': gt 'pav_residential'
+						end
+					end
+				else
+					act 'Take it like a bitch (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+				end
+			end
+		end
+	end
+end
+
+if $ARGS[0] = 'strapon_crossdress_bj_magic_second':
+	*clr & cla
+	IgorQW['net'] += 1
+	IgorQW['napoit'] += 1
+	IgorQW['strap'] += 1
+	$orgasm_or = 'no'
+	gs 'stat'
+	'<center><img  src="images/characters/pavlovsk/school/boy/igor/sex/crossdress/strapon_cd2.jpg"></center>'
+	'His knees barely touch the floor before he has his mouth open for you. You push your hips forward, sliding your dick into his mouth as he starts sucking on it. It feels even better than last time. You guess that he''s been watching porn and practicing.'
+	gs 'arousal', 'magicd_bj', 2, 'dom'
+	gs 'stat'
+
+	act 'Gag him':
+		*clr & cla
+		'<center><img  src="images/characters/pavlovsk/school/boy/igor/sex/crossdress/strapon_cd3.jpg"></center>'
+		'He''s taking most of your cock into his mouth, so you reach over and place a hand on the back of his head before forcing your dick down his throat until he starts gagging on it.'
+		'"That''s it, bitch! I want to feel my balls bouncing off your chin!" you tell him, doing your best to sound like a guy.'
+		gs 'arousal', 'magicd_bj', 2, 'dom'
+		gs 'stat'
+
+		act 'Fuck him on his back':
+			*clr & cla
+			igorQW['bottom'] += 1
+			gs 'boyStat', 'D<<strapnumber>>'
+			'<center><img  src="images/characters/pavlovsk/school/boy/igor/sex/crossdress/strapon_cd4.jpg"></center>'
+			'You pull away from him so your dildo slides out of his mouth and point over to his chaise lounge. "Lay down on your back."'
+			'He quickly gets up to lay on his back on the chaise lounge, eagerly lifting his legs up and spreading them slightly. You push up his dress and expose his panties, his little hard dick straining against the fabric. You grab some lube and lube up your dildo before getting on your knees between his legs.'
+			*nl
+			'You rub the tip of your lubed dildo against his asshole until you''re sure it''s lubed as well before you thrust your hips forward to pop the tip of it into his ass.'
+			'He lets out a slight hiss followed by a long low moan as you grab his hips and pull him back as more of your <<dick>>cm <<$dick_girth>> dick slides up his ass, which only makes him moan louder.'
+			'You start slowly fucking him and see the tip of his hard dick is getting wet with precum.'
+			gs 'arousal', 'magicd_anal', 3, 'dom'
+			gs 'stat'
+
+			act 'Start really fucking him':
+				*clr & cla
+				'<center><img  src="images/characters/pavlovsk/school/boy/igor/sex/crossdress/strapon_cd5.jpg"></center>'
+				'You slide your knees back, spreading your legs fairly wide so you can more easily thrust your hips. You grab his legs with your hands and spread them apart, allowing you to thrust into him much easier and really start fucking him. You alternate from watching your cock slide in and out of his ass and looking at him as he moans louder and louder. "Tell me how much you love my cock in your ass!"'
+				'He bites his lower lip while moaning louder. "OH... yes... I love... AH... it... OH... when you... fuck my... AH... ass... OH... with... your... AH... big cock!"'
+				'You grin at him as he looks totally lost in pleasure, barely able to speak as you fuck his ass. "You''re such a dirty little slut."'
+				'"OH... yes... I''m your... AH... dirty... OH... little slut... fuck me... AH... Harder!" he begs.'
+				gs 'arousal', 'magicd_anal', 3, 'dom'
+				gs 'stat'
+
+				act 'Go balls deep':
+					*clr & cla
+					'<center><img  src="images/characters/pavlovsk/school/boy/igor/sex/crossdress/strapon_cd6.jpg"></center>'
+					'Since he seems to be loving it, not to mention begging you for it, you thrust the dildo balls deep into his ass, causing him to moan even louder before you start thrusting your strap-on into him, driving it balls deep in his ass as hard as you can.'
+					'He starts crying out each time you thrust into him until he groans loudly. You glance down and see him cumming on his stomach. You ride him through his orgasm before pulling out of him.'
+					gs 'arousal', 'magicd_anal', 3, 'dom'
+					gs 'stat'
+
+					act 'Cum in his mouth':
+						*clr & cla
+						'<center><img <<$set_imgh>> src="images/pc/magic/penis_envy/mouthfull_girl1.jpg"></center>'
+						'You grab him and pull him up onto his knees as you stroke your cock. "Take my load on that pretty face of yours like a good little slut," you tell him.'
+						'He looks a little confused, but does as you command and open his mouth.'
+						$orgasm_txt = 'You keep stroking your cock until you feel the sudden release and start shooting your cum into his open mouth. He takes hold of your dick and strokes it himself, milking every last drop of cum from you. With the last drop of cum squeezed out, he swallows it down and starts sucking your dick, cleaning the cum from it.'
+						$orgasm_or = 'yes'
+						'Once you''ve both finished, he gives you a puzzled look. "What was that?"'
+						'You smile, knowing the magic is already clouding his mind to what just happened. "Fake cum. You know some of these dildos have that."'
+						'He nods and seems to believe it. "Oh... Yeah, I''ve heard of those. It tasted salty."'
+						gs 'arousal', 'magicd_anal', 2, 'dom', 'inhibition'
+
+						gs 'stat'
+
+						act 'Finish':
+							*clr & cla
+							'<center><img  src="images/characters/pavlovsk/school/boy/igor/crossdress/getdressed3.jpg"></center>'
+							'You start taking off the strap-on harness, which breaks the magic, turning it back into a normal strapon as he starts cleaning himself up. You get dressed and put the harness away in your purse as he finishes getting his clothes back in place. You grab him and pull him over to the mirror so you can both look into it and see your reflections. "So what did you think?"'
+							'He looks right into your eyes through the reflection. "I loved it! Every time it feels better than the last. I''m glad you talked me into this."'
+							*nl
+							'You grin at him through the reflection and hug him with one arm. "I''m glad. I liked doing it too and I''m more than happy if you want to be friends with benefits and keep doing it."'
+							'He looks thoughtful before he nods. "Yeah, I''d like that, but I should really change."'
+							'You nod in agreement. "Yeah, I should likely get going myself. See you later."'
+							'You gather up your stuff and leave as he changes back into his clothes.'
+							gs 'arousal', 'end'
+							gs 'stat'
+							act 'Go home': gt 'pav_residential'
+						end
+					end
+
+					act 'Cum on his face':
+						*clr & cla
+						'<center><img <<$set_imgh>> src="images/pc/magic/penis_envy/facial_girl1.jpg"></center>'
+						'You grab him and pull him up onto his knees as you stroke your cock. "Take my load on that pretty face of yours like a good little slut," you tell him.'
+						'He looks a little confused, but does as you command and open his mouth.'
+						$orgasm_txt = 'You keep stroking your cock until you feel the sudden release and start shooting your cum across his face. He takes hold of your dick and strokes it himself, milking every last drop of cum from you. With the last drop of cum squeezed out, he swallows it down and starts sucking your dick, cleaning the cum from it.'
+						$orgasm_or = 'yes'
+						'Once you''ve both finished, he gives you a puzzled stare. "What was that?"'
+						'You smile, knowing the magic is already clouding his mind to what just happened. "Fake cum. You know some of these have that."'
+						'He nods and seems to believe it. "Oh... Yeah, I''ve heard of those," he says as he grabs some tissues and cleans his face.'
+						gs 'arousal', 'magicd_anal', 2, 'dom', 'inhibition'
+						gs 'stat'
+
+						act 'Finish':
+							*clr & cla
+							'<center><img  src="images/characters/pavlovsk/school/boy/igor/crossdress/getdressed3.jpg"></center>'
+							'You start taking off the strap-on harness, which breaks the magic, turning it back into a normal strapon as he starts cleaning himself up. You get dressed and put the harness away in your purse as he finishes getting his clothes back in place. You grab him and pull him over to the mirror so you can both look into it and see your reflections. "So what did you think?"'
+							'He looks right into your eyes through the reflection. "I loved it! Every time it feels better than the last. I''m glad you talked me into this."'
+							*nl
+							'You grin at him through the reflection and hug him with one arm. "I''m glad. I liked doing it too and I''m more than happy if you want to be friends with benefits and keep doing it."'
+							'He looks thoughtful before he nods. "Yeah, I''d like that, but I should really change."'
+							'You nod in agreement. "Yeah, I should likely get going myself. See you later."'
+							'You gather up your stuff and leave as he changes back into his clothes.'
+							gs 'arousal', 'end'
+							gs 'stat'
+							act 'Go home': gt 'pav_residential'
+						end
+					end
+				end
+			end
+		end
+
+		act 'Fuck him doggy style':
+			*clr & cla
+			igorQW['bottom'] += 1
+			'<center><img  src="images/characters/pavlovsk/school/boy/igor/sex/crossdress/strapon_cd7.jpg"></center>'
+			'You pull away from him so your dildo slides out of his mouth before you point over to his chaise lounge. "Get on your hands and knees."'
+			'He almost leaps onto the chaise lounge in his eagerness before he bends forward and rests his elbows on the back of the lounge and sticks out his ass to present it to you. You push up his dress and pull his panties down before tossing them aside. You then grab some lube and lube up your dick before getting on the lounge behind him. You scoot up close behind him as you stroke your slick dick in your hand.'
+			*nl
+			'You rub the tip against his asshole until you''re sure it''s lubed as well before you thrust your hips forward to pop the tip of it into his ass.'
+			'He lets out a long low moan and you grab his hips so he can''t pull away, but it doesn''t feel like he''s trying; he seems eager to get fucked by you.'
+			'You push more of your <<dick>>cm <<$dick_girth>> dick into his ass, which only makes him moan louder before you start slowly fucking him as he starts moaning louder.'
+			gs 'arousal', 'magicd_anal', 3, 'dom'
+			gs 'stat'
+
+			act 'Fuck him harder':
+				*clr & cla
+				'<center><img  src="images/characters/pavlovsk/school/boy/igor/sex/crossdress/strapon_cd8.jpg"></center>'
+				'You grab his ass cheeks with your hands and spread them apart so you can watch your cock slide in and out of his ass. He starts moaning louder as you keep fucking him, which only encourages you to fuck him harder and faster.'
+				'His moans start to get louder and louder. "OH... yeah... AH... fuck me..."'
+				gs 'arousal', 'magicd_anal', 3, 'dom'
+				gs 'stat'
+
+				act 'Keep up the pace':
+					*clr & cla
+					'<center><img  src="images/characters/pavlovsk/school/boy/igor/sex/crossdress/strapon_cd9.jpg"></center>'
+					'You seem to have hit the sweet spot, so you get into a rhythmn as he moans loudly in pleasure. "OH... yes... I love it... AH..."'
+					'You hold onto his hips as you rhythmically thrust forward. It doesn''t take long before he tenses up and groans loudly in orgasm.'
+					gs 'arousal', 'magicd_anal', 3, 'dom'
+					gs 'stat'
+
+					act 'Cum in his ass':
+						*clr & cla
+						'<center><img <<$set_imgh>> src="images/pc/magic/penis_envy/guy_internal_butt_cum1.jpg"></center>'
+						$orgasm_txt = 'You bury your cock balls deep into his ass and feel it twitching as you empty your load into his ass, causing you to moan loudly. Once you''re finished, you pull your cock out of his ass and stand up. He sighs loudly as you step back and see your cum leaking out of his gaping hole.'
+						$orgasm_or = 'yes'
+						'He reaches back and pulls his hand back with some of your cum on his fingers. He looks at you with a puzzled stare. "What was that?"'
+						'You smile, knowing the magic is already clouding his mind as to what just happened. "Fake cum. You know some of these have that."'
+						'He nods and seems to believe it. "Oh... Yeah, I''ve heard of those," he says before he grabs some tissues and cleans himself up.'
+						gs 'arousal', 'magicd_anal', 2, 'dom'
+
+						gs 'stat'
+
+						act 'Finish':
+							*clr & cla
+							'<center><img  src="images/characters/pavlovsk/school/boy/igor/crossdress/getdressed3.jpg"></center>'
+							'You start taking off the strap-on harness, which breaks the magic, turning it back into a normal strapon as he starts cleaning himself up. You get dressed and put the harness away in your purse as he finishes getting his clothes back in place. You grab him and pull him over to the mirror so you can both look into it and see your reflections. "So what did you think?"'
+							'He looks right into your eyes through the reflection. "I loved it! Every time it feels better than the last. I''m glad you talked me into this."'
+							*nl
+							'You grin at him through the reflection and hug him with one arm. "I''m glad. I liked doing it too and I''m more than happy if you want to be friends with benefits and keep doing it."'
+							'He looks thoughtful before he nods. "Yeah, I''d like that, but I should really change."'
+							'You nod in agreement. "Yeah, I should likely get going myself. See you later."'
+							'You gather up your stuff and leave as he changes back into his clothes.'
+							gs 'arousal', 'end'
+							gs 'stat'
+							act 'Go home': gt 'pav_residential'
+						end
+					end
+
+					act 'Cum on his ass':
+						*clr & cla
+						'<center><img <<$set_imgh>> src="images/pc/magic/penis_envy/guy_butt_cum2.jpg"></center>'
+						$orgasm_txt = 'You pull your cock out of his ass and he sighs loudly as you start stroking your cock. You soon feel it twitching in your hand as you start spurting your cum onto his ass. Once you finish, you step back and see your cum running down his crack over his balls.'
+						$orgasm_or = 'yes'
+						'He reaches back and pulls his hand back with some of your cum on his fingers. He looks at you with a puzzled stare. "What was that?"'
+						'You smile, knowing the magic is already clouding his mind as to what just happened. "Fake cum. You know some of these have that."'
+						'He nods and seems to believe it. "Oh... Yeah, I''ve heard of those," he says as he grabs some tissues and cleans himself up.'
+						gs 'arousal', 'magicd_anal', 2, 'dom'
+
+						gs 'stat'
+
+						act 'Finish':
+							*clr & cla
+							'<center><img  src="images/characters/pavlovsk/school/boy/igor/crossdress/getdressed3.jpg"></center>'
+							'You start taking off the strap-on harness, which breaks the magic, turning it back into a normal strapon as he starts cleaning himself up. You get dressed and put the harness away in your purse as he finishes getting his clothes back in place. You grab him and pull him over to the mirror so you can both look into it and see your reflections. "So what did you think?"'
+							'He looks right into your eyes through the reflection. "I loved it! Every time it feels better than the last. I''m glad you talked me into this."'
+							*nl
+							'You grin at him through the reflection and hug him with one arm. "I''m glad. I liked doing it too and I''m more than happy if you want to be friends with benefits and keep doing it."'
+							'He looks thoughtful before he nods. "Yeah, I''d like that, but I should really change."'
+							'You nod in agreement. "Yeah, I should likely get going myself. See you later."'
+							'You gather up your stuff and leave as he changes back into his clothes.'
+							gs 'arousal', 'end'
+							gs 'stat'
+							act 'Go home': gt 'pav_residential'
+						end
+					end
+				end
+				gs 'willpower', 'anal', 'force', 'medium'
+				if will_cost <= pcs_willpwr:
+					act 'Take it like a bitch (<<will_cost>> Willpower)':
+						*clr & cla
+						gs 'willpower', 'pay', 'force'
+						igorQW['bottom'] += 1
+						gs 'stat'
+						'<center><img  src="images/characters/pavlovsk/school/boy/igor/sex/crossdress/strapon_cd10.jpg"></center>'
+						'You push his hand away while gripping one of his hips with one hand as the other reaches up and grabs hold of his shoulder so he can''t pull away at all.'
+						'You pull your hips back before you thrust forward as hard as you can while pulling him back, burying your dick balls deep up his ass. He cries out in a mix of pain and pleasure as you start roughly fucking him as hard and fast as you can. "Shut up and take it, bitch!"'
+						'He lowers his head and lets you roughly fuck him as he grunts and moans, occasionally hissing from an especially hard thrust. He reaches between his legs and starts jerking off before he groans loudly in orgasm.'
+						gs 'arousal', 'magicd_anal', 5, 'dom'
+						gs 'stat'
+
+						act 'Cum in his ass':
+							*clr & cla
+							'<center><img <<$set_imgh>> src="images/pc/magic/penis_envy/guy_internal_butt_cum1.jpg"></center>'
+							$orgasm_txt = 'You bury your cock balls deep into his ass and feel it twitching as you empty your load into his ass, causing you to moan loudly. Once you''re finished, you pull your cock out of his ass and stand up. He sighs loudly as you step back and see your cum leaking out of his gaping hole.'
+							$orgasm_or = 'yes'
+							'He reaches back and pulls his hand back with some of your cum on his fingers. He looks at you with a puzzled stare. "What was that?"'
+							'You smile, knowing the magic is already clouding his mind as to what just happened. "Fake cum. You know some of these have that."'
+							'He nods and seems to believe it. "Oh... Yeah, I''ve heard of those," he says before he grabs some tissues and cleans himself up.'
+							gs 'arousal', 'magicd_anal', 2, 'dom'
+
+							gs 'stat'
+
+							act 'Finish':
+								*clr & cla
+								'<center><img  src="images/characters/pavlovsk/school/boy/igor/crossdress/getdressed3.jpg"></center>'
+								'You start taking off the strap-on harness as he starts cleaning himself up. You get dressed and put the harness away as he finishes getting his clothes back in place. You grab him and pull him over to the mirror so you can both look into it and see your reflections. "So what did you think?"'
+								'He blushes, looking down for several seconds before looking back up at you in the reflection. "I liked it. Even you got a little too rough at the end, I started to love being treated like that."'
+								*nl
+								'You smile at him through the reflection and hug him with one arm. "I told you. In time, it will get even better."'
+								'He looks eager at the idea. "That sounds amazing! I''m looking forward to it, but I should really change."'
+								'You nod in agreement. "Yeah, I should likely get going myself. See you later."'
+								'You gather up your stuff and leave as he changes back into his clothes.'
+								gs 'arousal', 'end'
+								gs 'stat'
+								act 'Go home': gt 'pav_residential'
+							end
+						end
+
+						act 'Cum on his ass':
+							*clr & cla
+							'<center><img <<$set_imgh>> src="images/pc/magic/penis_envy/guy_butt_cum2.jpg"></center>'
+							$orgasm_txt = 'You pull your cock out of his ass and he sighs loudly as you start stroking your cock. You soon feel it twitching in your hand as you start spurting your cum onto his ass. Once you finish, you step back and see your cum running down his crack over his balls.'
+							$orgasm_or = 'yes'
+							'He reaches back and pulls his hand back with some of your cum on his fingers. He looks at you with a puzzled stare. "What was that?"'
+							'You smile, knowing the magic is already clouding his mind as to what just happened. "Fake cum. You know some of these have that."'
+							'He nods and seems to believe it. "Oh... Yeah, I''ve heard of those," he says as he grabs some tissues and cleans himself up.'
+							gs 'arousal', 'magicd_anal', 2, 'dom'
+
+							gs 'stat'
+
+							act 'Finish':
+								*clr & cla
+								'<center><img  src="images/characters/pavlovsk/school/boy/igor/crossdress/getdressed3.jpg"></center>'
+								'You start taking off the strap-on harness as he starts cleaning himself up. You get dressed and put the harness away as he finishes getting his clothes back in place. You grab him and pull him over to the mirror so you can both look into it and see your reflections. "So what did you think?"'
+								'He blushes, looking down for several seconds before looking back up at you in the reflection. "I liked it. Even you got a little too rough at the end, I started to love being treated like that."'
+								*nl
+								'You smile at him through the reflection and hug him with one arm. "I told you. In time, it will get even better."'
+								'He looks eager at the idea. "That sounds amazing! I''m looking forward to it, but I should really change."'
+								'You nod in agreement. "Yeah, I should likely get going myself. See you later."'
+								'You gather up your stuff and leave as he changes back into his clothes.'
+								gs 'arousal', 'end'
+								gs 'stat'
+								act 'Go home': gt 'pav_residential'
+							end
+						end
+					end
+				else
+					act 'Take it like a bitch (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+				end
+			end
+		end
+	end
+end
+
+--- igorsex ---------------------------------

locations/journal.qsrc

@@ -170,7 +170,7 @@ end
 
 
 if $ARGS[0] = 'relationstab':
-    $jumploc = 'relationstab'
+	$jumploc = 'relationstab'
 	gs 'journal', 'journalmenu'
 
 	'<center><h2>Relationships</h2></center>'
@@ -364,59 +364,65 @@ if $ARGS[0] = 'relationstab':
 	! if npc_rel['A41'] > 0: 'Friendship with Givi K. <<npc_rel[''A41'']>>'
 	! if npc_rel['A42'] > 0: 'Friendship with Ashot <<npc_rel[''A42'']>>'
 
-	if husband > 0:'You have been married for <<husbanday>> days. Your husband <<$husName>> <<$husBody>> <<$husFat>> <<$husHair>>. Member <<husDick>> Relationship <<husband>>.'
-	if kid > 0:
-		i = 0
-		if kid = 1:
-			'You have a child, a <<$polreb[0]>> named <<$kidname[0]>>. Born <<daykid[0]>>-<<monthkid[0]>>-<<yearkid[0]>>. Aged <<kidage[0]>>.'
 
-		else
-			'You have children:'
-			:LoopKidCounter
+	if kid > 0 or arrsize('$lover') > 0:
+		'<center><h2>Lovers & Children</h2></center>'
+		if kid > 0:
+			i = 0
+			if kid = 1:
+				'You have a child, a <<$polreb[0]>> named <<$kidname[0]>>. Born <<daykid[0]>>-<<monthkid[0]>>-<<yearkid[0]>>. Aged <<kidage[0]>>.'
+
+			else
+				'You have children:'
+				:LoopKidCounter
 				if i < kid:
 					'<br> a <<$polreb[i]>> named <<$kidname[i]>>. Born <<daykid[i]>>-<<monthkid[i]>>-<<yearkid[i]>>. Aged <<kidage[i]>>.'
 					i += 1
 					jump 'LoopKidCounter'
 				end
+			end
+			*nl
+			*nl
 		end
-		*nl
-	end
-	*nl
-!! This has some sex info but also weirdness like npc number and smilie face is dick the right length. Its about first time with a random lover
-!! if $bfsex > 0:'<<$bfsex>>'
-	*nl
-	i = 0
-	:loverjournalloop
-	if i < arrsize('lover'):
-		$temp_npcid = $lover[i]
-
-		if npcgender[$temp_npcid] = 0:
-			$obj_loverintro = 'Your boyfriend'
-			$obj_loverpron  = 'He'
-		else
-			$obj_loverintro = 'Your girlfriend'
-			$obj_loverpron  = 'She'
-		end
 
-		if pcs_lovers[i] = 1: '<<$obj_loverintro>> <<$npc_usedname[$temp_npcid]>> is <<$loverbody[i]>> height and <<$loverbod[i]>> build with <<$loverface[i]>> hair. <<$loverdesc[i]>> is <<$loverClo[i]>>. Your relationship is <<loverrelation[i]>> after <<loverdays[i]>> days dating.'
-		if loverrelation[i] > 1:
-			if haraklover[i] = 0:
-				'<<$obj_loverpron>>''s timid and lacks confidence.'
-			elseif haraklover[i] = 1:
-				'<<$obj_loverpron>> has a cheerful and sociable personality.'
-			elseif haraklover[i] = 2:
-				'<<$obj_loverpron>>''s short-tempered and strict.'
+		jnl_i = 0
+		jnl_max_i = arrsize('$lover')
+		:loverjournalloop
+		if jnl_i < jnl_max_i:
+			gs 'npcStat', $lover[jnl_i], 'i'
+
+			if mid($npc_rel_type[$npcID9], 1, 2) = 'ex':
+				jnl_i += 1
+				jump 'loverjournalloop'
 			end
+
+			if $npc_rel_type[$npcID9] = 'husband':
+				'You have been married for <<daystart - spouseVars[''marry_day'']>> days. Your husband <<$npcdesc9>> is <<$npcheight9>> and <<$npcbuild9>> with <<$npchair9>> hair. <<$npcdesc9>> is usually wearing <<$npcClo9>>. Member <<$dick_desc9>> cock and <<$dick_girth9>>. Relationship <<npc_rel[$npcID9]>>.'
+			else
+				'Your <<$npcrelat9>> <<$npcdesc9>> is <<$npcheight9>> and <<$npcbuild9>> with <<$npchair9>> hair. <<$npcdesc9>> is usually wearing <<$npcClo9>>. Your relationship is <<npc_rel[$npcID9]>> after <<npc_dates[$npcID9]>> dates and <<daystart - npc_daygenerated[$npcID9]>> days dating.'
+			end
+
+			gs 'indik', '1', npc_rel[$npcID9], npc_rel[$npcID9], 100
+			'<<$ind>>'
+
+			if npc_rel[$npcID9] > 1:
+				if npc_gentle[$npcID9] = 1:
+					'<<$Xec9>> is timid and lacks confidence.'
+				elseif npc_rough[$npcID9] = 0:
+					'<<$Xec9>> has a cheerful and sociable personality.'
+				else
+					'<<$Xec9>> is short-tempered and strict.'
+				end
+			end
+
+			*nl
+
+			jnl_i += 1
+			jump 'loverjournalloop'
 		end
-		killvar '$temp_npcid'
-		i += 1
+		killvar 'jnl_i'
+		killvar 'jnl_max_i'
 	end
-	killvar 'i'
-	killvar '$obj_loverintro'
-	killvar '$obj_loverpron'
-	*nl
-
-!! relations
 end
 
 
@@ -722,7 +728,7 @@ if $ARGS[0] = 'uni':
 		j = 0
 		:exam_loop
 			if $class_list_institution[j] = 'uni_<<$university[''enrolled_in'']>>_semester_<<university[''enrolled_in_semester'']>>':
-				if     dyneval( 'RESULT = class[''<<$class_list_institution[j]>>_<<$class_list_name[j]>>_exam_done'']') = 1:
+				if dyneval( 'RESULT = class[''<<$class_list_institution[j]>>_<<$class_list_name[j]>>_exam_done'']') = 1:
 					'You completed your <<$class_list_name[j]>> exam and think you will get an <<$class[''<<$class_list_institution[j]>>_<<$class_list_name[j]>>_grade'']>>.'
 
 				elseif func('uni_programs', 'exam', 'is_over', $class_list_name[j]) = 1:
@@ -980,7 +986,7 @@ end
 !! Helper functions
 
 if $ARGS[0] = 'relindex':
-    gs 'indik', '1', npc_rel['<<$ARGS[1]>>'], npc_rel['<<$ARGS[1]>>'], 100 & '<<$ind>>'
+	gs 'indik', '1', npc_rel['<<$ARGS[1]>>'], npc_rel['<<$ARGS[1]>>'], 100 & '<<$ind>>'
 	*nl
 
 

locations/kafeM.qsrc

@@ -2,31 +2,23 @@
 
 if $ARGS[0] = 'start':
 	minut += 30
-	'You arrive at the cafe and sit at a table. <<$loverdesc[lover_number]>> orders food and wine. While you wait for the food to arrive, <<$loverdesc[lover_number]>> tells you an anecdote:<br>'
+	'You arrive at the cafe and sit at a table. <<$npcdesc>> orders food and wine. While you wait for the food to arrive, <<$npcdesc>> tells you an anecdote:<br>'
 	gs 'anekdot'
-	*nl	
-	if loverdays[lover_number] > 15 and haraklover[lover_number] = 2:gs 'boylove', 'tits'
-	if loverdays[lover_number] > 20 and haraklover[lover_number] = 1:gs 'boylove', 'tits'
-	if loverdays[lover_number] > 25 and haraklover[lover_number] = 0:gs 'boylove', 'tits'
-	if loverdays[lover_number] > 20 and haraklover[lover_number] = 2:gs 'boylove', 'figure'
-	if loverdays[lover_number] > 25 and haraklover[lover_number] = 1:gs 'boylove', 'figure'
-	if loverdays[lover_number] > 30 and haraklover[lover_number] = 0:gs 'boylove', 'figure'
-	act 'Laugh':
-		cla
-		loverrelation[lover_number] += 1
-		xgt 'kafeM', 'a'
-	end
-
-	act 'Smile':
-		cla
-		xgt 'kafeM', 'a'
+	*nl
+	if npc_gentle[$npcID] = 1:
+		if npc_dates[$npcID] > 25: gs 'boylove', 'tits'
+		if npc_dates[$npcID] > 30: gs 'boylove', 'figure'
+	elseif npc_rough[$npcID] = 0:
+		if npc_dates[$npcID] > 20: gs 'boylove', 'tits'
+		if npc_dates[$npcID] > 25: gs 'boylove', 'figure'
+	else
+		if npc_dates[$npcID] > 15: gs 'boylove', 'tits'
+		if npc_dates[$npcID] > 20: gs 'boylove', 'figure'
 	end
 
-	act 'Not funny':
-		cla
-		loverrelation[lover_number] -= 1
-		xgt 'kafeM', 'a'
-	end
+	act 'Laugh': npc_rel[$npcID] += rand(0, 1) & xgt 'kafeM', 'a'
+	act 'Smile': xgt 'kafeM', 'a'
+	act 'Not funny': npc_rel[$npcID] -= rand(0, 1) & xgt 'kafeM', 'a'
 end
 
 if $ARGS[0] = 'a':
@@ -37,128 +29,105 @@ if $ARGS[0] = 'a':
 		pcs_hydra -= 10
 	end
 	fat += 1
-	'Finally the food is served. <<$loverdesc[lover_number]>> pours you wine and proposes a toast to you.'
+	'Finally the food is served. <<$npcdesc>> pours you wine and proposes a toast to you.'
 
-	act 'Eat':
-		cla
-		xgt 'kafeM', 'b'
-	end
+	act 'Eat': xgt 'kafeM', 'b'
 end
 
 if $ARGS[0] = 'b':
 	gs 'food', 'm_meal'
 	gs 'stat'
-	'Music begins to play in the cafe and <<$loverdesc[lover_number]>> asks if you would like to dance.'
+	'Music begins to play in the cafe and <<$npcdesc>> asks if you would like to dance.'
 
-	act 'Dance':
-		
-		*clr & cla
-		loverrelation[lover_number] += 1
-		xgt 'kafeM', 'dance'
-	end
+	act 'Dance': npc_rel[$npcID] += rand(0, 1) & gt 'kafeM', 'dance'
 	gs 'willpower', 'misc', 'resist', 'easy'
-	if will_cost <= pcs_willpwr:
+	if pcs_willpwr < will_cost:
+		act 'Refuse(<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+	else
 		act 'Refuse (<<will_cost>> Willpower)':
-			*clr & cla
 			gs 'willpower', 'pay', 'resist'
 			gs 'stat'
-			cla
-			loverrelation[lover_number] -= 1
-			xgt 'kafeM', 'end'
+			npc_rel[$npcID] -= rand(0, 1)
+			gt 'kafeM', 'end'
 		end
-	else
-		act 'Refuse(<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
-	end	
+	end
 end
 
 if $ARGS[0] = 'dance':
 	minut += 5
 	'<center><img <<$set_imgh>> src="images/pc/activities/dance.jpg"></center>'
-	'You go with <<$loverdesc[lover_number]>> to the dance floor. He puts his arms around you and you start to dance.'
+	'You go with <<$npcdesc>> to the dance floor. He puts his arms around you and you start to dance.'
 
-	if haraklover[lover_number] = 0:
-		'<<$loverdesc[lover_number]>> is very reserved in his dance. He holds you a bit awkwardly and apologizes.'
+	if npc_gentle[$npcID] = 1:
+		'<<$npcdesc>> is very reserved in his dance. He holds you a bit awkwardly and apologizes.'
 
-		act 'Finish the dance':
-			cla
-			loverrelation[lover_number] += 1
-			xgt 'kafeM', 'end'
-		end
-	elseif haraklover[lover_number] = 1:
-		'<<$loverdesc[lover_number]>> leads you confidently in the dance.'
+		act 'Finish the dance': npc_rel[$npcID] += rand(0, 1) & xgt 'kafeM', 'end'
+	elseif npc_rough[$npcID] = 0:
+		'<<$npcdesc>> leads you confidently in the dance.'
 
-		act 'Finish the dance':
-			cla
-			loverrelation[lover_number] += 1
-			xgt 'kafeM', 'end'
-		end
-	elseif haraklover[lover_number] = 2:
-		'<<$loverdesc[lover_number]>> grabs your ass while dancing and presses against you. You can feel his hard cock against your stomach through the clothes.'
+		act 'Finish the dance': npc_rel[$npcID] += rand(0, 1) & xgt 'kafeM', 'end'
+	else
+		'<<$npcdesc>> grabs your ass while dancing and presses against you. You can feel his hard cock against your stomach through the clothes.'
 		'He whispers to you, Let''s go to the toilet.'
 		gs 'willpower', 'sex', 'resist', 'medium'
-		if will_cost <= pcs_willpwr:
+		if pcs_willpwr < will_cost:
+			act 'Finish the dance(<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+		else
 			act 'Finish the dance (<<will_cost>> Willpower)':
-				*clr & cla
 				gs 'willpower', 'pay', 'resist'
 				gs 'stat'
-				cla
-				loverrelation[lover_number] -= 1
+				npc_rel[$npcID] -= rand(0, 1)
 				xgt 'kafeM', 'end'
 			end
-		else
-			act 'Finish the dance(<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 'Go to the toilet':xgt 'kafeM', 'tualet'
+		act 'Go to the toilet': xgt 'kafeM', 'tualet'
 	end
 end
 
 if $ARGS[0] = 'tualet':
-	'<<$loverdesc[lover_number]>> pulls you inside the toilet and begins to knead your chest as you get ready for the act.'
+	'<<$npcdesc>> pulls you inside the toilet and begins to knead your chest as you get ready for the act.'
 	gs 'arousal', 'foreplay', 5
 	gs 'stat'
 
-	act 'Give blowjob':gt 'kafeM', 'bj'
-	act 'Bend over the toilet':gt 'kafeM', 'sex'
+	act 'Give blowjob': gt 'kafeM', 'bj'
+	act 'Bend over the toilet': gt 'kafeM', 'sex'
 end
 
 if $ARGS[0] = 'sex':
-	*clr
 	sexa += 1
-	loverrelation[lover_number] += 2
-	gs 'brosok'
+	npc_rel[$npcID] += 1
 	'<center><img <<$set_imgh>> src="images/characters/city/boyfriend/sex/event/cafe/kafe.jpg"></center>'
-	'You pull his dick out of his pants and start masturbating him. <<$loverdesc[lover_number]>> puts on a condom, then makes you stand over the toilet and pushes his <<dick>> centimeter member in your quivering pussy.'
+	'You pull his dick out of his pants and start masturbating him. <<$npcdesc>> puts on a condom, then makes you stand over the toilet and pushes his <<dick>> centimeter member in your quivering pussy.'
 	gs 'arousal', 'vaginal', 15, 'sub'
 	gs 'arousal', 'end'
 	gs 'stat'
 
-	'Soon <<$loverdesc[lover_number]>> can no longer hold back and finishes in a condom.'
+	'Soon <<$npcdesc>> can no longer hold back and finishes in a condom.'
 
-	act 'Next':gt 'kafeM', 'end'
+	act 'Next': gt 'kafeM', 'end'
 end
 
 if $ARGS[0] = 'bj':
-	*clr
 	bja += 1
-	gs 'cum_call', 'mouth_swallow', $boy, 1
-	loverrelation[lover_number] += 2
-	gs 'brosok'
+	gs 'cum_call', 'mouth_swallow', $npcID, 1
+	npc_rel[$npcID] += 1
 	'<center><img <<$set_imgh>> src="images/characters/city/boyfriend/sex/event/cafe/kafe1.jpg"></center>'
 	'You pull his dick out of his pants and start masturbating him, then squat in front of him and take him in your mouth, slowly sucking his <<dick>> centimeter member.'
-	'Soon <<$loverdesc[lover_number]>> can not resist any longer and finishes in your mouth, filling it with his tart semen. You try to swallow it all, but cum still pours out of your mouth, running down your lips and chin.'
-	'You faithfully look <<$loverdesc[lover_number]>> in the eyes with your semen smeared face.'
+	'Soon <<$npcdesc>> can not resist any longer and finishes in your mouth, filling it with his tart semen. You try to swallow it all, but cum still pours out of your mouth, running down your lips and chin.'
+	'You faithfully look <<$npcdesc>> in the eyes with your semen smeared face.'
 	gs 'arousal', 'bj', 15, 'sub'
 	gs 'arousal', 'end'
 	gs 'stat'
 
-	act 'Next':gt 'kafeM', 'end'
+	act 'Next': gt 'kafeM', 'end'
 end
 
 if $ARGS[0] = 'end':
-	'<<$loverdesc[lover_number]>> offers to hold you.'
+	gs 'stat'
+	'<<$npcdesc>> offers to hold you.'
 
-	act 'Home':gt 'sexm', 'start'
+	act 'Home': gt 'sexm', 'start'
 end
 
 --- kafeM ---------------------------------

locations/kafesvid.qsrc

@@ -53,15 +53,22 @@ if $ARGS[0] = '':
 			else
 				gt 'kafesvid', '3'
 			end
-		elseif $telsob = $loverdesc[lover_number]:
-			loverrelation[lover_number] += 1
-			if loverrelation[lover_number] >= 20:
-				kaferand = rand(0, 8)
-				if kaferand > 0 and kaferand < 3:gt 'kafesvid', '1'
-				if kaferand > 2 and kaferand < 5:gt 'kafesvid', '2'
-				if kaferand = 0 or kaferand > 4:gt 'kafesvid', '3'
-			else
+		else
+			npc_rel[$npcID] += 1
+			if npc_rel[$npcID] < 60:
 				gt 'kafesvid', '3'
+			else
+				kaferand = rand(0, 8)
+				if kaferand <= 1:
+					killvar 'kaferand'
+					gt 'kafesvid', '1'
+				elseif kaferand <= 3:
+					killvar 'kaferand'
+					gt 'kafesvid', '2'
+				else
+					killvar 'kaferand'
+					gt 'kafesvid', '3'
+				end
 			end
 		end
 	end
@@ -259,7 +266,7 @@ if $ARGS[0] = '2':
 
 			gs 'arousal', 'hj', 5, 'sub'
 			gs 'stat'
-	
+
 			act 'Take him in your mouth':
 				*clr & cla
 				gs 'cum_call', 'mouth_swallow', $boy, 1
@@ -440,7 +447,7 @@ if $ARGS[0] = '2':
 
 					gs 'arousal', 'bj', 5, 'sub'
 					gs 'stat'
-	
+
 					act '<<$telsob>> knows best':
 						*clr & cla
 						orgasm += 5
@@ -490,21 +497,21 @@ if $ARGS[0] = '3':
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/characters/city/boyfriend/sex/event/0.jpg"></center>'
 
-	if $telsob = $loverdesc[lover_number]:
-		'After your fun, <<$telsob>> looks at you and waits for your next move.'
+	if $telsob = 'Alla' or $telsob = 'Masha' or $telsob = 'Kate':
+		'After your fun, <<$telsob>> says she has to go. She leaves you with a little kiss on the cheek.'
 		if $home['town'] = 'pavlovsk':
-			act 'Say goodbye': gt 'pav_residential'
+			act 'Leave': gt 'pav_residential'
 		else
-			act 'Say goodby': gt 'city_center'
+			act 'Leave': gt 'city_center'
 		end
-		act 'Invite her to your home': gt 'lezbsex', 'startloverhome'
 	else
-		'After your fun, <<$telsob>> says she has to go. She leaves you with a little kiss on the cheek.'
+		'After your fun, <<$telsob>> looks at you and waits for your next move.'
 		if $home['town'] = 'pavlovsk':
-			act 'Leave': gt 'pav_residential'
+			act 'Say goodbye': gt 'pav_residential'
 		else
-			act 'Leave': gt 'city_center'
+			act 'Say goodby': gt 'city_center'
 		end
+		act 'Invite her to your home': gt 'lezbsex', 'startloverhome'
 	end
 end
 

locations/kazinosvid.qsrc

@@ -56,17 +56,24 @@ if $ARGS[0] = '':
 			else
 				gt 'kazinosvid', '3'
 			end
-		elseif $telsob = $loverdesc[lover_number]:
-			!! date with girlfriend	
-			loverrelation[lover_number] += 1
-			
-			if loverrelation[lover_number] >= 20:
-				kisvrand = rand(0, 8)
-				if kisvrand > 0 and kisvrand < 3:gt 'kazinosvid', '1'
-				if kisvrand > 2 and kisvrand < 5:gt 'kazinosvid', '2'
-				if kisvrand = 0 or kisvrand > 4:gt 'kazinosvid', '3'
-			else
+		elseif $telsob = $npcdesc:
+			!! date with girlfriend
+			npc_rel[$npcID] += rand(0, 1)
+
+			if npc_rel[$npcID] < 60:
 				gt 'kazinosvid', '3'
+			else
+				kisvrand = rand(0, 8)
+				if kisvrand <= 1:
+					killvar 'kisvrand'
+					gt 'kazinosvid', '1'
+				elseif kisvrand <= 3:
+					killvar 'kisvrand'
+					gt 'kazinosvid', '2'
+				else
+					killvar 'kisvrand'
+					gt 'kazinosvid', '3'
+				end
 			end
 		end
 	end
@@ -95,11 +102,11 @@ if $ARGS[0] = '1':
 
 			if telsobnastr < 4:
 				'No, it''s time we were on our way," says <<$telsob>>. She takes you by the hand, and leads you out of the room.'
-				
+
 				act 'Finish':gt 'kazinosvid', '3'
 			else
-				'"I wouldn''t mind consoling the losers," says <<$telsob>>, with a lustful look in her eye. One of the men starts to unbutton his fly.'  
-				
+				'"I wouldn''t mind consoling the losers," says <<$telsob>>, with a lustful look in her eye. One of the men starts to unbutton his fly.'
+
 				act 'Take <<$telsob>> and leave.':gt 'kazinosvid', '3'
 
 				act 'Console the losers':
@@ -136,7 +143,7 @@ if $ARGS[0] = '1':
 						money -= randkazinvsum
 						gt 'kazinosvid', '3'
 					end
-					
+
 					gs 'willpower', 'misc', 'self', 'hard'
 					if will_cost <= pcs_willpwr:
 						act 'Use an alternative form of payment (<<will_cost>> Willpower)':
@@ -149,7 +156,7 @@ if $ARGS[0] = '1':
 						end
 					else
 						act 'Use an alternative form of payment (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
-					end	
+					end
 				end
 			end
 		end
@@ -172,7 +179,7 @@ if $ARGS[0] = '2':
 		'A few minutes later the man says: "Let''s up the stakes. I''m willing to gamble with my clothing if you ladies are."'
 		'<<$telsob>> giggled, "You may end up naked and ashamed, <<$pcs_nickname>> and I haven''t lost a hand yet."'
 		'"I have nothing to be ashamed of," the man grins.'
-		
+
 		gs 'willpower', 'misc', 'self', 'medium'
 		if will_cost <= pcs_willpwr:
 			act 'Take <<$telsob>> and leave (<<will_cost>> Willpower)':
@@ -182,7 +189,7 @@ if $ARGS[0] = '2':
 			end
 		else
 			act 'Take <<$telsob>> and leave (<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 'Play strip poker':
 			*clr & cla
@@ -195,7 +202,7 @@ if $ARGS[0] = '2':
 			act 'Keep playing':
 				*clr & cla
 				'<center><img <<$set_imgh>> src="images/characters/city/boyfriend/sex/event/cards/5.jpg"></center>'
-				'Minutes later, you are both naked, and he is standing in front of you with his pants down. It must''ve been the wine that lead you to this predicament.'	
+				'Minutes later, you are both naked, and he is standing in front of you with his pants down. It must''ve been the wine that lead you to this predicament.'
 				'"Well ladies, it looks you''re all out of clothes. There is only one thing you have left to offer as payment," he says, while slowly stroking himself.'
 
 				act 'Go for it':
@@ -216,13 +223,13 @@ if $ARGS[0] = '3':
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/characters/city/boyfriend/sex/event/cards/0.jpg"></center>'
 
-	if $telsob = $loverdesc[lover_number]:
+	if $telsob = 'Alla' or $telsob = 'Masha' or $telsob = 'Kate':
+		'After your fun, <<$telsob>> says she has to go. She leaves you with a little kiss on the cheek.'
+		act 'Leave': gt 'city_industrial'
+	else
 		'After your fun, <<$telsob>> looks at you and waits for your next move.'
 		act 'Say goodbye': gt 'city_industrial'
 		act 'Invite her to your home': gt 'lezbsex', 'startloverhome'
-	else
-		'After your fun, <<$telsob>> says she has to go. She leaves you with a little kiss on the cheek.'
-		act 'Leave':gt 'city_industrial'
 	end
 end
 

locations/kinoM.qsrc

@@ -2,65 +2,55 @@
 
 if $ARGS[0] = 'start':
 	minut += 30
-	'You go to the cinema with <<$loverdesc[lover_number]>>, who buys two tickets for the back row.'
-	'While you wait for the movie to start, <<$loverdesc[lover_number]>> tells you an anecdote as he buys popcorn and drinks.<br>'
+	'You go to the cinema with <<$npcdesc>>, who buys two tickets for the back row.'
+	'While you wait for the movie to start, <<$npcdesc>> tells you an anecdote as he buys popcorn and drinks.<br>'
 	gs 'anekdot'
-*nl
-	if loverdays[lover_number] > 15 and haraklover[lover_number] = 2:gs 'boylove', 'tits'
-	if loverdays[lover_number] > 20 and haraklover[lover_number] = 1:gs 'boylove', 'tits'
-	if loverdays[lover_number] > 25 and haraklover[lover_number] = 0:gs 'boylove', 'tits'
-	if loverdays[lover_number] > 20 and haraklover[lover_number] = 2:gs 'boylove', 'figure'
-	if loverdays[lover_number] > 25 and haraklover[lover_number] = 1:gs 'boylove', 'figure'
-	if loverdays[lover_number] > 30 and haraklover[lover_number] = 0:gs 'boylove', 'figure'
-	act 'Laugh':
-		cla
-		loverrelation[lover_number] += 1
-		xgt 'kinoM', 'a'
+	*nl
+	if npc_gentle[$npcID] = 1:
+		if npc_dates[$npcID] > 25: gs 'boylove', 'tits'
+		if npc_dates[$npcID] > 30: gs 'boylove', 'figure'
+	elseif npc_rough[$npcID] = 0:
+		if npc_dates[$npcID] > 20: gs 'boylove', 'tits'
+		if npc_dates[$npcID] > 25: gs 'boylove', 'figure'
+	else
+		if npc_dates[$npcID] > 15: gs 'boylove', 'tits'
+		if npc_dates[$npcID] > 20: gs 'boylove', 'figure'
 	end
 
-	act 'Smile':
-		cla
-		xgt 'kinoM', 'a'
-	end
-
-	act 'Not funny':
-		cla
-		loverrelation[lover_number] -= 3
-		xgt 'kinoM', 'a'
-	end
+	act 'Laugh': npc_rel[$npcID] += 1 & gt 'kinoM', 'a'
+	act 'Smile': xgt 'kinoM', 'a'
+	act 'Not funny': npc_rel[$npcID] -= 3 & gt 'kinoM', 'a'
 end
 
 if $ARGS[0] = 'a':
-	*clr
 	minut += 90
 	fat += 2
-	'<center><img <<$set_imgh>> src="images/locations/city/citycenter/mall/cinema/kino.jpg"></center>'
-	'You and <<$loverdesc[lover_number]>> quickly find your seats and <<$loverdesc[lover_number]>> puts the big cup of popcorn on your lap.'
+	gs 'stat'
 
-	if haraklover[lover_number] < 2:
+	'<center><img <<$set_imgh>> src="images/locations/city/citycenter/mall/cinema/kino.jpg"></center>'
+	'You and <<$npcdesc>> quickly find your seats and <<$npcdesc>> puts the big cup of popcorn on your lap.'
 
+	if npc_rough[$npcID] = 0:
 		act 'Hug his arm':
-			cla
-			loverrelation[lover_number] += 1
+			npc_rel[$npcID] += 1
 			'You lean against him and hold his arm, taking his hand in yours. He leans over and kisses you in response. The two of you sit there holding hands for the entire movie.'
 			xgt 'kinoM', 'b'
 		end
-	elseif haraklover[lover_number] = 2:
+	else
 		act 'Hug his arm':
 			cla
-			loverrelation[lover_number] += 1
+			npc_rel[$npcID] += 1
 			'You lean against him and hug his arm, taking his hand in yours. He leans over and kisses you. Once the lights go out and the theatre gets dark, his hand breaks free from yours and begins to rub your knee. A few minutes later the hand works its way up your thighs, sliding between them to your crotch. He rubs your pussy with his fingers and leans over to whisper, "Baby, I want you right here, right now."'
 
-			act 'Shush him and remove his hand, so you can watch the movie':xgt 'kinoM', 'b'
-			act 'Jerk him off':gt 'kinoM', 'hj'
-			act 'Give him a blowjob':gt 'kinoM', 'bj'
-			act 'Sit on his lap and fuck him':gt 'kinoM', 'sex'
+			act 'Shush him and remove his hand, so you can watch the movie': xgt 'kinoM', 'b'
+			act 'Jerk him off': gt 'kinoM', 'hj'
+			act 'Give him a blowjob': gt 'kinoM', 'bj'
+			act 'Sit on his lap and fuck him': gt 'kinoM', 'sex'
 		end
 	end
 
 	act 'Watch the movie':
-		cla
-		loverrelation[lover_number] -= 1
+		npc_rel[$npcID] -= 1
 		gs 'exp_gain', 'intel', 1 + rand(0, drugVars['mentats_dose'])
 		'The movie proves interesting and you sit through the whole thing without interruption.'
 		xgt 'kinoM', 'b'
@@ -68,58 +58,55 @@ if $ARGS[0] = 'a':
 end
 
 if $ARGS[0] = 'sex':
-	*clr
 	sexa += 1
 	pcs_vag += 1
-	loverrelation[lover_number] += 2
-	gs 'brosok'
+	npc_rel[$npcID] += 2
+
 	'<center><img <<$set_imgh>> src="images/characters/city/boyfriend/sex/event/cinema/sinema.jpg"></center>'
-	'You reach over and undo his pants, opening his fly and pulling the front of his boxers just far enough down for his dick to spring free - he was already rock-hard. Looking around to make sure no one is watching, <<$loverdesc[lover_number]>> takes out a condom and puts it on his penis; while he does that, you adjust your clothes so that you can pull your panties down to allow access to your pussy. With a final look around you lift up slightly and slide across his lap, reaching between your legs to take his dick in your hand and guide it inside your moist cunt. You bite your lip as his <<dick>>cm <<$dick_girth>> cock enters your pussy, to keep from moaning out loud. Then you begin to slowly move, sneakily fucking your lover in the dark theatre behind the rest of the audience.'
+	'You reach over and undo his pants, opening his fly and pulling the front of his boxers just far enough down for his dick to spring free - he was already rock-hard. Looking around to make sure no one is watching, <<$npcdesc>> takes out a condom and puts it on his penis; while he does that, you adjust your clothes so that you can pull your panties down to allow access to your pussy. With a final look around you lift up slightly and slide across his lap, reaching between your legs to take his dick in your hand and guide it inside your moist cunt. You bite your lip as his <<dick>>cm <<$dick_girth>> cock enters your pussy, to keep from moaning out loud. Then you begin to slowly move, sneakily fucking your lover in the dark theatre behind the rest of the audience.'
 
 	gs 'arousal', 'vaginal', 10, 'sub'
-	gs 'cum_call', '', $lover[lover_number], 1
+	gs 'cum_call', '', $npcID, 1
 	gs 'stat'
-	
+
 	if pcs_horny >= 90:
 		pcs_mood += 15
 		$orgasm_or = 'yes'
-		$orgasm_txt = 'As you feel pleasure growing inside of you, you start moaning involuntarily, louder and louder. <<$loverdesc[lover_number]>> puts his hand over your mouth in an effort to muffle the noises. Then a massive orgasm hits you, leaving you shuddering and quivering on his cock.'
+		$orgasm_txt = 'As you feel pleasure growing inside of you, you start moaning involuntarily, louder and louder. <<$npcdesc>> puts his hand over your mouth in an effort to muffle the noises. Then a massive orgasm hits you, leaving you shuddering and quivering on his cock.'
 	end
 
-	'<<$loverdesc[lover_number]>> cannot take it any longer and shoots his load into the condom. Once he is finished, you move back to your seat and straighten out your clothes. Once you both are fully dressed again, you look at each other and stifle a laugh. Your act went unnoticed and you watch the rest of the movie holding hands.'
+	'<<$npcdesc>> cannot take it any longer and shoots his load into the condom. Once he is finished, you move back to your seat and straighten out your clothes. Once you both are fully dressed again, you look at each other and stifle a laugh. Your act went unnoticed and you watch the rest of the movie holding hands.'
 
-	act 'Next':gt 'kinoM', 'b'
+	act 'Next': xgt 'kinoM', 'b'
 end
 
 if $ARGS[0] = 'bj':
 	*clr
 	bja += 1
-	gs 'cum_call', 'mouth_swallow', $boy, 1
-	loverrelation[lover_number] += 2
-	gs 'brosok'
+	gs 'cum_call', 'mouth_swallow', $npcID, 1
+	npc_rel[$npcID] += 2
 	'<center><img <<$set_imgh>> src="images/characters/city/boyfriend/sex/event/cinema/sinema1.jpg"></center>'
 	'You reach over and undo his pants, opening the fly and pulling the front of his underwear down just enough. His dick springs free, already rock-hard. You look around to make sure no one is watching, then lean over and put your face in his lap. You wrap your lips around the shaft of his <<dick>>cm <<$dick_girth>> cock and begin to slowly suck him off in the dark theater.'
-	'Soon <<$loverdesc[lover_number]>> can no longer hold back and shoots his load into your mouth, flooding it with spurts of hot sperm. You keep your lips wrapped tightly around his dick until he is finished unloading. Lacking any better options, you swallow it all down and suck his dick clean. Once done you sit back up. The two of you look at each other and stifle a laugh, as no one seems to have noticed what you just did. You watch the rest of the movie holding hands quietly.'
+	'Soon <<$npcdesc>> can no longer hold back and shoots his load into your mouth, flooding it with spurts of hot sperm. You keep your lips wrapped tightly around his dick until he is finished unloading. Lacking any better options, you swallow it all down and suck his dick clean. Once done you sit back up. The two of you look at each other and stifle a laugh, as no one seems to have noticed what you just did. You watch the rest of the movie holding hands quietly.'
 
 	gs 'arousal', 'bj', 10, 'sub'
 	gs 'stat'
-	
-	act 'Next':gt 'kinoM', 'b'
+
+	act 'Next': xgt 'kinoM', 'b'
 end
 
 if $ARGS[0] = 'hj':
 	*clr
 	hja += 1
-	loverrelation[lover_number] += 1
-	gs 'brosok'
+	npc_rel[$npcID] += 1
 	'<center><img <<$set_imgh>> src="images/characters/city/boyfriend/sex/event/cinema/sinema2.jpg"></center>'
-	'You reach over and undo his pants, opening the fly and pulling the front of his underwear down just enough. His dick springs free, already rock-hard. You look around to make sure no one is watching, while <<$loverdesc[lover_number]>> takes out a condom and puts it on his penis. You begin to stroke his cock while watching the movie.'
+	'You reach over and undo his pants, opening the fly and pulling the front of his underwear down just enough. His dick springs free, already rock-hard. You look around to make sure no one is watching, while <<$npcdesc>> takes out a condom and puts it on his penis. You begin to stroke his cock while watching the movie.'
 	'Soon your skillful movements make him shoot his load in the condom. Once done, you lean back and watch the rest of the movie holding hands.'
 
 	gs 'arousal', 'hj', 10, 'sub'
 	gs 'stat'
-	
-	act 'Next':gt 'kinoM', 'b'
+
+	act 'Next': xgt 'kinoM', 'b'
 end
 
 if $ARGS[0] = 'b':
@@ -129,8 +116,8 @@ if $ARGS[0] = 'b':
 
 	gs 'arousal', 'end'
 	gs 'stat'
-	
-	act 'Home':gt 'sexm', 'start'
+
+	act 'Home': gt 'sexm', 'start'
 end
 
 --- kinoM ---------------------------------

locations/kinosvid.qsrc

@@ -42,16 +42,23 @@ if $ARGS[0] = '':
 			else
 				gt 'kinosvid', '3'
 			end
-		elseif $telsob = $loverdesc[lover_number]:
+		elseif $telsob = $npcdesc:
 			!! date with girlfriend
-			loverrelation[lover_number] += 1
-			if loverrelation[lover_number] >= 20:
-				kisvrand = rand(0, 20)
-				if kisvrand =< 4:gt 'kinosvid', '1'
-				if kisvrand = 5:gt 'kinosvid', '2'
-				if kisvrand >= 6:gt 'kinosvid', '3'
-			else
+			npc_rel[$npcID] += 1
+			if npc_rel[$npcID] < 60:
 				gt 'kinosvid', '3'
+			else
+				kisvrand = rand(0, 20)
+				if kisvrand <= 4:
+					killvar 'kisvrand'
+					gt 'kinosvid', '1'
+				elseif kisvrand = 5:
+					killvar 'kisvrand'
+					gt 'kinosvid', '2'
+				else
+					killvar 'kisvrand'
+					gt 'kinosvid', '3'
+				end
 			end
 		end
 	end
@@ -461,21 +468,21 @@ if $ARGS[0] = '3':
 	'<center><img <<$set_imgh>> src="images/characters/city/boyfriend/sex/event/cinema/0.jpg"></center>'
 	'With some playful flirting, you settle into your seats ready to watch the movie and notice the theater is packed, you struggle to find a pair of empty seats next to each other.'
 
-	if $telsob = $loverdesc[lover_number]:
-		'When the movie ends, <<$telsob>> looks at you and waits for your next move.'
+	if $telsob = 'Alla' or $telsob = 'Masha' or $telsob = 'Kate':
+		'When the movie ends, <<$telsob>> says she has get home. She leaves you with a deep kiss, leaving you wanting more.'
 		if $home['town'] = 'pavlovsk':
-			act 'Kiss her and say goodbye': gt 'gskino'
+			act 'Leave': gt 'gskino'
 		else
-			act 'Kiss her and say goodbye': gt 'city_mall'
+			act 'Leave': gt 'city_mall'
 		end
-		act 'Kiss her and invite her to your home': gt 'lezbsex', 'startloverhome'
 	else
-		'When the movie ends, <<$telsob>> says she has get home. She leaves you with a deep kiss, leaving you wanting more.'
+		'When the movie ends, <<$telsob>> looks at you and waits for your next move.'
 		if $home['town'] = 'pavlovsk':
-			act 'Leave': gt 'gskino'
+			act 'Kiss her and say goodbye': gt 'gskino'
 		else
-			act 'Leave': gt 'city_mall'
+			act 'Kiss her and say goodbye': gt 'city_mall'
 		end
+		act 'Kiss her and invite her to your home': gt 'lezbsex', 'startloverhome'
 	end
 end
 

locations/kit_din.qsrc

@@ -13,7 +13,7 @@ $santehnikgr = {
 $santehnikend3 = {
 	*clr & cla
 	ransloman = 0
-	
+
 	spafinloc = 11
 	gs 'cum_manage'
 	if GrishaSex = 0:GrishaSex = 1 & guy += 1
@@ -27,7 +27,7 @@ $santehnikend3 = {
 
 	gs 'arousal', 'end'
 	gs 'stat'
-	
+
 	act 'Get up':gt $curloc
 }
 
@@ -70,7 +70,7 @@ $santehnikend1 = {
 
 				gs 'arousal', 'bj', 3, 'sub', 'deepthroat', 'rough'
 				gs 'stat'
-				
+
 				act 'Close your eyes':dynamic $santehnikend3
 			end
 		end
@@ -165,7 +165,7 @@ $santehnikend = {
 
 				gs 'arousal', 'bj', 3, 'sub'
 				gs 'stat'
-				
+
 				act 'Continue':
 ! here I need work around the direct return address and get from kuhr korr and from kuhr2x korr2x
 					$sexloc = 'korr' + $mid($curloc,5,2)
@@ -180,7 +180,7 @@ $santehnikend = {
 						gs 'arousal', 'end'
 						gs 'stat'
 
-				
+
 						act 'Leave':gt $sexloc
 					elseif pcs_apprnc >= 60:
 						picrand = 90
@@ -203,176 +203,17 @@ $santehnik1 = {
 	act 'Disregard':dynamic $santehnikend
 }
 
-$santehnik = {
+$santehnik = 'gt ''kit_din'', ''santehnik'' '
+if $ARGS[0] = 'santehnik':
 	*clr & cla
 	kransloman = 0
 
-	if husband = 0 or husbandrink = 10:dynamic $santehnik1 & exit
-	if husband > 0 and week < 6 and hour < 17 and hour > 7:dynamic $santehnik1 & exit
-
-	sexpartkno = 1
-	gs 'boyStat', $HusID
-	gs 'boyStat', 53, 'a'
-
-	if husband > 0 and husbandrink ! 10:
-		*clr & cla
-		minut += 20
-		'<center><img <<$set_imgh>> src="images/locations/city/residential/apartment/sex/s7.jpg"></center>'
-		'You tell your husband about the leak and he makes a phone call. After 20 minutes, a plumber arrives.'
-		'Your husband walks him to the kitchen and the two of you began to observe his actions, you are sick of hearing about how the plumber hates cheap Chinese fittings and what people pushed into the sink, and you decided to wait in the living room.'
-
-		act 'Leave':
-			*clr & cla
-			gs 'stat'
-			'<center><img <<$set_imgh>> src="images/locations/city/residential/apartment/sex/s8.jpg"></center>'
-			'You go into the room and sit on the couch, soon your husband comes in and sits down beside you. With one hand on your breast, he runs his other hand down under your panties and begins to massage your clitoris.'
-			'"What are you doing? What if the plumber comes in?"'
-			'"He''ll be another hour poking around." he answers, "Come on, quick blow job."'
-			'"OK, lets." you say, now excited, it really looks like his hand has done its job.'
-
-			gs 'arousal', 'foreplay', 10, 'sub'
-			gs 'stat'
-			act 'Start':
-				*clr & cla
-				'<center><img <<$set_imgh>> src="images/locations/city/residential/apartment/sex/s9.jpg"></center>'
-				'The husband stands up and pulls from his unbuttoned pants his member, you drop to your knees and his cock is in your mouth, right then the plumber enters, "I''m finished." he says and freezes, seeing this picture.'
-
-				gs 'arousal', 'bj', 10, 'sub'
-				gs 'stat'
-			
-				if izvratH = 0:
-					'Your husband tries to remove his member from your mouth'
-
-					if pcs_horny < 80:
-						act 'Stop':
-							cla
-							'Your husband quickly hides his dick in his pants and with the plumber goes out into the corridor'
-							gs 'arousal', 'end'
-							gs 'stat'
-							act 'Leave':gt 'sitr'
-						end
-					end
-
-					act 'Do not stop':
-						cla
-						'You grabbed your husbands hips and continued to work your mouth, he jerks a couple of times trying to free himself, but you can not stop and just swallow his cock even deeper. When he stops twitching you bring one hand to your crotch and with just a couple of motions bring yourself to orgasm.'
-						'But the excitement does not recede, you want even more, and the watching plumber just arouses you. You can not control yourself.'
-
-						$orgasm_or = 'yes'
-						gs 'arousal', 'bj', 10, 'sub'
-						gs 'stat'
-						act 'Ride your husband':
-							*clr & cla
-							gs 'cum_manage'
-							suprdolg += 1
-							husband += 1
-							husbizvradd += 1
-							'<center><img <<$set_imgh>> src="images/locations/city/residential/apartment/sex/s12.jpg"></center>'
-							'You release your husband''s member from your mouth and quickly push him to sit on the couch, then jump on top of him, quickly planting his dick in your pussy. You ride it like crazy, ignoring the plumber, still stood in the doorway, watching you. When you are again close to orgasm you feel as sperm gushes into you'
-							'It take a few movements from his twitching cock, but you also reach orgasm, uttering a cry you limp and fall from your husband. He leaves you still quaking, pulls up his pants and walks out with the plumber to the hallway.'
-
-							$orgasm_or = 'yes'
-							gs 'arousal', 'vaginal', 10, 'sub'
-							gs 'arousal', 'end'
-							gs 'stat'
-						
-							act 'Leave':gt 'sitr'
-						end
-					end
-				else
-					'Your husband did not even try to stop you'
-
-					if pcs_horny < 80:
-						act 'Stop':
-							if harakHusb ! 2:
-								cla
-								'You release your husband''s member from your mouth and he quickly pulls up his pants and with the plumber goes out into the corridor'
-								act 'Leave':gt 'sitr'
-							elseif harakHusb = 2:
-								cla
-								guy += 1
-								'You tried to spit the member from your mouth, but your husband grabs hold of your head and he starts to fuck you in the mouth, talking with shocked plumber, "We''re a little busy, at the moment, it''s her feeding time." he laughes, "How much do I owe you?" He continues.'
-								'"Fifteen hundred." Manages the plumber.'
-								'"Well, with those prices can agree that if you feed her too, we consider it paid?" He asks.'
-								'"I do not know, a blowjob would earn a discount, but if she can do us both, then yes." replied the plumber.'
-								'"You know how to bargain." Says your husband, "Okay agreed." He adds, almost without thinking. Knowing the character of your husband you know that your peril has been decided.'
-
-								act 'Serve both':picrand = 43 & gt 'sexdvoe', 'var'
-							end
-						end
-					end
-
-					act 'Do not stop':
-						cla
-						'You continued to suck ignoring the watching plumber.'
-
-						if harakHusb = 0:'Your husband tries not to look at the plumber, obviously embarrassed, but he does not hesitate to follow your every move.'
-						if harakHusb = 1:'Your husband stands savoring the process without paying attention to the plumber.'
-						if harakHusb = 2:'Your husband chats with the plumber does not hesitate to turn slightly so that it is easier for him to see.'
-
-						gs 'arousal', 'bj', 10, 'sub'
-						gs 'stat'
-						
-						act 'Continue':
-							cla
-							gs 'cum_call', 'mouth_swallow', $boy, 1
-							suprdolg += 1
-							husband += 1
-							pcs_horny += 20
-							'You continue to blow your husband, and soon a stream of hot liquid squirts into your mouth, swallowing the sperm you lick the remnants of semen from his penis. Your husband puts his cleaned dick in his pants and walks out into the hallway with the plumber. And you are left sitting on the floor, exhausted from desire.'
-
-							gs 'arousal', 'end'
-							gs 'stat'
-							
-							act 'Leave':gt 'sitr'
-						end
-
-						if pcs_horny > 70:
-							act 'Suggest a threesome':
-								cla
-								'You break away from the penis, and a whisper to your husband if he wants to try a threesome.'
-
-								if harakHusb = 0:
-									*clr
-									houseslut += 1
-									husband += 2
-									'<center><img <<$set_imgh>> src="images/locations/city/residential/apartment/sex/s11.jpg"></center>'
-									'Your husband is a little shocked by the idea, what would convince him? In a loud voice you continue, "Let him lick me while I caress you."'
-									'The plumber tenses, waiting for the reaction of your husband, "Well, if only licking you, then let him." Says your husband. The plumber does not need persuading, your husband sits on the sofa, and you get on your knees and stick out your ass as the plumbers tongue penetrates your pussy.'
-									'At first your husband keeps glancing in his direction, but soon relaxes and finally when the guy starts to finger your hole with a vengance, he says nothing, you decide that he is no longer against you sharing with others.'
-
-									gs 'arousal', 'cuni', 10, 'sub', 'group'
-									gs 'arousal', 'vaginal_finger', 10, 'sub', 'group'
-									minut -= 10
-									gs 'stat'
-							
-									act 'Serve both':picrand = 43 & gt 'sexdvoe', 'var'
-								elseif harakHusb = 1:
-									husband -= 5
-									'"You think I should share you, my wife with the plumber? Cool that foolish pussy, you must think with your head." shouts your husband and returning his member to his pants goes out of the room with the plumber.'
-
-									act 'Leave':gt 'sitr'
-								elseif harakHusb = 2:
-									*clr
-									houseslut += 1
-									husband += 2
-									'<center><img <<$set_imgh>> src="images/locations/city/residential/apartment/sex/s10.jpg"></center>'
-									'"It''s not for nothing that they say all women are whores, hey man this whore wants to do both of us, but then the repair is free of charge." Says your husband. The plumber does need a second invite, he quickly approachs and pulls out his dick.'
-									'Bringing it to your face, you cling to him and start to suck both cocks alternately, your husband stands carefully watching your actions "You like sucking fresh meat, but do not forget about me, and this boys and mine you swallow deeper and deeper."'
-
-									gs 'arousal', 'bj', 10, 'sub', 'group'
-									gs 'stat'
-							
-									act 'Serve both':picrand = 43 & gt 'sexdvoe', 'var'
-								end
-							end
-						end
-					end
-				end
-			end
-		end
+	if $husID ! '' and spouseVars['drink'] ! 10 and week >= 6 and (hour <= 6 or hour >= 17):
+		gt 'lover_living', 'santehnik'
+	else
+		dynamic $santehnik1
 	end
-}
+end
 
 $dirtarm = {
 	if mc_inventory['dish_soap'] > 0:
@@ -565,8 +406,8 @@ $fill_bottle = {
 }
 
 $sandwich = {
-	if bag > 0 and mc_inventory['food_sandwich'] = 0: 
-		act 'Make a sandwich to go (0:05)': 
+	if bag > 0 and mc_inventory['food_sandwich'] = 0:
+		act 'Make a sandwich to go (0:05)':
 			minut += 5
 			mc_inventory['food_sandwich'] = 1
 			gt $loc, $loc_arg

locations/korr.qsrc

@@ -24,7 +24,7 @@ if sound = 0:PLAY 'sound/korr.mp3',30
 gs 'courtletter'
 
 if lesbiday + 14 <= daystart and lesbiQW >= 11 and hour >= 19 and santehnikDolg = 0:
-	if RAND(0,100) > 82 and husband = 0:
+	if rand(0, 100) > 82 and $husID = '':
 		gt 'lesbimistress','mistvisit'
 	else
 		lesbiday += 1

locations/korrPar.qsrc

@@ -115,7 +115,7 @@ act 'Go to the living room':gt 'sitrPar'
 if locat['Mother'] = 2:
 	if vanrPar_suction_dildo > 0:
 		motherQW['dildo_shower_discovery'] = 1
-		gt 'mother', 'bathroom_dildo_shriek1'
+		gt 'mother_sextalk', 'bathroom_dildo_shriek1'
 	end
 	act 'Go to the bathroom':msg'You try to open the bathroom door, but it immediately stops and bangs against the latch. You hear the water running and your mother shouting at the door. "Doesn''t anybody in this family know how to knock?!"'
 elseif locat['Stepdad'] = 5 or locat['Stepdad'] = 11:

locations/kuhr.qsrc

@@ -30,7 +30,7 @@ if kransloman = 1:
 	if Grisha = 0: act 'Call the plumber': dynamic $santehnik
 	if Grisha > 0: act 'Call Grisha': dynamic $santehnikgr
 
-	act 'Leave': killvar 'fullmorrout' & gt 'korr' 
+	act 'Leave': killvar 'fullmorrout' & gt 'korr'
 
 	exit
 end
@@ -66,24 +66,8 @@ end
 
 if edahot > 0:'<a href="exec:dynamic $edahotd">There''s a warm meal on the table.</a>'
 
-if husband > 0 and husbandrink ! 10:
-	if hour = 7 or hour = 17: 'Your <a href="exec:gt ''husb'', ''start''">husband /a> is eating at the table.'
-end
+gs 'lover_living', 'kitchen'
 
-if husband > 0 and husbanday > 0 and huseatday ! daystart and mc_inventory['food_basic'] >= 2:
-	act 'Cook a meal for your husband and yourself (1:00)':
-		*clr & cla
-		husband += 5
-		mc_inventory['food_basic'] -= 2
-		minut += 60
-		huseatday = daystart
-		pcs_mood -= 25
-		'<center><img <<$set_imgh>> src="images/shared/home/kitchen/cook.jpg"></center>'
-		'You prepare a meal for your husband and yourself.'
-
-		act 'Leave the meal':gt 'kuhr'
-	end
-end
 
 dynamic $edasnack
 dynamic $sandwich
@@ -125,7 +109,7 @@ if mc_inventory['dildo_small'] > 0 and pcs_horny >= 50:
 				$orgasm_or = 'yes'
 				gs 'arousal', 'vaginal_dildo', 10, 'masturbate'
 				gs 'arousal', 'end'
-				
+
 				act 'Breathe': gt 'kuhr'
 			end
 		else
@@ -137,7 +121,7 @@ if mc_inventory['dildo_small'] > 0 and pcs_horny >= 50:
 			$orgasm_or = 'yes'
 			gs 'arousal', 'vaginal_dildo', 10, 'masturbate'
 			gs 'arousal', 'end'
-		
+
 			act 'Breathe': gt 'kuhr'
 		end
 	end
@@ -146,13 +130,13 @@ if pcs_horny >= 50: act 'Masturbate':gt 'selfplay', 'start'
 
 if fullmorrout = 1:
 	minut += 2
-	
+
 	act '<font color = maroon><b>Leave the apartment and go outside</b></font>':
 		minut +=1
 		killvar 'fullmorrout'
 		gs 'korr'
 		xgt 'city_residential', 'start'
-		
+
 	end
 end
 

locations/kuhr2x.qsrc

@@ -65,26 +65,7 @@ end
 
 if edahot > 0:'<a href="exec:dynamic $edahotd">There''s a warm meal on the table.</a>'
 
-if husband > 0 and husbandrink ! 10:
-	if hour = 7 or hour = 17:'<a href="exec:gt ''husb'', ''start''">Your husband is eating at the table.</a>'
-end
-
-if husband > 0 and husbanday > 0 and huseatday ! daystart and mc_inventory['food_basic'] >= 2:
-	act 'Cook meal for your husband and yourself (1:00)':
-		cla
-		*clr
-		husband += 5
-		mc_inventory['food_basic'] -= 2
-		dynamic $edahotd
-		minut += 60
-        huseatday = daystart
-		pcs_mood -= 25
-        '<center><img <<$set_imgh>> src="images/shared/home/kitchen/cook.jpg"></center>'
-		'You cook a meal for your husband and yourself.'
-
-		act 'Leave the meal':gt'kuhr2x'
-	end
-end
+gs 'lover_living', 'kitchen'
 
 dynamic $edasnack
 dynamic $sandwich
@@ -114,11 +95,11 @@ if mc_inventory['dildo_small'] > 0 and pcs_horny >= 50:
 				'Shivers run down your spine as you feel the thick head spreading your lips and soon the whole length begins to slide deep inside your hole. A throaty moan overwhelms the room when the dildo bottoms out inside you.'
 				'After shifting your legs and getting more comfortable, you start to rock your hips and bounce on it, moaning louder and louder as you keep increasing the power and pace of your thrusts. Your ass is hammering against the floor with each thrust and it takes you just a few minutes to reach orgasm, your toes curling tightly as your entire body is overwhelmed in pleasure.'
 				'Your juices drip down the length of the dildo, pooling on the floor beneath you. You take a few deep breaths and a satisfied smile grows on your face. That was just what you needed!'
-				
+
 				$orgasm_or = 'yes'
 				gs 'arousal', 'vaginal_dildo', 10, 'masturbate'
 				gs 'arousal', 'end'
-				
+
 				act 'Breathe':gt $loc
 			end
 		else
@@ -127,11 +108,11 @@ if mc_inventory['dildo_small'] > 0 and pcs_horny >= 50:
 			'Shivers run down your spine as you feel the thick head spreading your lips and soon the whole length begins to slide deep inside your hole. A throaty moan overwhelms the room when the dildo bottoms out inside you.'
 			'After shifting your legs and getting more comfortable, you start to rock your hips and bounce on it, moaning louder and louder as you keep increasing the power and pace of your thrusts. Your ass is hammering against the floor with each thrust and it takes you just a few minutes to reach orgasm, your toes curling tightly as your entire body is overwhelmed in pleasure.'
 			'Your juices drip down the length of the dildo, pooling on the floor beneath you. You take a few deep breaths and a satisfied smile grows on your face. That was just what you needed!'
-				
+
 			$orgasm_or = 'yes'
 			gs 'arousal', 'vaginal_dildo', 10, 'masturbate'
 			gs 'arousal', 'end'
-				
+
 			act 'Breathe':gt $loc
 		end
 	end

locations/lezbsex.qsrc

@@ -6,7 +6,7 @@ if $ARGS[0] = 'start':
 	picrand = rand(0, 1)
 
 	if lezbsexhome = 1:
-		$lezbsexname = $loverdesc[lover_number]
+		$lezbsexname = $npcdesc
 	else
 		$lezbsexname = 'the girl'
 	end
@@ -20,13 +20,13 @@ if $ARGS[0] = 'startloverhome':
 	minut += 15
 	'<center><img <<$set_imgh>> src="images/shared/sex/lesbian/lezbsexhome.jpg"></center>'
 
-	'You spend some time with <<$loverdesc[lover_number]>> in the kitchen when she gets impatient and caresses you.'
+	'You spend some time with <<$npcdesc>> in the kitchen when she gets impatient and caresses you.'
 	act 'Kiss her back and take her to the bedroom':
-		loverrelation[lover_number] += 2
+		npc_rel[$npcID] += 1
 		gt 'lezbsex', 'start'
 	end
-	act 'Stop her and say goodbye':	
-		loverrelation[lover_number] -= 4
+	act 'Stop her and say goodbye':
+		npc_rel[$npcID] -= 2
 		killvar 'lezbsexhome'
 		gt 'homes_properties', 'go_straight_home'
 	end
@@ -68,7 +68,7 @@ if $ARGS[0] = 'ukuni':
 	gs 'arousal', 'vaginal_finger_give', 5, 'lesbian'
 	minut -=5
 	gs 'stat'
-	
+
 	act 'Continue': xgt 'lezbsex', 'var'
 	act 'Finish': gt 'lezbsex', 'end'
 end
@@ -76,13 +76,13 @@ end
 if $ARGS[0] = 'kuni':
 	cla
 	*clr
-	
+
 	'<center><img <<$set_imgh>> src="images/shared/sex/lesbian/kuni<<picrand>>.jpg"></center>'
 	'She begins by dragging her tongue up your thighs to your crotch and plants light kisses from the top of your slit down to the opening of your vagina.  Her tongue pushes into your slickened hole a few times, then slides back up your cunny to caress your tingling clitoris again.'
 
 	gs 'arousal', 'cuni', 5, 'lesbian'
 	gs 'stat'
-	
+
 	act 'Continue': xgt 'lezbsex', 'var'
 	act 'Finish': gt 'lezbsex', 'end'
 end
@@ -96,7 +96,7 @@ if $ARGS[0] = 'anuli':
 
 	gs 'arousal', 'rimming', 5, 'lesbian'
 	gs 'stat'
-	
+
 	act 'Continue': xgt 'lezbsex', 'var'
 	act 'Finish': gt 'lezbsex', 'end'
 end
@@ -104,13 +104,13 @@ end
 if $ARGS[0] = 'uanuli':
 	cla
 	*clr
-	
+
 	'<center><img <<$set_imgh>> src="images/shared/sex/lesbian/uanuli<<picrand>>.jpg"></center>'
 	'You kiss her buttocks in ever-decreasing circles, eventually reaching the center where her puckered anus is waiting. Reaching your goal, you lick all around the tender star to get it plenty moist, then firmly push your tongue forward, penetrating her ass with just the tip. Finally, you retract it, again licking all around her anus and repeating your tongue invasion into that most private entrance.'
 
 	gs 'arousal', 'rimming_give', 5, 'lesbian'
 	gs 'stat'
-	
+
 	act 'Continue': xgt 'lezbsex', 'var'
 	act 'Finish': gt 'lezbsex', 'end'
 end
@@ -124,7 +124,7 @@ if $ARGS[0] = 'svag':
 
 	gs 'arousal', 'vaginal_strap_give', 5, 'lesbian'
 	gs 'stat'
-	
+
 	act 'Continue': xgt 'lezbsex', 'var'
 	act 'Finish': gt 'lezbsex', 'end'
 end
@@ -138,7 +138,7 @@ if $ARGS[0] = 'sanal':
 
 	gs 'arousal', 'anal_strap_give', 5, 'lesbian'
 	gs 'stat'
-	
+
 	act 'Continue': xgt 'lezbsex', 'var'
 	act 'Finish': gt 'lezbsex', 'end'
 end
@@ -152,7 +152,7 @@ if $ARGS[0] = 'usvag':
 
 	gs 'arousal', 'vaginal_strap', 5, 'lesbian'
 	gs 'stat'
-	
+
 	act 'Continue': xgt 'lezbsex', 'var'
 	act 'Finish': gt 'lezbsex', 'end'
 end
@@ -166,7 +166,7 @@ if $ARGS[0] = 'usanal':
 
 	gs 'arousal', 'anal_strap', 5, 'lesbian'
 	gs 'stat'
-	
+
 	act 'Continue': xgt 'lezbsex', 'var'
 	act 'Finish': gt 'lezbsex', 'end'
 end
@@ -180,7 +180,7 @@ if $ARGS[0] = 'dvag':
 
 	gs 'arousal', 'vaginal_dildo_give', 5, 'lesbian'
 	gs 'stat'
-	
+
 	act 'Continue': xgt 'lezbsex', 'var'
 	act 'Finish': gt 'lezbsex', 'end'
 end
@@ -194,7 +194,7 @@ if $ARGS[0] = 'danal':
 
 	gs 'arousal', 'anal_dildo_give', 5, 'lesbian'
 	gs 'stat'
-	
+
 	act 'Continue': xgt 'lezbsex', 'var'
 	act 'Finish': gt 'lezbsex', 'end'
 end
@@ -205,7 +205,7 @@ if $ARGS[0] = 'udvag':
 
 	'<center><img <<$set_imgh>> src="images/shared/sex/lesbian/udvag<<picrand>>.jpg"></center>'
 	'<<$lezbsexname>> inserts the dildo into your wet pussy, moving it in and out while constantly twisting and turning it in her hands to stimulate your love hole as much as possible.'
-	
+
 	gs 'arousal', 'vaginal_dildo', 5, 'lesbian'
 	gs 'stat'
 
@@ -223,7 +223,7 @@ if $ARGS[0] = 'udanal':
 
 	gs 'arousal', 'anal_dildo', 5, 'lesbian'
 	gs 'stat'
-	
+
 	act 'Continue': xgt 'lezbsex', 'var'
 	act 'Finish': gt 'lezbsex', 'end'
 end

locations/love.qsrc

@@ -1,33 +1,32 @@
 # love
+
 if $ARGS[0] = 'start':
-	cla & *clr
+	*clr & cla
 	menu_off = 1
 
-	if haraklover[lover_number] = 0:gt 'love', '0'
-	if haraklover[lover_number] = 1:gt 'love', '1'
-	if haraklover[lover_number] = 2:gt 'love', '2'
+	if npc_gentle[$npcID] = 1:
+		gt 'love', '0'
+	elseif npc_rough[$npcID] = 0:
+		gt 'love', '1'
+	else
+		gt 'love', '2'
+	end
 end
 
 if $ARGS[0] = '0':
-	cla
-	*clr
-	loverlove[lover_number] = 1
-	'You start talking about living together. <<$loverdesc[lover_number]>> tells you that he is not against it, but first he wants you to meet his parents.'
-	'He warns you that his mother is very demanding and rigorous. <<$loverdesc[lover_number]>> says that he loves his mother and does not want to upset her. Therefore, you must look gorgeous, wear a dress from a boutique, be well-groomed with curled hair and use cosmetics only in moderation.'
-	'For your next date, if you are ready, <<$loverdesc[lover_number]>> will take you to his parents.'
-
-	act 'To invite':
-		cla
-		gt 'sexm', 'room'
-	end
+	npc_love[$npcID] = 1
+	'You start talking about living together. <<$npcdesc>> tells you that he is not against it, but first he wants you to meet his parents.'
+	'He warns you that his mother is very demanding and rigorous. <<$npcdesc>> says that he loves his mother and does not want to upset her. Therefore, you must look gorgeous, wear a dress from a boutique, be well-groomed with curled hair and use cosmetics only in moderation.'
+	'For your next date, if you are ready, <<$npcdesc>> will take you to his parents.'
+
+	act 'To invite': gt 'sexm', 'room'
 end
 
 if $ARGS[0] = 'mother':
-	cla
-	*clr
+	*clr & cla
 	minut += 60
-	'<<$loverdesc[lover_number]>> drives you to the home of his parents. You get out and take the elevator. The door opens after only knocking once. It seems clear that they were waiting for you. You enter the apartment and are greeted by an elderly gray-haired woman dressed in trousers and a shirt. You are told to switch into a pair of slippers and are then led down a hallway into another room where the elderly woman invites you to sit down at a table.'
-	'<<$loverdesc[lover_number]>> pulls out a chair for you and you sit down. His mother places herself in front of the two of you. She looks at you with disgust in her eyes, looking like an overgrown insect, clearly thinking you are not a girl for her son. "So, darling, what do you do for a living?"'
+	'<<$npcdesc>> drives you to the home of his parents. You get out and take the elevator. The door opens after only knocking once. It seems clear that they were waiting for you. You enter the apartment and are greeted by an elderly gray-haired woman dressed in trousers and a shirt. You are told to switch into a pair of slippers and are then led down a hallway into another room where the elderly woman invites you to sit down at a table.'
+	'<<$npcdesc>> pulls out a chair for you and you sit down. His mother places herself in front of the two of you. She looks at you with disgust in her eyes, looking like an overgrown insect, clearly thinking you are not a girl for her son. "So, darling, what do you do for a living?"'
 
 	if workKafe['job'] = 1 and (work = 1 or cheatVars['work'] = 1):'"I am a waitress in a cafe."'
 	if func('uniutil', 'student', 'enrolled'):'"I study at the university."'
@@ -35,9 +34,9 @@ if $ARGS[0] = 'mother':
 	if work = 0 and cheatVars['work'] = 0 and workKafe['job'] ! 1:'"I''m unemployed."'
 
 	if modelfoto_nude > 30:
-		loverrelation[lover_number] = 0
+		npc_rel[$npcID] = 0
 		'She smiles and says with disgust, "Why are you not telling us about the photos you shot for these web sites?" She pulls out the nude photos of you and lies them out on the table. "My son, your mother cares about you. This girl is not worthy of you."'
-		'<<$loverdesc[lover_number]>> blushes and screams, "<<$pcs_nickname>>, I loved you so, and you... you turn out to be just another dirty whore! Get out!"'
+		'<<$npcdesc>> blushes and screams, "<<$pcs_nickname>>, I loved you so, and you... you turn out to be just another dirty whore! Get out!"'
 
 		act 'Leave':dynamic $brodilr
 
@@ -45,9 +44,9 @@ if $ARGS[0] = 'mother':
 	end
 
 	if kavslut > 0:
-		loverrelation[lover_number] = 0
+		npc_rel[$npcID] = 0
 		'She smiles and says with disgust, "Son, everyone knows that this girl is a slut. <<$pcs_nickname>> does not just wait tables, she lets every customer, even the Armenians who go there, tear up every hole she has. She doesn''t deserve you!"'
-		'<<$loverdesc[lover_number]>> blushes and says, "<<$pcs_nickname>>, I loved you so, and you... you turn out to be just another dirty whore! Get out!"'
+		'<<$npcdesc>> blushes and says, "<<$pcs_nickname>>, I loved you so, and you... you turn out to be just another dirty whore! Get out!"'
 
 		act 'Leave':dynamic $brodilr
 
@@ -55,9 +54,9 @@ if $ARGS[0] = 'mother':
 	end
 
 	if frot > 3:
-		loverrelation[lover_number] = 0
+		npc_rel[$npcID] = 0
 		'She smiles and says with disgust, "Son, this girl is a slut and lets every pervert who settles down next to her on the subway grope her. She is not worthy of you!"'
-		'<<$loverdesc[lover_number]>> blushes and says, "<<$pcs_nickname>>, I loved you so, and you... you turn out to be just another dirty whore! Get out!"'
+		'<<$npcdesc>> blushes and says, "<<$pcs_nickname>>, I loved you so, and you... you turn out to be just another dirty whore! Get out!"'
 
 		act 'Leave':dynamic $brodilr
 
@@ -65,72 +64,68 @@ if $ARGS[0] = 'mother':
 	end
 
 	if gloryhole > 30:
-		loverrelation[lover_number] = 0
+		npc_rel[$npcID] = 0
 		'She smiles and says with disgust, "Son, your girlfriend moonlights at the sex shop, sucking the members of countless strangers. Do you want a wife like that? She is not worthy of you!"'
-		'<<$loverdesc[lover_number]>> blushes and says, "<<$pcs_nickname>>, I loved you so, and you... you turn out to be just another dirty whore! Get out!"'
+		'<<$npcdesc>> blushes and says, "<<$pcs_nickname>>, I loved you so, and you... you turn out to be just another dirty whore! Get out!"'
 
 		act 'Leave':dynamic $brodilr
 
 		exit
 	end
 
-	loverlove[lover_number] = 2
+	npc_love[$npcID] = 2
 	'She looks at her son with tearful eyes and says, "Alright. Well son, it''s your choice. Who am I to interfere with your life? I just gave birth to you, nursed you and helped you grow up. But of course you are free to forget about your mother who loves you and only wishes the best for you. If you insist on keeping her, please do. I certainly don''t forbid it. "'
-	'<<$loverdesc[lover_number]>> looks down, "Mother, what are you saying? Of course I love you, but <<$pcs_nickname>> is also very dear to me."'
+	'<<$npcdesc>> looks down, "Mother, what are you saying? Of course I love you, but <<$pcs_nickname>> is also very dear to me."'
 	'His mother jumps up, her eyes flashing, "Son, you only met her recently, what do you even know about her?"'
-	'<<$loverdesc[lover_number]>> takes a long time trying to persuade his mother and making excuses. Finally she lets you out of her predatory claws and you''re ready to leave.'
+	'<<$npcdesc>> takes a long time trying to persuade his mother and making excuses. Finally she lets you out of her predatory claws and you''re ready to leave.'
 
 	act 'Leave':dynamic $brodilr
 end
 
 if $ARGS[0] = '1':
-	cla
-	*clr
-	loverlove[lover_number] = 1
-	'You start talking about living together. <<$loverdesc[lover_number]>> tells you that he is not against it, but first he wants you to meet his friends.'
+	npc_love[$npcID] = 1
+	'You start talking about living together. <<$npcdesc>> tells you that he is not against it, but first he wants you to meet his friends.'
 	'He tells you that you have to look chic, wear a dress from a boutique, be well-groomed with curled hair, use cosmetics only in moderation. He wants his friends to get green with envy.'
-	'For your next date, if you are totally ready <<$loverdesc[lover_number]>> will take you to his friends.'
+	'For your next date, if you are totally ready <<$npcdesc>> will take you to his friends.'
 
-	act 'To invite':
-		cla
-		gt 'sexm', 'room'
-	end
+	act 'To invite': gt 'sexm', 'room'
 end
 
 if $ARGS[0] = 'frends':
-	cla
-	*clr
+	sexpartkno = 1
+	gs 'npcgeneratec', 0, '<<$npcdesc>>''s "friend"', rand(18,32)
+	gs 'npcStat', $npclastgenerated, 'a'
+	gs 'npcgeneratec', 0, '<<$npcdesc>>''s "friend"', rand(18,32)
+	gs 'npcStat', $npclastgenerated, 'b'
+
+	gt 'love', 'frends2'
+end
+
+if $ARGS[0] = 'frends2':
 	'<center><img <<$set_imgh>> src="images/characters/city/husband/sex/z0.jpg"></center>'
 
-	sexpartkno = 1
-	gs 'boyStat', $lover[lover_number]
-	gs 'npcgeneratec', 0, '<<$loverdesc[lover_number]>>''s "friend"', rand(18,32)
-	gs 'boyStat', $npclastgenerated, 'a'
-gs 'npcgeneratec', 0, '<<$loverdesc[lover_number]>>''s "friend"', rand(18,32)
-	gs 'boyStat', $npclastgenerated, 'b'
-	
 	if proverka1 = 0 and proverka2 = 0 and proverka3 = 0 and proverka4 = 0 and proverka5 = 0:
 		minut += 180
-		'<<$loverdesc[lover_number]>> drives you to his friends. You arrive at an apartment and <<$loverdesc[lover_number]>> introduces you as his bride to two other guys. You sit down at a table set and talk for a couple of hours. Everybody has fun and after everyone finishes eating and drinking, <<$loverdesc[lover_number]>> invites you to dance, to which you gladly agree. <<$loverdesc[lover_number]>> is already pretty drunk and he''s bad at dancing, but still start to grope you, his hands squeezing your buttocks. Soon he runs them under your dress and continues to stroke your ass. He hitches up you skirt so everyone can see your panties. The other guys are sitting on the sofa intently staring at your buttocks. Soon one of them gets up he guys got up from the couch and comes over to you. "You have the best butt I''ve ever seen. I would like to check it out." he says, and slaps you on the buttocks making you jump. <<$loverdesc[lover_number]>> pulls you to him and tells the other guy "Stop that. She''s my girl. You can watch, but you can not touch."'
+		'<<$npcdesc>> drives you to his friends. You arrive at an apartment and <<$npcdesc>> introduces you as his bride to two other guys. You sit down at a table set and talk for a couple of hours. Everybody has fun and after everyone finishes eating and drinking, <<$npcdesc>> invites you to dance, to which you gladly agree. <<$npcdesc>> is already pretty drunk and he''s bad at dancing, but still start to grope you, his hands squeezing your buttocks. Soon he runs them under your dress and continues to stroke your ass. He hitches up you skirt so everyone can see your panties. The other guys are sitting on the sofa intently staring at your buttocks. Soon one of them gets up he guys got up from the couch and comes over to you. "You have the best butt I''ve ever seen. I would like to check it out." he says, and slaps you on the buttocks making you jump. <<$npcdesc>> pulls you to him and tells the other guy "Stop that. She''s my girl. You can watch, but you can not touch."'
 	end
 
 	if modelfoto_nude > 30 and proverka1 = 0:
 		'"Calm down. I''ve already seen her naked. The Internet is full of naked pictures of her." the guy says.'
-		'"Is this true?" asks <<$loverdesc[lover_number]>> turning to you.'
+		'"Is this true?" asks <<$npcdesc>> turning to you.'
 		'"Yes, I did some naked photoshoots, but I only ever showed of my body. I never fucked anyone." you say'
 
 		if pcs_intel <= 30:
 			guy += 2
 			picrand = 39
-			loverrelation[lover_number] = 0
-			'"I don''t care! Once everyone has seen you naked you are no better than a whore." With these words he throws you on the sofa. You try to get up to leave, but <<$loverdesc[lover_number]>> stops you, "Where are you going, slut? You think you can just mess around with me and then dump me? Well guys, lets pass this whore around." he says, sititng down on the sofa unbuttoning his pants. "Suck" he shouts while pushing your head down to his dick. Having decided that it is better to not argue with three drunken men you take his dick out of his pants and put it into your mouth. The two other guys join in, one sitting down on the couch next to <<$loverdesc[lover_number]>>. He takes out his member and you grasp it with your hand starting to suck both cocks simultaniously. The second guy undresses you and kneels down using his tongue to lick your pussy. The guy sitting on the couch suddenly starts to hiccup as if he is about to vomit and <<$loverdesc[lover_number]>> shouts at him, "Get out of here, before you make a mess." The guy gets up from the couch and rushes to the toilet, his hands covering his mouth.'
+			npc_rel[$npcID] = 0
+			'"I don''t care! Once everyone has seen you naked you are no better than a whore." With these words he throws you on the sofa. You try to get up to leave, but <<$npcdesc>> stops you, "Where are you going, slut? You think you can just mess around with me and then dump me? Well guys, lets pass this whore around." he says, sititng down on the sofa unbuttoning his pants. "Suck" he shouts while pushing your head down to his dick. Having decided that it is better to not argue with three drunken men you take his dick out of his pants and put it into your mouth. The two other guys join in, one sitting down on the couch next to <<$npcdesc>>. He takes out his member and you grasp it with your hand starting to suck both cocks simultaniously. The second guy undresses you and kneels down using his tongue to lick your pussy. The guy sitting on the couch suddenly starts to hiccup as if he is about to vomit and <<$npcdesc>> shouts at him, "Get out of here, before you make a mess." The guy gets up from the couch and rushes to the toilet, his hands covering his mouth.'
 
-			act 'Further':xgt 'sexdvoe', 'var'
-		elseif pcs_intel > 30:
+			act 'Further': xgt 'sexdvoe', 'var'
+		else
 			proverka1 = 1
-			'You defend yourself for a few minutes trying to tell him, that you didn''t do anything wrong and that his friends are just jealous. In the end, you manage to convince him, and <<$loverdesc[lover_number]>> agrees with you.'
+			'You defend yourself for a few minutes trying to tell him, that you didn''t do anything wrong and that his friends are just jealous. In the end, you manage to convince him, and <<$npcdesc>> agrees with you.'
 
-			act 'Further':gt 'love', 'frends'
+			act 'Further': gt 'love', 'frends2'
 		end
 
 		exit
@@ -139,21 +134,21 @@ gs 'npcgeneratec', 0, '<<$loverdesc[lover_number]>>''s "friend"', rand(18,32)
 	if kavslut > 0 and proverka2 = 0:
 		cla
 		'"I''ve heard that your little <<$pcs_nickname>> doesn''t just wait the tables but also lets herself get fucked by the customers. I''ve even heard some Armenians brag about using her every hole." the boy says'
-		'"Is this true?" asks <<$loverdesc[lover_number]>> turning to you. You can''t think of anything better so you start to cry.'
+		'"Is this true?" asks <<$npcdesc>> turning to you. You can''t think of anything better so you start to cry.'
 		'"Yes, these freaks raped me several times."'
 
 		if pcs_intel <= 50:
 			guy += 2
 			picrand = 39
-			loverrelation[lover_number] = 0
-			'"I don''t care. Someone who says that she got raped several times clearly likes it and invites these situations." With these words he throws you on the sofa. You try to get up to leave, but <<$loverdesc[lover_number]>> stops you, "Where are you going, slut? You think you can just mess around with me and then dump me? Well guys, lets pass this whore around." he says, sititng down on the sofa unbuttoning his pants. "Suck" he shouts while pushing your head down to his dick. Having decided that it is better to not argue with three drunken men you take his dick out of his pants and put it into your mouth. The two other guys join in, one sitting down on the couch next to <<$loverdesc[lover_number]>>. He takes out his member and you grasp it with your hand starting to suck both cocks simultaniously. The second guy undresses you and kneels down using his tongue to lick your pussy. The guy sitting on the couch suddenly starts to hiccup as if he is about to vomit and <<$loverdesc[lover_number]>> shouts at him, "Get out of here, before you make a mess." The guy gets up from the couch and rushes to the toilet, his hands covering his mouth.'
+			npc_rel[$npcID] = 0
+			'"I don''t care. Someone who says that she got raped several times clearly likes it and invites these situations." With these words he throws you on the sofa. You try to get up to leave, but <<$npcdesc>> stops you, "Where are you going, slut? You think you can just mess around with me and then dump me? Well guys, lets pass this whore around." he says, sititng down on the sofa unbuttoning his pants. "Suck" he shouts while pushing your head down to his dick. Having decided that it is better to not argue with three drunken men you take his dick out of his pants and put it into your mouth. The two other guys join in, one sitting down on the couch next to <<$npcdesc>>. He takes out his member and you grasp it with your hand starting to suck both cocks simultaniously. The second guy undresses you and kneels down using his tongue to lick your pussy. The guy sitting on the couch suddenly starts to hiccup as if he is about to vomit and <<$npcdesc>> shouts at him, "Get out of here, before you make a mess." The guy gets up from the couch and rushes to the toilet, his hands covering his mouth.'
 
-			act 'Further':gt 'sexdvoe', 'var'
-		elseif pcs_intel > 50:
+			act 'Further': gt 'sexdvoe', 'var'
+		else
 			proverka2 = 1
-			'You keep crying for a few minutes about the bastards who raped you and in the end, you manage to convince him and <<$loverdesc[lover_number]>> hugs you and says that he will not allow anyone to hurt you again.'
+			'You keep crying for a few minutes about the bastards who raped you and in the end, you manage to convince him and <<$npcdesc>> hugs you and says that he will not allow anyone to hurt you again.'
 
-			act 'Further':gt 'love', 'frends'
+			act 'Further': gt 'love', 'frends2'
 		end
 
 		exit
@@ -162,21 +157,21 @@ gs 'npcgeneratec', 0, '<<$loverdesc[lover_number]>>''s "friend"', rand(18,32)
 	if frot > 3 and proverka3 = 0:
 		cla
 		'"You don''t know who she really is. Everybody knows that this whore lets all the perverts in the subway fuck her in the car right in front of everyone, " says the boy'
-		'"Is this true?" asks <<$loverdesc[lover_number]>> turning to you.'
+		'"Is this true?" asks <<$npcdesc>> turning to you.'
 		'"What do you mean? How can you believe that even for a second?" you yell at him squeezing a tear from you eye.'
 
 		if pcs_intel <= 40:
 			guy += 2
 			picrand = 39
-			loverrelation[lover_number] = 0
-			'"Shout your mouth, you whore! I believe my friends, when they say they it was you." With these words he throws you on the sofa. You try to get up to leave, but <<$loverdesc[lover_number]>> stops you, "Where are you going, slut? You think you can just mess around with me and then dump me? Well guys, lets pass this whore around." he says, sititng down on the sofa unbuttoning his pants. "Suck" he shouts while pushing your head down to his dick. Having decided that it is better to not argue with three drunken men you take his dick out of his pants and put it into your mouth. The two other guys join in, one sitting down on the couch next to <<$loverdesc[lover_number]>>. He takes out his member and you grasp it with your hand starting to suck both cocks simultaniously. The second guy undresses you and kneels down using his tongue to lick your pussy. The guy sitting on the couch suddenly starts to hiccup as if he is about to vomit and <<$loverdesc[lover_number]>> shouts at him, "Get out of here, before you make a mess." The guy gets up from the couch and rushes to the toilet, his hands covering his mouth.'
+			npc_rel[$npcID] = 0
+			'"Shout your mouth, you whore! I believe my friends, when they say they it was you." With these words he throws you on the sofa. You try to get up to leave, but <<$npcdesc>> stops you, "Where are you going, slut? You think you can just mess around with me and then dump me? Well guys, lets pass this whore around." he says, sititng down on the sofa unbuttoning his pants. "Suck" he shouts while pushing your head down to his dick. Having decided that it is better to not argue with three drunken men you take his dick out of his pants and put it into your mouth. The two other guys join in, one sitting down on the couch next to <<$npcdesc>>. He takes out his member and you grasp it with your hand starting to suck both cocks simultaniously. The second guy undresses you and kneels down using his tongue to lick your pussy. The guy sitting on the couch suddenly starts to hiccup as if he is about to vomit and <<$npcdesc>> shouts at him, "Get out of here, before you make a mess." The guy gets up from the couch and rushes to the toilet, his hands covering his mouth.'
 
-			act 'Further':gt 'sexdvoe', 'var'
-		elseif pcs_intel > 40:
+			act 'Further': gt 'sexdvoe', 'var'
+		else
 			proverka3 = 1
-			'Deciding that the best defense is offense, you yell at him for a few minutes. In the end, you manage to convince him and <<$loverdesc[lover_number]>> begins to soothe you saying that he doesn''t blame you, but he had to know.'
+			'Deciding that the best defense is offense, you yell at him for a few minutes. In the end, you manage to convince him and <<$npcdesc>> begins to soothe you saying that he doesn''t blame you, but he had to know.'
 
-			act 'Further':gt 'love', 'frends'
+			act 'Further': gt 'love', 'frends2'
 		end
 
 		exit
@@ -185,21 +180,21 @@ gs 'npcgeneratec', 0, '<<$loverdesc[lover_number]>>''s "friend"', rand(18,32)
 	if gloryhole > 30 and proverka4 = 0:
 		cla
 		'"You know, this slut sucks other men''s cocks in the sex shop.?" the guy asks'
-		'"Is this true?" asks <<$loverdesc[lover_number]>> turning to you.'
+		'"Is this true?" asks <<$npcdesc>> turning to you.'
 		'"How can you believe that I would do that?" you cry. "And you''re a freak! How would you even know, unless you went there yourself?" you start to attack the guy.'
 
 		if pcs_intel <= 60:
 			guy += 2
 			picrand = 39
-			loverrelation[lover_number] = 0
-			'"Shut your mouth, you whore! If my friends say it was you I believe them." With these words he throws you on the sofa. You try to get up to leave, but <<$loverdesc[lover_number]>> stops you, "Where are you going, slut? You think you can just mess around with me and then dump me? Well guys, lets pass this whore around." he says, sititng down on the sofa unbuttoning his pants. "Suck" he shouts while pushing your head down to his dick. Having decided that it is better to not argue with three drunken men you take his dick out of his pants and put it into your mouth. The two other guys join in, one sitting down on the couch next to <<$loverdesc[lover_number]>>. He takes out his member and you grasp it with your hand starting to suck both cocks simultaniously. The second guy undresses you and kneels down using his tongue to lick your pussy. The guy sitting on the couch suddenly starts to hiccup as if he is about to vomit and <<$loverdesc[lover_number]>> shouts at him, "Get out of here, before you make a mess." The guy gets up from the couch and rushes to the toilet, his hands covering his mouth.'
+			npc_rel[$npcID] = 0
+			'"Shut your mouth, you whore! If my friends say it was you I believe them." With these words he throws you on the sofa. You try to get up to leave, but <<$npcdesc>> stops you, "Where are you going, slut? You think you can just mess around with me and then dump me? Well guys, lets pass this whore around." he says, sititng down on the sofa unbuttoning his pants. "Suck" he shouts while pushing your head down to his dick. Having decided that it is better to not argue with three drunken men you take his dick out of his pants and put it into your mouth. The two other guys join in, one sitting down on the couch next to <<$npcdesc>>. He takes out his member and you grasp it with your hand starting to suck both cocks simultaniously. The second guy undresses you and kneels down using his tongue to lick your pussy. The guy sitting on the couch suddenly starts to hiccup as if he is about to vomit and <<$npcdesc>> shouts at him, "Get out of here, before you make a mess." The guy gets up from the couch and rushes to the toilet, his hands covering his mouth.'
 
-			act 'Further':gt 'sexdvoe', 'var'
-		elseif pcs_intel > 60:
+			act 'Further': gt 'sexdvoe', 'var'
+		else
 			proverka4 = 1
-			'Deciding that the best defense is offense, you yell at him for a few minutes. In the end, you manage to convince him and <<$loverdesc[lover_number]>> begins to soothe you saying that he doesn''t blame you, but he had to know.'
+			'Deciding that the best defense is offense, you yell at him for a few minutes. In the end, you manage to convince him and <<$npcdesc>> begins to soothe you saying that he doesn''t blame you, but he had to know.'
 
-			act 'Further':gt 'love', 'frends'
+			act 'Further': gt 'love', 'frends2'
 		end
 
 		exit
@@ -208,42 +203,39 @@ gs 'npcgeneratec', 0, '<<$loverdesc[lover_number]>>''s "friend"', rand(18,32)
 	if film > 2 and proverka5 = 0:
 		cla
 		'"You know this slut has done porn movies?" the guy asks'
-		'"Is this true?" asks <<$loverdesc[lover_number]>> turning to you.'
+		'"Is this true?" asks <<$npcdesc>> turning to you.'
 		'"Yes, but that was long before I met you. It mad some mistakes when I was younger. I had a very difficult time, but I didn''t do this for a long time." you start trying to squeeze out a tear.'
 
-		if pcs_intel <= 70 and izvrat = 0:
+		if pcs_intel <= 70 and npc_pervert[$npcID] = 0:
 			guy += 2
 			picrand = 39
-			loverrelation[lover_number] = 0
-			'"Shout your mouth! Doing porn clearly means you are just another whore." With these words he throws you on the sofa. You try to get up to leave, but <<$loverdesc[lover_number]>> stops you, "Where are you going, slut? You think you can just mess around with me and then dump me? Well guys, lets pass this whore around." he says, sititng down on the sofa unbuttoning his pants. "Suck" he shouts while pushing your head down to his dick. Having decided that it is better to not argue with three drunken men you take his dick out of his pants and put it into your mouth. The two other guys join in, one sitting down on the couch next to <<$loverdesc[lover_number]>>. He takes out his member and you grasp it with your hand starting to suck both cocks simultaniously. The second guy undresses you and kneels down using his tongue to lick your pussy. The guy sitting on the couch suddenly starts to hiccup as if he is about to vomit and <<$loverdesc[lover_number]>> shouts at him, "Get out of here, before you make a mess." The guy gets up from the couch and rushes to the toilet, his hands covering his mouth.'
+			npc_rel[$npcID] = 0
+			'"Shout your mouth! Doing porn clearly means you are just another whore." With these words he throws you on the sofa. You try to get up to leave, but <<$npcdesc>> stops you, "Where are you going, slut? You think you can just mess around with me and then dump me? Well guys, lets pass this whore around." he says, sititng down on the sofa unbuttoning his pants. "Suck" he shouts while pushing your head down to his dick. Having decided that it is better to not argue with three drunken men you take his dick out of his pants and put it into your mouth. The two other guys join in, one sitting down on the couch next to <<$npcdesc>>. He takes out his member and you grasp it with your hand starting to suck both cocks simultaniously. The second guy undresses you and kneels down using his tongue to lick your pussy. The guy sitting on the couch suddenly starts to hiccup as if he is about to vomit and <<$npcdesc>> shouts at him, "Get out of here, before you make a mess." The guy gets up from the couch and rushes to the toilet, his hands covering his mouth.'
 
 			act 'Further':gt 'sexdvoe', 'var'
-		elseif pcs_intel > 70 or izvrat = 1:
+		else
 			proverka5 = 1
-			'You keep explaining that you love him and that you made all these mistakes before you met him. In the end, you manage to convince him and <<$loverdesc[lover_number]>> hugs you and whispers in your ear "I guess you still remeber a couple of tricks... I would like you to show them to me later."'
+			'You keep explaining that you love him and that you made all these mistakes before you met him. In the end, you manage to convince him and <<$npcdesc>> hugs you and whispers in your ear "I guess you still remeber a couple of tricks... I would like you to show them to me later."'
 
-			act 'Further':gt 'love', 'frends'
+			act 'Further': gt 'love', 'frends2'
 		end
 
 		exit
 	end
 
-	loverlove[lover_number] = 2
-	'"Okay, it''s time to go, <<$pcs_nickname>>." says <<$loverdesc[lover_number]>>. You head for the exit.'
-	act 'Leave':gt 'city_residential'
+	npc_love[$npcID] = 2
+	'"Okay, it''s time to go, <<$pcs_nickname>>." says <<$npcdesc>>. You head for the exit.'
+
+	act 'Leave': gt 'city_residential'
 end
 
 if $ARGS[0] = '2':
-	cla
-	*clr
+	*clr & cla
 	'(Further actions are available.)'
 	!! if some writer would volunteer...
-	loverlove[lover_number] = 2
+	npc_love[$npcID] = 2
 
-	act 'To invite':
-		cla
-		gt 'sexm', 'room'
-	end
+	act 'To invite': gt 'sexm', 'room'
 end
 
 --- love ---------------------------------

locations/lover.qsrc

@@ -1,225 +1,128 @@
 # lover
 
 if $ARGS[0] = 'add':
-	if mid($boy,1,1) = 'C': gs 'npcpreservec', $boy & gs 'boyStat', $npclastsaved
-	i = arrsize('pcs_lovers')
-	$lover[i] = $boy									& !boyStat: = $npclastcalled
-	$loverdesc[i] = $boydesc							& !boystat (new)
-	loverbodyrand[i] = boybodyrand						& !boy/girl
-	$loverbody[i] = $boybody							& !boy/girl
-	loverbodrand[i] = boybodrand						& !boy/girl
-	$loverbod[i] = $boybod								& !boy/girl
-	loverfacerand[i] = boyfacerand						& !boy/girl
-	$loverface[i] = $boyface							& !boy/girl
-	loverdick[i] = npc_dick[$boy]
-	$loverdick_girth[i] = $npc_thdick[$boy]
-	loversilaVag[i] = npc_sexskill[$boy]
-	loverfinance[i] = npc_finance[$boy]
-	vneshlover[i] = npc_apprnc[$boy] / 3
-	$loverClo[i] = $boyClo								& !boy/girl
-	figurlover[i] = figurBoy							& !boy/girl
-	titlover[i] = npc_bust[$boy]
-	hairlover[i] = npc_haircol[$boy]
-	haraklover[i] = harakBoy							& !boy/girl
-	loverday[i] = daystart
-	loverrelation[i] = 3
-	loverdays[i] = 0
-	boyonce[i] = 0
-	loverizvrat[i] = izvrat								& !boy/girl
-	giftDay[i] = 0
-	giftNum[i] = 0
-	loverlove[i] = 0
-	loverscompliance[i] = 0
-	lover_picture[i] = lover_picrand[$boy]
-	meethour[i] = 0
-	svidanie[i] = 0
-	meetday[i] = 0
-
-	!!new preferences
-	clotTypePref[i] = clotTypePrefTmp					& !boy/girl
-	clotQualPref[i] = clotQualPrefTmp					& !boy/girl
-	clotTopPref[i] = clotTopPrefTmp						& !boy/girl
-	bottShorPref[i] = bottShorPrefTmp					& !boy/girl
-	clotThinPref[i] = clotThinPrefTmp					& !boy/girl
-	bimbPref[i] = bimbPrefTmp							& !boy/girl
-	pierPref[i] = pierPrefTmp							& !boy/girl
-	tattPref[i] = tattPrefTmp							& !boy/girl
-	lipsPref[i] = lipsPrefTmp							& !boy/girl
-	bodyPref[i] = bodyPrefTmp							& !boy/girl
-	makePref[i] = makePrefTmp							& !boy/girl
-	IQPref[i] = IQPrefTmp								& !boy/girl
-	loverGender[i] = npc_gender[$boy]
-
-	!! making sure lover has pronouns
-	gs 'pronouns', loverGender[i], 0
-	$loverXe[i] = $xe[0]
-	$loverXec[i] = $xec[0]
-	$loverXem[i] = $xem[0]
-	$loverXemc[i] = $xemc[0]
-	$loverXyr[i] = $xyr[0]
-	$loverXyrc[i] = $xyrc[0]
-	$loverXyrs[i] = $xyrs[0]
-	$loverXyrsc[i] = $xyrsc[0]
-	$loverXemself[i] = $xemself[0]
-	$loverXemselfc[i] = $xemselfc[0]
-
-	pcs_lovers[i] = 1
-	!!pcs_lover +=1
-	stat['total_lovers_current'] += 1
-	$pcs_lover_arr[] = $boy
-	if loverGender[i] = 1:
-		stat['girlfriends_current'] += 1
+	if mid($ARGS[1], 1, 1) = 'C':
+		gs 'npcpreservec', $npcID
+		gs 'npcStat', $npclastsaved
 	else
-		stat['boyfriends_current'] += 1
+		gs 'npcStat', $ARGS[1]
 	end
 
-	gs 'telefon', 'AddContact', $boy, $npc_pic[$boy], 0
+	$lover[] = $npcID
+	gs 'telefon', 'AddContact', $npcID, $npc_icon[$npcID], 0
 end
 
 if $ARGS[0] = 'remove':
-	i = ARGS[1]
-
-	gs 'telefon', 'DeleteContact', $lover[i]
-
-	killvar '$lover', i
-	killvar '$loverdesc', i
-	killvar 'loverbodyrand', i
-	killvar '$loverbody', i
-	killvar 'loverbodrand', i
-	killvar '$loverbod', i
-	killvar 'loverfacerand', i
-	killvar '$loverface', i
-	killvar 'loverdick', i
-	killvar '$loverdick_girth', i
-	killvar 'loversilaVag', i
-	killvar 'loverfinance', i
-	killvar 'vneshlover', i
-	killvar '$loverClo', i
-	killvar 'figurlover', i
-	killvar 'titlover', i
-	killvar 'hairlover', i
-	killvar 'haraklover', i
-	killvar 'loverday', i
-	killvar 'loverrelation', i
-	killvar 'loverdays', i
-	killvar 'boyonce', i
-	killvar 'loverizvrat', i
-	killvar 'giftDay', i
-	killvar 'giftNum', i
-	killvar 'loverlove', i
-	killvar 'loverscompliance', i
-	killvar 'lover_picture', i
-	killvar 'meethour', i
-	killvar 'svidanie', i
-	killvar 'meetday', i
-	if npc_gender[$lover[i]] = 1:
-		stat['girlfriends_current'] -= 1
-		stat['ex_girlfriends'] += 1
-	else
-		stat['boyfriends_current'] -= 1
-		stat['ex_boyfriends'] += 1
-	end
-	killvar 'loverGender', i
-
-	!!new preferences
-	killvar 'clotTypePref', i
-	killvar 'clotQualPref', i
-	killvar 'clotTopPref', i
-	killvar 'bottShorPref', i
-	killvar 'clotThinPref', i
-	killvar 'bimbPref', i
-	killvar 'pierPref', i
-	killvar 'tattPref', i
-	killvar 'lipsPref', i
-	killvar 'bodyPref', i
-	killvar 'makePref', i
-	killvar 'IQPref', i
-
-	killvar '$loverXe', i
-	killvar '$loverXec', i
-	killvar '$loverXem', i
-	killvar '$loverXemc', i
-	killvar '$loverXyr', i
-	killvar '$loverXyrc', i
-	killvar '$loverXyrs', i
-	killvar '$loverXyrsc', i
-	killvar '$loverXemself', i
-	killvar '$loverXemselfc', i
-
-	killvar 'pcs_lovers', i
-	pcs_lover -=1
+	lover_index = arrpos('$lover', $ARGS[1])
+	if lover_index < 0: exit
 
+	$npc_rel_type[$ARGS[1]] = 'ex-' + $npc_rel_type[$ARGS[1]]
+	gs 'telefon', 'ClearCallSchedule', $ARGS[1]
+	gs 'telefon', 'ClearSMSSchedule', $ARGS[1]
 end
 
-if $ARGS[0] = 'add_fuckbuddy':
-	if mid($ARGS[1],1,1) = 'C':
-		gs 'npcpreservec', $ARGS[1]
-		gs 'boyStat', $npclastsaved
-	else
-		gs 'boyStat',$ARGS[1]
-	end
-	! Do not add when he has already been added.
-	if arrpos('$fuckbuddy',$boy) = -1:
-		$fuckbuddy[] = $boy
-		$npc_rel_type[$boy] = 'fuckbuddy'
-		gs 'telefon', 'AddContact', $boy, $npc_pic[$boy], 0
-	end
+
+
+if $ARGS[0] = 'add_boyfriend':
+	gs 'lover', 'add', $ARGS[1]
+	gs 'telefon', 'SetCallSchedule', $npcID, "gt 'lover_call', 'callingTheLover', '<<$temp_npcid>>'", "hour > 6 and hour < 20", "", "0"
+	$npc_rel_type[$npcID] = 'boyfriend'
+	stat['boyfriends_current'] += 1
+	stat['total_lovers_current'] += 1
+
+elseif $ARGS[0] = 'add_girlfriend':
+	gs 'lover', 'add', $ARGS[1]
+	gs 'telefon', 'SetCallSchedule', $npcID, "gt 'lover_call', 'callingTheLover', '<<$temp_npcid>>'", "hour > 6 and hour < 20", "", "0"
+	$npc_rel_type[$npcID] = 'girlfriend'
+	stat['girlfriends_current'] += 1
+	stat['total_lovers_current'] += 1
+
+elseif $ARGS[0] = 'add_fuckbuddy':
+	gs 'lover', 'add', $ARGS[1]
+	$npc_rel_type[$boy] = 'fuckbuddy'
+	stat['fuckbuddies_current'] += 1
+	stat['total_lovers_current'] += 1
+
+elseif $ARGS[0] = 'add_sugar_daddy':
+	gs 'lover', 'add', $ARGS[1]
+	$npc_rel_type[$boy] = 'sugar_daddy'
+	stat['sugardaddies_current'] += 1
+	stat['total_lovers_current'] += 1
+
 end
 
-if $ARGS[0] = 'add_sugar_daddy':
-	if mid($ARGS[1],1,1) = 'C' :
-		gs 'npcpreservec', $ARGS[1]
-		gs 'boyStat', $npclastsaved
-	else
-		gs 'boyStat',$ARGS[1]
-	end
-	! Do not add when he has already been added.
-	if arrpos('$sugar_daddy',$boy) = -1:
-		$sugar_daddy[] = $boy
-		$npc_rel_type[$boy] = 'sugar_daddy'
-		gs 'telefon', 'AddContact', $boy, $npc_pic[$boy], 0
-	end
+
+if $ARGS[0] = 'remove_boyfriend':
+	gs 'lover', 'remove', $ARGS[1]
+	stat['boyfriends_current'] -= 1
+	stat['total_lovers_current'] -= 1
+	stat['ex_boyfriends'] += 1
+
+elseif $ARGS[0] = 'remove_girlfriend':
+	gs 'lover', 'remove', $ARGS[1]
+	stat['girlfriends_current'] -= 1
+	stat['total_lovers_current'] -= 1
+	stat['ex_girlfriends'] += 1
+
+elseif $ARGS[0] = 'remove_fuckbuddy':
+	gs 'lover', 'remove', $ARGS[1]
+	stat['fuckbuddies_current'] -= 1
+	stat['total_lovers_current'] -= 1
+	stat['ex_fuckbuddies'] += 1
+
+elseif $ARGS[0] = 'remove_sugar_daddy':
+	gs 'lover', 'remove', $ARGS[1]
+	stat['sugardaddies_current'] -= 1
+	stat['total_lovers_current'] -= 1
+	stat['ex_sugardaddies'] += 1
+
 end
 
-if $ARGS[0] = 'remove_fuckbuddy':
-	gs 'telefon', 'DeleteContact', $ARGS[1]
-	$ex_fuckbuddy[] = $ARGS[1]
-	$npc_rel_type[$ARGS[1]] = 'ex_fuckbuddy'
-	killvar '$fuckbuddy', arrpos('$fuckbuddy',$ARGS[1])
+! $ARGS[1+]: npc_rel_types that you want to include
+if $ARGS[0] = 'draw_random_from':
+	lover_i = 0
+	lover_max_i = arrsize('$lover')
+	:draw_from_lover_loop
+		$lover_temp_npcID = $lover[lover_i]
+		if arrpos('$ARGS', $npc_rel_type[$lover_temp_npcID]) > 0:
+			$lover_temp_lovers[] = $lover_temp_npcID
+		end
+		lover_i += 1
+	if lover_i < lover_max_i: jump 'draw_from_lover_loop'
+
+	lover_temp_index = rand(0, arrsize('$lover_temp_npcID')-1)
+	$result = $lover_temp_lovers[lover_temp_index]
+
+	killvar '$lover_temp_npcID'
+	killvar '$lover_temp_lovers'
+	killvar 'lover_temp_index'
 end
 
 
-if $ARGS[0] = 'remove_sugar_daddy':
-	gs 'telefon', 'DeleteContact', $ARGS[1]
-	npc_sugar_daddy_price[$ARGS[1]] = 0
-	$ex_sugar_daddy[] = $ARGS[1]
-	$npc_rel_type[$ARGS[1]] = 'ex_sugar_daddy'
-	killvar '$sugar_daddy', arrpos('$sugar_daddy',$ARGS[1])
-end
+
 
 if $ARGS[0] = 'clear_all':
 	! CLEAR LOVERS
+	! THIS IS A NUCLEAR OPTION!
+
 	:clear_lovers_loop
-	if arrsize('pcs_lovers') > 0:
-		gs 'lover', 'remove', 0
+	if arrsize('$lover') > 0:
+		if $npc_rel_type[$lover[0]] = 'boyfriend':
+			gs 'lover', 'remove_boyfriend', $lover[0]
+		elseif $npc_rel_type[$lover[0]] = 'girlfriend':
+			gs 'lover', 'remove_girlfriend', $lover[0]
+		elseif $npc_rel_type[$lover[0]] = 'fuckbuddy':
+			gs 'lover', 'remove_fuckbuddy', $lover[0]
+		elseif $npc_rel_type[$lover[0]] = 'sugar_daddy':
+			gs 'lover', 'remove_sugar_daddy', $lover[0]
+		elseif $npc_rel_type[$lover[0]] = 'husband':
+			gs 'lover', 'remove_husband', $lover[0]
+			gs 'lover_love', 'divorce'
+
+		end
 		jump 'clear_lovers_loop'
 	end
-
-	! CLEAR FUCKBUDDIES
-	:clear_fb_loop
-	if arrsize('$fuckbuddy') > 0:
-		gs 'lover', 'remove_fuckbuddy', $fuckbuddy[0]
-		jump 'clear_fb_loop'
-	end
-
-	! CLEAR SUGAR DADIES
-	:clear_sd_loop
-	if arrsize('$sugar_daddy') > 0:
-		gs 'lover', 'remove_sugar_daddy', $sugar_daddy[0]
-		jump 'clear_sd_loop'
-	end
 end
 
 
-
 --- lover ---------------------------------

locations/lover_call.qsrc

@@ -0,0 +1,939 @@
+# lover_call
+
+if $ARGS[0] = 'scheduler':
+	if arrsize('$lover') > 0:
+		ts_temp_i = 0
+		ts_temp_max_i = arrsize('$lover')
+		:loverloop2
+			$temp_npcid = $lover[ts_temp_i]
+			if $npc_rel_type[$temp_npcid] = 'boyfriend' or $npc_rel_type[$temp_npcid] = 'girlfriend':
+				if rand(0, 1) = 1:
+					gs 'telefon', 'SetCallSchedule', $temp_npcid, "gt 'lover_call', 'callingTheLover', '<<$temp_npcid>>'", "npc_meetday['<<$temp_npcid>>'] < <<daystart>> and hour >= 7 and hour <= 19", "gs 'lover_call', 'lover', '<<$temp_npcid>>'", "hour >= 6 and hour <= 19"
+				else
+					gs 'telefon', 'SetCallSchedule', $temp_npcid, "gt 'lover_call', 'callingTheLover', '<<$temp_npcid>>'", "npc_meetday['<<$temp_npcid>>'] < <<daystart>> and hour >= 7 and hour <= 19", "", "0"
+				end
+			end
+			ts_temp_i += 1
+		if ts_temp_i < ts_temp_max_i: jump 'loverloop2'
+		killvar 'ts_temp_i'
+		killvar 'ts_temp_max_i'
+	end
+end
+
+
+
+
+
+if $ARGS[0] = 'telotkaz':
+	cla
+	minut += 10
+	'<<$ARGS[1]>>, "Sorry, I''m busy right now, maybe next time."'
+
+	act 'Hangup': gt 'lover_call', 'fin'
+end &! --- telotkaz ---
+
+
+if $ARGS[0] = 'fin':
+	killvar 'Call4Date'
+
+	gt $loc, $loc_arg
+end
+
+
+
+if $ARGS[0] = 'mobilaraz':
+	*clr & cla
+	gs 'din_bad'
+	$caller = $telsob
+	gs 'telefon','phone_balance'
+	gs 'telefon','phone_call_receive'
+	willAgree = (rand(0, 10) > 3)
+
+
+	'"Yes, I''m listening," says a voice from the speaker.'
+
+	if month > 5 and temper > 20 and sunWeather = 1:
+		act 'Invite to the park':
+			cla
+			'"Let''s go for a walk in the park."'
+
+			if willAgree:
+				'<<$telsob>>, "See you in the park in an hour."'
+
+				act 'Go':
+					if $clothingworntype = 'nude':
+						gs 'clothing', 'wear_last_worn'
+						gs 'underwear', 'wear'
+					end
+					gt 'parksvid'
+				end
+			else
+				gs 'lover_call', 'telotkaz', $telsob
+			end
+		end
+	end
+
+	act 'Invite to a movie':
+		cla
+		'"Want to go see a movie?"'
+
+		if willAgree:
+			'<<$telsob>>, "See you at the movie theater in an hour."'
+			act 'Go': gt 'kinosvid'
+		else
+			gs 'lover_call', 'telotkaz', $telsob
+		end
+	end
+
+	act 'Invite to the pool hall':
+		cla
+		'"Let''s play pool."'
+
+		if willAgree:
+			'<<$telsob>>, "See you at the pool hall in an hour."'
+
+			act 'Go':
+				if $clothingworntype = 'nude':
+					gs 'clothing', 'wear_last_worn'
+					gs 'underwear', 'wear'
+				end
+				gt 'billsvid'
+			end
+		else
+			gs 'lover_call', 'telotkaz', $telsob
+		end
+	end
+
+	act 'Invite to the cafe':
+		cla
+		'"Let''s go to the cafe."'
+
+		if willAgree:
+			'<<$telsob>>, "See you at the cafe in an hour."'
+
+			act 'Go':
+				if $clothingworntype = 'nude':
+					gs 'clothing', 'wear_last_worn'
+					gs 'underwear', 'wear'
+				end
+				gt 'kafesvid'
+			end
+		else
+			gs 'lover_call', 'telotkaz', $telsob
+		end
+	end
+
+	act 'Invite to the casino':
+		cla
+		'"Let''s go to the casino."'
+
+		if willAgree:
+			'<<$telsob>>, "See you in the casino in an hour."'
+
+			act 'Go':
+				if $clothingworntype = 'nude':
+					gs 'clothing', 'wear_last_worn'
+					gs 'underwear', 'wear'
+				end
+				gt 'kazinosvid'
+			end
+		else
+			gs 'lover_call', 'telotkaz', $telsob
+		end
+	end
+
+	act 'Hangup': gt 'lover_call', 'fin'
+end
+
+
+
+
+
+
+
+
+if $ARGS[0] = 'init_Call4Date_lover':
+	$Call4Date["NPC"] = $ARGS[1]
+	$Call4Date["CallerName"] = $npc_usedname[$Call4Date["NPC"]]
+
+	!! These variables are setup for certain downstream functions
+	$caller = $Call4Date["CallerName"]
+	$callerid = $npc_pic[$Call4Date["NPC"]]
+	$telsob = $caller
+end
+
+
+!-----------------------------------------------------------------------------
+! Support for Hardcoded Lovers (BF/GF)
+
+if $ARGS[0] = 'callingTheLover':
+	*clr & cla
+	menu_off = 1
+	gs 'din_bad'
+	gs 'stat'
+	gs 'lover_call', 'init_Call4Date_lover', $ARGS[1]
+
+	gs 'telefon','phone_balance'
+	gs 'telefon','phone_call_receive'
+
+	if npc_gender[$ARGS[1]] = 1 or npc_gender[$ARGS[1]] = 2:
+		xgt 'lover_call', 'callingTheLover_f'
+	elseif npc_gender[$ARGS[1]] = 0 or npc_gender[$ARGS[1]] = 3:
+		xgt 'lover_call', 'callingTheLover_m'
+	end
+end
+
+if $ARGS[0] = 'callingTheLover_f':
+	Call4Date["willAgree"] = (rand(0, 10) > 3)
+
+	'"Yes, I''m listening," says a voice from the speaker.'
+
+	if month > 5 and temper > 20 and sunWeather = 1:
+		act 'Invite to the park':
+			cla
+			'"Let''s go for a walk in the park."'
+
+			if Call4Date["willAgree"]:
+				'<<$telsob>>, "See you in the park in an hour."'
+
+				act 'Go':
+					if $clothingworntype = 'nude':
+						gs 'clothing', 'wear_last_worn'
+						gs 'underwear', 'wear'
+					end
+					gt 'parksvid'
+				end
+			else
+				gs 'lover_call', 'telotkaz', $telsob
+			end
+		end
+	end
+
+	act 'Invite to a movie':
+		cla
+		'"Want to go see a movie?"'
+
+		if Call4Date["willAgree"]:
+			'<<$telsob>>, "See you at the movie theater in an hour."'
+			act 'Go':
+				if $clothingworntype = 'nude':
+					gs 'clothing', 'wear_last_worn'
+					gs 'underwear', 'wear'
+				end
+				gt 'kinosvid'
+			end
+		else
+			gs 'lover_call', 'telotkaz', $telsob
+		end
+	end
+
+	if $home['town'] = 'city':
+		act 'Invite to the pool hall':
+			cla
+			'"Let''s play pool."'
+
+			if Call4Date["willAgree"]:
+				'<<$telsob>>, "See you at the pool hall in an hour."'
+
+				act 'Go':
+					if $clothingworntype = 'nude':
+						gs 'clothing', 'wear_last_worn'
+						gs 'underwear', 'wear'
+					end
+					gt 'billsvid'
+				end
+			else
+				gs 'lover_call', 'telotkaz', $telsob
+			end
+		end
+	end
+
+	act 'Invite to the cafe':
+		cla
+		'"Let''s go to the cafe."'
+
+		if Call4Date["willAgree"]:
+			'<<$telsob>>, "See you at the cafe in an hour."'
+
+			act 'Go':
+				if $clothingworntype = 'nude':
+					gs 'clothing', 'wear_last_worn'
+					gs 'underwear', 'wear'
+				end
+				gt 'kafesvid'
+			end
+		else
+			gs 'lover_call', 'telotkaz', $telsob
+		end
+	end
+
+	act 'Invite to the casino':
+		cla
+		'"Let''s go to the casino."'
+
+		if Call4Date["willAgree"]:
+			'<<$telsob>>, "See you in the casino in an hour."'
+
+			act 'Go':
+				if $clothingworntype = 'nude':
+					gs 'clothing','wear_last_worn'
+					gs 'underwear','wear'
+				end
+				gt 'kazinosvid'
+			end
+		else
+			gs 'lover_call', 'telotkaz', $telsob
+		end
+	end
+
+	act 'I think we should break up...':
+		cla
+		'She sounds hurt, but you insist it is for the best. You both say goodbye and part ways.'
+		gs 'lover', 'remove_girlfriend', $Call4Date["NPC"]
+
+		act 'Hangup': gt 'lover_call', 'fin'
+	end
+
+	act 'Hangup': gt 'lover_call', 'fin'
+end
+
+if $ARGS[0] = 'callingTheLover_m':
+	Call4Date["willAgree"] = (rand(0, 10) > 3)
+
+	'"Yes, I''m listening," says a voice from the speaker.'
+
+	if month > 5 and temper > 20 and sunWeather = 1:
+		act 'Invite to the park':
+			cla
+			'"Let''s go for a walk in the park."'
+
+			if Call4Date["willAgree"]:
+				'<<$caller>>, "See you in the park in an hour."'
+
+				act 'Go':
+					if $clothingworntype = 'nude':
+						gs 'clothing','wear_last_worn'
+						gs 'underwear','wear'
+					end
+					gs 'npcStat', $Call4Date["NPC"]
+					gt 'svidboy', 'parksvid'
+				end
+			else
+				gs 'lover_call', 'telotkaz', $caller
+			end
+		end
+	end
+
+	act 'Invite to a movie':
+		cla
+		'"Want to go see a movie?"'
+
+		if Call4Date["willAgree"]:
+			'<<$caller>>, "See you at the movie theater in an hour."'
+
+			act 'Go':
+				if $clothingworntype = 'nude':
+					gs 'clothing','wear_last_worn'
+					gs 'underwear','wear'
+				end
+				gs 'npcStat', $Call4Date["NPC"]
+				gt 'svidboy', 'kinosvid'
+			end
+		else
+			gs 'lover_call', 'telotkaz', $caller
+		end
+	end
+
+	if $home['town'] = 'city':
+		act 'Invite to the pool hall':
+			cla
+			'"Let''s play pool."'
+
+			if Call4Date["willAgree"]:
+				'<<$caller>>, "See you at the pool hall in an hour."'
+
+				act 'Go':
+					if $clothingworntype = 'nude':
+						gs 'clothing','wear_last_worn'
+						gs 'underwear','wear'
+					end
+					gs 'npcStat', $Call4Date["NPC"]
+					gt 'svidboy', 'billsvid'
+				end
+
+			else
+				gs 'lover_call', 'telotkaz', $caller
+			end
+		end
+	end
+
+	act 'Invite to the cafe':
+		cla
+		'"Let''s go to the cafe."'
+
+		if Call4Date["willAgree"]:
+			'<<$caller>>, "See you at the cafe in an hour."'
+
+			act 'Go':
+				if $clothingworntype = 'nude':
+					gs 'clothing','wear_last_worn'
+					gs 'underwear','wear'
+				end
+				gs 'npcStat', $Call4Date["NPC"]
+				gt 'svidboy', 'kafesvid'
+			end
+		else
+			gs 'lover_call', 'telotkaz', $caller
+		end
+	end
+
+	act 'I think we should break up...':
+		cla
+		'He sounds hurt, but you insist it is for the best. You both say goodbye and part ways.'
+		gs 'lover', 'remove_boyfriend', $Call4Date["NPC"]
+
+		act 'Hangup':gt 'lover_call', 'fin'
+	end
+
+	act 'Hangup':gt 'lover_call', 'fin'
+end
+
+
+if $ARGS[0] = 'lover':
+	*clr & cla
+	menu_off = 1
+	gs 'stat'
+	gs 'lover_call', 'init_Call4Date_lover', $ARGS[1]
+	ring = 0
+	Call4Date['lover_days'] = daystart - npc_eventday[$Call4Date["NPC"]]
+	gs 'stat'
+	gs 'telefon', 'phone_call_receive'
+	gs 'telefon', 'SetCallSchedule', $Call4Date["NPC"], "gt 'lover_call', 'callingTheLover', '<<$temp_npcid>>'", "npc_meetday['<<$temp_npcid>>'] < <<daystart>> and hour >= 7 and hour <= 19", "", "0"
+
+
+	if npc_gender[$ARGS[1]] = 0 or npc_gender[$ARGS[1]] = 3:
+		xgt 'lover_call', 'lover_m'
+	elseif npc_gender[$ARGS[1]] = 1 or npc_gender[$ARGS[1]] = 2:
+		xgt 'lover_call', 'lover_f'
+	end
+end
+
+if $ARGS[0] = 'lover_m':
+	$DateNickName[0] = 'cutie'
+	$DateNickName[1] = 'honey'
+	$DateNickName[2] = 'sweetie'
+	$DateNickName[3] = 'baby'
+	$DateNickName[4] = 'hot stuff'
+	$DateNickName[5] = '<<$pcs_nickname>>'
+	$Call4Date["SvetaName"] = $DateNickName[rand(0, arrsize('$DateNickName')-1)]
+	killvar '$DateNickName'
+
+	'Hey <<$Call4Date["SvetaName"]>>, it''s me, <<$caller>>. How''s it going?'
+
+	act 'Reply':
+		cla
+		'"Pretty good, you?"'
+		'<<$caller>>, "Great, but I kind of miss you, can we meet today?"'
+
+
+		if knowpreg = 1 and pregtalk = 0:
+			if (pregchem / 24) > Call4Date['lover_days']:
+				act 'Honey, you will soon become a dad':
+					cla
+					npc_rel[$Call4Date["NPC"]] = 0
+					'"Honey, I''m pregnant with your child."'
+					'<<$caller>>, "How the fuck did I manage that? Unless I own a time-machine and went back to before we met and fucked you, it''s someone else''s, go and tell him. I don''t want to see you again, goodbye."'
+
+					act 'Hang up.': gt 'lover_call', 'fin'
+				end
+			else
+				act 'Tell him he''s going to be a dad':
+					cla
+					pregtalk = 1
+					'"Honey, I''m pregnant with your child."'
+
+					if npc_gentle[$Call4Date["NPC"]] = 1:
+
+						if npc_rel[$Call4Date["NPC"]] < 85:
+							money += 20000
+							'<<$caller>> "I''m not yet ready to become a dad. I''ll give you the money for an abortion. Get rid of the child.'
+
+							act 'Hang up': gt 'lover_call', 'fin'
+						else
+							npc_love[$Call4Date["NPC"]] = 1
+
+							'<<$caller>>, "This is wonderful! We have to celebrate!"'
+							'You start talking about living together. <<$caller>> tells you that he is not against it on principle, but first he wants you to meet his parents.'
+							'He warns you that his mother is very demanding and rigorous. <<$caller>> says that he loves his mother and does not want to upset her. Therefore, you must look gorgeous, wear a dress from a boutique, and have well-groomed and curled hair and makeup in moderation.'
+							'When you are totally ready <<$caller>> will take you to his parents.'
+
+							act 'Hang up': gt 'lover_call', 'fin'
+
+							act 'Meet tonight':
+								cla
+								'"How about this evening?"'
+								'<<$caller>>, "Sounds great! When can I come to pick you up?"'
+
+								act 'Pick a time':
+									cla
+									npc_meetday[$call4Date['NPC']] = daystart
+									npc_meethour[$call4Date['NPC']] = input ("When do you want to be picked up? It is now <<func('time', 'get_time_string', hour, minut)>>. [Enter the hour only 0 - 20]")
+									if npc_meethour[$call4Date['NPC']] <= hour or npc_meethour[$call4Date['NPC']] > 23: npc_meethour[$call4Date['NPC']] = 20
+									'"How about <<temp_hour>>:00?"'
+									'<<$caller>>, "Okay <<$Call4Date["SvetaName"]>>, see you at <<npc_meethour[$call4Date[''NPC'']]>>:00."'
+
+									act 'Hang up': gt 'lover_call', 'fin'
+								end
+							end
+						end
+					elseif npc_rough[$Call4Date["NPC"]] = 0:
+						money += 20000
+						'<<$caller>> "I''m not yet ready to become a dad. I''ll give you the money get an abortion.'
+
+						act 'Hang up': gt 'lover_call', 'fin'
+					else
+						pregtalk = 0
+						'<<$caller>>, "What? You whore! Someone fucked your pussy, and now you drop it on me. You''re dumped.'
+						gs 'lover', 'remove_boyfriend', $Call4Date["NPC"]
+
+						act 'Hang up': gt 'lover_call', 'fin'
+					end
+				end
+			end
+		elseif week > 1 and week < 5 and workKafe['job'] = 1:
+			act 'Sorry, I''m working today':
+				cla
+				'"Sorry, I''m working today."'
+				'<<$caller>>, "Okay, I''ll call tomorrow."'
+
+				act 'Hang up': gt 'lover_call', 'fin'
+			end
+		end
+
+		act 'Tonight':
+			cla
+			npc_rel[$Call4Date["NPC"]] += rand(0, 1)
+			'"How about this evening?"'
+			'<<$caller>>, "Sounds great! When can I come to pick you up?"'
+
+			act 'Pick a time':
+				cla
+				npc_meetday[$call4Date['NPC']] = daystart
+				npc_meethour[$call4Date['NPC']] = input ("When do you want to be picked up. It is now <<func('time', 'get_time_string', hour, minut)>>. [Enter the hour only 0 - 20]")
+				if npc_meethour[$call4Date['NPC']] <= hour or npc_meethour[$call4Date['NPC']] > 23: npc_meethour[$call4Date['NPC']] = 20
+
+				'"How about <<npc_meethour[$call4Date[''NPC'']]>>:00?."'
+				'<<$caller>>, "Okay <<$Call4Date["SvetaName"]>>, see you at <<npc_meethour[$call4Date[''NPC'']]>>:00."'
+
+				act 'Hang up': gt 'lover_call', 'fin'
+			end
+		end
+
+		act 'Maybe tomorrow':
+			cla
+			npc_rel[$Call4Date["NPC"]] -= rand(0, 1)
+			'"I''m busy today. Call tomorrow."'
+
+			if npc_rel[$Call4Date["NPC"]] <= 0:
+				'<<$caller>>, Are you fucking me, you know what. Suck my dick.'
+				gs 'lover', 'remove_boyfriend', $Call4Date["NPC"]
+			else
+				'(<<$caller>>) -  Okay, I''ll call tomorrow.'
+			end
+
+			act 'Hang up': gt 'lover_call', 'fin'
+		end
+
+		act 'I think we should break up...':
+			cla
+			'He sounds hurt, but you insist it is for the best. You both say goodbye and part ways.'
+			gs 'lover', 'remove_boyfriend', $Call4Date["NPC"]
+
+			act 'Hang up': gt 'lover_call', 'fin'
+		end
+	end
+
+	act 'Hang up (end relationship)':
+		cla
+		gs 'lover', 'remove_boyfriend', $Call4Date["NPC"]
+		gt 'lover_call', 'fin'
+	end
+end
+
+if $ARGS[0] = 'lover_f':
+	$DateNickName[0] = 'cutie'
+	$DateNickName[1] = 'honey'
+	$DateNickName[2] = 'sweetie'
+	$DateNickName[3] = 'baby'
+	$DateNickName[4] = 'hot stuff'
+	$DateNickName[5] = '<<$pcs_nickname>>'
+	$Call4Date["SvetaName"] = $DateNickName[rand(0, arrsize('$DateNickName')-1)]
+	killvar '$DateNickName'
+
+	'Hey <<$Call4Date["SvetaName"]>>, it''s me, <<$caller>>. How''s it going?'
+
+	act 'Reply':
+		cla
+		'"Pretty good, you?"'
+		'<<$caller>>, "Great, but I kind of miss you, can we meet today?"'
+
+
+		act 'Tonight':
+			cla
+			npc_rel[$Call4Date["NPC"]] += rand(0, 1)
+			'"How about this evening?"'
+			'<<$caller>>, "Sounds great! When can I come to pick you up?"'
+
+			act 'Pick a time':
+				cla
+				npc_meetday[$call4Date['NPC']] = daystart
+				npc_meethour[$call4Date['NPC']] = input ("When do you want to be picked up. It is now <<func('time', 'get_time_string', hour, minut)>>. [Enter the hour only 0 - 20]")
+				if npc_meethour[$call4Date['NPC']] <= hour or npc_meethour[$call4Date['NPC']] > 23: npc_meethour[$call4Date['NPC']] = 20
+
+				'"How about <<npc_meethour[$call4Date[''NPC'']]>>:00?."'
+				'<<$caller>>, "Okay <<$Call4Date["SvetaName"]>>, see you at <<npc_meethour[$call4Date[''NPC'']]>>:00."'
+
+				act 'Hang up': gt 'lover_call', 'fin'
+			end
+		end
+
+		act 'Maybe tomorrow':
+			cla
+			npc_rel[$Call4Date["NPC"]] -= rand(0, 1)
+			'"I''m busy today. Call tomorrow."'
+
+			if npc_rel[$Call4Date["NPC"]] <= 20:
+				'<<$caller>>, Are you fucking me, you know what. Fuck off.'
+				gs 'lover', 'remove_girlfriend', $Call4Date["NPC"]
+			else
+				'(<<$caller>>) -  Okay, I''ll call tomorrow.'
+			end
+			act 'Hang up': gt 'lover_call', 'fin'
+		end
+
+		act 'I think we should break up...':
+			cla
+			'She sounds hurt, but you insist it is for the best. You both say goodbye and part ways.'
+			gs 'lover', 'remove_girlfriend', $Call4Date["NPC"]
+
+			act 'Hang up': gt 'lover_call', 'fin'
+		end
+	end
+
+	act 'Hang up (end relationship)':
+		cla
+		gs 'lover', 'remove_girlfriend', $Call4Date["NPC"]
+		gt 'lover_call', 'fin'
+	end
+end
+!---------------------- End of Lover support
+
+
+!!-----------------------------------EVENTS------------------------------------------
+! Generic Calls for dates
+
+
+!!	ARGS[1] = contactlist index
+if $ARGS[0] = 'init_Call4Date':
+	Call4Date["ContactIndex"] = ARGS[1]
+	$Call4Date["NPC"] = $contact[Call4Date['ContactIndex']]
+	$Call4Date["CallerName"] = $npc_nickname[$Call4Date["NPC"]]
+
+	if npc_gender[$Call4Date["NPC"]] = 0:
+		$Call4Date["NPC-he"] = 'he'
+		$Call4Date["NPC-He"] = 'He'
+		$Call4Date["NPC-his"] = 'his'
+		$Call4Date["NPC-His"] = 'His'
+	else
+		$Call4Date["NPC-he"] = 'her'
+		$Call4Date["NPC-He"] = 'Her'
+		$Call4Date["NPC-his"] = 'hers'
+		$Call4Date["NPC-His"] = 'Hers'
+	end
+
+	!! These variables are setup for certain downstream functions
+	$caller = $Call4Date["CallerName"]
+	$callerid = $contactIcon[Call4Date["ContactIndex"]]
+end
+
+
+
+!! NPC Date
+!!	ARGS[1] = contactlist index
+!!	$ARGS[2] = Date Location
+if $ARGS[0] = 'NPCDate':
+	gs 'lover_call', 'init_Call4Date', ARGS[1]
+	$Call4Date["Location"] = $ARGS[2]
+
+	gs 'npcStat', $Call4Date["NPC"]
+
+	pcs_mood += 10
+	npc_rel[$Call4Date["NPC"]] += rand(1, 2)
+
+	$Call4Date['leave'] = 'killvar ''Call4Date'' & '
+	if npc_gender[$Call4Date["NPC"]] = 0:
+		if $Call4Date["Location"] = 'city_park':
+			$Call4Date['leave'] += 'gt ''dateM'', ''datepark'' '
+		elseif $Call4Date["Location"] = 'bar':
+			$Call4Date['leave'] += 'gt ''dateM'', ''datebar'' '
+		elseif $Call4Date["Location"] = 'movie':
+			$Call4Date['leave'] += 'gt ''dateM'', ''datecinema'' '
+		elseif $Call4Date["Location"] = 'cafe':
+			$Call4Date['leave'] += 'gt ''dateM'', ''datecafe'' '
+		else
+			!!Saveguard
+			$Call4Date['leave'] += 'gt ''dateM'', ''datepark'' '
+		end
+	else
+		if $Call4Date["Location"] = 'city_park':
+			$Call4Date['leave'] += 'gt ''dateF'', ''datepark'' '
+		elseif $Call4Date["Location"] = 'bar':
+			$Call4Date['leave'] += 'gt ''dateF'', ''datebar'' '
+		elseif $Call4Date["Location"] = 'movie':
+			!Not implemented yet
+			!$Call4Date['leave'] += 'gt ''dateF'', ''datecinema'' '
+		elseif $Call4Date["Location"] = 'cafe':
+			!Not implemented yet
+			!$Call4Date['leave'] += 'gt ''dateF'', ''datecafe'' '
+		else
+			!!Saveguard
+			$Call4Date['leave'] += 'gt ''dateF'', ''datepark'' '
+		end
+	end
+	dynamic $Call4Date['leave']
+end
+
+!! Sveta Calls the NPC
+!!	ARGS[1] = contactlist index
+if $ARGS[0] = 'SvetaCallsNPC':
+	*clr & cla
+	gs 'lover_call', 'init_Call4Date', ARGS[1]
+
+	gs 'telefon', 'phone_balance'
+	gs 'telefon', 'phone_call_receive'
+
+	Call4Date["willAgree"] = (rand(0, 10) > 3)
+	$Call4Date['leave'] = 'killvar ''Call4Date'' & '
+
+
+	'"Yes, I''m listening," says a voice from the speaker.'
+
+	act 'Ask to meet':
+		cla
+		'"Let''s meet up."'
+
+		act 'Continue':
+			$Call4Date['leave'] += 'gt ''lover_call'', ''NPCCallsForDate'', <<Call4Date["ContactIndex"]>>'
+			dynamic $Call4Date['leave']
+		end
+	end
+
+	if month > 5 and temper > 20 and sunWeather = 1:
+		act 'Invite to the park':
+			cla
+			'"Let''s go for a walk in the park."'
+
+			if Call4Date["willAgree"]:
+				'<<$Call4Date["CallerName"]>>, "See you in the park in an hour."'
+
+				act 'Go':
+					$Call4Date['leave'] += 'gt ''lover_call'', ''NPCDate'', <<Call4Date["ContactIndex"]>>, ''city_park'' '
+					dynamic $Call4Date['leave']
+				end
+			else
+				$Call4Date['leave'] += 'gs ''lover_call'', ''telotkaz'', ''<<$Call4Date["CallerName"]>>'' '
+				dynamic $Call4Date['leave']
+			end
+		end
+	end
+
+	act 'Invite to a movie':
+		cla
+		'"Want to go see a movie?"'
+
+		if Call4Date["willAgree"]:
+			'<<$Call4Date["CallerName"]>>, "See you at the movie theater in an hour."'
+
+			act 'Go':
+				$Call4Date['leave'] += 'gt ''lover_call'', ''NPCDate'', <<Call4Date["ContactIndex"]>>, ''movie'' '
+				dynamic $Call4Date['leave']
+			end
+		else
+			$Call4Date['leave'] += 'gs ''lover_call'', ''telotkaz'', ''<<$Call4Date["CallerName"]>>'' '
+			dynamic $Call4Date['leave']
+		end
+	end
+
+	if $home['town'] = 'city':
+		act 'Invite to the bar':
+			cla
+			'"Let''s go to the bar."'
+
+			if Call4Date["willAgree"]:
+				'<<$Call4Date["CallerName"]>>, "See you at the bar in an hour."'
+
+				act 'Go':
+					$Call4Date['leave'] += 'gt ''lover_call'', ''NPCDate'', <<Call4Date["ContactIndex"]>>, ''bar'' '
+					dynamic $Call4Date['leave']
+				end
+			else
+				$Call4Date['leave'] += 'gs ''lover_call'', ''telotkaz'', ''<<$Call4Date["CallerName"]>>'' '
+				dynamic $Call4Date['leave']
+			end
+		end
+	end
+
+	act 'Invite to the cafe':
+		cla
+		'"Let''s go to the cafe."'
+
+		if Call4Date["willAgree"]:
+			'<<$Call4Date["CallerName"]>>, "See you at the cafe in an hour."'
+
+			act 'Go':
+				$Call4Date['leave'] += 'gt ''lover_call'', ''NPCDate'', <<Call4Date["ContactIndex"]>>, ''cafe'' '
+				dynamic $Call4Date['leave']
+			end
+		else
+			$Call4Date['leave'] += 'gs ''lover_call'', ''telotkaz'', ''<<$Call4Date["CallerName"]>>'' '
+			dynamic $Call4Date['leave']
+		end
+	end
+
+	!!Willpower checks for resistance
+	if npc_rel[$Call4Date["NPC"]] <= 50:
+		$Call4Date["loverResist"] = 'easy'
+	elseif npc_rel[$Call4Date["NPC"]] <= 65:
+		$Call4Date["loverResist"] = 'medium'
+	else
+		$Call4Date["loverResist"] = 'hard'
+	end
+
+
+	gs 'willpower', 'misc', 'self', $Call4Date["loverResist"]
+	if pcs_willpwr < will_cost:
+		act 'I think we should break up... (<font color="red"><<will_cost>> Willpower</font>)':
+			'<br><font color="red">You don''t have enough willpower to use this action.</font>'
+		end
+	else
+		act 'I think we should break up... (<<will_cost>> Willpower)':
+			*clr & cla
+			gs 'willpower', 'pay', 'self'
+			gs 'stat'
+
+			'<<$Call4Date["NPC-He"]>> sounds hurt, but you insist it is for the best. You both say goodbye and part ways.'
+			gs 'telefon', 'DeleteContact', $Call4Date["NPC"]
+
+			act 'Hang up': gt 'lover_call', 'fin'
+		end
+	end
+
+	act 'Hangup': gt 'lover_call', 'fin'
+end
+
+!! NPC Calls Sveta for a Date
+!!	ARGS[1] = $contact index number
+if $ARGS[0] = 'NPCCallsForDate':
+	*clr & cla
+	gs 'lover_call', 'init_Call4Date', ARGS[1]
+
+	!!Pick a nickname that caller will use for Sveta
+	$DateNickName[0] = 'cutie'
+	$DateNickName[1] = 'honey'
+	$DateNickName[2] = 'sweetie'
+	$DateNickName[3] = 'baby'
+	$DateNickName[4] = 'hot stuff'
+	$DateNickName[5] = '<<$pcs_nickname>>'
+	$Call4Date['SvetaName'] = $DateNickName[rand(0, arrsize('$DateNickName')-1)]
+	killvar '$DateNickName'
+
+	$Call4Date['leave'] = 'killvar ''Call4Date'' & '
+
+
+	'Hey <<$Call4Date["SvetaName"]>>, it''s me, <<$Call4Date["CallerName"]>>. How''s it going?'
+
+	act 'Answer':
+		cla
+		'"Pretty good, you?"'
+		'<<$Call4Date["CallerName"]>>, "Great, but I kind of miss you, can we meet today?"'
+		if week > 1 and week < 5 and workKafe['job'] = 1:
+			act 'Sorry, I''m working today':
+				cla
+				'"Sorry, I''m working today."'
+				'<<$Call4Date["CallerName"]>>, "Okay, I''ll call tomorrow."'
+
+				act 'Hang up': gt 'lover_call', 'fin'
+			end
+		end
+
+		act 'Tonight':
+			cla
+			npc_rel[$Call4Date["NPC"]] += rand(0, 1)
+			'"How about this evening?"'
+			'<<$Call4Date["CallerName"]>>, "Sounds great! When can I come to pick you up?"'
+
+			act 'Pick a time':
+				cla
+				npc_meetday[$call4Date['NPC']] = daystart
+				npc_meethour[$call4Date['NPC']] = input ("When do you want to be picked up. It is now <<func('time', 'get_time_string', hour, minut)>>. [Enter the hour only 0 - 20]")
+				if npc_meethour[$call4Date['NPC']] <= hour or npc_meethour[$call4Date['NPC']] > 23: npc_meethour[$call4Date['NPC']] = 20
+
+				'"How about <<npc_meethour[$call4Date[''NPC'']]>>:00?."'
+				'<<$Call4Date["CallerName"]>>, "Okay <<$Call4Date["SvetaName"]>>, see you at <<npc_meethour[$call4Date[''NPC'']]>>:00."'
+
+				act 'Hang up': gt 'lover_call', 'fin'
+			end
+		end
+
+		act 'Maybe tomorrow':
+			cla
+			npc_rel[$Call4Date["NPC"]] -= rand(0, 1)
+			'"I''m busy today. Call tomorrow."'
+
+			if npc_rel[$Call4Date["NPC"]] <= 20:
+				'<<$Call4Date["CallerName"]>>, Are you fucking me, you know what. Suck my dick.'
+				gs 'telefon', 'DeleteContact', $Call4Date["NPC"]
+			else
+				'(<<$Call4Date["CallerName"]>>) -  Okay, I''ll call tomorrow.'
+			end
+
+			act 'Hang up': gt 'lover_call', 'fin'
+		end
+
+		!!Willpower checks for resistance
+		if npc_rel[$Call4Date["NPC"]] <= 50:
+			$Call4Date["loverResist"] = 'easy'
+		elseif npc_rel[$Call4Date["NPC"]] <= 65:
+			$Call4Date["loverResist"] = 'medium'
+		else
+			$Call4Date["loverResist"] = 'hard'
+		end
+		gs 'willpower', 'misc', 'self', $Call4Date["loverResist"]
+
+		if pcs_willpwr < will_cost:
+			act 'I think we should break up... (<font color="red"><<will_cost>> Willpower</font>)':
+				'<br><font color="red">You don''t have enough willpower to use this action.</font>'
+			end
+		else
+			act 'I think we should break up... (<<will_cost>> Willpower)':
+				*clr & cla
+				gs 'willpower', 'pay', 'self'
+				gs 'stat'
+
+				'<<$Call4Date["NPC-He"]>> sounds hurt, but you insist it is for the best. You both say goodbye and part ways.'
+				gs 'telefon', 'DeleteContact', $Call4Date["NPC"]
+
+				act 'Hang up': gt 'lover_call', 'fin'
+			end
+		end
+
+	end
+
+	act 'Hang up (end relationship)':
+		gs 'telefon', 'DeleteContact', $Call4Date["NPC"]
+		gt 'lover_call', 'fin'
+	end
+end
+
+
+--- lover_call ----------------------------------

locations/lover_living.qsrc

@@ -0,0 +1,444 @@
+# lover_living
+
+if $husID = '': exit
+
+
+if $ARGS[0] = 'bedr':
+	if $boy ! $husID: gs 'boyStat', $husID
+
+	if spouseVars['drunk_day'] = daystart:
+		if spouseVars['hus_strapon'] = 1:
+			if rand(0, 1) = 0:
+				'Your husband is still passed out drunk after you used an anal plug on him.'
+			else
+				'Your husband is still passed out drunk after you used an anal plug on him.'
+			end
+		elseif spouseVars['hus_strapon'] = 2:
+			if rand(0, 1) = 0:
+				'Your husband is still passed out drunk after you stuck a dildo in his ass.'
+			else
+				'Your husband is still passed out drunk after you stuck a dildo in his ass.'
+			end
+		elseif spouseVars['hus_strapon'] = 3:
+			if rand(0, 1) = 0:
+				'Your husband is still passed out drunk after you fucked him in the ass with a strap-on.'
+			else
+				'Your husband is still passed out drunk after you fucked him in the ass with a strap-on.'
+			end
+		end
+		gs 'music_actions', 'no_music'
+	end
+
+	if spouseVars['drink'] ! 10 and spouseVars['drunk_day'] ! daystart:
+		if hour > 22 or hour < 7:
+			'Your <a href="exec: gt ''husb'', ''start''">husband</a> is sleeping on the bed.'
+		end
+		gs 'music_actions', 'no_music'
+	end
+
+	if spouseVars['drink'] = 10 and hour > 20 and hour < 23 and spouseVars['hus_strapon'] = 0:
+		if rand(0, 1) = 0:
+			'<<$boydesc>> came home very drunk and collapsed on the bed. He fell asleep in his clothes.'
+		else
+			'<<$boydesc>> came home drunk and fell asleep on the bed.'
+		end
+		'<i>That pig</i>! you think when an idea springs to mind. <i>Maybe I should teach him a lesson so he won''t get drunk again</i>.'
+
+		if mc_inventory['buttplug'] = 1:
+			act iif(rand(0, 1) = 0, 'Insert an anal plug', 'Insert a butt plug in his ass'):
+				*clr & cla
+				menu_off = 1
+				spouseVars['drunk_day'] = daystart
+				spouseVars['drink'] = 11
+				spouseVars['hus_strapon'] = 1
+				minut += 10
+				'<center><img <<$set_imgh>> src="images/characters/city/husband/sex/h0.jpg"></center>'
+				if analplugin = 0:
+					'You take an anal plug and put it into his ass.'
+				else
+					analplugIN = 0
+					analplugout = 0
+					if rand(0, 1) = 0:
+						'You get your butt plug out and pull down his pants. You put just a dab of lube on the tip of the plug, then gently insert it into his ass.'
+					else
+						'You pull the plug out of you and shove it up his ass.'
+					end
+				end
+				'<<$boydesc>> moves, but he doesn''t wake up.'
+
+
+
+				if mc_inventory['dildo_small'] > 0:
+					act iif(rand(0, 1) = 0, 'Insert dildo', 'Insert a dildo into his ass'):
+						*clr & cla
+						menu_off = 1
+						spouseVars['hus_strapon'] = 2
+						gs 'cum_call', 'mouth_swallow', $boy, 1
+						'<center><img <<$set_imgh>> src="images/characters/city/husband/sex/h1.jpg"></center>'
+						if rand(0, 1) = 0:
+							'You pull out the plug and replace it with a dildo. <<$boydesc>> doesn''t even budge as you slowly move the dildo in and out, trying not to wake him up. You notice his cock starts to get rock-hard, and he starts to moan softly in his sleep. His dick starts to throb like he''s going to cum. You take his dick in your mouth and don''t need to suck on it for long. You swallow his cum before carefully putting his underpants back on.'
+						else
+							'You pull out the plug and stick the dildo up his ass instead, <<$boydesc>> did not move. You began to slowly move the dildo trying not to wake him. After a bit, his dick begins to get hard in front of your face, and <<$boydesc>> moaned softly, but didn''t wake up. You start to really work the dildo in his ass, stroking it deep in his ass, before too long his cock started to throb. You wrap your lips around his cock, you barely even started to suck his dick when suddenly your mouth is filled with a jet of sperm, you swallow it all and carefully cleaned his penis, then you pulled his pants back up.'
+						end
+						gs 'arousal', 'bj', 20
+						gs 'arousal', 'anal_dildo_give', -20
+						gs 'arousal', 'end'
+						gs 'stat'
+
+						act 'Finish': gt $loc, $loc_arg
+					end
+				end
+
+				if mc_inventory['strapon'] > 0:
+					act iif(rand(0, 1) = 0, 'Use the strap-on', 'Wear strap-on'):
+						*clr & cla
+						menu_off = 1
+						minut += 20
+						spouseVars['hus_strapon'] = 3
+						gs 'cum_call', 'mouth_swallow', $boy, 1
+						pcs_horny += 30
+						'<center><img <<$set_imgh>> src="images/characters/city/husband/sex/h2.jpg"></center>'
+						'You put on the strapon and pull out the butt plug. You gently move the shaft of the strap-on inside his ass and <<$boydesc>> moves, but doesn''t wake up. You continue to slowly move it in and out, trying not to wake him. You notice his cock is getting rock-hard and he starts to moan softly in his sleep. Hoping that he won''t wake up, you increase your speed and push the entire length of the strap-on into his ass as you start to stroke his dick. Realizing he''s not far from cumming, you pull out and finish him by giving him a blowjob. He cums in your mouth and you swallow before carefully putting his underpants back on.'
+						gs 'arousal', 'bj', 20
+						gs 'arousal', 'anal_strap_give', -20
+						gs 'arousal', 'end'
+						gs 'stat'
+
+						act 'Finish': gt $loc, $loc_arg
+					end
+				end
+
+				act 'Finish': gt $loc, $loc_arg
+			end
+		end
+	end
+
+	if spouseVars['drink'] = 11 and spouseVars['hus_strapon'] > 0 and spouseVars['drunk_day'] ! daystart:
+		cla
+
+		if rand(0, 1) = 0:
+			'Your husband approaches you. "Honey, my ass hurts. Did something happen yesterday?"'
+		else
+			'Your husband approaches you. "Honey, my ass hurts. Like a lot. Do you know why?"'
+		end
+
+		act 'Lie':
+			cla
+			menu_off = 1
+			spouseVars['hus_strapon'] = 0
+			gs 'stat'
+
+			if rand(0, 1) = 0:
+				'"Not that I know of, though you were in the bathroom a lot," you say with an innocent look on your face before he shrugs his shoulders and walks away.'
+			else
+				'"No dear, I don''t know anything about that," you answer, trying to look as innocent as possible before he shrugs and walks away.'
+			end
+			act 'Finish': gt $loc, $loc_arg
+		end
+
+		act 'Confess':
+			cla
+			menu_off = 1
+			gs 'stat'
+
+			if spouseVars['hus_strapon'] = 1:
+				if rand(0, 1) = 0:
+					'"You got so drunk yesterday that I decided to teach you a lesson and put a plug in your ass."'
+				else
+					'"Honey, you were so drunk last night that I decided to teach you a lesson and put a butt plug up your ass."'
+				end
+			elseif spouseVars['hus_strapon'] = 2:
+				if rand(0, 1) = 0:
+					'"I wanted to give you a pleasant surprise and started to give you a blowjob, but you wouldn''t cum no matter how much I tried, so I put a finger in your ass, but again you failed to cum. That''s when I put the dildo in your ass and you shot your load. Forgive me, but I just wanted to get you off."'
+				else
+					'"I wanted to make you happy, so I started to give you a blowjob, but you didn''t cum, so I inserted a finger into your asshole. When you still didn''t cum, I took a small dildo and some lube and put in it your ass; I''ve never seen you cum like that before. I even gave you a second blowjob. Forgive me, but you seemed to enjoy it so much that I could''t stop. I just wanted to make you happy," you lie to him.'
+				end
+			elseif spouseVars['hus_strapon'] = 3:
+				if rand(0, 1) = 0:
+					'"I wanted to give you a pleasant surprise and started to give you a blowjob, but you wouldn''t cum no matter how much I tried, so I put a finger in your ass, but again you failed to cum. That''s when I put in a second finger and you started moving your ass up and down, fucking my fingers as you moaned in pleasure. Since you seemed to be liking it so much and asked for more, I put on my strap-on and fucked you with it while I was jerking you off. I just wanted you to be happy, even if you don''t remember. Please forgive me!"'
+				else
+					'"I wanted to make you happy, so I started to give you a blowjob, but you didn''t cum, so I inserted a finger into your asshole. When you still didn''t cum, I put in a second finger you began to move your ass towards my fingers, moaning heavily. I thought that you liked it, so I put on a strap-on. You enjoyed it so much that you finished over and over again, and I continued until I was tired. I then licked all the cum off your body and went to sleep. I just wanted to make you happy and you were enjoying it," you lie to him.'
+				end
+			end
+
+			if npc_gentle[$boy] = 1:
+				if spouseVars['hus_strapon'] = 1:
+					if rand(0, 1) = 0:
+						'"I''m sorry. I won''t get that drunk again," he says before leaving the room.'
+					else
+						'"I''m sorry. I won''t get that drunk again," he says and leaves the room.'
+					end
+				elseif spouseVars['hus_strapon'] = 2:
+					spouseVars['pervert_add'] += 1
+					if rand(0, 1) = 0:
+						'"You''re such a caring woman. Instead of scolding me for being drunk, you suck me off. Thank you, dear," he says before leaving the room.'
+					else
+						'"You''re so thoughtful. Instead of scolding me, you still wanted to make me happy. Thank you, dear," he says and leaves the room.'
+					end
+				elseif spouseVars['hus_strapon'] = 3:
+					spouseVars['pervert_add'] += 1
+					if rand(0, 1) = 0:
+						'"I really liked it?" he asks and you nod. "Well then, thank you dear, but ask for my consent next time," he says before leaving the room.'
+					else
+						'"Did I really like it?" he asks and you nod.'
+						'"Well then, thank you dear. Ask me next time though," he says and leaves the room.'
+					end
+				end
+			elseif npc_rough[$boy] = 0:
+				if spouseVars['hus_strapon'] = 1:
+					if rand(0, 1) = 0:
+						'"Just don''t do that anymore," is all he says before leaving the room.'
+					else
+						'"Don''t do that again!" he snarls and storms off.'
+					end
+				elseif spouseVars['hus_strapon'] = 2:
+					spouseVars['pervert_add'] += 1
+					if rand(0, 1) = 0:
+						'"Don''t ever do that again. I''m a man and <i>I</i> do the fucking!" he says before leaving the room.'
+					else
+						'"Don''t do that again! I''m a man and I''m not supposed to get fucked in the ass!" he snarls and storms off.'
+					end
+				elseif spouseVars['hus_strapon'] = 3:
+					if pcs_intel > 40 or npc_pervert[$boy] = 1:
+						spouseVars['gentle_add'] += 1
+						if rand(0, 1) = 0:
+							'"Are you really trying to tell me that I asked you to fuck me with a strap-on, bitch?" he bellows. When you start crying and lamenting that you only wanted to please him, he looks at you and exhales. "Fine, fine, I believe you. I believe you wanted to pleasure me and make me happy, but never do that again."'
+						else
+							'"Are you serious?! I''m not some kind of bitch that wants to get fucked up the ass!" he yells at you. You start to cry and say that you only wanted to please him and he looks at you and sighs. "Don''t cry, sweetie. I believe you, just don''t do it again."'
+						end
+					elseif pcs_intel <= 40:
+						gs 'lover_love', 'divorce'
+						fingal += 1
+						minut += 120
+
+						'The next thing you feel is a powerful slap to the face. When you come back to your senses, your husband and his things are gone. He left a note telling you he''s going to file for divorce.'
+					end
+				end
+			else
+				gs 'lover_love', 'divorce'
+				fingal += 1
+				minut += 120
+				gs 'stat'
+
+				'The next thing you feel is a powerful slap to the face. When you come back to your senses, your husband and his things are gone. He left a note telling you he''s going to file for divorce.'
+			end
+
+			act 'Finish': spouseVars['hus_strapon'] = 0 & gt $loc, $loc_arg
+		end
+	end
+end
+
+
+if $ARGS[0] = 'kitchen':
+	if spouseVars['drink'] ! 10:
+		if hour = 7 or hour = 17:'<a href="exec:gt ''husb'', ''start''">Your husband is eating at the table.</a>'
+	end
+
+	if spouseVars['eat_day'] ! daystart:
+		if mc_inventory['food_basic'] < 2:
+			*nl
+			'<b><font color="red">You need to buy some food so you can cook for your husband and yourself.</font><b>'
+		else
+			act 'Cook a meal for your husband and yourself (1:00)':
+				*clr & cla
+				menu_off = 1
+				minut += 60
+				npc_rel[$husID] += 5
+				mc_inventory['food_basic'] -= 2
+				spouseVars['eat_day'] = daystart
+				pcs_mood -= 25
+				gs 'stat'
+
+				'<center><img <<$set_imgh>> src="images/shared/home/kitchen/cook.jpg"></center>'
+				'You prepare a meal for your husband and yourself.'
+
+				act 'Leave the meal': gt $loc, $loc_arg
+			end
+		end
+	end
+end
+
+if $ARGS[0] = 'livingroom':
+	if spouseVars['drink'] ! 10 and spouseVars['drunk_day'] ! daystart:
+		if (week >= 6 and hour > 7 and hour < 17) or (hour > 17 and hour <= 22):
+			'Your <a href="exec:gt ''husb'', ''start''">husband</a> is sitting on the couch, watching television.'
+			gs 'music_actions', 'not_alone'
+		end
+	end
+	if spouseVars['drunk_day'] = daystart and hour >= 20 and hour <= 23: gs 'music_actions', 'no_music'
+end
+
+
+
+if $ARGS[0] = 'santehnik':
+	sexpartkno = 1
+	gs 'npcStat', $HusID
+	gs 'npcStat', 'A53', 'a'
+
+	if spouseVars['drink'] ! 10:
+		*clr & cla
+		minut += 20
+		'<center><img <<$set_imgh>> src="images/locations/city/residential/apartment/sex/s7.jpg"></center>'
+		'You tell your husband about the leak and he makes a phone call. After 20 minutes, a plumber arrives.'
+		'Your husband walks him to the kitchen and the two of you began to observe his actions, you are sick of hearing about how the plumber hates cheap Chinese fittings and what people pushed into the sink, and you decided to wait in the living room.'
+
+		act 'Leave':
+			*clr & cla
+			gs 'stat'
+			'<center><img <<$set_imgh>> src="images/locations/city/residential/apartment/sex/s8.jpg"></center>'
+			'You go into the room and sit on the couch, soon your husband comes in and sits down beside you. With one hand on your breast, he runs his other hand down under your panties and begins to massage your clitoris.'
+			'"What are you doing? What if the plumber comes in?"'
+			'"He''ll be another hour poking around." he answers, "Come on, quick blow job."'
+			'"OK, lets." you say, now excited, it really looks like his hand has done its job.'
+
+			gs 'arousal', 'foreplay', 10, 'sub'
+			gs 'stat'
+			act 'Start':
+				*clr & cla
+				'<center><img <<$set_imgh>> src="images/locations/city/residential/apartment/sex/s9.jpg"></center>'
+				'The husband stands up and pulls from his unbuttoned pants his member, you drop to your knees and his cock is in your mouth, right then the plumber enters, "I''m finished." he says and freezes, seeing this picture.'
+
+				gs 'arousal', 'bj', 10, 'sub'
+				gs 'stat'
+
+				if npc_pervert[$boy] = 0:
+					'Your husband tries to remove his member from your mouth'
+
+					if pcs_horny < 80:
+						act 'Stop':
+							cla
+							'Your husband quickly hides his dick in his pants and with the plumber goes out into the corridor'
+							gs 'arousal', 'end'
+							gs 'stat'
+							act 'Leave':gt 'sitr'
+						end
+					end
+
+					act 'Do not stop':
+						cla
+						'You grabbed your husbands hips and continued to work your mouth, he jerks a couple of times trying to free himself, but you can not stop and just swallow his cock even deeper. When he stops twitching you bring one hand to your crotch and with just a couple of motions bring yourself to orgasm.'
+						'But the excitement does not recede, you want even more, and the watching plumber just arouses you. You can not control yourself.'
+
+						$orgasm_or = 'yes'
+						gs 'arousal', 'bj', 10, 'sub'
+						gs 'stat'
+						act 'Ride your husband':
+							*clr & cla
+							gs 'cum_manage'
+							suprdolg += 1
+							npc_rel[$boy] += 1
+							spouseVars['pervert_add'] += 1
+							'<center><img <<$set_imgh>> src="images/locations/city/residential/apartment/sex/s12.jpg"></center>'
+							'You release your husband''s member from your mouth and quickly push him to sit on the couch, then jump on top of him, quickly planting his dick in your pussy. You ride it like crazy, ignoring the plumber, still stood in the doorway, watching you. When you are again close to orgasm you feel as sperm gushes into you'
+							'It take a few movements from his twitching cock, but you also reach orgasm, uttering a cry you limp and fall from your husband. He leaves you still quaking, pulls up his pants and walks out with the plumber to the hallway.'
+
+							$orgasm_or = 'yes'
+							gs 'arousal', 'vaginal', 10, 'sub'
+							gs 'arousal', 'end'
+							gs 'stat'
+
+							act 'Leave':gt 'sitr'
+						end
+					end
+				else
+					'Your husband did not even try to stop you'
+
+					if pcs_horny < 80:
+						act 'Stop':
+							cla
+							if npc_rough[$boy] = 0:
+								'You release your husband''s member from your mouth and he quickly pulls up his pants and with the plumber goes out into the corridor'
+								act 'Leave':gt 'sitr'
+							else
+								guy += 1
+								'You tried to spit the member from your mouth, but your husband grabs hold of your head and he starts to fuck you in the mouth, talking with shocked plumber, "We''re a little busy, at the moment, it''s her feeding time." he laughes, "How much do I owe you?" He continues.'
+								'"Fifteen hundred." Manages the plumber.'
+								'"Well, with those prices can agree that if you feed her too, we consider it paid?" He asks.'
+								'"I do not know, a blowjob would earn a discount, but if she can do us both, then yes." replied the plumber.'
+								'"You know how to bargain." Says your husband, "Okay agreed." He adds, almost without thinking. Knowing the character of your husband you know that your peril has been decided.'
+
+								act 'Serve both': picrand = 43 & gt 'sexdvoe', 'var'
+							end
+						end
+					end
+
+					act 'Do not stop':
+						cla
+						'You continued to suck ignoring the watching plumber.'
+
+						if npc_gentle[$boy] = 1:
+							'Your husband tries not to look at the plumber, obviously embarrassed, but he does not hesitate to follow your every move.'
+						elseif npc_rough[$boy] = 0:
+							'Your husband stands savoring the process without paying attention to the plumber.'
+						else
+							'Your husband chats with the plumber does not hesitate to turn slightly so that it is easier for him to see.'
+						end
+
+						gs 'arousal', 'bj', 10, 'sub'
+						gs 'stat'
+
+						act 'Continue':
+							cla
+							gs 'cum_call', 'mouth_swallow', $boy, 1
+							suprdolg += 1
+							npc_rel[$boy] += 1
+							pcs_horny += 20
+							'You continue to blow your husband, and soon a stream of hot liquid squirts into your mouth, swallowing the sperm you lick the remnants of semen from his penis. Your husband puts his cleaned dick in his pants and walks out into the hallway with the plumber. And you are left sitting on the floor, exhausted from desire.'
+
+							gs 'arousal', 'end'
+							gs 'stat'
+
+							act 'Leave': gt 'sitr'
+						end
+
+						if pcs_horny > 70:
+							act 'Suggest a threesome':
+								cla
+								if npc_gentle[$boy] = 1:
+									*clr
+									spouseVars['houseslut'] += 1
+									npc_rel[$boy] += 2
+									'<center><img <<$set_imgh>> src="images/locations/city/residential/apartment/sex/s11.jpg"></center>'
+									'You break away from the penis, and a whisper to your husband if he wants to try a threesome.'
+									'Your husband is a little shocked by the idea, what would convince him? In a loud voice you continue, "Let him lick me while I caress you."'
+									'The plumber tenses, waiting for the reaction of your husband, "Well, if only licking you, then let him." Says your husband. The plumber does not need persuading, your husband sits on the sofa, and you get on your knees and stick out your ass as the plumbers tongue penetrates your pussy.'
+									'At first your husband keeps glancing in his direction, but soon relaxes and finally when the guy starts to finger your hole with a vengance, he says nothing, you decide that he is no longer against you sharing with others.'
+
+									gs 'arousal', 'cuni', 10, 'sub', 'group'
+									gs 'arousal', 'vaginal_finger', -10, 'sub', 'group'
+									gs 'stat'
+
+									act 'Serve both':picrand = 43 & gt 'sexdvoe', 'var'
+								elseif npc_rough[$boy] = 0:
+									npc_rel[$boy] -= 5
+									'You break away from the penis, and a whisper to your husband if he wants to try a threesome.'
+									'"You think I should share you, my wife with the plumber? Cool that foolish pussy, you must think with your head." shouts your husband and returning his member to his pants goes out of the room with the plumber.'
+
+									act 'Leave': gt 'sitr'
+								else
+									*clr
+									spouseVars['houseslut'] += 1
+									npc_rel[$boy] += 2
+									'<center><img <<$set_imgh>> src="images/locations/city/residential/apartment/sex/s10.jpg"></center>'
+									'You break away from the penis, and a whisper to your husband if he wants to try a threesome.'
+									'"It''s not for nothing that they say all women are whores, hey man this whore wants to do both of us, but then the repair is free of charge." Says your husband. The plumber does need a second invite, he quickly approachs and pulls out his dick.'
+									'Bringing it to your face, you cling to him and start to suck both cocks alternately, your husband stands carefully watching your actions "You like sucking fresh meat, but do not forget about me, and this boys and mine you swallow deeper and deeper."'
+
+									gs 'arousal', 'bj', 10, 'sub', 'group'
+									gs 'stat'
+
+									act 'Serve both': picrand = 43 & gt 'sexdvoe', 'var'
+								end
+							end
+						end
+					end
+				end
+			end
+		end
+	end
+end
+
+
+
+
+--- lover_living ----------------------------------

locations/lover_love.qsrc

@@ -1,80 +1,111 @@
 # lover_love
 
-if loverlove[lover_number] = 3:
-	'<<$loverdesc[lover_number]>> has hired a wedding limousine and it''s outside waiting for you. This is it, you are getting married today.'
+if $ARGS[0] = '':
+	if npc_love[$npcID] = 3:
+		'<<$npcdesc>> has hired a wedding limousine and it''s outside waiting for you. This is it, you are getting married today.'
 
-	act 'Sit in the limousine':
-		cla
-		'You get into the limo, and it drives off. Soon you arrive at the wedding, <<$loverdesc[lover_number]>> is waiting for you as you walk down the aisle.'
-
-		act 'Marry husband':
+		act 'Sit in the limousine':
 			cla
-			minut += 60
-			husband = 100
-			husbanday = 0
-			$husID = $lover[lover_number]
-			$husName = $loverdesc[lover_number]
-			$husHair = $loverface[lover_number]
-			$husBody = $loverbod[lover_number]
-			$husFat = $loverbod[lover_number]
-			husDick = loverdick[lover_number]
-			harakHusb = haraklover[lover_number]
-			izvratH = loverizvrat[lover_number]
-			silavagH = loversilaVag[lover_number]
-			husbFin = loverfinance[lover_number]
-			husbandMark = 1
-			loverslove[lover_number] = 0
-			gs 'lover', 'remove', lover_number
-			'The wedding reception takes place at a cafe. There aren''t many guests since neither you nor the groom have that many friends or family members. There is a lot of congratulations, toasts, merrymaking and crying. By the evening, everybody is drunk and you and your husband stagger into a taxi, which takes you home.'
-
-			act 'Wedding night':gt 'husbsex', 'room'
+			'You get into the limo, and it drives off. Soon you arrive at the wedding, <<$npcdesc>> is waiting for you as you walk down the aisle.'
+
+			act 'Marry husband':
+				cla
+				minut += 60
+				gs 'lover_love', 'marry', $npcID
+				'The wedding reception takes place at a cafe. There aren''t many guests since neither you nor the groom have that many friends or family members. There is a lot of congratulations, toasts, merrymaking and crying. By the evening, everybody is drunk and you and your husband stagger into a taxi, which takes you home.'
+
+				act 'Wedding night': gt 'husbsex', 'room'
+			end
 		end
-	end
 
-	exit
-elseif loverlove[lover_number] = 2:
-	'<<$loverdesc[lover_number]>> looks very excited and suddenly pulls a ring out of a box.'
-	'<<$loverdesc[lover_number]>> says "<<$pcs_nickname>>. I offer you my hand and heart. Would you marry me?"'
-
-	act 'No (turn him down)':
-		minut += 60
-		gs 'lover', 'remove', lover_number
-		pregtalk = 0
-		gt 'homes_properties', 'go_home'
-		
-	end
+		exit
+	elseif npc_love[$npcID] = 2:
+		'<<$npcdesc>> looks very excited and suddenly pulls a ring out of a box.'
+		'<<$npcdesc>> says "<<$pcs_nickname>>. I offer you my hand and heart. Would you marry me?"'
 
-	act 'Yes':
-		cla
-		'You agree and put the ring on your finger. <<$loverdesc[lover_number]>> rejoices and happily hugs and kisses you.'
-		'<<$loverdesc[lover_number]>> says "Now you need to find a wedding dress."'
+		act 'No (turn him down)':
+			minut += 60
+			pregtalk = 0
+			gs 'lover', 'remove_boyfriend', $npcID
+			gt 'homes_properties', 'go_home'
+
+		end
 
-		act 'Go looking for the dress':
+		act 'Yes':
 			cla
-			minut += 60
-			loverlove[lover_number] = 3
-			'You get into a taxi with your soon to be husband and go to the store to choose a dress. You choose an expensive and luxurious dress. <<$loverdesc[lover_number]>> pays for the purchase.'
-			'After a long day you feel tired and ask <<$loverdesc[lover_number]>> to drive you home, warning him that the next time you''ll meet you will get married.'
-			act 'Go home': gt 'homes_properties', 'go_home'
+			'You agree and put the ring on your finger. <<$npcdesc>> rejoices and happily hugs and kisses you.'
+			'<<$npcdesc>> says "Now you need to find a wedding dress."'
+
+			act 'Go looking for the dress':
+				cla
+				minut += 60
+				npc_love[$npcID] = 3
+				'You get into a taxi with your soon to be husband and go to the store to choose a dress. You choose an expensive and luxurious dress. <<$npcdesc>> pays for the purchase.'
+				'After a long day you feel tired and ask <<$npcdesc>> to drive you home, warning him that the next time you''ll meet you will get married.'
+				act 'Go home': gt 'homes_properties', 'go_home'
+			end
+		end
+
+		exit
+	elseif npc_love[$npcID] = 1:
+		if pcs_makeup > 1 and ($clothingworntype = 'fashionista_dress' or $clothingworntype = 'moncheri_gown' or $clothingworntype = 'moncheri_dress') and curly > 0:
+			if npc_gentle[$boy] = 1:
+				'<<$npcdesc>> looks very excited. He decides that you are now ready to meet his mother.'
+
+				act 'Meet the parents':gt 'love', 'mother'
+
+				exit
+			elseif npc_rough[$boy] = 0 and $pantyworntype ! 'none':
+				'<<$npcdesc>> examins you and decides that you are ready to meet his friends.'
+
+				act 'Meet his friends':gt 'love', 'frends'
+
+				exit
+			end
 		end
 	end
 
-	exit
 end
 
-if pcs_makeup > 1 and ($clothingworntype = 'fashionista_dress' or $clothingworntype = 'moncheri_gown' or $clothingworntype = 'moncheri_dress') and curly > 0 and loverlove[lover_number] = 1 and haraklover[lover_number] = 0:
-	'<<$loverdesc[lover_number]>> looks very excited. He decides that you are now ready to meet his mother.'
 
-	act 'Meet the parents':gt 'love', 'mother'
+if $ARGS[0] = 'marry':
+	if $husID ! '':
+		msg 'You are already married, this should not trigger!'
+	else
+		$husID = $ARGS[1]
+		$npc_rel_type[$husID] = 'husband'
+		npc_rel[$husID] = 100
+		spouseVars['marry_day'] = daystart
+		spouseVars['eat_day'] = daystart
+		!gs 'rings', 'wear', ???
+		PRinStyle = 1
+		PRinStyle2 = 1
+		stat['boyfriends_current'] -= 1
+		stat['husbands_current'] += 1
+	end
 
-	exit
-elseif pcs_makeup > 1 and ($clothingworntype = 'fashionista_dress' or $clothingworntype = 'moncheri_gown' or $clothingworntype = 'moncheri_dress') and curly > 0 and loverlove[lover_number] = 1 and haraklover[lover_number] = 1 and $pantyworntype ! 'none':
-	'<<$loverdesc[lover_number]>> examins you and decides that you are ready to meet his friends.'
+	!$husBody = $loverbod[lover_number]
+	!$husFat = $loverbod[lover_number]
+	!husbFin = npc_finance[$husID]
+	!loverlove[lover_number] = 0
+	!gs 'lover', 'remove_boyfriend', $husID
+end
 
-	act 'Meet his friends':gt 'love', 'frends'
+if $ARGS[0] = 'divorce':
+	npc_rel[$husID] = 0
+	npc_rel_type[$husID] = 'ex-husband'
+	$husID = ''
+	divorced += 1
+	if PRinStyle2 = 1:
+		!gs 'rings', 'strip'
+		PRinStyle = 0
+		PRinStyle2 = 0
+	end
 
-	exit
+	killvar 'spouseVars'
 end
 
---- lover_love ---------------------------------
 
+
+
+--- lover_love ---------------------------------

locations/lover_pref.qsrc

@@ -1,33 +1,19 @@
 # lover_pref
 
-gs 'boyStat', $lover[lover_number]
-!!$boybody = 1 - tall, 2 - average, 3 - short
-$boybody = $loverbody[lover_number]
-!!$boybod = 1 - thin, 2 - athletic, 3 - chunky, 4 - fat
-$boybod = $loverbod[lover_number]
-$boyface = $loverface[lover_number]
-!! sexual force of 0 prior_to 2
-silaVag = loversilaVag[lover_number]
-!!security, is responsible for the money and requirements 0 beggar, 1 middle_peasant 2 rich
-finance = loverfinance[lover_number]
-!!check in appearance, a parameter vnesh
-vneshBoy = vneshlover[lover_number]
-$boyClo = $loverClo[lover_number]
+dynamic $npc_preferences[$npcID]
+
 
 
 !!0 - 0 to 2, 1 - 3 to 5, 2, 5 to 6
 
 !! These variables will be compared to the player value 'pcs_bmi'.
-figurBoy = figurlover[lover_number]
-
-
-if figurBoy = 0:
+if npc_pref_values['body_bmi_starving'] > 0 or npc_pref_values['body_bmi_underweight'] > 0:
 	figurePrefMin = 0
 	figurePrefMax = 18
-elseif figurBoy = 1:
+elseif npc_pref_values['body_bmi_normal'] > 0:
 	figurePrefMin = 19
 	figurePrefMax = 25
-elseif figurBoy = 2:
+elseif npc_pref_values['body_bmi_overweight'] > 0 or npc_pref_values['body_bmi_obese'] > 0:
 	figurePrefMin = 26
 	figurePrefMax = 77
 else
@@ -36,142 +22,50 @@ else
 end
 
 
-!!0 - chest less 3, 1 breast 3-4, 2 breasts bigger 4
-titBoy = titlover[lover_number]
-if titBoy = 0:
+
+if npc_pref_values['body_tits_small'] > 0:
 	titMin = 0
+	titMax = 1
+elseif npc_pref_values['body_tits_average'] > 0:
+	titMin = 2
 	titMax = 3
-elseif titBoy = 1:
-	titMin = 3
-	titMax = 4
-elseif titBoy = 2:
-	titMin = 5
+elseif npc_pref_values['body_tits_big'] > 0:
+	titMin = 4
+	titMax = 5
+elseif npc_pref_values['body_tits_big'] > 0:
+	titMin = 6
 	titMax = 999
 end
 
 
 !!favorite hair color 0 - black, 1 - brown, 2 - redhead, 3 - blonde
-hairBoy = hairlover[lover_number]
+if npc_pref_values['hair_color_black'] > 0:
+	hairBoy = 0
+elseif npc_pref_values['hair_color_brown'] > 0:
+	hairBoy = 1
+elseif npc_pref_values['hair_color_red'] > 0:
+	hairBoy = 2
+elseif npc_pref_values['hair_color_blonde'] > 0:
+	hairBoy = 3
+end
+
+
 !!character 0 - soft, 1 -norm 2 - aggressor
-harakBoy = haraklover[lover_number]
-!!perversity
-izvrat = loverizvrat[lover_number]
 husb_birth_year = year - boyage
 husbAge = boyage
 
 
 !!new preferences
 
-!!renaming perversity constant
-pervConstant = izvrat
-
-!!This is for clothing type preference
-!!0 - none, 1 - cheap, 2 - average, 3 - formal, 4 - fetish.
-clotTypePrefTmp = clotTypePref[lover_number]
-
-!!This is for the quality of clothing
-!! 0 - no preference, 1 - 1 to 4 units cheap to average (Locked if formal chosen), 2 - 5 to 7 units expensive to ballroom quality (Locked if fetish is chosen)
-clotQualPrefTmp = clotQualPref[lover_number]
-
-!!Need to add modifiers based on breast size, where larger breasts end up forcing the player to show more cleavage than those with smaller breasts.
-!! 0 - no preference, 1 - 1 to 2 or neckline to moderate, 2 - 3 to 4 or heavy to severe, 3 - 5 to 7 or buldging to outpouring
-!! The breast size must be adjusted either when the action is being calculeted or we can base it on their ideal breast size :titBoy + 0/3 depending on the players breast size
-
-!! How much they want to see your chest USE THIS FOR NOW
-!! 0 - no preference, 1 - 1 neckline , 2 - 2 or moderate, 3 - 3 to 4 or heavy to severe
-!! It doesn''t matter if your poor or rich, everyone loves tits.
-clotTopPrefTmp = clotTopPref[lover_number]
-
-!!This part helps calculate the constant to add to the
-
-
-!!This is to set the max/min of the clotTop variables. This is so you dont need to go through the code changing individual numbers.
-if clotTopPrefTmp = 1:
-	clotTopMin = 1
-	clotTopMax = 4
-elseif clotTopPrefTmp = 2:
-	clotTopMin = 3
-	clotTopMax = 5
-elseif clotTopPrefTmp = 3:
-	clotTopMin = 5
-	clotTopMax = 7
-else
-	clotTopMin = 0
-	clotTopMax = 999
-end
-
-!!THIS IS THE EQUATION FOR THE TIT ADDITION
-if tits < 2:
-	titConstant = 0
-elseif tits >= 2 and tits < 4:
-	titConstant = 1
-elseif tits >= 4 and tits < 6:
-	titConstant = 2
-elseif tits >= 6:
-	titConstant = 3
-else
-	titConstant = 0
-end
-
-!! This is for pants and skirt shortness and will be grouped together as such.
-!! 0 - no preference, 1 - 1 to 2 units or ankle to calf length, 2 - 3 to 5 units or knee to miniskirt, 3 - 5 units to 6 or slut to hoe.
-bottShorPrefTmp = bottShorPref[lover_number]
-
-
-!!This is to set the max/min of the bottShor variables. This is so you dont need to go through the code changing individual numbers.
-if bottShorPrefTmp = 1:
-	bottShorMin = 0
-	bottShorMax = 2
-elseif bottShorPrefTmp = 2:
-	bottShorMin = 3
-	bottShorMax = 5
-elseif bottShorPrefTmp = 3:
-	bottShorMin = 5
-	bottShorMax = 6
-else
-	bottShorMin = 0
-	bottShorMax = 999
-end
-
-
-!! This is for clothes thinness.
-!! 0 - no preference, 1 - 0 to 2 (Conservative), 2 - 3 to 4 (Moderate), 3 - 4 to 6 (really thin)
-!! I see the moderate to really thin overlapping. Its intentional.
-
-!!This is to set the max/min of the clotThinness variables. This is so you dont need to go through the code changing individual numbers.
-clotThinPrefTmp = clotThinPref[lover_number]
-if clotThinPrefTmp = 1:
-	clotThinMin = 0
-	clotThinMax = 2
-elseif clotThinPrefTmp = 2:
-	clotThinMin = 3
-	clotThinMax = 4
-elseif clotThinPrefTmp = 3:
-	clotThinMin = 4
-	clotThinMax = 6
-else
-	clotThinMin = 0
-	clotThinMax = 999
-end
-
-
-
-!!This is to find out if they want you to wear bimbo clothing
-!! 0 - no preference, 1 - Prefers bimbo clothing.
-bimbPrefTmp = bimbPref[lover_number]
-
 !!This is to find out if they want you to wear piercings.
-!! 0 - no preference, 1 - 0 to 2 piercings, 2 - 3 to 5 piercings, 3 - 6 or more piercings.
-pierPrefTmp = pierPref[lover_number]
-
 !!This is to set the max min
-if pierPrefTmp = 1:
+if npc_pref_values['cosmetics_piercings_none'] > 0 or npc_pref_values['cosmetics_piercings_few'] > 0:
 	pierPrefTmpMin = 0
 	pierPrefTmpMax = 2
-elseif pierPrefTmp = 2:
+elseif npc_pref_values['cosmetics_piercings_multiple'] > 0:
 	pierPrefTmpMin = 3
 	pierPrefTmpMax = 5
-elseif pierPrefTmp = 3:
+elseif npc_pref_values['cosmetics_piercings_lot'] > 0:
 	pierPrefTmpMin = 6
 	pierPrefTmpMax = 999
 else
@@ -180,21 +74,15 @@ else
 end
 
 
-
-
 !!This is to find out if they want you to have tattoos.
-!! 0 - no preference, 1 - 0 to 2 tattoos, 2 - 3 to 5 tattoos, 3 - 6 or more tattoos.
-tattPrefTmp = tattPref[lover_number]
-
 !!This is to set the max min for tattoos
-
-if tattPrefTmp = 1:
+if npc_pref_values['cosmetics_tattoos_none'] > 0 or npc_pref_values['cosmetics_tattoos_few'] > 0:
 	tattPrefTmpMin = 0
 	tattPrefTmpMax = 2
-elseif tattPrefTmp = 2:
+elseif npc_pref_values['cosmetics_tattoos_multiple'] > 0:
 	tattPrefTmpMin = 3
 	tattPrefTmpMax = 5
-elseif tattPrefTmp = 3:
+elseif npc_pref_values['cosmetics_tattoos_lot'] > 0:
 	tattPrefTmpMin = 6
 	tattPrefTmpMax = 999
 else
@@ -203,13 +91,10 @@ else
 end
 
 !!This is to find out how big they want your lips.
-!! 0 - no preference, 1 - 2 to 3 units (average) , 2 - 4 units (THIC lips)
-lipsPrefTmp = lipsPref[lover_number]
-
-if lipsPrefTmp = 1:
+if npc_pref_values['body_lips_normal'] > 0 or npc_pref_values['body_lips_plump'] > 0:
 	lipsPrefTmpMin = 2
 	lipsPrefTmpMax = 3
-elseif lipsPrefTmp = 2:
+elseif npc_pref_values['body_lips_big'] > 0 or npc_pref_values['body_lips_pillowy'] > 0:
 	lipsPrefTmpMin = 3
 	lipsPrefTmpMax = 99
 else
@@ -217,227 +102,439 @@ else
 	lipsPrefTmpMax = 99
 end
 
-!!This is to find out how big they want YOU.
-!! 0 - no preference, 1 - 1 to 3 units (Skinny) , 2 - 3 to 6 units (Average), 3 - 6 + units (THIC)
-!! Notice how this one overlaps. I believe that it should because changing ones weight is very hard.
-bodyPrefTmp = bodyPref[lover_number]
-
-!!This is to find out how much makeup they want you to wear.
-!! 0 - no preference, 1 - 1 (light makeup) , 2 - 2 (moderate makeup), 3 - 3(heavy makeup)
-makePrefTmp = makePref[lover_number]
-
-
-!! This is to see if they like a ditz, average, or a smartypants
-!!0 - no preference, 1 - 1 to 30 intelligence, 2 - 30 to 85 intelligence, 3 - 85 + intelligence.
-IQPrefTmp = IQPref[lover_number]
-
 !!This is the new hair color preference
-!! 0 - black, 1 - brown, 2 - redhead, 3 - blonde, 4 - no preference,
-hairPref = hairBoy
-
-
-
-!!0 - none, 1 - cheap, 2 - average, 3 - formal, 4 - fetish.
-if clotTypePrefTmp = 0:
-	$clotTypePrefTmp = ''
-elseif clotTypePrefTmp = 1:
-	$clotTypePrefTmp = 'cheap'
-elseif clotTypePrefTmp = 2:
-	$clotTypePrefTmp = 'average'
-elseif clotTypePrefTmp = 3:
-	$clotTypePrefTmp = 'formal'
-elseif clotTypePrefTmp = 4:
-	$clotTypePrefTmp = 'fetish'
+if npc_pref_values['hair_color_black'] > 0:
+	$hairPref = 'black'
+elseif npc_pref_values['hair_color_brown'] > 0:
+	$hairPref = 'brown'
+elseif npc_pref_values['hair_color_red'] > 0:
+	$hairPref = 'redhead'
+elseif npc_pref_values['hair_color_blonde'] > 0:
+	$hairPref = 'blond'
+else
+	$hairPref = 'any color'
 end
 
-!! 0 - no preference, 1 - 1 to 4 units cheap to average (Locked if formal chosen), 2 - 5 to 7 units expensive to ballroom quality (Locked if fetish is chosen)
-if clotQualPrefTmp = 0:
-	$clotQualPrefTmp = 'any type of'
-elseif clotQualPrefTmp = 1:
-	$clotQualPrefTmp = 'anything but expensive'
-elseif clotQualPrefTmp = 2:
-	$clotQualPrefTmp = 'expensive'
+!!This are generic things your boyfriend will call you based on how much he likes you.
+if npc_rel[$npcID] > 80:
+	randchan = rand(0, 2)
+	if randchan = 0 and npc_gentle[$npcID] ! 1:
+		$giveNick = 'angel'
+	elseif randchan <= 1:
+		$giveNick = 'beautiful'
+	elseif randchan <= 2:
+		$giveNick = 'love'
+	end
+elseif npc_rel[$npcID] > 40:
+	randchan = rand(0, 1)
+	if randchan = 0:
+		$giveNick = 'babe'
+	elseif randchan = 1:
+		$giveNick = '<<$pcs_nickname>>'
+	end
+else
+	$giveNick = '<<$pcs_firstname>>'
 end
 
-!! 0 - no preference, 1 - 1 to 2 or neckline to moderate, 2 - 3 to 4 or heavy to severe, 3 - 5 to 7 or buldging to outpouring
-if clotTopPrefTmp = 0:
-	$clotTopPrefTmp = 'any amount of'
-elseif clotTopPrefTmp = 1:
-	$clotTopPrefTmp = 'a little bit of'
-elseif clotTopPrefTmp = 2:
-	$clotTopPrefTmp = 'a lot of'
-elseif clotTopPrefTmp = 3:
-	$clotTopPrefTmp = 'a huge amount of'
-end
 
-!! 0 - no preference, 1 - 1 to 2 units or ankle to calf length, 2 - 3 to 4 units or knee to miniskirt, 3 - 5 units to 6 or slut to hoe.
-if bottShorPrefTmp = 0:
-	$bottShorPrefTmp= 'any length'
-elseif bottShorPrefTmp = 1:
-	$bottShorPrefTmp= 'modest length'
-elseif bottShorPrefTmp = 2:
-	$bottShorPrefTmp= 'slightly short length'
-elseif bottShorPrefTmp = 3:
-	$bottShorPrefTmp= 'really short length'
-end
+!!Relies on the coupled arrays:
+!!	$loverPref = the preference in pcs_has_attr.					Example: hair_color_black
+!!	$loverPrefDesc = the description of the preference				Example: 'black'
+!!	$loverPrefDescInv = the inverse description of the preference	Example: 'black'
+if $ARGS[0] = 'choose_pref':
+	killvar 'LoverPrefResult'
 
-!! 0 - no preference, 1 - 0 to 2 (Conservative), 2 - 3 to 4 (Moderate), 3 - 4 to 6 (really thin)
-if clotThinPrefTmp = 0:
-	$clotThinPrefTmp= ''
-elseif clotThinPrefTmp = 1:
-	$clotThinPrefTmp= 'thick'
-elseif clotThinPrefTmp = 2:
-	$clotThinPrefTmp= 'a little thin'
-elseif clotThinPrefTmp = 3:
-	$clotThinPrefTmp= 'really thin or even see through'
-end
+	lp_max = arrsize('$LoverPref')
+	if lp_max = 0:
+		killvar 'lp_max'
+		exit
+	end
 
-!! 0 - no preference, 1 - Prefers bimbo clothing.
-if bimbPrefTmp = 0:
-	$bimboPref = ''
-else
-	$bimboPref = 'a bimbo'
-end
+	lp_i = 0
+	:choose_pref_loop
+		$temp_pref_trait = $LoverPref[lp_i]
+		if npc_pref_values[$temp_pref_trait] > 0:
+			if func('pcs_has_attr', $temp_pref_trait):
+				TempLoverPrefHasPos[] = lp_i
+			else
+				TempLoverPrefNotPos[] = lp_i
+			end
+		elseif npc_pref_values[$temp_pref_trait] < 0:
+			if func('pcs_has_attr', $temp_pref_trait):
+				TempLoverPrefHasNeg[] = lp_i
+			else
+				TempLoverPrefNotNeg[] = lp_i
+			end
+		else
+			if func('pcs_has_attr', $temp_pref_trait):
+				TempLoverPrefHasInd[] = lp_i
+			else
+				TempLoverPrefNotInd[] = lp_i
+			end
+		end
+		lp_i += 1
+	if lp_i < lp_max: jump 'choose_pref_loop'
+
+	if arrsize('TempLoverPrefHasPos') > 0:
+		lp_i = TempLoverPrefHasPos[rand(0, arrsize('TempLoverPrefHasPos') - 1)]
+		$LoverPrefResult['HasPos'] = $LoverPrefDesc[lp_i]
+		$LoverPrefResult['HasPosInv'] = $LoverPrefDescInv[lp_i]
+		killvar 'TempLoverPrefHasPos'
+	end
+	if arrsize('TempLoverPrefNotPos') > 0:
+		lp_i = TempLoverPrefNotPos[rand(0, arrsize('TempLoverPrefNotPos') - 1)]
+		$LoverPrefResult['NotPos'] = $LoverPrefDesc[lp_i]
+		$LoverPrefResult['NotPosInv'] = $LoverPrefDescInv[lp_i]
+		killvar 'TempLoverPrefNotPos'
+	end
+	if arrsize('TempLoverPrefHasNeg') > 0:
+		lp_i = TempLoverPrefHasNeg[rand(0, arrsize('TempLoverPrefHasNeg') - 1)]
+		$LoverPrefResult['HasNeg'] = $LoverPrefDesc[lp_i]
+		$LoverPrefResult['HasNegInv'] = $LoverPrefDescInv[lp_i]
+		killvar 'TempLoverPrefHasNeg'
+	end
+	if arrsize('TempLoverPrefNotNeg') > 0:
+		lp_i = TempLoverPrefNotNeg[rand(0, arrsize('TempLoverPrefNotNeg') - 1)]
+		$LoverPrefResult['NotNeg'] = $LoverPrefDesc[lp_i]
+		$LoverPrefResult['NotNegInv'] = $LoverPrefDescInv[lp_i]
+		killvar 'TempLoverPrefNotNeg'
+	end
+	if arrsize('TempLoverPrefHasInd') > 0:
+		lp_i = TempLoverPrefHasInd[rand(0, arrsize('TempLoverPrefHasInd') - 1)]
+		$LoverPrefResult['HasInd'] = $LoverPrefDesc[lp_i]
+		$LoverPrefResult['HasIndInv'] = $LoverPrefDescInv[lp_i]
+		killvar 'TempLoverPrefHasInd'
+	end
+	if arrsize('TempLoverPrefNotInd') > 0:
+		lp_i = TempLoverPrefNotInd[rand(0, arrsize('TempLoverPrefNotInd') - 1)]
+		$LoverPrefResult['NotInd'] = $LoverPrefDesc[lp_i]
+		$LoverPrefResult['NotIndInv'] = $LoverPrefDescInv[lp_i]
+		killvar 'TempLoverPrefNotInd'
+	end
 
-!! 0 - no preference, 1 - 0 to 2 piercings, 2 - 3 to 5 piercings, 3 - 6 or more piercings.
-if pierPrefTmp = 0:
-	$pierPrefTmp = 'any amount'
-elseif pierPrefTmp = 1:
-	$pierPrefTmp = 'a couple'
-elseif pierPrefTmp = 2:
-	$pierPrefTmp = 'a good amount'
-elseif pierPrefTmp = 3:
-	$pierPrefTmp = 'a lot'
+	killvar 'lp_i'
+	killvar 'lp_max'
 end
 
-!! 0 - no preference, 1 - 0 to 2 tattoos, 2 - 3 to 5 tattoos, 3 - 6 or more tattoos.
-if tattPrefTmp = 0:
-	$tattPrefTmp = 'any amount'
-elseif tattPrefTmp = 1:
-	$tattPrefTmp = 'a couple'
-elseif tattPrefTmp = 2:
-	$tattPrefTmp = 'a good amount'
-elseif tattPrefTmp = 3:
-	$tattPrefTmp = 'a lot'
-end
 
-!! 0 - no preference, 1 - 2 to 3 units (average) , 2 - 4 units (THIC lips)
-if lipsPrefTmp = 0:
-	$lipsPrefTmp = 'any sized lips'
-elseif lipsPrefTmp = 1:
-	$lipsPrefTmp = 'average-sized lips'
-elseif lipsPrefTmp = 2:
-	$lipsPrefTmp = 'thick lips'
+if $ARGS[0] = 'get_makeup_pref':
+	if npc_pref_values['cosmetics_makeup_light'] > 0:
+		$result = 'a subtle amount of'
+	elseif npc_pref_values['cosmetics_makeup_moderate'] > 0:
+		$result = 'a good amount of'
+	elseif npc_pref_values['cosmetics_makeup_heavy'] > 0:
+		$result = 'a slutty amount of'
+	else
+		$result = 'any amount of'
+	end
 end
 
-!!This is the Players lip description, this allows flexibility when writing
-if pcs_lip = 0:
-	$lipDesc = 'thin'
-elseif pcs_lip = 1:
-	$lipDesc = 'soft'
-elseif pcs_lip = 2:
-	$lipDesc = 'plump'
-elseif pcs_lip = 3:
-	$lipDesc = 'juicy'
-elseif pcs_lip = 4:
-	$lipDesc = 'thick'
+if $ARGS[0] = 'get_piercing_pref':
+	if npc_pref_values['cosmetics_piercing_none'] > 0 or npc_pref_values['cosmetics_piercing_few'] > 0:
+		if func('pcs_has_attr', 'OR', 'cosmetics_piercing_none', 'cosmetics_piercing_few'):
+			$result = 'the same amount of'
+		else
+			$result = 'less'
+		end
+	elseif npc_pref_values['cosmetics_piercing_multiple'] > 0:
+		if func('pcs_has_attr', 'cosmetics_piercing_lot'):
+			$result = 'less'
+		elseif func('pcs_has_attr', 'cosmetics_piercing_multiple'):
+			$result = 'the same amount of'
+		else
+			$result = 'more'
+		end
+	elseif npc_pref_values['cosmetics_piercing_multiple'] > 0:
+		if func('pcs_has_attr', 'cosmetics_piercing_lot'):
+			$result = 'the same amount of'
+		else
+			$result = 'more'
+		end
+	else
+		$result = 'the same amount of'
+	end
 end
 
 
 
-!! 0 - no preference, 1 - 1 to 3 units (Skinny) , 2 - 3 to 6 units (Average), 3 - 6 + units (THIC)
-if bodyPrefTmp = 0:
-	$bodyPrefTmp = 'any weight'
-elseif bodyPrefTmp = 1:
-	$bodyPrefTmp = 'should be skinny'
-elseif bodyPrefTmp = 2:
-	$bodyPrefTmp = ' should be not to skinny or fat'
-elseif bodyPrefTmp = 3:
-	$bodyPrefTmp = 'should be thick and curvy'
-end
 
-!! 0 - no preference, 1 - 1 (light makeup) , 2 - 2 (moderate makeup), 3 - 3(heavy makeup)
-if makePrefTmp = 0:
-	$makePrefTmp = 'any amount of makeup'
-elseif makePrefTmp = 1:
-	$makePrefTmp = 'a subtle amount of makeup'
-elseif makePrefTmp = 2:
-	$makePrefTmp = 'a good amount of makeup'
-elseif makePrefTmp = 3:
-	$makePrefTmp = 'a slutty amount of makeup'
-end
 
-!!0 - no preference, 1 - 1 to 30 intelligence, 2 - 30 to 85 intelligence, 3 - 85 + intelligence.
-if IQPrefTmp = 0:
-	$IQPrefTmp = 'nice'
-elseif IQPrefTmp = 1:
-	$IQPrefTmp = 'ditzy'
-elseif IQPrefTmp = 2:
-	$IQPrefTmp = 'with at least a little brain power'
-elseif IQPrefTmp = 3:
-	$IQPrefTmp = 'genius'
+
+
+
+if $ARGS[0] = 'check_piercings':
+	result = 0
+	lp_temp_check = 1
+	if result = 0 and npc_pref_values['cosmetics_piercings_none'] > 0:
+		lp_temp_check = 0
+		if func('pcs_has_attr', 'cosmetics_piercings_none') = 1:
+			result = 1
+		end
+	end
+	if result = 0 and npc_pref_values['cosmetics_piercings_few'] > 0:
+		lp_temp_check = 0
+		if func('pcs_has_attr', 'cosmetics_piercings_few') = 1:
+			result = 1
+		end
+	end
+	if result = 0 and npc_pref_values['cosmetics_piercings_multiple'] > 0:
+		lp_temp_check = 0
+		if func('pcs_has_attr', 'cosmetics_piercings_multiple') = 1:
+			result = 1
+		end
+	end
+	if result = 0 and npc_pref_values['cosmetics_piercings_lot'] > 0:
+		lp_temp_check = 0
+		if func('pcs_has_attr', 'cosmetics_piercings_lot') = 1:
+			result = 1
+		end
+	end
+	if p_temp_check = 1:
+		!! no preferences means happy
+		result = 1
+	end
+	killvar 'lp_temp_check'
+	exit
 end
 
-!! 0 - black, 1 - brown, 2 - redhead, 3 - blonde, 4 - no preference,
-if hairPref = 0:
-	$hairPref = 'black'
-elseif hairPref = 1:
-	$hairPref = 'brown'
-elseif hairPref = 2:
-	$hairPref = 'redhead'
-elseif hairPref = 3:
-	$hairPref = 'blond'
-elseif hairPref = 4:
-	$hairPref = 'any color'
+if $ARGS[0] = 'get_pier_change':
+	$result = ''
+	if npc_pref_values['cosmetics_piercings_none'] > 0 or npc_pref_values['cosmetics_piercings_few'] > 0:
+		if func('pcs_has_attr', 'OR', 'cosmetics_piercings_none', 'cosmetics_piercings_few') = 0:
+			$result = 'decrease'
+		end
+	elseif npc_pref_values['cosmetics_piercings_multiple'] > 0:
+		if func('pcs_has_attr', 'OR', 'cosmetics_piercings_none', 'cosmetics_piercings_few'):
+			$result = 'increase'
+		elseif func('pcs_has_attr', 'cosmetics_piercings_lot'):
+			$result = 'decrease'
+		end
+	elseif npc_pref_values['cosmetics_piercings_lot'] > 0:
+		if func('pcs_has_attr', 'cosmetics_piercings_lot') = 0:
+			$result = 'increase'
+		end
+	end
 end
 
 
-!!0 - chest less 3, 1 breast 3-4, 2 breasts bigger 4
-if titBoy = 0:
-	$titBoy = 'petite breasts'
-elseif titBoy = 1:
-	$titBoy = 'good sized breasts'
-elseif titBoy = 2:
-	$titBoy = 'huge breasts'
+if $ARGS[0] = 'check_tattoos':
+	result = 0
+	lp_temp_check = 1
+	if result = 0 and npc_pref_values['cosmetics_tattoos_none'] > 0:
+		lp_temp_check = 0
+		if func('pcs_has_attr', 'cosmetics_tattoos_none') = 1:
+			result = 1
+		end
+	end
+	if result = 0 and npc_pref_values['cosmetics_tattoos_few'] > 0:
+		lp_temp_check = 0
+		if func('pcs_has_attr', 'cosmetics_tattoos_few') = 1:
+			result = 1
+		end
+	end
+	if result = 0 and npc_pref_values['cosmetics_tattoos_multiple'] > 0:
+		lp_temp_check = 0
+		if func('pcs_has_attr', 'cosmetics_tattoos_multiple') = 1:
+			result = 1
+		end
+	end
+	if result = 0 and npc_pref_values['cosmetics_tattoos_lot'] > 0:
+		lp_temp_check = 0
+		if func('pcs_has_attr', 'cosmetics_tattoos_lot') = 1:
+			result = 1
+		end
+	end
+	if p_temp_check = 1:
+		!! no preferences means happy
+		result = 1
+	end
+	killvar 'lp_temp_check'
+	exit
 end
 
+if $ARGS[0] = 'check_makeup':
+	result = 0
+	lp_temp_check = 1
+	if result = 0 and npc_pref_values['cosmetics_makeup_light'] > 0:
+		lp_temp_check = 0
+		if func('pcs_has_attr', 'cosmetics_makeup_light') = 1:
+			result = 1
+		end
+	end
+	if result = 0 and npc_pref_values['cosmetics_makeup_moderate'] > 0:
+		lp_temp_check = 0
+		if func('pcs_has_attr', 'cosmetics_makeup_moderate') = 1:
+			result = 1
+		end
+	end
+	if result = 0 and npc_pref_values['cosmetics_makeup_heavy'] > 0:
+		lp_temp_check = 0
+		if func('pcs_has_attr', 'cosmetics_makeup_heavy') = 1:
+			result = 1
+		end
+	end
+	if p_temp_check = 1:
+		!! no preferences means happy
+		result = 1
+	end
+	killvar 'lp_temp_check'
+	exit
+end
 
-!! mana , manamax * 50 / 100:
-
-if pcs_hairbsh = 1 and curly > 0:
-	loverrelation[lover_number] += 2
-	$meetHair = 'Your hair looks very beautiful.'
+if $ARGS[0] = 'check_haircol':
+	result = 0
+	lp_temp_check = 1
+	if result = 0 and npc_pref_values['hair_color_black'] > 0:
+		lp_temp_check = 0
+		if func('pcs_has_attr', 'hair_color_black') = 1:
+			result = 1
+		end
+	end
+	if result = 0 and npc_pref_values['hair_color_brown'] > 0:
+		lp_temp_check = 0
+		if func('pcs_has_attr', 'hair_color_brown') = 1:
+			result = 1
+		end
+	end
+	if result = 0 and npc_pref_values['hair_color_red'] > 0:
+		lp_temp_check = 0
+		if func('pcs_has_attr', 'hair_color_red') = 1:
+			result = 1
+		end
+	end
+	if result = 0 and npc_pref_values['hair_color_blonde'] > 0:
+		lp_temp_check = 0
+		if func('pcs_has_attr', 'hair_color_blonde') = 1:
+			result = 1
+		end
+	end
+	if p_temp_check = 1:
+		!! no preferences means happy
+		result = 1
+	end
+	killvar 'lp_temp_check'
+	exit
 end
-if pcs_hairbsh = 1 and curly = 0:
-	loverrelation[lover_number] += 1
-	$meetHair = 'You have pretty hair today.'
+
+if $ARGS[0] = 'check_tits':
+	result = 0
+	lp_temp_check = 1
+	if result = 0 and npc_pref_values['body_tits_small'] > 0:
+		lp_temp_check = 0
+		if func('pcs_has_attr', 'body_tits_small') = 1:
+			result = 1
+		end
+	end
+	if result = 0 and npc_pref_values['body_tits_average'] > 0:
+		lp_temp_check = 0
+		if func('pcs_has_attr', 'body_tits_average') = 1:
+			result = 1
+		end
+	end
+	if result = 0 and npc_pref_values['body_tits_big'] > 0:
+		lp_temp_check = 0
+		if func('pcs_has_attr', 'body_tits_big') = 1:
+			result = 1
+		end
+	end
+	if result = 0 and npc_pref_values['body_tits_huge'] > 0:
+		lp_temp_check = 0
+		if func('pcs_has_attr', 'body_tits_huge') = 1:
+			result = 1
+		end
+	end
+	if p_temp_check = 1:
+		!! no preferences means happy
+		result = 1
+	end
+	killvar 'lp_temp_check'
+	exit
 end
-if pcs_hairbsh < 1:
-	loverrelation[lover_number] -= 1
-	$meetHair = 'You look like you were in a hurry.'
+
+if $ARGS[0] = 'check_lips':
+	result = 0
+	lp_temp_check = 1
+	if result = 0 and npc_pref_values['body_lips_thin'] > 0:
+		lp_temp_check = 0
+		if func('pcs_has_attr', 'body_lips_thin') = 1:
+			result = 1
+		end
+	end
+	if result = 0 and npc_pref_values['body_lips_normal'] > 0:
+		lp_temp_check = 0
+		if func('pcs_has_attr', 'body_lips_normal') = 1:
+			result = 1
+		end
+	end
+	if result = 0 and npc_pref_values['body_lips_plump'] > 0:
+		lp_temp_check = 0
+		if func('pcs_has_attr', 'body_lips_plump') = 1:
+			result = 1
+		end
+	end
+	if result = 0 and npc_pref_values['body_lips_big'] > 0:
+		lp_temp_check = 0
+		if func('pcs_has_attr', 'body_lips_big') = 1:
+			result = 1
+		end
+	end
+	if result = 0 and npc_pref_values['body_lips_pillowy'] > 0:
+		lp_temp_check = 0
+		if func('pcs_has_attr', 'body_lips_pillowy') = 1:
+			result = 1
+		end
+	end
+	if p_temp_check = 1:
+		!! no preferences means happy
+		result = 1
+	end
+	killvar 'lp_temp_check'
+	exit
 end
 
-!!This are generic things your boyfriend will call you based on how much he likes you.
-if loverrelation[lover_number] > 80:
-	randchan = rand(0,2)
-	if randchan = 0 and haraklover[lover_number] ! 0:
-		$giveNick = 'angel'
-	elseif randchan = 1:
-		$giveNick = 'beautiful'
-	elseif randchan = 2:
-		$giveNick = 'love'
+if $ARGS[0] = 'check_bmi':
+	result = 0
+	lp_temp_check = 1
+	if result = 0 and npc_pref_values['body_bmi_starving'] > 0:
+		lp_temp_check = 0
+		if func('pcs_has_attr', 'body_bmi_starving') = 1:
+			result = 1
+		end
 	end
-elseif loverrelation[lover_number] > 20:
-	randchan = rand(0,1)
-	if randchan = 0:
-		$giveNick = 'babe'
-	elseif randchan = 1:
-		$giveNick = '<<$pcs_nickname>>'
+	if result = 0 and npc_pref_values['body_bmi_underweight'] > 0:
+		lp_temp_check = 0
+		if func('pcs_has_attr', 'OR', 'body_bmi_starving', 'body_bmi_underweight') = 1:
+			result = 1
+		end
 	end
-else
-	$giveNick = '<<$pcs_firstname>>'
+	if result = 0 and npc_pref_values['body_bmi_normal'] > 0:
+		lp_temp_check = 0
+		if func('pcs_has_attr', 'OR', 'body_bmi_starving', 'body_bmi_underweight', 'body_bmi_normal') = 1:
+			result = 1
+		end
+	end
+	if result = 0 and npc_pref_values['body_bmi_overweight'] > 0:
+		lp_temp_check = 0
+		if func('pcs_has_attr', 'body_bmi_obese') = 0:
+			result = 1
+		end
+	end
+	if result = 0 and npc_pref_values['body_bmi_obese'] > 0:
+		lp_temp_check = 0
+		result = 1
+	end
+	if p_temp_check = 1:
+		!! no preferences means happy
+		result = 1
+	end
+	killvar 'lp_temp_check'
+	exit
 end
 
 
---- lover_pref ---------------------------------
 
+killvar '$npc_pref_traits'
+killvar 'npc_pref_values'
+
+
+--- lover_pref ---------------------------------

locations/lover_pronouns.qsrc

@@ -1,23 +0,0 @@
-# lover_pronouns
-
-!! copy variables for easy of use in long texts
-if pcs_lovers[lover_number] = 1:
-	$tXe = $loverXe[lover_number] 						&! he/she
-	$tXec = $loverXec[lover_number] 					&! He/She
-	$tXem = $loverXem[lover_number] 					&! him/her
-	$tXemc = $loverXemc[lover_number] 					&! Him/Her
-	$tXyr = $loverXyr[lover_number] 					&! his/her
-	$tXyrc = $loverXyrc[lover_number] 					&! His/Her
-	$tXyrs = $loverXyrs[lover_number] 					&! his/hers
-	$tXyrsc = $loverXyrsc[lover_number] 				&! His/Hers
-	$tXemself = $loverXemself[lover_number] 			&! himself/herself
-	$tXemselfc = $loverXemselfc[lover_number]	 		&! Himself/Herself
-	$loverGenderName = 'man'
-	if loverGender[lover_number] = 1: $loverGenderName = 'woman'
-	$tBoyGirlfriend = 'boyfriend'
-	if loverGender[lover_number] = 1: $tBoyGirlfriend = 'girlfriend'
-end
-
-
---- lover_pronouns ---------------------------------
-

locations/ludahome.qsrc

@@ -1022,7 +1022,7 @@ if $ARGS[0] = 'chat_luda':
 				act 'Keep talking': gt 'ludahome', 'chat_luda'
 				act 'Stop talking': gt 'ludahome', 'livingroom'
 			end
-			if NikoVolkovQW >= 5 or fedorKozlovQW >= 5 or kotovLoveQW = 1 or artemQW['bf'] = 1 or Rex_Love = 1 or IgorLoverQW = 1 or (pcs_lover - pcs_girlfriends) > 0:
+			if NikoVolkovQW >= 5 or fedorKozlovQW >= 5 or kotovLoveQW = 1 or artemQW['bf'] = 1 or Rex_Love = 1 or IgorQW['Lover'] = 1 or stat['boyfriends_current'] > 0:
 				act 'I have a boyfriend':
 					*clr & cla
 					minut += 2
@@ -1084,7 +1084,7 @@ if $ARGS[0] = 'chat_luda':
 							act 'Stop talking': gt 'ludahome', 'livingroom'
 						end
 					end
-					if IgorLoverQW = 1:
+					if IgorQW['Lover'] = 1:
 						act 'Igor':
 							cla
 							'"Igor," You tell her.'
@@ -1097,9 +1097,9 @@ if $ARGS[0] = 'chat_luda':
 					end
 					i = 0
 					:lover_looop
-					if i < arrsize('lover'):
+					if i < arrsize('$lover'):
 						$temp_npcid = $lover[i]
-						if npc_gender[$temp_npcid] ! 1:
+						if $npc_rel_type[$temp_npcid] = 'boyfriend':
 							dynamic 'act ''<<$npc_usedname["<<$temp_npcid>>"]>>'': gt ''ludahome'', ''tell_about_generic_boyfreind'', $npc_usedname["<<$temp_npcid>>"]'
 						end
 						killvar '$temp_npcid'

locations/metro.qsrc

@@ -20,7 +20,7 @@ if $ARGS[0] = 'start':
 	elseif $loc = 'city_suburbs':
 		'<center><b><font color="maroon">City Suburbs</font></b></center>'
 		'<center><img <<$set_imgh>> src="images/locations/city/shared/metro/platsuburb.jpg"></center>'
-	elseif $loc = 'city_island': 
+	elseif $loc = 'city_island':
 		'<center><b><font color="maroon">Vasilyevsky Island</font></b></center>'
 		'<center><img <<$set_imgh>> src="images/locations/city/shared/metro/platisland.jpg"></center>'
 	end
@@ -45,10 +45,10 @@ if $ARGS[0] = 'start':
 	end
 
 	if $loc = 'city_suburbs': act 'Walk to the bus stop (0:15)': minut += 15 & gt 'bus', 'suburbs'
-	
+
 	if money >= 16:
 		if $loc ! 'city_residential':
-			act 'Go to the Residential Area (00:10 - 16 <b>₽</b>)':
+			act 'Go to the Residential Area (0:10 - 16 <b>₽</b>)':
 				$loc = 'city_residential'
 				$loc_arg = ''
 				money -= 16
@@ -58,7 +58,7 @@ if $ARGS[0] = 'start':
 		end
 
 		if $loc ! 'city_center':
-			act 'Go to the City Center (00:10 - 16 <b>₽</b>)':
+			act 'Go to the City Center (0:10 - 16 <b>₽</b>)':
 				$loc = 'city_center'
 				$loc_arg = ''
 				money -= 16
@@ -68,7 +68,7 @@ if $ARGS[0] = 'start':
 		end
 
 		if $loc ! 'city_industrial':
-			act 'Go to the City Industrial Region (00:10 - 16 <b>₽</b>)':
+			act 'Go to the City Industrial Region (0:10 - 16 <b>₽</b>)':
 				$loc = 'city_industrial'
 				$loc_arg = ''
 				money -= 16
@@ -78,7 +78,7 @@ if $ARGS[0] = 'start':
 		end
 
 		if $loc ! 'city_suburbs':
-			act 'Go to the City Suburbs (00:10 - 16 <b>₽</b>)':
+			act 'Go to the City Suburbs (0:10 - 16 <b>₽</b>)':
 				$loc = 'city_suburbs'
 				$loc_arg = 'start'
 				money -= 16
@@ -88,7 +88,7 @@ if $ARGS[0] = 'start':
 		end
 
 		if $loc ! 'city_island':
-			act 'Go to Vasilyevsky Island (00:10 - 16 <b>₽</b>)':
+			act 'Go to Vasilyevsky Island (0:10 - 16 <b>₽</b>)':
 				$loc = 'city_island'
 				$loc_arg = ''
 				money -= 16
@@ -99,7 +99,7 @@ if $ARGS[0] = 'start':
 	else
 		'You don''t have enough money to pay for the metro.'
 	end
-	
+
 	if pusher = 1 and dealer = 0:
 		dealer = 1
 		'You see a tall, emaciated man leaning against the wall next to the tracks, looking very shady. He notices you looking and beckons you to come closer.'
@@ -158,7 +158,7 @@ if $ARGS[0] = 'vagon':
 			if rand(1,100) >= 80: gt 'metro_events', 'station'
 		else
 			if rand(1,100) >= 90: gt 'metro_events', 'station'
-		end			
+		end
 		gt 'metro', 'start'
 	end
 end
@@ -209,8 +209,8 @@ end
 if $ARGS[0] = 'dealer':
 	*clr & cla
 	menu_off = 1
-	'He sizes you up with suspicion. "Hey there. Saw you buying Lady in the park." He clears his throat and spits onto the tracks. "That shit will mess you up."' 
-	'He opens his coat and you flinch, thinking he''s going to flash you, but instead see that he''s wearing a business suit underneath.' 
+	'He sizes you up with suspicion. "Hey there. Saw you buying Lady in the park." He clears his throat and spits onto the tracks. "That shit will mess you up."'
+	'He opens his coat and you flinch, thinking he''s going to flash you, but instead see that he''s wearing a business suit underneath.'
 	'He gestures at numerous pockets lining the insides of his coat, filled to bursting with various packages, pills and ampules. "Here, my products are of a much better quality. You''ll have a great time, and I guarantee they won''t kill you."'
 	act 'Continue': gt 'metro','shop'
 end

locations/mirafather.qsrc

@@ -7,7 +7,6 @@ $menu_loc = 'mirafather'
 $menu_arg = ''
 menu_off = 0
 gs 'boystat', 'A64'
-harakBoy = 1
 tempday = (npc_dob['A64'] mod 100)
 tempmonth = (((npc_dob['A64'] mod 10000) - tempday) / 100)
 tempyear = (((npc_dob['A64']) - (npc_dob['A64'] mod 10000)) / 10000)

locations/mitkabuh.qsrc

@@ -12,7 +12,7 @@ if $ARGS[0] = '':
 	menu_off = 1
 	CLOSE ALL
 	gs 'stat'
-	
+
 	'<center><img <<$set_imgh>> src="images/locations/gadukino/village/mitka_old_trailer.jpg"></center>'
 	*nl
 	if GadBoy['first_drink'] = 1:
@@ -30,7 +30,7 @@ if $ARGS[0] = '':
 		else
 			'You quickly head over to the bench and sit down before anyone else can claim it.'
 		end
-		
+
 		act 'Sit down outside':
 			if locat['A60'] = 42:
 				gt 'mitkabuh', 'partywithMira'
@@ -46,7 +46,7 @@ if $ARGS[0] = '':
 		else
 			'The inside of the trailer looks like last time, just with maybe a few more empty bottles and cups strewn about. You quickly head over to the best couch and sit down before anyone else can claim it.'
 		end
-		
+
 		act 'Go inside the trailer':
 			if locat['A60'] = 42:
 				gt 'mitkabuh', 'partywithMira'
@@ -62,19 +62,19 @@ if $ARGS[0] = 'partyalone':
 	$loc = 'mitkabuh'
 	$loc_arg = 'partyalone'
 	$location_type = 'indoors'
-	
+
 	$menu_loc = 'mitkabuh'
 	$menu_arg = 'partyalone'
-	menu_off = 0	
-	
+	menu_off = 0
+
 	'<center><img <<$set_imgh>> src="images/locations/gadukino/village/drunk.jpg"></center>'
 	*nl
 	'You, Mitka, Kolyamba and Vasyan are sitting on some '+iif(sunWeather=1,'logs outside','couches inside')+' the trailer. There is plenty of moonshine to go around but no snacks.'
-	
+
 	! prevent drinking events from repeating after sex is done because the passage of time in the sex events allowed alko to decrease again
 	if GadBoy['drunk_event'] = 1 and alko < 10: alko = 10
 	GadBoy['drinkday'] = daystart
-	
+
 	! Sveta is not drunk
 	if alko < 10:
 		gs 'willpower', 'drink', 'resist'
@@ -84,7 +84,7 @@ if $ARGS[0] = 'partyalone':
 				gs 'willpower', 'drink', 'resist'
 				gs 'willpower', 'pay', 'resist'
 				gs 'stat'
-				
+
 				gt 'gad_road', 'start'
 			end
 		else
@@ -99,7 +99,7 @@ if $ARGS[0] = 'partyalone':
 			npc_rel['A63'] += rand(0, 1)
 			gs 'drugs', 'alcohol', 'moonshine', 1
 			gs 'stat'
-			
+
 			'<center><img <<$set_imgh>> src="images/locations/gadukino/village/drinking.jpg"></center>'
 			*nl
 			'Mitka pours some of the brew into a clear plastic shot glass and hands it over to you.'
@@ -148,7 +148,7 @@ if $ARGS[0] = 'partyalone':
 					'As you are leaving the guys call after you "Hey, <<$pcs_nickname>>, come drink with us again, we love fucking you!! Ha-ha!" They laugh as you make your way out. You are too drunk to come up with a proper insult and just walk away.'
 				end
 			end
-			
+
 			act 'Leave': minut += 15 & gt 'gad_road', 'start'
 		end
 	! Sveta is drunk but hasn''t done anything to encourage Mitka yet
@@ -158,7 +158,7 @@ if $ARGS[0] = 'partyalone':
 		'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big63.jpg"></center>'
 		*nl
 		'You are way too drunk, and can barely stand. Mitka, noticing your condition, walks over to you and laughs, "It seems you''ve had enough for tonight. Get out of here."'
-		
+
 		act 'Leave': minut += 15 & gt 'gad_road', 'start'
 	end
 end
@@ -174,15 +174,15 @@ if $ARGS[0] = 'partywithMira':
 
 	!start Mira''s quest
 	if MiraVars['QW'] = 0: MiraVars['QW'] = 1
-	
+
 	'<center><img <<$set_imgh>> src="images/locations/gadukino/village/drunk.jpg"></center>'
 	*nl
 	'You, Mira, Mitka, Kolyamba and Vasyan are sitting on some '+iif(sunWeather=1,'logs outside','couches inside')+' the trailer. There is plenty of moonshine to go around but no snacks.'
-	
+
 	! prevent drinking events from repeating after sex is done because the passage of time in the sex events allowed alko to decrease again
 	if GadBoy['drunk_event'] = 1 and alko < 10: alko = 10
 	if MiraVars['drunk_event'] = 1 and npc_drunk['A60'] < 10: npc_drunk['A60'] = 10
-	
+
 	! Sveta is drunk and Mira is drunk and boys fucked both already tonight
 	if npc_drunk['A60'] >= 10 and alko >= 10 and GadBoy['drunk_event'] = 1 and MiraVars['drunk_event'] = 1:
 		*clr & cla
@@ -201,7 +201,7 @@ if $ARGS[0] = 'partywithMira':
 			'You and Mira are both way too drunk and can barely stand. The guys tell you to leave, they already fucked you tonight, but to make sure to come back tomorrow for another round.'
 			'As you are leaving the guys call after you both "Hey, <<$pcs_nickname>> and Mira, come drink with us again, we love fucking you both!! Ha-ha!" They laugh as you make your way out. You are too drunk to come up with a proper insult and just walk away with Mira.'
 		end
-		
+
 		act 'Leave': minut += 15 & gt 'gad_road', 'start'
 	! Mira is drunk and not had sex with the boys or refused a drink yet tonight
 	elseif npc_drunk['A60'] >= 10 and MiraVars['drunk_event'] = 0:
@@ -230,7 +230,7 @@ if $ARGS[0] = 'partywithMira':
 						gs 'willpower', 'drink', 'resist'
 						gs 'willpower', 'pay', 'resist'
 						gs 'stat'
-						
+
 						gt 'gad_road', 'start'
 					end
 				else
@@ -245,7 +245,7 @@ if $ARGS[0] = 'partywithMira':
 					npc_rel['A63'] += rand(0, 1)
 					gs 'drugs', 'alcohol', 'moonshine', 1
 					gs 'stat'
-					
+
 					act 'Continue drinking':gt 'mitkabuh','partywithMira'
 				end
 			else
@@ -254,7 +254,7 @@ if $ARGS[0] = 'partywithMira':
 				*nl
 				'You and Mira are both way too drunk and can barely stand. You decide it is time to go for the night and you should walk home together.'
 				'As you are leaving you overhear the guys talking about you both, but can''t make out what they are saying.'
-				
+
 				act 'Leave': minut += 15 & gt 'gad_road', 'start'
 			end
 		end
@@ -297,20 +297,20 @@ if $ARGS[0] = 'partywithMira':
 						gs 'willpower', 'drink', 'force'
 						gs 'willpower', 'pay', 'force'
 						gs 'stat'
-						
+
 						act 'Continue drinking':gt 'mitkabuh','partywithMira'
 					end
 				else
 					act 'Make Mira drink the shot instead (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
 				end
-				
+
 			else
 				*clr & cla
 				'<center><img <<$set_imgh>> src="images/characters/gadukino/mira/girls_go.jpg"></center>'
 				*nl
 				'You and Mira are both way too drunk and can barely stand. You decide it is time to go for the night and you should walk home together.'
 				'As you are leaving you overhear the guys talking about you both, but can''t make out what they are saying.'
-				
+
 				act 'Leave': minut += 15 & gt 'gad_road', 'start'
 			end
 		end
@@ -339,7 +339,7 @@ if $ARGS[0] = 'partywithMira':
 				npc_rel['A62'] += rand(0, 1)
 				npc_rel['A63'] += rand(0, 1)
 				gs 'stat'
-				
+
 				'<center><img <<$set_imgh>> src="images/locations/gadukino/village/drinking.jpg"></center>'
 				*nl
 				'Mitka pours some of the brew into a clear plastic shot glass and hands it over to you.'
@@ -356,9 +356,9 @@ if $ARGS[0] = 'partywithMira':
 						gs 'willpower', 'drink', 'force'
 						gs 'willpower', 'pay', 'force'
 						gs 'stat'
-						
+
 						'Mira examines the glass''s contents for a moment, then gulps down the entire glass with a single toss of her head. Her eyes widen and she coughs a little, sucking in her breath with a smile. You chat with the boys as they drink as well.'
-						
+
 						act 'Continue drinking':gt 'mitkabuh','partywithMira'
 					end
 				else
@@ -373,7 +373,7 @@ if $ARGS[0] = 'partywithMira':
 					npc_rel['A63'] += rand(0, 1)
 					gs 'drugs', 'alcohol', 'moonshine', 1
 					gs 'stat'
-					
+
 					'You take the shot glass full of moonshine and quickly gulp it down, you cough and suck in your breath. Mira chats with the boys as they drink as well.'
 					'Mitka looks at you approvingly, "Good shit, right?"'
 					if GadBoy['first_drink'] = 1:
@@ -382,7 +382,7 @@ if $ARGS[0] = 'partywithMira':
 					else
 						'"Just as good as the last batch you made!" you reply.'
 					end
-					
+
 					act 'Continue drinking':gt 'mitkabuh','partywithMira'
 				end
 			end
@@ -395,7 +395,7 @@ if $ARGS[0] = 'partywithMira':
 					gs 'willpower', 'drink', 'resist'
 					gs 'willpower', 'pay', 'resist'
 					gs 'stat'
-					
+
 					gt 'gad_road', 'start'
 				end
 			else
@@ -411,7 +411,7 @@ if $ARGS[0] = 'partywithMira':
 				npc_rel['A63'] += rand(0, 1)
 				gs 'drugs', 'alcohol', 'moonshine', 1
 				gs 'stat'
-				
+
 				'<center><img <<$set_imgh>> src="images/locations/gadukino/village/drinking.jpg"></center>'
 				*nl
 				'Mitka pours some of the brew into a clear plastic shot glass and hands it over to you.'
@@ -439,12 +439,12 @@ if $ARGS[0] = 'partywithMira':
 				minut += 15
 				npc_drunk['A60'] += 5
 				gs 'stat'
-				
+
 				'<center><img <<$set_imgh>> src="images/locations/gadukino/village/drinking.jpg"></center>'
 				*nl
 				'Mitka pours some of the brew into a clear plastic shot glass and hands it over to Mira.'
 				'Mira examines the glass''s contents for a moment, then gulps down the entire glass with a single toss of her head. Her eyes widen and she coughs a little, sucking in her breath with a smile. You chat with the boys as they drink as well.'
-				
+
 				act 'Continue watching':gt 'mitkabuh','partywithMira'
 			end
 		end
@@ -490,7 +490,7 @@ if $ARGS[0] = 'solo_1to9':
 	'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big63.jpg"></center>'
 	*nl
 	'You are way too drunk and can barely stand. Mitka, noticing your condition, grabs you by the waist. "Well, well little <<$pcs_nickname>>, had a bit too much to drink? Come with me."'
-	
+
 	temp_rand = rand(1, 10)
 	if (temp_rand = 1 or (temp_rand < 5 and stat['think_virgin'] = 0)) and mesec = 0:
 		act 'You nod and slur your words... mumbling something as you fall into his waiting arms':
@@ -509,7 +509,7 @@ if $ARGS[0] = 'solo_1to9':
 			end
 			'Mitka doesn''t bother to pull out and cums deep inside you. Breathing heavily, he gets off of you and says, "You''re an even better slut when drunk!"'
 			'He gets up and goes back to drinking with Kolyamba and Vasyan, leaving you naked on the bed. After a little while you sober up enough to get dressed and go sit back by the boys.'
-			
+
 			npc_rel['A63'] += 1
 			if npc_QW['A63'] < 10: npc_QW['A63'] += 1
 			gs 'boyStat', 'A63'
@@ -518,25 +518,25 @@ if $ARGS[0] = 'solo_1to9':
 			gs 'arousal', 'vaginal', 20, 'sub'
 			gs 'arousal', 'end'
 			gs 'stat'
-			
+
 			gs 'mitkabuh', 'set_continue_acts'
 		end
 	elseif temp_rand < 9:
 		act 'You nod and slur your words... mumbling something as you fall into his waiting arms':
 			*clr & cla
-			
+
 			'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mitka/mitkabj.jpg"></center>'
 			*nl
 			'He takes you '+iif(sunWeather=1,'inside the trailer','into the bedroom of the trailer')+' and pushes you to your knees.'
 			'He makes you remove your clothes before he puts his cock in your mouth for you to suck on.'
-			
+
 			npc_rel['A63'] += 1
 			if npc_QW['A63'] < 10: npc_QW['A63'] += 1
 			gs 'boyStat', 'A63'
 			npc_sex['A63'] += 1
 			gs 'arousal', 'bj', 10, 'sub'
 			gs 'stat'
-			
+
 			act 'Make him cum':
 				*clr & cla
 				temp_rand = rand(0,5)
@@ -545,7 +545,7 @@ if $ARGS[0] = 'solo_1to9':
 					*nl
 					'You are sucking his cock fiercely until suddenly warm cum starts to fill your mouth. Surprised, you pull his cock out of your mouth which continues to shoot cum onto your face and breasts.'
 					'He makes you lick his dick clean before he leaves you to go back to drinking with Kolyamba and Vasyan. After a little while you sober up enough to get dressed and go sit back by the boys.'
-					
+
 					minut += 5
 					gs 'cum_call','face','A63',1
 					gs 'cum_call','mouth','A63',1
@@ -556,7 +556,7 @@ if $ARGS[0] = 'solo_1to9':
 					'You tighten your lips and suck harder on Mitka''s cock. Your head bobs up and down as you cram as much of his cock as deep in your mouth and throat as you can take it.'
 					'Eventually, you feel Mitka''s cock pulse and a few seconds later your mouth is filled with his salty sperm. You quickly swallow it all down.'
 					'He makes you lick his dick clean before he leaves you to go back to drinking with Kolyamba and Vasyan. After a little while you sober up enough to get dressed and go sit back by the boys.'
-					
+
 					gs 'arousal', 'bj', 5, 'sub', 'deepthroat'
 					gs 'cum_call','mouth_swallow','A63',1
 				else
@@ -565,7 +565,7 @@ if $ARGS[0] = 'solo_1to9':
 					'Mitka, roughly grabs you by by the hair and face fucks you. All you can do is keep your mouth open as his cock hits the back of your throat.'
 					'As he gets close to cumming, he pulls your head back and starts to spurt warm sticky spunk all over your face and hair.'
 					'He makes you lick his dick clean before he leaves you to go back to drinking with Kolyamba and Vasyan. After a little while you sober up enough to get dressed and go sit back by the boys.'
-					
+
 					gs 'arousal', 'bj', 5, 'sub', 'deepthroat', 'rough'
 					gs 'cum_call','face','A63',1
 					gs 'cum_call','mouth_swallow','A63',1
@@ -594,7 +594,7 @@ if $ARGS[0] = 'solo_1to9':
 			end
 			'Mitka doesn''t bother to pull out and cums deep inside your ass. Breathing heavily, he gets off of you and says, "You''re an even better slut when drunk!"'
 			'He gets up and goes back to drinking with Kolyamba and Vasyan, leaving you naked on the bed. After a little while you sober up enough to get dressed and go sit back by the boys.'
-			
+
 			npc_rel['A63'] += 1
 			if npc_QW['A63'] < 10: npc_QW['A63'] += 1
 			gs 'boyStat', 'A63'
@@ -617,7 +617,7 @@ if $ARGS[0] = 'solo_10':
 	'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big63.jpg"></center>'
 	*nl
 	'You are way too drunk and can barely stand. Mitka, noticing your condition, grabs you by the waist. "Well, well little <<$pcs_nickname>>, had a bit too much to drink? Come with me."'
-	
+
 	act 'You mumble something about needing to pee':
 		*clr & cla
 		'<center><img <<$set_imgh>> src="images/locations/gadukino/village/drunkgirl.jpg"></center>'
@@ -634,7 +634,7 @@ if $ARGS[0] = 'solo_10':
 			'You refuse, drunkenly trying to fight off the advancing Kolyamba while barely standing on your feet.'
 			'Your struggles piss Mitka off, who grabs you by the arm and leads you '+iif(sunWeather=1,'inside the trailer','into the bedroom of the trailer')+'.'
 			'Mitka whispers in your ear, "You want my dick so bad then you can have it this time. But, next time you will do as I say. Understand?"'
-			
+
 			act 'Moan in affirmation':
 				*clr & cla
 				'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mitka/mitkasexnopublic.jpg"></center>'
@@ -642,7 +642,7 @@ if $ARGS[0] = 'solo_10':
 				'Mitka roughly rips all your clothes off, bends you over the bed and begins mercilessly pounding you. You''ve never seen him this way before, maybe everyone is just more drunk than usual and this will all blow over tomorrow.'
 				'All you can manage are moans as Mitka fucks you. They are so loud you are sure everyone else can hear you outside the bedroom. You can''t help but think to yourself that the other guys may start treating you differently after tonight.'
 				'He cums inside of you and then goes back to drinking with Kolyamba and Vasyan, leaving you naked on the bed. After a little while you sober up enough to get dressed and go sit back by the boys.'
-				
+
 				npc_rel['A63'] += 1
 				npc_rel['A61'] -= 5
 				npc_QW['A63'] = 11
@@ -669,7 +669,7 @@ if $ARGS[0] = 'solo_10':
 			'All you can manage are moans as Kolyamba fucks you, but you can''t help but think to yourself that the other guys may start treating you differently after tonight.'
 			'You are both so drunk that any type of rhythm is hard to maintain. Eventually Kolyamba speeds up a little and finishes inside of your '+iif(mesec=0,'pussy','ass')+'.'
 			'He gets up and goes back to drinking with Mitka and Vasyan, leaving you naked outside. After a little while you sober up enough to get dressed and go sit back by the boys.'
-			
+
 			npc_rel['A63'] += 1
 			npc_rel['A61'] += 5
 			npc_QW['A63'] = 11
@@ -710,7 +710,7 @@ if $ARGS[0] = 'solo_11andup_1boy':
 		*nl
 		'While you are drinking, <<$boydesc[0]>> comes up to you and takes the shot glass out of your hand. You can have this back after you do something for me.'
 		'"Get down on your knees and suck my dick." <<$boydesc[0]>> commands as he pulls his pants down.'
-		
+
 		act 'Suck his dick':
 			*clr & cla
 			npc_rel[$boy[0]] += 1
@@ -718,11 +718,11 @@ if $ARGS[0] = 'solo_11andup_1boy':
 			npc_sex[$boy[0]] += 1
 			gs 'arousal', 'bj', 10, 'sub'
 			gs 'stat'
-			
+
 			'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mitka/mitkabjpublic.jpg"></center>'
 			*nl
 			'You kneel and take his cock in your mouth and it quickly stiffens as you lick it. You fit as much of it in your mouth as you can.'
-			
+
 			act 'Make him cum':
 				*clr & cla
 				'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mitka/mitkagroupcum2.jpg"></center>'
@@ -734,7 +734,7 @@ if $ARGS[0] = 'solo_11andup_1boy':
 					money += 5
 				end
 				'He makes you lick his dick clean before he leaves you to go back to drinking again. After a little while you sober up enough to get dressed and go sit back by the boys.'
-				
+
 				gs 'arousal', 'bj', 5, 'sub', 'deepthroat'
 				gs 'cum_call','mouth_swallow',$boy[0],1
 				gs 'arousal', 'end'
@@ -757,7 +757,7 @@ if $ARGS[0] = 'solo_11andup_1boy':
 		*nl
 		'While you are drinking, <<$boydesc[0]>> comes up to you and takes the shot glass out of your hand. You can have this back after you do something for me.'
 		'"Bend over and let me fuck you." <<$boydesc[0]>> commands as he pulls his pants down.'
-		
+
 		act 'Bend over':
 			*clr & cla
 			npc_rel[$boy[0]] += 1
@@ -769,7 +769,7 @@ if $ARGS[0] = 'solo_11andup_1boy':
 				gs 'arousal', 'anal', 20, 'sub'
 			end
 			gs 'stat'
-			
+
 			'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mitka/mitkasexpublic.jpg"></center>'
 			*nl
 			'<<$boydesc[0]>> bends you over a nearby log outside the trailer. He places one hand on your back to steady himself while guiding his dick into your '+iif(mesec=0,'pussy','ass')+'.'
@@ -785,7 +785,7 @@ if $ARGS[0] = 'solo_11andup_1boy':
 				money += 5
 			end
 			'He gets up and goes back to drinking again, leaving you alone outside. After a little while you sober up enough to get dressed and go sit back by the boys.'
-			
+
 			gs 'arousal', 'end'
 			gs 'stat'
 
@@ -821,7 +821,7 @@ if $ARGS[0] = 'solo_11andup_2boys':
 		*nl
 		'While you are drinking, <<$boydesc[0]>> and <<$boydesc[1]>> come up to you and takes the shot glass out of your hand. You can have this back after you do something for us.'
 		'"Get down on your knees and suck our dicks." <<$boydesc[0]>> commands as he pulls his pants down. <<$boydesc[1]>> quickly follows his lead and start getting his own dick out.'
-		
+
 		act 'Suck them one a time':
 			*clr & cla
 			npc_rel[$boy[0]] += 1
@@ -832,12 +832,12 @@ if $ARGS[0] = 'solo_11andup_2boys':
 			gs 'arousal', 'bj', 10, 'sub'
 			gang += 1
 			gs 'stat'
-			
+
 			'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mitka/mitkabjpublicguys.jpg"></center>'
 			*nl
 			'As you bend over to suck <<$boydesc[0]>>''s cock, <<$boydesc[1]>> moves behind you and begins to finger your '+iif(mesec=0,'pussy','ass')+'.'
 			'After a few minutes they switch positions, each taking turns having you blow them while the other fingers you.'
-			
+
 			act 'Make them cum':
 				*clr & cla
 				'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mitka/mitkabjpublicguys2.jpg"></center>'
@@ -849,7 +849,7 @@ if $ARGS[0] = 'solo_11andup_2boys':
 					money += 5
 				end
 				'They make you lick them both clean before going back to drinking again. After a little while you sober up enough to get dressed and go sit back by the boys.'
-				
+
 				gs 'arousal', 'bj', 5, 'sub', 'deepthroat'
 				gs 'cum_call','mouth_swallow',$boy[0],1
 				gs 'cum_call','mouth',$boy[1],1
@@ -878,7 +878,7 @@ if $ARGS[0] = 'solo_11andup_2boys':
 		*nl
 		'While you are drinking, <<$boydesc[0]>> and <<$boydesc[1]>> come up to you and takes the shot glass out of your hand. You can have this back after you do something for us.'
 		'"Let us double team you." <<$boydesc[0]>> commands as he pulls his pants down. <<$boydesc[1]>> quickly follows his lead and start getting his own dick out.'
-		
+
 		act 'Bend over for them':
 			*clr & cla
 			npc_rel[$boy[0]] += 1
@@ -894,7 +894,7 @@ if $ARGS[0] = 'solo_11andup_2boys':
 			end
 			gang += 1
 			gs 'stat'
-			
+
 			if sunWeather = 1:
 				'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mitka/mitkapublicguys2.jpg"></center>'
 			else
@@ -911,7 +911,7 @@ if $ARGS[0] = 'solo_11andup_2boys':
 				money += 5
 			end
 			'They make you lick them both clean before going back to drinking again. After a little while you sober up enough to get dressed and go sit back by the boys.'
-			
+
 			if mesec = 0:
 				gs 'cum_call','vagina',$boy[0],1
 			else
@@ -936,14 +936,14 @@ if $ARGS[0] = 'solo_11andup_3boys':
 	*nl
 	'While you are drinking, Mitka, Kolyamba and Vasyan come up to you and take the shot glass out of your hand. You can have this back after you do something for us.'
 	'"Let us all gangbang you." Mitka commands as he pulls his pants down. Kolyamba and Vasyan quickly follow his lead and start getting their own dicks out.'
-	
+
 	act 'Smile at them':
 		*clr & cla
 		'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mitka/mitkagroup.jpg"></center>'
 		*nl
 		'You have a seat on the bench outside the trailer and expose your breasts to the boys. This is all the encouragement the boys need as they quickly surround you.'
 		'You start jerking off Kolyamba and Vasyan while Mitka pushes his fingers into your '+iif(mesec=0,'pussy','ass')+'.'
-		
+
 		npc_rel['A63'] += 1
 		npc_rel['A62'] += 1
 		npc_rel['A61'] += 1
@@ -962,7 +962,7 @@ if $ARGS[0] = 'solo_11andup_3boys':
 			gs 'arousal', 'anal_finger', 5, 'sub', 'gangbang'
 		end
 		gs 'stat'
-		
+
 		act 'Get gangbanged':
 			*clr & cla
 			'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mitka/mitkagroupcum.jpg"></center>'
@@ -977,7 +977,7 @@ if $ARGS[0] = 'solo_11andup_3boys':
 				money += 5
 			end
 			'The guys then go back to drinking and leave you naked and alone outside. After a little while you sober up enough to get dressed and go sit back by the boys.'
-			
+
 			gs 'arousal', 'hj', 10, 'sub', 'gangbang', 'rough'
 			gs 'arousal', 'bj', 10, 'sub', 'gangbang', 'rough'
 			if mesec = 0:
@@ -1012,17 +1012,17 @@ if $ARGS[0] = 'mira_5':
 	minut += 5
 	MiraVars['QW'] = 6
 	gs 'stat'
-	
+
 	gs 'miroslava','miraclothes'
 	*nl
 	'Mira is absolutely trashed now, she looks at you and winks before taking Mitka''s hand and leading him '+iif(sunWeather=1,'behind the trailer out of view ',' outside the trailer away')+' from the other boys.'
 	'A few minutes later, you excuse yourself from talking with Kolyamba and Vasyan and follow after them.'
-	
+
 	act 'Watch them':
 		*clr & cla
 		gs 'arousal', 'voyeur_sex', 15, 'sub'
 		gs 'stat'
-		
+
 		'<center><img <<$set_imgh>> src="images/characters/gadukino/mira/sex/mirawish1_2.jpg"></center>'
 		*nl
 		'By the time you catch up and find a good hiding spot, Mitka and Mira have already started. Mira is naked, lying on a wooden table with her fit up in the air.'
@@ -1030,19 +1030,19 @@ if $ARGS[0] = 'mira_5':
 		'The loud sounds of Mitka''s thrusts can easily be heard from you where you are spying from. After 15 minutes Mira is wriggling her ass and mooing, having the time of her life.'
 		'This is too much for Mitka and he begins to noisily cum in her ass, not even bothering to pull out. He makes her clean his cock before heading back to drink with the other boys some more.'
 		'Mira looks around to try and spot you, but cannot see you in her drunk state.'
-		
+
 		act 'Talk to Mira':
 			*clr & cla
 			minut += 5
 			MiraVars['QW'] = 7
 			gs 'stat'
-			
+
 			gs 'miroslava','miraclothes'
 			*nl
 			'You emerge from your hiding spot and go up to Mira. You tell her that you saw everything as Mitka fucked her in the ass.'
 			'You ask her if she likes having her ass fucked. To your surprise, Mira responds that yes she did enjoy it.'
 			'You are slightly disappointed because this was supposed to be a punishment, and then remind her, that she still has two wishes to fullfill. Once they are all fullfilled, she will have satisfied her debt to you. Mira nods her head and says, she is ready to obey your wishes upon demand.'
-		
+
 			if sunWeather = 1:
 				act 'Go back to the trailer':gt 'mitkabuh','partywithMira'
 			else
@@ -1059,17 +1059,17 @@ if $ARGS[0] = 'mira_7':
 	minut += 5
 	MiraVars['QW'] = 8
 	gs 'stat'
-	
+
 	gs 'miroslava','miraclothes'
 	*nl
 	'"I''m bored!" Mitka yells. "Mira get your ass down and give us a show to remember!" he snorts like a pig. "Show us how how loose your holes are whore..."'
 	'Mira refuses. Mitka and the others immediately demand she follow their orders. She continues to refuse to do their bidding. Eventually Mira offers a compromise and they agree with it, she''ll just strip naked and be made to crawl around in front of them on all fours, portraying a dog...'
-		
+
 	act 'Watch her':
 		*clr & cla
 		gs 'arousal', 'erotic_nudity', 15, 'sub'
 		gs 'stat'
-		
+
 		'<center><img <<$set_imgh>> src="images/characters/gadukino/mira/miraqw15_1.jpg"></center>'
 		*nl
 		'Mira takes off all her clothes and for the next fifteen minutes crawls around on all fours on the grass, constantly rolling her head from side to side and barking a little. The guys laugh and drink as Mira demeans herself for their entertainment.'
@@ -1089,7 +1089,7 @@ if $ARGS[0] = 'mira_8':
 	minut += 5
 	MiraVars['QW'] = 9
 	gs 'stat'
-	
+
 	gs 'miroslava','miraclothes'
 	*nl
 	'"I''m bored!" Mitka yells. "Mira get your ass down and give us a show to remember!" he snorts like a pig. "Show us how how loose your holes are whore..."'
@@ -1099,7 +1099,7 @@ if $ARGS[0] = 'mira_8':
 		*clr & cla
 		gs 'arousal', 'voyeur_sex', 15, 'sub'
 		gs 'stat'
-		
+
 		'<center><img <<$set_imgh>> src="images/characters/gadukino/mira/sex/miraqw15.jpg"></center>'
 		*nl
 		'Mira gets down on all fours and sticks out her ass in the direction of the party. She begins to push her fingers into both holes. Mira moans as she forces more fingers into her stretched holes.'
@@ -1120,65 +1120,65 @@ if $ARGS[0] = 'mira_9':
 	minut += 5
 	MiraVars['QW'] = 10
 	gs 'stat'
-	
+
 	gs 'miroslava','miraclothes'
 	*nl
 	'Mira is super drunk now and can barely stand but keeps asking for more moonshine. Vasyan comes over to her and says with a devilish grin on his face "I have a better idea. How about you service both mine and Kolyamba''s dicks instead? Then you can have more to drink."'
 	'Mira only chuckles in response and says, "Sure, but can you guys get it up with all the moonshine you have been drinking?" Mitka gives her a pat on the ass, and says that she is a responsible adult and can make up her own mind. Kolyamba meanwhile, walks over to Mira and forcefully presses down on her shoulders.'
 	'Mira, drunkenly giggles, and playfully resists for a few seconds, but eventually gets on her knees. She watches as he unzips his pants and pulls them down to his ankles...'
-	
+
 	act 'Watch her and Kolyamba':
 		*clr & cla
 		gs 'arousal', 'voyeur_sex', 5, 'sub'
 		gs 'stat'
-		
+
 		'<center><img <<$set_imgh>> src="images/characters/gadukino/mira/sex/miraqw10.jpg"></center>'
 		*nl
 		'Mira, seeing that his dick is not yet fully erect, immediately leans forward and swallows it down to the balls and begins to give him an excellent blowjob. Her lips slide over the skin, then sucking it fully into her mouth, then releasing the dick and licking the head and shaft. Kolyamba blissfully closes his eyes and enjoys Mira''s blowjob.'
 		if npc_QW['A63'] < 10: 'Mitka askes if you will do the same for him, but you snort and tell him no. Mitka looks disappointed, but hands you another shot glass full of moonshine.'
-		
+
 		act 'Continue':
 			*clr & cla
 			gs 'arousal', 'voyeur_sex', 5, 'sub'
 			gs 'stat'
-			
+
 			'<center><img <<$set_imgh>> src="images/characters/gadukino/mira/sex/miraqw10_1.jpg"></center>'
 			*nl
 			'After a several minutes of Mira sucking on his cock, Kolyamba roughly pushes her mouth off his cock and he begins to shoot ropes of cum onto her face. Mira''s eyes are closed, she drunkenly mumbles, trying to act like a sexy pornstar, while slowly wiping her fingers across her face collecting the sperm. She then puts her fingers in her mouth and sucks them clean.'
-			
+
 			act 'Watch her and Vasyan':
 				*clr & cla
 				gs 'arousal', 'voyeur_sex', 5, 'sub'
 				gs 'stat'
-				
+
 				'<center><img <<$set_imgh>> src="images/characters/gadukino/mira/sex/miraqw10_2.jpg"></center>'
 				*nl
 				'"Well, now it''s my turn", says Vasyan and steps before Mira. She enthusiastically sucks him as well and he eventually cums on her tongue and in her mouth. She swallows his entire load.'
-				
+
 				act 'Watch her and Mitka':
 					*clr & cla
 					gs 'arousal', 'voyeur_sex', 5, 'sub'
 					gs 'stat'
-					
+
 					'<center><img <<$set_imgh>> src="images/characters/gadukino/mira/sex/miraqw10_3.jpg"></center>'
 					*nl
 					'Mitka, having drunk several shots himself already, silently walks over to Mira and without saying a word, signals for her to bend over. Mira, drunkenly staggers about for a few seconds before obediently turning her ass to him, and sliding her panties out of the way, exposing her wet cunt for all to see. Mitka pulls out his cock and places the head between her pussy lips, rubbing it up and down lubricating it with her juices.'
-					
+
 					act 'Continue':
 						*clr & cla
 						gs 'arousal', 'voyeur_sex', 10, 'sub'
 						gs 'stat'
-						
+
 						'<center><img <<$set_imgh>> src="images/characters/gadukino/mira/sex/miraqw10_4.jpg"></center>'
 						'Mitka slaps her on the butt hard, leaving a red hand print on her ass. He roughly grabs her panties and pulls them down to her knees before starting to fuck her roughly. Mitka is extremely drunk and doesn''t last long at all, quickly cumming in her pussy. Mira sighs with a look of satisfaction on her face as she orgasms too. Your own crotch is on fire and all you want is to masturbate. The boys look at you and smile knowlingly, seeing your hand slightly touching your own crotch and rubbing your legs together. You need to get away before you lose control and ask the guys to fuck you too.'
-						
-						
+
+
 						act 'Talk to Mira':
 							*clr & cla
 							minut += 5
 							MiraVars['QW'] = 11
 							gs 'stat'
-							
+
 							gs 'miroslava','miraclothes'
 							*nl
 							'You don''t know where to begin, as you walk up to Mira. Mira is slowly coming back to her senses as she looks at herself and begins to blush.'
@@ -1187,7 +1187,7 @@ if $ARGS[0] = 'mira_9':
 							'But you were also drunk, and did not do what she did. Her face sinks with shame and she continues to look at the ground.'
 							'You manage to soothe her and tell her that, she should just bite the bullet and move on. Everything will be okay and you should just go back to drinking and having fun.'
 							'Mira thanks you for your support, but she still can''t bring herself to look at you.'
-						
+
 							if sunWeather = 1:
 								act 'Go back to the trailer':gt 'mitkabuh','partywithMira'
 							else
@@ -1208,20 +1208,20 @@ if $ARGS[0] = 'mira_11andup':
 	minut += 5
 	if MiraVars['QW'] < 15: MiraVars['QW'] += 1
 	gs 'stat'
-	
+
 	temp_rand = rand(1, 3)
 	if rand(0,1) = 0:
 		'<center><img <<$set_imgh>> src="images/characters/gadukino/mira/miraqw11_4.jpg"></center>'
 		*nl
 		'"Well Mira," Mirka says while smiling. "Are you ready to suck some cock?" - The other guys voice their agreement.'
 		'Mira blushes a bit but nods and obediently kneels down right where she was.'
-		
+
 		if temp_rand = 1:
 			act 'Watch her':
 				*clr & cla
 				gs 'arousal', 'voyeur_sex', 15, 'sub', 'group'
 				gs 'stat'
-				
+
 				'<center><img <<$set_imgh>> src="images/characters/gadukino/mira/sex/miraqw11_5.jpg"></center>'
 				*nl
 				'The boys immediately forget about you, as they surround Mira and pull out their cocks and present them to her. Mira starts to suck off all the guys and the sound of moans and loud slurping sounds interrupt the silence of the night. It does not take long for Mira to make the guys cum all over her.'
@@ -1229,7 +1229,7 @@ if $ARGS[0] = 'mira_11andup':
 					'After they''re done Mitka looks at Mira and says, "What are you waiting for? Oh right, money. You''ll do anything for a ruble. Here you go."'
 					'He takes a 5 ruble note out of his pocket and throws it at her, "Clean yourself up with that."'
 				end
-				
+
 				if sunWeather = 1:
 					act 'Go back to the trailer':gt 'mitkabuh','partywithMira'
 				else
@@ -1241,7 +1241,7 @@ if $ARGS[0] = 'mira_11andup':
 				*clr & cla
 				gs 'arousal', 'voyeur_sex', 15, 'sub', 'goup'
 				gs 'stat'
-				
+
 				'<center><img <<$set_imgh>> src="images/characters/gadukino/mira/sex/miraqw11_6.jpg"></center>'
 				*nl
 				'The boys immediately forget about you, as they surround Mira and take turns roughly fucking her mouth. She grunts and gags a lot, but they don''t pay attention, they continue to slam their cocks into her mouth and throat until they have all cum on her.'
@@ -1249,7 +1249,7 @@ if $ARGS[0] = 'mira_11andup':
 					'After they''re done Mitka looks at Mira and says, "What are you waiting for? Oh right, money. You''ll do anything for a ruble. Here you go."'
 					'He takes a 5 ruble note out of his pocket and throws it at her, "Clean yourself up with that."'
 				end
-				
+
 				if sunWeather = 1:
 					act 'Go back to the trailer':gt 'mitkabuh','partywithMira'
 				else
@@ -1261,7 +1261,7 @@ if $ARGS[0] = 'mira_11andup':
 				*clr & cla
 				gs 'arousal', 'voyeur_sex', 15, 'sub', 'group'
 				gs 'stat'
-				
+
 				'<center><img <<$set_imgh>> src="images/characters/gadukino/mira/sex/miraqw11_7.jpg"></center>'
 				*nl
 				'The boys immediately forget about you, as they surround Mira and take their cocks out. She starts sucking off each guy while jerking off the others with her free hands. Mira has gotten pretty good at this you think to yourself as the boys quickly climax and shoot their loads in her mouth.'
@@ -1269,7 +1269,7 @@ if $ARGS[0] = 'mira_11andup':
 					'After they''re done Mitka looks at Mira and says, "What are you waiting for? Oh right, money. You''ll do anything for a ruble. Here you go."'
 					'He takes a 5 ruble note out of his pocket and throws it at her, "Clean yourself up with that."'
 				end
-				
+
 				if sunWeather = 1:
 					act 'Go back to the trailer':gt 'mitkabuh','partywithMira'
 				else
@@ -1282,13 +1282,13 @@ if $ARGS[0] = 'mira_11andup':
 		*nl
 		'"Well Mira," Mitka says while smiling. "Are you ready to work that pussy?" - The other guys voice their agreement.'
 		'Mira drunkenly giggles in response, after which she readily pulls down her pants in front of the group, turns her back to them and then pulls down her panties. She bends forward displaying her pussy and ass for everyone to see.'
-		
+
 		if temp_rand = 1:
 			act 'Watch her':
 				*clr & cla
 				gs 'arousal', 'voyeur_sex', 15, 'sub'
 				gs 'stat'
-				
+
 				'<center><img <<$set_imgh>> src="images/characters/gadukino/mira/sex/miraqw11_1.jpg"></center>'
 				*nl
 				'Kolyamba is pleased with the show but wants more tonight. He pulls Mira aside, and orders her to work her cunt on his cock. He pulls off his pants and plops down waiting for her to obey. Mira jumps on top of him and starts to ride his cock until he cums inside of her.'
@@ -1296,7 +1296,7 @@ if $ARGS[0] = 'mira_11andup':
 					'After he''s done Kolyamba looks at Mira and says, "What are you waiting for? Oh right, money. You''ll do anything for a ruble. Here you go."'
 					'He takes a 5 ruble note out of his pocket and throws it at her, "Clean yourself up with that."'
 				end
-				
+
 				if sunWeather = 1:
 					act 'Go back to the trailer':gt 'mitkabuh','partywithMira'
 				else
@@ -1308,7 +1308,7 @@ if $ARGS[0] = 'mira_11andup':
 				*clr & cla
 				gs 'arousal', 'voyeur_sex', 15, 'sub'
 				gs 'stat'
-				
+
 				'<center><img <<$set_imgh>> src="images/characters/gadukino/mira/sex/miraqw11_2.jpg"></center>'
 				*nl
 				'Mitka grunts approvingly and takes the drunk Mira aside, where he pulls down his pants and shoves his cock into her exposed pussy. He fucks her for several a while until dumping his load into her pussy.'
@@ -1316,7 +1316,7 @@ if $ARGS[0] = 'mira_11andup':
 					'After he''s done Mitka looks at Mira and says, "What are you waiting for? Oh right, money. You''ll do anything for a ruble. Here you go."'
 					'He takes a 5 ruble note out of his pocket and throws it at her, "Clean yourself up with that."'
 				end
-				
+
 				if sunWeather = 1:
 					act 'Go back to the trailer':gt 'mitkabuh','partywithMira'
 				else
@@ -1328,7 +1328,7 @@ if $ARGS[0] = 'mira_11andup':
 				*clr & cla
 				gs 'arousal', 'voyeur_sex', 15, 'sub'
 				gs 'stat'
-				
+
 				'<center><img <<$set_imgh>> src="images/characters/gadukino/mira/sex/miraqw11_3.jpg"></center>'
 				*nl
 				'Vasyan enjoys the show and asks Mira to follow him and take off her clothes. Mira looks at him for a second before complying with his order. Once completely naked Vasyan pulls off his pants and starts to fuck Mira. Vasyan, hoots and hollers as he roughly fucks Mira, acting like a cowboy. Eventally, he cums deep in her pussy.'
@@ -1336,7 +1336,7 @@ if $ARGS[0] = 'mira_11andup':
 					'After he''s done Vasyan looks at Mira and says, "What are you waiting for? Oh right, money. You''ll do anything for a ruble. Here you go."'
 					'He takes a 5 ruble note out of his pocket and throws it at her, "Clean yourself up with that."'
 				end
-				
+
 				if sunWeather = 1:
 					act 'Go back to the trailer': gt 'mitkabuh','partywithMira'
 				else

locations/mother.qsrc

@@ -138,11 +138,10 @@ if $ARGS[0] = '':
 		dynamic $mother_clothes[2]
 	end
 
-	if pirsA > 0 and pirsA < 10000 and pirsAmother=0 and motherpirsadaytalk!daystart:
+	if pcs_piercings['tongue'] > 0 and motherQW['piercing_tongue'] = 0 and motherQW['piercing_talkday'] ! daystart:
 		!!mother tongue piercing notes
-		pirseerand = rand(1,100)
-		motherpirsadaytalk = daystart
-		if pirseerand >= 75:
+		motherQW['piercing_talkday'] = daystart
+		if rand(1,100) >= 75:
 			'Your <<$npc_nickname[''A29'']>> sees the glimmer of metal in your mouth. "<<$pcs_nickname>>, what''s that in your mouth? I thought I saw something shiny..."'
 			act 'Nothing!':
 				cla
@@ -153,10 +152,10 @@ if $ARGS[0] = '':
 
 			act 'Show her your pierced tongue':
 				cla
-				pirsAmother = 1
+				motherQW['piercing_tongue'] = 1
 				delin_beh += 1 &!counter for getting sent to Gadukino for the summer
 				gs 'stat'
-				'<center><img <<$set_imgh>> src="images/pc/body/piercings/a<<pirsA>>.jpg" ></center>'
+				'<center><img <<$set_imgh>> src="images/pc/body/piercings/a<<pcs_piercings[''tongue'']>>.jpg" ></center>'
 				'You open your mouth and stick out your tongue, showing her your shiny new piercing.'
 				'Your <<$npc_nickname[''A29'']>> clearly disapproves and shakes her head. "Oh <<$pcs_nickname>>... You know those things are only worn by slutty women who serve men with their mouths!"'
 
@@ -165,16 +164,16 @@ if $ARGS[0] = '':
 		end
 	end
 
-	if pirsB > 0 and pirsB < 10000 and pirsBmother=0 and motherpirsbdaytalk!daystart:
+	if pcs_piercings['lip'] > 0 and motherQW['piercing_lip'] = 0 and motherQW['piercing_talkday'] ! daystart:
 		!!mother says lip piercing
-		motherpirsbdaytalk = daystart
+		motherQW['piercing_talkday'] = daystart
 		'Your <<$npc_nickname[''A29'']>> looks at your lips, noticing your new lip piercing. She doesn''t seem very happy about it. "Why did you get such a thing?"'
 		act 'I think it looks pretty':
 			cla
-			pirsBmother = 1
+			motherQW['piercing_lip'] = 1
 			delin_beh += 1 &!counter for getting sent to Gadukino for the summer
 			gs 'stat'
-			'<center><img <<$set_imgh>> src="images/pc/body/piercings/b<<pirsB>>.jpg" ></center>'
+			'<center><img <<$set_imgh>> src="images/pc/body/piercings/b<<pcs_piercings[''lip'']>>.jpg" ></center>'
 			'You shrug and answer with a sweet smile on your face. "I like it and think it looks cute. Don''t you agree?"'
 			'She clearly doesn''t, and walks away without even bothering to answer.'
 
@@ -182,22 +181,22 @@ if $ARGS[0] = '':
 		end
 	end
 
-	if pirsC > 0 and pirsC < 10000 and pirsCmother=0:
+	if pcs_piercings['ears'] > 0 and motherQW['piercing_ears'] = 0:
 		!!mother notices earrings
-		pirsCmother = 1
+		motherQW['piercing_ears'] = 1
 		'Your <<$npc_nickname[''A29'']>> is looking at your ears, noticing your new earrings. She seems to like them and smiles at you. "I see you decided to wear earrings? They''re nice and look very cute on you."'
 	end
 
-	if pirsD > 0 and pirsD < 10000 and pirsDmother=0:
+	if pcs_piercings['nose'] > 0 and motherQW['piercing_nose'] = 0:
 		!!mother notices a nose ring
-		pirsDmother = 1
+		motherQW['piercing_nose'] = 1
 		delin_beh += 1 &!counter for getting sent to Gadukino for the summer
 		'Your <<$npc_nickname[''A29'']>> looks a bit shocked at your nose ring. "Jesus <<$pcs_nickname>>, what is- why?! I understand putting a ring in a bull''s nose to lead them by, but on a person? There''s no reason to do that!"'
 	end
 
-	if pirsE > 0 and pirsE < 10000 and pirsEmother=0:
+	if pcs_piercings['brow'] > 0 and motherQW['piercing_brow'] = 0:
 		!!mother notices eyebrow piercing
-		pirsEmother = 1
+		motherQW['piercing_brow'] = 1
 		delin_beh += 1 &!counter for getting sent to Gadukino for the summer
 		'Your <<$npc_nickname[''A29'']>> doesn''t seem to understand why you got an eyebrow piercing. "<<$pcs_nickname>>, why would you want that thing in your eyebrow?" She shakes her head in exasperation. "Kids these days..."'
 		*nl
@@ -216,26 +215,26 @@ if $ARGS[0] = '':
 		end
 	end
 
-    if SchoolAtestat = -1:
-        if month = 5 and day = 26 and hour <= 8:
-            '"<<$pcs_nickname>>, make sure you don''t miss your graduation today. Your brother and I will be there to watch you get your diploma."'
-        else
-            if month = 5 and day = 26 and hour > 8:
-                '"<<$pcs_nickname>>, where have you been? You missed your graduation today! I told everybody that you were sick, so your Principal gave me your diploma." She hands it to you.'
-            elseif month = 5 and day = 27:
-                '"<<$pcs_nickname>>, where have you been? You missed your graduation yesterday! I told everybody that you were sick, so your Principal gave me your diploma." She hands it to you.'
-            elseif (month = 5 and day > 27) or month > 5:
-                '"<<$pcs_nickname>>, where have you been? You missed your graduation! I told everybody that you were sick, so your Principal gave me your diploma." She hands it to you.'
-            end
-            SchoolAtestat = 1
-            gs 'exp_gain', 'intel', 10
-            grad_miss = 0
-            kanikuli = 7
-            gs 'stat'
-        end
-    end
-
-    if SchoolAtestat = 1 and SAtestatGift = 0:
+	if SchoolAtestat = -1:
+		if month = 5 and day = 26 and hour <= 8:
+			'"<<$pcs_nickname>>, make sure you don''t miss your graduation today. Your brother and I will be there to watch you get your diploma."'
+		else
+			if month = 5 and day = 26 and hour > 8:
+				'"<<$pcs_nickname>>, where have you been? You missed your graduation today! I told everybody that you were sick, so your Principal gave me your diploma." She hands it to you.'
+			elseif month = 5 and day = 27:
+				'"<<$pcs_nickname>>, where have you been? You missed your graduation yesterday! I told everybody that you were sick, so your Principal gave me your diploma." She hands it to you.'
+			elseif (month = 5 and day > 27) or month > 5:
+				'"<<$pcs_nickname>>, where have you been? You missed your graduation! I told everybody that you were sick, so your Principal gave me your diploma." She hands it to you.'
+			end
+			SchoolAtestat = 1
+			gs 'exp_gain', 'intel', 10
+			grad_miss = 0
+			kanikuli = 7
+			gs 'stat'
+		end
+	end
+
+	if SchoolAtestat = 1 and SAtestatGift = 0:
 		if class['school_grade_average'] >= 90:
 			gs 'npc_relationship', 'modify', 'A29', 40
 			'Your <<$npc_nickname[''A29'']>> is delighted you graduated. "I''m so proud right now, <<$pcs_nickname>>! All I want to do is see you succeed in life, and graduating from school is a very important step. And you outdid all my expectations! When the Principal mentioned you being the best student of the year I could not have been happier. Your stepfather and I saved some money to reward you for your efforts. Please take this and buy yourself something nice. You''ve earned it." She hands you 10000 <b>₽</b>. You thank her and give her a hug.'
@@ -249,7 +248,7 @@ if $ARGS[0] = '':
 			SAtestatGift = 5000
 		else
 			'Your <<$npc_nickname[''A29'']>> is delighted you graduated. "I''m so happy right now, <<$pcs_nickname>>! All I want to do is see you succeed in life, and graduating from school is a very important step. To be honest, I wasn''t sure you would manage to get your diploma, but you somehow did it. Please take this and buy yourself something nice. You''ve earned it." She hands you 3000 <b>₽</b>. You thank her and give her a hug.'
-            SAtestatGift = 3000
+			SAtestatGift = 3000
 		end
 		money += SAtestatGift
 		gs 'stat'
@@ -1447,7 +1446,7 @@ if $ARGS[0] = 'abortion_talk_preg':
 			'After sharing another brief hug, you get up and leave the room. You feel that she didn''t react too badly given what you just said and your chat with her has helped you as you''re glad to have shared your burden.'
 			act 'Return to the hallway': gt $loc, $loc_arg
 		end
-    end
+	end
 end
 
 if $ARGS[0] = 'kickedout':

locations/nastja.qsrc

@@ -145,7 +145,7 @@ if $ARGS[0] = 'pos8':
 	pcs_hydra += 30
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/characters/city/anastasia/1shamp0.jpg"></center>'
-	'"Oh... Really? Well... alright, then let''s have some tea." Even though Nastya is taken aback at first, she quickly recovers and smiles at you reassuringly.' 
+	'"Oh... Really? Well... alright, then let''s have some tea." Even though Nastya is taken aback at first, she quickly recovers and smiles at you reassuringly.'
 	''
 	'The waitress brings you salads, tea and sweets and you have a nice, long chat with Nastya. Anastasia says that her father is a very powerful man in St. Petersburg and, as a result, she has been getting just about everything she could possibly want since she was a child. But that only made her appreciate the "simple pleasures" more: She tells you that she likes to be the center of attention.'
 	'Considering the outfit she wears, you have no trouble believing her. But with a stunning build such as hers, she wouldn''t have trouble attracting attention even if she dressed like a nun.'
@@ -163,7 +163,7 @@ if $ARGS[0] = 'pos8':
 
 		gs 'arousal', 'erotic', 60, 'exhibitionism'
 		gs 'stat'
-		
+
 		act 'Say goodbye and go home':gt 'city_residential'
 	end
 end
@@ -177,7 +177,7 @@ if $ARGS[0] = 'pos9':
 	'You two have a wonderful time. As you leave the cafe, Nastya insists that she pay the bill herself.  You go out and wait for a taxi but you can tell that Anastasia is a little tense and she soon tells you why.'
 	'Nastya: "<<$pcs_nickname>>, I REALLY have to pee... I''ll just go real quick by that fence behind the building, and you have to stand guard, okay?"'
 	'You: "Why make it so complicated? We can just go back into the cafe, you know?"'
-	'Nastya: "No, no, I can''t. I really gotta go, right now!"' 
+	'Nastya: "No, no, I can''t. I really gotta go, right now!"'
 	'With these words, she runs around the corner, leaving you confused and awkward.'
 
 	act 'No choice but to wait for Nastya...':
@@ -216,7 +216,7 @@ if $ARGS[0] = 'pos9':
 					gs 'arousal', 'flash', 5
 					gs 'arousal', 'end'
 					gs 'stat'
-		
+
 					act 'Run out and hop into a taxi with Nastya':gt 'city_residential'
 				end
 			end
@@ -234,7 +234,7 @@ if $ARGS[0] = 'pos9':
 			gs 'arousal', 'voyeur', 60, 'exhibitionism'
 			gs 'arousal', 'end'
 			gs 'stat'
-		
+
 			act 'Get a cab and go home':gt 'city_residential'
 		end
 	end
@@ -264,7 +264,7 @@ if $ARGS[0] = 'pos10':
 		gs 'arousal', 'erotic_nudity', 60, 'exhibitionism'
 		gs 'arousal', 'end'
 		gs 'stat'
-		
+
 		act 'Let the taxi take you home':gt 'city_residential'
 	end
 end
@@ -278,14 +278,14 @@ if $ARGS[0] = 'pos11':
 	'You tell Anastasia about your sexual experiences and you don''t hold back either. Everything you''ve done or had done to you that you''ve enjoyed is brought up and shared with this woman you only recently met, holding back virtually nothing about your female sex life. When you start talking, you''re half afraid you might scare her away but the topic is right up her alley. In fact, for every encounter you describe to her, she sees yours and raises you an equally or even more intimate and saucy detail about her sexual experiences with men.'
 	'"And sometimes, I like to have fun with women, too", she says with a wink, biting her lower lip.'
 	'You two have a wonderful time - maybe a little too much of it, because by the time you want to leave, you''re both having trouble getting up from the table, let along walking out of the cafe. Nastya insists that she pay the bill herself and don''t dare to protest, secretly grateful that you don''t have to fumble with your purse in your state. You stagger outside, arm in arm, and don''t break the embrace when you reach the street.'
-	'"<<$pcs_nickname>>, let''s take a walk along the shore", Nastya suggests. You don''t know if a walk is really in the cards for you but you wouldn''t mind that walk either.' 
+	'"<<$pcs_nickname>>, let''s take a walk along the shore", Nastya suggests. You don''t know if a walk is really in the cards for you but you wouldn''t mind that walk either.'
 
 	act 'Head down to the river.':
 		cls
 		gs 'stat'
 		'<center><img <<$set_imgh>> src="images/characters/city/anastasia/1party3.jpg"></center>'
 		'You walk down a set of stairs to reach the river bank and stroll unevenly along the waterfront, talking and laughing, until your friend stops.'
-		'"Hey, how about we refresh ourselves a little bit? I haven''t gone swimming at all this summer."' 
+		'"Hey, how about we refresh ourselves a little bit? I haven''t gone swimming at all this summer."'
 		'"What? But the water''s gotta be freezing right now!", you protest but Nastya is already knee-deep in the water, squealing as she goes.'
 		'"Oh my god, it''s so cold!" "Told you so!", you call out, but Nastya only sticks her tongue out at you and gestures for you to follow her as she pulls off her dress to keep it from getting wet, showing you her boobs in the process.'
 		'You hesitate a little bit but you don''t want to be left behind, just because she does something slightly crazy, so you take your clothes off and go after her, playing around with her in the water in your wet underwear.'
@@ -293,18 +293,18 @@ if $ARGS[0] = 'pos11':
 
 		gs 'arousal', 'foreplay', 10, 'exhibitionism'
 		gs 'stat'
-		
+
 		act 'Splish splash':
 			cls
 			gs 'stat'
 			'<center><img <<$set_imgh>> src="images/characters/city/anastasia/1party4.jpg"></center>'
 			'You don''t pay attention to your surroundings but, evidently, Nastya does because after a while, she covers her breasts and points somewhere a little down the river and exclaims: "Hey, there''s somebody watching us!"'
-			'Instead of terrifying you, that thought only serves to excite you in your drunk state and you reply: "Then let''s enjoy the attention!"' 
+			'Instead of terrifying you, that thought only serves to excite you in your drunk state and you reply: "Then let''s enjoy the attention!"'
 			'With these words, you tear off your bra and whirl it around like a lasso, revealing your breasts to Nastya and your audience. It''s all the encouragement she needs to drop her arm and give you and the world unrestricted access to her tits once again.'
 
 			gs 'arousal', 'flash', 5
 			gs 'stat'
-			
+
 			act 'Further':
 				cls
 				gs 'stat'
@@ -323,7 +323,7 @@ if $ARGS[0] = 'pos11':
 
 					gs 'arousal', 'end'
 					gs 'stat'
-					
+
 					act 'Let the taxi take you home':gt 'city_residential'
 				end
 			end
@@ -344,12 +344,12 @@ if $ARGS[0] = 'pos12':
 	''
 	'You: "Hello Nastya! How are you?"'
 	'Nastya: "Hi <<$pcs_nickname>>! I''m great, thanks for asking." There is a short, awkward pause before she continues with audible excitement: "Last Saturday was AMAZING. I couldn''t think of anything else since."'
-	'You sigh with relief and laugh: "Me neither. I loved it. We should go out again."' 
+	'You sigh with relief and laugh: "Me neither. I loved it. We should go out again."'
 	'Nastya: "How about today? I was going to go down to the beach, sunbathe, swim, show off my new bikini... Do you want to come?"'
 	'You: "Of course! I''ll meet you there in a bit."'
 	'Nastya: "I can''t wait."'
 
-	act 'Hang up':gt 'telefon', 'fin'
+	act 'Hang up': gt $loc, $loc_arg
 end
 
 if $ARGS[0] = 'pos13':
@@ -367,7 +367,7 @@ if $ARGS[0] = 'pos13':
 	'You spend the next half hour chatting, talking about this and that. Nastya reveals to you that she loves to be photographed. You fantasise about the two of you going out into the countryside and having an impromptu photo shoot.'
 	'She tells you that she has spare time on Saturdays and you should ring her if you want to do something any Saturday.'
 
-	act 'Hang up':gt 'telefon', 'fin'
+	act 'Hang up': gt $loc, $loc_arg
 end
 
 if $ARGS[0] = 'pos14':
@@ -394,7 +394,7 @@ if $ARGS[0] = 'pos15':
 	'You come to the booths and are not impressed. They definitely looked better in your memory.'
 	'Nastya: "Yeah... I definitely wouldn''t want to live in them." Nastya looks at them as if she expects them to crumble any moment.'
 	'You shrug: "Nothing we can do about it. Go get changed, I''ll wait for you."'
-	'Nastya raises an eyebrow at you. "What about you?"' 
+	'Nastya raises an eyebrow at you. "What about you?"'
 	'You: "I already put my swimsuit on at home."'
 	'"Smart", she comments and goes inside.'
 
@@ -413,7 +413,7 @@ if $ARGS[0] = 'pos16':
 	gs 'arousal', 'erotic_nudity', 10, 'exhibitionism'
 	gs 'arousal', 'end'
 	gs 'stat'
-		
+
 	act 'Find a good spot':gt 'nastja', 'pos17'
 end
 
@@ -426,7 +426,7 @@ if $ARGS[0] = 'pos17':
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/characters/city/anastasia/2bimbos.jpg"></center>'
 	'You have a great time on the beach: You swim and play around in the water, you sunbathe, reading, chatting or snoozing as you do, drink milkshakes that Nastya brought along from home and take a couple of photos with the lake in the background. It is a thoroughly enjoyable, exhausting time and you are starting to wonder if you shouldn''t go home soon when Nastya speaks up.'
-	'Nastya: "That girl we saw bathe naked earlier... Would you be able to do that? Like, undress in front of complete strangers?" That sly smile is back on her face as she asks you.' 
+	'Nastya: "That girl we saw bathe naked earlier... Would you be able to do that? Like, undress in front of complete strangers?" That sly smile is back on her face as she asks you.'
 	'You feel torn. On one hand, it''s scary and your modesty and self-consciousness hold you back - what would people think or say if you just up and undressed right here and now? But on the other hand, you DID fantasize about it earlier and your insides tingle at the thought of revealing yourself like that.'
 	if deodorant_on = 1: gs 'sweat', 'remove_deo' & '<br>Your deodorant gets washed away in the water.'
 
@@ -479,7 +479,7 @@ if $ARGS[0] = 'pos20':
 
 	gs 'arousal', 'flash', 20
 	gs 'stat'
-	
+
 	act 'Finish the game and return to your spot':gt 'nastja', 'pos21'
 end
 
@@ -497,7 +497,7 @@ if $ARGS[0] = 'pos21':
 
 	gs 'arousal', 'end'
 	gs 'stat'
-	
+
 	act 'Head home':gt 'city_residential'
 end
 
@@ -614,7 +614,7 @@ if $ARGS[0] = 'pos27':
 
 	gs 'arousal', 'flash', 5
 	gs 'stat'
-		
+
 	act 'Give him the money':gt 'nastja', 'pos28'
 end
 
@@ -632,7 +632,7 @@ if $ARGS[0] = 'pos28':
 
 	gs 'arousal', 'flash', 10
 	gs 'stat'
-	
+
 	act 'Close the door':gt 'nastja', 'pos30'
 end
 
@@ -650,7 +650,7 @@ if $ARGS[0] = 'pos29':
 
 	gs 'arousal', 'erotic', 10, 'exhibitionism'
 	gs 'stat'
-	
+
 	act 'Slam!':gt 'nastja', 'pos30'
 end
 
@@ -677,7 +677,7 @@ if $ARGS[0] = 'pos30':
 
 	gs 'arousal', 'end'
 	gs 'stat'
-	
+
 	act 'You are home alone again':gt 'korr'
 end
 

locations/npcStat.qsrc

@@ -0,0 +1,512 @@
+# npcStat
+
+!! For setting the $npcID, $npcdesc, dick, $dick_girth, etc. with a single call for a npc
+!! Used for translating generated variables (like npc_haircol) to useable strings.
+!! Use with a gosub and match the ARGS[0] with the correct char
+!! A generated NPC would be gs 'boyStat', $npclastcalled
+!! Other NPCs may be called either by number if they are a static NPC, or by letter and number otherwise.
+!! eg. "gs 'boyStat', 'A56'" would call for Roma. Likewise, "gs 'boyStat', 'A56'" also calls for Roma.
+!! A second argument calls for multiple partners. They are output as stats1, stats2, stats3, and stats4, for a total of 5 stats.
+!! If ARGS[1] is not set it defaults to zero, so you can use the variables it sets with or without [0] e.g. dick or dick[0] are equivalent
+
+if ($ARGS[0] = '' and ARGS[0] > 0) or (isnum(mid($ARGS[0],1,1)) and val(mid($ARGS[0],1,1)) < 10):
+	npclastcalledn = iif($ARGS[1] ! '' and isnum($ARGS[0]), val($ARGS[0]), ARGS[0])
+	$npcStatVars['tempID'] = 'A' + npclastcalledn
+else
+	$npcStatVars['tempID'] = $ARGS[0]
+	!! {This error is for where something outside the range of possibility is specified. The calling code is broken. The exact thing specified will be announced.}
+	if isnum(mid($npcStatVars['tempID'], 2, 1)) and val(mid($npcStatVars['tempID'], 2, 1)) > 10:
+		MSG 'There has been an error in the $boy passing code. Please contact a developer with what you were doing prior to receiving this message so the error may be fixed. Error type: Improper value for boyStat. Calling <<$ARGS[0]>>'
+		$npcStatVars['tempID'] = 'D<<rand(0, 7)>>'
+	end
+end
+
+
+if mid($npcStatVars['tempID'], 1, 1) = 'A' or mid($npcStatVars['tempID'], 1, 1) = 'B' or mid($npcStatVars['tempID'],1,1) = 'C':
+	$npclastcalled = $npcStatVars['tempID']
+	npclastcalledn = val(mid($npcStatVars['tempID'], 2))
+	if isnum($npc_usedname[$npclastcalled]) or $npc_usedname[$npclastcalled] = '': $npc_usedname[$npclastcalled] = $npc_firstname[$npclastcalled] & !! this is a workaround which compensate incomplete settings in npc_static files, it can be removed later ...
+
+	npcStatVars['gender']				= npc_gender[$npclastcalled]
+	$npcStatVars['name']				= $npc_usedname[$npclastcalled]
+	npcStatVars['dick_length']			= npc_dick[$npclastcalled]
+	npcStatVars['dick_girth']			= npc_girth[$npclastcalled]
+	$npcStatVars['thdick']				= $npc_thdick[$npclastcalled]
+	$npcStatVars['dick_class']			= $npc_dick_class[$npclastcalled]
+	$npcStatVars['dick_desc']			= $npc_dick_desc[$npclastcalled]
+	$npcStatVars['thdick']				= $npc_thdick[$npclastcalled]
+	$npcStatVars['height_desc']			= $npc_height_desc[$npclastcalled]
+	$npcStatVars['height_desc_pref']	= $npc_height_desc_pref[$npclastcalled]
+	$npcStatVars['build_desc']			= $npc_build_desc[$npclastcalled]
+	$npcStatVars['build_desc_pref']		= $npc_build_desc_pref[$npclastcalled]
+
+	npcStatVars['sexskill']		= npc_sexskill[$npclastcalled]
+	npcStatVars['height']		= npc_height[$npclastcalled]
+	npcStatVars['weight']		= npc_weight[$npclastcalled]
+	npcStatVars['haircol']		= npc_haircol[$npclastcalled]
+	$npcStatVars['outfit']		= $npc_outfit[$npclastcalled]
+	$npcStatVars['occupation']	= $npc_occupation[$npclastcalled]
+	$npcStatVars['relation']	= $npc_rel_type[$npclastcalled]
+else
+	npclastcalledn = val(mid($npcStatVars['tempID'], 2))
+	npcStatVars['gender'] = 0
+	if npclastcalledn = 1:
+		$npcStatVars['name'] = 'a small sized man'
+		npcStatVars['dick_length'] = 10
+		npcStatVars['dick_girth'] = 9
+		npcStatVars['sexskill'] = rand(0, 50)
+	elseif npclastcalledn = 2:
+		$npcStatVars['name'] = 'a medium sized man'
+		npcStatVars['dick_length'] = 15
+		npcStatVars['dick_girth'] = 10
+		npcStatVars['sexskill'] = rand(30, 60)
+	elseif npclastcalledn = 3:
+		$npcStatVars['name'] = 'a large sized man'
+		npcStatVars['dick_length'] = 20
+		npcStatVars['dick_girth'] = 11
+		npcStatVars['sexskill'] = rand(40, 60)
+	elseif npclastcalledn = 4:
+		$npcStatVars['name'] = 'a huge sized man'
+		npcStatVars['dick_length'] = 25
+		npcStatVars['dick_girth'] = 12
+		npcStatVars['sexskill'] = rand(35, 70)
+	elseif npclastcalledn = 5:
+		$npcStatVars['name'] = 'a giant sized man'
+		npcStatVars['dick_length'] = 30
+		npcStatVars['dick_girth'] = 13
+		npcStatVars['sexskill'] = rand(30, 80)
+	elseif npclastcalledn = 6:
+		$npcStatVars['name'] = 'a humongous sized man'
+		npcStatVars['dick_length'] = 35
+		npcStatVars['dick_girth'] = 14
+		npcStatVars['sexskill'] = rand(20, 90)
+	else
+		$npcStatVars['name'] = 'a horse sized man'
+		npcStatVars['dick_length'] = 40
+		npcStatVars['dick_girth'] = 15
+		npcStatVars['sexskill'] = rand(0, 100)
+	end
+	npcStatVars['height'] = rand(160, 180)
+	npcStatVars['weight'] = rand(45, 90)
+	npcStatVars['haircol'] = rand(0, 3)
+	$npcStatVars['occupation'] = ''
+	$npcStatVars['relation'] = 'stranger'
+end
+
+!! ----- PRONOUNS --------------------------------------------------
+
+if npcStatVars['gender'] = 0:
+	$npcStatVars['xe']			= 'he'
+	$npcStatVars['xec']			= 'He'
+	$npcStatVars['xem']			= 'him'
+	$npcStatVars['xemc']		= 'Him'
+	$npcStatVars['xyr']			= 'his'
+	$npcStatVars['xyrc']		= 'His'
+	$npcStatVars['xyrs']		= 'his'
+	$npcStatVars['xyrsc']		= 'His'
+	$npcStatVars['xemself']		= 'himself'
+	$npcStatVars['xemselfc']	= 'Himself'
+	$npcStatVars['person']		= 'man'
+	$npcStatVars['personc']		= 'Man'
+elseif npcStatVars['gender'] = 1:
+	$npcStatVars['xe']			= 'she'
+	$npcStatVars['xec']			= 'She'
+	$npcStatVars['xem']			= 'her'
+	$npcStatVars['xemc']		= 'Her'
+	$npcStatVars['xyr']			= 'her'
+	$npcStatVars['xyrc']		= 'Her'
+	$npcStatVars['xyrs']		= 'hers'
+	$npcStatVars['xyrsc']		= 'Hers'
+	$npcStatVars['xemself']		= 'herself'
+	$npcStatVars['xemselfc']	= 'Herself'
+	$npcStatVars['person']		= 'woman'
+	$npcStatVars['personc']		= 'Woman'
+elseif 1:
+	$npcStatVars['xe']			= 'they'
+	$npcStatVars['xec']			= 'They'
+	$npcStatVars['xem']			= 'them'
+	$npcStatVars['xemc']		= 'Them'
+	$npcStatVars['xyr']			= 'their'
+	$npcStatVars['xyrc']		= 'Their'
+	$npcStatVars['xyrs']		= 'theirs'
+	$npcStatVars['xyrsc']		= 'Theirs'
+	$npcStatVars['xemself']		= 'themself'
+	$npcStatVars['xemselfc']	= 'Themself'
+	$npcStatVars['person']		= 'person'
+	$npcStatVars['personc']		= 'Person'
+else
+	$npcStatVars['xe']			= 'xe'
+	$npcStatVars['xec']			= 'Xe'
+	$npcStatVars['xem']			= 'xem'
+	$npcStatVars['xemc']		= 'Xem'
+	$npcStatVars['xyr']			= 'xyr'
+	$npcStatVars['xyrc']		= 'Xyr'
+	$npcStatVars['xyrs']		= 'xyrs'
+	$npcStatVars['xyrsc']		= 'Xyrs'
+	$npcStatVars['xemself']		= 'xemself'
+	$npcStatVars['xemselfc']	= 'Xemself'
+	$npcStatVars['person']		= 'person'
+	$npcStatVars['personc']		= 'Person'
+end
+
+!! ===== PRONOUNS
+
+
+!! ----- HAIRCOLOR --------------------------------------------------
+
+if npcStatVars['haircol'] = 0:
+	$npcStatVars['hair'] = 'black'
+elseif npcStatVars['haircol'] = 1:
+	$npcStatVars['hair'] = iif(npcStatVars['gender'] = 0, 'brown', 'brunette')
+elseif npcStatVars['haircol'] = 2:
+	$npcStatVars['hair'] = 'red'
+else
+	$npcStatVars['hair'] = iif(npcStatVars['gender'] = 0, 'blond', 'blonde')
+end
+
+!! ===== HAIRCOLOR
+
+
+!! ----- CLOTHING --------------------------------------------------
+
+if $npcStatVars['outfit'] = '':
+	temp_rand = rand(0, 2)
+	if temp_rand = 0:
+		$npcStatVars['outfit'] = 'a tracksuit'
+	elseif temp_rand = 1:
+		$npcStatVars['outfit'] = 'jeans and a ' + iif(npcStatVars['gender'] = 0, 'sweater', 'blouse')
+	else
+		$npcStatVars['outfit'] = 'an expensive ' + iif(npcStatVars['gender'] = 0, 'suit', 'dress')
+	end
+	killvar 'temp_rand'
+end
+
+!! ===== CLOTHING
+
+
+
+$npcStatVars['pref_func'] = "$result = iif(strpos('aeiou', mid($ARGS[0], 1, 1)) > 0, 'an ', 'a ') + $ARGS[0]"
+
+
+
+!! ----- BODY --------------------------------------------------
+
+
+if npcStatVars['height'] = 0:
+	npcStatVars['bmi'] = 200
+else
+	npcStatVars['bmi'] = 100000 * npcStatVars['weight'] / (npcStatVars['height'] * npcStatVars['height'])
+end
+
+if npcStatVars['gender'] = 0:
+	npcStatVars['av_height'] = 175
+else
+	npcStatVars['av_height'] = 165
+end
+
+if $npcStatVars['height_desc'] = '' or $npcStatVars['height_desc_pref'] = '':
+	if npcStatVars['height'] < npcStatVars['av_height'] - 5:
+		temp_body = 1
+		$npcStatVars['height_desc'] = 'short'
+	elseif npcStatVars['height'] <= npcStatVars['av_height'] + 5:
+		temp_body = 2
+		$npcStatVars['height_desc'] = 'average'
+	else
+		temp_body = 3
+		$npcStatVars['height_desc'] = 'tall'
+	end
+end
+
+$npcStatVars['height_desc_pref'] = dyneval($npcStatVars['pref_func'], $npcStatVars['height_desc'])
+
+
+if $npcStatVars['build_desc'] = '' or $npcStatVars['build_desc_pref'] = '':
+	if npcStatVars['gender'] = 0:
+		if npcStatVars['bmi'] < 190:
+			$npcStatVars['build_desc'] = 'thin'
+		elseif npcStatVars['bmi'] < 225:
+			$npcStatVars['build_desc'] = 'athletic'
+		elseif npcStatVars['bmi'] < 250:
+			$npcStatVars['build_desc'] = 'chunky'
+		else
+			$npcStatVars['build_desc'] = 'fat'
+		end
+	else
+		if npcStatVars['bmi'] < 190:
+			if temp_body = 1:
+				$npcStatVars['build_desc'] = 'petite'
+			else
+				$npcStatVars['build_desc'] = 'slender'
+			end
+		elseif npcStatVars['bmi'] < 225:
+			$npcStatVars['build_desc'] = 'toned'
+		elseif npcStatVars['bmi'] < 250:
+			$npcStatVars['build_desc'] = 'average'
+		else
+			$npcStatVars['build_desc'] = 'chubby'
+		end
+	end
+end
+
+$npcStatVars['build_desc_pref'] = dyneval($npcStatVars['pref_func'], $npcStatVars['build_desc'])
+
+
+!! ===== BODY
+
+
+!! ----- DICK --------------------------------------------------
+
+if $npcStatVars['thdick']  = '':
+	if npcStatVars['dick_girth'] <= 9:
+		$npcStatVars['thdick'] = 'skinny'
+	elseif npcStatVars['dick_girth'] = 10:
+		$npcStatVars['thdick'] = 'slim'
+	elseif npcStatVars['dick_girth'] = 11:
+		$npcStatVars['thdick'] = 'well proportioned'
+	elseif npcStatVars['dick_girth'] = 12:
+		$npcStatVars['thdick'] = 'thicker than average'
+	elseif npcStatVars['dick_girth'] = 13:
+		$npcStatVars['thdick'] = 'thick'
+	elseif npcStatVars['dick_girth'] = 14:
+		$npcStatVars['thdick'] = 'massive'
+	else
+		$npcStatVars['thdick'] = 'monstrous'
+	end
+end
+
+$npcStatVars['thdick_pref'] = dyneval($npcStatVars['pref_func'], $npcStatVars['thdick'])
+
+
+
+!!	$npc_dick_desc is set here
+!!	this variable is to set a shorthand method of checking dick size without looking for specific numbers
+!!	it is organized by length and then ascending girth
+!!	$npc_dick_class is a fast way of determining size by category
+
+!! short dicks
+if $npcStatVars['dick_class'] = '' or $npcStatVars['dick_desc'] = '':
+	if npcStatVars['dick_length'] < 9:
+		$npcStatVars['dick_class'] = 'short'
+		if npcStatVars['dick_girth'] <= 2:
+			$npcStatVars['dick_desc'] = 'tiny'
+		elseif npcStatVars['dick_girth'] <= 4:
+			$npcStatVars['dick_desc'] = 'short'
+		else
+			$npcStatVars['dick_desc'] = 'chode'
+		end
+
+	!! average length dicks
+	elseif npcStatVars['dick_length'] < 15:
+		$npcStatVars['dick_class'] = 'average'
+		if npcStatVars['dick_girth'] <= 2:
+			$npcStatVars['dick_desc'] = 'skinny'
+		elseif npcStatVars['dick_girth'] <= 4:
+			$npcStatVars['dick_desc'] = 'normal'
+		else
+			$npcStatVars['dick_desc'] = 'thick'
+		end
+
+	!! long dicks
+	elseif npcStatVars['dick_length'] < 20:
+		$npcStatVars['dick_class'] = 'big'
+		if npcStatVars['dick_girth'] <= 2:
+			$npcStatVars['dick_desc'] = 'long'
+		elseif npcStatVars['dick_girth'] <= 4:
+			$npcStatVars['dick_desc'] = 'huge'
+		else
+			$npcStatVars['dick_desc'] = 'enormous'
+		end
+
+	!! extremely long dicks
+	else
+		$npcStatVars['dick_class'] = 'extra_big'
+		if npcStatVars['dick_girth'] <= 2:
+			$npcStatVars['dick_desc'] = 'lengthy'
+		elseif npcStatVars['dick_girth'] <= 4:
+			$npcStatVars['dick_desc'] = 'gigantic'
+		else
+			$npcStatVars['dick_desc'] = 'monster'
+		end
+	end
+end
+
+$npcStatVars['dick_desc_pref'] = dyneval($npcStatVars['pref_func'], $npcStatVars['dick_desc'])
+
+
+!! ===== Dick
+
+
+!! ----- WORK --------------------------------------------------
+
+if $npcStatVars['occupation'] = 'cashier_supermarket':
+	$npcStatVars['work'] = 'a cashier at a generic supermarket'
+elseif $npcStatVars['occupation'] = 'cashier_liquor':
+	$npcStatVars['work'] = 'a cashier at a liquor store'
+elseif $npcStatVars['occupation'] = 'cashier_coffee':
+	$npcStatVars['work'] = 'a cashier at a coffee shop'
+elseif $npcStatVars['occupation'] = 'barista':
+	$npcStatVars['work'] = 'a barista at a coffee shop'
+elseif $npcStatVars['occupation'] = 'fast_food':
+	$npcStatVars['work'] = 'a fast-food worker at a burger-chain'
+elseif $npcStatVars['occupation'] = 'taxi_driver':
+	$npcStatVars['work'] = 'a cab driver in the city'
+elseif $npcStatVars['occupation'] = 'masseuse':
+	$npcStatVars['work'] = 'a masseuse in the city'
+elseif $npcStatVars['occupation'] = 'masseuse_sexual':
+	$npcStatVars['work'] = 'a masseuse in the city'
+elseif $npcStatVars['occupation'] = 'factory':
+	$npcStatVars['work'] = 'a worker at the textile factory'
+elseif $npcStatVars['occupation'] = 'bartender':
+	$npcStatVars['work'] = 'a bartender'
+elseif $npcStatVars['occupation'] = 'mechanic':
+	$npcStatVars['work'] = 'a mechanic'
+elseif $npcStatVars['occupation'] =  'line_cook':
+	$npcStatVars['work'] = 'a line cook'
+elseif $npcStatVars['occupation'] = 'waiter':
+	$npcStatVars['work'] = 'a waiter at a restaurant downtown'
+elseif $npcStatVars['occupation'] = 'personal_trainer':
+	$npcStatVars['work'] = 'a personal trainer at the gym'
+elseif $npcStatVars['occupation'] = 'programmer':
+	$npcStatVars['work'] = 'a programmer'
+elseif $npcStatVars['occupation'] = 'pimp':
+	if npc_criminal_open = 1:
+		$npcStatVars['work'] = 'a pimp'
+	else
+
+	end
+elseif $npcStatVars['occupation'] = 'drug_dealer':
+	if npc_criminal_open = 1:
+		$npcStatVars['work'] = 'a drug dealer'
+	else
+		$npcStatVars['work'] = 'a pharmacist'
+	end
+elseif $npcStatVars['occupation'] = 'enforcer':
+	if npc_criminal_open = 1:
+		$npcStatVars['work'] = 'an enforcer for a gang'
+	else
+		$npcStatVars['work'] = 'a fixer'
+	end
+elseif $npcStatVars['occupation'] = 'thief':
+	if npc_criminal_open = 1:
+		$npcStatVars['work'] = 'a thief'
+	else
+		$npcStatVars['work'] = 'a salesman'
+	end
+elseif $npcStatVars['occupation'] = 'businessman':
+	$npcStatVars['work'] = 'a CEO of a car import business'
+elseif $npcStatVars['occupation'] = 'lawyer':
+	$npcStatVars['work'] = 'a partner at a lawfirm'
+elseif $npcStatVars['occupation'] = 'investment_banker':
+	$npcStatVars['work'] = 'an investment banker'
+end
+
+!! ===== WORK
+
+
+!! ----- RELATIONSHIP --------------------------------------------------
+
+
+if $npcStatVars['relation'] = 'sugar_daddy':
+	$npcStatVars['relat'] =  'daddy'
+elseif $npcStatVars['relation'] = '':
+	$npcStatVars['relat'] =  'stranger'
+else
+	$npcStatVars['relat'] = $npcStatVars['relation']
+end
+
+
+!! ===== WORK
+
+
+
+npcStat_i = strpos('abcdefghi', $ARGS[1])
+if $ARGS[1] ! '' and npcStat_i > 0:
+
+	dynamic "
+		npcStatCalled<<npcStat_i>>		= daystart
+		$npcID<<npcStat_i>>				= $npclastcalled
+		$npcdesc<<npcStat_i>>			= $npcStatVars['name']
+		dick_length<<npcStat_i>>		= npcStatVars['dick_length']
+
+		!! Depricated, leaving active for the forseeable future.
+		$boy<<npcStat_i>>				= $npclastcalled
+		$boydesc<<npcStat_i>>			= $npcStatVars['name']
+		dick<<npcStat_i>>				= npcStatVars['dick_length']
+
+		$dick_girth<<npcStat_i>>		= $npcStatVars['thdick']
+		$dick_girth_pref<<npcStat_i>>	= $npcStatVars['thdick_pref']
+		$dick_class<<npcStat_i>>		= $npcStatVars['dick_class']
+		$dick_desc<<npcStat_i>>			= $npcStatVars['dick_desc']
+		$dick_desc_pref<<npcStat_i>>	= $npcStatVars['dick_desc_pref']
+		silavag<<npcStat_i>>			= npcStatVars['sexskill']
+		$npchair<<npcStat_i>>			= $npcStatVars['hair']
+		$npcClo<<npcStat_i>>			= $npcStatVars['outfit']
+		$npcWork<<npcStat_i>>			= $npcStatVars['work']
+		$npcheight<<npcStat_i>>			= $npcStatVars['height_desc']
+		$npcheight_pref<<npcStat_i>>	= $npcStatVars['height_desc_pref']
+		$npcbuild<<npcStat_i>>			= $npcStatVars['build_desc']
+		$npcbuild_pref<<npcStat_i>>		= $npcStatVars['build_desc_pref']
+		$npcrelat<<npcStat_i>>			= $npcStatVars['relat']
+
+		$xe<<npcStat_i>>				= $npcStatVars['xe']
+		$xec<<npcStat_i>>				= $npcStatVars['xec']
+		$xem<<npcStat_i>>				= $npcStatVars['xem']
+		$xemc<<npcStat_i>>				= $npcStatVars['xemc']
+		$xyr<<npcStat_i>>				= $npcStatVars['xyr']
+		$xyrc<<npcStat_i>>				= $npcStatVars['xyrc']
+		$xyrs<<npcStat_i>>				= $npcStatVars['xyrs']
+		$xyrsc<<npcStat_i>>				= $npcStatVars['xyrsc']
+		$xemself<<npcStat_i>>			= $npcStatVars['xemself']
+		$xemselfc<<npcStat_i>>			= $npcStatVars['xemselfc']
+		$person<<npcStat_i>>			= $npcStatVars['person']
+		$personc<<npcStat_i>>			= $npcStatVars['personc']
+	"
+
+else
+	npcStat_i = iif($ARGS[1] ! '' and isnum($ARGS[1]), val($ARGS[1]), ARGS[1])
+
+	npcStatcalled[npcStat_i]	= daystart
+	$npcID[npcStat_i]			= $npclastcalled
+	$npcdesc[npcStat_i]			= $npcStatVars['name']
+	dick_length[npcStat_i]		= npcStatVars['dick_length']
+
+	!! Depricated, leaving active for the forseeable future.
+	$boy[npcStat_i]				= $npclastcalled
+	$boydesc[npcStat_i]			= $npcStatVars['name']
+	dick[npcStat_i]				= npcStatVars['dick_length']
+
+	$dick_girth[npcStat_i]		= $npcStatVars['thdick']
+	$dick_girth_pref[npcStat_i]	= $npcStatVars['thdick_pref']
+	$dick_class[npcStat_i]		= $npcStatVars['dick_class']
+	$dick_desc[npcStat_i]		= $npcStatVars['dick_desc']
+	$dick_desc_pref[npcStat_i]	= $npcStatVars['dick_desc_pref']
+	silavag[npcStat_i]			= npcStatVars['sexskill']
+	$npchair[npcStat_i]			= $npcStatVars['hair']
+	$npcClo[npcStat_i]			= $npcStatVars['outfit']
+	$npcWork[npcStat_i]			= $npcStatVars['work']
+	$npcheight[npcStat_i]		= $npcStatVars['height_desc']
+	$npcheight_pref[npcStat_i]	= $npcStatVars['height_desc_pref']
+	$npcbuild[npcStat_i]		= $npcStatVars['build_desc']
+	$npcbuild_pref[npcStat_i]	= $npcStatVars['build_desc_pref']
+	$npcrelat[npcStat_i]		= $npcStatVars['relat']
+
+	$xe[npcStat_i]				= $npcStatVars['xe']
+	$xec[npcStat_i]				= $npcStatVars['xec']
+	$xem[npcStat_i]				= $npcStatVars['xem']
+	$xemc[npcStat_i]			= $npcStatVars['xemc']
+	$xyr[npcStat_i]				= $pcStatVars['xyr']
+	$xyrc[npcStat_i]			= $pcStatVars['xyrc']
+	$xyrs[npcStat_i]			= $npcStatVars['xyrs']
+	$xyrsc[npcStat_i]			= $npcStatVars['xyrsc']
+	$xemself[npcStat_i]			= $npcStatVars['xemself']
+	$xemselfc[npcStat_i]		= $npcStatVars['xemselfc']
+	$person[npcStat_i]			= $npcStatVars['person']
+	$personc[npcStat_i]			= $npcStatVars['personc']
+end
+
+killvar 'npcStatVars'
+killvar 'npcStat_i'
+killvar 'npclastcalledn'
+
+
+--- npcStat --------------------------------------------------