Bug fixes in Femcyc, lact_lib and stat_display.

Bug fixes in Femcyc, lact_lib and stat_display.

locations/femcyc.qsrc

@@ -1,957 +1,946 @@
-# femcyc
-
-!! I have to initialize the variables somewhere, maybe in preCUST?
-if Luth_Max = 0: LutH_Max = rand(312,360) & !! 13-15 days including ovulation
-if Foch_Max = 0: FocH_Max = rand(312,360) & !! 13-15 days including menstruation
-		
-if $ARGS[0] = '':
-	!{Hourly reduction in semen potency}
-	!{First it sets the array index to the first index, then it checks to be sure the array tracking the age is less than 144 hours. If it is 144 hours old, it kills that index, which should shift the index up. If it is less than 144 hours old, it sets a current potency drop. The drop is 2x or 3x regularly, but during ovulation it is only 1x, to represent the better environment from fertile cervical mucus.}
-	!{144 hours was selected due to that being approximately the maximum amount of time sperm is viable in the womb (120 would be more accurate, but there is leeway). PLEASE DO NOT CHANGE IT.}
-	!{The potency drop may seem small in game-time, but is meant to be a reasonable approximation to real life. Avoid unprotected sex within 5 days of ovulation if you want to mitigate your risk.}
-	!{the 'rcntorgzm' variable is set to determine whether Sveta has orgasmed within the last hour. If she has, a small potency boost for the guys she has slept with in that hour.}
-
-	if rcntorgzm = 1:
-		if rcntorgzmtmp = 1: rcntorgzm = 0 & rcntorgzmtmp = 0
-		if rcntorgzmtmp = 0: rcntorgzmtmp = 1
-
-	end
-
-	cumarr_idx = 0
-
-	:cumarrloop
-	if cumarr_idx < arrsize('$cumarrnam'):
-		if cumarrcpt[cumarr_idx] > 0 and cumarrage[cumarr_idx] < 144:
-			if rcntorgzm = 1 and cumarrcpt[cumarr_idx] < cumarrppt[cumarr_idx] and cumarrage[cumarr_idx] < 1: cumarrcpt[cumarr_idx] += cumarrppt[cumarr_idx] / 12
-			cumpdrop = cumarrcpt[cumarr_idx] / (144 - cumarrage[cumarr_idx])
-			if cycle ! 2: cumpdrop += cumpdrop * rand(0, 2)
-			cumarrcpt[cumarr_idx] -= cumpdrop
-			if cumarrcpt[cumarr_idx] <= 0:
-				gs 'cum_cleanup', 'cleanwomb', cumarr_idx
-			else
-				cumarrage[cumarr_idx] += 1
-				cumarr_idx += 1
-			end
-		else
-			gs 'cum_cleanup', 'cleanwomb', cumarr_idx
-		end
-
-		jump 'cumarrloop'
-
-	end
-
-	!!Succubus absorption of sperm in womb
-	if succubusflag = 1:
-		if arrsize('cumarrppt') > 0:
-			succycletmp = 0
-			:sucvagabs
-			if cumarrdel[succycletmp] = 0:
-				if cumarrcpt[succycletmp] > 10000:
-					sexnutrition += 30 * succublvl
-					succubxp += 3
-				elseif cumarrcpt[succycletmp] < 3000 and cumarrcpt[succycletmp] > 1000:
-					sexnutrition += 5 * succublvl
-					succubxp += 2
-				elseif cumarrcpt[succycletmp] =< 1000:
-					 sexnutrition += succublvl
-				else
-					sexnutrition += 25 * succublvl
-					succubxp += 3
-				end
-				gs 'cum_cleanup', 'cleanwomb', succycletmp
-				sucabscum = 1
-			else
-				succycletmp += 1
-			end
-			if succycletmp < arrsize('cumarrppt'): jump 'sucvagabs'
-		end
-		killvar 'succycletmp'
-	end
-
-	cumarrtemp = 0
-	cumcondslip = 0
-	cumcondslip_aware = 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
-			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
-					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
-					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
-				end
-				if sparrage[cumarrtemp] > 48:
-					cumcondslip_aware = 1
-					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 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'
-		cumsumbod = ctemp[0]
-		cumsumvag = ctemp[1]
-		cumsumass = ctemp[2]
-		KILLVAR 'ctemp'
-	end
-	
-	
-	!! new milkgrowday function.
-	!! Not lactating yet, but there was milkdemand, meaning someone worked your nipples and breasts.
-	if lactate = 0 and milkoverdemand >= 0 and prolactinlvl >= 0:
-		if milkgrowday < daystart:
-			prolactinlvl += milkoverdemand/200
-			!! as long as your tits are not over 11 growth will happen to them. If you do not pump or no pregnancy happens, no growth will happen.
-			if milkoverdemand = 0 and pregchem = 0 and tits < 11:
-				temp_var = prolactinlvl - 10
-				if temp_var < 0:
-					prolactinlvl = 0
-				end
-				!! if prolactinlvl is sinking too much, the aveoli will deflate and thus the breasts growth is reverted. This only counts for induced lactation. If natural lactation occurs breasts will shrink a bit too, but stay bigger in total.
-				if prolactinlvl < 75 and total_milkinduce_growth > 0:
-					nbsize -= total_milkinduce_growth
-					prolactinlvl -= 10
-					total_milkinduce_growth = 0				
-				else
-					prolactinlvl -= 10
-				end
-				milkoverdemand = 0
-				milkgrowday = daystart				
-			elseif milkoverdemand > 0 and pregchem = 0 and tits < 11:
-				!! inducing without ever being pregnant
-				if prolactinlvl > 75 and kid <= 0:
-					if total_milkinduce_growth < 8:
-						total_milkinduce_growth += 1 + pumpinggrowth
-						nbsize += 1 + pumpinggrowth
-						pumpinggrowth = 0
-					else
-						pumpinggrowth = 0
-					end
-				!! inducing after being pregnant
-				elseif prolactinlvl > 75 and kid > 0:
-					if total_milkinduce_growth < (total_preg_growth/2):
-						total_milkinduce_growth += 1 + pumpinggrowth
-						nbsize += 1 + pumpinggrowth
-						pumpinggrowth = 0
-					end	
-				end
-				milkoverdemand = 0
-			elseif milkoverdemand >= 0 and pregchem > 0 and tits < 11:
-				if prolactinlvl > 75 and pregchem < 3000 and kid <= 0:
-					if total_milkinduce_growth < 8:
-						total_milkinduce_growth += 1 + pumpinggrowth
-						nbsize += 1 + pumpinggrowth
-						pumpinggrowth = 0
-					else
-						pumpinggrowth = 0
-					end
-				!! first breast growth with first pregnancy
-				elseif prolactinlvl >= 75 and pregchem >= 2000 and pregchem < 3000 and kid <= 0:
-					if rand(0,100) > 60:
-						first_preg_growth += 1
-						total_preg_growth += 1
-						if total_preg_growth > total_milkinduce_growth: nbsize += 1
-					end
-				!! there is little chance your breast grow additional sizes if you have more kids.
-				elseif prolactinlvl >= 75 and pregchem >= 2000 and pregchem < 3000 and kid > 0:
-					if first_preg_growth > total_preg_growth:
-						total_preg_growth += 1
-						if total_preg_growth > total_milkinduce_growth: nbsize += 1
-					else
-						if rand(0,100) > 95:
-							total_preg_growth += 1
-							if total_preg_growth > total_milkinduce_growth: nbsize += 1
-						end
-					end
-				!! inducing after being pregnant
-				elseif prolactinlvl > 75 and pregchem =< 3000 and kid > 0:
-					if total_milkinduce_growth < (total_preg_growth/2):
-						total_milkinduce_growth += 1 + pumpinggrowth
-						nbsize += 1 + pumpinggrowth
-						pumpinggrowth = 0
-					end	
-				end
-				milkoverdemand = 0
-				milkgrowday = daystart
-			end
-			milkgrowday = daystart
-		else
-			milkgrowday = daystart
-		end
-	elseif lactate > 0 and milkoverdemand => 0 and prolactinlvl >= 0:
-		lactatemm = func('$calc_lactatemm')
-		!! checking if induced or not and if girl went through pregnancy already.
-		if lactateinduced > 0 and kid <= 0:
-			if milkgrowday < daystart:
-				!! first breast growth with first pregnancy
-				if prolactinlvl >= 75 and pregchem >= 2000 and pregchem < 3000 and kid <= 0:
-					if rand(0,100) > 60:
-						first_preg_growth += 1
-						total_preg_growth += 1
-						if total_preg_growth > total_milkinduce_growth: nbsize += 1
-					end
-				end
-				if lactatemm > lactatemv:
-					lactatemv += lactaterate
-					temp_var = lactaterate/100
-					if temp_var <= 0: temp_var = 1
-					pcs_energy -= temp_var
-					if lactatemv > lactatemm: lactatemv = lactatemm
-				end
-				if milkoverdemand > 0 and breastpumped > 0:
-					!! lactationrate growing, so you make more milk the more demand there was in the day before.
-					temp_var = prolactinlvl + milkoverdemand/20
-					if  temp_var > 120:
-						prolactinlvl += milkoverdemand/20
-						!! uppon reaching a specific limit, the lactationrate will grow slower. Human body limits etc... you know
-						if lactaterate > 3500:
-							lactaterate += 5*(prolactinlvl/200)
-						elseif lactaterate > 6000:							
-							lactaterate += prolactinlvl/200
-						else
-							lactaterate += 10*(prolactinlvl/200)
-						end
-						prolactinlvl = 100
-					else
-						prolactinlvl = 100
-					end
-					'Your breasts tingle a bit more from milkproduction.'
-				elseif milkoverdemand = 0 and breastpumped > 0:
-					prolactinlvl = 100
-				elseif milkoverdemand = 0 and breastpumped = 0:
-					if lactaterate > 0:
-						temp_var = lactaterate/4
-						if temp_var < 1:temp_var = 0
-						lactaterate = temp_var
-						'Your breasts tingle a little less from milkproduction.'
-					elseif lactaterate = 0:
-						if pregchem < 1000:
-							lactate = 0
-							lactateinduced = 0
-							nbsize -= total_milkinduce_growth
-							'You notice that you stopped lactating.'
-						else
-							lactaterate = 1
-						end
-					else
-						lactaterate = 0
-					end
-				end			
-				milkgrowday = daystart
-				milkoverdemand = 0
-				breastpumped = 0
-			else
-				milkgrowday = daystart
-				if lactatemm >= lactatemv:
-					lactatemv += lactaterate
-					if lactatemv > lactatemm:
-						lactatemv = lactatemm
-						lact_engorgement += 1
-						if lact_engorgement > 2: lactatemess += 1
-					end
-				end
-			end
-			milkgrowday = daystart
-		else
-			if milkgrowday < daystart:
-				!! there is little chance your breast grow additional sizes if you have more kids.
-				if prolactinlvl >= 75 and pregchem >= 2000 and pregchem < 3000 and kid > 0:
-					if first_preg_growth > total_preg_growth:
-						total_preg_growth += 1
-						if total_preg_growth > total_milkinduce_growth: nbsize += 1
-					else
-						if rand(0,100) > 95:
-							total_preg_growth += 1
-							if total_preg_growth > total_milkinduce_growth: nbsize += 1
-						end
-					end
-				end				
-				if lactatemm > lactatemv:
-					lactatemv += lactaterate
-					temp_var = lactaterate/100
-					if temp_var <= 0: temp_var = 1
-					pcs_energy -= temp_var
-					if lactatemv > lactatemm: lactatemv = lactatemm
-				end
-				if milkoverdemand > 0 and breastpumped > 0:
-					!! lactationrate growing, so you make more milk the more demand there was in the day before.
-					temp_var = prolactinlvl + milkoverdemand/10
-					if  temp_var > rand(150,200):
-						prolactinlvl += milkoverdemand/20
-						!! uppon reaching a specific limit, the lactationrate will grow slower. Human body limits etc... you know :D
-						if lactaterate > 3500:
-							lactaterate += 5*(prolactinlvl/200)
-						elseif lactaterate > 6000:							
-							lactaterate += prolactinlvl/200
-						else
-							lactaterate += 10*(prolactinlvl/200)
-						end
-						prolactinlvl = 100
-					else
-						prolactinlvl = 100
-					end
-					'Your breasts tingle a bit more from milkproduction.'
-				elseif milkoverdemand = 0 and breastpumped > 0:
-					prolactinlvl = 100
-				else
-					if lactaterate > 0:
-						temp_var = lactaterate/8
-						if temp_var < 1:temp_var = 0
-						lactaterate = temp_var
-						milkoverdemand = 0
-						'Your breasts tingle a little less from milkproduction.'
-					elseif lactaterate = 0:
-						lactate = 0
-						lactateinduced = 0
-						if total_milkinduce_growth > 0: nbsize -= total_milkinduce_growth
-						if total_preg_growth > 0:
-							nbsize -= total_preg_growth
-							nbsize += first_preg_growth/2
-						end
-						milkoverdemand = 0
-						'You stopped lactating.'
-					else
-						lactaterate = 0
-					end
-				end				
-				milkgrowday = daystart
-				milkoverdemand = 0
-				breastpumped = 0
-			else
-				milkgrowday = daystart
-				if lactatemm >= lactatemv:
-					lactatemv += lactaterate
-					if lactatemv > lactatemm:
-						lactatemv = lactatemm
-						lact_engorgement += 1
-						if lact_engorgement > 2: lactatemess += 1
-					end
-				end
-			end
-			milkgrowday = daystart
-		end
-		milkgrowday = daystart
-	end
-
-	if cycle <= 0:
-		gs 'femcyc', 'cyc0'
-	elseif cycle = 1:
-		gs 'femcyc', 'cyc1'
-	elseif cycle = 2:
-		gs 'femcyc', 'cyc2'
-	elseif cycle = 3:
-		gs 'femcyc', 'cyc3'
-	elseif cycle = 4:
-		gs 'femcyc', 'cyc4'
-	elseif cycle = 5:
-		gs 'femcyc', 'preg'
-	end
-
-	dynamic $d_cycreport_update
-end
-
-
-!{Menstruation to Follicular. Verifies that the cycle is in the bloody phase. It then checks to see if you are done bleeding. If you are, it starts the Follicular phase. There is a small chance your follcular phase will be anywhere from a day to 3 days short, done by the random release of a boosted EggRH. Otherwise, it just starts it clean.}
-
-if $ARGS[0] = 'cyc0':
-	if mesec <= 0:
-		lastmens = daystart
-		cycle = 1
-		mesec = 0
-		if rand(0,1000) = 1000:
-			EggRH = rand(20,80)
-		else
-			EggRH = 0
-		end
-		FocH += EggRH
-	else
-		mesec -= 1
-		FocH += 1
-	end
-end
-
-
-!{Follicular to Ovulation. It checks to see if you are on the Follicular phase. If you are, it checks to see if you are ready to ovulate. If you arent, it increases your ovulation ticker by 1, then gives a random chance to increase it again. Then it checks to see if you have ovarian problems, and if you do, decreases your ovulation ticker. When all that is done, it checks to see if you have any birth control chemical, and if its above a certain amount, it reduces your ovulation ticker.}
-
-if $ARGS[0] = 'cyc1':
-	FertEgg = 0
-	if FocH <= FocH_Max:
-		if pillcon <= 7000: EggRH += 1
-		if rand(0,9) = 0: EggRH += 1
-		FocH += 1
-		temprand = rand(0,9) - sterileov + tempovbonus
-		if temprand < 0: 
-			EggRH -= 1
-		elseif temprand > 9: 
-			EggRH += 1
-		end
-	else
-		!! the setting of the max_time can be here although it can be changed in the future
-		LutH_Max = rand(312,360) & !! 13-15 days including ovulation
-		!{If you are ready to ovulate, it creates a chance to double ovulate. That chance is increased by your age. Then it does the same for a triple ovulation. Then it sets the ovulation tag, ovulation hour count, and begins a ticker for the life of the eggs.}
-		Temprand = rand(0,20)
-		Temprand += age/15
-		Temprand -= pillcon/1000
-		if temprand > 20:
-			EggRH += 205
-			Temprand = rand(0,20)
-			Temprand += age/15
-			if temprand > 20: EggRH += 410
-		end
-		FocH = 0
-		Ovulate = 24 + rand(0,20)
-		cycle = 2
-		ferteggage = 0
-	end
-end
-
-
-!!{Fertilization.}
-
-if $ARGS[0] = 'cyc2':
-	can_sz = arrsize('$cumarrnam')
-	if Ovulate > 0 and can_sz > 0 and UnfertEgg > 0:
-		KILLVAR 'cumtime'
-		KILLVAR 'cumfthname'
-		KILLVAR '$wombpotfath'
-		$cumfthname[0] = 'unknown'
-		cumtime[0] = 0
-		can_idx = 0
-		cum_total = 0
-!!{Compute array of unique fathers known to PC and another two arrays of unique total fathers and their individual sperm totals from all entries in cumarrcpt for that father. Also tally all cum present.}
-		:FatherCumAnalyze
-			!! If the current DNA is new (no occurence in the womb array), it is added to the end of $wombDNA array, and added the amount of cum to the end of cumamount array. 
-			!! If exists, just increase the amount of cum in the womb.
-			
-			!! $wombDNA: sperm in womb potent enough to cause pregnancy
-			!! wombAmount: how potent is the sperm of a guy
-			!! $wombName: the name of the NPC
-			y = arrsize('$wombDNA')
-			if arrpos('$wombDNA',$npc_dna[$cumarrnam[can_idx]]) = -1:
-				!! New guy, create place for him at the end of the array, storing his DNA, sperm amount and name
-				$wombDNA[y] = $npc_dna[$cumarrnam[can_idx]]
-				wombAmount[y] = cumarrcpt[can_idx]
-				$wombName[y] = $cumarrnam[can_idx]
-				
-			else
-				!! This DNA is in the womb, but does it belong to the same guy?
-				x = 0
-				z = 0
-				:LocalizeLoop
-					if $wombDNA[x] = $npc_dna[$cumarrnam[can_idx]] and $wombName[x] = $cumarrnam[can_idx]: wombAmount[x] += cumarrcpt[can_idx] & z = 1
-				if z = 0 and x < (y - 1):x += 1 & jump 'LocalizeLoop'
-				killvar 'x'
-				if z = 0:
-					!! Since the DNA and the stored name does not match at the same time, it means this is a twin situation where the twin is not in array, so put him in
-					$wombDNA[y] = $npc_dna[$cumarrnam[can_idx]]
-					$wombName[y] = $cumarrnam[can_idx]
-					wombAmount[y] = cumarrcpt[can_idx]
-				end
-				killvar 'z'
-			end
-			killvar 'y'
-			
-			if cumarrkno[can_idx] = 1 and arrpos('$wombpotfath', $cumarrnam[can_idx]) < 0:$wombpotfath[arrsize('$wombpotfath')] = $cumarrnam[can_idx]
-			
-			!! If the guy is a known/possible element (PC know about the sex, it was actual sex, condom/pill was not used or condom was broken, etc.), he can be considered as father.
-			if instr('14570',str(cumarrcon[can_idx])) > 0 and cumarrdel[can_idx] = 0 and cumarrkno[can_idx] >= 0:
-				!! If guy is recorded already, increase his cumtime, else record him for the first time.
-				if arrpos('$cumfthname', $cumarrnam[can_idx]) = -1:
-					$cumfthname[arrsize('$cumfthname')] = $cumarrnam[can_idx]
-					cumtime[arrsize('$cumfthname')] = 1
-				else
-					cumtime[arrpos('$cumfthname', $cumarrnam[can_idx])] += 1
-				end
-			end
-			
-			cum_total += cumarrcpt[can_idx]
-			
-		if can_idx < can_sz:can_idx += 1 & jump 'FatherCumAnalyze'
-
-		!! setting the default believed father if there is no difficult choice or there is no choice
-		if arrsize('$cumfthname') = 2 and cumtime[0] = 0:
-			$wombpotfath[0] = $cumfthname[1]
-		elseif arrsize('$cumfthname') = 1:
-			$wombpotfath[0] = $cumfthname[0]
-		end
-
-!!{Create lotto of potential fathers based on each potential fathers sperm as a percentage of the total. The higher percentage of sperm from a given father, the more lotto entries he will have.}
-		KILLVAR '$cumfathlotto'
-		cfw_idx = 0
-		cfw_sz = arrsize('wombAmount')
-		:FathLottoLoop
-		if cfw_idx < cfw_sz:
-			cfl_ct = (wombAmount[cfw_idx] * 100) / cum_total
-			if cfl_ct < 1: cfl_ct = 1
-			cfl_idx = arrsize('$cumfathlotto')
-			:FathLottoAdd
-			if cfl_ct > 0:
-				$cumfathlotto[cfl_idx] = $wombName[cfw_idx]
-				$cumfatherDNA[cfl_idx] = $wombDNA[cfw_idx]
-				cfl_idx += 1
-				cfl_ct -= 1
-				jump 'FathLottoAdd'
-			end
-			cfw_idx += 1
-			jump 'FathLottoLoop'
-		end
-		killvar '$wombDNA'
-		killvar '$wombName'
-		killvar 'wombAmount'
-		cfl_sz = arrsize('$cumfathlotto')
-
-		egg_idx = 0
-		egg_sz = UnfertEgg
-		if cheat_NoPregnancy = 1:egg_idx = egg_sz
-		:FertLoop
-		if egg_idx < egg_sz:
-!!{fert_thresh is the chance this specific egg is fertilized. Its modified by being on the pill, being sterilized, the brood curse, and so on. If it computes to less than the cum total calculated above, the egg is fertilized by a father randomly drawn from the lotto array.}
-			fert_thresh = rand(1,250000)
-			if pillcon < 0: pillcon = 0
-			!!fert_thresh += pillcon
-			if steriletu = 1: fert_thresh += fert_thresh*30
-			if fert_thresh > 0 and broodcurse > 0: fert_thresh = fert_thresh / 2
-			if fert_thresh <= cum_total:
-				lotto_idx = rand(0, cfl_sz-1)
-				UnfertEgg -= 1
-				FertEgg += 1
-				nextbaby = arrsize('$ChildFath')
-				polkid[nextbaby] = rand(0, 1)
-				$kidname[nextbaby] = 'unborn'
-				kidage[nextbaby] = 0
-				daykid[nextbaby] = 0
-				monthkid[nextbaby] = 0
-				yearkid[nextbaby] = 0
-				Babyptype[nextbaby] = 0
-				$kid_dna[nextbaby] = func('DNA', 'generate', $pcs_dna, $npc_dna[$cumfathlotto[lotto_idx]])
-				$ChildFath[nextbaby] = $cumfathlotto[lotto_idx]
-				$ChildFathDNA[nextbaby] = $cumfatherDNA[lotto_idx]
-				if arrsize('$wombpotfath') = 1:
-					$ChildThFath[nextbaby] = $wombpotfath[0]
-				else
-					$ChildThFath[nextbaby] = 'unknown'
-				end
-				hairkid[nextbaby] = rand(0, 3)
-				eyeskid[nextbaby] = rand(0, 3)
-				ChildConType[nextbaby] = cumarrcon[nextbaby]
-				if fertegg > 1:
-					$childtype[nextbaby] = 'paternal twin'
-					$childtype[nextbaby-1] = 'paternal twin'
-				else
-					$childtype[nextbaby] = ''
-				end
-			end
-			egg_idx += 1
-			jump 'FertLoop'
-		end
-		killvar 'temp'
-		tempovbonus = 0
-	end
-
-!!{Ovulation to Luteal. It checks to see if you are on the ovulation cycle. If you are, it checks you for your pillcon. If it is high enough, no egg is released. Under high concentrations of pill chemical, ovulation ticks away quicker. Otherwise, it checks to see if your ovulation hormone is high enough, and if it is it gives you an egg and drops a good chunk down on your ovulation hormone. if its still high, it drops another egg. Then it checks your ovulation hours. If its down to 0, it starts the Luteal phase. Otherwise, it adds an hour to the egg age and reduces the ovulation window by an hour.}
-	if pillcon > 26000 and rand(0,400) ! 0: EggRH = 0
-	:OviLoop
-	If EggRH > ((UnfertEgg + FertEgg) * 150):
-		UnfertEgg += 1
-		EggRH -= (200 * UnfertEgg)
-		jump 'OviLoop'
-	end
-	If ovulate <= 0:
-		cycle = 3
-		UnfertEgg = 0
-	end
-	if fertegg = 1 and ferteggage < 330:
-		if rand(0,(2000 - age*20)) = 0:
-			fertegg += 1
-			nextbaby = arrsize('$ChildFath')
-			polkid[nextbaby] = polkid[nextbaby-1]
-			$kidname[nextbaby] = 'unborn'
-			kidage[nextbaby] = 0
-			daykid[nextbaby] = 0
-			monthkid[nextbaby] = 0
-			yearkid[nextbaby] = 0
-			Babyptype[nextbaby] = Babyptype[nextbaby-1]
-			$ChildFath[nextbaby] = $ChildFath[nextbaby-1]
-			$ChildFathDNA[nextbaby] = $ChildFathDNA[nextbaby-1]
-			$kid_dna[nextbaby] = $kid_dna[nextbaby-1]
-			hairkid[nextbaby] = hairkid[nextbaby-1]
-			eyeskid[nextbaby] = eyeskid[nextbaby-1]
-			cumarrcon[nextbaby] = cumarrcon[nextbaby-1]
-			$childtype[nextbaby] = 'identical twin'
-			$childtype[nextbaby-1] = 'identical twin'
-		end
-	end
-	ferteggage += 1
-	Ovulate -= 1
-	LutH += 1
-end
-
-
-!{Luteal to Menstration or Pregnancy. First it verifies this is the Luteal phase. Then it adds an hour to the age of the eggs. Then if there is a fertized egg, it rolls a random chance. if the egg age is low, it checks for risk of an entopic pregnancy. This is increased with older age and if you have a tubal ligation sterilization.}
-!{If there is a ectopic pregnancy, it sets the first unborn baby in the array to this. Ectopic pregnancies occur when the fertilized egg implants "too early" after fertlization (and therefore in the fallopian tube). The risk is higher with age, but this is also a common complication with certain forms of birth control, notably tubal ligation. Each egg could be different. It then removes the fertilized egg, adds an embryo, Then it adds some pregnancy hormone if you arent already pregnant, and calls you officially pregnant.}
-!{Otherwise, it adds your womb sterility factor to the imp_rand. Then it checks if your imp_rand crosses a threshold for implantation. Younger women implant easier. It then sets the next baby to the next unimplanted baby in your kid array. It registers the kid as a normal pregnancy, removes a fertilized egg and adds an embryo. Then it adds some pregnancy hormone if you arent already pregnant, and calls you officially pregnant.}
-
-if $ARGS[0] = 'cyc3':
-	if fertegg = 1 and ferteggage < 330:
-		if rand(0,(2000 - age*20)) = 0:
-			fertegg += 1
-			nextbaby = arrsize('$ChildFath')
-			polkid[nextbaby] = polkid[nextbaby-1]
-			$kidname[nextbaby] = 'unborn'
-			kidage[nextbaby] = 0
-			daykid[nextbaby] = 0
-			monthkid[nextbaby] = 0
-			yearkid[nextbaby] = 0
-			Babyptype[nextbaby] = Babyptype[nextbaby-1]
-			$ChildFath[nextbaby] = $ChildFath[nextbaby-1]
-			$ChildFathDNA[nextbaby] = $ChildFathDNA[nextbaby-1]
-			$kid_dna[nextbaby] = $kid_dna[nextbaby-1]
-			hairkid[nextbaby] = hairkid[nextbaby-1]
-			eyeskid[nextbaby] = eyeskid[nextbaby-1]
-			cumarrcon[nextbaby] = cumarrcon[nextbaby-1]
-			$childtype[nextbaby] = 'identical twin'
-			$childtype[nextbaby-1] = 'identical twin'
-		end
-	end
-	ferteggage += 1
-	implant_idx = 0
-	implant_sz = arrsize('Babyptype')
-
-	:implant_loop
-	if implant_idx < implant_sz:
-
-		if Babyptype[implant_idx] = 0:
-			imp_rand = rand(0,120000)
-
-			if ferteggage < 120 and broodcurse <= 0:
-				imp_rand += 170
-				imp_rand -= age * 10
-				if steriletu = 1: imp_rand -= 200
-
-				if imp_rand <= 0:
-					Babyptype[implant_idx] = 2
-					FertEgg -= 1
-					babyembryo += 1
-					PregChem = rand(10,30)
-					if preg = 0: preg = 1
-					implant_day = daystart
-					implant_hour = hour
-
-				end
-
-			else
-				imp_rand += sterilewb
-				imp_rand -= tempwbbonus
-				if broodcurse > 0 and ferteggage >= 120: imp_rand = 0
-
-				if imp_rand <= (1200 - (age * 7)):
-					Babyptype[implant_idx] = 1
-					FertEgg -= 1
-					babyembryo += 1
-					PregChem = rand(10,30)
-					if preg = 0: preg = 1
-					implant_day = daystart
-					implant_hour = hour
-
-				end
-				tempwbbonus = 0
-
-			end
-
-		end
-
-		implant_idx += 1
-		jump 'implant_loop'
-
-	end
-
-!!{Then, it progresses the Luteal phase. It checks to see if you are pregnant. If you are, it ends the cycle and sets preg if your Luteal hormone is at the max as well as cleans out any unimplanted eggs. Otherwise, it just progresses pregnancy chemical and Luteal Hormone. If you arent pregnant, it checks your Luteal hormone. If its at the maximum, it adds 3-5 days of bleeding, clears out your unimplanted eggs, and clears out your Luteal hormone, or ends your cycle if you are past your menopausal age. Otherwise it will just progress the Luteal hormone.}
-	if LutH > LutH_Max:
-		rej_idx = 0
-		rej_sz = arrsize('Babyptype')
-		:lutcycloop
-		if rej_idx < rej_sz:
-			if Babyptype[rej_idx] = 0:
-				KILLVAR 'polkid',tempbabyi
-				KILLVAR '$kidname',tempbabyi
-				KILLVAR 'kidage',tempbabyi
-				KILLVAR 'daykid',tempbabyi
-				KILLVAR 'monthkid',tempbabyi
-				KILLVAR 'yearkid',tempbabyi
-				KILLVAR 'Babyptype',tempbabyi
-				KILLVAR '$ChildFath',tempbabyi
-				KILLVAR '$ChildThFath',tempbabyi
-				KILLVAR 'hairkid',tempbabyi
-				KILLVAR 'eyeskid',tempbabyi
-				KILLVAR 'cumarrcon',tempbabyi
-				FertEgg -= 1
-			end
-			rej_idx += 1
-			jump 'lutcycloop'
-		end
-		LutH = 0
-		if preg = 1:
-			cycle = 5
-		elseif menoage <= age:
-			KILLVAR '$wombpotfath'
-			killvar '$cumfthname'
-			killvar '$cumfthusedname'
-			killvar 'cumtime'
-			cycle = 6
-		else
-			KILLVAR '$wombpotfath'
-			killvar '$cumfthname'
-			killvar '$cumfthusedname'
-			killvar 'cumtime'
-			!! the setting of the max_time can be here although it can be changed in the future
-			FocH_Max = rand(312,360) & !! 13-15 days including menstruation
-			temprand = rand(0,10)
-			if pillcon >= 38000 or rand(1,24) = 1:
-				EggRH = 0
-				cycle = 1
-				mesec = 0
-			else
-				cycle = 0
-				killvar 'abortionbirthdate'
-				if cyccustom = 1: daylastperiod = daystart
-				firstmens = daystart
-				temprand = rand(0,10)
-				if temprand = 0 and pillcon < 10000:
-					mesec = rand(104,136) & !! 120
-				elseif temprand < 9 and pillcon < 15000:
-					mesec = rand(76,104) & !!  96
-				elseif pillcon < 20000:
-					mesec = rand(52,76) & !! 72
-				else
-					mesec = rand(44,52) & !! 48
-				end
-			end
-		end
-	else
-		if preg = 1:PregChem += 1+pregspeedcheat
-		if rand(0,100) < 100: LutH += 1
-	end
-end
-
-!{Recovery to Follicular. It checks to see if you are in the recovery phase after a pregnancy. If you are, it checks to see if you still have recovery hormone. If you dont, it sets you into the follicular phase with a chance of a boosted Egg releasing hormone. Otherwise it decreases your recovery hormone with a chance to decrease it twice.}
-
-if $ARGS[0] = 'cyc4':
-	if RecovH <= 0:
-		cycle = 1
-		if cyccustom = 1:
-			knowpregloss = 0
-			knowpregrecover = 0
-		end
-		if rand(0,1000) = 1000:
-			EggRH = rand(20,80)
-		else
-			EggRH = 0
-		end
-		FocH = EggRH
-	else
-		RecovH -= 1
-		if rand(0,10) = 0: RecovH -= 1
-	end
-end
-
-
-!{Pregnancy Progression. It checks to see if you are in the pregnancy phase of a cycle. If you are, it progresses your pregnancy chemical. Then it gives a fluxuation of possible due dates. If you cross the due date threshold, you enter labor, marked by preg = 2. Other milestones will also be placed in here, including body deformations. Right now this is mostly an empty placeholder.}
-
-if $ARGS[0] = 'preg':
-	if fertegg = 1 and ferteggage < 330:
-		if rand(0,(2000 - age*20)) = 0:
-			babyembryo += 1
-			PregChem += rand(10,30)
-			nextbaby = arrsize('$ChildFath')
-			polkid[nextbaby] = polkid[nextbaby-1]
-			$kidname[nextbaby] = 'unborn'
-			kidage[nextbaby] = 0
-			daykid[nextbaby] = 0
-			monthkid[nextbaby] = 0
-			yearkid[nextbaby] = 0
-			Babyptype[nextbaby] = Babyptype[nextbaby-1]
-			$ChildFath[nextbaby] = $ChildFath[nextbaby-1]
-			hairkid[nextbaby] = hairkid[nextbaby-1]
-			eyeskid[nextbaby] = eyeskid[nextbaby-1]
-			cumarrcon[nextbaby] = cumarrcon[nextbaby-1]
-			$childtype[nextbaby] = 'identical twin'
-			$childtype[nextbaby-1] = 'identical twin'
-		end
-	end
-	PregChem += (1+pregspeedcheat)
-	temprand = rand(-400,800)
-	temprand -= (babyembryo-1)*588
-	if PregChem > 6573 + temprand and preg ! 2:
-		'A sharp pain pierces your abdomen, and you feel something flow down your legs. Your water has broken!'
-		$cycreport_txt = 'In labour'
-		arrmodtmp =arrsize('$ChildFath')
-		arrmodtmp -= (babyembryo+1)
-		:babyfinalpreploop
-		if arrmodtmp < arrsize('$ChildFath') and daykid[arrmodtmp] = 0:
-			daykid[arrmodtmp] = 42
-			$ChildThFath[arrmodtmp] = $wombthfath
-			arrmodtmp += 1
-			jump 'babyfinalpreploop'
-		end
-		KILLVAR '$wombpotfath'
-		KILLVAR '$wombthfath'
-		preg = 2
-		pregminut = totminut + 1440
-		if babyembryo > 1:
-			'Your babies are coming...'
-		else
-			'Your baby is coming...'
-		end
-		if PregChem < 3885:
-			'Way too early!'
-		elseif PregChem < 5229:
-			'Very early!'
-		elseif PregChem < 6069:
-			'Early.'
-		elseif PregChem > 6959:
-			'Late.'
-		elseif PregChem > 7245:
-			'Very Late!'
-		end
-		'You need to get to a clinic.'
-	end
-	if PregChem > 3887:
-		if lactate <= 0:
-			'You begin lactating'
-			lactate = 1
-			lactatemv = 0
-			lactatemm = func('$calc_lactatemm')
-			lacaterate = 10
-			prolactinlvl = 150
-		else
-			if lactate < 1: lactate = 1
-		end
-	end
-	if PregChem > 1000:
-		if prolactinlvl < 100 and lactate <= 0:
-			if rand(0,100) > 50:
-				prolactinlvl +=1
-			end
-		end
-	end
-	if PregChem > 2203:
-		if pregchem > 2853 or kid > 0:
-			if rand(0,7) = 0: dynamic $d_pregmovement
-		else
-			if rand(0,500) = 0: dynamic $d_pregmovement
-		end
-	end
-end
-
---- femcyc ---------------------------------
-
+# femcyc
+
+!! I have to initialize the variables somewhere, maybe in preCUST?
+if Luth_Max = 0: LutH_Max = rand(312,360) & !! 13-15 days including ovulation
+if Foch_Max = 0: FocH_Max = rand(312,360) & !! 13-15 days including menstruation
+		
+if $ARGS[0] = '':
+	!{Hourly reduction in semen potency}
+	!{First it sets the array index to the first index, then it checks to be sure the array tracking the age is less than 144 hours. If it is 144 hours old, it kills that index, which should shift the index up. If it is less than 144 hours old, it sets a current potency drop. The drop is 2x or 3x regularly, but during ovulation it is only 1x, to represent the better environment from fertile cervical mucus.}
+	!{144 hours was selected due to that being approximately the maximum amount of time sperm is viable in the womb (120 would be more accurate, but there is leeway). PLEASE DO NOT CHANGE IT.}
+	!{The potency drop may seem small in game-time, but is meant to be a reasonable approximation to real life. Avoid unprotected sex within 5 days of ovulation if you want to mitigate your risk.}
+	!{the 'rcntorgzm' variable is set to determine whether Sveta has orgasmed within the last hour. If she has, a small potency boost for the guys she has slept with in that hour.}
+
+	if rcntorgzm = 1:
+		if rcntorgzmtmp = 1: rcntorgzm = 0 & rcntorgzmtmp = 0
+		if rcntorgzmtmp = 0: rcntorgzmtmp = 1
+
+	end
+
+	cumarr_idx = 0
+
+	:cumarrloop
+	if cumarr_idx < arrsize('$cumarrnam'):
+		if cumarrcpt[cumarr_idx] > 0 and cumarrage[cumarr_idx] < 144:
+			if rcntorgzm = 1 and cumarrcpt[cumarr_idx] < cumarrppt[cumarr_idx] and cumarrage[cumarr_idx] < 1: cumarrcpt[cumarr_idx] += cumarrppt[cumarr_idx] / 12
+			cumpdrop = cumarrcpt[cumarr_idx] / (144 - cumarrage[cumarr_idx])
+			if cycle ! 2: cumpdrop += cumpdrop * rand(0, 2)
+			cumarrcpt[cumarr_idx] -= cumpdrop
+			if cumarrcpt[cumarr_idx] <= 0:
+				gs 'cum_cleanup', 'cleanwomb', cumarr_idx
+			else
+				cumarrage[cumarr_idx] += 1
+				cumarr_idx += 1
+			end
+		else
+			gs 'cum_cleanup', 'cleanwomb', cumarr_idx
+		end
+
+		jump 'cumarrloop'
+
+	end
+
+	!!Succubus absorption of sperm in womb
+	if succubusflag = 1:
+		if arrsize('cumarrppt') > 0:
+			succycletmp = 0
+			:sucvagabs
+			if cumarrdel[succycletmp] = 0:
+				if cumarrcpt[succycletmp] > 10000:
+					sexnutrition += 30 * succublvl
+					succubxp += 3
+				elseif cumarrcpt[succycletmp] < 3000 and cumarrcpt[succycletmp] > 1000:
+					sexnutrition += 5 * succublvl
+					succubxp += 2
+				elseif cumarrcpt[succycletmp] =< 1000:
+					 sexnutrition += succublvl
+				else
+					sexnutrition += 25 * succublvl
+					succubxp += 3
+				end
+				gs 'cum_cleanup', 'cleanwomb', succycletmp
+				sucabscum = 1
+			else
+				succycletmp += 1
+			end
+			if succycletmp < arrsize('cumarrppt'): jump 'sucvagabs'
+		end
+		killvar 'succycletmp'
+	end
+
+	cumarrtemp = 0
+	cumcondslip = 0
+	cumcondslip_aware = 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
+			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
+					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
+					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
+				end
+				if sparrage[cumarrtemp] > 48:
+					cumcondslip_aware = 1
+					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 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'
+		cumsumbod = ctemp[0]
+		cumsumvag = ctemp[1]
+		cumsumass = ctemp[2]
+		KILLVAR 'ctemp'
+	end
+	
+	
+	!! new milkgrowday function.
+	!! Not lactating yet, but there was milkdemand, meaning someone worked your nipples and breasts.
+	if lactate = 0 and milkoverdemand >= 0 and prolactinlvl >= 0:
+		if milkgrowday < daystart:
+			prolactinlvl += milkoverdemand/200
+			!! as long as your tits are not over 11 growth will happen to them. If you do not pump or no pregnancy happens, no growth will happen.
+			if milkoverdemand = 0 and pregchem = 0 and tits < 11:
+				temp_var = prolactinlvl - 10
+				if temp_var < 0:
+					prolactinlvl = 0
+				end
+				!! if prolactinlvl is sinking too much, the aveoli will deflate and thus the breasts growth is reverted. This only counts for induced lactation. If natural lactation occurs breasts will shrink a bit too, but stay bigger in total.
+				if prolactinlvl < 75 and total_milkinduce_growth > 0:
+					nbsize -= total_milkinduce_growth
+					prolactinlvl -= 10
+					total_milkinduce_growth = 0				
+				else
+					prolactinlvl -= 10
+				end
+				milkoverdemand = 0
+				milkgrowday = daystart				
+			elseif milkoverdemand > 0 and pregchem = 0 and tits < 11:
+				!! inducing without ever being pregnant
+				if prolactinlvl > 75 and kid <= 0:
+					if total_milkinduce_growth < 8:
+						total_milkinduce_growth += 1 + pumpinggrowth
+						nbsize += 1 + pumpinggrowth
+						pumpinggrowth = 0
+					else
+						pumpinggrowth = 0
+					end
+				!! inducing after being pregnant
+				elseif prolactinlvl > 75 and kid > 0:
+					if total_milkinduce_growth < (total_preg_growth/2):
+						total_milkinduce_growth += 1 + pumpinggrowth
+						nbsize += 1 + pumpinggrowth
+						pumpinggrowth = 0
+					end	
+				end
+				milkoverdemand = 0
+			elseif milkoverdemand >= 0 and pregchem > 0 and tits < 11:
+				if prolactinlvl > 75 and pregchem < 3000 and kid <= 0:
+					if total_milkinduce_growth < 8:
+						total_milkinduce_growth += 1 + pumpinggrowth
+						nbsize += 1 + pumpinggrowth
+						pumpinggrowth = 0
+					else
+						pumpinggrowth = 0
+					end
+				!! first breast growth with first pregnancy
+				elseif prolactinlvl >= 75 and pregchem >= 2000 and pregchem < 3000 and kid <= 0:
+					if rand(0,100) > 55:
+						first_preg_growth += 1
+						total_preg_growth += 1
+						if total_preg_growth > total_milkinduce_growth: nbsize += 1
+					end
+				!! there is little chance your breast grow additional sizes if you have more kids.
+				elseif prolactinlvl >= 75 and pregchem >= 2000 and pregchem < 3000 and kid > 0:
+					if first_preg_growth > total_preg_growth:
+						total_preg_growth += 1
+						if total_preg_growth > total_milkinduce_growth: nbsize += 1
+					else
+						if rand(0,100) > 95:
+							total_preg_growth += 1
+							if total_preg_growth > total_milkinduce_growth: nbsize += 1
+						end
+					end
+				!! inducing after being pregnant
+				elseif prolactinlvl > 75 and pregchem =< 3000 and kid > 0:
+					if total_milkinduce_growth < (total_preg_growth/2):
+						total_milkinduce_growth += 1 + pumpinggrowth
+						nbsize += 1 + pumpinggrowth
+						pumpinggrowth = 0
+					end	
+				end
+				milkoverdemand = 0
+				milkgrowday = daystart
+			end
+			milkgrowday = daystart
+		else
+			milkgrowday = daystart
+		end
+	elseif lactate > 0 and milkoverdemand => 0 and prolactinlvl >= 0:
+		lactatemm = func('$calc_lactatemm')
+		!! checking if induced or not and if girl went through pregnancy already.
+		if lactateinduced > 0 and kid <= 0:
+			if milkgrowday < daystart:
+				!! first breast growth with first pregnancy
+				if prolactinlvl >= 75 and pregchem >= 2000 and pregchem < 3000 and kid <= 0:
+					if rand(0,100) > 55:
+						first_preg_growth += 1
+						total_preg_growth += 1
+						if total_preg_growth > total_milkinduce_growth: nbsize += 1
+					end
+				end
+				if lactatemm > lactatemv:
+					lactatemv += lactaterate
+					temp_var = lactaterate/100
+					if temp_var <= 0: temp_var = 1
+					pcs_energy -= temp_var
+					if lactatemv > lactatemm: lactatemv = lactatemm
+				end
+				if milkoverdemand > 0 and breastpumped > 0:
+					!! lactationrate growing, so you make more milk the more demand there was in the day before.
+					temp_var = prolactinlvl + milkoverdemand/20
+					if  temp_var > 120:
+						prolactinlvl += milkoverdemand/20
+						!! uppon reaching a specific limit, the lactationrate will grow slower. Human body limits etc... you know
+						if lactaterate > 3500:
+							lactaterate += 5*(prolactinlvl/200)
+						elseif lactaterate > 6000:							
+							lactaterate += prolactinlvl/200
+						else
+							lactaterate += 10*(prolactinlvl/200)
+						end
+						prolactinlvl = 100
+					else
+						prolactinlvl = 100
+					end
+					'Your breasts tingle a bit more from milkproduction.'
+				elseif milkoverdemand = 0 and breastpumped > 0:
+					prolactinlvl = 100
+				elseif milkoverdemand = 0 and breastpumped = 0:
+					if lactaterate > 0 and pregchem >=0:
+						temp_var = lactaterate/4
+						if temp_var < 1:temp_var = 0
+						lactaterate = temp_var
+						'Your breasts tingle a little less from milkproduction.'
+					elseif lactaterate = 0 and pregchem < 1000:
+						lactate = 0
+						lactateinduced = 0
+						nbsize -= total_milkinduce_growth
+						'You notice that you stopped lactating.'
+					elseif lactaterate = 0 and pregchem >= 1000:
+						lactaterate = 1
+					else
+						lactaterate = 0
+					end
+				end			
+				milkgrowday = daystart
+				milkoverdemand = 0
+				breastpumped = 0
+			else
+				milkgrowday = daystart
+				if lactatemm >= lactatemv:
+					lactatemv += lactaterate
+					if lactatemv > lactatemm:
+						lactatemv = lactatemm
+						lact_engorgement += 1
+						if lact_engorgement > 2: lactatemess += 1
+					end
+				end
+			end
+			milkgrowday = daystart
+		else
+			if milkgrowday < daystart:
+				if lactatemm > lactatemv:
+					lactatemv += lactaterate
+					temp_var = lactaterate/100
+					if temp_var <= 0: temp_var = 1
+					pcs_energy -= temp_var
+					if lactatemv > lactatemm: lactatemv = lactatemm
+				end
+				if milkoverdemand > 0 and breastpumped > 0:
+					!! lactationrate growing, so you make more milk the more demand there was in the day before.
+					temp_var = prolactinlvl + milkoverdemand/10
+					if  temp_var > rand(150,200):
+						prolactinlvl += milkoverdemand/20
+						!! uppon reaching a specific limit, the lactationrate will grow slower. Human body limits etc... you know :D
+						if lactaterate > 3500:
+							lactaterate += 5*(prolactinlvl/200)
+						elseif lactaterate > 6000:							
+							lactaterate += prolactinlvl/200
+						else
+							lactaterate += 10*(prolactinlvl/200)
+						end
+						prolactinlvl = 100
+					else
+						prolactinlvl = 100
+					end
+					'Your breasts tingle a bit more from milkproduction.'
+				elseif milkoverdemand = 0 and breastpumped > 0:
+					prolactinlvl = 100
+				else
+					if lactaterate > 0 and pregchem >= 0:
+						temp_var = lactaterate/8
+						if temp_var < 1:temp_var = 0
+						lactaterate = temp_var
+						milkoverdemand = 0
+						'Your breasts tingle a little less from milkproduction.'
+					elseif lactaterate = 0 and pregchem < 1000:
+						lactate = 0
+						lactateinduced = 0
+						if total_milkinduce_growth > 0: nbsize -= total_milkinduce_growth
+						if total_preg_growth > 0:
+							nbsize -= total_preg_growth
+							nbsize += first_preg_growth/2
+						end
+						total_milkinduce_growth = 0
+						milkoverdemand = 0
+						'You stopped lactating.'
+					elseif lactaterate = 0 and pregchem >= 1000:
+						lactaterate = 1
+					else
+						lactaterate = 0
+					end
+				end				
+				milkgrowday = daystart
+				milkoverdemand = 0
+				breastpumped = 0
+			else
+				milkgrowday = daystart
+				if lactatemm >= lactatemv:
+					lactatemv += lactaterate
+					if lactatemv > lactatemm:
+						lactatemv = lactatemm
+						lact_engorgement += 1
+						if lact_engorgement > 2: lactatemess += 1
+					end
+				end
+			end
+			milkgrowday = daystart
+		end
+		milkgrowday = daystart
+	end
+
+	if cycle <= 0:
+		gs 'femcyc', 'cyc0'
+	elseif cycle = 1:
+		gs 'femcyc', 'cyc1'
+	elseif cycle = 2:
+		gs 'femcyc', 'cyc2'
+	elseif cycle = 3:
+		gs 'femcyc', 'cyc3'
+	elseif cycle = 4:
+		gs 'femcyc', 'cyc4'
+	elseif cycle = 5:
+		gs 'femcyc', 'preg'
+	end
+
+	dynamic $d_cycreport_update
+end
+
+
+!{Menstruation to Follicular. Verifies that the cycle is in the bloody phase. It then checks to see if you are done bleeding. If you are, it starts the Follicular phase. There is a small chance your follcular phase will be anywhere from a day to 3 days short, done by the random release of a boosted EggRH. Otherwise, it just starts it clean.}
+
+if $ARGS[0] = 'cyc0':
+	if mesec <= 0:
+		lastmens = daystart
+		cycle = 1
+		mesec = 0
+		if rand(0,1000) = 1000:
+			EggRH = rand(20,80)
+		else
+			EggRH = 0
+		end
+		FocH += EggRH
+	else
+		mesec -= 1
+		FocH += 1
+	end
+end
+
+
+!{Follicular to Ovulation. It checks to see if you are on the Follicular phase. If you are, it checks to see if you are ready to ovulate. If you arent, it increases your ovulation ticker by 1, then gives a random chance to increase it again. Then it checks to see if you have ovarian problems, and if you do, decreases your ovulation ticker. When all that is done, it checks to see if you have any birth control chemical, and if its above a certain amount, it reduces your ovulation ticker.}
+
+if $ARGS[0] = 'cyc1':
+	FertEgg = 0
+	if FocH <= FocH_Max:
+		if pillcon <= 7000: EggRH += 1
+		if rand(0,9) = 0: EggRH += 1
+		FocH += 1
+		temprand = rand(0,9) - sterileov + tempovbonus
+		if temprand < 0: 
+			EggRH -= 1
+		elseif temprand > 9: 
+			EggRH += 1
+		end
+	else
+		!! the setting of the max_time can be here although it can be changed in the future
+		LutH_Max = rand(312,360) & !! 13-15 days including ovulation
+		!{If you are ready to ovulate, it creates a chance to double ovulate. That chance is increased by your age. Then it does the same for a triple ovulation. Then it sets the ovulation tag, ovulation hour count, and begins a ticker for the life of the eggs.}
+		Temprand = rand(0,20)
+		Temprand += age/15
+		Temprand -= pillcon/1000
+		if temprand > 20:
+			EggRH += 205
+			Temprand = rand(0,20)
+			Temprand += age/15
+			if temprand > 20: EggRH += 410
+		end
+		FocH = 0
+		Ovulate = 24 + rand(0,20)
+		cycle = 2
+		ferteggage = 0
+	end
+end
+
+
+!!{Fertilization.}
+
+if $ARGS[0] = 'cyc2':
+	can_sz = arrsize('$cumarrnam')
+	if Ovulate > 0 and can_sz > 0 and UnfertEgg > 0:
+		KILLVAR 'cumtime'
+		KILLVAR 'cumfthname'
+		KILLVAR '$wombpotfath'
+		$cumfthname[0] = 'unknown'
+		cumtime[0] = 0
+		can_idx = 0
+		cum_total = 0
+!!{Compute array of unique fathers known to PC and another two arrays of unique total fathers and their individual sperm totals from all entries in cumarrcpt for that father. Also tally all cum present.}
+		:FatherCumAnalyze
+			!! If the current DNA is new (no occurence in the womb array), it is added to the end of $wombDNA array, and added the amount of cum to the end of cumamount array. 
+			!! If exists, just increase the amount of cum in the womb.
+			
+			!! $wombDNA: sperm in womb potent enough to cause pregnancy
+			!! wombAmount: how potent is the sperm of a guy
+			!! $wombName: the name of the NPC
+			y = arrsize('$wombDNA')
+			if arrpos('$wombDNA',$npc_dna[$cumarrnam[can_idx]]) = -1:
+				!! New guy, create place for him at the end of the array, storing his DNA, sperm amount and name
+				$wombDNA[y] = $npc_dna[$cumarrnam[can_idx]]
+				wombAmount[y] = cumarrcpt[can_idx]
+				$wombName[y] = $cumarrnam[can_idx]
+				
+			else
+				!! This DNA is in the womb, but does it belong to the same guy?
+				x = 0
+				z = 0
+				:LocalizeLoop
+					if $wombDNA[x] = $npc_dna[$cumarrnam[can_idx]] and $wombName[x] = $cumarrnam[can_idx]: wombAmount[x] += cumarrcpt[can_idx] & z = 1
+				if z = 0 and x < (y - 1):x += 1 & jump 'LocalizeLoop'
+				killvar 'x'
+				if z = 0:
+					!! Since the DNA and the stored name does not match at the same time, it means this is a twin situation where the twin is not in array, so put him in
+					$wombDNA[y] = $npc_dna[$cumarrnam[can_idx]]
+					$wombName[y] = $cumarrnam[can_idx]
+					wombAmount[y] = cumarrcpt[can_idx]
+				end
+				killvar 'z'
+			end
+			killvar 'y'
+			
+			if cumarrkno[can_idx] = 1 and arrpos('$wombpotfath', $cumarrnam[can_idx]) < 0:$wombpotfath[arrsize('$wombpotfath')] = $cumarrnam[can_idx]
+			
+			!! If the guy is a known/possible element (PC know about the sex, it was actual sex, condom/pill was not used or condom was broken, etc.), he can be considered as father.
+			if instr('14570',str(cumarrcon[can_idx])) > 0 and cumarrdel[can_idx] = 0 and cumarrkno[can_idx] >= 0:
+				!! If guy is recorded already, increase his cumtime, else record him for the first time.
+				if arrpos('$cumfthname', $cumarrnam[can_idx]) = -1:
+					$cumfthname[arrsize('$cumfthname')] = $cumarrnam[can_idx]
+					cumtime[arrsize('$cumfthname')] = 1
+				else
+					cumtime[arrpos('$cumfthname', $cumarrnam[can_idx])] += 1
+				end
+			end
+			
+			cum_total += cumarrcpt[can_idx]
+			
+		if can_idx < can_sz:can_idx += 1 & jump 'FatherCumAnalyze'
+
+		!! setting the default believed father if there is no difficult choice or there is no choice
+		if arrsize('$cumfthname') = 2 and cumtime[0] = 0:
+			$wombpotfath[0] = $cumfthname[1]
+		elseif arrsize('$cumfthname') = 1:
+			$wombpotfath[0] = $cumfthname[0]
+		end
+
+!!{Create lotto of potential fathers based on each potential fathers sperm as a percentage of the total. The higher percentage of sperm from a given father, the more lotto entries he will have.}
+		KILLVAR '$cumfathlotto'
+		cfw_idx = 0
+		cfw_sz = arrsize('wombAmount')
+		:FathLottoLoop
+		if cfw_idx < cfw_sz:
+			cfl_ct = (wombAmount[cfw_idx] * 100) / cum_total
+			if cfl_ct < 1: cfl_ct = 1
+			cfl_idx = arrsize('$cumfathlotto')
+			:FathLottoAdd
+			if cfl_ct > 0:
+				$cumfathlotto[cfl_idx] = $wombName[cfw_idx]
+				$cumfatherDNA[cfl_idx] = $wombDNA[cfw_idx]
+				cfl_idx += 1
+				cfl_ct -= 1
+				jump 'FathLottoAdd'
+			end
+			cfw_idx += 1
+			jump 'FathLottoLoop'
+		end
+		killvar '$wombDNA'
+		killvar '$wombName'
+		killvar 'wombAmount'
+		cfl_sz = arrsize('$cumfathlotto')
+
+		egg_idx = 0
+		egg_sz = UnfertEgg
+		if cheat_NoPregnancy = 1:egg_idx = egg_sz
+		:FertLoop
+		if egg_idx < egg_sz:
+!!{fert_thresh is the chance this specific egg is fertilized. Its modified by being on the pill, being sterilized, the brood curse, and so on. If it computes to less than the cum total calculated above, the egg is fertilized by a father randomly drawn from the lotto array.}
+			fert_thresh = rand(1,250000)
+			if pillcon < 0: pillcon = 0
+			!!fert_thresh += pillcon
+			if steriletu = 1: fert_thresh += fert_thresh*30
+			if fert_thresh > 0 and broodcurse > 0: fert_thresh = fert_thresh / 2
+			if fert_thresh <= cum_total:
+				lotto_idx = rand(0, cfl_sz-1)
+				UnfertEgg -= 1
+				FertEgg += 1
+				nextbaby = arrsize('$ChildFath')
+				polkid[nextbaby] = rand(0, 1)
+				$kidname[nextbaby] = 'unborn'
+				kidage[nextbaby] = 0
+				daykid[nextbaby] = 0
+				monthkid[nextbaby] = 0
+				yearkid[nextbaby] = 0
+				Babyptype[nextbaby] = 0
+				$kid_dna[nextbaby] = func('DNA', 'generate', $pcs_dna, $npc_dna[$cumfathlotto[lotto_idx]])
+				$ChildFath[nextbaby] = $cumfathlotto[lotto_idx]
+				$ChildFathDNA[nextbaby] = $cumfatherDNA[lotto_idx]
+				if arrsize('$wombpotfath') = 1:
+					$ChildThFath[nextbaby] = $wombpotfath[0]
+				else
+					$ChildThFath[nextbaby] = 'unknown'
+				end
+				hairkid[nextbaby] = rand(0, 3)
+				eyeskid[nextbaby] = rand(0, 3)
+				ChildConType[nextbaby] = cumarrcon[nextbaby]
+				if fertegg > 1:
+					$childtype[nextbaby] = 'paternal twin'
+					$childtype[nextbaby-1] = 'paternal twin'
+				else
+					$childtype[nextbaby] = ''
+				end
+			end
+			egg_idx += 1
+			jump 'FertLoop'
+		end
+		killvar 'temp'
+		tempovbonus = 0
+	end
+
+!!{Ovulation to Luteal. It checks to see if you are on the ovulation cycle. If you are, it checks you for your pillcon. If it is high enough, no egg is released. Under high concentrations of pill chemical, ovulation ticks away quicker. Otherwise, it checks to see if your ovulation hormone is high enough, and if it is it gives you an egg and drops a good chunk down on your ovulation hormone. if its still high, it drops another egg. Then it checks your ovulation hours. If its down to 0, it starts the Luteal phase. Otherwise, it adds an hour to the egg age and reduces the ovulation window by an hour.}
+	if pillcon > 26000 and rand(0,400) ! 0: EggRH = 0
+	:OviLoop
+	If EggRH > ((UnfertEgg + FertEgg) * 150):
+		UnfertEgg += 1
+		EggRH -= (200 * UnfertEgg)
+		jump 'OviLoop'
+	end
+	If ovulate <= 0:
+		cycle = 3
+		UnfertEgg = 0
+	end
+	if fertegg = 1 and ferteggage < 330:
+		if rand(0,(2000 - age*20)) = 0:
+			fertegg += 1
+			nextbaby = arrsize('$ChildFath')
+			polkid[nextbaby] = polkid[nextbaby-1]
+			$kidname[nextbaby] = 'unborn'
+			kidage[nextbaby] = 0
+			daykid[nextbaby] = 0
+			monthkid[nextbaby] = 0
+			yearkid[nextbaby] = 0
+			Babyptype[nextbaby] = Babyptype[nextbaby-1]
+			$ChildFath[nextbaby] = $ChildFath[nextbaby-1]
+			$ChildFathDNA[nextbaby] = $ChildFathDNA[nextbaby-1]
+			$kid_dna[nextbaby] = $kid_dna[nextbaby-1]
+			hairkid[nextbaby] = hairkid[nextbaby-1]
+			eyeskid[nextbaby] = eyeskid[nextbaby-1]
+			cumarrcon[nextbaby] = cumarrcon[nextbaby-1]
+			$childtype[nextbaby] = 'identical twin'
+			$childtype[nextbaby-1] = 'identical twin'
+		end
+	end
+	ferteggage += 1
+	Ovulate -= 1
+	LutH += 1
+end
+
+
+!{Luteal to Menstration or Pregnancy. First it verifies this is the Luteal phase. Then it adds an hour to the age of the eggs. Then if there is a fertized egg, it rolls a random chance. if the egg age is low, it checks for risk of an entopic pregnancy. This is increased with older age and if you have a tubal ligation sterilization.}
+!{If there is a ectopic pregnancy, it sets the first unborn baby in the array to this. Ectopic pregnancies occur when the fertilized egg implants "too early" after fertlization (and therefore in the fallopian tube). The risk is higher with age, but this is also a common complication with certain forms of birth control, notably tubal ligation. Each egg could be different. It then removes the fertilized egg, adds an embryo, Then it adds some pregnancy hormone if you arent already pregnant, and calls you officially pregnant.}
+!{Otherwise, it adds your womb sterility factor to the imp_rand. Then it checks if your imp_rand crosses a threshold for implantation. Younger women implant easier. It then sets the next baby to the next unimplanted baby in your kid array. It registers the kid as a normal pregnancy, removes a fertilized egg and adds an embryo. Then it adds some pregnancy hormone if you arent already pregnant, and calls you officially pregnant.}
+
+if $ARGS[0] = 'cyc3':
+	if fertegg = 1 and ferteggage < 330:
+		if rand(0,(2000 - age*20)) = 0:
+			fertegg += 1
+			nextbaby = arrsize('$ChildFath')
+			polkid[nextbaby] = polkid[nextbaby-1]
+			$kidname[nextbaby] = 'unborn'
+			kidage[nextbaby] = 0
+			daykid[nextbaby] = 0
+			monthkid[nextbaby] = 0
+			yearkid[nextbaby] = 0
+			Babyptype[nextbaby] = Babyptype[nextbaby-1]
+			$ChildFath[nextbaby] = $ChildFath[nextbaby-1]
+			$ChildFathDNA[nextbaby] = $ChildFathDNA[nextbaby-1]
+			$kid_dna[nextbaby] = $kid_dna[nextbaby-1]
+			hairkid[nextbaby] = hairkid[nextbaby-1]
+			eyeskid[nextbaby] = eyeskid[nextbaby-1]
+			cumarrcon[nextbaby] = cumarrcon[nextbaby-1]
+			$childtype[nextbaby] = 'identical twin'
+			$childtype[nextbaby-1] = 'identical twin'
+		end
+	end
+	ferteggage += 1
+	implant_idx = 0
+	implant_sz = arrsize('Babyptype')
+
+	:implant_loop
+	if implant_idx < implant_sz:
+
+		if Babyptype[implant_idx] = 0:
+			imp_rand = rand(0,120000)
+
+			if ferteggage < 120 and broodcurse <= 0:
+				imp_rand += 170
+				imp_rand -= age * 10
+				if steriletu = 1: imp_rand -= 200
+
+				if imp_rand <= 0:
+					Babyptype[implant_idx] = 2
+					FertEgg -= 1
+					babyembryo += 1
+					PregChem = rand(10,30)
+					if preg = 0: preg = 1
+					implant_day = daystart
+					implant_hour = hour
+
+				end
+
+			else
+				imp_rand += sterilewb
+				imp_rand -= tempwbbonus
+				if broodcurse > 0 and ferteggage >= 120: imp_rand = 0
+
+				if imp_rand <= (1200 - (age * 7)):
+					Babyptype[implant_idx] = 1
+					FertEgg -= 1
+					babyembryo += 1
+					PregChem = rand(10,30)
+					if preg = 0: preg = 1
+					implant_day = daystart
+					implant_hour = hour
+
+				end
+				tempwbbonus = 0
+
+			end
+
+		end
+
+		implant_idx += 1
+		jump 'implant_loop'
+
+	end
+
+!!{Then, it progresses the Luteal phase. It checks to see if you are pregnant. If you are, it ends the cycle and sets preg if your Luteal hormone is at the max as well as cleans out any unimplanted eggs. Otherwise, it just progresses pregnancy chemical and Luteal Hormone. If you arent pregnant, it checks your Luteal hormone. If its at the maximum, it adds 3-5 days of bleeding, clears out your unimplanted eggs, and clears out your Luteal hormone, or ends your cycle if you are past your menopausal age. Otherwise it will just progress the Luteal hormone.}
+	if LutH > LutH_Max:
+		rej_idx = 0
+		rej_sz = arrsize('Babyptype')
+		:lutcycloop
+		if rej_idx < rej_sz:
+			if Babyptype[rej_idx] = 0:
+				KILLVAR 'polkid',tempbabyi
+				KILLVAR '$kidname',tempbabyi
+				KILLVAR 'kidage',tempbabyi
+				KILLVAR 'daykid',tempbabyi
+				KILLVAR 'monthkid',tempbabyi
+				KILLVAR 'yearkid',tempbabyi
+				KILLVAR 'Babyptype',tempbabyi
+				KILLVAR '$ChildFath',tempbabyi
+				KILLVAR '$ChildThFath',tempbabyi
+				KILLVAR 'hairkid',tempbabyi
+				KILLVAR 'eyeskid',tempbabyi
+				KILLVAR 'cumarrcon',tempbabyi
+				FertEgg -= 1
+			end
+			rej_idx += 1
+			jump 'lutcycloop'
+		end
+		LutH = 0
+		if preg = 1:
+			cycle = 5
+		elseif menoage <= age:
+			KILLVAR '$wombpotfath'
+			killvar '$cumfthname'
+			killvar '$cumfthusedname'
+			killvar 'cumtime'
+			cycle = 6
+		else
+			KILLVAR '$wombpotfath'
+			killvar '$cumfthname'
+			killvar '$cumfthusedname'
+			killvar 'cumtime'
+			!! the setting of the max_time can be here although it can be changed in the future
+			FocH_Max = rand(312,360) & !! 13-15 days including menstruation
+			temprand = rand(0,10)
+			if pillcon >= 38000 or rand(1,24) = 1:
+				EggRH = 0
+				cycle = 1
+				mesec = 0
+			else
+				cycle = 0
+				killvar 'abortionbirthdate'
+				if cyccustom = 1: daylastperiod = daystart
+				firstmens = daystart
+				temprand = rand(0,10)
+				if temprand = 0 and pillcon < 10000:
+					mesec = rand(104,136) & !! 120
+				elseif temprand < 9 and pillcon < 15000:
+					mesec = rand(76,104) & !!  96
+				elseif pillcon < 20000:
+					mesec = rand(52,76) & !! 72
+				else
+					mesec = rand(44,52) & !! 48
+				end
+			end
+		end
+	else
+		if preg = 1:PregChem += 1+pregspeedcheat
+		if rand(0,100) < 100: LutH += 1
+	end
+end
+
+!{Recovery to Follicular. It checks to see if you are in the recovery phase after a pregnancy. If you are, it checks to see if you still have recovery hormone. If you dont, it sets you into the follicular phase with a chance of a boosted Egg releasing hormone. Otherwise it decreases your recovery hormone with a chance to decrease it twice.}
+
+if $ARGS[0] = 'cyc4':
+	if RecovH <= 0:
+		cycle = 1
+		if cyccustom = 1:
+			knowpregloss = 0
+			knowpregrecover = 0
+		end
+		if rand(0,1000) = 1000:
+			EggRH = rand(20,80)
+		else
+			EggRH = 0
+		end
+		FocH = EggRH
+	else
+		RecovH -= 1
+		if rand(0,10) = 0: RecovH -= 1
+	end
+end
+
+
+!{Pregnancy Progression. It checks to see if you are in the pregnancy phase of a cycle. If you are, it progresses your pregnancy chemical. Then it gives a fluxuation of possible due dates. If you cross the due date threshold, you enter labor, marked by preg = 2. Other milestones will also be placed in here, including body deformations. Right now this is mostly an empty placeholder.}
+
+if $ARGS[0] = 'preg':
+	if fertegg = 1 and ferteggage < 330:
+		if rand(0,(2000 - age*20)) = 0:
+			babyembryo += 1
+			PregChem += rand(10,30)
+			nextbaby = arrsize('$ChildFath')
+			polkid[nextbaby] = polkid[nextbaby-1]
+			$kidname[nextbaby] = 'unborn'
+			kidage[nextbaby] = 0
+			daykid[nextbaby] = 0
+			monthkid[nextbaby] = 0
+			yearkid[nextbaby] = 0
+			Babyptype[nextbaby] = Babyptype[nextbaby-1]
+			$ChildFath[nextbaby] = $ChildFath[nextbaby-1]
+			hairkid[nextbaby] = hairkid[nextbaby-1]
+			eyeskid[nextbaby] = eyeskid[nextbaby-1]
+			cumarrcon[nextbaby] = cumarrcon[nextbaby-1]
+			$childtype[nextbaby] = 'identical twin'
+			$childtype[nextbaby-1] = 'identical twin'
+		end
+	end
+	PregChem += (1+pregspeedcheat)
+	temprand = rand(-400,800)
+	temprand -= (babyembryo-1)*588
+	if PregChem > 6573 + temprand and preg ! 2:
+		'A sharp pain pierces your abdomen, and you feel something flow down your legs. Your water has broken!'
+		$cycreport_txt = 'In labour'
+		arrmodtmp =arrsize('$ChildFath')
+		arrmodtmp -= (babyembryo+1)
+		:babyfinalpreploop
+		if arrmodtmp < arrsize('$ChildFath') and daykid[arrmodtmp] = 0:
+			daykid[arrmodtmp] = 42
+			$ChildThFath[arrmodtmp] = $wombthfath
+			arrmodtmp += 1
+			jump 'babyfinalpreploop'
+		end
+		KILLVAR '$wombpotfath'
+		KILLVAR '$wombthfath'
+		preg = 2
+		pregminut = totminut + 1440
+		if babyembryo > 1:
+			'Your babies are coming...'
+		else
+			'Your baby is coming...'
+		end
+		if PregChem < 3885:
+			'Way too early!'
+		elseif PregChem < 5229:
+			'Very early!'
+		elseif PregChem < 6069:
+			'Early.'
+		elseif PregChem > 6959:
+			'Late.'
+		elseif PregChem > 7245:
+			'Very Late!'
+		end
+		'You need to get to a clinic.'
+	end
+	if PregChem > 3887:
+		if lactate <= 0:
+			'You begin lactating'
+			lactate = 1
+			lactatemv = 0
+			lactatemm = func('$calc_lactatemm')
+			lacaterate = 10
+			prolactinlvl = 150
+		else
+			if lactate < 1: lactate = 1
+		end
+	end
+	if PregChem > 1000:
+		if prolactinlvl < 100 and lactate <= 0:
+			if rand(0,100) > 50:
+				prolactinlvl +=1
+			end
+		end
+	end
+	if PregChem > 2203:
+		if pregchem > 2853 or kid > 0:
+			if rand(0,7) = 0: dynamic $d_pregmovement
+		else
+			if rand(0,500) = 0: dynamic $d_pregmovement
+		end
+	end
+end
+
+--- femcyc ---------------------------------
+

