glife/locations/lover_meet.qsrc

# lover_meet

if $ARGS[0] = 'start':
	menu_off = 1
	$location_type = 'event'
	minut += 15

	loverdays[lover_number] += 1
	svidanie[lover_number] = 0
	giftNum = giftNum[lover_number]
	gs 'themes', 'indoors'

	gs 'lover_pronouns'
	gs 'lover_pref'

	gs 'stat'

	!!This keeps track in the change action what it plans to change
	$changeFind = ''

	!!How many days until the lover starts to comment.
	clotDay = 3
	bodyDay = 7

	!!How many days until they want you to change.
	pierDay = 7
	tattDay = 7
	lipsDay = 9
	titsDay = 12
	figureDay = 15

	!! This is the start of the usual talk
	!!character 0 - soft, 1 -norm 2 - aggressor

	'<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'

	if haraklover[lover_number] = 0:
		if loverrelation[lover_number] > 70:
			randchan = rand(0, 2)
			if randchan = 0:
				$greet = 'says with love in <<$tXyr>> eyes, "Hey <<$pcs_nickname>>."'
			elseif randchan = 1:
				$greet = 'says lovingly, "Hello love. I''m glad so see you."'
			elseif randchan = 2:
				$greet = 'says quietly while looking into your eyes, "Hello love." '
			end
		elseif loverrelation[lover_number] > 20:
			randchan = rand(0, 1)
			if randchan = 0:
				$greet = 'says with a faint smile,"Hey <<$pcs_nickname>>."'
			elseif randchan = 1:
				$greet = 'says with a smile , "Hi <<$pcs_nickname>>."'
			end
		else
			$greet = 'says, "Hi <<$pcs_firstname>>."'
		end
	end

	if haraklover[lover_number] = 1:
		if loverrelation[lover_number] > 70:
			randchan = rand(0, 2)
			if randchan = 0:
				$greet = 'says, "Hey love. I am so happy to see you."'
			elseif randchan = 1:
				$greet = 'says intimately, "Hello my angel."'
			elseif randchan = 2:
				$greet = 'says while admiring you, "Hello <<$pcs_nickname>> beautiful."'
			end
		elseif loverrelation[lover_number] > 20:
			randchan = rand(0, 1)
			if randchan = 0:
				$greet = 'says with a smile, "Hey <<$pcs_nickname>>, glad to see you."'
			elseif randchan = 1:
				$greet = 'says with a soft tone, "Hello beautiful."'
			end
		else
			$greet = 'says, "Hello <<$pcs_nickname>>."'
		end
	end

	if haraklover[lover_number] = 2:
		if loverrelation[lover_number] > 70:
			randchan = rand(0, 2)
			if randchan = 0:
				$greet = 'says with a loving voice, "Theres my sexy gal."'
			elseif randchan = 1:
				$greet = 'says with a toothful grin, "There is my goddess."'
			elseif randchan = 2:
				$greet = 'says with a rather loud enduring voice, "Hey babe!"'
			end
		elseif loverrelation[lover_number] > 20:
			randchan = rand(0, 1)
			if randchan = 0:
				$greet = 'says with a grin, "Hey <<$pcs_nickname>>."'
			elseif randchan = 1:
				$greet = 'says with a chuckle, "Hey''ya <<$pcs_nickname>>."'
			end
		else
			$greet = 'says, "Hey <<$pcs_nickname>>."'
		end
	end

	gs 'lover_love'

	!! QUEST VARIABLES!!! WOOOT ALMOST TIME!
	didPushAway = 0

	!!How beautiful you are
	if pcs_skin < 20:
		loverrelation[lover_number] -= 2 & $meetskin = 'looking at <<$tXyr>> feet'
	elseif pcs_skin < 40:
		loverrelation[lover_number] -= 1 & $meetskin = 'giving you a quick glance'
	elseif pcs_skin < 60:
		$meetskin = 'looking at you'
	elseif pcs_skin < 80:
		loverrelation[lover_number] += 1 & $meetskin = 'smiling at you'
	else
		loverrelation[lover_number] += 2 & $meetskin = 'smiling at you'
	end

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

	if loverfinance[lover_number] = 0:$clom = 'dressed in a tracksuit.'
	if loverfinance[lover_number] = 1:$clom = 'dressed in jeans and a sweater.'
	if loverfinance[lover_number] = 2 and loverGender[lover_number] = 0:$clom = 'dressed in a respectable and expensive jacket.'
	if loverfinance[lover_number] = 2 and loverGender[lover_number] = 1:$clom = 'dressed in a beautiful and expensive dress.'

	!!Greeting start

	'At the entrance <<$meetskin>> stands <<$loverdesc[lover_number]>>. <<$tXec>> comes over to you and <<$greet>>'

	gs 'lover_likes', 'hairPref'
	gs 'lover_likes', 'makePrefTmp'

	if haraklover[lover_number] = 0:'<<$loverdesc[lover_number]>> looks like a timid and not very confident young <<$loverGenderName>> <<$clom>>'
	if haraklover[lover_number] = 1:'<<$loverdesc[lover_number]>> looks like an average young <<$loverGenderName>> <<$clom>>'
	if haraklover[lover_number] = 2:'<<$loverdesc[lover_number]>> looks like a cocky and brash young <<$loverGenderName>> <<$clom>>'

	!!This is to reset the like part later

	likeCount = 0
	like1 = 99
	like2 = 99
	like3 = 99

	!! This is the greeting kissy part

	if haraklover[lover_number] >= 0:
		if loverrelation[lover_number] > -20:
			loverrelation[lover_number] += 0
			'<<$loverdesc[lover_number]>> gets close to you, and you can tell by <<$tXyr>> body movements <<$tXe>> wants to kiss you.'
			act 'Kiss with tongue':
				*clr & cla
				'<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
				'You take the initiative and when <<$tXe>> opens <<$tXyr>> mouth you thrust your tongue into <<$tXyr>> mouth.'
				gs 'arousal', 'kiss', 5
				pcs_mood += 10
				gs 'stat'
				if venera > 4:
					gs 'lover', 'remove', lover_number
					'<<$loverdesc[lover_number]>> 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. I''m sorry, goodbye."'
					pcs_mood -= 20
					gt 'din_npc', 'go_home'
					exit
				elseif venera < 4 and cumloc[11] = 0 and (cumloc[6] = 0 and cumloc[7] = 0):
					if haraklover[lover_number] = 0:
						loverrelation[lover_number] += 2
						'Normally this would have made <<$tXem>> feel uncomfortable, but as you pull away <<$tXe>> smiles and sighs contently.'
					elseif haraklover[lover_number] = 1:
						loverrelation[lover_number] += 1
						'<<$tXec>> goes with it a blink and in moments your tongues are intertwined.'
					elseif haraklover[lover_number] = 2:
						'It seems as <<$loverdesc[lover_number]>> had the same idea, as <<$tXe>> pushes <<$tXyr>> tongue into your mouth as much as you push into <<$tXyr>>.'
						loverrelation[lover_number] += 2
					else
						'This should not fire off at all: TongueKiss'
					end
				elseif (cumloc[11] = 1 or cumloc[6] = 1 or cumloc[7] = 1) and pervConstant = 1 and loverGender[lover_number] = 0:
					if cumloc[11] = 1:
						if haraklover[lover_number] = 0:
							loverrelation[lover_number] += 2
							pcs_horny += 5
							'<<$tXec>> can see sperm on your face, but underneath <<$tXyr>> shy demener you know that it only turns <<$tXem>> on.'
						elseif haraklover[lover_number] = 1:
							loverrelation[lover_number] += 2
							pcs_horny += 5
							'<<$tXec>> can see sperm on your face, but you know that it only turns <<$tXem>> on more.'
						elseif haraklover[lover_number] = 2:
							'<<$tXec>> can see sperm on your face, but by the bulge in <<$tXyr>> pants you know it only turns <<$tXem>> on.'
						end
					elseif (cumloc[6] = 1 or cumloc[7] = 1):
						if haraklover[lover_number] = 0:
							loverrelation[lover_number] += 2
							pcs_horny += 5
							'<<$tXec>> can see sperm on your ass, but underneath <<$tXyr>> shy demener you know that it only turns <<$tXem>> on.'
						elseif haraklover[lover_number] = 1:
							loverrelation[lover_number] += 2
							pcs_horny += 5
							'<<$tXec>> can see sperm on your ass, but you know that it only turns <<$tXem>> on more.'
						elseif haraklover[lover_number] = 2:
							loverrelation[lover_number] += 3
							pcs_horny += 5
							'<<$tXec>> can see sperm on your ass, but by the bulge in <<$tXyr>> pants you know it only turns <<$tXem>> on.'
						end
					end
				elseif (cumloc[11] = 1 or cumloc[6] = 1 or cumloc[7] = 1) and (pervConstant ! 1 or loverGender[lover_number] = 0):
					if cumloc[11] = 1:
						gs 'lover', 'remove', lover_number
						'<<$tXec>> notices the sperm on your face, "H-Hey- <<$pcs_firstname>>! What the...?! You dirty whore!", <<$tXe>> then pushes you out of <<$tXyr>> face. "We are through, I don''t want to see your face again!'
						pcs_mood -= 20
						gt 'din_npc', 'go_home'
						exit
					elseif (cumloc[6] = 1 or cumloc[7] = 1):
						loverrelation[lover_number] += 2
						'<<$tXec>> notices the sperm on your ass, "<<$pcs_firstname>>! What the...?! You dirty whore!", <<$tXe>> then pushes you away. "We are through, I don''t want to see your face again!'
						pcs_mood -= 20
						gt 'din_npc', 'go_home'
						exit
					end
				end

				act 'Continue':	xgt 'lover_meet', 'likes'
			end

			act 'Kiss with lips':
				*clr & cla
				'<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
				'You press your <<$meetlip>> softly against <<$tXyr>>, and for a split second time seems to stop.'
				pcs_mood += 10
				if cumloc[11] = 0 and (cumloc[6] = 0 and cumloc[7] = 0):
					if haraklover[lover_number] = 0:
						loverrelation[lover_number] += 2
						'<<$tXec>> wraps arms around you, you both stay like this for at least a couple of seconds and as you pull away <<$tXe>> looks into your eyes and smiles.'
						gs 'arousal', 'kiss', 5
						gs 'stat'
					elseif haraklover[lover_number] = 1:
						loverrelation[lover_number] += 2
						'<<$tXec>> kisses you back with such skill it turns you on.'
						gs 'arousal', 'kiss', 5
						gs 'stat'
					elseif haraklover[lover_number] = 2:
						loverrelation[lover_number] += 2
						'<<$tXec>> kisses you back with such passion you feel a tingle within you.'
						gs 'arousal', 'kiss', 5
						gs 'stat'
					end
				elseif (cumloc[11] = 1 or cumloc[6] = 1 or cumloc[7] = 1 or cumloc[12] = 1) and pervConstant = 1:
					if cumloc[11] = 1:
						if haraklover[lover_number] = 0:
							loverrelation[lover_number] += 2
							pcs_horny += 5
							'<<$tXec>> can see sperm on your face, but underneath <<$tXyr>> shy demener you know that it only turns <<$tXem>> on.'
						elseif haraklover[lover_number] = 1:
							loverrelation[lover_number] += 2
							pcs_horny += 5
							'<<$tXec>> can see sperm on your face, but you know that it only turns <<$tXem>> on more.'
						elseif haraklover[lover_number] = 2:
							loverrelation[lover_number] += 3
							pcs_horny += 5
							'<<$tXec>> can see sperm on your face, but by the bulge in <<$tXyr>> pants you know it only turns <<$tXem>> on.'
						end
					elseif (cumloc[6] = 1 or cumloc[7] = 1):
						if haraklover[lover_number] = 0:
							loverrelation[lover_number] += 2
							pcs_horny += 5
							'<<$tXec>> can see sperm on your ass, but underneath <<$tXyr>> shy demener you know that it only turns <<$tXem>> on.'
						elseif haraklover[lover_number] = 1:
							loverrelation[lover_number] += 2
							pcs_horny += 5
							'<<$tXec>> can see sperm on your ass, but you know that it only turns <<$tXem>> on more.'
						elseif haraklover[lover_number] = 2:
							loverrelation[lover_number] += 3
							pcs_horny += 5
							'<<$tXec>> can see sperm on your ass, but by the bulge in <<$tXyr>> pants you know it only turns <<$tXem>> on.'
						end
					elseif cumloc[12] = 1:
						if haraklover[lover_number] = 0:
							loverrelation[lover_number] += 2
							pcs_horny += 5
							'<<$tXec>> can smell the scent of sperm on you, but underneath <<$tXyr>> shy demener you know that it only turns <<$tXem>> on.'
						elseif haraklover[lover_number] = 1:
							loverrelation[lover_number] += 2
							pcs_horny += 5
							'<<$tXec>> can smell the scent of sperm on you, but you know that it only turns <<$tXem>> on more.'

						elseif haraklover[lover_number] = 2:
							loverrelation[lover_number] += 3
							pcs_horny += 5
							'<<$tXec>> can smell the scent of sperm on you, but you know by the bulge in <<$tXyr>> pants it only turns <<$tXem>> on more.'
						end
					end
				else
					if (cumloc[11] = 1 or cumloc[6] = 1 or cumloc[7] = 1) and pervConstant ! 1:
						if cumloc[11] = 1:
							gs 'lover', 'remove', lover_number
							'<<$tXec>> notices the sperm on your face, "<<$pcs_firstname>>! What the...?! You dirty whore!", <<$tXe>> then pushes you out of <<$tXyr>> face. "We are through, I don''t want to see your face again!'
							pcs_mood -= 20
							gt 'din_npc', 'go_home'
							exit
						elseif (cumloc[6] = 1 or cumloc[7] = 1):
							gs 'lover', 'remove', lover_number
							'<<$tXec>> notices the sperm on your ass, "<<$pcs_firstname>>! What the...?! You dirty whore!", <<$tXe>> then pushes you away. "We are through, I don''t want to see your face again!'
							pcs_mood -= 20
							gt 'din_npc', 'go_home'
							exit
						end
					end
				end

				act 'Continue': xgt 'lover_meet', 'likes'
			end

			act 'Hint for a kiss on the cheek':
				*clr & cla
				'<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
				'You make a cute pouty face and turn your cheek toward <<$loverdesc[lover_number]>>. <<$tXec>> understands and though <<$tXe>> wanted to kiss you, <<$tXe>> settles with giving you a peck on the cheek'
				pcs_mood += 10
				if cumloc[11] = 0 and (cumloc[6] = 0 and cumloc[7] = 0):
					if haraklover[lover_number] = 0:
						loverrelation[lover_number] += 2
						'<<$tXec>> gives you a soft kiss on the cheek, and you can tell <<$tXe>> finds this act very cute.'
						gs 'arousal', 'kiss', 5
						gs 'stat'
					elseif haraklover[lover_number] = 1:
						loverrelation[lover_number] += 1
						'<<$tXec>> kisses you on the cheek and before <<$tXe>> pulls away you feel a quick kiss on the forhead.'
						gs 'arousal', 'kiss', 5
						gs 'stat'
					elseif haraklover[lover_number] = 2:
						loverrelation[lover_number] += 0
						'Though you can tell <<$tXe>> is a bit disappointed, <<$tXe>> gives you a kiss on the cheek. As <<$tXe>> pulls away <<$tXe>> gives your ass a quick squeeze.'
						gs 'arousal', 'kiss', 5
						gs 'stat'
					end
				elseif (cumloc[11] = 1 or cumloc[6] = 1 or cumloc[7] = 1 or cumloc[12] = 1) and pervConstant = 1:
					if cumloc[11] = 1:
						if haraklover[lover_number] = 0:
							loverrelation[lover_number] += 2
							pcs_horny += 5
							'<<$tXec>> can see sperm on your face, but underneath <<$tXyr>> shy demener you know that it only turns <<$tXem>> on.'
						elseif haraklover[lover_number] = 1:
							loverrelation[lover_number] += 2
							pcs_horny += 5
							'<<$tXec>> can see sperm on your face, but you know that it only turns <<$tXem>> on more.'
						elseif haraklover[lover_number] = 2:
							loverrelation[lover_number] += 3
							pcs_horny += 5
							'<<$tXec>> can see sperm on your face, but by the bulge in <<$tXyr>> pants you know it only turns <<$tXem>> on.'
						end
					elseif (cumloc[6] = 1 or cumloc[7] = 1):
						if haraklover[lover_number] = 0:
							loverrelation[lover_number] += 1
							pcs_horny += 5
							'<<$tXec>> can see sperm on your ass, but underneath <<$tXyr>> shy demener you know that it only turns <<$tXem>> on.'
						elseif haraklover[lover_number] = 1:
							loverrelation[lover_number] += 1
							pcs_horny += 5
							'<<$tXec>> can see sperm on your ass, but you know that it only turns <<$tXem>> on more.'
						elseif haraklover[lover_number] = 2:
							loverrelation[lover_number] += 1
							pcs_horny += 5
							'<<$tXec>> can see sperm on your ass, but by the bulge in <<$tXyr>> pants you know it only turns <<$tXem>> on.'
						end
					end
				elseif (cumloc[11] = 1 or cumloc[6] = 1 or cumloc[7] = 1) and pervConstant ! 1:
					if cumloc[11] = 1:
						gs 'lover', 'remove', lover_number
						'<<$tXec>> notices the sperm on your face, "H-Hey- <<$pcs_firstname>>! What the...?! You dirty whore!", <<$tXe>> then pushes you out of <<$tXyr>> face. "We are through, I don''t want to see your face again!'
						pcs_mood -= 20
						gt 'din_npc', 'go_home'
						exit
					elseif (cumloc[6] = 1 or cumloc[7] = 1):
						gs 'lover', 'remove', lover_number
						'<<$tXec>> notices the sperm on your ass, "H-Hey- <<$pcs_firstname>>! What the...?! You dirty whore!", <<$tXe>> then pushes you away. "We are through, I don''t want to see your face again!'
						pcs_mood -= 20
						gt 'din_npc', 'go_home'
						exit
					elseif (cumloc[6] = 1 or cumloc[7] = 1):
						gs 'lover', 'remove', lover_number
						'<<$tXec>> realizes your mouth smells like sperm, "H-Hey- <<$pcs_firstname>>! What the...?! You dirty whore!", <<$tXe>> then pushes you away. "We are through, I don''t want to see your face again!"'
						pcs_mood -= 20
						gt 'din_npc', 'go_home'
						exit
					end
				end

				act 'Continue': xgt 'lover_meet', 'likes'
			end

			act 'Push <<$tXyr>> face away':
				*clr & cla
				didPushAway = 1
				'<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
				'Maybe you had a bad day, maybe you don''t want a kiss, you rudely push <<$tXyr>> face away, and by the looks of it, hurting <<$tXyr>> feelings in the process.'
				if haraklover[lover_number] = 0:
					loverrelation[lover_number] -= 7
					'<<$tXec>> stands there slightly embarrassed, and you can tell this hurt your relationship a good amount.'
				elseif haraklover[lover_number] = 1:
					loverrelation[lover_number] -= 5
					'<<$tXec>> looks at you slightly concerned, but backs off and gives you your space.'
				elseif haraklover[lover_number] = 2:
					loverrelation[lover_number] -= 10
					'<<$tXec>> begins to get angry, <<$tXe>> takes a deep breath and gives you space.'
				end

				act 'Continue': xgt 'lover_meet', 'likes'
			end
		else
			act 'Continue': xgt 'lover_meet', 'likes'
		end
	else
		act 'Continue': xgt 'lover_meet', 'likes'
	end
