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

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

if $ARGS[0] = 'first':
	cla
	clr
	*clr
	minut += 5
	gs 'stat'
	'<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'

	act 'Drinking in the kitchen':gt 'IrinaRoom', 'first1'
end

if $ARGS[0] = 'first1':
	cla
	clr
	*clr
	minut += 60
	manna += 50
	gs 'stat'
	'<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.'

	act 'Leave':
		cla
		minut += 60
		manna += 50
		gt 'street'
	end

	if IrinaQW = 1:
		act 'Suggest drink brotherhood':gt 'IrinaRoom', 'first2'
	end

	if IrinaQW >= 10:
		act 'Kiss':gt 'IrinaRoom', 'kiss'
	end
end

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

	act 'Sex':gt 'IrinaRoom', 'sex'
end

if $ARGS[0] = 'sex':
	cla
	clr
	*clr
	minut += 60
	manna += 50
	lesbian += 1
	manna += 100
	willpower += 100
	gs 'stat'
	'<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
		orgasm += 1
		'Once in bed you caress each other with passion and lick wet pussies each other. Finally you are both satisfied.'
	end

	act 'Leave':
		cla
		minut += 5
		gt 'street'
	end
end

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

	act 'Kiss':gt 'IrinaRoom', 'first3'
end

if $ARGS[0] = 'first3':
	cla
	clr
	*clr
	manna += 50
	horny += 20
	gs 'stat'
	'<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.'

	act 'Ira undress':gt 'IrinaRoom', 'first4'
	act 'Ira drink more':gt 'IrinaRoom', 'first5'
end

if $ARGS[0] = 'first4':
	cla
	clr
	*clr
	IrinaQW = 2
	gs 'stat'
	'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.'

	act 'Leave':
		cla
		minut += 5
		gt 'street'
	end
end

if $ARGS[0] = 'first5':
	cla
	clr
	*clr
	IrinaQW = 10
	horny += 20
	gs 'stat'
	'<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.'

	act 'Kiss':gt 'IrinaRoom', 'first6'
end

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

	act 'Fondle breasts':gt 'IrinaRoom', 'first7'
end

if $ARGS[0] = 'first7':
	cla
	clr
	*clr
	horny += 20
	gs 'stat'
	'<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.'

	act 'Licking pussy':gt 'IrinaRoom', 'first8'
end

if $ARGS[0] = 'first8':
	cla
	clr
	*clr
	horny += 20
	girl += 1
	lesbian += 1
	gs 'stat'
	'<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.'

	act 'Licking pussy':gt 'IrinaRoom', 'first9'
end

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

	act 'Leave':
		cla
		minut += 5
		gt 'street'
	end
end

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