|
|
@@ -1095,21 +1095,20 @@ end
|
|
|
|
|
|
if $ARGS[0] = 'cum_decay':
|
|
|
|
|
|
- if cumdectime+15 > totminut: exit
|
|
|
+ if menu_off = 1 or cumdectime+15 > totminut: exit
|
|
|
|
|
|
- killvar 'cumvolume'
|
|
|
- killvar 'i'
|
|
|
- cumsumvag = 0
|
|
|
- cumsumass = 0
|
|
|
-
|
|
|
if arrsize('sparrvol') > 0:
|
|
|
+ cumsumvag = 0
|
|
|
+ cumsumass = 0
|
|
|
+ i = 0
|
|
|
+
|
|
|
!!go through every location
|
|
|
:sparrvolloop
|
|
|
!!start from the freshest load
|
|
|
idx = arrsize('sparrloc')-1
|
|
|
:sparrlocloop
|
|
|
!!if the currently examined load loaction is the location of the current cycle, execute
|
|
|
- if sparrloc[idx] = i:
|
|
|
+ if sparrloc[idx] = i and sparrvol[idx] > 0:
|
|
|
!! 0 = 'In your Vagina'
|
|
|
if i = 0:
|
|
|
!! passive absorption, succubus has its own
|
|
|
@@ -1225,8 +1224,19 @@ if $ARGS[0] = 'cum_decay':
|
|
|
end
|
|
|
end
|
|
|
if sparrvol[idx] <= 0: gs 'cum_cleanup', 'cleandeposit', idx
|
|
|
- !! 12 and 17 = not mouth and condom
|
|
|
- elseif i <> 12 and i <> 17:
|
|
|
+ !! 17 = 'In a condom in your vagina'
|
|
|
+ elseif i = 17 and sparrvol[idx] > rand(10,15):
|
|
|
+ !! 0 = 'In your Vagina'
|
|
|
+ sexvolume = max(0, cumamount/5 - isprokp*rand(2,5))
|
|
|
+ if sexvolume > 0:
|
|
|
+ sparrvol[idx] -= sexvolume
|
|
|
+ spafinloc = 0
|
|
|
+ sexunaware = 1
|
|
|
+ sexspecpot = -1 & cumarrnam = sparrnam[idx] & cumarrcpt = sparrppt[idx] & cumarrkno = sparridt[idx] & cumarrage = sparrage[idx] & cumnostd = 0
|
|
|
+ gs 'Cum_Manage'
|
|
|
+ end
|
|
|
+ !! 12 = 'Inside your mouth'
|
|
|
+ elseif i <> 12:
|
|
|
!! dry out
|
|
|
!! 1: in this hour
|
|
|
!! 2: in four hours
|
|
|
@@ -1239,6 +1249,8 @@ if $ARGS[0] = 'cum_decay':
|
|
|
end
|
|
|
if sparrvol[idx] > 0: cumloc[i] = 1
|
|
|
end
|
|
|
+ !! reset just in case
|
|
|
+ sexvolume = 0 & cumnostd = 0 & cumarrkno = 0
|
|
|
if idx > 0:idx -= 1 & jump 'sparrlocloop'
|
|
|
if i < 18:i += 1 & jump 'sparrvolloop'
|
|
|
killvar 'i'
|
