# stwork2
!set minut = minut + 15
'<center><B><font color=maroon>scene</font></B></center>'
'<center><img src="pic/stripclub1.jpg" ></center>'
if publichot<10:$pubhot='and you boo, heard screams "remove this stupid cow"'
if publichot>=10 and publichot<20:$pubhot='and you boo'
if publichot>=20 and publichot<30:$pubhot='and frankly bored Catching a drink and talk to each other'
if publichot>=30 and publichot<60:$pubhot='sometimes throws at you views accompanied by smiles'
if publichot>=60 and publichot<70:$pubhot='and legim interest examined you and conduct conversations with each other over a beer'
if publichot>=70 and publichot<80:$pubhot='with interest to examine you'
if publichot>=80 and publichot<90:$pubhot='with strained faces, some even noticeable sweat on their foreheads'
if publichot>=90:$pubhot='forgotten about their drinking, hooting and shaking money'
'Men sitting in front of the stage <<$pubhot>>.'
clr
gs'stat'
$pubhotdi={
if publichot<30:payrand=0&'No one paid any attention to your movements on stage.'
if publichot>=30 and publichot<60:payrand=0&'A couple of people looked at you but no more, tips you did not give a.'
if publichot>=60 and publichot<70:
payrand=RAND(0,1)
     if payrand=0:'A couple of people looked at you but no more, tips you did not give a.'
     if payrand=1:
     paymoneyrand=RAND(1,3)
     money+=paymoneyrand*10
     'What a guy shoved you in panties <<paymoneyrand>>0 rubles'
     end
end
if publichot>=70 and publichot<80:
payrand=RAND(0,5)
     if payrand=0:'Tip you gave no.'
     if payrand=1:
     paymoneyrand=RAND(1,3)
     money+=paymoneyrand*10
     'What a guy shoved you in panties <<paymoneyrand>>0 rubles'
     end
     if payrand=2:
     paymoneyrand=RAND(2,4)
     money+=paymoneyrand*10
     'What a guy shoved you in panties <<paymoneyrand>>0 rubles'
     end
     if payrand=3:
     paymoneyrand=RAND(3,5)
     money+=paymoneyrand*10
     'What a guy shoved you in panties <<paymoneyrand>>0 rubles'
     end
     if payrand=4:
     paymoneyrand=RAND(4,6)
     money+=paymoneyrand*10
     'What a guy shoved you in panties <<paymoneyrand>>0 rubles'
     end
     if payrand=5:
     paymoneyrand=RAND(5,10)
     money+=paymoneyrand*10
     'What a guy shoved you in panties <<paymoneyrand>>0 rubles'
     end
end

if publichot>=80 and publichot<90:
payrand=RAND(0,10)
     if payrand=0:'Tip you gave no.'
     if payrand=1:
     paymoneyrand=RAND(1,3)
     money+=paymoneyrand*10
     'What a guy shoved you in panties <<paymoneyrand>>0 rubles'
     end
     if payrand=2:
     paymoneyrand=RAND(2,4)
     money+=paymoneyrand*10
     'What a guy shoved you in panties <<paymoneyrand>>0 rubles'
     end
     if payrand=3:
     paymoneyrand=RAND(3,5)
     money+=paymoneyrand*10
     'What a guy shoved you in panties <<paymoneyrand>>0 rubles'
     end
     if payrand=4:
     paymoneyrand=RAND(4,6)
     money+=paymoneyrand*10
     'What a guy shoved you in panties <<paymoneyrand>>0 rubles'
     end
     if payrand=5:
     paymoneyrand=RAND(5,10)
     money+=paymoneyrand*10
     'What a guy shoved you in panties <<paymoneyrand>>0 rubles'
     end
     if payrand=6:
     paymoneyrand=RAND(7,12)
     money+=paymoneyrand*10
     'What a guy shoved you in panties <<paymoneyrand>>0 rubles'
     end
     if payrand=7:
     paymoneyrand=RAND(10,15)
     money+=paymoneyrand*10
     'What a guy shoved you in panties <<paymoneyrand>>0 rubles'
     end
     if payrand=8:
     paymoneyrand=RAND(15,20)
     money+=paymoneyrand*10
     'What a guy shoved you in panties <<paymoneyrand>>0 rubles'
     end
     if payrand=9:
     paymoneyrand=RAND(20,30)
     money+=paymoneyrand*10
     'What a guy shoved you in panties <<paymoneyrand>>0 rubles'
     end
     if payrand=10:
     paymoneyrand=RAND(30,50)
     money+=paymoneyrand*10
     'What a guy shoved you in panties <<paymoneyrand>>0 rubles'
     end
end
if publichot>=90:
payrand=RAND(0,15)
     if payrand=0:'Tip you gave no.'
     if payrand=1:
     paymoneyrand=RAND(1,3)
     money+=paymoneyrand*10
     'What a guy shoved you in panties <<paymoneyrand>>0 rubles'
     end
     if payrand=2:
     paymoneyrand=RAND(2,4)
     money+=paymoneyrand*10
     'What a guy shoved you in panties <<paymoneyrand>>0 rubles'
     end
     if payrand=3:
     paymoneyrand=RAND(3,5)
     money+=paymoneyrand*10
     'What a guy shoved you in panties <<paymoneyrand>>0 rubles'
     end
     if payrand=4:
     paymoneyrand=RAND(4,6)
     money+=paymoneyrand*10
     'What a guy shoved you in panties <<paymoneyrand>>0 rubles'
     end
     if payrand=5:
     paymoneyrand=RAND(5,10)
     money+=paymoneyrand*10
     'What a guy shoved you in panties <<paymoneyrand>>0 rubles'
     end
     if payrand=6:
     paymoneyrand=RAND(7,12)
     money+=paymoneyrand*10
     'What a guy shoved you in panties <<paymoneyrand>>0 rubles'
     end
     if payrand=7:
     paymoneyrand=RAND(10,15)
     money+=paymoneyrand*10
     'What a guy shoved you in panties <<paymoneyrand>>0 rubles'
     end
     if payrand=8:
     paymoneyrand=RAND(15,20)
     money+=paymoneyrand*10
     'What a guy shoved you in panties <<paymoneyrand>>0 rubles'
     end
     if payrand=9:
     paymoneyrand=RAND(20,30)
     money+=paymoneyrand*10
     'What a guy shoved you in panties <<paymoneyrand>>0 rubles'
     end
     if payrand=10:
     paymoneyrand=RAND(30,40)
     money+=paymoneyrand*10
     'What a guy shoved you in panties <<paymoneyrand>>0 rubles'
     end
     if payrand=11:
     paymoneyrand=RAND(40,50)
     money+=paymoneyrand*10
     'What a guy shoved you in panties <<paymoneyrand>>0 rubles'
     end
     if payrand=12:
     paymoneyrand=RAND(50,60)
     money+=paymoneyrand*10
     'What a guy shoved you in panties <<paymoneyrand>>0 rubles'
     end
     if payrand=13:
     paymoneyrand=RAND(60,70)
     money+=paymoneyrand*10
     'What a guy shoved you in panties <<paymoneyrand>>0 rubles'
     end
     if payrand=14:
     paymoneyrand=RAND(70,80)
     money+=paymoneyrand*10
     'What a guy shoved you in panties <<paymoneyrand>>0 rubles'
     end
     if payrand=15:
     paymoneyrand=RAND(80,100)
     money+=paymoneyrand*10
     'What a guy shoved you in panties <<paymoneyrand>>0 rubles'
     end
end
}

