# saunawork
$metka = $ARGS[0]
$loc = $CURLOC
$metkaBroom = $ARGS[0]
$locBroom = $CURLOC
$metkaM = $ARGS[0]
$locM = $CURLOC
saunaYouRoom=1
if paymamka=0:paymamka=300
if workDolg>0:paymamka=300
if workDolg<=0:paymamka=500
gs'stat'
'<center><B><font color=maroon>sauna</font></B></center>'
'<center><img src="pic/sauna1.jpg" ></center>'
'On the walls full of <a href="exec:GT ''mirror'',''start''">mirrors</a>.'
if saunaWorkNow=1:
	 set saunaWorkNow=0
	 set money-=paymamka
	 'To you approached the nurse and took with you <<paymamka>> rubles per customer.'
	 end
if money>0 and workDolg>0:workDolg-=money&money=0
if workDolg>0:'Your duty is <<workDolg>> rubles'
gs'stat'
if workDolg<=0:act 'Get_Away':gt 'sauna'
if workDolg>0:act 'Go to your room':gt 'saunaroom'

if hour>8 and hour<12 and whorehour!hour:
whorehour=hour
klientrand=RAND(0,100)
     if klientrand>=80:saunaWorkKlient=1
end
if hour>=12 and hour<16 and whorehour!hour:
whorehour=hour
klientrand=RAND(0,100)
     if klientrand>=50:saunaWorkKlient=1
end
if hour>=16 and hour<21 and whorehour!hour:
whorehour=hour
klientrand=RAND(0,100)
     if klientrand>=10:saunaWorkKlient=1
end
if hour>=21 and whorehour!hour:
whorehour=hour
saunaWorkKlient=1
end

if saunaWorkKlient=1:
cls
gs'stat'
'<center><img src="pic/saunawhore.jpg" ></center>'
'In the sauna came client, girls lined up whatever the client can choose your favorite.'
     if mop>1 and hapri=1 and sweat<=0 and leghair<=0 and lobok<=0:
     whorerand=RAND(0,25)
         if whorerand<vnesh:
         'Client jabbed a finger at you "Here is the."'
             act 'Go to the sauna with the client':saunaWorkKlient=0&gt 'saunawhore'
         else
         'Client examined critical glance and you turned away chose another girl.'
         act 'Go_Out':saunaWorkKlient=0&gt $curloc
         end
     else
     'Looking at your client immediately turned away and chose another girl.'
     act 'Go_Out':saunaWorkKlient=0&gt $curloc
     end
exit
end

if vnesh=-10 or SLomka>0:
cls
gs'stat'
workDolg+=1500
'You beckoned nurse. "Hey."'
'You approached her and demanded that she expose your hand. You have done the required and she took a syringe with some rubbish. "sit quietly, Now do a shot and bring you to the normal view."'
act 'Go_Out':StrongNarkota+=25&SNarkTimes+=1&minut+=10&gt $curloc
exit
end

	 act 'Sitting on the couch (1 h)':
	 cls
	 minut+=60
	 gs'stat'
	 '<center><img src="pic/saunawork.jpg" ></center>'
	 'You are within an hour sitting on the couch waiting for customers.'
	 act 'Go_Out':gt $curloc
	 end

     if clenerSauna ! day:
         act 'clean toilets (1 h)':
         cla
         *clr
         set minut = minut + 60
         set clenerSauna = day
         set manna = manna - 25
         workDolg-=100
         set sweat = sweat + 3
         '<center><img src="pic/clener2.jpg" ></center>'
         'You are within an hour scrubbed toilets in the sauna to shine.'
         act 'Go_Out':gt $curloc
         end
     end
     
     if clenerSauna2 ! day:
         act 'scrubbing floors (1 h)':
         cla
         *clr
         set minut = minut + 60
         set clenerSauna2 = day
         set manna = manna - 25
         workDolg-=100
         set sweat = sweat + 3
         '<center><img src="pic/clener1.jpg" ></center>'
         'You are within an hour scrubbed floors mop to shine.'
         act 'Go_Out':gt $curloc
         end
     end
     
     act 'take a shower 15 min':
     cla
     *clr
     set minut = minut + 15
     set sweat = -3
     set horny = horny + 1
     set hapri = 0
     set mop = 1
     dynamic $showerdin
     if frost>0:frost=0
     '<center><img src="pics/dush.jpg" ></center>'
     'You got into the bathroom and turned on the shower. Soaped and washed the body in the shower.'
          act 'get razor':dynamic $saunabrit
         
         if horny >= 90:
             act 'Send a shower pussy':
             cla
             *clr
             set horny = 0
             set minut = minut + 30
             set mastr = mastr + 1
             set orgasm = orgasm + 1
			 set manna = manna + 15
			 set willpower = willpower + 15
             '<center><img src="pics/wash2.jpg" ></center>'
             'You sent a shower pussy and tight jet of warm water began to caress you. Soon you will feel like a warm wave covers your whole body and you start to shudder in orgasm.'
             act 'Out of the bathroom and get dressed':gt $curloc
             end
         end
         if horny >= 40 and hormy < 90:
             act 'Send a shower pussy':
             cla
             *clr
             set horny = horny + 5
             set minut = minut + 30
			 set manna = manna + 10
			 set willpower = willpower + 10
             '<center><img src="pics/wash2.jpg" ></center>'
             'You sent a shower pussy and tight jet of warm water began to caress you. First, but after a while it became even as it hurts. Excitation asleep and you stop masturbating.'
             act 'Out of the bathroom and get dressed':gt $curloc
             end
         end
         
     act 'Out of the bathroom and get dressed':gt $curloc
     end

$saunabrit={
cls
'You rinsed the razor, blade which will suffice for <<stanok>> time.'
     if leghair > 0:
		 act 'shave your legs 15 min':
		 cla
		 *clr
		 set minut = minut + 15
		 set leghair = -5
		 set horny = horny + 5
		 '<center><img src="pics/shave.jpg" ></center>'
		 'You lathered up and shaved off the hair with them.'
		 act 'postpone the machine':dynamic $saunabrit
		 end
     end
     if lobok > 0:
		 act 'Shaved 15 min':
		 cla
		 *clr
		 set minut = minut + 15
		 set lobok = -5
		 set horny = horny + 5
		 '<center><img src="pics/shave3.jpg" ></center>'
		 'You lathered pubis, then shaved off his hair all.'
		 act 'postpone the machine':dynamic $saunabrit
		 end
     end

act 'Out of the bathroom and get dressed':gt $curloc
}











































































--- saunawork ---------------------------------

