|
|
@@ -305,141 +305,142 @@ if $ARGS[0] = '':
|
|
|
killvar 'succycletmp'
|
|
|
end
|
|
|
|
|
|
- !!cumarrtemp = 0
|
|
|
- !!cumcondslip = 0
|
|
|
- !!cumcondslip_aware = 0
|
|
|
+ cumarrtemp = 0
|
|
|
if arrsize('sparrvol') > 0:
|
|
|
:cumspaloop
|
|
|
- !!Succubus absorption for internal locations other than womb
|
|
|
- if succubusflag = 1:
|
|
|
- if sparrloc[cumarrtemp] = 3 or sparrloc[cumarrtemp] = 12:
|
|
|
- sexnutrition += 25*succublvl
|
|
|
- succubxp += 3
|
|
|
- sucabscum = 1
|
|
|
- if sparrvol[cumarrtemp] > 0: sparrvol[cumarrtemp] = 0
|
|
|
+ !!Succubus absorption for internal locations other than womb
|
|
|
+ if succubusflag = 1:
|
|
|
+ if sparrloc[cumarrtemp] = 3 or sparrloc[cumarrtemp] = 12:
|
|
|
+ sexnutrition += 25*succublvl
|
|
|
+ succubxp += 3
|
|
|
+ sucabscum = 1
|
|
|
+ if sparrvol[cumarrtemp] > 0: sparrvol[cumarrtemp] = 0
|
|
|
+ end
|
|
|
+ !!{if sparrloc[cumarrtemp] = 0 or sparrloc[cumarrtemp] = 3 or sparrloc[cumarrtemp] = 12:
|
|
|
+ sexnutrition += 30*succublvl
|
|
|
+ sparrvol[cumarrtemp] -= 30*succublvl
|
|
|
+ if sparrvol[cumarrtemp] < 0: sexnutrition += sparrvol[cumarrtemp] & sparrvol[cumarrtemp] = 0
|
|
|
+ end}
|
|
|
end
|
|
|
- end
|
|
|
- !!{if sparrloc[cumarrtemp] = 0 or sparrloc[cumarrtemp] = 3 or sparrloc[cumarrtemp] = 12:
|
|
|
- sexnutrition += 30*succublvl
|
|
|
- sparrvol[cumarrtemp] -= 30*succublvl
|
|
|
- if sparrvol[cumarrtemp] < 0: sexnutrition += sparrvol[cumarrtemp] & sparrvol[cumarrtemp] = 0
|
|
|
- end}
|
|
|
- !!{ Process spatter until it has volume or is too old in vagina. }
|
|
|
- if sparrvol[cumarrtemp] > 0 or (sparrloc[cumarrtemp] = 0 and sparrage[cumarrtemp] < 10):
|
|
|
- sparrtmpv = arrsize('$cumarrnam')
|
|
|
- if sparrloc[cumarrtemp] = 17:
|
|
|
- sparrtmpv = arrpos('cumarrcnt',sparrcnt[cumarrtemp])
|
|
|
- if sparrtmpv >= 0:
|
|
|
- !!'Found guy id <<sparrtmpv>>'
|
|
|
- if sparrage[cumarrtemp] < 4:
|
|
|
- cumarrcpt[sparrtmpv] += sparrppt[cumarrtemp]/5
|
|
|
- elseif sparrage[cumarrtemp] < 10:
|
|
|
- cumarrcpt[sparrtmpv] += sparrppt[cumarrtemp]/30
|
|
|
+
|
|
|
+ !!{ Process spatter until it has volume or is too old in vagina. }
|
|
|
+ if (sparrvol[cumarrtemp] > 0 or (sparrloc[cumarrtemp] = 0 and sparrage[cumarrtemp] < 10) and $sparrnam[cumarrtemp] ! ''):
|
|
|
+ sparrtmpv = arrsize('$cumarrnam')
|
|
|
+ if sparrloc[cumarrtemp] = 17:
|
|
|
+ sparrtmpv = arrpos('cumarrcnt',sparrcnt[cumarrtemp])
|
|
|
+ if sparrtmpv >= 0:
|
|
|
+ !!'Found guy id <<sparrtmpv>>'
|
|
|
+ if sparrage[cumarrtemp] < 4:
|
|
|
+ cumarrcpt[sparrtmpv] += sparrppt[cumarrtemp]/5
|
|
|
+ elseif sparrage[cumarrtemp] < 10:
|
|
|
+ cumarrcpt[sparrtmpv] += sparrppt[cumarrtemp]/30
|
|
|
+ end
|
|
|
end
|
|
|
- end
|
|
|
- elseif sparrloc[cumarrtemp] = 0:
|
|
|
- sparrtmpv = arrpos('cumarrcnt',sparrcnt[cumarrtemp])
|
|
|
- if sparrtmpv >= 0:
|
|
|
- !!'Found guy id' & sparrtmpv
|
|
|
- if sparrage[cumarrtemp] < 4:
|
|
|
- cumarrcpt[sparrtmpv] += sparrppt[cumarrtemp]/40
|
|
|
- elseif sparrage[cumarrtemp] < 10:
|
|
|
- cumarrcpt[sparrtmpv] += sparrppt[cumarrtemp]/60
|
|
|
+ elseif sparrloc[cumarrtemp] = 0:
|
|
|
+ sparrtmpv = arrpos('cumarrcnt',sparrcnt[cumarrtemp])
|
|
|
+ if sparrtmpv >= 0:
|
|
|
+ !!'Found guy id' & sparrtmpv
|
|
|
+ if sparrage[cumarrtemp] < 4:
|
|
|
+ cumarrcpt[sparrtmpv] += sparrppt[cumarrtemp]/40
|
|
|
+ elseif sparrage[cumarrtemp] < 10:
|
|
|
+ cumarrcpt[sparrtmpv] += sparrppt[cumarrtemp]/60
|
|
|
+ end
|
|
|
+ end
|
|
|
+ elseif sparrslc[cumarrtemp] = 1 and sparrage[cumarrtemp] < 5:
|
|
|
+ if sparrloc[cumarrtemp] = 1:
|
|
|
+ cumarrcpt[sparrtmpv] = sparrppt[cumarrtemp]*sparrvol[cumarrtemp]/sparrage[cumarrtemp]/1000
|
|
|
+ cumarrppt[sparrtmpv] = sparrppt[cumarrtemp]
|
|
|
+ $cumarrnam[sparrtmpv] = $sparrnam[cumarrtemp]
|
|
|
+ cumarrage[sparrtmpv] = sparrage[cumarrtemp]
|
|
|
+ cumarrdel[sparrtmpv] = 1
|
|
|
+ cumarrkno[sparrtmpv] = -1
|
|
|
+ cumarrcon[sparrtmpv] = 0
|
|
|
+ cumarrcnt[sparrtmpv] = sparrcnt[cumarrtemp]
|
|
|
+ end
|
|
|
+ elseif sparrslc[cumarrtemp] = 3 and sparrage[cumarrtemp] < 5:
|
|
|
+ if sparrloc[cumarrtemp] = 2:
|
|
|
+ cumarrcpt[sparrtmpv] = sparrppt[cumarrtemp]*sparrvol[cumarrtemp]/sparrage[cumarrtemp]/1000
|
|
|
+ cumarrppt[sparrtmpv] = sparrppt[cumarrtemp]
|
|
|
+ $cumarrnam[sparrtmpv] = $sparrnam[cumarrtemp]
|
|
|
+ cumarrage[sparrtmpv] = sparrage[cumarrtemp]
|
|
|
+ cumarrdel[sparrtmpv] = 3
|
|
|
+ cumarrkno[sparrtmpv] = -1
|
|
|
+ cumarrcon[sparrtmpv] = 0
|
|
|
+ cumarrcnt[sparrtmpv] = sparrcnt[cumarrtemp]
|
|
|
+ elseif sparrloc[cumarrtemp] = 4:
|
|
|
+ cumarrcpt[sparrtmpv] = sparrppt[cumarrtemp]*sparrvol[cumarrtemp]/sparrage[cumarrtemp]/1000
|
|
|
+ cumarrppt[sparrtmpv] = sparrppt[cumarrtemp]
|
|
|
+ $cumarrnam[sparrtmpv] = $sparrnam[cumarrtemp]
|
|
|
+ cumarrage[sparrtmpv] = sparrage[cumarrtemp]
|
|
|
+ cumarrdel[sparrtmpv] = 2
|
|
|
+ cumarrkno[sparrtmpv] = -1
|
|
|
+ cumarrcon[sparrtmpv] = 0
|
|
|
+ cumarrcnt[sparrtmpv] = sparrcnt[cumarrtemp]
|
|
|
+ end
|
|
|
+ elseif sparrslc[cumarrtemp] = 5 and sparrage[cumarrtemp] < 5:
|
|
|
+ if sparrloc[cumarrtemp] = 3:
|
|
|
+ cumarrcpt[sparrtmpv] = sparrppt[cumarrtemp]*sparrvol[cumarrtemp]/sparrage[cumarrtemp]/1000
|
|
|
+ cumarrppt[sparrtmpv] = sparrppt[cumarrtemp]
|
|
|
+ $cumarrnam[sparrtmpv] = $sparrnam[cumarrtemp]
|
|
|
+ cumarrage[sparrtmpv] = sparrage[cumarrtemp]
|
|
|
+ cumarrdel[sparrtmpv] = 2
|
|
|
+ cumarrkno[sparrtmpv] = -1
|
|
|
+ cumarrcon[sparrtmpv] = 0
|
|
|
+ cumarrcnt[sparrtmpv] = sparrcnt[cumarrtemp]
|
|
|
+ elseif sparrloc[cumarrtemp] = 5:
|
|
|
+ cumarrcpt[sparrtmpv] = sparrppt[cumarrtemp]*sparrvol[cumarrtemp]/sparrage[cumarrtemp]/1000
|
|
|
+ cumarrppt[sparrtmpv] = sparrppt[cumarrtemp]
|
|
|
+ $cumarrnam[sparrtmpv] = $sparrnam[cumarrtemp]
|
|
|
+ cumarrage[sparrtmpv] = sparrage[cumarrtemp]
|
|
|
+ cumarrdel[sparrtmpv] = 3
|
|
|
+ cumarrkno[sparrtmpv] = -1
|
|
|
+ cumarrcon[sparrtmpv] = 0
|
|
|
+ cumarrcnt[sparrtmpv] = sparrcnt[cumarrtemp]
|
|
|
+ elseif sparrloc[cumarrtemp] = 6:
|
|
|
+ cumarrcpt[sparrtmpv] = sparrppt[cumarrtemp]*sparrvol[cumarrtemp]/sparrage[cumarrtemp]/1000
|
|
|
+ cumarrppt[sparrtmpv] = sparrppt[cumarrtemp]
|
|
|
+ $cumarrnam[sparrtmpv] = $sparrnam[cumarrtemp]
|
|
|
+ cumarrage[sparrtmpv] = sparrage[cumarrtemp]
|
|
|
+ cumarrdel[sparrtmpv] = 3
|
|
|
+ cumarrkno[sparrtmpv] = -1
|
|
|
+ cumarrcon[sparrtmpv] = 0
|
|
|
+ cumarrcnt[sparrtmpv] = sparrcnt[cumarrtemp]
|
|
|
end
|
|
|
end
|
|
|
- elseif sparrslc[cumarrtemp] = 1 and sparrage < 5:
|
|
|
- if sparrloc[cumarrtemp] = 1:
|
|
|
- cumarrcpt[sparrtmpv] = sparrppt[cumarrtemp]*sparrvol[cumarrtemp]/sparrage[cumarrtemp]/1000
|
|
|
- cumarrppt[sparrtmpv] = sparrppt[cumarrtemp]
|
|
|
- $cumarrnam[sparrtmpv] = $sparrnam[cumarrtemp]
|
|
|
- cumarrage[sparrtmpv] = sparrage[cumarrtemp]
|
|
|
- cumarrdel[sparrtmpv] = 1
|
|
|
- cumarrkno[sparrtmpv] = -1
|
|
|
- cumarrcon[sparrtmpv] = 0
|
|
|
- cumarrcnt[sparrtmpv] = sparrcnt[cumarrtemp]
|
|
|
- end
|
|
|
- elseif sparrslc[cumarrtemp] = 3 and sparrage < 5:
|
|
|
- if sparrloc[cumarrtemp] = 2:
|
|
|
- cumarrcpt[sparrtmpv] = sparrppt[cumarrtemp]*sparrvol[cumarrtemp]/sparrage[cumarrtemp]/1000
|
|
|
- cumarrppt[sparrtmpv] = sparrppt[cumarrtemp]
|
|
|
- $cumarrnam[sparrtmpv] = $sparrnam[cumarrtemp]
|
|
|
- cumarrage[sparrtmpv] = sparrage[cumarrtemp]
|
|
|
- cumarrdel[sparrtmpv] = 3
|
|
|
- cumarrkno[sparrtmpv] = -1
|
|
|
- cumarrcon[sparrtmpv] = 0
|
|
|
- cumarrcnt[sparrtmpv] = sparrcnt[cumarrtemp]
|
|
|
- elseif sparrloc[cumarrtemp] = 4:
|
|
|
- cumarrcpt[sparrtmpv] = sparrppt[cumarrtemp]*sparrvol[cumarrtemp]/sparrage[cumarrtemp]/1000
|
|
|
- cumarrppt[sparrtmpv] = sparrppt[cumarrtemp]
|
|
|
- $cumarrnam[sparrtmpv] = $sparrnam[cumarrtemp]
|
|
|
- cumarrage[sparrtmpv] = sparrage[cumarrtemp]
|
|
|
- cumarrdel[sparrtmpv] = 2
|
|
|
- cumarrkno[sparrtmpv] = -1
|
|
|
- cumarrcon[sparrtmpv] = 0
|
|
|
- cumarrcnt[sparrtmpv] = sparrcnt[cumarrtemp]
|
|
|
- end
|
|
|
- elseif sparrslc[cumarrtemp] = 5 and sparrage < 5:
|
|
|
- if sparrloc[cumarrtemp] = 3:
|
|
|
- cumarrcpt[sparrtmpv] = sparrppt[cumarrtemp]*sparrvol[cumarrtemp]/sparrage[cumarrtemp]/1000
|
|
|
- cumarrppt[sparrtmpv] = sparrppt[cumarrtemp]
|
|
|
- $cumarrnam[sparrtmpv] = $sparrnam[cumarrtemp]
|
|
|
- cumarrage[sparrtmpv] = sparrage[cumarrtemp]
|
|
|
- cumarrdel[sparrtmpv] = 2
|
|
|
- cumarrkno[sparrtmpv] = -1
|
|
|
- cumarrcon[sparrtmpv] = 0
|
|
|
- cumarrcnt[sparrtmpv] = sparrcnt[cumarrtemp]
|
|
|
- elseif sparrloc[cumarrtemp] = 5:
|
|
|
- cumarrcpt[sparrtmpv] = sparrppt[cumarrtemp]*sparrvol[cumarrtemp]/sparrage[cumarrtemp]/1000
|
|
|
- cumarrppt[sparrtmpv] = sparrppt[cumarrtemp]
|
|
|
- $cumarrnam[sparrtmpv] = $sparrnam[cumarrtemp]
|
|
|
- cumarrage[sparrtmpv] = sparrage[cumarrtemp]
|
|
|
- cumarrdel[sparrtmpv] = 3
|
|
|
- cumarrkno[sparrtmpv] = -1
|
|
|
- cumarrcon[sparrtmpv] = 0
|
|
|
- cumarrcnt[sparrtmpv] = sparrcnt[cumarrtemp]
|
|
|
- elseif sparrloc[cumarrtemp] = 6:
|
|
|
- cumarrcpt[sparrtmpv] = sparrppt[cumarrtemp]*sparrvol[cumarrtemp]/sparrage[cumarrtemp]/1000
|
|
|
- cumarrppt[sparrtmpv] = sparrppt[cumarrtemp]
|
|
|
- $cumarrnam[sparrtmpv] = $sparrnam[cumarrtemp]
|
|
|
- cumarrage[sparrtmpv] = sparrage[cumarrtemp]
|
|
|
- cumarrdel[sparrtmpv] = 3
|
|
|
- cumarrkno[sparrtmpv] = -1
|
|
|
- cumarrcon[sparrtmpv] = 0
|
|
|
- cumarrcnt[sparrtmpv] = sparrcnt[cumarrtemp]
|
|
|
- end
|
|
|
- end
|
|
|
|
|
|
- if sparrloc[cumarrtemp] = 0 or sparrloc[cumarrtemp] = 3 or sparrloc[cumarrtemp] = 12:
|
|
|
- sparrvol[cumarrtemp] -= sparrage[cumarrtemp]/2
|
|
|
- if sparrvol[cumarrtemp] < 0:sparrvol[cumarrtemp] = 0
|
|
|
- end
|
|
|
- if sparrloc[cumarrtemp] = 0 and cumsumvag > 60: sparrslc[cumarrtemp] = 1
|
|
|
- if sparrloc[cumarrtemp] = 3 and cumsumass > 60: sparrslc[cumarrtemp] = 1
|
|
|
- if sparrloc[cumarrtemp] = 17:
|
|
|
- cumcondslip += 1
|
|
|
- if sparridt[cumarrtemp] >= 0:
|
|
|
- cumcondslip_aware = 1
|
|
|
+ if sparrloc[cumarrtemp] = 0 or sparrloc[cumarrtemp] = 3 or sparrloc[cumarrtemp] = 12:
|
|
|
+ sparrvol[cumarrtemp] -= sparrage[cumarrtemp]/2
|
|
|
+ if sparrvol[cumarrtemp] < 0:sparrvol[cumarrtemp] = 0
|
|
|
end
|
|
|
- if sparrage[cumarrtemp] > 48:
|
|
|
- cumcondslip_aware = 1
|
|
|
- if pcs_health > 100: pcs_health -= rand(3,sparrage[cumarrtemp] - 45)
|
|
|
- '<br><b><font color="red">You feel nauseous.</font></b>'
|
|
|
+ if sparrloc[cumarrtemp] = 0 and cumsumvag > 60: sparrslc[cumarrtemp] = 1
|
|
|
+ if sparrloc[cumarrtemp] = 3 and cumsumass > 60: sparrslc[cumarrtemp] = 1
|
|
|
+ if sparrloc[cumarrtemp] = 17:
|
|
|
+ cumcondslip += 1
|
|
|
+ if sparridt[cumarrtemp] >= 0:
|
|
|
+ cumcondslip_aware = 1
|
|
|
+ end
|
|
|
+ if sparrage[cumarrtemp] > 48:
|
|
|
+ cumcondslip_aware = 1
|
|
|
+ if pcs_health > 100: pcs_health -= rand(3,sparrage[cumarrtemp] - 45)
|
|
|
+ '<br><b><font color="red">You feel nauseous.</font></b>'
|
|
|
+ end
|
|
|
end
|
|
|
+ if sparrloc[cumarrtemp] ! 0 and sparrloc[cumarrtemp] ! 3 and sparrloc[cumarrtemp] ! 12 and sparrage < 5: sparrslc[cumarrtemp] += 1
|
|
|
+ sparrage[cumarrtemp] += 1
|
|
|
+ ctemp[0] += sparrvol[cumarrtemp]
|
|
|
+ if sparrloc[cumarrtemp] = 0: ctemp[1] += sparrvol[cumarrtemp]
|
|
|
+ if sparrloc[cumarrtemp] = 3: ctemp[2] += sparrvol[cumarrtemp]
|
|
|
+ else
|
|
|
+ gs 'cum_cleanup', 'cleandeposit', cumarrtemp
|
|
|
end
|
|
|
- if sparrloc[cumarrtemp] ! 0 and sparrloc[cumarrtemp] ! 3 and sparrloc[cumarrtemp] ! 12 and isprok = 0 and sparrage < 5: sparrslc[cumarrtemp] += 1
|
|
|
- sparrage[cumarrtemp] += 1
|
|
|
- cumarrtemp += 1
|
|
|
- ctemp[0] += sparrvol[cumarrtemp]
|
|
|
- if sparrloc[cumarrtemp] = 0: ctemp[1] += sparrvol[cumarrtemp]
|
|
|
- if sparrloc[cumarrtemp] = 3: ctemp[2] += sparrvol[cumarrtemp]
|
|
|
- else
|
|
|
- gs 'cum_cleanup', 'cleandeposit', cumarrtemp
|
|
|
- end
|
|
|
- if cumarrtemp < arrsize('sparrvol'): jump 'cumspaloop'
|
|
|
+ if cumarrtemp < arrsize('sparrvol'): cumarrtemp += 1 & jump 'cumspaloop'
|
|
|
+
|
|
|
cumsumbod = ctemp[0]
|
|
|
cumsumvag = ctemp[1]
|
|
|
cumsumass = ctemp[2]
|
|
|
killvar 'ctemp'
|
|
|
+ killvar 'sparrtmpv'
|
|
|
+ killvar 'cumarrtemp'
|
|
|
end
|
|
|
!! Breastcycle. Every breast related change with lactation happens in here.
|
|
|
if cheat_NoLactation > 0:
|
