[added] New therapist events but the impact not coded yet, from Friendly Neighbourhood Therapist

locations/therapist.qsrc

@@ -373,16 +373,16 @@ if $ARGS[0] = 'hypno':
 					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 :
+					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 :
+					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(8,10)
-					elseif var2 = 4 :
+					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 :
+					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
@@ -446,80 +446,122 @@ if $ARGS[0] = 'hypno':
 					'<center><video autoplay loop src="images/locations/pavlovsk/clinic/therapist/stripping<<rand(1,3)>>.mp4"></video></center>'
 					'<font color="<<$hypnocolour>>">'
 					'You get up from the couch and start to take off all of your clothing.'
-					if hypnoTime < 4:
-						randSuck = rand(1,4)
-						if randSuck = 1:
-							$hypnoact = 'lay down with your head off the edge. I will fuck your throat.'
-							act 'Continue':gt 'therapist', 'hypnoFuckThroat'
-						elseif randSuck = 2:
-							$hypnoact = 'you will suck my cock.'
-							act 'Continue':gt 'therapist', 'hypnoSitSuck'
-						elseif randSuck = 3:
-							$hypnoact = 'you will suck my cock.'
-							act 'Continue':gt 'therapist', 'hypnoForceSuck'
-						elseif randSuck = 4:
-							$hypnoact = 'you will suck my cock.'
-							act 'Continue':gt 'therapist', 'hypnoSuck'
+					if func('body_din','pregnancyVisibility') = 1 and HypnoPregNoticed = 0:
+						HypnoPregNoticed = 1
+						'After stripping off your clothes, the doctor takes a look at you and smiles at your pregnant stomach. He kneels before you and kisses your belly, sending a shiver up your spine. "Seeing you pregnant is a beautiful sight" he exclaims. "Is it mine?" he asks'
+						act 'Yes, <i>Master</i>':
+							*clr & cla
+							'<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/therapist/waiting<<rand(1,2)>>.jpg"></center>'
+							'"Yes Master, It is yours" you say "Good, If anyone asks, you got raped and that''s how you think you got pregnant. One day you will learn that the child is mine, but for now, the child belongs to some random person on the street" he says and leads you to the couch to start the session.'
+							*nl
+							gs 'therapist', 'hypno2'
 						end
-					else
-						if hypnoTime < 10:
-							if rand(0,2) > 0:
-								$hypnoact = 'I will fuck your pussy.'
-								act 'Continue':gt 'therapist', 'hypnoFuck'
-							elseif rand(0,2) > 0:
-								randSuck = rand(1,4)
-								if randSuck = 1:
-									$hypnoact = 'lay down with your head off the edge. I will fuck your throat.'
-									act 'Continue':gt 'therapist', 'hypnoFuckThroat'
-								elseif randSuck = 2:
-									$hypnoact = 'you will suck my cock.'
-									act 'Continue':gt 'therapist', 'hypnoSitSuck'
-								elseif randSuck = 3:
-									$hypnoact = 'you will suck my cock.'
-									act 'Continue':gt 'therapist', 'hypnoForceSuck'
-								elseif randSuck = 4:
-									$hypnoact = 'you will suck my cock.'
-									act 'Continue':gt 'therapist', 'hypnoSuck'
-								end
-							else
-								$hypnoact = 'I will fuck your ass.'
-								act 'Continue':gt 'therapist', 'hypnoAnal'
+						act 'No, <i>Master</i>':
+							*clr & cla
+							'<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/therapist/waiting<<rand(1,2)>>.jpg"></center>'
+							'"No, Master, It belongs to (Brother/Fedor/Boyfriend) "Thats upsetting." he says. "Since you did allow someone else to get you pregnant, I must punish you" he says and bends you over his desk, takes off his belt and starts to whip your bare ass with it. "You will not feel this pain when you wake up, but you will feel that you shouldn''t let anyone else but me get you pregnant. Do you understand, Cunt"'
+							act 'Yes, <i>Master</i>':
+								*clr & cla
+								'<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/therapist/waiting<<rand(1,2)>>.jpg"></center>'
+								'"All right, Now please lay on the couch so we can get started" he says putting his belt back on his pants but placing it unbuckled.'
+								*nl
+								gs 'therapist', 'hypno2'
 							end
