iWhore/locations/mod_iwhore_realstat.qsrc

# mod_iwhore_realstat
!	PL '<center><video autoplay loop src="mod/iwhore/images/locations/pavlovsk/events/status/bpm35.mp4"></video></center>'

if $ARGS[0] = 'status':
	!!!!!!!!!!!!!!!!!!!!!
	!!!Pain calculation!!
	!!!!!!!!!!!!!!!!!!!!!
!	if recovering_old_stat = 1: gs 'outdoors', 'main'
	if jenna_hellcome ! 1:
		gs 'outdoors', 'main'
	else
		fcolor = rgb(255, 255, 255)
		bcolor = rgb(0, 0, 0)
	end
	if pain['killer'] = 0:
		pain['relief'] = 0
	elseif pain['killer'] = 1:
		pain['relief'] = 50
	end

	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']



	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--------------------------------
	if pcs_sleep > 100: pcs_sleep = 100

	if pcs_mood > 100:
		pcs_mood = 100
	elseif pcs_mood < 0:
		pcs_mood = 0
	!!	Asylum: basically this means clinically insane, like court-ordered committed, saliva dripping, blubbering... Ordinarily irreversible at this stage meaning Game Over, but cheat can help
	end

!	PL 'Make up were used to not scary visitors; your hair were shaved in a little area.'
	gs 'indik', '2', pcs_horny, pcs_horny
	PL '<<$ind>> Arousal'
	gs 'indik', '2', pain['total'], pain['total'], pain['damage']
	PL '<<$ind>> Pain'
	gs 'indik', '1', pcs_health * 100 / healthmax, pcs_health
	PL '<<$ind>> Health'
	if MagikDostup = 0:
		gs 'indik', '1', pcs_mana * 100 / manamax, pcs_mana
		PL '<<$ind>> Manna'
	end
	gs 'indik', '1', pcs_willpwr * 100 / willpowermax, pcs_willpwr
	PL '<<$ind>> Willpower'
	gs 'indik', '1', pcs_stam * 100 / stammax, pcs_stam
	PL '<<$ind>> Stamina'
	gs 'indik', '1', pcs_mood, pcs_mood
	PL '<<$ind>> Mood'
	if cheatNoEat = 0:
		gs 'indik', '1', pcs_energy, pcs_energy
		PL '<<$ind>> Hunger'
	end
	if cheatNoDrink = 0:
		gs 'indik', '1', pcs_hydra, pcs_hydra
		PL '<<$ind>> Thirst'
	end
	if cheatNoSleep = 0:
		gs 'indik', '1', pcs_sleep, pcs_sleep
		PL '<<$ind>> Sleep'
	end
	if mesec > 0:
		PL '<BR><font color="red">You are currently having your period.</font> '
	else
		if recovering_old_stat = 1:
			''
		else
			PL 'You cannot keep track of your period.'
		end

	end


	if pcs_horny >= 50:
		if pcs_horny < 90:
			PL '<BR><font color = #DB7093>You are a little nervous, you wonder why...</font>'
		else
			PL '<BR><font color = #FF1493>You are really nervous...you wonder why...</font>'
		end
	end




	if lactation['active'] <= 0 and lactation['prolactinlvl'] >= 100:
		PL 'Your breasts feel weirdly engorged and sore.'
	end

	if lactation['active'] >= 1:
		if lactation['breastmv'] >= lactation['breastmm']-1:
			if lact_engorgement > 0 and lact_engorgement < 3:
				lact_engorgement = 0
				PL 'The nurse milk you.'
			end
		else
			PL 'Your breasts feel soft and empty.'
		end
	end


!	if recuperation = 1:
!		PL '<font color="red">Pray to your God</font></b>'
!	end

	if body_write ! 0 or face_write ! 0:
		body_write = 0
		face_write = 0
	end


	if Gerpes >= 5 and GenHerpes =1:
		Gerpes = 1
		GenHerpes = 0
		PL '<BR><b><font color="red">Infections are not helpful: you were taken care for genital herpes</font></b>'
	end
	if Gerpes >= 3 and Orerpes = 1:
		Gerpes = 1
		Orerpes = 0
		PL '<BR><b><font color="red">Infections are not helpful: you were taken care for oral herpes</font></b>'
	end


	if Sifilis >= 2:
		Sifilis = 1
		PL '<BR><b><font color="red">Infections are not helpful: you were taken care for Sifilis. </font></b>'
	end

	if Triper > 2:
		Triper = 1
		PL '<BR><b><font color="red">Infections are not helpful: you were taken care for Triper.</font></b>'
	end
	if Kandidoz > 30:
		Kandidoz = 1
		PL '<BR><b><font color="red">Infections are not helpful: you were taken care for thrush.</font></b>'
	end

	if fingal > 0:
		PL '<BR><b><font color="red">You have a black eye...and more.</font></b>'
	end

	! WD: Bimbo look


	if recovering_old_stat = 1:
		''
	else
		if pcs_sweat ! 0:
			pcs_sweat = 0
