# stripclub
if $ARGS[0] = 'start':
cla
*clr
set minut += 5
'<center><B><font color = maroon>Strip Club</font></B></center>'
'<center><img src="images\etogame\stripclub.jpg"></center>'
clr
gs 'stat'
fcolor = rgb(0,0,0)
bcolor = rgb(255,255,255)
LCOLOR = rgb(106,90,205)
Set scrand = RAND(1,100)
if scrand <= 40 and stripday ! day:
set stripday = day
Set cfnm = 1
end
if scrand > 40 and stripday ! day:
set stripday = day
Set cfnm = 0
end
if cfnm = 1: 'Today´s program, male striptease, ticket 500 rub.'
if cfnm = 0: 'Today´s program, striptease, ticket 500 rub.'
act 'QUIT':
	cla
	set minut += 5
	gt 'down'
	end

	if stripdolg > 0 and money >= 50000:
		act 'Pay a fine of 50,000 rubles':
			set stripdolg = 0
			set money -= 50000
			gt 'stripclub','start'
			end
		end


	if stripdolg = 0:

	if cfnm = 1 and money >= 500 and hour < 23:
		act 'Pay 500 rubles and enter':
		cla
		set money -= 500
		set minut += 5
		frost = 0
		gt 'stripclub','forwoman'
		end
	end
	if cfnm = 0 and money >= 500 and hour < 23:
		act 'Pay 500 rubles and enter':
		cla
		set money -= 500
		set minut += 5
		frost = 0
		gt 'stripclub','forman'
		end
	end
	if stripdance > 0 and stripwork = 0:
		act 'Talk to the manager about the work as a stripper':
		cla
		set minut += 15
		gs 'stat'
		'You performed in the manager´s office. In the office, a young man asked you to sit down and began his speech. "We are working every day from 15 to 2 nights. Sometimes there are days of male strippers. Strippers we do not pay, only provide costumes. This is to ensure that there was an incentive to earn a tip. Just stripper can dance lap dance for a fee client but this should be of interest to the client, with each lap dance stripper gets 800 rubles, 200 is the club can not otkazyvatsya from private dances. And if a lap dance is a solid stripdens, then dance on stage involves a lot of work on the pole. Unless you dance on a pole, it is not pozortes. with interchangeable I do not hurry, strippers themselves when they want to come to work. schedule is free, I just do not want your labor, and work as a stripper can be combined with other types of work. So how? Satisfied? "'
		act 'No': gt 'stripclub','start'
			act 'Yes':
			cls
			stripwork = 1
			'Yes, I´m happy with everything you nodded. Manager held you in the fitting room and showed a woman who is responsible for the costumes. It introduced you to the chief of security, who wrote you Propus and left leaving you.'
			if cfnm = 0: act 'Osmatrivatsya': gt 'stwork','start'
			if cfnm = 1:
			'Today the program male striptease, so some guys behind the scenes.'
			act 'Exit': gt 'stripclub','start'
			end
			end
		end
	end

	if cfnm = 0 and stripwork > 0:
	act 'Walk in dressing room': frost = 0 & gt 'stwork','start'
	elseif cfnm > 0 and stripwork > 0:
	'Today there is no work, male striptease.'
	end

	end


end

if $ARGS[0] = 'forman':
cla
*clr
set minut += 5
'<center><B><font color = maroon>Strip Club</font></B></center>'
'<center><img src="images\etogame\stripclub1.jpg"></center>'
clr
gs 'stat'
'On the stage in the main hall are the girls undress to the music, there is a service privat dance, worth 1000 rubles for the dance.'

	act 'QUIT':
	cla
	set minut += 5
	gt 'stripclub','start'
	end

	if hour < 23:
		act 'Sit at a table near the stage and watch striptease': gt 'stripclub','stol'
		if money >= 1000:
		act 'Order a lap dance (1000 rubles)': gt 'stripclub','privat'
		end
		if money >= 5000:
		act 'Order a special show':
			set stprrand = rand(0,1)
			if stprrand = 0: gt 'stripclub','stpr1'
			if stprrand = 1: gt 'stripclub','stpr2'
			end
		end
	end
end

if $ARGS[0] = 'privat':
cla
*clr
set money -= 1000
set minut += 60
set horny += 25
set DOM += 1
clr
gs 'stat'
set privrand = RAND(0,4)
if privrand = 0:
	'<center><img src="images\img\centr\priv2.jpg"></center>'
	'During the girls keen on and begin to caress you frankly.'
	act 'Finish': gt 'stripclub','forman'
	act 'Let them': gt 'stripclub','privsex'
	end
