|
|
@@ -0,0 +1,312 @@
|
|
|
+# therapist
|
|
|
+'<center><b><font color="maroon">Psychologist</font></b></center>'
|
|
|
+'<center><img src="images/_nuki/therapist/room.jpg"></center>'
|
|
|
+CLOSE ALL
|
|
|
+PLAY 'sound/Clock.mp3',80
|
|
|
+$location_type = 'event'
|
|
|
+if $ARGS[0] = '':
|
|
|
+ act 'Raise your mood':
|
|
|
+ cla
|
|
|
+ money -= 1000
|
|
|
+ minut += 60
|
|
|
+
|
|
|
+ 'You talk about your problems for a while, and in a few places Dr. Pavlov asks you some pointed questions. Although he makes you look at your own actions and desires closely, making you aware of your own issues, it somehow makes you feel better about yourself.'
|
|
|
+ end
|
|
|
+ act 'Raise your confidance':
|
|
|
+ cla
|
|
|
+ $therapy = 'confidance'
|
|
|
+ act 'Just talk':
|
|
|
+
|
|
|
+ end
|
|
|
+ act 'Hypnotherapy':gt 'therapist', 'hypno'
|
|
|
+ end
|
|
|
+ act 'Raise your dominance':
|
|
|
+ cla
|
|
|
+ $therapy = 'dominance'
|
|
|
+ act 'Just talk':
|
|
|
+
|
|
|
+ end
|
|
|
+ act 'Hypnotherapy':gt 'therapist', 'hypno'
|
|
|
+ end
|
|
|
+ act 'Lower your dominance':
|
|
|
+ cla
|
|
|
+ $therapy = 'submission'
|
|
|
+ act 'Just talk':
|
|
|
+
|
|
|
+ end
|
|
|
+ act 'Hypnotherapy':gt 'therapist', 'hypno'
|
|
|
+ end
|
|
|
+! act 'Hypnotherapy to fight addiction':
|
|
|
+! gt 'therapist', 'hypno'
|
|
|
+! end
|
|
|
+! act 'Hypnotherapy for personality change':
|
|
|
+! gt 'therapist', 'hypno'
|
|
|
+! end
|
|
|
+ act 'You need no help right now':gt $loc
|
|
|
+end
|
|
|
+
|
|
|
+$cumdesciption2 = 'pussy is full with fresh sperm, leaking out of you'
|
|
|
+$cumdesciption2 = 'ass is full of fresh sperm, slowly leaking out of you'
|
|
|
+$cumdesciption3 = 'cum filled pussy'
|
|
|
+$cumdesciption3 = 'cum filled ass'
|
|
|
+
|
|
|
+if $ARGS[0] = 'hypno':
|
|
|
+ if firsthypno = 0:
|
|
|
+ $firsthypno = 'While you are Under, I will call you <i>Cunt</i>, and you will respond to it. You will also call me Master.<br>You reply, "yes, <i>Master</i>."'
|
|
|
+ $firsthypno2 = '"Miss <<$surname>>, everything that happens while you are in the black room you will not remember. Understand it?"<br>"Yes, Dr. Pavlov."'
|
|
|
+ else
|
|
|
+ $firsthypno = ''
|
|
|
+ $firsthypno2 = '"<i>Cunt</i>, what do you know about the black room?"<br>"I know that everything that happens here I will not remember, <i>Master</i>."'
|
|
|
+ end
|
|
|
+ CLOSE 'sound/Clock.mp3'
|
|
|
+ if sound = 0:PLAY 'sound/Rainstorm.mp3',40 & PLAY 'sound/Clock.mp3',80
|
|
|
+ '"All right, then. Please, lay on the couch, and try to get comfortable."'
|
|
|
+ 'While he waits for you to lay down ot the couch as you wish, he starts a CD player, that plays the soothing sounds of raining. After you are comfortable, he starts to talk in a strangely hypnotic voice.'
|
|
|
+ '"Please, close your eyes."'
|
|
|
+ 'He waits a little, the only sound in the room is the clock ticking, and the sound of rain.'
|
|
|
+ '"You are standing in front of a house. This house has three rooms, but each of them can only be reached through the one before. The first room is the green room, then the blue room, and at last the black room..."'
|
|
|
+ ''
|
|
|
+ 'You mind tries to imagine the things the doctor tells you, and this is your last concious memory.'
|
|
|
+ act 'Continue':
|
|
|
+ *clr
|
|
|
+ minut += 15
|
|
|
+ '<center><img width=700 src="images/_nuki/therapist/hypnotism<<rand(1,4)>>.jpg"></center>'
|
|
|
+ hypnoStrength += 10
|
|
|
+ if hypnoTime < 15:
|
|
|
+ if hypnoStrength >= 20:hypnoStrength = hypnoStrength-20 & hypnoTime += 1
|
|
|
+ elseif hypnoStrength > 20
|
|
|
+ hypnoStrength = 20
|
|
|
+ end
|
|
|
+
|
|
|
+ if $therapy = 'confidance':
|
|
|
+ willpower += 5
|
|
|
+ $session = 'You will feel more confident. You are smart, beautiful, and if other people has other opinions, that is their problem. You know what you want, and do not fear to act upon your desires."<br>...<br>...<br>...'
|
|
|
+ elseif $therapy = 'dominance':
|
|
|
+ dom += 2
|
|
|
+ $session = 'You like to do what you want to do. It pleases you if people do what you tell them to do, or act according to your wishes, and you like to couse them pleasure this way. You have to be in control constantly, but that means others around you can relax."<br>...<br>...<br>...'
|
|
|
+ elseif $therapy = 'submission':
|
|
|
+ sub += 6
|
|
|
+ $session = 'You want to be told what to do and what to think, what to feel and whom to please. Obeying to others pleases you because it pleases them, and for a while you do not have to take responsibility for you actions."<br>...<br>...<br>...'
|
|
|
+ end
|
|
|
+ '<font color=brown>'
|
|
|
+ $firsthypno2
|
|
|
+ '"Good. <<$firsthypno>>"'
|
|
|
+ '"All right <i>Cunt</i>, let''s work on your <<$therapy>>. <<$session>>'
|
|
|
+ '"And now let''s play. You will enjoy the play, <i>Cunt</i>, but you will not remeber anything about it whan you are Awake. Understand?"'
|
|
|
+ '"Yes, <i>Master</i>."'
|
|
|
+ '"Perfect! Then take off all of your clothes."'
|
|
|
+ '</font>'
|
|
|
+ act 'Taking off clothes':
|
|
|
+ cla
|
|
|
+ *clr
|
|
|
+ '<center><img width=500 src="images/_nuki/therapist/stripping<<rand(1,3)>>.gif"></center>'
|
|
|
+ '<font color=brown>'
|
|
|
+ 'You stand up from the couch and start to take off all of you clothing. While you do this, Dr. Pavlov opens up his pants and takes out his dick, slowli masturbating as he watches you. When you are done, he motions you closer to him.'
|
|
|
+ '"Come here, <i>Cunt</i>, I want you to suck me!"'
|
|
|
+ 'You obediently walk to him, lower yourself before him, then taking him into your hands you begin to suck him off.'
|
|
|
+ '</font>'
|
|
|
+ if hypnoTime < 4:
|
|
|
+ act 'Continue':gt 'therapist', 'hypnoSuck'
|
|
|
+ else
|
|
|
+ if hypnoTime < 10:
|
|
|
+ act 'Continue':gt 'therapist', 'hypnoFuck'
|
|
|
+ elseif rand(0,3) = 0:
|
|
|
+ act 'Continue':gt 'therapist', 'hypnoPerv'
|
|
|
+ else
|
|
|
+ act 'Continue':gt 'therapist', 'hypnoFuck'
|
|
|
+ end
|
|
|
+ end
|
|
|
+ end
|
|
|
+ end
|
|
|
+end
|
|
|
+
|
|
|
+
|
|
|
+if $ARGS[0] = 'hypnoSuck':
|
|
|
+ act 'Wake up':gt 'therapist', 'hypnoEnd'
|
|
|
+end
|
|
|
+
|
|
|
+
|
|
|
+if $ARGS[0] = 'hypnoFuck':
|
|
|
+ act 'Wake up':gt 'therapist', 'hypnoEnd'
|
|
|
+end
|
|
|
+
|
|
|
+
|
|
|
+if $ARGS[0] = 'hypnoPerv':
|
|
|
+ pervact = rand(1,4)
|
|
|
+ if pervact = 0 and pregchem < 1863:
|
|
|
+ !impregnation
|
|
|
+ '<font color=brown>'
|
|
|
+ '"Tell me <i>Cunt</i>, are you pregnant?"'
|
|
|
+ if knowpreg = 1:
|
|
|
+ '"Yes <i>Master</i>, I am."'
|
|
|
+ '"I am happy for you! You know, every child is precious. Do you know who the father is?"'
|
|
|
+ if $wombthfath = '' or $wombthfath = 'Unknown':
|
|
|
+ '"No, <i>Master</i>, I do not."'
|
|
|
+ '"So you really are a cunt, Cunt! You fucked someone, and you got knocked up!" he laughs a while, then looks at you.'
|
|
|
+ '"You will not attempt to abort this child, you want to give birth to it, even though you do not know whos child do you carry."'
|
|
|
+ elseif $wombthfath = 'Kolka':
|
|
|
+ '"I believe that the father of my child is <<$wombpotfath>>", my little brother.'
|
|
|
+ '"Heh, so you not only had some incestous sex with your brother, but you also managed to get knocked up?" he seems to like a perverseness of the thought. "You will not attempt to abort this child, you want to give birth to yourlittle niece or nephew."'
|
|
|
+ elseif $wombthfath = 'Stepfather':
|
|
|
+ '"I believe that the father of my child is <<$wombpotfath>>."'
|
|
|
+ '"Heh, so you fucked you mother''s husband, the man who had changed your nappies? I think it is kind of nice of you to give him an another child... or is is grandchild? It seems to be complicated, doesn''t it?" he seems to like a perverseness of the thought. "You will not attempt to abort this child, he or she is not only your child, but your sibling too. You want to give birth to your sister."'
|
|
|
+ elseif strcomp($wombthfath, '.*Rapist$') = -1:
|
|
|
+ '"I believe that the <<$wombpotfath>> who raped me also impregnated me."'
|
|
|
+ '"I am sorry to hear that. But you will not attempt to abort this child, the thought abhors you, even though you were raped. The child is innocent of his father''s actions. You want to give birth to it."'
|
|
|
+ elseif strcomp($wombthfath, '.*a porn actor$') = -1:
|
|
|
+ '"I think that the father is <<$wombpotfath>>."'
|
|
|
+ '"So, you got knocked up by a porn actor? How did that happened?"'
|
|
|
+ '"I did a porn scene with him, and he came inside my pussy."'
|
|
|
+ '"Wow, a porn actress getting knocked up in a porn shoot! That is kinky! You will not attempt to abort this child, the thought abhors you. You want to give birth to it."'
|
|
|
+ elseif strcomp($wombthfath, '.*Business partner$') = -1:
|
|
|
+ '"I think that the father is a business partner my boss gave me to at work."'
|
|
|
+ '"So, you got knocked up by a guy whom your boss said to fuck for good relations?"'
|
|
|
+
|
|
|
+ elseif strcomp($wombthfath, '.*Courier$') = -1:
|
|
|
+ '"I think that the father is a courier who fucked me at work."'
|
|
|
+ '"So, you got knocked up by a guy whom gives you mails?"'
|
|
|
+ '"Yes, I believe that happened."'
|
|
|
+ '"Wow, what a slut! You will not attempt to abort this child, you want to give birth to it."'
|
|
|
+ else
|
|
|
+ '"I believe that the father of my child is <<$wombpotfath>>."'
|
|
|
+ '"Nice! You will not attempt to abort this child, you want to give it birth."'
|
|
|
+ end
|
|
|
+ if thinkpreg = 0:
|
|
|
+ '"I do not know, <i>Master</i>. I do not think so."'
|
|
|
+ '"You know what, let''s do a test." He pulls out a pregnancy test from his desk drawer, and hand it to you.'
|
|
|
+ '"Go to the bathroom, piss on this stick then come back."'
|
|
|
+ 'You do what he instructs you, finishing with the bathroom break in five minutes, and handing the test to him.'
|
|
|
+ '"Good, now masturbate while we wait for the result." You do what he instructs you to do while he waits for a few minutes for the fersult to show up.'
|
|
|
+ if pregchem > 30:
|
|
|
+ PavlovKnowpreg = 1
|
|
|
+ 'He looks at you with a slightly sadistic smile. "Congratulations, you are pregnant."'
|
|
|
+ else
|
|
|
+ 'The test showed one band. Not pregnant.'
|
|
|
+ end
|
|
|
+ else
|
|
|
+ '"I do not know, <i>Master</i>. It is possible."'
|
|
|
+ end
|
|
|
+ else
|
|
|
+ '"Great! Turn around and stand still, <i>Cunt</i>!" says the doctor, opening up his desk drawer and taking out a new syringe, a needle and a bottle of some liquid stuff.'
|
|
|
+ 'You turn around, waiting patiently, while he prepares an injection of some sort.'
|
|
|
+ if PavlovImpreg = 0:
|
|
|
+ '"Do you know what this is?" ask Dr. Pavlov showing you the now empty vial. Its label reads ''chorionic gonadotropin'', which is not helpful to you at all, so you shake your head and reply.'
|
|
|
+ '"No, <i>Master</i>, I do not know what is that."'
|
|
|
+ 'Dr. Pavlov smiles, kisses your lips and says, "This is a fast-acting fertility shot, called HCG. It will ripen one - or more - of your eggs in about 36 hours, readying for fertilization."'
|
|
|
+ 'You turn your head around and glance at him with the beginning of a panic, but he sees it and quickly acts upon it.'
|
|
|
+ '"<I>Cunt</i>, you do not have any objection against getting pregnant, understand?"'
|
|
|
+ 'You nod your head, the panic forgotten, but Dr. Pavlov continues.'
|
|
|
+ '"You want to get pregnant with my child, but you will have no objection of carrying the child of anyone that I instruct you to fuck. Do you want go get pregnant with my child?"'
|
|
|
+ '"Yes, <i>Master</i>, I want to get pregnant with your child, or the child of someone you choose for me."'
|
|
|
+ '"Good girl!" he says, and pushes the needle into your naked bum, injecting you with the fertility hormone.'
|
|
|
+ else
|
|
|
+ '"I decided it is time for yet another fertility shot, since you are still not pregnant," he scowls at you.'
|
|
|
+ '"I really am sorry, <i>Master</i>. I kept your seed im my body as long as I could."'
|
|
|
+ end
|
|
|
+ '"Yes, <i>Master</i>, I want to get pregnant with your child, or the child of someone you choose for me."'
|
|
|
+ '"Good girl!" he says, and pushes the needle into your naked bum, injecting you with the fertility hormone.'
|
|
|
+ '</font>'
|
|
|
+ killvar 'pervact'
|
|
|
+ act 'Wake up':gt 'therapist', 'hypnoEnd'
|
|
|
+ elseif pervact = 1:
|
|
|
+ !buddy
|
|
|
+
|
|
|
+ act 'Wake up':gt 'therapist', 'hypnoEnd'
|
|
|
+
|
|
|
+ elseif pervact = 2:
|
|
|
+ !dog
|
|
|
+ act 'Wake up':gt 'therapist', 'hypnoEnd'
|
|
|
+ else
|
|
|
+ !giving orders
|
|
|
+
|
|
|
+ act 'Wake up':gt 'therapist', 'hypnoEnd'
|
|
|
+ end
|
|
|
+end
|
|
|
+
|
|
|
+
|
|
|
+if $ARGS[0] = 'hypnoEnd':
|
|
|
+ CLOSE ALL
|
|
|
+ if hypnoTime < 4:
|
|
|
+ 'When you wake up, you see your therapist looking at you.'
|
|
|
+ '"How do you feel, Miss <<$surname>>?"'
|
|
|
+ 'You have a nagging feeling that you have forgotten somehing you should remember, but it is quickly forgotten, when you realize that you feel better about your problem. The therapy certainly helped a lot.'
|
|
|
+ 'You certainly do not notice that your mouth tastes like sperm.'
|
|
|
+ elseif hypnoTime < 7:
|
|
|
+ 'When you wake up, you see your therapist smiling.'
|
|
|
+ '"Very good, Miss <<$surname>>. How do you feel?"'
|
|
|
+ 'You ponder about it for a while, then you realize, that you feel better about your problem. The therapy certainly helped a lot.'
|
|
|
+ 'You don''t even notice that your <<$cumdesciption2>>.'
|
|
|
+ elseif hypnoTime < 10:
|
|
|
+ hypnoAddict = 1
|
|
|
+ hypnoDay = daystart
|
|
|
+ if exhibi < 2: exhibi += 1
|
|
|
+ pain['vaginal'] -= 3
|
|
|
+ pain['asshole'] -= 3
|
|
|
+ 'When you wake up, you see your therapist smiling.'
|
|
|
+ '"Very good, Miss <<$surname>>. How do you feel?"'
|
|
|
+ 'You didn''t even have to ponder about it, you immediately answer that you feel better. The therapy certainly helped a lot.'
|
|
|
+ 'You are also unconsciously aroused when you feel your therapist''s sperm slowly leaking out of your <<$cumdesciption3>>.'
|
|
|
+ else
|
|
|
+ hypnoAddict = 2
|
|
|
+ hypnoDay = daystart
|
|
|
+ if exhibi < 5: exhibi += 1
|
|
|
+ pain['vaginal'] -= 6
|
|
|
+ pain['asshole'] -= 6
|
|
|
+ 'When you wake up, you see your therapist fixing his shirt.'
|
|
|
+ '"Miss <<$surname>>, how do you feel right now?"'
|
|
|
+ 'Without hesitation, you reply.'
|
|
|
+ '"I feel wounderful, Dr. Pavlov."'
|
|
|
+ '"Good, just as expected," nods the doctor, as he escorts you aout of his office.'
|
|
|
+ 'You feel aroused, and you try to close your legs as you walk out, unconsciously trying to keep you psychologist''s sperm inside your <<$cumdesciption3>> as long as possible.'
|
|
|
+ end
|
|
|
+ act 'Leave':gt $loc
|
|
|
+end
|
|
|
+
|
|
|
+$hypnoDaychange = {
|
|
|
+ if hypnoStrength = 0 and hypnoTime > 0:
|
|
|
+ if hypnoAddict = 0:
|
|
|
+ hypnoStrength = 19
|
|
|
+ hypnoTime -= 1
|
|
|
+ elseif hypnoAddict = 1:
|
|
|
+ if rand(0,2) = 0:
|
|
|
+ hypnoStrength = 19
|
|
|
+ hypnoTime -= 1
|
|
|
+ if hypnoTime < 7:hypnoAddict = 0
|
|
|
+ end
|
|
|
+ else
|
|
|
+ if rand(0,4) = 0:
|
|
|
+ hypnoStrength = 19
|
|
|
+ hypnoTime -= 1
|
|
|
+ if hypnoTime < 10:hypnoAddict = 1
|
|
|
+ end
|
|
|
+ end
|
|
|
+ elseif hypnoStrength > 0:
|
|
|
+ hypnoStrength -= 1
|
|
|
+ end
|
|
|
+ if hypnoDay > 6:
|
|
|
+ if hypnoAddict = 1:
|
|
|
+ hypnoWithdrawal = 1
|
|
|
+ elseif hypnoAddict = 2:
|
|
|
+ hypnoWithdrawal = 2
|
|
|
+ end
|
|
|
+ end
|
|
|
+}
|
|
|
+
|
|
|
+$hypnoAddiction = {
|
|
|
+ if hypnoAddict = 1:
|
|
|
+ if cumloc[0] > 0 or cumloc[3] > 0:
|
|
|
+ horny += 1
|
|
|
+ mana += 1
|
|
|
+ willpower += 1
|
|
|
+ end
|
|
|
+ else
|
|
|
+ if cumloc[0] > 0 or cumloc[3] > 0:
|
|
|
+ horny += 2
|
|
|
+ mana += 2
|
|
|
+ willpower += 2
|
|
|
+ end
|
|
|
+ end
|
|
|
+}
|
|
|
+
|
|
|
+--- therapist ---------------------------------
|
|
|
+
|
Malen