[changed] preventing orgasm if you've been hypnotised by the therapist

[added] and some other stuff i guess idk

locations/sex_ev_after.qsrc

@@ -1549,6 +1549,7 @@ end
 if $ARGS[0] = 'relax_together':
 	cla
 	sex_ev['relax_after'] = 1
+	if sex_ev['angry_after'] = 0: sex_ev['mad'] = 0 and sex_ev['annoyed'] = 0
 	act'Stop relaxing':cla & gs'sex_ev_after', 'after_sex2'
 	
 	act'Pillow talk':gt'sex_ev_pillow_talk', 'start'
@@ -1562,7 +1563,7 @@ if $ARGS[0] = 'relax_together':
 	elseif pcs_sleep < 30 and sex_ev['get_up'] = 0 and sex_ev['angry_after'] = 0:
 		act'Rest your eyes':gt'sex_ev_after', 'bed'
 	end
-	gs'sex_ev_talk', 'sugar_daddy_pay'
+	gs'sex_ev_talk', 'prostitution_payment'
 	gs'sex_ev_after', 'sore_pussy_msg'
 end
 

locations/sex_ev_condoms.qsrc

@@ -45,6 +45,7 @@ if $ARGS[0] = 'condoms':
 			gs 'sex_ev_condoms', 'reenable_condoms1'
 			gs 'sex_ev_condoms', 'no_more_free_creampies1'
 			gs 'sex_ev_condoms', 'already_creampie1'
+			gs 'sex_ev_condoms', 'lube_up1'
 		elseif npc_bareback[$boy] = 2 and sex_ev['no_condom'] ! 1 and sex_ev['condom'] ! 1:
 			'"Is it safe?" <<$npc_firstname[$boy]>> asks. "Can we go bareback?"'
 			gs 'sex_ev_condoms', 'bareback_check'
@@ -65,6 +66,7 @@ if $ARGS[0] = 'condoms':
 				gs 'sex_ev_condoms', 'pc_safe_day'
 				gs 'sex_ev_condoms', 'pc_dangerous_day'
 				gs 'sex_ev_condoms', 'already_creampie1'
+				gs 'sex_ev_condoms', 'lube_up1'
 				if stat['think_virgin'] = 1 and sex_ev['fuck_count'] = 0: gs 'sex_ev_condoms', 'virgin_condom_ask1'
 			end
 		elseif sex_ev['using_pc_condoms'] = 1:
@@ -981,6 +983,7 @@ if $ARGS[0] = 'no_condom1':
 					sex_ev['dont_need_condom'] = 1
 					sex_ev['promise_no_creampie'] = 1
 					sex_ev['must_fuck'] = 1
+					npc_rule_no_creampies[$boy] = 1
 					cla & *nl
 					'You hesitate, mulling it over for a moment'
 					'"Well... Alright..." you say somewhat reluctantly. "But don''t you dare come inside me, okay?"'
@@ -995,6 +998,7 @@ if $ARGS[0] = 'no_condom1':
 	act'Just don''t come inside me':
 		sex_ev['promise_no_creampie'] = 1
 		sex_ev['must_fuck'] = 1
+		npc_rule_no_creampies[$boy] = 1
 		cla & *nl
 		'"Well... Alright..." you say hesitantly. "But don''t you dare come inside me, okay?"'
 		gs 'sex_ev_sex', 'position_choose'
@@ -1031,6 +1035,7 @@ if $ARGS[0] = 'no_condom2':
 		act'Just don''t come inside me':
 			sex_ev['promise_no_creampie'] = 1
 			sex_ev['must_fuck'] = 1
+			npc_rule_no_creampies[$boy] = 1
 			cla & *nl
 			'"Well... Alright..." you say hesitantly. "But don''t you dare come inside me, okay?"'
 			gs 'sex_ev_sex', 'position_choose'
@@ -1184,6 +1189,7 @@ if $ARGS[0] = 'dont_cum_in_me':
 		act'Don''t come inside me':
 			cla & *nl
 			sex_ev['promise_no_creampie'] = 1
+			npc_rule_no_creampies[$boy] = 1
 			if birth_control['think_safe'] ! 1 and npc_know_not_bc[$boy] = 1:
 				'"Don''t forget, you can''t come inside me," you warn him as you get into position. "I''m still not on birth control."'
 			elseif birth_control['think_safe'] ! 1 and pillcon2 > 0:
@@ -2295,6 +2301,12 @@ if $ARGS[0] = 'trying_for_baby':
 	end
 end
 
+if $ARGS[0] = 'lube_up1':
+	if mc_inventory['lubricant'] > 0:
+	
+	end
+end
+
 if $ARGS[0] = 'virgin_condom1':
 	act'Wait for him':
 		sex_ev['condom'] = 1

locations/sex_ev_cum.qsrc

@@ -437,19 +437,16 @@ if $ARGS[0] = 'fuck_cum2':
 		if sex_ev['kiss'] = 1:
 			'A short while later, <<$npc_firstname[$boy]>> reaches his limit.'
 			'"I''m-! Almost there!" he grunts, breaking away from your lips, panting heavily.'
-			if sex_ev['orgasm'] < orgasm: 
-				'"Me too," you moan back.'
-			else
-				'"Yeah?" you moan back.'
-			end
 		else
 			'A short while later, <<$npc_firstname[$boy]>> reaches his limit.'
 			'"I''m-! Almost there!" he grunts.'
