# 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 ---------------------------------