# 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'
'
Igor Anisimov'
'> src="images/locations/gadukino/hunters/igorhanter.jpg">'
'Igor is a hunter along with the Sergei and Andrei and is here visiting Andrei. He''s <> 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'
'> src="images/locations/gadukino/hunters/talk1.'+rand(1,3)+'.jpg">'
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'
'> src="images/locations/gadukino/hunters/hanterflirt1.'+rand(1,3)+'.jpg">'
'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'
'> src="images/locations/gadukino/hunters/hanterkiss1.jpg">'
'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'
'> src="images/locations/gadukino/hunters/hanterkiss2.jpg">'
'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'
'> src="images/locations/gadukino/hunters/hanterkiss3.jpg">'
'"<<$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'
'> src="images/locations/gadukino/hunters/hanterkiss3.jpg">'
'"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'
'> src="images/pc/speak_to_the_hand.jpg">'
'"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'
'> src="images/locations/gadukino/hunters/hanterlove1.'+rand(1,4)+'.jpg">'
'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'
'> src="images/locations/gadukino/hunters/hanterflirt2.'+rand(1,6)+'.jpg">'
'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'
'> src="images/locations/gadukino/hunters/hanterlove1.4.jpg">'
'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'
'> src="images/locations/gadukino/hunters/hanterflirt2.'+rand(4,6)+'.jpg">'
'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'
'> src="images/pc/speak_to_the_hand.jpg">'
'"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'
'> src="images/locations/gadukino/hunters/brosila.jpg">'
'"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'
'> src="images/locations/gadukino/hunters/brosil.jpg">'
'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'
'> src="images/locations/gadukino/hunters/hanterkiss1.jpg">'
'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'
'> src="images/locations/gadukino/hunters/hanterkiss2.jpg">'
'You move closer to him and begin kissing him again. Igor gently kisses you back.'
'Be aware! Igor is not in the Boyfriend system yet!'
gs 'arousal', 'kiss', 5
gs 'stat'
if pcs_horny >= 40:
act'Further':
*clr & cla
minut += 5
gs 'stat'
'> src="images/locations/gadukino/hunters/hanterkiss3.jpg">'
'"<<$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'
'> src="images/locations/gadukino/hunters/hanterkiss3.jpg">'
'"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'
'> src="images/pc/speak_to_the_hand.jpg">'
'"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 ---------------------------------