glife/locations/cum_cleanup.qsrc

# cum_cleanup

!!{To use set a value for cumspclnt then gosub cum_cleanup
Values for cumspclnt:
	1	'full external clean'
	2	'teeth clean'
	3	'internal clean'
	4	'external body clean'
	5	'hair clean'
	6	'clothes clean'
	7	'enema'
	8	'blank'
	9	'wash hands'
	10	'full external clean'
	11	'wash face'
	12	'face and hair'
	13	'head'
	14	'belly'
	15	'wipe ass/pussy'
	16	'Breasts'
	17	'Arms/legs'
	18	'full clean but skipping internal due to hypno'
	19
	20	'Clean everything' - Full reset
ie.
cumspclnt = 5
gs 'cum_cleanup'}

!!{	Locations of cum on Sveta which correspond to the toclean variable
	0 = 'In your Vagina'
	1 = 'On your labia'
	2 = 'On your panties over your vagina'
	3 = 'In your anus'
	4 = 'On your butt'
	5 = 'On your panties over your butt'
	6 = 'On your clothes in your groin area'
	7 = 'On your clothes'
	8 = 'On your back'
	9 = 'On your legs'
	10 = 'On your arms'
	11 = 'On your face'
	12 = 'Inside your mouth'
	13 = 'On your hands'
	14 = 'On your stomach'
	15 = 'On your breasts'
	16 = 'In your hair'
	17 = 'In a condom in your vagina'}

if $ARGS[0] = 'cleanloc':
	l = 0
	:cleanlocloop
	if l < arrsize('$sparrnam'):
		if sparrloc[l] = ARGS[1]:
			if sparrloc[l] = 0 or sparrloc[l] = 3:
				if mc_inventory['enema_kit'] = 1 or cheatKlisma = 0:
					cumsumvag -= iif(sparrloc[l]=0,sparrvol[l],0)
					cumsumass -= iif(sparrloc[l]=3,sparrvol[l],0)
					sparrvol[l] = 0
					sparrslc[l] = 0
				else
					cumspclnt = 15
					gs 'cum_cleanup'
				end
			else
				gs 'cum_cleanup', 'cleandeposit', l
			end
		end
		l += 1
		jump 'cleanlocloop'
	end
elseif $ARGS[0] = 'cleandeposit':
	cumsumbod -= sparrvol[ARGS[1]]
	cumsumvag -= iif(sparrloc[ARGS[1]]=0,sparrvol[ARGS[1]],0)
	cumsumass -= iif(sparrloc[ARGS[1]]=3,sparrvol[ARGS[1]],0)
	KILLVAR 'sparrage',ARGS[1]
	KILLVAR 'sparrloc',ARGS[1]
	KILLVAR '$sparrnam',ARGS[1]
	KILLVAR 'sparrppt',ARGS[1]
	KILLVAR 'sparridt',ARGS[1]
	KILLVAR 'sparrvol',ARGS[1]
	KILLVAR 'sparrslc',ARGS[1]
	KILLVAR 'sparrcnt',ARGS[1]
	if cumsumbod < 0: cumsumbod = 0
	if cumsumvag <= 0: cumsumvag = 0 & cum_vol['vagina'] = 0 & cumvol[0] = 0 & cum_loc['vagina'] = 0 & cumloc[0] = 0
	if cumsumass <= 0: cumsumass = 0 & cum_vol['anus'] = 0   & cumvol[3] = 0 & cum_loc['anus'] = 0   & cumloc[3] = 0
elseif $ARGS[0] = 'cleanwomb':
	KILLVAR 'cumarrcpt',ARGS[1]
	KILLVAR 'cumarrppt',ARGS[1]
	KILLVAR '$cumarrnam',ARGS[1]
	KILLVAR 'cumarrage',ARGS[1]
	KILLVAR 'cumarrdel',ARGS[1]
	KILLVAR 'cumarrkno',ARGS[1]
	KILLVAR 'cumarrcnt',ARGS[1]
	KILLVAR 'cumarrcon',ARGS[1]