if privrand > 0:
	'<center><img src="images\etogame\privat.jpg"></center>'
	'Very hot girls dancing around you, you feel as an aphrodisiac.'
	if money >= 1000:
	act 'Another lap dance (1000 rubles)': gt 'stripclub','privat'
	end
	act 'Go to scene': gt 'stripclub','forman'
	end
end

if $ARGS[0] = 'stol':
cla
*clr
clr
gs 'stat'
'<center><img src="images\etogame\stripclub2.jpg"></center>'
'On the stage lit girl dancing and undressing smartly before strenuous male audience.'

	act 'See striptease':
	cla
	*clr
	clr
	gs 'stat'
	set minut += 15
	'<center><img src="images\etogame\stripclub4.jpg"></center>'
	'Girl dancing around you clearly raschityvaya on tips.'
		if money >= 50:
			act 'Shove her 50 rubles':
			cla
			*clr
			set horny += 5
			set minut += 15
			set money -= 50
			'<center><img src="images\etogame\stripclub6.jpg"></center>'
			'You are stuck in the 50 rubles stripper panties and she invitingly start wagging her hips and shake tits in front of you, you feel like you gradually begin to be excited.'
			act 'Further': gt 'stripclub','stol'
			end
		end

		act 'Downcast eyes':
		cla
		set horny -= 5
		set minut += 15
		'You decided not to give money to a stripper and took from her eyes, you feel a little ashamed and excitation decreases.'
		act 'Further': gt 'stripclub','stol'
		end
	end

	act 'Away from the scene': gt 'stripclub','forman'
end


if $ARGS[0] = 'forwoman':
cla
*clr
set minut += 5
'<center><B><font color = maroon>Strip Club</font></B></center>'
'<center><img src="images\etogame\stripclub1.jpg"></center>'
clr
gs 'stat'

	act 'QUIT':
	cla
	set minut += 5
	gt 'stripclub','start'
	end

	if hour < 23 and zenit > 0 and minifoto = 0:
		act 'Photograph':
			set minut += 10
			'As soon as you get the camera to you immediately approached security guard, and said that there should not be removed, you apologize and hide the camera in her purse.'
			end
		end

	if hour < 23 and minifoto > 0:
		act 'Photograph':
			cla
			set minut += 60
			'You remove the mini camera and start to gently remove walking down the hall.'
			set stripfotorand = rand(0,10)
			if stripfotorand < 2:
				set minifoto = 0
				set stripdolg = 1
				'It suits you and tight security guard taking you by the hand leads to the output, the output is already waiting for the administrator, it takes you a camera, and says that you have a fine of 50,000 rubles. and until you pay to join the club can no longer.'
				act 'Exit': gt 'stripclub','start'
				end
			if stripfotorand >= 2 and stripfotorand < 6:
				set shantfoto += 1
				'You can not do it normally take a picture, the girls surrounding obscure charts, then the guard comes very close, but in the end you still manage to make a normal picture.'
				act 'Exit': gt 'stripclub','start'
				end
			if stripfotorand >= 6:
				'You can not do it normally take a picture, the girls surrounding obscure charts, then the guard comes very close.'
				act 'Exit': gt 'stripclub','start'
				end
			end
		end

	if hour < 23:
		act 'Sit at a table near the stage and watch striptease': gt 'stripclub','stolW'
	end
end

if $ARGS[0] = 'stolW':
cla
*clr
clr
gs 'stat'
'<center><img src="images\picVA\stripW.jpg"></center>'
'On stage act and inflated athletic guys, girls squeal and shoved them money in the heat.'
	if hour < 23:
		act 'See striptease':
		cla
		*clr
		clr
		gs 'stat'
		set minut += 15
		'<center><img src="images\picVA\stripW1.jpg"></center>'
		'To you a stripper came and hugged you.'
			if money >= 50:
				act 'Shove him 50 rubles':
				cla
				*clr
				set horny += 5
				set minut += 15
				set money -= 50
				'<center><img src="images\picVA\stripW2.jpg"></center>'
				'You shoved 50 rubles strippers and he sat on a chair you started dancing in front of you, he pulled off melting and you´ll see who gets his dick. Stripper took you to his chest, trying to get her out from under her blouse.'
				act 'Stop': gt 'stripclub','stolW'
				!act 'Touch his hand member': gt 'cfnm','start'
				act 'Let him expose your breasts': gt 'cfnm','start'
				end
			end

			act 'Downcast eyes':
			cla
			set horny -= 5
			set minut += 15
			'You decided not to give money to strippers and looked away from him, you feel a little ashamed and arousal decreases.'
			act 'Further': gt 'stripclub','stolW'
			end
		end
	end

	act 'Away from the scene': gt 'stripclub','forwoman'
