[changed] therapist visits are now limited to once a week

locations/cikl.qsrc

@@ -1063,6 +1063,7 @@ if InSleep = 1: gs 'npc','cleanarrays'
 if therapistWantsSlave > 0:
 	annaclean1 = rand(23,26)
 end
+killvar 'therapistFuckedPussyScene'
 
 !!------------------------------------------------------------------------------------------------------------
 
@@ -1212,10 +1213,19 @@ gs 'homes_properties', 'progress_property_rent_time'
 !!------------- Check for Daily Events for event generator, sets evt_chk variable  ------------------------------------------
 gs 'emp_functions', 'evt_day_chk'
 
-!!------------- Reset used car dealership offers  ------------------------------------------
-if week = 1 and used_car ! 0: killvar 'used_car'
 
 
+!!----------------------------------------------------------------------
+!!---------------------------- WEEKLY RESET ----------------------------
+!!----------------------------------------------------------------------
+if week = 1:
+	!! Reset used car dealership offers 
+	killvar 'used_car'
+
+	!! Reset therapist schedule
+	killvar 'therapist_weekly_block'
+end
+
 !!------------- Advance book loan debt  ------------------------------------------
 if $lib_book_loaned ! '': lib_debt += 50
 

locations/pav_commercial.qsrc

@@ -138,10 +138,14 @@ end
 
 if workPTU > 2:act '<b>Go to the hostel</b>':gt 'etoexhib', 'pos40'
 
- if  hour >= 18 and hour < 19 and week = 4 and hypnoSchedule = 1 and therapistday ! daystart: 
-    act '<b>Go see your therapist  (1:00)</b>': minut += 5 & gt 'therapist'
-    *nl
+if hypnoSchedule = 1:
+	if therapist_weekly_block = 0 and week = 4 and therapistday ! daystart:
+		if hour >= 18 and hour < 19:
+			act '<b>Go see your therapist (1:00)</b>': minut += 5 & gt 'therapist'
+		end
+	end
 end
+
 act 'Walk to the Residential area (0:05)':minut += 5 & gt 'pav_residential'
 act 'Walk to the Industrial region (0:05)':minut += 5 & gt 'pav_industrial'
 act 'Walk to the Five Eight estate (0:05)':minut += 5 & gt 'pav_complex', 'start'

locations/stat.qsrc

@@ -1053,11 +1053,14 @@ else
 	pornstar['icon'] = 0
 end
 
-if therapistday ! daystart:
-	if therapistFuckedPussyScene > 0: therapistFuckedPussyScene = 0
-	if remindedtherapyday ! daystart and week = 4 and hypnoSchedule = 1 and (hour >= 18 and (minut > 45 or hour >= 19)) and (hour < 20 and (minut < 15 or hour < 19)) and menu_off = 0 and workDolg = 0:
-		remindedtherapyday = daystart
-		gt 'therapist_reminder'
+if hypnoSchedule = 1:
+	if therapist_weekly_block = 0 and week = 4 and therapistday ! daystart and remindedtherapyday ! daystart:
+		if menu_off = 0 and workDolg = 0:
+			if (hour >= 18 and (minut > 45 or hour >= 19)) _
+			and (hour < 20 and (minut < 15 or hour < 19)):
+				gs 'therapist_reminder'
+			end
+		end
 	end
 end
 

locations/stat_display.qsrc

@@ -325,17 +325,20 @@ if hypnoAddict > 0:
 		$stat_hypno_tooltip = 'You feel moody for some reason.'
 	end
 end
