|
@@ -30,14 +30,24 @@ 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."'
|
|
|
+
|
|
|
+ if therapist_weekly_block > 0:
|
|
|
+ *nl
|
|
|
+ '"Miss <<$pcs_lastname>>, too much treatment without time for your brain to process could be harmful.'
|
|
|
+ '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.'
|
|
|
+ ! 'Too much treatment without time for your brain to process could be harmful."'
|
|
|
act 'Leave':gt $loc
|
|
|
else
|
|
|
gs 'therapist', 'hypnoGreet'
|
|
@@ -48,134 +58,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 +203,7 @@ end
|
|
|
|
|
|
if $ARGS[0] = 'therapyOptions':
|
|
|
if hypnoStage < 2:
|
|
|
+ therapist_weekly_block = 0
|
|
|
act 'Change your mind and leave':gt $loc
|
|
|
end
|
|
|
|
|
@@ -2022,16 +2040,16 @@ if $ARGS[0] = 'hypnoEnd':
|
|
|
killvar $hypnocolour
|
|
|
|
|
|
'<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/therapist/room.jpg"></center>'
|
|
|
- nl
|
|
|
- if $hypnoTxt0 <> '': '<<$hypnoTxt0>>' & nl
|
|
|
- if $hypnoTxt1 <> '': '<<$hypnoTxt1>>' & nl
|
|
|
+ *nl
|
|
|
+ if $hypnoTxt0 <> '': '<<$hypnoTxt0>>' & *nl
|
|
|
+ if $hypnoTxt1 <> '': '<<$hypnoTxt1>>' & *nl
|
|
|
|
|
|
if hypnoKissGoodbye = 1:
|
|
|
act 'Kiss Dr. Pavlov goodbye':
|
|
|
*clr & cla
|
|
|
'<center><img <<$set_imgh>> src="images/shared/sex/kiss/oldKissTongue<<rand(1,4)>>.jpg"></center>'
|
|
|
- if $hypnoTxt2 <> '': '<<$hypnoTxt2>>' & nl
|
|
|
- if $hypnoTxt3 <> '': '<<$hypnoTxt3>>' & nl
|
|
|
+ if $hypnoTxt2 <> '': '<<$hypnoTxt2>>' & *nl
|
|
|
+ if $hypnoTxt3 <> '': '<<$hypnoTxt3>>' & *nl
|
|
|
if therapistFuckedPussy > 0 and rand(1,2) = 1:
|
|
|
'A bit of cum dribbles from your well fucked cunt. You involuntarily clench your pussy; your body trying to keep more from leaking out.'
|
|
|
end
|
|
@@ -2040,7 +2058,7 @@ if $ARGS[0] = 'hypnoEnd':
|
|
|
end
|
|
|
|
|
|
else
|
|
|
- if $hypnoTxt3 <> '': '<<$hypnoTxt3>>'
|
|
|
+ if $hypnoTxt3 <> '': '<<$hypnoTxt3>>' & *nl
|
|
|
|
|
|
if therapistFuckedPussy > 0 and rand(1,2) = 1:
|
|
|
'A bit of cum dribbles from your well fucked cunt. You involuntarily clench your pussy; your body trying to keep more from leaking out.'
|
|
@@ -2712,7 +2730,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 +2853,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.'
|