# Cheatmenu_din
if settingmode = 0: settingmode = 69
$cheatmenu['table_start'] = '<center><table width="80%" cellspacing="0" cellpadding="20" valign="top"><tr><td width="500" cellspacing="0" cellpadding="20" valign="top">'
$cheatmenu['table_second'] = '</td><td width="500" cellspacing="0" cellpadding="20" valign="top">'
$cheatmenu['table_end'] = '</td></tr></table></center>'
!*clr & cla

$cheatmenu['empty'] = "gs 'Cheatmenu_din', 'empty'"
if $ARGS[0] = 'empty':
	!Yes, intentionally empty, do not remove it
end

!!----------------------------------------------------------------------------------------------------------------------------
!! Gameplay Settings
!!----------------------------------------------------------------------------------------------------------------------------

$cheatmenu['music'] = "gs 'Cheatmenu_din', 'music'"
if $ARGS[0] = 'music':
	if music_on = 0:
		music_on = 1
		music_loop = 1
	else
		music_on = 0
		music_loop = 0
		close all
	end
end

$cheatmenu['setting'] = "gs 'Cheatmenu_din', 'setting'"
if $ARGS[0] = 'setting':
	*clr & cla
	menu_off = 1
	gs 'stat'
	$cheatmenu['this_menu'] = 'setting'
	$BACKIMAGE = ''
	if $theme['name'] = 'Custom': gs 'themes', 'check_custom_vars' & gs 'themes', 'set_custom' & gs '$menu_obnovit'
	gs 'obj_din', 'settingtabs'
	'<center><h1>Gameplay Settings</h1></center>'
	$cheatmenu['table_start']

	'AutoSave: <a href="exec:									disable_autosave					= iif(disable_autosave, 0, 1)					& dynamic $cheatmenu[$cheatmenu[''this_menu'']]"><<iif(disable_autosave						, ''Disabled'', ''Enabled'')>></a>'
	'Music: <a href="exec:												dynamic $cheatmenu[''music'']												& dynamic $cheatmenu[$cheatmenu[''this_menu'']]"><<iif(music_on								, ''Enabled'', ''Disabled'')>></a>'
	*nl
	'More than one job is possible: <a href="exec:				cheatVars[''work'']					= iif(cheatVars[''work''], 0, 1)				& dynamic $cheatmenu[$cheatmenu[''this_menu'']]"><<iif(cheatVars[''work'']					, ''Enabled'', ''Disabled'')>></a>'
	'Prevent Non-Drama GAMEOVER: <a href="exec:					cheatVars[''gameover'']				= iif(cheatVars[''gameover''], 0, 1)			& dynamic $cheatmenu[$cheatmenu[''this_menu'']]"><<iif(cheatVars[''gameover'']				, ''Enabled'', ''Disabled'')>></a>'
	'Automatically win every fight: <a href="exec:				cheatVars[''win_fights'']			= iif(cheatVars[''win_fights''], 0, 1)			& dynamic $cheatmenu[$cheatmenu[''this_menu'']]"><<iif(cheatVars[''win_fights'']			, ''Enabled'', ''Disabled'')>></a>'
	'Automatically resolve non-magical fights: <a href="exec:	cheatVars[''auto_combat'']			= iif(cheatVars[''auto_combat''], 0, 1)			& dynamic $cheatmenu[$cheatmenu[''this_menu'']]"><<iif(cheatVars[''auto_combat'']			, ''Enabled'', ''Disabled'')>></a>'
	*nl
	'Random boyfriend/girlfriend events: <a href="exec:			cheatVars[''random_lovers'']		= iif(cheatVars[''random_lovers''], 0, 1)		& dynamic $cheatmenu[$cheatmenu[''this_menu'']]"><<iif(cheatVars[''random_lovers'']			, ''Disabled'', ''Enabled'')>></a>'
	'Random robbers in the streets: <a href="exec:				cheatVars[''random_robbers'']		= iif(cheatVars[''random_robbers''], 0, 1)		& dynamic $cheatmenu[$cheatmenu[''this_menu'']]"><<iif(cheatVars[''random_robbers'']		, ''Disabled'', ''Enabled'')>></a>'
	'Random rapists in the streets: <a href="exec:				cheatVars[''random_rapists'']		= iif(cheatVars[''random_rapists''], 0, 1)		& dynamic $cheatmenu[$cheatmenu[''this_menu'']]"><<iif(cheatVars[''random_rapists'']		, ''Disabled'', ''Enabled'')>></a>'
	*nl
	'Auto brush hair on mirror visit: <a href="exec:			cheatVars[''auto_brush'']			= iif(cheatVars[''auto_brush''], 0, 1)			& dynamic $cheatmenu[$cheatmenu[''this_menu'']]"><<iif(cheatVars[''auto_brush'']			, ''Enabled'', ''Disabled'')>></a>'
	'Full morning routine enabled: <a href="exec:				cheatVars[''full_morning_rout'']	= iif(cheatVars[''full_morning_rout''], 0, 1)	& dynamic $cheatmenu[$cheatmenu[''this_menu'']]"><<iif(cheatVars[''full_morning_rout'']		, ''Enabled'', ''Disabled'')>></a>'
	'Enema realism: <a href="exec:								cheatVars[''enema'']				= iif(cheatVars[''enema''], 0, 1)				& dynamic $cheatmenu[$cheatmenu[''this_menu'']]"><<iif(cheatVars[''enema'']					, ''Disabled'', ''Enabled'')>></a>'
	'Peeing: <a href="exec:										cheatVars[''pee'']					= iif(cheatVars[''pee''], 0, 1)					& dynamic $cheatmenu[$cheatmenu[''this_menu'']]"><<iif(cheatVars[''pee'']					, ''Disabled'', ''Enabled'')>></a>'
	*nl
	'Renaming porn movies you star in: <a href="exec:			cheatVars[''rename_porn'']			= iif(cheatVars[''rename_porn''], 0, 1)			& dynamic $cheatmenu[$cheatmenu[''this_menu'']]"><<iif(cheatVars[''rename_porn'']			, ''Enabled'', ''Disabled'')>></a>'
	'Remove "once a week" therapist limit: <a href="exec:		cheatVars[''therapist_schedule'']	= iif(cheatVars[''therapist_schedule''], 0, 1)	& dynamic $cheatmenu[$cheatmenu[''this_menu'']]"><<iif(cheatVars[''therapist_schedule'']	, ''Enabled'', ''Disabled'')>></a>'
	*nl

	'<B>Difficulty Setting</B>'
	'At the moment it only improves rate of skill gain'

	$temp_diff = func('_difficulty', 'getdifficulty')
	'Difficulty: Currently at <<$temp_diff>>'
	'<ul>'
	'<li>set to ' + iif($temp_diff = 'easy peasy', 'easy peasy', '<a href="exec:	FUNC(''_difficulty'',''setdifficulty'',''easy peasy'')		& dynamic $cheatmenu[$cheatmenu[''this_menu'']]">easy peasy</a>') + '</li>'
	'<li>set to ' + iif($temp_diff = 'relaxed', 'relaxed', '<a href="exec:			FUNC(''_difficulty'',''setdifficulty'',''relaxed'')			& dynamic $cheatmenu[$cheatmenu[''this_menu'']]">relaxed</a>') + '</li>'
	'<li>set to ' + iif($temp_diff = 'realistic', 'realistic', '<a href="exec:		FUNC(''_difficulty'',''setdifficulty'',''realistic'')		& dynamic $cheatmenu[$cheatmenu[''this_menu'']]">realistic</a>') + '</li>'
	'<li>set to ' + iif($temp_diff = 'hardcore', 'hardcore', '<a href="exec:		FUNC(''_difficulty'',''setdifficulty'',''hardcore'')		& dynamic $cheatmenu[$cheatmenu[''this_menu'']]">hardcore</a>') + '</li>'
	'</ul>'
	killvar '$temp_diff'
	$cheatmenu['table_end']
end

!!----------------------------------------------------------------------------------------------------------------------------
!! Index
!!----------------------------------------------------------------------------------------------------------------------------

$cheatmenu['quicktime'] = "gs 'Cheatmenu_din', 'quicktime', ARGS[0]"
if $ARGS[0] = 'quicktime':
	minut += ARGS[1]
	gs 'outdoors', 'weather'
	gs 'fertility', 'cum_arrcheat'
	gs 'stat'
	*clr & cla
end

$cheatmenu['dynamic'] = "gs 'Cheatmenu_din', 'dynamic'"
if $ARGS[0] = 'dynamic':
	$dynamicCommand = input("Enter command to execute.")
	if $dynamicCommand = '':exit
	dynamic $dynamicCommand
	killvar 'dynamicCommand'
end

$cheatmenu['vartracker'] = "gs 'Cheatmenu_din', 'vartracker'"
if $ARGS[0] = 'vartracker':
	*clr & cla
	gs 'stat'
	act 'Return to cheat index': dynamic $cheatmenu['index']
	'<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[''current'']: <<$home[''current'']>>'
	'$home[''town'']: <<$home[''town'']>>'
	'$home[''name'']: <<$home[''name'']>>'
	'daystart: <<daystart>>'
	'daystart_start: <<daystart_start>>'
	'month: <<month>>'
	'week: <<week>>'
	'$temperature: <<$temperature>>'
	'pfilmday: <<pfilmday>>'
	'$pfname: <<$pfname>>'
	'modelmon: <<modelmon>>'
	'min_arousal: <<min_arousal>>'
	'pcs_nips: <<pcs_nips>>'
	'clit_size: <<clit_size>>'
	'steroids: <<mc_inventory[''steroids'']>>'
	'steroids_used: <<drugVars[''steroids_used'']>>'
	'steroid_dose: <<drugVars[''steroids_dose'']>>'
	'aphrodisiac pills: <<mc_inventory[''aphrodisiac'']>>'
	'aphrodisiac_counter: <<aphrodisiac_counter>>'
	'aphrodisiac_timer: <<drugVars[''aphrodisiac_timer'']>>'
	'aphrodisiac_addiction: <<drugVars[''aphrodisiac_addict'']>>'
	'breastcream: <<mc_inventory[''breastcream'']>>'
	'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 (MiraVars[''QW'']): <<MiraVars[''QW'']>>'
	'MiraVars[''Mitka_fucks'']: <<MiraVars[''Mitka_fucks'']>>'
	'Mira''s Relationship (npc_rel[''A60'']): <<npc_rel[''A60'']>>'
	'Mitka''s Quest (npc_QW[''A63'']): <<npc_QW[''A63'']>>'
	'mirabrosextime: <<mirabrosextime>>'
	'momslut: <<momslut>>'
	'Kirill''s Relationship (Kirill): <<Kirill>>'
	'Kirill''s Corruption (Kirill_Crpt): <<Kirill_Crpt>>'
	'children: <<kid>>'
	!! BabyEmbryo is for how many unborn babies inside PC.
	'fetus number: <<BabyEmbryo>>'
	!! preg is your pregnancy state. 0 is not pregnant, 1 is pregnant in general, 2 is in labor.
	'pregnancy state: <<preg>>'
	!! thinkpreg is if svetka thinks she is pregnant
	'thinkpreg: <<thinkpreg>>'
	!! knowpreg is for solid proof svetlana is pregnant, like a pregnancy test.
	'knowpreg: <<knowpreg>>'
	!! knowpregrecover is for Svetlanas knowledge that she just gave birth.
	'knowpregrecover: <<knowpregrecover>>'
	!! knowpregloss is for Svetlanas knowledge that she lost a baby. 1 is for an abortion, 2 is for a miscarrage.
	'knowpregloss: <<knowpregloss>>'
	!! cycle is Svetlanas current fertility cycle. 5 is pregnant, 4 is recovering, 3 is luteal, 2 is ovulation, 1 is foccular, 0 is menstration.
	'cycle: <<cycle>>'
	!! menoage is the age Svetlana will be when she goes through menopause.
	'menoage: <<menoage>>'
	!! age is how old Svetlana is in years.
	'age: <<age>>'
	!! mesec is for how many hours of bleeding Svetlana has left in her current fertility cycle
	'mesec: <<mesec>>'
	!! FocH is for how many hours of Foccular cycle Svetlana has gone through in her current fertility cycle. Focular starts at the end of her Luteal and contains the bleeding period in Svetkas cycle.
	'FocH: <<FocH>>'
	!! EggRH is for the level of egg release that Svetlana has for her ovulation event. 150 generates a single egg, higher amounts might release more.
	'EggRH: <<EggRH>>'
	!! Ovulate is the amount of hours remaining in Svetlanas ovulation period of her current fertility cycle.
	'Ovulate: <<Ovulate>>'
	!! UnfertEgg is how many unfertilized eggs Svetlana has in her for fertilization during her Ovulation period. Unfertilized eggs are removed at the end of her Ovulation period.
	'UnfertEgg: <<UnfertEgg>>'
	!! FertEgg is how many unimplanted eggs Svetlana has in her. These are possible babies, but they die 330 hours after ovulation if they do not implant.
	'FertEgg: <<FertEgg>>'
	!! babyptype is the pregnancy type of unborn babies. they might be unimplanted 0, healthy 1, or Ectopic 2. Future pregnancy complications should use this variable
	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
	!! BabyEmbryo is for implanted babies. These are solid pregnancies.
	'Implanted Embryos: <<BabyEmbryo>>'
	!! ferteggage is for the time since the ovulation event. They last 330 hours before they die if not implanted.
	'ferteggage: <<ferteggage>>'
	!! PregChem is the level of pregnancy, measured in hour parts.
	'PregChem: <<PregChem>>'
	!! pillcon is the level of birth control to prevent svetlana from getting pregnant. Higher concentrations increase effectivity until it reaches it''s ideal level.
	'pillcon: <<pillcon>>'
	!! believed pillcon is the level of birth control svetlana thinks she has. This may be different from the actual level due to sabotage or a bad habit of not taking your pill.
	'Believed pillcon: <<pillcon2>>'
	!! RecovH is the amount of recover hours before Svetlanas fertility cycle resets after having a baby.
	'RecovH: <<RecovH>>'
	!! daylastperiod is for Svetlanas knowledge on when she began her last period
	'daylastperiod: <<daylastperiod>> (daystart difference: <<daystart-daylastperiod>>)'
	!! lastmens is for the last day that Svetlana bled during her last cycle.
	'lastmens: <<lastmens>>'
	!! firstmens is for the first day that Svetlana bled during her last cycle. this is different than daylastperiod because this is the actual date, while daylastperiod is when Svetlana remembers it being.
	'firstmens: <<lastmens>> (daystart difference: <<daystart-firstmens>>)'
	'hypnoTime: <<hypnoTime>>'
	'hypnoStrength: <<hypnoStrength>>'
	'hypnoDay: <<hypnoDay>>'
	'hypnoAddict: <<hypnoAddict>>'
	'missCum: <<missCum>>'
	if preziktype = 0:
		'condoms: in use(normal)/damaged/bad condoms: <<mc_inventory[''equipped_condoms'']+mc_inventory[''normal_condoms''] >>/<<mc_inventory[''sabotaged_condoms'']>>/<<mc_inventory[''bad_condoms'']>>'
	elseif preziktype = 1:
		'condoms: (Not in use) normal/damaged/bad condoms: <<mc_inventory[''normal_condoms'']>>/<<mc_inventory[''sabotaged_condoms'']>>/<<mc_inventory[''bad_condoms'']>>'
	else
		'condoms: in use (damaged)/normal/bad condoms: <<mc_inventory[''equipped_condoms'']+mc_inventory[''sabotaged_condoms'']>>/<<mc_inventory[''normal_condoms'']>>/<<mc_inventory[''bad_condoms'']>>'
	end
	if mc_inventory['contraceptive_pill'] > 0:
		'pack(s) of birth control pills: <<mc_inventory[''contraceptive_pill'']>>'
		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
end

$cheatmenu['index'] = "gs 'Cheatmenu_din', 'index'"
if $ARGS[0] = 'index':
	*clr & cla
	menu_off = 1
	$cheatmenu['this_menu'] = 'index'
	currhour = (daystart-1) * 24 + hour
	currday = daystart
	temp_daystart = daystart
	temp_hour = hour
	temp_minut = minut
	gs 'stat'
	gs 'obj_din', 'cheattabs'
	'<center><h1>Cheat Menu - Index</h1></center>'
	$cheatmenu['table_start']
	'<a href="exec:dynamic $cheatmenu[''dynamic'']">Dynamic Input Command</a>'
	'<a href="exec:gs ''fertility'',''cum_arrcheat''">OOX Debug</a>'
	'Right now <<$week[week]>> <<$month>> <<day>><<$stat_day_suffix>>, <<year>> <<hour>>:<<minut>>'
	'Jump forward <a href="exec:dynamic $cheatmenu[''quicktime''], 15 & dynamic $cheatmenu[$cheatmenu[''this_menu'']]">+15</a> minutes'
	*nl
	'<a href="exec:gt''pav_residential''"	>Teleport to Pavlovsk</a>'
	'<a href="exec:gt''pushkin''"			>Teleport to Pushkin</a>'
	'<a href="exec:gt''city_residential''"	>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
	'Hide Console input in objects window: <a href="exec:		cheatVars[''console'']		= iif(cheatVars[''console''], 0, 1)		& dynamic $cheatmenu[$cheatmenu[''this_menu'']]"><<iif(cheatVars[''console'']		, ''Enabled'', ''Disabled'')>></a>'
	'Time Cheat in Objects window: <a href="exec:				cheatVars[''time'']			= iif(cheatVars[''time''], 0, 1)		& dynamic $cheatmenu[$cheatmenu[''this_menu'']]"><<iif(cheatVars[''time'']			, ''Enabled'', ''Disabled'')>></a>'
	if blackmailQW['stage'] ! 0: 'Purge the "Blackmailer" questline: <a href="exec: gs ''blackmailer'', ''purge_all'' & dynamic $cheatmenu[$cheatmenu[''this_menu'']]">Permanently reset the entire questline!</a>'
	*nl
	'<a href="exec:dynamic $cheatmenu[''vartracker'']"><b>Variable tracker</b></a>'
	$cheatmenu['table_end']
end

!!----------------------------------------------------------------------------------------------------------------------------
!! Recurrent Cheats
!!----------------------------------------------------------------------------------------------------------------------------

$cheatmenu['addict'] = "gs 'Cheatmenu_din', 'addict'"
if $ARGS[0] = 'addict':
	if cheatVars['drugs_immune'] = 0:
		cheatVars['drugs_immune'] = 1
		drugVars['cigarettes_used'] = 0
		drugVars['cigarettes_need'] = 0
		drugVars['weed_used'] = 0
		drugVars['alcohol_used'] = 0
		drugVars['cocaine_used'] = 0
		drugVars['amphetamine_used'] = 0
		drugVars['heroin_used'] = 0
	else
		cheatVars['drugs_immune'] = 0
	end
end

$cheatmenu['addictive_block'] = "gs 'Cheatmenu_din', 'addictive_block'"
if $ARGS[0] = 'addictive_block':
	if cheatVars['no_trait_addictive'] = 0:
		cheatVars['no_trait_addictive'] = 1
		drugVars['cigarettes_exp'] = 0
		drugVars['weed_exp'] = 0
		drugVars['heroin_exp'] = 0
		drugVars['cocaine_exp'] = 0
		drugVars['amphetamine_exp'] = 0
		drugVars['alcohol_exp'] = 0
		addictive_exp = 0
		addictive_trait_lvl = 0
	else
		cheatVars['no_trait_addictive'] = 0
	end
end

$cheatmenu['Vibrator'] = "gs 'Cheatmenu_din', 'Vibrator'"
if $ARGS[0] = 'Vibrator':
	if cheatVars['sleep_vib'] = 0:
		cheatVars['sleep_vib'] = 1
		sleepVars['bedVibrator'] = 1
	else
		cheatVars['sleep_vib'] = 0
		sleepVars['bedVibrator'] = 0
	end
end

$cheatmenu['BimboCloth'] = "gs 'Cheatmenu_din', 'BimboCloth'"
if $ARGS[0] = 'BimboCloth':
	if cheatVars['bimbo'] = 0:
		cheatVars['bimbo'] = 1
		bimbo = 0
		bimbolevel = 0
		bimbowithdrawal = 0
	else
		cheatVars['bimbo'] = 0
	end
end

$cheatmenu['SmartBimbo'] = "gs 'Cheatmenu_din', 'SmartBimbo'"
if $ARGS[0] = 'SmartBimbo':
	if cheatVars['smart_bimbo'] = 0:
		cheatVars['smart_bimbo'] = 1
		bimbostupidity = 0
	else
		cheatVars['smart_bimbo'] = 0
	end
end

$cheatmenu['SuccuBimbo'] = "gs 'Cheatmenu_din', 'SuccuBimbo'"
if $ARGS[0] = 'SuccuBimbo':
	if cheatVars['suc_bimbo'] = 0:
		cheatVars['suc_bimbo'] = 1
		bimbostupidity = 0
	else
		cheatVars['suc_bimbo'] = 0
	end
end

$cheatmenu['exhib_block'] = "gs 'Cheatmenu_din', 'exhib_block'"
if $ARGS[0] = 'exhib_block':
	if cheatVars['no_trait_exhib'] = 0:
		cheatVars['no_trait_exhib'] = 1
		pcs_exhib = 0
		Exhibitionist_lvl = 0
	else
		cheatVars['no_trait_exhib'] = 0
	end
end

$cheatmenu['cumtrait_block'] = "gs 'Cheatmenu_din', 'cumtrait_block'"
if $ARGS[0] = 'cumtrait_block':
	if cheatVars['no_trait_cumeater'] = 0:
		cheatVars['no_trait_cumeater'] = 1
		pcs_traits['cumeater'] = 0
	else
		cheatVars['no_trait_cumeater'] = 0
	end
end

$cheatmenu['slutshot'] = "gs 'Cheatmenu_din', 'slutshot'"
if $ARGS[0] = 'slutshot':
	if cheatVars['no_periods'] = 0:
		cheatVars['no_periods'] = 1
		cycle = 6
	else
		cheatVars['no_periods'] = 0
		cycle = 0
	end
end

$cheatmenu['permanent'] = "gs 'Cheatmenu_din', 'permanent'"
if $ARGS[0] = 'permanent':
	*clr & cla
	gs 'stat'
	gs 'obj_din', 'cheattabs'
	$cheatmenu['this_menu'] = 'permanent'

	'<center><h1>Cheat Menu - Recurrent Cheats</h1></center>'
	'<center><font color="red"><b>WARNING!</b></font>: Disabling states may cause some events not to trigger. Use at your own risk!</center>'
	$cheatmenu['table_start']

	'Willpower cost always zero: <a href="exec:					cheatVars[''willpower'']			= iif(cheatVars[''willpower''], 0, 1)				& dynamic $cheatmenu[$cheatmenu[''this_menu'']]"><<iif(cheatVars[''willpower'']				, ''Enabled'', ''Disabled'')>></a>'
	'Infinite willpower: <a href="exec:							cheatVars[''inf_willpower'']		= iif(cheatVars[''inf_willpower''], 0, 1)			& dynamic $cheatmenu[$cheatmenu[''this_menu'']]"><<iif(cheatVars[''inf_willpower'']			, ''Enabled'', ''Disabled'')>></a>'
	'Always combed: <a href="exec:								cheatVars[''always_brushed'']		= iif(cheatVars[''always_brushed''], 0, 1)			& dynamic $cheatmenu[$cheatmenu[''this_menu'']]"><<iif(cheatVars[''always_brushed'']		, ''Enabled'', ''Disabled'')>></a>'
	'Cosmetics never smeared: <a href="exec:					cheatVars[''makeup_smear'']			= iif(cheatVars[''makeup_smear''], 0, 1)			& dynamic $cheatmenu[$cheatmenu[''this_menu'']]"><<iif(cheatVars[''makeup_smear'']			, ''Enabled'', ''Disabled'')>></a>'
	'Never sweat: <a href="exec:								cheatVars[''no_sweat'']				= iif(cheatVars[''no_sweat''], 0, 1)				& dynamic $cheatmenu[$cheatmenu[''this_menu'']]"><<iif(cheatVars[''no_sweat'']				, ''Enabled'', ''Disabled'')>></a>'
	'Never eat: <a href="exec:									cheatVars[''hunger'']				= iif(cheatVars[''hunger''], 0, 1)					& dynamic $cheatmenu[$cheatmenu[''this_menu'']]"><<iif(cheatVars[''hunger'']				, ''Enabled'', ''Disabled'')>></a>'
	'Never drink: <a href="exec:								cheatVars[''thirst'']				= iif(cheatVars[''thirst''], 0, 1)					& dynamic $cheatmenu[$cheatmenu[''this_menu'']]"><<iif(cheatVars[''thirst'']				, ''Enabled'', ''Disabled'')>></a>'
	'Never sleep: <a href="exec:								cheatVars[''sleep'']				= iif(cheatVars[''sleep''], 0, 1)					& dynamic $cheatmenu[$cheatmenu[''this_menu'']]"><<iif(cheatVars[''sleep'']					, ''Enabled'', ''Disabled'')>></a>'
	'Never unhappy: <a href="exec:								cheatVars[''mood'']					= iif(cheatVars[''mood''], 0, 1)					& dynamic $cheatmenu[$cheatmenu[''this_menu'']]"><<iif(cheatVars[''mood'']					, ''Enabled'', ''Disabled'')>></a>'
	'Never shave legs: <a href="exec:							cheatVars[''no_leghair'']			= iif(cheatVars[''no_leghair''], 0, 1)				& dynamic $cheatmenu[$cheatmenu[''this_menu'']]"><<iif(cheatVars[''no_leghair'']			, ''Enabled'', ''Disabled'')>></a>'
	'Never lose or gain weight: <a href="exec:					cheatVars[''fat'']					= iif(cheatVars[''fat''], 0, 1)						& dynamic $cheatmenu[$cheatmenu[''this_menu'']]"><<iif(cheatVars[''fat'']					, ''Enabled'', ''Disabled'')>></a>'
	'Bust and butt unaffected by weight: <a href="exec:			cheatVars[''body_staticAssets'']	= iif(cheatVars[''body_staticAssets''], 0, 1)		& dynamic $cheatmenu[$cheatmenu[''this_menu'']]"><<iif(cheatVars[''body_staticAssets'']		, ''Enabled'', ''Disabled'')>></a>'
	'Allow any clothing for school: <a href="exec:				cheatVars[''school_clothing'']		= iif(cheatVars[''school_clothing''], 0, 1)			& dynamic $cheatmenu[$cheatmenu[''this_menu'']]"><<iif(cheatVars[''school_clothing'']		, ''Enabled'', ''Disabled'')>></a>'
	'Never get addicted: <a href="exec:										dynamic $cheatmenu[''addict'']												& dynamic $cheatmenu[$cheatmenu[''this_menu'']]"><<iif(cheatVars[''drugs_immune'']			, ''Enabled'', ''Disabled'')>></a>'
	*nl
	'Enable sleeping with vibrator inserted: <a href="exec:					dynamic $cheatmenu[''Vibrator'']											& dynamic $cheatmenu[$cheatmenu[''this_menu'']]"><<iif(cheatVars[''sleep_vib'']				, ''Enabled'', ''Disabled'')>></a>'
	*nl
	'Bimbo trait and the effects of wearing bimbo clothes: <a href="exec:	dynamic $cheatmenu[''BimboCloth'']											& dynamic $cheatmenu[$cheatmenu[''this_menu'']]"><<iif(cheatVars[''bimbo'']					, ''Disabled'', ''Enabled'')>></a>'
	if cheatVars['bimbo'] = 0:
		'  Smart bimbo mode: <a href="exec:									dynamic $cheatmenu[''SmartBimbo'']											& dynamic $cheatmenu[$cheatmenu[''this_menu'']]"><<iif(cheatVars[''smart_bimbo'']			, ''Enabled'', ''Disabled'')>></a>'
		'  Succubus bimbo mode: <a href="exec:								dynamic $cheatmenu[''SuccuBimbo'']											& dynamic $cheatmenu[$cheatmenu[''this_menu'']]"><<iif(cheatVars[''suc_bimbo'']				, ''Enabled'', ''Disabled'')>></a>'
	end
	'Exhibitionist trait: <a href="exec:									dynamic $cheatmenu[''exhib_block'']											& dynamic $cheatmenu[$cheatmenu[''this_menu'']]"><<iif(cheatVars[''no_trait_exhib'']		, ''Disabled'', ''Enabled'')>></a>'
	'Addictive personality trait: <a href="exec:							dynamic $cheatmenu[''addictive_block'']										& dynamic $cheatmenu[$cheatmenu[''this_menu'']]"><<iif(cheatVars[''no_trait_addictive'']	, ''Disabled'', ''Enabled'')>></a>'
	'Cumeater trait: <a href="exec:											dynamic $cheatmenu[''cumtrait_block'']										& dynamic $cheatmenu[$cheatmenu[''this_menu'']]"><<iif(cheatVars[''no_trait_cumeater'']		, ''Disabled'', ''Enabled'')>></a>'
	*nl
	'Set arousal to always be at 50 or more: <a href="exec:		cheatVars[''always_horny'']			= iif(cheatVars[''always_horny''], 0, 1)			& dynamic $cheatmenu[$cheatmenu[''this_menu'']]"><<iif(cheatVars[''always_horny'']			, ''Enabled'', ''Disabled'')>></a>'
	'Periods (and pregnancies): <a href="exec:								dynamic $cheatmenu[''slutshot'']											& dynamic $cheatmenu[$cheatmenu[''this_menu'']]"><<iif(cheatVars[''no_periods'']			, ''Disabled'', ''Enabled'')>></a>'
	if cheatVars['no_periods'] = 0:
		'  Automatic cheat on Tampon: <a href="exec:			cheatVars[''auto_tampons'']			= iif(cheatVars[''auto_tampons''], 0, 1)			& dynamic $cheatmenu[$cheatmenu[''this_menu'']]"><<iif(cheatVars[''auto_tampons'']			, ''Disabled'', ''Enabled'')>></a>'
		'  Automatic period tracking: <a href="exec:			cheatVars[''track_period'']			= iif(cheatVars[''track_period''], 0, 1)			& dynamic $cheatmenu[$cheatmenu[''this_menu'']]"><<iif(cheatVars[''track_period'']			, ''Disabled'', ''Enabled'')>></a>'
		'  Impregnation: <a href="exec:							cheatVars[''no_pregnancy'']			= iif(cheatVars[''no_pregnancy''], 0, 1)			& dynamic $cheatmenu[$cheatmenu[''this_menu'']]"><<iif(cheatVars[''no_pregnancy'']			, ''Disabled'', ''Enabled'')>></a>'
		if cheatVars['no_pregnancy'] = 0:
			'    Pregnancy speed multiplier: <a href="exec:		cheatVars[''preg_speed'']			= iif(cheatVars[''preg_speed''] < 3, cheatVars[''preg_speed''] + 1, 0)	& dynamic $cheatmenu[$cheatmenu[''this_menu'']]"><b><<cheatVars[''preg_speed''] + 1>></b></a>'
		end
	end
	'Lactation: <a href="exec:									cheatVars[''no_lactation'']			= iif(cheatVars[''no_lactation''], 0, 1)			& dynamic $cheatmenu[$cheatmenu[''this_menu'']]"><<iif(cheatVars[''no_lactation'']			, ''Disabled'', ''Enabled'')>></a>'
	'Cum leaking: <a href="exec:								cheatVars[''no_cum_leak'']			= iif(cheatVars[''no_cum_leak''], 0, 1)				& dynamic $cheatmenu[$cheatmenu[''this_menu'']]"><<iif(cheatVars[''no_cum_leak'']			, ''Disabled'', ''Enabled'')>></a>'
	'STDs: <a href="exec:										cheatVars[''std'']					= iif(cheatVars[''std''], 0, 1)						& dynamic $cheatmenu[$cheatmenu[''this_menu'']]"><<iif(cheatVars[''std'']					, ''Disabled'', ''Enabled'')>></a>'

	*nl
	'No dream chance: <a href="exec: cheatVars[''no_dream_chance''] = input(''Enter no dream chance (%)'') & dynamic $cheatmenu[$cheatmenu[''this_menu'']]">' + iif(cheatVars['no_dream_chance'] > 0, '<<cheatVars[''no_dream_chance'']>>%</a>, <a href="exec:cheatVars[''no_dream_chance''] = 0 & dynamic $cheatmenu[$cheatmenu[''this_menu'']]">Enabled</a>', 'Disabled</a>')

	*nl
	'<font color="red"><b>WARNING!</b></font>: Disabling states may cause some events not to trigger. Use at your own risk!'
	$cheatmenu['table_end']
