glife/locations/divan

# divan
! WD: Reading book code cant use argument
if $ARGS[0] = 'start' or $ARGS[0] = '':
	$divmastr = {
		cls

		minut += 15
		sweat += 1
		horny += rand(1, 5)

		if divanmastr = 0:divanmastr = 1 & mastr += 1

		gs 'stat'
		'<center><img src="images/pics/divmas.jpg"></center>'
		'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
	}

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

		act 'Get off the couch':gt 'divan', 'fin'
	end

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


	! WD: Uninitialised ~ 'book'
	!{
	if book > 0:
		act 'Read a book (0:30)':
			cla
			*clr
			minut += 30
			horny += 5
			'<center><img src="images/pics/book.jpg"></center>'
			'You are reading a book.'

			act 'Put the book':gt 'divan', 'start'
		end
	end
	}
	! WD: Use read book code
	if f_book <= 0 and fantasybook <= 0 and w_book = 0 and womanbook = 0:
		#loc = 'divan'
		dynamic '$d_read_book'
	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:
		housrA = 0
		gt 'sitr'
	end
	'!
end

--- divan ---------------------------------