glife/locations/Cheatmenu_din.qsrc

# Cheatmenu_din

*clr & cla

!All the active dynamics for the cheat menu are here
$cheatmenu['empty'] = {
	!Yes, intentionally empty, do not remove it
}

$cheatmenu['work'] = {
	if cheatWork = 0:
		cheatWork = 1
		dynamic $cheatmenu['permanent']
		exit
	elseif cheatWork = 1:
		cheatWork = 0
		dynamic $cheatmenu['permanent']
	end
}

$cheatmenu['hair'] = {
	if cheatHapri = 0:
		cheatHapri = 1
		dynamic $cheatmenu['permanent']
		exit
	elseif cheatHapri = 1:
		cheatHapri = 0
		dynamic $cheatmenu['permanent']
	end
}

$cheatmenu['enema'] = {
	if cheatKlisma = 0:
		cheatKlisma = 1
		dynamic $cheatmenu['permanent']
		exit
	elseif cheatKlisma = 1:
		cheatKlisma = 0
		dynamic $cheatmenu['permanent']
	end
}

$cheatmenu['nomakeup'] = {
	if cheatNomakeup = 0:
		cheatNomakeup = 1
		dynamic $cheatmenu['permanent']
		exit
	elseif cheatNomakeup = 1:
		cheatNomakeup = 0
		dynamic $cheatmenu['permanent']
	end
}

$cheatmenu['nosweat'] = {
	if cheatNoSweat = 0:
		cheatNoSweat = 1
		dynamic $cheatmenu['permanent']
		exit
	elseif cheatNoSweat = 1:
		cheatNoSweat = 0
		dynamic $cheatmenu['permanent']
	end
}

$cheatmenu['noEat'] = {
	if cheatNoEat = 0:
		cheatNoEat = 1
		dynamic $cheatmenu['permanent']
		exit
	elseif cheatNoEat = 1:
		cheatNoEat = 0
		dynamic $cheatmenu['permanent']
	end
}

$cheatmenu['noDrink'] = {
	if cheatNoDrink = 0:
		cheatNoDrink = 1
		dynamic $cheatmenu['permanent']
		exit
	elseif cheatNoDrink = 1:
		cheatNoDrink = 0
		dynamic $cheatmenu['permanent']
	end
}

$cheatmenu['noSleep'] = {
	if cheatNoSleep = 0:
		cheatNoSleep = 1
		dynamic $cheatmenu['permanent']
		exit
	elseif cheatNoSleep = 1:
		cheatNoSleep = 0
		dynamic $cheatmenu['permanent']
	end
}

$cheatmenu['noMood'] = {
	if cheatNoMood = 0:
		cheatNoMood = 1
		dynamic $cheatmenu['permanent']
		exit
	elseif cheatNoMood = 1:
		cheatNoMood = 0
		dynamic $cheatmenu['permanent']
	end
}

$cheatmenu['noFat'] = {
	if cheatNoFat = 0:
		cheatNoFat = 1
		dynamic $cheatmenu['permanent']
		exit
	elseif cheatNoFat = 1:
		cheatNoFat = 0
		dynamic $cheatmenu['permanent']
	end
}

$cheatmenu['health'] = {
	if cheatHealth = 0:
		cheatHealth = 1
		dynamic $cheatmenu['permanent']
		exit
	elseif cheatHealth = 1:
		cheatHealth = 0
		dynamic $cheatmenu['permanent']
	end
}

$cheatmenu['Bandit'] = {
	if cheatBandit = 0:
		cheatBandit = 1
		dynamic $cheatmenu['permanent']
		exit
	elseif cheatBandit = 1:
		cheatBandit = 0
		dynamic $cheatmenu['permanent']
	end
}

$cheatmenu['fight'] = {
	if fight_cheat = 0:
		fight_cheat = 1
		dynamic $cheatmenu['permanent']
		exit
	elseif fight_cheat = 1:
		fight_cheat = 0
		dynamic $cheatmenu['permanent']
	end
}

$cheatmenu['autocombat'] = {
	if autocombat_cheat = 0:
		autocombat_cheat = 1
		dynamic $cheatmenu['permanent']
		exit
	elseif autocombat_cheat = 1:
		autocombat_cheat = 0
		dynamic $cheatmenu['permanent']
	end
}

$cheatmenu['age'] = {
	:tooyoung
	age = year - ((pcs_dob - (pcs_dob mod 10000)) / 10000)
	if ((month * 100) + day) <= pcs_dob mod 10000: age -= 1
	if age < 15: pcs_dob -= 10000 & jump 'tooyoung'
	dynamic $cheatmenu['looks']
}

$cheatmenu['visualage'] = {
	vidage = input("For how many years you want to look?")
	if vidage <= 14: vidage = 14
	dynamic $cheatmenu['looks']
}

$cheatmenu['money'] = {
	money = input("How much money do you want to have?")
	if money < 0:money = 0
	dynamic $cheatmenu['state']
}

$cheatmenu['bodyMod'] = {
	*clr & cla
	act 'Return to last menu': dynamic $cheatmenu['state']

	'<center><h1>Cheat Menu - Body Modification</h1></center>'
	'<center><table cellspacing="0" cellpadding="20" valign="top"><tr>'
	'<td width="400" cellspacing="0" cellpadding="20" valign="top">'
	'<center><b><font color="red">WARNING!</font></b></center>'
	'Changing body shape does not resize clothes.'
	'May cause adverse interactions, use at your own risk!'
	''
	'You are currently <<$body>>.'
	''
	'You may select from the following sizes:'
	''
	if bodset ! 3:
		'starving (No, you may not select ''starving'', it''s here to show where the scale starts)'
		''
		if salocatnow ! 1:
			'<a href="exec:salo = 20 & gs ''body_shape'', ''softreset'' & gs ''stat'' & dynamic $cheatmenu[''bodyMod'']"><<$bodimgsets[((bodset * 10) + 1)]>></a>'
			''
		end
		if salocatnow ! 2:
			'<a href="exec:salo = 40 & gs ''body_shape'', ''softreset'' & gs ''stat'' & dynamic $cheatmenu[''bodyMod'']"><<$bodimgsets[((bodset * 10) + 2)]>></a>'
			''
		end
		if salocatnow ! 3:
			'<a href="exec:salo = 60 & gs ''body_shape'', ''softreset'' & gs ''stat'' & dynamic $cheatmenu[''bodyMod'']"><<$bodimgsets[((bodset * 10) + 3)]>></a>'
			''
		end
		if salocatnow ! 4:
			'<a href="exec:salo = 80 & gs ''body_shape'', ''softreset'' & gs ''stat'' & dynamic $cheatmenu[''bodyMod'']"><<$bodimgsets[((bodset * 10) + 4)]>></a>'
			''
		end
		if salocatnow ! 5:
			'<a href="exec:salo = 100 & gs ''body_shape'', ''softreset'' & gs ''stat'' & dynamic $cheatmenu[''bodyMod'']"><<$bodimgsets[((bodset * 10) + 5)]>></a>'
			''
		end
		if salocatnow ! 6:
			'<a href="exec:salo = 120 & gs ''body_shape'', ''softreset'' & gs ''stat'' & dynamic $cheatmenu[''bodyMod'']"><<$bodimgsets[((bodset * 10) + 6)]>></a>'
			''
		end
		if salocatnow ! 7:
			'<a href="exec:salo = 140 & gs ''body_shape'', ''softreset'' & gs ''stat'' & dynamic $cheatmenu[''bodyMod'']"><<$bodimgsets[((bodset * 10) + 7)]>></a>'
			''
		end
	else
		if (pregchem < 2688) = 0:
			'<a href="exec:pregchem = 100 & pregtime = 4 & gs ''body_shape'', ''softreset'' & gs ''stat'' & dynamic $cheatmenu[''bodyMod'']"><<$bodimgsets[((bodset * 10))]>></a>'
			''
		end
		if (pregchem >= 2688 and pregchem < 3192) = 0:
			'<a href="exec:pregchem = 2688 & pregtime = 112 & gs ''body_shape'', ''softreset'' & gs ''stat'' & dynamic $cheatmenu[''bodyMod'']"><<$bodimgsets[((bodset * 10) + 1)]>></a>'
			''
		end
		if (pregchem >= 3192 and pregchem < 3696) = 0:
			'<a href="exec:pregchem = 3192 & pregtime = 133 & gs ''body_shape'', ''softreset'' & gs ''stat'' & dynamic $cheatmenu[''bodyMod'']"><<$bodimgsets[((bodset * 10) + 2)]>></a>'
			''
		end
		if (pregchem >= 3696 and pregchem < 4200) = 0:
			'<a href="exec:pregchem = 3696 & pregtime = 154 & gs ''body_shape'', ''softreset'' & gs ''stat'' & dynamic $cheatmenu[''bodyMod'']"><<$bodimgsets[((bodset * 10) + 3)]>></a>'
			''
		end
		if (pregchem >= 4200 and pregchem < 4704) = 0:
			'<a href="exec:pregchem = 4200 & pregtime = 175 & gs ''body_shape'', ''softreset'' & gs ''stat'' & dynamic $cheatmenu[''bodyMod'']"><<$bodimgsets[((bodset * 10) + 4)]>></a>'
			''
		end
		if (pregchem >= 4704 and pregchem < 5208) = 0:
			'<a href="exec:pregchem = 4704 & pregtime = 196 & gs ''body_shape'', ''softreset'' & gs ''stat'' & dynamic $cheatmenu[''bodyMod'']"><<$bodimgsets[((bodset * 10) + 5)]>></a>'
			''
		end
		if (pregchem >= 5208 and pregchem < 5712) = 0:
			'<a href="exec:pregchem = 5208 & pregtime = 217 & gs ''body_shape'', ''softreset'' & gs ''stat'' & dynamic $cheatmenu[''bodyMod'']"><<$bodimgsets[((bodset * 10) + 6)]>></a>'
			''
		end
		if (pregchem >= 5712 and pregchem < 6216) = 0:
			'<a href="exec:pregchem = 5712 & pregtime = 238 & gs ''body_shape'', ''softreset'' & gs ''stat'' & dynamic $cheatmenu[''bodyMod'']"><<$bodimgsets[((bodset * 10) + 7)]>></a>'
			''
		end
		if (pregchem >= 6216) = 0:
			'<a href="exec:pregchem = 6216 & pregtime = 259 & gs ''body_shape'', ''softreset'' & gs ''stat'' & dynamic $cheatmenu[''bodyMod'']"><<$bodimgsets[((bodset * 10) + 8)]>></a>'
			''
		end
	end

	'</tr></table></b></center>'
}

$cheatmenu['addict'] = {
	if NarkImmune = 0:
		NarkImmune = 1
		smoker = 0
		smokerNeed = 0
		dynamic $cheatmenu['permanent']
		exit
	elseif NarkImmune = 1:
		NarkImmune = 0
		dynamic $cheatmenu['permanent']
	end
}

$cheatmenu['cheatHorny'] = {
	if cheatHorny = 0:
		cheatHorny = 1
		dynamic $cheatmenu['permanent']
		exit
	elseif cheatHorny = 1:
		cheatHorny = 0
		dynamic $cheatmenu['permanent']
	end
}
$cheatmenu['slutshot'] = {
	if cheatSlut = 0:
		cheatSlut = 1
		cycle = 6
		dynamic $cheatmenu['permanent']
		exit
	elseif cheatSlut = 1:
		cheatSlut = 0
		cycle = 0
		dynamic $cheatmenu['permanent']
	end
}

$cheatmenu['cheat_NoPregnancy'] = {
	if cheat_NoPregnancy = 1:
		killvar 'cheat_NoPregnancy'
		dynamic $cheatmenu['permanent']
	else
		cheat_NoPregnancy = 1
		dynamic $cheatmenu['permanent']
	end
}

$cheatmenu['cheat_NoLactation'] = {
	if cheat_NoLactation = 1:
		killvar 'cheat_NoLactation'
		dynamic $cheatmenu['permanent']
	else
		cheat_Nolactation = 1
		dynamic $cheatmenu['permanent']
	end
}

$cheatmenu['Vibrator'] = {
	if cheatVib = 0:
		cheatVib = 1
		bedvibrator = 1
		dynamic $cheatmenu['permanent']
	elseif cheatVib = 1:
		cheatVib = 0
		bedvibrator = 0
		dynamic $cheatmenu['permanent']
	end
}

$cheatmenu['BimboCloth'] = {
	if cheatBimbo = 0:
		cheatBimbo = 1
		dynamic $cheatmenu['permanent']
		bimbo = 0
		bimbolevel = 0
		bimbowithdrawal = 0
	elseif cheatBimbo = 1:
		cheatBimbo = 0
		dynamic $cheatmenu['permanent']	
	end
}

$cheatmenu['exhib_block'] = {
	if exhib_cheat = 0:
		exhib_cheat = 1
		dynamic $cheatmenu['permanent']
		pcs_exhib = 0
		Exhibitionist_lvl = 0
	elseif exhib_cheat = 1:
		exhib_cheat = 0
		dynamic $cheatmenu['permanent']	
	end
}

$cheatmenu['cumtrait_block'] = {
	if cumeater_cheat = 0:
		cumeater_cheat = 1
		dynamic $cheatmenu['permanent']
		trt_cumeater = 0
	elseif cumeater_cheat = 1:
		cumeater_cheat = 0
		dynamic $cheatmenu['permanent']	
	end
}

$cheatmenu['timecheat'] = {
	if cheatTime = 0:
		cheatTime = 1
		dynamic $cheatmenu['permanent']
		exit
	elseif cheatTime = 1:
		cheatTime = 0
		dynamic $cheatmenu['permanent']
	end
}

$cheatmenu['permanent'] = {
	gs'stat'
	*clr & cla
	gs 'obj_din', 'cheattabs'
	if cheatWork = 0:$cheatWork = 'Currently OFF'
	if cheatWork = 1:$cheatWork = 'Currently ON'
	if cheatHapri = 0:$cheatHapri = 'Currently OFF'
	if cheatHapri = 1:$cheatHapri = 'Currently ON'
	if cheatKlisma = 0:$cheatKlisma = 'Currently OFF'
	if cheatKlisma = 1:$cheatKlisma = 'Currently ON'
	if cheatNomakeup = 0:$cheatNomakeup = 'Currently OFF'
	if cheatNomakeup = 1:$cheatNomakeup = 'Currently ON'
	if cheatNoSweat = 0:$cheatNoSweat = 'Currently OFF'
	if cheatNoSweat = 1:$cheatNoSweat = 'Currently ON'
	if cheatNoEat = 0:$cheatNoEat = 'Currently OFF'
	if cheatNoEat = 1:$cheatNoEat = 'Currently ON'
	if cheatNoDrink = 0:$cheatNoDrink = 'Currently OFF'
	if cheatNoDrink = 1:$cheatNoDrink = 'Currently ON'
	if cheatNoSleep = 0:$cheatNoSleep = 'Currently OFF'
	if cheatNoSleep = 1:$cheatNoSleep = 'Currently ON'
	if cheatNoMood = 0:$cheatNoMood = 'Currently OFF'
	if cheatNoMood = 1:$cheatNoMood = 'Currently ON'
	if cheatNoFat = 0:$cheatNoFat = 'Currently OFF'
	if cheatNoFat = 1:$cheatNoFat = 'Currently ON'
	if cheatHealth = 0:$cheatHealth = 'Enabled'
	if cheatHealth = 1:$cheatHealth = 'Disabled'
	if NarkImmune = 0:$NarkImmune = 'Currently OFF'
	if NarkImmune = 1:$NarkImmune = 'Currently ON'
	if cheatSlut = 0:$cheatSlut = 'Enabled'
	if cheatSlut = 1:$cheatSlut = 'Disabled'
	if cheatHorny = 0:$cheatHorny = 'Currently OFF'
	if cheatHorny = 1:$cheatHorny = 'Currently ON'
	if bedvibrator = 0:$cheatVib = 'Currently OFF'
	if bedvibrator = 1:$cheatVib = 'Currently ON'
	if cheatBandit = 0:$cheatBandit = 'Currently OFF'
	if cheatBandit = 1:$cheatBandit = 'Currently ON'
	if fight_cheat = 0:$fight_cheat = 'Currently OFF'
	if fight_cheat = 1:$fight_cheat = 'Currently ON'
	if autocombat_cheat = 0:$autocombat_cheat = 'Currently OFF'
	if autocombat_cheat = 1:$autocombat_cheat = 'Currently ON'
	if cheat_NoPregnancy = 0:$cheat_NoPregnancy = 'Enabled'
	if cheat_NoPregnancy = 1:$cheat_NoPregnancy = 'Disabled'
	if cheat_NoLactation = 0:$cheat_NoLactation = 'Enabled'
	if cheat_NoLactation = 1:$cheat_NoLactation = 'Disabled'
	if cheatBimbo = 0:$cheatBimbo = 'Enabled'
	if cheatBimbo = 1:$cheatBimbo = 'Disabled'
	if cumeater_cheat = 0:$cheatcumtrait = 'Enabled'
	if cumeater_cheat = 1:$cheatcumtrait = 'Disabled'
	if exhib_cheat = 0:$cheatexhib = 'Enabled'
	if exhib_cheat = 1:$cheatexhib = 'Disabled'
	if cheatTime = 0:$cheatTime = 'Disabled'
	if cheatTime = 1:$cheatTime = 'Enabled'

	'<center><h1>Cheat Menu - Recurrent Cheats</h1></center>'
	'<center><table cellspacing="0" cellpadding="20" valign="top"><tr>'
	'<td width="450" cellspacing="0" cellpadding="20" valign="top">'
	'More than one job is possible: <a href="exec:dynamic $cheatmenu[''work'']"><<$cheatWork>></a>'
	'Always combed: <a href="exec:dynamic $cheatmenu[''hair'']"><<$cheatHapri>></a>'
	'Always do an enema: <a href="exec:dynamic $cheatmenu[''enema'']"><<$cheatKlisma>></a>'
	'Cosmetics never smeared: <a href="exec:dynamic $cheatmenu[''nomakeup'']"><<$cheatNomakeup>></a>'
	'Never sweat: <a href="exec:dynamic $cheatmenu[''nosweat'']"><<$cheatNoSweat>></a>'
	'Never eat: <a href="exec:dynamic $cheatmenu[''noEat'']"><<$cheatNoEat>></a>'
	'Never drink: <a href="exec:dynamic $cheatmenu[''noDrink'']"><<$cheatNoDrink>></a>'
	'Never sleep: <a href="exec:dynamic $cheatmenu[''noSleep'']"><<$cheatNoSleep>></a>'
	'Never unhappy: <a href="exec:dynamic $cheatmenu[''noMood'']"><<$cheatNoMood>></a>'
	'Never lose or gain weight: <a href="exec:dynamic $cheatmenu[''noFat'']"><<$cheatNoFat>></a>'
	'Never get addicted: <a href="exec:dynamic $cheatmenu[''addict'']"><<$NarkImmune>></a>'
	
	if Enable_sforma = 1:
		'Allow any clothing for school: <a href="exec:Enable_sforma = 0 & dynamic $cheatmenu[''permanent'']">Currently ON</a>'
	else
		'Allow any clothing for school: <a href="exec:Enable_sforma = 1 & dynamic $cheatmenu[''permanent'']">Currently OFF</a>'
	end
	
	*nl
	
	'Enable sleeping with vibrator inserted: <a href="exec:dynamic $cheatmenu[''Vibrator'']"><<$cheatVib>></a>'
	'Bandit always horny: <a href="exec:dynamic $cheatmenu[''Bandit'']"><<$cheatBandit>></a>'
	
	*nl
	
	'Automatically win every fight: <a href="exec:dynamic $cheatmenu[''fight'']"><<$fight_cheat>></a>'
	'Automatically resolve non-magical fights: <a href="exec:dynamic $cheatmenu[''autocombat'']"><<$autocombat_cheat>></a>'
	
	*nl
	
	'Bimbo trait and the effects of wearing bimbo clothes: <a href="exec:dynamic $cheatmenu[''BimboCloth'']"><<$cheatBimbo>></a>'
	'Exhibitionist trait: <a href="exec:dynamic $cheatmenu[''exhib_block'']"><<$cheatexhib>></a>'
	'Cumeater trait: <a href="exec:dynamic $cheatmenu[''cumtrait_block'']"><<$cheatcumtrait>></a>'
	
	*nl
	
	'Set arousal to always be at 50 or more: <a href="exec:dynamic $cheatmenu[''cheatHorny'']"><<$cheatHorny>></a>'
	'Periods (and pregnancies): <a href="exec:dynamic $cheatmenu[''slutshot'']"><<$cheatSlut>></a>'
	'Impregnation: <a href="exec:dynamic $cheatmenu[''cheat_NoPregnancy'']"><<$cheat_nopregnancy>></a>'
	'Lactation: <a href="exec:dynamic $cheatmenu[''cheat_NoLactation'']"><<$cheat_nolactation>></a>'
	'STDs: <a href="exec:dynamic $cheatmenu[''health'']"><<$cheatHealth>></a>'
	
	*nl
	
	if cyccustom = 0:'Automatic period tracking: <a href="exec:dynamic $cheatmenu[''auto_period'']">Currently OFF</a>'
	if cyccustom = 1:'Automatic period tracking: <a href="exec:dynamic $cheatmenu[''auto_period'']">Currently ON</a>'
	*nl
	if Enable_autotampon = 1:
		'Automatic cheat on Tampon: <a href="exec:Enable_autotampon = 0 & dynamic $cheatmenu[''permanent'']">Currently ON</a>'
	else
		'Automatic cheat on Tampon: <a href="exec:Enable_autotampon = 1 & dynamic $cheatmenu[''permanent'']">Currently OFF</a>'
	end
	*nl
	if Enable_nodream > 0:
		'No dream chance: <a href="exec:Enable_nodream=input(''Enter no dream chance (%)'') & dynamic $cheatmenu[''permanent'']"><<Enable_nodream>>%</a>, <a href="exec:Enable_nodream=0 & dynamic $cheatmenu[''permanent'']">Currently ON</a>'
	else
		'No dream chance: <a href="exec:Enable_nodream=input(''Enter no dream chance (%)'') & dynamic $cheatmenu[''permanent'']">Currently OFF</a>'
	end & !1.2.3 new function
	*nl
	'Time Cheat in Objects window: <a href="exec:dynamic $cheatmenu[''timecheat'']"><<$cheatTime>></a>'
	*nl

	'<font color="red"><b>WARNING!</b></font>: Disabling states may cause some events not to trigger. Use at your own risk!'
	'</tr></table></b></center>'
}

