# 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
!длинна члена
dick = dickA
!! половая сила от 0 до 2
silaVag = silaVagA
!!Обеспеченность, отвечает за деньги и требования 0 нищий, 1 середняк 2 богат
finance = financeA
!!проверка по внешности, от параметра vnesh
vneshBoy = vneshBoyA
$boyClo = $boyCloA
!0 - зад меньше 80, 1 зад от 80 до 100, 2 зад свыше 100
figurBoy = figurBoyA
!0 - грудь меньше 3, 1 грудь 3-4, 2 грудь больше 4
titBoy = titBoyA
!любимый цвет волос 0 - брюнетка, 1 - шатенка, 2 - рыжая, 3 - блондинка
haerBoy = haerBoyA
!характер 0 - мягкий, 1 -норма 2 - агрессор
harakBoy = harakBoyA
!извращенность
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 $HouseLocation
		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 $HouseLocation
			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'
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!ДИАЛОГ
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
'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 $HouseLocation
				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 $HouseLocation
				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 $HouseLocation
	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 $HouseLocation
		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 $HouseLocation
			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 $HouseLocation
			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 $HouseLocation
		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 $HouseLocation
			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 $HouseLocation
			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 $HouseLocation
			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 $HouseLocation
			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 $HouseLocation
			end
		act 'Come on.': gt 'restoranM','start'
		exit
		end
	end
end
--- meet ---------------------------------