glife/locations/divan

# 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
		if waiting > 0 and waiting <= 120:set minut += waiting

		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

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