glife-fork/locations/igorhunter.qsrc

# igorhunter
!2020/10/16
$menu_loc = 'igorhunter'
$menu_arg = ''
menu_off = 0
gs 'boyStat', 'A173'
$boybody = 'high'
$boybod = 'athletic'
$boyface = 'brunette'
lover_picture_number = 31
finance = 1
vneshBoy = 8
$boyClo = 'dressed in jeans and a sweater.'
figurBoy = 1
titBoy = 1
hairBoy = 3
harakBoy = 1
izvrat = 0
boyage = year - ((npc_dob['A173'] - (npc_dob['A173'] mod 10000)) / 10000)
boy_birth_date = 9
boy_birth_month = 6
gs 'stat'

'<center><b><font color = maroon>Igor Anisimov</font></b></center>'
'<center><img <<$set_imgh>> src="images/characters/shared/photos/big173.jpg"></center>'
'Igor is a hunter along with the Sergei and Andrei and is here visiting Andrei. He''s <<boyage>> years old. He is not married and lives in the City Center..'
if huntersIgorQw < 0:'You and him have a bad relationship, because you offended him in the past.'
if huntersIgorQw >= 0 and huntersIgorQw < 10:'You have a normal relationship with him.'
if huntersIgorQw >= 10 and huntersIgorQw < 20:'You have friendly relations with him.'
if huntersIgorQw >= 20 and huntersIgorQw < 25:'You''re good friends.'
if huntersIgorQw >= 25 and huntersIgorQw < 30:'It seems he has a crush on you.'
if huntersIgorQw >= 30 and huntersIgorQw <= 35:'You have a mutual crush on each other.'
if huntersIgorQw > 35 :'You love him.'
if huntersIgorLove = 1:'You two have fallen in love.'
if huntersIgorLove = 2:'<<$boydesc>> is your boyfriend.'
if huntersIgorLove = 3:'<<$boydesc>> is your husband.'

act 'Chat (0:30)':
	*clr & cla
	minut += 30
	menu_off = 1
	if huntersIgorQw < 10:huntersIgorQw += 1
	gs 'stat'

	'<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/talk1.'+rand(1,3)+'.jpg"></center>'
	if huntersIgorQw >= 0:'You have a chat with Igor, swapping stories about life and love.'
	if huntersIgorQw < 0:'You talk to Igor. He wears his heart on his sleeve, so you can tell he doesn''t like you.'

	act'Continue':gt $loc, $loc_arg
end

if huntersIgorQw >= 10:
	if huntersIgorLove = 0:
		act 'Flirt':
			minut += 5
			menu_off = 1
			!!not using arousal as no orgasm chance
			pcs_horny += 10
			*clr & cla
			if huntersIgorQw <= 35 and huntersKnowSlut = 0:huntersIgorQw += 1
			if huntersAndreiQw >= 10 and huntersKnowSlut = 0:huntersAndreiQw -= 1
			if huntersSergeiQw >= 10 and huntersKnowSlut = 0:huntersSergeiQw -= 1
			gs 'stat'

			'<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/hanterflirt1.'+rand(1,3)+'.jpg"></center>'
			'You spend time with Igor, flirting all the while. He flirts back, and blushes when you catch him checking you out.'

			gs 'stat'

			if huntersIgorLove = 0 and huntersIgorQw >= 35 and huntersKnowSlut = 0 and bfA = 1 and pcs_apprnc >= 60:
				*clr & cla
				gs 'stat'

				'<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/hanterkiss1.jpg"></center>'
				'You smile sweetly at Igor. Suddenly Igor steals a kiss when you didnt expect it. You can feel his breath on your skin, smell the scent of the soap he used to clean himself. Suddenly, he looks embarrassed by what he just did and waits to see what your response will be.'

				gs 'arousal', 'foreplay', 5
				gs 'stat'

				act 'Answer kiss':
					*clr & cla
					pcs_mood = 100
					huntersIgorLove = 1
					huntersIgorQw += 1
					gs 'stat'

					'<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/hanterkiss2.jpg"></center>'
					'You move closer to him and begin kissing him again. Igor gently kisses you back.'

					gs 'arousal', 'kiss', 5
					gs 'stat'

					if pcs_horny >= 40:
						act'Continue':
							*clr & cla
							minut += 5
							gs 'stat'

							'<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/hanterkiss3.jpg"></center>'
							'"<<$pcs_nickname>>, Do you want to..?" Igor asked in a whisper, when your lips finally parted. "Yes" you say just as quietly and Igor gently took your hand and led you inside.'

							act 'Go inside':gt 'hunterLoveSex','Igor'
						end
					else
						act'Continue':
							*clr & cla
							minut += 5
							gs 'stat'

							'<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/hanterkiss3.jpg"></center>'
							'"It was everything I hoped for, <<$pcs_nickname>>," Igor whispered, when your lips finally parted. You melt in his hands and spend a few minutes cuddling together.'

							act'Continue':gt $loc, $loc_arg
						end
					end
				end
				act 'To remove the face':
					*clr & cla
					minut += 5
					huntersIgorQw -= 50
					gs 'stat'

					'<center><img <<$set_imgh>> src="images/pc/reactions/speak_to_the_hand.jpg"></center>'
					'"No, Igor, this isn''t right", you say, and try not to look at his sorrowful face as he leaves.'

					act'Leave':gt $loc, $loc_arg
				end
			else
				act'Leave':gt $loc, $loc_arg
			end
		end
	else
		act 'Spend time together':
			*clr & cla
			minut += 120
			menu_off = 1
			!!not using arousal as no orgasm chance
			pcs_horny += 10
			pcs_mood = 100
			huntersIgorQw += 1
			if huntersSergeiLove > 0 or huntersAndreiLove > 0:hunterslut += 1
			if huntersSergeiLove = 0 and huntersAndreiLove = 0:hunterslut -= 1
			if huntersIgorLove = 2:bfA += 1
			gs 'stat'

			'<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/hanterlove1.'+rand(1,4)+'.jpg"></center>'
			'You cuddle up with Igor, and trade gentle kisses with him. He adores you and wishes you were always with him and you wish the same.'

			gs 'stat'

			act'Leave':gt $loc, $loc_arg
		end
	end
