glife/locations/037_Kafe2

# Kafe2
if $ARGS[0] = 'start':
cla
*clr
'<<$boybody>> <<$boybod>> <<$boyface>>, introduced as <<$boy>>.'
Set deyst = RAND(1,100)
	if deyst <= 25:
	'<<$boy>> has invited you to dance.'
	act 'Dance': gt 'Kafe2','dance'
	act 'Otshit': gt 'street'
	end
	if deyst > 25 and deyst <= 50:
	'<<$boy>> sat down at your table and ordered a drink and a snack.'
	act 'Drink': gt 'Kafe2','booze'
	act 'Otshit': gt 'street'
	end
	if deyst > 50 and deyst <= 75:
	'<<$boy>> has invited you to join the party on which he walks.'
	act 'Agree': gt 'Kafe2','kampashka'
		if horny < 75:
		act 'Otshit': gt 'street'
		end
	end
	if deyst > 75:
	'<<$boy>> began to stick to you and try to take pictures. <<$boy>> offered to go with him to the toilet.'
	act 'Agree': gt 'Kafe3','WC'
		if horny < 75:
		act 'Otshit': gt 'street'
		end
	end
end

if $ARGS[0] = 'dance':
cla
dance += 1
minut += 3
gs 'stat'
Set deyst = RAND(1,100)
'<center><img src="images\etogame\dance.jpg"></center>'
''
	if deyst <= 25:
	'During the dance <<$boy>> you confidently and correctly conducted and not molested. His strong hands held tightly your waist. Finally the song ended.'
	act 'Finish the dance': gt 'Kafe2','tanets2'
	end

	if deyst > 25 and deyst <= 80:
	Set horny += 5
	clr
	gs 'stat'
	if dick > 15 and dick < 18:
	$didanc = 'During the dance, you feel like something hard between his legs pressed against your stomach.'
	elseif dick >= 18:
	$didanc = 'During the dance, you feel his cock pushing against your stomach hardens and grows, you feel that he´s a big, vskidku about <<dick>> centimeters.'
	elseif dick <= 15:
	$didanc = ''
	end
	'During the dance <<$boy>> gently hugged you and stroking your back down to the hips. His strong hands pressed against your fragile body to him, pressing your soft breasts <<tits>> the size of his body. <<$didanc>> Finally, the song ends.'
	act 'Finish the dance': gt 'Kafe2','tanets2'
	end

	if deyst > 80:
	Set horny += 8
	clr
	gs 'stat'
	'During the dance <<$boy>> paw is the ass, you clung to his vzhimaya your tender flesh in his and wants to kiss you.'
		act 'Kiss':
		cla
		if lip = 0: set $lipdance = 'thin lips'
		if lip = 1: set $lipdance = 'lips'
		if lip = 2: set $lipdance = 'plump lips'
		if lip = 3: set $lipdance = 'plump lips'
		if lip = 4: set $lipdance = 'thick lips'
		'<<$boy>> your kisses <<$lipdance>> pushing them and poking his wet tongue in your mouth.'
			act 'Chew language':
			cla
			Set horny += 8
			if lip = 0: set $lipdance = 'thin lips'
			if lip = 1: set $lipdance = 'lips'
			if lip = 2: set $lipdance = 'plump lips'
			if lip = 3: set $lipdance = 'plump lips'
			if lip = 4: set $lipdance = 'thick lips'
				if dick > 15 and dick < 18:
				$didanc = 'pants it becomes firm and <<$boy>> is pressed to your stomach its embarked member.'
				elseif dick >= 18:
				$didanc = 'his cock pushing against your stomach hardens and grows, it´s big, vskidku about <<dick>> centimeters.'
				elseif dick <= 15:
				$didanc = 'in his pants that is uvilichivaetsya'
				end
			'You started passionately suck tongue kissing a guy and his own <<$lipdance>>. You feel like <<$didanc>>'
			'Finally the song ends and you break the kiss.'
			Set deyst = RAND(1,100)
				if deyst <= 75:
				'Keeping your waist and hold <<$boy>> offers to go to his home.'
				act 'Agree': gt 'Kafe3','house'
					if horny < 75:
					act 'Otshit': gt 'street'
					end

				end
				if deyst > 75:
				'Keeping your waist and hold <<$boy>> offers to go to the toilet and continue.'
				act 'Agree': gt 'Kafe3','WC'
					if horny < 75:
					act 'Otshit': gt 'street'
					end

				end

			end

			act 'Avoid kissing':
			cla
			Set horny += 8
			if lip = 0: set $lipdance = 'thin lips'
			if lip = 1: set $lipdance = 'lips'
			if lip = 2: set $lipdance = 'plump lips'
			if lip = 3: set $lipdance = 'plump lips'
			if lip = 4: set $lipdance = 'thick lips'
				if dick > 15 and dick < 18:
				$didanc = 'pants it becomes firm and <<$boy>> is pressed to your stomach its embarked member.'
				elseif dick >= 18:
				$didanc = 'his cock pushing against your stomach hardens and grows, it´s big, vskidku about <<dick>> centimeters.'
				elseif dick <= 15:
				$didanc = 'in his pants that is uvilichivaetsya'
				end
			'You behave passively and try to clean your mouth away from the annoying guy first, but it takes him a little and you feel his hands firmly squeeze your ass, then his hands raised above and it takes you to his chest. You feel like <<$didanc>>'
			'Finally the song ends and you break his arms.'
			Set deyst = RAND(1,100)
				if deyst <= 75:
				'Keeping your waist and hold <<$boy>> offers to go to his home.'
				act 'Agree': gt 'Kafe3','house'
					if horny < 75:
					act 'Otshit': gt 'street'
					end

				end
				if deyst > 75:
				'Keeping your waist and hold <<$boy>> offers to go to the toilet and continue.'
				act 'Agree': gt 'Kafe3','WC'
					if horny < 75:
					act 'Otshit': gt 'street'
					end

				end

			end
		end


		if horny < 75:
		act 'Stop dancing and leave': gt 'street'
		end
	end