-if therapistday ! daystart and week = 4 and hypnoSchedule = 1:
-	if $stat_hypno_msg ! '': 
-		$stat_hypno_msg += '<br>'
-		$stat_hypno_tooltip += '<br>'
-	end
-	if hour < 18:
-		$stat_hypno_msg += 'You have a meeting scheduled with your therapist today at 18:00.'
-		$stat_hypno_tooltip += 'Session at 18:00!'
-	elseif hour < 19 and hour > 18:
-		$stat_hypno_msg += 'You have a meeting scheduled with your therapist right now.'
-		$stat_hypno_tooltip += 'Session right now!'
+
+if hypnoSchedule = 1:
+	if therapist_weekly_block = 0 and week = 4 and therapistday ! daystart:
+		if $stat_hypno_msg ! '': 
+			$stat_hypno_msg += '<br>'
+			$stat_hypno_tooltip += '<br>'
+		end
+		if hour < 18:
+			$stat_hypno_msg += 'You have a meeting scheduled with your therapist today at 18:00.'
+			$stat_hypno_tooltip += 'Session at 18:00!'
+		elseif hour < 19 and hour > 18:
+			$stat_hypno_msg += 'You have a meeting scheduled with your therapist right now.'
+			$stat_hypno_tooltip += 'Session right now!'
+		end
 	end
 end
 

locations/therapist.qsrc

@@ -30,15 +30,22 @@ if $ARGS[0] = '':
 
 	'<center><b><font color="maroon">Psychologist</font></b></center>'
 	PLAY 'sound/rainstorm.mp3',10 & PLAY 'sound/clock.mp3',20 & PLAY 'sound/sucking.mp3',200
+
 	menu_off = 1
+
 	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/therapist/room.jpg"></center>'
-	'Stepping into the office of <a href="exec:dynamic $pavlov">Dr. Pavlov</a>, you are welcomed with a warm smile and a firm handshake by the doctor.'
-	'When you look around the room, you are greeted by a warm and inviting atmosphere. The room is illuminated by large windows that overlook the forest beyond. At one end of the room there is a desk with a chair stacked with folders and books pertaining to hypnotherapy and other therapy materials. This includes a laptop that is closed and appears clean, as if it has been seldom used. You see an older photograph of Dr. Pavlov''s family?in which he appears to be about two decades younger.'
-	'As you look about the room, it has the appearance of a study; warm and inviting. Large windows face out to the forest beyond. There is a desk with a chair at one end of the room covered in folders and books about Hypnotherapy and other therapy materials, including a laptop. It is currently closed and looks clean, though seldom used. You see an older <a href="exec: VIEW ''images/locations/pavlovsk/clinic/therapist/pavlovfamily.jpg''">photograph of Dr. Pavlov''s family</a> in which he appears to be about two decades younger.'
+	'Stepping into the office of <a href="exec:dynamic $pavlov">Dr. Pavlov</a>, you are welcomed with a warm smile.'
+
+	*nl
+	
+	'When you look around the room, you are greeted by a warm and inviting atmosphere. The room is illuminated by large windows that overlook the forest beyond. At one end of the room there is a desk with a chair stacked with folders and books pertaining to hypnotherapy and other therapy materials. This includes a laptop that is closed and appears clean, as if it has been seldom used. You see an older <a href="exec: VIEW ''images/locations/pavlovsk/clinic/therapist/pavlovfamily.jpg''">photograph of Dr. Pavlov''s family</a> in which he appears to be about two decades younger.'
+	
 	gs 'stat'
-	if hypnoSchedule = 1 and day ! 4 and hour < 17:
-		'"Come in, Miss <<$pcs_lastname>>! Your appointment is on Thursday at 17:00 we can talk about your problems then, too much treatment without time for your brain to process could be harmful."'
-		act 'Leave':gt $loc
+
+	if therapist_weekly_block > 0:
+		'"Miss <<$pcs_lastname>>, too much treatment without time for your brain to process could be harmful.<br>
+		Come next week, we can talk about your problems then."'
+		! '"Miss <<$pcs_lastname>>, your appointment is on Thursday at 21:30, we can talk about your problems then.<br>Too much treatment without time for your brain to process could be harmful."'
 	else
 		gs 'therapist', 'hypnoGreet'
 	end
@@ -48,134 +55,141 @@ end
 
 if $ARGS[0] = 'hypnoGreet':
 	therapistday = daystart
