# fisting1
if $ARGS[0] = 'start':
	menu_off = 1
	*clr & cla
	trubknow = 1
	alko += 6
	pcs_hydra -= 10
	pcs_breath = 0
	pain['mouth'] += 2
	pain['lips'] += 2
	! a count of the number visits with the Doctor
	trubtimes += 1
	! the local count of the number of acts
	trubsextimes = 0
	gs 'clothing', 'strip'
	'<center><img <<$set_imgh>> src="mod/basement/fiks.jpg"></center>'
	*nl
	'Drink it up honey, it will help you relax a little.<br><br>- you took the glass, and gulped it down, then without fuss, removed your clothing. The Doctor binds then binds you to a very strange contraption.<br><br>Lets start!'
	*nl
	$orgasm_or = 'no'
	gs 'arousal', 'foreplay', 60, 'sub', 'maso', 'rough', 'bound'
	gs 'arousal', 'end'
	gs 'pain', 1 , 'hands', 'bind'
	gs 'pain', 1 , 'feet', 'bind'
	gs 'pain', 1 , 'mouth', 'bind'
	gs 'pain', 1 , 'lips', 'bind'
	gs 'pain', 1 , 'throat', 'bind'
	gs 'stat'
	act 'Get started': gt 'fisting1', 'sex_init'
end
if $ARGS[0] = 'sex_init':
	*clr & cla
	'<center><img <<$set_imgh>> src="mod/basement/trub2.jpg"></center>'
	*nl
	'Well lets begin! Perhaps we should test your.....'
	act 'How about my pussy?': trubsextimes += 1 & gt 'fisting1', 'art_bed'
	act 'How about my ass?': trubsextimes += 1 & gt 'fisting1', 'art_anal'
end
! --- vaginal ---
if $ARGS[0] = 'art_bed':
	if trubsextimes < 3:
		*clr & cla
		pain['clitoris'] += 2
		pain['lips'] += 2
		'<center><video autoplay loop src="mod/basement/vaga.mp4"></video></center>'
		*nl
		'The Doctor includes one of a multitude of devices in the room, and your pussy recieves more of a workout than you bargained for...'
		*nl
		$orgasm_or = 'no'
		gs 'arousal', 'vaginal_vibe', 40, 'sub', 'maso', 'rough'
		gs 'arousal', 'end'
		gs 'stat'
		act 'I need more': gt 'fisting1', 'sex_init'
	else
		*clr & cla
		pain['clitoris'] += 2
		'<center><video autoplay loop src="mod/basement/vaga2.mp4"></video></center>'
		*nl
		'You, can''t help it - you moan loudly, as you experience a wave of orgasms. A feeling of congestion, pain, and pleasure embraces your overworked pussy, and your pussy gushes like a victorious fountain.'
		*nl
		$orgasm_or = 'yes'
		gs 'arousal', 'vaginal_dildo', 5, 'sub', 'maso', 'rough'
		gs 'arousal', 'end'
		gs 'stat'
		act 'I''m done': gt 'fisting1', 'ender'
	end
end
! --- anal ---
if $ARGS[0] = 'art_anal':
	if trubsextimes < 3:
		*clr & cla
		'<center><video autoplay loop src="mod/basement/anal.mp4"></video></center>'
		*nl
		'The Doctor includes one of a multitude of devices in the room, and your ass recieves more of a workout than you bargained for...'
		*nl
		$orgasm_or = 'no'
		gs 'arousal', 'anal_dildo', 40, 'sub', 'maso', 'rough'
		gs 'arousal', 'end'
		gs 'pain', 1 , 'asshole', 'stretch'
		gs 'stat'
		act 'Give me more!': gt 'fisting1', 'sex_init'
	else
		*clr & cla
		'<center><video autoplay loop src="mod/basement/anal2.mp4"></video></center>'
		*nl
		'You, can''t help it - you moan loudly, as you experience a wave of orgasms. A feeling of congestion, pain, and pleasure embraces your overworked ass, while your pussy gushes like a victorious fountain.'
		*nl
		$orgasm_or = 'yes'
		gs 'arousal', 'anal_dildo', 5, 'sub', 'maso', 'rough'
		gs 'arousal', 'end'
		gs 'pain', 1 , 'asshole', 'stretch'
		gs 'stat'
		act 'That''s enough': gt 'fisting1','ender'
	end
end
! --- end ---
if $ARGS[0] = 'ender':
	if pcs_ass => 25 and pcs_vag => 25 :
	*clr & cla
		pcs_vag += 3
		pcs_ass += 3
		'<center><img <<$set_imgh>> src="mod/basement/duplo.jpg"></center>'
		*nl
		'I see you''re already becoming accustomed to our activities! Well done! When you are finished reviewing your well-worn holes, it''s time to leave, said the Doctor.<br><br>- You get dressed and went back to the basement, with your legs trembling.'
		*nl
		$orgasm_or = 'yes'
		gs 'arousal', 'anal_fist', 5, 'sub', 'maso', 'rough', 'lube'
		gs 'arousal', 'vaginal_fist', 5, 'sub', 'maso', 'rough', 'lube'
		gs 'arousal', 'end'
		gs 'pain', 1 , 'vaginal', 'stretch'
		gs 'pain', 1 , 'asshole', 'stretch'
		gs 'stat'
		act 'Leave': gs 'clothing', 'wear_last_worn' & gt 'basement', 'start'
	else
		*clr & cla
		lubri += 1
		minut -= 5
		vitamin += 1
		pcs_vag += 5
		pcs_ass += 5
		pain['vaginal'] += vagDMG * 2
		pain['asshole'] += assDMG * 2
		vgape = 3
		vgapetime = totminut + (vgape + 1) * 1440
		agape = 3
		agapetime = totminut + (agape + 1) * 1440
		'<center><img <<$set_imgh>> src="mod/basement/porval.jpg"></center>'
		*nl
		'Well, now you need to leave your ass to heal. Here! Take a vitamin, and do the same each day. Be sure to use lube and don''t put anything too large up there for a while.<br><br>- It was fun! you told the Doctor.<br><br>Yes it was! If you decide to stretch those holes, go ahead, and remember the lubricant!, but first you must heal!<br><br>- you got dressed and left the room, your legs shaking, your pussy and anus aching mercilessly, but the feeling of fullness filling your body.'
		*nl
		$orgasm_or = 'no'
		gs 'arousal', 'anal_fist', 5, 'sub', 'maso', 'rough', 'lube'
		gs 'arousal', 'vaginal_fist', 5, 'sub', 'maso', 'rough', 'lube'
		gs 'arousal', 'end'
		gs 'stat'
		act 'Leave': gs 'clothing', 'wear_last_worn' & gt 'basement', 'start'
	end
end

--- fisting1 ---------------------------------