# divan
if $ARGS[0] = 'start':
cla
$divmastr = {
cls
'<center><img src="images\pics\divmas.jpg"></center>'
set minut += 15
sweat += 1
set horny += RAND(1,5)
if divanmastr = 0: divanmastr = 1 & set mastr += 1
gs 'stat'
'You lay down on the sofa and began to fondle her one-handed chest with a finger of the other hand you started rubbing and stroking a small bump between his legs that responded to the touch of pleasant languor covering your entire body.'
if horny >= 100: orgasm += 1 & horny = 0 & 'Suddenly a nice cramp brought your body and you covered powerful orgasm from which you groan.'
act 'Get off the couch': divanmastr = 0 & gt 'divan','fin'
if horny >= 75: act 'Proceed': dynamic $divmastr
}
clr
gs 'stat'
'<center><img src="images\pics\divan.jpg"></center>'
'You lay down on the sofa.'
	act 'Lie':
	cla
	waiting = input ("How many minutes to wait? (Not more than 120 minutes)")
		if waiting <= 0 or waiting > 120:
		set minut += 15
		end
		if waiting > 0 and waiting <= 120:
		set minut += waiting
		end
	act 'Get off the couch': gt 'divan','fin'
	end

	if TV > 0:
		act 'Watch TV':
		cla
		gt 'TV','start'
		end
	end

	if book > 0:
		act 'Read a book (0:30)':
		cla
		*clr
		'<center><img src="images\pics\book.jpg"></center>'
		set minut += 30
		set horny += 5
		'You are reading a book.'
		act 'Put the book': gt 'divan','start'
		end
	end

	if horny >= 75:
		act 'Masturbate (0:15)':
		dynamic $divmastr
		end
	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:
	set housrA = 0
	gt 'sitr'
	end'
end
--- divan ---------------------------------