locations/clothing_QV.qsrc

@@ -1316,51 +1316,94 @@ if $ARGS[0] = 'change':
 		
 		!!Therapist force exhibitionist clothing check
 		if hypnoClothes > 0:
-			if CloThinness < 6:		
-				act 'Wear this outfit':
-					cla
-					*clr		
-					'You pick up the outfit and think about trying them on... but you don''t really like wearing these type of outfits'
-					gs 'willpower', 'misc', 'resist', 'easy'
-					will_cost += hypnoTime
-					if will_cost <= pcs_willpwr:
-						act 'Put them on anyways (<<will_cost>> Willpower)':
-							gs 'willpower', 'pay', 'resist'
-							gs 'stat'
-							gs 'clothing', 'wear', $ARGS[1], ARGS[2]
-
+			if CloStyle2 = 4:
+				if CloThinness < 3:		
+					act 'Wear this outfit':
+						cla
+						*clr		
+						'You pick up the uniform and think about trying them on... but you don''t really like wearing these type of uniform. You wonder if you can find more revealing uniform.'
+						gs 'willpower', 'misc', 'resist', 'easy'
+						will_cost += hypnoTime/CloThinness
+						if will_cost <= pcs_willpwr:
+							act 'Put them on anyways (<<will_cost>> Willpower)':
+								gs 'willpower', 'pay', 'resist'
+								gs 'stat'
+								gs 'clothing', 'wear', $ARGS[1], ARGS[2]
+
+								if $regularwornclothingtype = '':
+									gt 'wardrobe', 'main'
+								else
+									gt 'clothing_QV', 'gym'
+								end
+							end
+						else
+							act 'Put them on anyways (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+						end
+						act 'Back':
 							if $regularwornclothingtype = '':
 								gt 'wardrobe', 'main'
 							else
 								gt 'clothing_QV', 'gym'
 							end
 						end
-					else
-						act 'Put them on anyways (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
-					end
-					act 'Back':
+					end	
+				else
+					act 'Wear this outfit':
+						gs 'clothing', 'wear', $ARGS[1], ARGS[2]
+
 						if $regularwornclothingtype = '':
 							gt 'wardrobe', 'main'
 						else
 							gt 'clothing_QV', 'gym'
 						end
 					end
-				end	
+				end
 			else
-				act 'Wear this outfit':
-					gs 'clothing', 'wear', $ARGS[1], ARGS[2]
+				if CloThinness < 6:		
+					act 'Wear this outfit':
+						cla
+						*clr		
+						'You pick up the outfit and think about trying them on... but you don''t really like wearing these type of outfits'
+						gs 'willpower', 'misc', 'resist', 'easy'
+						will_cost += hypnoTime
+						if will_cost <= pcs_willpwr:
+							act 'Put them on anyways (<<will_cost>> Willpower)':
+								gs 'willpower', 'pay', 'resist'
+								gs 'stat'
+								gs 'clothing', 'wear', $ARGS[1], ARGS[2]
+
+								if $regularwornclothingtype = '':
+									gt 'wardrobe', 'main'
+								else
+									gt 'clothing_QV', 'gym'
+								end
+							end
+						else
+							act 'Put them on anyways (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+						end
+						act 'Back':
+							if $regularwornclothingtype = '':
+								gt 'wardrobe', 'main'
+							else
+								gt 'clothing_QV', 'gym'
+							end
+						end
+					end	
+				else
+					act 'Wear this outfit':
+						gs 'clothing', 'wear', $ARGS[1], ARGS[2]
 
-					if $regularwornclothingtype = '':
-						gt 'wardrobe', 'main'
-					else
-						gt 'clothing_QV', 'gym'
+						if $regularwornclothingtype = '':
+							gt 'wardrobe', 'main'
+						else
+							gt 'clothing_QV', 'gym'
+						end
 					end
 				end
-			end
+			end	
 		else
 			act 'Wear this outfit':
 				gs 'clothing', 'wear', $ARGS[1], ARGS[2]
