# balkon2
if $ARGS[0] = 'kurit':
cla
clr
*clr
minut += 10
dynamic $smoker
pcs_sleep += 1
gs 'stat'
'
'
'You lit a cigarette...'
act 'Throw the cigarette butt over the railing...':gt 'balkon', 'start'
end
if $ARGS[0] = 'demo1':
cla
clr
*clr
sosedBalDay = daystart
gs 'stat'
'Balcony'
if tanga = 1:''
if tanga = 0:''
'You defiantly pose on the balcony, to the delight of your neighbor. He eagerly looks at you furiously masturbating. 5 minutes later he cums and returns to his apartment.'
gs 'arousal', 'voyeur', 5, 'exhibitionism'
gs 'arousal', 'end'
gs 'stat'
act 'Further':gt 'balkon', 'start'
end
if $ARGS[0] = 'palec1':
cla
clr
*clr
pcs_horny += rand(10, 30)
minut += 1
sosedBalDay = daystart
gs 'stat'
if tanga = 1:''
if tanga = 0:''
'You showed your neighbor the bird and he goes back indoors.'
act 'Further':gt 'balkon', 'start'
end
if $ARGS[0] = 'niz':
cla
clr
*clr
gs 'stat'
! WD: Uninitialised ~ 'alcohol' USE 'alko'
if alko < 12:
if $clothingworntype = 'nude':
''
elseif tanga = 1:
''
else
''
end
act 'Enjoy the view':
cls
if hour >= 8 and hour <= 19:
''
else
''
end
'You look at the panorama from your private balcony.'
act 'Further':gt 'balkon', 'start'
end
else
'You had no idea your apartment was so high. You don''t feel comfortable there ...'
act 'Further':gt 'balkon', 'start'
end
end
if $ARGS[0] = 'sosed':
cla
clr
*clr
gs 'stat'
'Balcony'
''
'Your neighbor to the left of your balcony, looks at you carefully.'
act 'Demonstrate your body':gt 'balkon2', 'demo1'
act 'Send the pervert packing':gt 'balkon2', 'palec1'
end
!!!Probably CV edition
if $ARGS[0] = 'masopt':
cla
*clr
clr
gs 'stat'
if pcs_exhibition < 30:exhibition_exp += rand(1,3)
pcs_mood += 15
pcs_willpwr += 15
''
if dildo = 1:
act 'Masturbate your pussy with your dildo':
cla
*clr
pcs_vag += rand(0, 2)
badildo = rand(1, 2)
if badildo = 1:''
if badildo = 2:''
'After pleasuring yourself intensily with the dildo you reach orgasm and feel more serene.'
$orgasm_or = 'yes'
gs 'arousal', 'vaginal_dildo', 10, 'exhibitionism'
gs 'arousal', 'end'
gs 'stat'
act 'Finish':gt 'balkon', 'start'
end
act 'Masturbate and use your dildo with your ass':
cla
*clr
pcs_ass += rand(0, 2)
''
'It feels like your whole ass is burning.'
gs 'arousal', 'anal_dildo', 10, 'exhibitionism'
gs 'stat'
act 'Continue':
cla
*clr
''
'An immense pleasure overtake you. Your body shivers like you were standing naked in a cold breeze.'
$orgasm_or = 'yes'
gs 'arousal', 'end'
gs 'stat'
act 'Go back':gt 'balkon', 'start'
end
end
end
act 'Masturbate':
cla
*clr
pcs_vag += rand(0, 1)
gt 'balkon2', 'finger'
end
end
if $ARGS[0] = 'finger':
cla
*clr
clr
''
'You lick your fingers preparing them for your pussy.'
gs 'arousal', 'foreplay', 5, 'exhibitionism'
gs 'stat'
act 'Insert finger':
cla
*clr
if spdirtyf > 0: dirtyplay = 1
''
'Slowly you put your finger into your pussy.'
gs 'arousal', 'vaginal_finger', 5, 'exhibitionism'
gs 'stat'
act 'Next':
cla
*clr
''
'It feels like heaven. Slowly you pussy gets wet.'
gs 'arousal', 'vaginal_finger', 5, 'exhibitionism'
gs 'stat'
act 'Stand':
cla
*clr
''
if pcs_exhibition >= 35:
exhibition_exp += 2
'You look around to see if you have an audience.'
visit = rand(0, 0)
if visit = 0:
pcs_vag += 1
'You can''t see anyone.'
act 'Insert fingers':gt 'balkon2', 'finger_solo'
else
'I notice that someone seems to be enjoying the show as much as I am.'
!!act 'Invite':gt 'balkon2', 'beatafriend'
act 'Ignore and continue to play':gt 'balkon2', 'finger_solo'
end
else
'Overtaken by the thrill of the risk of being caught in such a compromising act and the diligent work of your skilled fingers brings you to an intense orgasm.'
'Still a bit dizzy, you gather up your clothes.'
gs 'arousal', 'end'
gs 'stat'
act 'Dress':gt 'balkon', 'start'
end
end
end
end
end
if $ARGS[0] = 'finger_solo':
cla
*clr
clr
''
'The feeling is now so intense that you ignore everything around you.'
gs 'arousal', 'vaginal_finger', 5, 'exhibitionism'
gs 'stat'
act 'Next':
cla
*clr
''
'Your pussy is so wet that your juices run down the back of your hand and drip onto the ground and all you can think is "Faster!Faster!"'
gs 'arousal', 'vaginal_finger', 5, 'exhibitionism'
gs 'stat'
act 'Faster':
cla
*clr
''
'Ohh ahh...'
gs 'arousal', 'vaginal_finger', 5, 'exhibitionism'
gs 'stat'
act 'Faster':
cla
*clr
''
'Ohh ahh...'
gs 'arousal', 'vaginal_finger', 5, 'exhibitionism'
gs 'stat'
act 'Do it':
cla
*clr
''
'You can''t hold on any longer!'
gs 'arousal', 'vaginal_finger', 5, 'exhibitionism'
gs 'stat'
act 'Orgasm':
cla
*clr
''
'You are shivering after such intense pleasure. You can see some of your neighbours even applauding your performance.'
'A bit surprised with the audience you try to gather your clothes.'
$orgasm_or = 'yes'
gs 'stat'
act 'Dress':
cla
*clr
''
gs 'arousal', 'end'
gs 'stat'
act 'Leave':gt 'balkon', 'start'
end
end
end
end
end
end
end
!!!
--- balkon2 ---------------------------------