-			if sex_ev['orgasm'] < orgasm: 
-				'"Me too," you moan back.'
-			else
-				'"Yeah?" you moan back.'
-			end
+		end
+		if sex_ev['orgasm'] < orgasm: 
+			'"Me too," you moan back.'
+		elseif pcs_horny > 90:
+			'"I think I''m close too," you moan back.'
+		else
+			'"Yeah?" you moan back.'
 		end
 	end
 	
@@ -668,10 +665,6 @@ if $ARGS[0] = 'fuck_cum2':
 				act'Not inside me!':sex_ev['not_inside'] = 1 & gt 'sex_ev_cum', 'cum_not_inside'
 			end
 		end
-		
-		if $sex_ev['position'] = 'cowgirl':
-			act'Make him come inside you':gt'sex_ev_cum', 'cum_force'
-		end
 
 	elseif $sex_ev['cum_choice'] = 'creampie_surprise':
 !!		if sex_ev['condom'] = 1:
@@ -1607,6 +1600,25 @@ if $ARGS[0] = 'creampie_menu':
 				act'"Let''s come together"':sex_ev['creampie_ask'] = 1 & gs 'sex_ev_cum', 'cum_together'
 			end
 		else
+			act'"You can come inside"':
+				cla & *nl
+				sex_ev['creampie_ask'] = 1
+				if sex_ev['he_ask_creampie'] = 1:
+					if sex_ev['speed'] ! 3:
+						'"It''s okay," you murmur. "You can come inside."'
+					else
+						'"It''s-! Okay-!" you grunt out between poundings. "You can-! Come inside-!"'
+					end
+				else
+					if sex_ev['speed'] ! 3:
+						'"It''s okay," you murmur. "You can just come inside."'
+					else
+						'"It''s-! Okay-!" you grunt out between poundings. "You can just-! Come inside-!"'
+					end
+				end
+				act'Continue':gt 'sex_ev_cum', 'cum_inside'
+			end
+			
 			act'"Fill me up"':
 				cla & *nl
 				sex_ev['creampie_ask'] = 1
@@ -1745,6 +1757,17 @@ if $ARGS[0] = 'creampie_menu':
 			act'Make him come inside you':gt'sex_ev_cum', 'cum_force'
 		end
 	end
+!!{	if sex_ev['prostitution'] = 1 and npc_rule_no_creampies[$boy] = 1:
+		act'Creampies cost extra':
+			cla & *nl
+			'"Coming inside costs extra," you say, giving <<$npc_firstname[$boy]>> a sultry look.'
+!!			if $npc_cum_pref[$boy] = 'creampie':
+!!			else
+!!			end
+			'"Ungh~! Paid!" he grunts and thrusts balls deep into you.'
+			act'Continue':gt 'sex_ev_cum', 'cum_inside'
+		end
+	end}
 end
 
 if $ARGS[0] = 'cum_inside':
@@ -1754,18 +1777,22 @@ if $ARGS[0] = 'cum_inside':
 	!! differing descriptions based on position
 	if $sex_ev['position'] = 'miss':
 		'<center><video autoplay loop src="images/shared/sex/cum/vagcreampie/creampie1.mp4"></video></center>'
-		if pcs_horny > 90:
-			$orgasm_or = 'yes'
-			gs 'sex_ev_sex', 'fuck_arousal_cum_code'
-			gs'stat'
-			sex_ev['came_together'] = 2
-			sex_ev['orgasm_count'] += 1
-			sex_ev['creampie_orgasm'] += 1
-			'<<$npc_firstname[$boy]>> drives himself inside you with a grunt and you feel cum spurting out inside you. The sensation pushes you over the edge, gasping as waves of orgasm wash through you. The two of come together, each of your orgasms fuelling the other''s until eventually they''ve run their course, and both of you are breathing hard.'
-			gs 'sex_ev_cum', 'cum_inside_pull_away'
-			gs'sex_ev_reactions', 'react_menu'
-		else
-			'<<$npc_firstname[$boy]>> drives himself inside you, grunting. His cock pulses inside you and warmth fills your pussy.'
+!!{		if pcs_horny > 90:
+			if hypnoHardToCum = 0:
+				$orgasm_or = 'yes'
+				gs 'sex_ev_sex', 'fuck_arousal_cum_code'
+				gs 'stat'
+				sex_ev['came_together'] = 2
+				sex_ev['orgasm_count'] += 1
+				sex_ev['creampie_orgasm'] += 1
+				'<<$npc_firstname[$boy]>> drives himself inside you with a grunt and you feel cum spurting out inside you. The sensation pushes you over the edge, gasping as waves of orgasm wash through you. The two of come together, each of your orgasms fuelling the other''s until eventually they''ve run their course, and both of you are breathing hard.'
+				gs 'sex_ev_cum', 'cum_inside_pull_away'
+				gs'sex_ev_reactions', 'react_menu'
+			else
+			
+			end
+		else}
+			'<<$npc_firstname[$boy]>> drives himself into your pussy, grunting. His cock pulses and a sudden warmth floods through your insides.'
 			act'Ride it out':
 				cla & *nl
 				'You lay there patiently, letting <<$npc_firstname[$boy]>> empty himself into your womb, waiting until you no longer feel him twitching inside you.'
@@ -1774,31 +1801,52 @@ if $ARGS[0] = 'cum_inside':
 				gs 'sex_ev_talk', 'cum_react'
 			end
 			
-			act'Come with him':
+			act'Come together':
 				cla & *nl