!			PL 'You were cleaned from sweat and mud and completely disinfected.'
		end
		if bimbolevel > 0 or succubusflag > 0 or hypnoAddict > 0:
			PL 'You are not conscious of your status'
		end
	end

	if frost > 0:
		if frost <= 5:
			frost = 0
			PL '<BR><b><font color="red">You are freezing...but it''s not your body.</font></b>'
		end
	end

	if sick > 0:
		sick = 0
		PL '<BR><b><font color="red">Infections are not helpful: you were taken care for your sick</font></b>'
	end

	if StrongNarkota > 20 or body_healing = 1 or body_healing = 2:
		PL '<BR><b><font color="red">You are stoned.</font></b>'
	end

	!if insleep = 0: gs 'stat_display'

	if insleep = 0: gs 'stat_sklattrib'

	!!The following seems to be part of the combat system.
	musle[1] = strenbuf
	flex[1] = pcs_agil
	stamina[1] = pcs_vital * 3
	wipo[1] = pcs_sprt
	pcs_hgt[1] = pcs_hgt
	salo[1] = salo
	fat[1] = fat
	Bteh[1] = bteh
	Uteh[1] = uteh
	Zteh[1] = zteh

	!!This is a temporary stop-gap measure for the accomadation skill and will be removed

	if succubusflag = 1 and sucskill >= 4:
		if pain['throat'] > 0: pain['throat'] = 0 & sucexcess -= 1
		if pain['asshole'] > 0: pain['asshole'] = 0 & sucexcess -= 1
		if pain['vaginal'] > 0: pain['vaginal'] = 0 & sucexcess -= 1
		if vgape > 0: vgape = 0 & vgapetime = 0 & sucexcess -= 1
		if agape > 0: agape = 0 & agapetime = 0 & sucexcess -= 1
	end

	!!mouth cleaning for drinks
	if pcs_hydra > hydra_check:
		cumspclnt = 2
		gs 'cum_cleanup'
	end


	if alko > 0 and frost > 0:frost = 0
	if StrongNarkota >= 20:
		if alko > 0:alko = 0
	end

	if lernSkill >= 8: intel_exp += 1 & lernSkill = 0
	if lern >= 10: intel_exp += 1 & lern = 0


	if SNarkvnesh = 0:SNarkvnesh = 1

	if SNarkTimes >= SNarkvnesh * 25:
		SNarkvnesh += 1
		vidage += 1
	end

	if gopota >= 20 and gnewQW = 1:gnewQW = 2
	if workDisk = 4 and week > 5:workDisk = 1
	if workDisk = 3 and week > 5:workDiskAtkPlayer = 1

	if bfa < 0: bfa = 0

	if pcs_vag > 36: pcs_vag = 36
	if pcs_throat > 36: pcs_throat = 36
	if pcs_ass > 36: pcs_ass = 36

	if NarkImmune = 1:
		if narkoman ! 0:narkoman = 0
	elseif nark >= 30 and narkoman = 0 and NarkImmune = 0:
		narkoman = 1
	elseif nark = 0 and narkoman = 1:
		narkoman = 0
	end

	if CheatSlut = 1 or succubusflag = 1:
		!!Succubus cannot get pregnant
		mesec = 0
		FocH = 0
		EggRH = 0
		Ovulate = 0
		fertegg = 0
		UnfertEgg = 0
		PregChem = 0
		preg = 0
		LutH = 0
		RecovH = 0
		babyembryo = 0
		cycle = 1
	end

	if pcs_horny < 50 and cheatHorny = 1: pcs_horny = 50

	if hypnoAddict = 1 and pcs_horny < 30:
		pcs_horny = 30
	elseif hypnoAddict = 2 and pcs_horny < 50:
		pcs_horny = 50
	end
	!!These will be made obsolete with the combat system overhaul


	if pcs_dom < 0: SUB = SUB - pcs_dom & pcs_dom = 0
	if SUB < 0: pcs_dom = pcs_dom - SUB & SUB = 0

	if pcs_dom > 100: pcs_dom = 100
	if SUB > 100: SUB = 100

	if SUB >= pcs_dom and pcs_dom > 0:SUB = SUB - pcs_dom & pcs_dom = 0
	if pcs_dom >= SUB and SUB > 0:pcs_dom = pcs_dom - SUB & SUB = 0

	if pcs_horny < 0: pcs_horny = 0
	if pcs_inhib < 0:
		pcs_inhib = 0
	elseif pcs_inhib > 100:
		pcs_inhib = 100
	end

	healthmax = (pcs_vital * 10 + pcs_stren * 5)
	willpowermax = (pcs_intel * 5 + pcs_sprt * 5)
	stammax = 5 * (2 * pcs_vital + pcs_agil + pcs_stren) / 2
	manamax = (pcs_intel * pcs_magik) + pcs_magik * 100 + pcs_vital * 10 + rikudo
	speed = (2 * (pcs_stren + pcs_agil) + pcs_vital) / 5
	if healthmax < 1: healthmax = 1
	if willpowermax < 1: willpowermax = 1
	if stammax < 1: stammax = 1
	if manamax < 1: manamax = 1

	!pre-calc max value for later display
	if fairycurse >= daystart and fairyshoo > 0: pcs_horny = 90
	if min_arousal > pcs_horny: pcs_horny = min_arousal
	if Enable_lockhorny > 0 and pcs_horny < Enable_lockhorny - 1: pcs_horny = Enable_lockhorny - 1
	if pcs_horny < 0: pcs_horny = 0
	if pcs_health > healthmax: pcs_health = healthmax
	if pcs_willpwr > willpowermax: pcs_willpwr = willpowermax
	if pcs_stam > stammax: pcs_stam = stammax
	if pcs_mana > manamax: pcs_mana = manamax
	if pcs_mood > 100: pcs_mood = 100



	!!!!!!!!!!!
	!!!TIME!!!
	!!!!!!!!!!!


	if nminut ! minut or nhour ! hour:
		! Zero totminut will be at New Years Eve of 2015

		! Years since 2015 in days
		totminut = (year - 2015) * 365

		! Days this year
		if month > 1 : totminut += 31 & ! Jan
		if month > 2 : totminut += 28 & ! Feb
		if month > 3 : totminut += 31 & ! Mar
		if month > 4 : totminut += 30 & ! Apr
		if month > 5 : totminut += 31 & ! May
		if month > 6 : totminut += 30 & ! Jun
		if month > 7 : totminut += 31 & ! Jul
		if month > 8 : totminut += 31 & ! Aug
		if month > 9 : totminut += 30 & ! Sep
		if month > 10: totminut += 31 & ! Oct
		if month > 11: totminut += 30 & ! Nov
		if month > 12: totminut += 31 & ! Dec
		if month > 13: totminut += 31 & ! Jan rollover sanity check
		totminut += day

		! Hours
		totminut = totminut * 24 + hour

		! Minutes
		totminut = totminut * 60 + minut + sec / 60

		nminut = minut
		nhour = hour
	end

	!!painkiller
	if pain['killer'] > 0:
		if pain['killer'] = 1: pain_timer = totminut - 2
		pain['killer'] = totminut - pain_timer
		if pain['killer'] >= 243: pain['killer'] = 0
	end

	! WD: 'daystart' Should start at 1
	if daystart = 0: daystart = 1

	!!Gaping of vagina recovery time
	if vgape > 0:
		if vgapetime = 0: vgapetime = totminut
		if (vgapetime + 60) <= totminut:vgape -= 1 & vgapetime = 0
	end

	!!Gaping of anus recovery time
	if agape > 0:
		if agapetime = 0: agapetime = totminut
		if (agapetime + 90) <= totminut:agape -= 1 & agapetime = 0
	end

	!!Recovery from spanking - will be superseded by pain system
	if spanked > 0:
		if spankedtime = 0: spankedtime = totminut
		if (spankedtime + 2040) <= totminut:spanked -= 1 & spankedtime = 0
	end

	!! Orgasmic cooldown
	if orgasmic ! 0:
		if orgasmic < totminut - 30: orgasmic = 0 & pcs_horny = 0
	end


	if sec >= 60:
		:loopsec
		minut += 1
		sec -= 60

		if sec >= 60:jump 'loopsec'
	end

	if minut >= 60:
		:loopmin
		hour += 1
		minut -= 60

		if SbrosNerdism = 1:pcs_nerd = pcs_sprt / 10 - orgasm
		if pcs_nerd < 0:pcs_nerd = 0
		if obkvsdam > 0:obkvsdam = rand(2, 5)

		if scpopt > 1: scpopt = 0

		if insleep = 1:
			if amphHigh > 0:
				pcs_energy -= (4 / amphetamineBonus + succublvl/2)
				pcs_hydra -= (8 / amphetamineBonus + succublvl/2)
			else
				pcs_energy -= (4 * amphetamineBonus + succublvl/2)
				pcs_hydra -= (8 * amphetamineBonus + succublvl/2)
			end