elseif $ARGS[0] = 'cumcondslip':
	if cumcondslip_deep > (pcs_vag / 2) and vgape < 3:
		'The condom is too deep inside you to be pulled out by hand. You need to seek professional help!'
	else
		gs 'cum_cleanup', 'cleanloc', 17
		cumcondslip = 0
		gs 'stat'
		'With some effort, you manage to remove the condom.'
	end
elseif $ARGS[0] = 'reset':
	!!{ Used in cheat and when giving birth.}
	KILLVAR 'cleanloc'
	KILLVAR 'cumarrcpt'
	KILLVAR 'cumarrppt'
	KILLVAR '$cumarrnam'
	KILLVAR 'cumarrage'
	KILLVAR 'cumarrdel'
	KILLVAR 'cumarrkno'
	KILLVAR 'cumarrcnt'
	KILLVAR 'cumarrcon'
	KILLVAR 'cumcount'
	KILLVAR 'cumloc'
	killvar 'cum_loc'
	KILLVAR '$cumowner'
	KILLVAR 'cumspclnt'
	KILLVAR 'cumvolume'
	KILLVAR 'spafinloc'
	KILLVAR 'sparrage'
	KILLVAR 'sparrloc'
	KILLVAR '$sparrnam'
	KILLVAR 'sparrppt'
	KILLVAR 'sparridt'
	KILLVAR 'sparrvol'
	KILLVAR 'sparrslc'
	KILLVAR 'sparrcnt'
	killvar 'toclean'
	killvar 'deresidue'

	cumcondslip = 0
	cumcondslip_deep = 0
	cumSUM = 0
	cumsumbod = 0
	cumsumvag = 0
	cumsumass = 0
	Enable_clearcum = 0
