1
0

3 Angajamente 575407db62 ... 8f19e51945

Autor SHA1 Permisiunea de a trimite mesaje. Dacă este dezactivată, utilizatorul nu va putea trimite nici un fel de mesaj Data
  lagooncompany 8f19e51945 [Added] A scene when pc is walking into school after having sex with the therapist 1 an în urmă
  lagooncompany 8104a760ed [Added] A condition to play unused uniform stripping videos if the pc is wearing school uniform while visiting the therapist 1 an în urmă
  lagooncompany 8ca47a6012 [Added] A check to make sure the pc is able to wear revealing school uniforms 1 an în urmă
3 a modificat fișierele cu 122 adăugiri și 32 ștergeri
  1. 70 27
      locations/clothing_QV.qsrc
  2. 7 0
      locations/gschool_grounds.qsrc
  3. 45 5
      locations/therapist.qsrc

+ 70 - 27
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
 

+ 7 - 0
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 ---------------------------------
 

+ 45 - 5
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 ---------------------------------