# yban
$metkaM = $ARGS[0]
$locM = $CURLOC
$metka = $ARGS[0]
$loc = $CURLOC
clr
gs 'stat'
fcolor = rgb(0, 0, 0)
bcolor = rgb(255, 255, 255)
lcolor = rgb(106, 90, 205)
'
Bath'
''
if $clothingworntype ! 'nude':act 'Go to your house':minut += 5 & gt 'youplace'
act 'Go into Gym': minut += 5 & gt 'ysport'
if saunaday ! daystart:
act 'Use Sauna':
cls
minut += 60
fat -= 10
sweat = rand(0,5)
dynamic $showerdin
saunaday = daystart
manna = (pcs_intel * magik) + magik * 100 + pcs_vital * 10 + rikudo
gs 'stat'
''
'You spend an hour relaxing in the heat of the sauna, having a cool shower and dressing. You feel revitalised.'
act 'Leave':gt 'yban'
end
end
--- yban ---------------------------------