# 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 Ira lives</font></b></center>'
	'<center><img src="images/etogame/podezdhr.JPG"></center>'

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

	act 'Ring the Iras doorbell':
		cla

		if hour >= 16 and hour <= 21 and week >= 6 and IrinaQW ! 2:
			'You ring the bell and Ira opens the door, she smiles and invites you in.'

			act 'Enter 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 keeps it neat and tidy'

	act 'Drink 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 and Ira settle in the kitchen with a bottle of wine and a snack of fruit, you talk and chat merrily.'
	'You''re both a bit tipsy and the conversation becomes more candid.'

	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 kiss Ira, and caress her firm breasts with your 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 each others wet pussies. But the excitement gradually disappears and you feel that your orgasm is not to be.'
	end

	if horny >= 50:
		horny = 0
		orgasm += 1
		'Once in bed you caress each other with passion and lick each others wet pussies. 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 suggest to Ira a drink brotherhood, although slightly odd, this simple ritual removes tensions and brings you closer.'

	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 Ira in her warm, soft, wine smelling 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 unbuttoning Iras blouse, she jumps up and leaps from her chair screaming, "What are you doing? I''m not a lesbian!"'
	'She was very afraid of your attack and pointed you 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 Ira with wine, she is highly intoxicated and spilled wine on myself. She went into the bathroom to change. You, too, went in and offered to help her.'
	'She undresses and you have decided to follow suit and also undressing climb into the shower. You start lathering her body and see she is flushed and her nipples erect.'

	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 hold your lips to Iras luscious lips, she suddenly says, "You 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 lower your head to her chest and began to suck and lick her hard nipples Ira moans in pleasure.'

	act 'Lick 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 you fell to the level of moisture seeping from Iras pussy. Your tongue begins to caress her clit and soon she shudders and moans in orgasm.'
	'Ira decides to pay you back in the same coin and not speaking a word puts you on the edge of the tub and her lips sink into your pussy.'

	act 'Enjoy':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>'
	'Iras lips and tongue quickly have an effect and you finish with passionate moans.'

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

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