# cafe2

menu_off = 1

if $ARGS[0] = 'beginning':
	*clr & cla
	'<<$boybody>> <<$boybod>> <<$boyface>>, introduces himself as <<$boydesc>>.'
	deyst = rand(1, 100)

	if deyst <= 25:
		'<<$boydesc>> asks you to dance.'

		act 'Dance':gt 'Cafe2', 'dance'
		act 'Leave':gt 'street'
	elseif deyst > 25 and deyst <= 50:
		'<<$boydesc>> sits down at your table and orders a drink and a snack.'

		act 'Drink':gt 'Cafe2', 'booze'
		act 'Leave':gt 'street'
	elseif deyst > 50 and deyst <= 75:
		'<<$boydesc>> invites you to join a party nearby.'

		act 'Agree':gt 'Cafe2', 'kompashka'

		if pcs_horny < 75:
			act 'Leave':gt 'street'
		end
	elseif deyst > 75:
		'<<$boydesc>> begins to flirt with you and tries to take pictures. <<$boydesc>> asks you to go with him to the toilet.'

		act 'Agree':gt 'Cafe3', 'toilet'

		if pcs_horny < 75:
			act 'Leave':gt 'street'
		end
	end
end

if $ARGS[0] = 'dance':
	cla

	if pcs_danc < 50 and pcs_agil >= pcs_danc:danc_exp += 1

	minut += 3
	gs 'stat'
	'<center><img <<$set_imgh>> src="images/pc/activities/dance.jpg"></center>'
	deyst = rand(1, 100)

	if deyst <= 25:
		'During the dance <<$boydesc>> conducts himself confidently and correctly, his strong hands hold your waist tightly. Finally the song ends.'

		act 'Finish the dance':gt 'Cafe2', 'dance2'
	elseif deyst > 25 and deyst <= 80:
		pcs_horny += 5
		clr
		gs 'stat'

		if dick > 15 and dick < 18:
			$didanc = 'During the dance you feel like something hard between his legs presses against your stomach. '
		elseif dick >= 18:
			$didanc = 'During the dance you feel his cock pushing against your stomach as it hardens and grows, you feel that he has a monster cock about <<dick>> centimeters. '
		elseif dick <= 15:
			$didanc = ''
		end

		'During the dance <<$boydesc>> gently hugs you and strokes your back down to the hips. His strong hands press your fragile body to his, pressing your soft <<$titsize>> breasts against his body. <<$didanc>>Finally, the song ends.'

		act 'Finish the dance':gt 'Cafe2', 'dance2'
	elseif deyst > 80:
		pcs_horny += 8
		gs 'stat'
		'During the dance <<$boydesc>> paws at your ass, you cling to his body your tender flesh on his and he wants to kiss you.'

		act 'Kiss':
			cla

			if pcs_lip = 0:$lipdance = 'thin lips'
			if pcs_lip = 1:$lipdance = 'lips'
			if pcs_lip = 2:$lipdance = 'plump lips'
			if pcs_lip = 3:$lipdance = 'plump lips'
			if pcs_lip = 4:$lipdance = 'thick lips'

			'<<$boydesc>> kisses your <<$lipdance>> pushing them and poking his wet tongue in your mouth.'
			
			gs 'arousal', 'kiss', 5
			gs 'stat'

			act 'French kiss':
				cla

				if pcs_lip = 0:$lipdance = 'thin lips'
				if pcs_lip = 1:$lipdance = 'lips'
				if pcs_lip = 2:$lipdance = 'plump lips'
				if pcs_lip = 3:$lipdance = 'plump lips'
				if pcs_lip = 4:$lipdance = 'thick lips'

				if dick > 15 and dick < 18:
					$didanc = 'in his pants he is becoming firm and <<$boydesc>> is pressing his member to your stomach.'
				elseif dick >= 18:
					$didanc = 'his massive cock is pushing against your stomach, it''s really big, about <<dick>> centimeters.'
				elseif dick <= 15:
					$didanc = 'there is something moving in his pants.'
				end

				'You start passionately sucking his tongue and kissing the guy with your <<$lipdance>>. You feel like <<$didanc>>'
				'Finally the song ends and you break the kiss.'
				
				gs 'arousal', 'kiss', 5
				gs 'stat'
			
				deyst = rand(1, 100)

				if deyst <= 75:
					'Keeping your waist held <<$boydesc>> invites you back to his home.'

					act 'Agree':gt 'Cafe3', 'house'

					if pcs_horny < 75:
						act 'Leave':gt 'street'
					end
				elseif deyst > 75:
					'Keeping your waist held <<$boydesc>> asks you to go to the toilet and continue.'

					act 'Agree':gt 'Cafe3', 'toilet'

					if pcs_horny < 75:
						act 'Leave':gt 'street'
					end
				end
			end
			gs 'willpower', 'kiss', 'resist', 'medium'
			if will_cost <= pcs_willpwr:
				act 'Avoid kissing (<<will_cost>> Willpower)':
					*clr & cla
					gs 'willpower', 'pay', 'resist'
					gs 'stat'
					pcs_horny += 8

					if pcs_lip = 0:$lipdance = 'thin lips'
					if pcs_lip = 1:$lipdance = 'lips'
					if pcs_lip = 2:$lipdance = 'plump lips'
					if pcs_lip = 3:$lipdance = 'plump lips'
					if pcs_lip = 4:$lipdance = 'thick lips'

					if dick > 15 and dick < 18:
						$didanc = 'in his pants he is becoming firm and <<$boydesc>> is pressing his member to your stomach.'
					elseif dick >= 18:
						$didanc = 'his massive cock is pushing against your stomach, it''s really big, about <<dick>> centimeters.'
					elseif dick <= 15:
						$didanc = 'there is something moving in his pants.'
					end

					'You behave passively and try to pull your mouth away from the annoying guy first, it doesn''t make too much difference as you feel his hands firmly squeeze your ass, then his hands raised above and he pulls you to his chest. You feel like <<$didanc>>'
					'Finally the song ends and gain a little breathing space.'
					deyst = rand(1, 100)

					if deyst <= 75:
						'Keeping your waist held <<$boydesc>> invites you back to his home.'

						act 'Agree':gt 'Cafe3', 'house'

						gs 'willpower', 'sex', 'resist', 'medium'
						if will_cost <= pcs_willpwr:
							act 'Leave (<<will_cost>> Willpower)':
								*clr & cla
								gs 'willpower', 'pay', 'resist'
								gs 'stat'
								gt 'street'
							end
						else
							act 'Leave (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
						end	
					elseif deyst > 75:
						'Keeping your waist held <<$boydesc>> asks you to go to the toilet and continue.'

						act 'Agree':gt 'Cafe3', 'toilet'

						gs 'willpower', 'sex', 'resist', 'medium'
						if will_cost <= pcs_willpwr:
							act 'Leave (<<will_cost>> Willpower)':
								*clr & cla
								gs 'willpower', 'pay', 'resist'
								gs 'stat'
								gt 'street'
							end
						else
							act 'Leave (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
						end
					end
				end
			else
				act 'Avoid kissing (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
			end	
		end

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