locations/lact_lib.qsrc

@@ -0,0 +1,435 @@
+!! lact_lib
+
+# $calc_lactatemm
+
+!! FUNC('calc_lactatemm')
+!! No arguments at the moment. Information is taken from the global variables 'nbsize', 'lactate','lactateinduced','kid'.
+!! lactatemm should be calculated every day, so if the breasts size is changed naturally the lactatemm will get higher. No change when silicone tits happen. Only natural breast tissue should make milk.
+!! Usage: lactatemm = func('$calc_lactatemm')
+!! RESULT = lactatemm in ml*10
+
+if lactate = 0:
+	RESULT = 0
+elseif lactate >0:
+	temp_breastsize = 0
+	temp_breastsize += nbsize
+	temp_var = 0
+	if lactateinduced > 0 and kid <= 0:
+		temp_var = ((8*temp_breastsize*temp_breastsize)+(37*temp_breastsize))/4
+		RESULT = temp_var
+	else
+		RESULT = ((8*temp_breastsize*temp_breastsize)+(37*temp_breastsize))
+	end
+else
+	cls & '<b><font color="red">BAD ARGUMENT CHECK IN <i>$calc_lactatemm</i>!</font></b>'
+end
+
+--- $calc_lactatemm ---------------------------------
+
+# $get_breastmilk
+
+!!	FUNC('$get_breastmilk', sucktion_type, sucktion_time)
+!!	ARGS[0] = sucktion_type: the type of sucktion. adult_mouth [0], child_mouth [1], baby_mouth [2], manual_breastpump [3] , electric_breastpump [4], hand_expressing [5], cow milker [6]
+!!	ARGS[1] = sucktion_time: how many minutes the sucking/pumping takes place
+!!	Usage: breastmilkvolume = func('$get_breastmilk', 4, 20)
+!! 	RESULT = Milk in ml*10
+!! what type of sucktion is happening? different sucktion can cause a different demand of breastmilk. Base rate of sucktion is 10ml/minute.
+soreness_mod = 10
+breastpumped = 1
+!! 'suck_flow_rate initialized'
+if ARGS[0] = 0:
+	!! 'adult sucking'
+	suck_flow_rate = 12 + rand(0,4)
+	temp_var = pcs_mood +(ARGS[1]/8)
+	if temp_var > 100:
+		pcs_mood = 100
+	else
+		pcs_mood += ARGS[1]/8
+	end
+elseif ARGS[0] = 1:
+	!! 'child sucking'
+	suck_flow_rate = 8 + rand(0,2)
+	temp_var = pcs_mood + (ARGS[1]/2)
+	if temp_var > 100:
+		pcs_mood = 100
+	else
+		pcs_mood += ARGS[1]/2
+	end
+elseif ARGS[0] = 2:
+	!!	'baby sucking'
+	suck_flow_rate = 6 + (rand(0,2))
+	temp_var = pcs_mood + ARGS[1]
+	if temp_var > 100:
+		pcs_mood = 100
+	else
+		pcs_mood += ARGS[1]
+	end
+elseif ARGS[0] = 3:
+	!!	'manual_breastpump sucking'
+	suck_flow_rate = 9
+elseif ARGS[0] = 4:
+	!!	'electric_breastpump sucking'
+	suck_flow_rate = 10
+elseif ARGS[0] = 5:
+	!! 'hand expression'
+	suck_flow_rate = 3 + rand(1,2)
+elseif ARGS[0] = 6:
+	!! 'cow milker sucking'
+	suck_flow_rate = 100
+else
+	!! 'suck flow else branch'
+	suck_flow_rate = 10
+end
+!!	If you pump and work your breast more, soreness will decrease after pumping. This can also decline if your breasts arent worked for a longer time.
+if breastcounter > 0:
+	temp_var = breastcounter/10
+	soreness_mod += temp_var
+	if soreness_mod > 20: soreness_mod = 20
+	if nipple_cream = 1:
+		soreness_mod += 10
+		nipple_cream = 0
+	end
+end
+!! No lactation, no milk, but stimulus is applied, so some things are going to happen here.	
+if lactate = 0:
+	if milkoverdemand <= 0: milkoverdemand = 0
+	pump_stop_brake = 0
+	!!	This is how much milk demand is applied to the breasts. In this function it is needed to calculate the nipple pain and breast pain.
+	max_sucktion_demand = 10*suck_flow_rate*ARGS[1]
+	if pain['nipples'] <= 60:
+		suck_until_pain = ((60 - pain['nipples'])*10*(soreness_mod/10))/suck_flow_rate
+	end
+	temp_var = pain['nipples'] + (max_sucktion_demand/100)/(soreness_mod/10)
+	if temp_var > 60:
+		pain['nipples'] = 65
+		pump_stop_brake = 1
+		pumptime = suck_until_pain
+		max_sucktion_demand = 10*suck_flow_rate*pumptime
+	else
+		pain['nipples'] += (max_sucktion_demand/100)/(soreness_mod/10)
+	end
+	
+	temp_var = pain['breasts'] + max_sucktion_demand/1000
+	if temp_var > 20:
+		pain['breasts'] = 25
+	else
+		pain['breasts'] += max_sucktion_demand/1000
+	end
+	!! Pumping breasts is exhausting even if no milk comes. so this is handled here.
+	
+	temp_var = pcs_energy - max_sucktion_demand/1500
+	if temp_var < 0:
+		pcs_energy = 0
+		!! energy usage flag on.
+		energytomilkpump = 1			
+	else
+		pcs_energy -= max_sucktion_demand/1500
+		!! energy usage flag on.
+		energytomilkpump = 1
+	end
+	
+	if pumptime < 10:
+		breastcounter += 1
+	else
+		breastcounter += pumptime/10
+	end
+	
+	milkoverdemand += max_sucktion_demand
+	RESULT = 0
+!! If there is lactation, do the magic
+elseif lactate >0:
+	!!	How much milk can go through the nipple. Base rate is 10ml/minute when sucktion is applied to the nipple. If the demand is higher than the nipple can push through, nipple soreness will happen more quickly.
+	if pcs_nips > 0:
+		max_nip_flow_rate = 6
+	elseif pcs_nips > 20:
+		max_nip_flow_rate = 8
+	elseif pcs_nips > 40:
+		max_nip_flow_rate = 10
+	elseif pcs_nips > 60:
+		max_nip_flow_rate = 12
+	elseif pcs_nips > 80:
+		max_nip_flow_rate = 14
+	elseif pcs_nips > 100:
+		max_nip_flow_rate = 16
+	else
+		max_nip_flow_rate = 10
+	end
+	
+	!!	If you pump and work your breast more, soreness will decrease after pumping. This can also decline if your breasts arent worked for a longer time.
+	if breastcounter > 0:
+		temp_var = breastcounter/10
+		soreness_mod += temp_var
+		if soreness_mod > 20: soreness_mod = 20
+		if nipple_cream = 1:
+			soreness_mod += 10
+			nipple_cream = 0
+		end
+	end
+	
+	!!	If you pump more, more milk will come, disregarding nipplesize. Things will get used to milking and be more loose.
+	nip_flow_mod = 1
+	temp_var = breastcounter/10
+	nip_flow_mod += temp_var
+	if nip_flow > 30: nip_flow_mod = 30
+	max_nip_flow_rate += nip_flow_mod
+	
+	!!	How much milk demand is applied to the breasts. We want to know if we can just suck out what is already stored or if additional milk production is needed to go through the whole pumping/sucking.
+	!!	If we only need 20ml from a 100ml storage, we would only substract 20ml, leaving 80ml inside the breasts.
+	max_sucktion_demand = 10*suck_flow_rate*ARGS[1]
+	!!	Is enough milk already in the breasts?
+	if lactatemv > max_sucktion_demand:
+		!! can the nipples handle the flow?
+		if max_nip_flow_rate >= suck_flow_rate:
+			milkedvolume = max_sucktion_demand
+			lactatemv -= max_sucktion_demand
+		elseif max_nip_flow_rate < suck_flow_rate:
+			milkedvolume = max_nip_flow_rate*10*ARGS[1]
+			lactatemv -= milkedvolume
+			!!	time for sore nipples. We apply more sucking than the nipples can handle. So it hurts more. if nipple pain over 60, then it goes to 65. else it just adds soreness.
+			max_sucktion_demand -= milkedvolume
+			temp_var = pain['nipples'] + (max_sucktion_demand/100)/(soreness_mod/10)
+			if temp_var > 60:
+				pain['nipples'] = 65
+			else
+				pain['nipples'] += (max_sucktion_demand/100)/(soreness_mod/10)
+			end
+		else
+			cls & '<b><font color="red">BAD ARGUMENT CHECK IN <i>$get_breastmilk</i>!</font></b><b>Error in Lactatemv bigger than max_sucktion_demand fork.</b>'
+		end
+	elseif lactatemv < max_sucktion_demand:
+		!!	Magic!
+		temp_var = (lactatemv/(max_nip_flow_rate*10))
+		if temp_var <= 0 and lactatemv > 0: temp_var = 1
+		pumptime_left = ARGS[1] - temp_var
+		if pumptime_left <= 0 and lactatemv > 0: pumptime_left = 1
+		temp_var = lactaterate/60
+		if temp_var <= 0 and lactaterate > 0: temp_var = 1
+		if temp_var >= max_nip_flow_rate:
+			if ARGS[0] = 2: breastcounter += 50
+			milkedvolume = (max_nip_flow_rate * 10 * pumptime_left) + (max_nip_flow_rate * 10 * (ARGS[1] - pumptime_left))
+			lactatemv -= (max_nip_flow_rate * 10 * (ARGS[1] - pumptime_left))
+		elseif temp_var < max_nip_flow_rate:
+			!!with a baby sucking, more milk should be made due to nature ...
+			if ARGS[0] = 2: milkoverdemand += 100000
+			milkedvolume = (temp_var * pumptime_left) + (max_nip_flow_rate * 10 * (ARGS[1] - pumptime_left))
+			lactatemv -= (max_nip_flow_rate * 10 * (ARGS[1] - pumptime_left))
+		else
+			cls & '<b><font color="red">BAD ARGUMENT CHECK IN <i>$get_breastmilk</i>!</font></b><b>Error in Lactatemv smaller than max_sucktion_demand fork.</b>'
+		end
+		if lactatemv <= 0: lactatemv = 0
+		!!	the breasts had to produce milk, so energy is used.
+		temp_var = pcs_energy - milkedvolume/1000
+		if temp_var < 0:
+			pcs_energy = 0
+			if rand(0,100) > 90: fat -= 1
+			!!	this is checking if pcs_energy was impacted during milking.
+			energytomilkpump = 1			
+		else
+			pcs_energy -= milkedvolume/1000
+			!!	this is checking if pcs_energy was impacted during milking.
+			energytomilkpump = 1
+		end
+		!! the breasts had to produce milk, so hydration is used.
+		temp_var = pcs_hydra - milkedvolume/500
+		if temp_var < 0:
+			pcs_hydra = 0
+			energytomilkpump = 1			
+		else
+			pcs_hydra -= milkedvolume/500
+			energytomilkpump = 1
+		end
+		!!	if more is pumped than produced the breasts will hurt too.
+		if milkedvolume < max_sucktion_demand:
+			!!	milkoverdemand: This is used for the daily milk growth. If there is overdemand, the lactaterate will change the next day. Will be set to 0 every day.
+			milkoverdemand += max_sucktion_demand - milkedvolume
+			temp_var = pain['breasts'] + (max_sucktion_demand - milkedvolume)/1000
+			if temp_var > 20:
+				pain['breasts'] = 20
+			else
+				pain['breasts'] += (max_sucktion_demand - milkedvolume)/1000
+			end
+		end
+		if max_nip_flow_rate < suck_flow_rate:
+			!!	sore nipples again. "used to breastpumping" variable needs to come in here too!
+			temp_var = pain['nipples'] + ((((max_nip_flow_rate*100)/60) * pumptime_left)/100) + (max_sucktion_demand/100)/(soreness_mod/10)
+			if temp_var > 60:
+				pain['nipples'] = 65
+			else
+				pain['nipples'] += ((((max_nip_flow_rate*100)/60) * pumptime_left)/100) + (max_sucktion_demand/100)/(soreness_mod/10)
+			end			
+		end
+	end
+	!! The standard nipple pain applied due to pumping. Adding to the pain that is calculated above
+	temp_var = pain['nipples'] + (max_sucktion_demand/100)/(soreness_mod/10)
+	if temp_var > 60:
+		pain['nipples'] = 65
+	else
+		pain['nipples'] += (max_sucktion_demand/100)/(soreness_mod/10)
+	end
+	
+	if pumptime < 10:
+		breastcounter += 1
+	else
+		breastcounter += pumptime/10
+	end
+	
+	RESULT = milkedvolume
+else
+	cls & '<b><font color="red">BAD ARGUMENT CHECK IN <i>$get_breastmilk</i>!</font></b>'
+end
+
+--- $get_breastmilk ---------------------------------
+
+# lact_lib
+
+!!	bp_milking - breast pump milking
+!!	use href="exec:gt ''lact_lib'',''bp_milking''"
+if $ARGS[0] = 'bp_milking':
+	pumptime = 0
+	pumptype = 0
+	if $location_type ! 'bathroom' and pcs_exhibition < 60:
+		'You can''t use it here.'
+	else
+		*clr
+		cla
+		pumptime = input ("How long do you plan to pump your breasts? (Not more than 60 minutes)")
+		if pumptime <= 0 or pumptime > 60:
+			minut += 2			
+			act 'Don''t pump':gt $loc, $metka	
+		elseif pumptime > 0 and pumptime <= 60:
+			gt 'lact_lib', 'milking'
+		end	
+	end
+end
+
+!!	man_milking - manual (with hands) milking
+!!	use href="exec:gt ''lact_lib'',''man_milking''"
+if $ARGS[0] = 'man_milking':	
+	pumptime = 0
+	pumptype = 1
+	if $location_type ! 'bathroom' and pcs_exhibition < 60:
+		'You can''t do this here.'
+	else
+		*clr
+		cla
+		pumptime = input ("How long would you like to milk your breasts? (Not more than 60 minutes)")
+		if pumptime <= 0 or pumptime > 60:
+			minut += 2			
+			act 'Don''t milk':gt $loc, $metka	
+		elseif pumptime > 0 and pumptime <= 60:
+			gt 'lact_lib', 'milking'
+		end
+	end
+end
+
+!!	milking
+!!	never use directly. Always use bp_milking, man_milking or sex_milking
+
+if $ARGS[0] = 'milking':
+	if pumptime <= 0 or pumptime > 60:
+		act 'Finish':gt $loc, $metka
+	end
+	if pumptype = 1:
+		pumptime = (pumptime*6)/10
+	end
+	if lactate > 0 and pain['nipples'] < 60:				
+		milkedvolume = func('$get_breastmilk', 3, pumptime)
+		'<center><img <<$set_imgh>> src="images/pc/body/tits/pump_lactating.jpg"></center>'
+		'You attach the pump to your breast and start rythmically squeezing the bulb until your breasts feel empty.<br>You give it a few more pumps and detach the pump.<br>You filled the bottle with <<milkedvolume/10>>ml of your milk.'
+		breastcounter += 1
+		if energytomilkpump > 0 and pcs_energy = 0:
+			'<br>During pumping you feel really hungry, producing breast milk seems to be more exhausing then thought.'
+			energytomilkpump = 0
+		elseif energytomilkpump > 0:
+			'<br>You feel a bit thirsty after pumping.'
+			energytomilkpump = 0
+		end
+		if bcream_used = 1:
+			pcs_nips += rand(0,2)
+			bcream_used = 0
+		end
+		minut += pumptime
+	elseif lactate = 0 and pain['nipples'] < 60:
+		if rand(1,50) + prolactinlvl >= rand(200,250):
+			'<center><img <<$set_imgh>> src="images/pc/body/tits/lactate_start.jpg"></center>'
+			'As usual, you attach the pump but after a few pumps white liquid suddenly starts flowing from your nipples.<br>You started lactating!'
+			lactateinduced = 1
+			lactate = 1
+			if func('$calc_lactatemm') > 0: lactatemm = func('$calc_lactatemm')
+			if prolactinlvl < 200: prolactinlvl = 200
+			lactaterate = 10*(prolactinlvl/200)
+			pcs_nips += 2
+			pumpinggrowth = 0
+		else
+			milkedvolume = func('$get_breastmilk', 3, pumptime)
+			'<center><img <<$set_imgh>> src="images/pc/body/tits/t<<tits>>.jpg"></center>'
+			'You attach the pump to your nipples and start squeezing the bulb. The vacuum feels good on your nipples.'
+			if prolactinlvl > 70: 'A few droplets of liquid come out of your nipples but it is not milk.'
+			breastcounter += 1
+			if pump_stop_brake = 1:
+				'During pumping your nipples start to hurt extremely. You have to stop after <<pumptime>> minutes, because you couldn''t go on.'
+			end
+			if prolactinlvl > 75:
+				if rand(0,10) > 9:
+					pumpinggrowth += 1
+				end
+				'After finishing, your breasts feel weirdly engorged.'
+			end
+			if bcream_used = 1:
+				pcs_nips += rand(0,2)
+				bcream_used = 0
+			end
+		end
+		minut += pumptime
+	else
+		'Your nipples feel too sore to use the pump right now.'
+	end
+	if milkedvolume > 0:
+		lact_engorgement = 0
+		lactatemess = 0
+		act 'Pour it into the sink':
+			*clr
+			cla
+			'<center><img <<$set_imgh>> src="images/pc/body/tits/milk_sink.jpg"></center>'
+			'<center>You pour <<milkedvolume/10>>ml of your breast milk into the sink and clean up your breastpump.</center>'
+			minute += 5			
+			act 'Finish':
+				milkedvolume = 0
+				gt $loc, $metka
+			end	
+		end
+		if pcs_hydra < 100:
+			act 'Drink it':
+				*clr
+				cla
+				'<center><img <<$set_imgh>> src="images/pc/body/tits/milk_drink.jpg"></center>'
+				'<center>You drink your own breast milk and clean up your breastpump.</center>'
+				'<center>The milk is still warm from your breasts.</center>'
+				if pcs_hydra < 90:
+					pcs_hydra += 10
+				else
+					pcs_hydra = 100
+				end
+				minute += 7
+				act 'Finish':
+					milkedvolume = 0
+					gt $loc, $metka
+				end					
+			end
+		end
+	else
+		act 'Finish':gt $loc, $metka
+	end	
+end
+
+
+!!	engorged_morning
+!!	use href="exec:gt ''lact_lib'',''engorged_morning''"
+if $ARGS[0] = 'engorged_morning':
+	minut += 5
+	'<center><img <<$set_imgh>> src="images/pc/body/tits/lactate_start.jpg"></center>'
+	'You wake up and your breasts hurt. As you look down, you can see that you have a heavy letdown. You should pump your breasts as soon as possible.'
+	act 'Finish':gt $loc, $metka
+end
+
+--- balkon ---------------------------------

