glife/locations/meet

# meet
if $ARGS[0] = 'start':
	fcolor = rgb(0, 0, 0)
	bcolor = rgb(255, 255, 255)
	lcolor = rgb(106, 90, 205)
	set minut += 15
	set dayA += 1
	set svidanieA = 0
	giftNum = giftNumA
	$boy = $boyA
	$namev = $boy
	$boybody = $boybodyA
	$boybod = $boybodA
	$boyface = $boyfaceA
	!!long cock
	dick = dickA
	!! sexual force of 0 prior_to 2
	silaVag = silaVagA
	!!security, is responsible for the money and requirements 0 beggar, 1 middle_peasant 2 rich
	finance = financeA
	!!check in appearance, a parameter vnesh
	vneshBoy = vneshBoyA
	$boyClo = $boyCloA
	!!0 - ass less 80, 1 back from 80 prior_to 100, 2 ass over 100
	figurBoy = figurBoyA
	!!0 - chest less 3, 1 breast 3-4, 2 breasts bigger 4
	titBoy = titBoyA
	!!favorite hair color 0 - brunette, 1 - haired, 2 - Redhead, 3 - blonde
	haerBoy = haerBoyA
	!!character 0 - soft, 1 -norm 2 - aggressor
	harakBoy = harakBoyA
	!!perversity
	izvrat = izvratA

	if love = 3:
		'Met you <<$boyA>> and planted them in a hired wedding limousine.'

		act 'Sit in a limousine.':
			cla
			'You got into the limo, and <<$boyA>> sat in another car. Soon the limo pulled up to the palace wedding.'

			act 'Marry husband':
				cla
				set minut += 60
				love = 0
				bfA = 0
				husband = 100
				husbanday = 0
				$husName = $boyA
				$husHair = $boyfaceA
				$husBody = $boybodyA
				$husFat = $boybodA
				husDick = dickA
				harakHusb = harakBoyA
				izvratH = izvratA
				set silavagH = silavagA
				husbFin = financeA
				husbandMark = 1
				'The wedding took place at a cafe. There were not many guests and of course only part of the groom. It was a lot of congratulations, toasts, merrymaking and cries bitterly. By evening, all drunk and you with souped husband took home.'

				act 'Wedding night.':gt 'husbsex', 'room'
			end
		end

		exit
	end

	if love = 2:
		'<<$boyA>> looks very excited and suddenly pulls the ring out of the box.'
		'(<<$boyA>>) - <<$name>>. I offer you my hand and heart with very, come for my husband.'

		act 'No. (Rasstatsya)':
			set minut += 60
			set bfA = 0
			set pregtalk = 0
			gt 'street'
		end

		act 'Yes':
			cla
			'You agreed and put a ring on your finger. <<$boyA>> rejoiced and hugged kissed you.'
			'(<<$boyA>>) - And now you gone choose a wedding dress.'

			act 'Go for the dress':
				cla
				set minut += 60
				set love = 3
				'You got in a taxi with his bride and went to the store to choose a dress. You have chosen an expensive and luxurious dress and <<$boyA>> paid his purchase.'
				'After all these winding through the city and you´re tired <<$boyA>> to drive you home, warning that the next meeting you´re married.'

				act 'Leave.':gt 'street'
			end
		end

		exit
	end

	if mop > 1 and glamur = 1 and curly > 0 and love = 1 and harakBoyA = 0:
		'<<$boyA>> looks very excited, he decided to look around you that you are willing to appear before his mother.'

		act 'Go to parents.':gt 'love', 'mother'

		exit
	end

	if mop > 1 and glamur = 1 and curly > 0 and love = 1 and harakBoyA = 1 and tanga = 1:
		'<<$boyA>> examining you decided that you are ready to appear before his friends.'

		act 'Go to friends.':gt 'love', 'frends'

		exit
	end

	if skin = 0:set bfa -= 2 & set $meetskin = 'worth looking at his feet'
	if skin = 1:set bfa -= 1 & set $meetskin = 'throws at you view'
	if skin = 2:set $meetskin = 'Looking at you'
	if skin = 3:set bfa += 1 & set $meetskin = 'seeing you smiling'
	if skin = 4:set bfa += 2 & set $meetskin = 'seeing you smiling'

	if harakBoyA = 0:
		if mop <= 2 and mop > 0:set bfA += 1 & set $meetmop = 'you are so beautiful today.'
		if mop = 4:set bfA -= 1 & set $meetmop = 'great weather today.'
	end

	if harakBoyA = 1:
		if mop <= 3 and mop > 0:set bfA += 1 & set $meetmop = 'you are so beautiful today.'
		if mop = 4:set bfA -= 1 & set $meetmop = 'clearly you made up, not like Halloween.'
	end

	if harakBoyA = 2:
		if mop = 4:set bfA += 1 & set $meetmop = 'you are so beautiful today.'
		if mop <= 2 and mop > 0:set bfA -= 1 & set $meetmop = 'great weather today.'
	end

	if mop = 0:set bfA -= 1 & set $meetmop = 'Um, you have flowed cosmetics.'
	if hapri = 1 and curly > 0:set bfA += 2 & set $meethair = 'You have a very beautiful hairstyle.'
	if hapri = 1 and curly = 0:set bfA += 1 & set $meethair = 'You have pretty hair.'
	if hapri = 0:set bfA -= 1 & set $meethair = 'I look at you in a hurry for our meeting.'
	if harakBoyA = 0:set $meet = '"Hello darling, I am glad to see you, <<$meetmop>> <<$meethair>>"'
	if harakBoyA = 1:set $meet = '"Hello <<$name>>, I am glad to see you, <<$meetmop>> <<$meethair>>"'
	if harakBoyA = 2:set $meet = '"Hi Svetsik! Glad to see you, <<$meetmop>> <<$meethair>>"'

	set $meetcol = ''

	if dayA > 10 and harakBoy = 2:
		if haerBoyA ! hcol:
			bfA = bfA - 5

			if haerBoyA = 0:set $meetcol = '<<$boyA>> tells you that you would go black hair.'
			if haerBoyA = 1:set $meetcol = '<<$boyA>> tells you that you would have gone blond hair color.'
			if haerBoyA = 2:set $meetcol = '<<$boyA>> tells you that you would have gone red hair.'
			if haerBoyA = 3:set $meetcol = '<<$boyA>> tells you that you would go light hair color.'
		end

		if haerBoyA = hcol:
			set bfA += 1
			'<<$boyA>> says that you have a wonderful hair color.'
		end
	end

	if dayA > 20 and harakBoy = 1:
		if haerBoyA ! hcol:
			bfA = bfA - 5

			if haerBoyA = 0:set $meetcol = '<<$boyA>> tells you that you would go black hair.'
			if haerBoyA = 1:set $meetcol = '<<$boyA>> tells you that you would have gone blond hair color.'
			if haerBoyA = 2:set $meetcol = '<<$boyA>> tells you that you would have gone red hair.'
			if haerBoyA = 3:set $meetcol = '<<$boyA>> tells you that you would go light hair color.'
		end

		if haerBoyA = hcol:
			set bfA += 1
			'<<$boyA>> says that you have a wonderful hair color.'
		end
	end

	if dayA > 30 and harakBoy = 0:
		if haerBoyA ! hcol:
			bfA = bfA - 5

			if haerBoyA = 0:set $meetcol = '<<$boyA>> tells you that you would go black hair.'
			if haerBoyA = 1:set $meetcol = '<<$boyA>> tells you that you would have gone blond hair color.'
			if haerBoyA = 2:set $meetcol = '<<$boyA>> tells you that you would have gone red hair.'
			if haerBoyA = 3:set $meetcol = '<<$boyA>> tells you that you would go light hair color.'
		end

		if haerBoyA = hcol:
			set bfA += 1
			'<<$boyA>> says that you have a wonderful hair color.'
		end
	end

	if lip = 0:set $meetlip = 'thin lips'
	if lip = 1:set $meetlip = 'soft lips'
	if lip = 2:set $meetlip = 'plump lips'
	if lip = 3:set $meetlip = 'large, plump lips'
	if lip = 4:set $meetlip = 'thick and huge lips'

	!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
	!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
	!!!!!!!!!!!!!!!!!!!!!!!!!!!!!DIALOGUE
	!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
	!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

	'At the entrance <<$meetskin>> <<$boyA>>. You´ll see he comes to you and says. <<$meet>> <<$meetcol>>'

	if financeA = 0:set $clom = 'deshovy dressed in a tracksuit.'
	if financeA = 1:set $clom = 'dressed in jeans and a sweater.'
	if financeA = 2:set $clom = 'dressed in a respectable and expensive jacket.'
	if harakBoyA = 0:'<<$boyA>> looks timid and not confident young man <<$clom>>'
	if harakBoyA = 1:'<<$boyA>> looks calm and confident young man <<$clom>>'
	if harakBoyA = 2:'<<$boyA>> looks cocky and brash young man <<$clom>>'

	if dayA >= 2 and financeA = 2 and giftDay < (dayA - giftNum):
		set giftrand = rand(0, 2)

		if giftrand <= financeA:
			set giftDayA = dayA
			set giftNum += 1
			set gift = rand(bfa * 20, bfa * 30)

			if gift > 2500:gift = 2500

			giftNumA = giftNum
			set money += gift
			'<<$boyA>> reached into his pocket and pulled out a gift for you <<gift>> rubles.'
		end
	end

	if dayA >= 5 and financeA = 1 and giftDay < (dayA - giftNum):
		set giftrand = rand(0, 2)

		if giftrand <= financeA:
			set giftDayA = dayA
			set giftNum += 1
			set gift = rand(bfa * 10, bfa * 20)

			if gift > 1500:gift = 1500

			giftNumA = giftNum
			set money += gift
			'<<$boyA>> reached into his pocket and pulled out a gift for you <<gift>> rubles.'
		end
	end

	if dayA >= 10 and financeA = 0 and giftDay < (dayA - giftNum):
		set giftrand = rand(0, 2)

		if giftrand <= financeA:
			set giftDayA = dayA
			set giftNum += 1
			set gift = rand(bfa * 5, bfa * 10)

			if gift > 500:gift = 500

			giftNumA = giftNum
			set money += gift
			'<<$boyA>> reached into his pocket and pulled out a gift for you. He gave you <<gift>> rubles.'
		end
	end

	'<<$boybody>> <<$boybod>> <<$boyface>> walks up to you and wants to kiss you.'

	if venera < 4 and cumface = 0:
		!!cumlip
		act 'Kiss with tongue.':
			cla

			if cumlip = 0:
				'<center><img src="images/etogame/kiss.jpg"></center>'

				if harakBoyA = 0:set bfa -= 2 & 'You pressed your <<$meetlip>> to solid lips male mouth open and thrust his tongue into his mouth. <<$boyA>> blushed and pulled away.'
				if harakBoyA = 1:set bfa -= 1 & 'You pressed your <<$meetlip>> to solid lips male mouth open and thrust his tongue into his mouth. <<$boyA>> gently obsasal your language.'
				if harakBoyA = 2:set bfa += 2 & 'You pressed your <<$meetlip>> to solid lips male mouth open and thrust his tongue into his mouth. <<$boyA>> aggressively pushed his tongue into your mouth and almost started to fuck you in the mouth with his tongue.'

				act 'Finish the kiss.':xgt 'meet', 'a'

				exit
			end

			if cumlip > 0:
				'<center><img src="images/etogame/cumlip.jpg"></center>'
				'<<$boyA>> kissed you in your smelling sperm <<$meetlip>> and pull away. "What is it?" he asked, "Do you smell mouth sperm."'

				if izvrat = 1:
					set bfa += 5
					set DOM += 1
					'<<$boyA>> blushed and lowered his eyes, you´ll clearly see how he formed a mound on his trousers.'

					act 'Finish the kiss.':xgt 'meet', 'a'

					exit
				else
					set bfa = 0
					'<<$boyA>> angry you threw myself "Oh, you dirty whore! Get lost, that I would not see you anymore, all we had done for!"'

					act 'Leave.':gt 'street'

					exit
				end
			end
		end

		act 'Kiss on the lips.':
			cla

			if cumlip = 0:
				'<center><img src="images/etogame/kiss1.jpg"></center>'

				if harakBoyA = 0:'You framed to kiss her lips and <<$boyA>> a little embarrassed kissed you.'
				if harakBoyA = 1:set bfa += 2 & 'You framed for a kiss lips <<$boyA>> quickly kissed you.'
				if harakBoyA = 2:set bfa -= 1 & 'You framed for a kiss lips <<$boyA>> juicy kiss you, pressing his lips to your firm <<$meetlip>>.'

				act 'Finish the kiss.':xgt 'meet', 'a'

				exit
			end

			if cumlip > 0:
				'<center><img src="images/etogame/cumlip.jpg"></center>'
				'<<$boyA>> kissed you in your smelling sperm <<$meetlip>> and pull away. "What is it?" he asked, "Do you smell mouth sperm."'

				if izvrat = 1:
					set bfa += 5
					set DOM += 1
					'<<$boyA>> blushed and lowered his eyes, you´ll clearly see how he formed a mound on his trousers.'

					act 'Finish the kiss.':xgt 'meet', 'a'

					exit
				else
					set boya = 0
					'<<$boyA>> angry you threw myself "Oh, you dirty whore! Get lost, that I would not see you anymore, all we had done for!"'

					act 'Leave.':gt 'street'

					exit
				end
			end
		end

		act 'Kiss on the cheek.':
			cla
			'<center><img src="images/etogame/kiss2.jpg"></center>'
			set DOM += 1

			if harakBoyA = 0:set bfa += 1 & 'You framed and cheek <<$boyA>> timidly kissed you.'
			if harakBoyA = 1:'You framed and cheek <<$boyA>> you kissed.'
			if harakBoyA = 2:set bfa -= 2 & 'You framed and cheek <<$boyA>> kissed you discouraged with views.'

			if giftDayA = dayA:
				set bfa -= 3

				if harakBoyA = 0:'<<$boyA>> looks upset.'
				if harakBoyA = 1:'<<$boyA>> looks offended.'
				if harakBoyA = 2:'<<$boyA>> looks angry.'
			end

			act 'Finish the kiss.':xgt 'meet', 'a'

			exit
		end

		act 'Do not kiss.':
			cla
			set DOM += 2

			if harakBoyA = 0:set bfa -= 1 & 'You nodded and said hello, <<$boyA>> get confused and blushed slightly.'
			if harakBoyA = 1:set bfa -= 2 & 'You nodded and said hello <<$boyA>> frowned slightly.'
			if harakBoyA = 2:set bfa -= 3 & 'You nodded and said hello <<$boyA>> chuckled and grinned.'

			if giftDayA = dayA:
				set bfa -= 3

				if harakBoyA = 0:'<<$boyA>> looks upset.'
				if harakBoyA = 1:'<<$boyA>> looks offended.'
				if harakBoyA = 2:'<<$boyA>> looks angry.'
			end

			act 'Next':xgt 'meet', 'a'

			exit
		end
	end

	if venera >= 4:
		'<center><img src="images/etogame/venera.jpg"></center>'
		set bfa = 0
		'<<$boyA>> take a closer look at you and said, "What have you got with the lips? They are very sore. Is that genital herpes? I´d better go, do not want to get infected. Goodbye."'

		act 'Leave.':gt 'street'

		exit
	end

	if cumface > 0:
		'<center><img src="images/etogame/cumface.jpg"></center>'
		'<<$boyA>> take a closer look at you and said, "What have you got stuck in your hair? Is that sperm?"'

		if izvrat = 1:
			set bfa += 5
			set DOM += 1
			'<<$boyA>> blushed and lowered his eyes, you´ll clearly see how he formed a mound on his trousers.'

			act 'Yes it is the sperm still have questions?':
				cla
				'(You) - Yes, it´s sperm still have questions?'
				'<<$boyA>> shook his head.'

				xgt 'meet', 'a'
			end

			exit
		else
			set boya = 0
			'<<$boyA>> angry you threw myself "Oh, you dirty whore! Get lost, that I would not see you anymore, all we had done for!"'

			act 'Leave.':gt 'street'

			exit
		end
	end