-	if hypnoCheckPanties = 1 and hypnoFlashGreet = 0 and succubusflag = 0:
-		'"Come in! Miss <<$pcs_lastname>>, as you know, I''m going to inspect you now."'
-		act 'Wait for him to inspect you':
-			*clr & cla
-			if underwear['type'] = 2:
-				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/therapist/pavlov.jpg"></center>'
-				'"Miss <<$pcs_lastname>>, a bodysuit?"'
-				'You remain silent.'
-				'"That''s cheating and I will count it as panties."'
-				'"I''m sorry Dr. Pavlov... I don''t know what I was thinking. I-"'
-				'He interrupts you and commands you to strip off your bodysuit and hand them to him.'
-
-				act 'Give Dr. Pavlov your bodysuit':
-					*clr & cla
-					'<center><img src="images/locations/pavlovsk/clinic/therapist/removePanties.jpg"></center>'
-					gs 'underwear_bodysuits', 'dispose'
+	therapist_weekly_block = 1
+	if succubusflag = 0:
+		if hypnoFlashGreet = 0 and hypnoCheckPanties = 1:
+			'"Come in! Miss <<$pcs_lastname>>, as you know, I''m going to inspect you now."'
+			act 'Wait for him to inspect you':
+				*clr & cla
+				if underwear['type'] = 2:
+					wornPanties += 1
+					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/therapist/pavlov.jpg"></center>'
+					'"Miss <<$pcs_lastname>>, a bodysuit?"'
+					'You remain silent.'
+					'"That''s cheating and I will count it as panties."'
+					'"I''m sorry Dr. Pavlov... I don''t know what I was thinking. I-"'
+					'He interrupts you and commands you to strip off your bodysuit and hand it to him.'
+
+					act 'Give Dr. Pavlov your bodysuit':
+						*clr & cla
+						'<center><img src="images/locations/pavlovsk/clinic/therapist/removePanties.jpg"></center>'
+						gs 'underwear_bodysuits', 'dispose'
 
-					if wornPanties < 5:
-						'He throws your bodysuit 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 bodysuit 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>>?'
+						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
 
-					cla
-					gs 'therapist', 'therapyOptions'
-				end
+				elseif $pantyworntype ! 'none':
+					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-"'
+					'He interupts you and commands you to strip off your panties and hand them to him.'
+					act 'Give Dr. Pavlov your panties':
+						*clr & cla
+						'<center><img src="images/locations/pavlovsk/clinic/therapist/removePanties.jpg"></center>'
+						gs 'panties', 'dispose'
 
-			elseif $pantyworntype ! 'none':
-				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-"'
-				'He interupts you and commands you to strip off your panties and hand them to him.'
-				act 'Give Dr. Pavlov your panties':
-					*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>>?"'
 
-					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
 
-					else
-						'You are still resisting ha? We need to fix that. Anyway, What did you need help with today Miss <<$pcs_lastname>>?'
+						cla
+						gs 'therapist', 'therapyOptions'
 					end
 
-					cla
-					gs 'therapist', 'therapyOptions'
-				end
+				else
+					'<center><video autoplay loop src="images/locations/pavlovsk/clinic/therapist/checkPanties.mp4"></video></center>'
+					'"Very good Miss <<$pcs_lastname>>. I see you are very well mannered."'
+					'"Thank you Dr. Pavlov."'
 
-			else
-				'<center><video autoplay loop src="images/locations/pavlovsk/clinic/therapist/checkPanties.mp4"></video></center>'
-				'"Very good Miss <<$pcs_lastname>>. I see you are very well mannered."'
-				'"Thank you Dr. Pavlov."'
+					if hypnoTouchWhenever = 1 and rand(1,2) = 1:
+						act 'Get groped':
+							*clr & cla
+							'<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/therapist/gropePussy.jpg"></center>'
+							'"Very good Miss <<$pcs_lastname>>. What was it you needed help with today?"'
+							gs 'therapist', 'therapyOptions'
+						end
 
-				if hypnoTouchWhenever = 1 and rand(1,2) = 1:
-					act 'Get groped':
-						*clr & cla
-						'<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/therapist/gropePussy.jpg"></center>'
-						'"Very good Miss <<$pcs_lastname>>. What was it you needed help with today?"'
+					else
+						'"Now what was it you needed help with today?"'
 						gs 'therapist', 'therapyOptions'
 					end
