# IrinaRoom
if $ARGS[0] = 'start':
cla
*clr
set minut += 5
'<center><B><font color = maroon>Entrance where your girlfriend lives Ira</font></B></center>'
'<center><img src="images\etogame\podezdhr.jpg"></center>'
clr
gs 'stat'
fcolor = rgb(0,0,0)
bcolor = rgb(255,255,255)
LCOLOR = rgb(106,90,205)

	act 'QUIT':
	cla
	set minut += 5
	gt 'street'
	end

	act 'Ring the doorbell Irina':
	cla
		if hour >= 16 and hour <= 21 and week >= 6 and IrinaQW ! 2:
		'You have reached the door and you opened the IRA, she smiled and invited you to join.'
			act 'Take the apartment': gt 'IrinaRoom','first'
		else
		'You rang the doorbell but no one answers.'
			act 'QUIT':
			cla
			set minut += 5
			gt 'street'
			end
		end
	end

end

if $ARGS[0] = 'first':
cla
*clr
set minut += 5
'<center><B><font color = maroon>Apartment Ira</font></B></center>'
'<center><img src="images\etogame\IrinaRoom.jpg"></center>'
'Small studio apartment Ira neat and tidy'
clr
gs 'stat'
	act 'Drinking in the kitchen': gt 'IrinaRoom','first1'
end

if $ARGS[0] = 'first1':
cla
*clr
set minut += 60
set manna += 50
'<center><img src="images\picVA\IrinaQW.jpg"></center>'
'You Ira settled in the kitchen with a bottle of wine and a snack of fruit, you talked and chatted merrily.'
'And Ira and you´re a bit tipsy and the conversation became more candid flow into shape.'
clr
gs 'stat'
	act 'Leave':
	cla
	set minut += 60
	set manna += 50
	gt 'street'
	end

	if IrinaQW = 1:
		act 'Suggest drink brotherhood': gt 'IrinaRoom','first2'
	end
	if IrinaQW >= 10:
		act 'Tselovatsya': gt 'IrinaRoom','kiss'
	end
end

if $ARGS[0] = 'kiss':
cla
*clr
set minut += 10
set manna += 50
set horny += 20
'<center><img src="images\picVA\IrinaKiss.jpg"></center>'
'You passionately kissing with Ira, and caress her firm breasts with his hands.'
clr
gs 'stat'
	act 'Sex': gt 'IrinaRoom','sex'
end

if $ARGS[0] = 'sex':
cla
*clr
set minut += 60
set manna += 50
set lesbian += 1
set manna += 100
set willpower += 100
'<center><img src="images\picVA\IrinaSex.jpg"></center>'
	if horny < 50:
	horny -= 10
	'Once in bed you caress each other with passion and lick wet pussies each other. But the excitement gradually disappears and you feel that the orgasm you will not be.'
	end
	if horny >= 50:
	horny = 0
	set orgasm += 1
	'Once in bed you caress each other with passion and lick wet pussies each other. Finally you are both satisfied.'
	end
clr
gs 'stat'
	act 'QUIT':
	cla
	set minut += 5
	gt 'street'
	end
end


if $ARGS[0] = 'first2':
cla
*clr
set minut += 60
set manna += 50
'<center><img src="images\picVA\IrinaQW1.jpg"></center>'
'You offered Ira drink brotherhood, after dating.'
clr
gs 'stat'
	act 'Kiss': gt 'IrinaRoom','first3'
end

if $ARGS[0] = 'first3':
cla
*clr
set manna += 50
set horny += 20
'<center><img src="images\picVA\IrinaQW2.jpg"></center>'
'You kissed Il in her warm, soft, smelling wine lips. Irina flushed after the kiss and looks at you a little embarrassed and frightened.'
clr
gs 'stat'
	act 'Ira undress': gt 'IrinaRoom','first4'
	act 'Ira drink more': gt 'IrinaRoom','first5'
end

if $ARGS[0] = 'first4':
cla
*clr
set IrinaQW = 2
'You started filming blouse with Ira, she jumped up and jumped from his chair screaming "What are you doing? I´m not a lesbian!"'
'She was very afraid of your attack and you pointed to the door.'
clr
gs 'stat'
	act 'QUIT':
	cla
	set minut += 5
	gt 'street'
	end
end

if $ARGS[0] = 'first5':
cla
*clr
set IrinaQW = 10
set horny += 20
'<center><img src="images\picVA\IrinaQW3.jpg"></center>'
'You pumped Er wine, it is highly intoxicated and spilled wine on myself. She went into the bathroom to change. You, too, went in and spredlozhili help her.'
'She undressed and you have decided to follow suit and also undressed climbed into the shower. You started lathering body Ira and saw how she stood erect nipples.'
clr
gs 'stat'
	act 'Kiss': gt 'IrinaRoom','first6'
end

if $ARGS[0] = 'first6':
cla
*clr
set horny += 20
'<center><img src="images\picVA\IrinaQW4.jpg"></center>'
'You passionately dug lips in luscious lips Ira, she suddenly said, your kiss very passionately.'
clr
gs 'stat'
	act 'Fondle breasts': gt 'IrinaRoom','first7'
end

if $ARGS[0] = 'first7':
cla
*clr
set horny += 20
'<center><img src="images\picVA\IrinaQW5.jpg"></center>'
'You lowered his head to his chest and Ira began to suck and lick her hard nipples Ira zastonalya pleasure.'
clr
gs 'stat'
	act 'Licking pussy': gt 'IrinaRoom','first8'
end

if $ARGS[0] = 'first8':
cla
*clr
set horny += 20
set girl += 1
set lesbian += 1
'<center><img src="images\picVA\IrinaQW6.jpg"></center>'
'You began to kiss lower and lower until it fell to the level of moisture seeping pussy Ira. Your reed began to caress her clit and soon she shuddered and began to moan from orgasm.'
'Ira decided to pay you back in the same coin and not speak a word not put you on the edge of the tub and her lips stuck into your pussy.'
clr
gs 'stat'
	act 'Licking pussy': gt 'IrinaRoom','first9'
end

if $ARGS[0] = 'first9':
cla
*clr
set horny = 0
set orgasm += 1
set manna += 100
set willpower += 100
'<center><img src="images\picVA\IrinaQW7.jpg"></center>'
'Lips and tongue Ira quickly vozimeli effect and you finished with passionate moans.'
clr
gs 'stat'
	act 'QUIT':
	cla
	set minut += 5
	gt 'street'
	end
end
--- IrinaRoom ---------------------------------