!			pcs_stam += stammax / 10
			pcs_sleep -= 4
			if alko > 0: alko -= 1
		else
			if amphHigh > 0:
				pcs_energy -= (8 / amphetamineBonus + succublvl)
				pcs_hydra -= (16 / amphetamineBonus + succublvl)
			else
				pcs_energy -= (8 * amphetamineBonus + succublvl)
				pcs_hydra -= (16 * amphetamineBonus + succublvl)
			end
!			pcs_stam += stammax / 20
			pcs_sleep -= 4
		end

		if pcs_stam > stammax: pcs_stam = stammax

		gs 'femcyc'
!		if hypnoAddict > 0:dynamic $hypnoAddiction

		!!manna regen
!		pcs_mana += manamax / 20

		if alko > 0 and alkoblock = 0:
			if alko >= 6:
				if pcs_run > 0: run_deg -= 1
				if vball_lvl >= 50: vball_deg -= 1

				if alko >= 10:
					if pcs_stren > 10: stren_deg -= 1
					if pcs_vital > 10: vital_deg -= 1
					if pcs_intel > 10: intel_deg -= 1

					alko -= rand (0,1)
				end
			end

			alko -= rand (0,1)
		end

		!!!!!!!!!!!!!
		!!!Avtoboy!!!
		!!!!!!!!!!!!!
		if hour >= 8 and hour <= 23 and NPCnum > 10 and insleep = 0:
			:markturnirotbort
			xf = 0
			:markturnirotbortt
			xf += 1
			turnirFighter[xf] = rand(2, NPCnum)

			if xf < 2:jump 'markturnirotbortt'
			if turnirFighter[1] = turnirFighter[2]:jump 'markturnirotbort'

			a = turnirFighter[1]
			i = turnirFighter[2]
			NoView = 1
			gs 'mod_iwhore_autofight'
		end
		!!!!!!!!!!!!!

		if shame > 0:shame -= 1 & pcs_mood -= 5
		if smoker >= 20:smokerNeed += 1
		if smokerNeed > 10 and InSleep = 0 and pcs_mood > 20:pcs_mood -= pcs_mood / 10
		if smokerNeed > 300:smokerNeed = 0 & smoker = 0
		if StrongNarkota > 0:pcs_mood -= (40 / StrongNarkota) & StrongNarkota -= 1

		if amphWithdrawl >= 5: amphWithdrawl += 1 & pcs_mood -= (amphWithdrawl / 5)
		if amphHigh > 0:
			if amphWithdrawl < 2: amphWithdrawl = 2
			amphetamineBonus = 3
			amphHigh -= 4
			pcs_mood += (2 * amphHigh)
		elseif amphHigh <= 0 and amphWithdrawl = 2:
			if amphIntake > 0:
				amphIntake -= 1
			else
				amphWithdrawl = 0
			end
			amphHigh = 0
			amphetamineBonus = 2
			pcs_mood -= pcs_mood / 10
		elseif amphIntake > 0:
			amphWithdrawl += 1
		elseif amphHigh = 0 and amphWithdrawl = 0:
			amphetamineBonus = 1
		end
		if amphWithdrawl > 169: amphWithdrawl = 1 & amphetamineBonus = 1 & amphCount = 0
		if SLomka > 0 and pcs_mood > 10:SLomka += 1 & pcs_mood -= pcs_mood / 10
		if SLomka > 100 and StrongNarkota <= 0:SLomka = 0 & SNarkTimes = 0

		if narkoman = 1 and narkday ! daystart:
			pcs_health -= 5
			pcs_willpwr -= 5
			pcs_mood -= 10
		end


		if pcs_energy > 100:
			fat += (pcs_energy - 100) / 4
			pcs_energy = 100
		elseif pcs_energy <= (10 + vitalbuf / 25) and fat > (2 + vitalbuf / 25):
			pcs_energy += 6
			fat -= 2
		end

		if pcs_hydra > 200: pcs_hydra = 200



		if pcs_lipbalm > 0:pcs_lipbalm -= 1
		if sickstage = 1:sick += 1 & sicktimer += 1
		if sickstage = 1 and sicktimer >= 80:sicktimer = 0 & sickstage = 2
		if sickstage = 2 and sick > 0:sick -= 1
		if sickstage = 2 and sick <= 0:sick = 0 & sickstage = 0
		if perkice > 0:perkice -= 1
		if frost > 0:frost -= 1

		if KGOLpers > 0:
			if KGHP < KGHPMAX:KGHP += 10
		end

	!! pain[0] = pain['total'] , pain[1] = pain['damage'] , pain[2] = pain['relief']
		i = arrsize('pain')
	:statpainloop
		if i > 0:
			i -= 1
			pain[i] -= rand(0,1)
			if pain[i] < 0: pain[i] = 0
			jump 'statpainloop'
		end


		if insleep = 0:
			pcs_sweat += rand(0,1)
			if temper >= 20: pcs_sweat += rand(0,1)
		end

		! vovan edition, from 1.2.5
		if clearclothes > 0: clearclothes -= 1
		if huntersAndreisex > 0: huntersAndreisex -= 1
		if huntersSergeisex > 0: huntersSergeisex -= 1
		if huntersIgorsex > 0: huntersIgorsex -= 1
		if huntslutsex > 0: huntslutsex -= 1
		if mira_go_blok > 0: mira_go_blok -= 1
		if mira_no_home > 0: mira_no_home -= 1

		gs 'traits', 'hourly'

		if minut >= 60:jump 'loopmin'
	end

	if hour >= 24: gs 'cikl'

	if minut < 10:
		$nilmin = '0'
	else
		$nilmin = ''
	end

	if kid > 0:
		i = arrsize('yearkid')
		:LoopKidAgeCounter
		if 	i >= 0:
			if yearkid[i] = year + 1 and monthkid[i] = month and daykid[i] = day: msg'It is <<$kidname[i]>>''s birthday today.'
			i -= 1
			jump 'LoopKidAgeCounter'
		end
	end





	if pcs_sleep < 0:
		pcs_sleep = 0
		pcs_mood -= 5
	end
	if recovering_old_stat = 1:
		''
	else
		if pcs_energy < 12:
			pcs_energy += rand(35,80)
	!		pcs_health += 5
		end
		if pcs_hydra < 35:
			pcs_hydra += 100
	!		pcs_health += 2
	!		pcs_willpwr += 1
		end
	end



	!!Set hydra_check value
	hydra_check = pcs_hydra

	if pcs_mood < 0:
		pcs_mood = 0
	end

	if pcs_health < 0:
		pcs_health = 1
	end

	if pcs_willpwr < 0 :
		pcs_willpwr = 0
	end

	if pcs_stam < 0:
		pcs_stam = 0
	end
	gs 'body'
	!!!!!!!!!!!!!


	!!Mood
	maxmood = 100 - moodmodifier
	if pcs_mood > 100:
		pcs_mood = 100
	!!	Asylum: basically this means clinically insane, like court-ordered committed, saliva dripping, blubbering... Ordinarily irreversible at this stage meaning Game Over, but cheat can help
	end



	if hour >= 8 and hour < 14 and week < 6 and mid($start_type,1,2) = 'sg' and SchoolAtestat = 0 and kanikuli = 0 and schoolProgulDay ! daystart:
		!!absence from school
		schoolprogul += 1
		schoolProgulDay = daystart
	end

	if cumcondslip <= 0: cumcondslip_deep = 0