end

!!----------------------------------------------------------------------------------------------------------------------------
!! Character State Changes
!!----------------------------------------------------------------------------------------------------------------------------

$cheatmenu['money'] = "gs 'Cheatmenu_din', 'money'"
if $ARGS[0] = 'money':
	money = input("How much money do you want to have?")
	if money < 0:money = 0
	dynamic $cheatmenu['state']
end

$cheatmenu['bank_money'] = "gs 'Cheatmenu_din', 'bank_money'"
if $ARGS[0] = 'bank_money':
	karta = input("How much money do you want to have in the bank?")
	if karta < 0: karta = 0
	karta += bankDebtLimit
	dynamic $cheatmenu['state']
end

$cheatmenu['therapist_reset'] = "gs 'Cheatmenu_din', 'therapist_reset'"
if $ARGS[0] = 'therapist_reset':
	gs 'therapist'
	dynamic $RestTherapyVariables
	gs 'stat'
	dynamic $cheatmenu['state']
end

$cheatmenu['cycle'] = "gs 'Cheatmenu_din', 'cycle'"
if $ARGS[0] = 'cycle':
	*clr & cla
	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>'
	else
		dynamic $cheatmenu['state']
	end
end

$cheatmenu['std_cure'] = "gs 'Cheatmenu_din', 'std_cure'"
if $ARGS[0] = 'std_cure':
	venera = 0
	GerpesOnce = 0
	Gerpes = 0
	SifacOnce = 0
	Sifilis = 0
	TriperOnce = 0
	Triper = 0
	TriperOral = 0
	KandidozOnce = 0
	Kandidoz = 0
end

$cheatmenu['force_preg'] = "gs 'Cheatmenu_din', 'force_preg'"
if $ARGS[0] = '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
end

$cheatmenu['remove_preg'] = "gs 'Cheatmenu_din', 'remove_preg'"
if $ARGS[0] = 'remove_preg':
	gs 'medical_din', 'remove_preg'
	knowpregloss = 2

	if FertEgg > 0: FertEgg = 0
end

$cheatmenu['state'] = "gs 'Cheatmenu_din', 'state'"
if $ARGS[0] = 'state':
	*clr & cla
	gs 'stat'
	gs 'obj_din', 'cheattabs'

	'<center><h1>Cheat Menu - Character State Changes</h1></center>'
	'<center><font color="red"><b>WARNING!</b></font>: Using cheats can cause bugs and break your save. Cheats manipulating pregnancy or the menstrual cycle are'
	'especially dangerous unless you know what you''re doing. When reporting bugs, please mention any cheats you used.</center>'
	$cheatmenu['table_start']
	'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_mana = (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, Mana, 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>'
	if bankAccount = 1:
		'<a href="exec:dynamic $cheatmenu[''bank_money''] & gs ''stat''">Change money in the bank</a>'
		'<a href="exec: karta = bankDebtLimit & dynamic $cheatmenu[''state''] & gs ''stat''">Zero money in the bank</a>'
	else
		'<b>You need to open a bank account before getting access to change money in the bank</b>'
	end
	'<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 & drugVars[''heroin_need''] = 0 & drugVars[''cocaine_addict''] = 0 & drugVars[''heroin_high''] = 0 & drugVars[''heroin_used''] = 0 & drugVars[''cocaine_system''] = 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>'
	if cycle ! 5: '<a href="exec:dynamic $cheatmenu[''cycle''] & gs ''stat''">Set stage of menstrual cycle</a>'

	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>'
			'Cap Lactate Rate: ' + _
			iif(lactation['milkprod_type'] = 0 and lactation['caplactaterate'] > 0,'<a href="exec:lactation[''caplactaterate''] -= 2 & dynamic $cheatmenu[''state'']">-2h</a> ','') + _
			iif(lactation['milkprod_type'] = 1 and lactation['caplactaterate'] > 4,'<a href="exec:lactation[''caplactaterate''] -= 2 & dynamic $cheatmenu[''state'']">-2h</a> ','') + _
			iif(lactation['caplactaterate'] > 0,'<<lactation[''caplactaterate'']>>h ','OFF ') + _
			iif(lactation['caplactaterate'] < 72,'<a href="exec:lactation[''caplactaterate''] += 2 & dynamic $cheatmenu[''state'']">+2h</a>','')
			'<font color="grey">Cap lactate rate makes lactate rate stop growing if <<$pcs_firstname>> needs milking more often.</font>'
		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
	*nl
	'<a href="exec:dynamic $cheatmenu[''therapist_reset'']">Reset therapist states</a>'
	$cheatmenu['table_end']
end

$cheatmenu['set_preg_body'] = "gs 'Cheatmenu_din', 'set_preg_body', ARGS[0]"
if $ARGS[0] = 'set_preg_body':
	pregchem = ARGS[1]
	pregtime = ARGS[1] / 24
	gs 'body', 'reset_preg_mass'
	gs 'body', 'softreset'
	gs 'stat'
	dynamic $cheatmenu['bodyMod']
end

$cheatmenu['set_body_class'] = "gs 'Cheatmenu_din', 'set_body_class', ARGS[0]"
if $ARGS[0] = 'set_body_class':
	pcs_mass['body'] = func('body', 'CalcOptBodyMass', ARGS[1])
	gs 'body', 'softreset'
	gs 'stat'
	dynamic $cheatmenu['bodyMod']
end

$cheatmenu['bodyMod'] = "gs 'Cheatmenu_din', 'bodyMod'"
if $ARGS[0] = 'bodyMod':
	*clr & cla
	act 'Return to last menu': dynamic $cheatmenu['state']

	'<center><h1>Cheat Menu - Body Modification</h1></center>'
	$cheatmenu['table_start']
	'<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 <<$bodyVars[''desc'']>>.'
	''
	'You may select from the following sizes:'
	''
	if knowpreg = 1 or (preg = 1 and (thinkpreg = 1 or PregChem > 3600)):
		if (pregchem < 2688) = 0:
			'<a href="exec: dynamic $cheatmenu[''set_preg_body''], 100"><<func(''body_structure'', ''body_desc'', pcs_bmi, strenbuf, 100)>></a>'
			''
		end
		if (pregchem >= 2688 and pregchem < 3192) = 0:
			'<a href="exec: dynamic $cheatmenu[''set_preg_body''], 2688"><<func(''body_structure'', ''body_desc'', pcs_bmi, strenbuf, 2688)>></a>'
			''
		end
		if (pregchem >= 3192 and pregchem < 3696) = 0:
			'<a href="exec: dynamic $cheatmenu[''set_preg_body''], 3192"><<func(''body_structure'', ''body_desc'', pcs_bmi, strenbuf, 3192)>></a>'
			''
		end
		if (pregchem >= 3696 and pregchem < 4200) = 0:
			'<a href="exec: dynamic $cheatmenu[''set_preg_body''], 3696"><<func(''body_structure'', ''body_desc'', pcs_bmi, strenbuf, 3696)>></a>'
			''
		end
		if (pregchem >= 4200 and pregchem < 4704) = 0:
			'<a href="exec: dynamic $cheatmenu[''set_preg_body''], 4200"><<func(''body_structure'', ''body_desc'', pcs_bmi, strenbuf, 4200)>></a>'
			''
		end
		if (pregchem >= 4704 and pregchem < 5208) = 0:
			'<a href="exec: dynamic $cheatmenu[''set_preg_body''], 4704"><<func(''body_structure'', ''body_desc'', pcs_bmi, strenbuf, 4704)>></a>'
			''
		end
		if (pregchem >= 5208 and pregchem < 5712) = 0:
			'<a href="exec: dynamic $cheatmenu[''set_preg_body''], 5208"><<func(''body_structure'', ''body_desc'', pcs_bmi, strenbuf, 5208)>></a>'
			''
		end
		if (pregchem >= 5712 and pregchem < 6216) = 0:
			'<a href="exec: dynamic $cheatmenu[''set_preg_body''], 5712"><<func(''body_structure'', ''body_desc'', pcs_bmi, strenbuf, 5712)>></a>'
			''
		end
		if (pregchem >= 6216) = 0:
			'<a href="exec: dynamic $cheatmenu[''set_preg_body''], 6216"><<func(''body_structure'', ''body_desc'', pcs_bmi, strenbuf, 6216)>></a>'
			''
		end
	else
		bs_temp_bs_class = func('body_structure', 'get_class', pcs_bmi, strenbuf)
		'starving (No, you may not select ''starving'', it''s here to show where the scale starts)'
		''
		if (bs_temp_bs_class / 100) ! 1:
			'<a href="exec: dynamic $cheatmenu[''set_body_class''], 170"><<func(''body_structure'', ''body_desc'', 17, strenbuf)>></a>'
			''
		end
		if (bs_temp_bs_class / 100) ! 2:
			'<a href="exec: dynamic $cheatmenu[''set_body_class''], 200"><<func(''body_structure'', ''body_desc'', 20, strenbuf)>></a>'
			''
		end
		if (bs_temp_bs_class / 100) ! 3:
			'<a href="exec: dynamic $cheatmenu[''set_body_class''], 230"><<func(''body_structure'', ''body_desc'', 23, strenbuf)>></a>'
			''
		end
		if (bs_temp_bs_class / 100) ! 4:
			'<a href="exec: dynamic $cheatmenu[''set_body_class''], 270"><<func(''body_structure'', ''body_desc'', 27, strenbuf)>></a>'
			''
		end
		if (bs_temp_bs_class / 100) ! 5:
			'<a href="exec: dynamic $cheatmenu[''set_body_class''], 320"><<func(''body_structure'', ''body_desc'', 32, strenbuf)>></a>'
			''
		end
		if (bs_temp_bs_class / 100) ! 6:
			'<a href="exec: dynamic $cheatmenu[''set_body_class''], 370"><<func(''body_structure'', ''body_desc'', 37, strenbuf)>></a>'
			''
		end
		if (bs_temp_bs_class / 100) ! 7:
			'<a href="exec: dynamic $cheatmenu[''set_body_class''], 420"><<func(''body_structure'', ''body_desc'', 42, strenbuf)>></a>'
			''
		end
		killvar 'bs_temp_bs_class'
	end

	$cheatmenu['table_end']
end

!!----------------------------------------------------------------------------------------------------------------------------
!! Character Appearance
!!----------------------------------------------------------------------------------------------------------------------------

$cheatmenu['age'] = "gs 'Cheatmenu_din', 'age'"
if $ARGS[0] = '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']
end

$cheatmenu['visualage'] = "gs 'Cheatmenu_din', 'visualage'"
if $ARGS[0] = 'visualage':
	vidage = input("For how many years you want to look?")
	if vidage <= 14: vidage = 14
	dynamic $cheatmenu['looks']
end

$cheatmenu['avatar_hair_set'] = "gs 'Cheatmenu_din', 'avatar_hair_set'"
if $ARGS[0] = 'avatar_hair_set':
	$face_style['avatar_hair'] = input("Input your custom hair:")
	dynamic $cheatmenu['looks']
end

$cheatmenu['rename'] = "gs 'Cheatmenu_din', 'rename'"
if $ARGS[0] = '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'
end

$cheatmenu['setLooks'] = "gs 'Cheatmenu_din', 'setLooks', $ARGS[0], ARGS[1]"
if $ARGS[0] = 'setLooks':
	gs 'shortgs', 'setStat', $ARGS[1], ARGS[2]
	dynamic $cheatmenu['looks']
end

$cheatmenu['setLooksInput'] = "gs 'Cheatmenu_din', 'setLooksInput', $ARGS[0], $ARGS[1]"
if $ARGS[0] = 'setLooksInput':
	$temp_input = $input("Set your <<$ARGS[2]>> level:")
	if isnum($temp_input) ! 0:
		gs 'shortgs', 'setStat', $ARGS[1], val($temp_input)
	elseif $temp_input ! '':
		msg 'invalid input'
	end
	killvar '$temp_input'
	dynamic $cheatmenu['looks']
end

$cheatmenu['printLooksLinks'] = "gs 'Cheatmenu_din', 'printLooksLinks', $ARGS[0], $ARGS[1]"
if $ARGS[0] = 'printLooksLinks':
	*p '<a href="exec:dynamic $cheatmenu[''setLooks''], ''<<$ARGS[1]>>'', 100">Max</a>  '
	*p '<a href="exec:dynamic $cheatmenu[''setLooks''], ''<<$ARGS[1]>>'', <<$ARGS[1]>>_lvl + 1">+1</a> '
	*p '<a href="exec:dynamic $cheatmenu[''setLooks''], ''<<$ARGS[1]>>'', <<$ARGS[1]>>_lvl + 10">+10</a> '
	*p '<a href="exec:dynamic $cheatmenu[''setLooks''], ''<<$ARGS[1]>>'', <<$ARGS[1]>>_lvl - 1">-1</a> '
	*p '<a href="exec:dynamic $cheatmenu[''setLooks''], ''<<$ARGS[1]>>'', <<$ARGS[1]>>_lvl - 10">-10</a>  '
	*p '<a href="exec:dynamic $cheatmenu[''setLooks''], ''<<$ARGS[1]>>'', 0">Min</a>  '
	*pl '<a href="exec:dynamic $cheatmenu[''setLooksInput''], ''<<$ARGS[1]>>'', ''<<$ARGS[2]>>''">Set</a>'
end