-
 				if $regularwornclothingtype = '':
 					gt 'wardrobe', 'main'
 				else
@@ -1369,7 +1412,7 @@ if $ARGS[0] = 'change':
 			end
 		end
 		
-		
+
 	end
 end
 

locations/gschool_grounds.qsrc

@@ -417,6 +417,11 @@ if $ARGS[0] = 'bulding':
 	$menu_arg = 'bulding'
 	menu_off = 0
 	gs 'stat'
+
+	if therapistFuckedPussyScene = 1:
+		gt 'therapist','therapistFucked'
+	end
+
 	'<center><b><font color="maroon">Inside School</font></b></center>'
 	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/building/gschool_hall0<<rand(0,2)>>.jpg"></center>'
 	'The hallways of the school building are painted with a cheap green paint, which you think may be toxic. Budget cuts.'
@@ -987,5 +992,7 @@ if $ARGS[0] = 'Family extension':
 	end
 end
 
+
+
 --- gschool_grounds ---------------------------------
 

locations/therapist.qsrc

@@ -446,7 +446,11 @@ if $ARGS[0] = 'hypno':
 					cla
 					*clr
 					if sound = 0:PLAY 'sound/rainstorm.mp3',20 & PLAY 'sound/clock.mp3',40
-					'<center><video autoplay loop src="images/locations/pavlovsk/clinic/therapist/stripping<<rand(1,3)>>.mp4"></video></center>'
+					if CloStyle2 = 4: 
+						'<center><video autoplay loop src="images/locations/pavlovsk/clinic/therapist/stripping<<rand(5,6)>>.mp4"></video></center>'
+					else
+						'<center><video autoplay loop src="images/locations/pavlovsk/clinic/therapist/stripping<<rand(1,4)>>.mp4"></video></center>'
+					end
 					'<font color="<<$hypnocolour>>">'
 					'You get up from the couch and start to take off all of your clothing.'
 					if func('body_din','pregnancyVisibility',0,'nude') = 1 and HypnoPregNoticed = 0:
@@ -612,7 +616,11 @@ if $ARGS[0] = 'firstHypnoStage':
 		*clr & cla
 		hypnoStripped = 1
 		hypnoTimesResistedStage = 0
-		'<center><video autoplay loop src="images/locations/pavlovsk/clinic/therapist/stripping<<rand(1,3)>>.mp4"></video></center>'
+		if CloStyle2 = 4: 
+			'<center><video autoplay loop src="images/locations/pavlovsk/clinic/therapist/stripping<<rand(5,6)>>.mp4"></video></center>'
+		else
+			'<center><video autoplay loop src="images/locations/pavlovsk/clinic/therapist/stripping<<rand(1,4)>>.mp4"></video></center>'
+		end
 		'<font color="<<$hypnocolour>>">'
 		'You get up from the couch and start to take off all of your clothing.'
 		act 'Continue':
@@ -787,7 +795,11 @@ if $ARGS[0] = 'secondHypnoStage':
 	act 'Strip naked':
 		*clr & cla
 		hypnoStripped = 1
-		'<center><video autoplay loop src="images/locations/pavlovsk/clinic/therapist/stripping<<rand(1,3)>>.mp4"></video></center>'
+		if CloStyle2 = 4: 
+			'<center><video autoplay loop src="images/locations/pavlovsk/clinic/therapist/stripping<<rand(5,6)>>.mp4"></video></center>'
+		else
+			'<center><video autoplay loop src="images/locations/pavlovsk/clinic/therapist/stripping<<rand(1,4)>>.mp4"></video></center>'
+		end
 		'You stand up from the couch and start to take off all of your clothing, like you would before you shower. You even put them in a neat pile next to you on the couch. Once fully nude, master instructs you to sit back down on the couch.'
 		act 'Sit':
 			*clr & cla
@@ -851,7 +863,11 @@ if $ARGS[0] = 'thirdHypnoStage':
 	act '"Yes, <i>Master</i>."':
 		*clr & cla
 		hypnoStripped = 1