if hour >= 15 or hour<=2:
     if stpredmet>0:
		 act 'striptease 5 minutes (<<stpredmet>> garments)':
		 cls
		 minut+=5
		 stpredmet-=1
		 sweat+=1
		 fat-=3
		 manna-=RAND(5,10)
		 if stpredmet=1:sweat+=1
		 if stpredmet=0:hapri=0&stripdancesum+=1
		 publichot+=RAND(stripdance/30,stripdance/10)
		 if publichotstart=publichot:publichot-=RAND(5,10)&publichotstart=publichot
		 gs'stat'
		 '<center><img src="pic/stripclub2.jpg" ></center>'
		 'You danced on stage before an audience undressing.'
		 	 if ves>rost-90:
		     vesrand=RAND(0,100)
		         if vesrand>=75:
		         publichot-=RAND(5,10)
		         'In the hall laugh at you, "Look how fat she hang. Yeah and ass shaking like jelly."'
		         end
		     end 
		 dynamic $pubhotdi
		 act 'further':gt $curloc
		 end
		 
		 act 'Dancing around the pole 5 minutes (<<stpredmet>> garments)':
		 cls
		 minut+=5
		 stpredmet-=1
		 sweat+=2
		 fat-=5
		 manna-=RAND(10,50)
		 if stpredmet=1:hapri=0
		 if stpredmet=0:mop=0&stripdancesum+=1
		 hapri=0
		 publichot+=RAND(stripdance/20,stripdance/5)+ RAND(poledance/20,poledance/5)
		 if publichotstart=publichot:publichot-=RAND(5,10)&publichotstart=publichot
		 gs'stat'
		 '<center><img src="pic/strippole.jpg" ></center>'
		 'You danced around a pole showing acrobatics and erotic undressing in public.'
		     if ves>rost-90:
		     vesrand=RAND(0,100)
		         if vesrand>=75:
		         'Performing another trick on a pole . The crowd laughed "Hey hippopotamus, stamp into a swamp where it came from."'
		         publichot=15
		         fingalrand=RAND(0,100)
		             if fingalrand>=75:
		             fingal+=RAND(2,5)
		             'When you fall.'
		             end
		         end
		         if vesrand>=50:
		         publichot-=RAND(5,10)
		         'In the hall laugh at you, "Look how fat she hang. Yeah and ass shaking like jelly."'
		         end
		     end 
		 dynamic $pubhotdi
		 act 'further':gt $curloc
		 end
     end
     
     if stpredmet=0:
         if publichot>=80 and publichot<90:
         privatrand=RAND(0,100)
             if privatrand>=90:
             'After the dance.'
             dynamic $privatdancedi
             exit
             end
         end
         if publichot>=90:
          privatrand=RAND(0,100)
             if privatrand>=70:
             'After the dance.'
             dynamic $privatdancedi
             exit
             end
         end
     
     end