$cheatmenu['looks'] = "gs 'Cheatmenu_din', 'looks'"
if $ARGS[0] = 'looks':
	if pcs_hgt < 100:
		pcs_hgt = 100
	elseif pcs_hgt > 200:
		pcs_hgt = 200
	end
	*clr & cla
	gs 'stat'
	gs 'obj_din', 'cheattabs'
	'<center><h1>Cheat Menu - Character Appearance</h1></center>'
	'<center><font color="red"><b>WARNING!</b></font>: Using cheats can cause bugs and break your save, use them with care. When reporting bugs, please mention any cheats you used.</center>'
	*nl
	$cheatmenu['table_start']
	'<<$pcs_firstname>> <<$pcs_lastname>> (<<$pcs_nickname>>). <a href="exec:dynamic $cheatmenu[''rename'']">Rename</a>'


	if face_style['type'] = 1: '<a href="exec: dynamic $cheatmenu[''change_avatar_path'']">Change current profile path:</a> <<$face_style[''avatar_path'']>>'
	if face_style['type'] ! 0: '<a href="exec: face_style[''type''] = 0 & dynamic $cheatmenu[''looks'']">Use the dynamic profile system</a>'
	if face_style['type'] ! 1: '<a href="exec: face_style[''type''] = 1 & $face_style[''avatar_path''] += iif($face_style[''avatar_path''] = '''', ''images/avatar.jpg'', '''') & dynamic $cheatmenu[''looks'']">Use a fixed profile image</a>'
	if face_style['type'] ! 2: '<a href="exec: face_style[''type''] = 2 & dynamic $cheatmenu[''looks'']">Use the rendered profile system</a>'

	if $face_style['avatar_hair'] ! '':
		'<a href="exec: $face_style[''avatar_hair''] = '''' & dynamic $cheatmenu[''looks'']">Custom Hair: ON</a>'
		'<<$face_style[''avatar_hair'']>>'
	else
		'<a href="exec:dynamic $cheatmenu[''avatar_hair_set'']">Custom Hair: OFF</a>'
	end
	*nl
	'<a href="exec:gs ''Cheatmenu_din'', ''parameters''">Show design parameters of body</a>'
	'<a href="exec:gs ''Cheatmenu_din'', ''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
	'You look <<vidage>> years old'
	'<a href="exec:dynamic $cheatmenu[''visualage'']">Change apparent age</a>'
	*nl
	'You are <<pcs_hgt>> centimetres tall'
	'<a href="exec:pcs_hgt = input(''Enter <<$pcs_nickname>>s height in centimetres<br><br>(default 165, min 100, max 200, values below 150 and above 180 will cause problems in the calculation of BMI/weight the more you deviate from the default 170)'') & dynamic $cheatmenu[''looks'']">Change <<$pcs_nickname>>''s height</a>'
	*nl
	*p 'Musculature (<<stren_plus_lvl>>): ' & dynamic $cheatmenu['printLooksLinks'], 'stren_plus', 'Musculature'
	*pl '<font color="grey">Allows strength to go past 100'
	*pl'<font color="red">Negatively</font> affects appearance</font>'
	*nl
	*p 'Toned Butt (<<butt_tr_lvl>>): ' & dynamic $cheatmenu['printLooksLinks'], 'butt_tr', 'Toned Butt'
	*nl
	'You have <<$titsize>> breasts'
	if tits < 11:'<a href="exec: bodyVars[''bust_silicone''] += 5 & dynamic $cheatmenu[''looks'']">Enlarge breasts(silicone)</a>'
	if bodyVars['bust_silicone'] => 1:'<a href="exec: bodyVars[''bust_silicone''] = min(0, bodyVars[''bust_silicone'']-5) & dynamic $cheatmenu[''looks'']">Shrink breasts(silicone)</a>'
	if tits < 11 and pcs_mass['bust_gen'] < 50:'<a href="exec: gs ''Cheatmenu_din'', ''change_pcs_mass_bust'', 5">Enlarge breasts (natural)</a>'
	if pcs_mass['bust'] => 6 and pcs_mass['bust_gen'] => 6: '<a href="exec: titreduc = 1 & gs ''Cheatmenu_din'', ''change_pcs_mass_bust'', -5">Shrink breasts (natural)</a>'
	*nl
	if pcs_buttsize <= 14:
		$cmd_temp_butt_desc = 'flat'
	elseif pcs_buttsize <= 25:
		$cmd_temp_butt_desc = 'average'
	elseif pcs_buttsize <= 40:
		$cmd_temp_butt_desc = 'pert'
	elseif pcs_buttsize <= 59:
		$cmd_temp_butt_desc = 'heart-shaped'
	else
		$cmd_temp_butt_desc = 'bubble'
	end
	'You have a <<$cmd_temp_butt_desc>> butt'
	if pcs_buttsize < 50: '<a href="exec: bodyVars[''butt_silicone''] += 10 & dynamic $cheatmenu[''looks'']">Enlarge butt (silicone)</a>'
	if bodyVars['butt_silicone'] => 1: '<a href="exec: bodyVars[''butt_silicone''] = max(0, bodyVars[''butt_silicone'']-10) & dynamic $cheatmenu[''looks'']">Shrink butt (silicone)</a>'
	if pcs_mass['butt'] < 50 and pcs_mass['butt_gen'] < 50: '<a href="exec: gs ''Cheatmenu_din'', ''change_pcs_mass_butt'', 10">Enlarge butt (natural)</a>'
	if pcs_mass['butt'] => 6 and pcs_mass['butt_gen'] => 6: '<a href="exec: assreduc = 1 & gs ''Cheatmenu_din'', ''change_pcs_mass_butt'', -10">Shrink butt (natural)</a>'
	killvar '$cmd_temp_butt_desc'
	!! if pcs_buttsize < 20:'<a href="exec: bodyVars[''butt_cheat''] += 2 & dynamic $cheatmenu[''looks'']">Enlarge butt</a>'
	!! if pcs_buttsize > 1:'<a href="exec: bodyVars[''butt_cheat''] -= 2 & dynamic $cheatmenu[''looks'']">Shrink butt</a>'
	!! if bodyVars['butt_cheat'] ! 0:'<a href="exec: bodyVars[''butt_cheat''] = 0 & dynamic $cheatmenu[''looks'']">Reset butt shape to default</a>'
	*nl
	'<<$pc_descFull[''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
	'<<$pc_descFull[''skin'']>>'
	if pcs_skin < 900: '<a href="exec:pcs_skin += 200 & gs ''AppearanceSystem'', ''UpdateBaseAppearance'' & dynamic $cheatmenu[''looks'']">Improve skin</a>'
	if pcs_skin > 0: '<a href="exec:pcs_skin -= 200 & gs ''AppearanceSystem'', ''UpdateBaseAppearance'' & 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
	'<<$pc_descFull[''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'', ''hardreset''">Hard Reset body shape</a>'
	end

	*nl
	'<<$pcs_vag>>'
	if pcs_vag > 0:'<a href="exec:pcs_vag = 0 & dynamic $cheatmenu[''looks'']">Reinstate virginity</a>'
	if stat['think_virgin'] < 1:'<a href="exec:stat[''vaginal''] = 0 & stat[''vaginal_fist''] = 0 & stat[''vaginal_dildo''] = 0 & stat[''vaginal_strap''] = 0 & dynamic $cheatmenu[''looks'']">Make Sveta believe she is a virgin again (resets the related sex stats)</a>'
	if pcs_vag <= 25:'<a href="exec:gs ''Cheatmenu_din'', ''vagenlarge''">Enlarge comfortable vaginal capacity</a>'
	if pcs_vag >= 5:'<a href="exec:gs ''Cheatmenu_din'', ''vagreduce''">Reduce comfortable vaginal capacity</a>'
	'Your comfortable vaginal capacity will reduce by <<vshrink>> every <<vshrinkdays>> days.'
	if vshrink < 10:'<a href="exec:vshrink += 1 & dynamic $cheatmenu[''looks'']">Increase amount of reduction</a>'
	if vshrink > 0:'<a href="exec:vshrink -= 1 & dynamic $cheatmenu[''looks'']">Reduce amount of reduction</a>'
	if vshrinkdays < 10:'<a href="exec:vshrinkdays += 1 & dynamic $cheatmenu[''looks'']">Increase number of days it takes</a>'
	if vshrinkdays > 1:'<a href="exec:vshrinkdays -= 1 & dynamic $cheatmenu[''looks'']">Reduce number of days it takes</a>'
	'When gaped your vagina will reduce each stage (up to 4 for maximum gape) every <<vgape[4]>> minutes.'
	if vgape[4] < 60:'<a href="exec:vgape[4] += 5 & dynamic $cheatmenu[''looks'']">Increase time by 5 minutes</a>'
	if vgape[4] > 5:'<a href="exec:vgape[4] -= 5 & dynamic $cheatmenu[''looks'']">Reduce time by 5 minutes</a>'
	*nl
	'<<$pcs_ass>>'
	if pcs_ass <= 25:'<a href="exec:gs ''Cheatmenu_din'', ''assenlarge''">Enlarge comfortable anal capacity</a>'
	if pcs_ass >= 5:'<a href="exec:gs ''Cheatmenu_din'', ''assreduce''">Reduce comfortable anal capacity</a>'
	'Your comfortable anal capacity will reduce by <<ashrink>> every <<ashrinkdays>> days.'
	if ashrink < 10:'<a href="exec:ashrink += 1 & dynamic $cheatmenu[''looks'']">Increase amount of reduction</a>'
	if ashrink > 0:'<a href="exec:ashrink -= 1 & dynamic $cheatmenu[''looks'']">Reduce amount of reduction</a>'
	if ashrinkdays < 10:'<a href="exec:ashrinkdays += 1 & dynamic $cheatmenu[''looks'']">Increase number of days it takes</a>'
	if ashrinkdays > 1:'<a href="exec:ashrinkdays -= 1 & dynamic $cheatmenu[''looks'']">Reduce number of days it takes</a>'
	'When gaped your anus will reduce each stage (up to 4 for maximum gape) every <<agape[4]>> minutes.'
	if agape[4] < 60:'<a href="exec:agape[4] += 5 & dynamic $cheatmenu[''looks'']">Increase time by 5 minutes</a>'
	if agape[4] > 5:'<a href="exec:agape[4] -= 5 & dynamic $cheatmenu[''looks'']">Reduce time by 5 minutes</a>'
	*nl
	if dounspell = 0:
		if fat ! 0: '<a href="exec:fat = 0 & dynamic $cheatmenu[''looks'']">Zero fat</a>'
		'Body Fat = (<<pcs_mass[''body'']>>): <a href="exec: gs ''Cheatmenu_din'', ''change_pcs_mass_body'', -10">-10</a> <a href="exec: gs ''Cheatmenu_din'', ''change_pcs_mass_body'', -5">-5</a> <a href="exec: gs ''Cheatmenu_din'', ''change_pcs_mass_body'', -1">-1</a> <a href="exec: gs ''Cheatmenu_din'', ''change_pcs_mass_body'', 1">+1</a> <a href="exec: gs ''Cheatmenu_din'', ''change_pcs_mass_body'', 5">+5</a> <a href="exec: gs ''Cheatmenu_din'', ''change_pcs_mass_body'', 10">+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. <<func(''body'', ''CalcOptBodyMass'')>> gives a bmi of 22.5.'
	end
	*nl
	'<a href="exec:dynamic $cheatmenu[''tatoo'']">Tattoo removal</a>'
	*nl
	'<<$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
	'<<$pc_descFull[''eyes'']>>'
	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
	$cheatmenu['table_end']
end

$cheatmenu['change_avatar_path'] = "gs 'Cheatmenu_din', 'change_avatar_path'"
if $ARGS[0] = 'change_avatar_path':
	$face_style['avatar_path'] = input('Where is the avatar image located? (Leave blank for "images/avatar.jpg")')
	if $face_style['avatar_path'] = '': $face_style['avatar_path'] = 'images/avatar.jpg'
	dynamic $cheatmenu['looks']
end

!!----------------------------------------------------------------------------------------------------------------------------
!! Appearance Stats
!!----------------------------------------------------------------------------------------------------------------------------

if $ARGS[0] = 'change_pcs_mass_body':
	gs 'body', 'Set_mass_distribution_using_body', pcs_mass['body'] + ARGS[1]
	dynamic $cheatmenu['looks']
end

if $ARGS[0] = 'change_pcs_mass_bust':
	pcs_mass['bust'] += ARGS[1]
	pcs_mass['bust_gen'] += ARGS[1]
	if pcs_mass['bust'] < 2: pcs_mass['bust'] = 2
	if pcs_mass['bust_gen'] < 2: pcs_mass['bust_gen'] = 2
	pcs_mass['bust_message'] = pcs_mass['bust']
	dynamic $cheatmenu['looks']
end

if $ARGS[0] = 'change_pcs_mass_butt':
	pcs_mass['butt'] += ARGS[1]
	pcs_mass['butt_gen'] += ARGS[1]
	if pcs_mass['butt'] < 2: pcs_mass['butt'] = 2
	if pcs_mass['butt_gen'] < 2: pcs_mass['butt_gen'] = 2
	pcs_mass['butt_message'] = pcs_mass['butt']
	dynamic $cheatmenu['looks']
end

if $ARGS[0] = 'vagenlarge':
	if pcs_vag = 0:
		pcs_vag = 5
	elseif pcs_vag <= 5:
		pcs_vag = 10
	elseif pcs_vag <= 10:
		pcs_vag = 15
	elseif pcs_vag <= 15:
		pcs_vag = 25
	elseif pcs_vag <= 25:
		pcs_vag = 35
	end
	dynamic $cheatmenu['looks']
end

if $ARGS[0] = 'vagreduce':
	if pcs_vag > 25:
		pcs_vag = 25
	elseif pcs_vag > 15:
		pcs_vag = 15
	elseif pcs_vag > 10:
		pcs_vag = 10
	elseif pcs_vag > 5:
		pcs_vag = 1
	end
	dynamic $cheatmenu['looks']
end

if $ARGS[0] = 'assenlarge':
	if pcs_ass = 0:
		pcs_ass = 5
	elseif pcs_ass <= 5:
		pcs_ass = 10
	elseif pcs_ass <= 10:
		pcs_ass = 15
	elseif pcs_ass <= 15:
		pcs_ass = 25
	elseif pcs_ass <= 25:
		pcs_ass = 35
	end
	dynamic $cheatmenu['looks']
end

if $ARGS[0] = 'assreduce':
	if pcs_ass > 25:
		pcs_ass = 25
	elseif pcs_ass > 15:
		pcs_ass = 15
	elseif pcs_ass > 10:
		pcs_ass = 10
	elseif pcs_ass > 5:
		pcs_ass = 1
	end
	dynamic $cheatmenu['looks']
end

if $ARGS[0] = 'vneshpara':
	*clr & cla
	'<center><h1>Cheat Menu - ?</h1></center>'
	act 'Return to appearance menu':dynamic $cheatmenu['looks']
	*nl
	'Appearance Parameters'
	*nl
	'Base Appearance'
	'pcs_skin = <<pcs_skin>> and skin_bonus = <<skinBonus>> (between 0 and 100)'
	'bodyShapeBonus = <<bodyShapeBonus>> (between -158 and 70)'
	'visableAgePenalty = <<visibleAgePenalty>> (-2.5 for every year below 20)'
	'pcs_teeth = <<pcs_teeth>> and teethPenalty = <<teethPenalty>>  10 * (pcs_teeth + pcs_missing_teeth)'
	'attributeBonus = <<attributeBonus>> (pcs_agil + pcs_vital) / 5'
	'these are adjusted by BMI (<<pcs_bmi[0]>>.<<pcs_bmi[1]>>) if it is outside 19.0 - 24.9'
	'pcs_apprncbase = <<pcs_apprncbase>>'
	*nl
	*nl

	'Bonus'
	'groomingBonus = <<func(''AppearanceSystem'',''CalcGroomingBonus'')>> (pcs_breath and makeup)'
	'groomingPenalty = <<func(''AppearanceSystem'',''CalcGroomingPenalty'')>> '
	'(lipbalm, hair brushed, hair length, deo, sweat, glasses, hair color fade, leg hair..)'
	'accessoriesBonus = <<func(''AppearanceSystem'',''CalcAccessoriesBonus'')>> '
	'CalcClothingBonus = <<func(''AppearanceSystem'',''CalcClothingBonus'')>> '
	'((PXCloThinness + PXCloTopCut + PXCloBottomShortness)/2)/ 76 * PCloQuality'
	*nl
	*nl

	'coatQualityBonus = <<bonusZ>>'
	'shoesQualityBonus = <<PShoQualityZ>>'
	'PXCloThinness = <<PXCloThinness>>'
	'PXCloTopCut = <<PXCloTopCut>>'
	'PXCloBottomShortness = <<PXCloBottomShortness>>'
	'PCloQuality = <<PCloQuality>>'
	'lipBalmPenalty = <<lipBalmPenalty>>'
	'hairPenalty = <<hairPenalty>>'
	'deodorantPenalty = <<deodorantPenalty>>'
	'sweatPenalty = <<sweatPenalty>>'
	'glassesPenalty = <<glassesPenalty>>'
	'hairDyePenalty = <<hairDyePenalty>>'
	'legPenalty = <<legPenalty>>'

	'pcs_eyesize = <<pcs_eyesize>>'
	'pcs_lip = <<pcs_lip>>'
end

if $ARGS[0] = '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: strenbuf = <<strenbuf>>, pcs_mass[''body''] =	<<pcs_mass[''body'']>>, fat = <<fat>>'
	'Variable List:'
	'agilbuf = <<agilbuf>>'
	'strenbuf = <<strenbuf>>'
	'vitalbuf = <<vitalbuf>>'
	'BMI (pcs_bmi) = <<pcs_bmi[0]>>.<<pcs_bmi[1]>>'
	'weight (pcs_weight) = <<pcs_weight[0]>>.<<pcs_weight[1]>> kg'
	'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>>'
	'pcs_mass[''bust''] = <<pcs_mass[''bust'']>>'
	'pcs_mass[''bust_gen''] = <<pcs_mass[''bust_gen'']>>'
	'bodyVars[''bust_magic''] = <<bodyVars[''bust_magic'']>>'
	'bodyVars[''bust_silicone''] = <<bodyVars[''bust_silicone'']>>'
	'bodyVars[''bust_other''] = <<bodyVars[''bust_other'']>>'
	'pcs_mass[''butt''] = <<pcs_mass[''butt'']>>'
	'pcs_mass[''butt_gen''] = <<pcs_mass[''butt_gen'']>>'
	'bodyVars[''butt_silicone''] = <<bodyVars[''butt_silicone'']>>'
	'bodyVars[''butt_other''] = <<bodyVars[''butt_other'']>>'
	'bodyVars[''vhips''] = <<bodyVars[''vhips'']>>'
	'bodyVars[''wratio''] = <<bodyVars[''wratio'']>>'
	'bodyVars[''bratio''] = <<bodyVars[''bratio'']>>'
	'bodyVars[''hratio''] = <<bodyVars[''hratio'']>>'
	'bodyVars[''vofat''] = <<bodyVars[''vofat'']>>'
	'magf2bdo = <<magf2bdo>>'
	'mgf2bnocnt = <<mgf2bnocnt>>'
	'magtarcup = <<magtarcup>>'
	'normbuffpick = <<normbuffpick>>'
	'nrmbfpckct = <<nrmbfpckct>>'
	'bodyVars[''weight_warning''] = <<bodyVars[''weight_warning'']>>'
end

!!----------------------------------------------------------------------------------------------------------------------------
!! Tattoos
!!----------------------------------------------------------------------------------------------------------------------------

$cheatmenu['tatoo'] = "gs 'Cheatmenu_din', 'tatoo'"
if $ARGS[0] = 'tatoo':
	*clr & cla
	gs 'stat'
	'<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 pubic 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>'
	if cosmetic_tattoo = 0:'You do not have the makup tattoo</a>'
	if cosmetic_tattoo >= 1:'<a href="exec:cosmetic_tattoo = 0 & dynamic $cheatmenu[''tatoo'']">Remove your makup tattoo</a>'
end

!!----------------------------------------------------------------------------------------------------------------------------
!! Attributes and Skills
!!----------------------------------------------------------------------------------------------------------------------------

$cheatmenu['setStat'] = "gs 'Cheatmenu_din', 'setStat', $ARGS[0], ARGS[1]"
if $ARGS[0] = 'setStat':
	gs 'shortgs', 'setStat', $ARGS[1], ARGS[2]
	dynamic $cheatmenu['stats']
end

$cheatmenu['setStatInput'] = "gs 'Cheatmenu_din', 'setStatInput', $ARGS[0], $ARGS[1]"
if $ARGS[0] = 'setStatInput':
	$temp_input = $input("Set your <<$ARGS[2]>> level:")
	if isnum($temp_input) ! 0:
		gs 'shortgs', 'setStat', $ARGS[1], val($temp_input)
	elseif $temp_input ! '':
		msg 'invalid input'
	end
	killvar '$temp_input'
	dynamic $cheatmenu['stats']
end

$cheatmenu['setStatInputInverted'] = "gs 'Cheatmenu_din', 'setStatInputInverted', $ARGS[0], $ARGS[1]"
if $ARGS[0] = 'setStatInputInverted':
	$temp_input = $input("Set your <<$ARGS[2]>> level:")
	if isnum($temp_input) ! 0:
		gs 'shortgs', 'setStat', $ARGS[1], (100 - val($temp_input))
	elseif $temp_input ! '':
		msg 'invalid input'
	end
	killvar '$temp_input'
	dynamic $cheatmenu['stats']
end

$cheatmenu['setAttrs'] = "gs 'Cheatmenu_din', 'setAttrs', ARGS[0]"
if $ARGS[0] = 'setAttrs':
	loop_index = 0
	!! skip stren_plus and butt_tr
	loop_index_max = arrsize('$att_name') - 2
	!! skip magik in nonmagic starts
	if $start_type[1] = 'nomagic': loop_index_max -= 1
	:set_attrs_loop
		gs 'shortgs', 'setStat', $att_name[loop_index], ARGS[1]
		loop_index += 1
		if loop_index < loop_index_max: jump 'set_attrs_loop'
	killvar 'loop_index' & killvar 'loop_index_max'
	dynamic $cheatmenu['stats']
end

$cheatmenu['setSkills'] = "gs 'Cheatmenu_din', 'setSkills', ARGS[0]"
if $ARGS[0] = 'setSkills':
	loop_index = 0
	loop_index_max = arrsize('$skl_name')
	:set_skills_loop
		!! Inhibition (number 33) isn''t a skill so we''ll skip it
		if loop_index = 33: loop_index += 1 & jump 'set_skills_loop'
		gs 'shortgs', 'setStat', $skl_name[loop_index], ARGS[1]
		loop_index += 1
		if loop_index < loop_index_max: jump 'set_skills_loop'
	killvar 'loop_index' & killvar 'loop_index_max'
	dynamic $cheatmenu['stats']
end

$cheatmenu['printStatLinks'] = "gs 'Cheatmenu_din', 'printStatLinks', $ARGS[0], $ARGS[1]"
if $ARGS[0] = 'printStatLinks':
	*p '<a href="exec:dynamic $cheatmenu[''setStat''], ''<<$ARGS[1]>>'', 100">Max</a>  '
	*p '<a href="exec:dynamic $cheatmenu[''setStat''], ''<<$ARGS[1]>>'', <<$ARGS[1]>>_lvl + 1">+1</a> '
	*p '<a href="exec:dynamic $cheatmenu[''setStat''], ''<<$ARGS[1]>>'', <<$ARGS[1]>>_lvl + 10">+10</a> '
	*p '<a href="exec:dynamic $cheatmenu[''setStat''], ''<<$ARGS[1]>>'', <<$ARGS[1]>>_lvl - 1">-1</a> '
	*p '<a href="exec:dynamic $cheatmenu[''setStat''], ''<<$ARGS[1]>>'', <<$ARGS[1]>>_lvl - 10">-10</a>  '
	*p '<a href="exec:dynamic $cheatmenu[''setStat''], ''<<$ARGS[1]>>'', 0">Min</a>  '
	*pl '<a href="exec:dynamic $cheatmenu[''setStatInput''], ''<<$ARGS[1]>>'', ''<<$ARGS[2]>>''">Set</a>'
end

$cheatmenu['printStatLinksInverted'] = "gs 'Cheatmenu_din', 'printStatLinksInverted', $ARGS[0], $ARGS[1]"
if $ARGS[0] = 'printStatLinksInverted':
	*p '<a href="exec:dynamic $cheatmenu[''setStat''], ''<<$ARGS[1]>>'', 0">Max</a>  '
	*p '<a href="exec:dynamic $cheatmenu[''setStat''], ''<<$ARGS[1]>>'', <<$ARGS[1]>>_lvl - 1">+1</a> '
	*p '<a href="exec:dynamic $cheatmenu[''setStat''], ''<<$ARGS[1]>>'', <<$ARGS[1]>>_lvl - 10">+10</a> '
	*p '<a href="exec:dynamic $cheatmenu[''setStat''], ''<<$ARGS[1]>>'', <<$ARGS[1]>>_lvl + 1">-1</a> '
	*p '<a href="exec:dynamic $cheatmenu[''setStat''], ''<<$ARGS[1]>>'', <<$ARGS[1]>>_lvl + 10">-10</a>  '
	*p '<a href="exec:dynamic $cheatmenu[''setStat''], ''<<$ARGS[1]>>'', 100">Min</a>  '
	*pl '<a href="exec:dynamic $cheatmenu[''setStatInputInverted''], ''<<$ARGS[1]>>'', ''<<$ARGS[2]>>''">Set</a>'
end

$cheatmenu['stats'] = "gs 'Cheatmenu_din', 'stats'"
if $ARGS[0] = 'stats':
	*clr & cla
	gs 'stat'
	gs 'obj_din', 'cheattabs'

	'<center><h1>Cheat Menu - Attributes and Skills</h1></center>'
	'<center><font color="red"><b>WARNING!</b></font>: Using cheats can cause bugs and break your save, use them with care. When reporting bugs, please mention any cheats you used.</center>'
	*nl
	$cheatmenu['table_start']
	*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 $start_type[1] ! 'nomagic': *p 'Magic (<<magik_lvl>>): ' & dynamic $cheatmenu['printStatLinks'], 'magik', 'Magic'
	*nl
	*pl'<b>Sexual:</b>'
	*pl 'Inhibition level (<<100 - inhib_lvl>>): ' & dynamic $cheatmenu['printStatLinksInverted'], 'inhib', 'Inhibition'
	if willpowermax > 150: willpowermax = 150
	if willpowermax < 50: willpowermax = 50
	*pl 'Willpower Maximum (<<willpowermax>>): <a href="exec:willpowermax = 150 & dynamic $cheatmenu[''stats'']" >Max</a>  <a href="exec:willpowermax += 1 & dynamic $cheatmenu[''stats'']" >+1</a> <a href="exec:willpowermax += 10 & dynamic $cheatmenu[''stats'']" >+10</a> <a href="exec:willpowermax -= 1 & dynamic $cheatmenu[''stats'']" >-1</a> <a href="exec:willpowermax -= 10 & dynamic $cheatmenu[''stats'']" >-10</a>  <a href="exec:willpowermax = 50 & dynamic $cheatmenu[''stats'']" >Min</a>'
	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>'
	*nl
	if $start_type['loc'] = 'sg' and SchoolAtestat = 0:
		*pl'<b>School:</b>'
		*pl 'Math grade: <<class[''school_math_grade'']>> '      + iif(class['school_math_grade'] < 100, ' <a href="exec:gs ''grades'', ''grade_award'',''school'', ''math'', 10 & dynamic $cheatmenu[''stats'']">+10</a>', '') + iif(class['school_math_grade'] > 0, ' <a href="exec:gs ''grades'', ''grade_award'',''school'', ''math'', -10 & dynamic $cheatmenu[''stats'']">-10</a>', '')
		*pl 'Russian grade: <<class[''school_rus_grade'']>> '    + iif(class['school_rus_grade']  < 100, ' <a href="exec:gs ''grades'', ''grade_award'',''school'', ''rus'',  10 & dynamic $cheatmenu[''stats'']">+10</a>', '') + iif(class['school_rus_grade']  > 0, ' <a href="exec:gs ''grades'', ''grade_award'',''school'', ''rus'',  -10 & dynamic $cheatmenu[''stats'']">-10</a>', '')
		*pl 'Literature grade: <<class[''school_lit_grade'']>> ' + iif(class['school_lit_grade']  < 100, ' <a href="exec:gs ''grades'', ''grade_award'',''school'', ''lit'',  10 & dynamic $cheatmenu[''stats'']">+10</a>', '') + iif(class['school_lit_grade']  > 0, ' <a href="exec:gs ''grades'', ''grade_award'',''school'', ''lit'',  -10 & dynamic $cheatmenu[''stats'']">-10</a>', '')
		*pl 'Art grade: <<class[''school_art_grade'']>> '        + iif(class['school_art_grade']  < 100, ' <a href="exec:gs ''grades'', ''grade_award'',''school'', ''art'',  10 & dynamic $cheatmenu[''stats'']">+10</a>', '') + iif(class['school_art_grade']  > 0, ' <a href="exec:gs ''grades'', ''grade_award'',''school'', ''art'',  -10 & dynamic $cheatmenu[''stats'']">-10</a>', '')
		*pl 'Biology grade: <<class[''school_bio_grade'']>> '    + iif(class['school_bio_grade']  < 100, ' <a href="exec:gs ''grades'', ''grade_award'',''school'', ''bio'',  10 & dynamic $cheatmenu[''stats'']">+10</a>', '') + iif(class['school_bio_grade']  > 0, ' <a href="exec:gs ''grades'', ''grade_award'',''school'', ''bio'',  -10 & dynamic $cheatmenu[''stats'']">-10</a>', '')
		*pl 'English grade: <<class[''school_eng_grade'']>> '    + iif(class['school_eng_grade']  < 100, ' <a href="exec:gs ''grades'', ''grade_award'',''school'', ''eng'',  10 & dynamic $cheatmenu[''stats'']">+10</a>', '') + iif(class['school_eng_grade']  > 0, ' <a href="exec:gs ''grades'', ''grade_award'',''school'', ''eng'',  -10 & dynamic $cheatmenu[''stats'']">-10</a>', '')
		*pl 'Geography grade: <<class[''school_geo_grade'']>> '  + iif(class['school_geo_grade']  < 100, ' <a href="exec:gs ''grades'', ''grade_award'',''school'', ''geo'',  10 & dynamic $cheatmenu[''stats'']">+10</a>', '') + iif(class['school_geo_grade']  > 0, ' <a href="exec:gs ''grades'', ''grade_award'',''school'', ''geo'',  -10 & dynamic $cheatmenu[''stats'']">-10</a>', '')
		*pl 'Science grade: <<class[''school_sci_grade'']>> '    + iif(class['school_sci_grade']  < 100, ' <a href="exec:gs ''grades'', ''grade_award'',''school'', ''sci'',  10 & dynamic $cheatmenu[''stats'']">+10</a>', '') + iif(class['school_sci_grade']  > 0, ' <a href="exec:gs ''grades'', ''grade_award'',''school'', ''sci'',  -10 & dynamic $cheatmenu[''stats'']">-10</a>', '')
		*pl 'History grade: <<class[''school_his_grade'']>> '    + iif(class['school_his_grade']  < 100, ' <a href="exec:gs ''grades'', ''grade_award'',''school'', ''his'',  10 & dynamic $cheatmenu[''stats'']">+10</a>', '') + iif(class['school_his_grade']  > 0, ' <a href="exec:gs ''grades'', ''grade_award'',''school'', ''his'',  -10 & dynamic $cheatmenu[''stats'']">-10</a>', '')
		*pl 'Shop grade: <<class[''school_shop_grade'']>> '      + iif(class['school_shop_grade'] < 100, ' <a href="exec:gs ''grades'', ''grade_award'',''school'', ''shop'', 10 & dynamic $cheatmenu[''stats'']">+10</a>', '') + iif(class['school_shop_grade'] > 0, ' <a href="exec:gs ''grades'', ''grade_award'',''school'', ''shop'', -10 & dynamic $cheatmenu[''stats'']">-10</a>', '')
		*pl 'Computer grade: <<class[''school_comp_grade'']>> '  + iif(class['school_comp_grade'] < 100, ' <a href="exec:gs ''grades'', ''grade_award'',''school'', ''comp'', 10 & dynamic $cheatmenu[''stats'']">+10</a>', '') + iif(class['school_comp_grade'] > 0, ' <a href="exec:gs ''grades'', ''grade_award'',''school'', ''comp'', -10 & dynamic $cheatmenu[''stats'']">-10</a>', '')
		*pl 'Music grade: <<class[''school_mus_grade'']>> '      + iif(class['school_mus_grade']  < 100, ' <a href="exec:gs ''grades'', ''grade_award'',''school'', ''mus'',  10 & dynamic $cheatmenu[''stats'']">+10</a>', '') + iif(class['school_mus_grade']  > 0, ' <a href="exec:gs ''grades'', ''grade_award'',''school'', ''mus'',  -10 & dynamic $cheatmenu[''stats'']">-10</a>', '')
		*pl 'P.E. grade: <<class[''school_pe_grade'']>> '        + iif(class['school_pe_grade']   < 100, ' <a href="exec:gs ''grades'', ''grade_award'',''school'', ''pe'',   10 & dynamic $cheatmenu[''stats'']">+10</a>', '') + iif(class['school_pe_grade']   > 0, ' <a href="exec:gs ''grades'', ''grade_award'',''school'', ''pe'',   -10 & dynamic $cheatmenu[''stats'']">-10</a>', '')

		if schoolprogul >= 0: *pl '<a href="exec: schoolprogul = 0 & dynamic $cheatmenu[''stats'']">Zero Absenteeism (School): <<schoolprogul>></a>'
		*nl
	end

	*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>Mental:</b>'
	if $start_type[1] ! 'nomagic': *p 'Spell Casting (<<splcstng_lvl>>) - Total (<<pcs_splcstng>>): ' & dynamic $cheatmenu['printStatLinks'], 'splcstng', 'Spellcasting'
	*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'
	*nl
	*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>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 'Football (<<ftbll_lvl>>) - Total (<<pcs_ftbll>>): ' & dynamic $cheatmenu['printStatLinks'], 'ftbll', 'Football'
	*p 'Basketball (<<bkbll_lvl>>) - Total (<<pcs_bkball>>): ' & dynamic $cheatmenu['printStatLinks'], 'bkbll', 'Basketball'
	*p 'Wrestling (<<wrstlng_lvl>>) - Total (<<pcs_wrstlng>>): ' & dynamic $cheatmenu['printStatLinks'], 'wrstlng', 'Wrestling'
	*p 'Ice Skating (<<icesktng_lvl>>) - Total (<<pcs_icesktng>>): ' & dynamic $cheatmenu['printStatLinks'], 'icesktng', 'Ice Skating'
	*p 'Gaming (<<gaming_lvl>>) - Total (<<pcs_gaming>>): ' & dynamic $cheatmenu['printStatLinks'], 'gaming', 'Gaming'
	*p 'Chess (<<chess_lvl>>) - Total (<<pcs_chess>>): ' & dynamic $cheatmenu['printStatLinks'], 'chess', 'Chess'
	*p 'Pool (<<pool_lvl>>) - Total (<<pcs_pool>>): ' & dynamic $cheatmenu['printStatLinks'], 'pool', 'Pool'
	*nl
	*pl'<b>Beauty:</b>'
	*p 'Makeup (<<makupskl_lvl>>) - Total (<<pcs_makupskl>>): ' & dynamic $cheatmenu['printStatLinks'], 'makupskl', 'Makeup'
	*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'
	*p 'Cheerleading (<<cheer_lvl>>) - Total (<<pcs_cheer>>): ' & dynamic $cheatmenu['printStatLinks'], 'cheer', 'Cheerleading'
	*p 'Heels (<<pcs_heels>>) - Total (<<pcs_heels>>): ' & dynamic $cheatmenu['printStatLinks'], 'heels', 'Heels'
	*nl
	*pl'<b>Artistic:</b>'
	*p 'Singing (<<vokal_lvl>>) - Total (<<pcs_vokal>>): ' & dynamic $cheatmenu['printStatLinks'], 'vokal', 'Singing'
	*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'
	*p 'Performing (<<perform_lvl>>) - Total (<<pcs_perform>>): ' & dynamic $cheatmenu['printStatLinks'], 'perform', 'Performance'
	*p 'Music Production (<<musicprod_lvl>>) - Total (<<pcs_musicprod>>): ' & dynamic $cheatmenu['printStatLinks'], 'musicprod', 'Music Production'
	*nl
	*pl'<b>Work:</b>'
	*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 'Tailoring (<<sewng_lvl>>) - Total (<<pcs_sewng>>): ' & dynamic $cheatmenu['printStatLinks'], 'sewng', 'Tailoring'
	*p 'Serving (<<servng_lvl>>) - Total (<<pcs_servng>>): ' & dynamic $cheatmenu['printStatLinks'], 'servng', 'Serving'
	*p 'Medicine (<<medcn_lvl>>) - Total (<<pcs_medcn>>): ' & dynamic $cheatmenu['printStatLinks'], 'medcn', 'Medicine'
	*p 'Cleaning (<<cleaning_lvl>>) - Total (<<pcs_cleaning>>): ' & dynamic $cheatmenu['printStatLinks'], 'cleaning', 'Cleaning'
	*p 'Modeling (<<mdlng_lvl>>) - Total (<<pcs_mdlng>>): ' & dynamic $cheatmenu['printStatLinks'], 'mdlng', 'Modeling'
	$cheatmenu['table_end']
end

!!----------------------------------------------------------------------------------------------------------------------------
!! Relationships and Renown
!!----------------------------------------------------------------------------------------------------------------------------

$cheatmenu['reputation'] = "gs 'Cheatmenu_din', 'reputation'"
if $ARGS[0] = 'reputation':
	*clr & cla
	gs 'stat'
	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>'
	$cheatmenu['table_start']
	*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

	'Your dog: '+iif($status['dog'] = 'active', '<b>Active</b>', '<a href="exec: $status[''dog''] = ''active'' & dynamic $cheatmenu[''reputation'']">Active</a>')+'|'+iif($status['dog'] = 'blocked', '<b>Blocked</b>', '<a href="exec: $status[''dog''] = ''blocked'' & dynamic $cheatmenu[''reputation'']">Blocked</a>')
	if $status['dog'] ! 'blocked':
		'Set the relationship and love of your dog to always be at maximum: '+iif(cheat['dog_rel'] = 0, '<a href="exec: cheat[''dog_rel''] = 1 & dynamic $cheatmenu[''reputation'']">Off</a>', '<a href="exec: cheat[''dog_rel''] = 0 & dynamic $cheatmenu[''reputation'']">Currently On</a>')
		'You need to feed your dog <<rex[''count_feed_base'']>> per day: '+iif(rex['count_feed_base'] > 1, '<a href="exec: rex[''count_feed_base''] -= 1 & dynamic $cheatmenu[''reputation'']">-1</a>', '-1')+'|<a href="exec: rex[''count_feed_base''] += 1 & dynamic $cheatmenu[''reputation'']">+1</a>'
		'You need to walk your dog <<rex[''count_walk_base'']>> per day: '+iif(rex['count_walk_base'] > 1, '<a href="exec: rex[''count_walk_base''] -= 1 & dynamic $cheatmenu[''reputation'']">-1</a>', '-1')+'|<a href="exec: rex[''count_walk_base''] += 1 & dynamic $cheatmenu[''reputation'']">+1</a>'
		'You need to bath your dog <<rex[''count_bath_base'']>> per week: '+iif(rex['count_bath_base'] > 1, '<a href="exec: rex[''count_bath_base''] -= 1 & dynamic $cheatmenu[''reputation'']">-1</a>', '-1')+'|<a href="exec: rex[''count_bath_base''] += 1 & dynamic $cheatmenu[''reputation'']">+1</a>'
	end
	*nl

	if mid($start_type,1,2) = 'sg':
		'<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[''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[''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 soniaQW['slut'] = 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>'
			'<<$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[''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[''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>'
			'<<$npc_firstname[''A165'']>> <<$npc_lastname[''A165'']>>: <<npc_rel[''A165'']>>  <a href="exec:npc_rel[''A165''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A165''] -= 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[''A240'']>> <<$npc_lastname[''A240'']>>: <<npc_rel[''A240'']>>  <a href="exec:npc_rel[''A240''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A240''] -= 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>'
			'<<$npc_firstname[''A189'']>> <<$npc_lastname[''A189'']>>: <<npc_rel[''A189'']>>  <a href="exec:npc_rel[''A189''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A189''] -= 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 soniaQW['slut'] > 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 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
	$cheatmenu['table_second']
	'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['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[''A43'']>>	<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 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 Andrei: <<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
	*nl
	'<font color="blue"><b>Nicholas'' Family</b></font>'
	'<a href="exec:gt ''nichUtil'', ''debug''">Storyline Debug Menu</a>'

	temp_cmd_i = 0
	:loverrelationshiploop
	if temp_cmd_i < arrsize('$lover'):
		if pcs_lovers[temp_cmd_i] = 1:
			$temp_npcid = $lover[temp_cmd_i]
			*nl
			'You are dating <<$npc_usedname[$temp_npcid]>>.'
			if loverrelation[temp_cmd_i] < 0: loverrelation[temp_cmd_i] = 0
			if loverdays[temp_cmd_i] < 0: loverdays[temp_cmd_i] = 0
			if npc_gentle[$temp_npcid] = 1:
				'Change lover''s personality: <a href="exec: npc_gentle[<<$temp_npcid>>] = 0 & dynamic $cheatmenu[''reputation'']">Gentle</a>'
			elseif npc_rough[$temp_npcid] = 0:
				'Change lover''s personality: <a href="exec: npc_rough[<<$temp_npcid>>] = 1 & dynamic $cheatmenu[''reputation'']">Normal</a>'
			else
				'Change lover''s personality: <a href="exec: npc_rough[<<$temp_npcid>>] = 0 & npc_gentle[<<$temp_npcid>>] = 1 & dynamic $cheatmenu[''reputation'']">Rough</a>'
			end
			if npc_pervert[$temp_npcid] = 0:
				'Change lover''s perversion: <a href="exec: npc_pervert[<<$temp_npcid>>] = 1 & dynamic $cheatmenu[''reputation'']">Not perverted</a>'
			else
				'Change lover''s perversion: <a href="exec: npc_pervert[<<$temp_npcid>>] = 0 & dynamic $cheatmenu[''reputation'']">Perverted</a>'
			end
			'Relationship: <<loverrelation[temp_cmd_i]>> <a href="exec: loverrelation[<<temp_cmd_i>>] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec: loverrelation[<<temp_cmd_i>>] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
			'You''ve been dating for <<loverdays[temp_cmd_i]>> days. <a href="exec:loverdays[<<temp_cmd_i>>] += 5 & dynamic $cheatmenu[''reputation'']">+5</a> <a href="exec: loverdays[<<temp_cmd_i>>] -= 5 & dynamic $cheatmenu[''reputation'']">-5</a>'
		end
		temp_cmd_i += 1
		jump 'loverrelationshiploop'
	end
	*nl
	if fame['pav_slut'] >= 50:
		gs 'fame'
		'In Pavlovsk you are known as a <font color="red"><<$gnikname>></font> <a href="exec:fame[''pav_sex''] = 0 & fame[''pav_prostitute''] = 0 & gs ''fame'', ''calculateSlut'' & 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 mid($start_type,1,2) = 'sg':

		*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:
			'Your mother knows, that you are sexually active and considers you are a whore. <a href="exec:motherKnowWhore = 0 & motherKnowSpravka = 0 & dynamic $cheatmenu[''reputation'']">Clear both reputations</a>    <a href="exec:motherKnowWhore = 0 & dynamic $cheatmenu[''reputation'']">Clear only whore reputation</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 fame['pav_slut'] >= 250:
			'Your brother thinks you are a total whore. <a href="exec:evgenQW = 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 func('homes_properties', 'can_live_here', 'parents_home') = 0:
			'<a href="exec: gs ''homes_properties'', ''give_access'', ''parents_home'' & 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
	$cheatmenu['table_end']
end

!!----------------------------------------------------------------------------------------------------------------------------
!! Diplomas, Licences, and Certificates
!!----------------------------------------------------------------------------------------------------------------------------

$cheatmenu['documents'] = "gs 'Cheatmenu_din', 'documents'"
if $ARGS[0] = 'documents':
	*clr & cla
	gs 'stat'
	gs 'obj_din', 'cheattabs'
	'<center><h1>Cheat Menu - Diplomas, Licences, and Certificates</h1></center>'
	$cheatmenu['table_start']
	if SchoolAtestat = 0: '<a href="exec:SchoolAtestat = 1 & dynamic $cheatmenu[''documents'']">Get School Certificate</a>'
	if mid($start_type,1,2) = 'sg' and SchoolAtestat = 0: '<font color="red"><b>WARNING!</b></font>: This will end your school year!' & *nl
	if SchoolAtestat = 1:'Already have a School Certificate'
	if university['diploma'] > 0:
		'You already have a Diploma'
	else
		'<a href="exec:gs ''uniutil'', ''diploma'', ''set_obtained'' & dynamic $cheatmenu[''documents'']">Get Diploma</a>'
	end
	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 masseuse['certification'] < 10:'<a href="exec:masseuse[''certification''] = 10 & dynamic $cheatmenu[''documents'']">Get Masseuse Certificate</a>'
	if masseuse['certification'] >= 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'
	$cheatmenu['table_end']
end

!!----------------------------------------------------------------------------------------------------------------------------
!! Manipulate Time and Weather
!!----------------------------------------------------------------------------------------------------------------------------

$cheatmenu['input_time'] = "gs 'Cheatmenu_din', 'input_time'"
if $ARGS[0] = 'input_time':
	inputtmp = input("Enter time with 4-digit (input 0102 for 1:02)")
	if inputtmp/100 >= 0 and inputtmp/100 <= 23:temp_hour = inputtmp/100
	inputtmp = inputtmp mod 100
	if inputtmp >= 0 and inputtmp <= 59:temp_minut = inputtmp
	killvar 'inputtmp'
	dynamic $cheatmenu['time']
end

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

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

$cheatmenu['month2'] = "gs 'Cheatmenu_din', 'month2', $ARGS[0]"
if $ARGS[0] = 'month2':
	gs 'time', 'to_daystart', 1, ARGS[1], temp_year
	temp_daystart = dateVars['daystart']
	dynamic $cheatmenu['time']
end

$cheatmenu['time'] = "gs 'Cheatmenu_din', 'time'"
if $ARGS[0] = 'time':
	gs 'time', 'to_date', temp_daystart
	temp_day = dateVars['day']
	temp_week = dateVars['week']
	temp_month = dateVars['month']
	$temp_month = $dateVars['month_text']
	temp_year = dateVars['year']
	$temp_day_suffix = $dateVars['suffix']
	!! Set transients as gs to emp_functions unreliable for checking day
	gs 'time', 'update_date'
	gs 'outdoors', 'temp_set'
	gs 'stat'

	if currtimecheck = 1:
		killvar 'currtimecheck'
		if currday ! daystart:
			if currday < daystart:
				temp = (week + daystart - currday) mod 7
			else
				temp = week - ((currday - daystart) mod 7)
			end
			currday = daystart
		end
		if currhour < (daystart - 1) * 24 + hour:
			femcycloop = (daystart - 1) * 24 + hour - currhour
			:femcycloop
				gs 'femcyc'
				femcycloop -= 1
			if femcycloop > 0: jump 'femcycloop'
		end
	end
	*clr & cla
	gs 'obj_din', 'cheattabs'
	'<center><h1>Cheat Menu - Manipulate Time and Weather</h1></center>'
	'<center><font color="red"><b>WARNING!</b></font>: Using cheats to manipulate time can <b>easily</b> break quests and cause bugs. Do not use them unless'
	'you know what you''re doing. When reporting bugs, please mention any cheats you used.</center>'
	$cheatmenu['table_start']
	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

	'Current time: <b><<$week[week]>></b>, <b><<day>><<$day_suffix>></b>, of <b><<$month>></b>, <b><<year>></b>, <<$tempcurtime>>'
	'Target time: <b><<$week[temp_week]>></b>, <b><<temp_day>><<$temp_day_suffix>></b>, of <b><<$temp_month>></b>, <b><<temp_year>></b>, <<$temptime>>'
	'Daychange: <<temp_daystart - daystart>>'
	*nl
	'Year:	<a href="exec:temp_daystart += 365 & dynamic $cheatmenu[''time'']">+1 Year</a>	<a href="exec:temp_daystart -= 365 & dynamic $cheatmenu[''time'']">-1 Year</a>'
	'Select	<a href="exec:dynamic $cheatmenu[''month'']">Month</a>'
	'Select	<a href="exec:dynamic $cheatmenu[''week'']">Weekday</a>'
	$daychange = '	<a href="exec:temp_daystart += 7 & dynamic $cheatmenu[''time'']">+7 Day</a>'
	$daychange += '	<a href="exec:temp_daystart += 1 & dynamic $cheatmenu[''time'']">+1 Day</a>'
	$daychange += '	<a href="exec:temp_daystart -= 1 & dynamic $cheatmenu[''time'']">-1 Day</a>'
	$daychange += '	<a href="exec:temp_daystart -= 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) & 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
	'Switch to the <a href="exec:TempUnit = '+iif(TempUnit = 0,'1 & gs ''outdoors'',''weather'' & dynamic $cheatmenu[''time'']">Fahrenheit','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:daystart = temp_daystart & hour = temp_hour & minut = temp_minut & currtimecheck = 1 & dynamic $cheatmenu[''time'']">Accept target date & time</a>'
	'<a href="exec:temp_daystart = daystart & temp_hour = hour & temp_minut = minut & dynamic $cheatmenu[''time'']">Reset target date & time</a>'
	$cheatmenu['table_end']
end

!!----------------------------------------------------------------------------------------------------------------------------
!! Magic
!!----------------------------------------------------------------------------------------------------------------------------

$cheatmenu['magicTable'] = "gs 'Cheatmenu_din', 'magicTable', $ARGS[0], $ARGS[1]"
if $ARGS[0] = 'magicTable':
	!Build a cheat table for spells with a given Array of spell names.
	!	ARGS[1] = Friendly name for table
	!	ARGS[2] = the name of the arraay to use

	$SpellTabName = $ARGS[1]
	$ThisArrName = $ARGS[2]
	maxArrSizeC = dyneval("result=arrsize('<<$ThisArrName>>')")

	! make the header for the table
	$SpellListStr = "<center>
		<table width='90%' cellspacing='0' cellpadding='5' valign='top' border='1'>
			<tr><th colspan='4'><b><<$SpellTabName>></b></th></tr>
			<tr>
				<th></th>
				<th>Spell</th>
				<th>Mana</th>
				<th>Description</th>
			</tr>"
	i = 0
	:CheatDinSpell1
	$ThisSpellName = dyneval("$result=<<$ThisArrName>>[<<i>>]")
	if i < maxArrSizeC:
		if spellKnown[$ThisSpellName] = 1:
			$spellFlipper = "<a href=""EXEC: spellKnown['<<$ThisSpellName>>'] = 0 & dynamic $cheatmenu['magic']"">[Unlearn]</a>"
		else
			$spellFlipper = "<a href=""EXEC: spellKnown['<<$ThisSpellName>>'] = 1 & dynamic $cheatmenu['magic']"">[Learn]</a>"
		end
		$SpellListStr = $SpellListStr + " <tr><td><<$spellFlipper>></td><td><<$spellName[$ThisSpellName]>></td><td><<spellMana[$ThisSpellName]>></td><td><<$spellDesc[$ThisSpellName]>></td></tr>"
		i += 1
		jump 'CheatDinSpell1'
	end

	$SpellListStr = $SpellListStr + "
		</table>
	</center>"

	*pl func('cleanHTML',$SpellListStr)

	killvar 'i'
	killvar '$ThisSpellName'
	killvar '$ThisArrName'
	killvar 'maxArrSizeC'
	killvar '$SpellTabName'
	killvar '$spellFlipper'
	killvar '$SpellListStr'
end

$cheatmenu['sucresetdo'] = "gs 'Cheatmenu_din', 'sucresetdo'"
if $ARGS[0] = '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']
end

$cheatmenu['succubreset'] = "gs 'Cheatmenu_din', 'succubreset'"
if $ARGS[0] = '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>'
end

$cheatmenu['magic'] = "gs 'Cheatmenu_din', 'magic'"
if $ARGS[0] = 'magic':
	*clr & cla
	gs 'stat'
	gs 'obj_din', 'cheattabs'
	'<center><h1>Cheat Menu - Magic</h1></center>'
	$cheatmenu['table_start']
	'<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>'
		'<center><font color="red"><b>WARNING!</b></font>: Removing succubus status will not restart your menstrual cycle, it will remain permanently disabled!</center>'
		*nl
	end

	!Make sure spell list is initialized
	if spellMana['fog'] = 0:gs 'spellList'

	dynamic $cheatmenu['magicTable'], 'Combat Spells', '$combatSpells'
	dynamic $cheatmenu['magicTable'], 'Non-Combat Spells', '$nonComSpells'

	! Add in Teleport Location toggles.
	! make the header for the table
	$SpellListStr = "<center>
		<table width='90%' cellspacing='0' cellpadding='5' valign='top' border='1'>
			<tr><th colspan='2'><b>Known Tree Circle Locations</b></th></tr>
			<tr><td><a href=""EXEC: spellKnown['teleport']=<<iif(spellKnown['teleport']=1,'0','1')>> & dynamic $cheatmenu['magic']""><<iif(spellKnown['teleport']=1,'[Unlearn]','[Learn]')>></a></td><td>Teleport Spell</td></tr>"
	i = 0
	:CheatDinTP1
	$ThisLocation = $tpLocations[i]
	if i < arrsize('$tpLocations'):
		if tpKnown[$ThisLocation] = 1:
			$spellFlipper = "<a href=""EXEC: tpKnown['<<$ThisLocation>>'] = 0 & dynamic $cheatmenu['magic']"">[Unlearn]</a>"
		else
			$spellFlipper = "<a href=""EXEC: tpKnown['<<$ThisLocation>>'] = 1 & dynamic $cheatmenu['magic']"">[Learn]</a>"
		end
		$SpellListStr = $SpellListStr + " <tr><td><<$spellFlipper>></td><td><<$treeCircName[$ThisLocation]>></td></tr>"
		i += 1
		jump 'CheatDinTP1'
	end

	$SpellListStr = $SpellListStr + "
		</table>
	</center>"

	*pl func('cleanHTML',$SpellListStr)

	$cheatmenu['table_end']
	killvar 'i'
	killvar '$ThisLocation'
	killvar '$spellFlipper'
	killvar '$SpellListStr'

end

!!----------------------------------------------------------------------------------------------------------------------------
!! Display Setting
!!----------------------------------------------------------------------------------------------------------------------------

$cheatmenu['display'] = "gs 'Cheatmenu_din', 'display'"
if $ARGS[0] = 'display':
	*clr & cla
	gs 'obj_din', 'settingtabs'
	'<center><h1>Display Setting</h1></center>'
	$cheatmenu['table_start']
	if usePopUps = 1:
		'Allow Popup Pictures: Currently ON - <a href="exec:usePopUps = 0 & dynamic $cheatmenu[''display'']">Turn OFF</a>'
	else
		'Allow Popup Pictures: Currently OFF - <a href="exec:usePopUps = 1 & dynamic $cheatmenu[''display'']">Turn ON</a>'
	end
	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_imgw=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_imgw>>'
	else
		'Force Image Width: Currently OFF - <a href="exec:set_imgh = 0 &set_imgw=input(''Enter the width of the images'') & dynamic $cheatmenu[''display'']">Turn ON</a>'
	end
	*nl
	*p 'Girl Life Theme Selection: '

	*p iif($theme['name'] = 'Dynamic', 'Dynamic&nbsp;|&nbsp;', '<a href="exec:gs ''themes'', ''set_dynamic'' & gs ''$menu_obnovit'' & dynamic $cheatmenu[''display'']">Dynamic</a>&nbsp;|&nbsp;')

	*p iif($theme['name'] = 'White', 'White&nbsp;|&nbsp;', '<a href="exec:gs ''themes'', ''set_white'' & gs ''$menu_obnovit'' & dynamic $cheatmenu[''display'']">White</a>&nbsp;|&nbsp;')

	*p iif($theme['name'] = 'Black', 'Pitch Black&nbsp;|&nbsp;', '<a href="exec:gs ''themes'', ''set_black'' & gs ''$menu_obnovit'' & dynamic $cheatmenu[''display'']">Pitch Black</a>&nbsp;|&nbsp;')

	*p iif($theme['name'] = 'Modern Grey', 'Modern Grey&nbsp;|&nbsp;', '<a href="exec:gs ''themes'', ''set_gray'' & gs ''$menu_obnovit'' & dynamic $cheatmenu[''display'']">Modern Grey</a>&nbsp;|&nbsp;')

	*p iif($theme['name'] = 'Custom', 'Custom&nbsp;', '<a href="exec:gs ''themes'', ''set_custom'' & gs ''$menu_obnovit'' & dynamic $cheatmenu[''display'']">Custom</a>&nbsp;')

	*pl '<a href="exec:dynamic $cheatmenu[''theme_customize'']"><img src="images/system/ui/preferences<<iif(theme[''is_dark''] = 0, ''_b'', ''_w'')>>.png" height="<<fsize*15/10>>"></a>'

	'<font color="grey">Dynamic theme (default) will change colour based on the game hour.</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:cla & *clr & 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
	*nl
	if loadg_show_debug = 0:
		'Show Debug window on save load: Currently OFF - <a href="exec:loadg_show_debug = 1 & debug_warning_closed = 1 & showobjs 1 & dynamic $cheatmenu[''display'']">Turn ON</a>'
	else
		'Show Debug window on save load: Currently ON - <a href="exec:loadg_show_debug = 0 & debug_warning_closed = 1 & showobjs 0 & dynamic $cheatmenu[''display'']">Turn OFF</a>'
	end
	$cheatmenu['table_end']
end


! BROKEN
$cheatmenu['theme_customize_input'] = "
	if $ARGS[1] = '' and ARGS[1] ! 0:
		gs 'Cheatmenu_din', 'theme_customize_input', $ARGS[0], ARGS[1]
	else
		gs 'Cheatmenu_din', 'theme_customize_input', $ARGS[0], $ARGS[1], ARGS[2]
	end
	"
if $ARGS[0] = 'theme_customize_input':
	if $ARGS[1] = 'fname':
		$temp_input = $trim($input('Enter Font name:'))
		if $temp_input ! '': $custom_theme['fname'] = $temp_input
	elseif $ARGS[1] = 'fsize':
		$temp_input = $trim($input('Enter Font size:'))
		if $temp_input ! '':
			if isnum($temp_input):
				custom_theme['fsize'] = iif(val($temp_input) <= 9, 9, val($temp_input))
			else
				msg 'invalid input'
			end
		end
	elseif $ARGS[1] = 'increment':
		$temp_input = $trim($input('Enter increment:'))
		if $temp_input ! '':
			if isnum($temp_input):
				custom_theme['increment'] = iif(val($temp_input) <= 1, 1, val($temp_input))
			else
				msg 'invalid input'
			end
		end
	elseif $ARGS[1] = 'rgb':
		result = ARGS[3]
		$temp_input = $ucase($trim($input('Enter <<$ARGS[2]>> color component in 0 - 255 or 00 - FF format')))
		if $temp_input ! '':
			if isnum($temp_input) ! 0:
				if val($temp_input) < 0 or val($temp_input) > 255:
					msg 'invalid input'
				else
					temp_result = val($temp_input)
				end
			else
				if len($temp_input) > 2 or instr('0123456789ABCDEF', $mid($temp_input, 1, 1)) = 0 or instr('0123456789ABCDEF', $mid($temp_input, 2, 1)) = 0:
					msg 'invalid input'
				else
					temp_result = func('shortgs', 'hex_str_to_int', $temp_input)
				end
			end
		end
		if arrsize('temp_result') = 1:
			if $ARGS[2] = 'red':
				result = ((ARGS[3] and (-256)) or temp_result)
			elseif $ARGS[2] = 'green':
				result = ((ARGS[3] and (-65281)) or (temp_result * 256))
			elseif $ARGS[2] = 'blue':
				result = ((ARGS[3] and (-16711681)) or (temp_result * 65536))
			end
		end
		killvar 'temp_result'
	elseif $ARGS[1] = 'hex':
		result = ARGS[2]
		$temp_input = $ucase($trim($input('Enter color in ABC or AABBCC format')))
		if $temp_input ! '':
			$temp_input = $replace($temp_input, '#')
			temp_length = len($temp_input)
			if temp_length = 3 or temp_length = 6:
				temp_index = 1
				:is_hex_loop
					if instr('0123456789ABCDEF', $mid($temp_input, temp_index, 1)) = 0:
						msg 'invalid input' & jump 'invalid_input_exit'
					end
				if temp_index < temp_length: temp_index += 1 & jump 'is_hex_loop'
				killvar 'temp_index'

				if temp_length = 3:
					$temp_red = $mid($temp_input, 1, 1) & $temp_red = $temp_red + $temp_red
					$temp_green = $mid($temp_input, 2, 1) & $temp_green = $temp_green + $temp_green
					$temp_blue = $mid($temp_input, 3, 1) & $temp_blue = $temp_blue + $temp_blue
				else
					$temp_red = $mid($temp_input, 1, 2)
					$temp_green = $mid($temp_input, 3, 2)
					$temp_blue = $mid($temp_input, 5, 2)
				end

				result = rgb(func('shortgs', 'hex_str_to_int', $temp_red), func('shortgs', 'hex_str_to_int', $temp_green), func('shortgs', 'hex_str_to_int', $temp_blue))

				killvar '$temp_red' & killvar '$temp_green' & killvar '$temp_blue'
			else
				msg 'invalid input'
			end
			:invalid_input_exit
			killvar 'temp_length'
		end
	end
	killvar '$temp_input'
end

$cheatmenu['extract_color_component'] = "gs 'Cheatmenu_din', 'extract_color_component', $ARGS[0], ARGS[1]"
if $ARGS[0] = 'extract_color_component':
	if $ARGS[1] = 'red':
		result = (ARGS[2] and 255)
	elseif $ARGS[1] = 'green':
		result = ((ARGS[2] and 65280) / 256)
	elseif $ARGS[2] = 'blue':
		result = ((ARGS[2] and 16711680) / 65536)
	end
end

$cheatmenu['theme_customize_increment'] = "gs 'Cheatmenu_din', 'theme_customize_increment', $ARGS[0], $ARGS[1], ARGS[2], ARGS[3]"
if $ARGS[0] = 'theme_customize_increment':
	if $ARGS[1] = 'rgb':
		result = dyneval($cheatmenu['extract_color_component'], $ARGS[2], ARGS[3]) + ARGS[4]
		result = iif(result > 255, result - 256, iif(result < 0, 256 + result, result))
		if $ARGS[2] = 'red':
			result = ((ARGS[3] and (-256)) or result)
		elseif $ARGS[2] = 'green':
			result = ((ARGS[3] and (-65281)) or (result * 256))
		elseif $ARGS[2] = 'blue':
			result = ((ARGS[3] and (-16711681)) or (result * 65536))
		else
			result = ARGS[2]
		end
	end
end

$cheatmenu['theme_customize_print_color_line'] = "gs 'Cheatmenu_din', 'theme_customize_print_color_line', $ARGS[0], $ARGS[1]"
if $ARGS[0] = 'theme_customize_print_color_line':
	$result = '<a href="exec: <<$ARGS[2]>> = dyneval($cheatmenu[''theme_customize_increment''], ''rgb'', ''<<$ARGS[1]>>'', <<$ARGS[2]>>, -custom_theme[''increment'']) & dynamic $cheatmenu[''theme_customize'']"><img src="images/system/ui/less<<$icon_selector>>.png" height="<<icon_height>>"></img></a>'
	$result += '&nbsp;<<dyneval($cheatmenu[''extract_color_component''], ''<<$ARGS[1]>>'', dyneval(''result = <<$ARGS[2]>>''))>>&nbsp;'
	$result += '<a href="exec: <<$ARGS[2]>> = dyneval($cheatmenu[''theme_customize_increment''], ''rgb'', ''<<$ARGS[1]>>'', <<$ARGS[2]>>, custom_theme[''increment'']) & dynamic $cheatmenu[''theme_customize'']"><img src="images/system/ui/more<<$icon_selector>>.png" height="<<icon_height>>"></img></a>'
	$result += '&nbsp;'
	$result += '<a href="exec: <<$ARGS[2]>> = dyneval($cheatmenu[''theme_customize_input''], ''rgb'', ''<<$ARGS[1]>>'', <<$ARGS[2]>>) & dynamic $cheatmenu[''theme_customize'']"><img src="images/system/ui/pencil<<$icon_selector>>.png" height="<<icon_height>>"></img></a>'
end

$cheatmenu['theme_presets_copy'] = "gs 'Cheatmenu_din', 'theme_presets_copy'"
if $ARGS[0] = 'theme_presets_copy':
	$custom_theme['fname'] = $theme['fname']
	custom_theme['fsize'] = theme['fsize']

	custom_theme['bcolor'] = theme['bcolor']
	custom_theme['fcolor'] = theme['fcolor']
	custom_theme['lcolor'] = theme['lcolor']

	custom_theme['table_bg'] = theme['table_bg']
	custom_theme['table_bg_alt'] = theme['table_bg_alt']

	custom_theme['is_dark'] = theme['is_dark']

	gs 'themes', 'set_custom'
	dynamic $cheatmenu['theme_customize']
end

$cheatmenu['theme_export'] = "gs 'Cheatmenu_din', 'theme_export'"
if $ARGS[0] = 'theme_export':
	*clr & cla
	act 'Return': dynamic $cheatmenu['theme_customize']
	"$custom_theme['fname'] = '<<$custom_theme['fname']>>'"
	"custom_theme['fsize'] = <<custom_theme['fsize']>>"
	""
	"custom_theme['bcolor'] = <<custom_theme['bcolor']>>"
	"custom_theme['fcolor'] = <<custom_theme['fcolor']>>"
	"custom_theme['lcolor'] = <<custom_theme['lcolor']>>"
	""
	"custom_theme['table_bg'] = <<custom_theme['table_bg']>>"
	"custom_theme['table_bg_alt'] = <<custom_theme['table_bg_alt']>>"
	""
	"custom_theme['is_dark'] = <<custom_theme['is_dark']>>"
end

$cheatmenu['theme_presets'] = "gs 'Cheatmenu_din', 'theme_presets'"
if $ARGS[0] = 'theme_presets':
	cla
	act 'Return': dynamic $cheatmenu['theme_customize']
	act 'White': gs 'themes', 'set_white' & dynamic $cheatmenu['theme_presets_copy']
	act 'Black': gs 'themes', 'set_black' & dynamic $cheatmenu['theme_presets_copy']
	act 'Modern Grey': gs 'themes', 'set_gray' & dynamic $cheatmenu['theme_presets_copy']
end

$cheatmenu['theme_customize'] = "gs 'Cheatmenu_din', 'theme_customize'"
if $ARGS[0] = 'theme_customize':
	*clr
	gs 'themes', 'check_custom_vars'
	if $theme['name'] = 'Custom': gs 'themes', 'set_custom' & gs '$menu_obnovit'

	menu_page = -1
	gs 'obj_din', 'settingtabs'

	cla
	act 'Return': menu_page = 1 & dynamic $cheatmenu['display']
	act 'Presets': dynamic $cheatmenu['theme_presets']
	act 'Export': dynamic $cheatmenu['theme_export']
	act 'Import': killvar 'menu_page' & gt 'initg', 'set_game_set'

	'<center><h1>Customize Theme</h1></center>'
	*p '<center><table width="90%" cellspacing="0" cellpadding="20" valign="top"><tr><td bgcolor="black" width="50%" cellspacing="0" cellpadding="20" valign="top"><font face="Tahoma" size="4" color="white">'

	$icon_selector = '_w'
	icon_height = 13
	!!  --- FONT ---
	*p 'Font Family: <<$custom_theme[''fname'']>>&nbsp;'
	*pl '<a href="exec: dynamic $cheatmenu[''theme_customize_input''], ''fname'' & dynamic $cheatmenu[''theme_customize'']"><img src="images/system/ui/pencil<<$icon_selector>>.png" height="<<icon_height>>"></img></a>'

	*p 'Font Size:&nbsp;'
	*p '<a href="exec: custom_theme[''fsize''] = iif(custom_theme[''fsize''] <= 9, 9, custom_theme[''fsize''] - 1) & dynamic $cheatmenu[''theme_customize'']"><img src="images/system/ui/less<<$icon_selector>>.png" height="<<icon_height>>"></img></a>'
	*p '&nbsp;<<custom_theme[''fsize'']>>&nbsp;'
	*p '<a href="exec: custom_theme[''fsize''] += 1 & dynamic $cheatmenu[''theme_customize'']"><img src="images/system/ui/more<<$icon_selector>>.png" height="<<icon_height>>"></img></a>'
	*pl '&nbsp;<a href="exec: dynamic $cheatmenu[''theme_customize_input''], ''fsize'' & dynamic $cheatmenu[''theme_customize'']"><img src="images/system/ui/pencil<<$icon_selector>>.png" height="<<icon_height>>"></img></a>'

	!!  --- BCOLOR ---
	*nl
	*p 'BG Color: <<func(''shortgs'', ''rgb_to_hex'', custom_theme[''bcolor''])>>&nbsp;'
	*pl '<a href="exec: custom_theme[''bcolor''] = dyneval($cheatmenu[''theme_customize_input''], ''hex'', custom_theme[''bcolor'']) & dynamic $cheatmenu[''theme_customize'']"><img src="images/system/ui/pencil<<$icon_selector>>.png" height="<<icon_height>>"></img></a>'

	*p 'R:&nbsp;' + dyneval($cheatmenu['theme_customize_print_color_line'], 'red', 'custom_theme[''bcolor'']') + '&nbsp;|&nbsp;'
	*p 'G:&nbsp;' + dyneval($cheatmenu['theme_customize_print_color_line'], 'green', 'custom_theme[''bcolor'']') + '&nbsp;|&nbsp;'
	*pl 'B:&nbsp;' + dyneval($cheatmenu['theme_customize_print_color_line'], 'blue', 'custom_theme[''bcolor'']')

	!!  --- FCOLOR ---
	*nl
	*p 'FG (text) Color: <<func(''shortgs'', ''rgb_to_hex'', custom_theme[''fcolor''])>>&nbsp;'
	*pl '<a href="exec: custom_theme[''fcolor''] = dyneval($cheatmenu[''theme_customize_input''], ''hex'', custom_theme[''fcolor'']) & dynamic $cheatmenu[''theme_customize'']"><img src="images/system/ui/pencil<<$icon_selector>>.png" height="<<icon_height>>"></img></a>'

	*p 'R:&nbsp;' + dyneval($cheatmenu['theme_customize_print_color_line'], 'red', 'custom_theme[''fcolor'']') + '&nbsp;|&nbsp;'
	*p 'G:&nbsp;' + dyneval($cheatmenu['theme_customize_print_color_line'], 'green', 'custom_theme[''fcolor'']') + '&nbsp;|&nbsp;'
	*pl 'B:&nbsp;' + dyneval($cheatmenu['theme_customize_print_color_line'], 'blue', 'custom_theme[''fcolor'']')

	!!  --- LCOLOR ---
	*nl
	*p 'Link Color: <<func(''shortgs'', ''rgb_to_hex'', custom_theme[''lcolor''])>>&nbsp;'
	*pl '<a href="exec: custom_theme[''lcolor''] = dyneval($cheatmenu[''theme_customize_input''], ''hex'', custom_theme[''lcolor'']) & dynamic $cheatmenu[''theme_customize'']"><img src="images/system/ui/pencil<<$icon_selector>>.png" height="<<icon_height>>"></img></a>'

	*p 'R:&nbsp;' + dyneval($cheatmenu['theme_customize_print_color_line'], 'red', 'custom_theme[''lcolor'']') + '&nbsp;|&nbsp;'
	*p 'G:&nbsp;' + dyneval($cheatmenu['theme_customize_print_color_line'], 'green', 'custom_theme[''lcolor'']') + '&nbsp;|&nbsp;'
	*pl 'B:&nbsp;' + dyneval($cheatmenu['theme_customize_print_color_line'], 'blue', 'custom_theme[''lcolor'']')

	!!  --- TABLE BG ---
	*nl
	*p 'Table BG: <<func(''shortgs'', ''rgb_to_hex'', custom_theme[''table_bg''])>>&nbsp;'
	*pl '<a href="exec: custom_theme[''table_bg''] = dyneval($cheatmenu[''theme_customize_input''], ''hex'', custom_theme[''table_bg'']) & dynamic $cheatmenu[''theme_customize'']"><img src="images/system/ui/pencil<<$icon_selector>>.png" height="<<icon_height>>"></img></a>'

	*p 'R:&nbsp;' + dyneval($cheatmenu['theme_customize_print_color_line'], 'red', 'custom_theme[''table_bg'']') + '&nbsp;|&nbsp;'
	*p 'G:&nbsp;' + dyneval($cheatmenu['theme_customize_print_color_line'], 'green', 'custom_theme[''table_bg'']') + '&nbsp;|&nbsp;'
	*pl 'B:&nbsp;' + dyneval($cheatmenu['theme_customize_print_color_line'], 'blue', 'custom_theme[''table_bg'']')

	!!  --- TABLE BG ALT ---
	*nl
	*p 'Alt Table BG: <<func(''shortgs'', ''rgb_to_hex'', custom_theme[''table_bg_alt''])>>&nbsp;'
	*pl '<a href="exec: custom_theme[''table_bg_alt''] = dyneval($cheatmenu[''theme_customize_input''], ''hex'', custom_theme[''table_bg_alt'']) & dynamic $cheatmenu[''theme_customize'']"><img src="images/system/ui/pencil<<$icon_selector>>.png" height="<<icon_height>>"></img></a>'

	*p 'R:&nbsp;' + dyneval($cheatmenu['theme_customize_print_color_line'], 'red', 'custom_theme[''table_bg_alt'']') + '&nbsp;|&nbsp;'
	*p 'G:&nbsp;' + dyneval($cheatmenu['theme_customize_print_color_line'], 'green', 'custom_theme[''table_bg_alt'']') + '&nbsp;|&nbsp;'
	*pl 'B:&nbsp;' + dyneval($cheatmenu['theme_customize_print_color_line'], 'blue', 'custom_theme[''table_bg_alt'']')

	!!  --- DARK MODE ---
	*nl
	*p 'Dark Mode&nbsp;'
	if custom_theme['is_dark'] = 0:
		*pl '<a href="exec: custom_theme[''is_dark''] = 1 & dynamic $cheatmenu[''theme_customize'']"><img src="images/system/ui/box<<$icon_selector>>.png" height="<<icon_height>>"></img></a>'
	else
		*pl '<a href="exec: custom_theme[''is_dark''] = 0 & dynamic $cheatmenu[''theme_customize'']"><img src="images/system/ui/check<<$icon_selector>>.png" height="<<icon_height>>"></img></a>'
	end

	!!  --- INCREMENT ---
	*nl
	if custom_theme['increment'] = 0: custom_theme['increment'] = 16
	*p 'Increment:&nbsp;'
	*p '<a href="exec: custom_theme[''increment''] = iif(custom_theme[''increment''] <= 1, 1, custom_theme[''increment''] - 1) & dynamic $cheatmenu[''theme_customize'']"><img src="images/system/ui/less<<$icon_selector>>.png" height="<<icon_height>>"></img></a>'
	*p '&nbsp;<<custom_theme[''increment'']>>&nbsp;'
	*p '<a href="exec: custom_theme[''increment''] += 1 & dynamic $cheatmenu[''theme_customize'']"><img src="images/system/ui/more<<$icon_selector>>.png" height="<<icon_height>>"></img></a>'
	*pl '&nbsp;<a href="exec: dynamic $cheatmenu[''theme_customize_input''], ''increment'' & dynamic $cheatmenu[''theme_customize'']"><img src="images/system/ui/pencil<<$icon_selector>>.png" height="<<icon_height>>"></img></a>'

	*p '</font></td>'

	!!  --- LOREM IPSUM ---
	$icon_selector = iif(theme['is_dark'] = 0, '_b', '_w')
	icon_height = fsize * 15 / 10
	*p '<td width="500" cellspacing="0" cellpadding="20" valign="top">'

	*p '"Lorem ipsum dolor sit amet, consectetur adipiscing elit, sed do eiusmod tempor incididunt ut labore et dolore magna aliqua. Ut enim ad minim veniam, quis nostrud exercitation ullamco laboris nisi ut aliquip ex ea commodo consequat. Duis aute irure dolor in reprehenderit in voluptate velit esse cillum dolore eu fugiat nulla pariatur. Excepteur sint occaecat cupidatat non proident, sunt in culpa qui officia deserunt mollit anim id est laborum."'

	*p '<table width="100%" cellspacing="0" cellpadding="20">'
	*p '<tr><td></td></tr>'
	$temp_bgcolor = func('themes', 'alt_color', $temp_bgcolor)
	*p '<tr bgcolor="<<$temp_bgcolor>>"><td>Table Color</td><td align="center" width="6%"><img src="images/system/ui/more<<$icon_selector>>.png" height="<<icon_height>>"></td></tr>'

	$temp_bgcolor = func('themes', 'alt_color', $temp_bgcolor)
	*p '<tr bgcolor="<<$temp_bgcolor>>"><td>Alt Table Color</td><td align="center" width="6%"><img src="images/system/ui/less<<$icon_selector>>.png" height="<<icon_height>>"></td></tr>'

	$temp_bgcolor = func('themes', 'alt_color', $temp_bgcolor)
	*p '<tr bgcolor="<<$temp_bgcolor>>"><td>Table Color</td><td align="center" width="6%"><img src="images/system/ui/preferences<<$icon_selector>>.png" height="<<icon_height>>"></td></tr>'
	*p '</table>'

	*p '</td></tr></table></center>'
	killvar '$icon_selector' & killvar 'icon_height' & killvar '$temp_bgcolor'
	*nl
	'<b>The standard Lorem Ipsum passage, used since the 1500s</b>'
	*nl
	'"Lorem ipsum dolor sit amet, consectetur adipiscing elit, sed do eiusmod tempor incididunt ut labore et dolore magna aliqua. Ut enim ad minim veniam, quis nostrud exercitation ullamco laboris nisi ut aliquip ex ea commodo consequat. Duis aute irure dolor in reprehenderit in voluptate velit esse cillum dolore eu fugiat nulla pariatur. Excepteur sint occaecat cupidatat non proident, sunt in culpa qui officia deserunt mollit anim id est laborum."'
	*nl
	'<b>Section 1.10.32 of "de Finibus Bonorum et Malorum", written by Cicero in 45 BC</b>'
	*nl
	'"Sed ut perspiciatis unde omnis iste natus error sit voluptatem accusantium doloremque laudantium, totam rem aperiam, eaque ipsa quae ab illo inventore veritatis et quasi architecto beatae vitae dicta sunt explicabo. Nemo enim ipsam voluptatem quia voluptas sit aspernatur aut odit aut fugit, sed quia consequuntur magni dolores eos qui ratione voluptatem sequi nesciunt. Neque porro quisquam est, qui dolorem ipsum quia dolor sit amet, consectetur, adipisci velit, sed quia non numquam eius modi tempora incidunt ut labore et dolore magnam aliquam quaerat voluptatem. Ut enim ad minima veniam, quis nostrum exercitationem ullam corporis suscipit laboriosam, nisi ut aliquid ex ea commodi consequatur? Quis autem vel eum iure reprehenderit qui in ea voluptate velit esse quam nihil molestiae consequatur, vel illum qui dolorem eum fugiat quo voluptas nulla pariatur?"'
	*nl
	'<b>1914 translation by H. Rackham</b>'
	*nl
	'"But I must explain to you how all this mistaken idea of denouncing pleasure and praising pain was born and I will give you a complete account of the system, and expound the actual teachings of the great explorer of the truth, the master-builder of human happiness. No one rejects, dislikes, or avoids pleasure itself, because it is pleasure, but because those who do not know how to pursue pleasure rationally encounter consequences that are extremely painful. Nor again is there anyone who loves or pursues or desires to obtain pain of itself, because it is pain, but because occasionally circumstances occur in which toil and pain can procure him some great pleasure. To take a trivial example, which of us ever undertakes laborious physical exercise, except to obtain some advantage from it? But who has any right to find fault with a man who chooses to enjoy a pleasure that has no annoying consequences, or one who avoids a pain that produces no resultant pleasure?"'
	*nl
	'<b>Section 1.10.33 of "de Finibus Bonorum et Malorum", written by Cicero in 45 BC</b>'
	*nl
	'"At vero eos et accusamus et iusto odio dignissimos ducimus qui blanditiis praesentium voluptatum deleniti atque corrupti quos dolores et quas molestias excepturi sint occaecati cupiditate non provident, similique sunt in culpa qui officia deserunt mollitia animi, id est laborum et dolorum fuga. Et harum quidem rerum facilis est et expedita distinctio. Nam libero tempore, cum soluta nobis est eligendi optio cumque nihil impedit quo minus id quod maxime placeat facere possimus, omnis voluptas assumenda est, omnis dolor repellendus. Temporibus autem quibusdam et aut officiis debitis aut rerum necessitatibus saepe eveniet ut et voluptates repudiandae sint et molestiae non recusandae. Itaque earum rerum hic tenetur a sapiente delectus, ut aut reiciendis voluptatibus maiores alias consequatur aut perferendis doloribus asperiores repellat."'
	*nl
	'<b>1914 translation by H. Rackham</b>'
	*nl
	'"On the other hand, we denounce with righteous indignation and dislike men who are so beguiled and demoralized by the charms of pleasure of the moment, so blinded by desire, that they cannot foresee the pain and trouble that are bound to ensue; and equal blame belongs to those who fail in their duty through weakness of will, which is the same as saying through shrinking from toil and pain. These cases are perfectly simple and easy to distinguish. In a free hour, when our power of choice is untrammelled and when nothing prevents our being able to do what we like best, every pleasure is to be welcomed and every pain avoided. But in certain circumstances and owing to the claims of duty or the obligations of business it will frequently occur that pleasures have to be repudiated and annoyances accepted. The wise man therefore always holds in these matters to this principle of selection: he rejects pleasures to secure other greater pleasures, or else he endures pains to avoid worse pains."'
end

!!----------------------------------------------------------------------------------------------------------------------------
!! Status Window Settings
!!----------------------------------------------------------------------------------------------------------------------------

$cheatmenu['status'] = "gs 'Cheatmenu_din', 'status'"
if $ARGS[0] = 'status':
	*clr & cla
	gs 'stat'
	gs 'obj_din', 'settingtabs'
	'<center><h1>Status Window Settings</h1></center>'
	$cheatmenu['table_start']
	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
	'Switch to the <a href="exec:TempUnit = '+iif(TempUnit = 0,'1 & gs ''outdoors'',''weather'' & dynamic $cheatmenu[''status'']">Fahrenheit','0 & gs ''outdoors'',''weather'' & dynamic $cheatmenu[''status'']">Celsius')+'</a> scale'
	*nl
	'Scale Weather Banner: <a href="exec:default_wbanner = 1 & set_weatherht=input(''Weather Banner Height (Default: 72 Min: 50 Max: 100)'') & dynamic $cheatmenu[''status''] & gs ''stat''"><<set_weatherht>></a>, Reset to default <a href="exec:default_wbanner = 0 & dynamic $cheatmenu[''status''] & gs ''stat''">(72)</a>'
		if set_weatherht < 50:
			set_weatherht = 50
		elseif set_weatherht > 100:
			set_weatherht = 100
		end
	'Scale Menu Icons: <a href="exec:default_menu_icons = 1 & set_miconht=input(''Weather Banner Height (Default: 54 Min: 10 Max: 75)'') & dynamic $cheatmenu[''status''] & gs ''stat''"><<set_miconht>></a>, Reset to default <a href="exec:default_menu_icons = 0 & dynamic $cheatmenu[''status''] & gs ''stat''">(54)</a>'
		if set_miconht < 10:
			set_miconht = 10
		elseif set_miconht > 75:
			set_miconht = 75
		end
	if cheatStatusIcons = 0:
		'Status icons: Click to <a href="exec:cheatStatusIcons = 1 & disable_show_icons = 1 & gs ''stat'' & dynamic $cheatmenu[''status'']">hide</a> them.'
		'Status Icon Height: <a href="exec:default_status_icons = 1 & set_siconht=input(''Input Status Icon Height (Default: 54 Min: 10 Max: 75)'') & dynamic $cheatmenu[''status''] & gs ''stat''"><<set_siconht>></a>, Reset to default <a href="exec:default_status_icons = 0 & dynamic $cheatmenu[''status''] & gs ''stat''">(54)</a>'
	elseif cheatStatusIcons = 1:
		'Status icons: Click to <a href="exec: cheatStatusIcons = 0 & disable_show_icons = 0 & gs ''stat'' & dynamic $cheatmenu[''status'']">show</a> them.'
	end
		if set_siconht < 10:
			set_siconht = 10
		elseif set_siconht > 75:
			set_siconht = 75
		end
	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 = 2 & dynamic $cheatmenu[''status''] & gs ''stat''">Character</a> or <a href="exec:Enable_scalepic = 0 & 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 = 2:
		'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 = 0 & 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 = 0:
		'Scalebar is now as <b>Table</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''">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="images/system/phone/theme/<<$phonetheme_name[pcs_phonetheme]>>/icon_settings.png"></a>
	$cheatmenu['table_end']
end

!!----------------------------------------------------------------------------------------------------------------------------
!! Phone Theme Menu
!!----------------------------------------------------------------------------------------------------------------------------

$cheatmenu['theme'] = "gs 'Cheatmenu_din', 'theme'"
if $ARGS[0] = 'theme':
	*clr & cla
	gs 'obj_din', 'settingtabs'
	'<center><h1>Phone Theme Menu</h1></center>'
	$cheatmenu['table_start']
	*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
	$cheatmenu['table_end']
end

!!----------------------------------------------------------------------------------------------------------------------------
!! Pain Management
!!----------------------------------------------------------------------------------------------------------------------------

$cheatmenu['pain'] = "gs 'Cheatmenu_din', 'pain'"
if $ARGS[0] = '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
	$cheatmenu['table_start']
	'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[''eyebrows'']>> <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>'
	$cheatmenu['table_second']
	'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>'
	$cheatmenu['table_end']
	*nl
	'You may still have pain from gaping or having been spanked, you can clear these using "Cure all ailments." in "Cheat Menu - Character State Changes"'
	'You currently have vaginal gaping of <<vgape>>'
	'You currently have anal gaping of <<agape>>'
	'You currently have spanked level <<spanked>>'
end

!!----------------------------------------------------------------------------------------------------------------------------
!! DNA Generation
!!----------------------------------------------------------------------------------------------------------------------------

$cheatmenu['DNAM'] = "gs 'Cheatmenu_din', 'DNAM'"
if $ARGS[0] = 'DNAM':
	$cheatDNAM = input("Enter genetic mother ID (like A33, without apostrophe)")
	if $cheatDNAM = '':exit
	dynamic $cheatDNAM
	dynamic $cheatmenu['DNA']
end

$cheatmenu['DNAF'] = "gs 'Cheatmenu_din', 'DNAF'"
if $ARGS[0] = 'DNAF':
	$cheatDNAF = input("Enter genetic father ID (like A34, without apostrophe)")
	if $cheatDNAF = '':exit
	dynamic $cheatDNAF
	dynamic $cheatmenu['DNA']
end

$cheatmenu['DNAC'] = "gs 'Cheatmenu_din', 'DNAC'"
if $ARGS[0] = 'DNAC':
	$cheatDNAC = input("Enter genetic Child ID (like A34, without apostrophe)")
	if $cheatDNAC = '':exit
	dynamic $cheatDNAC
	dynamic $cheatmenu['DNA']
end

$cheatmenu['DNA'] = "gs 'Cheatmenu_din', 'DNA'"
if $ARGS[0] = 'DNA':
	*clr & cla
	gs 'obj_din', 'cheattabs'
	'<center><h1>Cheat Menu - DNA Generation</h1></center>'
	$cheatmenu['table_start']
	'<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'
	$cheatmenu['table_end']
end

!!----------------------------------------------------------------------------------------------------------------------------
!! Fame
!!----------------------------------------------------------------------------------------------------------------------------

$cheatmenu['fame'] = "gs 'Cheatmenu_din', 'fame'"
if $ARGS[0] = 'fame':
	*clr & cla
	gs 'obj_din', 'cheattabs'
	'<center><h1>Cheat Menu - Fame</h1></center>'
	$table['fame'] = '<center><table width="90%" cellspacing="0" cellpadding="5" valign="top" border="1">'
	$table['fame'] += '<th colspan="5"><b>Fame</b></th><tr>'
	$table['fame'] += '<th></th><th>Pavlovsk</th><th>City</th><th>Pushkin</th><th>Gadukino</th><tr>'

	$table['fame'] += '<td>Actor</td>'
	$table['fame'] += '<td> <<fame[''pav_acting'']>>   <a href="exec:gs ''fame'', ''pav'', ''acting'', 10 & dynamic $cheatmenu[''fame'']">+10</a> <a href="exec:gs ''fame'', ''pav'', ''acting'', 100 & dynamic $cheatmenu[''fame'']">+100</a> <a href="exec:gs ''fame'', ''pav'', ''acting'', -10 & dynamic $cheatmenu[''fame'']">-10</a> <a href="exec:gs ''fame'', ''pav'', ''acting'', -100 & dynamic $cheatmenu[''fame'']">-100</a> </td>'
	$table['fame'] += '<td><<fame[''city_acting'']>>   <a href="exec:gs ''fame'', ''city'', ''acting'', 10 & dynamic $cheatmenu[''fame'']">+10</a> <a href="exec:gs ''fame'', ''city'', ''acting'', 100 & dynamic $cheatmenu[''fame'']">+100</a> <a href="exec:gs ''fame'', ''city'', ''acting'', -10 & dynamic $cheatmenu[''fame'']">-10</a> <a href="exec:gs ''fame'', ''city'', ''acting'', -100 & dynamic $cheatmenu[''fame'']">-100</a> </td>'
	$table['fame'] += '<td><<fame[''pushkin_acting'']>>   <a href="exec:gs ''fame'', ''pushkin'', ''acting'', 10 & dynamic $cheatmenu[''fame'']">+10</a> <a href="exec:gs ''fame'', ''pushkin'', ''acting'', 100 & dynamic $cheatmenu[''fame'']">+100</a> <a href="exec:gs ''fame'', ''pushkin'', ''acting'', -10 & dynamic $cheatmenu[''fame'']">-10</a> <a href="exec:gs ''fame'', ''pushkin'', ''acting'', -100 & dynamic $cheatmenu[''fame'']">-100</a> </td>'
	$table['fame'] += '<td><<fame[''village_acting'']>>   <a href="exec:gs ''fame'', ''village'', ''acting'', 10 & dynamic $cheatmenu[''fame'']">+10</a> <a href="exec:gs ''fame'', ''village'', ''acting'', 100 & dynamic $cheatmenu[''fame'']">+100</a> <a href="exec:gs ''fame'', ''village'', ''acting'', -10 & dynamic $cheatmenu[''fame'']">-10</a> <a href="exec:gs ''fame'', ''village'', ''acting'', -100 & dynamic $cheatmenu[''fame'']">-100</a> </td>'
	$table['fame'] += '<tr>'

	$table['fame'] += '<td>Dancer</td>'
	$table['fame'] += '<td> <<fame[''pav_dance'']>>   <a href="exec:gs ''fame'', ''pav'', ''dance'', 10 & dynamic $cheatmenu[''fame'']">+10</a> <a href="exec:gs ''fame'', ''pav'', ''dance'', 100 & dynamic $cheatmenu[''fame'']">+100</a> <a href="exec:gs ''fame'', ''pav'', ''dance'', -10 & dynamic $cheatmenu[''fame'']">-10</a> <a href="exec:gs ''fame'', ''pav'', ''dance'', -100 & dynamic $cheatmenu[''fame'']">-100</a> </td>'
	$table['fame'] += '<td><<fame[''city_dance'']>>   <a href="exec:gs ''fame'', ''city'', ''dance'', 10 & dynamic $cheatmenu[''fame'']">+10</a> <a href="exec:gs ''fame'', ''city'', ''dance'', 100 & dynamic $cheatmenu[''fame'']">+100</a> <a href="exec:gs ''fame'', ''city'', ''dance'', -10 & dynamic $cheatmenu[''fame'']">-10</a> <a href="exec:gs ''fame'', ''city'', ''dance'', -100 & dynamic $cheatmenu[''fame'']">-100</a> </td>'
	$table['fame'] += '<td><<fame[''pushkin_dance'']>>   <a href="exec:gs ''fame'', ''pushkin'', ''dance'', 10 & dynamic $cheatmenu[''fame'']">+10</a> <a href="exec:gs ''fame'', ''pushkin'', ''dance'', 100 & dynamic $cheatmenu[''fame'']">+100</a> <a href="exec:gs ''fame'', ''pushkin'', ''dance'', -10 & dynamic $cheatmenu[''fame'']">-10</a> <a href="exec:gs ''fame'', ''pushkin'', ''dance'', -100 & dynamic $cheatmenu[''fame'']">-100</a> </td>'
	$table['fame'] += '<td><<fame[''village_dance'']>>   <a href="exec:gs ''fame'', ''village'', ''dance'', 10 & dynamic $cheatmenu[''fame'']">+10</a> <a href="exec:gs ''fame'', ''village'', ''dance'', 100 & dynamic $cheatmenu[''fame'']">+100</a> <a href="exec:gs ''fame'', ''village'', ''dance'', -10 & dynamic $cheatmenu[''fame'']">-10</a> <a href="exec:gs ''fame'', ''village'', ''dance'', -100 & dynamic $cheatmenu[''fame'']">-100</a> </td>'
	$table['fame'] += '<tr>'

	$table['fame'] += '<td>Glamour model</td>'
	$table['fame'] += '<td> <<fame[''pav_modelling'']>>   <a href="exec:gs ''fame'', ''pav'', ''modelling'', 10 & dynamic $cheatmenu[''fame'']">+10</a> <a href="exec:gs ''fame'', ''pav'', ''modelling'', 100 & dynamic $cheatmenu[''fame'']">+100</a> <a href="exec:gs ''fame'', ''pav'', ''modelling'', -10 & dynamic $cheatmenu[''fame'']">-10</a> <a href="exec:gs ''fame'', ''pav'', ''modelling'', -100 & dynamic $cheatmenu[''fame'']">-100</a> </td>'
	$table['fame'] += '<td><<fame[''city_modelling'']>>   <a href="exec:gs ''fame'', ''city'', ''modelling'', 10 & dynamic $cheatmenu[''fame'']">+10</a> <a href="exec:gs ''fame'', ''city'', ''modelling'', 100 & dynamic $cheatmenu[''fame'']">+100</a> <a href="exec:gs ''fame'', ''city'', ''modelling'', -10 & dynamic $cheatmenu[''fame'']">-10</a> <a href="exec:gs ''fame'', ''city'', ''modelling'', -100 & dynamic $cheatmenu[''fame'']">-100</a> </td>'
	$table['fame'] += '<td><<fame[''pushkin_modelling'']>>   <a href="exec:gs ''fame'', ''pushkin'', ''modelling'', 10 & dynamic $cheatmenu[''fame'']">+10</a> <a href="exec:gs ''fame'', ''pushkin'', ''modelling'', 100 & dynamic $cheatmenu[''fame'']">+100</a> <a href="exec:gs ''fame'', ''pushkin'', ''modelling'', -10 & dynamic $cheatmenu[''fame'']">-10</a> <a href="exec:gs ''fame'', ''pushkin'', ''modelling'', -100 & dynamic $cheatmenu[''fame'']">-100</a> </td>'
	$table['fame'] += '<td><<fame[''village_modelling'']>>   <a href="exec:gs ''fame'', ''village'', ''modelling'', 10 & dynamic $cheatmenu[''fame'']">+10</a> <a href="exec:gs ''fame'', ''village'', ''modelling'', 100 & dynamic $cheatmenu[''fame'']">+100</a> <a href="exec:gs ''fame'', ''village'', ''modelling'', -10 & dynamic $cheatmenu[''fame'']">-10</a> <a href="exec:gs ''fame'', ''village'', ''modelling'', -100 & dynamic $cheatmenu[''fame'']">-100</a> </td>'
	$table['fame'] += '<tr>'

	$table['fame'] += '<td>Painter</td>'
	$table['fame'] += '<td> <<fame[''pav_painting'']>>   <a href="exec:gs ''fame'', ''pav'', ''painting'', 10 & dynamic $cheatmenu[''fame'']">+10</a> <a href="exec:gs ''fame'', ''pav'', ''painting'', 100 & dynamic $cheatmenu[''fame'']">+100</a> <a href="exec:gs ''fame'', ''pav'', ''painting'', -10 & dynamic $cheatmenu[''fame'']">-10</a> <a href="exec:gs ''fame'', ''pav'', ''painting'', -100 & dynamic $cheatmenu[''fame'']">-100</a> </td>'
	$table['fame'] += '<td><<fame[''city_painting'']>>   <a href="exec:gs ''fame'', ''city'', ''painting'', 10 & dynamic $cheatmenu[''fame'']">+10</a> <a href="exec:gs ''fame'', ''city'', ''painting'', 100 & dynamic $cheatmenu[''fame'']">+100</a> <a href="exec:gs ''fame'', ''city'', ''painting'', -10 & dynamic $cheatmenu[''fame'']">-10</a> <a href="exec:gs ''fame'', ''city'', ''painting'', -100 & dynamic $cheatmenu[''fame'']">-100</a> </td>'
	$table['fame'] += '<td><<fame[''pushkin_painting'']>>   <a href="exec:gs ''fame'', ''pushkin'', ''painting'', 10 & dynamic $cheatmenu[''fame'']">+10</a> <a href="exec:gs ''fame'', ''pushkin'', ''painting'', 100 & dynamic $cheatmenu[''fame'']">+100</a> <a href="exec:gs ''fame'', ''pushkin'', ''painting'', -10 & dynamic $cheatmenu[''fame'']">-10</a> <a href="exec:gs ''fame'', ''pushkin'', ''painting'', -100 & dynamic $cheatmenu[''fame'']">-100</a> </td>'
	$table['fame'] += '<td><<fame[''village_painting'']>>   <a href="exec:gs ''fame'', ''village'', ''painting'', 10 & dynamic $cheatmenu[''fame'']">+10</a> <a href="exec:gs ''fame'', ''village'', ''painting'', 100 & dynamic $cheatmenu[''fame'']">+100</a> <a href="exec:gs ''fame'', ''village'', ''painting'', -10 & dynamic $cheatmenu[''fame'']">-10</a> <a href="exec:gs ''fame'', ''village'', ''painting'', -100 & dynamic $cheatmenu[''fame'']">-100</a> </td>'
	$table['fame'] += '<tr>'

	$table['fame'] += '<td>Musician</td>'
	$table['fame'] += '<td> <<fame[''pav_music'']>>   <a href="exec:gs ''fame'', ''pav'', ''music'', 10 & dynamic $cheatmenu[''fame'']">+10</a> <a href="exec:gs ''fame'', ''pav'', ''music'', 100 & dynamic $cheatmenu[''fame'']">+100</a> <a href="exec:gs ''fame'', ''pav'', ''music'', -10 & dynamic $cheatmenu[''fame'']">-10</a> <a href="exec:gs ''fame'', ''pav'', ''music'', -100 & dynamic $cheatmenu[''fame'']">-100</a> </td>'
	$table['fame'] += '<td><<fame[''city_music'']>>   <a href="exec:gs ''fame'', ''city'', ''music'', 10 & dynamic $cheatmenu[''fame'']">+10</a> <a href="exec:gs ''fame'', ''city'', ''music'', 100 & dynamic $cheatmenu[''fame'']">+100</a> <a href="exec:gs ''fame'', ''city'', ''music'', -10 & dynamic $cheatmenu[''fame'']">-10</a> <a href="exec:gs ''fame'', ''city'', ''music'', -100 & dynamic $cheatmenu[''fame'']">-100</a> </td>'
	$table['fame'] += '<td><<fame[''pushkin_music'']>>   <a href="exec:gs ''fame'', ''pushkin'', ''music'', 10 & dynamic $cheatmenu[''fame'']">+10</a> <a href="exec:gs ''fame'', ''pushkin'', ''music'', 100 & dynamic $cheatmenu[''fame'']">+100</a> <a href="exec:gs ''fame'', ''pushkin'', ''music'', -10 & dynamic $cheatmenu[''fame'']">-10</a> <a href="exec:gs ''fame'', ''pushkin'', ''music'', -100 & dynamic $cheatmenu[''fame'']">-100</a> </td>'
	$table['fame'] += '<td><<fame[''village_music'']>>   <a href="exec:gs ''fame'', ''village'', ''music'', 10 & dynamic $cheatmenu[''fame'']">+10</a> <a href="exec:gs ''fame'', ''village'', ''music'', 100 & dynamic $cheatmenu[''fame'']">+100</a> <a href="exec:gs ''fame'', ''village'', ''music'', -10 & dynamic $cheatmenu[''fame'']">-10</a> <a href="exec:gs ''fame'', ''village'', ''music'', -100 & dynamic $cheatmenu[''fame'']">-100</a> </td>'
	$table['fame'] += '<tr>'

	$table['fame'] += '<td>Ballet dancer</td>'
	$table['fame'] += '<td> <<fame[''pav_ballet'']>>   <a href="exec:gs ''fame'', ''pav'', ''ballet'', 10 & dynamic $cheatmenu[''fame'']">+10</a> <a href="exec:gs ''fame'', ''pav'', ''ballet'', 100 & dynamic $cheatmenu[''fame'']">+100</a> <a href="exec:gs ''fame'', ''pav'', ''ballet'', -10 & dynamic $cheatmenu[''fame'']">-10</a> <a href="exec:gs ''fame'', ''pav'', ''ballet'', -100 & dynamic $cheatmenu[''fame'']">-100</a> </td>'
	$table['fame'] += '<td><<fame[''city_ballet'']>>   <a href="exec:gs ''fame'', ''city'', ''ballet'', 10 & dynamic $cheatmenu[''fame'']">+10</a> <a href="exec:gs ''fame'', ''city'', ''ballet'', 100 & dynamic $cheatmenu[''fame'']">+100</a> <a href="exec:gs ''fame'', ''city'', ''ballet'', -10 & dynamic $cheatmenu[''fame'']">-10</a> <a href="exec:gs ''fame'', ''city'', ''ballet'', -100 & dynamic $cheatmenu[''fame'']">-100</a> </td>'
	$table['fame'] += '<td><<fame[''pushkin_ballet'']>>   <a href="exec:gs ''fame'', ''pushkin'', ''ballet'', 10 & dynamic $cheatmenu[''fame'']">+10</a> <a href="exec:gs ''fame'', ''pushkin'', ''ballet'', 100 & dynamic $cheatmenu[''fame'']">+100</a> <a href="exec:gs ''fame'', ''pushkin'', ''ballet'', -10 & dynamic $cheatmenu[''fame'']">-10</a> <a href="exec:gs ''fame'', ''pushkin'', ''ballet'', -100 & dynamic $cheatmenu[''fame'']">-100</a> </td>'
	$table['fame'] += '<td><<fame[''village_ballet'']>>   <a href="exec:gs ''fame'', ''village'', ''ballet'', 10 & dynamic $cheatmenu[''fame'']">+10</a> <a href="exec:gs ''fame'', ''village'', ''ballet'', 100 & dynamic $cheatmenu[''fame'']">+100</a> <a href="exec:gs ''fame'', ''village'', ''ballet'', -10 & dynamic $cheatmenu[''fame'']">-10</a> <a href="exec:gs ''fame'', ''village'', ''ballet'', -100 & dynamic $cheatmenu[''fame'']">-100</a> </td>'
	$table['fame'] += '<tr>'

	$table['fame'] += '<td>Porn actor</td>'
	$table['fame'] += '<td> <<fame[''pav_porn'']>>   <a href="exec:gs ''fame'', ''pav'', ''porn'', 10 & dynamic $cheatmenu[''fame'']">+10</a> <a href="exec:gs ''fame'', ''pav'', ''porn'', 100 & dynamic $cheatmenu[''fame'']">+100</a> <a href="exec:gs ''fame'', ''pav'', ''porn'', -10 & dynamic $cheatmenu[''fame'']">-10</a> <a href="exec:gs ''fame'', ''pav'', ''porn'', -100 & dynamic $cheatmenu[''fame'']">-100</a> </td>'
	$table['fame'] += '<td><<fame[''city_porn'']>>   <a href="exec:gs ''fame'', ''city'', ''porn'', 10 & dynamic $cheatmenu[''fame'']">+10</a> <a href="exec:gs ''fame'', ''city'', ''porn'', 100 & dynamic $cheatmenu[''fame'']">+100</a> <a href="exec:gs ''fame'', ''city'', ''porn'', -10 & dynamic $cheatmenu[''fame'']">-10</a> <a href="exec:gs ''fame'', ''city'', ''porn'', -100 & dynamic $cheatmenu[''fame'']">-100</a> </td>'
	$table['fame'] += '<td><<fame[''pushkin_porn'']>>   <a href="exec:gs ''fame'', ''pushkin'', ''porn'', 10 & dynamic $cheatmenu[''fame'']">+10</a> <a href="exec:gs ''fame'', ''pushkin'', ''porn'', 100 & dynamic $cheatmenu[''fame'']">+100</a> <a href="exec:gs ''fame'', ''pushkin'', ''porn'', -10 & dynamic $cheatmenu[''fame'']">-10</a> <a href="exec:gs ''fame'', ''pushkin'', ''porn'', -100 & dynamic $cheatmenu[''fame'']">-100</a> </td>'
	$table['fame'] += '<td><<fame[''village_porn'']>>   <a href="exec:gs ''fame'', ''village'', ''porn'', 10 & dynamic $cheatmenu[''fame'']">+10</a> <a href="exec:gs ''fame'', ''village'', ''porn'', 100 & dynamic $cheatmenu[''fame'']">+100</a> <a href="exec:gs ''fame'', ''village'', ''porn'', -10 & dynamic $cheatmenu[''fame'']">-10</a> <a href="exec:gs ''fame'', ''village'', ''porn'', -100 & dynamic $cheatmenu[''fame'']">-100</a> </td>'
	$table['fame'] += '<tr>'

	$table['fame'] += '<td>Stripper</td>'
	$table['fame'] += '<td> <<fame[''pav_stripping'']>>   <a href="exec:gs ''fame'', ''pav'', ''stripping'', 10 & dynamic $cheatmenu[''fame'']">+10</a> <a href="exec:gs ''fame'', ''pav'', ''stripping'', 100 & dynamic $cheatmenu[''fame'']">+100</a> <a href="exec:gs ''fame'', ''pav'', ''stripping'', -10 & dynamic $cheatmenu[''fame'']">-10</a> <a href="exec:gs ''fame'', ''pav'', ''stripping'', -100 & dynamic $cheatmenu[''fame'']">-100</a> </td>'
	$table['fame'] += '<td><<fame[''city_stripping'']>>   <a href="exec:gs ''fame'', ''city'', ''stripping'', 10 & dynamic $cheatmenu[''fame'']">+10</a> <a href="exec:gs ''fame'', ''city'', ''stripping'', 100 & dynamic $cheatmenu[''fame'']">+100</a> <a href="exec:gs ''fame'', ''city'', ''stripping'', -10 & dynamic $cheatmenu[''fame'']">-10</a> <a href="exec:gs ''fame'', ''city'', ''stripping'', -100 & dynamic $cheatmenu[''fame'']">-100</a> </td>'
	$table['fame'] += '<td><<fame[''pushkin_stripping'']>>   <a href="exec:gs ''fame'', ''pushkin'', ''stripping'', 10 & dynamic $cheatmenu[''fame'']">+10</a> <a href="exec:gs ''fame'', ''pushkin'', ''stripping'', 100 & dynamic $cheatmenu[''fame'']">+100</a> <a href="exec:gs ''fame'', ''pushkin'', ''stripping'', -10 & dynamic $cheatmenu[''fame'']">-10</a> <a href="exec:gs ''fame'', ''pushkin'', ''stripping'', -100 & dynamic $cheatmenu[''fame'']">-100</a> </td>'
	$table['fame'] += '<td><<fame[''village_stripping'']>>   <a href="exec:gs ''fame'', ''village'', ''stripping'', 10 & dynamic $cheatmenu[''fame'']">+10</a> <a href="exec:gs ''fame'', ''village'', ''stripping'', 100 & dynamic $cheatmenu[''fame'']">+100</a> <a href="exec:gs ''fame'', ''village'', ''stripping'', -10 & dynamic $cheatmenu[''fame'']">-10</a> <a href="exec:gs ''fame'', ''village'', ''stripping'', -100 & dynamic $cheatmenu[''fame'']">-100</a> </td>'
	$table['fame'] += '<tr>'

	$table['fame'] += '<td>Sex</td>'
	$table['fame'] += '<td> <<fame[''pav_sex'']>>   <a href="exec:gs ''fame'', ''pav'', ''sex'', 10 & dynamic $cheatmenu[''fame'']">+10</a> <a href="exec:gs ''fame'', ''pav'', ''sex'', 100 & dynamic $cheatmenu[''fame'']">+100</a> <a href="exec:gs ''fame'', ''pav'', ''sex'', -10 & dynamic $cheatmenu[''fame'']">-10</a> <a href="exec:gs ''fame'', ''pav'', ''sex'', -100 & dynamic $cheatmenu[''fame'']">-100</a> </td>'
	$table['fame'] += '<td><<fame[''city_sex'']>>   <a href="exec:gs ''fame'', ''city'', ''sex'', 10 & dynamic $cheatmenu[''fame'']">+10</a> <a href="exec:gs ''fame'', ''city'', ''sex'', 100 & dynamic $cheatmenu[''fame'']">+100</a> <a href="exec:gs ''fame'', ''city'', ''sex'', -10 & dynamic $cheatmenu[''fame'']">-10</a> <a href="exec:gs ''fame'', ''city'', ''sex'', -100 & dynamic $cheatmenu[''fame'']">-100</a> </td>'
	$table['fame'] += '<td><<fame[''pushkin_sex'']>>   <a href="exec:gs ''fame'', ''pushkin'', ''sex'', 10 & dynamic $cheatmenu[''fame'']">+10</a> <a href="exec:gs ''fame'', ''pushkin'', ''sex'', 100 & dynamic $cheatmenu[''fame'']">+100</a> <a href="exec:gs ''fame'', ''pushkin'', ''sex'', -10 & dynamic $cheatmenu[''fame'']">-10</a> <a href="exec:gs ''fame'', ''pushkin'', ''sex'', -100 & dynamic $cheatmenu[''fame'']">-100</a> </td>'
	$table['fame'] += '<td><<fame[''village_sex'']>>   <a href="exec:gs ''fame'', ''village'', ''sex'', 10 & dynamic $cheatmenu[''fame'']">+10</a> <a href="exec:gs ''fame'', ''village'', ''sex'', 100 & dynamic $cheatmenu[''fame'']">+100</a> <a href="exec:gs ''fame'', ''village'', ''sex'', -10 & dynamic $cheatmenu[''fame'']">-10</a> <a href="exec:gs ''fame'', ''village'', ''sex'', -100 & dynamic $cheatmenu[''fame'']">-100</a> </td>'
	$table['fame'] += '<tr>'

	$table['fame'] += '<td>Prostitution</td>'
	$table['fame'] += '<td> <<fame[''pav_prostitute'']>>   <a href="exec:gs ''fame'', ''pav'', ''prostitute'', 10 & dynamic $cheatmenu[''fame'']">+10</a> <a href="exec:gs ''fame'', ''pav'', ''prostitute'', 100 & dynamic $cheatmenu[''fame'']">+100</a> <a href="exec:gs ''fame'', ''pav'', ''prostitute'', -10 & dynamic $cheatmenu[''fame'']">-10</a> <a href="exec:gs ''fame'', ''pav'', ''prostitute'', -100 & dynamic $cheatmenu[''fame'']">-100</a> </td>'
	$table['fame'] += '<td><<fame[''city_prostitute'']>>   <a href="exec:gs ''fame'', ''city'', ''prostitute'', 10 & dynamic $cheatmenu[''fame'']">+10</a> <a href="exec:gs ''fame'', ''city'', ''prostitute'', 100 & dynamic $cheatmenu[''fame'']">+100</a> <a href="exec:gs ''fame'', ''city'', ''prostitute'', -10 & dynamic $cheatmenu[''fame'']">-10</a> <a href="exec:gs ''fame'', ''city'', ''prostitute'', -100 & dynamic $cheatmenu[''fame'']">-100</a> </td>'
	$table['fame'] += '<td><<fame[''pushkin_prostitute'']>>   <a href="exec:gs ''fame'', ''pushkin'', ''prostitute'', 10 & dynamic $cheatmenu[''fame'']">+10</a> <a href="exec:gs ''fame'', ''pushkin'', ''prostitute'', 100 & dynamic $cheatmenu[''fame'']">+100</a> <a href="exec:gs ''fame'', ''pushkin'', ''prostitute'', -10 & dynamic $cheatmenu[''fame'']">-10</a> <a href="exec:gs ''fame'', ''pushkin'', ''prostitute'', -100 & dynamic $cheatmenu[''fame'']">-100</a> </td>'
	$table['fame'] += '<td><<fame[''village_prostitute'']>>   <a href="exec:gs ''fame'', ''village'', ''prostitute'', 10 & dynamic $cheatmenu[''fame'']">+10</a> <a href="exec:gs ''fame'', ''village'', ''prostitute'', 100 & dynamic $cheatmenu[''fame'']">+100</a> <a href="exec:gs ''fame'', ''village'', ''prostitute'', -10 & dynamic $cheatmenu[''fame'']">-10</a> <a href="exec:gs ''fame'', ''village'', ''prostitute'', -100 & dynamic $cheatmenu[''fame'']">-100</a> </td>'
	$table['fame'] += '<tr>'

	$table['fame'] += '<td>Kickboxer</td>'
	$table['fame'] += '<td> <<fame[''pav_kickboxing'']>>   <a href="exec:gs ''fame'', ''pav'', ''kickboxing'', 10 & dynamic $cheatmenu[''fame'']">+10</a> <a href="exec:gs ''fame'', ''pav'', ''kickboxing'', 100 & dynamic $cheatmenu[''fame'']">+100</a> <a href="exec:gs ''fame'', ''pav'', ''kickboxing'', -10 & dynamic $cheatmenu[''fame'']">-10</a> <a href="exec:gs ''fame'', ''pav'', ''kickboxing'', -100 & dynamic $cheatmenu[''fame'']">-100</a> </td>'
	$table['fame'] += '<td><<fame[''city_kickboxing'']>>   <a href="exec:gs ''fame'', ''city'', ''kickboxing'', 10 & dynamic $cheatmenu[''fame'']">+10</a> <a href="exec:gs ''fame'', ''city'', ''kickboxing'', 100 & dynamic $cheatmenu[''fame'']">+100</a> <a href="exec:gs ''fame'', ''city'', ''kickboxing'', -10 & dynamic $cheatmenu[''fame'']">-10</a> <a href="exec:gs ''fame'', ''city'', ''kickboxing'', -100 & dynamic $cheatmenu[''fame'']">-100</a> </td>'
	$table['fame'] += '<td><<fame[''pushkin_kickboxing'']>>   <a href="exec:gs ''fame'', ''pushkin'', ''kickboxing'', 10 & dynamic $cheatmenu[''fame'']">+10</a> <a href="exec:gs ''fame'', ''pushkin'', ''kickboxing'', 100 & dynamic $cheatmenu[''fame'']">+100</a> <a href="exec:gs ''fame'', ''pushkin'', ''kickboxing'', -10 & dynamic $cheatmenu[''fame'']">-10</a> <a href="exec:gs ''fame'', ''pushkin'', ''kickboxing'', -100 & dynamic $cheatmenu[''fame'']">-100</a> </td>'
	$table['fame'] += '<td><<fame[''village_kickboxing'']>>   <a href="exec:gs ''fame'', ''village'', ''kickboxing'', 10 & dynamic $cheatmenu[''fame'']">+10</a> <a href="exec:gs ''fame'', ''village'', ''kickboxing'', 100 & dynamic $cheatmenu[''fame'']">+100</a> <a href="exec:gs ''fame'', ''village'', ''kickboxing'', -10 & dynamic $cheatmenu[''fame'']">-10</a> <a href="exec:gs ''fame'', ''village'', ''kickboxing'', -100 & dynamic $cheatmenu[''fame'']">-100</a> </td>'
	$table['fame'] += '<tr>'

	$table['fame'] += '<td>Runner</td>'
	$table['fame'] += '<td> <<fame[''pav_running'']>>   <a href="exec:gs ''fame'', ''pav'', ''running'', 10 & dynamic $cheatmenu[''fame'']">+10</a> <a href="exec:gs ''fame'', ''pav'', ''running'', 100 & dynamic $cheatmenu[''fame'']">+100</a> <a href="exec:gs ''fame'', ''pav'', ''running'', -10 & dynamic $cheatmenu[''fame'']">-10</a> <a href="exec:gs ''fame'', ''pav'', ''running'', -100 & dynamic $cheatmenu[''fame'']">-100</a> </td>'
	$table['fame'] += '<td><<fame[''city_running'']>>   <a href="exec:gs ''fame'', ''city'', ''running'', 10 & dynamic $cheatmenu[''fame'']">+10</a> <a href="exec:gs ''fame'', ''city'', ''running'', 100 & dynamic $cheatmenu[''fame'']">+100</a> <a href="exec:gs ''fame'', ''city'', ''running'', -10 & dynamic $cheatmenu[''fame'']">-10</a> <a href="exec:gs ''fame'', ''city'', ''running'', -100 & dynamic $cheatmenu[''fame'']">-100</a> </td>'
	$table['fame'] += '<td><<fame[''pushkin_running'']>>   <a href="exec:gs ''fame'', ''pushkin'', ''running'', 10 & dynamic $cheatmenu[''fame'']">+10</a> <a href="exec:gs ''fame'', ''pushkin'', ''running'', 100 & dynamic $cheatmenu[''fame'']">+100</a> <a href="exec:gs ''fame'', ''pushkin'', ''running'', -10 & dynamic $cheatmenu[''fame'']">-10</a> <a href="exec:gs ''fame'', ''pushkin'', ''running'', -100 & dynamic $cheatmenu[''fame'']">-100</a> </td>'
	$table['fame'] += '<td><<fame[''village_running'']>>   <a href="exec:gs ''fame'', ''village'', ''running'', 10 & dynamic $cheatmenu[''fame'']">+10</a> <a href="exec:gs ''fame'', ''village'', ''running'', 100 & dynamic $cheatmenu[''fame'']">+100</a> <a href="exec:gs ''fame'', ''village'', ''running'', -10 & dynamic $cheatmenu[''fame'']">-10</a> <a href="exec:gs ''fame'', ''village'', ''running'', -100 & dynamic $cheatmenu[''fame'']">-100</a> </td>'
	$table['fame'] += '<tr>'

	$table['fame'] += '<td>Volleyball player</td>'
	$table['fame'] += '<td> <<fame[''pav_volleyball'']>>   <a href="exec:gs ''fame'', ''pav'', ''volleyball'', 10 & dynamic $cheatmenu[''fame'']">+10</a> <a href="exec:gs ''fame'', ''pav'', ''volleyball'', 100 & dynamic $cheatmenu[''fame'']">+100</a> <a href="exec:gs ''fame'', ''pav'', ''volleyball'', -10 & dynamic $cheatmenu[''fame'']">-10</a> <a href="exec:gs ''fame'', ''pav'', ''volleyball'', -100 & dynamic $cheatmenu[''fame'']">-100</a> </td>'
	$table['fame'] += '<td><<fame[''city_volleyball'']>>   <a href="exec:gs ''fame'', ''city'', ''volleyball'', 10 & dynamic $cheatmenu[''fame'']">+10</a> <a href="exec:gs ''fame'', ''city'', ''volleyball'', 100 & dynamic $cheatmenu[''fame'']">+100</a> <a href="exec:gs ''fame'', ''city'', ''volleyball'', -10 & dynamic $cheatmenu[''fame'']">-10</a> <a href="exec:gs ''fame'', ''city'', ''volleyball'', -100 & dynamic  $cheatmenu[''fame'']">-100</a> </td>'
	$table['fame'] += '<td><<fame[''pushkin_volleyball'']>>   <a href="exec:gs ''fame'', ''pushkin'', ''volleyball'', 10 & dynamic $cheatmenu[''fame'']">+10</a> <a href="exec:gs ''fame'', ''pushkin'', ''volleyball'', 100 & dynamic $cheatmenu[''fame'']">+100</a> <a href="exec:gs ''fame'', ''pushkin'', ''volleyball'', -10 & dynamic $cheatmenu[''fame'']">-10</a> <a href="exec:gs ''fame'', ''pushkin'', ''volleyball'', -100 & dynamic $cheatmenu[''fame'']">-100</a> </td>'
	$table['fame'] += '<td><<fame[''village_volleyball'']>>   <a href="exec:gs ''fame'', ''village'', ''volleyball'', 10 & dynamic $cheatmenu[''fame'']">+10</a> <a href="exec:gs ''fame'', ''village'', ''volleyball'', 100 & dynamic $cheatmenu[''fame'']">+100</a> <a href="exec:gs ''fame'', ''village'', ''volleyball'', -10 & dynamic $cheatmenu[''fame'']">-10</a> <a href="exec:gs ''fame'', ''village'', ''volleyball'', -100 & dynamic $cheatmenu[''fame'']">-100</a> </td>'
	$table['fame'] += '<tr>'

	$table['fame'] += '<td>Chess player</td>'
	$table['fame'] += '<td> <<fame[''pav_chess'']>>   <a href="exec:gs ''fame'', ''pav'', ''chess'', 10 & dynamic $cheatmenu[''fame'']">+10</a> <a href="exec:gs ''fame'', ''pav'', ''chess'', 100 & dynamic $cheatmenu[''fame'']">+100</a> <a href="exec:gs ''fame'', ''pav'', ''chess'', -10 & dynamic $cheatmenu[''fame'']">-10</a> <a href="exec:gs ''fame'', ''pav'', ''chess'', -100 & dynamic $cheatmenu[''fame'']">-100</a> </td>'
	$table['fame'] += '<td><<fame[''city_chess'']>>   <a href="exec:gs ''fame'', ''city'', ''chess'', 10 & dynamic $cheatmenu[''fame'']">+10</a> <a href="exec:gs ''fame'', ''city'', ''chess'', 100 & dynamic $cheatmenu[''fame'']">+100</a> <a href="exec:gs ''fame'', ''city'', ''chess'', -10 & dynamic $cheatmenu[''fame'']">-10</a> <a href="exec:gs ''fame'', ''city'', ''chess'', -100 & dynamic $cheatmenu[''fame'']">-100</a> </td>'
	$table['fame'] += '<td><<fame[''pushkin_chess'']>>   <a href="exec:gs ''fame'', ''pushkin'', ''chess'', 10 & dynamic $cheatmenu[''fame'']">+10</a> <a href="exec:gs ''fame'', ''pushkin'', ''chess'', 100 & dynamic $cheatmenu[''fame'']">+100</a> <a href="exec:gs ''fame'', ''pushkin'', ''chess'', -10 & dynamic $cheatmenu[''fame'']">-10</a> <a href="exec:gs ''fame'', ''pushkin'', ''chess'', -100 & dynamic $cheatmenu[''fame'']">-100</a> </td>'
	$table['fame'] += '<td><<fame[''village_chess'']>>   <a href="exec:gs ''fame'', ''village'', ''chess'', 10 & dynamic $cheatmenu[''fame'']">+10</a> <a href="exec:gs ''fame'', ''village'', ''chess'', 100 & dynamic $cheatmenu[''fame'']">+100</a> <a href="exec:gs ''fame'', ''village'', ''chess'', -10 & dynamic $cheatmenu[''fame'']">-10</a> <a href="exec:gs ''fame'', ''village'', ''chess'', -100 & dynamic $cheatmenu[''fame'']">-100</a> </td>'
	$table['fame'] += '<tr>'

	$table['fame'] += '<td>Teacher</td>'
	$table['fame'] += '<td> <<fame[''pav_teaching'']>>   <a href="exec:gs ''fame'', ''pav'', ''teaching'', 10 & dynamic $cheatmenu[''fame'']">+10</a> <a href="exec:gs ''fame'', ''pav'', ''teaching'', 100 & dynamic $cheatmenu[''fame'']">+100</a> <a href="exec:gs ''fame'', ''pav'', ''teaching'', -10 & dynamic $cheatmenu[''fame'']">-10</a> <a href="exec:gs ''fame'', ''pav'', ''teaching'', -100 & dynamic $cheatmenu[''fame'']">-100</a> </td>'
	$table['fame'] += '<td><<fame[''city_teaching'']>>   <a href="exec:gs ''fame'', ''city'', ''teaching'', 10 & dynamic $cheatmenu[''fame'']">+10</a> <a href="exec:gs ''fame'', ''city'', ''teaching'', 100 & dynamic $cheatmenu[''fame'']">+100</a> <a href="exec:gs ''fame'', ''city'', ''teaching'', -10 & dynamic $cheatmenu[''fame'']">-10</a> <a href="exec:gs ''fame'', ''city'', ''teaching'', -100 & dynamic $cheatmenu[''fame'']">-100</a> </td>'
	$table['fame'] += '<td><<fame[''pushkin_teaching'']>>   <a href="exec:gs ''fame'', ''pushkin'', ''teaching'', 10 & dynamic $cheatmenu[''fame'']">+10</a> <a href="exec:gs ''fame'', ''pushkin'', ''teaching'', 100 & dynamic $cheatmenu[''fame'']">+100</a> <a href="exec:gs ''fame'', ''pushkin'', ''teaching'', -10 & dynamic $cheatmenu[''fame'']">-10</a> <a href="exec:gs ''fame'', ''pushkin'', ''teaching'', -100 & dynamic $cheatmenu[''fame'']">-100</a> </td>'
	$table['fame'] += '<td><<fame[''village_teaching'']>>   <a href="exec:gs ''fame'', ''village'', ''teaching'', 10 & dynamic $cheatmenu[''fame'']">+10</a> <a href="exec:gs ''fame'', ''village'', ''teaching'', 100 & dynamic $cheatmenu[''fame'']">+100</a> <a href="exec:gs ''fame'', ''village'', ''teaching'', -10 & dynamic $cheatmenu[''fame'']">-10</a> <a href="exec:gs ''fame'', ''village'', ''teaching'', -100 & dynamic $cheatmenu[''fame'']">-100</a> </td>'
	$table['fame'] += '<tr>'

	$table['fame'] += '<td>Social media</td>'
	$table['fame'] += '<td> <<fame[''pav_media'']>>   <a href="exec:gs ''fame'', ''pav'', ''media'', 10 & dynamic $cheatmenu[''fame'']">+10</a> <a href="exec:gs ''fame'', ''pav'', ''media'', 100 & dynamic $cheatmenu[''fame'']">+100</a> <a href="exec:gs ''fame'', ''pav'', ''media'', -10 & dynamic $cheatmenu[''fame'']">-10</a> <a href="exec:gs ''fame'', ''pav'', ''media'', -100 & dynamic $cheatmenu[''fame'']">-100</a> </td>'
	$table['fame'] += '<td><<fame[''city_media'']>>   <a href="exec:gs ''fame'', ''city'', ''media'', 10 & dynamic $cheatmenu[''fame'']">+10</a> <a href="exec:gs ''fame'', ''city'', ''media'', 100 & dynamic $cheatmenu[''fame'']">+100</a> <a href="exec:gs ''fame'', ''city'', ''media'', -10 & dynamic $cheatmenu[''fame'']">-10</a> <a href="exec:gs ''fame'', ''city'', ''media'', -100 & dynamic $cheatmenu[''fame'']">-100</a> </td>'
	$table['fame'] += '<td><<fame[''pushkin_media'']>>   <a href="exec:gs ''fame'', ''pushkin'', ''media'', 10 & dynamic $cheatmenu[''fame'']">+10</a> <a href="exec:gs ''fame'', ''pushkin'', ''media'', 100 & dynamic $cheatmenu[''fame'']">+100</a> <a href="exec:gs ''fame'', ''pushkin'', ''media'', -10 & dynamic $cheatmenu[''fame'']">-10</a> <a href="exec:gs ''fame'', ''pushkin'', ''media'', -100 & dynamic $cheatmenu[''fame'']">-100</a> </td>'
	$table['fame'] += '<td><<fame[''village_media'']>>   <a href="exec:gs ''fame'', ''village'', ''media'', 10 & dynamic $cheatmenu[''fame'']">+10</a> <a href="exec:gs ''fame'', ''village'', ''media'', 100 & dynamic $cheatmenu[''fame'']">+100</a> <a href="exec:gs ''fame'', ''village'', ''media'', -10 & dynamic $cheatmenu[''fame'']">-10</a> <a href="exec:gs ''fame'', ''village'', ''media'', -100 & dynamic $cheatmenu[''fame'']">-100</a> </td>'
	$table['fame'] += '</table></center>'

	$table['fame']

end




!!----------------------------------------------------------------------------------------------------------------------------
!! Body Image Sets
!!----------------------------------------------------------------------------------------------------------------------------


$cheatmenu['bdimmain'] = "gs 'Cheatmenu_din', 'bdimmain'"
if $ARGS[0] = 'bdimmain':
	*clr & cla
	gs 'stat'
	gs 'obj_din', 'cheattabs'
	'<center><h1>Cheat Menu - Body Image Sets</h1></center>'
	$cheatmenu['table_start']
	'<center><b>Body Image Controls</b></center>'
	*nl
	if cheatVars['fix_bodyimg'] = 1:
		$temp_text = 'You are currently using set: '
		if cheatVars['fix_bi_set'] < 10:
			$temp_text += $cheatVars['fix_biset_<<cheatVars[''fix_bi_set'']>>_folder']
		else
			$temp_text += 'default '
			if cheatVars['fix_bi_set'] mod 10 = 0:
				$temp_text += 'low '
			elseif cheatVars['fix_bi_set'] mod 10 = 1:
				$temp_text += 'mid '
			elseif cheatVars['fix_bi_set'] mod 10 = 2:
				$temp_text += 'high '
			end

			if cheatVars['fix_bi_set'] / 10 = 19:
				$temp_text += 'strength'
			else
				$temp_text += func('body_structure', 'body_desc_from_class', (cheatVars['fix_bi_set'] / 10 mod 10) * 100)
			end
		end
		'<<$temp_text>>'
		killvar '$temp_text'
	else
		'You are currently not using a fixed set.'
	end
	*nl
	'These are the default body image sets:'
	*nl
	func('cheatmenu_din', 'get_default_bi_table')
	*nl
	*nl
	'<center><b>Custom Image Sets</b></center>'
	temp_cm_bi_flag = 0
	gs 'cheatmenu_din', 'bdcustfolddisplay', 0
	gs 'cheatmenu_din', 'bdcustfolddisplay', 1
	gs 'cheatmenu_din', 'bdcustfolddisplay', 2
	gs 'cheatmenu_din', 'bdcustfolddisplay', 3
	gs 'cheatmenu_din', 'bdcustfolddisplay', 4
	gs 'cheatmenu_din', 'bdcustfolddisplay', 5
	gs 'cheatmenu_din', 'bdcustfolddisplay', 6
	gs 'cheatmenu_din', 'bdcustfolddisplay', 7
	gs 'cheatmenu_din', 'bdcustfolddisplay', 8
	gs 'cheatmenu_din', 'bdcustfolddisplay', 9

	if temp_cm_bi_flag < 10:
		*nl
		'<a href="exec: gs ''cheatmenu_din'', ''bdimcstadd''"><b>Add new set</b></a>'
	end
	killvar 'temp_cm_bi_flag'

	$cheatmenu['table_end']
end

if $ARGS[0] = 'get_default_bi_table':
	$temp_table = '<table cellpadding="25" cellspacing="0">'
	$temp_table +=	'<tr>'
	$temp_table +=		'<td></td>'
	$temp_table +=		'<td></td>'
	$temp_table +=		'<th colspan=3><b>Strength</b></th>'
	$temp_table +=	'</tr>'
	$temp_table +=	'<tr>'
	$temp_table +=		'<td></td>'
	$temp_table +=		'<th><a href="exec: gs ''cheatmenu_din'', ''unlock_img_set'', 199 & gs ''Cheatmenu_din'', ''bdimmain''"><b>RESET</b></a></th>'
	$temp_table +=		'<th valign="bottom" style="border-bottom: 1px solid black">'
	if cheatVars['fix_bi_set'] > 10 and cheatVars['fix_bi_set'] mod 10 = 0:
		$temp_table +=		'<a style="color:#00FF00" href="exec: gs ''cheatmenu_din'', ''unlock_img_set'', 190 & gs ''Cheatmenu_din'', ''bdimmain''"><b>Low</b></a>'
	else
		$temp_table +=		'<a href="exec: gs ''cheatmenu_din'', ''lock_img_set'', 190 & gs ''Cheatmenu_din'', ''bdimmain''"><b>Low</b></a>'
	end
	$temp_table +=		'</th>'
	$temp_table +=		'<th valign="bottom" style="border-bottom: 1px solid black">'
	if cheatVars['fix_bi_set'] > 10 and cheatVars['fix_bi_set'] mod 10 = 1:
		$temp_table +=		'<a style="color:#00FF00" href="exec: gs ''cheatmenu_din'', ''unlock_img_set'', 191 & gs ''Cheatmenu_din'', ''bdimmain''"><b>Mid</b></a>'
	else
		$temp_table +=		'<a href="exec: gs ''cheatmenu_din'', ''lock_img_set'', 191 & gs ''Cheatmenu_din'', ''bdimmain''"><b>Mid</b></a>'
	end
	$temp_table +=		'</th>'
	$temp_table +=		'<th valign="bottom" style="border-bottom: 1px solid black">'
	if cheatVars['fix_bi_set'] > 10 and cheatVars['fix_bi_set'] mod 10 = 2:
		$temp_table +=		'<a style="color:#00FF00" href="exec: gs ''cheatmenu_din'', ''unlock_img_set'', 192 & gs ''Cheatmenu_din'', ''bdimmain''"><b>High</b></a></th>'
	else
		$temp_table +=		'<a href="exec: gs ''cheatmenu_din'', ''lock_img_set'', 192 & gs ''Cheatmenu_din'', ''bdimmain''"><b>High</b></a></th>'
	end
	$temp_table +=		'</th>'
	$temp_table +=	'</tr>'
	$temp_table +=	'<tr>'
	$temp_table +=		'<th rowspan=9><b>BMI</b></th>'
	temp_cmd_i = 0
	:default_table_loop
		if temp_cmd_i ! 0: $temp_table +=	'<tr>'
		$temp_table +=		'<th align="right" style="border-right: 1px solid black">'
		if cheatVars['fix_bi_set'] > 10 and cheatVars['fix_bi_set'] / 10 mod 10 = temp_cmd_i:
			$temp_table +=		'<a style="color:#00FF00" href="exec: gs ''cheatmenu_din'', ''unlock_img_set'', 1<<temp_cmd_i>>9 & gs ''Cheatmenu_din'', ''bdimmain''"><b><<func(''body_structure'', ''body_desc_from_class'', temp_cmd_i * 100)>></a></b>'
		else
			$temp_table +=		'<a href="exec: gs ''cheatmenu_din'', ''lock_img_set'', 1<<temp_cmd_i>>9 & gs ''Cheatmenu_din'', ''bdimmain''"><b><<func(''body_structure'', ''body_desc_from_class'', temp_cmd_i * 100)>></b></a>'
		end
		$temp_table +=		'</th>'
		$temp_table +=		'<td align="center" valign="center">'
		temp_cmd_colorflag = 0
		if cheatVars['fix_bi_set'] > 10 and (cheatVars['fix_bi_set'] / 10 mod 10 = temp_cmd_i or cheatVars['fix_bi_set'] / 10 mod 10 = 9) and (cheatVars['fix_bi_set'] mod 10 = 0 or cheatVars['fix_bi_set'] mod 10 = 9):
			temp_cmd_colorflag = 1
		end
		$temp_table +=			'<<func(''Cheatmenu_din'', ''get_bodyimg_desc_link'', temp_cmd_i * 100 + 2, temp_cmd_colorflag)>>'
		$temp_table +=		'</td>'
		$temp_table +=		'<td align="center" valign="center">'
		temp_cmd_colorflag = 0
		if cheatVars['fix_bi_set'] > 10 and (cheatVars['fix_bi_set'] / 10 mod 10 = temp_cmd_i or cheatVars['fix_bi_set'] / 10 mod 10 = 9) and (cheatVars['fix_bi_set'] mod 10 = 1 or cheatVars['fix_bi_set'] mod 10 = 9):
			temp_cmd_colorflag = 1
		end
		$temp_table +=			'<<func(''Cheatmenu_din'', ''get_bodyimg_desc_link'', temp_cmd_i * 100 + 6, temp_cmd_colorflag)>>'
		$temp_table +=		'</td>'
		$temp_table +=		'<td align="center" valign="center">'
		temp_cmd_colorflag = 0
		if cheatVars['fix_bi_set'] > 10 and (cheatVars['fix_bi_set'] / 10 mod 10 = temp_cmd_i or cheatVars['fix_bi_set'] / 10 mod 10 = 9) and (cheatVars['fix_bi_set'] mod 10 = 2 or cheatVars['fix_bi_set'] mod 10 = 9):
			temp_cmd_colorflag = 1
		end
		$temp_table +=			'<<func(''Cheatmenu_din'', ''get_bodyimg_desc_link'', temp_cmd_i * 100 + 8, temp_cmd_colorflag)>>'
		$temp_table +=		'</td>'
		$temp_table +=	'</tr>'
		temp_cmd_i += 1
	if temp_cmd_i < 9: jump 'default_table_loop'

	$temp_table += '</table>'

	$result = $temp_table
	killvar '$temp_table'
	killvar 'temp_cmd_colorflag'
end



if $ARGS[0] = 'lock_img_set':
	cheatVars['fix_bodyimg'] = 1
	if ARGS[1] < 10:
		cheatVars['fix_bi_set'] = ARGS[1]
	else
		ARGS[1] = ARGS[1] mod 100
		if cheatVars['fix_bi_set'] < 10: cheatVars['fix_bi_set'] = 199

		if ARGS[1] mod 10 ! 9:
			cheatVars['fix_bi_set'] = (cheatVars['fix_bi_set'] / 10) * 10 + (ARGS[1] mod 10)
		else
			cheatVars['fix_bi_set'] = 100 + (ARGS[1] / 10) * 10 + (cheatVars['fix_bi_set'] mod 10)
		end
	end
	gs 'body', 'UpdateBodyImage'
end

if $ARGS[0] = 'unlock_img_set':
	if cheatVars['fix_bi_set'] < 10:
		cheatVars['fix_bodyimg'] = 0
		cheatVars['fix_bi_set'] = 0
	else
		ARGS[1] = ARGS[1] mod 100
		if ARGS[1] mod 10 = 9: cheatVars['fix_bi_set'] = 190 + (cheatVars['fix_bi_set'] mod 10)
		if ARGS[1] / 10 = 9: cheatVars['fix_bi_set'] = (cheatVars['fix_bi_set'] / 10) * 10 + 9

		if cheatVars['fix_bi_set'] = 199:
			cheatVars['fix_bodyimg'] = 0
			cheatVars['fix_bi_set'] = 0
		end
	end
	gs 'body', 'UpdateBodyImage'
end


if $ARGS[0] = 'get_bodyimg_desc_link':
	$result = '<a <<iif(ARGS[2] = 0, '''', ''style="color:#00FF00"'')>> href="exec: view ''' + func('body_structure', 'body_img_from_class', ARGS[1], 0) + '''">' + func('body_structure', 'body_desc_from_class', ARGS[1]) + '</a>'
end




if $ARGS[0] = 'bdcustfolddisplay':
	if $cheatVars['fix_biset_<<ARGS[1]>>_folder'] ! '':
		if temp_cm_bi_flag = 0:
			*nl
			'You may edit aspects of a custom image set by clicking on their folder names below.'
		end
		*nl
		'<a <<iif((cheatVars[''fix_bodyimg''] = 1 and cheatVars[''fix_bi_set''] = ARGS[1]), ''style="color:#00FF00"'', '''')>> href="exec: gs ''Cheatmenu_din'', ''bdimdisplay'', <<ARGS[1]>>"><b><<$cheatVars[''fix_biset_<<ARGS[1]>>_folder'']>></b></a>'
		temp_cm_bi_flag += 1
	end
