basement/locations/fisting2.qsrc

# fisting2
if $ARGS[0] = 'start':
	menu_off = 1
	*clr & cla
	trubknow = 1
	alko += 6
	pcs_hydra -= 10
	pcs_breath = 0
	! a count of the number total visits
	trubtimes += 1
	! the temp count of the number of acts
	trubsextimes = 0
	pain['mouth'] += 2
	pain['lips'] += 2
	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.<br><br>- The Doctor binds you to a very interesting contraption.<br><br>Well, let''s party!'
	*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 'stat'
	act 'Let''s start': gt 'fisting2', 'sex_init'
end
if $ARGS[0] = 'sex_init':
	if trubsextimes = 0:
		*clr & cla
		'<center><video autoplay loop src="mod/basement/porka.mp4"></video></center>'
		*nl
		$orgasm_or = 'no'
		gs 'arousal', 'foreplay', 5, 'sub', 'maso', 'rough', 'bound'
		gs 'arousal', 'end'
		gs 'pain', 3 , 'asscheeks', 'spank'
		act 'The party continues': trubsextimes += 1 & gt 'fisting2', 'art_bed'
	elseif trubsextimes > 0:
		*clr & cla
		'<center><video autoplay loop src="mod/basement/fist/org.mp4"></video></center>'
		*nl
		'The Doctor was preparing you for the next phase, but you don''t care, and are completely absorbed in your own feelings as you orgasm.'
		*nl
		$orgasm_or = 'yes'
		gs 'arousal', 'foreplay', 5, 'sub', 'maso', 'rough', 'bound'
		gs 'arousal', 'end'
		act 'More!': trubsextimes += 1 & gt 'fisting2', 'art_bed'
	end
end
! --- random ---
if $ARGS[0] = 'art_bed':
	if trubsextimes < 10:
		*clr & cla
		pain['clitoris'] += 2
		pain['cervix'] += 2
		pain['labia'] += 2
		pain['mouth'] += 2
		pain['lips'] += 2
		picrand = rand(1,32)
		'<center><video autoplay loop src="mod/basement/fist/<<picrand>>.mp4"></video></center>'
		*nl
		$orgasm_or = 'no'
		gs 'arousal', 'anal_dilo', 10, 'sub', 'maso', 'rough', 'bound', 'lube'
		gs 'arousal', 'anal_fist', 10, 'sub', 'maso', 'rough', 'bound', 'lube'
		gs 'arousal', 'vaginal_dilo', 10, 'sub', 'maso', 'rough', 'bound', 'lube'
		gs 'arousal', 'vaginal_fist', 10, 'sub', 'maso', 'rough', 'bound', 'lube'
		gs 'arousal', 'vaginal_vibe', 10, 'sub', 'maso', 'rough', 'bound', 'lube'
		gs 'arousal', 'end'
		gs 'pain', 2 , 'vaginal', 'stretch'
		gs 'pain', 2 , 'asshole', 'stretch'
		gs 'pain', 2 , 'hands', 'bind'
		gs 'pain', 2 , 'feet', 'bind'
		gs 'stat'
		act 'Another round!': gt 'fisting2', 'sex_init'
	else
		*clr & cla
		'<center><video autoplay loop src="mod/basement/squirt.mp4"></video></center>'
		*nl
		'<br>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, while your pussy gushes like a victorious fountain.'
		*nl
		$orgasm_or = 'yes'
		gs 'arousal', 'vaginal_dilo', 1, 'sub', 'maso', 'rough', 'lube'
		gs 'arousal', 'anal_dilo', 1, 'sub', 'maso', 'rough', 'lube'
		gs 'arousal', 'anal_fist', 1, 'sub', 'maso', 'rough', 'lube'
		gs 'arousal', 'vaginal_fist', 1, 'sub', 'maso', 'rough', 'lube'
		gs 'arousal', 'end'
		act 'More': gt 'fisting2', '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 your holes are now well accustomed to our activities! Well done!<br>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', 2, 'sub', 'maso', 'rough', 'bound', 'lube'
		gs 'arousal', 'vaginal_fist', 2, 'sub', 'maso', 'rough', 'bound', '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
		vitamin += 5
		pcs_vag += 5
		pcs_ass += 5
		pain['vaginal'] += vagDMG * 2
		pain['asshole'] += assDMG * 2
		if pcs_vag < 25 : vgape = 2
		if pcs_vag < 15 : vgape = 3
		vgapetime = totminut + (vgape + 1) * 1440
		if pcs_ass < 25 : agape = 2
		if pcs_ass < 15 : agape = 3
		agapetime = totminut + (agape + 1) * 1440
		'<center><img <<$set_imgh>> src="mod/basement/porval.jpg"></center>'
		*nl
		'Enough!. I think the night was a success. Well ,you go recover, and until then, here are some vitamins and lube.<br><br>- As you say Doctor, It was awesome, but If I cum one more time I will burst. Thank you!<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', 2, 'sub', 'maso', 'rough', 'bound', 'lube'
		gs 'arousal', 'vaginal_fist', 2, 'sub', 'maso', 'rough', 'bound', 'lube'
		gs 'arousal', 'end'
		gs 'stat'
		act 'Leave': gs 'clothing', 'wear_last_worn' & gt 'basement', 'start'
	end
end

--- fisting2 ---------------------------------