3 次代码提交 b1acfd7f1e ... c1aaf5e507

作者 SHA1 备注 提交日期
  Spackled Lanturn c1aaf5e507 [fixed] in sexm, move action common to all branches of a conditional to outside the conditional 3 年之前
  Spackled Lanturn 10fb2b0ee4 [text edit] clean up sexm 3 年之前
  Spackled Lanturn 428cea0a11 [text edit] clean up bouling 3 年之前
共有 2 个文件被更改,包括 103 次插入115 次删除
  1. 6 6
      locations/bouling.qsrc
  2. 97 109
      locations/sexm.qsrc

+ 6 - 6
locations/bouling.qsrc

@@ -49,7 +49,7 @@ if $ARGS[0] = 'start' or $ARGS[0] = '':
 				end
 			elseif boulrand = 1:
 				killvar 'boulrand'
-				'You meet two girls and they suggest challenging two guys to a game: Prize 5000 <b>₽</b>, lose and they have sex with you.'
+				'You meet two girls, and they suggest challenging two guys to a game: Prize 5000 <b>₽</b>, lose and they have sex with you.'
 				act 'Play':boulvar = 2 & gt 'bouling', 'randwin'
 				gs 'willpower', 'sex', 'resist', 'hard'
 				if will_cost <= pcs_willpwr:
@@ -86,22 +86,22 @@ if $ARGS[0] = 'randwin':
 
 	if boulwin > 10 and boulvar = 0:
 		money += 300
-		'You won and received 300 <b>₽</b>.'
+		'You win and receive 300 <b>₽</b>.'
 
 		act 'Leave': gt 'bouling'
 	elseif boulwin > 10 and boulvar = 1:
 		money += 2000
-		'You won and received 2,000 <b>₽</b>.'
+		'You win and receive 2,000 <b>₽</b>.'
 
 		act 'Leave': gt 'bouling'
 	elseif boulwin > 10 and boulvar = 2:
 		money += 5000
-		'You won and received 5,000 <b>₽</b>.'
+		'You win and receive 5,000 <b>₽</b>.'
 
 		act 'Leave': gt 'bouling'
 	elseif boulwin <= 10 and boulvar = 0:
 		money -= 300
-		'You lost and paid 300 <b>₽</b>.'
+		'You lose and pay 300 <b>₽</b>.'
 		act 'Leave': gt 'bouling'
 	elseif boulwin <= 10 and boulvar = 1:
 		picrand = 14
@@ -122,7 +122,7 @@ if $ARGS[0] = 'randwin':
 			end
 			act 'Pay': money -= 2000 & gt 'bouling'
 		else
-			'You lost, but you do not have money to pay, only one thing for it.'
+			'You lose, but you do not have enough money to pay. Only one thing for it.'
 
 			act 'Offer sex instead':xgt 'sexdvoe', 'var'
 		end

+ 97 - 109
locations/sexm.qsrc

@@ -22,7 +22,7 @@ if $ARGS[0] = 'start':
 					'<<$loverdesc[lover_number]>> kisses you on the lips, while his hand squeezes your ass.'
 				elseif loverdays[lover_number] >= 3:
 					loverrelation[lover_number] -= 2
-					'<<$loverdesc[lover_number]>> kisses you on the lips and then pulls away mumbling irritably: "Not much happening, so far."'
+					'<<$loverdesc[lover_number]>> kisses you on the lips and then pulls away mumbling irritably, "Not much happening, so far."'
 				end
 			elseif haraklover[lover_number] = 1:
 				if loverdays[lover_number] < 10:
@@ -30,7 +30,7 @@ if $ARGS[0] = 'start':
 					'<<$loverdesc[lover_number]>> kisses you goodbye on the lips, hugging your waist.'
 				elseif loverdays[lover_number] >= 10:
 					loverrelation[lover_number] -= 2
-					'<<$loverdesc[lover_number]>> kisses you goodbye on the lips and asks: "Maybe it''s time we took things to the next level?"'
+					'<<$loverdesc[lover_number]>> kisses you goodbye on the lips and asks, "Maybe it''s time we took things to the next level?"'
 				end
 			elseif haraklover[lover_number] = 0:
 				if loverdays[lover_number] < 20:
@@ -48,7 +48,7 @@ if $ARGS[0] = 'start':
 					'<<$loverdesc[lover_number]>> kisses you goodbye on the lips while squeezing your ass with both hands.'
 				elseif loverdays[lover_number] >= 3:
 					loverrelation[lover_number] -= 3
-					'<<$loverdesc[lover_number]>> kisses you on the lips, then pulls away from the kiss muttering in exasperation: "No sex today, huh?"'
+					'<<$loverdesc[lover_number]>> kisses you on the lips, then pulls away from the kiss muttering in exasperation, "No sex today, huh?"'
 				end
 			elseif haraklover[lover_number] = 1:
 				if loverdays[lover_number] < 10:
@@ -56,7 +56,7 @@ if $ARGS[0] = 'start':
 					'<<$loverdesc[lover_number]>> kisses you goodbye on the lips, hugging your waist.'
 				elseif loverdays[lover_number] >= 10:
 					loverrelation[lover_number] -= 2
-					'<<$loverdesc[lover_number]>> kisses you goodbye on the lips and says: "Okay, I can live one day without sex.".'
+					'<<$loverdesc[lover_number]>> kisses you goodbye on the lips and says, "Okay, I can live one day without sex.".'
 				end
 			elseif haraklover[lover_number] = 0:
 				if loverdays[lover_number] < 20:
@@ -85,7 +85,7 @@ if $ARGS[0] = 'start':
 					'<<$loverdesc[lover_number]>> seems slightly annoyed. "What are you, a holy virgin?"'
 				elseif loverdays[lover_number] >= 3:
 					loverrelation[lover_number] -= 3
-					'<<$loverdesc[lover_number]>> seems irritated "So you do not even want to kiss? Oh well."'
+					'<<$loverdesc[lover_number]>> seems irritated. "So you do not even want to kiss? Oh well."'
 				end
 			elseif haraklover[lover_number] = 1:
 				if loverdays[lover_number] < 10:
@@ -108,10 +108,10 @@ if $ARGS[0] = 'start':
 			if haraklover[lover_number] = 2:
 				if loverdays[lover_number] < 3:
 					loverrelation[lover_number] -= 2