-						!elseif rand(0,3) = 0:
-							!$hypnoact = 'I thought of something special for you.'
-							!act 'Continue':gt 'therapist', 'hypnoPerv'
-						else
-							if rand(0,2) > 0:
-								$hypnoact = 'I will fuck your pussy.'
-								act 'Continue':gt 'therapist', 'hypnoFuck'
-							elseif rand(0,2) > 0:
-								randSuck = rand(1,4)
-								if randSuck = 1:
-									$hypnoact = 'lay down with your head off the edge. I will fuck your throat.'
-									act 'Continue':gt 'therapist', 'hypnoFuckThroat'
-								elseif randSuck = 2:
-									$hypnoact = 'you will suck my cock.'
-									act 'Continue':gt 'therapist', 'hypnoSitSuck'
-								elseif randSuck = 3:
-									$hypnoact = 'you will suck my cock.'
-									act 'Continue':gt 'therapist', 'hypnoForceSuck'
-								elseif randSuck = 4:
-									$hypnoact = 'you will suck my cock.'
-									act 'Continue':gt 'therapist', 'hypnoSuck'
+							act 'Yes, <i>Master</i>':
+								*clr & cla
+								'<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/therapist/waiting<<rand(1,2)>>.jpg"></center>'
+								gs 'willpower', 'misc', 'resist', 'easy'
+								will_cost += (hypnoSchedule * 10)
+								will_cost += (hypnoStage * 10)
+								will_cost += hypnoTime * 3
+								if will_cost <= pcs_willpwr:
+									'"I love the baby''s father too much" you say and he sighs. We will have to do some more theopy to break you of that. You must only love me. Get on the couch with me.'
+								else
+									'"I... Yes, sir" you say. "I will not have unprotected sex with anyone except you," you explain. "Good Girl" he gives you a kiss before having you sit on the couch to start the session.'
 								end
-							else
-								$hypnoact = 'I will fuck your ass.'
-								act 'Continue':gt 'therapist', 'hypnoAnal'
+								*nl
+								gs 'therapist', 'hypno2'
 							end
 						end
 					end
-					'While you do this, Dr. Pavlov opens up his pants and takes out his dick, slowly masturbating as he watches you. After a while, he stops and motions you closer to him.'
+					gs 'therapist', 'hypno2'
+				end
+			end
+		end
+	end
+end
 
-					'"Come here, <i>Cunt</i>, <<$hypnoact>>"</font>'
+if $ARGS[0] = 'hypno2':
+	if hypnoTime < 4:
+		randSuck = rand(1,4)
+		if randSuck = 1:
+			$hypnoact = 'lay down with your head off the edge. I will fuck your throat.'
+			act 'Continue':gt 'therapist', 'hypnoFuckThroat'
+		elseif randSuck = 2:
+			$hypnoact = 'you will suck my cock.'
+			act 'Continue':gt 'therapist', 'hypnoSitSuck'
+		elseif randSuck = 3:
+			$hypnoact = 'you will suck my cock.'
+			act 'Continue':gt 'therapist', 'hypnoForceSuck'
+		elseif randSuck = 4:
+			$hypnoact = 'you will suck my cock.'
+			act 'Continue':gt 'therapist', 'hypnoSuck'
+		end
+	else
+		if hypnoTime < 10:
+			if rand(0,2) > 0:
+				$hypnoact = 'I will fuck your pussy.'
+				act 'Continue':gt 'therapist', 'hypnoFuck'
+			elseif rand(0,2) > 0:
+				randSuck = rand(1,4)
+				if randSuck = 1:
+					$hypnoact = 'lay down with your head off the edge. I will fuck your throat.'
+					act 'Continue':gt 'therapist', 'hypnoFuckThroat'
+				elseif randSuck = 2:
+					$hypnoact = 'you will suck my cock.'
+					act 'Continue':gt 'therapist', 'hypnoSitSuck'
+				elseif randSuck = 3:
+					$hypnoact = 'you will suck my cock.'
+					act 'Continue':gt 'therapist', 'hypnoForceSuck'
+				elseif randSuck = 4:
+					$hypnoact = 'you will suck my cock.'
+					act 'Continue':gt 'therapist', 'hypnoSuck'
+				end
+			else
+				$hypnoact = 'I will fuck your ass.'
+				act 'Continue':gt 'therapist', 'hypnoAnal'
+			end
+		!elseif rand(0,3) = 0:
+			!$hypnoact = 'I thought of something special for you.'
+			!act 'Continue':gt 'therapist', 'hypnoPerv'
+		else
+			if rand(0,2) > 0:
+				$hypnoact = 'I will fuck your pussy.'
+				act 'Continue':gt 'therapist', 'hypnoFuck'
+			elseif rand(0,2) > 0:
+				randSuck = rand(1,4)
+				if randSuck = 1:
+					$hypnoact = 'lay down with your head off the edge. I will fuck your throat.'
+					act 'Continue':gt 'therapist', 'hypnoFuckThroat'
+				elseif randSuck = 2:
+					$hypnoact = 'you will suck my cock.'
+					act 'Continue':gt 'therapist', 'hypnoSitSuck'
+				elseif randSuck = 3:
+					$hypnoact = 'you will suck my cock.'
+					act 'Continue':gt 'therapist', 'hypnoForceSuck'
+				elseif randSuck = 4:
+					$hypnoact = 'you will suck my cock.'
+					act 'Continue':gt 'therapist', 'hypnoSuck'
 				end