!	if insleep = 0: gs 'stat_display'

	!!!!!!!!!!!!!!!!!!!!!!!STOP!!!!!!!!!!!!!!!!!!!!!!!!!
	if recovering_old_stat = 1:
		if pcs_health >= healthmax:
			PL '<font color="green">You are very healthy.</font>'
		elseif pcs_health >= healthmax * 75 / 100:
			PL '<font color=#0064FF>You are healthy.</font>'
		elseif pcs_health >= healthmax * 50 / 100:
			PL '<font color="brown">You are not healthy.</font>'
		elseif pcs_health >= healthmax * 25 / 100:
			PL '<font color="red">You are sick.</font>'
		else
			PL '<font color="red">You are on the verge of death.</font>'
		end

		if pcs_willpwr >= willpowermax:
			PL '<font color="green">Your mind is clear.</font>'
		elseif pcs_willpwr >= willpowermax * 75 / 100:
			PL '<font color=#0064FF>You are mostly clear of mind.</font>'
		elseif pcs_willpwr >= willpowermax * 50 / 100:
			PL '<font color="brown">You are depressed.</font>'
		elseif pcs_willpwr >= willpowermax * 25 / 100:
			PL '<font color="red">You have depression.</font>'
		else
			PL '<font color="red">You are on the verge of madness.</font>'
		end

		if pcs_mood >= 80:
			PL '<font color="green">You are in a great mood.</font>'
		elseif pcs_mood >= 60:
			PL '<font color=#0064FF>You are in a good mood.</font>'
		elseif pcs_mood >= 40:
			PL '<font color="brown">You are in an OK mood.</font>'
		elseif pcs_mood >= 20:
			PL '<font color="orange">You are in a bad mood.</font>'
		elseif pcs_mood >= 5:
			PL '<font color="red">You are in a terrible mood.</font>'
		else
			PL '<font color="red">You are really depressed and need to improve your mood.</font>'
		end

		if pcs_energy >= 80:
			PL '<font color="green">You couldn''t eat one more bite.</font>'
		elseif pcs_energy >= 40:
			PL '<font color=#0064FF>You''re not really hungry, but a small snack would be very welcome.</font>'
		elseif pcs_energy >= 8:
			PL '<font color="brown">You are hungry.</font>'
		else
			PL '<font color="red">You are very hungry.</font>'
		end

		if pcs_hydra >= 80:
			PL '<font color="green">You are not thirsty at all.</font>'
		elseif pcs_hydra >= 40:
			PL '<font color=#0064FF>You are slightly thirsty.</font>'
		elseif pcs_hydra >= 8:
			PL '<font color="brown">You are thirsty.</font>'
		else
			PL '<font color="red">You are very thirsty.</font>'
		end

		if pcs_sleep >= 80:
			PL '<font color="green">You are well rested.</font>'
		elseif pcs_sleep >= 40:
			PL '<font color=#0064FF>You are slightly tired.</font>'
		elseif pcs_sleep >= 8:
			PL '<font color="brown">You are tired.</font>'
		else
			PL '<font color="red">You are very tired.</font>'
		end

	else
		if pcs_health >= healthmax:
			PL '<font color="green">You think you are healthy.</font>'
		elseif pcs_health >= healthmax * 75 / 100:
			PL '<font color=#0064FF>You are not sure about your health status.</font>'
		elseif pcs_health >= healthmax * 50 / 100:
			PL '<font color="brown">Something is wrong....</font>'
		elseif pcs_health >= healthmax * 25 / 100:
			PL '<font color="red">You are on the verge of death.</font>'
		else
			PL '<font color="red">Prey to your God.</font>'
		end

		if pcs_willpwr >= willpowermax:
			PL '<font color="green">Your mind is clear...</font>'
		elseif pcs_willpwr >= willpowermax * 75 / 100:
			PL '<font color=#0064FF>You can think clear...</font>'
		elseif pcs_willpwr >= willpowermax * 50 / 100:
			PL '<font color="brown">You are depressed.</font>'
		elseif pcs_willpwr >= willpowermax * 25 / 100:
			PL '<font color="red">You feel hopeless.</font>'
		else
			PL '<font color="red">You are on the verge of madness.</font>'
		end


		if pcs_mood >= 80:
			PL '<font color="green">You are in a great mood.</font>'
		elseif pcs_mood >= 60:
			PL '<font color=#0064FF>You are in a good mood.</font>'
		elseif pcs_mood >= 40:
			PL '<font color="brown">You are in an OK mood.</font>'
		elseif pcs_mood >= 20:
			PL '<font color="orange">You are in a bad mood.</font>'
		elseif pcs_mood >= 5:
			PL '<font color="red">You are in a terrible mood.</font>'
		else
			PL '<font color="red">You feel emptied.</font>'
		end
		if pcs_energy >= 80:
			PL '<font color="green">Your body ask for something...</font>'
		elseif pcs_energy >= 40:
			PL '<font color=#0064FF>You look for food but...where?</font>'
		elseif pcs_energy >= 8:
			PL '<font color="brown">Food...you need it.</font>'
		else
			PL '<font color="red">Is really hungry what you feel?</font>'
		end
		if pcs_sleep >= 80:
			PL '<font color="green">You think you can move.</font>'
		elseif pcs_sleep >= 40:
			PL '<font color=#0064FF>You move with difficulties.</font>'
		elseif pcs_sleep >= 8:
			PL '<font color="brown">You put all your strenght to move.</font>'
		else
			PL '<font color="red">Every movement is a pain.</font>'
		end
		if cheatNoSleep= 0:
			PL '<BR>You cannot rest...not now.'
		else
			cheatNoSleep= 0
			PL	'You cannot escape from sleeping in there...'
			msg 'Consider to reinstate your cheat settings...if you''ll have a future.'
		end
	end

	if mesec > 0 :
		if $pantyworntype ! 'none':
			isprokp = 1
		else
			isprok = 1
		end
	end
	!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

	PL '<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

