:: divan
<<set $here = 'divan'>>
<<set $ARGS = $location_var[$here]>>
<!-- ! WD: Reading book code cant use argument-->
<<set $menu_off = 1>>
<<if $location_var[$here][0] == 'start' or !$location_var[$here][0]>>
	<<image "shared/home/divan.jpg">>
	You lie down on the sofa.
	<<actCLA 'wait'>>
		<<gs 'wait'>>
	<</actCLA>>
	<<if getvar("$TV") > 0 and $loc != 'dachain'>>
		<<act 'Watch TV'>>
			<<gt 'TV' 'start'>>
		<</act>>
	<</if>>
	<<gs 'events' 'read'>>
	<<if $pc.horny >= 75>>
		<<actCLA 'Masturbate (0:15)'>>
			<<divmastr>>
		<</actCLA>>
	<</if>>
	<<act 'Get off the couch'>>
		<<gt 'divan' 'fin'>>
	<</act>>
<</if>>
<<if $location_var[$here][0] == 'fin'>>
	<<gt $location>>
<</if>>
:: divmastr_macro[widget]
<<widget 'divmastr'>>
	<<if $pc.pcs_sweat < 25>>
	<<run $pc.sweatAdd(5)>>

<</if>>
	<<if getvar("$divanmastr") == 0>>
		<<set $divanmastr = 1>>
		<<if $pc.pcs_inhib < 30>>
		<<run $pc.skillExperienceGain('inhibition',rand(1,3))>>

	<</if>>
	<</if>>
	<<image "shared/sex/mast/divmas.jpg">>
	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.
	<<set $orgasm_or = 'yes'>>
	<<arouse 'clit_finger' 15 `['masturbate']`>>
	
	<<actCLA 'Get off the couch'>>
	<<set $divanmastr = 0>> <<gt 'divan' 'fin'>>
<</actCLA>>
<</widget>>