-				$orgasm_or = 'yes'
-				gs 'sex_ev_sex', 'fuck_arousal_cum_code'
-				gs'stat'
-				sex_ev['came_together'] = 2
-				sex_ev['orgasm_count'] += 1
-				sex_ev['creampie_orgasm'] += 1
-				'You gasp, the sensation triggering your own climax, and get sent over the edge yourself. The two of come together, each of your orgasms fuelling the other''s until eventually they''ve run their course and both of you lay there panting.'
-				act'Continue':cla & gs'sex_ev_sex', 'sex_end'
+				if hypnoHardToCum = 0:
+					$orgasm_or = 'yes'
+					gs 'sex_ev_sex', 'fuck_arousal_cum_code'
+					gs'stat'
+					sex_ev['came_together'] = 2
+					sex_ev['orgasm_count'] += 1
+					sex_ev['creampie_orgasm'] += 1
+					'<<$npc_firstname[$boy]>>''s cum pours into you and you gasp as you get sent over the edge and trigger your own climax. The two of come together, each of your orgasms fuelling the other''s until eventually they''ve run their course and both of you lay there panting.'
+				else
+					gs 'sex_ev_cum', 'hypno_creampie_orgasm_fail'
+				end
+!!				act'Continue':cla & gs'sex_ev_sex', 'sex_end'
 				gs 'sex_ev_cum', 'cum_inside_pull_away'
 				gs'sex_ev_reactions', 'react_menu'
 			end
 			
+!!{			if hypnoHardToCum = 0:
+				act'Come together (despite disgust)':
+					cla & *nl
+					$orgasm_or = 'yes'
+					gs 'sex_ev_sex', 'fuck_arousal_cum_code'
+					gs'stat'
+					sex_ev['came_together'] = 2
+					sex_ev['orgasm_count'] += 1
+					sex_ev['creampie_orgasm'] += 1
+					'You don''t really like creampies. Maybe it''s just the feeling or maybe it''s the thought of reproducing, but it''s not your favorite.'
+					'You gasp as the sensation triggers your own climax and get sent over the edge yourself. The two of come together, each of your orgasms fuelling the other''s until eventually they''ve run their course and both of you lay there panting.'
+					act'Continue':cla & gs'sex_ev_sex', 'sex_end'
+					gs 'sex_ev_cum', 'cum_inside_pull_away'
+					gs'sex_ev_reactions', 'react_menu'
+				end
+			end}
+			
 			act'Tolerate it (disgust)':
 				cla & *nl
-				'You lay there, trying not to squirm in discomfort, feeling <<$npc_firstname[$boy]>>''s spunk fill your womb. Despite your disgust, you don''t move, waiting until you no longer feel him twitching inside you.'
+				'You lay there, trying not to squirm as <<$npc_firstname[$boy]>> orgasm pumps load after load into your womb. Despite your disgust, you don''t move, waiting until you no longer feel him twitching inside you.'
 				act'Continue':cla & gs'sex_ev_sex', 'sex_end'
 				gs 'sex_ev_cum', 'cum_inside_pull_away'
 				gs 'sex_ev_talk', 'cum_react'
 			end
-		end
+!!		end
 	elseif $sex_ev['position'] = 'doggy':
 		
-		if pcs_horny > 90:
+!!{		if pcs_horny > 90:
 			$orgasm_or = 'yes'
 			gs 'sex_ev_sex', 'fuck_arousal_cum_code'
 			gs'stat'
@@ -1809,9 +1857,9 @@ if $ARGS[0] = 'cum_inside':
 			'<<$npc_firstname[$boy]>> grunts and you feel him come, cock pulsing inside you. The sensation pushes you over the edge, and you groan, tensing as waves of orgasm wash through you. The two of come together, both of your orgasms fuelling the other''s until eventually they both end.'
 			gs 'sex_ev_cum', 'cum_inside_pull_away'
 			gs'sex_ev_reactions', 'react_menu'
-		else
+		else}
 			'<center><video autoplay loop src="images/shared/sex/cum/vagcreampie/doggy4.mp4"></video></center>'
-			'<<$npc_firstname[$boy]>> drives himself inside you, grunting. His cock pulses inside you and warmth fills your pussy.'
+			'<<$npc_firstname[$boy]>> drives himself into your pussy with a grunt. His cock pulses and a sudden warmth floods through your insides.'
 			act'Ride it out':
 				cla & *nl
 				'You stay there patiently, letting <<$npc_firstname[$boy]>> empty himself into your womb, waiting until you no longer feel him twitching inside you.'
@@ -1821,14 +1869,19 @@ if $ARGS[0] = 'cum_inside':
 			
 			act'Come with him':
 				cla & *clr
-				'<center><video autoplay loop src="images/shared/sex/vag/doggy/orgasm2.mp4"></video></center>'
-				$orgasm_or = 'yes'
-				gs 'sex_ev_sex', 'fuck_arousal_cum_code'
-				gs'stat'
-				sex_ev['came_together'] = 2
-				sex_ev['orgasm_count'] += 1
-				sex_ev['creampie_orgasm'] += 1
-				'You gasp, the sensation triggering your own climax, and get sent over the edge yourself. The two of come together, each of your orgasms fuelling the other''s until eventually they''ve run their course and both of you collapse.'
+				if hypnoHardToCum = 0:
+					'<center><video autoplay loop src="images/shared/sex/vag/doggy/orgasm2.mp4"></video></center>'
+					$orgasm_or = 'yes'
+					gs 'sex_ev_sex', 'fuck_arousal_cum_code'
+					gs'stat'
+					sex_ev['came_together'] = 2
+					sex_ev['orgasm_count'] += 1
+					sex_ev['creampie_orgasm'] += 1
+					'<<$npc_firstname[$boy]>>''s cum pours into you and you gasp as you get sent over the edge yourself and trigger your own climax. The two of come together, each of your orgasms fuelling the other''s until eventually they''ve run their course and both of you collapse.'
+				else
+					gs 'sex_ev_cum', 'hypno_creampie_orgasm_fail'
+				end
+!!				act'Continue':cla & gs'sex_ev_sex', 'sex_end'
 				gs 'sex_ev_cum', 'cum_inside_pull_away'
 				gs'sex_ev_reactions', 'react_menu'
 			end
