glife/locations/cum_cleanup

# cum_cleanup

temp = arrsize('sparrvol')
cumsumbod = 0
cumsumvag = 0
cumsumass = 0



:temploop
if temp < 0: cumspclnt = 0

cumsumbod += sparrvol[temp]
if sparrloc[temp] = 0: cumsumvag += sparrvol[temp]
if sparrloc[temp] = 3: cumsumass += sparrvol[temp]

!{Full Body Clean}
if cumspclnt = 1:
	if sparrloc[temp] = 0 or sparrloc[temp] = 1 or sparrloc[temp] = 3 or sparrloc[temp] = 4 or sparrloc[temp] >= 8:
		KILLVAR 'spafinloc',temp
		KILLVAR 'sparrage',temp
		KILLVAR 'sparrloc',temp
		KILLVAR '$sparrnam',temp
		KILLVAR 'sparrppt',temp
		KILLVAR 'sparridt',temp
		KILLVAR 'sparrvol',temp
		KILLVAR 'sparrslc',temp
	end
	cumsumbod -= sparrvol[temp]
	if sparrloc[temp] = 0: cumsumvag -= sparrvol[temp]
	if sparrloc[temp] = 3: cumsumass -= sparrvol[temp]
	temp -= 1
	jump 'temploop'

!{Teeth Clean}
elseif cumspclnt = 2:
	if sparrloc[temp] = 12:
		KILLVAR 'spafinloc',temp
		KILLVAR 'sparrage',temp
		KILLVAR 'sparrloc',temp
		KILLVAR '$sparrnam',temp
		KILLVAR 'sparrppt',temp
		KILLVAR 'sparridt',temp
		KILLVAR 'sparrvol',temp
		KILLVAR 'sparrslc',temp
	end
	cumsumbod -= sparrvol[temp]
	temp -= 1
	jump 'temploop'

!{Internal Clean}
elseif cumspclnt = 3:
	if sparrloc[temp] = 0 or sparrloc[temp] = 3 or sparrloc[temp] = 17:
		KILLVAR 'spafinloc',temp
		KILLVAR 'sparrage',temp
		KILLVAR 'sparrloc',temp
		KILLVAR '$sparrnam',temp
		KILLVAR 'sparrppt',temp
		KILLVAR 'sparridt',temp
		KILLVAR 'sparrvol',temp
		KILLVAR 'sparrslc',temp
	end
	cumsumbod -= sparrvol[temp]
	if sparrloc[temp] = 0: cumsumvag -= sparrvol[temp]
	if sparrloc[temp] = 3: cumsumass -= sparrvol[temp]
	temp -= 1
	jump 'temploop'

!{External Body Clean}
elseif cumspclnt = 4:
	if sparrloc[temp] = 0 or sparrloc[temp] = 3: sparrslc[temp] = 0
	if sparrloc[temp] = 1 or sparrloc[temp] = 4 or (sparrloc[temp] >= 8 and sparrloc[temp] <= 11) or (sparrloc[temp] >= 13 and sparrloc[temp] <= 16):
		KILLVAR 'spafinloc',temp
		KILLVAR 'sparrage',temp
		KILLVAR 'sparrloc',temp
		KILLVAR '$sparrnam',temp
		KILLVAR 'sparrppt',temp
		KILLVAR 'sparridt',temp
		KILLVAR 'sparrvol',temp
		KILLVAR 'sparrslc',temp
	end
	cumsumbod -= sparrvol[temp]
	temp -= 1
	jump 'temploop'

!{Hair Clean}
elseif cumspclnt = 5:
	if sparrloc[temp] = 16:
		KILLVAR 'spafinloc',temp
		KILLVAR 'sparrage',temp
		KILLVAR 'sparrloc',temp
		KILLVAR '$sparrnam',temp
		KILLVAR 'sparrppt',temp
		KILLVAR 'sparridt',temp
		KILLVAR 'sparrvol',temp
		KILLVAR 'sparrslc',temp
	end
	cumsumbod -= sparrvol[temp]
	temp -= 1
	jump 'temploop'