if $ARGS[0] = 'condition':
	'<a href="exec:msg''<<$pcs_firstname>> <<$pcs_lastname>> female <<age>> years old; height: <<pcs_hgt>>cm, weight: <<salo>>. <br>Pain head = <<pain[''head'']>> <br>Pain ears = <<pain[''ears'']>>  <br>Pain eyes = <<pain[''eyes'']>> <br>Pain mouth = <<pain[''mouth'']>> <br>Pain neck = <<pain[''neck'']>>  <br>Pain eyebrows = <<pain[''eyebrows'']>>  <br>Pain back = <<pain[''back'']>>  <br>Pain legL = <<pain[''legL'']>> <br>Pain legR = <<pain[''legR'']>>  <br>Pain feet = <<pain[''feet'']>>   <br>Pain toes = <<pain[''toes'']>>  <br>Pain shoulders = <<pain[''shoulders'']>>  <br>Pain armL = <<pain[''armL'']>> <br>Pain armR = <<pain[''armR'']>> <br>Pain handL = <<pain[''handL'']>> <br>Pain handR = <<pain[''handR'']>> <br>Pain fingers = <<pain[''fingers'']>> <br>Pain chest = <<pain[''chest'']>> <br>Pain ribs = <<pain[''ribs'']>>  <br>Pain tummy = <<pain[''tummy'']>>  ''">Pain status</a>'
	'<a href="exec:msg''<<$pcs_firstname>> <<$pcs_lastname>> female <<age>> years old; height: <<pcs_hgt>>cm, weight: <<salo>>. <br>Head: cracked spots, bones in place. <br>Brain: blood pressed the brain caused of the loss of vital functions: drained. Evaluation in progress.<br>Heart: critical. Two reanimations executed: a third could be fathal. 24h/24h evaluation.<br>Ears damaged: in place. <br>Eyes can be open with extreme caution: evaluation in progress.<br>Lost of <<pcs_teeth>><<$zuba>>, jaw cracked bones in place.<br>Neck: signs of strangling and hit: extreme caution to avoid spinal lesion. <br>Eyebrows: opened tissues, not the main blood loss source. <br>Back: wounds, scars and cracked bones: all in place. Extreme caution. <br>Left leg: cracked bones all in place: a deep wound caused by some wood, was the main source of blood loss. Treated before arrived. <br>Right arm: cracked bones and others severe wounds caused of big blood loss: treated before arrived. <br>Right leg, left arms hands and feet: cracked bones all in place, toes and fingers included.<br>Left shoulder dislocated: treated. <br>Tummy: evaluation in progress for deep damage not safe: extreme caution.<br>Ribs: different ribs cracked. Bones in place no lungs perforation.<br>Lungs: drained 500+270 cc of dirty water full of bacterial. (Consideration: ...sewer? To report to the police.)<br>No reactions to stimuli, no EEG activities. Status: coma. Grade evaluation: in progress.<br><br>Treatment:<br>24h/24h evaluation<br>Artifical feeding<br>Artificial breathing<br>Pharmacolocical deep sedation required: planned reduction at day 3 if patient will survive the night to evaluate coma deepness.<br>Machine pain control: EVA2000 Reserved<br>Antibiotics intravenous continue injection<br>Cortef intravenous two at day<br>Vitamins<br>Daily care<br><br>NOT ENOUGH EXPERIENCED NURSE CAN APPROACH THE PATIENT.<br>Nurses allowed: Niniel and Lyudmila<br>Niniel: vacancy<br>Lyudmila: avaible<br>					  Dr Ignatiy Bogomolov''">Clinical condition</a>'
end
if $ARGS[0] = 'rikudo':
	if MagikDostup = 0:
		if pcs_magik > magikhigh:
			magikhigh += 1
			rikudo += pcs_magik * 100
			$stat_msg += '<BR><b>You feel like a strength has been revealed within you and you gush with magic, lifting you to a new energy level.</b>'
	!!		This will be replaced when a more advanced physical system is made
			if (pcs_magik mod 2 ! 0) and pcs_eyesize < 2: pcs_eyesize += 1
			if (pcs_magik mod 2 = 0) and pcs_lashes < 2: pcs_lashes += 1
		end

	else
	!!This is for error catching
		killvar 'pcs_magik'
		killvar 'rikudo'
		killvar 'pcs_splcstng'
	end
end

if $ARGS[0] = 'day':
	cls
	minut += 5
	gs 'mod_iwhore_realstat' , 'status'
	cls
	if body_healing =< 1:
		PL '<center><img width="85%" src="mod/iwhore/images/locations/pavlovsk/events/status/broken.jpg"></center>'
	elseif body_healing = 2 or body_healing = 3 or body_healing = 4:
		PL '<center><video autoplay loop src="mod/iwhore/images/locations/pavlovsk/events/status/moth.mp4"></video></center>'
	elseif body_healing = 5 or body_healing = 6:
		PL '<center><img width="85%" src="mod/iwhore/images/locations/pavlovsk/events/fight/day7/in0.jpg"></center>'
	elseif body_healing >= 7:
		gs 'outdoors', 'main'
		PL '<<$weatherImage>>'
	else
		''
	end
	PL '--:--  ---  --/--/----'
!	PL '<<$mid(100+hour,2,2)>>:<<$mid(100+minut,2,2)>> <<$week[week]>> <<day>> <<$month>> <<year>>'
	gs 'mod_iwhore_realstat' , 'status'
end