-
-				else
-					'"Now what was it you needed help with today?"'
-					gs 'therapist', 'therapyOptions'
 				end
 			end
-		end
 
-	elseif hypnoFlashGreet = 1 and succubusflag = 0:
-		'"Come in! Miss <<$pcs_lastname>>, you remember your manners yes?"'
-		if $pantyworntype ! 'none':
-			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>'
-				'"Miss <<$pcs_lastname>>, what is this?"'
-				'"I''m sorry Dr. Pavlov... I don''t know what I was thinking. I-"'
-				'He interupts you and commands you to strip off your panties and hand them to him.'
+		elseif hypnoFlashGreet = 1:
+			'"Come in! Miss <<$pcs_lastname>>, you remember your manners yes?"'
+			if $pantyworntype ! 'none':
+				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>'
+					'"Miss <<$pcs_lastname>>, what is this?"'
+					'"I''m sorry Dr. Pavlov... I don''t know what I was thinking. I-"'
+					'He interupts you and commands you to strip off your panties and hand them to him.'
 
-				act 'Give Dr. Pavlov your panties':
-					'<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>>?"'
+					act 'Give Dr. Pavlov your panties':
+						'<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
+						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'
+						cla
+						gs 'therapist', 'therapyOptions'
+					end
 				end
-			end
 
-		else
-			act 'Show Dr. Pavlov your bare pussy':
-				*clr & cla
-				'<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.'
-				'...'
+			else
+				act 'Show Dr. Pavlov your bare pussy':
+					*clr & cla
+					'<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 and pcs_horny <=89:
-					'Miss <<$pcs_lastname>>, your pussy is very wet... How can I help you today?'
+					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?'
+					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:
-						'"Ah, very nice pussy Miss <<$pcs_lastname>>. What was it you wanted help with today?"'
+					else
+						randomFlashGreetResponse = rand(1,3)
+						if randomFlashGreetResponse = 1:
+							'"Ah, very nice pussy Miss <<$pcs_lastname>>. What was it you wanted help with today?"'
 
-					elseif randomFlashGreetResponse = 2 and $pantyworntype ! 'none':
-						'"I see you didn''t wear panties today Miss <<$pcs_lastname>>. Very good. What was it you wanted help with today?"'
+						elseif randomFlashGreetResponse = 2 and $pantyworntype ! 'none':
+							'"I see you didn''t wear panties today Miss <<$pcs_lastname>>. Very good. What was it you wanted help with today?"'
 
-					elseif randomFlashGreetResponse = 3:
-						'"Well done Miss <<$pcs_lastname>>, your pussy looks great. What was it you wanted help with today?"'
+						elseif randomFlashGreetResponse = 3:
+							'"Well done Miss <<$pcs_lastname>>, your pussy looks great. What was it you wanted help with today?"'
 
-					else
-						'"You are well mannered Miss <<$pcs_lastname>>. What can I help you with?"'
+						else
+							'"You are well mannered Miss <<$pcs_lastname>>. What can I help you with?"'
+						end
 					end
+					gs 'therapist', 'therapyOptions'
 				end
-				gs 'therapist', 'therapyOptions'
 			end
-		end
 
+		else
+			'"Come in, Miss <<$pcs_lastname>>! Please, tell me what can I help you with today?"'
+			gs 'therapist', 'therapyOptions'
+		end
 	else
 		'"Come in, Miss <<$pcs_lastname>>! Please, tell me what can I help you with today?"'
 		gs 'therapist', 'therapyOptions'
@@ -186,6 +200,7 @@ end
 
 if $ARGS[0] = 'therapyOptions':
 	if hypnoStage < 2:
+		therapist_weekly_block = 0
 		act 'Change your mind and leave':gt $loc
 	end
 
@@ -2712,7 +2727,7 @@ if $ARGS[0] = 'hypnoProstitute':
 										act 'Get Fucked':
 											*clr & cla
 											'<<$img2>>'
