Merge branch 'master' of lagooncompany/glife into master

[added] one new random scene and some flavor texts. Also fixed two bugs I found where one of the pics wasn't showing and the action window not getting cleared.

locations/therapist.qsrc

@@ -18,6 +18,8 @@ if $ARGS[0] = '':
 	therapistFuckedPussy = 0
 	therapistFuckedAss = 0
 	therapistFuckedMouth = 0
+	! Keep track of times resisted therapist orders to not wear panties
+	wornPanties = 0
 
 	! Set colour for dark themes
 	if night_mode = 1 or night_mode = 2:
@@ -44,6 +46,7 @@ if $ARGS[0] = 'hypnoGreet':
 		act 'Wait for him to inspect you':
 			*clr & cla
 			if $pantyworntype ! 'none':
+				wornPanties = wornPanties + 1
 				'<center><video autoplay loop src="images/locations/pavlovsk/clinic/therapist/checkPanties2.mp4"></video></center>'
 				'"Miss <<$pcs_lastname>>, what is this?"'
 				'"I''m sorry Dr. Pavlov... I don''t know what I was thinking. I-"'
@@ -52,7 +55,12 @@ if $ARGS[0] = 'hypnoGreet':
 					*clr & cla
 					'<center><img src="images/locations/pavlovsk/clinic/therapist/removePanties.jpg"></center>'
 					gs 'panties', 'dispose'
+					if wornPanties < 5:
 					'He throws your panties in the garbage. "Just don''t let it happen again. What did you need help with today, Miss <<$pcs_lastname>>?"'
+					else 
+					'You are still resisting ha? We need to fix that. Anyway, What did you need help with today Miss <<$pcs_lastname>>?'
+					end
+					cla
 					gs 'therapist', 'therapyOptions'
 				end
 			else
@@ -75,6 +83,7 @@ if $ARGS[0] = 'hypnoGreet':
 	elseif hypnoFlashGreet = 1 and succubusflag = 0:
 		'"Come in! Miss <<$pcs_lastname>>, you remember your manners yes?"'
 		if $pantyworntype ! 'none':
+			wornPanties = wornPanties + 1
 			act 'Lift your skirt for Dr. Pavlov':
 				*clr & cla
 				'<center><video autoplay loop src="images/locations/pavlovsk/clinic/therapist/showPanties.mp4"></video></center>'
@@ -84,7 +93,12 @@ if $ARGS[0] = 'hypnoGreet':
 				act 'Give Dr. Pavlov your panties':
 					'<center><img src="images/locations/pavlovsk/clinic/therapist/removePanties.jpg"></center>'
 					gs 'panties', 'dispose'
-					'He throws your panties in the garbage. "Just don''t let it happen again. What did you need help with today Miss <<$pcs_lastname>>?"'
+					if wornPanties < 5:
+					'He throws your panties in the garbage. "Just don''t let it happen again. What did you need help with today, Miss <<$pcs_lastname>>?"'
+					else 
+					'You are still resisting ha? We need to fix that. Anyway, What did you need help with today Miss <<$pcs_lastname>>?'
+					end
+					cla
 					gs 'therapist', 'therapyOptions'
 				end
 			end
@@ -94,8 +108,10 @@ if $ARGS[0] = 'hypnoGreet':
 				'<center><img src="images/locations/pavlovsk/clinic/therapist/showPussy<<rand(1,7)>>.jpg"></center>'
 				'You show your bare pussy to Dr. Pavlov and wait for his response.'
 				'...'
-				if pcs_horny >= 75:
+				if pcs_horny >= 75 and pcs_horny <=89:
 					'Miss <<$pcs_lastname>>, your pussy is very wet... How can I help you today?'
+				elseif pcs_horny >= 90:
+					'Miss <<$pcs_lastname>>, your pussy is soaking wet... How can I help you today?'
 				else
 					randomFlashGreetResponse = rand(1,3)
 					if randomFlashGreetResponse = 1:
