# 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 'Leave':
		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 'Leave':
				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 'Leave':
		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 'Leave':
		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 'Leave':
		cla
		set minut += 5
		gt 'street'
	end
end

--- IrinaRoom ---------------------------------