@@ -1839,11 +1892,10 @@ if $ARGS[0] = 'cum_inside':
 				gs 'sex_ev_cum', 'cum_inside_pull_away'
 				gs'sex_ev_reactions', 'react_menu'
 			end
-		end
+!!		end
 	elseif $sex_ev['position'] = 'cowgirl':
-		
 		if sex_ev['creampie_ask'] = 1:
-			if pcs_horny > 90:
+!!{			if pcs_horny > 90:
 				$orgasm_or = 'yes'
 				gs 'sex_ev_sex', 'fuck_arousal_cum_code'
 				gs'stat'
@@ -1854,72 +1906,37 @@ if $ARGS[0] = 'cum_inside':
 				'You drop your hips, impaling yourself on <<$npc_firstname[$boy]>>''s cock. He thrusts his hips upward, driving himself deep inside you and you feel cum spurt out inside you. The sensation pushes you over the edge, causing your pussy to clamp down onto his cock even more and your body to spasm uncontrollably. The two of come together, holding each other tight, both of your orgasms fuelling the other''s. After some time, your orgasm fades, leaving both of you panting.'
 				gs 'sex_ev_cum', 'cum_inside_pull_away'
 				gs'sex_ev_reactions', 'react_menu'
-			else
-				'<center><video autoplay loop src="images/shared/sex/cum/vagcreampie/cumvaginal.mp4"></video></center>'
-				'You drop your hips, impaling yourself on <<$npc_firstname[$boy]>>''s cock. He grabs you and holds you tight, thrusting humself upward, driving his cock in deep into you as he can manage. As he does, you feel him stiffen up and groan, and his cock pulses inside you.'
+			else}
 			
-				act'Ride it out':
-					cla & *nl
-					'You keep gently rocking your hips, letting <<$npc_firstname[$boy]>> empty himself into your womb, waiting until you no longer feel him twitching inside you.'
-					gs 'sex_ev_cum', 'cum_inside_pull_away'
-					gs'sex_ev_reactions', 'react_menu'
-				end
-				
-				act'Come with him':
-					cla & *clr
-					'<center><video autoplay loop src="images/shared/sex/vag/cowgirl/orgasm1.mp4"></video></center>'
-					$orgasm_or = 'yes'
-					gs 'sex_ev_sex', 'fuck_arousal_cum_code'
-					gs'stat'
-					sex_ev['came_together'] = 2
-					sex_ev['orgasm_count'] += 1
-					sex_ev['creampie_orgasm'] += 1
-					'You gasp, the sensation triggering your own climax, and get sent over the edge yourself. The two of come together, each of your orgasms fuelling the other''s until eventually they''ve run their course and both of you collapse.'
-					gs 'sex_ev_cum', 'cum_inside_pull_away'
-					gs'sex_ev_reactions', 'react_menu'
-				end
-			end
+			'<center><video autoplay loop src="images/shared/sex/cum/vagcreampie/cumvaginal.mp4"></video></center>'
+			'You drop your hips, impaling yourself on <<$npc_firstname[$boy]>>''s cock. He grabs you and holds you tight, thrusting humself upward, driving his cock in deep into you as he can manage and groans. His cock stiffens. And then a sudden warmth floods through your insides.'
 		else
-			if pcs_horny > 90:
+			'<center><video autoplay loop src="images/shared/sex/cum/vagcreampie/cumvaginal.mp4"></video></center>'
+			'<<$npc_firstname[$boy]>> grabs you and pulls you down onto his cock. He holds you tight, thrusting humself upward, driving his cock in deep into you as he can manage. As he does, you feel him stiffen up and groan, and his cock pulses inside you.'
+		end
+		
+		act'Ride it out':
+			cla & *nl
+			'You ride out his orgasm, gently rock your hips and squeezing <<$npc_firstname[$boy]>>''s cock wtih your pussy as he empties himself into your womb until eventually, you no longer feel him twitching inside you.'
+			gs 'sex_ev_cum', 'cum_inside_pull_away'
+			gs'sex_ev_reactions', 'react_menu'
+		end
+		
+		act'Come with him':
+			cla & *clr
+			if hypnoHardToCum = 0:
+				'<center><video autoplay loop src="images/shared/sex/vag/cowgirl/orgasm1.mp4"></video></center>'
 				$orgasm_or = 'yes'
 				gs 'sex_ev_sex', 'fuck_arousal_cum_code'
 				gs'stat'
-				sex_ev['orgasm_count'] += 1
 				sex_ev['came_together'] = 2
-				'<center><video autoplay loop src="images/shared/sex/vag/cowgirl/orgasm1.mp4"></video></center>'
-				'<<$npc_firstname[$boy]>> grabs you and pulls you down onto his cock, thrusting his hips upward at the same time, driving himself deep inside you and you feel cum spurt out inside you. The sensation pushes you over the edge, causing your pussy to clamp down onto his cock even more and your body to spasm uncontrollably. The two of come together, holding each other tight, both of your orgasms fuelling the other''s. After some time, your orgasm fades, leaving both of you panting.'
+				sex_ev['orgasm_count'] += 1
+				sex_ev['creampie_orgasm'] += 1
+				'<<$npc_firstname[$boy]>>''s cum pours into you and you gasp as you get sent over the edge and trigger your own climax. Your body convulses as electric shocks of orgasm rock through you and you come together, each of your orgasms fuelling the other''s until eventually they''ve run their course and both of you lay there panting.'
 				gs 'sex_ev_cum', 'cum_inside_pull_away'