if $ARGS[0] = 'day_out':
	cls
	minut += 5
	gs 'mod_iwhore_realstat' , 'status'
	cls
	if body_healing =< 1:
		PL '<center><img width="85%" src="mod/iwhore/images/locations/pavlovsk/events/status/broken.jpg"></center>'
	elseif body_healing = 2 or body_healing = 3 or body_healing = 4:
		PL '<center><video autoplay loop src="mod/iwhore/images/locations/pavlovsk/events/status/moth.mp4"></video></center>'
	elseif body_healing = 5 or body_healing = 6:
		PL '<center><img width="85%" src="mod/iwhore/images/locations/pavlovsk/events/fight/day7/in0.jpg"></center>'
	elseif body_healing >= 7:
		gs 'outdoors', 'main'
		PL '<<$weatherImage>>'
	else
		''
	end
	PL '<<$mid(100+hour,2,2)>>:<<$mid(100+minut,2,2)>> <<$week[week]>> <<day>> <<$month>> <<year>>'
	gs 'mod_iwhore_realstat' , 'status'
end

if $ARGS[0] = 'night':
	cls
	minut += 5
	gs 'mod_iwhore_realstat' , 'status'
	cls
	if body_healing < 1:
		PL '<center><img width="85%" src="mod/iwhore/images/locations/pavlovsk/events/fight/day1/tired.jpg"></center>'
	elseif body_healing = 1:
		PL '<center><img width="85%" src="mod/iwhore/images/locations/pavlovsk/events/fight/day2/tired.jpg"></center>'
	elseif body_healing = 2:
		PL '<center><img width="85%" src="mod/iwhore/images/locations/pavlovsk/events/fight/day3/tired.jpg"></center>'
	elseif body_healing = 3:
		PL '<center><img width="85%" src="mod/iwhore/images/locations/pavlovsk/events/fight/day4/tired.jpg"></center>'
	elseif body_healing = 4:
		PL '<center><img width="85%" src="mod/iwhore/images/locations/pavlovsk/events/fight/day5/tired.jpg"></center>'
	elseif body_healing = 5:
		PL '<center><img width="85%" src="mod/iwhore/images/locations/pavlovsk/events/fight/day6/tired.jpg"></center>'
	elseif body_healing = 6:
		PL '<center><img width="85%" src="mod/iwhore/images/locations/pavlovsk/events/fight/day7/in0.jpg"></center>'
	elseif body_healing >= 7:
		gs 'outdoors', 'main'
		PL '<<$weatherImage>>'
	else
		''
	end
	PL '--:--  ---  --/--/----'
!	PL '<<$mid(100+hour,2,2)>>:<<$mid(100+minut,2,2)>> <<$week[week]>> <<day>> <<$month>> <<year>>'
	gs 'mod_iwhore_realstat' , 'status'
end

if $ARGS[0] = 'night_out':
	cls
	minut += 5
	gs 'mod_iwhore_realstat' , 'status'
	cls
	if body_healing < 1:
		PL '<center><img width="85%" src="mod/iwhore/images/locations/pavlovsk/events/fight/day1/tired.jpg"></center>'
	elseif body_healing = 1:
		PL '<center><img width="85%" src="mod/iwhore/images/locations/pavlovsk/events/fight/day2/tired.jpg"></center>'
	elseif body_healing = 2:
		PL '<center><img width="85%" src="mod/iwhore/images/locations/pavlovsk/events/fight/day3/tired.jpg"></center>'
	elseif body_healing = 3:
		PL '<center><img width="85%" src="mod/iwhore/images/locations/pavlovsk/events/fight/day4/tired.jpg"></center>'
	elseif body_healing = 4:
		PL '<center><img width="85%" src="mod/iwhore/images/locations/pavlovsk/events/fight/day5/tired.jpg"></center>'
	elseif body_healing = 5:
		PL '<center><img width="85%" src="mod/iwhore/images/locations/pavlovsk/events/fight/day6/tired.jpg"></center>'
	elseif body_healing = 6:
		PL '<center><img width="85%" src="mod/iwhore/images/locations/pavlovsk/events/fight/day7/in0.jpg"></center>'
	elseif body_healing >= 7:
		gs 'outdoors', 'main'
		PL '<<$weatherImage>>'
	else
		''
	end
	PL '<<$mid(100+hour,2,2)>>:<<$mid(100+minut,2,2)>> <<$week[week]>> <<day>> <<$month>> <<year>>'
	gs 'mod_iwhore_realstat' , 'status'
end

if $ARGS[0] = 'dailycare':
	cls
	minut += 5
	gs 'mod_iwhore_realstat' , 'status'
	cls
	if body_healing =< 3:
		PL '<center><img width="75%" src="mod/iwhore/images/locations/pavlovsk/events/fight/stage0g.jpg"></center>'
	elseif body_healing =< 5:
		PL '<center><img width="70%" src="mod/iwhore/images/locations/pavlovsk/events/fight/stage1.jpg"></center>'
	elseif body_healing =< 7:
		PL '<center><img width="75%" src="mod/iwhore/images/locations/pavlovsk/events/fight/stage2.jpg"></center>'
	else
		gs 'outdoors', 'main'
		PL '<<$weatherImage>>'
	end
	PL '<<$mid(100+hour,2,2)>>:<<$mid(100+minut,2,2)>> <<$week[week]>> <<day>> <<$month>> <<year>>'
	gs 'mod_iwhore_realstat' , 'status'

end

if $ARGS[0] = 'first_day':
	cls
	minut += 5
	PL	'<center><img width="70%" src="mod/iwhore/images/locations/pavlovsk/events/fight/stage0g.jpg"></center>'
	PL '<<$mid(100+hour,2,2)>>:<<$mid(100+minut,2,2)>> <<$week[week]>> <<day>> <<$month>> <<year>>'
	gs 'mod_iwhore_realstat' , 'status'
end

if $ARGS[0] = 'restoring':

	cls
	minut += 2
	gs 'mod_iwhore_realstat' , 'status'
	cls
	PL '<<$weatherImage>>'
	PL '<<$mid(100+hour,2,2)>>:<<$mid(100+minut,2,2)>> <<$week[week]>> <<day>> <<$month>> <<year>>'
	gs 'mod_iwhore_realstat' , 'status'
	if (body_healing = 8 or body_healing = 9 or body_healing = 10 or body_healing = 11) and hour < 22 and hour > 6 and minut > 45: gt 'mod_iwhore_recovery', 'schedule'

end

if $ARGS[0] = 'starter':
	if hour = 7:
		if body_healing >= 8:
			pcs_energy = 50
			pcs_willpwr = 5
			pcs_mood = 5
			pcs_sleep = 40
			if body_healing = 8:
				pcs_stam = 10
			elseif body_healing = 9:
				pcs_stam = 15
			elseif body_healing = 10:
				pcs_stam = 20
			elseif body_healing = 11:
				pcs_stam = 25
			elseif body_healing = 12:
				pcs_stam = 30
			elseif body_healing = 13:
				pcs_stam = 50
			end
		else
			pcs_energy = 1
			pcs_willpwr = 0
			pcs_mood = 0
			pcs_sleep = 10
			pcs_stam = 1
		end
	end
