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

I made some parts of this a argument of the therapist.qsrc to increase reusability

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

@@ -1293,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
@@ -1409,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
@@ -2730,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
@@ -2759,6 +2778,7 @@ $RestTherapyVariables ={
     killvar 'hypnoTimesResistedStage'
     killvar 'hypnoSchedule'
     killvar 'therapistFuckedPussyStage'
+	killvar 'therapistFuckedPussyScene'
 }
 
 --- therapist ---------------------------------