elseif $ARGS[0] = '':
	if cumspclnt = 0: exit
	KILLVAR 'spafinloc'
	killvar 'toclean'
	killvar 'deresidue'
	if cumspclnt = 1 or cumspclnt = 10:
		if hypnoAddict > 0:
			!{full clean but skipping internal due to hypno}
			cumspclnt = 18
			gs 'cum_cleanup'
			exit
		end
		!{full external clean}
		if isprok = 0 and vibratorIN = 0: deresidue[arrsize('deresidue')] = 0
		if analplugin = 0: deresidue[arrsize('deresidue')] = 3
		toclean[arrsize('toclean')] = 1
		toclean[arrsize('toclean')] = 2
		toclean[arrsize('toclean')] = 4
		toclean[arrsize('toclean')] = 5
		toclean[arrsize('toclean')] = 6
		toclean[arrsize('toclean')] = 7
		toclean[arrsize('toclean')] = 8
		toclean[arrsize('toclean')] = 9
		toclean[arrsize('toclean')] = 10
		toclean[arrsize('toclean')] = 11
		toclean[arrsize('toclean')] = 12
		toclean[arrsize('toclean')] = 13
		toclean[arrsize('toclean')] = 14
		toclean[arrsize('toclean')] = 15
		toclean[arrsize('toclean')] = 16
	elseif cumspclnt = 2:
		!{teeth clean}
		toclean[arrsize('toclean')] = 12
	elseif cumspclnt = 3:
		!{internal clean}
		toclean[arrsize('toclean')] = 0
		toclean[arrsize('toclean')] = 3
		toclean[arrsize('toclean')] = 17
		if hypnoAddict > 0 and (cumloc[0] > 0 or cumloc[3] > 0): 'You have no reason to, but you carefully avoid cleaning out your pussy and ass.'
	elseif cumspclnt = 4:
		!{external body clean}
		toclean[arrsize('toclean')] = 1
		toclean[arrsize('toclean')] = 4
		toclean[arrsize('toclean')] = 8
		toclean[arrsize('toclean')] = 9
		toclean[arrsize('toclean')] = 10
		toclean[arrsize('toclean')] = 11
		toclean[arrsize('toclean')] = 13
		toclean[arrsize('toclean')] = 14
		toclean[arrsize('toclean')] = 15
		toclean[arrsize('toclean')] = 16
	elseif cumspclnt = 5:
		!{hair clean}
		toclean[arrsize('toclean')] = 16
	elseif cumspclnt = 6:
		!{clothes clean}
		toclean[arrsize('toclean')] = 2
		toclean[arrsize('toclean')] = 5
		toclean[arrsize('toclean')] = 6
		toclean[arrsize('toclean')] = 7
	elseif cumspclnt = 7:
		!{enema}
		toclean[arrsize('toclean')] = 3
	elseif cumspclnt = 8:
		!{blank}
	elseif cumspclnt = 9:
		!{wash hands}
		toclean[arrsize('toclean')] = 13
	elseif cumspclnt = 11:
		!{wash face}
		toclean[arrsize('toclean')] = 11
	elseif cumspclnt = 12:
		!{face and hair}
		toclean[arrsize('toclean')] = 11
		toclean[arrsize('toclean')] = 16
	elseif cumspclnt = 13:
		!{head}
		toclean[arrsize('toclean')] = 11
		toclean[arrsize('toclean')] = 12
		toclean[arrsize('toclean')] = 16
	elseif cumspclnt = 14:
		!{belly}
		toclean[arrsize('toclean')] = 14
	elseif cumspclnt = 15:
		!{wipe ass/pussy}
		toclean[arrsize('toclean')] = 1
		toclean[arrsize('toclean')] = 4
		deresidue[arrsize('deresidue')] = 0
		deresidue[arrsize('deresidue')] = 3
		if hypnoAddict > 0 and (cumloc[0] > 0 or cumloc[3] > 0): 'You have no reason to, but you carefully avoid cleaning out your pussy and ass.'
	elseif cumspclnt = 16:
		!{Breasts}
		toclean[arrsize('toclean')] = 15
	elseif cumspclnt = 17:
		!{Arms/legs}
		toclean[arrsize('toclean')] = 9
		toclean[arrsize('toclean')] = 10
	elseif cumspclnt = 18:
		!{full clean but skipping internal due to hypno}
		toclean[arrsize('toclean')] = 1
		toclean[arrsize('toclean')] = 2
		toclean[arrsize('toclean')] = 4
		toclean[arrsize('toclean')] = 5
		toclean[arrsize('toclean')] = 6
		toclean[arrsize('toclean')] = 7
		toclean[arrsize('toclean')] = 8
		toclean[arrsize('toclean')] = 9
		toclean[arrsize('toclean')] = 10
		toclean[arrsize('toclean')] = 11
		toclean[arrsize('toclean')] = 12
		toclean[arrsize('toclean')] = 13
		toclean[arrsize('toclean')] = 14
		toclean[arrsize('toclean')] = 15
		toclean[arrsize('toclean')] = 16
	elseif cumspclnt = 20:
		!{Clean everything}
		KILLVAR 'sparrage'
		KILLVAR 'sparrloc'
		KILLVAR '$sparrnam'
		KILLVAR 'sparrppt'
		KILLVAR 'sparridt'
		KILLVAR 'sparrvol'
		KILLVAR 'sparrslc'
		KILLVAR 'sparrcnt'
		KILLVAR 'cumloc'
		KILLVAR 'cum_loc'
		KILLVAR 'cumvol'
		KILLVAR 'cum_vol'
	end

	l = 0
	:cumcleanloop
	if l < arrsize('$sparrnam'):
		tmp = arrpos('deresidue', sparrloc[l])
		if tmp ! -1 and tmp < arrsize('deresidue'):
			!! vagina
			if sparrloc[l] = 0:
				!! cannot be completely cleaned with tissues\toilet use\hypno block\no enema kit
				if FUNC('Cum_Manage', 'check_innards', sparrloc[l]) = 1 _ 
				or (hypnoAddict = 0 and (mc_inventory['enema_kit'] = 1 or cheatKlisma = 0) _ 
				and ((cumspclnt = 10 or cumspclnt = 1 or cumspclnt = 3) or cheatKlisma = 0)):
					cumsumbod -= sparrvol[l] & cumsumvag -= sparrvol[l]
					sparrslc[l] = 0 & sparrvol[l] = 0
					isprok = 0 & vibratorIN = 0
				end
			!! ass
			elseif sparrloc[l] = 3:
				if FUNC('Cum_Manage', 'check_innards', sparrloc[l]) = 1 or cumspclnt = 7 _ 
				or (hypnoAddict = 0 and (mc_inventory['enema_kit'] = 1 or cheatKlisma = 0) _ 
				and ((cumspclnt = 10 or cumspclnt = 1 or cumspclnt = 3) or cheatKlisma = 0)):
					cumsumbod -= sparrvol[l] & cumsumass -= sparrvol[l]
					sparrslc[l] = 0 & sparrvol[l] = 0
					analplugin = 0 & analplugout = 0
				end
			else
				cumsumbod -= sparrvol[l]
				sparrslc[l] = 0 & sparrvol[l] = 0
			end
		end

		tmp = arrpos('toclean', sparrloc[l])
		if tmp ! -1 and tmp < arrsize('toclean') and sparrvol[l] > 0:
			!! vagina
			if sparrloc[l] = 0:
				if cumsumvag*rand(6,9)/6 >= FUNC('Cum_Manage', 'check_innards', sparrloc[l], 1) and isprok = 0 and vibratorIN = 0 _ 
				or (hypnoAddict = 0 and (mc_inventory['enema_kit'] = 1 or cheatKlisma = 0) _ 
				and ((cumspclnt = 10 or cumspclnt = 1 or cumspclnt = 3) or cheatKlisma = 0)):
					gs 'cum_cleanup', 'cleandeposit', l
					if cumspclnt = 3: isprok = 0 & vibratorIN = 0
				end
			!! ass
			elseif sparrloc[l] = 3:
				if (cumsumass*rand(6,9)/6 >= FUNC('Cum_Manage', 'check_innards', sparrloc[l], 1) and analplugin = 0) or cumspclnt = 7 _ 
				or (hypnoAddict = 0 and (mc_inventory['enema_kit'] = 1 or cheatKlisma = 0) _ 
				and ((cumspclnt = 10 or cumspclnt = 1 or cumspclnt = 3) or cheatKlisma = 0)):
					gs 'cum_cleanup', 'cleandeposit', l
					if cumspclnt = 3 or cumspclnt = 7: analplugin = 0
				end
			else
				gs 'cum_cleanup', 'cleandeposit', l
			end
		else
			if sparrvol[l] <= 0 and ($sparrnam[l] = '' or sparrloc[l] ! 0 or (sparrloc[l] = 0 and sparrage[l] > 10)): gs 'cum_cleanup', 'cleandeposit', l
			l += 1
		end
		jump 'cumcleanloop'
	end
	killvar 'toclean'
	killvar 'deresidue'
	killvar 'tmp'
	killvar 'l'
	killvar 'lubonus'
	killvar 'anal_slip'
	killvar 'vaginal_slip'
	killvar 'ar_anal_lube'
	killvar 'ar_vag_lube'
	if cumsumvag > 0: cum_vol['vagina'] = cumsumvag & cumvol[0] = cumsumvag & cum_loc['vagina'] = 1 & cumloc[0] = 1
	if cumsumass > 0: cum_vol['anus'] = cumsumass   & cumvol[3] = cumsumass & cum_loc['anus'] = 1   & cumloc[3] = 1

end

--- cum_cleanup ---------------------------------