end

if $ARGS[0] = 'a':
	if financeA = 0:
		if glamur = 1:
			set bfa -= (harakBoyA + 1)
			'"And you dress smartly, " remarked skeptical <<$boyA>> looking at your expensive dress.'
		end

		if skirt = 1 or sport = 1:
			set bfa += (harakBoyA + 1)
			'"A classy outfit, " said <<$boyA>>'
		end

		set mesorand = rand(0, 1)

		if mesorand = 0:
			'<<$boyA>> offered you a beer in the stairwell.'

			act 'Sorry, but I urgently need to escape.':
				cla
				set bfa -= (harakBoyA + 1)
				gt 'street'
			end

			act 'Come on.':gt 'podezdM', 'start'

			exit
		end

		if mesorand = 1:
			'<<$boyA>> suggest that you take a walk in the park.'

			act 'Sorry, but I urgently need to escape.':
				cla
				set bfa -= (harakBoyA + 1)
				gt 'street'
			end

			act 'Come on':gt 'parkM', 'start'

			exit
		end
	end

	if cumfrot > 0:
		'"Hey, what are you smeared?" asked <<$boyA>> looking at your ass. "It´s sperm!"'

		if izvrat = 1:
			set bfa += 5
			set DOM += 1
			'<<$boyA>> blushed and lowered his eyes, you´ll clearly see how he formed a mound on his trousers.'
		else
			set bfa = 0
			'<<$boyA>> angry you threw myself "Oh, you dirty whore! Get lost, that I would not see you anymore, all we had done for!"'

			act 'Leave.':gt 'street'

			exit
		end
	end

	if financeA = 1:
		if glamur = 1 or skirt = 1:
			set boyA += (harakBoyA + 1)
			'"Great clothes, " said admiringly <<$boyA>>.'
		end

		if sport = 1:
			set bfa -= (harakBoyA + 1)
			'"And you´re athletic girl" skeptical noticed <<$boyA>> looking at your clothes.'
		end

		set mesorand = rand(0, 2)

		if mesorand = 0:
			'<<$boyA>> suggest that you go to the movies.'

			act 'Sorry, but I urgently need to escape.':
				cla
				set bfa -= (harakBoyA + 1)
				gt 'street'
			end

			act 'Come on.':gt 'kinoM', 'start'

			exit
		end

		if mesorand = 1:
			'<<$boyA>> suggest that you take a walk in the park.'

			act 'Sorry, but I urgently need to escape.':
				cla
				set bfa -= (harakBoyA + 1)
				gt 'street'
			end

			act 'Come on.':gt 'parkM', 'start'

			exit
		end

		if mesorand = 2:
			'<<$boyA>> suggest that you sit in a cafe.'

			act 'Sorry, but I urgently need to escape.':
				cla
				set bfa -= (harakBoyA + 1)
				gt 'street'
			end

			act 'Come on.':gt 'kafeM', 'start'

			exit
		end
	end

	if financeA = 2:
		if glamur = 1:
			set bfa += (harakBoyA + 1)
			'"You´ve got great taste in clothes, " said admiringly <<$boyA>> looking at your expensive dress.'
		end

		if glamur = 0:
			set bfa -= harakBoyA + 1
			'"Dear naryadets" remarked skeptical <<$boyA>> examining your unpretentious clothes.'
		end

		set mesorand = rand(0, 1)

		if mesorand = 0:
			'<<$boyA>> suggest that you go to a cafe.'

			act 'Sorry, but I urgently need to escape.':
				cla
				set bfa -= (harakBoyA + 1)
				gt 'street'
			end

			act 'Come on.':gt 'kafeM', 'start'

			exit
		end

		if mesorand = 1:
			'<<$boyA>> suggest that you go to a restaurant.'

			act 'Sorry, but I urgently need to escape.':
				cla
				set bfa -= (harakBoyA + 1)
				gt 'street'
			end

			act 'Come on.':gt 'restoranM', 'start'

			exit
		end
	end
end

--- meet ---------------------------------