end

if $ARGS[0] = 'privsex':
cla
*clr
set horny = 0
set orgasm += 1
'<center><img src="images\img\centr\priv3.jpg"></center>'
'You widely spreads her legs and has been one lick your pussy, bringing you to orgasm, and the second continues to caress the body.'
act 'Finish': gt 'stripclub','forman'
act 'More': gt 'stripclub','privsex1'
end

if $ARGS[0] = 'privsex1':
cla
*clr
set girl += 2
set lesbian += 1
set privpicrand = RAND(4,7)
'<center><img src="images\img\centr\priv<<privpicrand>>.jpg "></center>'
'You caress each other.'
act 'Finish': gt 'stripclub','forman'
if hour > 23:
act 'More': gt 'stripclub','privsex1'
end
end

if $ARGS[0] = 'stpr1':
cla
*clr
set horny += 30
'<center><img src="images\img\centr\prsex1.jpg"></center>'
'The room includes two girls with a strap, and begin to fuck each other.'
act 'Finish': gt 'stripclub','forman'
act 'Join':
	cla
	*clr
	set SUB += 3
	set girl += 2
	set lesbian += 1
	set sex += 1
	set anal += 1
	'<center><img src="images\img\centr\prsex2.jpg"></center>'
	'You undress and kneels in front of the girls, they against you and substitute Strap to your face, you start vskhvativ Strap them greedily sucking, licking the remnants of their juices.'
	act 'Doggy-Style':
		cla
		*clr
		'<center><img src="images\img\centr\prsex3.jpg"></center>'
		'You get up cancer and one of the girls comes to you in the pussy as you continue to suck the second.'
		act 'In Two Smoking Barrels':
			cla
			*clr
			set horny = 0
			set orgasm += 1
			'<center><img src="images\img\centr\prsex4.jpg"></center>'
			'You sodites one of the threesome and the second girl enters you into the anus, they fuck you in both holes bringing to Orgs.'
			act 'Further':
				cla
				*clr
				set cumlip += 1
				set cumface += 1
				set cumbrest += 1
				'<center><img src="images\img\centr\prsex5.jpg"></center>'
				'When you are finished, the girls stand over you and out of their threesome poured liquid to taste much like a sperm, it is poured into your mouth, face and chest.'
				act 'Finish': gt 'stripclub','forman'
				end
			end
		end
	end
end

if $ARGS[0] = 'stpr2':
cla
*clr
set girl += 2
set lesbian += 1
'<center><img src="images\img\centr\prsex6.jpg"></center>'
'The room includes two girls with a strap in his hand, they strip you and freeze in anticipation of your wishes.'
act 'Fuck them':
	cla
	*clr
	set DOM += 3
	'<center><img src="images\img\centr\prsex7.jpg"></center>'
	'You wear the strap, and the girls kneel and begin to suck it.'
	act 'Fuck them': gt 'stripclub','stpr3'
	end
act 'Surrender':
	cla
	*clr
	set SUB += 3
	'<center><img src="images\img\centr\prsex8.jpg"></center>'
	'You get up on his knees, and girls wear Vibrators and give you their sucking you with joy and doing.'
	act 'Surrender': gt 'stripclub','stpr4'
	end
end

if $ARGS[0] = 'stpr3':
cla
*clr
set horny = 0
set orgasm += 1
set prsexrand = rand(9,13)
'<center><img src="images\img\centr\prsex<<prsexrand>>.jpg "></center>'
'You fuck them as your heart wants, eventually ends themselves.'
if hour > 23:
act 'More': gt 'stripclub','stpr3'
end
act 'Finish': gt 'stripclub','forman'
end

if $ARGS[0] = 'stpr4':
cla
*clr
set horny = 0
set orgasm += 1
set prsexrand = rand(14,19)
'<center><img src="images\img\centr\prsex<<prsexrand>>.jpg "></center>'
'They twirl as you want, then fucking couple then one by one, in the end you end.'
if hour > 23:
act 'More': gt 'stripclub','stpr4'
end
act 'Finish': gt 'stripclub','forman'
end
--- stripclub ---------------------------------