glife/locations/meet

# meet
if $ARGS[0] = 'start':
	minut += 15
	dayA += 1
	svidanieA = 0
	giftNum = giftNumA
	fcolor = rgb(0, 0, 0)
	bcolor = rgb(255, 255, 255)
	lcolor = rgb(106, 90, 205)
	gs 'boyStat', 89
	$boybody = $boybodyA
	$boybod = $boybodA
	$boyface = $boyfaceA
	!! 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
	husb_birth_year = year - boyage
	husbAge = boyage

	if love = 3:
		'<<$boyA>> has hired a wedding limousine and it''s outside waiting for you. This is it, you are getting married today.'

		act 'Sit in the limousine':
			cla
			'You get into the limo, and it drives off. Soon you arrive at the wedding, <<$boyA>> is waiting for you as you walk down the aisle.'

			act 'Marry husband':
				cla
				minut += 60
				love = 0
				bfA = 0
				husband = 100
				husbanday = 0
				$husName = $boyA
				$husHair = $boyfaceA
				$husBody = $boybodyA
				$husFat = $boybodA
				husDick = dickA
				harakHusb = harakBoyA
				izvratH = izvratA
				silavagH = silavagA
				husbFin = financeA
				husbandMark = 1
				'The wedding reception takes place at a cafe. There aren''t many guests since neither you nor the groom have that many friends or family members. There is a lot of congratulations, toasts, merrymaking and crying. By the evening, everybody is drunk and you and your husband stagger into a taxi, which takes you home.'

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

		exit
	elseif love = 2:
		'<<$boyA>> looks very excited and suddenly pulls a ring out of a box.'
		'<<$boyA>> says "<<$name>>. I offer you my hand and heart. Would you marry me?"'

		act 'No (turn him down)':
			minut += 60
			bfA = 0
			pregtalk = 0
			gt 'street'
		end

		act 'Yes':
			cla
			'You agree and put the ring on your finger. <<$boyA>> rejoices and happily hugs and kisses you.'
			'<<$boyA>> says "Now you need to find a wedding dress."'

			act 'Go looking for the dress':
				cla
				minut += 60
				love = 3
				'You get into a taxi with your soon to be husband and go to the store to choose a dress. You choose an expensive and luxurious dress. <<$boyA>> pays for the purchase.'
				'After a long day you feel tired and ask <<$boyA>> to drive you home, warning him that the next time you''ll meet you will get married.'

				act 'Leave':gt 'street'
			end
		end

		exit
	end

	if mop > 1 and ($clothingworntype = 'expensive' or $clothingworntype = 'formal') and curly > 0 and love = 1 and harakBoyA = 0:
		'<<$boyA>> looks very excited. He decides that you are now ready to meet his mother.'

		act 'Meet the parents':gt 'love', 'mother'

		exit
	elseif mop > 1 and ($clothingworntype = 'expensive' or $clothingworntype = 'formal') and curly > 0 and love = 1 and harakBoyA = 1 and tanga = 1:
		'<<$boyA>> examins you and decides that you are ready to meet his friends.'

		act 'Meet his friends':gt 'love', 'frends'

		exit
	end

	if skinvan < 20:
		bfa -= 2 & $meetskin = 'looking at his feet'
	elseif skinvan < 40:
		bfa -= 1 & $meetskin = 'giving you a quick glance'
	elseif skinvan < 60:
		$meetskin = 'looking at you'
	elseif skinvan < 80:
		bfa += 1 & $meetskin = 'smiling at you'
	else
		bfa += 2 & $meetskin = 'smiling at you'
	end

	if harakBoyA = 0:
		if mop <= 2 and mop > 0:bfA += 1 & $meetmop = 'You look very beautiful today.'
		if mop = 4:bfA -= 1 & $meetmop = 'Great weather we are having today.'
	elseif harakBoyA = 1:
		if mop <= 3 and mop > 0:bfA += 1 & $meetmop = 'You look very beautiful today.'
		if mop = 4:bfA -= 1 & $meetmop = 'Your makeup looks like you''re going to a Halloween party.'
	elseif harakBoyA = 2:
		if mop = 4:bfA += 1 & $meetmop = 'You look very beautiful today.'
		if mop <= 2 and mop > 0:bfA -= 1 & $meetmop = 'Great weather we are having today.'
	end

	if mop = 0:bfA -= 1 & $meetmop = 'Um, your makeup is running.'
	if hapri = 1 and curly > 0:bfA += 2 & $meethair = 'Your hair looks very beautiful.'
	if hapri = 1 and curly = 0:bfA += 1 & $meethair = 'You have pretty hair today.'
	if hapri = 0:bfA -= 1 & $meethair = 'You look like you were in a hurry.'
	if harakBoyA = 0:$meet = '"Hello darling, I am glad to see you, <<$meetmop>> <<$meethair>>"'
	if harakBoyA = 1:$meet = '"Hello <<$name>>, I am glad to see you, <<$meetmop>> <<$meethair>>"'
	if harakBoyA = 2:$meet = '"Hi <<$name>>! Glad to see you, <<$meetmop>> <<$meethair>>"'

	$meetcol = ''

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

			if haerBoyA = 0:$meetcol = '<<$boyA>> tells you that he prefers black hair.'
			if haerBoyA = 1:$meetcol = '<<$boyA>> tells you that he prefers blonde hair.'
			if haerBoyA = 2:$meetcol = '<<$boyA>> tells you that he prefers red hair.'
			if haerBoyA = 3:$meetcol = '<<$boyA>> tells you that he prefers light hair colors.'
		elseif haerBoyA = hcol:
			bfA += 1
			'<<$boyA>> notes that you have a wonderful hair color.'
		end
	end

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

			if haerBoyA = 0:$meetcol = '<<$boyA>> tells you that he prefers black hair.'
			if haerBoyA = 1:$meetcol = '<<$boyA>> tells you that he prefers blonde hair.'
			if haerBoyA = 2:$meetcol = '<<$boyA>> tells you that he prefers red hair.'
			if haerBoyA = 3:$meetcol = '<<$boyA>> tells you that he prefers light hair colors.'
		elseif haerBoyA = hcol:
			bfA += 1
			'<<$boyA>> notes that you have a wonderful hair color.'
		end
	elseif dayA > 30 and harakBoy = 0:
		if haerBoyA ! hcol:
			bfA = bfA - 5

			if haerBoyA = 0:$meetcol = '<<$boyA>> tells you that he prefers black hair.'
			if haerBoyA = 1:$meetcol = '<<$boyA>> tells you that he prefers blonde.'
			if haerBoyA = 2:$meetcol = '<<$boyA>> tells you that he prefers red hair.'
			if haerBoyA = 3:$meetcol = '<<$boyA>> tells you that he prefers light hair colors.'
		elseif haerBoyA = hcol:
			bfA += 1
			'<<$boyA>> notes that you have a wonderful hair color.'
		end
	end

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

	'At the entrance <<$meetskin>> stands <<$boyA>>. He comes over to you and says. <<$meet>> <<$meetcol>>'

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

	! WD: Uninitialised ~ 'giftDay' us  'giftDayA'
	if dayA >= 2 and financeA = 2 and giftDayA < (dayA - giftNum):
		giftrand = rand(0, 2)

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

			if gift > 2500:gift = 2500

			giftNumA = giftNum
			money += gift
			'<<$boyA>> reaches into his pocket and pulls out a gift for you. He gives you <<gift>> <b>₽</b>.'
		end

	! WD: Uninitialised ~ 'giftDay' us  'giftDayA'
	elseif dayA >= 5 and financeA = 1 and giftDayA < (dayA - giftNum):
		giftrand = rand(0, 2)

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

			if gift > 1500:gift = 1500

			giftNumA = giftNum
			money += gift
			'<<$boyA>> reaches into his pocket and pulls out a gift for you. He gives you <<gift>> <b>₽</b>.'
		end

	! WD: Uninitialised ~ 'giftDay' us  'giftDayA'
	elseif dayA >= 10 and financeA = 0 and giftDayA < (dayA - giftNum):
		giftrand = rand(0, 2)

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

			if gift > 500:gift = 500

			giftNumA = giftNum
			money += gift
			'<<$boyA>> reaches into his pocket and pulls out a gift for you. He gives you <<gift>> <b>₽</b>.'
		end
	end

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

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

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

				if harakBoyA = 0:bfa -= 2 & 'You press your <<$meetlip>> onto his and thrust your tongue into his mouth as soon as he opens it. <<$boyA>> blushes and pulls away.'
				if harakBoyA = 1:bfa -= 1 & 'You press your <<$meetlip>> onto his and thrust your tongue into his mouth as soon as he opens it. <<$boyA>> gently returns the kiss.'
				if harakBoyA = 2:bfa += 2 & 'You press your <<$meetlip>> onto his and thrust your tongue into his mouth as soon as he opens it. <<$boyA>> aggressively pushes his tongue into your mouth and almost starts to fuck it with his tongue.'

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

				exit
			elseif spdirtyb > 0:
				'<center><img src="images/etogame/cumlip.jpg"></center>'
				'<<$boyA>> kisses you on your <<$meetlip>> that still smell like cum. He pulls away quickly. "What is this?" he asks, "Your mouth smells like sperm."'

				if izvrat = 1:
					bfa += 5
					DOM += 1
					'<<$boyA>> blushes and lowers his eyes. You can see the growing bulge in his pants.'

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

					exit
				else
					bfa = 0
					'<<$boyA>> angrily spats at you, "Oh, you dirty whore! Get lost, I don''t want to see you anymore. I''m done with you!"'

					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 move in for a kiss and <<$boyA>> a little embarrassed kisses you back.'
				if harakBoyA = 1:bfa += 2 & 'You move in for a kiss on his lips. <<$boyA>> quickly kisses you.'
				if harakBoyA = 2:bfa -= 1 & 'You move in for a kiss and <<$boyA>> replies with a juicy kiss himself, pressing his lips to your firm <<$meetlip>>.'

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

				exit
			elseif spdirtyb > 0:
				'<center><img src="images/etogame/cumlip.jpg"></center>'
				'<<$boyA>> kisses you on your <<$meetlip>> that still smell like cum. He pulls away quickly. "What is this?" he asks, "Your mouth smells like sperm."'

				if izvrat = 1:
					bfa += 5
					DOM += 1
					'<<$boyA>> blushes and lowers his eyes. You can see the growing bulge in his pants.'

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

					exit
				else
					boya = 0
					'<<$boyA>> angrily spats at you, "Oh, you dirty whore! Get lost, I don''t want to see you anymore. I''m done with you!"'

					act 'Leave':gt 'street'

					exit
				end
			end
		end

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

			if harakBoyA = 0:bfa += 1 & 'You offer your cheek and <<$boyA>> timidly kisses you.'
			if harakBoyA = 1:'You offer your cheek and <<$boyA>> kisses you.'
			if harakBoyA = 2:bfa -= 2 & 'You offer your cheek and <<$boyA>>, looking dissapointed, kisses you.'

			if giftDayA = dayA:
				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
			DOM += 2

			if harakBoyA = 0:bfa -= 1 & 'You nod and say hello. <<$boyA>> gets confused and blushes slightly.'
			if harakBoyA = 1:bfa -= 2 & 'You nod and say hello. <<$boyA>> frowns slightly.'
			if harakBoyA = 2:bfa -= 3 & 'You nod and say hello. <<$boyA>> chuckles and grins.'

			if giftDayA = dayA:
				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
	elseif venera >= 4:
		bfa = 0
		'<center><img src="images/etogame/venera.jpg"></center>'
		'<<$boyA>> takes a closer look at you and says, "What is wrong with your lips? They are very sore. Is that genital herpes? I better go, I do not want to get infected. Goodbye."'

		act 'Leave':gt 'street'

		exit
	elseif spdirtyv > 0:
		'<center><img src="images/etogame/cumface.jpg"></center>'
		'<<$boyA>> takes a closer look at you and says, "What is that in your hair? Is that sperm?"'

		if izvrat = 1:
			bfa += 5
			DOM += 1
			'<<$boyA>> blushes and lowers his eyes. You can see the growing bulge in his pants.'

			act 'Yes it is the sperm. Any other questions?':
				cla
				gs 'stat'
				'(You) - Yes, it is sperm. Any other questions?'
				'<<$boyA>> shakes his head.'

				xgt 'meet', 'a'
			end

			exit
		else
			boya = 0
			'<<$boyA>> angrily spats at you, "Oh, you dirty whore! Get lost, I don''t want to see you anymore. I''m done with you!"'

			act 'Leave':gt 'street'

			exit
		end
	end