-					'<<$loverdesc[lover_number]>> is annoyed and tells you to go fuck yourself'
+					'<<$loverdesc[lover_number]>> is annoyed and tells you to go fuck yourself.'
 				elseif loverdays[lover_number] >= 3:
 					loverrelation[lover_number] -= 4
-					'<<$loverdesc[lover_number]>> is dissapointed and asks " What are you afraid of?"'
+					'<<$loverdesc[lover_number]>> is disappointed and asks, "What are you afraid of?"'
 				end
 			elseif haraklover[lover_number] = 1:
 				if loverdays[lover_number] < 10:
@@ -153,12 +153,12 @@ if $ARGS[0] = 'start':
 					act 'Go to your apartment': gt 'din_npc', 'go_straight_home'
 
 				elseif haraklover[lover_number] = 1:
-					'"Well then, see you, I''ll call you," he said quietly and left.'
+					'"Well then, see you, I''ll call you," he says quietly and leaves.'
 
 					act 'Go to your apartment': gt 'din_npc', 'go_straight_home'
 
 				elseif haraklover[lover_number] = 2:
-					'"If your husband is in the apartment, maybe you can climb a little higher, perhaps up to the attic?" he says, with a sly grin.'
+					'"If your husband is in the apartment, maybe you can climb a little higher, perhaps up to the attic?" he says with a sly grin.'
 
 					act 'Refuse':
 						loverrelation[lover_number] -= 1
@@ -197,7 +197,7 @@ if $ARGS[0] = 'room':
 
 	if haraklover[lover_number] = 2:
 		'<<$loverdesc[lover_number]>> grabs you and rudely pushes you on your back. He starts to kiss you passionately and tries to take off your clothes.'
-		'Finally <<$loverdesc[lover_number]>> won the difficult battle with your bra straps.'
+		'Finally, <<$loverdesc[lover_number]>> won the difficult battle with your bra straps.'
 
 		gs 'arousal', 'kiss', 5, 'sub'
 		gs 'stat'
@@ -213,8 +213,6 @@ if $ARGS[0] = 'room':
 					loverrelation[lover_number] += 3
 					gt 'sexm', 'minet'
 				end
-
-				act 'I don''t want to do this, let''s try something else':gt 'sexm', 'variant'
 			elseif sexrand = 1:
 				'"<<$pcs_nickname>>, I want your ass."'
 
@@ -223,29 +221,25 @@ if $ARGS[0] = 'room':
 					loverrelation[lover_number] += 5
 					gt 'sexm', 'anal'
 				end
-
-				act 'I don''t want to do this, let''s try something else':gt 'sexm', 'variant'
 			elseif sexrand = 2:
 				'"Lie down and spread those gorgeous long legs, <<$pcs_nickname>>."'
 
 				act 'Spread her legs ':gt 'sexm', 'miss'
-				act 'I don''t want to do this, let''s try something else':gt 'sexm', 'variant'
 			elseif sexrand = 3:
 				'"Get on your hands and knees, I want to fuck you like a bitch in heat."'
 
 				act 'Doggy-Style':gt 'sexm', 'dog'
-				act 'I don''t want to do this, let''s try something else':gt 'sexm', 'variant'
 			end
 		elseif boyonce[lover_number] = 0:
 			'<<$loverdesc[lover_number]>> throws you on the bed and starts sucking on your breasts.'
 			gs 'arousal','breasts', 1
 
 			act 'Sex':gt 'sexm', 'miss'
-			act 'I don''t want to do this, let''s try something else':gt 'sexm', 'variant'
 		end
+		act 'I don''t want to do this, let''s try something else':gt 'sexm', 'variant'
 	elseif haraklover[lover_number] = 1:
 		'<<$loverdesc[lover_number]>> gently hugs you and starts to cuddle.'
-		'You undress and smoothly <<$loverdesc[lover_number]>> asks you "how do you want it, darling?"'
+		'You undress, and smoothly, <<$loverdesc[lover_number]>> asks you, "How do you want it, darling?"'
 
 		act 'I want whatever you want sweetie':
 			cla
@@ -259,8 +253,6 @@ if $ARGS[0] = 'room':
 						loverrelation[lover_number] += 2
 						gt 'sexm', 'minet'
 					end
-
-					act 'I don''t want to do this, let''s try something else':gt 'sexm', 'variant'
 				elseif sexrand = 1:
 					'"<<$pcs_firstname>>, I want to take you in the ass."'
 
@@ -269,26 +261,22 @@ if $ARGS[0] = 'room':
 						loverrelation[lover_number] += 4
 						gt 'sexm', 'anal'
 					end
-
-					act 'I don''t want to do this, let''s try something else':gt 'sexm', 'variant'
 				elseif sexrand = 2:
 					'"<<$pcs_firstname>>, I want you."'
 
 					act 'Spread her legs ':gt 'sexm', 'miss'
-					act 'I don''t want to do this, let''s try something else':gt 'sexm', 'variant'
 				elseif sexrand = 3:
 					'"<<$pcs_firstname>>, I want to take you from behind."'
 
 					act 'Doggy-Style':gt 'sexm', 'dog'
-					act 'I don''t want to do this, let''s try something else':gt 'sexm', 'variant'
 				end
 			elseif boyonce[lover_number] = 0:
 				'<<$loverdesc[lover_number]>> throws you on the bed and starts sucking on your breasts.'
 				gs 'arousal','breasts', 1
 
 				act 'Sex':gt 'sexm', 'miss'
-				act 'I don''t want to do this, let''s try something else':gt 'sexm', 'variant'
 			end
+			act 'I don''t want to do this, let''s try something else':gt 'sexm', 'variant'
 		end
 
 		act 'Propose options':gt 'sexm', 'variant'
@@ -304,7 +292,7 @@ if $ARGS[0] = 'variant':
 	if haraklover[lover_number] = 2:loverrelation[lover_number] -= 1
 	'<img src = "images/characters/shared/'+lover_picture[lover_number]+'.jpg">'
 
-	'<<$loverdesc[lover_number]>> looks at you and is waiting for you to say something'
+	'<<$loverdesc[lover_number]>> looks at you and waits for you to say something.'
 
 	act 'Lie down and spread your legs':gt 'sexm', 'miss'
 	act 'Doggy-Style':gt 'sexm', 'dog'