end

if huntersIgorLove > 0 and pcs_horny >= 60:
	act 'Have sex':
		*clr & cla
		menu_off = 1
		huntersIgorQw += 1
		huntersIgorsex += rand(12,36)
		gs 'stat'

		'<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/hanterflirt2.'+rand(1,6)+'.jpg"></center>'
		'You wink seductively at Igor, and look in the direction of his bed. Igor gives you an excited hug before leading the way.'

		gs 'arousal', 'foreplay', 10
		gs 'stat'

		act 'Go':gt 'hunterLoveSex','Igor'
	end
end

!! I replaced the partial condition "and temp = 1" with "and rand(1,5) = 1" because temp is changed in the stat procedure. Formely the temp variable was initialized at the beginning of the file temp = rand(1,5)
if huntersIgorLove > 0 and pcs_horny <= 60 and huntersIgorQw >= 10 and rand(1,5) = 1 and huntersIgorsex = 0:
	*clr & cla
	menu_off = 1
	huntersIgorsex += rand(12,36)
	gs 'stat'

	'<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/hanterlove1.4.jpg"></center>'
	'You walked up to Igor to spend time together, but he suddenly kisses you and whispers,'
	'"<<$pcs_nickname>>, let''s make love."'

	gs 'arousal', 'foreplay', 5
	gs 'stat'

	act 'Agree':
		*clr & cla
		minut += 5
		huntersIgorQw += 1
		gs 'stat'

		'<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/hanterflirt2.'+rand(4,6)+'.jpg"></center>'
		'Smiling, you wink at Igor. He gets a childlike grin on his face and leads you by the hand to his bed.'
		act 'Go':gt 'hunterLoveSex','Igor'
	end
	act 'Decline':
		*clr & cla
		minut += 5
		huntersIgorQw -= 1
		gs 'stat'

		'<center><img <<$set_imgh>> src="images/pc/reactions/speak_to_the_hand.jpg"></center>'
		'"I can''t right now, Igor," you say'
		'You see a look of regret on his face as you leave'
		act 'Leave':gt $loc, $loc_arg
	end
end

if huntersIgorLove > 0:
	act 'Break up with Igor':
		*clr & cla
		minut += 5
		menu_off = 1
		huntersIgorLove = 0
		if huntersIgorLove = 2:bfA = 0
		huntersIgorQw -= 100
		gs 'stat'

		'<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/brosila.jpg"></center>'
		'"We''re through Igor. I don''t think that this relationship was going where either of us wanted," you say. Igor looks completely blindsided but turns and leaves without saying a word.'

		act 'Leave':gt $loc, $loc_arg
	end
