Merge branch 'Therapist' of lagooncompany/glife into master

[Added] A scene when pc is walking into school after having sex with the therapist

[Added] A condition to play unused uniform stripping videos if the pc is wearing school uniform while visiting the therapist

[Added] Willpower costs for wearing non exhibitionist clothing after a therapist event

locations/clothing_QV.qsrc

@@ -1313,15 +1313,106 @@ if $ARGS[0] = 'change':
 		if CloInhibit > 10:
 			if CloInhibit + 10 > pcs_inhib: 'You find this outfit more revealing than you are completely comfortable with but that makes it quite exciting too.'
 		end
-		act 'Wear this outfit':
-			gs 'clothing', 'wear', $ARGS[1], ARGS[2]
+		
+		!!Therapist force exhibitionist clothing check
+		if hypnoClothes > 0:
+			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
+					end	
+				else
+					act 'Wear this outfit':
+						gs 'clothing', 'wear', $ARGS[1], ARGS[2]
 
-			if $regularwornclothingtype = '':
-				gt 'wardrobe', 'main'
+						if $regularwornclothingtype = '':
+							gt 'wardrobe', 'main'
+						else
+							gt 'clothing_QV', 'gym'
+						end
+					end
+				end
 			else
-				gt 'clothing_QV', 'gym'
+				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'
+						end
+					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'
+				end
 			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 ---------------------------------