$cheatmenu['state'] = {
	gs'stat'
	*clr & cla
	gs 'obj_din', 'cheattabs'

	'<center><h1>Cheat Menu - Character State Changes</h1></center>'
	'<center><table cellspacing="0" cellpadding="20" valign="top"><tr>'
	'<td width="400" cellspacing="0" cellpadding="20" valign="top">'
	'Set alcohol levels:'
	'<a href="exec:alko = 0 & dynamic $cheatmenu[''state''] & gs ''stat''">Sober</a> <a href="exec:alko = 2 & dynamic $cheatmenu[''state''] & gs ''stat''">Tipsy</a> <a href="exec:alko = 4 & dynamic $cheatmenu[''state''] & gs ''stat''">Drunk</a> <a href="exec:alko = 7 & dynamic $cheatmenu[''state''] & gs ''stat''">Wasted</a> <a href="exec:alko = 11 & dynamic $cheatmenu[''state''] & gs ''stat''">Barely coherent</a>'
	*nl
	'<a href="exec:pcs_horny = 100 & dynamic $cheatmenu[''state''] & gs ''stat''">Max arousal</a>'
	'<a href="exec:pcs_horny = 0 & dynamic $cheatmenu[''state''] & gs ''stat''">Min arousal</a>'
	'<a href="exec:dynamic $cheatmenu[''bodyMod'']">Body Modification</a>'
	*nl
	'<a href="exec:pcs_health = pcs_vital*10 + pcs_stren*5+1000 & pcs_willpwr = pcs_intel*5 + will*5+1000 & pcs_manna = (pcs_intel*pcs_magik) + pcs_magik*100 + pcs_vital*10 + rikudo & vgape = 0 & agape = 0 & nippain = 0 & dynamic $cheatmenu[''state''] & gs ''stat''">Full restoration of Health, Manna, Reason.</a>'
	'<a href="exec:pcs_sleep = 100 & pcs_stam = stammax & pcs_mood = 100 & dynamic $cheatmenu[''state''] & gs ''stat''">Full restoration of Sleep, Stamina, Mood.</a>'
	'<a href="exec:pcs_energy = 200 & pcs_hydra = 200 & dynamic $cheatmenu[''state''] & gs ''stat''">Full restoration of Hunger and Water.</a>'
	'<a href="exec:dynamic $cheatmenu[''money''] & gs ''stat''">Change money</a>'
	'<a href="exec:money = 0 & dynamic $cheatmenu[''state''] & gs ''stat''">Zero money</a>'
	'<a href="exec:dynamic $cheatmenu[''std_cure''] & gs ''stat''">Cure all stds</a>'
	'<a href="exec:vgape = 0 & agape = 0 & nippain = 0 & painpub = 0 & pirs_pain_ton = 0 & mesec = 0 & spanked = 0 & SLomka = 0 & Narkoman = 0 & strongnark = 0 & SNarkTimes = 0 & nark = 0 & fingal = 0 & mosol = 0 & frost = 0 & sick = 0 & hypnoAddict = 0 & hypnoWithdrawal = 0 & dynamic $cheatmenu[''std_cure''] & dynamic $cheatmenu[''pain_killer''] & gs ''stat''">Cure all ailments.</a>'
	*nl
	'<a href="exec:dynamic $cheatmenu[''force_preg''] & gs ''stat''">Force random pregnancy</a>'
	'<a href="exec:dynamic $cheatmenu[''remove_preg''] & gs ''stat''">Remove pregnancy</a>'
	'<a href="exec:gs''cum_cleanup'',''reset'' & dynamic $cheatmenu[''state''] & gs ''stat''">Remove all cum</a>'
	'<a href="exec:dynamic $cheatmenu[''cycle''] & gs ''stat''">Set stage of menstrual cycle</a>'
	*nl
	
	if lactation['active'] <= 0:
		'You are not lactating'
		'Your current prolactinlvl is <<lactation[''prolactinlvl'']>>ng/ml.'
		'<a href="exec: gs ''lact_lib'',''lact_switch'' & gs ''lact_lib'',''BreastGrowth'' & dynamic $cheatmenu[''state'']">Switch ON</a>'
	else
		'You are lactating'
		'<a href="exec: gs ''lact_lib'',''lact_switch'' & gs ''lact_lib'',''BreastGrowth'' & dynamic $cheatmenu[''state'']">Switch OFF</a>'
		if lactation['milkprod_type'] = 1:
			'The milk production is <a href="exec: lactation[''milkprod_type''] = 0 & dynamic $cheatmenu[''state'']">realistic</a>. <<$pcs_firstname>> will produce breast milk based on her body resources.'
		elseif lactation['milkprod_type'] = 0:
			'The milk production is <a href="exec: lactation[''milkprod_type''] = 1 & dynamic $cheatmenu[''state'']">permanent</a>. <<$pcs_firstname>> will produce breast milk disregarding her condition.'
		else
			lactation['milkprod_type'] = 1
		end
		if lactation['lactaterate'] <= 0:
			'Lactate Rate: <<lactation[''lactaterate'']/1000>>ml/h <a href="exec:lactation[''lactaterate''] += 10000 & dynamic $cheatmenu[''state'']">+10</a>'
		elseif lactation['lactaterate'] >= 600000:
			'Lactate Rate: <a href="exec:lactation[''lactaterate''] -= 10000 & dynamic $cheatmenu[''state'']">-10</a> <<lactation[''lactaterate'']/1000>>ml/h'
		else
			'Lactate Rate: <a href="exec:lactation[''lactaterate''] -= 10000 & dynamic $cheatmenu[''state'']">-10</a> <<lactation[''lactaterate'']/1000>>ml/h <a href="exec:lactation[''lactaterate''] += 10000 & dynamic $cheatmenu[''state'']">+10</a>'
		end
		'Milk in Breasts: <<lactation[''breastmv'']/1000>>ml'
		'Max Milk Storage: <<lactation[''breastmm'']/1000>>ml'
		'<font color="grey">Maximum milk storage changes with breast size, and if <<$pcs_firstname>> went through pregnancy</font>'
		if lactation['induced'] <= 0:
			'Is <<$pcs_firstname>>''s lactation Induced?: <a href="exec:lactation[''induced''] = 1 & dynamic $cheatmenu[''state'']">no</a>'
		else
			'Is <<$pcs_firstname>>''s lactation Induced?: <a href="exec:lactation[''induced''] = 0 & dynamic $cheatmenu[''state'']">yes</a>'
		end
		'<font color="grey">Does <<$pcs_firstname>> know she induced lactation herself, or not? (This is only used for some events.)</font>'
	end
	'</tr></table></b></center>'
}

$cheatmenu['avatar_hair_set'] = {
	$av_hair = input("Input your custom hair:")
	if $av_hair='':exit
	avatar_hair = 1
	dynamic $cheatmenu['looks']
}

$cheatmenu['rename'] = {
	!! player name is set in preSYS.qsrc
	$temp_firstname = '<<$pcs_firstname>>'
	$pcs_firstname = input("What is your first name? (Leave blank for Svetlana)")
	if $pcs_firstname = '':$pcs_firstname = '<<$temp_firstname>>'
	killvar '$temp_firstname'

	$temp_lastname = '<<$pcs_lastname>>'
	$pcs_lastname = input("What is your family name? (Leave blank for Lebedev)")
	if $pcs_lastname = '':$pcs_lastname = '<<$temp_lastname>>'
	killvar '$temp_lastname'

	$temp_nickname = '<<$pcs_nickname>>'
	$pcs_nickname = input("What is your nickname? (Leave blank for Sveta)")
	if $pcs_nickname = '':$pcs_nickname = '<<$temp_nickname>>'
	killvar '$temp_nickname'
}

$cheatmenu['looks'] = {
	*clr & cla
	if pcs_hgt < 100:
		pcs_hgt = 100
	elseif pcs_hgt > 200:
		pcs_hgt = 200
	end
	gs 'obj_din', 'cheattabs'
	gs'stat'
	'<center><h1>Cheat Menu - Character Appearance</h1></center>'
	*nl
	'<center><table  width="90%" cellspacing="0" cellpadding="0" valign="top">'
	'<tr><td width="33%" cellpadding="20" valign="top">'
	'<<$pcs_firstname>> <<$pcs_lastname>> (<<$pcs_nickname>>). <a href="exec:dynamic $cheatmenu[''rename'']">Rename</a>'
	if player_avatar = 1:
		'Custom Avatar: <a href="exec:player_avatar = 0 & dynamic $cheatmenu[''looks'']">ON</a>'
	else
		'Custom Avatar: <a href="exec:player_avatar = 1 & dynamic $cheatmenu[''looks'']">OFF</a>'
	end
	if avatar_hair = 1:
		'<a href="exec:avatar_hair = 0 & dynamic $cheatmenu[''looks'']">Custom Hair: ON</a>'
		'<<$av_hair>>'
	else
		'<a href="exec:dynamic $cheatmenu[''avatar_hair_set'']">Custom Hair: OFF</a>'
	end
	*nl
	'<a href="exec:dynamic $cheatmenu[''parameters'']">Show design parameters of body</a>'
	'<a href="exec:dynamic $cheatmenu[''vneshpara'']">Show beauty parameters</a>'
	*nl
	'You are <a href="exec: pcs_dob += 10000 & dynamic $cheatmenu[''age'']">(-1)</a> <<age>> <a href="exec: pcs_dob -= 10000 & dynamic $cheatmenu[''age'']">(+1)</a> years old'
	*nl
	'<a href=>You look <<vidage>> years old</a>'
	'<a href="exec:dynamic $cheatmenu[''visualage'']">Change apparent age</a>'
	*nl
	'<a href=>You are <<pcs_hgt>> centimetres tall</a>'
	'<a href="exec:pcs_hgt = input(''Enter <<$pcs_nickname>>s height in centimetres<br><br>(default 170, min 100, max 200)'') & dynamic $cheatmenu[''looks'']">Change <<$pcs_nickname>>''s height</a>'
	*nl
	'You have <<$titsize>> breasts'
	if tits => 0 and tits < 11:'<a href="exec:silicone += 5 & dynamic $cheatmenu[''looks'']">Enlarge breasts(silicone)</a>'
	if silicone => 1:'<a href="exec:silicone -= 5 & dynamic $cheatmenu[''looks'']">Shrink breasts(silicone)</a>'
	if tits => 0 and tits < 11:'<a href="exec:nbsize += 5 & dynamic $cheatmenu[''looks'']">Enlarge breasts(natural)</a>'
	if nbsize => 1:'<a href="exec:nbsize -= 5 & titreduc = 1 & dynamic $cheatmenu[''looks'']">Shrink breasts(natural)</a>'
	*nl
	'<<$lip>>'
	if pcs_lip < 4:'<a href="exec:pcs_lip += 1 & dynamic $cheatmenu[''looks'']">Enlarge lips</a>'
	if pcs_lip > 0:'<a href="exec:pcs_lip -= 1 & dynamic $cheatmenu[''looks'']">Shrink lips</a>'
	*nl
	'<<$skin>>'
	if pcs_skin < 100: '<a href="exec:pcs_skin += 20 & gs ''body_shape'', ''basebeautycalc'', 1 & dynamic $cheatmenu[''looks'']">Improve skin</a>'
	if pcs_skin > 0: '<a href="exec:pcs_skin -= 20 & gs ''body_shape'', ''basebeautycalc'', 1 & dynamic $cheatmenu[''looks'']">Worsen skin</a>'
	if pcs_tan >= 0:'<a href="exec:pcs_tan += 10 & dynamic $cheatmenu[''looks'']">Become tanned</a>'
	if pcs_tan > 0:'<a href="exec:pcs_tan = 0 & dynamic $cheatmenu[''looks'']">Remove tan</a>'
	*nl
	'<<$pcs_throat>>'
	if pcs_throat <= 31:'<a href="exec:pcs_throat += 5 & dynamic $cheatmenu[''looks'']">Increase throat capacity</a>'
	if pcs_throat >= 5:'<a href="exec:pcs_throat -= 5 & dynamic $cheatmenu[''looks'']">Decrease throat capacity</a>'
	if dounspell = 1:
		*nl
		'<a href="exec:dounsplkil = 2 & gs ''body_shape'', ''hardreset''">Hard Reset body shape</a>'
	end

	'</td><td width="33%" cellpadding="20" valign="top">'
	'<<$pcs_vag>>'
	if pcs_vag > 0:'<a href="exec:pcs_vag = 0 & dynamic $cheatmenu[''looks'']">Reinstate virginity</a>'
	if pcs_vag <= 31:'<a href="exec:pcs_vag += 5 & dynamic $cheatmenu[''looks'']">Enlarge the vagina</a>'
	if pcs_vag >= 5:'<a href="exec:pcs_vag -= 5 & dynamic $cheatmenu[''looks'']">Reduce the vagina</a>'
	'Your vagina will shrink by <<vshrink>> every <<vshrinkdays>> days.'
	if vshrink < 10:'<a href="exec:vshrink += 1 & dynamic $cheatmenu[''looks'']">Increase the amount to shrink</a>'
	if vshrink > 0:'<a href="exec:vshrink -= 1 & dynamic $cheatmenu[''looks'']">Reduce the amount to shrink</a>'
	if vshrinkdays < 10:'<a href="exec:vshrinkdays += 1 & dynamic $cheatmenu[''looks'']">Increase the number of days it takes</a>'
	if vshrinkdays > 1:'<a href="exec:vshrinkdays -= 1 & dynamic $cheatmenu[''looks'']">Reduce the number of days it takes</a>'
	*nl
	'<<$pcs_ass>>'
	if pcs_ass <= 31:'<a href="exec:pcs_ass += 5 & dynamic $cheatmenu[''looks'']">Enlarge anus</a>'
	if pcs_ass >= 5:'<a href="exec:pcs_ass -= 5 & dynamic $cheatmenu[''looks'']">Reduce the anus</a>'
	'Your anus will shrink by <<ashrink>> every <<ashrinkdays>> days.'
	if ashrink < 10:'<a href="exec:ashrink += 1 & dynamic $cheatmenu[''looks'']">Increase the amount to shrink</a>'
	if ashrink > 0:'<a href="exec:ashrink -= 1 & dynamic $cheatmenu[''looks'']">Reduce the amount to shrink</a>'
	if ashrinkdays < 10:'<a href="exec:ashrinkdays += 1 & dynamic $cheatmenu[''looks'']">Increase the number of days it takes</a>'
	if ashrinkdays > 1:'<a href="exec:ashrinkdays -= 1 & dynamic $cheatmenu[''looks'']">Reduce the number of days it takes</a>'
	*nl
	if dounspell = 0:
		if fat ! 0: '<a href="exec:fat = 0 & dynamic $cheatmenu[''looks'']">Zero fat</a>'
		'Body Fat = (<<salo>>): <a href="exec:salo -= 10 & gs ''body_shape'', ''softreset'' & dynamic $cheatmenu[''looks'']">-10</a> <a href="exec:salo -= 5 & gs ''body_shape'', ''softreset'' & dynamic $cheatmenu[''looks'']">-5</a> <a href="exec:salo -= 1 & gs ''body_shape'', ''softreset'' & dynamic $cheatmenu[''looks'']">-1</a> <a href="exec:salo += 1 & gs ''body_shape'', ''softreset'' & dynamic $cheatmenu[''looks'']">+1</a> <a href="exec:salo += 5 & gs ''body_shape'', ''softreset'' & dynamic $cheatmenu[''looks'']">+5</a> <a href="exec:salo += 10 & gs ''body_shape'', ''softreset'' & dynamic $cheatmenu[''looks'']">+10</a>'
		'Note: You need some Body Fat to survive, any value under 11 is clasified as "starving" and a value of 0 can lead to a Game Over.'
	end
	*nl
	'<a href="exec:dynamic $cheatmenu[''tatoo'']">Tattoo removal</a>'

	'</td><td width="33%" cellpadding="20" valign="top">'
	'<<$hair>>'
	if pcs_haircol = 0:
		'Your hair is now (prev) <<$pcs_haircol>> <a href="exec:pcs_haircol +=1 & dynamic $cheatmenu[''looks''] & nathcol = pcs_haircol">(next)</a>'
	elseif pcs_haircol > 0 and pcs_haircol < 3:
		'Your hair is now <a href="exec:pcs_haircol -=1 & dynamic $cheatmenu[''looks'']" & nathcol = pcs_haircol>(prev)</a> <<$pcs_haircol>> <a href="exec:pcs_haircol +=1 & dynamic $cheatmenu[''looks'']" & pcs_haircol = nathcol>(next)</a>'
	elseif pcs_haircol = 3:
		'Your hair is now <a href="exec:pcs_haircol -=1 & dynamic $cheatmenu[''looks'']" & nathcol = pcs_haircol>(prev)</a> <<$pcs_haircol>> (next)'
	else
		'To change your natural hair color, you have to <a href="exec:pcs_haircol = nathcol & dynamic $cheatmenu[''looks'']">restore your natural hair color</a> first.'
	end
	if pcs_hairlng > 975:
		'Hair length (<<pcs_hairlng>>)	<a href="exec:pcs_hairlng -= 100 & dynamic $cheatmenu[''looks'']">-100</a> <a href="exec:pcs_hairlng -= 25 & dynamic $cheatmenu[''looks'']">-25</a> <a href="exec:pcs_hairlng -= 5 & dynamic $cheatmenu[''looks'']">-5</a> <a href="exec:pcs_hairlng += 5 & dynamic $cheatmenu[''looks'']">+5</a>'
	elseif pcs_hairlng > 900:
		'Hair length (<<pcs_hairlng>>)	<a href="exec:pcs_hairlng -= 100 & dynamic $cheatmenu[''looks'']">-100</a> <a href="exec:pcs_hairlng -= 25 & dynamic $cheatmenu[''looks'']">-25</a> <a href="exec:pcs_hairlng -= 5 & dynamic $cheatmenu[''looks'']">-5</a> <a href="exec:pcs_hairlng += 5 & dynamic $cheatmenu[''looks'']">+5</a> <a href="exec:pcs_hairlng += 25 & dynamic $cheatmenu[''looks'']">+25</a>'
	elseif pcs_hairlng >= 100:
		'Hair length (<<pcs_hairlng>>)	<a href="exec:pcs_hairlng -= 100 & dynamic $cheatmenu[''looks'']">-100</a> <a href="exec:pcs_hairlng -= 25 & dynamic $cheatmenu[''looks'']">-25</a> <a href="exec:pcs_hairlng -= 5 & dynamic $cheatmenu[''looks'']">-5</a> <a href="exec:pcs_hairlng += 5 & dynamic $cheatmenu[''looks'']">+5</a> <a href="exec:pcs_hairlng += 25 & dynamic $cheatmenu[''looks'']">+25</a> <a href="exec:pcs_hairlng += 100 & dynamic $cheatmenu[''looks'']">+100</a>'
	elseif pcs_hairlng >= 25:
		'Hair length (<<pcs_hairlng>>)	<a href="exec:pcs_hairlng -= 25 & dynamic $cheatmenu[''looks'']">-25</a> <a href="exec:pcs_hairlng -= 5 & dynamic $cheatmenu[''looks'']">-5</a> <a href="exec:pcs_hairlng += 5 & dynamic $cheatmenu[''looks'']">+5</a> <a href="exec:pcs_hairlng += 25 & dynamic $cheatmenu[''looks'']">+25</a> <a href="exec:pcs_hairlng += 100 & dynamic $cheatmenu[''looks'']">+100</a>'
	elseif pcs_hairlng >= 5:
		'Hair length (<<pcs_hairlng>>)	<a href="exec:pcs_hairlng -= 5 & dynamic $cheatmenu[''looks'']">-5</a> <a href="exec:pcs_hairlng += 5 & dynamic $cheatmenu[''looks'']">+5</a> <a href="exec:pcs_hairlng += 25 & dynamic $cheatmenu[''looks'']">+25</a> <a href="exec:pcs_hairlng += 100 & dynamic $cheatmenu[''looks'']">+100</a>'
	else
		'Hair length (<<pcs_hairlng>>)	<a href="exec:pcs_hairlng += 5 & dynamic $cheatmenu[''looks'']">+5</a> <a href="exec:pcs_hairlng += 25 & dynamic $cheatmenu[''looks'']">+25</a> <a href="exec:pcs_hairlng += 100 & dynamic $cheatmenu[''looks'']">+100</a>'
	end
	if hairgrowcht = 0:'<a href="exec:hairgrowcht = 1 & dynamic $cheatmenu[''looks'']">Stop hair growth</a>'
	if hairgrowcht = 1:'<a href="exec:hairgrowcht = 0 & dynamic $cheatmenu[''looks'']">Allow hair growth</a>'
	*nl
	'<<$glaza>>'
	if pcs_naturallashes < 2:'<a href="exec:pcs_naturallashes += 1 & dynamic $cheatmenu[''looks'']">Enlarge lashes</a>'
	if pcs_naturallashes > 0:'<a href="exec:pcs_naturallashes -= 1 & dynamic $cheatmenu[''looks'']">Shrink lashes</a>'
	if pcs_eyesize < 3:'<a href="exec:pcs_eyesize += 1 & dynamic $cheatmenu[''looks'']">Increase the size of the eye</a>'
	if pcs_eyesize > 0:'<a href="exec:pcs_eyesize -= 1 & dynamic $cheatmenu[''looks'']">Reduce the size of the eye</a>'
	if pcs_eyecol <= 0:
		'Your eyes are now (prev) <<$pcs_eyecol>> <a href="exec:pcs_eyecol +=1 & dynamic $cheatmenu[''looks'']">(next)</a>'
	elseif pcs_eyecol > 0 and pcs_eyecol < 3:
		'Your eyes are now <a href="exec:pcs_eyecol -=1 & dynamic $cheatmenu[''looks'']">(prev)</a> <<$pcs_eyecol>> <a href="exec:pcs_eyecol +=1 & dynamic $cheatmenu[''looks'']">(next)</a>'
	elseif pcs_eyecol >= 3:
		'Your eyes are now <a href="exec:pcs_eyecol -=1 & dynamic $cheatmenu[''looks'']">(prev)</a> <<$pcs_eyecol>> (next)'
	end
	'</td></tr></table></center>'
}

$cheatmenu['parameters'] = {
	*clr & cla
	'<center><h1>Cheat Menu - Appearance Stats</h1></center>'
	act 'Return to appearance menu':dynamic $cheatmenu['looks']
	*nl
	'Body Shape Parameters'
	'<<pcs_bust>> - <<pcs_waist>> - <<pcs_hips>>, <<$titsize>> breasts, the difference between the hips and waist <<pcs_hips-pcs_waist>> cm'
	'Muscularity: musle = <<musle>>, salo =	<<salo>>, fat = <<fat>>'
	'Variable List:'
	'agilbuf = <<agilbuf>>'
	'strenbuf = <<strenbuf>>'
	'vitalbuf = <<vitalbuf>>'
	'weight (pcs_weight) = <<pcs_weight>>'
	'bust (pcs_bust) = <<pcs_bust>>'
	'band (pcs_band) = <<pcs_band>>'
	'waist (pcs_waist) = <<pcs_waist>>'
	'hips (pcs_hips) = <<pcs_hips>>'
	'bust - band (pcs_cupsize) = <<pcs_cupsize>>'
	'silicone = <<silicone>>'
	'nbsize = <<nbsize>>'
	'magicf2b = <<magicf2b>>'
	'genbsize = <<genbsize>>'
	'vhips = <<vhips>>'
	'vhtmp = <<vhtmp>>'
	'wratio = <<wratio>>'
	'bratio = <<bratio>>'
	'hratio = <<hratio>>'
	'vofat = <<vofat>>'
	'salocatnow = <<salocatnow>>'
	'salocatlast = <<salocatlast>>'
	'magf2bdo = <<magf2bdo>>'
	'mgf2bnocnt = <<mgf2bnocnt>>'
	'magtarcup = <<magtarcup>>'
	'normbuffpick = <<normbuffpick>>'
	'nrmbfpckct = <<nrmbfpckct>>'
	'btwarn = <<btwarn>>'
	'salolast = <<salolast>>'
}

$cheatmenu['vneshpara'] = {
	*clr & cla
	'<center><h1>Cheat Menu - ?</h1></center>'
	act 'Return to appearance menu':dynamic $cheatmenu['looks']
	*nl
	'Appearance Parameters'
	'vidage = <<vidage>>'
	'pcs_naturallashes = <<pcs_naturallashes>>'
	'pcs_eyesize = <<pcs_eyesize>>'
	'pcs_lip = <<pcs_lip>>'
	'pcs_apprncbase = <<pcs_apprncbase>>'
	'PXCloThinness = <<PXCloThinness>>'
	'PXCloTopCut = <<PXCloTopCut>>'
	'PXCloBottomShortness = <<PXCloBottomShortness>>'
	'CloTotalBeauty = <<CloTotalBeauty>>'
	'mopkoef = <<mopkoef>>'
	'pcs_hairbsh = <<pcs_hairbsh>>'
	'lipbalmKoef = <<lipbalmKoef>>'
	'pcs_breath = <<pcs_breath>>'
	'sweatKoef = <<sweatKoef>>'
	'glassvnesh = <<glassvnesh>>'
	'dyevmod = <<dyevmod>>'
	'hairkoef = <<hairkoef>>'
	'legkoef = <<legkoef>>'
}

$cheatmenu['tatoo'] = {
	gs'stat'
	*clr & cla
	'<center><h1>Cheat Menu - Tattoos</h1></center>'
	act 'Return to appearance menu':dynamic $cheatmenu['looks']
	*nl
	if tatarm = 0:'You do not have a tattoo on your arm</a>'
	if tatarm >= 1:'<a href="exec:tattCount-=1 & tatarm = 0 & dynamic $cheatmenu[''tatoo'']">Remove your arm tattoo</a>'
	if tatass = 0:'You do not have a tattoo on your ass</a>'
	if tatass >= 1:'<a href="exec:tattCount-=1 & tatass = 0 & dynamic $cheatmenu[''tatoo'']">Remove your ass tattoo</a>'
	if tatback = 0:'You do not have a tattoo on your back</a>'
	if tatback >= 1:'<a href="exec:tattCount-=1 & tatback = 0 & dynamic $cheatmenu[''tatoo'']">Remove your back tattoo</a>'
	if tatblly = 0:'You do not have a tattoo on your belly</a>'
	if tatblly >= 1:'<a href="exec:tattCount-=1 & tatblly = 0 & dynamic $cheatmenu[''tatoo'']">Remove your belly tattoo</a>'
	if tatbrst = 0:'You do not have a tattoo on your breast</a>'
	if tatbrst >= 1:'<a href="exec:tattCount-=1 & tatbrst = 0 & dynamic $cheatmenu[''tatoo'']">Remove your breast tattoo</a>'
	if tatchst = 0:'You do not have a tattoo on your chest</a>'
	if tatchst >= 1:'<a href="exec:tattCount-=1 & tatchst = 0 & dynamic $cheatmenu[''tatoo'']">Remove your chest tattoo</a>'
	if tatfce = 0:'You do not have a tattoo on your face</a>'
	if tatfce >= 1:'<a href="exec:tattCount-=1 & tatfce = 0 & dynamic $cheatmenu[''tatoo'']">Remove your face tattoo</a>'
	if tatankle = 0:'You do not have a tattoo on your ankle</a>'
	if tatankle >= 1:'<a href="exec:tattCount-=1 & tatankle = 0 & dynamic $cheatmenu[''tatoo'']">Remove your ankle tattoo</a>'
	if tatleg = 0:'You do not have a tattoo on your leg</a>'
	if tatleg >= 1:'<a href="exec:tattCount-=1 & tatleg = 0 & dynamic $cheatmenu[''tatoo'']">Remove your leg tattoo</a>'
	if tatlip = 0:'You do not have a tattoo on your lip</a>'
	if tatlip >= 1:'<a href="exec:tattCount-=1 & tatlip = 0 & dynamic $cheatmenu[''tatoo'']">Remove your lip tattoo</a>'
	if tatneck = 0:'You do not have a tattoo on your neck</a>'
	if tatneck >= 1:'<a href="exec:tattCount-=1 & tatneck = 0 & dynamic $cheatmenu[''tatoo'']">Remove your neck tattoo</a>'
	if tatvag = 0:'You do not have a public tattoo</a>'
	if tatvag >= 1:'<a href="exec:tattCount-=1 & tatvag = 0 & dynamic $cheatmenu[''tatoo'']">Remove your pubic tattoo</a>'
	if tatlech = 0:'You do not have a tattoo on your shoulder</a>'
	if tatlech >= 1:'<a href="exec:tattCount-=1 & tatlech = 0 & dynamic $cheatmenu[''tatoo'']">Remove your shoulder tattoo</a>'
	if tatside = 0:'You do not have a tattoo on your side</a>'
	if tatside >= 1:'<a href="exec:tattCount-=1 & tatside = 0 & dynamic $cheatmenu[''tatoo'']">Remove your the tattoo on your side</a>'
	if tatupb = 0:'You do not have a tramp stamp</a>'
	if tatupb >= 1:'<a href="exec:tattCount-=1 & tatupb = 0 & dynamic $cheatmenu[''tatoo'']">Remove your tramp stamp</a>'
	if tatunder = 0:'You do not have an under breast tattoo</a>'
	if tatunder >= 1:'<a href="exec:tattCount-=1 & tatunder = 0 & dynamic $cheatmenu[''tatoo'']">Remove your under breast tattoo</a>'
	if tatwrist = 0:'You do not have a tattoo on your wrist</a>'
	if tatwrist >= 1:'<a href="exec:tattCount-=1 & tatwrist = 0 & dynamic $cheatmenu[''tatoo'']">Remove your wrist tattoo</a>'
	if tathand = 0:'You do not have a tattoo on your hand</a>'
	if tathand >= 1:'<a href="exec:tattCount-=1 & tathand = 0 & dynamic $cheatmenu[''tatoo'']">Remove your hand tattoo</a>'
}

