|
@@ -172,26 +172,25 @@ if $ARGS[0] = '1':
|
|
|
'As you masturbate, you totally abandon yourself to the pleasure of your coming orgasm. A doctor enters the room but you are so absorbed in your own pleasure that you only notice him when his hand starts to guide your head to his erect cock.'
|
|
|
gs 'arousal', 'masturbate', 10
|
|
|
gs 'stat'
|
|
|
- if pcs_horny < 50:
|
|
|
-
|
|
|
- act 'Break and run':
|
|
|
+
|
|
|
+ gs 'willpower', 'sex', 'resist'
|
|
|
+ if will_cost <= pcs_willpwr:
|
|
|
+ act 'Break and run (<<will_cost>> Willpower)':
|
|
|
gs 'arousal', 'end'
|
|
|
+ gs 'willpower', 'pay', 'resist'
|
|
|
gt 'WorkHosp', 'start'
|
|
|
end
|
|
|
+ else
|
|
|
+ act 'Break and run (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
|
|
|
+ end
|
|
|
|
|
|
- gs 'willpower', 'sex', 'self'
|
|
|
- if will_cost <= pcs_willpwr:
|
|
|
- act 'Go along with it (<<will_cost>> Willpower)':
|
|
|
- guy += 1
|
|
|
- picrand = 12
|
|
|
- gs 'WorkHosp', 'randdoc'
|
|
|
- if docfuck[randdoc] = 1:guy += 1
|
|
|
- gs 'willpower', 'pay', 'self'
|
|
|
- gt 'sex', 'minet'
|
|
|
- end
|
|
|
- else
|
|
|
- act 'Go along with it (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
|
|
|
- end
|
|
|
+ act 'Go along with it':
|
|
|
+ guy += 1
|
|
|
+ picrand = 12
|
|
|
+ gs 'WorkHosp', 'randdoc'
|
|
|
+ if docfuck[randdoc] = 1:guy += 1
|
|
|
+
|
|
|
+ gt 'sex', 'minet'
|
|
|
end
|
|
|
else
|
|
|
picrand = rand(12, 13)
|