-				gs'sex_ev_reactions', 'react_menu'
+				gs 'sex_ev_reactions', 'react_menu'
 			else
-				'<center><video autoplay loop src="images/shared/sex/cum/vagcreampie/cumvaginal.mp4"></video></center>'
-				'<<$npc_firstname[$boy]>> grabs you and pulls you down onto his cock. He holds you tight, thrusting humself upward, driving his cock in deep into you as he can manage. As he does, you feel him stiffen up and groan, and his cock pulses inside you.'
-				act'Ride it out':
-					cla & *nl
-					'You keep gently rocking your hips, letting <<$npc_firstname[$boy]>> empty himself into your womb, waiting until you no longer feel him twitching inside you.'
-					gs 'sex_ev_cum', 'cum_inside_pull_away'
-					gs'sex_ev_reactions', 'react_menu'
-				end
-				
-				act'Come with him':
-					cla & *clr
-					'<center><video autoplay loop src="images/shared/sex/vag/cowgirl/orgasm1.mp4"></video></center>'
-					$orgasm_or = 'yes'
-					gs 'sex_ev_sex', 'fuck_arousal_cum_code'
-					gs'stat'
-					sex_ev['came_together'] = 2
-					sex_ev['orgasm_count'] += 1
-					sex_ev['creampie_orgasm'] += 1
-					'You gasp, the sensation triggering your own climax, and get sent over the edge yourself. The two of come together, each of your orgasms fuelling the other''s until eventually they''ve run their course and both of you collapse.'
-					gs 'sex_ev_cum', 'cum_inside_pull_away'
-					gs'sex_ev_reactions', 'react_menu'
-				end
-				
-				act'Tolerate it (disgust)':
-					cla & *nl
-					'You stay there, trying not to squirm in discomfort, feeling <<$npc_firstname[$boy]>>''s spunk fill your womb. Despite your disgust, you don''t move, waiting until you no longer feel him twitching inside you.'
-					gs 'sex_ev_cum', 'cum_inside_pull_away'
-					gs'sex_ev_reactions', 'react_menu'
-				end
+				gs 'sex_ev_cum', 'hypno_creampie_orgasm_fail'
 			end
 		end
 	end
@@ -2030,19 +2047,24 @@ if $ARGS[0] = 'cum_together':
 		end
 	end
 	act'Orgasm':
-		sex_ev['orgasm_count'] += 1
-		sex_ev['creampie_orgasm'] += 1
-		cla & *clr
-		if $sex_ev['position'] = 'miss':
-			'<center><video autoplay loop src="images/shared/sex/cum/vagcreampie/creampie1.mp4"></video></center>'
-		elseif $sex_ev['position'] = 'doggy':
-			'<center><video autoplay loop src="images/shared/sex/vag/doggy/orgasm2.mp4"></video></center>'
-		elseif $sex_ev['position'] = 'cowgirl':
-			'<center><video autoplay loop src="images/shared/sex/vag/cowgirl/orgasm1.mp4"></video></center>'
+		if hypnoHardToCum = 0:
+			sex_ev['orgasm_count'] += 1
+			sex_ev['creampie_orgasm'] += 1
+			cla & *clr
+			if $sex_ev['position'] = 'miss':
+				'<center><video autoplay loop src="images/shared/sex/cum/vagcreampie/creampie1.mp4"></video></center>'
+			elseif $sex_ev['position'] = 'doggy':
+				'<center><video autoplay loop src="images/shared/sex/vag/doggy/orgasm2.mp4"></video></center>'
+			elseif $sex_ev['position'] = 'cowgirl':
+				'<center><video autoplay loop src="images/shared/sex/vag/cowgirl/orgasm1.mp4"></video></center>'
+			end
+			'<<$npc_firstname[$boy]>>''s cock pulses inside you and something warm spills into your pussy. His hot cum filling you up is the last thing you need to get off and suddenly you''re right there with him, muscles going taut and quivering uncontrollably as the two of you come together.'
+			gs 'sex_ev_cum', 'cum_inside_pull_away'
+			gs 'sex_ev_reactions', 'react_menu'
+		else
+			cla
+			gs 'sex_ev_cum', 'hypno_creampie_orgasm_fail'
 		end
-		'<<$npc_firstname[$boy]>>''s cock pulses inside you and something warm spills into your pussy. His hot cum filling you up is the last thing you need to get off and suddenly you''re right there with him, muscles going taut and quivering uncontrollably as the two of you come together.'
-		gs 'sex_ev_cum', 'cum_inside_pull_away'
-		gs'sex_ev_reactions', 'react_menu'
 	end
 end
 
@@ -2372,7 +2394,7 @@ if $ARGS[0] = 'creampie_surprise':
 			'"Pull ou-!"'
 		end
 		*nl
-		'Suddenly, <<$npc_firstname[$boy]>> grabs you tight and plunges his full length into you. His cock becomes even more rigid, pulsing like a second heartbeat in your cunt. And then it twitches inside you and warmth floods your pussy.'
+		'Suddenly, <<$npc_firstname[$boy]>> grabs you tight and plunges his full length into you. His cock becomes even more rigid, pulsing like a second heartbeat in your cunt. And then, warmth floods your pussy.'
 	elseif $sex_ev['position'] = 'doggy':
 		'<center><video autoplay loop src="images/shared/sex/cum/vagcreampie/doggy3.mp4"></video></center>'
 		if sex_ev['not_inside'] = 1:
