# divan
! WD: Reading book code cant use argument
if $ARGS[0] = 'start' or $ARGS[0] = '':
$divmastr = {
cls
if pcs_sweat < 25 : pcs_sweat += 5
if divanmastr = 0:
divanmastr = 1
stat['mast'] += 1
if pcs_exhibition < 30:exhibition_exp += rand(1,3)
end
gs 'stat'
'
'
'You lie down on the sofa and began to fondle your chest with one hand while you slide the other hand down your stomach and across your mound.'
'With your middle finger you start rubbing and stroking your clit, which responds to the touch by bringing a sensual warmth to your entire body.'
gs 'arousal', 'masturbate', 15
gs 'stat'
if pcs_horny >= 100:orgasm += 1 & pcs_horny = 0 & 'Suddenly a sumptuous jolt hits your body and you delight in a powerful orgasmn.'
$orgasm_or = 'yes'
gs 'stat'
act 'Get off the couch':divanmastr = 0 & gt 'divan', 'fin'
if pcs_horny >= 75:act 'Proceed':dynamic $divmastr
}
cla
clr
gs 'stat'
''
'You lie down on the sofa.'
act 'Chill out':
cla
waiting = input ("For how many minutes do you chill out? (No more than 120 minutes)")
if waiting <= 0 or waiting > 120:minut += 15
if waiting > 0 and waiting <= 120:minut += waiting
act 'Get off the couch':gt 'divan', 'fin'
end
if TV > 0 and $loc ! 'dachain':
act 'Watch TV':
cla
gt 'TV', 'start'
end
end
gs 'events', 'read'
if pcs_horny >= 75:
act 'Masturbate (0:15)':dynamic $divmastr
end
act 'Get off the couch':
cla
gt 'divan', 'fin'
end
end
if $ARGS[0] = 'fin':
cla
gt $locM, $metkaM
!!if housr = 1 and housrA = 1:
!! housrA = 0
!! gt 'sitr'
!!end
end
--- divan ---------------------------------