+			else
+				$hypnoact = 'I will fuck your ass.'
+				act 'Continue':gt 'therapist', 'hypnoAnal'
 			end
 		end
 	end
+	'While you do this, Dr. Pavlov opens up his pants and takes out his dick, slowly masturbating as he watches you. After a while, he stops and motions you closer to him.'
+
+	'"Come here, <i>Cunt</i>, <<$hypnoact>>"</font>'
 end
 
 if $ARGS[0] = 'succubus':
@@ -1668,7 +1710,7 @@ if $ARGS[0] = 'hypnoRandom':
 		tabletkisug = 0
 		tabletkicheck = 1
 		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/therapist/sittingClothed.jpg"></center>'
-		''
+		*nl
 		'<font color="<<$hypnocolour>>">"Now lets make sure you start having my children... <font color="<<$hypnocolour>>">Although you won''t consciously know my cum is inside of you, you will subconsciously feel it. Everytime I cum inside of you, your body will crave my seed more. You will keep your pussy clenched so my cum doesn''t leak out."</font>'
 		'<font color="<<$hypnocolour>>">Also, take these." He hands you a package of pills. "You will take one every day. If you have any birth control pills, you will throw them away. You won''t think about buying more. You won''t notice anything wrong with this and you will think these are simply normal birth control pills. Understand, <i>Cunt</i>?"</font>'
 		'"Yes, <i>Master</i>."'
@@ -1739,7 +1781,7 @@ if $ARGS[0] = 'hypnoRandom':
 	elseif hypnoCheckPanties ! 1 and rand(1,2) = 1 and hypnoPanty = 1:
 		*clr & cla
 		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/therapist/sittingClothed.jpg"></center>'
-		''
+		*nl
 		'<br><font color="<<$hypnocolour>>">"From now on, when you come in for therapy you will feel that it is common courtesy to allow me to check if you are not wearing panties. You will think this is normal. In fact, if you are caught wearing panties, you will feel ashamed that you wore them. When I compliment you for not wearing panties, you will feel proud and grateful for the compliment.</font> Understand, <i>Cunt</i>?"'
 		'"Yes, <i>Master</i>."'
 		'"Good ..."<br>'
@@ -1753,7 +1795,7 @@ if $ARGS[0] = 'hypnoRandom':
 		cla
 		*clr
 		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/therapist/sittingClothed.jpg"></center>'
-		''
+		*nl
 		'<br><font color="<<$hypnocolour>>">"From now on, when you come in for therapy you will feel that it is common courtesy to show me your bare pussy. You will think this is perfectly normal behavior. It is simply the polite thing to do. Any comments I make about your bare pussy you will be grateful for.</font> Understand, <i>Cunt</i>?"'
 		'"Yes, <i>Master</i>."'
 		'"Good ..."<br>'
@@ -1762,6 +1804,26 @@ if $ARGS[0] = 'hypnoRandom':
 		act 'Continue':
 			gt 'therapist', 'hypnoEnd'
 		end