@@ -2381,7 +2403,7 @@ if $ARGS[0] = 'creampie_surprise':
 			'"Pull ou-!"'
 		end
 		*nl
-		'Suddenly, <<$npc_firstname[$boy]>> drives his cock into you. His cock becomes even more rigid, pulsing like a second heartbeat in your cunt. And then it twitches inside you and warmth floods your pussy.'
+		'Suddenly, <<$npc_firstname[$boy]>> drives his cock into you. His cock becomes even more rigid, pulsing like a second heartbeat in your cunt. And then, warmth floods your pussy.'
 	elseif $sex_ev['position'] = 'cowgirl':
 		'<center><video autoplay loop src="images/shared/sex/cum/vagcreampie/cumvaginal.mp4"></video></center>'
 		if sex_ev['not_inside'] = 1:
@@ -2389,7 +2411,7 @@ if $ARGS[0] = 'creampie_surprise':
 		elseif sex_ev['pullout_ask'] = 1:
 			'"Pull ou-!"'
 		end
-		'Suddenly, <<$npc_firstname[$boy]>> grabs you tight, pulling you down against his chest and thrusting himself deep into you. His cock becomes even more rigid, pulsing like a second heartbeat in your cunt. And then it twitches inside you and warmth floods your pussy.'
+		'Suddenly, <<$npc_firstname[$boy]>> grabs you tight, pulling you down against his chest and thrusting himself deep into you. His cock becomes even more rigid, pulsing like a second heartbeat in your cunt. And then, warmth floods your pussy.'
 	end
 	
 	gs'sex_ev_cum', 'creampie_surprise_react'
@@ -2401,30 +2423,35 @@ if $ARGS[0] = 'creampie_surprise_react':
 	
 	if orgasm = sex_ev['orgasm']:
 		act'Creampie induced orgasm':
-			sex_ev['orgasm_count'] += 1
-			sex_ev['creampie_orgasm'] += 1
-			sex_ev['came_together'] = 2
-			$orgasm_or = 'yes'
-			gs'arousal', 'vaginal',-1, 'no_orgasm_msg', $sex_ev['prostitution_flag']
-			gs'stat'
-			cla & *clr
-			if $sex_ev['position'] = 'miss':
-				'<center><video autoplay loop src="images/shared/sex/cum/vagcreampie/creampie1.mp4"></video></center>'
-			elseif $sex_ev['position'] = 'doggy':
-				'<center><video autoplay loop src="images/shared/sex/vag/doggy/orgasm2.mp4"></video></center>'
-			elseif $sex_ev['position'] = 'cowgirl':
-				'<center><video autoplay loop src="images/shared/sex/vag/cowgirl/orgasm1.mp4"></video></center>'
-			end
-			'The sensation of cum filling your pussy is too much for you to handle and sends you over the edge.'
-			*nl
-			if $start_type[1] ! 'nomagic' and sex_ev['magik'] < pcs_magik:
-				'Right as your orgasm hits, you feel magic flood your system, ramping your senses into overdrive. You can feel every hair on your body, every bead of sweat on your skin, every single vein and contour of <<$npc_firstname[$boy]>>''s cock inside you. Somehow you can even feel each individual of the hundreds of millions of sperm pouring into your uterus. Energy courses from its origin in your womb to the tips of your nipples.'
+			if hypnoHardToCum = 0:
+				sex_ev['orgasm_count'] += 1
+				sex_ev['creampie_orgasm'] += 1
+				sex_ev['came_together'] = 2
+				$orgasm_or = 'yes'
+				gs'arousal', 'vaginal',-1, 'no_orgasm_msg', $sex_ev['prostitution_flag']
+				gs'stat'
+				cla & *clr
+				if $sex_ev['position'] = 'miss':
+					'<center><video autoplay loop src="images/shared/sex/cum/vagcreampie/creampie1.mp4"></video></center>'
+				elseif $sex_ev['position'] = 'doggy':
+					'<center><video autoplay loop src="images/shared/sex/vag/doggy/orgasm2.mp4"></video></center>'
+				elseif $sex_ev['position'] = 'cowgirl':
+					'<center><video autoplay loop src="images/shared/sex/vag/cowgirl/orgasm1.mp4"></video></center>'
+				end
+				'The sensation of cum filling your pussy is too much for you to handle and sends you over the edge.'
 				*nl
-				'That same energy splashes off of <<$npc_firstname[$boy]>> and back onto you, forcing you to share in his experiences. You can <i>feel</i> his orgasm pouring into you, <i>his</i> pleasure erupting from his manhood, as if it were <i>you</i> ejaculating into your own orgasming pussy. Caught in a feedback loop between your orgasm and his, your entire body locks up, screaming a silent open-mouthed scream of ecstasy, unable to do anything but shudder uncontrollably around the cock pulsing inside you.'
+				if $start_type[1] ! 'nomagic' and sex_ev['magik'] < pcs_magik:
+					'Right as your orgasm hits, you feel magic flood your system, ramping your senses into overdrive. You can feel every hair on your body, every bead of sweat on your skin, every single vein and contour of <<$npc_firstname[$boy]>>''s cock inside you. Somehow you can even feel each individual of the hundreds of millions of sperm pouring into your uterus. Energy courses from its origin in your womb to the tips of your nipples.'
+					*nl
+					'That same energy splashes off of <<$npc_firstname[$boy]>> and back onto you, forcing you to share in his experiences. You can <i>feel</i> his orgasm pouring into you, <i>his</i> pleasure erupting from his manhood, as if it were <i>you</i> ejaculating into your own orgasming pussy. Caught in a feedback loop between your orgasm and his, your entire body locks up, screaming a silent open-mouthed scream of ecstasy, unable to do anything but shudder uncontrollably around the cock pulsing inside you.'
+				else
+					'Orgasmic tremors quake through your body, covering your skin in goosebumps and you moan incoherently. You tremble, unable to do anything except quiver around the pulsing cock inside you.'
+				end
+				act'Continue':gt'sex_ev_cum', 'creampie_surprise_cum_together'
 			else