$cheatmenu['setStat'] = {
	temp_input = input("Set your <<$ARGS[1]>> level:")
	dynamic "
		<<$ARGS[0]>>_lvl = temp_input
		<<$ARGS[0]>>_lvlst = temp_input
	"
	killvar 'temp_input'
	dynamic $cheatmenu['stats']
}

$cheatmenu['setStat1'] = {
	temp_input = input("Set your <<$ARGS[1]>> level:")
	dynamic "
		<<$ARGS[0]>>_lvl = 100 - temp_input
		<<$ARGS[0]>>_lvlst = 100 - temp_input
	"
	killvar 'temp_input'
	dynamic $cheatmenu['stats']
}

$cheatmenu['setAttrs'] = {
	loop_index = 0
	:set_attrs_loop
		dynamic "
			<<$att_name[loop_index]>>_lvl = <<ARGS[0]>>
			<<$att_name[loop_index]>>_lvlst = <<ARGS[0]>>
		"
		loop_index += 1
		! Magic is the last attribute, so if it's a non-magic game we'll end the loop one iteration early
		if MagikDostup = 0 and loop_index < arrsize('$att_name'):
			jump 'set_attrs_loop'
		elseif loop_index < arrsize('$att_name') - 1:
			jump 'set_attrs_loop'
		end
	killvar 'loop_index'
	dynamic $cheatmenu['stats']
}

$cheatmenu['setSkills'] = {
	loop_index = 0
	:set_skills_loop
		!! Inhibition (number 33) isn''t a skill so we''ll skip it
		if loop_index ! 33:
			dynamic "
				<<$skl_name[loop_index]>>_lvl = <<ARGS[0]>>
				<<$skl_name[loop_index]>>_lvlst = <<ARGS[0]>>
			"
			loop_index += 1
		else
			loop_index += 1
			dynamic "
				<<$skl_name[loop_index]>>_lvl = <<ARGS[0]>>
				<<$skl_name[loop_index]>>_lvlst = <<ARGS[0]>>
			"
		end
		
		!! The size of the array is reduced by 1 because we skipped inhibition
		if loop_index < arrsize('$skl_name') - 1: jump 'set_skills_loop'
	killvar 'loop_index'
	dynamic $cheatmenu['stats']
}

$cheatmenu['printStatLinks'] = {
	*p '<a href="exec:<<$ARGS[0]>>_lvl = 100 & <<$ARGS[0]>>_lvlst = 100 & dynamic $cheatmenu[''stats'']" >Max</a>  '
	*p '<a href="exec:<<$ARGS[0]>>_lvl += 1 & <<$ARGS[0]>>_lvlst = <<$ARGS[0]>>_lvl & dynamic $cheatmenu[''stats'']" >+1</a> '
	*p '<a href="exec:<<$ARGS[0]>>_lvl += 10 & <<$ARGS[0]>>_lvlst = <<$ARGS[0]>>_lvl & dynamic $cheatmenu[''stats'']" >+10</a> '
	*p '<a href="exec:<<$ARGS[0]>>_lvl -= 1 & <<$ARGS[0]>>_lvlst = <<$ARGS[0]>>_lvl & dynamic $cheatmenu[''stats'']" >-1</a> '
	*p '<a href="exec:<<$ARGS[0]>>_lvl -= 10 & <<$ARGS[0]>>_lvlst = <<$ARGS[0]>>_lvl & dynamic $cheatmenu[''stats'']" >-10</a>  '
	*p '<a href="exec:<<$ARGS[0]>>_lvl = 0 & <<$ARGS[0]>>_lvlst = 0 & dynamic $cheatmenu[''stats'']" >Min</a>  '
	*pl '<a href="exec:dynamic $cheatmenu[''setStat''], ''<<$ARGS[0]>>'', ''<<$ARGS[1]>>''" >Set</a>'
}

$cheatmenu['printStatLinks1'] = {
	*p '<a href="exec:<<$ARGS[0]>>_lvl = 0 & <<$ARGS[0]>>_lvlst = 0 & dynamic $cheatmenu[''stats'']" >Max</a>  '
	*p '<a href="exec:<<$ARGS[0]>>_lvl -= 1 & <<$ARGS[0]>>_lvlst = <<$ARGS[0]>>_lvl & dynamic $cheatmenu[''stats'']" >+1</a> '
	*p '<a href="exec:<<$ARGS[0]>>_lvl -= 10 & <<$ARGS[0]>>_lvlst = <<$ARGS[0]>>_lvl & dynamic $cheatmenu[''stats'']" >+10</a> '
	*p '<a href="exec:<<$ARGS[0]>>_lvl += 1 & <<$ARGS[0]>>_lvlst = <<$ARGS[0]>>_lvl & dynamic $cheatmenu[''stats'']" >-1</a> '
	*p '<a href="exec:<<$ARGS[0]>>_lvl += 10 & <<$ARGS[0]>>_lvlst = <<$ARGS[0]>>_lvl & dynamic $cheatmenu[''stats'']" >-10</a>  '
	*p '<a href="exec:<<$ARGS[0]>>_lvl = 100 & <<$ARGS[0]>>_lvlst = 100 & dynamic $cheatmenu[''stats'']" >Min</a>  '
	*pl '<a href="exec:dynamic $cheatmenu[''setStat1''], ''<<$ARGS[0]>>'', ''<<$ARGS[1]>>''" >Set</a>'
}

$cheatmenu['stats'] = {
	gs 'stat'
	*clr & cla
	gs 'obj_din', 'cheattabs'

	!Set a floor and ceiling for all attributes and skills
	loop_index = 0
	:attr_trim_loop
		dynamic "
			if <<$att_name[loop_index]>>_lvl < 0: <<$att_name[loop_index]>>_lvl = 0
			if <<$att_name[loop_index]>>_lvlst < 0: <<$att_name[loop_index]>>_lvlst = 0
			if <<$att_name[loop_index]>>_lvl > 100: <<$att_name[loop_index]>>_lvl = 100
			if <<$att_name[loop_index]>>_lvlst > 100: <<$att_name[loop_index]>>_lvlst = 100
		"
		loop_index += 1
		if loop_index < arrsize('$att_name'): jump 'attr_trim_loop'

	loop_index = 0
	:skill_trim_loop
		dynamic "
			if <<$skl_name[loop_index]>>_lvl < 0: <<$skl_name[loop_index]>>_lvl = 0
			if <<$skl_name[loop_index]>>_lvlst < 0: <<$skl_name[loop_index]>>_lvlst = 0
			if <<$skl_name[loop_index]>>_lvl > 100: <<$skl_name[loop_index]>>_lvl = 100
			if <<$skl_name[loop_index]>>_lvlst > 100: <<$skl_name[loop_index]>>_lvlst = 100
		"
		loop_index += 1
		if loop_index < arrsize('$skl_name'): jump 'skill_trim_loop'
	killvar 'loop_index'

	'<center><h1>Cheat Menu - Attributes and Skills</h1></center>'
	'<center><table  width="90%" cellspacing="0" cellpadding="0" valign="top">'
	'<tr><td width="50%" cellpadding="10" valign="top">'
	*pl'<b>Attributes</b> (values 0 - 100):'
	*pl '<a href="exec:dynamic $cheatmenu[''setAttrs''], 100" >Max Attributes</a>    <a href="exec:dynamic $cheatmenu[''setAttrs''], 0" >Min Attributes</a>'
	*p 'Strength (<<stren_lvl>>): ' & dynamic $cheatmenu['printStatLinks'], 'stren', 'Strength'
	*p 'Agility (<<agil_lvl>>): ' & dynamic $cheatmenu['printStatLinks'], 'agil', 'Agility'
	*p 'Endurance (<<vital_lvl>>): ' & dynamic $cheatmenu['printStatLinks'], 'vital', 'Endurance'
	*p 'Intelligence (<<intel_lvl>>): ' & dynamic $cheatmenu['printStatLinks'], 'intel', 'Intelligence'
	*p 'Reaction (<<react_lvl>>): ' & dynamic $cheatmenu['printStatLinks'], 'react', 'Reaction'
	*p 'Spirit (<<sprt_lvl>>): ' & dynamic $cheatmenu['printStatLinks'], 'sprt', 'Spirit'
	*p 'Charisma (<<chrsm_lvl>>): ' & dynamic $cheatmenu['printStatLinks'], 'chrsm', 'Charisma'
	*p 'Perception (<<prcptn_lvl>>): ' & dynamic $cheatmenu['printStatLinks'], 'prcptn', 'Perception'
	if MagikDostup = 0: *p 'Magic (<<magik_lvl>>): ' & dynamic $cheatmenu['printStatLinks'], 'magik', 'Magic'
	*nl
	*pl'<b>Sexual:</b>'
	*pl 'Inhibition level (<<100 - inhib_lvl>>): ' & dynamic $cheatmenu['printStatLinks1'], 'inhib', 'Inhibition'
	if pcs_dom < 0 or sub < 0: pcs_dom = 0 & sub = 0
	if pcs_dom > 100: pcs_dom = 100
	if sub > 100: sub = 100
	if pcs_dom >= 0 and sub = 0:
		*pl 'Dominance (<<pcs_dom>>): <a href="exec:pcs_dom = 100 & dynamic $cheatmenu[''stats'']" >Max</a>  <a href="exec:pcs_dom += 1 & dynamic $cheatmenu[''stats'']" >+1</a> <a href="exec:pcs_dom += 10 & dynamic $cheatmenu[''stats'']" >+10</a> <a href="exec:pcs_dom -= 1 & dynamic $cheatmenu[''stats'']" >-1</a> <a href="exec:pcs_dom -= 10 & dynamic $cheatmenu[''stats'']" >-10</a>  <a href="exec:pcs_dom = 0 & dynamic $cheatmenu[''stats'']" >Min</a>'
	else
		*pl 'Submissiveness (<<sub>>): <a href="exec:sub = 100 & dynamic $cheatmenu[''stats'']" >Max</a>  <a href="exec:sub += 1 & dynamic $cheatmenu[''stats'']" >+1</a> <a href="exec:sub += 10 & dynamic $cheatmenu[''stats'']" >+10</a> <a href="exec:sub -= 1 & dynamic $cheatmenu[''stats'']" >-1</a> <a href="exec:sub -= 10 & dynamic $cheatmenu[''stats'']" >-10</a>  <a href="exec:sub = 0 & dynamic $cheatmenu[''stats'']" >Min</a>'
	end
	*nl
	if workPTU > 1:*pl'<a href="exec:teachlevel += 10 & dynamic $cheatmenu[''stats'']">Reputation teacher+10: <<teachlevel>></a>'
	if workPTU > 1:*pl'<a href="exec:teachlevel -= 10 & dynamic $cheatmenu[''stats'']">Reputation teacher-10: <<teachlevel>></a>'
	if pcs_grades >= 0:*pl'<a href="exec:pcs_grades += 10 & dynamic $cheatmenu[''stats'']">Improve your academic performance: <<pcs_grades>></a>'
	if StoryLine > 0 and schoolprogul >= 0:*pl'<a href="exec:schoolprogul = 0 & dynamic $cheatmenu[''stats'']">Zero Absenteeism (School): <<schoolprogul>></a>'
	*nl
	*pl'<b>Skills</b> (values 0 - 100, and adjusted total by attributes):'
	*pl '<a href="exec:dynamic $cheatmenu[''setSkills''], 100" >Max Skills</a>    <a href="exec:dynamic $cheatmenu[''setSkills''], 0" >Min Skills</a>'
	*nl
	*pl'<b>Others:</b>'
	*p 'Chess (<<chess_lvl>>) - Total (<<pcs_chess>>): ' & dynamic $cheatmenu['printStatLinks'], 'chess', 'Chess'
	*p 'Gaming (<<gaming_lvl>>) - Total (<<pcs_gaming>>): ' & dynamic $cheatmenu['printStatLinks'], 'gaming', 'Gaming'
	*p 'Social (<<humint_lvl>>) - Total (<<pcs_humint>>): ' & dynamic $cheatmenu['printStatLinks'], 'humint', 'People Skills'
	*p 'Persuasion (<<persuas_lvl>>) - Total (<<pcs_persuas>>): ' & dynamic $cheatmenu['printStatLinks'], 'persuas', 'Persuasion'
	*p 'Observation (<<observ_lvl>>) - Total (<<pcs_observ>>): ' & dynamic $cheatmenu['printStatLinks'], 'observ', 'Observation'
	*p 'Makeup (<<makupskl_lvl>>) - Total (<<pcs_makupskl>>): ' & dynamic $cheatmenu['printStatLinks'], 'makupskl', 'Makeup'
	*p 'Computers (<<compskl_lvl>>) - Total (<<pcs_compskl>>): ' & dynamic $cheatmenu['printStatLinks'], 'compskl', 'Computer Skill'
	*p 'Hacking (<<comphckng_lvl>>) - Total (<<pcs_comphckng>>): ' & dynamic $cheatmenu['printStatLinks'], 'comphckng', 'Hacking'
	*p 'Handy-work (<<hndiwrk_lvl>>) - Total (<<pcs_hndiwrk>>): ' & dynamic $cheatmenu['printStatLinks'], 'hndiwrk', 'Handy-work'
	*p 'Pool (<<pool_lvl>>) - Total (<<pcs_pool>>): ' & dynamic $cheatmenu['printStatLinks'], 'pool', 'Pool'
	*p 'Heels (<<pcs_heels>>) - Total (<<pcs_heels>>): ' & dynamic $cheatmenu['printStatLinks'], 'heels', 'Heels'
	if MagikDostup = 0: *p 'Spell Casting (<<splcstng_lvl>>) - Total (<<pcs_splcstng>>): ' & dynamic $cheatmenu['printStatLinks'], 'splcstng', 'Spellcasting'
	'</td><td width="50%" cellpadding="10" valign="top">'
	*pl'<b>Combat:</b>'
	*p 'Jabs (<<jab_lvl>>)- Total (<<pcs_jab>>): ' & dynamic $cheatmenu['printStatLinks'], 'jab', 'Jabs'
	*p 'Power Strikes (<<punch_lvl>>) - Total (<<pcs_punch>>): ' & dynamic $cheatmenu['printStatLinks'], 'punch', 'Power Strikes'
	*p 'Kicks (<<kick_lvl>>) - Total (<<pcs_kick>>): ' & dynamic $cheatmenu['printStatLinks'], 'kick', 'Kicks'
	*p 'Defence (<<def_lvl>>) - Total (<<pcs_def>>): ' & dynamic $cheatmenu['printStatLinks'], 'def', 'Defence'
	*p 'Marksmanship (<<shoot_lvl>>) - Total (<<pcs_shoot>>): ' & dynamic $cheatmenu['printStatLinks'], 'shoot', 'Marksmanship'
	*p 'Bushcraft (<<bushcraft_lvl>>) - Total (<<pcs_bushcraft>>): ' & dynamic $cheatmenu['printStatLinks'], 'bushcraft', 'Bushcraft'
	*nl
	*pl'<b>Craft:</b>'
	*p 'Singing (<<vokal_lvl>>) - Total (<<pcs_vokal>>): ' & dynamic $cheatmenu['printStatLinks'], 'vokal', 'Singing'
	*p 'Tailoring (<<sewng_lvl>>) - Total (<<pcs_sewng>>): ' & dynamic $cheatmenu['printStatLinks'], 'sewng', 'Tailoring'
	*p 'Instruments (<<instrmusic_lvl>>) - Total (<<pcs_instrmusic>>): ' & dynamic $cheatmenu['printStatLinks'], 'instrmusic', 'Instrumental Music'
	*p 'Photography (<<photoskl_lvl>>) - Total (<<pcs_photoskl>>): ' & dynamic $cheatmenu['printStatLinks'], 'photoskl', 'Photography'
	*p 'Artistic (<<artskls_lvl>>) - Total (<<pcs_artskls>>): ' & dynamic $cheatmenu['printStatLinks'], 'artskls', 'Artistic Skills'
	*nl
	*pl'<b>Dance:</b>'
	*p 'Modern Dance (<<danc_lvl>>) - Total (<<pcs_danc>>): ' & dynamic $cheatmenu['printStatLinks'], 'danc', 'Modern Dancing'
	*p 'Erotic Dance (<<dancero_lvl>>) - Total (<<pcs_dancero>>): ' & dynamic $cheatmenu['printStatLinks'], 'dancero', 'Erotic Dancing'
	*p 'Pole Dance (<<dancpol_lvl>>) - Total (<<pcs_dancpol>>): ' & dynamic $cheatmenu['printStatLinks'], 'dancpol', 'Pole Dancing'
	*nl
	*pl'<b>Sport:</b>'
	*p 'Running (<<run_lvl>>) - Total (<<pcs_run>>): ' & dynamic $cheatmenu['printStatLinks'], 'run', 'Running'
	*p 'Volleyball (<<vball_lvl>>) - Total (<<pcs_vball>>): ' & dynamic $cheatmenu['printStatLinks'], 'vball', 'Volleyball'
	*p 'Ice Skating (<<icesktng_lvl>>) - Total (<<pcs_icesktng>>): ' & dynamic $cheatmenu['printStatLinks'], 'icesktng', 'Ice Skating'
	*p 'Wrestling (<<wrstlng_lvl>>) - Total (<<pcs_wrstlng>>): ' & dynamic $cheatmenu['printStatLinks'], 'wrstlng', 'Wrestling'
	*p 'Football (<<ftbll_lvl>>) - Total (<<pcs_ftbll>>): ' & dynamic $cheatmenu['printStatLinks'], 'ftbll', 'Football'
	*nl
	*pl'<b>Work:</b>'
	*p 'Serving (<<servng_lvl>>) - Total (<<pcs_servng>>): ' & dynamic $cheatmenu['printStatLinks'], 'servng', 'Serving'
	*p 'Modeling (<<mdlng_lvl>>) - Total (<<pcs_mdlng>>): ' & dynamic $cheatmenu['printStatLinks'], 'mdlng', 'Modeling'
	*p 'Medicine (<<medcn_lvl>>) - Total (<<pcs_medcn>>): ' & dynamic $cheatmenu['printStatLinks'], 'medcn', 'Medicine'
	'</tr></table></b></center>'
}