end

act'Depart':gt $loc, $loc_arg

if huntersIgorQw < 10 and huntersIgorLove > 0:
	*clr & cla
	minut += 5
	menu_off = 1
	huntersIgorLove = 0
	if huntersIgorLove = 2:bfA = 0
	huntersIgorQw -= 10
	gs 'stat'
	'<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/brosil.jpg"></center>'
	'You wanted to talk to Igor, but he cuts you off with an angry look.'
	'"<<$pcs_nickname>>, I realized that our love wasn''t real and we need to break up," he says. As you try to find words to answer he turns and resolutely walks away.'
	'"This may well be for the best," you think, as you leave in the other direction.'

	act 'Leave':gt $loc, $loc_arg
end

if huntersIgorLove < 2 and huntersIgorQw >= 35 and huntersKnowSlut = 0 and bfA < 1 and hour >= 8 and hour < 20 and pcs_apprnc >= 60:
	*clr & cla
	minut += 1
	menu_off = 1
	gs 'stat'

	'<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/hanterkiss1.jpg"></center>'
	'Suddenly Igor kisses you when you didn''t expect it.'
	'He looks a little nervous before gathering up his courage to ask you, "Will you be my girlfriend?"'

	gs 'arousal', 'foreplay', 1
	gs 'stat'
!! this part is not included properly into boyfriend system yet - rachels
!! it could be simply replaced with gs 'boyfrend', 'start' but we need to check if a slot is empty
!! at the moment I disable all the actions
	act 'Yes':
		*clr & cla
		!stopboy = 0
!!		$lover[lover_number] = $boy
!!		$loverbody[lover_number] = $boybody
!!		$loverbod[lover_number] = $boybod
!!		$loverface[lover_number] = $boyface
!!		loverdick[lover_number] = dick
!!		loversilaVag[lover_number] = silaVag
!!		loverfinance[lover_number] = finance
!!		vneshlover[lover_number] = vneshBoy
!!		$loverClo[lover_number] = $boyClo
!!		figurlover[lover_number] = figurBoy
!!		titlover[lover_number] = titBoy
!!		hairlover[lover_number] = hairBoy
!!		haraklover[lover_number] = harakBoy
!!		boyage[lover_number] = boyage
!!		loverday[lover_number] = day
!!		bfA = 1
!!		day[lover_number] = 0
!!		boyonce[lover_number] = 0
!!		loverizvrat[lover_number] = izvrat
!!		giftDay[lover_number] = 0
!!		giftNum[lover_number] = 0
!!		loverlove[lover_number] = 0
!!		lover_picture[lover_number] = lover_picture_number
		huntersIgorLove = 2
		pcs_mood = 100
		gs 'stat'

		'<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/hanterkiss2.jpg"></center>'
		'You move closer to him and begin kissing him again. Igor gently kisses you back.'
		'<center><b>Be aware! Igor is not in the Boyfriend system yet!</b></center>'

		gs 'arousal', 'kiss', 5
		gs 'stat'

		if pcs_horny >= 40:
			act'Further':
				*clr & cla
				minut += 5
				gs 'stat'

				'<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/hanterkiss3.jpg"></center>'
				'"<<$pcs_nickname>>, Do you want to..?" Igor asked in a whisper, when your lips finally parted. "Yes" you say just as quietly and Igor gently took you by the hand and led inside.'


				act 'Go':gt 'hunterLoveSex','Igor'
			end
		else
			act'Further':
				*clr & cla
				minut += 5
				gs 'stat'
				'<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/hanterkiss3.jpg"></center>'
				'"It was everything I hoped for, <<$pcs_nickname>>," Igor whispered, when your lips finally parted. You melt in his hands and spend a few minutes cuddling together.'

				act'Further':gt $loc, $loc_arg
			end
		end
	end
	act 'No':
		*clr & cla
		minut += 5
		huntersIgorQw -= 50
		gs 'stat'

		'<center><img <<$set_imgh>> src="images/pc/reactions/speak_to_the_hand.jpg"></center>'
		'"No, Igor, this isn''t right", you say, and try not to look at his sorrowful face as he leaves.'

		act'Go':gt $loc, $loc_arg
	end
end
--- igorhunter ---------------------------------