end

if $ARGS[0] = 'likes':
	cla
	if loverdays[lover_number] >= clotDay:
		gs 'lover_likes', 'clothesPref'
	end
	if loverdays[lover_number] >= bodyDay:
		gs 'lover_likes', 'bodyPrefTmp'
	end

	xgt 'lover_meet', 'actions'
end

if $ARGS[0] = 'actions':
	act 'Can I ask you how you think I look?':
		*clr & cla
		'<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
		'<<$loverdesc[lover_number]>> says "If you insist" and tells you exactly how <<$tXe>> thinks you look based on what <<$tXe>> likes:'
		gs 'lover_likes', 'allPref'
		act 'Okay, lets talk about something else':	xgt 'lover_meet', 'actions'
	end

	act 'What do you want to do today?':
		*clr & cla
		'<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
		'You tell <<$tXem>> you would rather <<$tXem>> decide what we do today.'

		if haraklover[lover_number] = 0:
			loverrelation[lover_number] += 0
			'Not used to being given the opportunity to choose, <<$tXe>> thinks what to do...'
		elseif haraklover[lover_number] = 1:
			loverrelation[lover_number] += 0
			'<<$tXec>> thinks about what to do today.'
		elseif haraklover[lover_number] = 2:
			loverrelation[lover_number] += 1
			'You can tell <<$tXe>> is happy you gave <<$tXem>> the ability to choose what to do today.'
		end
		!!This is the choice maker!

		!!Willpower checks for resistance
		if loverscompliance[lover_number] <=2:
			$loverResist = 'easy'
		elseif loverscompliance[lover_number] <=4:
			$loverResist = 'medium'
		else
			$loverResist = 'hard'
		end
		gs 'willpower', 'misc', 'self', $loverResist

		$lover_meet['ChangeActions'] = {
			!$ARGS[0] = name of thing being changed
			!$ARGS[1] = Parameter for lover_change procedure
			$lover_meet['ChangeName'] = $ARGS[0]
			$lover_meet['ChangeParamName'] = $ARGS[1]

			if will_cost <= pcs_willpwr:
				act 'I like my <<$lover_meet["ChangeName"]>> just the way it is (<<will_cost>> Willpower)':
					*clr & cla
					gs 'willpower', 'pay', 'self'
					gs 'stat'

					loverrelation[lover_number] -=3
					'<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
					'<<$loverdesc[lover_number]>> realizes you will not give in this situation, and walks away mumbling to <<$tXemself>>.'
					gt 'din_npc', 'go_home'
				end
			else
				act 'I like my <<$lover_meet["ChangeName"]>> just the way it is (<font color="red"><<will_cost>> Willpower</font>)':'<br><font color="red">You don''t have enough willpower to use this action.</font>'
			end
			act 'Agree with <<$tXem>> to change your <<$lover_meet["ChangeName"]>>': gt 'lover_change', '<<$lover_meet["ChangeParamName"]>>'
		}

		if loverfinance[lover_number] = 0:
			!! 0 - change player, 1 - beer in stairwell, 2 - walk in park,
			randchan = rand(0, 2)
			!! 1 = does like, 0 = not like
			if (pierWearCount >= pierPrefTmpMin and pierWearCount <= pierPrefTmpMax) or pierPrefTmp = 0:
				pierCheck = 1
			else
				pierCheck = 0
			end

			if (tattCount >= tattPrefTmpMin and tattCount <= tattPrefTmpMax) or tattPrefTmp = 0:
				tattCheck = 1
			else
				tattCheck = 0
			end

			if (makeupSetting = makePrefTmp) or makePrefTmp = 0:
				makeupCheck = 1
			else
				makeupCheck = 0
			end

			if pcs_haircol = hairPref:
				hairCheck = 1
			else
				hairCheck = 0
			end

			if (pierWearCount >= pierPrefTmpMin and pierWearCount <= pierPrefTmpMax) or pierPrefTmp = 0:
				pierCheck = 1
			else
				pierCheck = 0
			end

			if (tattCount >= tattPrefTmpMin and tattCount <= tattPrefTmpMax) or tattPrefTmp = 0:
				tattCheck = 1
			else
				tattCheck = 0
			end

			if randchan = 0 and (pierCheck + tattCheck + makeupCheck + hairCheck) = 4: randchan = rand(1, 2)

 			if randchan = 0:
				*clr & cla
				!!Some things you can change.
				!!loverfinance[lover_number] = 0 - hair, makeup, tattoo, piercings.
				'<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
				if haraklover[lover_number] = 0:
					'"Actually can I talk to you about something?", <<$loverdesc[lover_number]>> asks you.'
				elseif haraklover[lover_number] = 1:
					'"Actually can I talk to you about something?", <<$loverdesc[lover_number]>> asks you.'
				elseif haraklover[lover_number] = 2:
					'"Actually can I talk to you about something?", <<$loverdesc[lover_number]>> asks you.'
				end

				'"Whats up <<$loverdesc[lover_number]>>?"'
				'"There is just a trait about you that bugs me, can we change that?"'
				if loverscompliance[lover_number] > 0: 'You know you have changed for <<$tXem>> before, and you want to avoid to changing into something you are not.'

				gs 'lover_likes', 'compliance'

				'"And what did you want to change about me?"'
				!!This is to make a last check on how many piercings they are WEARING
				gs 'lover_likes', 'checkPier'

				if pcs_haircol ! hairPref:
					*clr & cla
					'<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
					'<<$loverdesc[lover_number]>> looks at your hair and says, "can we get your hair dyed?"'

					dynamic $lover_meet['ChangeActions'], 'hair', 'Hair'

				elseif makeupSetting ! makePrefTmp and makePrefTmp ! 0:
					'<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
					'<<$loverdesc[lover_number]>> thinks about it and says "Can you wear <<$makePrefTmp>> from now on?"'

					dynamic $lover_meet['ChangeActions'], 'makeup', 'Make'

				elseif pierWearCount < pierPrefTmpMin or pierWearCount > pierPrefTmpMax and pierPrefTmp ! 0 and pierDay <= loverdays[lover_number]:
					'<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
					'<<$loverdesc[lover_number]>> talks about how you just don''t have the right amount of piercings.'
					if pierWearCount < pierPrefTmpMin:
						'<<$tXec>> tells you that you should have more piercings.'
					else
						'<<$tXec>> tells you that you should have less piercings.'
					end

					dynamic $lover_meet['ChangeActions'], 'piercings', 'Pier'

				elseif tattCount < tattPrefTmpMin or tattCount > tattPrefTmpMax and tattPrefTmp ! 0 and tattDay <= loverdays[lover_number]:
					'<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
					'<<$loverdesc[lover_number]>> talks about how you just don''t have the right amount of tattoos.'
					if tattCount < tattPrefTmpMin:
						'<<$tXec>> tells you that you should have more tattoos.'
					else
						'<<$tXec>> tells you that you should have less tattoos.'
					end

					dynamic $lover_meet['ChangeActions'], 'tattoos', 'Tatt'

				else
					*clr & cla
					'<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
					'Erm... Nothing...'
					act 'Well then...':	xgt 'lover_meet', 'actions'
				end
			elseif randchan = 1 and loverGender[lover_number] = 0:
				*clr & cla
				'<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
				'<<$loverdesc[lover_number]>> suggest you and <<$tXem>> drink a beer in the stairwell.'
				act 'Sorry, but I need to go':
					cla
					loverrelation[lover_number] -= (haraklover[lover_number] + 1)
					gt 'din_npc', 'go_home'
				end
				act 'Go with <<$tXem>>':gt 'podezdM', 'start'
			elseif randchan = 2 or loverGender[lover_number] = 1:
				*clr & cla
				'<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
				'<<$loverdesc[lover_number]>> suggests that you take a walk in the park.'
				act 'Sorry, but I need to go':
					cla
					loverrelation[lover_number] -= (haraklover[lover_number] + 1)
					gt 'din_npc', 'go_home'
				end

				act 'Go with <<$tXem>>':
					if loverGender[lover_number] = 0: gt 'parkM', 'start'
					if loverGender[lover_number] = 1: $telsob = '<<$loverdesc[lover_number]>>' & gt 'parksvid'
				end
			end
		elseif loverfinance[lover_number] = 1:
			*clr & cla
			'<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
			!! 0 - change player, 1 - go to the movies, 2 - walk in park, 3 , suggests that you go to a cafe.
			randchan = rand(0, 3)
			!! 1 = does like, 0 = not like
			if (pierWearCount >= pierPrefTmpMin and pierWearCount <= pierPrefTmpMax) or pierPrefTmp = 0:
				pierCheck = 1
			else
				pierCheck = 0
			end

			if (tattCount >= tattPrefTmpMin and tattCount <= tattPrefTmpMax) or tattPrefTmp = 0:
				tattCheck = 1
			else
				tattCheck = 0
			end

			if (makeupSetting = makePrefTmp) or makePrefTmp = 0:
				makeupCheck = 1
			else
				makeupCheck = 0
			end

			if pcs_haircol = hairPref:
				hairCheck = 1
			else
				hairCheck = 0
			end

			if tits >= titMin and tits <= titMax:
				titCheck = 1
			else
				titCheck = 0
			end

			if pcs_lip >= lipsPrefTmpMin and tits <= lipsPrefTmpMax:
				lipsCheck = 1
			else
				lipsCheck = 0
			end

			if randchan = 0 and (pierCheck + tattCheck + makeupCheck + hairCheck + titCheck + lipsCheck) = 6:
				'Takes one look at your body and loves every part of it.'
				randchan = rand(1, 3)
			end

			if randchan = 0:
				*clr & cla
				!!Some things you can change.
				!!loverfinance[lover_number] = 1 - hair, makeup, tattoo, piercings, lips, tits.
				'<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
				if haraklover[lover_number] = 0:
					'"Actually can I talk to you about something?", <<$loverdesc[lover_number]>> asks you.'
				elseif haraklover[lover_number] = 1:
					'"Actually can I talk to you about something?", <<$loverdesc[lover_number]>> asks you.'
				elseif haraklover[lover_number] = 2:
					'"Actually can I talk to you about something?", <<$loverdesc[lover_number]>> asks you.'
				end

				'"Whats up <<$loverdesc[lover_number]>>?"'
				'"There is just a trait about you that bugs me, can we change that?"'

				if loverscompliance[lover_number] > 0: 'You know you have changed for <<$tXem>> before, and you want to avoid to changing into something you are not.'

				gs 'lover_likes', 'compliance'

				'"And what did you want to change about me?"'
				!!This is to make a last check on how many piercings they are WEARING
				gs 'lover_likes', 'checkPier'

				if pcs_haircol ! hairPref:
					'<<$loverdesc[lover_number]>> looks at your hair and says, "can we get your hair dyed?"'

					dynamic $lover_meet['ChangeActions'], 'hair', 'Hair'

				elseif makeupSetting ! makePrefTmp and makePrefTmp ! 0:
					*clr & cla
					'<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
					'<<$loverdesc[lover_number]>> thinks about it and says "Can you wear <<$makePrefTmp>> from now on?"'

					dynamic $lover_meet['ChangeActions'], 'makeup', 'Make'

				elseif pierWearCount < pierPrefTmpMin or pierWearCount > pierPrefTmpMax and pierPrefTmp ! 0 and pierDay <= loverdays[lover_number]:
					*clr & cla
					'<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
					'<<$loverdesc[lover_number]>> talks about how you just don''t have the right amount of piercings.'
					if pierWearCount < pierPrefTmpMin:
						'<<$tXec>> tells you that you should have more piercings.'
					else
						'<<$tXec>> tells you that you should have less piercings.'
					end

					dynamic $lover_meet['ChangeActions'], 'piercings', 'Pier'

				elseif tattCount < tattPrefTmpMin or tattCount > tattPrefTmpMax and tattPrefTmp ! 0 and tattDay <= loverdays[lover_number]:
					*clr & cla
					'<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
					'<<$loverdesc[lover_number]>> talks about how you just don''t have the right amount of tattoos.'

					dynamic $lover_meet['ChangeActions'], 'tattoos', 'Tatt'

				elseif pcs_lip < lipsPrefTmpMin or pcs_lip > lipsPrefTmpMax and lipsDay <= loverdays[lover_number]:
					*clr & cla
					'<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
					'<<$loverdesc[lover_number]>> tells you your lips are just not the right size.'
					if pcs_lip < lipsPrefTmpMin:
						'<<$tXec>> tells you that you should get lip injections.'
					else
						'<<$tXec>> tells you that you should have lip reduction.'
					end

					dynamic $lover_meet['ChangeActions'], 'lips', 'Lips'

				elseif tits < titMin or tits > titMax and titsDay <= loverdays[lover_number]:
					*clr & cla
					'<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
					'<<$loverdesc[lover_number]>> tells you your breasts are just not right.'
					if tits < titMin:
						'<<$tXec>> tells you that you should get breast implants.'
					else
						'<<$tXec>> tells you that you should have a breast reduction.'
					end

					dynamic $lover_meet['ChangeActions'], 'breasts', 'Tits'

				else
					*clr & cla
					'<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
					'"Erm... Nothing..."'
					act '"Well then..."': xgt 'lover_meet', 'actions'
				end
			elseif randchan = 1:
				*clr & cla
				'<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
				'<<$loverdesc[lover_number]>> suggests that you go to the movies.'

				act 'Sorry, but I need to go':
					cla
					loverrelation[lover_number] -= (haraklover[lover_number] + 1)
					gt 'din_npc', 'go_home'
				end

				act 'Go with <<$tXem>>':
					if loverGender[lover_number] = 0: gt 'kinoM', 'start'
					if loverGender[lover_number] = 1: $telsob = '<<$loverdesc[lover_number]>>' & gt 'kinosvid'
				end
			elseif randchan = 2:
				*clr & cla
				'<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
				'<<$loverdesc[lover_number]>> suggest that you take a walk in the park'

				act 'Sorry, but I need to go':
					cla
					loverrelation[lover_number] -= (haraklover[lover_number] + 1)
					gt 'din_npc', 'go_home'
				end

				act 'Go with <<$tXem>>':
					if loverGender[lover_number] = 0: gt 'parkM', 'start'
					if loverGender[lover_number] = 1: $telsob = '<<$loverdesc[lover_number]>>' & gt 'parksvid'
				end
			elseif randchan = 3:
				*clr & cla
				'<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
				'<<$loverdesc[lover_number]>> suggests that you go to a cafe.'

				act 'Sorry, but I need to go':
					cla
					loverrelation[lover_number] -= (haraklover[lover_number] + 1)
					gt 'din_npc', 'go_home'
				end

				act 'Go with <<$tXem>>':
					if loverGender[lover_number] = 0: gt 'kafeM', 'start'
					if loverGender[lover_number] = 1: $telsob = '<<$loverdesc[lover_number]>>' & gt 'kafesvid'
				end
			end
		elseif loverfinance[lover_number] = 2:
			*clr & cla
			'<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
			!!Some things you can change.
			!!loverfinance[lover_number] = 2 - hair, makeup, tattoo, piercings, lips, tits
			!! 0 - change player, 1 - go to a cafe, 2 - go to a restaurant, 3 - to the movies.
			randchan = rand(0, 3)
			!! 1 = does like, 0 = not like
			if (pierWearCount >= pierPrefTmpMin and pierWearCount <= pierPrefTmpMax) or pierPrefTmp = 0:
				pierCheck = 1
			else
				pierCheck = 0
			end

			if (tattCount >= tattPrefTmpMin and tattCount <= tattPrefTmpMax) or tattPrefTmp = 0:
				tattCheck = 1
			else
				tattCheck = 0
			end

			if (makeupSetting = makePrefTmp) or makePrefTmp = 0:
				makeupCheck = 1
			else
				makeupCheck = 0
			end

			if pcs_haircol = hairPref:
				hairCheck = 1
			else
				hairCheck = 0
			end

			if tits >= titMin and tits <= titMax:
				titCheck = 1
			else
				titCheck = 0
			end

			if pcs_lip >= lipsPrefTmpMin and tits <= lipsPrefTmpMax:
				lipsCheck = 1
			else
				lipsCheck = 0
			end

			if salocatnow <= figurePrefMax:
				figureCheck = 1
			else
				figureCheck = 0
			end

			if randchan = 0 and (pierCheck + tattCheck + makeupCheck + hairCheck + titCheck + lipsCheck + figureCheck) = 7:
				'Takes one look at your body and loves every part of it.'
				randchan = rand(1, 3)
			end

			if randchan = 0:
				*clr & cla
				!!Some things you can change.
				!!loverfinance[lover_number] = 2 - hair, makeup, tattoo, piercings, lips, tits, figure.
				'<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
				if haraklover[lover_number] = 0:
					'"Actually can I talk to you about something?", <<$loverdesc[lover_number]>> asks you.'
				elseif haraklover[lover_number] = 1:
					'"Actually can I talk to you about something?", <<$loverdesc[lover_number]>> asks you.'
				elseif haraklover[lover_number] = 2:
					'"Actually can I talk to you about something?", <<$loverdesc[lover_number]>> asks you.'
				end

				'"Whats up <<$loverdesc[lover_number]>>?"'
				'"There is just a trait about you that bugs me, can we change that?"'

				if loverscompliance[lover_number] > 0: 'You know you have changed for <<$tXem>> before, and you want to avoid to changing into something you are not.'

				gs 'lover_likes', 'compliance'

				'"And what did you want to change about me?"'
				!!This is to make a last check on how many piercings they are WEARING
				gs 'lover_likes', 'checkPier'

				if pcs_haircol ! hairPref:
					'<<$loverdesc[lover_number]>> looks at your hair and says, "can we get your hair dyed?"'

					dynamic $lover_meet['ChangeActions'], 'hair', 'Hair'

				elseif makeupSetting ! makePrefTmp and makePrefTmp ! 0:
					'<<$loverdesc[lover_number]>> thinks about it and says "Can you wear <<$makePrefTmp>> from now on?"'

					dynamic $lover_meet['ChangeActions'], 'makeup', 'Make'

				elseif pierWearCount < pierPrefTmpMin or pierWearCount > pierPrefTmpMax and pierPrefTmp ! 0 and pierDay <= loverdays[lover_number]:
					*clr & cla
					'<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
					'<<$loverdesc[lover_number]>> talks about how you just don''t have the right amount of piercings.'

					if pierWearCount < pierPrefTmpMin:
						'<<$tXec>> tells you that you should have more piercings.'
					else
						'<<$tXec>> tells you that you should have less piercings.'
					end

					dynamic $lover_meet['ChangeActions'], 'piercings', 'Pier'

				elseif tattCount < tattPrefTmpMin or tattCount > tattPrefTmpMax and tattPrefTmp ! 0 and tattDay <= loverdays[lover_number]:
					*clr & cla
					'<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
					'<<$loverdesc[lover_number]>> talks about how you just don''t have the right amount of tattoos.'
					if tattCount < tattPrefTmpMin:
						'<<$tXec>> tells you that you should have more tattoos.'
					else
						'<<$tXec>> tells you that you should have less tattoos.'
					end

					dynamic $lover_meet['ChangeActions'], 'tattoos', 'Tatt'

				elseif pcs_lip < lipsPrefTmpMin or pcs_lip > lipsPrefTmpMax and lipsDay <= loverdays[lover_number]:
					*clr & cla
					'<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
					'<<$loverdesc[lover_number]>> tells you your lips are just not the right size.'

					if pcs_lip < lipsPrefTmpMin:
						'<<$tXec>> tells you that you should get lip injections.'
					else
						'<<$tXec>> tells you that you should have lip reduction.'
					end

					dynamic $lover_meet['ChangeActions'], 'lips', 'Lips'

				elseif tits < titMin or tits > titMax and titsDay <= loverdays[lover_number]:
					*clr & cla
					'<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
					'<<$loverdesc[lover_number]>> tells you your breasts are just not right.'

					if tits < titMin:
						'<<$tXec>> tells you that you should get breast implants.'
					else
						'<<$tXec>> tells you that you should have a breast reduction.'
					end

					dynamic $lover_meet['ChangeActions'], 'breasts', 'Tits'

				elseif salocatnow > figurePrefMax and figureDay <= loverdays[lover_number]:
					*clr & cla
					'<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
					'<<$loverdesc[lover_number]>> tells you your body is just too thick.'
					'<<$tXec>> offers to pay for you to get lyposuction.'

					dynamic $lover_meet['ChangeActions'], 'body weight', 'Figure'

				else
					*clr & cla
					'<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
					'"Erm... Nothing..."'
					act '"Well then..."': xgt 'lover_meet', 'actions'
				end
			elseif randchan = 1:
				*clr & cla
				'<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
				'<<$loverdesc[lover_number]>> suggests that you go to a cafe.'

				act 'Sorry, but I need to leave':
					cla
					loverrelation[lover_number] -= (haraklover[lover_number] + 1)
					gt 'din_npc', 'go_home'
				end

				act 'Go with <<$tXem>>':
					if loverGender[lover_number] = 0: gt 'kafeM', 'start'
					if loverGender[lover_number] = 1: $telsob = '<<$loverdesc[lover_number]>>' & gt 'kafesvid'
				end
				exit
			elseif randchan = 2:
				*clr & cla
				'<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
				'<<$loverdesc[lover_number]>> suggests that you go to a restaurant.'

				act 'Sorry, but I need to leave':
					cla
					loverrelation[lover_number] -= (haraklover[lover_number] + 1)
					gt 'din_npc', 'go_home'
				end

				act 'Go with <<$tXem>>':
					if loverGender[lover_number] = 0: gt 'restoranM', 'start'
					if loverGender[lover_number] = 1: $telsob = '<<$loverdesc[lover_number]>>' & gt 'kafesvid'
				end

				exit
			elseif randchan = 3:
				*clr & cla
				'<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
				'<<$loverdesc[lover_number]>> suggests that you go to the movies.'

				act 'Sorry, but I need to go':
					cla
					loverrelation[lover_number] -= (haraklover[lover_number] + 1)
					gt 'din_npc', 'go_home'
				end

				act 'Go with <<$tXem>>':
					if loverGender[lover_number] = 0: gt 'kinoM', 'start'
					if loverGender[lover_number] = 1: $telsob = '<<$loverdesc[lover_number]>>' & gt 'kinosvid'
				end
				exit
			end
		end
	end
	act 'I want to do something today':
		*clr & cla
		'<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
		'"What do you want to do?", <<$tXe>> asks'
		if loverGender[lover_number] = 0:
			act '"Let''s go just relax in the stairwell and drink some beer."': gt 'podezdM', 'start'
			act '"Let''s take a walk in the park"': gt 'parkM', 'start'
			act '"Let''s go see a movie"': gt 'kinoM', 'start'
			act '"Let''s go to the cafe."': gt 'kafeM', 'start'
		elseif loverGender[lover_number] = 1:
			$telsob = '<<$loverdesc[lover_number]>>'

			if month > 5 and temper > 20 and sunWeather = 1:
				act 'Invite to the park': gt 'parksvid'
			end

			act 'Invite to a movie': gt 'kinosvid'
			act 'Invite to the pool hall': gt 'billsvid'
			act 'Invite to the cafe': gt 'kafesvid'
			act 'Invite to the casino': gt 'kazinosvid'
		end
		act 'Never mind...':
			gt 'lover_meet', 'actions'
			exit
		end
	end
	act 'I think we should break up...':
		*clr & cla
		'<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
		'<<$tXec>> looks hurt, but you insist it is for the best. You both say goodbye and part ways.'
		gs 'lover', 'remove', lover_number
		act 'Continue':
			gt 'din_npc', 'go_home'
			exit
		end
	end
end


--- lover_meet ---------------------------------