-		'<center><video autoplay loop src="images/locations/pavlovsk/clinic/therapist/stripping<<rand(1,3)>>.mp4"></video></center>'
+		if CloStyle2 = 4: 
+			'<center><video autoplay loop src="images/locations/pavlovsk/clinic/therapist/stripping<<rand(5,6)>>.mp4"></video></center>'
+		else
+			'<center><video autoplay loop src="images/locations/pavlovsk/clinic/therapist/stripping<<rand(1,4)>>.mp4"></video></center>'
+		end
 		'You get up from the couch and start to remove your clothing, one piece at a time. You can see that your master is also removing his. When both you and him are naked, He instructs you to kiss him like you would your lover.'
 		act 'Kiss him':
 			*clr & cla
@@ -950,7 +966,11 @@ if $ARGS[0] = 'sleepProblems':
 			cumprecheck = 0
 			dick = 13
 			$dick_girth = 'massive'
-			'<center><video autoplay loop src="images/locations/pavlovsk/clinic/therapist/stripping<<rand(1,3)>>.mp4"></video></center>'
+			if CloStyle2 = 4: 
+				'<center><video autoplay loop src="images/locations/pavlovsk/clinic/therapist/stripping<<rand(5,6)>>.mp4"></video></center>'
+			else
+				'<center><video autoplay loop src="images/locations/pavlovsk/clinic/therapist/stripping<<rand(1,4)>>.mp4"></video></center>'
+			end
 			'<font color="<<$hypnocolour>>">'
 			'You get up from the couch and start to take off all of your clothing.'
 			'Sit down, <i>Cunt</i>.'
@@ -1273,6 +1293,7 @@ if $ARGS[0] = 'fuck':
 		'"Miss <<$pcs_lastname>>, I am so close! I will blow a huge wad of sperm in your tight pussy!"<br><<$therapistDoneFuckingDesc0>> <<$therapistDoneFuckingDesc1>> <<$therapistDoneCumDesc1>>'
 		'Finally he is done, and he pulls out of you. <<$therapistDoneFuckingDesc3>>'
 		therapistFuckedPussy = 1
+		therapistFuckedPussyScene = 1
 		hypnoRandomCounter += 1
 		act 'Continue':
 			cls
@@ -1389,6 +1410,7 @@ if $ARGS[0] = 'hypnoFuck':
 		'"Oh yes, my little <i>Cunt</i>, I am so close! I will blow a huge wad of sperm in your tight pussy! And you won''t even know about it!"<br><<$therapistDoneFuckingDesc0>> <<$therapistDoneFuckingDesc1>> <<$therapistDoneCumDesc1>>'
 		'Finally he is done, and he pulls out of you. <<$therapistDoneFuckingDesc3>>'
 		therapistFuckedPussy = 1
+		therapistFuckedPussyScene = 1
 		if therapistFuckedPussyStage < 1: therapistFuckedPussyStage = 1
 		act 'Continue':
 			cls
@@ -2710,6 +2732,23 @@ if $ARGS[0] = 'hypnoProstitute':
 	end
 end
 
+!!To be used if you went to somewhere after therapist fucking you
+if $ARGS[0] = 'therapistFucked':	
+		therapistFuckedPussyScene = 0
+		*clr
+		cla
+
+		'<center><video autoplay loop src="images/locations/pavlovsk/clinic/therapist/toSchool.mp4"></video></center>'
+
+		'You subconsciously notice your therapist''s sperm slowly leaking out of your cum filled pussy.' 
+		'You feel happier because of this.'
+		pcs_mood += 1
+
+		act 'continue': 
+			gt $menu_loc, $menu_arg
+		end
+end
+
 $pavlov = {
 	*clr
 	cla
@@ -2739,6 +2778,7 @@ $RestTherapyVariables ={
     killvar 'hypnoTimesResistedStage'
     killvar 'hypnoSchedule'
     killvar 'therapistFuckedPussyStage'
+	killvar 'therapistFuckedPussyScene'
 }
 
 --- therapist ---------------------------------