else
'Working time is over. It`s time to go home.'
end


act 'Quit the stage':gt'stwork','start'

$privatdancedi={
act 'Go for a lap dance':
cls
minut+=30
money+=800
sweat=1
hapri=0
mop=0
fat-=5
stripdancesum+=1
if stprrand=0:gt'stwork2','pr1'
if stprrand=1:gt'stwork2','pr2'
if stprrand=2:gt'stwork2','pr3'
gs'stat'
'<center><img src="pic/privatstrip.jpg" ></center>'
'In a separate room to the music you within half an hour showed different erotic dancing client.'
act 'Go into the locker room':gt'stwork','start'
end
}


if $ARGS[0] = 'pr1':
cla
*clr
!set money+=2000
'<center><img src="img/centr/pr1.jpg" ></center>'
'Do you dance in front of the guys chetyrmya, after some time they offer you, serve them in full for 5000 RUB.'
act 'Get_Away':gt'stwork','start'
     act 'agree':
	 set gang+=1
	 set guy+=4
	 set picrand=12
	 set money+=5000
	 gt'paysex','var'
	 end
end

if $ARGS[0] = 'pr2':
cla
*clr
!set money+=2000
'<center><img src="img/centr/pr2.jpg" ></center>'
'Do you dance in front of boyfriend, until he Fingering, he soon offers, serve it in full for 3000 RUB.'
act 'Get_Away':gt'stwork','start'
     act 'agree':
	 set guy+=1
	 set picrand=39
	 set money+=3000
	 xgt'sex','var'
	 end
end

if $ARGS[0] = 'pr3':
cla
*clr
!set money+=2000
'<center><img src="img/centr/pr3.jpg" ></center>'
'You portray another dancer leysbiyskie games, after a few minutes you are offered to make your games more realistic for 2000rubles each.'
act 'Get_Away':gt'stwork','start'
     act 'agree':
	 set girl+=1
	 set lesbian+=1
	 set picrand=18
	 set money+=2000
	 xgt'lezbsex','var'
	 end
end










--- stwork2 ---------------------------------

