|
@@ -15,21 +15,24 @@
|
|
|
if $ARGS[0] = 'init':
|
|
|
if succubusQW = 5 and scpopt = 1 and succhungry < 1:
|
|
|
'You sense <<$sucself1>> perk up, ready to spring forth...'
|
|
|
- act 'Call your power and feed (takes a lot of time)': scpopt = 0 & gt 'succubus', 'init'
|
|
|
- act 'Refrain from feeding, you don''t have the time now':
|
|
|
+ act 'Call your power and feed (Takes a lot of time)': scpopt = 0 & gt 'succubus', 'init'
|
|
|
+ act 'Try to control your urges':
|
|
|
cla
|
|
|
'You try to contain <<$sucself1>>...'
|
|
|
- if pcs_willpwr >= rand(20,40) + (40 * succublvl):
|
|
|
- !!the willpower check values are based on a willpowermax of 200
|
|
|
+ gs 'willpower', 'misc'
|
|
|
+ will_cost = will_cost * succublvl
|
|
|
+ if will_cost <= pcs_willpwr:
|
|
|
+ gs 'willpower', 'resist'
|
|
|
'And you''re successful, <<$sucself1>> returns to your core.'
|
|
|
act 'Continue': scpopt = 2 & gt $sclocrt, $scargrt
|
|
|
else
|
|
|
- 'And you fail, <<$sucself1>> continues rising toward the surface of your being.'
|
|
|
+ '<br>You don''t have enough willpower to control your urges.'
|
|
|
+ '<<$sucself1>> continues rising toward the surface of your being.'
|
|
|
succonfail = 1
|
|
|
scpopt = 0
|
|
|
xgt 'succubus', 'init'
|
|
|
end
|
|
|
- end
|
|
|
+ end
|
|
|
elseif succubusQW = 4:
|
|
|
gt 'succubus', 'firsttime'
|
|
|
else
|