|
@@ -52,6 +52,7 @@ if $ARGS[0] = '':
|
|
|
'"Please, visit me again if you have any further problems, I will be glad to help!" Says Dr. Pavlov, as he escort you out of his door.'
|
|
|
act 'Leave':gt $loc
|
|
|
end
|
|
|
+{Former willpower change, not used anymore
|
|
|
act 'Raise your confidence':
|
|
|
cla
|
|
|
*clr
|
|
@@ -70,8 +71,7 @@ if $ARGS[0] = '':
|
|
|
act 'Leave':gt $loc
|
|
|
end
|
|
|
act 'Hypnotherapy':gt 'therapist', 'hypno'
|
|
|
- end
|
|
|
-!{ Temporarily disabled until sub & dom sexual traits/preferences are added
|
|
|
+ end}
|
|
|
act 'Raise your dominance':
|
|
|
cla
|
|
|
*clr
|
|
@@ -103,14 +103,13 @@ if $ARGS[0] = '':
|
|
|
cls
|
|
|
'<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/therapist/therapy1.jpg"></center>'
|
|
|
minut += 60
|
|
|
- sub += rand(0,1)
|
|
|
gs 'stat'
|
|
|
'You talk about your strong dominance issues, and Dr. Pavlov makes some suggestions, and asks 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.'
|
|
|
'"Please, visit me again if you have any further problems, I will be glad to help!" Says Dr. Pavlov, as he escort you out of his door.'
|
|
|
act 'Leave':gt $loc
|
|
|
end
|
|
|
act 'Hypnotherapy':gt 'therapist', 'hypno'
|
|
|
- end}
|
|
|
+ end
|
|
|
!{ act 'Hypnotherapy to fight addiction':
|
|
|
cls
|
|
|
money -= 1000
|
|
@@ -166,17 +165,12 @@ if $ARGS[0] = 'hypno':
|
|
|
if hypnoStrength > 20:hypnoStrength = 20
|
|
|
end
|
|
|
|
|
|
- if $therapy = 'confidence':
|
|
|
- pcs_willpwr += rand(1,2)
|
|
|
- $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>..."'
|
|
|
- !{ Already disabled up top, but for the sake of marking it..
|
|
|
- elseif $therapy = 'dominance':
|
|
|
- pcs_dom += rand(1,2)
|
|
|
+ if $therapy = 'dominance':
|
|
|
+ willpowermax += rand(1,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 cause 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 += rand(1,2)
|
|
|
+ willpowermax -= rand(1,2)
|
|
|
$session = 'You want to be told what to do and what to think, what to feel and whom to please. Obeying others pleases you because it pleases them, and for a while you do not have to take responsibility for your actions."<br>...<br>...<br>..."'
|
|
|
- }
|
|
|
elseif $therapy = 'trauma':
|
|
|
pcs_childtrauma -= rand(2,4)
|
|
|
if pcs_childtrauma >0:
|