end


$cheatmenu['bdimdisplay'] = "gs 'Cheatmenu_din', 'bdimdisplay', ARGS[0]"
if $ARGS[0] = 'bdimdisplay':
	*clr & cla
	gs 'stat'
	'<center><h1>Cheat menu</h1></center>'
	*nl
	'<center><b>Body Image Set Display</b></center>'

	$cheatmenu['table_start']

	act 'Go Back': gs 'cheatmenu_din', 'bdimmain'
	'<a href="exec: gs ''cheatmenu_din'', ''bdimmain''"><b>Go Back</b></a>'
	*nl
	if cheatVars['fix_bodyimg'] = 1 and ARGS[1] = cheatVars['fix_bi_set']:
		'This is the currently locked set.'
		'<a href="exec: gs ''cheatmenu_din'', ''unlock_img_set'' & gs ''Cheatmenu_din'', ''bdimdisplay'', <<ARGS[1]>>"><b>Clear the lock.</b></a>'
	else
		'<a href="exec: gs ''cheatmenu_din'', ''lock_img_set'', <<ARGS[1]>> & gs ''Cheatmenu_din'', ''bdimdisplay'', <<ARGS[1]>>"><b>Use this set only.</b></a>'
	end
	*nl

	'"Edit image" allows you to set the image file name (only use .jpg images)'
	'"Edit description" allows you to set the description of the image'

	'Folder: <<$cheatVars[''fix_biset_<<ARGS[1]>>_folder'']>>'

	'Descriptors: (Displayed as "You are:")'

	$temp_base_folder = 'images/pc/body/shape/<<$cheatVars[''fix_biset_<<ARGS[1]>>_folder'']>>'

	$temp_table = '<table cellpadding = "10">'
	$temp_table +=	'<tr>'
	$temp_table +=		'<th></th>'
	$temp_table +=		'<th>Currently using</th>'
	$temp_table +=		'<th></th>'
	$temp_table +=		'<th></th>'
	$temp_table +=	'</tr>'
	$temp_table +=	'<tr>'
	$temp_table +=		func('cheatmenu_din', 'get_custom_bodyimg_desc_link', ARGS[1], 0)
	$temp_table +=	'</tr>'
	$temp_table +=	'<tr>'
	$temp_table +=		func('cheatmenu_din', 'get_custom_bodyimg_desc_link', ARGS[1], 1)
	$temp_table +=	'</tr>'
	$temp_table +=	'<tr>'
	$temp_table +=		func('cheatmenu_din', 'get_custom_bodyimg_desc_link', ARGS[1], 2)
	$temp_table +=	'</tr>'
	$temp_table +=	'<tr>'
	$temp_table +=		func('cheatmenu_din', 'get_custom_bodyimg_desc_link', ARGS[1], 3)
	$temp_table +=	'</tr>'
	$temp_table +=	'<tr>'
	$temp_table +=		func('cheatmenu_din', 'get_custom_bodyimg_desc_link', ARGS[1], 4)
	$temp_table +=	'</tr>'
	$temp_table +=	'<tr>'
	$temp_table +=		func('cheatmenu_din', 'get_custom_bodyimg_desc_link', ARGS[1], 5)
	$temp_table +=	'</tr>'
	$temp_table +=	'<tr>'
	$temp_table +=		func('cheatmenu_din', 'get_custom_bodyimg_desc_link', ARGS[1], 6)
	$temp_table +=	'</tr>'
	$temp_table +=	'<tr>'
	$temp_table +=		func('cheatmenu_din', 'get_custom_bodyimg_desc_link', ARGS[1], 7)
	$temp_table +=	'</tr>'
	$temp_table +=	'<tr>'
	$temp_table +=		func('cheatmenu_din', 'get_custom_bodyimg_desc_link', ARGS[1], 8)
	$temp_table +=	'</tr>'
	$temp_table += '</table>'

	'<<$temp_table>>'
	'<a href="exec: gs ''cheatmenu_din'', ''bdimcstdel'', <<ARGS[1]>>">Delete this set.</a>'
	killvar '$temp_table'

	$cheatmenu['table_end']