if $ARGS[0] = 'dance2':
	cla
	deyst = rand(1, 280)

	if deyst >= pcs_apprnc:
		'The dance ends and <<$boydesc>> kisses you goodbye.'

		act 'Say goodbye':gt 'kafe', 'start'
	elseif deyst < pcs_apprnc:
		'The dance ends and <<$boydesc>> suggests going to his place.'

		act 'Agree':gt 'Cafe3', 'house'

		gs 'willpower', 'sex', 'resist', 'medium'
		if will_cost <= pcs_willpwr:
			act 'Leave (<<will_cost>> Willpower)':
				*clr & cla
				gs 'willpower', 'pay', 'resist'
				gs 'stat'
				gt 'street'
			end
		else
			act 'Leave (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
		end	
	end
end

if $ARGS[0] = 'booze':
	cla
	minut += 30
	gs 'stat'
	'You drink with a guy and <<$boydesc>> is interesting and shows an interest in you.'
	deyst = rand(1, 100)

	if deyst < 75:
		'It seems you''ve had enough and should go home, <<$boydesc>> kisses you goodbye.'

		act 'Say goodbye':gt 'kafe', 'start'
	elseif deyst >= 75 and deyst < 95:
		'It seems you''ve had enough and should go home, <<$boydesc>> suggests you should go to him.'

		act 'Agree':gt 'Cafe3', 'house'

		gs 'willpower', 'sex', 'resist', 'medium'
		if will_cost <= pcs_willpwr:
			act 'Leave (<<will_cost>> Willpower)':
				*clr & cla
				gs 'willpower', 'pay', 'resist'
				gs 'stat'
				gt 'street'
			end
		else
			act 'Leave (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
		end	
	elseif deyst >= 95:
		'You''re drunk and <<$boydesc>> begins to stick to you. He kisses and caresses you and then offers to take you with him to the toilet.'
		
		gs 'arousal', 'kiss', 5
		gs 'arousal', 'foreplay', -5
		gs 'stat'

		act 'Agree':gt 'Cafe3', 'toilet'

		gs 'willpower', 'sex', 'resist', 'medium'
		if will_cost <= pcs_willpwr:
			act 'Leave (<<will_cost>> Willpower)':
				*clr & cla
				gs 'willpower', 'pay', 'resist'
				gs 'stat'
				gt 'street'
			end
		else
			act 'Leave (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
		end
	end
end

if $ARGS[0] = 'kompashka':
	cla
	minut += 30
	gs 'stat'
	'You drink and socialize with guys and girls, <<$boydesc>> chats and flirts with you.'
	deyst = rand(1, 100)


	if deyst < 60:
		'You think you''ve had enough and should go home, <<$boydesc>> kisses you goodbye.'

		act 'Say goodbye':gt 'kafe', 'start'
	elseif deyst >= 60 and deyst < 90:
		'You think you''ve had enough and should go home, <<$boydesc>> suggests you go to his place.'

		act 'Agree':gt 'Cafe3', 'house'

		gs 'willpower', 'sex', 'resist', 'medium'
		if will_cost <= pcs_willpwr:
			act 'Leave (<<will_cost>> Willpower)':
				*clr & cla
				gs 'willpower', 'pay', 'resist'
				gs 'stat'
				gt 'street'
			end
		else
			act 'Leave (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
		end
	elseif deyst >= 90:
		'You''re drunk and <<$boydesc>> begins to stick to you. He kisses and caresses you and then offers to go join with some company.'

		gs 'arousal', 'kiss', 5
		gs 'arousal', 'foreplay', -5
		gs 'stat'
		
		act 'Agree':gt 'Cafe3', 'kompashka'

		gs 'willpower', 'sex', 'resist', 'medium'
		if will_cost <= pcs_willpwr:
			act 'Leave (<<will_cost>> Willpower)':
				*clr & cla
				gs 'willpower', 'pay', 'resist'
				gs 'stat'
				gt 'street'
			end
		else
			act 'Leave (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
		end
	end
end

--- cafe2 ---------------------------------