!{Clothes Clean}
elseif cumspclnt = 6:
	if sparrloc[temp] = 2 or (sparrloc[temp] >= 5 and sparrloc[temp] <= 7):
		KILLVAR 'spafinloc',temp
		KILLVAR 'sparrage',temp
		KILLVAR 'sparrloc',temp
		KILLVAR '$sparrnam',temp
		KILLVAR 'sparrppt',temp
		KILLVAR 'sparridt',temp
		KILLVAR 'sparrvol',temp
		KILLVAR 'sparrslc',temp
	end
	cumsumbod -= sparrvol[temp]
	temp -= 1
	jump 'temploop'

!{Enima}
elseif cumspclnt = 7:
	if sparrloc[temp] = 3:
		KILLVAR 'spafinloc',temp
		KILLVAR 'sparrage',temp
		KILLVAR 'sparrloc',temp
		KILLVAR '$sparrnam',temp
		KILLVAR 'sparrppt',temp
		KILLVAR 'sparridt',temp
		KILLVAR 'sparrvol',temp
		KILLVAR 'sparrslc',temp
	end
	cumsumbod -= sparrvol[temp]
	cumsumass -= sparrvol[temp]
	temp -= 1
	jump 'temploop'

!{Douche}
elseif cumspclnt = 8:
	if sparrloc[temp] = 0 or sparrloc[temp] >= 17:
		KILLVAR 'spafinloc',temp
		KILLVAR 'sparrage',temp
		KILLVAR 'sparrloc',temp
		KILLVAR '$sparrnam',temp
		KILLVAR 'sparrppt',temp
		KILLVAR 'sparridt',temp
		KILLVAR 'sparrvol',temp
		KILLVAR 'sparrslc',temp
	end
	cumsumbod -= sparrvol[temp]
	cumsumvag -= sparrvol[temp]
	temp -= 1
	jump 'temploop'

!{Handwashing}
elseif cumspclnt = 9:
	if sparrloc[temp] = 13:
		KILLVAR 'spafinloc',temp
		KILLVAR 'sparrage',temp
		KILLVAR 'sparrloc',temp
		KILLVAR '$sparrnam',temp
		KILLVAR 'sparrppt',temp
		KILLVAR 'sparridt',temp
		KILLVAR 'sparrvol',temp
		KILLVAR 'sparrslc',temp
	end
	cumsumbod -= sparrvol[temp]
	temp -= 1
	jump 'temploop'

!{Full External Clean}
elseif cumspclnt = 10:
	if sparrloc[temp] = 0 or sparrloc[temp] = 3: sparrslc[temp] = 0
	if sparrloc[temp] = 1 or sparrloc[temp] = 2 or (sparrloc[temp] >= 4 and sparrloc[temp] <= 11) or (sparrloc[temp] >= 13 and sparrloc[temp] <= 16):
		KILLVAR 'spafinloc',temp
		KILLVAR 'sparrage',temp
		KILLVAR 'sparrloc',temp
		KILLVAR '$sparrnam',temp
		KILLVAR 'sparrppt',temp
		KILLVAR 'sparridt',temp
		KILLVAR 'sparrvol',temp
		KILLVAR 'sparrslc',temp
	end
	cumsumbod -= sparrvol[temp]
	temp -= 1
	jump 'temploop'

!{Face Cleanup}
elseif cumspclnt = 11:
	if sparrloc[temp] = 11:
		KILLVAR 'spafinloc',temp
		KILLVAR 'sparrage',temp
		KILLVAR 'sparrloc',temp
		KILLVAR '$sparrnam',temp
		KILLVAR 'sparrppt',temp
		KILLVAR 'sparridt',temp
		KILLVAR 'sparrvol',temp
		KILLVAR 'sparrslc',temp
	end
	cumsumbod -= sparrvol[temp]
	temp -= 1
	jump 'temploop'

!{Face and Hair Cleanup}
elseif cumspclnt = 12:
	if sparrloc[temp] = 11 or sparrloc[temp] = 16:
		KILLVAR 'spafinloc',temp
		KILLVAR 'sparrage',temp
		KILLVAR 'sparrloc',temp
		KILLVAR '$sparrnam',temp
		KILLVAR 'sparrppt',temp
		KILLVAR 'sparridt',temp
		KILLVAR 'sparrvol',temp
		KILLVAR 'sparrslc',temp
	end
	cumsumbod -= sparrvol[temp]
	temp -= 1
	jump 'temploop'