end

if $ARGS[0] = 'tanets2':
cla
Set deyst = RAND(1,70)
	if deyst >= vnesh:
	'The dance ended, and <<$boy>> kiss you goodbye'
	act 'Say goodbye':
	gt 'kafe','start'
	end
	end
	if deyst < vnesh:
	'The dance ended, and <<$boy>> suggested to go to him'
	act 'Agree': gt 'Kafe3','house'
		if horny < 75:
		act 'Otshit': gt 'street'
		end
	end
end

if $ARGS[0] = 'booze':
cla
minut += 30
gs 'stat'
Set deyst = RAND(1,100)
'You drink with a guy, and <<$boy>> tells a lot of interesting and interested in you.'
	if deyst < 75:
	'It seems you´ve had enough and should go home. <<$boy>> kiss you goodbye'
		act 'Say goodbye':
		gt 'kafe','start'
		end
	end

	if deyst >= 75 and deyst < 95:
	'It seems you´ve had enough and should go home. <<$boy>> suggested to go to him'
	act 'Agree': gt 'Kafe3','house'
		if horny < 75:
		act 'Otshit': gt 'street'
		end
	end

	if deyst >= 95:
	'You drank to pig squeal and <<$boy>> began to stick to you. He kissed you and caressed, and then offered to go with him to the toilet.'
	act 'Agree': gt 'Kafe3','WC'
		if horny < 75:
		act 'Otshit': gt 'street'
		end
	end
end

if $ARGS[0] = 'kampashka':
cla
minut += 30
gs 'stat'
Set deyst = RAND(1,100)
'You drink in society guys and girls. <<$boy>> obschaetsya and flirts with you.'
	if deyst < 60:
	'Think you´ve had enough and should go home. <<$boy>> kiss you goodbye'
	act 'Say goodbye':
	gt 'kafe','start'
	end
	end
	if deyst >= 60 and deyst < 90:
	'Think you´ve had enough and should go home. <<$boy>> suggested to go to him'
	act 'Agree': gt 'Kafe3','house'
		if horny < 75:
		act 'Otshit': gt 'street'
		end
	end
	if deyst >= 90:
	'You drank to pig squeal and <<$boy>> began to stick to you. He kissed you and caressed, and then offered to go to rest with the company.'
	act 'Agree': gt 'Kafe3','kampashka'
		if horny < 75:
		act 'Otshit': gt 'street'
		end
	end
end






--- Kafe2 ---------------------------------