|
@@ -169,7 +169,7 @@ if temper >= 15 and month >= 5 and month <= 9:
|
|
|
minut = minut + 30
|
|
|
pcs_mood += 5
|
|
|
! Seems appropriate. Potentially worth revisiting
|
|
|
- pcs_willpwr += 1
|
|
|
+ if willday_swim ! daystart: willday_swim = daystart & pcs_willpwr += 1
|
|
|
if $clothingworntype = 'swimwear':
|
|
|
if pcs_inhib < 50:inhib_exp += rand(1,2)
|
|
|
elseif $clothingworntype = 'nude':
|
|
@@ -359,10 +359,6 @@ if $ARGS[0] = 'sauna':
|
|
|
*clr & cla
|
|
|
menu_off = 1
|
|
|
minut += 2
|
|
|
- if sauna_daystart ! daystart:
|
|
|
- sauna_daystart = daystart
|
|
|
- pcs_skin += rand(2,4)
|
|
|
- end
|
|
|
gs 'stat'
|
|
|
if hour < 8 or hour > 22:
|
|
|
'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/secluded_beach/sauna/saunaempty.jpg"></center>'
|
|
@@ -385,6 +381,11 @@ if $ARGS[0] = 'sauna':
|
|
|
*clr & cla
|
|
|
minut +=30
|
|
|
pcs_mood += 10
|
|
|
+ if sauna_daystart ! daystart:
|
|
|
+ sauna_daystart = daystart
|
|
|
+ pcs_skin += rand(2,4)
|
|
|
+ pcs_willpwr += 3
|
|
|
+ end
|
|
|
if $clothingworntype = 'swimwear':
|
|
|
'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/secluded_beach/sauna/saunabikini.jpg"></center>'
|
|
|
if pcs_inhib < 40: inhib_exp += rand(0,1)
|
|
@@ -403,39 +404,42 @@ if $ARGS[0] = 'sauna':
|
|
|
*clr & cla
|
|
|
menu_off = 1
|
|
|
minut += 2
|
|
|
- if sauna_daystart ! daystart:
|
|
|
- sauna_daystart = daystart
|
|
|
- pcs_skin += rand(2,4)
|
|
|
- end
|
|
|
gs 'stat'
|
|
|
'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/secluded_beach/sauna/saunaempty.jpg"></center>'
|
|
|
'It appears to be empty at the moment.'
|
|
|
act 'Leave': gt 'gLakeNude', 'sauna'
|
|
|
- act 'Use the sauna':
|
|
|
- *clr & cla
|
|
|
- minut += 30
|
|
|
- pcs_mood += 10
|
|
|
- if $clothingworntype = 'swimwear':
|
|
|
- '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/secluded_beach/sauna/saunabikini.jpg"></center>'
|
|
|
- if pcs_inhib < 40: inhib_exp += rand(0,1)
|
|
|
- else
|
|
|
- '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/secluded_beach/sauna/saunanude.jpg"></center>'
|
|
|
- if pcs_inhib < 60: inhib_exp += rand(1,2)
|
|
|
+ gs 'willpower', 'exhib', 'self', 'hard'
|
|
|
+ if saunarand < 4 or $clothingworntype = 'swimwear': will_cost = 3
|
|
|
+ if will_cost <= pcs_willpwr:
|
|
|
+ act 'Use the sauna (<<will_cost>> Willpower)':
|
|
|
+ *clr & cla
|
|
|
+ minut += 30
|
|
|
+ pcs_mood += 10
|
|
|
+ if sauna_daystart ! daystart:
|
|
|
+ sauna_daystart = daystart
|
|
|
+ pcs_skin += rand(2,4)
|
|
|
+ pcs_willpwr += 3
|
|
|
+ end
|
|
|
+ if $clothingworntype = 'swimwear':
|
|
|
+ '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/secluded_beach/sauna/saunabikini.jpg"></center>'
|
|
|
+ if pcs_inhib < 40: inhib_exp += rand(0,1)
|
|
|
+ else
|
|
|
+ '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/secluded_beach/sauna/saunanude.jpg"></center>'
|
|
|
+ if pcs_inhib < 60: inhib_exp += rand(1,2)
|
|
|
+ end
|
|
|
+ 'You spend 30 minutes relaxing in the sauna.'
|
|
|
+
|
|
|
+ act 'Leave': gt 'gLakeNude', 'sauna'
|
|
|
+ if month = 12 or month < 3: gs 'gLakeNude', 'ice_plunge'
|
|
|
end
|
|
|
- 'You spend 30 minutes relaxing in the sauna.'
|
|
|
-
|
|
|
- act 'Leave': gt 'gLakeNude', 'sauna'
|
|
|
- if month = 12 or month < 3: gs 'gLakeNude', 'ice_plunge'
|
|
|
+ else
|
|
|
+ act 'Use the sauna (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
|
|
|
end
|
|
|
end
|
|
|
act 'Go to the co-ed section':
|
|
|
*clr & cla
|
|
|
menu_off = 1
|
|
|
minut += 2
|
|
|
- if sauna_daystart ! daystart:
|
|
|
- sauna_daystart = daystart
|
|
|
- pcs_skin += rand(2,4)
|
|
|
- end
|
|
|
gs 'stat'
|
|
|
if hour < 8 or hour > 22:
|
|
|
'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/secluded_beach/sauna/saunaempty.jpg"></center>'
|
|
@@ -461,6 +465,11 @@ if $ARGS[0] = 'sauna':
|
|
|
gs 'willpower', 'pay', 'self'
|
|
|
minut += 30
|
|
|
pcs_mood += 10
|
|
|
+ if sauna_daystart ! daystart:
|
|
|
+ sauna_daystart = daystart
|
|
|
+ pcs_skin += rand(2,4)
|
|
|
+ pcs_willpwr += 3
|
|
|
+ end
|
|
|
if $clothingworntype = 'swimwear':
|
|
|
'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/secluded_beach/sauna/saunabikini.jpg"></center>'
|
|
|
if pcs_inhib < 40: inhib_exp += rand(0,1)
|