end

if $ARGS[0] = 'get_custom_bodyimg_desc_link':
	$temp_cmd_img_name = $cheatVars['fix_biset_<<ARGS[1]>>_img_<<ARGS[2]>>']
	$temp_cmd_desc = $cheatVars['fix_biset_<<ARGS[1]>>_desc_<<ARGS[2]>>']

	if $temp_cmd_img_name = '':
		$temp_cmd_image = func('body_structure', 'body_img_from_class', ARGS[2] * 100, 0)
		$temp_cmd_img_addon = 'Default image'
	else
		$temp_base_folder = 'images/pc/body/shape/<<$cheatVars[''fix_biset_<<ARGS[1]>>_folder'']>>'
		$temp_cmd_image = '<<$temp_base_folder>>/<<$temp_cmd_img_name>>.jpg'
		$temp_cmd_img_addon = '<<$temp_cmd_img_name>>.jpg (<a href="exec: gs ''Cheatmenu_din'', ''bdimcstimgdefault'', <<ARGS[2]>>">Use default image</a>)'
		killvar '$temp_base_folder'
	end

	if $temp_cmd_desc = '':
		$temp_cmd_desc = func('body_structure', 'body_desc_from_class', ARGS[2] * 100)
	end

	$result = '<td><a href="exec: view ''<<$temp_cmd_image>>''"><<$temp_cmd_desc>></a></td>'
	$result += '<td><<$temp_cmd_img_addon>></td>'
	$result += '<td><a href="exec: gs ''Cheatmenu_din'', ''bdimcstimged'', <<ARGS[1]>>, <<ARGS[2]>>">Edit image</a></td>'
	$result += '<td><a href="exec: gs ''Cheatmenu_din'', ''bdimcstdesed'', <<ARGS[1]>>, <<ARGS[2]>>">Edit description</a></td>'

	killvar '$temp_cmd_image'
	killvar '$temp_cmd_desc'
	killvar '$temp_cmd_img_addon'
	killvar '$temp_cmd_img_name'