!{Head clean}
elseif cumspclnt = 13:
	if sparrloc[temp] = 11 or sparrloc[temp] = 12 or sparrloc[temp] = 16:
		KILLVAR 'spafinloc',temp
		KILLVAR 'sparrage',temp
		KILLVAR 'sparrloc',temp
		KILLVAR '$sparrnam',temp
		KILLVAR 'sparrppt',temp
		KILLVAR 'sparridt',temp
		KILLVAR 'sparrvol',temp
		KILLVAR 'sparrslc',temp
	end
	cumsumbod -= sparrvol[temp]
	temp -= 1
	jump 'temploop'

!{Belly clean}
elseif cumspclnt = 14:
	if sparrloc[temp] = 14:
		KILLVAR 'spafinloc',temp
		KILLVAR 'sparrage',temp
		KILLVAR 'sparrloc',temp
		KILLVAR '$sparrnam',temp
		KILLVAR 'sparrppt',temp
		KILLVAR 'sparridt',temp
		KILLVAR 'sparrvol',temp
		KILLVAR 'sparrslc',temp
	end
	cumsumbod -= sparrvol[temp]
	temp -= 1
	jump 'temploop'

!{ass and pussy external wipe}
elseif cumspclnt = 15:
	if sparrloc[temp] = 0 or sparrloc[temp] = 3: sparrslc[temp] = 0
	if sparrloc[temp] = 1 or sparrloc[temp] = 4:
		KILLVAR 'spafinloc',temp
		KILLVAR 'sparrage',temp
		KILLVAR 'sparrloc',temp
		KILLVAR '$sparrnam',temp
		KILLVAR 'sparrppt',temp
		KILLVAR 'sparridt',temp
		KILLVAR 'sparrvol',temp
		KILLVAR 'sparrslc',temp
	end
	cumsumbod -= sparrvol[temp]
	temp -= 1
	jump 'temploop'

!{Breast cleanup}
elseif cumspclnt = 16:
	if sparrloc[temp] = 15:
		KILLVAR 'spafinloc',temp
		KILLVAR 'sparrage',temp
		KILLVAR 'sparrloc',temp
		KILLVAR '$sparrnam',temp
		KILLVAR 'sparrppt',temp
		KILLVAR 'sparridt',temp
		KILLVAR 'sparrvol',temp
		KILLVAR 'sparrslc',temp
	end
	cumsumbod -= sparrvol[temp]
	temp -= 1
	jump 'temploop'

!{Arms and legs cleanup}
elseif cumspclnt = 17:
	if sparrloc[temp] = 10 or sparrloc[temp] = 9:
		KILLVAR 'spafinloc',temp
		KILLVAR 'sparrage',temp
		KILLVAR 'sparrloc',temp
		KILLVAR '$sparrnam',temp
		KILLVAR 'sparrppt',temp
		KILLVAR 'sparridt',temp
		KILLVAR 'sparrvol',temp
		KILLVAR 'sparrslc',temp
	end
	cumsumbod -= sparrvol[temp]
	temp -= 1
	jump 'temploop'

!{Full Clean}
elseif cumspclnt = 20:
	KILLVAR 'spafinloc'
	KILLVAR 'sparrage'
	KILLVAR 'sparrloc'
	KILLVAR '$sparrnam'
	KILLVAR 'sparrppt'
	KILLVAR 'sparridt'
	KILLVAR 'sparrvol'
	KILLVAR 'sparrslc'
	cumsumbod = 0
	cumsumvag = 0
	cumsumass = 0
	temp -= 1
	jump 'temploop'
else
	temp = 0
	cumspclnt = 0
end
spdirty = 0
spdirtyi = 0
spdirtyn = 0
spdirtyv = 0
spdirtyb = 0
spdirtyc = 0
spdirtyf = 0

if $ARGS[0] = 'cumeatercleanup':
	KILLVAR 'spafinloc',temp
	KILLVAR 'sparrage',temp
	KILLVAR 'sparrloc',temp
	KILLVAR '$sparrnam',temp
	KILLVAR 'sparrppt',temp
	KILLVAR 'sparridt',temp
	KILLVAR 'sparrvol',temp
	KILLVAR 'sparrslc',temp
	cumsumbod -= sparrvol[temp]
end

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