+		!! Forced Clothing, Steva will want to wear exhibitionist clothing, failing that only clothing she finds "daring" or have a cost of willpower
+	elseif hypnoPanty = 1 & hypnoBra = 1:
+		hypnoClothes = 1
+		cla
+		*clr
+		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/therapist/sittingClothed.jpg"></center>'
+		*nl
+
+		'<br><font color="<<$hypnocolour>>">"Okay, cunt. "He begins, setting up a new command;'
+
+		'"The only clothing you will be allowed to wear from now on are see-throught items. If you do not already have any in your closet, you will need to buy some. My daughter works in promotions for a store in town. You can usually find her in the park whenever she is out." '
+
+		'He adjusts his shirt, then adds...'
+
+		'"Lastly, if they do not have any school clothes, wear an outfit that exposes the most skin," he smiles. "Wearing normal clothing makes you feel self-conscious -- like to much clothing restricts your movement. You need to wear the bare minimum, Understand cunt?"'
+		'"Yes, <i>Master</i>."'
+		'"Good ..."<br>'
+		act 'Continue':
+			gt 'therapist', 'hypnoEnd'
+		end
 	! sveta now thinks it''s normal for pavlov to touch her innapropriatly
 	elseif hypnoTouchWhenever ! 1 and rand(1,2) = 1:
 		cla
@@ -1769,10 +1831,9 @@ if $ARGS[0] = 'hypnoRandom':
 		hypnoTouchWhenever = 1
 		hypnoRandomCounter = 0
 		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/therapist/sittingClothed.jpg"></center>'
-		''
+		*nl
 		'<font color="<<$hypnocolour>>">"From now on, you will find it perfectly acceptable for me to touch you on any place of your body. It''s common sense that I should be able to touch you where ever and whenever I please. Any vulgar comments I make are perfectly normal. You won''t notice anything out of the ordinary.</font> Understand, <i>Cunt</i>?"'
 		'"Yes, <i>Master</i>."'
-		''
 		act 'Continue':
 			gt 'therapist', 'hypnoEnd'
 		end
@@ -1783,10 +1844,9 @@ if $ARGS[0] = 'hypnoRandom':
 		hypnoKissGoodbye = 1
 		hypnoRandomCounter = 0
 		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/therapist/sittingClothed.jpg"></center>'
-		''
+		*nl
 		'<font color="<<$hypnocolour>>">"From now on, before you leave, you will feel that it is natural to kiss me before you leave as thanks for your therapy session. You won''t find anything wrong with this. Doing so will feel perfectly normal. When you kiss me, you will do so with enthusiasm. You will enjoy the kiss and you will prefer kissing with your tongue. When we are finished, you will thank me for the session.</font> Understand, <i>Cunt</i>?"'
 		'"Yes, <i>Master</i>."'
-		''
 		act 'Continue':
 			gt 'therapist', 'hypnoEnd'
 		end
@@ -1797,10 +1857,9 @@ if $ARGS[0] = 'hypnoRandom':
 		hypnoHardToCum = 1
 		hypnoRandomCounter = 0
 		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/therapist/sittingClothed.jpg"></center>'
-		''
+		*nl
 		'<font color="<<$hypnocolour>>">"From now on, you will have difficulty orgasming if I''m not the one making you cum.</font> Understand, <i>Cunt</i>?"'
 		'"Yes, <i>Master</i>."'
-		''
 		act 'Continue':
 			gt 'therapist', 'hypnoEnd'
 		end
@@ -1811,7 +1870,7 @@ if $ARGS[0] = 'hypnoRandom':
 		hypnoAskFuck = 1
 		hypnoRandomCounter = 0
 		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/therapist/sittingClothed.jpg"></center>'
-		''
+		*nl
 		'<font color="<<$hypnocolour>>">"From now on, you will feel that it is perfectly normal for you to ask me to fuck you instead of asking for therapy sessions. In fact, you will think that taking my cock is simply a normal therapy session and that doing so is not sex at all. Also, anytime you see my cock, your mind will enter the black room.</font> Understand, <i>Cunt</i>?"'
 		'"Yes, <i>Master</i>."'
 		'"Good ..."<br>'