123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342 |
- # 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 cheatVars['enema'] = 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 (cheatVars['enema'] = 1 or (mc_inventory['enema_kit'] = 1 _
- and (cumspclnt = 10 or cumspclnt = 1 or cumspclnt = 3)))):
- 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 (cheatVars['enema'] = 1 or (mc_inventory['enema_kit'] = 1 _
- and (cumspclnt = 10 or cumspclnt = 1 or cumspclnt = 3)))):
- 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 (cheatVars['enema'] = 1 or (mc_inventory['enema_kit'] = 1 _
- and (cumspclnt = 10 or cumspclnt = 1 or cumspclnt = 3)))):
- 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 (cheatVars['enema'] = 1 or (mc_inventory['enema_kit'] = 1 _
- and (cumspclnt = 10 or cumspclnt = 1 or cumspclnt = 3)))):
- 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 ---------------------------------
|