# therapist_reminder

if $ARGS[0] = '':
	$therapist_reminder_acts = $curacts
	$therapist_reminder_main = $maintxt
	$therapist_reminder_stat = $stattxt

	cls
	
	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 <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'
			will_cost += (hypnoTime * 2)
			if will_cost <= pcs_willpwr:
				act 'Return to what you were doing (<<will_cost>> Willpower)':
					cla
					pcs_mood -= rand(10,20)
					gs 'stat'
					dynamic $WithdrawFromHypno
					'<center><img <<$set_imgh>> src="images/pc/reactions/Sad.jpg"></center>'
					''
					'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':
						gs 'therapist_reminder', 'return'
						! gt $menu_loc, $menu_arg
					end
				end
			else
				act 'Return to what you were doing (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
			end
		else
			act 'Return to what you were doing':
				cla
				*clr
				reminderMult = reminderCount
				if reminderCount > 10: reminderMult = 10
				reminderMoodCostLow = func('shortgs','sqrt', 30*reminderMult)
				reminderMoodCostHigh = func('shortgs','sqrt', 90*reminderMult)
				pcs_mood -= rand(reminderMoodCostLow, reminderMoodCostHigh)
				gs 'stat'
				'<center><img <<$set_imgh>> src="images/pc/reactions/Sad.jpg"></center>'
				''
				'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':
					gs 'therapist_reminder', 'return'
					! gt $menu_loc, $menu_arg
				end
			end
		end
		act 'Go see your therapist':
			cla
			*clr
			if $loc = 'pav_lake':
				minut += 15
			elseif $loc = 'pav_park':
				minut += 10
			elseif $region = 'pav':
				minut += 10
			else
				minut += 5
			end
			if $clothingworntype = 'nude':
				gs 'clothing', 'wear_last_worn'
				gs 'underwear', 'wear'
				gs 'shoes', 'wear', 'last_worn'
			end
			gs 'stat'
			'<center><video autoplay loop src="images/locations/pavlovsk/clinic/therapist/schoolWalk.mp4"></video></center>'
			'You walk to your therapist''s office.'
	
			act 'Continue':
				gs 'therapist_reminder', 'clear_vars'
				gt 'therapist'
			end
		end
	else
		''
		'... But you realize you are much to far away, there''s no way you can make it on time.'
		act 'Return to what you were doing':
			cla
			*clr
			reminderMult = reminderCount
			if reminderCount > 10: reminderMult = 10
			reminderMoodCostLow = func('shortgs','sqrt', 30*reminderMult)
			reminderMoodCostHigh = func('shortgs','sqrt', 90*reminderMult)
			pcs_mood -= rand(reminderMoodCostLow, reminderMoodCostHigh)
			gs 'stat'
			'<center><img <<$set_imgh>> src="images/pc/reactions/Sad.jpg"></center>'
			''
			'You feel terrible about missing your appointment. You tell yourself that you''ll see him again as soon as possible.'
			act 'Continue':
				gs 'therapist_reminder', 'return'
				! gt $menu_loc, $menu_arg
			end
		end
	end
end

if $ARGS[0] = 'return':
	cls
	*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
	if daysSkippedHypno >= 5:
		hypnoTime -= 1
	end

	if hypnoTime <= 5:
		hypnoAddict = 0
		hypnoHardToCum = 0
	elseif hypnoTime = 0:
		gs 'therapist'
		dynamic $RestTherapyVariables
	end
}

--- therapist_reminder ---------------------------------