@@ -353,7 +341,7 @@ if $ARGS[0] = 'minet':
 		gs 'cum_manage'
 		loverrelation[lover_number] += 3
 		'<center><img <<$set_imgh>> src="images/shared/sex/cum/mouth/cum30.jpg"></center>'
-		'A hot jet of sperm hits you in the mouth. You start to swallow his cum while <<$loverdesc[lover_number]>> continues to cum in your mouth. Finally the flow of hot liquid with a pungent taste stops.'
+		'A hot jet of sperm hits you in the mouth. You start to swallow his cum while <<$loverdesc[lover_number]>> continues to cum in your mouth. Finally, the flow of hot liquid with a pungent taste stops.'
 
 		act 'Leave':gt 'sexm', 'endsex'
 	end
@@ -381,7 +369,7 @@ if $ARGS[0] = 'minet':
 					gs 'cum_manage'
 					loverrelation[lover_number] += 1
 					'<center><img <<$set_imgh>> src="images/shared/sex/cum/facial/facial16.jpg"></center>'
-					'You took his dick out of your mouth and pointed it right at your face. You are now covered with <<$loverdesc[lover_number]>>s warm and sticky cum.'
+					'You take his dick out of your mouth and point it right at your face. You are now covered with <<$loverdesc[lover_number]>>''s warm and sticky cum.'
 				end
 			elseif haraklover[lover_number] = 2:
 				facial += 1
@@ -407,7 +395,7 @@ if $ARGS[0] = 'hand':
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/shared/sex/cum/handjob/hand1.jpg"></center>'
 	'You take his <<loverdick[lover_number]>> centimeter penis and begin to caress it gently, moving the skin on the purple head back and forth.'
-	'Soon, your skillful movements makes the guy cum in your hands, covering them with warm and sticky sperm.'
+	'Soon, your skillful movements make the guy cum in your hands, covering them with warm and sticky sperm.'
 
 	if haraklover[lover_number] = 0:loverrelation[lover_number] -= 1
 	if haraklover[lover_number] = 1:loverrelation[lover_number] -= 5
@@ -451,7 +439,7 @@ if $ARGS[0] = 'strapon':
 	gs 'stat'
 	'<center><video autoplay loop src="images/shared/sex/dom/pegging.mp4"></video></center>'
 	'You go to the drawer and put on your strapon. <<$loverdesc[lover_number]>> gets ready on all fours on the bed.'
-	'You use some lubrication on the guys anus and stick the strapon in. While you fuck his ass he groans a lot and finally finishes. You remove the strapon from his ass and go to the bathroom.'
+	'You use some lubrication on the guy''s anus and stick the strapon in. While you fuck his ass, he groans a lot and finally finishes. You remove the strapon from his ass and go to the bathroom.'
 
 
 	gs 'arousal', 'anal_strap_give', 30, 'dom'
@@ -482,9 +470,9 @@ if $ARGS[0] = 'anal':
 		analplugin = 0
 
 		if pcs_ass < 16 :
-			'<<$loverdesc[lover_number]>> has pulled the buttplug out of your narrow and tight ass'
+			*p '<<$loverdesc[lover_number]>> pulls the butt plug out of your narrow and tight ass, '
 		elseif pcs_ass >= 16 :
-			' <<$loverdesc[lover_number]>>pulled out your butt plug '
+			*p ' <<$loverdesc[lover_number]>>pulls out your butt plug, '
 		end
 
 		'and you feel his hard cock resting on your ass.'
@@ -496,10 +484,10 @@ if $ARGS[0] = 'anal':
 		if pcs_ass + analpluginbonus < dick:
 			'You scream and bite your lip from the sharp pain you suddenly feel when his <<loverdick[lover_number]>> centimeter penis rips apart your ass when it enters.'
 		elseif pcs_ass + analpluginbonus >= dick:
-			'You groan slightly when you feel his <<loverdick[lover_number]>> centimeter dick enters your ass.'
+			'You groan slightly when you feel his <<loverdick[lover_number]>> centimeter dick enter your ass.'
 		end
 
-		'Finally <<$loverdesc[lover_number]>> grabs your tight ass and starts slamming inside you fiercely. With one final thrust he finishes balls deep inside you.'
+		'Finally, <<$loverdesc[lover_number]>> grabs your tight ass and starts slamming inside you fiercely. With one final thrust, he finishes balls deep inside you.'
 		spafinloc = 4
 		gs 'cum_manage'
 		minut += 3
@@ -512,7 +500,7 @@ if $ARGS[0] = 'anal':
 	else
 		if lubri = 0:
 			lubonus = 2
-			'You do not have any lubricant so <<$loverdesc[lover_number]>> spits on his fingers to lubricate your ass.'
+			'You do not have any lubricant, so <<$loverdesc[lover_number]>> spits on his fingers to lubricate your ass.'
 		elseif lubri > 0:
 			lubri -= 1
 			lubonus = 10
@@ -524,10 +512,10 @@ if $ARGS[0] = 'anal':
 		gs 'arousal', 'anal_finger', 10, 'dom'
 		gs 'stat'
 
-		if pcs_ass < 10:'When he enters the third finger you involuntarily groan in pain.'
-		if pcs_ass >= 10:'When he enters the third finger you can feel your anus getting stretched out.'
+		if pcs_ass < 10:'When he adds a third finger, you involuntarily groan in pain.'
+		if pcs_ass >= 10:'When he adds a third finger, you can feel your anus getting stretched out.'
 
-		'<<$loverdesc[lover_number]>> pulls his fingers out of your buttocks and you feel his hard cock resting on your ass.'
+		'<<$loverdesc[lover_number]>> pulls his fingers out of your buttocks, and you feel his hard cock resting on your ass.'
 
 		gs 'arousal', 'anal', 15, 'dom'
 		gs 'stat'
@@ -538,7 +526,7 @@ if $ARGS[0] = 'anal':
 			'You groan slightly when you feel his cock entering your ass.'
 		end
 
-		'<<$loverdesc[lover_number]>> stops for a moment to give your ass some time to adapt to the big dick inside. Then he starts moving again with a lot more force then before.'
+		'<<$loverdesc[lover_number]>> stops for a moment to give your ass some time to adapt to the big dick inside. Then he starts moving again with a lot more force than before.'
 
 		if pcs_ass + lubonus + 2 < loverdick[lover_number]:
 			if pcs_makeup > 1:pcs_makeup = 0
@@ -548,7 +536,7 @@ if $ARGS[0] = 'anal':
 			'You start to moan rhythmically following the pace of the movements of the dick inside you.'
 		end
 
