# ybass
$metkaM = $ARGS[0]
$locM = $CURLOC
$metka = $ARGS[0]
$loc = $CURLOC
clr
gs 'stat'
'
Swimming Pool'
''
if $clothingworntype ! 'nude': act 'Go to your house':minut += 5 & gt 'youplace'
act 'Go into Gym': gt 'ysport'
act 'Swim (1:00)':
cla
*clr
cumspclnt = 10
gs 'cum_cleanup'
minut += 60
pcs_sweat = 10 + rand(0,4)
pcs_mood += 5
pcs_willpwr += 5
if pcs_stren < 40:stren_exp += 1
''
'You swim in the pool, the water refreshes and invigorates.'
act 'Out of the water':gt 'ybass'
end
--- ybass ---------------------------------