-				'Orgasmic tremors quake through your body, covering your skin in goosebumps and you moan incoherently. You tremble, unable to do anything except quiver around the pulsing cock inside you.'
+				gs'sex_ev_cum', 'hypno_creampie_orgasm_fail'
+				act'Continue':gt'sex_ev_cum', 'creampie_surprise_cum_together'
 			end
-			act'Continue':gt'sex_ev_cum', 'creampie_surprise_cum_together'
 		end
 		act'Fake an orgasm':
 			sex_ev['fake_orgasm_count'] += 1
@@ -2481,7 +2508,7 @@ if $ARGS[0] = 'creampie_surprise_cum_together':
 	end
 	if npc_know_love_creampie[$boy] = 1:
 		'He stares into your eyes, smiling.'
-	elseif sex_ev['came_together'] = 2:
+	elseif sex_ev['came_together'] = 2 or sex_ev['hypno_came_together'] = 1:
 		sex_ev['did_we_cum_together'] = 1
 		'"Did... did we... did you...?" he pants.'
 	end
@@ -2876,4 +2903,59 @@ if $ARGS[0] = '2pumpchump_condom':
 end
 
 
+if $ARGS[0] = 'hypno_creampie_orgasm_fail':
+	
+	if $sex_ev['position'] = 'miss':
+		$orgasm_or = 'no'
+		sex_ev['hypno_anti_orgasm'] += 1
+		sex_ev['hypno_came_together'] = 1
+		gs 'sex_ev_sex', 'fuck_arousal_cum_code'
+		gs'stat'
+		'<<$npc_firstname[$boy]>> holds you tight and you gasp as his cum pours into you. It feels so good! It''s driving you crazy! You''re gonna-!'
+		*nl
+		'Suddenly, your arousal slams up against a brick wall. Frustratingly, <i>tantalizingly</i> close. But climax refuses to come. <<$npc_firstname[$boy]>> continues pulsing inside you and the sensation is indescribably good. Your insides scream for release! Your pussy clenches, squeezes, and squirms around <<$npc_firstname[$boy]>>''s cock, desperately trying to orgasm!'
+		*nl
+		'But despite all your best efforts, his orgasm dies down inside you before you find yours. And you just... <i>can''t...</i> <i><b>come...</b></i>'
+	elseif $sex_ev['position'] = 'doggy':
+		'<center><video autoplay loop src="images/shared/sex/cum/vagcreampie/doggy5.mp4"></video></center>'
+		$orgasm_or = 'no'
+		sex_ev['hypno_anti_orgasm'] += 1
+		gs 'sex_ev_sex', 'fuck_arousal_cum_code'
+		gs'stat'
+		'<<$npc_firstname[$boy]>> holds you tight and you gasp as his cum pours into you. It feels so good! It''s driving you crazy! You''re gonna-!'
+		*nl
+		'Suddenly, your arousal slams up against a brick wall. Frustratingly, <i>tantalizingly</i> close. <<$npc_firstname[$boy]>> continues pulsing inside you and the sensation is indescribably good. Your insides scream for release! Your pussy clenches, squeezes, and squirms around <<$npc_firstname[$boy]>>''s cock, trying to seek it.'
+		*nl
+		'But despite all your best efforts, his orgasm dies down inside you before you find yours. And you just... <i>can''t...</i> <i><b>come...</b></i>'
+	elseif $sex_ev['position'] = 'cowgirl':
+		'<center><video autoplay loop src="images/shared/sex/cum/vagcreampie/cowgirl2.mp4"></video></center>'
+		$orgasm_or = 'no'
+		sex_ev['hypno_anti_orgasm'] += 1
+		sex_ev['hypno_came_together'] = 1
+		gs 'sex_ev_sex', 'fuck_arousal_cum_code'
+		gs'stat'
+		'You gasp as <<$npc_firstname[$boy]>>''s cum shoots into you, filling up your pussy. It feels so good! It''s driving you crazy! You''re gonna-!'
+		*nl
+		'Suddenly, your arousal slams up against a brick wall. Frustratingly, <i>tantalizingly</i> close. But climax refuses to come. <<$npc_firstname[$boy]>> continues pulsing inside you and the sensation is indescribably good. Your insides scream for release! In a desperate panic, you start frantically riing <<$npc_firstname[$boy]>> again, even as he''s still coming. He groans loudly and your pussy clenches, squeezes, and squirms around his cock, milking him for every drop, desperately trying to orgasm!'
+		act'Continue':
+			cla & *clr
+			'<center><video autoplay loop src="images/shared/sex/cum/vagcreampie/cowgirl1.mp4"></video></center>'
+			'But no matter what you try, his orgasm dies down inside you before you find yours. His cum seeps from your pussy around his already softening shaft.'
+			*nl
+			'And you just... <i>can''t...</i> <i><b>come...</b></i>'
+			if sex_ev['creampie_surprise'] = 1:
+				gs'sex_ev_cum', 'creampie_surprise_react'
+			else
+				gs 'sex_ev_cum', 'cum_inside_pull_away'
+				gs'sex_ev_reactions', 'react_menu'
+			end
+		end
+	end
+end
+
+
+if $ARGS[0] = 'hypno_creampie_orgasm_fail2':
+
+end
+
 --- sex_ev_cum ---------------------------------