-		'Finally <<$loverdesc[lover_number]>> grabs your tight ass and starts slamming inside you with all his might. With one final thrust he finishes balls deep inside you.'
+		'Finally, <<$loverdesc[lover_number]>> grabs your tight ass and starts slamming inside you with all his might. With one final thrust, he finishes balls deep inside you.'
 
 		gs 'arousal', 'anal', 10, 'dom', 'rough'
 		gs 'stat'
@@ -561,7 +549,7 @@ if $ARGS[0] = 'anal':
 			spafinloc = 3
 			gs 'cum_manage'
 
-			'<<$loverdesc[lover_number]>> takes his dick out of you and gives you a kiss.  You get up and use the bathroom.'
+			'<<$loverdesc[lover_number]>> takes his dick out of you and gives you a kiss. You get up and use the bathroom.'
 		end
 
 		if pcs_ass < dick:pcs_ass += 1
@@ -584,7 +572,7 @@ if $ARGS[0] = 'miss':
 	gs 'cum_manage'
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/shared/sex/vag/miss/vag.jpg"></center>'
-	'<<$loverdesc[lover_number]>> spreads your legs and begins to fondle your pussy with his fingers. Once he is satisfied that you are ready he takes you vigorously.'
+	'<<$loverdesc[lover_number]>> spreads your legs and begins to fondle your pussy with his fingers. Once he is satisfied that you are ready, he takes you vigorously.'
 	
 	gs 'arousal', 'vaginal_finger', 5
 	gs 'arousal', 'vaginal', 25
@@ -606,7 +594,7 @@ if $ARGS[0] = 'dog':
 	gs 'cum_manage'
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/shared/sex/vag/doggy/dog1.jpg"></center>'
-	'<<$loverdesc[lover_number]>> made you get on all fours and spread your pussy before he enters.'
+	'<<$loverdesc[lover_number]>> makes you get on all fours and spread your pussy before he enters.'
 	
 	gs 'arousal', 'vaginal', 30, 'dom'
 	gs 'stat'
@@ -619,7 +607,7 @@ if $ARGS[0] = 'startPod':
 	podrand = rand(0, 1)
 
 	if podrand = 0:
-		'<<$loverdesc[lover_number]>> whispered to you, take it in your mouth.'
+		'<<$loverdesc[lover_number]>> whispers to you, "Take it in your mouth."'
 		gs 'willpower', 'bj', 'resist', 'medium'
 		if will_cost <= pcs_willpwr:
 			act 'Fuck off! (<<will_cost>> Willpower)':
@@ -633,9 +621,9 @@ if $ARGS[0] = 'startPod':
 			act 'Fuck off! (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
 		end	
 
-		act 'use your mouth':gt 'sexm', 'blow'
+		act 'Use your mouth':gt 'sexm', 'blow'
 	elseif podrand = 1:
-		'<<$loverdesc[lover_number]>> began to strip off your clothes.'
+		'<<$loverdesc[lover_number]>> begins to strip off your clothes.'
 
 		gs 'willpower', 'sex', 'resist', 'medium'
 		if will_cost <= pcs_willpwr:
@@ -665,7 +653,7 @@ if $ARGS[0] = 'doggy':
 	gs 'cum_manage'
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/shared/sex/vag/doggy/dog.jpg"></center>'
-	'<<$loverdesc[lover_number]>> made you get on all fours and spread your pussy before he enters.'
+	'<<$loverdesc[lover_number]>> makes you get on all fours and spread your pussy before he enters.'
 	
 	gs 'arousal', 'vaginal', 30, 'dom'
 	gs 'stat'
@@ -679,7 +667,7 @@ end
 if $ARGS[0] = 'blow':
 	minut += 20
 	gs 'stat'
-	'You squatted and <<$loverdesc[lover_number]>> pulled out his penis.'
+	'You squat, and <<$loverdesc[lover_number]>> pulls out his penis.'
 
 	act 'Take by mouth':
 		*clr & cla
@@ -704,7 +692,7 @@ if $ARGS[0] = 'blow':
 			spafinloc = 12
 			gs 'cum_manage'
 			'<center><img <<$set_imgh>> src="images/shared/sex/cum/mouth/cum30.jpg"></center>'
-			'A hot jet of sperm hit you in the mouth. You started to swallow his cum while <<$loverdesc[lover_number]>> continued to cum in your mouth. Finally the flow of hot liquid with a pungent taste stopped.'
+			'A hot jet of sperm hits you in the mouth. You start to swallow his cum while <<$loverdesc[lover_number]>> continues to cum in your mouth. Finally, the flow of hot liquid with a pungent taste stops.'
 
 			act 'Leave':
 				cla
@@ -736,7 +724,7 @@ if $ARGS[0] = 'blow':
 						spafinloc = 11
 						gs 'cum_manage'
 						'<center><img <<$set_imgh>> src="images/shared/sex/cum/facial/facial16.jpg"></center>'
-						'You took his dick out of your mouth and pointed it right at your face. You are now covered with <<$loverdesc[lover_number]>>''s warm and sticky cum.'
+						'You take his dick out of your mouth and point it right at your face. You are now covered with <<$loverdesc[lover_number]>>''s warm and sticky cum.'
 					end
 				elseif haraklover[lover_number] = 2:
 					facial += 1
@@ -766,7 +754,7 @@ if $ARGS[0] = 'blow':
 		gs 'stat'
 		'<center><img <<$set_imgh>> src="images/shared/sex/cum/handjob/hand1.jpg"></center>'
 		'You take his <<loverdick[lover_number]>> centimeter penis in your hands and begin to caress it gently.'
-		'Soon, your skillful movements makes the guy cum in your hands, covering them with warm and sticky sperm.'
+		'Soon, your skillful movements make the guy cum in your hands, covering them with warm and sticky sperm.'
 
 		if haraklover[lover_number] = 0:loverrelation[lover_number] -= 1
 		if haraklover[lover_number] = 1:loverrelation[lover_number] -= 5
@@ -784,7 +772,7 @@ if $ARGS[0] = 'blow':
 end
 
 if $ARGS[0] = 'gangrape':