@@ -154,7 +170,7 @@ if $ARGS[0] = 'therapyOptions':
 		act 'Ask Dr. Pavlov to fuck you':
 			*clr & cla
 			if rand(0,1) = 0:
-				'<center><img src="images/locations/pavlovsk/clinic/therapist/showPussyForSex<<rand(1,1)>>.jpg"></center>'
+				'<center><img src="images/locations/pavlovsk/clinic/therapist/showPussyForSex<<rand(1,2)>>.jpg"></center>'
 				'You kneel forward on the couch and present your bare pussy to Dr. Pavlov before asking him to fuck you.'
 				'He wastes no time and quickly has his dick out, positioned to penetrate your pussy.'
 				act 'Get fucked by Dr. Pavlov':
@@ -349,9 +365,30 @@ if $ARGS[0] = 'hypno':
 				elseif hypnoTime < 10:
 					$session = 'A charming woman understands her place as a female. A charming woman understands to show respect and make herself sexually available to any male, especially those who are older than herself."'
 					willpowermax -= rand(2,4)
+				elseif hypnoTime < 15:
+					$session = 'A charming woman understands her place as a female. A charming female understands that her primary purpose in life is to bring pleasure to males and bear their children. Especially those who are much older than them."'
+					willpowermax -= rand(2,4)
 				else
+					var2 = rand(1,6)
+					if var2 = 1 :
+					$session = 'A charming woman understands her place in this world. A female must always show respect to men. She will put his needs before her own. This will make her feel more charming to the greater sex."'
+					willpowermax -= rand(8,10)
+					elseif var2 = 2 :
+					$session = 'A charming woman understands her place as a female. A charming woman understands to show respect and make herself sexually available to any male, especially those who are older than herself."'
+					willpowermax -= rand(8,10)
+					elseif var2 = 3 :
 					$session = 'A charming woman understands her place as a female. A charming female understands that her primary purpose in life is to bring pleasure to males and bear their children. Especially those who are much older than them."'
-					willpowermax -= rand(4,6)
+					willpowermax -= rand(8,10)
+					elseif var2 = 4 :
+					$session = 'A charming woman understands her place as a female. A charming female understands that her primary purpose and duty in life is to bring pleasure to males, serve them in every way possible and bear their children. Especially those who are much older than them."'
+					willpowermax -= rand(8,10)
+					elseif var2 = 5 :
+					$session = 'A charming woman understands her place as a female. A charming female understands that her primary purpose and duty in her life is to have many children as possible especially with men who are much older than them."'
+					willpowermax -= rand(8,10)
+					else
+					$session = 'A charming woman understands her place as a female. A charming female understands that her value as a human being is derived from the amount of effort she puts to sexually pleasing men, especially men who are older than herself."'
+					willpowermax -= rand(8,10)
+					end
 				end
 			elseif $therapy = 'trauma':
 				pcs_childtrauma -= rand(2,4)
@@ -1658,6 +1695,19 @@ if $ARGS[0] = 'hypnoRandom':
 		end
 		hypnoPanty = 1
 		bedPanty = 2
+	! svesta will now get commando lvl 3
+	elseif wornPanties > 5:
+		*clr & cla
+		hypnoRandomCounter = 0
+		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/therapist/sittingClothed.jpg"></center>'
+		'"Cunt, It seems like you are still trying to resist my rules regarding panties. We need to change these rebelious behaviours as soon as possible. From now on you prefer not wearing panties than wearing panties. In fact, you <i>hate</i> wearing them! You find them to be restrictive and annoying. Just the thought of wearing panties make you feel uncomfortable"'
+		trait['commando_lvl'] = 3
+		act 'Continue':
+		msg 'You have gained the 3rd level of the Commando trait! From now on any kind of underwear over your hips just feels <i>wrong</i>. You suffer mood penalties while wearing panties.'
+			gt 'therapist', 'hypnoEnd'
+		end
+		hypnoPanty = 1
+		bedPanty = 2	
 	! sveta will now hate wearing bras.
 	elseif hypnoBra ! 1 and rand(1,2) = 1:
 		cla