$cheatmenu['reputation'] = {
	gs'stat'
	*clr & cla
	gs 'obj_din', 'cheattabs'
	'<center><h1>Cheat Menu - Relationships and Renown</h1></center>'
	'<center>Relationship values are from 0 - 100.</center>'
	'<center>If they exceed this limit they will be reset overnight.</center>'
	'<center><table  width="90%" cellspacing="0" cellpadding="0" valign="top">'
	'<tr><td width="50%" cellpadding="10" valign="top">'
	if storyline = 1:
		*nl
		'Relationships in Pavlovsk'
		*nl
		'<font color="blue"><b>Family</b></font>'
		if Enable_reputation_family = 0:
			'<a href="exec:Enable_reputation_family = 1 & dynamic $cheatmenu[''reputation'']">Show details</a>'
		end
		if Enable_reputation_family = 1:
			'<a href="exec:Enable_reputation_family = 0 & dynamic $cheatmenu[''reputation'']">Hide details</a>'
			'Stepfather: <<npc_rel[''A28'']>>	<a href="exec:npc_rel[''A28''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A28''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
			'Mother: <<npc_rel[''A29'']>>	<a href="exec:npc_rel[''A29''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A29''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
			'Sister: <<npc_rel[''A33'']>>	<a href="exec:npc_rel[''A33''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A33''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
			'Brother: <<npc_rel[''A34'']>>	<a href="exec:npc_rel[''A34''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A34''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
		end
		*nl
		'<font color="blue"><b>School</b></font>'
		'<i>Popular Kids</i>'
		if Enable_reputation_popular = 0:
			'<a href="exec:Enable_reputation_popular = 1 & dynamic $cheatmenu[''reputation'']">Show details</a>'
		end
		if Enable_reputation_popular = 1:
			'<a href="exec:Enable_reputation_popular = 0 & dynamic $cheatmenu[''reputation'']">Hide details</a>'
			'<<$npc_firstname[''A1'']>> <<$npc_lastname[''A1'']>>: <<npc_rel[''A1'']>>	<a href="exec:npc_rel[''A1''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A1''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
			'<<$npc_firstname[''A4'']>> <<$npc_lastname[''A4'']>>: <<npc_rel[''A4'']>>	<a href="exec:npc_rel[''A4''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A4''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
			'<<$npc_firstname[''A14'']>> <<$npc_lastname[''A14'']>>: <<npc_rel[''A14'']>>	<a href="exec:npc_rel[''A14''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A14''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
			'<<$npc_firstname[''A15'']>> <<$npc_lastname[''A15'']>>: <<npc_rel[''A15'']>>	<a href="exec:npc_rel[''A15''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A15''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
			'<<$npc_firstname[''A17'']>> <<$npc_lastname[''A17'']>>: <<npc_rel[''A17'']>>	<a href="exec:npc_rel[''A17''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A17''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
			'<<$npc_firstname[''A23'']>> <<$npc_lastname[''A23'']>>: <<npc_rel[''A23'']>>	<a href="exec:npc_rel[''A23''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A23''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
			'<<$npc_firstname[''A146'']>> <<$npc_lastname[''A146'']>>: <<npc_rel[''A146'']>>  <a href="exec:npc_rel[''A146''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A146''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
			'<<$npc_firstname[''A147'']>> <<$npc_lastname[''A147'']>>: <<npc_rel[''A147'']>>  <a href="exec:npc_rel[''A147''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A147''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
			'<<$npc_firstname[''A148'']>> <<$npc_lastname[''A148'']>>: <<npc_rel[''A148'']>>  <a href="exec:npc_rel[''A148''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A148''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
			if soniaPS = 0:	'<<$npc_firstname[''A25'']>> <<$npc_lastname[''A25'']>>: <<npc_rel[''A25'']>>	<a href="exec:npc_rel[''A25''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A25''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
			'<<$npc_firstname[''A139'']>> <<$npc_lastname[''A139'']>>: <<npc_rel[''A139'']>>  <a href="exec:npc_rel[''A139''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A139''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
			'<<$npc_firstname[''A140'']>> <<$npc_lastname[''A140'']>>: <<npc_rel[''A140'']>>  <a href="exec:npc_rel[''A140''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A140''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
		end
		*nl
		'<i>Athletes</i>'
		if Enable_reputation_athletes = 0:
			'<a href="exec:Enable_reputation_athletes = 1 & dynamic $cheatmenu[''reputation'']">Show details</a>'
		end
		if Enable_reputation_athletes = 1:
			'<a href="exec:Enable_reputation_athletes = 0 & dynamic $cheatmenu[''reputation'']">Hide details</a>'
			'<<$npc_firstname[''A3'']>> <<$npc_lastname[''A3'']>>: <<npc_rel[''A3'']>>	<a href="exec:npc_rel[''A3''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A3''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
			if fedormasha = 0:	'<<$npc_firstname[''A5'']>> <<$npc_lastname[''A5'']>>: <<npc_rel[''A5'']>>	<a href="exec:npc_rel[''A5''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A5''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
			'<<$npc_firstname[''A8'']>> <<$npc_lastname[''A8'']>>: <<npc_rel[''A8'']>>	<a href="exec:npc_rel[''A8''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A8''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
			'<<$npc_firstname[''A13'']>> <<$npc_lastname[''A13'']>>: <<npc_rel[''A13'']>>	<a href="exec:npc_rel[''A13''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A13''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
			if zverRageQW = 0 or zverRageQW = 10:  '<<$npc_firstname[''A18'']>> <<$npc_lastname[''A18'']>>: <<npc_rel[''A18'']>>	<a href="exec:npc_rel[''A18''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A18''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
			'<<$npc_firstname[''A19'']>> <<$npc_lastname[''A19'']>>: <<npc_rel[''A19'']>>	<a href="exec:npc_rel[''A19''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A19''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
			'<<$npc_firstname[''A22'']>> <<$npc_lastname[''A22'']>>: <<npc_rel[''A22'']>>	<a href="exec:npc_rel[''A22''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A22''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
			'<<$npc_firstname[''A149'']>> <<$npc_lastname[''A149'']>>: <<npc_rel[''A149'']>>  <a href="exec:npc_rel[''A149''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A149''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
			'<<$npc_firstname[''A150'']>> <<$npc_lastname[''A150'']>>: <<npc_rel[''A150'']>>  <a href="exec:npc_rel[''A150''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A150''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
			'<<$npc_firstname[''A141'']>> <<$npc_lastname[''A141'']>>: <<npc_rel[''A141'']>>  <a href="exec:npc_rel[''A141''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A141''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
		end
		*nl
		'<i>Nerds</i>'
		if Enable_reputation_nerds = 0:
			'<a href="exec:Enable_reputation_nerds = 1 & dynamic $cheatmenu[''reputation'']">Show details</a>'
		end
		if Enable_reputation_nerds = 1:
			'<a href="exec:Enable_reputation_nerds = 0 & dynamic $cheatmenu[''reputation'']">Hide details</a>'
			'<<$npc_firstname[''A2'']>> <<$npc_lastname[''A2'']>>: <<npc_rel[''A2'']>>	<a href="exec:npc_rel[''A2''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A2''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
			'<<$npc_firstname[''A6'']>> <<$npc_lastname[''A6'']>>: <<npc_rel[''A6'']>>	<a href="exec:npc_rel[''A6''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A6''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
			'<<$npc_firstname[''A12'']>> <<$npc_lastname[''A12'']>>: <<npc_rel[''A12'']>>	<a href="exec:npc_rel[''A12''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A12''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
			'<<$npc_firstname[''A16'']>> <<$npc_lastname[''A16'']>>: <<npc_rel[''A16'']>>	<a href="exec:npc_rel[''A16''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A16''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
			'<<$npc_firstname[''A151'']>> <<$npc_lastname[''A151'']>>: <<npc_rel[''A151'']>>  <a href="exec:npc_rel[''A151''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A151''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
			'<<$npc_firstname[''A152'']>> <<$npc_lastname[''A152'']>>: <<npc_rel[''A152'']>>  <a href="exec:npc_rel[''A152''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A152''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
			'<<$npc_firstname[''A153'']>> <<$npc_lastname[''A153'']>>: <<npc_rel[''A153'']>>  <a href="exec:npc_rel[''A153''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A153''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
			'<<$npc_firstname[''A142'']>> <<$npc_lastname[''A142'']>>: <<npc_rel[''A142'']>>  <a href="exec:npc_rel[''A142''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A142''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
			'<<$npc_firstname[''A231'']>> <<$npc_lastname[''A231'']>>: <<npc_rel[''A231'']>>  <a href="exec:npc_rel[''A231''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A231''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
		end
		*nl
		'<i>Gopniks</i>'
		if Enable_reputation_gopniks = 0:
			'<a href="exec:Enable_reputation_gopniks = 1 & dynamic $cheatmenu[''reputation'']">Show details</a>'
		end
		if Enable_reputation_gopniks = 1:
			'<a href="exec:Enable_reputation_gopniks = 0 & dynamic $cheatmenu[''reputation'']">Hide details</a>'
			'<<$npc_firstname[''A9'']>> <<$npc_lastname[''A9'']>>: <<npc_rel[''A9'']>>	<a href="exec:npc_rel[''A9''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A9''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
			'<<$npc_firstname[''A10'']>> <<$npc_lastname[''A10'']>>: <<npc_rel[''A10'']>>	<a href="exec:npc_rel[''A10''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A10''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
			'<<$npc_firstname[''A11'']>> <<$npc_lastname[''A11'']>>: <<npc_rel[''A11'']>>	<a href="exec:npc_rel[''A11''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A11''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
			'<<$npc_firstname[''A20'']>> <<$npc_lastname[''A20'']>>: <<npc_rel[''A20'']>>	<a href="exec:npc_rel[''A20''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A20''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
			'<<$npc_firstname[''A21'']>> <<$npc_lastname[''A21'']>>: <<npc_rel[''A21'']>>	<a href="exec:npc_rel[''A21''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A21''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
			'<<$npc_firstname[''A24'']>> <<$npc_lastname[''A24'']>>: <<npc_rel[''A24'']>>	<a href="exec:npc_rel[''A24''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A24''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
			'<<$npc_firstname[''A154'']>> <<$npc_lastname[''A154'']>>: <<npc_rel[''A154'']>>  <a href="exec:npc_rel[''A154''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A154''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
			'<<$npc_firstname[''A155'']>> <<$npc_lastname[''A155'']>>: <<npc_rel[''A155'']>>  <a href="exec:npc_rel[''A155''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A155''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
			'<<$npc_firstname[''A156'']>> <<$npc_lastname[''A156'']>>: <<npc_rel[''A156'']>>  <a href="exec:npc_rel[''A156''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A156''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
			'<<$npc_firstname[''A157'']>> <<$npc_lastname[''A157'']>>: <<npc_rel[''A157'']>>  <a href="exec:npc_rel[''A157''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A157''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
			'<<$npc_firstname[''A158'']>> <<$npc_lastname[''A158'']>>: <<npc_rel[''A158'']>>  <a href="exec:npc_rel[''A158''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A158''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
			'<<$npc_firstname[''A143'']>> <<$npc_lastname[''A143'']>>: <<npc_rel[''A143'']>>  <a href="exec:npc_rel[''A143''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A143''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
			'<<$npc_firstname[''A144'']>> <<$npc_lastname[''A144'']>>: <<npc_rel[''A144'']>>  <a href="exec:npc_rel[''A144''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A144''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
			'<<$npc_firstname[''A145'']>> <<$npc_lastname[''A145'']>>: <<npc_rel[''A145'']>>  <a href="exec:npc_rel[''A145''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A145''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
		end
		*nl
		'<i>Outcasts/Loners</i>'
		if Enable_reputation_outcasts = 0:
			'<a href="exec:Enable_reputation_outcasts = 1 & dynamic $cheatmenu[''reputation'']">Show details</a>'
		end
		if Enable_reputation_outcasts = 1:
			'<a href="exec:Enable_reputation_outcasts = 0 & dynamic $cheatmenu[''reputation'']">Hide details</a>'
			'<<$npc_firstname[''A7'']>> <<$npc_lastname[''A7'']>>: <<npc_rel[''A7'']>>	<a href="exec:npc_rel[''A7''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A7''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
			if soniaPS > 0:	'<<$npc_firstname[''A25'']>> <<$npc_lastname[''A25'']>>: <<npc_rel[''A25'']>>	<a href="exec:npc_rel[''A25''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A25''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
			if zverRageQW > 1 and zverRageQW < 10:	'<<$npc_firstname[''A18'']>> <<$npc_lastname[''A18'']>>: <<npc_rel[''A18'']>>  <a href="exec:npc_rel[''A18''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A18''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
			if fedormasha = 1:	'<<$npc_firstname[''A5'']>> <<$npc_lastname[''A5'']>>: <<npc_rel[''A5'']>>	<a href="exec:npc_rel[''A5''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A5''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
			'<<$npc_firstname[''A159'']>> <<$npc_lastname[''A159'']>>: <<npc_rel[''A159'']>>  <a href="exec:npc_rel[''A159''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A159''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
		end
		*nl
		'<i>Teachers/Coaches</i>'
		if Enable_reputation_teachers = 0:
			'<a href="exec:Enable_reputation_teachers = 1 & dynamic $cheatmenu[''reputation'']">Show details</a>'
		end
		if Enable_reputation_teachers = 1:
			'<a href="exec:Enable_reputation_teachers = 0 & dynamic $cheatmenu[''reputation'']">Hide details</a>'
			'<<$npc_firstname[''A26'']>> <<$npc_lastname[''A26'']>>: <<npc_rel[''A26'']>>	<a href="exec:npc_rel[''A26''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A26''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
			'Mikhail Nikolayevich: <<npc_rel[''A69'']>>	<a href="exec:npc_rel[''A69''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A69''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
			'<<$npc_firstname[''A128'']>> <<$npc_lastname[''A128'']>>: <<npc_rel[''A128'']>>  <a href="exec:npc_rel[''A128''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A128''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
			'<<$npc_firstname[''A129'']>> <<$npc_lastname[''A129'']>>: <<npc_rel[''A129'']>>  <a href="exec:npc_rel[''A129''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A129''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
			'<<$npc_firstname[''A130'']>> <<$npc_lastname[''A130'']>>: <<npc_rel[''A130'']>>  <a href="exec:npc_rel[''A130''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A130''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
			'<<$npc_firstname[''A131'']>> <<$npc_lastname[''A131'']>>: <<npc_rel[''A131'']>>  <a href="exec:npc_rel[''A131''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A131''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
			'<<$npc_firstname[''A132'']>> <<$npc_lastname[''A132'']>>: <<npc_rel[''A132'']>>  <a href="exec:npc_rel[''A132''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A132''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
			'<<$npc_firstname[''A133'']>> <<$npc_lastname[''A133'']>>: <<npc_rel[''A133'']>>  <a href="exec:npc_rel[''A133''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A133''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
			'<<$npc_firstname[''A134'']>> <<$npc_lastname[''A134'']>>: <<npc_rel[''A134'']>>  <a href="exec:npc_rel[''A134''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A134''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
			'<<$npc_firstname[''A135'']>> <<$npc_lastname[''A135'']>>: <<npc_rel[''A135'']>>  <a href="exec:npc_rel[''A135''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A135''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
			'<<$npc_firstname[''A136'']>> <<$npc_lastname[''A136'']>>: <<npc_rel[''A136'']>>  <a href="exec:npc_rel[''A136''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A136''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
			'<<$npc_firstname[''A137'']>> <<$npc_lastname[''A137'']>>: <<npc_rel[''A137'']>>  <a href="exec:npc_rel[''A137''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A137''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
			'<<$npc_firstname[''A138'']>> <<$npc_lastname[''A138'']>>: <<npc_rel[''A138'']>>  <a href="exec:npc_rel[''A138''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A138''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
		end
	end
	'</td><td width="50%" cellpadding="10" valign="top">'
	*nl
	'Miscellaneous relationships'
	*nl
	'<font color="blue"><b>Others</b></font>'
	*nl
	if Enable_reputation_others = 0:
		'<a href="exec:Enable_reputation_others = 1 & dynamic $cheatmenu[''reputation'']">Show details</a>'
	end
	if Enable_reputation_others = 1:
		'<a href="exec:Enable_reputation_others = 0 & dynamic $cheatmenu[''reputation'']">Hide details</a>'
		if npc_rel['A112'] >= 0:
			'Sergei Shulgin: <<npc_rel[''A112'']>>	<a href="exec:npc_rel[''A112''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A112''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
		end
		if npc_rel['A219'] >= 0:
			'Kat: <<npc_rel[''A219'']>>	<a href="exec:npc_rel[''A219''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A219''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
		end
		if npc_rel['A218'] >= 0:
			'Tanya: <<npc_rel[''A218'']>>	<a href="exec:npc_rel[''A218''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A218''] & dynamic $cheatmenu[''reputation'']">-10</a>'
		end
		if npc_rel['A220'] >= 0:
			'Vika: <<npc_rel[''A220'']>>  <a href="exec:npc_rel[''A220''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A220''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
		end
		if npc_rel['A93'] >= 0:
			'Irina: <<npc_rel[''A93'']>>  <a href="exec:npc_rel[''A93''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A93''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
		end
		if npc_rel['A43'] >= 0:
			'Tamara: <<npc_rel[''A93'']>>	<a href="exec:npc_rel[''A43''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A43''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
		end
		if alla >= 0:
			'Alla: <<alla>>	<a href="exec:alla += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:alla -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
		end
		if masha >= 0:
			'Masha: <<masha>>	<a href="exec:masha += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:masha -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
		end
		if npc_rel['A41'] >= 0:
			'Givi: <<npc_rel[''A41'']>>	<a href="exec:npc_rel[''A41''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A41''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
		end
		if npc_rel['A42'] >= 0:
			'Ashot: <<npc_rel[''A42'']>>  <a href="exec:npc_rel[''A42''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A42''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
		end
		if afra >= 0:
			'Black Guys: <<afra>>	<a href="exec:afra += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:afra -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
		end
		if npc_rel['A89'] >= 0:
			'Eugene: <<npc_rel[''A89'']>>	<a href="exec:npc_rel[''A89''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A89''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
		end
		if npc_rel['A217'] >= 0:
			'Pavlin: <<npc_rel[''A217'']>>	<a href="exec:npc_rel[''A217''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A217''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
		end
		if huntersAndreiQw >= 0:
			'Hunter Andrew: <<huntersAndreiQw>>	<a href="exec:huntersAndreiQw += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:huntersAndreiQw -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
		end
		if huntersSergeiQw >= 0:
			'Hunter Sergei: <<huntersSergeiQw>>	<a href="exec:huntersSergeiQw += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:huntersSergeiQw -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
		end
		if huntersIgorQw >= 0:
			'Hunter Igor: <<huntersIgorQw>>	<a href="exec:huntersIgorQw += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:huntersIgorQw -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
		end
		if npc_rel['A217'] >= 0:
			'Martin: <<npc_rel[''A216'']>>	<a href="exec:npc_rel[''A216''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A216''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
		end
	end

	if pcs_lovers[0] = 1:
		*nl
		'You are dating <<$loverdesc[0]>>.'
		if loverrelation[0] < 0: loverrelation[0] = 0
		if loverdays[0] < 0: loverdays[0] = 0
		if haraklover[0] > 2: haraklover[0] = 0
		if loverizvrat[0] > 1: loverizvrat[0] = 0
		'Change lover''s personality: <a href="exec:haraklover[0] += 1 & dynamic $cheatmenu[''reputation'']"><<haraklover[0]>></a>'
		'Change lover''s perversion: <a href="exec:loverizvrat[0] += 1 & dynamic $cheatmenu[''reputation'']"><<loverizvrat[0]>></a>'
		'Relationship: <<loverrelation[0]>> <a href="exec:loverrelation[0] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:loverrelation[0] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
		'You''ve been dating for <<loverdays[0]>> days. <a href="exec:loverdays[0] += 5 & dynamic $cheatmenu[''reputation'']">+5</a> <a href="exec:loverdays[0] -= 5 & dynamic $cheatmenu[''reputation'']">-5</a>'
	end
	if pcs_lovers[1] = 1:
		*nl
		'You are dating <<$loverdesc[1]>>.'
		if loverrelation[1] < 0: loverrelation[1] = 0
		if loverdays[1] < 0: loverdays[1] = 0
		if haraklover[1] > 2: haraklover[1] = 0
		if loverizvrat[1] > 1: loverizvrat[1] = 0
		'Change lover''s personality: <a href="exec:haraklover[1] += 1 & dynamic $cheatmenu[''reputation'']"><<haraklover[1]>></a>'
		'Change lover''s perversion: <a href="exec:loverizvrat[1] += 1 & dynamic $cheatmenu[''reputation'']"><<loverizvrat[1]>></a>'
		'Relationship: <<loverrelation[1]>> <a href="exec:loverrelation[1] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:loverrelation[1] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
		'You''ve been dating for <<loverdays[1]>> days. <a href="exec:loverdays[1] += 5 & dynamic $cheatmenu[''reputation'']">+5</a> <a href="exec:loverdays[1] -= 5 & dynamic $cheatmenu[''reputation'']">-5</a>'
	end
	if pcs_lovers[2] = 1:
		*nl
		'You are dating <<$loverdesc[2]>>.'
		if loverrelation[2] < 0: loverrelation[2] = 0
		if loverdays[2] < 0: loverdays[2] = 0
		if haraklover[2] > 2: haraklover[2] = 0
		if loverizvrat[2] > 1: loverizvrat[2] = 0
		'Change lover''s personality: <a href="exec:haraklover[2] += 1 & dynamic $cheatmenu[''reputation'']"><<haraklover[2]>></a>'
		'Change lover''s perversion: <a href="exec:loverizvrat[2] += 1 & dynamic $cheatmenu[''reputation'']"><<loverizvrat[2]>></a>'
		'Relationship: <<loverrelation[2]>> <a href="exec:loverrelation[2] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:loverrelation[2] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
		'You''ve been dating for <<loverdays[2]>> days. <a href="exec:loverdays[2] += 5 & dynamic $cheatmenu[''reputation'']">+5</a> <a href="exec:loverdays[2] -= 5 & dynamic $cheatmenu[''reputation'']">-5</a>'
	end
	*nl
	if pav_slut >= 25:
		gs 'fame'
		'In Pavlovsk you are known as a <font color="red"><<$gnikname>></font> <a href="exec:pav_slut = 0 & dynamic $cheatmenu[''reputation'']">Clear</a>'
	end
	*nl
	if opusk > 0 or gnewQW > 0 or sipovka > 0:'<a href="exec:opusk = 0 & gnewQW = 0 & sipovka = 0 & dynamic $cheatmenu[''reputation'']">Clear reputation with Gopniks</a>'
	if StoryLine = 1:
																																  
		*nl
		'<font color="red"><b>WARNING</b></font>: Clearing reputation flags with your family may cause bugs. Use at your own risk!'
		*nl
		if motherKnowWhore > 0 or motherKnowSpravka > 0:
			'Your mother knows, that you are sexually active and considers you a slut. <a href="exec:motherKnowWhore = 0 & motherKnowSpravka = 0 & dynamic $cheatmenu[''reputation'']">Clear</a>'
		elseif motherKnowWhore > 0:
			'Your mother thinks you are a whore. <a href="exec:motherKnowWhore = 0 & dynamic $cheatmenu[''reputation'']">Clear</a>'
		elseif motherKnowSpravka > 0:
			'Your mother knows that you are sexually active. <a href="exec:motherKnowSpravka = 0 & dynamic $cheatmenu[''reputation'']">Clear</a>'
		else
			'Your mother thinks that you are a virgin.'
		end
		*nl
		if evgenQW >= 4 and brotherSex >= 1:
			'Your brother thinks you are a total whore. <a href="exec:evgenQW = 0 & brotherSex = 0 & dynamic $cheatmenu[''reputation'']">Clear</a>'
		elseif brotherSex >= 1:
			'Your brother thinks you are a slut. <a href="exec:brotherSex = 0 & dynamic $cheatmenu[''reputation'']">Clear</a>'
		elseif evgenQW >= 3:
			'Your brother thinks you are a slut. <a href="exec:evgenQW = 0 & dynamic $cheatmenu[''reputation'']">Clear</a>'
		elseif brotherknowslut = 1:
											   
			'Your brother saw semen on your body and thinks you fuck around. <a href="exec:brotherknowslut = 0 & dynamic $cheatmenu[''reputation'']">Clear</a>'
		elseif brotherknowslut >= 2:
			'Your brother saw you in the park fucking the Gopniks. <a href="exec:brotherknowslut = 1 & dynamic $cheatmenu[''reputation'']">Clear</a>'
		else
			'Your brother has a good opinion of you.'
		end
		*nl
		if sisterknowslut > 1 and sisboypartyQW > 1:
			'Your sister thinks you are a slut <a href="exec:sisboypartyQW = 0 & sisterknowslut = 0 & dynamic $cheatmenu[''reputation'']">Clear</a>'
		elseif sisterknowslut > 0:
			'Your sister knows that you sleep around. <a href="exec:sisterknowslut = 0 & dynamic $cheatmenu[''reputation'']">Clear</a>'
		else
			'Your sister has a good opinion of you.'
		end
		*nl
		if home_owned[2] = 0 or ParHomeBlock = 1:
			'<a href="exec:home_owned[2] = 1 & ParHomeBlock = 0 & dynamic $cheatmenu[''reputation'']">Restore</a> access to your parent''s apartment.'
		end
		if momKnowsKolka = 1:
			'Your mother knows Kolka is the father. <a href="momKnowsKolka = 0 & dynamic $cheatmenu[''reputation'']">Clear</a>.'
		end
		if momKnowsVladimir = 1:
			'Your mother knows Vladimir is the father. <a href="exec:momKnowsVladimir = 0 & dynamic $cheatmenu[''reputation'']">Clear</a>.'
		end
		if SchoolBlock = 1:
			'You''ve been expelled from school. <a href="exec:SchoolBlock = 0 & schoolPredupr = 0 & schoolprogul = 0 & pcs_grades = 50 & dynamic $cheatmenu[''reputation'']">Clear</a>.'
		end
	end
	'</td></tr></table></center>'
}

$cheatmenu['documents'] = {
	gs'stat'
	*clr & cla
	gs 'obj_din', 'cheattabs'
	'<center><h1>Cheat Menu - Diplomas, Licences, and Certificates</h1></center>'
	'<center><table cellspacing="0" cellpadding="20" valign="top"><tr>'
	'<td width="300" cellspacing="0" cellpadding="20" valign="top">'
	if SchoolAtestat = 0:'<a href="exec:SchoolAtestat = 1 & dynamic $cheatmenu[''documents'']">Get School Certificate</a>'
	if SchoolAtestat = 1:'Already have a School Certificate'
	if diplom = 0:'<a href="exec:diplom = 1 & dynamic $cheatmenu[''documents'']">Get Diploma</a>'
	if diplom = 1:'You already have a Diploma'
	if secrdiplom = 0:'<a href="exec:secrdiplom = 1 & dynamic $cheatmenu[''documents'']">Get Secretarial Diploma</a>'
	if secrdiplom = 1:'You already have a Secretarial Diploma'
	if masash < 10:'<a href="exec:masash = 10 & dynamic $cheatmenu[''documents'']">Get Masseuse Certificate</a>'
	if masash >= 10:'You already have a Masseuse Certificate'
	if prava = 0:'<a href="exec:prava = 1 & dynamic $cheatmenu[''documents'']">Get Driving Licence</a>'
	if prava = 1:'You already have Driving Licence'
	'</td></tr></table></center>'
}

$cheatmenu['input_time'] = {
	inputtmp = input("Enter time with 4-digit (input 0102 for 1:02)")
	if inputtmp/100 >= 0 and inputtmp/100 <= 23:hour = inputtmp/100
	inputtmp = inputtmp mod 100
	if inputtmp >= 0 and inputtmp <= 59:minut = inputtmp
	killvar 'inputtmp'
	dynamic $cheatmenu['time']
}

