|
@@ -132,7 +132,7 @@ if temper >= 15 and month >= 5 and month <= 9:
|
|
|
pcs_mood += 5
|
|
|
gs 'stat'
|
|
|
|
|
|
- if $clothingworntype = 'swimwear' and pcs_hips<=90:
|
|
|
+ if ($clothingworntype = 'swimwear' and pcs_hips<=90) or $clothingworntype = 'beach':
|
|
|
'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/lake.walk.bikini0,'+rand(0,3)+'.jpg"></center>'
|
|
|
elseif $clothingworntype = 'swimwear' and pcs_hips >= 90 and pcs_hips<=110:
|
|
|
'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/lake.walk.bikini.fat0,0.jpg"></center>'
|
|
@@ -160,7 +160,7 @@ if temper >= 15 and month >= 5 and month <= 9:
|
|
|
pcs_mood += 5
|
|
|
! Seems appropriate. Potentially worth revisiting
|
|
|
if willday_swim ! daystart: willday_swim = daystart & pcs_willpwr += 1
|
|
|
- if $clothingworntype = 'swimwear':
|
|
|
+ if $clothingworntype = 'swimwear' or $clothingworntype = 'beach':
|
|
|
if pcs_inhib < 50:inhib_exp += rand(1,2)
|
|
|
elseif $clothingworntype = 'nude':
|
|
|
inhib_exp += rand(1,3)
|
|
@@ -182,35 +182,29 @@ if temper >= 15 and month >= 5 and month <= 9:
|
|
|
end
|
|
|
end
|
|
|
|
|
|
- if sunWeather = 1 and hour >= 6 and hour <= 20 and ($clothingworntype = 'swimwear' or $clothingworntype = 'nude'):
|
|
|
+ if sunWeather = 1 and hour >= 6 and hour <= 20 and ($clothingworntype = 'swimwear' or $clothingworntype = 'beach' or $clothingworntype = 'nude'):
|
|
|
act 'Go sunbathing (30 minutes)':
|
|
|
menu_off = 1
|
|
|
- if $clothingworntype = 'swimwear' or $clothingworntype = 'nude':
|
|
|
- *clr & cla
|
|
|
- minut = minut + 30
|
|
|
- if pcs_sweat < 35 : gs 'sweat', 'add', 5
|
|
|
- pcs_mood += 5
|
|
|
- if $clothingworntype = 'swimwear':
|
|
|
- '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/sunbath.jpg"></center>'
|
|
|
- if pcs_inhib < 50:inhib_exp += rand(1,2)
|
|
|
- else
|
|
|
- '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/sunbathnude.jpg"></center>'
|
|
|
- inhib_exp += rand(1,3)
|
|
|
- end
|
|
|
- if krem = 0:
|
|
|
- pcs_tan += 1
|
|
|
- 'You lie down on your towel for some sunbathing and hopefully a nicer tan, and enjoy the warm rays of the sun on your body.'
|
|
|
- else
|
|
|
- krem -= 1
|
|
|
- pcs_tan += 3
|
|
|
- 'You smear your body with sunscreen and lie down on your towel for some sunbathing, hoping to work on your tan. You enjoy the warm rays of the sun on your body.'
|
|
|
- end
|
|
|
- act 'Continue': gt 'gLakeNude'
|
|
|
+ *clr & cla
|
|
|
+ minut = minut + 30
|
|
|
+ if pcs_sweat < 35 : gs 'sweat', 'add', 5
|
|
|
+ pcs_mood += 5
|
|
|
+ if $clothingworntype = 'swimwear' or $clothingworntype = 'beach':
|
|
|
+ '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/sunbath.jpg"></center>'
|
|
|
+ if pcs_inhib < 50:inhib_exp += rand(1,2)
|
|
|
else
|
|
|
- cla
|
|
|
- 'You have to take off your clothes before you can lay down to sunbathe.'
|
|
|
- act 'Continue': gt 'gLakeNude'
|
|
|
+ '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/sunbathnude.jpg"></center>'
|
|
|
+ inhib_exp += rand(1,3)
|
|
|
+ end
|
|
|
+ if krem = 0:
|
|
|
+ pcs_tan += 1
|
|
|
+ 'You lie down on your towel for some sunbathing and hopefully a nicer tan, and enjoy the warm rays of the sun on your body.'
|
|
|
+ else
|
|
|
+ krem -= 1
|
|
|
+ pcs_tan += 3
|
|
|
+ 'You smear your body with sunscreen and lie down on your towel for some sunbathing, hoping to work on your tan. You enjoy the warm rays of the sun on your body.'
|
|
|
end
|
|
|
+ act 'Continue': gt 'gLakeNude'
|
|
|
end
|
|
|
end
|
|
|
|
|
@@ -350,7 +344,7 @@ if $ARGS[0] = 'sauna':
|
|
|
end
|
|
|
end
|
|
|
|
|
|
- if $clothingworntype = 'nude' or $clothingworntype = 'swimwear':
|
|
|
+ if $clothingworntype = 'nude' or $clothingworntype = 'swimwear' or $clothingworntype = 'beach':
|
|
|
act 'Go to the womens section':
|
|
|
*clr & cla
|
|
|
menu_off = 1
|
|
@@ -382,7 +376,7 @@ if $ARGS[0] = 'sauna':
|
|
|
pcs_skin += rand(2,4)
|
|
|
pcs_willpwr += 3
|
|
|
end
|
|
|
- if $clothingworntype = 'swimwear':
|
|
|
+ if $clothingworntype = 'swimwear' or $clothingworntype = 'beach':
|
|
|
'<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
|
|
@@ -405,7 +399,7 @@ if $ARGS[0] = 'sauna':
|
|
|
'It appears to be empty at the moment.'
|
|
|
act 'Leave': gt 'gLakeNude', 'sauna'
|
|
|
gs 'willpower', 'exhib', 'self', 'hard'
|
|
|
- if saunarand < 4 or $clothingworntype = 'swimwear': will_cost = 3
|
|
|
+ if saunarand < 4 or $clothingworntype = 'swimwear' or $clothingworntype = 'beach': will_cost = 3
|
|
|
if will_cost <= pcs_willpwr:
|
|
|
act 'Use the sauna (<<will_cost>> Willpower)':
|
|
|
*clr & cla
|
|
@@ -416,7 +410,7 @@ if $ARGS[0] = 'sauna':
|
|
|
pcs_skin += rand(2,4)
|
|
|
pcs_willpwr += 3
|
|
|
end
|
|
|
- if $clothingworntype = 'swimwear':
|
|
|
+ if $clothingworntype = 'swimwear' or $clothingworntype = 'beach':
|
|
|
'<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
|
|
@@ -454,9 +448,9 @@ if $ARGS[0] = 'sauna':
|
|
|
end
|
|
|
end
|
|
|
gs 'willpower', 'exhib', 'self', 'easy'
|
|
|
- if saunarand < 4 or $clothingworntype = 'swimwear': will_cost = 0
|
|
|
+ if saunarand < 4 or $clothingworntype = 'swimwear' or $clothingworntype = 'beach': will_cost = 0
|
|
|
if will_cost <= pcs_willpwr:
|
|
|
- act iif(saunarand < 4 or $clothingworntype = 'swimwear', 'Use the sauna', 'Use the sauna (<<will_cost>> Willpower)'):
|
|
|
+ act iif(saunarand < 4 or $clothingworntype = 'swimwear' or $clothingworntype = 'beach', 'Use the sauna', 'Use the sauna (<<will_cost>> Willpower)'):
|
|
|
*clr & cla
|
|
|
gs 'willpower', 'pay', 'self'
|
|
|
minut += 30
|
|
@@ -466,7 +460,7 @@ if $ARGS[0] = 'sauna':
|
|
|
pcs_skin += rand(2,4)
|
|
|
pcs_willpwr += 3
|
|
|
end
|
|
|
- if $clothingworntype = 'swimwear':
|
|
|
+ if $clothingworntype = 'swimwear' or $clothingworntype = 'beach':
|
|
|
'<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
|
|
@@ -497,7 +491,7 @@ if $ARGS[0] = 'ice_plunge':
|
|
|
minut += 10
|
|
|
pcs_mood += 10
|
|
|
if pcs_sweat > 10: pcs_sweat = 10 + rand(0,4)
|
|
|
- if $clothingworntype = 'swimwear':
|
|
|
+ if $clothingworntype = 'swimwear' or $clothingworntype = 'beach':
|
|
|
'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/secluded_beach/sauna/icedipbikini.jpg"></center>'
|
|
|
if pcs_inhib < 50:inhib_exp += rand(0,1)
|
|
|
else
|