-	'You begin to struggle and one of the guys hits you with his hand on your cheek, saying, "Shut up slut! Now spread your legs! We will fuck you up now!"'
+	'You begin to struggle, and one of the guys hits you with his hand on your cheek, saying, "Shut up slut! Now spread your legs! We will fuck you up now!"'
 	gs 'npcgeneratec', 0, 'Stranger', rand(18,45)
 	gs 'boyStat', $npclastgenerated
 	act 'Obey':gt 'sexm', 'gangbang'
@@ -842,9 +830,9 @@ if $ARGS[0] = 'gangbang':
 
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/shared/sex/group/gangbang.jpg"></center>'
-	'One of the guys lives nearby and he drags you into his apartment. There he started tearing off your clothes.'
-	'Once you are completely naked they put you on your knees. One of them shoves his dick inside your mouth. They give you a cock in each hand and instruct you to start jerking them off. They make you feel like a real whore.'
-	'Suddenly one of the boys pushes you on the couch and grabs you by the waist. He thrusts his cock deep inside your pussy, you do not have time to react to this because you get two cocks shoved into your mouth at once.'
+	'One of the guys lives nearby, and he drags you into his apartment. There, he starts tearing off your clothes.'
+	'Once you are completely naked, they put you on your knees. One of them shoves his dick inside your mouth. They give you a cock in each hand and instruct you to start jerking them off. They make you feel like a real whore.'
+	'Suddenly, one of the boys pushes you on the couch and grabs you by the waist. He thrusts his cock deep inside your pussy. You do not have time to react to this because you get two cocks shoved into your mouth at once immediately after.'
 	'You feel a cold sensation on your ass. It looks like they are rubbing some lubrication there. Then you feel something big and solid at your rear entrance.'
 
 	gs 'arousal', 'bj', 10, 'gangbang', 'sub'
@@ -864,24 +852,24 @@ if $ARGS[0] = 'gangbang':
 		gs 'stat'
 	
 		if pcs_ass >= 10:
-			'Two cocks are hammering you from behind, you can feel like them rubbing through the thin barriers between the anus and the vaginal wall. You are starting to get wet while the two cocks enthusiastically continue to pound.'
+			'Two cocks are hammering you from behind. You can feel them rubbing through the thin barriers between the anus and the vaginal wall. You start to get wet while the two cocks enthusiastically continue to pound.'
 		elseif pcs_ass < 10:
 			pcs_horny += (10 - pcs_ass)
-			'You are crying very hard from the severe pain you feel from the hard cock ramming your ass while another cock is fucking you in your pussy.'
+			'You cry very hard from the severe pain you feel from the hard cock ramming your ass while another cock is fucking you in your pussy.'
 		end
 
 		if pcs_horny >= 90:
 			$orgasm_or = 'custom'
-			$orgasm_txt = 'You can feel the sensation in your stomach begins to grow and soon your whole body is overtaken by a shock as you moan through your orgasm.'
+			$orgasm_txt = 'You can feel the sensation in your stomach begin to grow, and soon, your whole body is overtaken by a shock as you moan through your orgasm.'
 		end
 
-		'It seems the guys have played enough with you and they have decided to come on your face. They removed their dicks from your holes and point them at you.'
+		'It seems the guys have played enough with you, and they have decided to cum on your face. They remove their dicks from your holes and point them at you.'
 
 		act 'Get on your knees':
 			*clr & cla
 			'<center><img <<$set_imgh>> src="images/shared/sex/group/gangbang2.jpg"></center>'
-			'You humbly knelt before the guys, they quickly surround you and they all start to cum on your face, covering it with sticky, warm and fragrant sperm.'
-			'After the boys spent their load they lost interest in you and began to leave.'
+			'You humbly kneel before the guys. They quickly surround you, and they all start to cum on your face, covering it with sticky, warm and fragrant sperm.'
+			'After the boys spend their load, they lose interest in you and begin to leave.'
 
 			act 'Leave':
 				cla
@@ -900,10 +888,10 @@ if $ARGS[0] = 'popala':
 
 	if popolaini = 1:
 		'<center><img <<$set_imgh>> src="images/characters/city/husband/sex/p0.jpg"></center>'
-		'Just as you were about to go to the bathroom to wash up you husband walked in and caught you kneeling in front of a naked man while you are covered in semen.'
+		'Just as you are about to go to the bathroom to wash up, you husband walks in and catches you kneeling in front of a naked man while you are covered in semen.'
 	elseif popolaini = 2:
 		'<center><img <<$set_imgh>> src="images/characters/city/husband/sex/p5.jpg"></center>'
-		'Just as you changed position your husband entered the room.'
+		'Just as you change position, your husband enters the room.'
 	end
 
 	!!if popolaini = 2:
@@ -912,8 +900,8 @@ if $ARGS[0] = 'popala':
 	!!end
 	
 	if harakHusb = 0:
-		'"Honey what''s happening here? why are you cheating on me?" stammered <<$husName>> while looking at you.'
-		'"<<$husName>> it''s not what you think. It''s just sex, no feelings, I only love you. He does not mean anything. Come to me, I''ll show you how much I love you. " you answered him. You know you are caught red-handed so you made up some excuse on the spot but you don''t really think he will believe this.'
+		'"Honey what''s happening here? why are you cheating on me?" stammers <<$husName>> while looking at you.'
+		'"<<$husName>> it''s not what you think. It''s just sex, no feelings, I only love you. He does not mean anything. Come to me, I''ll show you how much I love you. " you answer him. You know you are caught red-handed, so you make up some excuse on the spot, but you don''t really think he will believe this.'
 
 		if izvratH = 0:
 			husbizvradd = 0
@@ -922,7 +910,7 @@ if $ARGS[0] = 'popala':
 			husband = 0
 			divorced += 1
 			gs 'boyStat', $lover[lover_number]
-			'"No, I''m going, you betrayed our love." he faltered and ran out of the room almost sobbing.'
+			'"No, I''m going, you betrayed our love." he falters and runs out of the room almost sobbing.'
 
 
 			if haraklover[lover_number] = 0:
@@ -932,7 +920,7 @@ if $ARGS[0] = 'popala':
 				act 'Leave':  gt 'din_npc', 'go_straight_home'
 
 			elseif haraklover[lover_number] = 1:
-				'"Well, I see you are not only for me, so perhaps I''ll go, but if you want I can stay and comfort you " said <<$loverdesc[lover_number]>>'
+				'"Well, I see you are not only for me, so perhaps I''ll go, but if you want, I can stay and comfort you " says <<$loverdesc[lover_number]>>.'
 
 				act 'Let him go': gt 'din_npc', 'go_straight_home'
 