$cheatmenu['time'] = {
	gs 'daystart'
	gs 'outdoors', 'temp_set'
	gs 'stat'

	temp_daystart = (year - 2016) * 365
!!2016 is a leapyear so no adjustment before division
	temp_daystart += (year - 2016) / 4
	i=1
	:temp_daystart
	if temp_month > i:
		temp_daystart += monthsend[i]
		i += 1
		jump 'temp_daystart'
	end
	temp_daystart += temp_day
	temp_daystart -= daystart_start
	temp_daystart += 1

	if currtimecheck = 1:
		killvar 'currtimecheck'
		if currday ! daystart:
			if currday < daystart:
				week = (week + daystart - currday) mod 7
			else
				temp = week - ((currday - daystart) mod 7)
				if temp <= 0: week = 7 - temp else week = temp
			end
			currday = daystart
		end
		if currhour < (daystart-1) * 24 + hour:femcycloop = (daystart-1) * 24 + hour - currhour
		:femcycloop
		if femcycloop > 0:gs 'femcyc' & femcycloop -= 1 & jump 'femcycloop'
	end
	*clr & cla
	gs 'obj_din', 'cheattabs'
	'<center><h1>Cheat Menu - Manipulate Time and Weather</h1></center>'
	'<center><table cellspacing="0" cellpadding="20" valign="top"><tr>'
	'<td width="400" cellspacing="0" cellpadding="20" valign="top">'
	if temp_minut > 9:
		if temp_hour > 9: $temptime = '<b><<temp_hour>>:<<temp_minut>></b>' else $temptime = '<b>0<<temp_hour>>:<<temp_minut>></b>'
	else
		if temp_hour > 9: $temptime = '<b><<temp_hour>>:0<<temp_minut>></b>' else $temptime = '<b>0<<temp_hour>>:0<<temp_minut>></b>'
	end
	if minut > 9:
		if hour > 9: $tempcurtime = '<b><<hour>>:<<minut>></b>' else $tempcurtime = '<b>0<<hour>>:<<minut>></b>'
	else
		if hour > 9: $tempcurtime = '<b><<hour>>:0<<minut>></b>' else $tempcurtime = '<b>0<<hour>>:0<<minut>></b>'
	end

	if temp_daystart > daystart:
		temp = (temp_daystart - daystart) mod 7
		if (temp + week) mod 7 = 0:temp_week = 7 else temp_week = (temp + week) mod 7
	elseif temp_daystart < daystart:
		temp = (daystart - temp_daystart) mod 7
		if (week - temp) mod 7 = 0:
			temp_week = 7
		elseif (week - temp) mod 7 < 0:
			temp_week = ((week - temp) mod 7) + 7
		else
			temp_week = week - temp
		end
	else
		temp_week = week
	end
	killvar 'temp'

	'Current time: <b><<$week[week]>></b>, <b><<day>></b>. day of <b><<$month>></b>, <b><<year>></b>, <<$tempcurtime>>'
	'Target time: <b><<$week[temp_week]>></b>, <b><<temp_day>></b>. day of <b><<$temp_month>></b>, <b><<temp_year>></b>, <<$temptime>>'
	'Daychange: <<temp_daystart - daystart>>'
	*nl
	'Year:	<a href="exec:temp_year += 1 & dynamic $cheatmenu[''time'']">+1 Year</a>	<a href="exec:temp_year -= 1 & dynamic $cheatmenu[''time'']">-1 Year</a>'
	'Select <a href="exec:dynamic $cheatmenu[''month'']">Month</a>'
	$daychange = '	<a href="exec:temp_day += 7 & dynamic $cheatmenu[''time'']">+7 Day</a>'
	$daychange += '	<a href="exec:temp_day += 1 & dynamic $cheatmenu[''time'']">+1 Day</a>'
	$daychange += '	<a href="exec:temp_day -= 1 & dynamic $cheatmenu[''time'']">-1 Day</a>'
	$daychange += '	<a href="exec:temp_day -= 7 & dynamic $cheatmenu[''time'']">-7 Day</a>'
	'Day:' +$daychange
	killvar 'daychange'
	$SS = 'Hour: '
	if temp_hour > 0:$SS += '<a href="exec:temp_hour -= 1 & dynamic $cheatmenu[''time'']">-1</a>  ' else $SS += '	'
	if temp_hour > 3:$SS += '<a href="exec:temp_hour -= 4 & dynamic $cheatmenu[''time'']">-4</a>  ' else $SS += '	'
	if temp_hour ! 0:$SS += '<a href="exec:temp_hour = 0 & dynamic $cheatmenu[''time'']">0</a>	' else $SS += '	'
	if temp_hour < 23:$SS += '<a href="exec:temp_hour += 1 & dynamic $cheatmenu[''time'']">+1</a>  ' else $SS += '	'
	if temp_hour < 20:$SS += '<a href="exec:temp_hour += 4 & dynamic $cheatmenu[''time'']">+4</a>'
	$SS
	$SS = 'Minute: '
	if temp_minut > 14:$SS += '<a href="exec:temp_minut -= 15 & dynamic $cheatmenu[''time'']">-15</a> ' else $SS += '	'
	if temp_minut > 0:$SS += '<a href="exec:temp_minut -= 1 & dynamic $cheatmenu[''time'']">-1</a> ' else $SS += '	'
	if temp_minut ! 0:$SS += '<a href="exec:temp_minut = 0 & dynamic $cheatmenu[''time'']">0</a> ' else $SS += '   '
	if temp_minut < 59:$SS += '<a href="exec:temp_minut += 1 & dynamic $cheatmenu[''time'']">+1</a> '
	if temp_minut < 46:$SS += '<a href="exec:temp_minut += 15 & dynamic $cheatmenu[''time'']">+15</a>'
	$SS
	killvar 'SS'
	*nl
	'Weather: <a href="exec:sunWeather=iif(sunWeather=0,1,0) & $pogoda=iif(sunWeather=0,''Rain...'',''Clear...'') & chWeather = 1 & gs ''outdoors'', ''weather'' & dynamic $cheatmenu[''time'']">'+iif(sunWeather=0,'Rain','Sunny')+'</a>'
	*nl
	'Temperature = <<$temperature>> - <a href="exec:temper += 1 & dynamic $cheatmenu[''time'']">+1 degree</a> - <a href="exec:temper += 5 & dynamic $cheatmenu[''time'']">+5 degrees</a> - <a href="exec:temper -= 1 & dynamic $cheatmenu[''time'']">-1 degree</a> - <a href="exec:temper -= 5 & dynamic $cheatmenu[''time'']">-5 degrees</a>'
	*nl
	if TempUnit = 0: 'Use <a href="exec:TempUnit = 1 & gs ''outdoors'',''weather'' & dynamic $cheatmenu[''time'']">Fahrenheit</a> scale' else 'Use <a href="exec:TempUnit = 0 & gs ''outdoors'',''weather'' & dynamic $cheatmenu[''time'']">Celsius</a> scale'
	*nl
	'<a href="exec:dynamic $cheatmenu[''input_time'']">Direct input time</a>'
	*nl
	'<a href="exec:day = temp_day & $month = $temp_month & month = temp_month & year = temp_year & hour = temp_hour & minut = temp_minut & currtimecheck = 1 & dynamic $cheatmenu[''time'']">Accept target date & time</a>'
	'<a href="exec:temp_day = day & $temp_month = $month & temp_month = month & temp_year = year & temp_hour = hour & temp_minut = minut & dynamic $cheatmenu[''time'']">Reset target date & time</a>'
	'</td></tr></table></center>'
}

$cheatmenu['week'] = {
	gs'stat'
	*clr & cla
	'<center><a href="exec:dynamic $cheatmenu"><b>Cheat menu</b></a> - <a href="exec:dynamic $cheatmenu[''time'']"><b>Time</b></a></center>'
	*nl
	'Current time: <b><<day>></b>. day of <b><<$month>></b>, <b><<year>></b>, <<$tempcurtime>>'
	'Target time: <b><<temp_day>></b>. day of <b><<$temp_month>></b>, <b><<temp_year>></b>, <<$temptime>>'
	*nl
	'<a href="exec:week = 1 & dynamic $cheatmenu[''time'']">Monday</a>'
	'<a href="exec:week = 2 & dynamic $cheatmenu[''time'']">Tuesday</a>'
	'<a href="exec:week = 3 & dynamic $cheatmenu[''time'']">Wednesday</a>'
	'<a href="exec:week = 4 & dynamic $cheatmenu[''time'']">Thursday</a>'
	'<a href="exec:week = 5 & dynamic $cheatmenu[''time'']">Friday</a>'
	'<a href="exec:week = 6 & dynamic $cheatmenu[''time'']">Saturday</a>'
	'<a href="exec:week = 7 & dynamic $cheatmenu[''time'']">Sunday</a>'
}

$cheatmenu['month'] = {
	gs'stat'
	*clr & cla
	'<center><a href="exec:dynamic $cheatmenu"><b>Cheat menu</b></a> - <a href="exec:dynamic $cheatmenu[''time'']"><b>Time</b></a></center>'
	*nl
	'Current time: <b><<day>></b>. day of <b><<$month>></b>, <b><<year>></b>, <<$tempcurtime>>'
	'Target time: <b><<temp_day>></b>. day of <b><<$temp_month>></b>, <b><<temp_year>></b>, <<$temptime>>'
	*nl
	'<a href="exec:temp_month = 1 & $temp_month = ''January'' & dynamic $cheatmenu[''time'']">January</a>'
	'<a href="exec:temp_month = 2 & $temp_month = ''February'' & dynamic $cheatmenu[''time'']">February</a>'
	'<a href="exec:temp_month = 3 & $temp_month = ''March'' & dynamic $cheatmenu[''time'']">March</a>'
	'<a href="exec:temp_month = 4 & $temp_month = ''April'' & dynamic $cheatmenu[''time'']">April</a>'
	'<a href="exec:temp_month = 5 & $temp_month = ''May'' & dynamic $cheatmenu[''time'']">May</a>'
	'<a href="exec:temp_month = 6 & $temp_month = ''June'' & dynamic $cheatmenu[''time'']">June</a>'
	'<a href="exec:temp_month = 7 & $temp_month = ''July'' & dynamic $cheatmenu[''time'']">July</a>'
	'<a href="exec:temp_month = 8 & $temp_month = ''August'' & dynamic $cheatmenu[''time'']">August</a>'
	'<a href="exec:temp_month = 9 & $temp_month = ''September'' & dynamic $cheatmenu[''time'']">September</a>'
	'<a href="exec:temp_month = 10 & $temp_month = ''October'' & dynamic $cheatmenu[''time'']">October</a>'
	'<a href="exec:temp_month = 11 & $temp_month = ''November'' & dynamic $cheatmenu[''time'']">November</a>'
	'<a href="exec:temp_month = 12 & $temp_month = ''December'' & dynamic $cheatmenu[''time'']">December</a>'
}

$cheatmenu['magic'] = {
	gs'stat'
	*clr & cla
	gs 'obj_din', 'cheattabs'
	'<center><h1>Cheat Menu - Magic</h1></center>'
	'<center>Is magical: <a href="exec:pcs_magik += 1 & dynamic $cheatmenu[''magic'']">+1<<pcs_magik>></a></center>'
	if succubusflag = 1:
		'<center><a href="exec:dynamic $cheatmenu[''succubreset'']"><b>Remove & Reset Succubus status</b></a></center>'
		*nl
	end
	'<center><table  width="90%" cellspacing="0" cellpadding="0" valign="top">'
	'<tr><td width="50%" cellpadding="10" valign="top">'
		*nl
		'<b>General Spells:</b></a>'
	if spelltuman = 0:'<a href="exec:spelltuman = 1 & dynamic $cheatmenu[''magic'']">Cover the area fog</a>'
	if spellklon = 0:'<a href="exec:spellklon = 1 & dynamic $cheatmenu[''magic'']">Override clone of yourself</a>'
	if spellstun = 0:'<a href="exec:spellstun = 1 & dynamic $cheatmenu[''magic'']">Checkmate</a>'
	if spellweap = 0:'<a href="exec:spellweap = 1 & dynamic $cheatmenu[''magic'']">Invest energy into a weapon (It requires weapons)</a>'
	if spellwind = 0:'<a href="exec:spellwind = 1 & dynamic $cheatmenu[''magic'']">Blow away the fog</a>'
	if spellklon2 = 0:'<a href="exec:spellklon2 = 1 & dynamic $cheatmenu[''magic'']">Substitute itself clones (3 pieces)</a>'
	if spellenergo = 0:'<a href="exec:spellenergo = 1 & dynamic $cheatmenu[''magic'']">Create a weak energy shield</a>'
	if spellinit = 0:'<a href="exec:spellinit = 1 & dynamic $cheatmenu[''magic'']">Create a slight delay of time</a>'
	if spellhel = 0:'<a href="exec:spellhel = 1 & dynamic $cheatmenu[''magic'']">Battle Heal</a>'

	if spellfire0 = 0 or spellfire2 = 0 or spellfire3 = 0 or spellfire4 = 0 or spellfire5 = 0:
		*nl
		'<b>Elemental Spells Fire:</b></a>'
	end
	if spellfire0 = 0:'<a href="exec:spellfire0 = 1 & dynamic $cheatmenu[''magic'']">Flame</a>'
	if spellfire2 = 0:'<a href="exec:spellfire2 = 1 & dynamic $cheatmenu[''magic'']">The release of fire</a>'
	if spellfire3 = 0:'<a href="exec:spellfire3 = 1 & dynamic $cheatmenu[''magic'']">Fire Barrier</a>'
	if spellfire4 = 0:'<a href="exec:spellfire4 = 1 & dynamic $cheatmenu[''magic'']">Firestorm</a>'
	if spellfire5 = 0:'<a href="exec:spellfire5 = 1 & dynamic $cheatmenu[''magic'']">Flame Shield</a>'

	if spellele0 = 0 or spellele2 = 0 or spellele3 = 0 or spellele4 = 0 or spellele5 = 0:
		*nl
		'<b>Elements Lightning Spells:</b></a>'
	end
	if spellele0 = 0:'<a href="exec:spellele0 = 1 & dynamic $cheatmenu[''magic'']">Category</a>'
	if spellele2 = 0:'<a href="exec:spellele2 = 1 & dynamic $cheatmenu[''magic'']">Lightning</a>'
	if spellele3 = 0:'<a href="exec:spellele3 = 1 & dynamic $cheatmenu[''magic'']">Electric barrier</a>'
	if spellele4 = 0:'<a href="exec:spellele4 = 1 & dynamic $cheatmenu[''magic'']">Dance of thousands of birds</a>'
	if spellele5 = 0:'<a href="exec:spellele5 = 1 & dynamic $cheatmenu[''magic'']">Dancing Sphere</a>'

	'</td><td width="50%" cellpadding="10" valign="top">'
	if spellert0 = 0 or spellert2 = 0 or spellert3 = 0 or spellert4 = 0 or spellert5 = 0:
		*nl
		'<b>Spells Earth Elements:</b></a>'
	end
	if spellert0 = 0:'<a href="exec:spellert0 = 1 & dynamic $cheatmenu[''magic'']">Quicksand</a>'
	if spellert2 = 0:'<a href="exec:spellert2 = 1 & dynamic $cheatmenu[''magic'']">Active protection</a>'
	if spellert3 = 0:'<a href="exec:spellert3 = 1 & dynamic $cheatmenu[''magic'']">Abyss</a>'
	if spellert4 = 0:'<a href="exec:spellert4 = 1 & dynamic $cheatmenu[''magic'']">Absolute protection</a>'
	if spellert5 = 0:'<a href="exec:spellert5 = 1 & dynamic $cheatmenu[''magic'']">Sando</a>'

	if spellwind0 = 0 or spellwind2 = 0 or spellwind3 = 0 or spellwind4 = 0 or spellwind5 = 0:
		*nl
		'<b>Wind Elemental Spells:</b></a>'
	end
	if spellwind0 = 0:'<a href="exec:spellwind0 = 1 & dynamic $cheatmenu[''magic'']">Wind gust</a>'
	if spellwind2 = 0:'<a href="exec:spellwind2 = 1 & dynamic $cheatmenu[''magic'']">The horrific pressure</a>'
	if spellwind3 = 0:'<a href="exec:spellwind3 = 1 & dynamic $cheatmenu[''magic'']">Vacuum Sphere</a>'
	if spellwind4 = 0:'<a href="exec:spellwind4 = 1 & dynamic $cheatmenu[''magic'']">Vacuum shells</a>'
	if spellwind5 = 0:'<a href="exec:spellwind5 = 1 & dynamic $cheatmenu[''magic'']">Devouring vacuum</a>'

	if spellwater0 = 0 or spellwater2 = 0 or spellwater3 = 0 or spellwater4 = 0 or spellwater5 = 0:
		*nl
		'<b>Water Elemental Spell:</b></a>'
	end
	if spellwater0 = 0:'<a href="exec:spellwater0 = 1 & dynamic $cheatmenu[''magic'']">Creek manna</a>'
	if spellwater2 = 0:'<a href="exec:spellwater2 = 1 & dynamic $cheatmenu[''magic'']">Flooding</a>'
	if spellwater3 = 0:'<a href="exec:spellwater3 = 1 & dynamic $cheatmenu[''magic'']">Blister</a>'
	if spellwater4 = 0:'<a href="exec:spellwater4 = 1 & dynamic $cheatmenu[''magic'']">Water shark rocket</a>'
	if spellwater5 = 0:'<a href="exec:spellwater5 = 1 & dynamic $cheatmenu[''magic'']">The Great Flood</a>'

	'</td></tr></table></center>'
}

$cheatmenu['dynamic'] = {
	$dynamicCommand = input("Enter command to execute.")
	if $dynamicCommand = '':exit
	dynamic $dynamicCommand
}

$cheatmenu['std_cure'] = {
	venera = 0
	GerpesOnce = 0
	Gerpes = 0
	SifacOnce = 0
	Sifilis = 0
	TriperOnce = 0
	Triper = 0
	TriperOral = 0
	KandidozOnce = 0
	Kandidoz = 0
}

$cheatmenu['auto_period'] = {
	if cyccustom = 0:
		cyccustom = 1
	else
		cyccustom = 0
	end
	dynamic $cheatmenu['permanent']
}

$cheatmenu['force_preg'] = {
	if mesec ! 0: mesec = 0
	if FocH ! 0: FocH = 0
	if EggRH ! 0: EggRH = 0
	if Ovulate ! 0: Ovulate = 0
	if UnfertEgg ! 0: UnfertEgg = 0
	if LutH ! 0: LutH = 0
	if RecovH ! 0: RecovH = 0
	preg = 1
	cycle = 5
	!!Setting implantation date for the due date calculation
	lastovulation = daystart - 5
	PregChem = 150
	$wombthfath = 'A sperm donor'
	babyembryo += 1
	if fertegg = 0:
		Nextbaby = arrsize('$ChildFath')
		Temppolkid = rand(0,1)
		polkid[nextbaby] = Temppolkid
		$kidname[nextbaby] = 'unborn'
		kidage[nextbaby] = 0
		daykid[nextbaby] = 0
		monthkid[nextbaby] = 0
		yearkid[nextbaby] = 0
		Babyptype[nextbaby] = 0
		$ChildFath[nextbaby] = 'A sperm donor'
		$ChildThFath[nextbaby] = 'A sperm donor'
		hairkid[nextbaby] = rand(0, 3)
		eyeskid[nextbaby] = rand(0, 3)
		ChildConType[nextbaby] = 0
		Babyptype[nextbaby] = 1
	else
		fertegg -= 1
	end
}

$cheatmenu['remove_preg'] = {
	pregtime = 0
	pregtalk = 0
	pcs_pregtalk = 0
	npc_pregtalk['A16'] = 0
	npc_pregtalk['A34'] = 0
	preg = 0
	thinkpreg = 0
	knowpreg = 0
	cycle = 4
	!! RecovH has a decay of 1.1/hour or ~ 27/day, the recovery period is 1 week
	RecovH = 189 
	pregchem = 0	
	knowpregloss = 2
	!! I am not sure, why is it here this cycle, but I leave it so (rachels)
	nextbaby = arrsize('yearkid')
	:poliabortloop
	!!Changed to check if baby has a birth year instead, if it doesn''t, do abortion
	if yearkid[nextbaby-1] = 0:
		KILLVAR 'polkid',nextbaby-1
		KILLVAR '$kidname',nextbaby-1
		KILLVAR 'kidage',nextbaby-1
		KILLVAR 'daykid',nextbaby-1
		KILLVAR 'monthkid',nextbaby-1
		KILLVAR 'yearkid',nextbaby-1
		KILLVAR 'Babyptype',nextbaby-1
		KILLVAR '$ChildFath',nextbaby-1
		KILLVAR '$ChildThFath',nextbaby-1
		KILLVAR 'hairkid',nextbaby-1
		KILLVAR 'eyeskid',nextbaby-1
		KILLVAR 'cumarrcon',nextbaby-1
		KILLVAR '$wombpotfath'
		BabyEmbryo -= 1
	end
	nextbaby -= 1
	if nextbaby > 0:
		jump 'poliabortloop'
	end
}

$cheatmenu['cycle'] = {
	*clr
	if cycle ! 5:
		EggRH = 0
		LutH = 0
		Ovulate = 0
		UnfertEgg = 0
		FertEgg = 0
		RecovH = 0
		mesec = 0
		'<a href="exec:daylastperiod = daystart & Cycle = 0 & mesec = 96 & gs ''stat'' & dynamic $cheatmenu[''state'']">Menstration</a>'
		'<a href="exec:Cycle = 1 & gs ''stat'' & dynamic $cheatmenu[''state'']">Follicular</a>'
		'<a href="exec:Cycle = 2 & Ovulate = 24+rand(0,20) & EggRH = 160 + 160+rand(0, 5) & gs ''stat'' & dynamic $cheatmenu[''state'']">Ovulation</a>'
		'<a href="exec:Cycle = 3 & gs ''stat'' & dynamic $cheatmenu[''state'']">Luteal</a>'
	end
}

$cheatmenu['setting'] = {
	*clr & cla
	gs 'obj_din', 'settingtabs'
	'<center><h1>Gameplay Settings</h1></center>'
	'<center><table cellspacing="0" cellpadding="20" valign="top"><tr>'
	'<td cellspacing="0" cellpadding="20" valign="top">'

	if Enable_nogameover = 1:
		'Prevent Non-Drama GAMEOVER: Currently ON - <a href="exec:Enable_nogameover = 0 & dynamic $cheatmenu[''setting'']">Turn OFF</a>'
	else
		'Prevent Non-Drama GAMEOVER: Currently OFF - <a href="exec:Enable_nogameover = 1 & dynamic $cheatmenu[''setting'']">Turn ON</a>'
	end
	if music_on = 0:
		'Music: Currently OFF - <a href="exec:music_on = 1 & music_loop = 1 & dynamic $cheatmenu[''setting'']">Turn ON</a>'
	else
		'Music: Currently ON - <a href="exec:music_on = 0 & music_loop = 0 & close all & dynamic $cheatmenu[''setting'']">Turn OFF</a>'
	end
	*nl

	if disable_autosave = 1:
		'AutoSave: Currently OFF - <a href="exec:disable_autosave = 0 & dynamic $cheatmenu[''setting'']">Turn ON</a>'
	else
		'AutoSave: Currently ON - <a href="exec:disable_autosave = 1 & dynamic $cheatmenu[''setting'']">Turn OFF</a>'
	end
	if autohairbrush = 1:
		'Auto brush hair on mirror visit: Currently ON - <a href="exec:autohairbrush = 0 & dynamic $cheatmenu[''setting'']">Turn OFF</a>'
	else
		'Auto brush hair on mirror visit: Currently OFF - <a href="exec:autohairbrush = 1 & dynamic $cheatmenu[''setting'']">Turn ON</a>'
	end
	if enfullmorrout = 1:
		'Full morning routine enabled: Currently ON - <a href="exec:enfullmorrout = 0 & dynamic $cheatmenu[''setting'']">Turn OFF</a>'
	else
		'Full morning routine enabled: Currently OFF - <a href="exec:enfullmorrout = 1 & dynamic $cheatmenu[''setting'']">Turn ON</a>'
	end
	if editpornname = 1:
		'Editing of the names of the porn movies you stared enabled: Currently ON - <a href="exec:editpornname = 0 & dynamic $cheatmenu[''setting'']">Turn OFF</a>'
	else
		'Renaming porn movies you star in: Currently OFF - <a href="exec:editpornname = 1 & dynamic $cheatmenu[''setting'']">Turn ON</a>'
	end
	*nl
	'<B>Difficulty Setting</B>'
	'At the moment it only improves rate of skill gain'

	'Difficulty: Currently at <<func(''_difficulty'',''getdifficulty'')>>'
	'<ul><li>set to <a href="exec:FUNC(''_difficulty'',''setdifficulty'',''easy peasy'') & dynamic $cheatmenu[''setting'']">easy peasy</a></li>'
	'<li>set to <a href="exec:FUNC(''_difficulty'',''setdifficulty'',''relaxed'') & dynamic $cheatmenu[''setting'']">relaxed</a></li>'
	'<li>set to <a href="exec:FUNC(''_difficulty'',''setdifficulty'',''realistic'') & dynamic $cheatmenu[''setting'']">realistic</a></li>'
	'<li>set to <a href="exec:FUNC(''_difficulty'',''setdifficulty'',''hardcore'') & dynamic $cheatmenu[''setting'']">hardcore</a></li></ul>'
	'</tr></table></b></center>'
}

$cheatmenu['display'] = {
	*clr & cla
	gs 'obj_din', 'settingtabs'
	'<center><h1>Display Setting</h1></center>'
	'<center><table cellspacing="0" cellpadding="20" valign="top"><tr>'
	'<td cellspacing="0" cellpadding="20" valign="top">'
	if set_imgh > 0: set_imgw = 0
	if set_imgw > 0: set_imgh = 0
	if set_imgh <= 0 and set_imgw <= 0: $set_imgh = ''
	if set_imgh > 0:
		'Force Image Height: <a href="exec:set_imgw = 0 & set_imgh=input(''Enter the height of the images'') & dynamic $cheatmenu[''display'']"><<set_imgh>></a>: Currently ON - <a href="exec:set_imgh = 0 & dynamic $cheatmenu[''display'']">Turn OFF</a>'
		$set_imgh = 'Height = <<set_imgh>>'
	else
		'Force Image height: Currently OFF - <a href="exec:set_imgw = 0 & set_imgh=input(''Enter the height of the images'') & dynamic $cheatmenu[''display'']">Turn ON</a>'
	end
	if set_imgw > 0:
		'Force Image Width: <a href="exec:set_imgh = 0 & set_imgh=input(''Enter the width of the images'') & dynamic $cheatmenu[''display'']"><<set_imgw>></a>, Currently ON - <a href="exec:set_imgw=0 & dynamic $cheatmenu[''display'']">Turn OFF</a>'
		$set_imgh = 'width = <<set_imgh>>'
	else
		'Force Image Width: Currently OFF - <a href="exec:set_imgh = 0 &set_imgh=input(''Enter the width of the images'') & dynamic $cheatmenu[''display'']">Turn ON</a>'
	end
	*nl
	!night_mode 0: dynamic
	!night_mode 1: black
	!night_mode 2: grey
	!night_mode 99: no theme
	if night_mode = 0:'Girl Life Theme Selection: Dynamic | <a href="exec:night_mode = 1 & dynamic $cheatmenu[''display''] & gs ''$menu_obnovit''">Pitch Black</a> | <a href="exec:night_mode = 2 & dynamic $cheatmenu[''display''] & gs ''$menu_obnovit''">Modern Grey</a> | <a href="exec:night_mode = 99 & dynamic $cheatmenu[''display''] & gs ''$menu_obnovit''">No Theme</a>'
	if night_mode = 1:'Girl Life Theme Selection: <a href="exec:night_mode = 0 & dynamic $cheatmenu[''display''] & gs ''$menu_obnovit''">Dynamic</a> | Pitch Black | <a href="exec:night_mode = 2 & dynamic $cheatmenu[''display''] & gs ''$menu_obnovit''">Modern Grey</a> | <a href="exec:night_mode = 99 & dynamic $cheatmenu[''display''] & gs ''$menu_obnovit''">No Theme</a>'
	if night_mode = 2:'Girl Life Theme Selection: <a href="exec:night_mode = 0 & dynamic $cheatmenu[''display''] & gs ''$menu_obnovit''">Dynamic</a> | <a href="exec:night_mode = 1 & dynamic $cheatmenu[''display''] & gs ''$menu_obnovit''">Pitch Black</a> | Modern Grey | <a href="exec:night_mode = 99 & dynamic $cheatmenu[''display''] & gs ''$menu_obnovit''">No Theme</a>'
	if night_mode = 99:'Girl Life Theme Selection: <a href="exec:night_mode = 0 & dynamic $cheatmenu[''display''] & gs ''$menu_obnovit''">Dynamic</a> | <a href="exec:night_mode = 1 & dynamic $cheatmenu[''display''] & gs ''$menu_obnovit''">Pitch Black</a> | <a href="exec:night_mode = 2 & dynamic $cheatmenu[''display''] & gs ''$menu_obnovit''">Modern Grey</a> | No Theme'

	'<font color="grey">Dynamic theme (default) will change colour based on the game hour. No theme will remove table backgrounds.</font>'
	*nl
	if Enable_tablemap = 1:
		'List friends in table: Currently ON - <a href="exec:Enable_tablemap = 0 & dynamic $cheatmenu[''display'']">Turn OFF</a>'
	else
		'List friends in table: Currently OFF - <a href="exec:Enable_tablemap = 1 & dynamic $cheatmenu[''display'']">Turn ON</a>'
	end
	*nl
	if Enable_faceturn = 1:
		'Always show face: Currently ON - <a href="exec:Enable_faceturn = 0 & dynamic $cheatmenu[''display'']">Turn OFF</a>'
	else
		'Always show face: Currently OFF - <a href="exec:Enable_faceturn = 1 & dynamic $cheatmenu[''display'']">Turn ON</a>'
	end
	*nl
	if Enable_Android = 1:
		'Set Fontsize for Status: Unsupported'
		'Android Mode:Currently ON - <a href="exec:Enable_Android = 0 & dynamic $cheatmenu[''display'']">Turn OFF</a>'
		! 'click <a href="exec:*clr & cla & FUNC (''$menu_obnovit'')">refresh</a> to refresh status window.'
		'click <B>refresh</B> on top of status window to renew.'
	else
		'Android Mode: Currently OFF - <a href="exec:Enable_Android = 1 & dynamic $cheatmenu[''display'']">Turn ON</a>'
	end
	'</tr></table></b></center>'
}