locations/sex_ev_reactions_creampie.qsrc

@@ -381,6 +381,25 @@ if $ARGS[0] = 'creampie_cum_together_react':
 			act'Continue':cla & gs 'sex_ev_sex', 'sex_end'
 			gs'sex_ev_reactions_creampie', 'creampie_react'
 		end
+	elseif sex_ev['hypno_came_together'] = 1 and sex_ev['did_we_cum_together'] = 1:
+		act'Lie about coming together':
+			cla & *nl
+			'"Y-yeah," you stammer. You give <<$npc_firstname[$boy]>> a weak smile, hoping that it will be taken as exhaustion instead of the storm of frustration and confusion that rages inside you.'
+			*nl
+			'<i>What the hell was that? Why couldn''t you come? What is wrong with you...</i>'
+			gs 'sex_ev_sex', 'sex_end'
+		end
+		
+		act'Admit you didn''t come':
+			cla & *nl
+			'"Erm, uh... no..." you mumble.'
+			'"Huh? I thought you said you were going to?"'
+			'"I guess maybe I wasn''t as close as I thought I was."'
+			'You give <<$npc_firstname[$boy]>> a weak smile, trying to let him know it wasn''t his fault while frustration and confusion rage inside you.'
+			*nl
+			'<i>What the hell was that? Why couldn''t you come? What is wrong with you...</i>'
+			gs 'sex_ev_sex', 'sex_end'
+		end
 	end
 end
 
@@ -2321,14 +2340,14 @@ if $ARGS[0] = 'creampie_wtf_2':
 		cla & *clr
 		$sex_ev['bed_room']
 		'"Ugh," you grumble, choosing to take the high road on this one. "Whatever."'
-		gs'sex_ev_sex', 'sex_end'
+		gs'sex_ev_cum', 'what_now'
 	end
 	
 	act'You''re an asshole':
 		cla & *clr
 		$sex_ev['bed_room']
 		'"You''re a fucking asshole, you know that?" you sneer.'
-		gs'sex_ev_sex', 'sex_end'
+		gs'sex_ev_cum', 'what_now'
 	end
 end
 

locations/sex_ev_sex.qsrc

@@ -1434,6 +1434,7 @@ if $ARGS[0] = 'reset':
 	sex_ev['boy_shower'] = 0
 	$sex_ev['end_comment'] = ''
 	$sex_ev['cum_together_dialogue1'] = ''
+	sex_ev['hypno_came_together'] = 0
 end
 
 if $ARGS[0] = 'pain':

locations/sex_ev_talk.qsrc

@@ -1181,7 +1181,7 @@ if $ARGS[0] = 'rape_explain2':
 end
 
 
-if $ARGS[0] = 'sugar_daddy_pay':
+if $ARGS[0] = 'prostitution_payment':
 	if $npc_rel_type[$boy] = 'sugar_daddy' and sex_ev['sugar_daddy_paid'] = 0 and sex_ev['sex_over'] = 1:
 		act'Ask for your sugar money':
 			sex_ev['sugar_daddy_paid'] = 1
@@ -1211,6 +1211,34 @@ if $ARGS[0] = 'sugar_daddy_pay':
 				gs 'sex_ev_after', 'relax_together'
 			end
 		end
+	elseif sex_ev['prostituion'] = 1 and sex_ev['prostitution_paid'] = 0:
+		act'Ask for your money':
+			sex_ev['prostitution_paid'] = 1
+			money += npc_prostitution_price[$boy]
+			cla
+			act'Demurely':
+				cla & *clr
+				'<center><img <<$set_imgh>> src="images/shared/sex/after/pillow_talk4.jpg"></center>'
+				'"Now that we''ve had our fun..." you say, smiling sweetly at <<$npc_firstname[$boy]>>. "And I did something for you... Don''t you have something for me...?"'
+				'You pout cutely, making doe eyes at <<$npc_firstname[$boy]>> who smiles back and reaches over to his wallet.'
+				'"Yeah," he says, pulling out <<npc_prostitution_price[$boy]>><b>₽‎</b> in cash and handing it over to you. "Worth every ruble."'
+				'"Thank you very much," you smile back and put the money away into your purse.'
+				gs 'sex_ev_after', 'relax_together'
+			end
+			
+			act'Transactionally':
+				cla & *clr
+				'<center><img <<$set_imgh>> src="images/shared/sex/after/pillow_talk3.jpg"></center>'
+				if sex_ev['fuck_count'] > 0:
+					'"Okay, we''ve fucked. Can I get paid now?" you ask bluntly. <<$npc_firstname[$boy]>> gives you a look but reaches over to his wallet and pulls out <<npc_prostitution_price[$boy]>><b>₽‎</b>.'
+				else
+					'"Okay, I got you off. Can I get paid now?" you ask bluntly. <<$npc_firstname[$boy]>> gives you a look but reaches over to his wallet and pulls out <<npc_prostitution_price[$boy]>><b>₽‎</b>.'
+				end
+				'"Here," he says. He offers it towards you and you snatch it out of his hand.'
+				'"Thanks," you reply absent-mindedly as you stuff the money into your purse.'
+				gs 'sex_ev_after', 'relax_together'
+			end
+		end
 	end
 end
 --- sex_ev_talk ---------------------------------