# ybass $metkaM = $ARGS[0] $locM = $CURLOC $metka = $ARGS[0] $loc = $CURLOC '
Pool
' '
' clr gs 'stat' act 'Swim (0:15)': cla *clr set cumpussy = 0 set cumbelly = 0 set cumass = 0 set cumanus =0 set cumlip = 0 set cumface = 0 set cumfrot = 0 set minut += 15 if sweat > -3: set sweat = -3 set manna += 5 set willpower += 5 if stren < 40: set stren += 1 '
' 'You swim in the pool, the water is refreshing and invigorating.' act 'Out of the water': gt 'ybass' end act 'Go to your house': minut += 5 & gt 'youplace' --- ybass ---------------------------------