@@ -946,7 +934,7 @@ if $ARGS[0] = 'popala':
 					xgt 'sex', 'var'
 				end
 			elseif haraklover[lover_number] = 2:
-				'"This is a surprise, but oh well that clown ran away, and I am once again ready. Let''s continue and let this wimp go" said <<$loverdesc[lover_number]>>, clearly intending to continue the evening.'
+				'"This is a surprise, but oh well that clown ran away, and I am once again ready. Let''s continue and let this wimp go" says <<$loverdesc[lover_number]>>, clearly intending to continue the evening.'
 
 				act 'Refuse':
 					loverrelation[lover_number] -= 1
@@ -963,8 +951,8 @@ if $ARGS[0] = 'popala':
 				end
 			end
 		elseif izvratH = 1:
-			'"You really only love me?" asked <<$husName>>.'
-			'"Yes, I will do everything with you like he did, but it will be with love now and you will understand the difference" you replied. You are amazed at how he believes in this nonsense. <<$husName>> came up to you and you unbuttoned his pants to reveal his dick.'
+			'"You really only love me?" asks <<$husName>>.'
+			'"Yes, I will do everything with you I did with him, but it will be with love, and you will understand the difference," you reply. You are amazed he believes this nonsense. <<$husName>> comes up to you, and you unbutton his pants to reveal his dick.'
 
 			if haraklover[lover_number] = 0:
 				gs 'lover', 'remove', lover_number
@@ -973,21 +961,21 @@ if $ARGS[0] = 'popala':
 				husbandMark = 0
 				husband = 0
 				divorced += 1
-				'"So you''re married! you deceived me even though I loved you. You are a despicable liar. Goodbye!" your guy shouted and ran out of the room.'
-				'"He''s right, you''re a liar, and you do not deserve me, you''re a fallen woman, I don''t want to see you again" You husband burst into tears and ran out to follow the guy.'
+				'"So you''re married! You deceived me even though I loved you. You are a despicable liar. Goodbye!" your guy shouted and ran out of the room.'
+				'"He''s right, you''re a liar, and you do not deserve me, you''re a fallen woman, I don''t want to see you again." You husband bursts into tears and runs out to follow the guy.'
 
 				act 'Leave': gt 'din_npc', 'go_straight_home'
 
 			elseif haraklover[lover_number] = 1:
-				'<<$loverdesc[lover_number]>> stood by you and watched as you fucked your husband, "Wow, you seem to really enjoy sex with your husband. This really can''t compare to what we did. Well maybe you can use your mouth and I can still be useful" he said.'
-				'"Sure, come on." perked <<$husName>> "Dear lie down on the bed"'
+				'<<$loverdesc[lover_number]>> stands by you and watches as you fuck your husband. "Wow, you seem to really enjoy sex with your husband. This really can''t compare to what we did. Well maybe you can use your mouth, and I can still be useful," he says.'
+				'"Sure, come on," pipes up <<$husName>>. "Dear lie down on the bed."'
 
 				act 'Lie down':
 					*clr & cla
 					houseslut += 1
 					'<center><img <<$set_imgh>> src="images/characters/city/husband/sex/p1.jpg"></center>'
-					'You lie down on the bed and <<$husName>> enters your pussy while <<$loverdesc[lover_number]>> lies before you and moves his cock to your mouth. You diligently work your husband''s cock while not forgetting your lover''s cock in your mouth.'
-					'"Mmm <<$pcs_nickname>> I have never seen you so enthusiastic when we were together. Maybe we should try some other positions" proposed <<$loverdesc[lover_number]>>, and your husband agreed.'
+					'You lie down on the bed, and <<$husName>> enters your pussy while <<$loverdesc[lover_number]>> lies before you and moves his cock to your mouth. You diligently work your husband''s cock while not forgetting your lover''s cock in your mouth.'
+					'"Mmm <<$pcs_nickname>>, I have never seen you so enthusiastic when we were together. Maybe we should try some other positions," proposes <<$loverdesc[lover_number]>>, and your husband agreed.'
 
 					gs 'arousal', 'vaginal', 10
 					gs 'stat'
@@ -1003,15 +991,15 @@ if $ARGS[0] = 'popala':
 					end
 				end
 			elseif haraklover[lover_number] = 2:
-				'"That''s right, her mouth is great, but her ass is even better. You fuck her ass, and I''ll fuck her mouth. With her ass she can show you if she really loves you, or not. " said <<$loverdesc[lover_number]>>, explicitly directed at your husband.'
-				'"Yeah, come to bed, see how I am going to love your ass, " said <<$husName>>.'
+				'"That''s right, her mouth is great, but her ass is even better. You fuck her ass, and I''ll fuck her mouth. With her ass, she can show you if she really loves you or not," says <<$loverdesc[lover_number]>>, explicitly directed at your husband.'
+				'"Yeah, come to bed, see how I am going to love your ass," says <<$husName>>.'
 
 				act 'Lie down':
 					*clr & cla
 					houseslut += 1
 					'<center><img <<$set_imgh>> src="images/characters/city/husband/sex/p2.jpg"></center>'
-					'You lie down on the bed and <<$husName>> enters you in the anus, while <<$loverdesc[lover_number]>> lies before you, presenting his cock to your mouth. You diligently work your husband''s cock in your ass while not forgetting your lover''s cock in your mouth.'
-					'"If you remove your dick from her ass now then she can really show you how much she loves you." proposed <<$loverdesc[lover_number]>>, and the husband agreed.'
+					'You lie down on the bed, and <<$husName>> enters you in the anus, while <<$loverdesc[lover_number]>> lies before you, presenting his cock to your mouth. You diligently work your husband''s cock in your ass while not forgetting your lover''s cock in your mouth.'
+					'"If you remove your dick from her ass now, then she can really show you how much she loves you," proposes <<$loverdesc[lover_number]>>, and your husband agreed.'
 
 					gs 'arousal', 'anal', 10
 					gs 'stat'
@@ -1035,21 +1023,21 @@ if $ARGS[0] = 'popala':
 		husband = 0
 		divorced += 1
 		gs 'boyStat', $lover[lover_number]