$cheatmenu['status'] = {
	*clr & cla
	gs 'obj_din', 'settingtabs'
	'<center><h1>Status Window Settings</h1></center>'
	'<center><table cellspacing="0" cellpadding="20" valign="top"><tr>'
	'<td cellspacing="0" cellpadding="20" valign="top">'
	if disable_LoadSave = 0:
		'Save/Load Buttons: Currently Image - <a href="exec:disable_LoadSave = 2 & dynamic $cheatmenu[''status''] & gs ''stat''">Select Text</a>'
	elseif disable_LoadSave = 1:
		'Save/Load Buttons: Currently OFF - <a href="exec:disable_LoadSave = 0 & dynamic $cheatmenu[''status''] & gs ''stat''">Select Image</a>'
	elseif disable_LoadSave = 2:
		'Save/Load Buttons: Currently Text - <a href="exec:disable_LoadSave = 1 & dynamic $cheatmenu[''status''] & gs ''stat''">Turn OFF</a>'
	end
	*nl
	!disabled inner thought font selection during char creation, as it breaks menu.
	if settingmode = 0:
		'<a href="exec:gs ''shortgs'',''fonts'', ''$cheatmenu[''''display'''']'',''$OpenInnerThought'',''$CloseInnerThought'' ">Set</a> the font style of inner thoughts'
		$OpenInnerThought+'Oh my god, what will the neighbours think of us?'+$CloseInnerThought
	end
	*nl
	if ETOmenu = 1:
		'Status Display mode: Currently Text - <a href="exec:ETOmenu = 0 & dynamic $cheatmenu[''status''] & gs ''stat''">Select Scale Bar</a>'
	else
		'Status Display mode: Currently Scale Bar - <a href="exec:ETOmenu = 1 & dynamic $cheatmenu[''status''] & gs ''stat''">Select Text</a>'
	end

	if Enable_scalepic = 1:
		'Scalebar is now as <b>Image</b>, you can switch to <a href="exec:Enable_scalepic = 0 & dynamic $cheatmenu[''status''] & gs ''stat''">Character</a> or <a href="exec:Enable_scalepic = 2 & dynamic $cheatmenu[''status''] & gs ''stat''">Table</a>'
		if Enable_scalewidth > 0:
			'Scalebar Width: <a href="exec:input(''Input Scalebar Width (default to 120)'') & dynamic $cheatmenu[''status''] & gs ''stat''"><<Enable_scalewidth-1>></a>, Set is currently <a href="exec:Enable_scalewidth = 0 & dynamic $cheatmenu[''status''] & gs ''stat''">ON</a>'
		else
			'Scalebar Width: Lock is currently <a href="exec:Enable_scalewidth=1+input(''InputS calebar Width (default to 120)'') & dynamic $cheatmenu[''status''] & gs ''stat''">OFF</a>'
		end
		if Enable_scaleheight > 0:
			'Scalebar Height: <a href="exec:input(''Input Scalebar Height (default to 15)'') & dynamic $cheatmenu[''status''] & gs ''stat''"><<Enable_scaleheight-1>></a>, Set is currently <a href="exec:Enable_scaleheight = 0 & dynamic $cheatmenu[''status''] & gs ''stat''">ON</a>'
		else
			'Scalebar Height: Lock is currently <a href="exec:Enable_scaleheight=1+input(''InputS calebar Height (default to 15)'') & dynamic $cheatmenu[''status''] & gs ''stat''">OFF</a>'
		end
	elseif Enable_scalepic = 0:
		'Scalebar is now as <b>Character</b>, you can switch to <a href="exec:Enable_scalepic = 1 & dynamic $cheatmenu[''status''] & gs ''stat''">Image</a> or <a href="exec:Enable_scalepic = 2 & dynamic $cheatmenu[''status''] & gs ''stat''">Table</a>'
		if cheatStatusBars = 1:
			'Set status bar size: Currently Small - <a href="exec:cheatStatusBars = 0 & dynamic $cheatmenu[''status''] & gs ''stat''">Set large</a>'
		else
			'Set status bar size: Currently Large - <a href="exec:cheatStatusBars = 1 & dynamic $cheatmenu[''status''] & gs ''stat''">Set small</a>'
		end
	elseif Enable_scalepic = 2:
		'Scalebar is now as <b>Table</b>, you can switch to <a href="exec:Enable_scalepic = 0 & dynamic $cheatmenu[''status''] & gs ''stat''">Image</a> or <a href="exec:Enable_scalepic = 1 & dynamic $cheatmenu[''status''] & gs ''stat''">Character</a>'
	end
	if Enable_statfsize<0:Enable_statfsize=0
	if Enable_statfsize > 0:
		'Set Fontsize for Status: Currently ON - <a href="exec:Enable_statfsize=input(''Enter Fontsize'') & dynamic $cheatmenu[''status''] & gs ''stat''"><<Enable_statfsize>></a>, <a href="exec:Enable_statfsize=0 & dynamic $cheatmenu[''status''] & gs ''stat''">Turn OFF</a>'
	else
		'Set Fontsize for Status: Currently OFF - <a href="exec:Enable_statfsize=input(''Enter fontsize'') & dynamic $cheatmenu[''status''] & gs ''stat''">Turn ON</a>'
	end
	*nl
	'<center><B>Status Window toolbar</B></center>'
	if Enable_showattr = 1:
		'Show More attribute: Currently ON - <a href="exec:Enable_showattr = 0 & dynamic $cheatmenu[''status''] & gs ''stat''">Turn OFF</a>'
	else
		'Show More attribute: Currently OFF - <a href="exec:Enable_showattr = 1 & dynamic $cheatmenu[''status''] & gs ''stat''">Turn ON</a>'
	end
	if Enable_showskill = 1:
		'Show skill: Currently ON - <a href="exec:Enable_showskill = 0 & dynamic $cheatmenu[''status''] & gs ''stat''">Turn OFF</a>'
	else
		'Show skill: Currently OFF - <a href="exec:Enable_showskill = 1 & dynamic $cheatmenu[''status''] & gs ''stat''">Turn ON</a>'
	end
	if Enable_showrelation = 1:
		'Show relations: Currently ON - <a href="exec:Enable_showrelation = 0 & dynamic $cheatmenu[''status''] & gs ''stat''">Turn OFF</a>'
	else
		'Show relations: Currently OFF - <a href="exec:Enable_showrelation = 1 & dynamic $cheatmenu[''status''] & gs ''stat''">Turn ON</a>'
	end
	if Enable_showstatimg = 1:
		'Show image toolbar: Currently ON - <a href="exec:Enable_showstatimg = 0 & dynamic $cheatmenu[''status''] & gs ''stat''">Turn OFF</a>'
	else
		'Show image toolbar: Currently OFF - <a href="exec:Enable_showstatimg = 1 & dynamic $cheatmenu[''status''] & gs ''stat''">Turn ON</a>'
	end
	*nl
	if Enable_showstatimg = 1:
		!control image toolbar position
		'<center><B>Image Toolbar Settings</B></center>'
		$stat_temp_text = '<br>Image toolbar position: <B>'
		if Enable_statimg_loc = 0:
			$stat_temp_text += 'Middle'
		elseif Enable_statimg_loc = 1:
			$stat_temp_text += 'Top'
		elseif Enable_statimg_loc = 2:
			$stat_temp_text += 'Bottom'
		else
			$stat_temp_text += 'ERROR! please reset it'
		end
		$stat_temp_text += '</B>. You can move it to '
		if Enable_statimg_loc ! 0:$stat_temp_text += ' <a href="exec:Enable_statimg_loc=0 & dynamic $cheatmenu[''status''] & gs ''stat''">Middle</a>'
		if Enable_statimg_loc ! 1:$stat_temp_text += ' <a href="exec:Enable_statimg_loc=1 & dynamic $cheatmenu[''status''] & gs ''stat''">Top</a>'
		if Enable_statimg_loc ! 2:$stat_temp_text += ' <a href="exec:Enable_statimg_loc=2 & dynamic $cheatmenu[''status''] & gs ''stat''">Bottom</a>'


		$stat_temp_text
		killvar 'stat_temp_text'
		!End control image toolbar position
		if set_statimgh > 0: set_statimgw = 0
		if set_statimgw > 0: set_statimgh = 0
		if set_statimgh <= 0 and set_statimgw <= 0: $set_statimgh = ''
		if set_statimgh > 0:
			'Force Image toobar height: <a href="exec:set_statimgw=0 & set_statimgh=input(''Enter the height of the images'') & dynamic $cheatmenu[''status''] & gs ''stat''"><<set_statimgh>></a>: Currently ON - <a href="exec:set_statimgh=0 & dynamic $cheatmenu[''status''] & gs ''stat''">Turn OFF</a>'
			$set_statimgh = 'height = <<set_statimgh>>'
		else
			'Force Image toobar height: Currently OFF - <a href="exec:set_statimgw=0 & set_statimgh=input(''Enter the height of the images'') & dynamic $cheatmenu[''status''] & gs ''stat''">Turn ON</a>'
		end
		if set_statimgw > 0:
			'Force Image toobar width: <a href="exec:set_statimgh=0 & set_statimgw=input(''Enter the width of the images'') & dynamic $cheatmenu[''status''] & gs ''stat''"><<set_statimgw>></a>: Currently ON - <a href="exec:set_statimgw=0 & dynamic $cheatmenu[''status''] & gs ''stat''">Turn OFF</a>'
			$set_statimgh = 'width = <<set_statimgw>>'
		else
			'Force Image toobar width: Currently OFF - <a href="exec:set_statimgh=0 & set_statimgw=input(''Enter the width of the images'') & dynamic $cheatmenu[''status''] & gs ''stat''">Turn ON</a>'
		end
	end

	!<a href="exec:gs ''Cheatmenu_din'' & dynamic $cheatmenu[''status''] & gs ''stat''"><img src="<<FUNC(''$phone_theme'')>>icon_settings.png"></a>
	'</tr></table></b></center>'
}

$cheatmenu['theme'] = {
	*clr & cla
	gs 'obj_din', 'settingtabs'
	'<center><h1>Phone Theme Menu</h1></center>'
	'<center><table width="90%" cellspacing="0" cellpadding="20" valign="top"><tr>'
	*nl
	if pcs_phonetheme = 0: $phoneNameTemp = 'Standard'
	if pcs_phonetheme = 1: $phoneNameTemp = 'Bimbo'
	if pcs_phonetheme = 2: $phoneNameTemp = 'Aluminus'
	if pcs_phonetheme = 3: $phoneNameTemp = 'Bottlecapped'
	if pcs_phonetheme = 4: $phoneNameTemp = 'Galactic'
	if pcs_phonetheme = 5: $phoneNameTemp = 'Vectored'
	if pcs_phonetheme = 6: $phoneNameTemp = 'Veneer'
	if pcs_phonetheme = 7: $phoneNameTemp = 'Voidwalker'
	if pcs_phonetheme = 8: $phoneNameTemp = 'Voidwalker Red'
	if pcs_phonetheme = 9: $phoneNameTemp = 'Voidwalker Toxic'
	if pcs_phonetheme = 10: $phoneNameTemp = 'Gopnik'
	if pcs_phonetheme = 11: $phoneNameTemp = 'Sports'
	if pcs_phonetheme = 12: $phoneNameTemp = 'Succubus'
	if pcs_phonetheme = 13: $phoneNameTemp = 'Woodshop'
	'Current theme: <b><<$phoneNameTemp>></b>'
	*nl
	'Choose from the available themes'
	*nl
	i = 0
	:phonethemeloop
	if phonetheme[i] = 1:'<td align="center" valign="top"><a href="exec: pcs_phonetheme = <<i>> & gs ''telefon'',''Phone_menu'' & dynamic $cheatmenu[''theme'']"><img height="100" width="100" src="images/system/phone/theme/' + $phonetheme_name[i] + '/icon_call.png"></a></td>'
	i += 1
	if i <= ARRSIZE('phonetheme') and i <= 3:
		jump 'phonethemeloop'
	elseif i <= ARRSIZE('phonetheme') and i = 4:
		'</tr><tr>'
		jump 'phonethemeloop'
	elseif i <= ARRSIZE('phonetheme') and i > 4 and i <= 7:
		jump 'phonethemeloop'
	elseif i <= ARRSIZE('phonetheme') and i = 8:
		'</tr><tr>'
		jump 'phonethemeloop'
	elseif i <= ARRSIZE('phonetheme') and i > 8 and i <= 11:
		jump 'phonethemeloop'
	elseif i <= ARRSIZE('phonetheme') and i = 12:
		'</tr><tr>'
		jump 'phonethemeloop'
	elseif i <= ARRSIZE('phonetheme') and i > 12 and i <= 15:
		jump 'phonethemeloop'
	end
	'</tr></table></b></center>'
}

$cheatmenu['pain'] = {
	if pain['head'] < 0:pain['head'] = 0
	if pain['hair'] < 0:pain['hair'] = 0
	if pain['ears'] < 0:pain['ears'] = 0
	if pain['eyebrows'] < 0:pain['eyebrows'] = 0
	if pain['eyes'] < 0:pain['eyes'] = 0
	if pain['cheeks'] < 0:pain['cheeks'] = 0
	if pain['nose'] < 0:pain['nose'] = 0
	if pain['mouth'] < 0:pain['mouth'] = 0
	if pain['lips'] < 0:pain['lips'] = 0
	if pain['tongue'] < 0:pain['tongue'] = 0
	if pain['throat'] < 0:pain['throat'] = 0
	if pain['neck'] < 0:pain['neck'] = 0
	if pain['back'] < 0:pain['back'] = 0
	if pain['asscheeks'] < 0:pain['asscheeks'] = 0
	if pain['asshole'] < 0:pain['asshole'] = 0
	if pain['hips'] < 0:pain['hips'] = 0
	if pain['thighs'] < 0:pain['thighs'] = 0
	if pain['legL'] < 0:pain['legL'] = 0
	if pain['legR'] < 0:pain['legR'] = 0
	if pain['feet'] < 0:pain['feet'] = 0
	if pain['toes'] < 0:pain['toes'] = 0
	if pain['shoulders'] < 0:pain['shoulders'] = 0
	if pain['armL'] < 0:pain['armL'] = 0
	if pain['armR'] < 0:pain['armR'] = 0
	if pain['hands'] < 0:pain['hands'] = 0
	if pain['fingers'] < 0:pain['fingers'] = 0
	if pain['chest'] < 0:pain['chest'] = 0
	if pain['breasts'] < 0:pain['breasts'] = 0
	if pain['nipples'] < 0:pain['nipples'] = 0
	if pain['ribs'] < 0:pain['ribs'] = 0
	if pain['tummy'] < 0:pain['tummy'] = 0
	if pain['pubic'] < 0:pain['pubic'] = 0
	if pain['vaginal'] < 0:pain['vaginal'] = 0
	if pain['clitoris'] < 0:pain['clitoris'] = 0
	if pain['urethra'] < 0:pain['urethra'] = 0
	if pain['cervix'] < 0:pain['cervix'] = 0
	*clr & cla
	gs 'obj_din', 'cheattabs'
	'<center><h1>Cheat Menu - Pain Management</h1></center>'
	'<center><a href="exec:killvar ''pain'' & dynamic $cheatmenu[''pain'']">No pain</a></center>'
	*nl
	'<center><table  width="90%" cellspacing="0" cellpadding="0" valign="top">'
	'<tr><td width="50%" cellpadding="10" valign="top">'
	'pain[head] = <<pain[''head'']>> <a href="exec:pain[''head''] -= 10 & dynamic $cheatmenu[''pain'']">-10</a> <a href="exec:pain[''head''] += 10 & dynamic $cheatmenu[''pain'']">+10</a>'
	'pain[hair] = <<pain[''hair'']>> <a href="exec:pain[''hair''] -= 10 & dynamic $cheatmenu[''pain'']">-10</a> <a href="exec:pain[''hair''] += 10 & dynamic $cheatmenu[''pain'']">+10</a>'
	'pain[ears] = <<pain[''ears'']>> <a href="exec:pain[''ears''] -= 10 & dynamic $cheatmenu[''pain'']">-10</a> <a href="exec:pain[''ears''] += 10 & dynamic $cheatmenu[''pain'']">+10</a>'
	'pain[eyebrows] = <<pain[''ears'']>> <a href="exec:pain[''eyebrows''] -= 10 & dynamic $cheatmenu[''pain'']">-10</a> <a href="exec:pain[''eyebrows''] += 10 & dynamic $cheatmenu[''pain'']">+10</a>'
	'pain[eyes] = <<pain[''eyes'']>> <a href="exec:pain[''eyes''] -= 10 & dynamic $cheatmenu[''pain'']">-10</a> <a href="exec:pain[''eyes''] += 10 & dynamic $cheatmenu[''pain'']">+10</a>'
	'pain[cheeks] = <<pain[''cheeks'']>> <a href="exec:pain[''cheeks''] -= 10 & dynamic $cheatmenu[''pain'']">-10</a> <a href="exec:pain[''cheeks''] += 10 & dynamic $cheatmenu[''pain'']">+10</a>'
	'pain[nose] = <<pain[''nose'']>> <a href="exec:pain[''nose''] -= 10 & dynamic $cheatmenu[''pain'']">-10</a> <a href="exec:pain[''nose''] += 10 & dynamic $cheatmenu[''pain'']">+10</a>'
	'pain[mouth] = <<pain[''mouth'']>> <a href="exec:pain[''mouth''] -= 10 & dynamic $cheatmenu[''pain'']">-10</a> <a href="exec:pain[''mouth''] += 10 & dynamic $cheatmenu[''pain'']">+10</a>'
	'pain[lips] = <<pain[''lips'']>> <a href="exec:pain[''lips''] -= 10 & dynamic $cheatmenu[''pain'']">-10</a> <a href="exec:pain[''lips''] += 10 & dynamic $cheatmenu[''pain'']">+10</a>'
	'pain[tongue] = <<pain[''tongue'']>> <a href="exec:pain[''tongue''] -= 10 & dynamic $cheatmenu[''pain'']">-10</a> <a href="exec:pain[''tongue''] += 10 & dynamic $cheatmenu[''pain'']">+10</a>'
	'pain[throat] = <<pain[''throat'']>> <a href="exec:pain[''throat''] -= 10 & dynamic $cheatmenu[''pain'']">-10</a> <a href="exec:pain[''throat''] += 10 & dynamic $cheatmenu[''pain'']">+10</a>'
	'pain[neck] = <<pain[''neck'']>> <a href="exec:pain[''neck''] -= 10 & dynamic $cheatmenu[''pain'']">-10</a> <a href="exec:pain[''neck''] += 10 & dynamic $cheatmenu[''pain'']">+10</a>'
	'pain[back] = <<pain[''back'']>> <a href="exec:pain[''back''] -= 10 & dynamic $cheatmenu[''pain'']">-10</a> <a href="exec:pain[''back''] += 10 & dynamic $cheatmenu[''pain'']">+10</a>'
	'pain[asscheeks] = <<pain[''asscheeks'']>> <a href="exec:pain[''asscheeks''] -= 10 & dynamic $cheatmenu[''pain'']">-10</a> <a href="exec:pain[''asscheeks''] += 10 & dynamic $cheatmenu[''pain'']">+10</a>'
	'pain[asshole] = <<pain[''asshole'']>> <a href="exec:pain[''asshole''] -= 10 & dynamic $cheatmenu[''pain'']">-10</a> <a href="exec:pain[''asshole''] += 10 & dynamic $cheatmenu[''pain'']">+10</a>'
	'pain[hips] = <<pain[''hips'']>> <a href="exec:pain[''hips''] -= 10 & dynamic $cheatmenu[''pain'']">-10</a> <a href="exec:pain[''hips''] += 10 & dynamic $cheatmenu[''pain'']">+10</a>'
	'pain[thighs] = <<pain[''thighs'']>> <a href="exec:pain[''thighs''] -= 10 & dynamic $cheatmenu[''pain'']">-10</a> <a href="exec:pain[''thighs''] += 10 & dynamic $cheatmenu[''pain'']">+10</a>'
	'pain[left leg] = <<pain[''legL'']>> <a href="exec:pain[''legL''] -= 10 & dynamic $cheatmenu[''pain'']">-10</a> <a href="exec:pain[''legL''] += 10 & dynamic $cheatmenu[''pain'']">+10</a>'
	'pain[right leg] = <<pain[''legR'']>> <a href="exec:pain[''legR''] -= 10 & dynamic $cheatmenu[''pain'']">-10</a> <a href="exec:pain[''legR''] += 10 & dynamic $cheatmenu[''pain'']">+10</a>'
	'</td><td width="50%" cellpadding="10" valign="top">'
	'pain[feet] = <<pain[''feet'']>> <a href="exec:pain[''feet''] -= 10 & dynamic $cheatmenu[''pain'']">-10</a> <a href="exec:pain[''feet''] += 10 & dynamic $cheatmenu[''pain'']">+10</a>'
	'pain[toes] = <<pain[''toes'']>> <a href="exec:pain[''toes''] -= 10 & dynamic $cheatmenu[''pain'']">-10</a> <a href="exec:pain[''toes''] += 10 & dynamic $cheatmenu[''pain'']">+10</a>'
	'pain[shoulders] = <<pain[''shoulders'']>> <a href="exec:pain[''shoulders''] -= 10 & dynamic $cheatmenu[''pain'']">-10</a> <a href="exec:pain[''shoulders''] += 10 & dynamic $cheatmenu[''pain'']">+10</a>'
	'pain[left arm] = <<pain[''armL'']>> <a href="exec:pain[''armL''] -= 10 & dynamic $cheatmenu[''pain'']">-10</a> <a href="exec:pain[''armL''] += 10 & dynamic $cheatmenu[''pain'']">+10</a>'
	'pain[right arm] = <<pain[''armR'']>> <a href="exec:pain[''armR''] -= 10 & dynamic $cheatmenu[''pain'']">-10</a> <a href="exec:pain[''armR''] += 10 & dynamic $cheatmenu[''pain'']">+10</a>'
	'pain[hands] = <<pain[''hands'']>> <a href="exec:pain[''hands''] -= 10 & dynamic $cheatmenu[''pain'']">-10</a> <a href="exec:pain[''hands''] += 10 & dynamic $cheatmenu[''pain'']">+10</a>'
	'pain[fingers] = <<pain[''fingers'']>> <a href="exec:pain[''fingers''] -= 10 & dynamic $cheatmenu[''pain'']">-10</a> <a href="exec:pain[''fingers''] += 10 & dynamic $cheatmenu[''pain'']">+10</a>'
	'pain[chest] = <<pain[''chest'']>> <a href="exec:pain[''chest''] -= 10 & dynamic $cheatmenu[''pain'']">-10</a> <a href="exec:pain[''chest''] += 10 & dynamic $cheatmenu[''pain'']">+10</a>'
	'pain[breasts] = <<pain[''breasts'']>> <a href="exec:pain[''breasts''] -= 10 & dynamic $cheatmenu[''pain'']">-10</a> <a href="exec:pain[''breasts''] += 10 & dynamic $cheatmenu[''pain'']">+10</a>'
	'pain[nipples] = <<pain[''nipples'']>> <a href="exec:pain[''nipples''] -= 10 & dynamic $cheatmenu[''pain'']">-10</a> <a href="exec:pain[''nipples''] += 10 & dynamic $cheatmenu[''pain'']">+10</a>'
	'pain[ribs] = <<pain[''ribs'']>> <a href="exec:pain[''ribs''] -= 10 & dynamic $cheatmenu[''pain'']">-10</a> <a href="exec:pain[''ribs''] += 10 & dynamic $cheatmenu[''pain'']">+10</a>'
	'pain[tummy] = <<pain[''tummy'']>> <a href="exec:pain[''tummy''] -= 10 & dynamic $cheatmenu[''pain'']">-10</a> <a href="exec:pain[''tummy''] += 10 & dynamic $cheatmenu[''pain'']">+10</a>'
	'pain[pubic] = <<pain[''pubic'']>> <a href="exec:pain[''pubic''] -= 10 & dynamic $cheatmenu[''pain'']">-10</a> <a href="exec:pain[''pubic''] += 10 & dynamic $cheatmenu[''pain'']">+10</a>'
	'pain[vaginal] = <<pain[''vaginal'']>> <a href="exec:pain[''vaginal''] -= 10 & dynamic $cheatmenu[''pain'']">-10</a> <a href="exec:pain[''vaginal''] += 10 & dynamic $cheatmenu[''pain'']">+10</a>'
	'pain[labia] = <<pain[''labia'']>> <a href="exec:pain[''labia''] -= 10 & dynamic $cheatmenu[''pain'']">-10</a> <a href="exec:pain[''labia''] += 10 & dynamic $cheatmenu[''pain'']">+10</a>'
	'pain[clitoris] = <<pain[''clitoris'']>> <a href="exec:pain[''clitoris''] -= 10 & dynamic $cheatmenu[''pain'']">-10</a> <a href="exec:pain[''clitoris''] += 10 & dynamic $cheatmenu[''pain'']">+10</a>'
	'pain[urethra] = <<pain[''urethra'']>> <a href="exec:pain[''urethra''] -= 10 & dynamic $cheatmenu[''pain'']">-10</a> <a href="exec:pain[''urethra''] += 10 & dynamic $cheatmenu[''pain'']">+10</a>'
	'pain[cervix] = <<pain[''cervix'']>> <a href="exec:pain[''cervix''] -= 10 & dynamic $cheatmenu[''pain'']">-10</a> <a href="exec:pain[''cervix''] += 10 & dynamic $cheatmenu[''pain'']">+10</a>'
	'</td></tr></table></center>'
}