end


$cheatmenu['bdimcstadd'] = "gs 'Cheatmenu_din', 'bdimcstadd'"
if $ARGS[0] = 'bdimcstadd':
	*clr & cla
	'<center><b>Body Image Set Addition</b></center>'
	$cheatmenu['table_start']
	act 'Go Back': killvar 'klsetask' & gs 'cheatmenu_din', 'bdimmain'
	'<a href="exec:killvar ''klsetask'' & gs ''cheatmenu_din'', ''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. 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: gs ''Cheatmenu_din'', ''bdimcstaddpro''">Add Image Set</a>'
	$cheatmenu['table_end']
end

$cheatmenu['bdimcstaddpro'] = "gs 'Cheatmenu_din', 'bdimcstaddpro'"
if $ARGS[0] = 'bdimcstaddpro':
	$tmpstrg = input("Enter folder name, do not include ''\''")
	if $tmpstrg = '':
		killvar '$tmpstrg'
		gs 'Cheatmenu_din', 'bdimcstadd'
	else
		cyci1 = 0
		:addcyc1
		if $cheatVars['fix_biset_<<cyci1>>_folder'] ! '': cyci1 += 1 & jump 'addcyc1'
		if cyci1 > 9:
			'You have encoutered error 1'
			'<a href="exec: gs ''cheatmenu_din'', ''bdimmain''"><b>Go Back</b></a>'
			exit
		end
		ARGS[1] = cyci1

		if mid($tmpstrg, len($tmpstrg)) = '/' or mid($tmpstrg, len($tmpstrg)) = '\':
			$tmpstrg = mid($tmpstrg, 1, len($tmpstrg)-1)
		end

		cyci1 = 0
		:addcyc2
			$cheatVars['fix_biset_<<ARGS[1]>>_desc_<<cyci1>>'] = func('body_structure', 'body_desc_from_class', cyci1 * 100)
			cyci1 += 1
		if cyci1 < 9: jump 'addcyc2'

		$cheatVars['fix_biset_<<ARGS[1]>>_folder'] = $tmpstrg
		killvar '$tmpstrg'
		killvar 'cyci1'

		gs 'Cheatmenu_din', 'bdimdisplay', ARGS[1]
	end