end

if $ARGS[0] = 'mind_pieces':
	if mind_healing < 1:
		ADDOBJ	'<center><img width="85%" src="mod/iwhore/images/locations/pavlovsk/events/beast/mind/pieces1.jpg"></center>'
	elseif mind_healing = 1:
		ADDOBJ	'<center><img width="85%" src="mod/iwhore/images/locations/pavlovsk/events/beast/mind/pieces2.jpg"></center>'
	elseif mind_healing = 2:
		ADDOBJ	'<center><img width="85%" src="mod/iwhore/images/locations/pavlovsk/events/beast/mind/pieces3.jpg"></center>'
	elseif mind_healing = 3:
		ADDOBJ	'<center><img width="85%" src="mod/iwhore/images/locations/pavlovsk/events/beast/mind/pieces4.jpg"></center>'
	elseif mind_healing = 4:
		ADDOBJ	'<center><img width="85%" src="mod/iwhore/images/locations/pavlovsk/events/beast/mind/pieces5.jpg"></center>'
	elseif mind_healing = 5:
		ADDOBJ	'<center><img width="85%" src="mod/iwhore/images/locations/pavlovsk/events/beast/mind/pieces6.jpg"></center>'
	elseif mind_healing = 6:
		ADDOBJ	'<center><img width="85%" src="mod/iwhore/images/locations/pavlovsk/events/beast/mind/pieces7.jpg"></center>'
	elseif mind_healing = 7:
		ADDOBJ	'<center><img width="85%" src="mod/iwhore/images/locations/pavlovsk/events/beast/mind/pieces8.jpg"></center>'
	elseif mind_healing = 8:
		ADDOBJ	'<center><img width="85%" src="mod/iwhore/images/locations/pavlovsk/events/beast/mind/pieces9.jpg"></center>'
	elseif mind_healing = 9:
		ADDOBJ	'<center><img width="85%" src="mod/iwhore/images/locations/pavlovsk/events/beast/mind/pieces10.jpg"></center>'
	elseif mind_healing = 10:
		ADDOBJ	'<center><img width="85%" src="mod/iwhore/images/locations/pavlovsk/events/beast/mind/pieces11.jpg"></center>'
	elseif mind_healing = 11:
		ADDOBJ	'<center><img width="85%" src="mod/iwhore/images/locations/pavlovsk/events/beast/mind/pieces12.jpg"></center>'
	elseif mind_healing = 12:
		ADDOBJ	'<center><img width="85%" src="mod/iwhore/images/locations/pavlovsk/events/beast/mind/x.jpg"></center>'
	else
		ADDOBJ	''
	end
end

if $ARGS[0] = 'lida':
	if pain['head'] > 0:pain['head'] -= rand(1,5)
	if pain['hair'] > 0:pain['hair'] -= rand(1,5)
	if pain['ears'] > 0:pain['ears'] -= rand(1,5)
	if pain['eyebrows'] > 0:pain['eyebrows'] -= rand(1,5)
	if pain['eyes'] > 0:pain['eyes'] -= rand(1,5)
	if pain['cheeks'] > 0:pain['cheeks'] -= rand(1,5)
	if pain['nose'] > 0:pain['nose'] -= rand(1,5)
	if pain['mouth'] > 0:pain['mouth'] -= rand(1,5)
	if pain['lips'] > 0:pain['lips'] -= rand(1,5)
	if pain['tongue'] > 0:pain['tongue'] -= rand(1,5)
	if pain['throat'] > 0:pain['throat'] -= rand(1,5)
	if pain['neck'] > 0:pain['neck'] -= rand(1,5)
	if pain['back'] > 0:pain['back'] -= rand(1,5)
	if pain['asscheeks'] > 0:pain['asscheeks'] -= rand(1,5)
	if pain['asshole'] > 0:pain['asshole'] -= rand(1,5)
	if pain['hips'] > 0:pain['hips'] -= rand(1,5)
	if pain['thighs'] > 0:pain['thighs'] -= rand(1,5)
	if pain['legL'] > 0:pain['legL'] -= rand(1,5)
	if pain['legR'] > 0:pain['legR'] -= rand(1,5)
	if pain['feet'] > 0:pain['feet'] -= rand(1,5)
	if pain['toes'] > 0:pain['toes'] -= rand(1,5)
	if pain['shoulders'] > 0:pain['shoulders'] -= rand(1,5)
	if pain['armL'] > 0:pain['armL'] -= rand(1,5)
	if pain['armR'] > 0:pain['armR'] -= rand(1,5)
	if pain['hands'] > 0:pain['hands'] -= rand(1,5)
	if pain['fingers'] > 0:pain['fingers'] -= rand(1,5)
	if pain['chest'] > 0:pain['chest'] -= rand(1,5)
	if pain['breasts'] > 0:pain['breasts'] -= rand(1,5)
	if pain['nipples'] > 0:pain['nipples'] -= rand(1,5)
	if pain['ribs'] > 0:pain['ribs'] -= rand(1,5)
	if pain['tummy'] > 0:pain['tummy'] -= rand(1,5)
	if pain['pubic'] > 0:pain['pubic'] -= rand(1,5)
	if pain['vaginal'] > 0:pain['vaginal'] -= rand(1,5)
	if pain['labia'] > 0:pain['labia'] -= rand(1,5)
	if pain['clitoris'] > 0:pain['clitoris'] -= rand(1,5)
	if pain['urethra'] > 0:pain['urethra'] -= rand(1,5)
	if pain['cervix'] > 0:pain['cervix'] -= rand(1,5)

end