$cheatmenu['DNA'] = {
	*clr & cla
	gs 'obj_din', 'cheattabs'
	'<center><h1>Cheat Menu - DNA Generation</h1></center>'
	'<center><table width="90%" cellspacing="0" cellpadding="20" valign="top"><tr>'
	'<td cellspacing="0" cellpadding="20" valign="top">'
	'<center>DNA string generation<br>If parents are not in game, leave the respective IDs empty</center>'
	*nl
	if $cheatDNAC ! '':
		'<b>Child: <<$npc_firstname[''<<$cheatDNAC>>'']>> <<$npc_lastname[''<<$cheatDNAC>>'']>></b> (<<$cheatDNAC>>)<br><<$npc_dna[$cheatDNAC]>><br><a href="exec:killvar ''cheatDNAC'' & dynamic $cheatmenu[''DNA'']">Remove</a>'
		npctemp = 0
		killvar 'cheatDNAM'
		killvar 'cheatDNAF'
		:npcparentfind
			if $npc_dna['A<<npctemp>>'] ! '':
				if mid($npc_dna['A<<npctemp>>'],1,10) = mid($npc_dna[$cheatDNAC],12,10):
					$cheatDNAM = 'A<<npctemp>>'
				elseif mid($npc_dna['A<<npctemp>>'],1,10) = mid($npc_dna[$cheatDNAC],23,10):
					$cheatDNAF = 'A<<npctemp>>'
				end
			end
			if $npc_dna['B<<npctemp>>'] ! '':
				if mid($npc_dna['B<<npctemp>>'],1,10) = mid($npc_dna[$cheatDNAC],12,10):
					$cheatDNAM = 'B<<npctemp>>'
				elseif mid($npc_dna['B<<npctemp>>'],1,10) = mid($npc_dna[$cheatDNAC],23,10):
					$cheatDNAF = 'B<<npctemp>>'
				end
			end
			if $npc_dna['C<<npctemp>>'] ! '':
				if mid($npc_dna['C<<npctemp>>'],1,10) = mid($npc_dna[$cheatDNAC],12,10):
					$cheatDNAM = 'C<<npctemp>>'
				elseif mid($npc_dna['C<<npctemp>>'],1,10) = mid($npc_dna[$cheatDNAC],23,10):
					$cheatDNAF = 'C<<npctemp>>'
				end
			end
		if ($npc_dna['A<<npctemp>>'] ! '' or $npc_dna['B<<npctemp>>'] ! '' or $npc_dna['C<<npctemp>>'] ! '') and ($cheatDNAM = '' or $cheatDNAF = ''):npctemp += 1 & jump 'npcparentfind'
		killvar 'npctemp'
	else
		'<a href="exec:killvar ''tempDNAC'' & dynamic $cheatmenu[''DNAC'']"><b>ID of child (if it is known)</b></a>'
	end

	if $cheatDNAM ! '':
		'<br><b>Mother: <<$npc_firstname[''<<$cheatDNAM>>'']>> <<$npc_lastname[''<<$cheatDNAM>>'']>></b> (<<$cheatDNAM>>)<br><<$npc_dna[$cheatDNAM]>><br><a href="exec:killvar ''cheatDNAM'' & dynamic $cheatmenu[''DNA'']">Remove</a>'
	else
		'<br><a href="exec:killvar ''tempDNAM'' & dynamic $cheatmenu[''DNAM'']"><b>ID of mother (if it is known)</b></a>'
	end

	if $cheatDNAF ! '':
		'<br><b>Father: <<$npc_firstname[''<<$cheatDNAF>>'']>> <<$npc_lastname[''<<$cheatDNAF>>'']>></b> (<<$cheatDNAF>>)<br><<$npc_dna[$cheatDNAF]>><br><a href="exec:killvar ''cheatDNAF'' & dynamic $cheatmenu[''DNA'']">Remove</a>'
	else
		'<br><a href="exec:killvar ''tempDNAF'' & dynamic $cheatmenu[''DNAF'']"><b>ID of father (if it is known)</b></a>'
	end
	*nl
	if $cheatDNAM ! '' and $cheatDNAF ! '':
		$cheatDNAgenerated = func('DNA','generate',$npc_dna[$cheatDNAM],$npc_dna[$cheatDNAF])
	elseif $cheatDNAM ! '':
		if $cheatDNAC ! '':
			$tempDNAF = func('DNA','generateF',$npc_dna[$cheatDNAC])
		else
			$tempDNAF = func('DNA','create')
			$cheatDNAgenerated = func('DNA','generate',$npc_dna[$cheatDNAM],$tempDNAF)
		end
	elseif $cheatDNAF ! '':
		if $cheatDNAC ! '':
			$tempDNAM = func('DNA','generateM',$npc_dna[$cheatDNAC])
		else
			$tempDNAM = func('DNA','create')
			$cheatDNAgenerated = func('DNA','generate',$tempDNAM,$npc_dna[$cheatDNAF])
		end
	else
		if $cheatDNAC = '':
			$tempDNAM = func('DNA','create')
			$tempDNAF = func('DNA','create')
			$cheatDNAgenerated = func('DNA','generate',$tempDNAM,$tempDNAF)
		else
			$tempDNAM = func('DNA','generateM',$npc_dna[$cheatDNAC])
			$tempDNAF = func('DNA','generateF',$npc_dna[$cheatDNAC])
		end


	end
	if $cheatDNAM = '': '<br><b>Random mother DNA:</b> <<$tempDNAM>>'
	if $cheatDNAF = '': '<br><b>Random father DNA:</b> <<$tempDNAF>>'
	if $cheatDNAC = '': '<br><b>Random child DNA:</b> <<$cheatDNAgenerated>>'
	'<br><a href="exec:dynamic $cheatmenu[''DNA'']">Generate again</a>'
	if $cheatDNAC ! '':
		npctemp = 0
		:npcgparfind
			if $npc_dna['A<<npctemp>>'] ! '':
				if mid($npc_dna[$cheatDNAC],34,10) = mid($npc_dna['A<<npctemp>>'],1,10) or mid($npc_dna[$cheatDNAC],56,10) = mid($npc_dna['A<<npctemp>>'],1,10):
					'<br><b>Grandmother: <<$npc_firstname[''A<<npctemp>>'']>> <<$npc_lastname[''A<<npctemp>>'']>></b> (A<<npctemp>>)<br><<$npc_dna[''A<<npctemp>>'']>>'
				elseif mid($npc_dna[$cheatDNAC],45,10) = mid($npc_dna['A<<npctemp>>'],1,10) or mid($npc_dna[$cheatDNAC],67,10) = mid($npc_dna['A<<npctemp>>'],1,10):
					'<br><b>Grandfather: <<$npc_firstname[''A<<npctemp>>'']>> <<$npc_lastname[''A<<npctemp>>'']>></b> (A<<npctemp>>)<br><<$npc_dna[''A<<npctemp>>'']>>'
				end
			end
			if $npc_dna['B<<npctemp>>'] ! '':
				if mid($npc_dna[$cheatDNAC],34,10) = mid($npc_dna['B<<npctemp>>'],1,10) or mid($npc_dna[$cheatDNAC],56,10) = mid($npc_dna['B<<npctemp>>'],1,10):
					'<br><b>Grandmother: <<$npc_firstname[''B<<npctemp>>'']>> <<$npc_lastname[''B<<npctemp>>'']>></b> (B<<npctemp>>)<br><<$npc_dna[''B<<npctemp>>'']>>'
				elseif mid($npc_dna[$cheatDNAC],45,10) = mid($npc_dna['A<<npctemp>>'],1,10) or mid($npc_dna[$cheatDNAC],67,10) = mid($npc_dna['B<<npctemp>>'],1,10):
					'<br><b>Grandfather: <<$npc_firstname[''B<<npctemp>>'']>> <<$npc_lastname[''B<<npctemp>>'']>></b> (B<<npctemp>>)<br><<$npc_dna[''B<<npctemp>>'']>>'
				end
			end
			if $npc_dna['C<<npctemp>>'] ! '':
				if mid($npc_dna[$cheatDNAC],34,10) = mid($npc_dna['C<<npctemp>>'],1,10) or mid($npc_dna[$cheatDNAC],56,10) = mid($npc_dna['C<<npctemp>>'],1,10):
					'<br><b>Grandmother: <<$npc_firstname[''C<<npctemp>>'']>> <<$npc_lastname[''C<<npctemp>>'']>></b> (C<<npctemp>>)<br><<$npc_dna[''C<<npctemp>>'']>>'
				elseif mid($npc_dna[$cheatDNAC],45,10) = mid($npc_dna['C<<npctemp>>'],1,10) or mid($npc_dna[$cheatDNAC],67,10) = mid($npc_dna['A<<npctemp>>'],1,10):
					'<br><b>Grandfather: <<$npc_firstname[''C<<npctemp>>'']>> <<$npc_lastname[''C<<npctemp>>'']>></b> (C<<npctemp>>)<br><<$npc_dna[''C<<npctemp>>'']>>'
				end
			end
		if $npc_dna['A<<npctemp>>'] ! '' or $npc_dna['B<<npctemp>>'] ! '' or $npc_dna['C<<npctemp>>'] ! '':npctemp += 1 & jump 'npcgparfind'
	end
	if $cheatDNAM ! '' or $cheatDNAF ! '':
		npctemp = 0
		:npcchildfind
			if $npc_dna['A<<npctemp>>'] ! '':
				if $cheatDNAM ! '' and $cheatDNAF = '' and mid($npc_dna['A<<npctemp>>'],12,10) = mid($npc_dna[$cheatDNAM],1,10):
					'<br><b>Existing child: <<$npc_firstname[''A<<npctemp>>'']>> <<$npc_lastname[''A<<npctemp>>'']>></b> (A<<npctemp>>)<br><<$npc_dna[''A<<npctemp>>'']>>'
				elseif $cheatDNAM = '' and $cheatDNAF ! '' and mid($npc_dna['A<<npctemp>>'],23,10) = mid($npc_dna[$cheatDNAF],1,10):
					'<br><b>Existing child: <<$npc_firstname[''A<<npctemp>>'']>> <<$npc_lastname[''A<<npctemp>>'']>></b> (A<<npctemp>>)<br><<$npc_dna[''A<<npctemp>>'']>>'
				elseif mid($npc_dna['A<<npctemp>>'],12,10) = mid($npc_dna[$cheatDNAM],1,10) and mid($npc_dna['A<<npctemp>>'],23,10) = mid($npc_dna[$cheatDNAF],1,10):
					'<br><b>Existing child: <<$npc_firstname[''A<<npctemp>>'']>> <<$npc_lastname[''A<<npctemp>>'']>></b> (A<<npctemp>>)<br><<$npc_dna[''A<<npctemp>>'']>>'
				end
			end
			if $npc_dna['B<<npctemp>>'] ! '':
				if $cheatDNAM ! '' and $cheatDNAF = '' and mid($npc_dna['B<<npctemp>>'],12,10) = mid($npc_dna[$cheatDNAM],1,10):
					'<br><b>Existing child: <<$npc_firstname[''B<<npctemp>>'']>> <<$npc_lastname[''B<<npctemp>>'']>></b> (B<<npctemp>>)<br><<$npc_dna[''B<<npctemp>>'']>>'
				elseif $cheatDNAM = '' and $cheatDNAF ! '' and mid($npc_dna['B<<npctemp>>'],23,10) = mid($npc_dna[$cheatDNAF],1,10):
					'<br><b>Existing child: <<$npc_firstname[''B<<npctemp>>'']>> <<$npc_lastname[''B<<npctemp>>'']>></b> (B<<npctemp>>)<br><<$npc_dna[''B<<npctemp>>'']>>'
				elseif mid($npc_dna['B<<npctemp>>'],12,10) = mid($npc_dna[$cheatDNAM],1,10) and mid($npc_dna['B<<npctemp>>'],23,10) = mid($npc_dna[$cheatDNAF],1,10):
					'<br><b>Existing child: <<$npc_firstname[''B<<npctemp>>'']>> <<$npc_lastname[''B<<npctemp>>'']>></b> (B<<npctemp>>)<br><<$npc_dna[''B<<npctemp>>'']>>'
				end
			end
			if $npc_dna['C<<npctemp>>'] ! '':
				if $cheatDNAM ! '' and $cheatDNAF = '' and mid($npc_dna['C<<npctemp>>'],12,10) = mid($npc_dna[$cheatDNAM],1,10):
					'<br><b>Existing child: <<$npc_firstname[''C<<npctemp>>'']>> <<$npc_lastname[''C<<npctemp>>'']>></b> (C<<npctemp>>)<br><<$npc_dna[''C<<npctemp>>'']>>'
				elseif $cheatDNAM = '' and $cheatDNAF ! '' and mid($npc_dna['C<<npctemp>>'],23,10) = mid($npc_dna[$cheatDNAF],1,10):
					'<br><b>Existing child: <<$npc_firstname[''C<<npctemp>>'']>> <<$npc_lastname[''C<<npctemp>>'']>></b> (C<<npctemp>>)<br><<$npc_dna[''C<<npctemp>>'']>>'
				elseif mid($npc_dna['C<<npctemp>>'],12,10) = mid($npc_dna[$cheatDNAM],1,10) and mid($npc_dna['C<<npctemp>>'],23,10) = mid($npc_dna[$cheatDNAF],1,10):
					'<br><b>Existing child: <<$npc_firstname[''C<<npctemp>>'']>> <<$npc_lastname[''C<<npctemp>>'']>></b> (C<<npctemp>>)<br><<$npc_dna[''C<<npctemp>>'']>>'
				end
			end
		if $npc_dna['A<<npctemp>>'] ! '' or $npc_dna['B<<npctemp>>'] ! '' or $npc_dna['C<<npctemp>>'] ! '':npctemp += 1 & jump 'npcchildfind'
		npctemp = 0
		:npcgchildfind
			if $npc_dna['A<<npctemp>>'] ! '':
				if $cheatDNAM ! '' and $cheatDNAF = '' and (mid($npc_dna['A<<npctemp>>'],34,10) = mid($npc_dna[$cheatDNAM],1,10) or mid($npc_dna['A<<npctemp>>'],56,10) = mid($npc_dna[$cheatDNAM],1,10)):
					'<br><b>Existing grandchild: <<$npc_firstname[''A<<npctemp>>'']>> <<$npc_lastname[''A<<npctemp>>'']>></b> (A<<npctemp>>)<br><<$npc_dna[''A<<npctemp>>'']>>'
				elseif $cheatDNAM = '' and $cheatDNAF ! '' and (mid($npc_dna['A<<npctemp>>'],45,10) = mid($npc_dna[$cheatDNAF],1,10) or mid($npc_dna['A<<npctemp>>'],67,10) = mid($npc_dna[$cheatDNAF],1,10)):
					'<br><b>Existing grandchild: <<$npc_firstname[''A<<npctemp>>'']>> <<$npc_lastname[''A<<npctemp>>'']>></b> (A<<npctemp>>)<br><<$npc_dna[''A<<npctemp>>'']>>'
				elseif ((mid($npc_dna['A<<npctemp>>'],34,10) = mid($npc_dna[$cheatDNAM],1,10) or mid($npc_dna['A<<npctemp>>'],56,10) = mid($npc_dna[$cheatDNAM],1,10)) and (mid($npc_dna['A<<npctemp>>'],45,10) = mid($npc_dna[$cheatDNAF],1,10) or mid($npc_dna['A<<npctemp>>'],67,10) = mid($npc_dna[$cheatDNAF],1,10))) or (mid($npc_dna['A<<npctemp>>'],12,10) = mid($npc_dna[$cheatDNAM],1,10) and (mid($npc_dna['A<<npctemp>>'],45,10) = mid($npc_dna[$cheatDNAF],1,10) or mid($npc_dna['A<<npctemp>>'],67,10) = mid($npc_dna[$cheatDNAF],1,10))) or ((mid($npc_dna['A<<npctemp>>'],34,10) = mid($npc_dna[$cheatDNAM],1,10) or mid($npc_dna['A<<npctemp>>'],56,10) = mid($npc_dna[$cheatDNAM],1,10)) and mid($npc_dna['A<<npctemp>>'],23,10) = mid($npc_dna[$cheatDNAF],1,10)):
					'<br><b>Existing grandchild: <<$npc_firstname[''A<<npctemp>>'']>> <<$npc_lastname[''A<<npctemp>>'']>></b> (A<<npctemp>>)<br><<$npc_dna[''A<<npctemp>>'']>>'
				end
			end
			if $npc_dna['B<<npctemp>>'] ! '':
				if $cheatDNAM ! '' and $cheatDNAF = '' and (mid($npc_dna['B<<npctemp>>'],34,10) = mid($npc_dna[$cheatDNAM],1,10) or mid($npc_dna['B<<npctemp>>'],56,10) = mid($npc_dna[$cheatDNAM],1,10)):
					'<br><b>Existing grandchild: <<$npc_firstname[''B<<npctemp>>'']>> <<$npc_lastname[''B<<npctemp>>'']>></b> (B<<npctemp>>)<br><<$npc_dna[''B<<npctemp>>'']>>'
				elseif $cheatDNAM = '' and $cheatDNAF ! '' and (mid($npc_dna['B<<npctemp>>'],45,10) = mid($npc_dna[$cheatDNAF],1,10) or mid($npc_dna['B<<npctemp>>'],67,10) = mid($npc_dna[$cheatDNAF],1,10)):
					'<br><b>Existing grandchild: <<$npc_firstname[''B<<npctemp>>'']>> <<$npc_lastname[''B<<npctemp>>'']>></b> (B<<npctemp>>)<br><<$npc_dna[''B<<npctemp>>'']>>'
				elseif ((mid($npc_dna['B<<npctemp>>'],34,10) = mid($npc_dna[$cheatDNAM],1,10) or mid($npc_dna['B<<npctemp>>'],56,10) = mid($npc_dna[$cheatDNAM],1,10)) and (mid($npc_dna['B<<npctemp>>'],45,10) = mid($npc_dna[$cheatDNAF],1,10) or mid($npc_dna['B<<npctemp>>'],67,10) = mid($npc_dna[$cheatDNAF],1,10))) or (mid($npc_dna['B<<npctemp>>'],12,10) = mid($npc_dna[$cheatDNAM],1,10) and (mid($npc_dna['B<<npctemp>>'],45,10) = mid($npc_dna[$cheatDNAF],1,10) or mid($npc_dna['B<<npctemp>>'],67,10) = mid($npc_dna[$cheatDNAF],1,10))) or ((mid($npc_dna['B<<npctemp>>'],34,10) = mid($npc_dna[$cheatDNAM],1,10) or mid($npc_dna['B<<npctemp>>'],56,10) = mid($npc_dna[$cheatDNAM],1,10)) and mid($npc_dna['B<<npctemp>>'],23,10) = mid($npc_dna[$cheatDNAF],1,10)):
					'<br><b>Existing grandchild: <<$npc_firstname[''B<<npctemp>>'']>> <<$npc_lastname[''B<<npctemp>>'']>></b> (B<<npctemp>>)<br><<$npc_dna[''B<<npctemp>>'']>>'
				end
			end
			if $npc_dna['C<<npctemp>>'] ! '':
				if $cheatDNAM ! '' and $cheatDNAF = '' and (mid($npc_dna['C<<npctemp>>'],34,10) = mid($npc_dna[$cheatDNAM],1,10) or mid($npc_dna['C<<npctemp>>'],56,10) = mid($npc_dna[$cheatDNAM],1,10)):
					'<br><b>Existing grandchild: <<$npc_firstname[''C<<npctemp>>'']>> <<$npc_lastname[''C<<npctemp>>'']>></b> (C<<npctemp>>)<br><<$npc_dna[''C<<npctemp>>'']>>'
				elseif $cheatDNAM = '' and $cheatDNAF ! '' and (mid($npc_dna['C<<npctemp>>'],45,10) = mid($npc_dna[$cheatDNAF],1,10) or mid($npc_dna['C<<npctemp>>'],67,10) = mid($npc_dna[$cheatDNAF],1,10)):
					'<br><b>Existing grandchild: <<$npc_firstname[''C<<npctemp>>'']>> <<$npc_lastname[''C<<npctemp>>'']>></b> (C<<npctemp>>)<br><<$npc_dna[''C<<npctemp>>'']>>'
				elseif ((mid($npc_dna['C<<npctemp>>'],34,10) = mid($npc_dna[$cheatDNAM],1,10) or mid($npc_dna['C<<npctemp>>'],56,10) = mid($npc_dna[$cheatDNAM],1,10)) and (mid($npc_dna['C<<npctemp>>'],45,10) = mid($npc_dna[$cheatDNAF],1,10) or mid($npc_dna['C<<npctemp>>'],67,10) = mid($npc_dna[$cheatDNAF],1,10))) or (mid($npc_dna['C<<npctemp>>'],12,10) = mid($npc_dna[$cheatDNAM],1,10) and (mid($npc_dna['C<<npctemp>>'],45,10) = mid($npc_dna[$cheatDNAF],1,10) or mid($npc_dna['C<<npctemp>>'],67,10) = mid($npc_dna[$cheatDNAF],1,10))) or ((mid($npc_dna['C<<npctemp>>'],34,10) = mid($npc_dna[$cheatDNAM],1,10) or mid($npc_dna['C<<npctemp>>'],56,10) = mid($npc_dna[$cheatDNAM],1,10)) and mid($npc_dna['C<<npctemp>>'],23,10) = mid($npc_dna[$cheatDNAF],1,10)):
					'<br><b>Existing grandchild: <<$npc_firstname[''C<<npctemp>>'']>> <<$npc_lastname[''C<<npctemp>>'']>></b> (C<<npctemp>>)<br><<$npc_dna[''C<<npctemp>>'']>>'
				end
			end
		if $npc_dna['A<<npctemp>>'] ! '' or $npc_dna['B<<npctemp>>'] ! '' or $npc_dna['C<<npctemp>>'] ! '':npctemp += 1 & jump 'npcgchildfind'
		killvar 'npctemp'
	end
	killvar '$tempDNAF'
	killvar '$tempDNAM'
	killvar '$tempDNAC'
	killvar 'cheatDNAgenerated'
	'</td></tr></table></center>'
}

$cheatmenu['DNAM'] = {
	$cheatDNAM = input("Enter genetic mother ID (like A33, without apostrophe)")
	if $cheatDNAM = '':exit
	dynamic $cheatDNAM
	dynamic $cheatmenu['DNA']
}

$cheatmenu['DNAF'] = {
	$cheatDNAF = input("Enter genetic father ID (like A34, without apostrophe)")
	if $cheatDNAF = '':exit
	dynamic $cheatDNAF
	dynamic $cheatmenu['DNA']
}