end

$cheatmenu['bdimcstdesed'] = "gs 'Cheatmenu_din', 'bdimcstdesed', ARGS[0], ARGS[1]"
if $ARGS[0] = 'bdimcstdesed':
	$tmpstrg = input("Enter a new descriptor")
	if $tmpstrg ! '':
		$cheatVars['fix_biset_<<ARGS[1]>>_desc_<<ARGS[2]>>'] = $tmpstrg
		if cheatVars['fix_bi_set'] = ARGS[1]: gs 'body', 'UpdateBodyImage'
	end

	killvar '$tmpstrg'
	gs 'Cheatmenu_din', 'bdimdisplay', ARGS[1]
end

if $ARGS[0] = 'bdimcstimged':
	$tmpstrg = input("Enter a new image name (Leave empty to not change the image. Example: 1). Exclude the '.jpg'")
	if $tmpstrg ! '':
		if mid($tmpstrg, len($tmpstrg)-3) = '.jpg':
			$tmpstrg = mid($tmpstrg, 1, len($tmpstrg)-4)
		end
		$cheatVars['fix_biset_<<ARGS[1]>>_img_<<ARGS[2]>>'] = $tmpstrg
		if cheatVars['fix_bi_set'] = ARGS[1]: gs 'body', 'UpdateBodyImage'
	end

	killvar '$tmpstrg'
	gs 'Cheatmenu_din', 'bdimdisplay', ARGS[1]
