# IrinaRoom
if $ARGS[0] = 'start':
cla
*clr
set minut += 5
'
Entrance where your girlfriend lives Ira'
''
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
'Apartment Ira'
''
'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
''
'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
''
'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
''
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
''
'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
''
'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
''
'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
''
'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
''
'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
''
'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
''
'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 ---------------------------------