glife/locations/IgorHanter.qsrc

# IgorHanter

$menu_loc = 'IgorHanter'
$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/locations/gadukino/hunters/igorhanter.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 hantersIgorQw < 0:'You and him have a bad relationship, because you offended him in the past.'
if hantersIgorQw >= 0 and hantersIgorQw < 10:'You have a normal relationship with him.'
if hantersIgorQw >= 10 and hantersIgorQw < 20:'You have friendly relations with him.'
if hantersIgorQw >= 20 and hantersIgorQw < 25:'You''re good friends.'
if hantersIgorQw >= 25 and hantersIgorQw < 30:'It seems he has a crush on you.'
if hantersIgorQw >= 30 and hantersIgorQw <= 35:'You have a mutual crush on each other.'
if hantersIgorQw > 35 :'You love him.'
if hantersIgorLove = 1:'You two have fallen in love.'
if hantersIgorLove = 2:'<<$boydesc>> is your boyfriend.'
if hantersIgorLove = 3:'<<$boydesc>> is your husband.'

act 'Chat':
    *clr & cla
    minut += 60
	menu_off = 1
    if hantersIgorQw < 10:hantersIgorQw += 1
    gs 'stat'

    '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/talk1.'+rand(1,3)+'.jpg"></center>'
    if hantersIgorQw >= 0:'You have a chat with Igor, swapping stories about life and love.'
    if hantersIgorQw < 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, $metka
end

if hantersIgorQw >= 10:
    if hantersIgorLove = 0:
        act 'Flirt':
			minut += 120
			menu_off = 1
			!!not using arousal as no orgasm chance
			pcs_horny += 10
            *clr & cla
            if hantersIgorQw <= 35 and hantersKnowSlut = 0:hantersIgorQw += 1
            if hantersAndreiQw >= 10 and hantersKnowSlut = 0:hantersAndreiQw -= 1
            if hantersSergeiQw >= 10 and hantersKnowSlut = 0:hantersSergeiQw -= 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 hantersIgorLove = 0 and hantersIgorQw >= 35 and hantersKnowSlut = 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
                    hantersIgorLove = 1
                    hantersIgorQw += 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 'HanterLoveSex','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, $metka
                        end
                    end
                end
                act 'To remove the face':
                    *clr & cla
                    minut += 5
                    hantersIgorQw -= 50
                    gs 'stat'

                    '<center><img <<$set_imgh>> src="images/pc/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, $metka
                end
            else
                act'Leave':gt $loc, $metka
            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
            hantersIgorQw += 1
            if hantersSergeiLove > 0 or hantersAndreiLove > 0:hanterslut += 1
            if hantersSergeiLove = 0 and hantersAndreiLove = 0:hanterslut -= 1
            if hantersIgorLove = 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, $metka
        end
    end
end

if hantersIgorLove > 0 and pcs_horny >= 60:
    act 'Have sex':
	    *clr & cla
		menu_off = 1
        hantersIgorQw += 1
        hantersIgorsex += 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 'HanterLoveSex','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 hantersIgorLove > 0 and pcs_horny <= 60 and hantersIgorQw >= 10 and rand(1,5) = 1 and hantersIgorsex = 0:
	*clr & cla
	menu_off = 1
	hantersIgorsex += 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
	    hantersIgorQw += 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 'HanterLoveSex','Igor'
    end
	act 'Decline':
	    *clr & cla
	    minut += 5
	    hantersIgorQw -= 1
		gs 'stat'

        '<center><img <<$set_imgh>> src="images/pc/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, $metka
    end
end

if hantersIgorLove > 0:
    act 'Break up with Igor':
	    *clr & cla
        minut += 5
		menu_off = 1
        hantersIgorLove = 0
        if hantersIgorLove = 2:bfA = 0
        hantersIgorQw -= 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, $metka
    end
end

act'Depart':gt $loc, $metka

if hantersIgorQw < 10 and hantersIgorLove > 0:
	*clr & cla
    minut += 5
	menu_off = 1
    hantersIgorLove = 0
    if hantersIgorLove = 2:bfA = 0
    hantersIgorQw -= 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, $metka
end

if hantersIgorLove < 2 and hantersIgorQw >= 35 and hantersKnowSlut = 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
	    hantersIgorLove = 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 'HanterLoveSex','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, $metka
            end
        end
    end
    act 'No':
        *clr & cla
        minut += 5
        hantersIgorQw -= 50
        gs 'stat'

        '<center><img <<$set_imgh>> src="images/pc/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, $metka
    end
end
--- IgorHanter ---------------------------------