locations/stat_display.qsrc

@@ -1,1343 +1,1354 @@
-# stat_display
-
-gs 'outdoors', 'main'
-
-!!Sex stat update
-stat['mast'] += mastr & mastr = 0
-stat['hj'] += hj & hj = 0
-stat['bj'] += bj & bj = 0
-stat['vaginal'] += sex & sex = 0
-stat['anal'] += anal & anal = 0
-stat['cuni'] += kuni & kuni = 0
-stat['anal_strap_give'] += pegging & pegging = 0
-
-!!!!!!!!!!!!!!!!!!!!!
-!!!Pain calculation!!!
-!!!!!!!!!!!!!!!!!!!!!
-
-paintmp1 = func('shortgs','modul',pain['head'],pain['hair'],pain['ears'],pain['eyebrows'],pain['eyes'],pain['cheeks'],pain['nose'],pain['mouth'])
-paintmp2 = func('shortgs','modul',pain['tummy'],pain['pubic'],pain['vaginal'],pain['labia'],pain['clitoris'],pain['urethra'],pain['cervix'],pain['lips'])
-paintmp3 = func('shortgs','modul',pain['throat'],pain['asscheeks'],pain['asshole'],pain['hips'],pain['thighs'],pain['legL'],pain['legR'],pain['feet'])
-paintmp4 = func('shortgs','modul',pain['toes'],pain['shoulders'],pain['armL'],pain['armR'],pain['hands'],pain['fingers'],pain['chest'],pain['breasts'])
-paintmp5 = func('shortgs','modul',pain['tongue'],pain['neck'],pain['back'],pain['nipples'],pain['ribs'],vgape * 8, agape * 10,spanked * 24)
-
-pain['total'] = func('shortgs','modul',paintmp1,paintmp2,paintmp3,paintmp4,paintmp5)
-
-if pain['total'] > 100: pain['total'] = 100
-pain['damage'] = pain['total']
-pain['relief'] = 0
-
-if alko > 9:
-	pain['relief'] = 70
-elseif alko > 6:
-	pain['relief'] = 40
-elseif alko > 3:
-	pain['relief'] = 15
-end
-
-if StrongNarkota > 0:
-	pain['relief'] = 90
-elseif nark > 0:
-	pain['relief'] = 60
-elseif pain['killer'] > 12 and alko <= 9:
-	pain['relief'] = 50
-end
-
-if pain['relief'] ! 0:
-	if (pain['total'] / pain['relief']) > 0:
-		pain['total'] = pain['total'] / pain['relief']
-	elseif pain['total'] > 0:
-		pain['total'] = 0
-	end
-end
-
-if pain['total'] > 80:
-	if (pcs_health * 5) >= healthmax: pcs_health = pcs_health * 20 / 100
-	if (pcs_mood * 5) >= 100: pcs_mood = pcs_mood * 20 / 100
-elseif pain['total'] > 60:
-	if (pcs_health * 5 / 2) >= healthmax: pcs_health = pcs_health * 40 / 100
-	if (pcs_mood * 5 / 2) >= 100: pcs_mood = pcs_mood * 40 / 100
-elseif pain['total'] > 40:
-	if (pcs_health * 5 / 3) >= healthmax: pcs_health = pcs_health * 60 / 100
-	if (pcs_mood * 5 / 3) >= 100: pcs_mood = pcs_mood * 60 / 100
-elseif pain['total'] > 20:
-	if (pcs_health * 5 / 4) >= healthmax: pcs_health = pcs_health * 80 / 100
-	if (pcs_mood * 5 / 4) >= 100: pcs_mood = pcs_mood * 80 / 100
-elseif pain['total'] > 0:
-	if (pcs_health * 10 / 9) >= healthmax: pcs_health = pcs_health * 90 / 100
-	if (pcs_mood * 10 / 9) >= 100: pcs_mood = pcs_mood * 90 / 100
-end
-
-!!--------------------------pain calculation end--------------------------------
-
-!!update skills and attributes to pcs_ from there _lvl values plus adjustments based on condition
-gs 'stat_sklattrib_lvlset'
-
-!!Sleep variable cap
-if pcs_sleep > 100: pcs_sleep = 100
-
-
-!!!!!!!!!!!!!!!!!!!!!
-!!!Beginning Description!!!
-!!!!!!!!!!!!!!!!!!!!!
-
-!!----------------image Extra messages, start--------------------------
-$stat_imgtool_msg=''
-$stat_imgextra_msg=''
-	
-if Enable_showstatimg = 1 or Enable_statimg_loc > 0:
-	!There are 3 display mode, with toobar / top / bottom, controlled by Enable_statimg_loc
-	if Enable_statimg_face = 0:
-		$stat_imgtool_msg += '<a href="exec:Enable_statimg_face = 1 & gs ''$menu_obnovit''">◇Face</a>'
-	else
-		$stat_imgtool_msg += '<a href="exec:Enable_statimg_face = 0 & gs ''$menu_obnovit''">◆Face</a>'
-		$img_temp = FUNC('$face_image')
-		if $img_temp ! null:  $stat_imgextra_msg += '<a href="exec:view ''<<$img_temp>>''"><img <<$set_statimgh>> src="<<$img_temp>>"></a> '
-	end
-
-	if Enable_statimg_body = 0:
-		$stat_imgtool_msg += ' <a href="exec:Enable_statimg_body = 1 & gs ''$menu_obnovit''">◇Body</a>'
-	else
-		$stat_imgtool_msg += ' <a href="exec:Enable_statimg_body = 0 & gs ''$menu_obnovit''">◆Body</a>'
-		$img_temp = FUNC('$body_image','body')
-		if $img_temp ! null:  $stat_imgextra_msg += '<a href="exec:view ''<<$img_temp>>''"><img <<$set_statimgh>> src="<<$img_temp>>"></a> '
-	end	
-
-	if Enable_statimg_coat = 0:
-		$stat_imgtool_msg += ' <a href="exec:Enable_statimg_coat = 1 & gs ''$menu_obnovit''">◇Coat</a>'
-	else
-		$stat_imgtool_msg += ' <a href="exec:Enable_statimg_coat = 0 & gs ''$menu_obnovit''">◆Coat</a>'
-		$img_temp = FUNC('$body_image','coat')
-		if $img_temp ! null:  $stat_imgextra_msg += '<a href="exec:view ''<<$img_temp>>''"><img <<$set_statimgh>> src="<<$img_temp>>"></a> '
-	end	
-
-	if Enable_statimg_cloth = 0:
-		$stat_imgtool_msg += ' <a href="exec:Enable_statimg_cloth = 1 & gs ''$menu_obnovit''">◇Clothes</a>'
-	else
-		$stat_imgtool_msg += ' <a href="exec:Enable_statimg_cloth = 0 & gs ''$menu_obnovit''">◆Clothes</a>'
-		$img_temp = FUNC('$body_image','clothes')
-		if $img_temp ! null:  $stat_imgextra_msg += '<a href="exec:view ''<<$img_temp>>''"><img <<$set_statimgh>> src="<<$img_temp>>"></a> '
-	end	
-
-	if Enable_statimg_bra = 0:
-		$stat_imgtool_msg += ' <a href="exec:Enable_statimg_bra = 1 & gs ''$menu_obnovit''">◇Bra</a>'
-	else
-		$stat_imgtool_msg += ' <a href="exec:Enable_statimg_bra = 0 & gs ''$menu_obnovit''">◆Bra</a>'
-		$img_temp = FUNC('$body_image','bra')
-		if $img_temp ! null:  $stat_imgextra_msg += '<a href="exec:view ''<<$img_temp>>''"><img <<$set_statimgh>> src="<<$img_temp>>"></a> '
-	end
-
-	if Enable_statimg_panties = 0:
-		$stat_imgtool_msg += ' <a href="exec:Enable_statimg_panties = 1 & gs ''$menu_obnovit''">◇Panties</a>'
-	else
-		$stat_imgtool_msg += ' <a href="exec:Enable_statimg_panties = 0 & gs ''$menu_obnovit''">◆Panties</a>'
-		$img_temp = FUNC('$body_image','panties')
-		if $img_temp ! null:  $stat_imgextra_msg += '<a href="exec:view ''<<$img_temp>>''"><img <<$set_statimgh>> src="<<$img_temp>>"></a> '
-	end	
-
-	if Enable_statimg_shoes = 0:
-		$stat_imgtool_msg += ' <a href="exec:Enable_statimg_shoes = 1 & gs ''$menu_obnovit''">◇Shoes</a>'
-	else
-		$stat_imgtool_msg += ' <a href="exec:Enable_statimg_shoes = 0 & gs ''$menu_obnovit''">◆Shoes</a>'
-		$img_temp = FUNC('$body_image','shoes')
-		if $img_temp ! null:  $stat_imgextra_msg += '<a href="exec:view ''<<$img_temp>>''"><img <<$set_statimgh>> src="<<$img_temp>>"></a> '
-	end	
-	$stat_imgtool_msg += ' <a href="exec:gs ''Cheatmenu_din'' & Enable_settingmode = 1 & dynamic $cheatmenu[''display'']">◎Setting</a>'
-	
-end
-!!----------------image Extra messages, end --------------------------
-
-if Enable_statimg_loc = 1:
-	$stat_msg = '<<$stat_imgtool_msg>><br><<$stat_imgextra_msg>><br><<$stat_msg>>'
-end
-
-$stat_android = '<b><<$mid(100+hour,2,2)>>:<<$mid(100+minut,2,2)>></b>'
-
-$stat_msg += '<table><tr><td><a href="exec:msg ''<<$weather>>''"><<$weatherImage>></a></td><td><<$temperature>></td></tr></table>'
-
-if Enable_statfsize>0:$stat_msg = '<font size=<<Enable_statfsize>>><<$stat_msg>>'
-
-!$stat_msg += '<<$weather>><BR>'
-!pl '<<$weatherImage>>'
-$stat_msg += '<BR><<$stat_android>> <<$week[week]>> <<day>> <<$month>> <<year>>'
-$stat_android += '<<$week[week]>> <<day>>/<<month>>, <<money>> ₽, <a href="exec:clr & pl $stat_android">Status</a>'
-! $stat_android for short desc in android mode, $stat_msg for status bar.
-if StoryLine > 0 and SchoolAtestat = 0 and $holyday ! '': $stat_msg += '<BR><<$holyday>>' & $stat_msg += '<BR>'
-if birthday = day and birthmonth = month: $stat_msg += '<BR><b>Today is your birthday.</b>' & $stat_msg += '<BR>'
-$pockets = 'Pockets'
-if bag > 0: $pockets = 'Purse'
-if bankAccount = 0 and stolmoney = 0:
-	$stat_msg += '<BR>You have <b><<money>> ₽</b> in your <<$pockets>>.'
-else
-	!combine money status to single line
-	$stat_msg += '<BR><<$pockets>>: <b><<money>> ₽</b>'
-	if stolmoney > 0: $stat_msg += ', Drawer <b><<stolmoney>> ₽</b>'	
-	if bankAccount = 1:
-		if karta >= 0:
-			$stat_msg += ', Bank: <b><<karta>> ₽</b>'
-		else
-			$stat_msg += '<BR><font color="red">Your bank account is overdrawn by <b><<karta>> ₽</b>!!</font>'
-		end
-	end
-end
-!{
-$stat_msg += '<BR>You have <b><<money>> ₽</b> in your <<$pockets>>.'
-if bankAccount = 1:
-	if karta >= 0:
-		$stat_msg += '<BR>You have <b><<karta>> ₽</b> in your bank account.'
-	else
-		$stat_msg += '<BR><font color="red">Your bank account is overdrawn by <b><<karta>> ₽</b>!!</font>'
-	end
-end
-if stolmoney > 0: $stat_msg += '<BR>You have <b><<stolmoney>> ₽</b> in your desk drawer.'
-}
-!$stat_msg += '<BR>'
-
-if ETOmenu = 1:
-	$stat_msg += '<BR><b><<$pcs_health>></b>'
-	$stat_msg += '<BR><b><<$pcs_willpwr>></b>'
-	if cheatNoEat = 0: $stat_msg += '<BR><b><<$pcs_energy>></b>'
-	if cheatNoDrink = 0: $stat_msg += '<BR><b><<$pcs_hydra>></b>'
-	if cheatNoSleep = 0: $stat_msg += '<BR><b><<$pcs_sleep>></b>'
-elseif Enable_scalepic = 2:
-	$st_temp='rgb(<<(16777216 + fcolor) mod 256>>,<<(16777216 + fcolor)/256 mod 256>>,<<(16777216 + fcolor)/65536>>)'
-	$stat_msg += '<p><font color="<<$st_temp>>"><TABLE width="300" cellpadding="1" cellspacing="0"><TR><TD width="85%">'+FUNC('indiktab', '2', pcs_horny, pcs_horny)+'</TD><TD> Arousal</TD></TR><TR><TD width="85%">'+FUNC('indiktab', '2', pain['total'], pain['total'])+'</TD><TD> Pain</TD></TR><TR><TD width="85%">'+FUNC('indiktab', '1', pcs_health * 100 / healthmax, pcs_health)+'</TD><TD> Health</TD></TR>'
-	if MagikDostup = 0: $stat_msg += '<TR><TD width="85%">'+FUNC('indiktab', '1', pcs_manna * 100 / mannamax, pcs_manna)+'</TD><TD> Manna</TD></TR>'
-	$stat_msg += '<TR><TD width="85%">'+FUNC('indiktab', '1', pcs_willpwr * 100 / willpowermax, pcs_willpwr)+'</TD><TD> Willpower</TD></TR><TR><TD width="85%">'+FUNC('indiktab', '1', pcs_stam * 100 / stammax, pcs_stam)+'</TD><TD> Stamina</TD></TR><TR><TD width="85%">'+FUNC('indiktab', '1', pcs_mood, pcs_mood)+'</TD><TD> Mood</TD></TR>'
-	if cheatNoEat = 0: $stat_msg += '<TR><TD width="85%">'+FUNC('indiktab', '1', pcs_energy, pcs_energy)+'</TD><TD> Hunger</TD></TR>'
-	if cheatNoDrink = 0: $stat_msg += '<TR><TD width="85%">'+FUNC('indiktab', '1', pcs_hydra, pcs_hydra)+'</TD><TD> Thirst</TD></TR>'
-	if cheatNoSleep = 0: $stat_msg += '<TR><TD width="85%">'+FUNC('indiktab', '1', pcs_sleep, pcs_sleep)+'</TD><TD> Sleep</TD></TR></TABLE></font></p>'
-else
-	gs 'indik', '2', pcs_horny, pcs_horny
-	$stat_msg += '<BR><<$ind>> Arousal'
-
-	gs 'indik', '2', pain['total'], pain['total'], pain['damage']
-	$stat_msg += '<BR><<$ind>> Pain'
-
-	gs 'indik', '1', pcs_health * 100 / healthmax, pcs_health
-	$stat_msg += '<BR><<$ind>> Health'
-
-	if MagikDostup = 0:
-		gs 'indik', '1', pcs_manna * 100 / mannamax, pcs_manna
-		$stat_msg += '<BR><<$ind>> Manna'
-	end
-
-	gs 'indik', '1', pcs_willpwr * 100 / willpowermax, pcs_willpwr
-	$stat_msg += '<BR><<$ind>> Willpower'
-
-	gs 'indik', '1', pcs_stam * 100 / stammax, pcs_stam
-	$stat_msg += '<BR><<$ind>> Stamina'
-
-	gs 'indik', '1', pcs_mood, pcs_mood
-	$stat_msg += '<BR><<$ind>> Mood'
-
-	if cheatNoEat = 0:
-		gs 'indik', '1', pcs_energy, pcs_energy
-		$stat_msg += '<BR><<$ind>> Hunger'
-	end
-
-	if cheatNoDrink = 0:
-		gs 'indik', '1', pcs_hydra, pcs_hydra
-		$stat_msg += '<BR><<$ind>> Thirst'
-	end
-
-	if cheatNoSleep = 0:
-		gs 'indik', '1', pcs_sleep, pcs_sleep
-		$stat_msg += '<BR><<$ind>> Sleep'
-	end
-end
-
-
-
-!!----------------Extra messages, start--------------------------
-
-!!----------------▽Attributes--------------------------
-$stat_tool_msg=''
-$stat_extra_msg=''
-if Enable_showattr = 0:
-	$stat_tool_msg += '<a href="exec:Enable_showattr = 1 & gs ''$menu_obnovit''">▽Attributes</a>'
-else
-	$stat_tool_msg += '<a href="exec:Enable_showattr = 0 & gs ''$menu_obnovit''">▲Attributes</a>'
-	!skip if this is first message
-	if $stat_extra_msg ! null: $stat_extra_msg += '<br><a href="exec:Enable_showattr = 0 & gs ''$menu_obnovit''">▲Attributes:</a>'
-	if Enable_scalepic = 2:
-		if pcs_dom > 10:
-			$dom_stat_msg = 'dominant'
-		elseif sub > 10:
-			$dom_stat_msg = 'submissive'
-		else
-			$dom_stat_msg = 'neutral'
-		end
-
-		$stat_extra_msg += '<font color="<<$st_temp>>"><TABLE cellpadding="1" cellspacing="0" width="300"><TR><TD width="85%">'+FUNC('indiktab', '3', 100+pcs_dom-sub, 100+pcs_dom-sub,$dom_stat_msg)+'</TD><TD> Dominance</TD></TR>  <TR><TD width="85%">'+FUNC('indiktab', '1', pcs_stren, pcs_stren)+'</TD><TD> Strength</TD></TR><TR><TD width="85%">'+FUNC('indiktab', '1', pcs_agil, pcs_agil)+'</TD><TD> Agility</TD></TR><TR><TD width="85%">'+FUNC('indiktab', '1', pcs_vital, pcs_vital)+'</TD><TD> Endurance</TD></TR><TR><TD width="85%">'+FUNC('indiktab', '1', pcs_intel, pcs_intel)+'</TD><TD> Intelligence</TD></TR><TR><TD width="85%">'+FUNC('indiktab', '1', pcs_sprt, pcs_sprt)+'</TD><TD> Spirit</TD></TR><TR><TD width="85%">'+FUNC('indiktab', '1', pcs_react, pcs_react)+'</TD><TD nowrap> Mental Agility</TD></TR><TR><TD width="85%">'+FUNC('indiktab', '1', pcs_chrsm, pcs_chrsm)+'</TD><TD> Charisma</TD></TR><TR><TD width="85%">'+FUNC('indiktab', '1', pcs_prcptn, pcs_prcptn)+'</TD><TD> Perception</TD></TR>'
-		if MagikDostup = 0: $stat_extra_msg += '<TR><TD width="85%">'+FUNC('indiktab', '1', pcs_magik, pcs_magik)+'</TD><TD> Magic</TD></TR>'
-		if succubusflag = 1: $stat_extra_msg += '<TR><TD width="85%">'+FUNC('indiktab', '1', sucexcess, sucexcess)+'</TD><TD> Succubus Energy</TD></TR>'
-		$stat_extra_msg += '<TR><TD width="85%">'+FUNC('indiktab', '1', pcs_apprnc / 2, pcs_apprnc)+'</TD><TD> Attractiveness</TD></TR>'
-		if SchoolAtestat = 0 and StoryLine > 0:$stat_extra_msg += '<TR><TD width="85%">'+FUNC('indiktab', '1', pcs_grades, pcs_grades)+'</TD><TD nowrap> School Grades</TD></TR>'
-		$stat_extra_msg += '<TR><TD width="85%">'+FUNC('indiktab', '1', 100 - pcs_inhib, 100 - pcs_inhib)+'</TD><TD> Inhibition</TD></TR>'
-		if pcs_heels > 0:$stat_extra_msg += '<TR><TD width="85%">'+FUNC('indiktab', '1', pcs_heels, pcs_heels)+'</TD><TD> Heels skill</TD></TR>'
-		$stat_extra_msg += '</TABLE></font>'
-		killvar '$dom_stat_msg'
-	else
-		gs 'indik','3', 50+(pcs_dom-sub)/2, 50+(pcs_dom-sub)/2
-		$stat_extra_msg += '<BR><<$ind>> Dominance'
-		if pcs_dom > 10:
-			$stat_extra_msg += ' (dominant)'
-		elseif sub > 10:
-			$stat_extra_msg += ' (submissive)'
-		else
-			$stat_extra_msg += ' (natural)'
-		end
-!		$stat_extra_msg += '<BR>'
-		gs 'indik', '1', pcs_stren, pcs_stren
-		$stat_extra_msg += '<BR><<$ind>> Strength'
-		gs 'indik', '1', pcs_agil, pcs_agil
-		$stat_extra_msg += '<BR><<$ind>> Agility'
-		gs 'indik', '1', pcs_vital, pcs_vital
-		$stat_extra_msg += '<BR><<$ind>> Endurance'
-		gs 'indik', '1', pcs_intel, pcs_intel
-		$stat_extra_msg += '<BR><<$ind>> Intelligence'
-		gs 'indik', '1', pcs_sprt, pcs_sprt
-		$stat_extra_msg += '<BR><<$ind>> Spirit'
-		gs 'indik', '1', pcs_react, pcs_react
-		$stat_extra_msg += '<BR><<$ind>> Mental Agility'
-		gs 'indik', '1', pcs_chrsm, pcs_chrsm
-		$stat_extra_msg += '<BR><<$ind>> Charisma'
-		gs 'indik', '1', pcs_prcptn, pcs_prcptn
-		$stat_extra_msg += '<BR><<$ind>> Perception'
-		if MagikDostup = 0:
-			gs 'indik', '1', pcs_magik, pcs_magik
-			$stat_extra_msg += '<BR><<$ind>> Magic'
-			if succubusflag = 1:
-				gs 'indik', '1', sucexcess, sucexcess
-				$stat_extra_msg += '<BR><<$ind>> Succubus energy'
-			end
-		end
-		gs 'indik', '1', pcs_apprnc / 2, pcs_apprnc
-		$stat_extra_msg += '<BR><<$ind>> Attractiveness'
-	
-		if SchoolAtestat = 0 and StoryLine > 0:
-			gs 'indik', '1', pcs_grades, pcs_grades
-			$stat_extra_msg += '<BR><<$ind>> School Grades'
-		end
-
-		gs 'indik', '1', 100 - pcs_inhib, 100 - pcs_inhib
-		$stat_extra_msg += '<BR><<$ind>> inhibition'
-
-		if pcs_heels > 0:
-			gs 'indik', '1', pcs_heels, pcs_heels
-			$stat_extra_msg += '<BR><<$ind>> Heels skill'
-		end
-		$stat_extra_msg += '<BR>' 
-	end
-end
-killvar '$st_temp'
-
-!!----------------▽Skills--------------------------
-
-if Enable_showskill = 0:
-	$stat_tool_msg += ' <a href="exec:Enable_showskill = 1 & gs ''$menu_obnovit''">▽Skills</a>'
-else
-	$stat_tool_msg += ' <a href="exec:Enable_showskill = 0 & gs ''$menu_obnovit''">▲Skills</a>'
-	!!----------------------▲Skills display------------------------
-	$stat_sktool_msg=''
-	st_count=0
-	$show_table=''
-	!!----------------Mental skills--------------------------
-	if Enable_show_mental_skill = 0:
-		$stat_sktool_msg += ' <a href="exec:Enable_show_mental_skill = 1 & gs ''$menu_obnovit''">◇Mental</a>'
-	else
-		$stat_sktool_msg += ' <a href="exec:Enable_show_mental_skill = 0 & gs ''$menu_obnovit''">◆Mental</a>'
-		if pcs_splcstng > 0: gs 'show_table', '<<pcs_splcstng>> Spell Casting', '2'
-		if pcs_humint > 0: gs 'show_table', '<<pcs_humint>> People skills', '2'
-		if pcs_persuas > 0: gs 'show_table', '<<pcs_persuas>> Persuasion', '2'
-		if pcs_observ > 0: gs 'show_table', '<<pcs_observ>> Observation', '2'
-	end
-
-	!!-----------------Sport skills--------------------------
-	if Enable_show_sport_skill = 0:
-		$stat_sktool_msg += ' <a href="exec:Enable_show_sport_skill = 1 & gs ''$menu_obnovit''">◇Sport</a>'
-	else
-		$stat_sktool_msg += ' <a href="exec:Enable_show_sport_skill = 0 & gs ''$menu_obnovit''">◆Sport</a>'
-		if pcs_jab > 0: gs 'show_table', '<<pcs_jab>> Jabs', '2'
-		if pcs_punch > 0: gs 'show_table', '<<pcs_punch>> Power Strikes', '2'
-		if pcs_kick > 0: gs 'show_table', '<<pcs_kick>> Kicks', '2'
-		if pcs_def > 0: gs 'show_table', '<<pcs_def>> Defence', '2'
-		if pcs_run > 0: gs 'show_table', '<<pcs_run>> Running', '2'
-		if pcs_vball > 0: gs 'show_table', '<<pcs_vball>> Volleyball', '2'
-		if pcs_ftbll > 0: gs 'show_table', '<<pcs_ftbll>> Football', '2'
-		if pcs_wrstlng > 0: gs 'show_table', '<<pcs_wrstlng>> Wrestling', '2'
-		if pcs_shoot > 0: gs 'show_table', '<<pcs_shoot>> Marksmanship', '2'
-		if pcs_chess > 0: gs 'show_table', '<<pcs_chess>> Chess', '2'
-		if pcs_icesktng > 0: gs 'show_table', '<<pcs_icesktng>> Ice Skating', '2'
-		if pcs_ttgmng > 0: gs 'show_table', '<<pcs_ttgmng>> Gaming', '2'
-		if pcs_pool > 0: gs 'show_table', '<<pcs_pool>> Pool', '2'
-	end
-
-	!!-----------------Beauty/Modelling skills---------------
-	if Enable_show_beauty_skill = 0:
-		$stat_sktool_msg += ' <a href="exec:Enable_show_beauty_skill = 1 & gs ''$menu_obnovit''">◇Beauty</a>'
-	else
-		$stat_sktool_msg += ' <a href="exec:Enable_show_beauty_skill = 0 & gs ''$menu_obnovit''">◆Beauty</a>'
-		if pcs_makupskl > 0: gs 'show_table', '<<pcs_makupskl>> Makeup Skill', '2'
-		if pcs_danc > 0: gs 'show_table', '<<pcs_danc>> Modern Dancing', '2'
-		if pcs_dancero > 0: gs 'show_table', '<<pcs_dancero>> Erotic Dancing', '2'
-		if pcs_dancpol > 0: gs 'show_table', '<<pcs_dancpol>> Pole Dancing', '2'
-		if pcs_mdlng > 0: gs 'show_table', '<<pcs_mdlng>> Modelling', '2'
-	end
-
-	!!---------------------Artistic skills-------------------
-	if Enable_show_art_skill = 0:
-		$stat_sktool_msg += ' <a href="exec:Enable_show_art_skill = 1 & gs ''$menu_obnovit''">◇Artistic</a>'
-	else
-		$stat_sktool_msg += ' <a href="exec:Enable_show_art_skill = 0 & gs ''$menu_obnovit''">◆Artistic</a>'
-		if pcs_vokal > 0: gs 'show_table', '<<pcs_vokal>> Singing', '2'
-		if pcs_instrmusic > 0: gs 'show_table', '<<pcs_instrmusic>> Instrumental Music', '2'
-		if pcs_photoskl > 0: gs 'show_table', '<<pcs_photoskl>> Photography', '2'
-		if pcs_artskls > 0: gs 'show_table', '<<pcs_artskls>> Artistic Skills', '2'
-	end
-
-	!!----------------------Job skills------------------------
-	if Enable_show_job_skill = 0:
-		$stat_sktool_msg += ' <a href="exec:Enable_show_job_skill = 1 & gs ''$menu_obnovit''">◇Job</a>'
-	else
-		$stat_sktool_msg += ' <a href="exec:Enable_show_job_skill = 0 & gs ''$menu_obnovit''">◆Job</a>'
-		if pcs_compskl > 0: gs 'show_table', '<<pcs_compskl>> Computer Skill', '2'
-		if pcs_comphckng > 0: gs 'show_table', '<<pcs_comphckng>> Hacking', '2'
-		if pcs_hndiwrk > 0: gs 'show_table', '<<pcs_hndiwrk>> Handy-work', '2'
-		if pcs_sewng > 0: gs 'show_table', '<<pcs_sewng>> Tailoring', '2'
-		if pcs_servng > 0: gs 'show_table', '<<pcs_servng>> Serving', '2'
-		if pcs_medcn > 0: gs 'show_table', '<<pcs_medcn>> Medicine', '2'
-		if workPTU > 1: gs 'show_table','<<teachlevel>> Teacher credibility','2'
-	end	
-	!skip if this is first message
-	if $stat_extra_msg ! null: 
-		$stat_extra_msg += '<br><a href="exec:Enable_showskill = 0 & gs ''$menu_obnovit''">▲Skills:</a> <<$stat_sktool_msg>>'
-	else
-		$stat_extra_msg += '<br><<$stat_sktool_msg>>'
-	end
-	if st_count > 0 :
-		$stat_extra_msg += '<BR><TABLE BORDER=1><<$show_table>></TR></TABLE>'
-	end	
-end
-
-killvar 'stat_sktool_msg'
-killvar 'stat_skextra_msg'
-
-!!----------------▽relations--------------------------
-if Enable_showrelation = 0:
-	$stat_tool_msg += ' <a href="exec:Enable_showrelation = 1 & gs ''$menu_obnovit''">▽Relations</a>'
-else
-	$stat_tool_msg += ' <a href="exec:Enable_showrelation = 0 & gs ''$menu_obnovit''">▲Relations</a>'
-	st_count=0
-	$show_table=''
-	if npc_QW['A192'] > 0:gs'show_table','Nastja: <<npc_QW[''A192'']>>','2'
-	if npc_rel['A218'] > 0:gs'show_table','Tanya: <<npc_rel[''A218'']>>','2'
-	if npc_rel['A219'] > 0:gs'show_table','Kat: <<npc_rel[''A219'']>>','2'
-	if npc_rel['A220'] > 0:gs'show_table','Vika: <<npc_rel[''A220'']>>','2'
-	if npc_rel['A93'] > 0:gs'show_table','Ira: <<npc_rel[''A93'']>>','2'
-	if npc_rel['A43'] > 0:gs'show_table','Tamara: <<npc_rel[''A43'']>>','2'
-	if alla > 0:gs'show_table','Alla: <<alla>>','2'
-	if masha > 0:gs'show_table','Masha: <<masha>>','2'
-	if npc_rel['A41'] > 0:gs'show_table','Givi Karapetovich: <<npc_rel[''A41'']>>','2'
-	if npc_rel['A42'] > 0:gs'show_table','Ashot: <<npc_rel[''A42'']>>','2'
-	if afra > 0:gs'show_table','Blacks: <<afra>>','2'
-	if Rex > 0:gs'show_table','Rex: <<Rex>>','2'
-	if npc_rel['A217'] > 0:gs'show_table','Pavlin: <<npc_rel[''A217''] >>','2'
-	if npc_rel['A69'] > 0:gs'show_table','Mikhail Nikolaevich: <<npc_rel[''A69'']>>','2'
-	if npc_rel['A89'] > 0:gs'show_table','Eugene: <<npc_rel[''A89'']>>','2'
-	if npc_rel['A112'] > 0:gs'show_table','Sergei Shulgin: <<npc_rel[''A112'']>>','2'
-	if npc_rel['A11'] > 0:gs'show_table','Vasily Shulgin: <<npc_rel[''A11'']>>','2'
-	if hantersAndreiQw > 0:gs'show_table','Hunter Andrew: <<hantersAndreiQw>>','2'
-	if hantersSergeiQw > 0:gs'show_table','Hunter Sergei: <<hantersSergeiQw>>','2'
-	if hantersIgorQw > 0:gs'show_table','Hunter Igor: <<hantersIgorQw>>','2'
-	if pcs_lovers[0] = 1:gs'show_table', 'BF <<$loverdesc[0]>>: <<loverrelation[0]>>','2'
-	if pcs_lovers[1] = 1:gs'show_table', 'BF <<$loverdesc[1]>>: <<loverrelation[1]>>','2'
-	if pcs_lovers[2] = 1:gs'show_table', 'BF <<$loverdesc[2]>>: <<loverrelation[2]>>','2'
-	if StoryLine > 0:
-		if npc_rel['A29'] > 0:gs'show_table','Mother: <<npc_rel[''A29'']>>','2'
-		if npc_rel['A28'] > 0:gs'show_table','Father: <<npc_rel[''A28'']>>','2'
-		if npc_rel['A33'] > 0:gs'show_table','Sister: <<npc_rel[''A33'']>>','2'
-		if npc_rel['A34'] > 0:gs'show_table','Brother: <<npc_rel[''A34'']>>','2'
-	end
-	if st_count > 0 :
-		!skip if this is first message
-		if $stat_extra_msg ! null: $stat_extra_msg += '<BR><a href="exec:Enable_showrelation = 0 & gs ''$menu_obnovit''">▲Relations:</a>'
-		$stat_extra_msg += '<BR><TABLE BORDER=1> <<$show_table>></TR></TABLE>'
-	end
-end
-
-!!----------------▽image, default to toolbar, can move to top or bottom from setting--------------------------
-if Enable_statimg_loc = 0:
-	if Enable_showstatimg = 0:
-		$stat_tool_msg += ' <a href="exec:Enable_showstatimg = 1 & gs ''$menu_obnovit''">▽Image</a>'
-	else
-		$stat_tool_msg += ' <a href="exec:Enable_showstatimg = 0 & gs ''$menu_obnovit''">▲Image</a>'	
-		!skip if this is first message
-		if $stat_extra_msg ! null: 
-			$stat_extra_msg += '<br><a href="exec:Enable_showstatimg = 0 & gs ''$menu_obnovit''">▲Image:</a> <<$stat_imgtool_msg>>'
-		else
-			$stat_extra_msg += '<br><<$stat_imgtool_msg>>'
-		end
-		$stat_extra_msg += '<br><<$stat_imgextra_msg>>'
-	end
-end
-
-!all end, push back and clean up
-$stat_msg += '<br><br><<$stat_tool_msg>>'
-if $stat_extra_msg ! NULL : $stat_msg += '<<$stat_extra_msg>>'
-$stat_msg += '<br>'
-killvar 'stat_tool_msg'
-killvar 'stat_extra_msg'
-
-
-!!----------------Extra messages, End--------------------------
-
-if opPRE = 0: $stat_msg += '<BR><<$pcs_makeup>> and your hair is <<$pcs_hairbsh>>.' & !$stat_msg += '<BR>'
-
-if thinkpreg = 0 and knowpreg = 0 and cycle ! 6 and pillcon2 <= 30000 and succubusflag ! 1 and cheatSlut = 0 and mesec = 0:
-	if abortionbirthdate = 0 and daystart - lastmens > 21:
-		if daystart - lastmens < 28:
-			$stat_msg += '<BR><font color = #AB052A><b>Your period is late by <<daystart - lastmens - 20>> days.</b></font>'
-		elseif daystart - lastmens < 35:
-			$stat_msg += '<BR><font color = #AB052A><b>Your period is late by more than a week!</b></font>'
-		elseif daystart - lastmens < 45:
-			$stat_msg += '<BR><font color = #AB052A><b>You apparently missed your period this month. Maybe you should see a doctor?</b></font>'
-		elseif daystart - lastmens < 69:
-			$stat_msg += '<BR><font color = #AB052A><b>You didn''t have a period for two months. You really should see a doctor about it.</b></font>'
-		else
-			$stat_msg += '<BR><font color = #AB052A><b>You should consider the possibility of a pregnancy, since apparently you no longer have periods.</b></font>'
-		end
-	elseif abortionbirthdate ! 0 and daystart - abortionbirthdate <= 100:
-		$stat_msg += '<BR><font color = #705243><b>You are probably still in your recovery period. Nothing to worry about.</b></font>'
-	elseif abortionbirthdate ! 0 and daystart - abortionbirthdate > 100:
-		$stat_msg += '<BR><font color = #820000><b>You should have recovered by know... Right?</b></font>'
-	end
-end
-if implant_day > 0:
-	if ((daystart - implant_day) * 24 + hour - implant_hour) < 5:
-		$stat_msg += '<BR><font color=#AB052A>You feel a slight twinge in your abdomen.</font>'
-	end
-end
-if mesec > 0:
-	$stat_msg += '<BR><font color="red">You are currently having your period. '
-	if isprok = 0 and isprokp = 0:
-		$stat_msg += 'You need to use your feminine hygiene products.'
-	elseif isprokp = 1 and $pantyworntype = 'none':
-		isprokp = 0
-		$stat_msg += 'You need to wear panties to use a sanitary pad.'
-	end
-	$stat_msg += '</font>'
-elseif placebopart > 0 and LutH > 0:
-	$stat_msg += '<BR><font color="red">Your period is due to start soon.'
-	$stat_msg += '</font>'
-end
-
-
-if $cycreport_txt ! null: $stat_msg += '<BR><a href="exec:dynamic $d_cycreport_choice"><<$cycreport_txt>></a><br>'
-
-!!if shame > 0:$stat_msg += '<BR><<$shame>>' & $stat_msg += '<BR>'
-
-if $pcs_mood ! '':$stat_msg += '<BR><font color="green"><b><<$pcs_mood>></b></font>'
-
-if mentats_dose >= 1:$stat_msg += '<BR><font color = green>You feel sharp and focused.</font>'
-if bcream_used = 1:$stat_msg += '<BR><font color = #DB7093>Your breasts are feeling hot and tingly.</font>'
-if aphrodisiac_timer > 0:$stat_msg += '<BR><font color = #DB7093>You are feeling hot and every move causes your groin to tingle.</font>'
-
-if cheatNoEat = 0:
-	if pcs_energy < 5:
-		$stat_msg += '<BR><font color="red"><b>You feel faint from hunger, if you don''t have something to eat very soon, you will pass out.</b></font>'
-	elseif pcs_energy < 10:
-		$stat_msg += '<BR><font color="red">You are starving, you really need to have something to eat.</font>'
-	elseif pcs_energy < 20:
-		$stat_msg += '<BR>You are very hungry and struggle to concentrate on anything other than food.'
-	elseif pcs_energy < 30:
-		$stat_msg += '<BR>You feel peckish and your thoughts sometimes drift towards food.'
-	end
-end
-
-if cheatNoDrink = 0:
-	if pcs_hydra < 5:
-		$stat_msg += '<BR><font color="red"><b>You feel light-headed, if you don''t have something to drink very soon, you will pass out.</b></font>'
-	elseif pcs_hydra < 10:
-		$stat_msg += '<BR><font color="red">You are dehydrated, you really need to have something to drink.</font>'
-	elseif pcs_hydra < 20:
-		$stat_msg += '<BR>You are thirsty and your dry throat is irritating and distracting you.'
-	elseif pcs_hydra < 30:
-		$stat_msg += '<BR>You feel a little thirsty and your mouth is a little dry.'
-	end
-end
-
-if cheatNoSleep= 0:
-	if pcs_sleep < 5:
-		$stat_msg += '<BR><font color="red"><b>You can''t keep your eyes open, if you don''t go to bed now, you will fall asleep right here.</b></font>'
-	elseif pcs_sleep < 10:
-		$stat_msg += '<BR><font color="red">You are exhausted, you really need to go to bed soon.</font>'
-	elseif pcs_sleep < 20:
-		$stat_msg += '<BR>You are tired and you are struggling to concentrate.'
-	elseif pcs_sleep < 30:
-		$stat_msg += '<BR>You feel a little tired.'
-	end
-end
-
-if $pantyworntype ! 'none' and clit_size >= 25:$stat_msg += '<BR><font color = #FF1493>Your panties keep rubbing against your clit and making you horny.</font>'
-
-if pcs_horny >= 50:
-	if pcs_horny < 90 and $pantyworntype ! 'none':
-		$stat_msg += '<BR><font color = #DB7093>You are a little nervous, feeling nice between your legs <a href="exec:view''images/pc/body/pussy/briefs1.jpg''">itchy</a> from arousal.</font>'
-	elseif pcs_horny < 90 and $pantyworntype = 'none':
-		$stat_msg += '<BR><font color = #DB7093>You are a little nervous, feeling nice between your legs <a href="exec:view''images/pc/body/pussy/briefs1a.jpg''">itchy</a> from arousal.</font>'
-	elseif $pantyworntype ! 'none':
-		$stat_msg += '<BR><font color = #FF1493>You can''t stop thinking about sex, between your legs you are <a href="exec:view''images/pc/body/pussy/briefs2.jpg''">soaked</a> from your juices.</font>'
-	else
-		$stat_msg += '<BR><font color = #FF1493>You can''t stop thinking about sex, between your legs you are <a href="exec:view''images/pc/body/pussy/briefs2a.jpg''">soaked</a> from your juices.</font>'
-	end
-end
-
-if PillToggle = 1 and tabletki > 0:
-	Stabletki += tabletki
-	tabletki = 0
-elseif PillToggle = 0 and Stabletki > 0:
-	tabletki += Stabletki
-	Stabletki = 0
-end
-
-if CondomToggle = 1 and prezik > 0:
-	Sprezik += prezik
-	prezik = 0
-elseif CondomToggle = 0 and Sprezik > 0:
-	prezik += Sprezik
-	Sprezik = 0
-end
-
-if smoker >= 20:
-	if smokerNeed > 0:
-		if siga > 0:
-			$stat_msg += '<BR><a href="exec:gs ''shortgs'',''smoker''"><font color="red"><b>You want to smoke. You have <<siga>> cigarettes left.</b></font></a><BR>'
-		else
-			$stat_msg += '<BR><a href="exec:gs ''shortgs'',''smoker''"><font color="red"><b>You want to smoke, but you have no cigarettes left.</b></font></a><BR>'
-		end
-	else
-		if siga > 0:
-			$stat_msg += '<BR><a href="exec:gs ''shortgs'',''smoker''"><font color=#0064FF><b>You have <<siga>> cigarettes left.</b></font></a><BR>'
-		else
-			$stat_msg += '<BR><font color=#0064FF><b>You feel like you should get some cigarettes.</b></font><BR>'
-		end
-	end
-elseif siga > 0:
-	$stat_msg += '<BR><a href="exec:gs ''shortgs'',''smoker''"><font color=#0064FF><b>You have <<siga>> cigarettes.</b></font></a><BR>'
-end
-
-if smokeHour = hour and smokeday = day and smokeminut >= minut:$stat_msg += '<BR><font color="green">You are smoking a cigarette.</font><BR>'
-
-if cheatNoSweat = 0:
-	if pcs_sweat < 0 : pcs_sweat = 0
-	if pcs_sweat > 69 : pcs_sweat = 69
-	jump 'statDswt<<pcs_sweat/10>>'
-	:statDswt0
-		if arrsize('sparrvol') = 0 : $stat_msg += '<BR><b><font color="green">You are sparkling clean.</font></b>'
-		jump 'statDswtEnd'
-	:statDswt1
-		jump 'statDswtEnd'
-	:statDswt2
-		$stat_msg += '<BR><font color="brown">You''re sweating.</font><BR>'
-		jump 'statDswtEnd'
-	:statDswt3
-		$stat_msg += '<BR><font color="red">You are a little smelly.</font><BR>'
-		jump 'statDswtEnd'
-	:statDswt4
-		$stat_msg += '<BR><font color="red">You stink.</font><BR>'
-		jump 'statDswtEnd'
-	:statDswt5
-		$stat_msg += '<BR><b><font color="red">You really stink.</font></b><BR>'
-		jump 'statDswtEnd'
-	:statDswt6
-		$stat_msg += '<BR><b><font color="red">You are dripping wet from sweat and smell like a gym sock.</font></b><BR>'
-		jump 'statDswtEnd'
-
-	:statDswtEnd
-end
-
-if dirtyclothes = 1 and swamp_clothes = 0:
-	if pcs_sweat > 40:
-		$stat_msg +='<br><font color = red>You are <a href="exec:view''images/locations/gadukino/hunters/dirtyclothes1.jpg''">covered</a> from head to toe in the mud.</font><BR>'
-	else
-		$stat_msg +='<br><font color = red>Your <a href="exec:view''images/locations/gadukino/hunters/dirtyclothes2.jpg''">clothes</a> are dirty.</font><BR>'
-	end
-end
-
-if lactate = 1 and night_mode = 0:
-	if lactatemv >= lactatemm-1:
-			$stat_msg += '<BR><font color = black>Your breasts are so full they hurt and a little milk is constantly dribbling out.</font><BR>'
-		elseif lactatemv > lactatemm*9/10:
-			$stat_msg += '<BR><font color = black>Your breasts are firm and full, and starting to hurt from all the milk they contain.</font><BR>'
-		elseif lactatemv > lactatemm*3/4:
-			$stat_msg += '<BR><font color = black>Your breasts feel firm and heavy, full of milk.</font><BR>'
-		elseif lactatemv > lactatemm/2:
-			$stat_msg += '<BR><font color = black>Your breasts are heavy, a cargo of milk inside.</font><BR>'
-		elseif lactatemv > lactatemm/4:
-			$stat_msg += '<BR><font color = black>Your breasts feel a little heavy.</font><BR>'
-		elseif lactatemv > 0:
-			$stat_msg += '<BR><font color = black>Your breasts tingle a little from the feeling of milk production.</font><BR>'
-		else
-			$stat_msg += '<BR><font color = black>Your breasts feel soft and empty.</font><BR>'
-	end
-elseif lactate = 1 and night_mode = 1:
-	if lactatemv >= lactatemm-1:
-			$stat_msg += '<BR><font color = white>Your breasts are so full they hurt and a little milk is constantly dribbling out.</font><BR>'
-		elseif lactatemv > lactatemm*9/10:
-			$stat_msg += '<BR><font color = white>Your breasts are firm and full, and starting to hurt from all the milk they contain.</font><BR>'
-		elseif lactatemv > lactatemm*3/4:
-			$stat_msg += '<BR><font color = white>Your breasts feel firm and heavy, full of milk.</font><BR>'
-		elseif lactatemv > lactatemm/2:
-			$stat_msg += '<BR><font color = white>Your breasts are heavy, a cargo of milk inside.</font><BR>'
-		elseif lactatemv > lactatemm/4:
-			$stat_msg += '<BR><font color = white>Your breasts feel a little heavy.</font><BR>'
-		elseif lactatemv > 0:
-			$stat_msg += '<BR><font color = white>Your breasts tingle a little from the feeling of milk production.</font><BR>'
-		else
-			$stat_msg += '<BR><font color = white>Your breasts feel soft and empty.</font><BR>'
-	end
-end
-
-if Enable_clearcum > 0:
-	gs 'cum_cleanup', 'reset'
-end
-if recuperation = 1:
-	$stat_msg += '<b><font color="red">You are still recovering from major surgery.</font></b>'
-end
-$clear_write = {
-	body_write = 0
-	face_write = 0
-	minut += 10
-	gs '$menu_obnovit'
-	'It takes you 10 minutes to thoroughly wash the obscene "painting" from your body.'
-}
-
-if body_write > 0 or face_write > 0:
-	if body_write > 1 and face_write = 0:
-		$stat_msg += '<BR><a href="exec:dynamic $clear_write"><b><font color = red>Your body is inscribed with derogatory graffiti.</font></b></a>'
-	elseif body_write = 1 and face_write = 0:
-		$stat_msg += '<BR><a href="exec:dynamic $clear_write"><b><font color = red>Your body is an obscene sign.</font></b></a>'
-	elseif body_write = 0 and face_write > 1:
-		$stat_msg += '<BR><a href="exec:dynamic $clear_write"><b><font color = red>Your face is covered with writing obscene epithets.</font></b></a>'
-	elseif body_write = 0 and face_write = 1:
-		$stat_msg += '<BR><a href="exec:dynamic $clear_write"><b><font color = red>On your face humiliating label.</font></b></a>'
-	else
-		$stat_msg += '<BR><a href="exec:dynamic $clear_write"><b><font color = red>Your body and face painted with obscene graffiti.</font></b></a>'
-	end
-end
-
-
-killvar 'cumvolume'
-killvar 'i'
-killvar 'knownguy'
-killvar 'cumcount'
-killvar 'cumowner'
-
-if arrsize('sparrvol') > 0:
-	!!go through every location
-	:locationloop
-		!!start from the freshest load
-		idx = arrsize('sparrloc')-1
-		:spermitemloop
-			!!if the currently examined load loaction is the location of the current cycle, execute
-			if sparrloc[idx] = i:
-				!!setting the age of the current load
-				!! 0: mouth
-				!! 1: in this hour
-				!! 2: in four hours
-				!! 3: at least five hours ago
-				!! 4: in body (pussy or ass)
-				!! 5: no more than 12 hours in condom
-				!! 6: no more than 48 hours in condom
-				!! 7: more than two days old, in condom
-				if i = 12:
-					j = 0
-				elseif i = 17:
-					if sparrage[idx] <= 12:
-						j = 5
-					elseif sparrage[idx] <= 48:
-						j = 6
-					else
-						j = 7
-					end
-				elseif i = 0 or i = 3:
-					j = 4
-				else
-					if sparrage[idx] <= 1:
-						j = 1
-					elseif sparrage[idx] <= 5:
-						j = 2
-					else
-						j = 3
-					end
-				end
-				
-				cumvolume['<<i>>:<<j>>'] += sparrvol[idx]
-				if sparrvol[idx] > 0:
-					if sparridt[idx] = 0:
-						!!unknown partner
-						cumcount['<<i>>:<<j>>'] += 1
-					elseif sparridt[idx] = 1:
-						!!known partner
-						!!storing the name of the cum owner (format: $cumowner[<cum location>:<age of cum>:<index of cum owner>])
-						if knownguy['<<i>>:<<j>>'] > 0:
-							gchk = 0
-							:sameguycheck
-							if $cumowner['<<i>>:<<j>>:<<gchk>>'] ! $sparrnam[idx] and gchk <= knownguy['<<i>>:<<j>>']:gchk += 1 & jump 'sameguycheck'
-							if gchk > knownguy['<<i>>:<<j>>']:
-								$cumowner['<<i>>:<<j>>:<<knownguy[''<<i>>:<<j>>'']>>'] = $sparrnam[idx]
-								knownguy['<<i>>:<<j>>'] += 1
-								cumcount['<<i>>:<<j>>'] += 1
-							end
-						else
-							$cumowner['<<i>>:<<j>>:<<knownguy[''<<i>>:<<j>>'']>>'] = $sparrnam[idx]
-							knownguy['<<i>>:<<j>>'] += 1
-							cumcount['<<i>>:<<j>>'] += 1
-						end
-					end
-				end
-			end
-		if idx > 0:idx -= 1 & jump 'spermitemloop'
-	if i < 18:i += 1 & jump 'locationloop'
-	killvar 'i'
-	killvar 'idx'
-	killvar 'j'
-end
-
-!!Clearing cum location array before positive entries are applied below
-killvar 'cumloc'
-
-i = 0
-:cumlocloop
-	if i = 0: 
-		$txtloc = 'your <a href="exec:view''images/pc/body/cum/creampie/cumpussy'+rand(1,14)+'.jpg''">pussy</a>'
-	elseif i = 1: 
-		$txtloc = 'your <a href="exec:view''images/pc/body/cum/cumpussy/cumpus'+rand(1,4)+'.jpg''">labia</a>'
-	elseif i = 2: 
-		$txtloc = 'the front of your panties'
-	elseif i = 3: 
-		$txtloc = 'your <a href="exec:view''images/pc/body/cum/cumanal/cumanal'+rand(1,11)+'.jpg''">ass</a>'
-	elseif i = 4: 
-		$txtloc = 'your <a href="exec:view''images/pc/body/cum/cumass/cumass'+rand(1,6)+'.jpg''">butt</a>'
-	elseif i = 5: 
-		$txtloc = 'the back of your panties'
-	elseif i = 6: 
-		$txtloc = 'your <a href="exec:view''images/pc/body/cum/cumclothes/'+rand(1,3)+'.jpg''">clothes near your groin</a>'
-	elseif i = 7: 
-		$txtloc = 'your <a href="exec:view''images/pc/body/cum/cumclothes/cumclothes'+rand(1,21)+'.jpg''">clothes</a>'
-	elseif i = 8: 
-		$txtloc = 'your back'
-	elseif i = 9: 
-		$txtloc = 'your legs'
-	elseif i = 10: 
-		$txtloc = 'your arms'
-	elseif i = 11: 
-		if pcs_haircol = 0:
-			$cum_face_image = 'brown/'
-			$cum_face_image += rand(1, 31)
-		elseif pcs_haircol = 1:
-			$cum_face_image = 'black/'
-			$cum_face_image += rand(1, 23)
-		elseif pcs_haircol = 2:
-			$cum_face_image = 'red/'
-			$cum_face_image += rand(1, 19)
-		elseif pcs_haircol = 3:
-			$cum_face_image = 'blonde/'
-			$cum_face_image += rand(1, 25)
-		elseif pcs_haircol > 3:
-			$cum_face_image = 'custom/'
-			$cum_face_image += rand(1, 20)
-		end
-		$txtloc = 'your <a href="exec:view''images/pc/body/cum/cumface/<<$cum_face_image>>.jpg''">face</a>'
-		killvar 'cum_face_image'
-	elseif i = 13: 
-		$txtloc = 'your hands'
-	elseif i = 14: 
-		$txtloc = 'your <a href="exec:view''images/pc/body/cum/cumbelly/cumbelly'+rand(1,12)+'.jpg''">stomach</a>'
-	elseif i = 15: 
-		$txtloc = 'your <a href="exec:view''images/pc/body/cum/cumtits/cumtits'+rand(1,19)+'.jpg''">breasts</a>'
-	elseif i = 16: 
-		$txtloc = 'your hair</a>'
-	elseif i = 17: 
-		$txtloc = 'in your vagina in a slipped condom'
-	else
-		$txtloc = 'the gusset of your panties</a>'
-	end
-	
-	j = 0
-	:ageloop
-		if cumvolume['<<i>>:<<j>>'] > 0:
-			!!Cum locations set for checking npc reactions
-			cumloc[i] = 1
-			!!amount setting
-			if cumvolume['<<i>>:<<j>>'] > 250:
-				!! 25 ml, about four-five load, gushing
-				$txtamount = 'Enormous '
-			elseif cumvolume['<<i>>:<<j>>'] > 100:
-				!! 10 ml, about two load, flowing
-				$txtamount = 'Huge '
-			elseif cumvolume['<<i>>:<<j>>'] >= 20:
-				!! 2 ml, seeping out
-				$txtamount = 'Decent '
-			else
-				!! residue amount, no leakage
-				$txtamount = 'Small '
-			end
-			
-			!! if sperm age stage is 4, it means inside the body
-			if j = 4:
-				if (vibratorIN = 1 and i = 0) or (analplugin = 1 and i = 3):
-					$txtproxy = 'being plugged in '
-				elseif i = 0 and cumvolume['<<i>>:<<j>>'] < pcs_vag*5:
-					$txtproxy = 'staying inside of '
-				elseif i = 3 and pcs_ass <= 25:
-					$txtproxy = 'staying inside of '
-				else
-					if cumvolume['<<i>>:<<j>>'] > 250:
-						$txtproxy = 'gushing out of '
-					elseif cumvolume['<<i>>:<<j>>'] > 100:
-						$txtproxy = 'flowing out of '
-					elseif cumvolume['<<i>>:<<j>>'] >= 40:
-						$txtproxy = 'seeping out of '
-					else
-						$txtproxy = 'staying inside of '
-					end	
-				end
-			elseif j >= 5:
-			!! if sperm age stage is over 4, meaning in condom
-				if j = 5:
-					$txtproxy = 'buried '
-				elseif j = 6:
-					$txtproxy = 'marinating '
-				else
-					$txtproxy = 'rotting '
-				end
-				if cumcondslip_deep > (vagina / 2): $txtproxy += 'deep '
-			elseif j < 4 and j > 0:
-				!!amount setting
-				if cumvolume['<<i>>:<<j>>'] > 160:
-					!! 10 ml, about two load, flowing
-					$txtproxy = 'coating '
-				elseif cumvolume['<<i>>:<<j>>'] > 40:
-					!! 2 ml, seeping out
-					$txtproxy = 'covering '
-				else
-					!! residue amount, no leakage
-					$txtproxy = 'spattering '
-				end
-				if j = 1:
-					$txtproxy += 'wetly '
-				elseif j = 2:
-					$txtproxy += 'dryly '
-				else
-					$txtproxy += 'powderly '
-				end
-			end
-			
-			$txtperson = ''
-			if cumcount['<<i>>:<<j>>'] = 0:
-				$txtiscum = 'some whitish substance '
-			else
-				$txtiscum = 'cum'
-				if cumcount['<<i>>:<<j>>'] = knownguy['<<i>>:<<j>>']:
-				!! everyone is known (one or more)
-					if knownguy['<<i>>:<<j>>'] = 1:
-						$txtperson = $npc_usedname[$cumowner['<<i>>:<<j>>:0']] + ' '
-					else
-						kmax = 0
-						:nullocator1
-						if $cumowner['<<i>>:<<j>>:<<kmax>>'] ! '':kmax += 1 & jump 'nullocator1'
-						kmax -= 1
-						k = 0
-						:knownloop
-							$txtperson += $npc_usedname[$cumowner['<<i>>:<<j>>:<<k>>']]
-						if k < kmax-1:$txtperson += ', ' & k += 1 & jump 'knownloop'
-						k += 1
-						$txtperson += ' and ' + $npc_usedname[$cumowner['<<i>>:<<j>>:<<k>>']] + ' '
-					end
-				elseif knownguy['<<i>>:<<j>>'] = 0:
-				!! no one is known (one or more)
-					if cumcount['<<i>>:<<j>>'] = 1:
-						$txtperson += 'some guy '
-					else
-						$txtperson += 'some guys '
-					end
-				else
-				!! there are known and unknown guys in the mix
-					if knownguy['<<i>>:<<j>>'] = 1:
-						$txtperson = $npc_usedname[$cumowner['<<i>>:<<j>>:0']] + ' and some guy'
-					else
-						kmax = 0
-						:nullocator2
-						if $cumowner['<<i>>:<<j>>:<<kmax>>'] ! '':kmax += 1 & jump 'nullocator2'
-						kmax -= 1
-						k = 0
-						:mixloop
-							$txtperson += $npc_usedname[$cumowner['<<i>>:<<j>>:<<k>>']] + ', '
-						if k < kmax: k += 1 & jump 'mixloop'
-						$txtperson += 'and some guy'
-					end
-					if cumcount['<<i>>:<<j>>'] - knownguy['<<i>>:<<j>>'] > 1:
-						$txtperson += 's '
-					else
-						$txtperson += ' '
-					end
-				end
-			end
-			if j <= 4 and trt_cumeater = 1 and $txtiscum = 'cum':$txtiscum = '<a href="exec:gs ''cum_manage'', ''cumeater'', <<i>>"><font color=#0064FF>' + $txtiscum + '</font></a>'
-			$txtiscum += ' from '
-			if i = 0 and j = 4 and vibratorIN = 0 and pcs_vag*10 < cumvolume['<<i>>:<<j>>'] and cumvolume['<<i>>:<<j>>'] >= 20:
-				if $pantyworntype ! 'none':
-					$stat_msg += '<BR><b><font color="red">' + $txtamount + 'amounts of ' + $txtiscum + $txtperson + 'is ' + $txtproxy + $txtloc + ' into your panties.</font></b>'
-				else
-					$stat_msg += '<BR><b><font color="red">' + $txtamount + 'amounts of ' + $txtiscum + $txtperson + 'is ' + $txtproxy + $txtloc + ' down your legs.</font></b>'
-				end
-			elseif sparragestage >= 5:
-				if cumcondslip_aware > 0:$stat_msg += '<BR><b><font color="red">' + $txtamount + 'amounts of ' + $txtiscum + $txtperson + 'is ' + $txtproxy + $txtloc + '.</font></b>'
-			elseif j ! 0:
-				$stat_msg += '<BR><b><font color="red">' + $txtamount + 'amounts of ' + $txtiscum + $txtperson + 'is ' + $txtproxy + $txtloc + '.</font></b>'
-			else
-				$stat_msg += '<BR><b><font color="red">Your breath smells like sperm.</font></b>'
-			end
-		end
-	if j < 7: j+=1 & jump 'ageloop'
-if i < 18: i+=1 & jump 'cumlocloop'
-killvar 'i'
-killvar 'j'
-killvar 'txtperson'
-killvar 'k'
-killvar 'kmax'
-killvar 'txtamount'
-killvar 'txtiscum'
-killvar 'txtperson'
-killvar 'txtproxy'
-killvar 'txtloc'
-killvar 'cumvolume'
-killvar 'cumcount'
-killvar 'knownguy'
-killvar 'cumowner'
-
-
-if $clothingworntype = 'nude' and lactatemess > 0:
-	if lactatemess < 3:
-		$stat_msg += '<BR><font color = black>You have a little milk residue around your nipples.</font>'
-	elseif lactatemess < 7:
-		$stat_msg += '<BR><font color = black>You have a lot of milk residue around your nipples.</font>'
-	else
-		$stat_msg += '<BR><font color = black>Your breasts are drenched with milk residue.</font>'
-	end
-elseif lactatemess > 0:
-	if lactatemess < 3:
-		$stat_msg += '<BR><font color = black>You have tiny wet spots on your clothes above your nipples.</font>'
-	elseif lactatemess < 7:
-		$stat_msg += '<BR><font color = black>Milk has soaked through your clothes and made visible circles on your breasts.</font>'
-	else
-		$stat_msg += '<BR><font color = black>Your shirt is drenched with milk from your breasts.</font>'
-	end
-end
-
-if Gerpes >= 10 and GenHerpes = 1:
-	$stat_msg += '<BR><b><font color="red">On your pussy sores have appeared. This is genital herpes.</font></b>'
-elseif Gerpes >= 5 and GenHerpes =1:
-	$stat_msg += '<BR><b><font color="red">Your pussy is flushed and highly itchy. This is genital herpes.</font></b>'
-elseif Gerpes >= 3 and Orerpes = 1:
-	$stat_msg += '<BR><b><font color="red">You have cold Sores on your lips. these are signs of genital herpes.</font></b>'
-end
-if Gerpes >= 20 and GenHerpes =1:$stat_msg += '<BR> <b><font color="red">The sores also cover your ass.</font></b>'
-
-if Sifilis >= 50:
-	$stat_msg += '<BR><b><font color="red">Syphilitic rashes cover your whole body.</font></b>'
-elseif Sifilis >= 21:
-	$stat_msg += '<BR><b><font color="red">You have a single big, hard sore on the lip.</font></b>'
-end
-
-if Triper > 2:$stat_msg += '<BR><b><font color="red">From your vagina a white discharge comes out strong and stinging when urinating. Also from your vagina there''s a hard and nasty smell.</font></b>'
-if Kandidoz > 30:$stat_msg += '<BR><b><font color="red">You have thrush.</font></b>'
-if SLomka > 0:$stat_msg += '<BR><b><font color="red">You are very weak and hurt to the bone. You''re in withdrawal.</font></b>'
-if narkday ! daystart and narkoman = 1:$stat_msg += '<BR><b><font color="red">You are very weak and hurt to the bone. Urgently need pale lady.</font></b>'
-if fingal > 0:$stat_msg += '<BR><b><font color="red">You have a black eye.</font></b>'
-
-! WD: Bimbo look
-if bimbolevel > 0: $stat_msg += '<BR><<$bimbostatus>>'
-
-if $clothingworntype = 'nude':
-	if $pantyworntype ! 'none':
-		if $braworntype = 'none':
-			$stat_msg += '<BR><b><font color = red>You are only wearing your panties and your boobs sway invitingly as you walk.</font></b>'
-		else
-			$stat_msg += '<BR><b><font color = red>You are only wearing your underwear.</font></b>'
-		end
-	else
-		if $braworntype ! 'none':
-			$stat_msg += '<BR><b><font color = red>You are only wearing your bra, leaving your pussy and ass completely exposed.</font></b>'
-		else
-			if pcs_inhib < 5:
-				$stat_msg += '<BR><b><font color = red>You are completely naked, and it makes you feel nervous and ashamed.</font></b>'
-			elseif pcs_inhib < 20:
-				$stat_msg += '<BR><b><font color = orange>You are completely naked, you''re not too comfortable with nudity but it is a little exciting.</font></b>'
-			elseif pcs_inhib >= 90:
-				$stat_msg += '<BR><b><font color=#0064FF>You are completely naked, which is far better than having to wear clothes.</font></b>'
-			else
-				$stat_msg += '<BR><b><font color = #FF00FF>You are completely naked. It''s exciting and you feel tingly inside.</font></b>'
-			end
-		end
-	end
-elseif $pantyworntype = 'none' and $clothingworntype ! 'swimwear':
-	if CloStyle = 4:
-		$stat_msg += '<BR><b><font color="red">you are not wearing panties, but you are dressed as a hooker, so that''s hardly surprising.</font></b>'
-	elseif PCloBimbo = 1 or bimbolevel > 0 and PCloSkirt > 3:
-		$stat_msg += '<BR><b><font color = #FF00FF>You like, totally forgot to put on any panties. You are such a bimbo.</font></b>'
-	elseif PCloSkirt > 3:
-		if pcs_inhib > 50:
-			$stat_msg += '<BR><b><font color=#0064FF>You feel liberated not wearing panties as your naked ass flashes from under your short skirt.</font></b>'
-		else
-			$stat_msg += '<BR><b><font color="red">Your face is flushed with shame, you are not wearing panties and your naked ass flashes from under your short skirt.</font></b>'
-		end
-	elseif $clothingworntype ! 'nude':
-		$stat_msg += '<BR><b><font color="red">You are not wearing panties.</font></b>'
-	elseif towel = 1:
-		$stat_msg += '<BR><b><font color = red>Your naked body is covered only by a short towel.</font></b>'
-	end
-elseif PCloBimbo = 1:
-	$stat_msg += '<BR><b><font color = #FF00FF>You are dressed as a bimbo</font></b>'
-end
-!$stat_msg += '<BR>'
-
-if mosol >= 50:
-	$stat_msg += '<BR><b><font color="red">Your pussy itches a great deal and is affecting your mood, you should use some cream or stop wearing pants without underwear.</font></b>'
-elseif mosol >= 30:
-	$stat_msg += '<BR><b><font color="red">Your pussy feels a little itchy, it seems to be from rubbing against your clothing.</font></b>'
-end
-
-if analplugIN = 1:$stat_msg += '<BR><b><font color="red">You have a butt plug inserted in your ass.</font></b>'
-if vibratorin = 1:$stat_msg += '<BR><b><font color="red">You have a vibrator inserted in your vagina.</font></b>'
-!$stat_msg += '<BR>'
-if young_shop_work = 1:
-	if hour = 16 and minut <= 5 and week < 6 and inWorkYoungShop = 0:
-		'You are late for work at Pussy-Cats.'
-	elseif hour = 16 and week < 6 and inWorkYoungShop = 0 and misscheck ! daystart:
-		misscheck = daystart
-		young_shop_miss += 1
-		$stat_msg += '<BR><b><font color="red">You missed work.</font></b>'
-	elseif (hour = 14 or hour = 15) and week < 6:
-		$stat_msg += '<BR><b><font color="red">You start work at Pussy-Cats today at 16:00.</font></b>'
-	end
-end
-
-if young_shop_work1 = 1:
-	if hour = 9 and minut <= 5 and week >= 6 and inWorkYoungShop = 0:
-		'You are late for work at Pussy-Cats.'
-	elseif hour = 9 and week >= 6 and inWorkYoungShop = 0 and misscheck ! daystart:
-		misscheck = daystart
-		young_shop_miss += 1
-		$stat_msg += '<BR><b><font color="red">You missed work.</font></b>'
-	elseif (hour = 7 or hour = 8) and week >= 6:
-		$stat_msg += '<BR><b><font color="red">By 9:00 you have to be at Pussy-Cats to start work.</font></b>'
-	end
-end
-
-if young_shop_work2 = 1:
-	if hour = 9 and minut <= 5 and week < 6 and inWorkYoungShop = 0:
-		'You are late for work at Pussy-Cats.'
-	elseif hour = 9 and week < 6 and inWorkYoungShop = 0 and misscheck ! daystart:
-		misscheck = daystart
-		young_shop_miss += 1
-		$stat_msg += '<BR><b><font color="red">You missed work.</font></b>'
-	elseif (hour = 7 or hour = 8) and week < 6:
-		$stat_msg += '<BR><b><font color="red">By 9:00 you have to be at Pussy-Cats to start work.</font></b>'
-	end
-end
-
-if workrin = 1:
-	if week = 2 or week = 4 or week = 6:
-		if hour = 7:$stat_msg += '<BR><b><font color="red">At 8 o''clock you start work on the market.</font></b>'
-		if hour = 8:$stat_msg += '<BR><b><font color="red">You need to work on the market now.</font></b>'
-	end
-end
-
-if frost > 0:
-	if frost <= 5:
-		$stat_msg += '<BR><b><font>You are a little chilly.</font></b>'
-	elseif frost < 11:
-		$stat_msg += '<BR><b><font color="red">You are cold.</font></b>'
-	else
-		$stat_msg += '<BR><b><font color="red">You are freezing.</font></b>'
-	end
-end
-
-if sick > 0:
-	if sick = 1:
-		$stat_msg += '<BR><b><font color="red">This is not good, a tickle in the throat and a little runny nose.</font></b>'
-	elseif sick < 24:
-		$stat_msg += '<BR><b><font color="red">You have chills. You nose is running and throat is raw, you cough and sneeze - it looks like you got a cold.</font></b>'
-	elseif sick < 48:
-		$stat_msg += '<BR><b><font color="red">You have a fever. Your nose is clogged, it hurts to swallow - throat aches. You continually cough and sneeze - it looks like your cold is pretty bad.</font></b>'
-	elseif sick < 72:
-		$stat_msg += '<BR><b><font color="red">You have a high fever. You have a stuffy nose, sore head and throat, your coughing badly - it looks like you got a strong cold. Maybe it''s the flu.</font></b>'
-	else
-		$stat_msg += '<BR><b><font color="red">You toss in the heat. You have a stuffy nose, headache and ache to the bone. Your throat is inflamed and very sore. You think you''re going to cough up a lung - it looks like you are seriously ill, or maybe it''s just a sore throat.</font></b>'
-	end
-end
-
-if hypnoAddict > 0:
-	if hypnoWithdrawal = 1:
-		if missCum >= timeTresh:
-			$stat_msg += '<BR><b><font color="red">You really miss the feeling of sperm in your body, you are strangely craving it. You should talk to your therapist about it.</font></b>'
-		else
-			$stat_msg += '<BR><b><font color="red">You feel like talking to your therapist. You miss your sessions.</font></b>'
-		end
-	elseif hypnoWithdrawal = 2:
-		if missCum >= timeTresh:
-			$stat_msg += '<BR><b><font color="red">You want some sperm inside of you NOW! You have to talk to your therapist, immediately.</font></b>'
-		else
-			$stat_msg += '<BR><b><font color="red">You need to talk to your therapist. You feel unbalanced without your sessions.</font></b>'
-		end
-	else
-		if missCum >= timeTresh:$stat_msg += '<BR><b><font color="magenta">You miss the feeling of sperm in your body and you feel moody.</font></b>'
-	end
-end
-
-if $mudnerd ! '':$stat_msg += '<BR><<$mudnerd>>'
-
-if home_owned[1] > 0:
-	$streetev_home = 'your apartment'
-elseif tanwork = 1:
-	$streetev_home = 'Tanya''s apartment'
-elseif student > 0:
-	$streetev_home = 'your dorm'
-elseif home_owned[2] = 1:
-	$streetev_home = 'outside your apartment block'
-else
-	$streetev_home = 'the train station'
-end
-
-if hour < meethour[0] and svidanie[0] = 1:$stat_msg += '<BR><<$loverdesc[0]>> will be waiting for you near <<$streetev_home>> at <<meethour[0]>>:00.'
-if hour = meethour[0] and svidanie[0] = 1:$stat_msg += '<BR><b><font color="red"><<$loverdesc[0]>> is waiting for you by <<$streetev_home>>.</font></b>'
-if meetday[0] < daystart and svidanie[0] = 1:pcs_lovers_rel[0] -= 10 & svidanie[0] = 0
-
-if hour < meethour[1] and svidanie[1] = 1:$stat_msg += '<BR><<$loverdesc[1]>> will be waiting for you near <<$streetev_home>> at <<meethour[1]>>:00.'
-if hour = meethour[1] and svidanie[1] = 1:$stat_msg += '<BR><b><font color="red"><<$loverdesc[1]>> is waiting for you by <<$streetev_home>>.</font></b>'
-if meetday[1] < daystart and svidanie[1] = 1:pcs_lovers_rel[1] -= 10 & svidanie[1] = 0
-
-if hour < meethour[2] and svidanie[2] = 1:$stat_msg += '<BR><<$loverdesc[2]>> will be waiting for you near <<$streetev_home>> at <<meethour[2]>>:00.'
-if hour = meethour[2] and svidanie[2] = 1:$stat_msg += '<BR><b><font color="red"><<$loverdesc[2]>> is waiting for you by <<$streetev_home>>.</font></b>'
-if meetday[2] < daystart and svidanie[2] = 1:pcs_lovers_rel[2] -= 10 & svidanie[2] = 0
-
-if StrongNarkota > 20:$stat_msg += '<BR><b><font color="red">You are stoned.</font></b>'
-if amphHigh > 0: $stat_msg += '<BR><b><font color="red">You feel a little wired.</font></b>'
-
-if alko > 2:
-	if alko < 6:
-		slut_bonus = 0
-		$stat_msg += '<BR><b><font color="red">You feel a little buzz from drinking.</font></b>'
-	elseif alko < 9:
-		slut_bonus = 25
-		$stat_msg += '<BR><b><font color="red">You''re drunk.</font></b>'
-	else
-		slut_bonus = 50
-		$stat_msg += '<BR><b><font color="red">You''re wasted.</font></b>'
-	end
-else
-	killvar 'slut_bonus'
-end
-
-if StoryLine = 1:
-	if day = nyp_day and month = 12 and SchoolAtestat = 0 and hour >= 5 and hour <= 14 and StoryLine = 1:$stat_msg += '<BR>At 14:00 your school''s New Year''s party will start.'
-
-	if sisboyday + 1 = daystart and hour < 19 and (npc_QW['A33'] = 3 or npc_QW['A33'] = 5 or npc_QW['A33'] = 7 or (npc_QW['A33'] = 9 and sisboytrioQW ! 1)):$stat_msg += '<BR>' & $stat_msg += '<BR>You promised your sister not to go into your room at 18:00.'
-	if sisboyday + 1 = daystart and hour < 19 and sisboytrioQW = 1:$stat_msg += '<BR>' & $stat_msg += '<BR>You promised your sister to meet her in your room at 18:00.'
-
-	if week = 6 and hour < 9 and detention_set = 1:$stat_msg += '<BR><b>You have a detention this morning and must be at school between 8 and 9.</b>'
-	if gopnik_initiation = 1 and gopnik_initiation_day = daystart and hour > 15 and hour < 21: $stat_msg += '<BR><b>Meet Lena and Lera at the apartment garages at eight</b>'
-	if nerd_night_game = 1 and nerd_night_game_day = daystart and hour > 15 and hour < 21: $stat_msg += '<BR><b>Join nerds at the community center at eight</b>'
-end
-
-if model > 0 and model_week = (daystart - week) / 7 and model_job_week >= 2:
-	$stat_msg += '<BR><b>You have no more modelling jobs available this week.</b>'
-elseif model > 0 and model_week < (daystart - week) / 7 and model_job_week = 1:
-	$stat_msg += '<BR><b>You can get paid for 1 more modelling job this week.</b>'
-elseif model > 0 and model_week < (daystart - week) / 7 and model_job_week < 1:
-	$stat_msg += '<BR><b>You can get paid for 2 modelling jobs this week.</b>'
-end
-if pornstack > 0:
-	aa = 0
-	:pfilmtime
-	if aa < 200 and pfilmday[aa] = 0: aa += 1 & jump 'pfilmtime'
-end
-if pornstack > 0 and pfilmday[0] = 0:
-	if pfilmday[1] = 0:
-		$stat_msg += '<br><b>You will star in another porno in <<aa>> days.</b>'
-	else
-		$stat_msg += '<br><b>You have a porno shoot scheduled tomorrow.</b>'
-	end
-end
-if pfilmday[0] > 0:
-	if pornnow = 1:
-		$stat_msg += '<br><b>You are at a porn shooting.</b>'
-	else
-		if hour < 11: $stat_msg += '<br><b>You are expected in the porno studio at 10:00.</b>'
-		if hour >= 11 and hour < 13: $stat_msg += '<br><b>You should be at the porno studio, shooting!</b>'
-		if hour >= 13: $stat_msg += '<br><b>You missed a scheduled porno shoot!</b>'
-	end
-end
-if pornmiss = 1: $stat_msg += '<br><b>You missed a scheduled porno shoot!</b>'
-if prodcosttrue > 0: $stat_msg += '<br><b>You owe to the porn studio <<prodcost>>?</b>'
-if firstkasting > 0 and pfilmNO < 1: $stat_msg += '<br><b>You can contract '+iif(pornstack < 9,'up to <<10-pornstack>> porn shoots','<<10-pornstack>> porn shoot')+' at the Porn Studio.</b>'
-if hour < 22 and week >= 2 and week <= 4 and workKafe = 1:$stat_msg += '<BR><b><font color="red">Today you have a shift at The Roadhouse cafe starting at 11:00.</font></b>'
-if hour < 17 and week < 5 and workSec >= 1 or hour < 17 and week < 5 and workSec = 1:$stat_msg += '<BR><b><font color="red">Today you have a shift as a secretary at Titran-Express from 9:00 to 17:00</font></b>'
-if hour < 17 and week < 5 and PersSecWork = 1:$stat_msg += '<BR><b><font color="red">Today you have a shift as a secretary at Diner Bystroeshka from 9:00 to 17:00</font></b>'
-if hour < 20 and week => 1 and week <= 5 and age < 18 and workFabrika = 1:$stat_msg += '<BR><b><font color = red>Today you have work in the garment factory in Pavlovsk. Shift starts at 16:00.</font></b>'
-if hour < 16 and week => 1 and week <= 5 and age >= 18 and workFabrika = 1:$stat_msg += '<BR><b><font color = red>Today you have work in the garment factory in Pavlovsk. Shift starts at 8:00.</font></b>'
-if hour < 16 and week > 1 and week <= 5 and workhosp = 1:$stat_msg += '<BR><b><font color="red">You work as a nurse in the Pavlovsk clinic. Your shift starts at 8:00.</font></b>'
-if hour < 10 and worksalon = 1 and (week = 1 or week = 3 or week = 5):$stat_msg += '<BR><b><font color = red>Today you have work as masseuse in beauty salon. Shift starts at 9:00.</font></b>'
-if leonidVisit = 1 and hour < 21 and hour > 6: $stat_msg += '<br><b>You have to serve Leonid at 20:00 in his Pavlovsk office!</b>'
-
-gs 'brother', 'brotherSexCount'
-
-
-!!zero checks marriage
-proverka1 = 0
-proverka2 = 0
-proverka3 = 0
-proverka4 = 0
-proverka5 = 0
-
-if boletus + bilberry > 0:
-	if boletus + bilberry >= 10:
-		$stat_msg +='<br><b><font color = Olive>You have a full basket. </b></font> '
-	else
-		$stat_msg +='<br><b><font color = Olive>In Your basket: </b></font>'
-	end
-	if boletus > 0:$stat_msg +='Mushrooms: <b><<boletus>></b> kg. '
-	if bilberry > 0:$stat_msg +='Berries: <b><<bilberry>></b> kg. '
-end
-
-if disable_LoadSave = 0:
-	$stat_msg += '<br><br><center><a href="exec:savegame ''quicksave.sav'' && pl''Quicksave Done''"><img height = 35 src="images/system/icon/stat_Qsave.png"></a>  <a href="exec:savegame"><img height = 35 src="images/system/icon/stat_save.png"></a>  <a href="exec:opengame"><img height = 35 src="images/system/icon/stat_load.png"></a>  <a href="exec:if input(''Input Anything to confirm Quick Load'') ! null: opengame ''quicksave.sav''"><img height = 35 src="images/system/icon/stat_Qload.png"></a></center>'
-elseif disable_LoadSave = 2:
-	$stat_msg += '<br><br><a href="exec:savegame ''quicksave.sav'' && pl''Quicksave Done''">Quick Save</a>  <a href="exec:savegame">Save</a>  <a href="exec:opengame">Load</a>  <a href="exec:if input(''Input Anything to confirm Quick Load'') ! null: opengame ''quicksave.sav''">Quick Load</a>'
-end
-
-$stat_android +=  ' <a href="exec:savegame ''quicksave.sav'' && pl''Quicksave Done''">Q.S</a>  <a href="exec:if input(''Input Anything to confirm Quick Load'') ! null: opengame ''quicksave.sav''">Q.L</a>'
-
-
-if Enable_statimg_loc = 2:
-	$stat_msg += '<br><<$stat_imgtool_msg>><br><<$stat_imgextra_msg>>'
-end
-
-killvar 'stat_imgtool_msg'
-killvar 'stat_imgextra_msg'
-
-if Enable_statfsize > 0: $stat_msg += '</font>' & !disable this, all texts comes from pl will have the same font size, like[time]
-if Enable_faceturn = 1:	view FUNC('$face_image')
-if Enable_Android = 0:
-	pl '<<$stat_msg>>'
-else
-	'<<$stat_android>>'
-	$stat_msg = 'Android mode, <a href="exec:gs ''$menu_obnovit''">Refresh</a><<$stat_msg>>'
-end
-
---- stat_display ---------------------------------
-
+# stat_display
+
+gs 'outdoors', 'main'
+
+!!Sex stat update
+stat['mast'] += mastr & mastr = 0
+stat['hj'] += hj & hj = 0
+stat['bj'] += bj & bj = 0
+stat['vaginal'] += sex & sex = 0
+stat['anal'] += anal & anal = 0
+stat['cuni'] += kuni & kuni = 0
+stat['anal_strap_give'] += pegging & pegging = 0
+
+!!!!!!!!!!!!!!!!!!!!!
+!!!Pain calculation!!!
+!!!!!!!!!!!!!!!!!!!!!
+
+paintmp1 = func('shortgs','modul',pain['head'],pain['hair'],pain['ears'],pain['eyebrows'],pain['eyes'],pain['cheeks'],pain['nose'],pain['mouth'])
+paintmp2 = func('shortgs','modul',pain['tummy'],pain['pubic'],pain['vaginal'],pain['labia'],pain['clitoris'],pain['urethra'],pain['cervix'],pain['lips'])
+paintmp3 = func('shortgs','modul',pain['throat'],pain['asscheeks'],pain['asshole'],pain['hips'],pain['thighs'],pain['legL'],pain['legR'],pain['feet'])
+paintmp4 = func('shortgs','modul',pain['toes'],pain['shoulders'],pain['armL'],pain['armR'],pain['hands'],pain['fingers'],pain['chest'],pain['breasts'])
+paintmp5 = func('shortgs','modul',pain['tongue'],pain['neck'],pain['back'],pain['nipples'],pain['ribs'],vgape * 8, agape * 10,spanked * 24)
+
+pain['total'] = func('shortgs','modul',paintmp1,paintmp2,paintmp3,paintmp4,paintmp5)
+
+if pain['total'] > 100: pain['total'] = 100
+pain['damage'] = pain['total']
+pain['relief'] = 0
+
+if alko > 9:
+	pain['relief'] = 70
+elseif alko > 6:
+	pain['relief'] = 40
+elseif alko > 3:
+	pain['relief'] = 15
+end
+
+if StrongNarkota > 0:
+	pain['relief'] = 90
+elseif nark > 0:
+	pain['relief'] = 60
+elseif pain['killer'] > 12 and alko <= 9:
+	pain['relief'] = 50
+end
+
+if pain['relief'] ! 0:
+	if (pain['total'] / pain['relief']) > 0:
+		pain['total'] = pain['total'] / pain['relief']
+	elseif pain['total'] > 0:
+		pain['total'] = 0
+	end
+end
+
+if pain['total'] > 80:
+	if (pcs_health * 5) >= healthmax: pcs_health = pcs_health * 20 / 100
+	if (pcs_mood * 5) >= 100: pcs_mood = pcs_mood * 20 / 100
+elseif pain['total'] > 60:
+	if (pcs_health * 5 / 2) >= healthmax: pcs_health = pcs_health * 40 / 100
+	if (pcs_mood * 5 / 2) >= 100: pcs_mood = pcs_mood * 40 / 100
+elseif pain['total'] > 40:
+	if (pcs_health * 5 / 3) >= healthmax: pcs_health = pcs_health * 60 / 100
+	if (pcs_mood * 5 / 3) >= 100: pcs_mood = pcs_mood * 60 / 100
+elseif pain['total'] > 20:
+	if (pcs_health * 5 / 4) >= healthmax: pcs_health = pcs_health * 80 / 100
+	if (pcs_mood * 5 / 4) >= 100: pcs_mood = pcs_mood * 80 / 100
+elseif pain['total'] > 0:
+	if (pcs_health * 10 / 9) >= healthmax: pcs_health = pcs_health * 90 / 100
+	if (pcs_mood * 10 / 9) >= 100: pcs_mood = pcs_mood * 90 / 100
+end
+
+!!--------------------------pain calculation end--------------------------------
+
+!!update skills and attributes to pcs_ from there _lvl values plus adjustments based on condition
+gs 'stat_sklattrib_lvlset'
+
+!!Sleep variable cap
+if pcs_sleep > 100: pcs_sleep = 100
+
+
+!!!!!!!!!!!!!!!!!!!!!
+!!!Beginning Description!!!
+!!!!!!!!!!!!!!!!!!!!!
+
+!!----------------image Extra messages, start--------------------------
+$stat_imgtool_msg=''
+$stat_imgextra_msg=''
+	
+if Enable_showstatimg = 1 or Enable_statimg_loc > 0:
+	!There are 3 display mode, with toobar / top / bottom, controlled by Enable_statimg_loc
+	if Enable_statimg_face = 0:
+		$stat_imgtool_msg += '<a href="exec:Enable_statimg_face = 1 & gs ''$menu_obnovit''">◇Face</a>'
+	else
+		$stat_imgtool_msg += '<a href="exec:Enable_statimg_face = 0 & gs ''$menu_obnovit''">◆Face</a>'
+		$img_temp = FUNC('$face_image')
+		if $img_temp ! null:  $stat_imgextra_msg += '<a href="exec:view ''<<$img_temp>>''"><img <<$set_statimgh>> src="<<$img_temp>>"></a> '
+	end
+
+	if Enable_statimg_body = 0:
+		$stat_imgtool_msg += ' <a href="exec:Enable_statimg_body = 1 & gs ''$menu_obnovit''">◇Body</a>'
+	else
+		$stat_imgtool_msg += ' <a href="exec:Enable_statimg_body = 0 & gs ''$menu_obnovit''">◆Body</a>'
+		$img_temp = FUNC('$body_image','body')
+		if $img_temp ! null:  $stat_imgextra_msg += '<a href="exec:view ''<<$img_temp>>''"><img <<$set_statimgh>> src="<<$img_temp>>"></a> '
+	end	
+
+	if Enable_statimg_coat = 0:
+		$stat_imgtool_msg += ' <a href="exec:Enable_statimg_coat = 1 & gs ''$menu_obnovit''">◇Coat</a>'
+	else
+		$stat_imgtool_msg += ' <a href="exec:Enable_statimg_coat = 0 & gs ''$menu_obnovit''">◆Coat</a>'
+		$img_temp = FUNC('$body_image','coat')
+		if $img_temp ! null:  $stat_imgextra_msg += '<a href="exec:view ''<<$img_temp>>''"><img <<$set_statimgh>> src="<<$img_temp>>"></a> '
+	end	
+
+	if Enable_statimg_cloth = 0:
+		$stat_imgtool_msg += ' <a href="exec:Enable_statimg_cloth = 1 & gs ''$menu_obnovit''">◇Clothes</a>'
+	else
+		$stat_imgtool_msg += ' <a href="exec:Enable_statimg_cloth = 0 & gs ''$menu_obnovit''">◆Clothes</a>'
+		$img_temp = FUNC('$body_image','clothes')
+		if $img_temp ! null:  $stat_imgextra_msg += '<a href="exec:view ''<<$img_temp>>''"><img <<$set_statimgh>> src="<<$img_temp>>"></a> '
+	end	
+
+	if Enable_statimg_bra = 0:
+		$stat_imgtool_msg += ' <a href="exec:Enable_statimg_bra = 1 & gs ''$menu_obnovit''">◇Bra</a>'
+	else
+		$stat_imgtool_msg += ' <a href="exec:Enable_statimg_bra = 0 & gs ''$menu_obnovit''">◆Bra</a>'
+		$img_temp = FUNC('$body_image','bra')
+		if $img_temp ! null:  $stat_imgextra_msg += '<a href="exec:view ''<<$img_temp>>''"><img <<$set_statimgh>> src="<<$img_temp>>"></a> '
+	end
+
+	if Enable_statimg_panties = 0:
+		$stat_imgtool_msg += ' <a href="exec:Enable_statimg_panties = 1 & gs ''$menu_obnovit''">◇Panties</a>'
+	else
+		$stat_imgtool_msg += ' <a href="exec:Enable_statimg_panties = 0 & gs ''$menu_obnovit''">◆Panties</a>'
+		$img_temp = FUNC('$body_image','panties')
+		if $img_temp ! null:  $stat_imgextra_msg += '<a href="exec:view ''<<$img_temp>>''"><img <<$set_statimgh>> src="<<$img_temp>>"></a> '
+	end	
+
+	if Enable_statimg_shoes = 0:
+		$stat_imgtool_msg += ' <a href="exec:Enable_statimg_shoes = 1 & gs ''$menu_obnovit''">◇Shoes</a>'
+	else
+		$stat_imgtool_msg += ' <a href="exec:Enable_statimg_shoes = 0 & gs ''$menu_obnovit''">◆Shoes</a>'
+		$img_temp = FUNC('$body_image','shoes')
+		if $img_temp ! null:  $stat_imgextra_msg += '<a href="exec:view ''<<$img_temp>>''"><img <<$set_statimgh>> src="<<$img_temp>>"></a> '
+	end	
+	$stat_imgtool_msg += ' <a href="exec:gs ''Cheatmenu_din'' & Enable_settingmode = 1 & dynamic $cheatmenu[''display'']">◎Setting</a>'
+	
+end
+!!----------------image Extra messages, end --------------------------
+
+if Enable_statimg_loc = 1:
+	$stat_msg = '<<$stat_imgtool_msg>><br><<$stat_imgextra_msg>><br><<$stat_msg>>'
+end
+
+$stat_android = '<b><<$mid(100+hour,2,2)>>:<<$mid(100+minut,2,2)>></b>'
+
+$stat_msg += '<table><tr><td><a href="exec:msg ''<<$weather>>''"><<$weatherImage>></a></td><td><<$temperature>></td></tr></table>'
+
+if Enable_statfsize>0:$stat_msg = '<font size=<<Enable_statfsize>>><<$stat_msg>>'
+
+!$stat_msg += '<<$weather>><BR>'
+!pl '<<$weatherImage>>'
+$stat_msg += '<BR><<$stat_android>> <<$week[week]>> <<day>> <<$month>> <<year>>'
+$stat_android += '<<$week[week]>> <<day>>/<<month>>, <<money>> ₽, <a href="exec:clr & pl $stat_android">Status</a>'
+! $stat_android for short desc in android mode, $stat_msg for status bar.
+if StoryLine > 0 and SchoolAtestat = 0 and $holyday ! '': $stat_msg += '<BR><<$holyday>>' & $stat_msg += '<BR>'
+if birthday = day and birthmonth = month: $stat_msg += '<BR><b>Today is your birthday.</b>' & $stat_msg += '<BR>'
+$pockets = 'Pockets'
+if bag > 0: $pockets = 'Purse'
+if bankAccount = 0 and stolmoney = 0:
+	$stat_msg += '<BR>You have <b><<money>> ₽</b> in your <<$pockets>>.'
+else
+	!combine money status to single line
+	$stat_msg += '<BR><<$pockets>>: <b><<money>> ₽</b>'
+	if stolmoney > 0: $stat_msg += ', Drawer <b><<stolmoney>> ₽</b>'	
+	if bankAccount = 1:
+		if karta >= 0:
+			$stat_msg += ', Bank: <b><<karta>> ₽</b>'
+		else
+			$stat_msg += '<BR><font color="red">Your bank account is overdrawn by <b><<karta>> ₽</b>!!</font>'
+		end
+	end
+end
+!{
+$stat_msg += '<BR>You have <b><<money>> ₽</b> in your <<$pockets>>.'
+if bankAccount = 1:
+	if karta >= 0:
+		$stat_msg += '<BR>You have <b><<karta>> ₽</b> in your bank account.'
+	else
+		$stat_msg += '<BR><font color="red">Your bank account is overdrawn by <b><<karta>> ₽</b>!!</font>'
+	end
+end
+if stolmoney > 0: $stat_msg += '<BR>You have <b><<stolmoney>> ₽</b> in your desk drawer.'
+}
+!$stat_msg += '<BR>'
+
+if ETOmenu = 1:
+	$stat_msg += '<BR><b><<$pcs_health>></b>'
+	$stat_msg += '<BR><b><<$pcs_willpwr>></b>'
+	if cheatNoEat = 0: $stat_msg += '<BR><b><<$pcs_energy>></b>'
+	if cheatNoDrink = 0: $stat_msg += '<BR><b><<$pcs_hydra>></b>'
+	if cheatNoSleep = 0: $stat_msg += '<BR><b><<$pcs_sleep>></b>'
+elseif Enable_scalepic = 2:
+	$st_temp='rgb(<<(16777216 + fcolor) mod 256>>,<<(16777216 + fcolor)/256 mod 256>>,<<(16777216 + fcolor)/65536>>)'
+	$stat_msg += '<p><font color="<<$st_temp>>"><TABLE width="300" cellpadding="1" cellspacing="0"><TR><TD width="85%">'+FUNC('indiktab', '2', pcs_horny, pcs_horny)+'</TD><TD> Arousal</TD></TR><TR><TD width="85%">'+FUNC('indiktab', '2', pain['total'], pain['total'])+'</TD><TD> Pain</TD></TR><TR><TD width="85%">'+FUNC('indiktab', '1', pcs_health * 100 / healthmax, pcs_health)+'</TD><TD> Health</TD></TR>'
+	if MagikDostup = 0: $stat_msg += '<TR><TD width="85%">'+FUNC('indiktab', '1', pcs_manna * 100 / mannamax, pcs_manna)+'</TD><TD> Manna</TD></TR>'
+	$stat_msg += '<TR><TD width="85%">'+FUNC('indiktab', '1', pcs_willpwr * 100 / willpowermax, pcs_willpwr)+'</TD><TD> Willpower</TD></TR><TR><TD width="85%">'+FUNC('indiktab', '1', pcs_stam * 100 / stammax, pcs_stam)+'</TD><TD> Stamina</TD></TR><TR><TD width="85%">'+FUNC('indiktab', '1', pcs_mood, pcs_mood)+'</TD><TD> Mood</TD></TR>'
+	if cheatNoEat = 0: $stat_msg += '<TR><TD width="85%">'+FUNC('indiktab', '1', pcs_energy, pcs_energy)+'</TD><TD> Hunger</TD></TR>'
+	if cheatNoDrink = 0: $stat_msg += '<TR><TD width="85%">'+FUNC('indiktab', '1', pcs_hydra, pcs_hydra)+'</TD><TD> Thirst</TD></TR>'
+	if cheatNoSleep = 0: $stat_msg += '<TR><TD width="85%">'+FUNC('indiktab', '1', pcs_sleep, pcs_sleep)+'</TD><TD> Sleep</TD></TR></TABLE></font></p>'
+else
+	gs 'indik', '2', pcs_horny, pcs_horny
+	$stat_msg += '<BR><<$ind>> Arousal'
+
+	gs 'indik', '2', pain['total'], pain['total'], pain['damage']
+	$stat_msg += '<BR><<$ind>> Pain'
+
+	gs 'indik', '1', pcs_health * 100 / healthmax, pcs_health
+	$stat_msg += '<BR><<$ind>> Health'
+
+	if MagikDostup = 0:
+		gs 'indik', '1', pcs_manna * 100 / mannamax, pcs_manna
+		$stat_msg += '<BR><<$ind>> Manna'
+	end
+
+	gs 'indik', '1', pcs_willpwr * 100 / willpowermax, pcs_willpwr
+	$stat_msg += '<BR><<$ind>> Willpower'
+
+	gs 'indik', '1', pcs_stam * 100 / stammax, pcs_stam
+	$stat_msg += '<BR><<$ind>> Stamina'
+
+	gs 'indik', '1', pcs_mood, pcs_mood
+	$stat_msg += '<BR><<$ind>> Mood'
+
+	if cheatNoEat = 0:
+		gs 'indik', '1', pcs_energy, pcs_energy
+		$stat_msg += '<BR><<$ind>> Hunger'
+	end
+
+	if cheatNoDrink = 0:
+		gs 'indik', '1', pcs_hydra, pcs_hydra
+		$stat_msg += '<BR><<$ind>> Thirst'
+	end
+
+	if cheatNoSleep = 0:
+		gs 'indik', '1', pcs_sleep, pcs_sleep
+		$stat_msg += '<BR><<$ind>> Sleep'
+	end
+end
+
+
+
+!!----------------Extra messages, start--------------------------
+
+!!----------------▽Attributes--------------------------
+$stat_tool_msg=''
+$stat_extra_msg=''
+if Enable_showattr = 0:
+	$stat_tool_msg += '<a href="exec:Enable_showattr = 1 & gs ''$menu_obnovit''">▽Attributes</a>'
+else
+	$stat_tool_msg += '<a href="exec:Enable_showattr = 0 & gs ''$menu_obnovit''">▲Attributes</a>'
+	!skip if this is first message
+	if $stat_extra_msg ! null: $stat_extra_msg += '<br><a href="exec:Enable_showattr = 0 & gs ''$menu_obnovit''">▲Attributes:</a>'
+	if Enable_scalepic = 2:
+		if pcs_dom > 10:
+			$dom_stat_msg = 'dominant'
+		elseif sub > 10:
+			$dom_stat_msg = 'submissive'
+		else
+			$dom_stat_msg = 'neutral'
+		end
+
+		$stat_extra_msg += '<font color="<<$st_temp>>"><TABLE cellpadding="1" cellspacing="0" width="300"><TR><TD width="85%">'+FUNC('indiktab', '3', 100+pcs_dom-sub, 100+pcs_dom-sub,$dom_stat_msg)+'</TD><TD> Dominance</TD></TR>  <TR><TD width="85%">'+FUNC('indiktab', '1', pcs_stren, pcs_stren)+'</TD><TD> Strength</TD></TR><TR><TD width="85%">'+FUNC('indiktab', '1', pcs_agil, pcs_agil)+'</TD><TD> Agility</TD></TR><TR><TD width="85%">'+FUNC('indiktab', '1', pcs_vital, pcs_vital)+'</TD><TD> Endurance</TD></TR><TR><TD width="85%">'+FUNC('indiktab', '1', pcs_intel, pcs_intel)+'</TD><TD> Intelligence</TD></TR><TR><TD width="85%">'+FUNC('indiktab', '1', pcs_sprt, pcs_sprt)+'</TD><TD> Spirit</TD></TR><TR><TD width="85%">'+FUNC('indiktab', '1', pcs_react, pcs_react)+'</TD><TD nowrap> Mental Agility</TD></TR><TR><TD width="85%">'+FUNC('indiktab', '1', pcs_chrsm, pcs_chrsm)+'</TD><TD> Charisma</TD></TR><TR><TD width="85%">'+FUNC('indiktab', '1', pcs_prcptn, pcs_prcptn)+'</TD><TD> Perception</TD></TR>'
+		if MagikDostup = 0: $stat_extra_msg += '<TR><TD width="85%">'+FUNC('indiktab', '1', pcs_magik, pcs_magik)+'</TD><TD> Magic</TD></TR>'
+		if succubusflag = 1: $stat_extra_msg += '<TR><TD width="85%">'+FUNC('indiktab', '1', sucexcess, sucexcess)+'</TD><TD> Succubus Energy</TD></TR>'
+		$stat_extra_msg += '<TR><TD width="85%">'+FUNC('indiktab', '1', pcs_apprnc / 2, pcs_apprnc)+'</TD><TD> Attractiveness</TD></TR>'
+		if SchoolAtestat = 0 and StoryLine > 0:$stat_extra_msg += '<TR><TD width="85%">'+FUNC('indiktab', '1', pcs_grades, pcs_grades)+'</TD><TD nowrap> School Grades</TD></TR>'
+		$stat_extra_msg += '<TR><TD width="85%">'+FUNC('indiktab', '1', 100 - pcs_inhib, 100 - pcs_inhib)+'</TD><TD> Inhibition</TD></TR>'
+		if pcs_heels > 0:$stat_extra_msg += '<TR><TD width="85%">'+FUNC('indiktab', '1', pcs_heels, pcs_heels)+'</TD><TD> Heels skill</TD></TR>'
+		$stat_extra_msg += '</TABLE></font>'
+		killvar '$dom_stat_msg'
+	else
+		gs 'indik','3', 50+(pcs_dom-sub)/2, 50+(pcs_dom-sub)/2
+		$stat_extra_msg += '<BR><<$ind>> Dominance'
+		if pcs_dom > 10:
+			$stat_extra_msg += ' (dominant)'
+		elseif sub > 10:
+			$stat_extra_msg += ' (submissive)'
+		else
+			$stat_extra_msg += ' (natural)'
+		end
+!		$stat_extra_msg += '<BR>'
+		gs 'indik', '1', pcs_stren, pcs_stren
+		$stat_extra_msg += '<BR><<$ind>> Strength'
+		gs 'indik', '1', pcs_agil, pcs_agil
+		$stat_extra_msg += '<BR><<$ind>> Agility'
+		gs 'indik', '1', pcs_vital, pcs_vital
+		$stat_extra_msg += '<BR><<$ind>> Endurance'
+		gs 'indik', '1', pcs_intel, pcs_intel
+		$stat_extra_msg += '<BR><<$ind>> Intelligence'
+		gs 'indik', '1', pcs_sprt, pcs_sprt
+		$stat_extra_msg += '<BR><<$ind>> Spirit'
+		gs 'indik', '1', pcs_react, pcs_react
+		$stat_extra_msg += '<BR><<$ind>> Mental Agility'
+		gs 'indik', '1', pcs_chrsm, pcs_chrsm
+		$stat_extra_msg += '<BR><<$ind>> Charisma'
+		gs 'indik', '1', pcs_prcptn, pcs_prcptn
+		$stat_extra_msg += '<BR><<$ind>> Perception'
+		if MagikDostup = 0:
+			gs 'indik', '1', pcs_magik, pcs_magik
+			$stat_extra_msg += '<BR><<$ind>> Magic'
+			if succubusflag = 1:
+				gs 'indik', '1', sucexcess, sucexcess
+				$stat_extra_msg += '<BR><<$ind>> Succubus energy'
+			end
+		end
+		gs 'indik', '1', pcs_apprnc / 2, pcs_apprnc
+		$stat_extra_msg += '<BR><<$ind>> Attractiveness'
+	
+		if SchoolAtestat = 0 and StoryLine > 0:
+			gs 'indik', '1', pcs_grades, pcs_grades
+			$stat_extra_msg += '<BR><<$ind>> School Grades'
+		end
+
+		gs 'indik', '1', 100 - pcs_inhib, 100 - pcs_inhib
+		$stat_extra_msg += '<BR><<$ind>> inhibition'
+
+		if pcs_heels > 0:
+			gs 'indik', '1', pcs_heels, pcs_heels
+			$stat_extra_msg += '<BR><<$ind>> Heels skill'
+		end
+		$stat_extra_msg += '<BR>' 
+	end
+end
+killvar '$st_temp'
+
+!!----------------▽Skills--------------------------
+
+if Enable_showskill = 0:
+	$stat_tool_msg += ' <a href="exec:Enable_showskill = 1 & gs ''$menu_obnovit''">▽Skills</a>'
+else
+	$stat_tool_msg += ' <a href="exec:Enable_showskill = 0 & gs ''$menu_obnovit''">▲Skills</a>'
+	!!----------------------▲Skills display------------------------
+	$stat_sktool_msg=''
+	st_count=0
+	$show_table=''
+	!!----------------Mental skills--------------------------
+	if Enable_show_mental_skill = 0:
+		$stat_sktool_msg += ' <a href="exec:Enable_show_mental_skill = 1 & gs ''$menu_obnovit''">◇Mental</a>'
+	else
+		$stat_sktool_msg += ' <a href="exec:Enable_show_mental_skill = 0 & gs ''$menu_obnovit''">◆Mental</a>'
+		if pcs_splcstng > 0: gs 'show_table', '<<pcs_splcstng>> Spell Casting', '2'
+		if pcs_humint > 0: gs 'show_table', '<<pcs_humint>> People skills', '2'
+		if pcs_persuas > 0: gs 'show_table', '<<pcs_persuas>> Persuasion', '2'
+		if pcs_observ > 0: gs 'show_table', '<<pcs_observ>> Observation', '2'
+	end
+
+	!!-----------------Sport skills--------------------------
+	if Enable_show_sport_skill = 0:
+		$stat_sktool_msg += ' <a href="exec:Enable_show_sport_skill = 1 & gs ''$menu_obnovit''">◇Sport</a>'
+	else
+		$stat_sktool_msg += ' <a href="exec:Enable_show_sport_skill = 0 & gs ''$menu_obnovit''">◆Sport</a>'
+		if pcs_jab > 0: gs 'show_table', '<<pcs_jab>> Jabs', '2'
+		if pcs_punch > 0: gs 'show_table', '<<pcs_punch>> Power Strikes', '2'
+		if pcs_kick > 0: gs 'show_table', '<<pcs_kick>> Kicks', '2'
+		if pcs_def > 0: gs 'show_table', '<<pcs_def>> Defence', '2'
+		if pcs_run > 0: gs 'show_table', '<<pcs_run>> Running', '2'
+		if pcs_vball > 0: gs 'show_table', '<<pcs_vball>> Volleyball', '2'
+		if pcs_ftbll > 0: gs 'show_table', '<<pcs_ftbll>> Football', '2'
+		if pcs_wrstlng > 0: gs 'show_table', '<<pcs_wrstlng>> Wrestling', '2'
+		if pcs_shoot > 0: gs 'show_table', '<<pcs_shoot>> Marksmanship', '2'
+		if pcs_chess > 0: gs 'show_table', '<<pcs_chess>> Chess', '2'
+		if pcs_icesktng > 0: gs 'show_table', '<<pcs_icesktng>> Ice Skating', '2'
+		if pcs_ttgmng > 0: gs 'show_table', '<<pcs_ttgmng>> Gaming', '2'
+		if pcs_pool > 0: gs 'show_table', '<<pcs_pool>> Pool', '2'
+	end
+
+	!!-----------------Beauty/Modelling skills---------------
+	if Enable_show_beauty_skill = 0:
+		$stat_sktool_msg += ' <a href="exec:Enable_show_beauty_skill = 1 & gs ''$menu_obnovit''">◇Beauty</a>'
+	else
+		$stat_sktool_msg += ' <a href="exec:Enable_show_beauty_skill = 0 & gs ''$menu_obnovit''">◆Beauty</a>'
+		if pcs_makupskl > 0: gs 'show_table', '<<pcs_makupskl>> Makeup Skill', '2'
+		if pcs_danc > 0: gs 'show_table', '<<pcs_danc>> Modern Dancing', '2'
+		if pcs_dancero > 0: gs 'show_table', '<<pcs_dancero>> Erotic Dancing', '2'
+		if pcs_dancpol > 0: gs 'show_table', '<<pcs_dancpol>> Pole Dancing', '2'
+		if pcs_mdlng > 0: gs 'show_table', '<<pcs_mdlng>> Modelling', '2'
+	end
+
+	!!---------------------Artistic skills-------------------
+	if Enable_show_art_skill = 0:
+		$stat_sktool_msg += ' <a href="exec:Enable_show_art_skill = 1 & gs ''$menu_obnovit''">◇Artistic</a>'
+	else
+		$stat_sktool_msg += ' <a href="exec:Enable_show_art_skill = 0 & gs ''$menu_obnovit''">◆Artistic</a>'
+		if pcs_vokal > 0: gs 'show_table', '<<pcs_vokal>> Singing', '2'
+		if pcs_instrmusic > 0: gs 'show_table', '<<pcs_instrmusic>> Instrumental Music', '2'
+		if pcs_photoskl > 0: gs 'show_table', '<<pcs_photoskl>> Photography', '2'
+		if pcs_artskls > 0: gs 'show_table', '<<pcs_artskls>> Artistic Skills', '2'
+	end
+
+	!!----------------------Job skills------------------------
+	if Enable_show_job_skill = 0:
+		$stat_sktool_msg += ' <a href="exec:Enable_show_job_skill = 1 & gs ''$menu_obnovit''">◇Job</a>'
+	else
+		$stat_sktool_msg += ' <a href="exec:Enable_show_job_skill = 0 & gs ''$menu_obnovit''">◆Job</a>'
+		if pcs_compskl > 0: gs 'show_table', '<<pcs_compskl>> Computer Skill', '2'
+		if pcs_comphckng > 0: gs 'show_table', '<<pcs_comphckng>> Hacking', '2'
+		if pcs_hndiwrk > 0: gs 'show_table', '<<pcs_hndiwrk>> Handy-work', '2'
+		if pcs_sewng > 0: gs 'show_table', '<<pcs_sewng>> Tailoring', '2'
+		if pcs_servng > 0: gs 'show_table', '<<pcs_servng>> Serving', '2'
+		if pcs_medcn > 0: gs 'show_table', '<<pcs_medcn>> Medicine', '2'
+		if workPTU > 1: gs 'show_table','<<teachlevel>> Teacher credibility','2'
+	end	
+	!skip if this is first message
+	if $stat_extra_msg ! null: 
+		$stat_extra_msg += '<br><a href="exec:Enable_showskill = 0 & gs ''$menu_obnovit''">▲Skills:</a> <<$stat_sktool_msg>>'
+	else
+		$stat_extra_msg += '<br><<$stat_sktool_msg>>'
+	end
+	if st_count > 0 :
+		$stat_extra_msg += '<BR><TABLE BORDER=1><<$show_table>></TR></TABLE>'
+	end	
+end
+
+killvar 'stat_sktool_msg'
+killvar 'stat_skextra_msg'
+
+!!----------------▽relations--------------------------
+if Enable_showrelation = 0:
+	$stat_tool_msg += ' <a href="exec:Enable_showrelation = 1 & gs ''$menu_obnovit''">▽Relations</a>'
+else
+	$stat_tool_msg += ' <a href="exec:Enable_showrelation = 0 & gs ''$menu_obnovit''">▲Relations</a>'
+	st_count=0
+	$show_table=''
+	if npc_QW['A192'] > 0:gs'show_table','Nastja: <<npc_QW[''A192'']>>','2'
+	if npc_rel['A218'] > 0:gs'show_table','Tanya: <<npc_rel[''A218'']>>','2'
+	if npc_rel['A219'] > 0:gs'show_table','Kat: <<npc_rel[''A219'']>>','2'
+	if npc_rel['A220'] > 0:gs'show_table','Vika: <<npc_rel[''A220'']>>','2'
+	if npc_rel['A93'] > 0:gs'show_table','Ira: <<npc_rel[''A93'']>>','2'
+	if npc_rel['A43'] > 0:gs'show_table','Tamara: <<npc_rel[''A43'']>>','2'
+	if alla > 0:gs'show_table','Alla: <<alla>>','2'
+	if masha > 0:gs'show_table','Masha: <<masha>>','2'
+	if npc_rel['A41'] > 0:gs'show_table','Givi Karapetovich: <<npc_rel[''A41'']>>','2'
+	if npc_rel['A42'] > 0:gs'show_table','Ashot: <<npc_rel[''A42'']>>','2'
+	if afra > 0:gs'show_table','Blacks: <<afra>>','2'
+	if Rex > 0:gs'show_table','Rex: <<Rex>>','2'
+	if npc_rel['A217'] > 0:gs'show_table','Pavlin: <<npc_rel[''A217''] >>','2'
+	if npc_rel['A69'] > 0:gs'show_table','Mikhail Nikolaevich: <<npc_rel[''A69'']>>','2'
+	if npc_rel['A89'] > 0:gs'show_table','Eugene: <<npc_rel[''A89'']>>','2'
+	if npc_rel['A112'] > 0:gs'show_table','Sergei Shulgin: <<npc_rel[''A112'']>>','2'
+	if npc_rel['A11'] > 0:gs'show_table','Vasily Shulgin: <<npc_rel[''A11'']>>','2'
+	if hantersAndreiQw > 0:gs'show_table','Hunter Andrew: <<hantersAndreiQw>>','2'
+	if hantersSergeiQw > 0:gs'show_table','Hunter Sergei: <<hantersSergeiQw>>','2'
+	if hantersIgorQw > 0:gs'show_table','Hunter Igor: <<hantersIgorQw>>','2'
+	if pcs_lovers[0] = 1:gs'show_table', 'BF <<$loverdesc[0]>>: <<loverrelation[0]>>','2'
+	if pcs_lovers[1] = 1:gs'show_table', 'BF <<$loverdesc[1]>>: <<loverrelation[1]>>','2'
+	if pcs_lovers[2] = 1:gs'show_table', 'BF <<$loverdesc[2]>>: <<loverrelation[2]>>','2'
+	if StoryLine > 0:
+		if npc_rel['A29'] > 0:gs'show_table','Mother: <<npc_rel[''A29'']>>','2'
+		if npc_rel['A28'] > 0:gs'show_table','Father: <<npc_rel[''A28'']>>','2'
+		if npc_rel['A33'] > 0:gs'show_table','Sister: <<npc_rel[''A33'']>>','2'
+		if npc_rel['A34'] > 0:gs'show_table','Brother: <<npc_rel[''A34'']>>','2'
+	end
+	if st_count > 0 :
+		!skip if this is first message
+		if $stat_extra_msg ! null: $stat_extra_msg += '<BR><a href="exec:Enable_showrelation = 0 & gs ''$menu_obnovit''">▲Relations:</a>'
+		$stat_extra_msg += '<BR><TABLE BORDER=1> <<$show_table>></TR></TABLE>'
+	end
+end
+
+!!----------------▽image, default to toolbar, can move to top or bottom from setting--------------------------
+if Enable_statimg_loc = 0:
+	if Enable_showstatimg = 0:
+		$stat_tool_msg += ' <a href="exec:Enable_showstatimg = 1 & gs ''$menu_obnovit''">▽Image</a>'
+	else
+		$stat_tool_msg += ' <a href="exec:Enable_showstatimg = 0 & gs ''$menu_obnovit''">▲Image</a>'	
+		!skip if this is first message
+		if $stat_extra_msg ! null: 
+			$stat_extra_msg += '<br><a href="exec:Enable_showstatimg = 0 & gs ''$menu_obnovit''">▲Image:</a> <<$stat_imgtool_msg>>'
+		else
+			$stat_extra_msg += '<br><<$stat_imgtool_msg>>'
+		end
+		$stat_extra_msg += '<br><<$stat_imgextra_msg>>'
+	end
+end
+
+!all end, push back and clean up
+$stat_msg += '<br><br><<$stat_tool_msg>>'
+if $stat_extra_msg ! NULL : $stat_msg += '<<$stat_extra_msg>>'
+$stat_msg += '<br>'
+killvar 'stat_tool_msg'
+killvar 'stat_extra_msg'
+
+
+!!----------------Extra messages, End--------------------------
+
+if opPRE = 0: $stat_msg += '<BR><<$pcs_makeup>> and your hair is <<$pcs_hairbsh>>.' & !$stat_msg += '<BR>'
+
+if thinkpreg = 0 and knowpreg = 0 and cycle ! 6 and pillcon2 <= 30000 and succubusflag ! 1 and cheatSlut = 0 and mesec = 0:
+	if abortionbirthdate = 0 and daystart - lastmens > 21:
+		if daystart - lastmens < 28:
+			$stat_msg += '<BR><font color = #AB052A><b>Your period is late by <<daystart - lastmens - 20>> days.</b></font>'
+		elseif daystart - lastmens < 35:
+			$stat_msg += '<BR><font color = #AB052A><b>Your period is late by more than a week!</b></font>'
+		elseif daystart - lastmens < 45:
+			$stat_msg += '<BR><font color = #AB052A><b>You apparently missed your period this month. Maybe you should see a doctor?</b></font>'
+		elseif daystart - lastmens < 69:
+			$stat_msg += '<BR><font color = #AB052A><b>You didn''t have a period for two months. You really should see a doctor about it.</b></font>'
+		else
+			$stat_msg += '<BR><font color = #AB052A><b>You should consider the possibility of a pregnancy, since apparently you no longer have periods.</b></font>'
+		end
+	elseif abortionbirthdate ! 0 and daystart - abortionbirthdate <= 100:
+		$stat_msg += '<BR><font color = #705243><b>You are probably still in your recovery period. Nothing to worry about.</b></font>'
+	elseif abortionbirthdate ! 0 and daystart - abortionbirthdate > 100:
+		$stat_msg += '<BR><font color = #820000><b>You should have recovered by know... Right?</b></font>'
+	end
+end
+if implant_day > 0:
+	if ((daystart - implant_day) * 24 + hour - implant_hour) < 5:
+		$stat_msg += '<BR><font color=#AB052A>You feel a slight twinge in your abdomen.</font>'
+	end
+end
+if mesec > 0:
+	$stat_msg += '<BR><font color="red">You are currently having your period. '
+	if isprok = 0 and isprokp = 0:
+		$stat_msg += 'You need to use your feminine hygiene products.'
+	elseif isprokp = 1 and $pantyworntype = 'none':
+		isprokp = 0
+		$stat_msg += 'You need to wear panties to use a sanitary pad.'
+	end
+	$stat_msg += '</font>'
+elseif placebopart > 0 and LutH > 0:
+	$stat_msg += '<BR><font color="red">Your period is due to start soon.'
+	$stat_msg += '</font>'
+end
+
+
+if $cycreport_txt ! null: $stat_msg += '<BR><a href="exec:dynamic $d_cycreport_choice"><<$cycreport_txt>></a><br>'
+
+!!if shame > 0:$stat_msg += '<BR><<$shame>>' & $stat_msg += '<BR>'
+
+if $pcs_mood ! '':$stat_msg += '<BR><font color="green"><b><<$pcs_mood>></b></font>'
+
+if mentats_dose >= 1:$stat_msg += '<BR><font color = green>You feel sharp and focused.</font>'
+if bcream_used = 1:$stat_msg += '<BR><font color = #DB7093>Your breasts are feeling hot and tingly.</font>'
+if aphrodisiac_timer > 0:$stat_msg += '<BR><font color = #DB7093>You are feeling hot and every move causes your groin to tingle.</font>'
+
+if cheatNoEat = 0:
+	if pcs_energy < 5:
+		$stat_msg += '<BR><font color="red"><b>You feel faint from hunger, if you don''t have something to eat very soon, you will pass out.</b></font>'
+	elseif pcs_energy < 10:
+		$stat_msg += '<BR><font color="red">You are starving, you really need to have something to eat.</font>'
+	elseif pcs_energy < 20:
+		$stat_msg += '<BR>You are very hungry and struggle to concentrate on anything other than food.'
+	elseif pcs_energy < 30:
+		$stat_msg += '<BR>You feel peckish and your thoughts sometimes drift towards food.'
+	end
+end
+
+if cheatNoDrink = 0:
+	if pcs_hydra < 5:
+		$stat_msg += '<BR><font color="red"><b>You feel light-headed, if you don''t have something to drink very soon, you will pass out.</b></font>'
+	elseif pcs_hydra < 10:
+		$stat_msg += '<BR><font color="red">You are dehydrated, you really need to have something to drink.</font>'
+	elseif pcs_hydra < 20:
+		$stat_msg += '<BR>You are thirsty and your dry throat is irritating and distracting you.'
+	elseif pcs_hydra < 30:
+		$stat_msg += '<BR>You feel a little thirsty and your mouth is a little dry.'
+	end
+end
+
+if cheatNoSleep= 0:
+	if pcs_sleep < 5:
+		$stat_msg += '<BR><font color="red"><b>You can''t keep your eyes open, if you don''t go to bed now, you will fall asleep right here.</b></font>'
+	elseif pcs_sleep < 10:
+		$stat_msg += '<BR><font color="red">You are exhausted, you really need to go to bed soon.</font>'
+	elseif pcs_sleep < 20:
+		$stat_msg += '<BR>You are tired and you are struggling to concentrate.'
+	elseif pcs_sleep < 30:
+		$stat_msg += '<BR>You feel a little tired.'
+	end
+end
+
+if $pantyworntype ! 'none' and clit_size >= 25:$stat_msg += '<BR><font color = #FF1493>Your panties keep rubbing against your clit and making you horny.</font>'
+
+if pcs_horny >= 50:
+	if pcs_horny < 90 and $pantyworntype ! 'none':
+		$stat_msg += '<BR><font color = #DB7093>You are a little nervous, feeling nice between your legs <a href="exec:view''images/pc/body/pussy/briefs1.jpg''">itchy</a> from arousal.</font>'
+	elseif pcs_horny < 90 and $pantyworntype = 'none':
+		$stat_msg += '<BR><font color = #DB7093>You are a little nervous, feeling nice between your legs <a href="exec:view''images/pc/body/pussy/briefs1a.jpg''">itchy</a> from arousal.</font>'
+	elseif $pantyworntype ! 'none':
+		$stat_msg += '<BR><font color = #FF1493>You can''t stop thinking about sex, between your legs you are <a href="exec:view''images/pc/body/pussy/briefs2.jpg''">soaked</a> from your juices.</font>'
+	else
+		$stat_msg += '<BR><font color = #FF1493>You can''t stop thinking about sex, between your legs you are <a href="exec:view''images/pc/body/pussy/briefs2a.jpg''">soaked</a> from your juices.</font>'
+	end
+end
+
+if PillToggle = 1 and tabletki > 0:
+	Stabletki += tabletki
+	tabletki = 0
+elseif PillToggle = 0 and Stabletki > 0:
+	tabletki += Stabletki
+	Stabletki = 0
+end
+
+if CondomToggle = 1 and prezik > 0:
+	Sprezik += prezik
+	prezik = 0
+elseif CondomToggle = 0 and Sprezik > 0:
+	prezik += Sprezik
+	Sprezik = 0
+end
+
+if smoker >= 20:
+	if smokerNeed > 0:
+		if siga > 0:
+			$stat_msg += '<BR><a href="exec:gs ''shortgs'',''smoker''"><font color="red"><b>You want to smoke. You have <<siga>> cigarettes left.</b></font></a><BR>'
+		else
+			$stat_msg += '<BR><a href="exec:gs ''shortgs'',''smoker''"><font color="red"><b>You want to smoke, but you have no cigarettes left.</b></font></a><BR>'
+		end
+	else
+		if siga > 0:
+			$stat_msg += '<BR><a href="exec:gs ''shortgs'',''smoker''"><font color=#0064FF><b>You have <<siga>> cigarettes left.</b></font></a><BR>'
+		else
+			$stat_msg += '<BR><font color=#0064FF><b>You feel like you should get some cigarettes.</b></font><BR>'
+		end
+	end
+elseif siga > 0:
+	$stat_msg += '<BR><a href="exec:gs ''shortgs'',''smoker''"><font color=#0064FF><b>You have <<siga>> cigarettes.</b></font></a><BR>'
+end
+
+if smokeHour = hour and smokeday = day and smokeminut >= minut:$stat_msg += '<BR><font color="green">You are smoking a cigarette.</font><BR>'
+
+if cheatNoSweat = 0:
+	if pcs_sweat < 0 : pcs_sweat = 0
+	if pcs_sweat > 69 : pcs_sweat = 69
+	jump 'statDswt<<pcs_sweat/10>>'
+	:statDswt0
+		if arrsize('sparrvol') = 0 : $stat_msg += '<BR><b><font color="green">You are sparkling clean.</font></b>'
+		jump 'statDswtEnd'
+	:statDswt1
+		jump 'statDswtEnd'
+	:statDswt2
+		$stat_msg += '<BR><font color="brown">You''re sweating.</font><BR>'
+		jump 'statDswtEnd'
+	:statDswt3
+		$stat_msg += '<BR><font color="red">You are a little smelly.</font><BR>'
+		jump 'statDswtEnd'
+	:statDswt4
+		$stat_msg += '<BR><font color="red">You stink.</font><BR>'
+		jump 'statDswtEnd'
+	:statDswt5
+		$stat_msg += '<BR><b><font color="red">You really stink.</font></b><BR>'
+		jump 'statDswtEnd'
+	:statDswt6
+		$stat_msg += '<BR><b><font color="red">You are dripping wet from sweat and smell like a gym sock.</font></b><BR>'
+		jump 'statDswtEnd'
+
+	:statDswtEnd
+end
+
+if dirtyclothes = 1 and swamp_clothes = 0:
+	if pcs_sweat > 40:
+		$stat_msg +='<br><font color = red>You are <a href="exec:view''images/locations/gadukino/hunters/dirtyclothes1.jpg''">covered</a> from head to toe in the mud.</font><BR>'
+	else
+		$stat_msg +='<br><font color = red>Your <a href="exec:view''images/locations/gadukino/hunters/dirtyclothes2.jpg''">clothes</a> are dirty.</font><BR>'
+	end
+end
+
+if lactate = 1 and night_mode = 0:
+	if lactatemv >= lactatemm-1:
+		if lact_engorgement > 3 and lact_engorgement <= 6:
+									
+			$stat_msg += '<BR><font color = red>Your breasts are so full they hurt and you can feel milk seeping out.</font><BR>'
+		elseif lact_engorgement > 6:
+																									
+								 
+			$stat_msg += '<BR><font color = red>Your breasts are so full they hurt and you can feel your milk spraying out.</font><BR>'
+								 
+																					  
+					   
+																													  
+		else
+			$stat_msg += '<BR><font color = orange>Your breasts are so full they hurt.</font><BR>'
+		end
+		if $clothingworntype = 'nude' and lactatemess > 0:
+			if lactatemess < 3:
+				$stat_msg += '<font color = black>You have a little milk residue around your nipples.</font>'
+			elseif lactatemess < 7:
+				$stat_msg += '<font color = orange>You have a lot of milk residue around your nipples.</font>'
+			else
+				$stat_msg += '<font color = red>Your breasts are drenched with milk residue.</font>'
+			end
+		elseif lactatemess > 0:
+			if lactatemess < 3:
+				$stat_msg += '<font color = orange>You have tiny wet spots on your clothes above your nipples.</font>'
+			elseif lactatemess < 7:
+				$stat_msg += '<font color = red>Milk has soaked through your clothes and made visible circles on your breasts.</font>'
+			else
+				$stat_msg += '<font color = red>Your shirt is drenched with milk from your breasts.</font>'
+			end
+		end		
+	elseif lactatemv > lactatemm*9/10:
+		$stat_msg += '<BR><font color = black>Your breasts are firm and full, and starting to hurt from all the milk they contain.</font><BR>'
+	elseif lactatemv > lactatemm*3/4:
+		$stat_msg += '<BR><font color = black>Your breasts feel firm and heavy, full of milk.</font><BR>'
+	elseif lactatemv > lactatemm/2:
+		$stat_msg += '<BR><font color = black>Your breasts are heavy, a cargo of milk inside.</font><BR>'
+	elseif lactatemv > lactatemm/4:
+		$stat_msg += '<BR><font color = black>Your breasts feel a little heavy.</font><BR>'
+	elseif lactatemv > 0:
+		$stat_msg += '<BR><font color = black>Your breasts tingle a little from the feeling of milk production.</font><BR>'
+	else
+		$stat_msg += '<BR><font color = black>Your breasts feel soft and empty.</font><BR>'
+	end
+elseif lactate = 1 and night_mode = 1:
+	if lactatemv >= lactatemm-1:
+		$stat_msg += '<BR><font color = white>Your breasts are so full they hurt.</font><BR>'
+	elseif lactatemv > lactatemm*9/10:
+		$stat_msg += '<BR><font color = white>Your breasts are firm and full, and starting to hurt from all the milk they contain.</font><BR>'
+	elseif lactatemv > lactatemm*3/4:
+		$stat_msg += '<BR><font color = white>Your breasts feel firm and heavy, full of milk.</font><BR>'
+	elseif lactatemv > lactatemm/2:
+		$stat_msg += '<BR><font color = white>Your breasts are heavy, a cargo of milk inside.</font><BR>'
+	elseif lactatemv > lactatemm/4:
+		$stat_msg += '<BR><font color = white>Your breasts feel a little heavy.</font><BR>'
+	elseif lactatemv > 0:
+		$stat_msg += '<BR><font color = white>Your breasts tingle a little from the feeling of milk production.</font><BR>'
+	else
+		$stat_msg += '<BR><font color = white>Your breasts feel soft and empty.</font><BR>'
+	end
+end
+
+if Enable_clearcum > 0:
+	gs 'cum_cleanup', 'reset'
+end
+if recuperation = 1:
+	$stat_msg += '<b><font color="red">You are still recovering from major surgery.</font></b>'
+end
+$clear_write = {
+	body_write = 0
+	face_write = 0
+	minut += 10
+	gs '$menu_obnovit'
+	'It takes you 10 minutes to thoroughly wash the obscene "painting" from your body.'
+}
+
+if body_write > 0 or face_write > 0:
+	if body_write > 1 and face_write = 0:
+		$stat_msg += '<BR><a href="exec:dynamic $clear_write"><b><font color = red>Your body is inscribed with derogatory graffiti.</font></b></a>'
+	elseif body_write = 1 and face_write = 0:
+		$stat_msg += '<BR><a href="exec:dynamic $clear_write"><b><font color = red>Your body is an obscene sign.</font></b></a>'
+	elseif body_write = 0 and face_write > 1:
+		$stat_msg += '<BR><a href="exec:dynamic $clear_write"><b><font color = red>Your face is covered with writing obscene epithets.</font></b></a>'
+	elseif body_write = 0 and face_write = 1:
+		$stat_msg += '<BR><a href="exec:dynamic $clear_write"><b><font color = red>On your face humiliating label.</font></b></a>'
+	else
+		$stat_msg += '<BR><a href="exec:dynamic $clear_write"><b><font color = red>Your body and face painted with obscene graffiti.</font></b></a>'
+	end
+end
+
+
+killvar 'cumvolume'
+killvar 'i'
+killvar 'knownguy'
+killvar 'cumcount'
+killvar 'cumowner'
+
+if arrsize('sparrvol') > 0:
+	!!go through every location
+	:locationloop
+		!!start from the freshest load
+		idx = arrsize('sparrloc')-1
+		:spermitemloop
+			!!if the currently examined load loaction is the location of the current cycle, execute
+			if sparrloc[idx] = i:
+				!!setting the age of the current load
+				!! 0: mouth
+				!! 1: in this hour
+				!! 2: in four hours
+				!! 3: at least five hours ago
+				!! 4: in body (pussy or ass)
+				!! 5: no more than 12 hours in condom
+				!! 6: no more than 48 hours in condom
+				!! 7: more than two days old, in condom
+				if i = 12:
+					j = 0
+				elseif i = 17:
+					if sparrage[idx] <= 12:
+						j = 5
+					elseif sparrage[idx] <= 48:
+						j = 6
+					else
+						j = 7
+					end
+				elseif i = 0 or i = 3:
+					j = 4
+				else
+					if sparrage[idx] <= 1:
+						j = 1
+					elseif sparrage[idx] <= 5:
+						j = 2
+					else
+						j = 3
+					end
+				end
+				
+				cumvolume['<<i>>:<<j>>'] += sparrvol[idx]
+				if sparrvol[idx] > 0:
+					if sparridt[idx] = 0:
+						!!unknown partner
+						cumcount['<<i>>:<<j>>'] += 1
+					elseif sparridt[idx] = 1:
+						!!known partner
+						!!storing the name of the cum owner (format: $cumowner[<cum location>:<age of cum>:<index of cum owner>])
+						if knownguy['<<i>>:<<j>>'] > 0:
+							gchk = 0
+							:sameguycheck
+							if $cumowner['<<i>>:<<j>>:<<gchk>>'] ! $sparrnam[idx] and gchk <= knownguy['<<i>>:<<j>>']:gchk += 1 & jump 'sameguycheck'
+							if gchk > knownguy['<<i>>:<<j>>']:
+								$cumowner['<<i>>:<<j>>:<<knownguy[''<<i>>:<<j>>'']>>'] = $sparrnam[idx]
+								knownguy['<<i>>:<<j>>'] += 1
+								cumcount['<<i>>:<<j>>'] += 1
+							end
+						else
+							$cumowner['<<i>>:<<j>>:<<knownguy[''<<i>>:<<j>>'']>>'] = $sparrnam[idx]
+							knownguy['<<i>>:<<j>>'] += 1
+							cumcount['<<i>>:<<j>>'] += 1
+						end
+					end
+				end
+			end
+		if idx > 0:idx -= 1 & jump 'spermitemloop'
+	if i < 18:i += 1 & jump 'locationloop'
+	killvar 'i'
+	killvar 'idx'
+	killvar 'j'
+end
+
+!!Clearing cum location array before positive entries are applied below
+killvar 'cumloc'
+
+i = 0
+:cumlocloop
+	if i = 0: 
+		$txtloc = 'your <a href="exec:view''images/pc/body/cum/creampie/cumpussy'+rand(1,14)+'.jpg''">pussy</a>'
+	elseif i = 1: 
+		$txtloc = 'your <a href="exec:view''images/pc/body/cum/cumpussy/cumpus'+rand(1,4)+'.jpg''">labia</a>'
+	elseif i = 2: 
+		$txtloc = 'the front of your panties'
+	elseif i = 3: 
+		$txtloc = 'your <a href="exec:view''images/pc/body/cum/cumanal/cumanal'+rand(1,11)+'.jpg''">ass</a>'
+	elseif i = 4: 
+		$txtloc = 'your <a href="exec:view''images/pc/body/cum/cumass/cumass'+rand(1,6)+'.jpg''">butt</a>'
+	elseif i = 5: 
+		$txtloc = 'the back of your panties'
+	elseif i = 6: 
+		$txtloc = 'your <a href="exec:view''images/pc/body/cum/cumclothes/'+rand(1,3)+'.jpg''">clothes near your groin</a>'
+	elseif i = 7: 
+		$txtloc = 'your <a href="exec:view''images/pc/body/cum/cumclothes/cumclothes'+rand(1,21)+'.jpg''">clothes</a>'
+	elseif i = 8: 
+		$txtloc = 'your back'
+	elseif i = 9: 
+		$txtloc = 'your legs'
+	elseif i = 10: 
+		$txtloc = 'your arms'
+	elseif i = 11: 
+		if pcs_haircol = 0:
+			$cum_face_image = 'brown/'
+			$cum_face_image += rand(1, 31)
+		elseif pcs_haircol = 1:
+			$cum_face_image = 'black/'
+			$cum_face_image += rand(1, 23)
+		elseif pcs_haircol = 2:
+			$cum_face_image = 'red/'
+			$cum_face_image += rand(1, 19)
+		elseif pcs_haircol = 3:
+			$cum_face_image = 'blonde/'
+			$cum_face_image += rand(1, 25)
+		elseif pcs_haircol > 3:
+			$cum_face_image = 'custom/'
+			$cum_face_image += rand(1, 20)
+		end
+		$txtloc = 'your <a href="exec:view''images/pc/body/cum/cumface/<<$cum_face_image>>.jpg''">face</a>'
+		killvar 'cum_face_image'
+	elseif i = 13: 
+		$txtloc = 'your hands'
+	elseif i = 14: 
+		$txtloc = 'your <a href="exec:view''images/pc/body/cum/cumbelly/cumbelly'+rand(1,12)+'.jpg''">stomach</a>'
+	elseif i = 15: 
+		$txtloc = 'your <a href="exec:view''images/pc/body/cum/cumtits/cumtits'+rand(1,19)+'.jpg''">breasts</a>'
+	elseif i = 16: 
+		$txtloc = 'your hair</a>'
+	elseif i = 17: 
+		$txtloc = 'in your vagina in a slipped condom'
+	else
+		$txtloc = 'the gusset of your panties</a>'
+	end
+	
+	j = 0
+	:ageloop
+		if cumvolume['<<i>>:<<j>>'] > 0:
+			!!Cum locations set for checking npc reactions
+			cumloc[i] = 1
+			!!amount setting
+			if cumvolume['<<i>>:<<j>>'] > 250:
+				!! 25 ml, about four-five load, gushing
+				$txtamount = 'Enormous '
+			elseif cumvolume['<<i>>:<<j>>'] > 100:
+				!! 10 ml, about two load, flowing
+				$txtamount = 'Huge '
+			elseif cumvolume['<<i>>:<<j>>'] >= 20:
+				!! 2 ml, seeping out
+				$txtamount = 'Decent '
+			else
+				!! residue amount, no leakage
+				$txtamount = 'Small '
+			end
+			
+			!! if sperm age stage is 4, it means inside the body
+			if j = 4:
+				if (vibratorIN = 1 and i = 0) or (analplugin = 1 and i = 3):
+					$txtproxy = 'being plugged in '
+				elseif i = 0 and cumvolume['<<i>>:<<j>>'] < pcs_vag*5:
+					$txtproxy = 'staying inside of '
+				elseif i = 3 and pcs_ass <= 25:
+					$txtproxy = 'staying inside of '
+				else
+					if cumvolume['<<i>>:<<j>>'] > 250:
+						$txtproxy = 'gushing out of '
+					elseif cumvolume['<<i>>:<<j>>'] > 100:
+						$txtproxy = 'flowing out of '
+					elseif cumvolume['<<i>>:<<j>>'] >= 40:
+						$txtproxy = 'seeping out of '
+					else
+						$txtproxy = 'staying inside of '
+					end	
+				end
+			elseif j >= 5:
+			!! if sperm age stage is over 4, meaning in condom
+				if j = 5:
+					$txtproxy = 'buried '
+				elseif j = 6:
+					$txtproxy = 'marinating '
+				else
+					$txtproxy = 'rotting '
+				end
+				if cumcondslip_deep > (vagina / 2): $txtproxy += 'deep '
+			elseif j < 4 and j > 0:
+				!!amount setting
+				if cumvolume['<<i>>:<<j>>'] > 160:
+					!! 10 ml, about two load, flowing
+					$txtproxy = 'coating '
+				elseif cumvolume['<<i>>:<<j>>'] > 40:
+					!! 2 ml, seeping out
+					$txtproxy = 'covering '
+				else
+					!! residue amount, no leakage
+					$txtproxy = 'spattering '
+				end
+				if j = 1:
+					$txtproxy += 'wetly '
+				elseif j = 2:
+					$txtproxy += 'dryly '
+				else
+					$txtproxy += 'powderly '
+				end
+			end
+			
+			$txtperson = ''
+			if cumcount['<<i>>:<<j>>'] = 0:
+				$txtiscum = 'some whitish substance '
+			else
+				$txtiscum = 'cum'
+				if cumcount['<<i>>:<<j>>'] = knownguy['<<i>>:<<j>>']:
+				!! everyone is known (one or more)
+					if knownguy['<<i>>:<<j>>'] = 1:
+						$txtperson = $npc_usedname[$cumowner['<<i>>:<<j>>:0']] + ' '
+					else
+						kmax = 0
+						:nullocator1
+						if $cumowner['<<i>>:<<j>>:<<kmax>>'] ! '':kmax += 1 & jump 'nullocator1'
+						kmax -= 1
+						k = 0
+						:knownloop
+							$txtperson += $npc_usedname[$cumowner['<<i>>:<<j>>:<<k>>']]
+						if k < kmax-1:$txtperson += ', ' & k += 1 & jump 'knownloop'
+						k += 1
+						$txtperson += ' and ' + $npc_usedname[$cumowner['<<i>>:<<j>>:<<k>>']] + ' '
+					end
+				elseif knownguy['<<i>>:<<j>>'] = 0:
+				!! no one is known (one or more)
+					if cumcount['<<i>>:<<j>>'] = 1:
+						$txtperson += 'some guy '
+					else
+						$txtperson += 'some guys '
+					end
+				else
+				!! there are known and unknown guys in the mix
+					if knownguy['<<i>>:<<j>>'] = 1:
+						$txtperson = $npc_usedname[$cumowner['<<i>>:<<j>>:0']] + ' and some guy'
+					else
+						kmax = 0
+						:nullocator2
+						if $cumowner['<<i>>:<<j>>:<<kmax>>'] ! '':kmax += 1 & jump 'nullocator2'
+						kmax -= 1
+						k = 0
+						:mixloop
+							$txtperson += $npc_usedname[$cumowner['<<i>>:<<j>>:<<k>>']] + ', '
+						if k < kmax: k += 1 & jump 'mixloop'
+						$txtperson += 'and some guy'
+					end
+					if cumcount['<<i>>:<<j>>'] - knownguy['<<i>>:<<j>>'] > 1:
+						$txtperson += 's '
+					else
+						$txtperson += ' '
+					end
+				end
+			end
+			if j <= 4 and trt_cumeater = 1 and $txtiscum = 'cum':$txtiscum = '<a href="exec:gs ''cum_manage'', ''cumeater'', <<i>>"><font color=#0064FF>' + $txtiscum + '</font></a>'
+			$txtiscum += ' from '
+			if i = 0 and j = 4 and vibratorIN = 0 and pcs_vag*10 < cumvolume['<<i>>:<<j>>'] and cumvolume['<<i>>:<<j>>'] >= 20:
+				if $pantyworntype ! 'none':
+					$stat_msg += '<BR><b><font color="red">' + $txtamount + 'amounts of ' + $txtiscum + $txtperson + 'is ' + $txtproxy + $txtloc + ' into your panties.</font></b>'
+				else
+					$stat_msg += '<BR><b><font color="red">' + $txtamount + 'amounts of ' + $txtiscum + $txtperson + 'is ' + $txtproxy + $txtloc + ' down your legs.</font></b>'
+				end
+			elseif sparragestage >= 5:
+				if cumcondslip_aware > 0:$stat_msg += '<BR><b><font color="red">' + $txtamount + 'amounts of ' + $txtiscum + $txtperson + 'is ' + $txtproxy + $txtloc + '.</font></b>'
+			elseif j ! 0:
+				$stat_msg += '<BR><b><font color="red">' + $txtamount + 'amounts of ' + $txtiscum + $txtperson + 'is ' + $txtproxy + $txtloc + '.</font></b>'
+			else
+				$stat_msg += '<BR><b><font color="red">Your breath smells like sperm.</font></b>'
+			end
+		end
+	if j < 7: j+=1 & jump 'ageloop'
+if i < 18: i+=1 & jump 'cumlocloop'
+killvar 'i'
+killvar 'j'
+killvar 'txtperson'
+killvar 'k'
+killvar 'kmax'
+killvar 'txtamount'
+killvar 'txtiscum'
+killvar 'txtperson'
+killvar 'txtproxy'
+killvar 'txtloc'
+killvar 'cumvolume'
+killvar 'cumcount'
+killvar 'knownguy'
+killvar 'cumowner'
+
+if Gerpes >= 10 and GenHerpes = 1:
+	$stat_msg += '<BR><b><font color="red">On your pussy sores have appeared. This is genital herpes.</font></b>'
+elseif Gerpes >= 5 and GenHerpes =1:
+	$stat_msg += '<BR><b><font color="red">Your pussy is flushed and highly itchy. This is genital herpes.</font></b>'
+elseif Gerpes >= 3 and Orerpes = 1:
+	$stat_msg += '<BR><b><font color="red">You have cold Sores on your lips. these are signs of genital herpes.</font></b>'
+end
+if Gerpes >= 20 and GenHerpes =1:$stat_msg += '<BR> <b><font color="red">The sores also cover your ass.</font></b>'
+
+if Sifilis >= 50:
+	$stat_msg += '<BR><b><font color="red">Syphilitic rashes cover your whole body.</font></b>'
+elseif Sifilis >= 21:
+	$stat_msg += '<BR><b><font color="red">You have a single big, hard sore on the lip.</font></b>'
+end
+
+if Triper > 2:$stat_msg += '<BR><b><font color="red">From your vagina a white discharge comes out strong and stinging when urinating. Also from your vagina there''s a hard and nasty smell.</font></b>'
+if Kandidoz > 30:$stat_msg += '<BR><b><font color="red">You have thrush.</font></b>'
+if SLomka > 0:$stat_msg += '<BR><b><font color="red">You are very weak and hurt to the bone. You''re in withdrawal.</font></b>'
+if narkday ! daystart and narkoman = 1:$stat_msg += '<BR><b><font color="red">You are very weak and hurt to the bone. Urgently need pale lady.</font></b>'
+if fingal > 0:$stat_msg += '<BR><b><font color="red">You have a black eye.</font></b>'
+
+! WD: Bimbo look
+if bimbolevel > 0: $stat_msg += '<BR><<$bimbostatus>>'
+
+if $clothingworntype = 'nude':
+	if $pantyworntype ! 'none':
+		if $braworntype = 'none':
+			$stat_msg += '<BR><b><font color = red>You are only wearing your panties and your boobs sway invitingly as you walk.</font></b>'
+		else
+			$stat_msg += '<BR><b><font color = red>You are only wearing your underwear.</font></b>'
+		end
+	else
+		if $braworntype ! 'none':
+			$stat_msg += '<BR><b><font color = red>You are only wearing your bra, leaving your pussy and ass completely exposed.</font></b>'
+		else
+			if pcs_inhib < 5:
+				$stat_msg += '<BR><b><font color = red>You are completely naked, and it makes you feel nervous and ashamed.</font></b>'
+			elseif pcs_inhib < 20:
+				$stat_msg += '<BR><b><font color = orange>You are completely naked, you''re not too comfortable with nudity but it is a little exciting.</font></b>'
+			elseif pcs_inhib >= 90:
+				$stat_msg += '<BR><b><font color=#0064FF>You are completely naked, which is far better than having to wear clothes.</font></b>'
+			else
+				$stat_msg += '<BR><b><font color = #FF00FF>You are completely naked. It''s exciting and you feel tingly inside.</font></b>'
+			end
+		end
+	end
+elseif $pantyworntype = 'none' and $clothingworntype ! 'swimwear':
+	if CloStyle = 4:
+		$stat_msg += '<BR><b><font color="red">you are not wearing panties, but you are dressed as a hooker, so that''s hardly surprising.</font></b>'
+	elseif PCloBimbo = 1 or bimbolevel > 0 and PCloSkirt > 3:
+		$stat_msg += '<BR><b><font color = #FF00FF>You like, totally forgot to put on any panties. You are such a bimbo.</font></b>'
+	elseif PCloSkirt > 3:
+		if pcs_inhib > 50:
+			$stat_msg += '<BR><b><font color=#0064FF>You feel liberated not wearing panties as your naked ass flashes from under your short skirt.</font></b>'
+		else
+			$stat_msg += '<BR><b><font color="red">Your face is flushed with shame, you are not wearing panties and your naked ass flashes from under your short skirt.</font></b>'
+		end
+	elseif $clothingworntype ! 'nude':
+		$stat_msg += '<BR><b><font color="red">You are not wearing panties.</font></b>'
+	elseif towel = 1:
+		$stat_msg += '<BR><b><font color = red>Your naked body is covered only by a short towel.</font></b>'
+	end
+elseif PCloBimbo = 1:
+	$stat_msg += '<BR><b><font color = #FF00FF>You are dressed as a bimbo</font></b>'
+end
+!$stat_msg += '<BR>'
+
+if mosol >= 50:
+	$stat_msg += '<BR><b><font color="red">Your pussy itches a great deal and is affecting your mood, you should use some cream or stop wearing pants without underwear.</font></b>'
+elseif mosol >= 30:
+	$stat_msg += '<BR><b><font color="red">Your pussy feels a little itchy, it seems to be from rubbing against your clothing.</font></b>'
+end
+
+if analplugIN = 1:$stat_msg += '<BR><b><font color="red">You have a butt plug inserted in your ass.</font></b>'
+if vibratorin = 1:$stat_msg += '<BR><b><font color="red">You have a vibrator inserted in your vagina.</font></b>'
+!$stat_msg += '<BR>'
+if young_shop_work = 1:
+	if hour = 16 and minut <= 5 and week < 6 and inWorkYoungShop = 0:
+		'You are late for work at Pussy-Cats.'
+	elseif hour = 16 and week < 6 and inWorkYoungShop = 0 and misscheck ! daystart:
+		misscheck = daystart
+		young_shop_miss += 1
+		$stat_msg += '<BR><b><font color="red">You missed work.</font></b>'
+	elseif (hour = 14 or hour = 15) and week < 6:
+		$stat_msg += '<BR><b><font color="red">You start work at Pussy-Cats today at 16:00.</font></b>'
+	end
+end
+
+if young_shop_work1 = 1:
+	if hour = 9 and minut <= 5 and week >= 6 and inWorkYoungShop = 0:
+		'You are late for work at Pussy-Cats.'
+	elseif hour = 9 and week >= 6 and inWorkYoungShop = 0 and misscheck ! daystart:
+		misscheck = daystart
+		young_shop_miss += 1
+		$stat_msg += '<BR><b><font color="red">You missed work.</font></b>'
+	elseif (hour = 7 or hour = 8) and week >= 6:
+		$stat_msg += '<BR><b><font color="red">By 9:00 you have to be at Pussy-Cats to start work.</font></b>'
+	end
+end
+
+if young_shop_work2 = 1:
+	if hour = 9 and minut <= 5 and week < 6 and inWorkYoungShop = 0:
+		'You are late for work at Pussy-Cats.'
+	elseif hour = 9 and week < 6 and inWorkYoungShop = 0 and misscheck ! daystart:
+		misscheck = daystart
+		young_shop_miss += 1
+		$stat_msg += '<BR><b><font color="red">You missed work.</font></b>'
+	elseif (hour = 7 or hour = 8) and week < 6:
+		$stat_msg += '<BR><b><font color="red">By 9:00 you have to be at Pussy-Cats to start work.</font></b>'
+	end
+end
+
+if workrin = 1:
+	if week = 2 or week = 4 or week = 6:
+		if hour = 7:$stat_msg += '<BR><b><font color="red">At 8 o''clock you start work on the market.</font></b>'
+		if hour = 8:$stat_msg += '<BR><b><font color="red">You need to work on the market now.</font></b>'
+	end
+end
+
+if frost > 0:
+	if frost <= 5:
+		$stat_msg += '<BR><b><font>You are a little chilly.</font></b>'
+	elseif frost < 11:
+		$stat_msg += '<BR><b><font color="red">You are cold.</font></b>'
+	else
+		$stat_msg += '<BR><b><font color="red">You are freezing.</font></b>'
+	end
+end
+
+if sick > 0:
+	if sick = 1:
+		$stat_msg += '<BR><b><font color="red">This is not good, a tickle in the throat and a little runny nose.</font></b>'
+	elseif sick < 24:
+		$stat_msg += '<BR><b><font color="red">You have chills. You nose is running and throat is raw, you cough and sneeze - it looks like you got a cold.</font></b>'
+	elseif sick < 48:
+		$stat_msg += '<BR><b><font color="red">You have a fever. Your nose is clogged, it hurts to swallow - throat aches. You continually cough and sneeze - it looks like your cold is pretty bad.</font></b>'
+	elseif sick < 72:
+		$stat_msg += '<BR><b><font color="red">You have a high fever. You have a stuffy nose, sore head and throat, your coughing badly - it looks like you got a strong cold. Maybe it''s the flu.</font></b>'
+	else
+		$stat_msg += '<BR><b><font color="red">You toss in the heat. You have a stuffy nose, headache and ache to the bone. Your throat is inflamed and very sore. You think you''re going to cough up a lung - it looks like you are seriously ill, or maybe it''s just a sore throat.</font></b>'
+	end
+end
+
+if hypnoAddict > 0:
+	if hypnoWithdrawal = 1:
+		if missCum >= timeTresh:
+			$stat_msg += '<BR><b><font color="red">You really miss the feeling of sperm in your body, you are strangely craving it. You should talk to your therapist about it.</font></b>'
+		else
+			$stat_msg += '<BR><b><font color="red">You feel like talking to your therapist. You miss your sessions.</font></b>'
+		end
+	elseif hypnoWithdrawal = 2:
+		if missCum >= timeTresh:
+			$stat_msg += '<BR><b><font color="red">You want some sperm inside of you NOW! You have to talk to your therapist, immediately.</font></b>'
+		else
+			$stat_msg += '<BR><b><font color="red">You need to talk to your therapist. You feel unbalanced without your sessions.</font></b>'
+		end
+	else
+		if missCum >= timeTresh:$stat_msg += '<BR><b><font color="magenta">You miss the feeling of sperm in your body and you feel moody.</font></b>'
+	end
+end
+
+if $mudnerd ! '':$stat_msg += '<BR><<$mudnerd>>'
+
+if home_owned[1] > 0:
+	$streetev_home = 'your apartment'
+elseif tanwork = 1:
+	$streetev_home = 'Tanya''s apartment'
+elseif student > 0:
+	$streetev_home = 'your dorm'
+elseif home_owned[2] = 1:
+	$streetev_home = 'outside your apartment block'
+else
+	$streetev_home = 'the train station'
+end
+
+if hour < meethour[0] and svidanie[0] = 1:$stat_msg += '<BR><<$loverdesc[0]>> will be waiting for you near <<$streetev_home>> at <<meethour[0]>>:00.'
+if hour = meethour[0] and svidanie[0] = 1:$stat_msg += '<BR><b><font color="red"><<$loverdesc[0]>> is waiting for you by <<$streetev_home>>.</font></b>'
+if meetday[0] < daystart and svidanie[0] = 1:pcs_lovers_rel[0] -= 10 & svidanie[0] = 0
+
+if hour < meethour[1] and svidanie[1] = 1:$stat_msg += '<BR><<$loverdesc[1]>> will be waiting for you near <<$streetev_home>> at <<meethour[1]>>:00.'
+if hour = meethour[1] and svidanie[1] = 1:$stat_msg += '<BR><b><font color="red"><<$loverdesc[1]>> is waiting for you by <<$streetev_home>>.</font></b>'
+if meetday[1] < daystart and svidanie[1] = 1:pcs_lovers_rel[1] -= 10 & svidanie[1] = 0
+
+if hour < meethour[2] and svidanie[2] = 1:$stat_msg += '<BR><<$loverdesc[2]>> will be waiting for you near <<$streetev_home>> at <<meethour[2]>>:00.'
+if hour = meethour[2] and svidanie[2] = 1:$stat_msg += '<BR><b><font color="red"><<$loverdesc[2]>> is waiting for you by <<$streetev_home>>.</font></b>'
+if meetday[2] < daystart and svidanie[2] = 1:pcs_lovers_rel[2] -= 10 & svidanie[2] = 0
+
+if StrongNarkota > 20:$stat_msg += '<BR><b><font color="red">You are stoned.</font></b>'
+if amphHigh > 0: $stat_msg += '<BR><b><font color="red">You feel a little wired.</font></b>'
+
+if alko > 2:
+	if alko < 6:
+		slut_bonus = 0
+		$stat_msg += '<BR><b><font color="red">You feel a little buzz from drinking.</font></b>'
+	elseif alko < 9:
+		slut_bonus = 25
+		$stat_msg += '<BR><b><font color="red">You''re drunk.</font></b>'
+	else
+		slut_bonus = 50
+		$stat_msg += '<BR><b><font color="red">You''re wasted.</font></b>'
+	end
+else
+	killvar 'slut_bonus'
+end
+
+if StoryLine = 1:
+	if day = nyp_day and month = 12 and SchoolAtestat = 0 and hour >= 5 and hour <= 14 and StoryLine = 1:$stat_msg += '<BR>At 14:00 your school''s New Year''s party will start.'
+
+	if sisboyday + 1 = daystart and hour < 19 and (npc_QW['A33'] = 3 or npc_QW['A33'] = 5 or npc_QW['A33'] = 7 or (npc_QW['A33'] = 9 and sisboytrioQW ! 1)):$stat_msg += '<BR>' & $stat_msg += '<BR>You promised your sister not to go into your room at 18:00.'
+	if sisboyday + 1 = daystart and hour < 19 and sisboytrioQW = 1:$stat_msg += '<BR>' & $stat_msg += '<BR>You promised your sister to meet her in your room at 18:00.'
+
+	if week = 6 and hour < 9 and detention_set = 1:$stat_msg += '<BR><b>You have a detention this morning and must be at school between 8 and 9.</b>'
+	if gopnik_initiation = 1 and gopnik_initiation_day = daystart and hour > 15 and hour < 21: $stat_msg += '<BR><b>Meet Lena and Lera at the apartment garages at eight</b>'
+	if nerd_night_game = 1 and nerd_night_game_day = daystart and hour > 15 and hour < 21: $stat_msg += '<BR><b>Join nerds at the community center at eight</b>'
+end
+
+if model > 0 and model_week = (daystart - week) / 7 and model_job_week >= 2:
+	$stat_msg += '<BR><b>You have no more modelling jobs available this week.</b>'
+elseif model > 0 and model_week < (daystart - week) / 7 and model_job_week = 1:
+	$stat_msg += '<BR><b>You can get paid for 1 more modelling job this week.</b>'
+elseif model > 0 and model_week < (daystart - week) / 7 and model_job_week < 1:
+	$stat_msg += '<BR><b>You can get paid for 2 modelling jobs this week.</b>'
+end
+if pornstack > 0:
+	aa = 0
+	:pfilmtime
+	if aa < 200 and pfilmday[aa] = 0: aa += 1 & jump 'pfilmtime'
+end
+if pornstack > 0 and pfilmday[0] = 0:
+	if pfilmday[1] = 0:
+		$stat_msg += '<br><b>You will star in another porno in <<aa>> days.</b>'
+	else
+		$stat_msg += '<br><b>You have a porno shoot scheduled tomorrow.</b>'
+	end
+end
+if pfilmday[0] > 0:
+	if pornnow = 1:
+		$stat_msg += '<br><b>You are at a porn shooting.</b>'
+	else
+		if hour < 11: $stat_msg += '<br><b>You are expected in the porno studio at 10:00.</b>'
+		if hour >= 11 and hour < 13: $stat_msg += '<br><b>You should be at the porno studio, shooting!</b>'
+		if hour >= 13: $stat_msg += '<br><b>You missed a scheduled porno shoot!</b>'
+	end
+end
+if pornmiss = 1: $stat_msg += '<br><b>You missed a scheduled porno shoot!</b>'
+if prodcosttrue > 0: $stat_msg += '<br><b>You owe to the porn studio <<prodcost>>?</b>'
+if firstkasting > 0 and pfilmNO < 1: $stat_msg += '<br><b>You can contract '+iif(pornstack < 9,'up to <<10-pornstack>> porn shoots','<<10-pornstack>> porn shoot')+' at the Porn Studio.</b>'
+if hour < 22 and week >= 2 and week <= 4 and workKafe = 1:$stat_msg += '<BR><b><font color="red">Today you have a shift at The Roadhouse cafe starting at 11:00.</font></b>'
+if hour < 17 and week < 5 and workSec >= 1 or hour < 17 and week < 5 and workSec = 1:$stat_msg += '<BR><b><font color="red">Today you have a shift as a secretary at Titran-Express from 9:00 to 17:00</font></b>'
+if hour < 17 and week < 5 and PersSecWork = 1:$stat_msg += '<BR><b><font color="red">Today you have a shift as a secretary at Diner Bystroeshka from 9:00 to 17:00</font></b>'
+if hour < 20 and week => 1 and week <= 5 and age < 18 and workFabrika = 1:$stat_msg += '<BR><b><font color = red>Today you have work in the garment factory in Pavlovsk. Shift starts at 16:00.</font></b>'
+if hour < 16 and week => 1 and week <= 5 and age >= 18 and workFabrika = 1:$stat_msg += '<BR><b><font color = red>Today you have work in the garment factory in Pavlovsk. Shift starts at 8:00.</font></b>'
+if hour < 16 and week > 1 and week <= 5 and workhosp = 1:$stat_msg += '<BR><b><font color="red">You work as a nurse in the Pavlovsk clinic. Your shift starts at 8:00.</font></b>'
+if hour < 10 and worksalon = 1 and (week = 1 or week = 3 or week = 5):$stat_msg += '<BR><b><font color = red>Today you have work as masseuse in beauty salon. Shift starts at 9:00.</font></b>'
+if leonidVisit = 1 and hour < 21 and hour > 6: $stat_msg += '<br><b>You have to serve Leonid at 20:00 in his Pavlovsk office!</b>'
+
+gs 'brother', 'brotherSexCount'
+
+
+!!zero checks marriage
+proverka1 = 0
+proverka2 = 0
+proverka3 = 0
+proverka4 = 0
+proverka5 = 0
+
+if boletus + bilberry > 0:
+	if boletus + bilberry >= 10:
+		$stat_msg +='<br><b><font color = Olive>You have a full basket. </b></font> '
+	else
+		$stat_msg +='<br><b><font color = Olive>In Your basket: </b></font>'
+	end
+	if boletus > 0:$stat_msg +='Mushrooms: <b><<boletus>></b> kg. '
+	if bilberry > 0:$stat_msg +='Berries: <b><<bilberry>></b> kg. '
+end
+
+if disable_LoadSave = 0:
+	$stat_msg += '<br><br><center><a href="exec:savegame ''quicksave.sav'' && pl''Quicksave Done''"><img height = 35 src="images/system/icon/stat_Qsave.png"></a>  <a href="exec:savegame"><img height = 35 src="images/system/icon/stat_save.png"></a>  <a href="exec:opengame"><img height = 35 src="images/system/icon/stat_load.png"></a>  <a href="exec:if input(''Input Anything to confirm Quick Load'') ! null: opengame ''quicksave.sav''"><img height = 35 src="images/system/icon/stat_Qload.png"></a></center>'
+elseif disable_LoadSave = 2:
+	$stat_msg += '<br><br><a href="exec:savegame ''quicksave.sav'' && pl''Quicksave Done''">Quick Save</a>  <a href="exec:savegame">Save</a>  <a href="exec:opengame">Load</a>  <a href="exec:if input(''Input Anything to confirm Quick Load'') ! null: opengame ''quicksave.sav''">Quick Load</a>'
+end
+
+$stat_android +=  ' <a href="exec:savegame ''quicksave.sav'' && pl''Quicksave Done''">Q.S</a>  <a href="exec:if input(''Input Anything to confirm Quick Load'') ! null: opengame ''quicksave.sav''">Q.L</a>'
+
+
+if Enable_statimg_loc = 2:
+	$stat_msg += '<br><<$stat_imgtool_msg>><br><<$stat_imgextra_msg>>'
+end
+
+killvar 'stat_imgtool_msg'
+killvar 'stat_imgextra_msg'
+
+if Enable_statfsize > 0: $stat_msg += '</font>' & !disable this, all texts comes from pl will have the same font size, like[time]
+if Enable_faceturn = 1:	view FUNC('$face_image')
+if Enable_Android = 0:
+	pl '<<$stat_msg>>'
+else
+	'<<$stat_android>>'
+	$stat_msg = 'Android mode, <a href="exec:gs ''$menu_obnovit''">Refresh</a><<$stat_msg>>'
+end
+
+--- stat_display ---------------------------------
+