$cheatmenu['DNAC'] = {
	$cheatDNAC = input("Enter genetic Child ID (like A34, without apostrophe)")
	if $cheatDNAC = '':exit
	dynamic $cheatDNAC
	dynamic $cheatmenu['DNA']
}

$cheatmenu['quicktime'] = {
	minut += ARGS[0]
	*clr
	gs 'daystart'
	gs 'outdoors', 'weather'
	gs 'stat'
	gs 'cum_arrcheat'
}

$cheatmenu = {
	gs'stat'
	currhour = (daystart-1) * 24 + hour
	currday = daystart
	temp_week = week & temp_day = day & $temp_month = $month & temp_month = month & temp_year = year & temp_hour = hour & temp_minut = minut
	*clr & cla
	gs 'obj_din', 'cheattabs'
	'<center><h1>Cheat Menu - Index</h1></center>'
	'<center><table cellspacing="0" cellpadding="20" valign="top"><tr>'
	'<td width="400" cellspacing="0" cellpadding="20" valign="top">'
	'<a href="exec:dynamic $cheatmenu[''dynamic'']">Dynamic Input Command</a>'
	'<a href="exec:gs ''cum_arrcheat''">OOX Debug</a>'
	'Right now <<$week[week]>> <<$month>> <<day>> <<year>> <<hour>>:<<minut>>'
	'Jump forward <a href="exec:dynamic $cheatmenu[''quicktime''], 15 & dynamic $cheatmenu">+15</a> minutes'
	*nl
	*nl
	'<a href="exec:gt''pavResidential''">Teleport to Pavlovsk</a>'
	'<a href="exec:gt''street''">Teleport to City</a>'
	'<a href="exec:gt''gadukino''">Teleport to Gadukino</a>'
	'<a href="exec:gt''dachi''">Teleport to Suburban Cooperative</a>'
	*nl
	'<font color="red"><b>WARNING!</b></font>: Teleporting while in an event may break your game. Use at your own risk!'
	*nl
	'Pregnancy speed multiplier: <a href="exec:if pregspeedcheat < 3:pregspeedcheat += 1 & dynamic $cheatmenu else pregspeedcheat = 0 & dynamic $cheatmenu"><b><<pregspeedcheat+1>></b></a>'
	*nl
	'<a href="exec:dynamic $cheatmenu[''vartracker'']"><b>Variable tracker</b></a>'
	'</tr></table></b></center>'
}

$cheatmenu['vartracker'] = {
	gs'stat'
	*clr & cla
	act 'Return to cheat index': dynamic $cheatmenu
	'<center><h1>Cheat menu</h1></center>'
	'<center>For testing purposes.<br>If reporting a bug only the lines in red are neccessary.</center>'
	*nl
	'$loc: <<$loc>>'
	'$locM: <<$locM>>'
	'<font color = red>$CURLOC: <<$CURLOC>></font>'
	'$location_type: <<$location_type>>'
	'home_cur: <<home_cur>>'
	'$home_town: <<$home_town>>'
	'$home_name: <<$home_name>>'
	'daystart: <<daystart>>'
	'daystart_start: <<daystart_start>>'
	'month: <<month>>'
	'week: <<week>>'
	'$temperature: <<$temperature>>'
	'pffilmday: <<pffilmday>>'
	'$pfname: <<$pfname>>'
	'modelmon: <<modelmon>>'
	'min_arousal: <<min_arousal>>'
	'pcs_nips: <<pcs_nips>>'
	'clit_size: <<clit_size>>'
	'steroid_have: <<steroid_have>>'
	'steroid_counter: <<steroid_counter>>'
	'steroid_dose: <<steroid_dose>>'
	'aphrodisiac_have: <<aphrodisiac_have>>'
	'aphrodisiac_counter: <<aphrodisiac_counter>>'
	'aphrodisiac_timer: <<aphrodisiac_timer>>'
	'aphrodisiac_addiction: <<aphrodisiac_addiction>>'
	'bcream_have: <<bcream_have>>'
	'motherQW: <<npc_QW[''A29'']>>'
	'Anastasia quest level: <<npc_QW[''A192'']>>'
	'sex: <<stat[''vaginal'']>>'
	'$clothingworntype: <<$clothingworntype>>'
	'PCloQuality: <<PCloQuality>>'
	'Mira''s Father Quest (npc_QW[''A64'']): <<npc_QW[''A64'']>>'
	'Mira''s Quest (npc_QW[''A60'']): <<npc_QW[''A60'']>>'
	'mirasextimes: <<mirasextimes>>'
	'Bandit Quest Level (npc_QW[''A66'']): <<npc_QW[''A66'']>>'
	'Mira''s Relationship (npc_rel[''A60'']): <<npc_rel[''A60'']>>'
	'Mitka''s Quest (npc_QW[''A63'']): <<npc_QW[''A63'']>>'
	'mirabrosextime: <<mirabrosextime>>'
	'momslut: <<momslut>>'
	'children: <<kid>>'
	'fetus number: <<BabyEmbryo>>'
	'pregnancy state: <<preg>>'
	'thinkpreg: <<thinkpreg>>'
	'knowpreg: <<knowpreg>>'
	'knowpregrecover: <<knowpregrecover>>'
	'cycle: <<cycle>>'
	'menoage: <<menoage>>'
	'age: <<age>>'
	'mesec: <<mesec>>'
	'FocH: <<FocH>>'
	'EggRH: <<EggRH>>'
	'Ovulate: <<Ovulate>>'
	'UnfertEgg: <<UnfertEgg>>'
	'FertEgg: <<FertEgg>>'
	if FertEgg > 0:
		i = arrpos('$kidname','unborn')
		imax = arrsize('$kidname')-1
		:chlp
			'	<<i+1>>. baby''s pregnancy type: <<babyptype[i]>>'
		if i < imax: i += 1 & jump 'chlp'
		killvar 'i'
		killvar 'imax'
	end
	'Implanted Embryos: <<BabyEmbryo>>'
	'ferteggage: <<ferteggage>>'
	'PregChem: <<PregChem>>'
	'pillcon: <<pillcon>>'
	'Believed pillcon: <<pillcon2>>'
	'RecovH: <<RecovH>>'
	'daylastperiod: <<daylastperiod>> (daystart difference: <<daystart-daylastperiod>>)'
	'lastmens: <<lastmens>>'
	'hypnoTime: <<hypnoTime>>'
	'hypnoStrength: <<hypnoStrength>>'
	'hypnoDay: <<hypnoDay>>'
	'hypnoAddict: <<hypnoAddict>>'
	'missCum: <<missCum>>'
	'condoms/bad condoms: <<prezik>>/<<badprezik>>'
	if tabletki > 0:
		'pack(s) of birth control pills: <<tabletki>>'
		if tabletkiold > 0: '	<<tabletkiold>> expired pack'
		if tabletkifake > 0: '	<<tabletkifake>> counterfeit pack'
		if tabletkirej > 0: '	<<tabletkirej>> factory rejected pack'
		if tabletkifert > 0: '	<<tabletkifert>> fertility hormones pack'
		if tabletkisug > 0: '	<<tabletkisug>> sugar pills pack'
	end
	if pillsleft[ptype] > 0:
		if ptype = 0: $pilltype = 'normal '
		if ptype = 1: $pilltype = 'expired '
		if ptype = 2: $pilltype = 'counterfeit '
		if ptype = 3: $pilltype = 'factory rejected '
		if ptype = 4: $pilltype = 'sugar '
		if ptype = 5: $pilltype = 'fertility hormone '
		'<<pillsleft[ptype]>> <<$pilltype>>pills left of your currently used pack'
		killvar '$pilltype'
	end
}

$cheatmenu['bdimmain'] = {
	gs 'stat'
	*clr & cla
	gs 'obj_din', 'cheattabs'
	'<center><h1>Cheat Menu - Body Image Sets</h1></center>'
	'<center><table cellspacing="0" cellpadding="20" valign="top"><tr>'
	'<td width="400" cellspacing="0" cellpadding="20" valign="top">'
	'<center><b>Body Image Controls</b></center>'
	*nl
	'You are currently using set: <<$bodimgsets[((bodset * 10) + 9)]>>'
	if bdsetlock = 1:
		'The set used is locked to current.'
	else
		'The set used is unlocked.'
	end
	*nl
	'This is the current default and custom (if any) body image sets:'
	*nl
	'<a href="exec:chmbodset = 0 & dynamic $cheatmenu[''bdimdisplay'']"><b><<$bodimgsets[9]>></b></a>'
	*nl
	'<a href="exec:chmbodset = 1 & dynamic $cheatmenu[''bdimdisplay'']"><b><<$bodimgsets[19]>></b></a>'
	*nl
	'<a href="exec:chmbodset = 2 & dynamic $cheatmenu[''bdimdisplay'']"><b><<$bodimgsets[29]>></b></a>'
	*nl
	if bodsetcnt >= 4:
		'You may edit aspects of a custom image set by clicking on their folder names below.'
		*nl
		'<a href="exec:chmbodset = 4 & dynamic $cheatmenu[''bdimdisplay'']"><b><<$bodimgsets[49]>></b></a>'
		*nl
	elseif bodsetcnt = 3:
		'<a href="exec:dynamic $cheatmenu[''bdimcstadd'']"><b>Add new set</b></a>'
		*nl
	end
	if bodsetcnt >= 5:
		'<a href="exec:chmbodset = 5 & dynamic $cheatmenu[''bdimdisplay'']"><b><<$bodimgsets[59]>></b></a>'
		*nl
	elseif bodsetcnt = 4:
		'<a href="exec:dynamic $cheatmenu[''bdimcstadd'']"><b>Add new set</b></a>'
		*nl
	end
	if bodsetcnt >= 6:
		'<a href="exec:chmbodset = 6 & dynamic $cheatmenu[''bdimdisplay'']"><b><<$bodimgsets[69]>></b></a>'
		*nl
	elseif bodsetcnt = 5:
		'<a href="exec:dynamic $cheatmenu[''bdimcstadd'']"><b>Add new set</b></a>'
		*nl
	end
	if bodsetcnt >= 7:
		'<a href="exec:chmbodset = 7 & dynamic $cheatmenu[''bdimdisplay'']"><b><<$bodimgsets[79]>></b></a>'
		*nl
	elseif bodsetcnt = 6:
		'<a href="exec:dynamic $cheatmenu[''bdimcstadd'']"><b>Add new set</b></a>'
		*nl
	end
	if bodsetcnt >= 8:
		'<a href="exec:chmbodset = 8 & dynamic $cheatmenu[''bdimdisplay'']"><b><<$bodimgsets[89]>></b></a>'
		*nl
	elseif bodsetcnt = 7:
		'<a href="exec:dynamic $cheatmenu[''bdimcstadd'']"><b>Add new set</b></a>'
		*nl
	end
	if bodsetcnt >= 9:
		'<a href="exec:chmbodset = 9 & dynamic $cheatmenu[''bdimdisplay'']"><b><<$bodimgsets[99]>></b></a>'
		*nl
	elseif bodsetcnt = 8:
		'<a href="exec:dynamic $cheatmenu[''bdimcstadd'']"><b>Add new set</b></a>'
		*nl
	end
	'</td></tr></table></center>'
}

$cheatmenu['bdimdisplay'] = {
	gs 'stat'
	*clr & cla
	'<center><h1>Cheat menu</h1></center>'
	*nl
	'<center><b>Body Image Set Display</b></center>'
	'<a href="exec:killvar ''chmbodset'' & dynamic $cheatmenu[''bdimmain'']"><b>Go Back</b></a>'
	*nl
	if bdsetlock = 1 and chmbodset = fixbodset:
		'This is the currently locked set.'
		'<a href="exec:bdsetlock = 0 & bodset = 1 & killvar ''fixbodset'' & dynamic $cheatmenu[''bdimdisplay'']"><b>Clear the lock.</b></a>'
	else
		'<a href="exec:bdsetlock = 1 & bodset = chmbodset & fixbodset = chmbodset & dynamic $cheatmenu[''bdimdisplay'']"><b>Use this set only.</b></a>'
	end
	*nl
	if chmbodset <= 3:
		'Folder: <<$bodimgsets[((chmbodset * 10) + 9)]>>'
		'Descriptors:'
		*nl
		if chmbodset = 3:
			'<a href="exec:view ''images/pc/body/shape/<<$bodimgsets[((chmbodset * 10) + 9)]>>/0.jpg''"><<$bodimgsets[((chmbodset * 10) + 0)]>></a>'
		else
			'<a href="exec:view ''images/pc/body/shape/0.jpg''"><<$bodimgsets[((chmbodset * 10) + 0)]>></a>'
		end
		*nl
		'<a href="exec:view ''images/pc/body/shape/<<$bodimgsets[((chmbodset * 10) + 9)]>>/1.jpg''"><<$bodimgsets[((chmbodset * 10) + 1)]>></a>'
		*nl
		'<a href="exec:view ''images/pc/body/shape/<<$bodimgsets[((chmbodset * 10) + 9)]>>/2.jpg''"><<$bodimgsets[((chmbodset * 10) + 2)]>></a>'
		*nl
		'<a href="exec:view ''images/pc/body/shape/<<$bodimgsets[((chmbodset * 10) + 9)]>>/3.jpg''"><<$bodimgsets[((chmbodset * 10) + 3)]>></a>'
		*nl
		'<a href="exec:view ''images/pc/body/shape/<<$bodimgsets[((chmbodset * 10) + 9)]>>/4.jpg''"><<$bodimgsets[((chmbodset * 10) + 4)]>></a>'
		*nl
		'<a href="exec:view ''images/pc/body/shape/<<$bodimgsets[((chmbodset * 10) + 9)]>>/5.jpg''"><<$bodimgsets[((chmbodset * 10) + 5)]>></a>'
		*nl
		if chmbodset = 3:
			'<a href="exec:view ''images/pc/body/shape/<<$bodimgsets[((chmbodset * 10) + 9)]>>/6.jpg''"><<$bodimgsets[((chmbodset * 10) + 6)]>></a>'
		else
			'<a href="exec:view ''images/pc/body/shape/6.jpg''"><<$bodimgsets[((chmbodset * 10) + 6)]>></a>'
		end
		*nl
		if chmbodset = 3:
			'<a href="exec:view ''images/pc/body/shape/<<$bodimgsets[((chmbodset * 10) + 9)]>>/7.jpg''"><<$bodimgsets[((chmbodset * 10) + 7)]>></a>'
		else
			'<a href="exec:view ''images/pc/body/shape/7.jpg''"><<$bodimgsets[((chmbodset * 10) + 7)]>></a>'
		end
		*nl
		if chmbodset = 3:
			'<a href="exec:view ''images/pc/body/shape/<<$bodimgsets[((chmbodset * 10) + 9)]>>/8.jpg''"><<$bodimgsets[((chmbodset * 10) + 8)]>></a>'
		end
		*nl
	else
		'Folder: <<$bodimgsets[((chmbodset * 10) + 9)]>>'
		'Descriptors: (Displayed as "You are:")'
		'<a href="exec:view ''images/pc/body/shape/0.jpg''"><<$bodimgsets[((chmbodset * 10) + 0)]>></a>'
		*nl
		'<a href="exec:view ''images/pc/body/shape/<<$bodimgsets[((chmbodset * 10) + 9)]>>/1.jpg''"><<$bodimgsets[((chmbodset * 10) + 1)]>></a> -- <a href="exec:chmbddes = 1 & dynamic $cheatmenu[''bdimcstdesed'']">Edit this</a>'
		*nl
		'<a href="exec:view ''images/pc/body/shape/<<$bodimgsets[((chmbodset * 10) + 9)]>>/2.jpg''"><<$bodimgsets[((chmbodset * 10) + 2)]>></a> -- <a href="exec:chmbddes = 2 & dynamic $cheatmenu[''bdimcstdesed'']">Edit this</a>'
		*nl
		'<a href="exec:view ''images/pc/body/shape/<<$bodimgsets[((chmbodset * 10) + 9)]>>/3.jpg''"><<$bodimgsets[((chmbodset * 10) + 3)]>></a> -- <a href="exec:chmbddes = 3 & dynamic $cheatmenu[''bdimcstdesed'']">Edit this</a>'
		*nl
		'<a href="exec:view ''images/pc/body/shape/<<$bodimgsets[((chmbodset * 10) + 9)]>>/4.jpg''"><<$bodimgsets[((chmbodset * 10) + 4)]>></a> -- <a href="exec:chmbddes = 4 & dynamic $cheatmenu[''bdimcstdesed'']">Edit this</a>'
		*nl
		'<a href="exec:view ''images/pc/body/shape/<<$bodimgsets[((chmbodset * 10) + 9)]>>/5.jpg''"><<$bodimgsets[((chmbodset * 10) + 5)]>></a> -- <a href="exec:chmbddes = 5 & dynamic $cheatmenu[''bdimcstdesed'']">Edit this</a>'
		*nl
		if imgset6ovr[chmbodset] = 1:
			'<a href="exec:view ''images/pc/body/shape/<<$bodimgsets[((chmbodset * 10) + 9)]>>/6.jpg''"><<$bodimgsets[((chmbodset * 10) + 6)]>></a> -- <a href="exec:chmbddes = 6 & dynamic $cheatmenu[''bdimcstdesed'']">Edit this</a>'
			*nl
			'You are using a <a href="exec:imgset6ovr[chmbodset] = 0 & dynamic $cheatmenu[''bdimdisplay'']">custom image 6</a> for this set.'
			*nl
		else
			'<a href="exec:view ''images/pc/body/shape/6.jpg''"><<$bodimgsets[((chmbodset * 10) + 6)]>></a>'
			*nl
			'You are using the <a href="exec:imgset6ovr[chmbodset] = 1 & dynamic $cheatmenu[''bdimdisplay'']">default image 6</a> for this set.'
			*nl
		end
		if imgset7ovr[chmbodset] = 1:
			'<a href="exec:view ''images/pc/body/shape/<<$bodimgsets[((chmbodset * 10) + 9)]>>/7.jpg''"><<$bodimgsets[((chmbodset * 10) + 7)]>></a> -- <a href="exec:chmbddes = 7 & dynamic $cheatmenu[''bdimcstdesed'']">Edit this</a>'
			*nl
			'You are using a <a href="exec:imgset7ovr[chmbodset] = 0 & dynamic $cheatmenu[''bdimdisplay'']">custom image 7</a> for this set.'
			*nl
		else
			'<a href="exec:view ''images/pc/body/shape/7.jpg''"><<$bodimgsets[((chmbodset * 10) + 7)]>></a>'
			*nl
			'You are using the <a href="exec:imgset7ovr[chmbodset] = 1 & dynamic $cheatmenu[''bdimdisplay'']">default image 7</a> for this set.'
			*nl
		end
		'<a href="exec:dynamic $cheatmenu[''bdimcstdel'']">Delete this set.</a>'
	end
}

$cheatmenu['bdimcstdel'] = {
	*clr & cla
	'<center><b>Body Image Set Removal</b></center>'
	'<a href="exec:killvar ''klsetask'' & dynamic $cheatmenu[''bdimdisplay'']"><b>Go Back</b></a>'
	*nl
	'This is where you remove a body image set from use, please note it does not delete anything, it just clears the custom set from this game instance/save.'
	if klsetask = 1:
		'<a href="exec:klsetask = 2 & dynamic $cheatmenu[''bdimcstdel'']"><b>Are you sure you want to remove set <<$bodimgsets[((chmbodset * 10) + 9)]>>?</b></a>'
	elseif klsetask = 2:
		if chmbodset <= 2:
			'You have encoutered error 1'
			'<a href="exec:killvar ''klsetask'' & dynamic $cheatmenu[''bdimdisplay'']"><b>Go Back</b></a>'
			exit
		end
		if bdsetlock = 1 and fixbodset >= chmbodset: bdsetlock = 0 & killvar 'fixbodset'
		if bodsetcnt > chmbodset:
			cyci1 = 0
			cyci2 = chmbodset

			:overwriter1

			$bodimgsets[((cyci2 * 10) + cyci1)] = $bodimgsets[(((cyci2 + 1) * 10) + cyci1)]
			cyci1 += 1
			if cyci1 < 10: jump 'overwriter1'
			imgset6ovr[cyci2] = imgset6ovr[(cyci2 + 1)]
			imgset7ovr[cyci2] = imgset7ovr[(cyci2 + 1)]
			cyci1 = 0
			cyci2 += 1
			if cyci2 < bodsetcnt: jump 'overwriter1'
			killvar 'cyci1' & killvar 'cyci2'
		elseif bodsetcnt < chmbodset:
			'You have encoutered error 2'
			'<a href="exec:killvar ''klsetask'' & dynamic $cheatmenu[''bdimdisplay'']"><b>Go Back</b></a>'
			exit
		end
		cyci1 = 9

		:poofer1

		killvar 'bodimgsets', ((bodsetcnt * 10) + cyci1)
		cyci1 -= 1
		if cyci1 >= 0: jump 'poofer1'
		killvar 'cyci1'
		killvar 'imgset6ovr', bodsetcnt
		killvar 'imgset7ovr', bodsetcnt
		bodsetcnt -= 1
		killvar 'klsetask'
		dynamic $cheatmenu['bdimmain']
	else
		'<a href="exec:klsetask = 1 & dynamic $cheatmenu[''bdimcstdel'']">Remove set <<$bodimgsets[((chmbodset * 10) + 9)]>>?</a>'
	end
}

$cheatmenu['bdimcstadd'] = {
	*clr & cla
	'<center><b>Body Image Set Addition</b></center>'
	'<a href="exec:killvar ''klsetask'' & dynamic $cheatmenu[''bdimmain'']"><b>Go Back</b></a>'
	*nl
	'This is where you can add a new image set to a game.'
	'To add an image set, create a folder in images/pc/body/shape/ and name it anything you want (shorter will be easier to remember). Then put in it any images you want named 1.jpg, 2.jpg, etc. up 5, 6, or 7. Just make sure it contains images 1 to 5. Once you have done that, click the link below and put in your folder name to add that set.'
	'Note: This will only be for this instance/save of the game and you will have to redo the click the link step if you want to add the same folder to a different instance/save.'
	*nl
	'<a href="exec:dynamic $cheatmenu[''bdimcstaddpro'']">Add Image Set</a>'
}

$cheatmenu['bdimcstaddpro'] = {
	$tmpstrg = input("Enter folder name, do not include ''\''")
	if $tmpstrg = '':
		killvar '$tmpstrg'
		dynamic $cheatmenu['bdimcstadd']
	else
		bodsetcnt += 1
		cyci1 = 0
		:addcyc
		$bodimgsets[((bodsetcnt * 10) + cyci1)] = $bodimgsets[(10 + cyci1)]
		cyci1 += 1
		if cyci1 < 9: jump 'addcyc'
		$bodimgsets[((bodsetcnt * 10) + 9)] = $tmpstrg
		imgset6ovr[bodsetcnt] = 0
		imgset7ovr[bodsetcnt] = 0
		killvar '$tmpstrg'
		killvar 'cyci1'
		dynamic $cheatmenu['bdimmain']
	end
}

$cheatmenu['bdimcstdesed'] = {
	$tmpstrg = input("Enter a new descriptor")
	if $tmpstrg = '':
		killvar 'chmbddes'
		killvar '$tmpstrg'
	else
		$bodimgsets[((chmbodset * 10) + chmbddes)] = $tmpstrg
		killvar 'chmbddes'
		killvar '$tmpstrg'
		dynamic $cheatmenu['bdimdisplay']
	end
}

$cheatmenu['succubreset'] = {
	*clr & cla
	'Are you sure you want to reset your Succubus status? You will lose all levels, saved power, and succubus skill levels.'
	*nl
	'<a href="exec:dynamic $cheatmenu[''magic'']"><b>No, nevermind.</b></a>'
	*nl
	'<a href="exec:dynamic $cheatmenu[''sucresetdo'']"><b>Yes, remove & reset Succubus status</b></a>'
}

$cheatmenu['sucresetdo'] = {
!!	Probably do not need to kill all of these, but better to unload them.
	killvar 'scfwon'
	killvar 'scpopt'
	killvar '$sclocrt'
	killvar '$scargrt'
	killvar '$scsubloc'
	killvar 'suceatinit'
	killvar 'succubusflag'
	killvar 'succubusQW'
	killvar '$sucself1'
	killvar 'succublvl'
	killvar 'succubxp'
	killvar 'sucxpsnapshot'
	killvar 'succhungry'
	killvar 'sucexcess'
	killvar 'sexnutrition'
	killvar 'suclezsex'
	killvar 'sucabslez'
	killvar 'sucabscum'
	killvar '$sucabs1'
	killvar '$sucabs2'
	killvar '$sucabs3'
	killvar 'succonfail'
	killvar 'sucpowzeroed'
	killvar 'suchuntday'
	killvar 'sucpcinfo'
	killvar 'karinsucsex'
	killvar 'karinsucsexday'
	killvar 'karinsucsexask'
	killvar 'tatianasucsex'
	killvar 'tatianasucsexday'
	killvar 'tatianasucsexask'
	killvar 'sucwalkday'
	killvar '$sucgoloc'
	killvar '$sucgometka'
	killvar 'sucskill'
	killvar 'sucstorecap'
	killvar 'sucinfoday'
	killvar 'sctrainprep'
!!	This list will be updated as new variables are added
	dynamic $cheatmenu['magic']
}
--- Cheatmenu_din ---------------------------------