-		'"What the hell is going on here? " said <<$husName>> while looking at you.'
-		'"<<$husName>> it''s not what you think. It''s just sex, no feelings, I only love you. He does not mean anything. Come to me, I''ll show you how much I love you. " you answered him. You know you are caught red-handed so you made up some excuse on the spot but you don''t really think he will believe this.'
+		'"What the hell is going on here? " says <<$husName>> while looking at you.'
+		'"<<$husName>> it''s not what you think. It''s just sex, no feelings, I only love you. He does not mean anything. Come to me, I''ll show you how much I love you," you answer him. You know you are caught red-handed, so you make up some excuse on the spot, but you don''t really think he will believe this.'
 
 		if izvratH = 0:
-			'"You filthy slut. What love? You fuck with everyone. Let''s see if you will still like it in the forest you whore." he said and left the room, slamming the door.'
+			'"You filthy slut. What love? You fuck everyone. Let''s see if you will still like it in the forest you whore," he says and leaves the room, slamming the door.'
 
 
 			if haraklover[lover_number] = 0:
 				gs 'lover', 'remove', lover_number
-				'"Wait, you''re married!, you deceived me even though I loved you. Goodbye!" your guy shouted and ran out of the room.'
+				'"Wait, you''re married! You deceived me even though I loved you. Goodbye!" your guy shouts and runs out of the room.'
 
 				act 'Leave': gt 'din_npc', 'go_straight_home'
 				
 			elseif haraklover[lover_number] = 1:
-				'"Well, I see I am not the only one for you, so perhaps I''ll go. But if you want I can stay and comfort you" said <<$loverdesc[lover_number]>>'
+				'"Well, I see I am not the only one for you, so perhaps I''ll go, but if you want, I can stay and comfort you" says <<$loverdesc[lover_number]>>.'
 
 				act 'Let him go': gt 'din_npc', 'go_straight_home'
 
@@ -1062,7 +1050,7 @@ if $ARGS[0] = 'popala':
 					xgt 'sex', 'var'
 				end
 			elseif haraklover[lover_number] = 2:
-				'"Well this is a surprise, but oh well it looks like your hubby dumped you, and I am once again ready, let''s continue. Let this cuckold run away like a little bitch" said <<$loverdesc[lover_number]>>, clearly intending to continue the evening.'
+				'"Well this is a surprise, but oh well it looks like your hubby dumped you, and I am once again ready, let''s continue. Let this cuckold run away like a little bitch," says <<$loverdesc[lover_number]>>, clearly intending to continue the evening.'
 
 				act 'Refuse':
 					loverrelation[lover_number] -= 1
@@ -1080,9 +1068,9 @@ if $ARGS[0] = 'popala':
 			end
 		elseif izvratH = 1:
 			gs 'lover', 'remove', lover_number
-			'"Can you even hear yourself while you are talking nonsense?" asked <<$husName>>.'
-			'"I''m sorry" I muttered while looking at the floor'
-			'<<$husName>> came up to you. "I''ll leave today and will file for divorce, but first, I will punish you, " he said while unzipping his pants and pulling out his penis. "Well, what are you wating for? Suck, whore!"'
+			'"Can you even hear yourself while you are talking nonsense?" asks <<$husName>>.'
+			'"I''m sorry," you mutter while looking at the floor.'
+			'<<$husName>> comes up to you. "I''ll leave today and will file for divorce, but first, I will punish you," he says while unzipping his pants and pulling out his penis. "Well, what are you waiting for? Suck, whore!"'
 
 			if haraklover[lover_number] = 0:
 				act 'Take by mouth':
@@ -1090,8 +1078,8 @@ if $ARGS[0] = 'popala':
 					spafinloc = 12
 					gs 'Cum_Manage'
 					'<center><img <<$set_imgh>> src="images/characters/city/husband/sex/p3.jpg"></center>'
-					'"So you''re married? You cheated on me even though I loved you. You despicable liar! goodbye!" your guy shouted and ran out of the room.'
-					'<<$husName>> did not pay any attention to him, he put his dick in your mouth and grabbed your head. He literally started to fuck you in the mouth with each thrust pushing it deeper. You were frantically grasping and trying to breathe, desperately trying not to choke as he continued, suddenly he made an abrupt movement and his cock popped into your throat, you try to pull away, but he sternly tells you to take it. He gave you a couple of seconds to get used to the dick in your throat and began to fuck your throat, you are still not getting enough air and you frantically begin to beat him to get free, but this makes <<$husName>> only tighten his grip on your head. When you''re starting to lose consciousness, he finally finishes. You feel his sperm go down your throat. After a couple of strong aftershocks he lets you go. You collapse on the floor coughing up sperm mixed with your saliva and wheezing air. <<$husName>> looked at you as you writhe on the floor. He spits on the floor next to you, and leaves the room.'
+					'"So you''re married? You cheated on me even though I loved you. You despicable liar! goodbye!" your guy shouts and runs out of the room.'
+					'<<$husName>> does not pay any attention to him. He puts his dick in your mouth and grabs your head. He literally starts to fuck you in the mouth with each thrust pushing it deeper. You frantically gasp, trying to breathe, desperately trying not to choke as he continues. Suddenly, he makes an abrupt movement, and his cock pops into your throat. You try to pull away, but he sternly tells you to take it. He gives you a couple of seconds to get used to the dick in your throat and begins to thrust. You are still not getting enough air, and you frantically begin to beat him to get free, but this only makes <<$husName>> tighten his grip on your head. When you''re starting to lose consciousness, he finally finishes. You feel his sperm go down your throat. After a couple of strong aftershocks, he lets you go. You collapse on the floor, coughing up sperm mixed with your saliva and wheezing air. <<$husName>> looks at you as you writhe on the floor. He spits on the floor next to you and leaves the room.'
 
 					gs 'arousal', 'bj', 10, 'sub', 'deepthroat'
 					gs 'stat'
@@ -1102,16 +1090,16 @@ if $ARGS[0] = 'popala':
 					end
 				end
 			elseif haraklover[lover_number] = 1:
-				'<<$loverdesc[lover_number]>> stood and watched as you get fucked by your husband, "Well, I''ll probably go." he said.'
-				'"Wait! This whore can handle two cocks. You can join us if you want." offered <<$husName>>.'
-				'"Thanks for the offer, I do believe she will be able to handle me." replied <<$loverdesc[lover_number]>>'
+				'<<$loverdesc[lover_number]>> stands and watches as you get fucked by your husband. "Well, I should probably go," he says.'
+				'"Wait! This whore can handle two cocks. You can join us if you want," offers <<$husName>>.'
+				'"Thanks for the offer, I do believe she will be able to handle me," replies <<$loverdesc[lover_number]>>.'
 
 				act 'Lie on the bed':
 					*clr & cla
 					'<center><img <<$set_imgh>> src="images/characters/city/husband/sex/p1.jpg"></center>'