if $ARGS[0] = 'lidalove':
	if pain['head'] > 0:pain['head'] -= rand(0,3)
	if pain['hair'] > 0:pain['hair'] -= rand(0,3)
	if pain['ears'] > 0:pain['ears'] -= rand(0,3)
	if pain['eyebrows'] > 0:pain['eyebrows'] -= rand(0,3)
	if pain['eyes'] > 0:pain['eyes'] -= rand(0,3)
	if pain['cheeks'] > 0:pain['cheeks'] -= rand(0,3)
	if pain['nose'] > 0:pain['nose'] -= rand(0,3)
	if pain['mouth'] > 0:pain['mouth'] -= rand(0,3)
	if pain['lips'] > 0:pain['lips'] -= rand(0,3)
	if pain['tongue'] > 0:pain['tongue'] -= rand(0,3)
	if pain['throat'] > 0:pain['throat'] -= rand(0,3)
	if pain['neck'] > 0:pain['neck'] -= rand(0,3)
	if pain['back'] > 0:pain['back'] -= rand(0,3)
	if pain['asscheeks'] > 0:pain['asscheeks'] -= rand(0,3)
	if pain['asshole'] > 0:pain['asshole'] -= rand(0,3)
	if pain['hips'] > 0:pain['hips'] -= rand(0,3)
	if pain['thighs'] > 0:pain['thighs'] -= rand(0,3)
	if pain['legL'] > 0:pain['legL'] -= rand(0,3)
	if pain['legR'] > 0:pain['legR'] -= rand(0,3)
	if pain['feet'] > 0:pain['feet'] -= rand(0,3)
	if pain['toes'] > 0:pain['toes'] -= rand(0,3)
	if pain['shoulders'] > 0:pain['shoulders'] -= rand(0,3)
	if pain['armL'] > 0:pain['armL'] -= rand(0,3)
	if pain['armR'] > 0:pain['armR'] -= rand(0,3)
	if pain['hands'] > 0:pain['hands'] -= rand(0,3)
	if pain['fingers'] > 0:pain['fingers'] -= rand(0,3)
	if pain['chest'] > 0:pain['chest'] -= rand(0,3)
	if pain['breasts'] > 0:pain['breasts'] -= rand(0,3)
	if pain['nipples'] > 0:pain['nipples'] -= rand(0,3)
	if pain['ribs'] > 0:pain['ribs'] -= rand(0,3)
	if pain['tummy'] > 0:pain['tummy'] -= rand(0,3)
	if pain['pubic'] > 0:pain['pubic'] -= rand(0,3)
	if pain['vaginal'] > 0:pain['vaginal'] -= rand(0,3)
	if pain['labia'] > 0:pain['labia'] -= rand(0,3)
	if pain['clitoris'] > 0:pain['clitoris'] -= rand(0,3)
	if pain['urethra'] > 0:pain['urethra'] -= rand(0,3)
	if pain['cervix'] > 0:pain['cervix'] -= rand(0,3)

end

if $ARGS[0] = 'lidamemo':

	*clr & cla
	'<center><img <<$set_imgh>> src="mod/iwhore/images/locations/pavlovsk/events/fight/care/recovery/lida1.jpg"></center>'
	if hour = 8:
		'Nurse Lida: "...We should go to Dr Bogomolov..."'
	elseif hour = 7:
		'Nurse Lida: "...Did you wash yourself?...You should before going to Dr Bogomolov..."'
	elseif hour = 10:
		'Nurse Lida: "...Spa Time!"'
	elseif hour = 12:
		'Nurse Lida: "...You are weak, you need to eat something..."'
	elseif hour = 13:
		'Nurse Lida: "Did you wash your mouth? We should go to the dentist..."'
	elseif hour = 14:
		'Nurse Lida: "...Uhmmm...card game? Some juicy gossip?"'
	elseif hour = 15:
		'Nurse Lida: "...Hehehe...let Lida made her work!"'
	elseif hour = 17:
		'Nurse Lida: "...Spa bonus!"'
	elseif hour = 19:
		'Nurse Lida: "...You are weak, you need to eat something..."'
	elseif hour = 20:
		'Nurse Lida: "...Let''s talk!"'
	elseif hour = 21:
		'Nurse Lida: "...You should rest. Tomorrow will be a wonderful day!"'
	else
		''
	end

	if hour = 10:
		act 'Pool':gt 'mod_iwhore_therapy', 's_p_a'
	elseif hour = 8:
		act 'Doctor Bogomolov''s office':gt 'mod_iwhore_therapy', 'bogomolov'
	elseif hour = 9:
		act 'Doctor Smirnitskaya''s office':gt 'mod_iwhore_therapy', 'smirnitskaya'
	elseif hour = 17:
		act 'Pool':gt 'mod_iwhore_therapy', 's_p_a'
	elseif hour = 15:
		act 'Exercise':gt 'mod_iwhore_therapy', 'exercise'
	elseif hour = 14 and iskra_war >= 2:
		act '"Lida...that girl..."':gt 'mod_iwhore_recovery', 'purity'

	elseif hour = 12 or hour = 19:
		act 'Eat':gt 'mod_iwhore_recovery', 'lunch'
	elseif hour = 13:
		act 'Tooth replacement':gt 'mod_iwhore_therapy', 'tooth'
	elseif hour = 20:
		act 'Chit chat':gt 'mod_iwhore_recovery', 'lidachat'
		if headquarter = 1:
			act '"Headquarter?"':gt 'mod_iwhore_recovery', 'nursestation'
		else
			act '"Can we go to the headquarter?"':gt 'mod_iwhore_recovery', 'nursestation'
		end
	elseif hour = 21:
		act 'Go to sleep':gt 'mod_iwhore_recovery', 'bed'
	else
		''
	end

	act 'Your room':gt 'mod_iwhore_recovery', 'room120'
	act 'Hallway':gt 'mod_iwhore_recovery', 'hallway'
end


if $ARGS[0] = 'was':

	pregtime = 0
	pregtalk = 0
	preg = 0
	abortionbirthdate = daystart
	cycle = 4
	unintendedabort = 1
	RecovH = rand(7,70)
	RecovH += pregchem
!	knowpregloss = 2
!	thinkpreg = 0
!	knowpreg = 0
	nextbaby = arrsize('yearkid')
!	to create an apposite ending for broodcurse? probably this is the best solution...
!	to check at the ending before using gs 'stat'
	if broodcurse > 0: over = 13 & gt'gameover'
	:poliabortloop
	if Babyptype[nextbaby] < 200:
		KILLVAR 'polkid',nextbaby
		KILLVAR '$kidname',nextbaby
		KILLVAR 'kidage',nextbaby
		KILLVAR 'daykid',nextbaby
		KILLVAR 'monthkid',nextbaby
		KILLVAR 'yearkid',nextbaby
		KILLVAR 'Babyptype',nextbaby
		KILLVAR '$ChildFath',nextbaby
		KILLVAR '$ChildThFath',nextbaby
		KILLVAR 'hairkid',nextbaby
		KILLVAR 'eyeskid',nextbaby
		KILLVAR 'cumarrcon',nextbaby
		KILLVAR '$wombpotfath',nextbaby
		BabyEmbryo -= 1
		nextbaby -= 1
	end
	nextbaby -= 1
	if nextbaby > 0:
		jump 'poliabortloop'
	end
!	To leave pcs_childtrauma because it''s similar and probably linked to Pavlin child loss.
!   Actually used pcs_was_trauma and pcs_awake_trauma...keep in mind.
!	pcs_childtrauma += 8

	Surgeryday = daystart
	recuperation = 1
	killvar 'dailyhealthimprov'
end



--- mod_iwhore_realstat ---------------------------------