-											$butt = dyneval('$result = <<''$pcs_butt_adj''+rand(1,2)>> ')
+											$butt = $dyneval('$result = <<''$pcs_butt_adj''+rand(1,2)>> ')
 											''
 											hypnoProstTimes += 1
 											'He fucks your pussy hard and fast. The car fills with the sound of his hips slapping against your <<$butt>> and the squelching of your wet pussy.'
@@ -2835,7 +2850,7 @@ if $ARGS[0] = 'hypnoProstitute':
 								act 'Get Fucked':
 									*clr & cla
 									'<<$img2>>'
-									$butt = dyneval('$result = <<''$pcs_butt_adj''+rand(1,2)>> ')
+									$butt = $dyneval('$result = <<''$pcs_butt_adj''+rand(1,2)>> ')
 									''
 									hypnoProstTimes += 1
 									'He fucks your pussy hard and fast. The car fills with the sound of his hips slapping against your <<$butt>> and the squelching of your wet pussy.'

locations/therapist_reminder.qsrc

@@ -1,12 +1,17 @@
 # therapist_reminder
 
 if $ARGS[0] = '':
-	cla
-	*clr
+	$therapist_reminder_acts = $curacts
+	$therapist_reminder_main = $maintxt
+	$therapist_reminder_stat = $stattxt
+
+	cls & cla
+	
+	remindedtherapyday = daystart
 	reminderCount += 1
 	'<center><img <<$set_imgh>> src="images/pc/reactions/forget.jpg"></center>'
 	''
-	'You remember that you have an appointment with your therapist today at 18:00. It''s already <<hour>>:<<minut>>. You should go now.'
+	'You remember that you have an appointment with your therapist today at 18:00. It''s already <b><<$mid(100+hour,2,2)>>:<<$mid(100+minut,2,2)>></b>. You should go now.'
 	if $region = 'pav':
 		if reminderFreebee < 4:
 			gs 'willpower', 'misc', 'resist', 'easy'
@@ -21,7 +26,8 @@ if $ARGS[0] = '':
 					''
 					'You feel bad about missing your appointment, but you have other things to do now. You tell yourself that you''ll see him again as soon as possible.'
 					act 'Continue':
-						gt $menu_loc, $menu_arg
+						gs 'therapist_reminder', 'return'
+						! gt $menu_loc, $menu_arg
 					end
 				end
 			else
@@ -41,7 +47,8 @@ if $ARGS[0] = '':
 				''
 				'You feel bad about missing your appointment, but you have other things to do now. You tell yourself that you''ll see him again as soon as possible.'
 				act 'Continue':
-					gt $menu_loc, $menu_arg
+					gs 'therapist_reminder', 'return'
+					! gt $menu_loc, $menu_arg
 				end
 			end
 		end
@@ -67,6 +74,7 @@ if $ARGS[0] = '':
 			'You walk to your therapist''s office.'
 	
 			act 'Continue':
+				gs 'therapist_reminder', 'clear_vars'
 				gt 'therapist'
 			end
 		end
@@ -86,12 +94,27 @@ if $ARGS[0] = '':
 			''
 			'You feel terrible about missing your appointment. You tell yourself that you''ll see him again as soon as possible.'
 			act 'Continue':
-				gt $menu_loc, $menu_arg
+				gs 'therapist_reminder', 'return'
+				! gt $menu_loc, $menu_arg
 			end
 		end
 	end
 end
 
+if $ARGS[0] = 'return':
+	cls & cla
+	*p $therapist_reminder_main
+	p $therapist_reminder_stat
+	dynamic $therapist_reminder_acts
+	gs 'therapist_reminder', 'clear_vars'
+end
+
+if $ARGS[0] = 'clear_vars':
+	killvar '$therapist_reminder_main'
+	killvar '$therapist_reminder_stat'
+	killvar '$therapist_reminder_acts'
+end
+
 !Remove this and any dynamic function calls
 $WithdrawFromHypno = {
 	daysSkippedHypno += 1
@@ -107,4 +130,5 @@ $WithdrawFromHypno = {
 		dynamic $RestTherapyVariables
 	end
 }
---- therapist_reminder ---------------------------------
+
+--- therapist_reminder ---------------------------------