end

if $ARGS[0] = 'bdimcstimgdefault':
	$cheatVars['fix_biset_<<ARGS[1]>>_img_<<ARGS[2]>>'] = ''
	gs 'Cheatmenu_din', 'bdimdisplay', ARGS[1]
end


$cheatmenu['bdimcstdel'] = "gs 'Cheatmenu_din', 'bdimcstdel', ARGS[0]"
if $ARGS[0] = 'bdimcstdel':
	*clr & cla
	'<center><b>Body Image Set Removal</b></center>'
	$cheatmenu['table_start']

	'<a href="exec: killvar ''klsetask'' & gs ''Cheatmenu_din'', ''bdimdisplay'', <<ARGS[1]>>"><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 & gs ''Cheatmenu_din'', ''bdimcstdel'', <<ARGS[1]>>"><b>Are you sure you want to remove set <<$cheatVars[''fix_biset_<<ARGS[1]>>_folder'']>>?</b></a>'
	elseif klsetask = 2:
		if cheatVars['fix_bodyimg'] = 1 and cheatVars['fix_bi_set'] = ARGS[1]: cheatVars['fix_bodyimg'] = 0 & cheatVars['fix_bi_set'] = 0

		cyci1 = 0
		:del_bodimgset_loop
			gs 'shortgs', 'remove_array_element', 'cheatVars', 'fix_biset_<<ARGS[1]>>_img_<<cyci1>>'
			gs 'shortgs', 'remove_array_element', 'cheatVars', 'fix_biset_<<ARGS[1]>>_desc_<<cyci1>>'
			cyci1 += 1
		if cyci1 < 9: jump 'del_bodimgset_loop'
		gs 'shortgs', 'remove_array_element', 'cheatVars','fix_biset_<<ARGS[1]>>_folder'

		killvar 'cyci1'
		killvar 'klsetask'
		gs 'cheatmenu_din', 'bdimmain'
	else
		'<a href="exec: klsetask = 1 & gs ''Cheatmenu_din'', ''bdimcstdel'', <<ARGS[1]>>">Remove set <<$cheatVars[''fix_biset_<<ARGS[1]>>_folder'']>>?</a>'
	end
	$cheatmenu['table_end']
end


!!----------------------------------------------------------------------------------------------------------------------------
!! About Window
!!----------------------------------------------------------------------------------------------------------------------------

$cheatmenu['about'] = "gs 'Cheatmenu_din', 'about'"
if $ARGS[0] = 'about':
	*clr & cla
	gs 'stat'
	gs 'obj_din', 'settingtabs'
	gs 'saveg'
	gs 'addbuilddate'
	'<center><h1>About Window</h1></center>'
	$cheatmenu['table_start']
	'<tr><td><h3><center>Girl Life version <<version_major+"."+version_minor+"."+version_revision+"."+version_patch+iif($git_hash ! "", "<br>"+$git_hash+" (dev build)", "")>></center></h3></td></tr>'
	'<tr><td><h3><center>built on <<$builddate>></center></h3></td></tr>'
	'<tr><td><h5><center>if loaded so it was the save from</center></h5></td></tr>'
	'<tr><td cellspacing="0" cellpadding="20" valign="top"><center><<$version>></center></td></tr>'
	$cheatmenu['table_end']
	killvar '$tmp'
end

!!----------------------------------------------------------------------------------------------------------------------------
!! Items
!!----------------------------------------------------------------------------------------------------------------------------

$cheatmenu['items'] = "gs 'Cheatmenu_din', 'items'"
if $ARGS[0] = 'items':
	*clr & cla
	gs 'stat'
	gs 'obj_din', 'cheattabs'
	'<center><h1>Cheat Menu - Items</h1></center>'

	'<center><h4>Pharmacy items</h4>'
	if showPharmacyItems = 0:
		'<a href = "exec: showPharmacyItems = 1 & dynamic $cheatmenu[''items'']">Show Details </a>'
	end

	if showPharmacyItems = 1:
		'<a href = "exec: showPharmacyItems = 0 & dynamic $cheatmenu[''items'']">Hide Details </a>'
		*pl 'Morning after pill: <a href="exec:mc_inventory[''morning_after_pill'']=input(''Set number'') & dynamic $cheatmenu[''items'']"><b> <<mc_inventory[''morning_after_pill'']>> </b></a>'
		*pl 'Condoms: <a href="exec:mc_inventory[''normal_condoms'']=input(''Set number'') & dynamic $cheatmenu[''items'']"><b> <<mc_inventory[''normal_condoms'']>> </b></a>'
		*pl 'Pregnancy test: <a href="exec:mc_inventory[''pregnancy_test'']=input(''Set number'') & dynamic $cheatmenu[''items'']"><b> <<mc_inventory[''pregnancy_test'']>> </b></a>'
		*pl 'Birth control pills: <a href="exec:mc_inventory[''contraceptive_pill'']=input(''Set number'') & dynamic $cheatmenu[''items'']"><b> <<mc_inventory[''contraceptive_pill'']>> </b></a>'
		*pl 'Antibiotics: <a href="exec:mc_inventory[''antibiotics'']=input(''Set number'') & dynamic $cheatmenu[''items'']"><b> <<mc_inventory[''antibiotics'']>> </b></a>'
		*pl 'Vitamins: <a href="exec:mc_inventory[''vitamins'']=input(''Set number'') & dynamic $cheatmenu[''items'']"><b> <<mc_inventory[''vitamins'']>> </b></a>'
		*pl 'Painkillers: <a href="exec:mc_inventory[''painkillers'']=input(''Set number'') & dynamic $cheatmenu[''items'']"><b> <<mc_inventory[''painkillers'']>> </b></a>'
		*pl 'Ointments for chafing: <a href="exec:mc_inventory[''chafing_cream'']=input(''Set number'') & dynamic $cheatmenu[''items'']"><b> <<mc_inventory[''chafing_cream'']>> </b></a>'
		*pl 'Lubricants: <a href="exec:mc_inventory[''lubricant'']=input(''Set number'') & dynamic $cheatmenu[''items'']"><b> <<mc_inventory[''lubricant'']>> </b></a>'
		*pl 'Lip balms: <a href="exec:mc_inventory[''lipbalm'']=input(''Set number'') & dynamic $cheatmenu[''items'']"><b> <<mc_inventory[''lipbalm'']>> </b></a>'
		*pl 'Weight loss pill: <a href="exec:mc_inventory[''weight_loss_pill'']=input(''Set number'') & dynamic $cheatmenu[''items'']"><b> <<mc_inventory[''weight_loss_pill'']>> </b></a>'
		*pl 'Tampons: <a href="exec:mc_inventory[''tampons'']=input(''Set number'') & dynamic $cheatmenu[''items'']"><b> <<mc_inventory[''tampons'']>> </b></a>'
		*pl 'Sanitary napkins: <a href="exec:mc_inventory[''sanitary_pads'']=input(''Set number'') & dynamic $cheatmenu[''items'']"><b> <<mc_inventory[''sanitary_pads'']>> </b></a>'

		if mc_inventory['enema_kit'] = 0:
			*pl 'Enema kit: <a href="exec:mc_inventory[''enema_kit''] = 1 & dynamic $cheatmenu[''items'']"><b>none</b></a>'
		end
		if mc_inventory['enema_kit'] = 1:
			*pl 'Enema kit: <a href="exec:mc_inventory[''enema_kit''] = 0 & dynamic $cheatmenu[''items'']"><b>owned</b></a>'
		end

		if mc_inventory['breast_pump'] = 0:
			*pl 'Breast pump: <a href="exec:mc_inventory[''breast_pump''] = 1 & dynamic $cheatmenu[''items'']"><b>none</b></a>'
		end
		if mc_inventory['breast_pump'] = 1:
			*pl 'Breast pump: <a href="exec:mc_inventory[''breast_pump''] = 0 & dynamic $cheatmenu[''items'']"><b>owned</b></a>'
		end

		*pl 'Breastmilk bottle S: <a href="exec:mc_inventory[''bottle_s'']=input(''Set number'') & dynamic $cheatmenu[''items'']"><b> <<mc_inventory[''bottle_s'']>> </b></a>'
		*pl 'Breastmilk bottle M: <a href="exec:mc_inventory[''bottle_m'']=input(''Set number'') & dynamic $cheatmenu[''items'']"><b> <<mc_inventory[''bottle_m'']>> </b></a>'
	end

	'<h4>Food items</h4>'
	if showFoodItems = 0:
		'<a href = "exec: showFoodItems = 1 & dynamic $cheatmenu[''items'']">Show Details </a>'
	end

	if showFoodItems = 1:
		'<a href = "exec: showFoodItems = 0 & dynamic $cheatmenu[''items'']">Hide Details </a>'
		*pl 'Regular food: <a href="exec:mc_inventory[''food_basic'']=input(''Set number'') & dynamic $cheatmenu[''items'']"><b> <<mc_inventory[''food_basic'']>> </b></a>'
		*pl 'Diet food: <a href="exec:mc_inventory[''food_diet'']=input(''Set number'') & dynamic $cheatmenu[''items'']"><b> <<mc_inventory[''food_diet'']>> </b></a>'
		*pl 'Tea biscuits: <a href="exec:mc_inventory[''food_biscuits'']=input(''Set number'') & dynamic $cheatmenu[''items'']"><b> <<mc_inventory[''food_biscuits'']>> </b></a>'

		if bag > 0:
			if mc_inventory['food_water'] = 0:
				*pl 'Bottle of water: <a href="exec:mc_inventory[''food_water''] = 1 & dynamic $cheatmenu[''items'']"><b>none</b></a>'
			end
			if mc_inventory['food_water'] = 1:
				*pl 'Bottle of water: <a href="exec:mc_inventory[''food_water''] = 0 & dynamic $cheatmenu[''items'']"><b>owned</b></a>'
			end

			if mc_inventory['food_sandwich'] = 0:
				*pl 'Sandwich: <a href="exec:mc_inventory[''food_sandwich''] = 1 & dynamic $cheatmenu[''items'']"><b>none</b></a>'
			end
			if mc_inventory['food_sandwich'] = 1:
				*pl 'Sandwich: <a href="exec:mc_inventory[''food_sandwich''] = 0 & dynamic $cheatmenu[''items'']"><b>owned</b></a>'
			end

			if mc_inventory['food_wine'] = 0:
				*pl 'Cheap Bottle of wine: <a href="exec:mc_inventory[''food_wine''] = 1 & dynamic $cheatmenu[''items'']"><b>none</b></a>'
			end
			if mc_inventory['food_wine'] = 1:
				*pl 'Cheap Bottle of wine: <a href="exec:mc_inventory[''food_wine''] = 0 & dynamic $cheatmenu[''items'']"><b>owned</b></a>'
			end
		end
	end

	'<h4>Cosmetics items</h4>'
	if showCosmeticsItems = 0:
		'<a href = "exec:showCosmeticsItems = 1 & dynamic $cheatmenu[''items'']">Show Details </a>'
	end

	if showCosmeticsItems = 1:
		'<a href = "exec:showCosmeticsItems = 0 & dynamic $cheatmenu[''items'']">Hide Details </a>'
		*pl 'Cosmetics: <a href="exec:mc_inventory[''cosmetics''] =input(''Set number'') & dynamic $cheatmenu[''items'']"><b> <<mc_inventory[''cosmetics'']>> </b></a>'
		*pl 'Moisturiser: <a href="exec:mc_inventory[''moisturiser'']=input(''Set number'') & dynamic $cheatmenu[''items'']"><b> <<mc_inventory[''moisturiser'']>> </b></a>'
		*pl 'Lip balms: <a href="exec:mc_inventory[''lipbalm'']=input(''Set number'') & dynamic $cheatmenu[''items'']"><b> <<mc_inventory[''lipbalm''] >> </b></a>'
		*pl 'Plain false lashes: <a href="exec:mc_inventory[''eyelash_fake'']=input(''Set number'') & dynamic $cheatmenu[''items'']"><b> <<mc_inventory[''eyelash_fake'']>> </b></a>'
		*pl 'Mink false lashes: <a href="exec:mc_inventory[''eyelash_mink'']=input(''Set number'') & dynamic $cheatmenu[''items'']"><b> <<mc_inventory[''eyelash_mink'']>> </b></a>'
		*pl 'Razors: <a href="exec:mc_inventory[''razor'']=input(''Set number'') & dynamic $cheatmenu[''items'']"><b> <<mc_inventory[''razor'']>> </b></a>'
		*pl 'Sunblock: <a href="exec:mc_inventory[''suncream'']=input(''Set number'') & dynamic $cheatmenu[''items'']"><b> << mc_inventory[''suncream'']>> </b></a>'
		*pl 'Deodorant: <a href="exec:mc_inventory[''deodorant'']=input(''Set number'') & dynamic $cheatmenu[''items'']"><b> <<mc_inventory[''deodorant'']>> </b></a>'
		*pl 'Tampons: <a href="exec:mc_inventory[''tampons'']=input(''Set number'') & dynamic $cheatmenu[''items'']"><b> <<mc_inventory[''tampons'']>> </b></a>'
		*pl 'Sanitary Napkins: <a href="exec:mc_inventory[''sanitary_pads'']=input(''Set number'') & dynamic $cheatmenu[''items'']"><b> <<mc_inventory[''sanitary_pads'']>> </b></a>'
		*pl 'Shampoo: <a href="exec:mc_inventory[''shampoo'']=input(''Set number'') & dynamic $cheatmenu[''items'']"><b> <<mc_inventory[''shampoo'']>> </b></a>'
		*pl 'Hair scrunchies: <a href="exec:mc_inventory[''scrunchies'']=input(''Set number'') & dynamic $cheatmenu[''items'']"><b> <<mc_inventory[''scrunchies'']>> </b></a>'
		*pl 'Hair pins: <a href="exec:mc_inventory[''kirbygrips'']=input(''Set number'') & dynamic $cheatmenu[''items'']"><b> <<mc_inventory[''kirbygrips'']>> </b></a>'

		if bag = 1:
			*pl 'Wipes: <a href="exec:mc_inventory[''makeup_wipes'']=input(''Set number'') & dynamic $cheatmenu[''items'']"><b> <<mc_inventory[''makeup_wipes'']>> </b></a>'
			*pl 'Portable makeup: <a href="exec:mc_inventory[''travel_makeup'']=input(''Set number'') & dynamic $cheatmenu[''items'']"><b> <<mc_inventory[''travel_makeup'']>> </b></a>'
			*pl 'Mouthwash: <a href="exec:mc_inventory[''mouthwash'']=input(''Set number'') & dynamic $cheatmenu[''items'']"><b> <<mc_inventory[''mouthwash'']>> </b></a>'

			if mc_inventory['comb'] =  0:
				*pl 'Comb: <a href="exec:mc_inventory[''comb''] =  1 & dynamic $cheatmenu[''items'']"><b>none</b></a>'
			end
			if mc_inventory['comb'] =  1:
				*pl 'Comb: <a href="exec:mc_inventory[''comb''] =  0 & dynamic $cheatmenu[''items'']"><b>owned</b></a>'
			end

			if mc_inventory['travel_mirror'] =  0:
				*pl 'Compact mirror: <a href="exec:mc_inventory[''travel_mirror''] =  1 & dynamic $cheatmenu[''items'']"><b>none</b></a>'
			end
			if mc_inventory['travel_mirror'] =  1:
				*pl 'Compact mirror: <a href="exec:mc_inventory[''travel_mirror''] =  0 & dynamic $cheatmenu[''items'']"><b>owned</b></a>'
			end
		end
	end

	'<h4>Hardware items</h4>'
	if showHardwareItems = 0:
		'<a href = "exec: showHardwareItems = 1 & dynamic $cheatmenu[''items'']">Show Details </a>'
	end
	if showHardwareItems = 1:
		'<a href = "exec: showHardwareItems = 0 & dynamic $cheatmenu[''items'']">Hide Details </a>'
		*pl 'Dishwashing detergent: <a href="exec:mc_inventory[''dish_soap'']=input(''Set number'') & dynamic $cheatmenu[''items'']"><b> <<mc_inventory[''dish_soap'']>> </b></a>'
		*pl 'Clothing detergent: <a href="exec:mc_inventory[''laundry_soap'']=input(''Set number'') & dynamic $cheatmenu[''items'']"><b> <<mc_inventory[''laundry_soap'']>> </b></a>'
		*pl 'Plates: <a href="exec:mc_inventory[''dish_plates'']=input(''Set number'') & dynamic $cheatmenu[''items'']"><b> <<mc_inventory[''dish_plates'']>> </b></a>'
		*pl 'Fabric: <a href="exec:mc_inventory[''sewing_fabric'']=input(''Set number'') & dynamic $cheatmenu[''items'']"><b> <<mc_inventory[''sewing_fabric'']>> </b></a>'

		if mc_inventory['sewing_kit'] = 0:
			*pl 'Sewing kit: <a href="exec:mc_inventory[''sewing_kit''] = 1 & dynamic $cheatmenu[''items'']"><b>none</b></a>'
		end
		if mc_inventory['sewing_kit'] = 1:
			*pl 'Sewing kit: <a href="exec:mc_inventory[''sewing_kit''] = 1 & dynamic $cheatmenu[''items'']"><b>owned</b></a>'
		end

		if bag = 1:
			if mc_inventory['umbrella'] = 0:
				*pl 'Umbrella: <a href="exec:mc_inventory[''umbrella''] = 1 & dynamic $cheatmenu[''items'']"><b>none</b></a>'
			end
			if mc_inventory['umbrella'] = 1:
				*pl 'Umbrella: <a href="exec:mc_inventory[''umbrella''] = 0 & dynamic $cheatmenu[''items'']"><b>owned</b></a>'
			end
		end
	end

	'<h4>Narcotics items</h4>'
	if showNarcoticsItems = 0:
		'<a href = "exec: showNarcoticsItems = 1 & dynamic $cheatmenu[''items'']">Show Details </a>'
	end
	if showNarcoticsItems = 1:
		'<a href = "exec: showNarcoticsItems = 0 & dynamic $cheatmenu[''items'']">Hide Details </a>'
		*pl 'Cigarettes: <a href="exec:mc_inventory[''cigarettes'']=input(''Set number'') & dynamic $cheatmenu[''items'']"><b> <<mc_inventory[''cigarettes'']>> </b></a>'
		*pl 'Joints: <a href="exec:mc_inventory[''joints'']=input(''Set number'') & dynamic $cheatmenu[''items'']"><b> <<mc_inventory[''joints'']>> </b></a>'
		*pl 'Cocaine: <a href="exec:mc_inventory[''cocaine'']=input(''Set number'') & dynamic $cheatmenu[''items'']"><b> <<mc_inventory[''cocaine'']>> </b></a>'
		*pl 'Amphetamine: <a href="exec:mc_inventory[''amphetamine'']=input(''Set number'') & dynamic $cheatmenu[''items'']"><b> <<mc_inventory[''amphetamine'']>> </b></a>'
		*pl 'Neuroboosters: <a href="exec:mc_inventory[''mentats'']=input(''Set number'') & dynamic $cheatmenu[''items'']"><b> <<mc_inventory[''mentats'']>> </b></a>'
		*pl 'Steroids: <a href="exec:mc_inventory[''steroids'']=input(''Set number'') & dynamic $cheatmenu[''items'']"><b> <<mc_inventory[''steroids'']>> </b></a>'
		*pl 'Breast cream: <a href="exec:mc_inventory[''breastcream'']=input(''Set number'') & dynamic $cheatmenu[''items'']"><b> <<mc_inventory[''breastcream'']>> </b></a>'
		*pl 'Aphrodisiacs: <a href="exec:mc_inventory[''aphrodisiac'']=input(''Set number'') & dynamic $cheatmenu[''items'']"><b> <<mc_inventory[''aphrodisiac'']>> </b></a>'
	end
	'<h4>Sex shop items</h4>'
	if showSexItems = 0:
		'<a href = "exec: showSexItems = 1 & dynamic $cheatmenu[''items'']">Show Details </a>'
	end
	if showSexItems = 1:
		'<a href = "exec: showSexItems = 0 & dynamic $cheatmenu[''items'']">Hide Details </a>'

		if mc_inventory['mag_porn'] = 0:
			*pl 'Porn magazine: <a href="exec:mc_inventory[''mag_porn''] = 1 & dynamic $cheatmenu[''items'']"><b>none</b></a>'
		end
		if mc_inventory['mag_porn'] = 1:
			*pl 'Porn magazine: <a href="exec:mc_inventory[''mag_porn''] = 0 & dynamic $cheatmenu[''items'']"><b>owned</b></a>'
		end

		if mc_inventory['vibe'] = 0:
			*pl 'Vibrator: <a href="exec:mc_inventory[''vibe''] = 1 & dynamic $cheatmenu[''items'']"><b>none</b></a>'
		end
		if mc_inventory['vibe'] = 1:
			*pl 'Vibrator: <a href="exec:mc_inventory[''vibe''] = 0 & dynamic $cheatmenu[''items'']"><b>owned</b></a>'
		end

		if mc_inventory['buttplug'] = 0:
			*pl 'Butt plug: <a href="exec:mc_inventory[''buttplug''] = 1 & dynamic $cheatmenu[''items'']"><b>none</b></a>'
		end
		if mc_inventory['buttplug'] = 1:
			*pl 'Butt plug: <a href="exec:mc_inventory[''buttplug''] = 0 & dynamic $cheatmenu[''items'']"><b>owned</b></a>'
		end

		*pl '15cm suction dildo: <a href="exec:mc_inventory[''dildo_suction'']=input(''Set number'') & dynamic $cheatmenu[''items'']"><b> <<mc_inventory[''dildo_suction'']>> </b></a>'

		if mc_inventory['strapon'] = 0:
			*pl 'Strap-on harness: <a href="exec:mc_inventory[''strapon''] = 1 & dynamic $cheatmenu[''items'']"><b>none</b></a>'
		end
		if mc_inventory['strapon'] = 1:
			*pl 'Strap-on harness: <a href="exec:mc_inventory[''strapon''] = 0 & dynamic $cheatmenu[''items'']"><b>owned</b></a>'
		end

		if mc_inventory['dildo_small'] = 0:
			*pl '10cm dildo: <a href="exec:mc_inventory[''dildo_small''] = 1 & dynamic $cheatmenu[''items'']"><b>none</b></a>'
		end
		if mc_inventory['dildo_small'] = 1:
			*pl '10cm dildo: <a href="exec:mc_inventory[''dildo_small''] = 0 & dynamic $cheatmenu[''items'']"><b>owned</b></a>'
		end

		if mc_inventory['dildo_normal'] = 0:
			*pl '15cm dildo: <a href="exec:mc_inventory[''dildo_normal''] = 1 & dynamic $cheatmenu[''items'']"><b>none</b></a>'
		end
		if mc_inventory['dildo_normal'] = 1:
			*pl '15cm dildo: <a href="exec:mc_inventory[''dildo_normal''] = 0 & dynamic $cheatmenu[''items'']"><b>owned</b></a>'
		end

		if mc_inventory['dildo_big'] = 0:
			*pl '20cm dildo: <a href="exec:mc_inventory[''dildo_big''] = 1 & dynamic $cheatmenu[''items'']"><b>none</b></a>'
		end
		if mc_inventory['dildo_big'] = 1:
			*pl '20cm dildo: <a href="exec:mc_inventory[''dildo_big''] = 0 & dynamic $cheatmenu[''items'']"><b>owned</b></a>'
		end

		if mc_inventory['dildo_large'] = 0:
			*pl '25cm dildo: <a href="exec:mc_inventory[''dildo_large''] = 1 & dynamic $cheatmenu[''items'']"><b>none</b></a>'
		end
		if mc_inventory['dildo_large'] = 1:
			*pl '25cm dildo: <a href="exec:mc_inventory[''dildo_large''] = 0 & dynamic $cheatmenu[''items'']"><b>owned</b></a>'
		end

		if mc_inventory['dildo_huge'] = 0:
			*pl '30cm dildo: <a href="exec:mc_inventory[''dildo_huge''] = 1 & dynamic $cheatmenu[''items'']"><b>none</b></a>'
		end
		if mc_inventory['dildo_huge'] = 1:
			*pl '30cm dildo: <a href="exec:mc_inventory[''dildo_huge''] = 0 & dynamic $cheatmenu[''items'']"><b>owned</b></a>'
		end

		if mc_inventory['dildo_enormous'] = 0:
			*pl '35cm dildo: <a href="exec:mc_inventory[''dildo_enormous''] = 1 & dynamic $cheatmenu[''items'']"><b>none</b></a>'
		end
		if mc_inventory['dildo_enormous'] = 1:
			*pl '35cm dildo: <a href="exec:mc_inventory[''dildo_enormous''] = 0 & dynamic $cheatmenu[''items'']"><b>owned</b></a>'
		end

		if mc_inventory['dildo_gigantic'] = 0:
			*pl '40cm dildo: <a href="exec:mc_inventory[''dildo_gigantic''] = 1 & dynamic $cheatmenu[''items'']"><b>none</b></a>'
		end
		if mc_inventory['dildo_gigantic'] = 1:
			*pl '40cm dildo: <a href="exec:mc_inventory[''dildo_gigantic''] = 0 & dynamic $cheatmenu[''items'']"><b>owned</b></a>'
		end
	end
	'</center>'
end

--- Cheatmenu_din ---------------------------------