glife/locations/stripclub

# stripclub
if $ARGS[0] = 'start':
	cla
	clr
	*clr
	minut += 5
	gs 'stat'
	fcolor = rgb(0, 0, 0)
	bcolor = rgb(255, 255, 255)
	lcolor = rgb(106, 90, 205)
	'<center><b><font color="maroon">Strip Club</font></b></center>'
	'<center><img src="images/etogame/stripclub.jpg"></center>'
	scrand = rand(1, 100)

	if scrand <= 40 and stripday ! day:
		stripday = day
		cfnm = 1
	elseif scrand > 40 and stripday ! day:
		stripday = day
		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 'Leave':
		cla
		minut += 5
		gt 'down'
	end

	if stripdolg > 0 and money >= 50000:
		act 'Pay a fine of (50,000 rubles)':
			stripdolg = 0
			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
				money -= 500
				minut += 5
				frost = 0
				gt 'stripclub', 'forwoman'
			end
		elseif cfnm = 0 and money >= 500 and hour < 23:
			act 'Pay 500 rubles and enter':
				cla
				money -= 500
				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
				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 'Leave':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
	*clr
	minut += 5
	gs 'stat'
	'<center><b><font color="maroon">Strip Club</font></b></center>'
	'<center><img src="images/etogame/stripclub1.jpg"></center>'
	'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 'Leave':
		cla
		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 (1,000 rubles)':gt 'stripclub', 'privat'
		end

		if money >= 5000:
			act 'Order a special show (5,000 rubles)':
				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
	*clr
	money -= 1000
	minut += 60
	horny += 25
	DOM += 1

	gs 'stat'
	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'
	elseif 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 (1,000 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'
		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
				horny += 5
				minut += 15
				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
			horny -= 5
			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
	*clr
	stripguy = 0
	minut += 5
	gs 'stat'
	'<center><b><font color="maroon">Strip Club</font></b></center>'
	'<center><img src="images/etogame/stripclub1.jpg"></center>'

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

	if hour < 23 and zenit > 0 and minifoto = 0:
		act 'Photograph':
			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
	elseif hour < 23 and minifoto > 0:
		act 'Photograph':
			cla
			minut += 60
			'You remove the mini camera and start to gently remove walking down the hall.'
			stripfotorand = rand(0, 10)

			if stripfotorand < 2:
				minifoto = 0
				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 'Leave':gt 'stripclub', 'start'
			elseif stripfotorand >= 2 and stripfotorand < 6:
				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 'Leave':gt 'stripclub', 'start'
			elseif stripfotorand >= 6:
				'You can not do it normally take a picture, the girls surrounding obscure charts, then the guard comes very close.'

				act 'Leave':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
	stripguy = 0
	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'
			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
					horny += 5
					minut += 15
					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
				horny -= 5
				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
	horny = 0
	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
	girl += 2
	lesbian += 1
	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
	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
		SUB += 3
		girl += 2
		lesbian += 1
		sex += 1
		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
				horny = 0
				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
					cumlip += 1
					cumface += 1
					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
	girl += 2
	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
		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
		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
	horny = 0
	orgasm += 1
	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
	horny = 0
	orgasm += 1
	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 ---------------------------------