end

if $ARGS[0] = 'a':
	if spdirtyc > 0:
		'"Hey, what is this?" asks <<$boyA>> looking at your ass. "It''s sperm!"'

		if izvrat = 1:
			bfa += 5
			DOM += 1
			'<<$boyA>> blushes and lowers his eyes. You can see the growing bulge in his pants.'
		else
			bfa = 0
			'<<$boyA>> angrily spats at you, "Oh, you dirty whore! Get lost, I don''t want to see you anymore. I''m done with you!"'

			act 'Leave':gt 'street'

			exit
		end
	end

	if financeA = 0:
		if ($clothingworntype = 'expensive' or $clothingworntype = 'formal') and PCloSkirt > 0:
			bfa -= (harakBoyA + 1)
			'"And you dress smartly, " remarks a skeptical <<$boyA>> looking at your expensive dress.'
		end

		if PCloSkirtShortness > 0 or $clothingworntype = 'exercise':
			bfa += (harakBoyA + 1)
			'"A classy outfit, " says <<$boyA>>'
		end

		mesorand = rand(0, 1)

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

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

			act 'Go with him':gt 'podezdM', 'start'

			exit
		elseif mesorand = 1:
			'<<$boyA>> suggests that you take a walk in the park.'

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

			act 'Go with him':gt 'parkM', 'start'

			exit
		end
	elseif financeA = 1:
		if ($clothingworntype = 'expensive' or $clothingworntype = 'formal'):
			boyA += (harakBoyA + 1)
			'"Great clothes, " <<$boyA>> says admiringly.'
		end

		if $clothingworntype = 'exercise':
			bfa -= (harakBoyA + 1)
			'"And you''re an athletic girl" <<$boyA>> notices skeptically, looking at your clothes.'
		end

		mesorand = rand(0, 2)

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

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

			act 'Go with him':gt 'kinoM', 'start'

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

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

			act 'Go with him':gt 'parkM', 'start'

			exit
		elseif mesorand = 2:
			'<<$boyA>> suggests that you go to a cafe.'

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

			act 'Go with him':gt 'kafeM', 'start'

			exit
		end
	elseif financeA = 2:
		if ($clothingworntype = 'expensive' or $clothingworntype = 'formal') and PCloSkirt > 0:
			bfa += (harakBoyA + 1)
			'"You''ve got great taste in clothes." <<$boyA>> says admiringly, looking at your expensive dress.'
		elseif $clothingworntype ! 'expensive' and $clothingworntype ! 'formal':
			bfa -= harakBoyA + 1
			'"You have an interesting taste in clothes." <<$boyA>> remarks skepitcally, examining your unpretentious clothes.'
		end

		mesorand = rand(0, 1)

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

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

			act 'Go with him':gt 'kafeM', 'start'

			exit
		elseif mesorand = 1:
			'<<$boyA>> suggests that you go to a restaurant.'

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

			act 'Go with him':gt 'restoranM', 'start'

			exit
		end
	end
end

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