-					'You lie down on the bed and <<$husName>> enters your pussy while <<$loverdesc[lover_number]>> lies before you and moves his cock to your mouth. You diligently work your husband''s cock while not forgetting your lover''s cock in your mouth.'
-					'"she is still a great fuck, " said the husband.'
-					'"I could not agree more" replied <<$loverdesc[lover_number]>>'
+					'You lie down on the bed, and <<$husName>> enters your pussy while <<$loverdesc[lover_number]>> lies before you and moves his cock to your mouth. You diligently work your husband''s cock while not forgetting your lover''s cock in your mouth.'
+					'"She is still a great fuck, " says your husband.'
+					'"I could not agree more," replies <<$loverdesc[lover_number]>>.'
 
 					gs 'arousal', 'bj', 10, 'sub', 'group'
 					gs 'arousal', 'vaginal', 10, 'sub', 'group'
@@ -1127,15 +1115,15 @@ if $ARGS[0] = 'popala':
 					end
 				end
 			elseif haraklover[lover_number] = 2:
-				'"That''s right this whore should be punished, if you want to let me help we can do it together and she will not be able to sit down for a week, " said <<$loverdesc[lover_number]>>, explicitly riling up your husband.'
-				'"Yes, let''s punish the bitch, and then I can go to the authorities to initiate my divorce and remove this whore from my life" said <<$husName>>.'
+				'"That''s right, this whore should be punished. If you want to let me help, we can do it together, and she will not be able to sit down for a week," says <<$loverdesc[lover_number]>>, explicitly riling up your husband.'
+				'"Yes, let''s punish the bitch, and then I can go to the authorities to initiate my divorce and remove this whore from my life," says <<$husName>>.'
 
 				act 'Lie on the bed':
 					*clr & cla
 					'<center><img <<$set_imgh>> src="images/characters/city/husband/sex/p2.jpg"></center>'
-					'You lie down on the bed and <<$husName>> entered your anus while <<$loverdesc[lover_number]>> lay before you presenting his cock to your mouth. You diligently work your husband''s cock in your ass while not forgetting your lover''s cock in your mouth.'
-					'"Wow, even now she knows how to work that ass " said <<$husName>>.'
-					'"Yeah, please leave some for me" replied <<$loverdesc[lover_number]>>'
+					'You lie down on the bed, and <<$husName>> enters your anus while <<$loverdesc[lover_number]>> lies before you, presenting his cock to your mouth. You diligently work your husband''s cock in your ass while not forgetting your lover''s cock in your mouth.'
+					'"Wow, even now she knows how to work that ass," says <<$husName>>.'
+					'"Yeah, please leave some for me," replies <<$loverdesc[lover_number]>>.'
 
 					gs 'arousal', 'bj', 10, 'sub', 'group'
 					gs 'arousal', 'vaginal', 10, 'sub', 'group'
@@ -1154,7 +1142,7 @@ if $ARGS[0] = 'popala':
 		end
 	elseif harakHusb = 2:
 		fingal += 1
-		'"Oh damn," was the last thing you heared before you were thrown to the wall by a powerful blow to the face.'
+		'"Oh damn," is the last thing you hear before you are thrown to the wall by a powerful blow to the face.'
 
 		if izvratH = 0:
 			husbizvradd = 0
@@ -1168,19 +1156,19 @@ if $ARGS[0] = 'popala':
 			stolmoney = 0
 			money = 0
 			komp = 0
-			'while getting up you could see in the corner of the room your husband giving blow after blow to your lover, and <<$loverdesc[lover_number]>> was trying hard to escape out the door, finally he succeeds and he runs out of the apartment at a breakneck pace.'
-			'<<$husName>> looked at you, "Here... you... whore... cock... and pussy... and ass... and in your mouth." he says putting a strong emphasis on every word. At the end of the last word, he kicks you in the face, rendering you unconscious. You woke up two hours later. Your husband was gone and so was all of his stuff. Some of your stuff was missing too'
+			'While getting up, you can see in the corner of the room your husband giving blow after blow to <<$loverdesc[lover_number]>> as he tries hard to escape out the door. Finally, your lover succeeds, and he runs out of the apartment at a breakneck pace.'
+			'<<$husName>> looks at you. "Here... you... whore... cock... and pussy... and ass... and in your mouth," he says putting a strong emphasis on every word. At the end of the last word, he kicks you in the face, rendering you unconscious. You wake up two hours later. Your husband is gone and so is all of his stuff. Some of your stuff is missing too.'
 
 			act 'Leave': gt 'din_npc', 'go_straight_home'
 
 		elseif izvratH = 1:
 			gs 'lover', 'remove', lover_number
 			houseslut += 1
-			'"Oh damn, she allowed you inside of her?" asked <<$husName>>, "So now you will need to pay me for the pleasure of using her. This is my slut! " he added, referring to you. "Once that is settled we will fuck her together." he added, lifting you off the floor and throwing you on the bed.'
+			'"Oh damn, she allowed you inside of her?" asks <<$husName>>. "So now you will need to pay me for the pleasure of using her. This is my slut!" he adds, referring to you. "Once that is settled, we will fuck her together," he continues, lifting you off the floor and throwing you on the bed.'
 
-			if haraklover[lover_number] = 0:'<<$loverdesc[lover_number]>> tried to protest, but after seeing your husband''s face contorted with rage he agreed'
-			if haraklover[lover_number] = 1:'<<$loverdesc[lover_number]>> silently complied to your husband''s request'
-			if haraklover[lover_number] = 2:'<<$loverdesc[lover_number]>> gladly accepted'
+			if haraklover[lover_number] = 0:'<<$loverdesc[lover_number]>> tries to protest, but after seeing your husband''s face contorted with rage, he agrees'
+			if haraklover[lover_number] = 1:'<<$loverdesc[lover_number]>> silently complies with your husband''s request.'
+			if haraklover[lover_number] = 2:'<<$loverdesc[lover_number]>> gladly accepts'
 
 			act 'Continue':
 				if popolaini = 1:picrand = 40