glife/locations/obj_din.qsrc

# obj_din

if $ARGS[0] = 'chartabs':
	cla
	!0: Character
	!1: Skills
	!2: Stats
	!4: Pain
	!5: Traits
	!6: Renown
	!7: Magic
	$tabsname[] = 'Character'
	$tabsaction[] = 'menu_page = 0 & gs ''obj_din'', ''description'''
	$tabsname[] = 'Skills'
	$tabsaction[] = 'menu_page = 1 & gs ''obj_din'', ''skills'''
	$tabsname[] = 'Statistics'
	$tabsaction[] = 'menu_page = 2 & gs ''obj_din'', ''stats'''
	$tabsname[] = 'Pain'
	$tabsaction[] = 'menu_page = 3 & gs ''obj_din'', ''pain'''
	$tabsname[] = 'Traits'
	$tabsaction[] = 'menu_page = 4 & gs ''traits'', ''menu'''
	$tabsname[] = 'Renown'
	$tabsaction[] = 'menu_page = 5 & gs ''obj_din'', ''reputation'''
	if $start_type[1] ! 'nomagic':
		$tabsname[] = 'Magic'
		$tabsaction[] = 'menu_page = 6 & gs ''obj_din'', ''magic'''
	end
	gs 'tabhead',menu_page
	act 'Exit the menu': gs 'obj_din', 'menu_exit' & gt $menu_loc, $menu_arg
end

if $ARGS[0] = 'bodytabs':
	cla
	!0: Face
	!1: Body
	!2: Clothes
	!3: Tattoos
	!4: Piercings
	$tabsname[] = 'Looks'
	$tabsaction[] = 'menu_page = 0 & gs ''obj_din'', ''face'''
	$tabsname[] = 'Body'
	$tabsaction[] = 'menu_page = 1 & gs ''obj_din'', ''body'''
	$tabsname[] = 'Clothes'
	$tabsaction[] = 'menu_page = 2 & gs ''obj_din'', ''clothes'''
	$tabsname[] = 'Tattoos'
	$tabsaction[] = 'menu_page = 3 & gs ''obj_din'', ''tattoos'''
	$tabsname[] = 'Piercings'
	$tabsaction[] = 'menu_page = 4 & gs ''obj_din'', ''piercing'''
	gs 'tabhead',menu_page
	act 'Exit the menu': gs 'obj_din', 'menu_exit' & gt $menu_loc, $menu_arg
end

if $ARGS[0] = 'settingtabs':
	cla
	!0: Gameplay
	!1: Glossary
	!2: Display
	!3: Status
	!4: Phone
	!5: Mods
	!6: About
	$tabsname[] = 'Gameplay Settings'
	$tabsaction[] = 'menu_page = 0 & dynamic $cheatmenu[''setting'']'
	$tabsname[] = 'Glossary'
	$tabsaction[] = 'menu_page = 1 & gt ''stat_explanations'', ''start'''
	$tabsname[] = 'Display Settings'
	$tabsaction[] = 'menu_page = 2 & dynamic $cheatmenu[''display'']'
	$tabsname[] = 'Status Window Settings'
	$tabsaction[] = 'menu_page = 3 & dynamic $cheatmenu[''status'']'
	if settingmode ! 1:
		$tabsname[] = 'Phone Theme Settings'
		$tabsaction[] = 'menu_page = 4 & dynamic $cheatmenu[''theme'']'
		$tabsname[] = 'Mods'
		$tabsaction[] = 'menu_page = 5 & gt ''mod_setting'''
		$tabsname[] = 'About'
		$tabsaction[] = 'menu_page = 6 & dynamic $cheatmenu[''about'']'
	else
		$tabsname[] = 'Mods'
		$tabsaction[] = 'menu_page = 4 & gt ''mod_setting'''
		$tabsname[] = 'About'
		$tabsaction[] = 'menu_page = 5 & dynamic $cheatmenu[''about'']'
	end
	gs 'tabhead',menu_page
	if settingmode = 1:
		act '<center><b>Return to character creation</b></center>':
			killvar 'menu_page'
			settingmode = 0
			gt 'begin', 'start'
		end
	else
		!call from Menu - Game settings
		act 'Enter cheat menu': killvar 'menu_page' & gs '$menu_cheat'
		act 'Get Game Settings': killvar 'menu_page' & gt 'initg', 'get_game_set'
		act 'Set Game Settings': killvar 'menu_page' & gt 'initg', 'set_game_set'
		act 'Emergency Exit': gs 'obj_din', 'menu_exit' & gt 'obj_din', 'emergency'
		act 'Exit the menu': gs 'obj_din', 'menu_exit' & gt $menu_loc, $menu_arg
	end
end

if $ARGS[0] = 'cheattabs':
	cla
	!0: Index
	!1: Recurrent
	!2: State
	!3: Appearance
	!4: Skill
	!5: Relationships
	!6: Documents
	!7: Magic
	!8: Time
	!9: NPCChanger
	!10: Pain
	!11: DNA
	!12: ImageSets
	!13: Items
	!14: fame
	'<center><b><table width="90%" cellspacing="0" cellpadding="10" align="center" valign="top"><tr>'

	if menu_page = 0:
		$cheat_tab_list = '<th>Index</th>'
	else
		$cheat_tab_list = '<th><a href="exec:menu_page = 0 & dynamic $cheatmenu[''index'']">Index</a></th>'
	end

	if menu_page = 1:
		$cheat_tab_list += '<th>Recurrent</th>'
	else
		$cheat_tab_list += '<th><a href="exec:menu_page = 1 & dynamic $cheatmenu[''permanent'']">Recurrent</a></th>'
	end

	if menu_page = 2:
		$cheat_tab_list += '<th>State</th>'
	else
		$cheat_tab_list += '<th><a href="exec:menu_page = 2 & dynamic $cheatmenu[''state'']">State</a></th>'
	end

	if menu_page = 3:
		$cheat_tab_list += '<th>Appearance</th>'
	else
		$cheat_tab_list += '<th><a href="exec:menu_page = 3 & dynamic $cheatmenu[''looks'']">Appearance</a></th>'
	end

	if menu_page = 4:
		$cheat_tab_list += '<th>Skill</th>'
	else
		$cheat_tab_list += '<th><a href="exec:menu_page = 4 & dynamic $cheatmenu[''stats'']">Skill</a></th>'
	end

	$cheat_tab_list += '<tr>'

	if menu_page = 5:
		$cheat_tab_list += '<th>Relationships</th>'
	else
		$cheat_tab_list += '<th><a href="exec:menu_page = 5 & dynamic $cheatmenu[''reputation'']">Relationships</a></th>'
	end

	if menu_page = 6:
		$cheat_tab_list += '<th>Documents</th>'
	else
		$cheat_tab_list += '<th><a href="exec:menu_page = 6 & dynamic $cheatmenu[''documents'']">Documents</a></th>'
	end

	if menu_page = 7:
		if $start_type[1] = 'nomagic':
			$cheat_tab_list += ''
		else
			$cheat_tab_list += '<th>Magic</th>'
		end
	else
		if $start_type[1] = 'nomagic':
			$cheat_tab_list += ''
		else
			$cheat_tab_list += '<th><a href="exec:menu_page = 7 & dynamic $cheatmenu[''magic'']">Magic</a></th>'
		end
	end

	if menu_page = 8:
		$cheat_tab_list += '<th>Time</th>'
	else
		$cheat_tab_list += '<th><a href="exec:menu_page = 8 & dynamic $cheatmenu[''time'']">Time</a></th>'
	end

	if menu_page = 9:
		$cheat_tab_list += '<th>NPC Editor</th>'
	else
		$cheat_tab_list += '<th><a href="exec:menu_page = 9 & gs ''NPCChanger'', ''Start''">NPC Editor</a></th>'
	end

	if menu_page = 15:
		$cheat_tab_list += '<th>NPC Finder</th>'
	else
		$cheat_tab_list += '<th><a href="exec:menu_page = 15 & gs ''npc_finder''">NPC Finder</a></th>'
	end

	$cheat_tab_list += '<tr>'

	if menu_page = 10:
		$cheat_tab_list += '<th>Pain</th>'
	else
		$cheat_tab_list += '<th><a href="exec:menu_page = 10 & dynamic $cheatmenu[''pain'']">Pain</a></th>'
	end

	if menu_page = 11:
		$cheat_tab_list += '<th>DNA</th>'
	else
		$cheat_tab_list += '<th><a href="exec:menu_page = 11 & dynamic $cheatmenu[''DNA'']">DNA</a></th>'
	end

	if menu_page = 12:
		$cheat_tab_list += '<th>Image Sets</th>'
	else
		$cheat_tab_list += '<th><a href="exec:menu_page = 12 & dynamic $cheatmenu[''bdimmain'']">Image Sets</a></th>'
	end

	if menu_page = 13:
		$cheat_tab_list += '<th>Items</th>'
	else
		$cheat_tab_list += '<th><a href="exec:menu_page = 13 & dynamic $cheatmenu[''items'']">Items</a></th>'
	end

	if menu_page = 14:
		$cheat_tab_list += '<th>Fame</th>'
	else
		$cheat_tab_list += '<th><a href="exec:menu_page = 14 & dynamic $cheatmenu[''fame'']">Fame</a></th>'
	end

	$cheat_tab_list += '</table></b></center>'

	$cheat_tab_list

	act 'Settings menu': gs 'obj_din', 'menu_exit' & gs '$menu_setting'
	act 'Emergency Exit': gs 'obj_din', 'menu_exit' & gt 'obj_din', 'emergency'
	act 'Exit the menu': gs 'obj_din', 'menu_exit' & gt $menu_loc, $menu_arg
end

if $ARGS[0] = 'menu_exit':
	settingmode = 0
	menu_off = 0
	killvar 'cheatmenu'
	killvar 'menu_page'
end

if $ARGS[0] = 'menu_disabled': '<font color="red"><b>Menu is disabled for this event</b></font>'

if $ARGS[0] = 'description':
	*clr & cla
	$BACKIMAGE = ''
	gs 'obj_din','chartabs'
	gs 'AppearanceSystem'
	gs 'body_desc'
	!'<center><img src="images/system/icons/description.png"><br></center>'
	'<center><h1>Character Description</h1></center>'

	'<center><table width="90%" cellspacing="0" cellpadding="20" valign="top"><tr><td>'
	'Your name is <<$pcs_firstname>> <<$pcs_lastname>>.'

	!!!0.2.6 extension
	if mid($start_type,1,2) = 'sg':
		'Your friends and family call you <<$pcs_nickname>>.'
	else
		'Your friends call you <<$pcs_nickname>>.'
	end

	'Your start background is: ' +  $ucase(mid($start_type['cat'], 1, 1)) + mid($start_type['cat'], 2)
	!!!
	*nl
	if func('homes_properties', 'get_accessible_property_count') = 0:
		'You have nowhere to live, if this is an error, you can set your current home <a href="exec:gs ''obj_din'', ''current_home''">here</a>.'
	elseif $home['current'] = '':
		'You don''t have a current home set. If this is an error, you can set your current home <a href="exec:gs ''obj_din'', ''current_home''">here</a>.'
	else
		'Your current home is <a href="exec:gs ''obj_din'', ''current_home''"><<$home[''name'']>></a>.'
	end

	if succubusflag = 1 and sucpcinfo >= 4:
		'You are a Succubus.'
		'Succubus Level: <<succublvl>>'
	end
	if age = vidage:
		'You are <<age>> years old.'
	else
		'You are <<age>> years old, but you appear to be <<vidage>>.'
	end
	if birthday <= 9 and birthmonth <= 9:
		$birthdayD = '0<<birthday>>.0<<birthmonth>>.<<birthyear>>.'
	elseif birthday > 9 and birthmonth <= 9:
		$birthdayD = '<<birthday>>.0<<birthmonth>>.<<birthyear>>.'
	elseif birthday > 9 and birthmonth > 9:
		$birthdayD = '<<birthday>>.<<birthmonth>>.<<birthyear>>.'
	else
		$birthdayD = '0<<birthday>>.<<birthmonth>>.<<birthyear>>.'
	end
	'Your date of birth is <<$birthdayD>>'
	*nl
	'<<$pcs_apprnc>>'
	*nl
	'You are <<pcs_hgt>>cm tall and <a href="exec:view func(''$body_image'', ''body'')"><<$bodyVars[''desc'']>></a>.'
	'Your breasts would be considered an EU <a href="exec:view func(''$body_image'', ''tits'')"><<$titsize>></a>.'
	'<<$nipplesize>>'
	*nl
	if preg = 1:
		if denypreg = 1 and pregchem > 2688:
			'You seem to be putting on a bit of weight, your belly is definitely bigger.'
			*nl
		elseif pregchem > 4704:
			'You''re rapidly approaching the finish line and have entered the third trimester. Your belly is so big now that you can barely remember what your toes look like. Your back hurts most of the time and it is a struggle to get to your feet if you sit down. The baby seems to think that your bladder makes a nice punching bag.'
			*nl
		elseif pregchem > 3696:
			'Your belly is quite swollen now and shows under even the loosest of clothes. You find yourself constantly caressing your belly without realizing it.'
			*nl
		elseif pregchem > 3192 and knowpreg = 1:
			'You are showing for sure now. Your tummy is starting to become rounder as it grows larger each day, although you can still wear baggy clothes to hide it. At least the morning sickness and nausea seem to have gone away for the most part.'
			*nl
		elseif pregchem > 3192 and knowpreg = 0:
			'You can''t seem to stop gaining weight and your belly looks like it is getting bigger everyday, although you can still wear baggy clothes to hide it. At least the flu you''ve been fighting lately seems to have finally gone away for the most part.'
			*nl
		elseif pregchem > 1800 and knowpreg = 1:
			iif(lactation['growthsoreness_on']>0,'Your breasts look and feel swollen and tingle at the slightest touch. ','') + 'Waking up is getting harder to do and it takes you longer to get going in the morning. Lately, just the thought of food is enough to turn your stomach.'
			*nl
		elseif pregchem > 1800 and knowpreg = 0:
			iif(lactation['growthsoreness_on']>0,'Your breasts look and feel swollen and tingle at the slightest touch. ','') + 'Waking up is getting harder to do and it takes you longer to get going in the morning. Lately, just the thought of food is enough to turn your stomach.'
			*nl
		elseif pregchem > 1200 and lactation['preggrowth'] > 0:
			'You''ve noticed that your breasts seem firmer lately and your nipples seem to be sticking out more.'
			*nl
		end
	end

	'<<$pc_descFull[''lip'']>>'
	'<<$pc_descFull[''throat'']>>'
	'<<$pc_descFull[''skin'']>>'
	'<<$pc_descFull[''eyes'']>>'
	'<<$pc_descFull[''makeup'']>>.'
	'<<$pcs_leghair>>'
	'<<$pcs_pubes>>'
	'<<$pcs_vag>>'
	'<<$pc_descFull[''butt'']>>'
	'<<$pcs_ass>>'
	*nl
	if $face_style['avatar_hair'] ! '':
		'Your hair: <<$face_style[''avatar_hair'']>>.'
	else
		'<<$hair>>'
	end
	if defcurly = 0 and curly > 0: 'Your curls are good for another <<curly>> days.'
	if defcurly = 1 and straight > 0: 'Your hair should be straight for another <<straight>> days.'
	*nl

	if pcs_mass['body'] < 10 and strenbuf > 0 and dounspell = 0: '<b><font color="red">You are showing signs of malnourishment. You should probably eat more and more often.</font></b>'
	if pcs_mass['body'] < 10 and strenbuf = 0 and dounspell = 0: '<b><font color="red">You are dangerously malnourished, which has led to a loss in muscle mass. You''re in a critical condition and likely to pass out!</font></b>'
	if pcs_missing_teeth = 1:
		'You have lost <<pcs_missing_teeth>> <a href="exec:gs ''obj_din'', ''show_missing_teeth''">tooth</a>.'
	elseif pcs_missing_teeth >= 2:
		'You have lost <<pcs_missing_teeth>>  <a href="exec:gs ''obj_din'', ''show_missing_teeth''">teeth</a>.'
	end
	if pcs_brace = 1:
		gs 'time', 'to_date', dentistday
		'You are wearing a brace on your <a href="exec:gs ''obj_din'', ''show_teeth''">teeth</a>, you can remove them on or after the <<dateVars[''day'']>><<$dateVars[''suffix'']>> <<$monthName[dateVars[''month'']]>>, <<dateVars[''year'']>>.'
	elseif pcs_teeth = -1:
		'You have a perfect white <a href="exec:gs ''obj_din'', ''show_teeth''">smile</a>.'
	elseif pcs_teeth > 0:
		'Your <a href="exec:gs ''obj_din'', ''show_teeth''">teeth</a> are not straight at all. It might be a good idea to see a dentist to straighten them.'
	else
		'Your <a href="exec:gs ''obj_din'', ''show_teeth''">teeth</a> are miscoloured. It might be a good idea to see a dentist to get them cleaned up.'
	end

	!! 'pcs_apprnc <<pcs_apprnc>>'
	!! 'curlykoef <<curlykoef>> a maximum of 1'
	!! 'tits <<tits>> A maximum of 6'
	!! 'pcs_lip <<pcs_lip>> a maximum of 4'
	!! 'tanKoef <<tanKoef>> a maximum of 1'
	!! 'skin <<skin>> a maximum of 4'
	!! 'pcs_makeup <<pcs_makeup>> a maximum of 6'
	!! 'pcs_lashes <<pcs_lashes>> a maximum of 2'
	!! 'pcs_eyesize <<pcs_eyesize>> a maximum of 3'
	!! 'bodykoef <<bodykoef>> a maximum of 8'
	!! 'lobkoef <<lobkoef>> a maximum of 3'
	!! 'odevnesh <<odevnesh>> a maximum of 15'
	!! 'pcs_sweat <<pcs_sweat>> the maximum 0'
	!! 'pcs_hairbsh <<pcs_hairbsh>> a maximum of 1'

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

if $ARGS[0] = 'current_home':
	*clr & cla
	!'<center><img src="images/system/icons/description.png"><br></center>'
	'<center><h1><<$pcs_firstname>>''s Home Location</h1></center>'
	'<center><table cellspacing="0" cellpadding="20" valign="top"><tr><td>'
	*nl
	'Your current home is <<$home[''name'']>>.'
	*nl
	act 'Return to main description': gt 'obj_din', 'description'
!!This is correct it just looks wrong
	if func('homes_properties', 'can_live_here', 'city_apartment'): 'Set current home as <a href="exec:gs ''homes_properties'', ''set_home'', ''city_apartment'' & gs ''obj_din'', ''current_home''">City residential apartment</a>'
	if func('homes_properties', 'can_live_here', 'parents_home'): 'Set current home as <a href="exec:gs ''homes_properties'', ''set_home'', ''parents_home'' & gs ''obj_din'', ''current_home''">Parent''s home in Pavlovsk</a>'
	if func('homes_properties', 'can_live_here', 'village_cottage'): 'Set current home as <a href="exec:gs ''homes_properties'', ''set_home'', ''village_cottage'' & gs ''obj_din'', ''current_home''">My cottage in the cooperative farm</a>'
	if func('homes_properties', 'can_live_here', 'old_town_apartment'): 'Set current home as <a href="exec:gs ''homes_properties'', ''set_home'', ''old_town_apartment'' & gs ''obj_din'', ''current_home''">Old town apartment</a>'
	if func('homes_properties', 'can_live_here', 'matryona_mansion'): 'Set current home as <a href="exec:gs ''homes_properties'', ''set_home'', ''matryona_mansion'' & gs ''obj_din'', ''current_home''">Matryona mansion</a>'
	if func('homes_properties', 'can_live_here', 'pavlovsk_hotel'): 'Set current home as <a href="exec:gs ''homes_properties'', ''set_home'', ''pavlovsk_hotel'' & gs ''obj_din'', ''current_home''">My hotel room in Pavlovsk</a>'
	if func('homes_properties', 'can_live_here', 'maid_bedroom'): 'Set current home as <a href="exec:gs ''homes_properties'', ''set_home'', ''maid_bedroom'' & gs ''obj_din'', ''current_home''">Nicholas'' apartment</a>'
	if func('homes_properties', 'can_live_here', 'niko_apartment'): 'Set current home as <a href="exec:gs ''homes_properties'', ''set_home'', ''niko_apartment'' & gs ''obj_din'', ''current_home''">Niko''s apartment</a>'
	if func('homes_properties', 'can_live_here', 'shulga_apartment'): 'Set current home as <a href="exec:gs ''homes_properties'', ''set_home'', ''shulga_apartment'' & gs ''obj_din'', ''current_home''">Uncle Sergey''s apartment</a>'
	if func('homes_properties', 'can_live_here', 'lyceum_dorm'): 'Set current home as <a href="exec:gs ''homes_properties'', ''set_home'', ''lyceum_dorm'' & gs ''obj_din'', ''current_home''">Lyceum school</a>'
	if func('homes_properties', 'can_live_here', 'university_dorm'): 'Set current home as <a href="exec:gs ''homes_properties'', ''set_home'', ''university_dorm'' & gs ''obj_din'', ''current_home''">University halls</a>'
	if func('homes_properties', 'can_live_here', 'hunters_lodge'): 'Set current home as <a href="exec:gs ''homes_properties'', ''set_home'', ''hunters_lodge'' & gs ''obj_din'', ''current_home''">Hunter''s lodge in Gadukino</a>'
	if func('homes_properties', 'can_live_here', 'shared_apartment'): 'Set current home as <a href="exec:gs ''homes_properties'', ''set_home'', ''shared_apartment'' & gs ''obj_din'', ''current_home''">Shared apartment in Pavlovsk</a>'
	if func('homes_properties', 'can_live_here', 'grandparents_house'): 'Set current home as <a href="exec:gs ''homes_properties'', ''set_home'', ''grandparents_house'' & gs ''obj_din'', ''current_home''">Grandparent''s house in Gadukino</a>'
	if func('homes_properties', 'can_live_here', 'city_house'): 'Set current home as <a href="exec:gs ''homes_properties'', ''set_home'', ''city_house'' & gs ''obj_din'', ''current_home''">My house in the City residential district</a>'
	if func('homes_properties', 'can_live_here', 'meynold_household'): 'Set current home as <a href="exec:gs ''homes_properties'', ''set_home'', ''meynold_household'' & gs ''obj_din'', ''current_home''">Meynold Houshold</a>'

!!Apostrophe colour correction - KS ''''
	'</td></tr></table></center>'
end

if $ARGS[0] = 'skills':
	*clr & cla
	gs 'obj_din','chartabs'
	!'<center><img src="images/system/icons/stats.png"><br></center>'
	'<center><h1>Character Skills</h1></center>'
	'<center><table width="95%" cellspacing="0" cellpadding="5" valign="top"><tr>'
	'<td width="50%" cellspacing="0" cellpadding="5" valign="top">'
		'<h2>Base Attributes</h2>'
		$temp_table = '<table><tr><th align="left">Attribute</th><td>-</td><th align="center"><font color="grey">base / modified</font></th><td>-</td><td>|</td><th>Progress</th><td>|</td></tr>'
		$temp_table += func('obj_din', 'skill_format_func', '<b>Str</b>ength',		'stren',	'Your strength (<<pcs_stren>>) = Base strength (<<stren_lvl>>) + Musculature (<<stren_plus_lvl>>)')
		$temp_table += func('obj_din', 'skill_format_func', '<b>Agi</b>lity',		'agil',		'Your agility is never modified', 1)
		$temp_table += func('obj_din', 'skill_format_func', '<b>End</b>urance',		'vital',	'Your endurance is never modified', 1)
		$temp_table += func('obj_din', 'skill_format_func', '<b>Int</b>elligence',	'intel',	'Your intelligence (<<pcs_intel>>) = Base intelligence (<<intel_lvl>>) - bimbostupidity (<<bimbostupidity>>) - noorgasm (<<5 * noorgasm>>)')
		$temp_table += func('obj_din', 'skill_format_func', '<b>Spi</b>rit',		'sprt',		'Your spirit is never modified', 1)
		$temp_table += func('obj_din', 'skill_format_func', '<b>Rea</b>ction',		'react',	'Your reaction is never modified', 1)
		$temp_table += func('obj_din', 'skill_format_func', '<b>Cha</b>risma',		'chrsm',	'Your charisma is never modified', 1)
		$temp_table += func('obj_din', 'skill_format_func', '<b>Per</b>ception',	'prcptn',	'Your perception is never modified', 1)
		if $start_type['magic'] ! 'nomagic': $temp_table += func('obj_din', 'skill_format_func', '<b>Mag</b>ic', 'magik',	'Your magic is never modified', 1)
		$temp_table += '</table>'
		'<<$temp_table>>'
		'Attractiveness - <<pcs_apprnc>>'
		!'Speed <<speed>>' - not used

		if pcs_splcstng + pcs_humint + pcs_persuas + pcs_observ > 0:
			'<h2>Mental Skills</h2>'
			$temp_table = '<table><tr><th align="left">Skill</th><td>-</td><th align="center"><font color="grey">base / mod</font></th><td>-</td><td>|</td><th>Progress</th><td>|</td></tr>'
			if $start_type['magic'] ! 'nomagic' and pcs_splcstng > 0:	$temp_table += func('obj_din', 'skill_format_func', 'Spell Casting',	'splcstng',	'Your spell casting (<<pcs_splcstng>>) = (Base spell casting (<<splcstng_lvl>>) + (Int (<<pcs_intel>>) + Rea (<<pcs_react>>)) / 2) / 2')
			if pcs_humint > 0:		$temp_table += func('obj_din', 'skill_format_func', 'People Skills',	'humint',	'Your people skills (<<pcs_humint>>) = (Base people skills (<<humint_lvl>>) + (Per (<<pcs_prcptn>>) + Cha (<<pcs_chrsm>>) + Rea (<<pcs_react>>)) / 3) / 2 + charming trait (<< 5 * chrmng>>) - mean trait (<<5 * meantrt>>)')
			if pcs_persuas > 0:		$temp_table += func('obj_din', 'skill_format_func', 'Persuasion',		'persuas',	'Your persuasion (<<pcs_persuas>>) = (Base persuasion (<<persuas_lvl>>) + (Per (<<pcs_prcptn>>) + Cha (<<pcs_chrsm>>)) / 2) / 2 + charming trait (<< 5 * chrmng>>) - mean trait (<<5 * meantrt>>)')
			if pcs_observ > 0:		$temp_table += func('obj_din', 'skill_format_func', 'Observation',		'observ',	'Your observation (<<pcs_persuas>>) = (Base observation (<<observ_lvl>>) + (Per (<<pcs_prcptn>>) + Rea (<<pcs_react>>) + Int (<<pcs_intel>>)) / 3) / 2')
			$temp_table += '</table>'
			'<<$temp_table>>'
		end

		if pcs_compskl + pcs_comphckng + pcs_hndiwrk + pcs_sewng + pcs_servng + pcs_medcn + pcs_mdlng + pcs_cleaning > 0:
			'<h2>Job Skills</h2>'
			$temp_table = '<table><tr><th align="left">Skill</th><td>-</td><th align="center"><font color="grey">base / mod</font></th><td>-</td><td>|</td><th>Progress</th><td>|</td></tr>'
			if pcs_compskl > 0:		$temp_table += func('obj_din', 'skill_format_func', 'Computer Skill',	'compskl',		'Your computer skills (<<pcs_compskl>>) = (Base computer skills (<<compskl_lvl>>) + Int (<<pcs_intel>>)) / 2 + logic trait (<< 5 * logictrt>>)')
			if pcs_comphckng > 0:	$temp_table += func('obj_din', 'skill_format_func', 'Hacking',			'comphckng',	'Your hacking (<<pcs_comphckng>>) = (Base hacking (<<comphckng_lvl>>) + (Int (<<pcs_intel>>) + Rea (<<pcs_react>>)) / 2) / 2 + logic trait (<< 5 * logictrt>>)')
			if pcs_hndiwrk > 0:		$temp_table += func('obj_din', 'skill_format_func', 'Handiwork',		'hndiwrk',		'Your handiwork (<<pcs_hndiwrk>>) = (Base handiwork (<<hndiwrk_lvl>>) + (Int (<<pcs_intel>>) + 2 * Agi (<<pcs_agil>>)) / 3) / 2')
			if pcs_sewng > 0:		$temp_table += func('obj_din', 'skill_format_func', 'Tailoring',		'sewng',		'Your tailoring (<<pcs_sewng>>) = (Base tailoring (<<sewng_lvl>>) + (Int (<<pcs_intel>>) + Agi (<<pcs_agil>>)) / 2) / 2')
			if pcs_servng > 0:		$temp_table += func('obj_din', 'skill_format_func', 'Serving',			'servng',		'Your serving (<<pcs_servng>>) = (Base serving (<<servng_lvl>>) + (Int (<<pcs_intel>>) + End (<<pcs_vital>>)) / 2) / 2')
			if pcs_medcn > 0:		$temp_table += func('obj_din', 'skill_format_func', 'Medicine',			'medcn',		'Your medicine (<<pcs_medcn>>) = (Base medicine (<<medcn_lvl>>) + (Int (<<pcs_intel>>) + Rea (<<pcs_react>>) + Per (<<pcs_prcptn>>)) / 3) / 2')
			if pcs_cleaning > 0:	$temp_table += func('obj_din', 'skill_format_func', 'Cleaning',			'cleaning',		'Your cleaning (<<pcs_cleaning>>) = (Base cleaning (<<cleaning_lvl>>) + (Int (<<pcs_intel>>) + End (<<pcs_vital>>)) / 2) / 2')
			if pcs_mdlng > 0:		$temp_table += func('obj_din', 'skill_format_func', 'Modelling',		'mdlng',		'Your modeling (<<pcs_mdlng>>) = (Base modeling (<<mdlng_lvl>>) * 3 / 2 + (End (<<pcs_vital>>) + Agi (<<pcs_agil>>)) / 4) / 2')
			$temp_table += '</table>'
			'<<$temp_table>>'
			if teachlevel > 0: 'Teacher - credibility <<teachlevel>>'
		elseif teachlevel > 0:
			'<h2>Job Skills</h2>'
			'Teacher - credibility <<teachlevel>>'
		end
		if pcs_vokal + pcs_instrmusic + pcs_photoskl + pcs_artskls + pcs_perform + pcs_musicprod > 0:
			'<h2>Artistic Skills</h2>'
			$temp_table = '<table><tr><th align="left">Skill</th><td>-</td><th align="center"><font color="grey">base / mod</font></th><td>-</td><td>|</td><th>Progress</th><td>|</td></tr>'
			if pcs_vokal > 0:		$temp_table += func('obj_din', 'skill_format_func', 'Singing',				'vokal',		'Your singing (<<pcs_vokal>>) = (Base singing (<<vokal_lvl>>) + (Int (<<pcs_intel>>) + Cha (<<pcs_chrsm>>)) / 2) / 2')
			if pcs_instrmusic > 0:	$temp_table += func('obj_din', 'skill_format_func', 'Instrumental Music',	'instrmusic',	'Your instrumental music (<<pcs_instrmusic>>) = (Base instrumental music (<<instrmusic_lvl>>) + (Int (<<pcs_intel>>) + 2 * Agi (<<pcs_agil>>)) / 3) / 2')
			if pcs_photoskl > 0:	$temp_table += func('obj_din', 'skill_format_func', 'Photography',			'photoskl',		'Your photography (<<pcs_photoskl>>) = (Base photography (<<photoskl_lvl>>) + (2 * Int (<<pcs_intel>>) + Rea (<<pcs_react>>)) / 3) / 2')
			if pcs_artskls > 0:		$temp_table += func('obj_din', 'skill_format_func', 'Artistic Skills',		'artskls',		'Your artistic skills (<<pcs_artskls>>) = (Base artistic skills (<<artskls_lvl>>) + (Int (<<pcs_intel>>) + Agi (<<pcs_agil>>) + Rea (<<pcs_react>>)) / 3) / 2')
			if pcs_perform > 0:		$temp_table += func('obj_din', 'skill_format_func', 'Performance',			'perform',		'Your performance (<<pcs_perform>>) = (Base performance (<<perform_lvl>>) + (Cha (<<pcs_chrsm>>) + Per (<<pcs_prcptn>>)) / 2) / 2')
			if pcs_musicprod > 0:	$temp_table += func('obj_din', 'skill_format_func', 'Music Production',		'musicprod',	'Your music production (<<pcs_musicprod>>) = (Base music production (<<musicprod_lvl>>) + (Int (<<pcs_intel>>) + Per (<<pcs_prcptn>>) + Spi (<<pcs_sprt>>)) / 3) / 2')
			$temp_table += '</table>'
			'<<$temp_table>>'
		end
		if schoolprogul > 0:
			'<h2>Other Skills</h2>'
			if SchoolAtestat = 0 and mid($start_type,1,2) = 'sg':
				if schoolprogul > 0: 'School absenteeism - <<schoolprogul>> days'
			end
		end

	'</td><td width="50%" cellspacing="0" cellpadding="5" valign="top">'
		if pcs_run + pcs_vball + pcs_ftbll + pcs_wrstlng + pcs_chess + pcs_icesktng + pcs_gaming + pcs_pool > 0:
			'<h2>Sport Skills</h2>'
			$temp_table = '<table><tr><th align="left">Skill</th><td>-</td><th align="center"><font color="grey">base / mod</font></th><td>-</td><td>|</td><th>Progress</th><td>|</td></tr>'
			if pcs_run > 0:			$temp_table += func('obj_din', 'skill_format_func', 'Running',		'run',		'Your running (<<pcs_run>>) = (Base running (<<run_lvl>>) + (2 * (Agi (<<pcs_agil>>) + Str (<<pcs_stren>>)) + End (<<pcs_vital>>)) / 5) / 2')
			if pcs_vball > 0:		$temp_table += func('obj_din', 'skill_format_func', 'Volleyball',	'vball',	'Your volleyball (<<pcs_vball>>) = (Base volleyball (<<vball_lvl>>) + (2 * Agi (<<pcs_agil>>) + Str (<<pcs_stren>>) + End (<<pcs_vital>>) + Rea (<<pcs_react>>)) / 5) / 2')
			if pcs_ftbll > 0:		$temp_table += func('obj_din', 'skill_format_func', 'Football',		'ftbll',	'Your football (<<pcs_ftbll>>) = (Base football (<<ftbll_lvl>>) + (Agi (<<pcs_agil>>) + Str (<<pcs_stren>>) + End (<<pcs_vital>>)) / 3) / 2')
			if pcs_bkbll > 0:		$temp_table += func('obj_din', 'skill_format_func', 'Basketball',	'bkbll',	'Your basketball (<<pcs_bkbll>>) = (Base basketball (<<bkbll_lvl>>) + (Agi (<<pcs_agil>>) + End (<<pcs_vital>>) + Rea (<<pcs_react>>)) / 3) / 2')
			if pcs_wrstlng > 0:		$temp_table += func('obj_din', 'skill_format_func', 'Wrestling',	'wrstlng',	'Your wrestling (<<pcs_wrstlng>>) = (Base wrestling (<<bkbll_lvl>>) + (Agi (<<pcs_agil>>) + 2 * Str (<<pcs_stren>>) + End (<<pcs_vital>>)) / 4) / 2')
			if pcs_icesktng > 0:	$temp_table += func('obj_din', 'skill_format_func', 'Ice Skating',	'icesktng',	'Your ice skating (<<pcs_icesktng>>) = (Base ice skating (<<icesktng_lvl>>) + (2 * Agi (<<pcs_agil>>) + Str (<<pcs_stren>>)) / 3) / 2')
			if pcs_gaming > 0:		$temp_table += func('obj_din', 'skill_format_func', 'Gaming',		'gaming',	'Your gaming (<<pcs_gaming>>) = (Base gaming (<<gaming_lvl>>) + (2 * Int (<<pcs_intel>>) + Rea (<<pcs_react>>)) / 3) / 2')
			if pcs_chess > 0:		$temp_table += func('obj_din', 'skill_format_func', 'Chess',		'chess',	'Your chess (<<pcs_chess>>) = (Base chess (<<chess_lvl>>) + Int (<<pcs_intel>>)) / 2 + logic trait (<<5 * logictrt>>)')
			if pcs_pool > 0:		$temp_table += func('obj_din', 'skill_format_func', 'Pool',			'pool',		'Your pool (<<pcs_pool>>) = (Base pool (<<pool_lvl>>) * 3 + Int (<<pcs_intel>>)) / 4')
			$temp_table += '</table>'
			'<<$temp_table>>'
		end
		if pcs_jab + pcs_punch + pcs_kick + pcs_def + pcs_shoot + pcs_bushcraft > 0:
			'<h2>Combat Skills</h2>'
			$temp_table = '<table><tr><th align="left">Skill</th><td>-</td><th align="center"><font color="grey">base / mod</font></th><td>-</td><td>|</td><th>Progress</th><td>|</td></tr>'
			if pcs_jab > 0:			$temp_table += func('obj_din', 'skill_format_func', 'Jabs',					'jab',			'Your jabs (<<pcs_jab>>) = (Base jabs (<<jab_lvl>>) + (Str (<<pcs_stren>>) + 2 * Agi (<<pcs_agil>>)) / 3) / 2')
			if pcs_punch > 0:		$temp_table += func('obj_din', 'skill_format_func', 'Power Strikes',		'punch',		'Your power strikes (<<pcs_punch>>) = (Base power strikes (<<punch_lvl>>) + (2 * Str (<<pcs_stren>>) + Agi (<<pcs_agil>>)) / 3) / 2')
			if pcs_kick > 0:		$temp_table += func('obj_din', 'skill_format_func', 'Kicks',				'kick',			'Your kicks (<<pcs_kick>>) = (Base kicks (<<kick_lvl>>) + (3 * Str (<<pcs_stren>>) + Agi (<<pcs_agil>>)) / 4) / 2')
			if pcs_def > 0:			$temp_table += func('obj_din', 'skill_format_func', 'Defense',				'def',			'Your defense (<<pcs_def>>) = (Base defense (<<def_lvl>>) + (Str (<<pcs_stren>>) + Agi (<<pcs_agil>>) + Rea (<<pcs_react>>)) / 3) / 2')
			if pcs_shoot > 0:		$temp_table += func('obj_din', 'skill_format_func', 'Shooting Accuracy',	'shoot',		'Your shooting accuracy (<<pcs_shoot>>) = (Base accuracy (<<shoot_lvl>>) + (Agi (<<pcs_agil>>) + Rea (<<pcs_react>>)) / 2) / 2')
			if pcs_bushcraft > 0:	$temp_table += func('obj_din', 'skill_format_func', 'Bushcraft',			'bushcraft',	'Your bushcraft (<<pcs_bushcraft>>) = (Base bushcraft (<<bushcraft_lvl>>) + (Str (<<pcs_stren>>) + Agi (<<pcs_agil>>) + Int (<<pcs_intel>>)) / 3) / 2')
			$temp_table += '</table>'
			'<<$temp_table>>'
		end
		if pcs_makupskl + pcs_danc + pcs_dancero + pcs_dancpol + pcs_cheer + pcs_heels > 0:
			'<h2>Beauty Skills</h2>'
			$temp_table = '<table><tr><th align="left">Skill</th><td>-</td><th align="center"><font color="grey">base / mod</font></th><td>-</td><td>|</td><th>Progress</th><td>|</td></tr>'
			if pcs_makupskl > 0:	$temp_table += func('obj_din', 'skill_format_func', 'Makeup Skill',		'makupskl',		'Your makeup skill (<<pcs_makupskl>>) = (Base makeup skill (<<makupskl_lvl>>) + (Agi (<<pcs_agil>>) + Int (<<pcs_intel>>)) / 2) / 2')
			if pcs_danc > 0:		$temp_table += func('obj_din', 'skill_format_func', 'Modern Dancing',	'danc',			'Your modern dancing (<<pcs_danc>>) = (Base modern dancing (<<danc_lvl>>) + (Agi (<<pcs_agil>>) + Rea (<<pcs_react>>) + End (<<pcs_vital>>)) / 3) / 2')
			if pcs_dancero > 0:		$temp_table += func('obj_din', 'skill_format_func', 'Erotic Dancing',	'dancero',		'Your erotic dancing (<<pcs_dancero>>) = (Base erotic dancing (<<dancero_lvl>>) + (Agi (<<pcs_agil>>) + Cha (<<pcs_chrsm>>) + End (<<pcs_vital>>)) / 3) / 2 + flexibility trait (<<3 * flxibt>>)')
			if pcs_dancpol > 0:		$temp_table += func('obj_din', 'skill_format_func', 'Pole Dancing',		'dancpol',		'Your pole dancing (<<pcs_dancpol>>) = (Base pole dancing (<<dancpol_lvl>>) + (Agi (<<pcs_agil>>) + Cha (<<pcs_chrsm>>) + Str (<<pcs_stren>>)) / 3) / 2 + flexibility trait (<<3 * flxibt>>)')
			if pcs_cheer > 0:		$temp_table += func('obj_din', 'skill_format_func', 'Cheerleading',		'cheer',		'Your cheerleading (<<pcs_cheer>>) = (Base cheerleading (<<cheer_lvl>>) + (Agi (<<pcs_agil>>) + Rea (<<pcs_react>>) + End (<<pcs_vital>>)) / 3) / 2')
			if pcs_heels > 0:		$temp_table += func('obj_din', 'skill_format_func', 'Heels',			'heels',		'Your heels is never modified', 1)
			$temp_table += '</table>'
			'<<$temp_table>>'
		end
		'<h2>Sexual Skills</h2>'
		$temp_table = '<table><tr><th align="left">Skill</th><td>-</td><th align="center"><font color="grey">base / mod</font></th><td>-</td><td>|</td><th>Progress</th><td>|</td></tr>'
		$temp_table += func('obj_din', 'skill_format_func', 'Inhibition',		'inhib',		'Your inhibition (<<100 - pcs_inhib>>) = min(Base inhibition (<<100 - inhib_lvl>>) + intoxication (<<3 * alko>>), 100)')
		$temp_table += '</table>'
		'<<$temp_table>>'
		'Exhibitionist preference: <<exhibitionism[''pref'']>>'
		'Exhibitionist sex: <<exhibitionism[''exp'']>>'
		if SUB > 0: 'Submissiveness <<SUB>>'
		if pcs_dom > 0: 'Dominance <<pcs_dom>>'
		'Submissive sex: <<sub[''exp'']>>'
		'Dominant sex: <<dom[''exp'']>>'
		'Lesbian sex preference: <<lesbian[''pref'']>>'
		'Lesbian sex: <<lesbian[''exp'']>>'

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

!! $ARGS[1]: Skill name ('<b>Str</b>ength')
!! $ARGS[2]: internal skill name  (stren)
!! $ARGS[3]: Skill name popup
!!  ARGS[4]: If unequal to 0 displays only skill_lvl since it and pcs_skill are always equal
if $ARGS[0] = 'skill_format_func':
	if $ARGS[2] = 'stren':
		temp['skl_lvl'] = stren_lvl + stren_plus_lvl
	elseif $ARGS[2] = 'inhib':
		temp['skl_lvl'] = 100 - inhib_lvl
	else
		temp['skl_lvl'] = dyneval('result = <<$ARGS[2]>>_lvl')
	end

	if $ARGS[2] = 'inhib':
		temp['pcs_skl'] = 100 - pcs_inhib
	else
		temp['pcs_skl'] = dyneval('result = pcs_<<$ARGS[2]>>')
	end

	if $ARGS[3] = '':
		$result = '<tr><td align="left"><<$ARGS[1]>></td><td>-</td>'
	else
		$result = '<tr><td align="left"><a href="exec:msg ''<<$ARGS[3]>>''"><<$ARGS[1]>></a></td><td>-</td>'
	end

	$result += '<td align="center">'
	if ARGS[4] = 0:
		$result += '<<temp[''skl_lvl'']>> / <<temp[''pcs_skl'']>></td><td>-</td>'
	else
		$result += '<<temp[''skl_lvl'']>></td><td>-</td>'
	end
	$result += '<td>|</td>'
	if temp['skl_lvl'] >= 100:
		if $ARGS[2] = 'stren' and stren_plus_lvl > 0 and temp['skl_lvl'] < 200:
			$ARGS[2] = 'stren_plus'
		else
			$result += '<td align="center">Max Level</td><td>|</td></tr>'
			killvar 'temp'
			exit
		end
	end

	temp['skl_exp'] = dyneval('result = <<$ARGS[2]>>_exp')
	temp['skl_xpprv'] = dyneval('result = <<$ARGS[2]>>_xpprv')
	temp['skl_xpnxt'] = dyneval('result = <<$ARGS[2]>>_xpnxt')
	temp['exp_into_level'] = temp['skl_exp']-temp['skl_xpprv']
	temp['level_exp_width'] = temp['skl_xpnxt']-temp['skl_xpprv']

	$result += '<td align="center">' + func('indiktab', 3, iif(temp['level_exp_width'] = 0, 0, temp['exp_into_level'] * 100 / temp['level_exp_width']), '<<temp[''exp_into_level'']>> / <<temp[''level_exp_width'']>>') + '</td>'
	$result += '<td>|</td></tr>'

	killvar 'temp'
end

if $ARGS[0] = 'husb_cheat_count':
	if husband > 0:
		if guy > before_h_guy :
			guy_cheat += guy - guy_cheat
			before_h_guy = guy
		end
		if girl > before_h_girl:
			girl_cheat += girl - before_h_girl
			before_h_girl = girl
		end
	end
	if before_h_girl > 0 and before_h_guy > 0:
		'During your marriage you have cheated on your husband with <<guy_cheat>> guys and <<girl_cheat>> girls.'
	elseif before_h_guy > 0:
		'During your marriage you have cheated on your husband with <<guy_cheat>> guys.'
	elseif before_h_girl > 0:
		'During your marriage you have cheated on your husband with <<girl_cheat>> girls.'
	end
end

if $ARGS[0] = 'stats':
	*clr & cla
	gs 'obj_din','chartabs'
	gs 'housing', 'rent'
	!'<center><img src="images/system/icons/statistics.png"><br></center>'
	'<center><h1>Character Statistics</h1></center>'
	'<center><table width="90%" cellspacing="0" cellpadding="10" valign="top"><tr>'

	'<td width="35%" cellspacing="0" cellpadding="0" valign="top">'
	'<center><b>General Statistics</b></center>'
	*nl
	if opPRE = 0: 'It has been <<daystart - daystart_start>> days since the game started.'
	*nl

	if SchoolAtestat = 0 and mid($start_type,1,2) = 'sg':
		gs 'grades', 'assing_grade_description', 'school'

		gs 'grades', 'grade above', 'school', 90
		gs 'grades', 'grade above', 'school', 70
		gs 'grades', 'grade above', 'school', 50
		gs 'grades', 'grade above', 'school', 40

		if class['school_grades_above_90'] = 13:
			'You are getting top marks in all your classes. You are one of the best student in the school, maybe even the best student in school.'
		elseif class['school_grades_above_90'] > 6 and class['school_grades_above_40'] = 13:
			'You are getting top marks in more that half of your classes and not failing any of the others. You are one of the best students in the school.'
		elseif class['school_grades_above_90'] > 6:
			'You are getting top marks in more that half of your classes and even if you are failing some of the others you are still one of the best students in the school and should have no problem getting into the university if you want.'
		elseif class['school_grades_above_90'] > 0 and class['school_grades_above_70'] = 13:
			'You are only getting top marks in a few of your classes but the rest of you grades are still good. You should have no trouble getting into university if you want.'
		elseif class['school_grades_above_90'] > 0 and class['school_grades_above_70'] > 10 and class['school_grades_above_40'] =13:
			'You are only getting top marks in a few of your classes but only a few of your grades are bad and you are not failing any classes. You should probably have no trouble getting into university if you want, but improving the bad grades would not be a bad idea.'
		elseif class['school_grades_above_90'] > 0 and class['school_grades_above_70'] > 10:
			'You are only getting top marks in a few of your classes but only a few of your grades are bad and you are failing some classes. If you want to get into university you should probably try to improve the failing and bad grades.'
		elseif class['school_grades_above_90'] > 0 and class['school_grades_above_40'] > 6:
			'You are getting top marks in a few of your classes but failing a lot of classes. If you want to get into university you need to do something about your failing and bad grades.'
		elseif class['school_grades_above_90'] > 0:
			'Even a top mark or two is not helping when you are failing more than half your classes. It will require a lot of work if you want to go to a university after school.'
		elseif class['school_grades_above_70'] = 13:
			'You are getting good grades in all of your classes but no excellent grades. You should probably have no trouble getting into university if you want, but getting some of those excellent marks will not hurt.'
		elseif class['school_grades_above_70'] > 6 and class['school_grades_above_40'] =13:
			'You are getting good grades in over half of your classes but no excellent grades, at least you are not failing any classes. If you want to get into university it would not hurt to improve some of the bad grades.'
		elseif class['school_grades_above_70'] > 6 and class['school_grades_above_40'] >10:
			'You are getting good grades in over half of your classes but no excellent grades and you are failing a few classes. If you want to get into university you need to improve some of the bad grades.'
		elseif class['school_grades_above_70'] > 0 and class['school_grades_above_40'] = 13:
			'You are getting good grades in a few of your classes and no excellent grades. At least you are not failing any classes. If you want to get into university you need to improve some of the bad grades.'
		elseif class['school_grades_above_70'] > 0 and class['school_grades_above_40'] >10:
			'You are getting good grades in a few of your classes but no excellent grades and you are failing a few classes. If you want to get into university you need to improve some of the bad grades.'
		elseif class['school_grades_above_70'] > 0 and class['school_grades_above_40'] >6:
			'You are getting good grades in a few of your classes but no excellent grades and you are failing a lot of classes. If you want to get into university you really need to improve your grade in some of your classes you are failing.'
		elseif class['school_grades_above_70'] > 0:
			'A good grade or two is not not enough when you are failing more than half your classes. It will require a lot of work to turn this one around.'
		elseif class['school_grades_above_40'] = 13:
			'You are not getting any good grades, but at least you are not failing any. It will require a lot of work if you want to go to a university after school.'
		elseif class['school_grades_above_40']  > 10:
			'With you general bad grades failing a few as you do puts you in danger of not graduation high school.'
		elseif class['school_grades_above_40']  > 6:
			'With failing a lot of classes and barely passing the rest you will not graduate high school unless you can get your grades up before graduation.'
		else
			'You are failing high school, you need to do something about this right now, if you want to graduate.'
		end

		if schoolprogul > 0: 'School absenteeism - <<schoolprogul>> days'
	end
	*nl
	!! TODO: Have
	if (accessible_property['city_apartment'] = 1 and func('homes_properties', 'get_rent_days', 'city_apartment') > 0) or (accessible_property['old_town_apartment'] = 1 and func('homes_properties', 'get_rent_days', 'old_town_apartment') > 0):
			*nl
		if accessible_property['city_apartment'] = 1 and accessible_property['old_town_apartment'] =1:
			'You have rented an apartment in the city residential area, which is paid up for <b><<func(''homes_properties'', ''get_rent_days'', ''city_apartment'')>></b> days, and you also have an apartment in Pushkin, which is paid up for <b><<func(''homes_properties'', ''get_rent_days'', ''old_town_apartment'')>></b> days. Utilities are due on the 25th of <<$month>>.'
		elseif accessible_property['city_apartment'] = 1:
			'You have rented an apartment in the city residential area, and you''re paid up for <<func(''homes_properties'', ''get_rent_days'', ''city_apartment'')>> days. Utilities are due on the 25th of <<$month>>.'
		elseif accessible_property['old_town_apartment'] > 0:
			'You have rented an apartment in Pushkin, and you''re paid up for <<func(''homes_properties'', ''get_rent_days'', ''old_town_apartment'')>> days. Utilities are due on the 25th of <<$month>>.'
		end
		if accessible_property['city_apartment'] = 1:
			rentdue = func('homes_properties', 'get_rent_amount', 'city_apartment')
			if karta >= rentdue or money >= rentdue or money + stolmoney >= rentdue:
				*nl
				*p 'The monthly rent for your city apartment is <<rentdue>> <b>₽</b>. '
				if karta - bankDebtLimit >= rentdue:
					!From bank
					*p 'You can make an advance <a href="exec:karta -=rentdue & gs ''homes_properties'', ''add_rent_days'', ''city_apartment'' & gs ''$menu_obnovit''">payment</a> from your bank account.'
				elseif money >= rentdue:
					!From cash
					*p 'You can make an advance <a href="exec:money -= rentdue & gs ''homes_properties'', ''add_rent_days'', ''city_apartment'' & gs ''$menu_obnovit''">payment</a> from your on-hand cash.'
					*nl
				elseif stolmoney >= rentdue:
					!From drawer
					*p 'You can make an advance <a href="exec:stolmoney -= rentdue & gs ''homes_properties'', ''add_rent_days'', ''city_apartment'' & gs ''$menu_obnovit''">payment</a> from the cash you have in your stash drawer.'
					*nl
				elseif money + stolmoney >= rentdue:
					!From cash and drawer
					*p 'You can make an advance <a href="exec:money -= (rentdue - stolmoney) & stolmoney = 0 & gs ''homes_properties'', ''add_rent_days'', ''city_apartment'' & gs ''$menu_obnovit''">payment</a> from your on-hand cash and the cash in your stash drawer.'
					*nl
				elseif karta >= rentdue:
					!From bank and overdraw
					*p 'You can make an advance <a href="exec:karta -= rentdue & gs ''homes_properties'', ''add_rent_days'', ''city_apartment'' & gs ''$menu_obnovit''">payment</a> from your bank account and overdraw facility.'
					*nl
				else
					*p 'You can''t afford to make an advance payment right now, but you should try to have enough money in your account, so you don''t get evicted.'
					*nl
				end
			end
			killvar 'rentdue'
		end
		if accessible_property['old_town_apartment'] > 0:
			rentdue = func('homes_properties', 'get_rent_amount', 'old_town_apartment')
			if karta >= rentdue or money >= rentdue or money + stolmoney >= rentdue:
				*nl
				*p 'The monthly rent for your Pushkin apartment is <<rentdue>> <b>₽</b>. '
				if karta - bankDebtLimit >= rentdue:
					!From bank
					*p 'You can make an advance <a href="exec:karta -= rentdue &  gs ''homes_properties'', ''set_access'', ''old_town_apartment'', 1 & gs ''homes_properties'', ''add_rent_days'', ''old_town_apartment'' & gs ''$menu_obnovit''">payment</a> from your bank account.'
					*nl
				elseif money >= rentdue:
					!From cash
					*p 'You can make an advance <a href="exec:money -= rentdue & gs ''homes_properties'', ''set_access'', ''old_town_apartment'', 1 & gs ''homes_properties'', ''add_rent_days'', ''old_town_apartment'' & gs ''$menu_obnovit''">payment</a> from your on-hand cash.'
					*nl
				elseif stolmoney >= rentdue:
					!From drawer
					*p 'You can make an advance <a href="exec:stolmoney -= rentdue & gs ''homes_properties'', ''set_access'', ''old_town_apartment'', 1 & gs ''homes_properties'', ''add_rent_days'', ''old_town_apartment'' & gs ''$menu_obnovit''">payment</a> from the cash you have in your stash drawer.'
					*nl
				elseif money + stolmoney >= rentdue:
					!From cash and drawer
					*p 'You can make an advance <a href="exec:money -= (rentdue - stolmoney) & stolmoney = 0 & gs ''homes_properties'', ''set_access'', ''old_town_apartment'', 1 & gs ''homes_properties'', ''add_rent_days'', ''old_town_apartment'' & gs ''$menu_obnovit''">payment</a> from your on-hand cash and the cash in your stash drawer.'
					*nl
				elseif karta >= rentdue:
					!From bank and overdraw
					*p 'You can make an advance <a href="exec:karta -= rentdue & gs ''homes_properties'', ''set_access'', ''old_town_apartment'', 1 & gs ''homes_properties'', ''add_rent_days'', ''old_town_apartment'' & gs ''$menu_obnovit''">payment</a> from your bank account and overdraw facility.'
					*nl
				else
					*p 'You can''t afford to make an advance payment right now, but you should try to have enough money in your account, so you don''t get evicted.'
					*nl
				end
			end
		end
	end

	if kid = 1:
		*nl
		'You have 1 child:'
	else
		'You have <<kid>> children:'
	end
	if kid > 0:
		k = 0
:kidloop
		if k < kid:
			gs 'obj_din','kidlist',k
			k += 1
			jump 'kidloop'
		end
	end
	if workPTU > 1: 'Reputation as a teacher <<teachlevel>>'
	*nl

	'<center><b>Sports Career</b></center>'
	if kickbox['proWin'] + kickbox['proLoss'] + kickbox['proDraw'] > 0:
		'Professional Kickboxing Record:Win (Victory KO) - Loss (Defeat KO) - Draw'
		'<<kickbox[''proWin'']>> (<<kickbox[''proWinKO'']>>KO) - <<kickbox[''proLoss'']>> (<<kickbox[''proLossKO'']>>KO) - <<kickbox[''proDraw'']>>'
	end

	if Win > 0 or Loss > 0: 'Wins in fights <<Win>>, losses in fights <<Loss>>' & *nl

	if kickbox['sash'] > 0:
		if kickbox['sash'] = 1: 'You have earned green sash(rank 4) in kickboxing'
		if kickbox['sash'] = 2: 'You have earned purple sash(rank 5) in kickboxing'
		if kickbox['sash'] = 3: 'You have earned blue sash(rank 6) in kickboxing'
		if kickbox['sash'] = 4: 'You have earned brown sash(rank 7) in kickboxing'
		if kickbox['sash'] = 5: 'You have earned black sash, 1st dan in kickboxing'
	end
	if kickbox['amateurWin'] + kickbox['amateurLoss'] + kickbox['amateurDraw'] > 0:
		'Amateur Kickboxing Record:<br>Wins: <<kickbox[''amateurWin'']>> (<<kickbox[''amateurWinKO'']>> by KO) - Losses: <<kickbox[''amateurLoss'']>> (<<kickbox[''amateurLossKO'']>> by KO) - Draws: <<kickbox[''amateurDraw'']>>'
		*nl
	end

	if runnerQW['races_ran'] > 0: 'You ran in <<runnerQW[''races_ran'']>> competitive race' + iif(runnerQW['races_ran'] = 1, '','s')
	if runnerQW['pav_wins2'] >= 3:
		'You have won the school race trophy twice'
	elseif runnerQW['pav_wins1'] >= 3:
		'You have won a school race trophy'
	end
	if runnerQW['bronze_medals'] > 0: 'As a runner you have won <<runnerQW[''bronze_medals'']>> bronze medal' + iif(runnerQW['bronze_medals'] = 1, '','s')
	if runnerQW['silver_medals'] > 0: 'As a runner you have won <<runnerQW[''silver_medals'']>> silver medal' + iif(runnerQW['silver_medals'] = 1, '','s')
	if runnerQW['gold_medals'] > 0: 'As a runner you have won <<runnerQW[''gold_medals'']>> gold medal' + iif(runnerQW['gold_medals'] = 1, '','s')
	if runnerQW['bronze_medals'] > 0: 'In the St. Petersburg Track Championship race you have won <<runnerQW[''champ_bronze'']>> bronze medal' + iif(runnerQW['champ_bronze'] = 1, '','s')
	if runnerQW['champ_silver'] > 0: 'In the St. Petersburg Track Championship race you have won <<runnerQW[''champ_silver'']>> silver medal' + iif(runnerQW['champ_silver'] = 1, '','s')
	if runnerQW['champ_gold'] > 0: 'In the St. Petersburg Track Championship race you have won <<runnerQW[''champ_gold'']>> gold medal' + iif(runnerQW['champ_gold'] = 1, '','s')
	if runnerQW['prof_stage'] > 0:
		if runnerQW['prof_stage'] = 1: 'You''re registered for a semi-professional''s race, in the junior squad'
		if runnerQW['prof_stage'] = 2: 'You''re registered for a semi-professional''s race, in the veteran squad'
		if runnerQW['prof_stage'] >= 3 and runnerQW['prof_stage'] < 14: 'You can run in the qualifiing races for the championship on the professional circuit.'
		if runnerQW['prof_stage'] = 14 and runnerQW['qualifiers'] < 9: 'You failed to quaify for the championship.'
		if runnerQW['prof_stage'] = 5: 'You are one of the best track athletes in Russia and thus qualified for the Russian National Championship.'
		if runnerQW['prof_stage'] = 14 and runnerQW['qualifiers'] >= 9: 'You qualified for the <<year>> St. Petersburg Track Championship, taking place this season in the Petrovsky Stadium.'
		*nl
	end


	if chess_win > 0 or chess_loss > 0:'Chess Record: Win <<chess_win>>, Loss <<chess_loss>>'
	if chess_rank > 0:
		if chess_rank = 1:'You have mastered the basics of chess'
		if chess_rank = 2:'You''re starting to get good at chess'
		if chess_rank = 3:'You''re a good chess player'
		if chess_rank = 4:'You''re an excellent chess player'
		if chess_rank = 5:'You''re a candidate for chess master'
		if chess_rank = 6:'You''re a chess master'
		if chess_rank = 7:'You''re a chess Grandmaster'
	end
	if chess_world_rank > 0:
		if chess_world_rank = 1:'The title of FIDE Master Chess'
		if chess_world_rank = 2:'The title of International Chess Master'
		if chess_world_rank = 3:'The title of International Grandmaster Chess'
	end
	*nl
	!!!
	'<center><b>Job Statistics</b></center>'

	if model['status'] = 1:
		if modelfoto['shoots'] > 0:
			'<b>Modelling</b>'
			*nl
			if $model['firstname'] = $pcs_firstname and $model['lastname'] = $pcs_lastname:
				'You are working as a model using your real name.'
			else
				'You are working as a model under the name <<$model[''firstname'']>> <<$model[''lastname'']>>.'
			end
			*nl
			'<<modelfoto[''shoots'']>> - Number of times you have worked as a model'
			'<<modelfoto[''earnings'']>> - The amount of money you''ve made modelling'
			*nl
			if modelfoto['catalog']  > 0: '<<modelfoto[''catalog'']>> - Number of catalog shoots you''ve done'
			if modelfoto['fashion'] > 0: '<<modelfoto[''fashion'']>> - Number of fashion shoots you''ve done'

			if modelfoto['bikini'] > 0: '<<modelfoto[''bikini'']>> - Number of swimsuit shoots you''ve done'
			if modelfoto['lingerie'] > 0: '<<modelfoto[''lingerie'']>> - Number of lingerie shoots you''ve done'
			if modelfoto['trans_ling'] > 0: '	<<modelfoto[''trans_ling'']>> of those were with transparent lingerie'
			if modelfoto['sexy'] > 0: '<<modelfoto[''sexy'']>> - Number of sexy clothing shoots you''ve done'
			if modelfoto['transparent'] > 0: '	<<modelfoto[''transparent'']>> of those were with transparent clothing that exposed your breasts'
			if modelfoto['fitness'] > 0: '<<modelfoto[''fitness'']>> - Number of fitness shoots you have participated in'
			if modelfoto['glamour'] > 0: '<<modelfoto[''glamour'']>> - Number of glamour shoots you''ve done'
			if modelfoto['topless'] > 0: '<<modelfoto[''topless'']>> - Number of topless shoots you''ve done'
			if modelfoto['nude'] > 0: '<<modelfoto[''nude'']>> - Number of shoots in which you have been nude'
			if modelfoto['tastenude'] > 0: '<<modelfoto[''tastenude'']>> - Number of shoots in which you have been nude but not shown breasts or pussy'
			if modelfoto['toplessnude'] > 0: '<<modelfoto[''toplessnude'']>> - Number of nude shoots you have shown your breasts but not your pussy'
			if modelfoto['fullnude'] > 0: '<<modelfoto[''fullnude'']>> - Number of full frontal nude shoots you''ve done'
			if modelfoto['erotic'] > 0: '<<modelfoto[''erotic'']>> - Number of softcore erotic shoots you''ve done'
			if modelfoto['nip'] > 0: '<<modelfoto[''nip'']>> - Number of shoots your nipples have been visible'
			if modelfoto['pussy'] > 0: '<<modelfoto[''pussy'']>> - Number of shoots your pussy has been visible'
			if modelfoto['bush'] > 0: '<<modelfoto[''bush'']>> - Number of shoots you have had visible pubic hair'
			if modelfoto['asshole'] > 0: '<<modelfoto[''asshole'']>> - Number of shoots your asshole has been visible'
		end
	end
	*nl

	if masseuse['jobtype'] ! 0:
		'<b>Masseuse</b>'
		masseuse['money_earned'] += masseuse['paycheck']
		if masseuse['jobtype'] = 2:
			masseuse['nude_mass_money_earned'] += masseuse['paycheck']
		elseif masseuse['jobtype'] > 2:
			masseuse['sex_money_earned'] += masseuse['paycheck']
		end
		*nl
		'You have earned <<masseuse[''money_earned'']>> <b>₽</b> working at the salon as well as <<massage[''shift_tips'']>> <b>₽</b> in tips.'
		*nl
		'<<masseuse[''nude_mass_money_earned'']>> <b>₽</b> of it was made working as a nude masseuse.'
		'<<masseuse[''sex_money_earned'']>> <b>₽</b> of it was made working as a whore.'
		*nl
		'<<massage[''sex_tips'']>> <b>₽</b> of your tips came after performing a sexual act.'
	end

	if slavafuck > 0:'You have let Borislav fuck you <<slavafuck>> times'
	if slava_bj > 0:'You have given Borislav <<slava_bj>> blowjobs'

	if maxdamage > 0: 'The impact force on the dynamometer <<maxdamage>> kgN' & *nl

	if stripdancesum > 0 and hidden_stripdancesum = 0:
		'You have danced <<stripdancesum>> times in the stripclub'
	elseif stripdancesum = 0 and hidden_stripdancesum > 0:
		'You have danced <<hidden_stripdancesum>> times in the stripclub, but you do not remember it'
	elseif stripdancesum > 0 and hidden_stripdancesum > 0:
		'You have danced <<stripdancesum+hidden_stripdancesum>> times in the stripclub, but you only remember <<stripdancesum>> times'
	end
	if profiDanceTime > 0: 'You danced <<profiDanceTime>> times professionally.'
	if SchoolAtestat = 1: 'You have finished school.'
	if university['diploma'] > 0: 'You graduated.'
	if teachlevel > 0: 'Your credibility as a teacher is <<teachlevel>>'
	!WD:FORMATING
	if maxdamage > 0 or stripdancesum > 0 or profiDanceTime > 0 or SchoolAtestat > 0 or university['diploma'] > 0 or teachlevel > 0:*nl

	'</td><td width="35%" cellspacing="0" cellpadding="0" valign="top">'
	'<center><b>Sex Statistics</b></center>'
	*nl
	!Sex stats
	! This is my suggestion, change it however you see fit, Sicaa
	if stat['kiss'] > 0: 'Times you have kissed someone: <<stat[''kiss'']>>'
	if mastr > 0 or stat['mast'] > 0: 'Times you have masturbated: <<stat[''mast'']>>'
	if stat['porn'] > 0: 'Times you have watched porn: <<stat[''porn'']>>'
	if stat['flashlite'] > 0 or stat['flash'] > 0: 'Times you have flashed: <<stat[''flashlite''] + stat[''flash'']>>'
	! This is my suggestion, change it however you see fit, Sicaa
	if stat['voyeur'] > 0: 'Times you have spied on erotic displays of others: <<stat[''voyeur'']>>'
	if stat['voyeur_sex'] > 0: 'Times you have watched other people fuck: <<stat[''voyeur_sex'']>>'
	if stat['erotic_nudity'] > 0: 'Times you were exposed to others'' nudity: <<stat[''erotic_nudity'']>>'
	if spank > 0: 'You have had your ass spanked <<spank>> times'
	! This is my suggestion, change it however you see fit, Sicaa
	if stat['BDSM'] > 0 or stat['BDSM_give'] > 0: 'Times you have participated in BDSM (sub/dom): <<stat[''BDSM'']>>/<<stat[''BDSM_give'']>>'
	temp = func('shortgs','guy')
	if guy+temp > 0 and hidden_guy = 0:
		'You had sex with <<guy+temp>> guys.'
	elseif guy+temp = 0 and hidden_guy > 0:
		'You had sex with <<hidden_guy>> guys, but you do not have any recollection of it. You still think of yourself as a virgin.'
	elseif guy+temp > 0 and hidden_guy > 0:
		'You had sex with <<guy+hidden_guy+temp>> guys, but you know only about <<guy+temp>> of them.'
	end
	*nl
	'You have randomly hooked up with <<stat[''hookup'']>> people.'
	temp = func('shortgs','girl')
	if girl+temp > 0 and hidden_girl = 0:
		'You had sex with <<girl+temp>> girls.'
	elseif girl+temp = 0 and hidden_girl > 0:
		'You had sex with <<hidden_girl>> girls, but you do not have any recollection of any of it.'
	elseif girl+temp > 0 and hidden_girl > 0:
		'You had sex with <<girl+temp+hidden_girl>> girls, but you know only about <<girl+temp>> of them.'
	end
	if divorced > 0: 'You were married <<divorced>> times.'
	if suprdolg > 0: 'You performed your conjugal duty for your husband <<suprdolg>> times'
	if rape > 0 and hidden_rape = 0:
		'You have been raped <<rape>> times'
	elseif rape = 0 and hidden_rape > 0:
		'You have been raped <<hidden_rape>> times, but you do not remember any of it'
	elseif rape > 0 and hidden_rape > 0:
		'You have been raped <<rape+hidden_rape>> times, but you only remember <<rape>> of them'
	end

	if slutty > 0 or hidden_slutty > 0:
		if bordelslutty = 0: 'Sold your body <<slutty>> times.'
		if bordelslutty > 0: 'Sold your body <<slutty>> times, including <<bordelslutty>> times in a brothel.'
		if hidden_slutty > 0: 'Sold your body <<hidden_slutty>> times, and gave all the money to your therapist. You do not remember any of it.'
	end

	if orgasm > 0: 'You have experienced <<orgasm>> orgasms.'
	if orgasm_masturbate > 0: '<<orgasm_masturbate>> of them from masturbation.'
	if orgasm_clit > 0 : '<<orgasm_clit>> of them from clitoral stimulation.'
	if orgasm_vaginal > 0 : '<<orgasm - orgasm_clit - orgasm_anal>> of them vaginal orgasms.'
	if orgasm_anal > 0 : '<<orgasm_anal>> of them anal orgasms.'
	if stat['swallow'] > 0: 'Sperm swallowed <<stat[''swallow'']>> times.'
	if stat['cum_facial'] > 0: 'You have taken <<stat[''cum_facial'']>> facials.'
	if frot > 0 or hump > 0: 'Your clothes have been come on <<frot + hump>> times.'
	! This is my suggestion, change it however you see fit, Sicaa
	if stat['pee_give'] > 0: 'You''ve peed on others <<stat[''pee_give'']>> times.'
	if stat['pee'] > 0: 'You''ve been peed on <<stat[''pee'']>> times.'
	if swallowpee > 0: 'You swallowed urine <<swallowpee>> times.'
	!!!WD:FORMATING
	*nl
	!!!
	gs 'obj_din', 'husb_cheat_count'

	if hj > 0 or stat['hj'] > 0 or stat['hidden_hj'] > 0:
		'Jerked men off (known/unknown): <<stat[''hj'']>>/<<stat[''hidden_hj'']>>'
		if hja > 0: 'Jerked off your boyfriend: <<hja>>'
	end

	if stat['footjob'] > 0 or stat['hidden_footjob'] > 0: 'Jerked men off with your feet (known/unknown): <<stat[''footjob'']>>/<<stat[''hidden_footjob'']>>'

	! This is my suggestion, change it however you see fit, Sicaa
	if stat['titjob'] > 0 or stat['hidden_titjob'] > 0: 'Pleasured men with your breasts (known/unknown): <<stat[''titjob'']>>/<<stat[''hidden_titjob'']>>'

	if bj > 0 or stat['bj'] > 0 or stat['hidden_bj'] > 0:
		'Sucked cock (known/unknown): <<stat[''bj'']>>/<<stat[''hidden_bj'']>>'
		if bja > 0: 'Sucked your boyfriends cock: <<bja>>'
		if stat['gloryhole'] > 0 or stat['hidden_gloryhole'] > 0: 'Sucked cock in a gloryhole (known/unknown): <<stat[''gloryhole'']>>/<<stat[''hidden_gloryhole'']>>'
		if furibj > 0: 'Sucked off truckers for a ride <<furibj>> times'
		if furi['road_head_girl'] = 1: 'The truckers who drive the lorries nicknamed you "Road Head Girl".'

	end

	if sex > 0 or stat['vaginal'] > 0 or stat['hidden_vaginal'] > 0: 'Vaginal sex (known/unknown): <<stat[''vaginal'']>>/<<stat[''hidden_vaginal'']>>'
	if sexa > 0: 'Vaginal sex with your boyfriend: <<sexa>>'
	if (pcs_cp_safe_known + pcs_cp_notsafe_known + pcs_cp_risky_known) > 0:
		'    Known vaginal creampies:'
		if pcs_cp_safe_known > 0: '    Safe: <<pcs_cp_safe_known>>'
		if pcs_cp_notsafe_known > 0: '    Likely safe: <<pcs_cp_notsafe_known>>'
		if pcs_cp_risky_known > 0: '    Risky: <<pcs_cp_risky_known>>'
	end
	if (pcs_cp_safe_unknown + pcs_cp_notsafe_unknown + pcs_cp_risky_unknown) > 0:
		'    Unknown vaginal creampies:'
		if pcs_cp_safe_unknown > 0:'    Safe: <<pcs_cp_safe_unknown>>'
		if pcs_cp_notsafe_unknown > 0:'    Likely safe: <<pcs_cp_notsafe_unknown>>'
		if pcs_cp_risky_unknown > 0:'    Risky: <<pcs_cp_risky_unknown>>'
	end

	if lesbian > 0 or hidden_lesbian > 0:
		if hidden_lesbian = 0: 'Lesbian sex (known/unknown): <<lesbian>>/<<hidden_lesbian>>'
	end
	if shemale > 0 or hidden_shemale > 0: 'Sex with shemales (known/unknown): <<shemale>>/<<hidden_shemale>>'

	if anal > 0 or stat['anal'] or stat['hidden_anal']:
		'Anal sex (known/unknown): <<stat[''anal'']>>/<<stat[''hidden_anal'']>>'
		if anala > 0: 'Anal sex with your boyfriend: <<anala>>'
	end
	if pcs_acp_known > 0:  '  Known anal creampies: <<pcs_acp_known>>'
	if pcs_acp_unknown > 0:	'	Unknown anal creampies: <<pcs_acp_unknown>>'

	if gang > 0 or hidden_gang > 0: 'Group sex (known/unknown): <<gang>>/<<hidden_gang>>'
	if kuni > 0 or stat['cuni'] > 0: 'Received cunnilingus: <<stat[''cuni'']>>'
	if stat['vaginal_finger'] > 0: 'Fingered: <<stat[''vaginal_finger'']>>'
	if stat['vaginal_fist'] > 0: 'Fisted: <<stat[''vaginal_fist'']>>'
	if stat['vaginal_dildo'] > 0: 'Fucked a dildo: <<stat[''vaginal_dildo'']>>'
	if stat['vaginal_strap'] > 0: 'Fucked with a strap-on: <<stat[''vaginal_strap'']>>'
	if stat['vaginal_vibe'] > 0: 'Clitoral / Vaginal vibrator: <<stat[''vaginal_vibe'']>>'
	if stat['trib'] > 0: 'Tribadism: <<stat[''trib'']>>'
	if stat['anal_finger'] > 0: 'Anally fingered: <<stat[''anal_finger'']>>'
	if stat['anal_fist'] > 0: 'Anally fisted: <<stat[''anal_fist'']>>'
	if stat['rimming'] > 0: 'Ass rimmed: <<stat[''rimming'']>>'
	if stat['anal_dildo'] > 0: 'Anal sex with a dildo: <<stat[''anal_dildo'']>>'
	if stat['anal_strap'] > 0: 'Ass fucked with a strap-on: <<stat[''anal_strap'']>>'
	if stat['anal_vibe'] > 0: 'Anal vibrator: <<stat[''anal_vibe'']>>'

	if stat['cuni_give'] > 0: 'Performed cunnilingus: <<stat[''cuni_give'']>>'
	if stat['vaginal_finger_give'] > 0: 'Fingered a girl: <<stat[''vaginal_finger_give'']>>'
	if stat['vaginal_fist_give'] > 0: 'Fisted a girl: <<stat[''vaginal_fist_give'']>>'
	if stat['vaginal_dildo_give'] > 0: 'Dildoed a girl: <<stat[''vaginal_dildo_give'']>>'
	if stat['vaginal_strap_give'] > 0: 'Strap-on fucked a girl: <<stat[''vaginal_strap_give'']>>'
	if stat['vaginal_vibe_give'] > 0: 'Used vibrator on a girl: <<stat[''vaginal_vibe_give'']>>'
	if stat['rimming_give'] > 0: 'Rimmed someone: <<stat[''rimming_give'']>>'
	if stat['anal_finger_give'] > 0: 'Fingered someone else''s ass: <<stat[''anal_finger_give'']>>'
	if stat['anal_fist_give'] > 0: 'Fisted someone else''s ass: <<stat[''anal_fist_give'']>>'
	if stat['anal_dildo_give'] > 0: 'Dildoed someone else''s ass: <<stat[''anal_dildo_give'']>>'
	if stat['anal_vibe_give'] > 0: 'Used a vibrator on someone else''s ass: <<stat[''anal_vibe_give'']>>'
	if stat['anal_strap_give'] > 0 or stat['anal_strap_give'] > 0: 'Fucked someone else''s ass with a strap-on: <<stat[''anal_strap_give'']>>'

	'</td><td width="30%" cellspacing="0" cellpadding="0" valign="top">'
	'<center><b>Fetish Statistics</b></center>'
	*nl
	'Feet preference: <<feet[''pref'']>>'
	'Foot jobs / worship: <<feet[''exp'']>>'
	'Deepthroat preference: <<deepthroat[''pref'']>>'
	'Deepthroated: <<deepthroat[''exp'']>>'
	'Group preference: <<group[''pref'']>>'
	'Group sex: <<group[''exp'']>>'
	'Gangbang preference: <<gangbang[''pref'']>>'
	'Gangbangs: <<gangbang[''exp'']>>'
	'Humiliation preference: <<humiliation[''pref'']>>'
	'Humiliation experiences: <<humiliation[''exp'']>>'
	'Prostitution preference: <<prostitution[''pref'']>>'
	'Prostituted yourself: <<prostitution[''exp'']>>'
	'Bondage preference: <<bound[''pref'']>>'
	'Bondage play: <<bound[''exp'']>>'
	'Masochism preference: <<maso[''pref'']>>'
	'Masochism experiences: <<maso[''exp'']>>'
	'Bestiality encounters: <<beast[''pref'']>>'
	'Bestiality experience: <<beast[''exp'']>>'
	'Rough sex preference: <<rough[''pref'']>>'
	'Rough sex: <<rough[''exp'']>>'
	'Incest preference: <<incest[''pref'']>>'
	'Incestuous sex: <<incest[''exp'']>>'
	'</td></tr></table></center>'
end


if $ARGS[0] = 'kidlist':
	kidnumber = ARGS[1]
	if kidage[kidnumber] < 1:
		if (month - monthkid[kidnumber]) < 1 and (day-daykid[kidnumber]) < 7:
			kiddaycalc[kidnumber] = day - daykid[kidnumber]
			if kiddaycalc[kidnumber] = 0:
				$kidagetext[kidnumber] = 'was born today'
			elseif kiddaycalc[kidnumber] = 1:
				$kidagetext[kidnumber] = 'is <<kiddaycalc[kidnumber]>> day old'
			else
				$kidagetext[kidnumber] = 'is <<kiddaycalc[kidnumber]>> days old'
			end
		elseif (month - monthkid[kidnumber]) < 1 :
			kiddaycalc[kidnumber] = (day - daykid[kidnumber]) / 7
			if kiddaycalc[kidnumber] = 1:
				$kidagetext[kidnumber] = 'is <<kiddaycalc[kidnumber]>> week old'
			else
				$kidagetext[kidnumber] = 'is <<kiddaycalc[kidnumber]>> weeks old'
			end
		else
			kidmonthcalc[kidnumber] = (month - monthkid[kidnumber])
			if kidmonthcalc[kidnumber] = 1:
				$kidagetext[kidnumber] = 'is <<kidmonthcalc[kidnumber]>> month old'
			else
				$kidagetext[kidnumber] = 'is <<kidmonthcalc[kidnumber]>> months old'
			end
		end
	else
		if kidage[kidnumber] = 1:
			$kidagetext[kidnumber] = 'is <<kidage[kidnumber]>> year old'
		else
			$kidagetext[kidnumber] = 'is <<kidage[kidnumber]>> years old'
		end
	end
		if polkid[kidnumber] = 0:
			$sdtext[kidnumber] = 'daughter'
		else
			$sdtext[kidnumber] = 'son'
		end
		if polkid[kidnumber] = 0:
			$kidPosProPN[kidnumber] = 'She'
		else
			$kidPosProPN[kidnumber] = 'He'
		end
	*p'You have a <<$sdtext[kidnumber]>> named <<$kidname[kidnumber]>>. <<$kidPosProPN[kidnumber]>> <<$kidagetext[kidnumber]>>. <<$kidname[kidnumber]>>''s date of birth is <<daykid[kidnumber]>>-<<monthkid[kidnumber]>>-<<yearkid[kidnumber]>>'
	'.'
	*nl
	killvar 'kidnumber'
end


if $ARGS[0] = 'reputation':
	*clr & cla
	gs 'obj_din','chartabs'
	!'<center><img src="images/system/icons/reputation.png"><br></center>'
	'<center><h1>Renown</h1></center>'
	'<center><table width="90%" cellspacing="0" cellpadding="20" valign="top">'
	*nl
	'<center>Family Renown</center>'
	if Enable_family_Reputation = 0:
		'<center><a href="exec:Enable_family_Reputation = 1 & gs ''obj_din'', ''reputation''">Show details</a></center>'
	end
	if Enable_family_Reputation = 1:
		'<center><a href="exec:Enable_family_Reputation = 0 & gs ''obj_din'', ''reputation''">Hide details</a></center>'
		if rinslut > 0 or kavslut > 0:'In the residential area of ​​you are known as a whore that sleeps with Caucasians.'
		if opusk > 0 or gnewQW >= 5: 'In the residential area it is well known by all the guys that you are a whore.'
		if mid($start_type,1,2) = 'sg':
			*nl
			if motherKnowWhore > 0:
				'Your mother knows that you are sexually active and considers you a whore.'
			elseif motherKnowSpravka > 0:
				'Your mother knows that you are sexually active.'
			elseif motherKnowDildo > 0:
				'Your mother knows you masturbate with a dildo.'
			else
				'Your mother thinks that you are a virgin.'
			end
			if brotherSex = 10:
				'You and your brother have professed forbidden love to each other.'
			elseif brotherSex = 9:
				'You and your brother are siblings with benefits.'
			elseif evgenQW >= 4 and fame['pav_slut'] >= 250:
				'Your brother thinks you are a total whore.'
			elseif evgenQW >= 3:
				'Your brother thinks you are a slut.'
			elseif brotherSex > 4:
				'You are in a sexual relationship with your brother'
			elseif brotherknowslut = 1:
				'Your brother saw semen on your body and thinks that you fuck around.'
			elseif brotherknowslut >= 2:
				'Your brother saw you in the park screwing Gopniks.'
			else
				'Your brother has a good opinion of you.'
			end

			if sisterknowslut > 1 and sisboypartyQW >= 2:
				'Your sister thinks you are a slut'
			elseif sisterknowslut > 0:
				'Your sister knows that you sleep around.'
			else
				'Your sister has a good opinion of you.'
			end

			if brothershowertalk > 0:'<<brothershowertalk>> - Number of conversations you''ve had with your brother in the shower.'
			if brothershowerlook = 1:'You let your brother look at you when you''re shower'
			if brothershave > 0:'<<brothershave>> - Number of times you''ve let your brother watch you shave your pussy'
			if brotherkiss > 0: '<<brotherkiss>> - Number of times you and your brother have kissed'
			if brotherbj > 0:'<<brotherbj>> - Number of times you''ve given your brother blowjobs'
			brothersextotal = brotherfuck + brotheranal
			if brothersextotal > 0:'<<brothersextotal>> - Number of times you''ve had sex with your brother'
			killvar 'brothersextotal'
		end
	*nl
	end

	'<center>Renown in Pavlovsk</center>'
	if Enable_pav_Reputation = 0:
		'<center><a href="exec:Enable_pav_Reputation = 1 & gs ''obj_din'', ''reputation''">Show details</a></center>'
	end
	if Enable_pav_Reputation = 1:
		'<center><a href="exec:Enable_pav_Reputation = 0 & gs ''obj_din'', ''reputation''">Hide details</a></center>'
		'<b>Performer = <<fame[''pav_performer'']>></b>'
		'  Actor = <<fame[''pav_acting'']>>'
		'  Dancer = <<fame[''pav_dance'']>>'
		'  Glamour model = <<fame[''pav_modelling'']>>'
		'  Painter = <<fame[''pav_painting'']>>'
		'  Musician = <<fame[''pav_music'']>>'
		'  Ballet dancer = <<fame[''pav_ballet'']>>'
		'<b>Sex Industry = <<fame[''pav_sexind'']>></b>'
		'  Porn actor = <<fame[''pav_porn'']>>'
		'  Stripper = <<fame[''pav_stripping'']>>'
		'<b>Slut = <<fame[''pav_slut'']>></b>'
		'  Sex = <<fame[''pav_sex'']>>'
		'  Prostitution = <<fame[''pav_prostitute'']>>'
		'<b>Sports = <<fame[''pav_sport'']>></b>'
		'  Kickboxer = <<fame[''pav_kickboxing'']>>'
		'  Runner = <<fame[''pav_running'']>>'
		'  Volleyball player = <<fame[''pav_volleyball'']>>'
		'<b>Intellectual = <<fame[''pav_int'']>></b>'
		'  Chess player = <<fame[''pav_chess'']>>'
		'  Teacher = <<fame[''pav_teaching'']>>'
		'<b>Social = <<fame[''pav_social'']>></b>'
		'  Social media = <<fame[''pav_media'']>>'
		*nl
	end
	'<center>Renown in the city</center>'
	if Enable_city_Reputation = 0:
		'<center><a href="exec:Enable_city_Reputation = 1 & gs ''obj_din'', ''reputation''">Show details</a></center>'
	end
	if Enable_city_Reputation = 1:
		'<center><a href="exec:Enable_city_Reputation = 0 & gs ''obj_din'', ''reputation''">Hide details</a></center>'
		'<b>Performer = <<fame[''city_performer'']>></b>'
		'  Actor = <<fame[''city_acting'']>>'
		'  Dancer = <<fame[''city_dance'']>>'
		'  Glamour model = <<fame[''city_modelling'']>>'
		'  Painter = <<fame[''city_painting'']>>'
		'  Musician = <<fame[''city_music'']>>'
		'  Ballet dancer = <<fame[''city_ballet'']>>'
		'<b>Sex Industry = <<fame[''city_sexind'']>></b>'
		'  Porn actor = <<fame[''city_porn'']>>'
		'  Stripper = <<fame[''city_stripping'']>>'
		'<b>Slut = <<fame[''city_slut'']>></b>'
		'  Sex = <<fame[''city_sex'']>>'
		'  Prostitution = <<fame[''city_prostitute'']>>'
		'<b>Sports = <<fame[''city_sport'']>></b>'
		'  Kickboxer = <<fame[''city_kickboxing'']>>'
		'  Runner = <<fame[''city_running'']>>'
		'  Volleyball player = <<fame[''city_volleyball'']>>'
		'<b>Intellectual = <<fame[''city_int'']>></b>'
		'  Chess player = <<fame[''city_chess'']>>'
		'  Teacher = <<fame[''city_teaching'']>>'
		'<b>Social = <<fame[''city_social'']>></b>'
		'  Social media = <<fame[''city_media'']>>'
		*nl
	end
	'<center>Renown in the old town</center>'
	if Enable_oldtown_Reputation = 0:
		'<center><a href="exec:Enable_oldtown_Reputation = 1 & gs ''obj_din'', ''reputation''">Show details</a></center>'
	end
	if Enable_oldtown_Reputation = 1:
		'<center><a href="exec:Enable_oldtown_Reputation = 0 & gs ''obj_din'', ''reputation''">Hide details</a></center>'
		'<b>Performer = <<fame[''pushkin_performer'']>></b>'
		'  Actor = <<fame[''pushkin_acting'']>>'
		'  Dancer = <<fame[''pushkin_dance'']>>'
		'  Glamour model = <<fame[''pushkin_modelling'']>>'
		'  Painter = <<fame[''pushkin_painting'']>>'
		'  Musician = <<fame[''pushkin_music'']>>'
		'  Ballet dancer = <<fame[''pushkin_ballet'']>>'
		'<b>Sex Industry = <<fame[''pushkin_sexind'']>></b>'
		'  Porn actor = <<fame[''pushkin_porn'']>>'
		'  Stripper = <<fame[''pushkin_stripping'']>>'
		'<b>Slut = <<fame[''pushkin_slut'']>></b>'
		'  Sex = <<fame[''pushkin_sex'']>>'
		'  Prostitution = <<fame[''pushkin_prostitute'']>>'
		'<b>Sports = <<fame[''pushkin_sport'']>></b>'
		'  Kickboxer = <<fame[''pushkin_kickboxing'']>>'
		'  Runner = <<fame[''pushkin_running'']>>'
		'  Volleyball player = <<fame[''pushkin_volleyball'']>>'
		'<b>Intellectual = <<fame[''pushkin_int'']>></b>'
		'  Chess player = <<fame[''pushkin_chess'']>>'
		'  Teacher = <<fame[''pushkin_teaching'']>>'
		'<b>Social = <<fame[''pushkin_social'']>></b>'
		'  Social media = <<fame[''pushkin_media'']>>'
		*nl
	end
	'<center>Renown in the village</center>'
	if Enable_village_Reputation = 0:
		'<center><a href="exec:Enable_village_Reputation = 1 & gs ''obj_din'', ''reputation''">Show details</a></center>'
	end
	if Enable_village_Reputation = 1:
		'<center><a href="exec:Enable_village_Reputation = 0 & gs ''obj_din'', ''reputation''">Hide details</a></center>'
		'<b>Performer = <<fame[''village_performer'']>></b>'
		'  Actor = <<fame[''village_acting'']>>'
		'  Dancer = <<fame[''village_dance'']>>'
		'  Glamour model = <<fame[''village_modelling'']>>'
		'  Painter = <<fame[''village_painting'']>>'
		'  Musician = <<fame[''village_music'']>>'
		'  Ballet dancer = <<fame[''village_ballet'']>>'
		'<b>Sex Industry = <<fame[''village_sexind'']>></b>'
		'  Porn actor = <<fame[''village_porn'']>>'
		'  Stripper = <<fame[''village_stripping'']>>'
		'<b>Slut = <<fame[''village_slut'']>></b>'
		'  Sex = <<fame[''village_sex'']>>'
		'  Prostitution = <<fame[''village_prostitute'']>>'
		'<b>Sports = <<fame[''village_sport'']>></b>'
		'  Kickboxer = <<fame[''village_kickboxing'']>>'
		'  Runner = <<fame[''village_running'']>>'
		'  Volleyball player = <<fame[''village_volleyball'']>>'
		'<b>Intellectual = <<fame[''village_int'']>></b>'
		'  Chess player = <<fame[''village_chess'']>>'
		'  Teacher = <<fame[''village_teaching'']>>'
		'<b>Social = <<fame[''village_social'']>></b>'
		'  Social media = <<fame[''village_media'']>>'
	end

	if film > 0:
		*nl
		'<b>Pornographic Filmography</b>'
		gs 'pornhist', 'short'
		if pfilmSTOP = 0:
			*nl
			'<font color="magenta"><<$pfname>></font> has starred in <b><<film>></b> porn films:'
			*nl
		else
			*nl
			'<font color="magenta"><<$pfname>></font> retired after <b><<film>></b> porn films:'
			*nl
		end
		'<a href="exec:gs ''pornhist'', ''pdetail''">View detailed Filmography</a>'
		*nl
		*p '<<$pfilmhistory>>'
	end
	'</td></tr></table></center>'
end

if $ARGS[0] = 'magic':
	*clr & cla
	gs 'obj_din','chartabs'
	'<center><h1>Magic</h1></center>'
	'<center><table width="90%" cellspacing="0" cellpadding="20" valign="top"><tr>'
	'<td cellspacing="0" cellpadding="0" valign="top">'
	if $start_type[1] = 'nomagic':
		'You are unable to use magic.'
	else
		'You have <<pcs_mana>> units of mana available to you.'
		!!' Forces Rikudo available to you <<rikudo>> units'
		*nl

		$SpellListStr = "<center>
			<h1>Combat Spells</h1><br>
			<<func('spellBook','list','$combatSpells')>><br>
			<h1>Non-Combat Spells</h1><br>
			<<func('spellBook','list','$nonComSpells')>><br>
		</center>"

		*pl func('cleanHTML',$SpellListStr)

		killvar 'i'
		killvar '$ThisSpellName'
		killvar '$SpellListStr'

	end

	if succubusflag = 1 and sucpcinfo >= 4 and sucskill >= 1:
		'<center><b>Succubus Stats</b></center>'
		*nl
		'Succubus Level = <<succublvl>>'
		'Succubus XP = <<succubxp>>'
		'"Food" Energy Reserve = <<0 - succhungry>> day(s)'
		'Stored Sexual Energy = <<sucexcess>>'
		'Sexual Energy Storage Capacity = <<sucstorecap>>'
		*nl
		if sucskill >= 2: 'You have learned to increase your storage capacity and to store energy before using it.'
		if sucskill >= 3: 'You have learned to be more efficient in your energy handling.'
		if sucskill >= 4: 'You have learned the accommodation ability.'
		*nl
!!		More to come
	end
	'</td></tr></table></center>'
end

if $ARGS[0] = 'pain':
	*clr & cla
	gs 'obj_din','chartabs'
	'<center><h1>Pain</h1></center>'
	'<center><table cellspacing="0" cellpadding="20" valign="top"><tr>'
	'<td cellspacing="0" cellpadding="0" valign="top">'
	if pain['head'] > 0:
		if pain['head'] > 70:
			'<b><font color="red">Your head is in extreme pain.</font></b>'
		elseif pain['head'] > 40:
			'Your head is very sore.'
		else
			'Your head hurts.'
		end
	end
	if pain['hair'] > 0:
		if pain['hair'] > 70:
			'<b><font color="red">Your scalp is in extreme pain.</font></b>'
		elseif pain['hair'] > 40:
			'Your scalp is very sore.'
		else
			'Your scalp hurts.'
		end
	end
	if pain['ears'] > 0:
		if pain['ears'] > 70:
			'<b><font color="red">Your ears are in extreme pain.</font></b>'
		elseif pain['ears'] > 40:
			'Your ears are very sore.'
		else
			'Your ears hurt.'
		end
	end
	if pain['eyebrows'] > 0:
		if pain['eyebrows'] > 70:
			'<b><font color="red">Your eyebrows are in extreme pain.</font></b>'
		elseif pain['eyebrows'] > 40:
			'Your eyebrows are very sore.'
		else
			'Your eyebrows hurt.'
		end
	end
	if pain['eyes'] > 0:
		if pain['eyes'] > 70:
			'<b><font color="red">Your eyes are in extreme pain.</font></b>'
		elseif pain['eyes'] > 40:
			'Your eyes are very sore.'
		else
			'Your eyes hurt.'
		end
	end
	if pain['cheeks'] > 0:
		if pain['cheeks'] > 70:
			'<b><font color="red">Your cheeks are in extreme pain.</font></b>'
		elseif pain['cheeks'] > 40:
			'Your cheeks are very sore.'
		else
			'Your cheeks hurt.'
		end
	end
	if pain['nose'] > 0:
		if pain['nose'] > 70:
			'<b><font color="red">Your nose is in extreme pain.</font></b>'
		elseif pain['nose'] > 40:
			'Your nose is very sore.'
		else
			'Your nose hurts.'
		end
	end
	if pain['mouth'] > 0:
		if pain['mouth'] > 70:
			'<b><font color="red">Your mouth is in extreme pain.</font></b>'
		elseif pain['mouth'] > 40:
			'Your mouth is very sore.'
		else
			'Your mouth hurts.'
		end
	end
	if pain['jaw'] > 0:
		if pain['jaw'] > 70:
			'<b><font color="red">Your jaw is in extreme pain.</font></b>'
		elseif pain['jaw'] > 40:
			'Your jaw is very sore.'
		else
			'Your jaw hurts.'
		end
	end
	if pain['lips'] > 0:
		if pain['lips'] > 70:
			'<b><font color="red">Your lips are in extreme pain.</font></b>'
		elseif pain['lips'] > 40:
			'Your lips are very sore.'
		else
			'Your lips hurt.'
		end
	end
	if pain['tongue'] > 0:
		if pain['tongue'] > 70:
			'<b><font color="red">Your tongue is in extreme pain.</font></b>'
		elseif pain['tongue'] > 40:
			'Your tongue is very sore.'
		else
			'Your tongue hurts.'
		end
	end
	if pain['throat'] > 0:
		if pain['throat'] > 70:
			'<b><font color="red">Your throat is in extreme pain.</font></b>'
		elseif pain['throat'] > 40:
			'Your throat is very sore.'
		else
			'Your throat hurts.'
		end
	end
	if pain['neck'] > 0:
		if pain['neck'] > 70:
			'<b><font color="red">Your neck is in extreme pain.</font></b>'
		elseif pain['neck'] > 40:
			'Your neck is very sore.'
		else
			'Your neck hurts.'
		end
	end
	if pain['back'] > 0:
		if pain['back'] > 70:
			'<b><font color="red">Your back is in extreme pain.</font></b>'
		elseif pain['back'] > 40:
			'Your back is very sore.'
		else
			'Your back hurts.'
		end
	end
	if pain['asscheeks'] + (spanked * 24) > 0:
		if pain['asscheeks'] + (spanked * 24) > 70:
			'<b><font color="red">Your <a href="exec:view''images/pc/body/spankedass2.jpg''">asscheeks</a> are in extreme pain.</font></b>'
		elseif pain['asscheeks'] + (spanked * 24) > 40:
			'<b><font color="red">Your <a href="exec:view''images/pc/body/spankedass1.jpg''">asscheeks</a> are very sore.</font></b>'
		else
			'<b><font color="red">Your <a href="exec:view''images/pc/body/spankedass.jpg''">asscheeks</a> hurt.</font></b>'
		end
	end
	if pain['asshole'] + (agape * 10) > 0:
		if pain['asshole'] + (agape * 10) > 70:
			'<b><font color="red">You have an extremely sore anus and it is bleeding.</font></b>'
		elseif pain['asshole'] + (agape * 10) > 40:
			'<b><font color="red">You have a very sore anus.</font></b>'
		else
			'<b><font color="red">You have a sore and itchy anus.</font></b>'
		end
	end
	if pain['hips'] > 0:
		if pain['hips'] > 70:
			'<b><font color="red">Your hips are in extreme pain.</font></b>'
		elseif pain['hips'] > 40:
			'Your hips are very sore.'
		else
			'Your hips hurt.'
		end
	end
	if pain['thighs'] > 0:
		if pain['thighs'] > 70:
			'<b><font color="red">Your thighs are in extreme pain.</font></b>'
		elseif pain['thighs'] > 40:
			'Your thighs are very sore.'
		else
			'Your thighs hurt.'
		end
	end
	if pain['legL'] > 0:
		if pain['legL'] > 70:
			'<b><font color="red">Your left leg is in extreme pain.</font></b>'
		elseif pain['legL'] > 40:
			'Your left leg is very sore.'
		else
			'Your left leg hurts.'
		end
	end
	if pain['legR'] > 0:
		if pain['legR'] > 70:
			'<b><font color="red">Your right leg is in extreme pain.</font></b>'
		elseif pain['legR'] > 40:
			'Your right leg is very sore.'
		else
			'Your right leg hurts.'
		end
	end
	if pain['feet'] > 0:
		if pain['feet'] > 70:
			'<b><font color="red">Your feet are in extreme pain.</font></b>'
		elseif pain['feet'] > 40:
			'Your feet are very sore.'
		else
			'Your feet hurt.'
		end
	end
	if pain['toes'] > 0:
		if pain['toes'] > 70:
			'<b><font color="red">Your toes are in extreme pain.</font></b>'
		elseif pain['toes'] > 40:
			'Your toes are very sore.'
		else
			'Your toes foot hurt.'
		end
	end
	if pain['shoulders'] > 0:
		if pain['shoulders'] > 70:
			'<b><font color="red">Your shoulders are in extreme pain.</font></b>'
		elseif pain['shoulders'] > 40:
			'Your shoulders are very sore.'
		else
			'Your shoulders hurt.'
		end
	end
	if pain['armL'] > 0:
		if pain['armL'] > 70:
			'<b><font color="red">Your left arm is in extreme pain.</font></b>'
		elseif pain['armL'] > 40:
			'Your left arm is very sore.'
		else
			'Your left arm hurts.'
		end
	end
	if pain['armR'] > 0:
		if pain['armR'] > 70:
			'<b><font color="red">Your right arm is in extreme pain.</font></b>'
		elseif pain['armR'] > 40:
			'Your right arm is very sore.'
		else
			'Your right arm hurts.'
		end
	end
	if pain['hands'] > 0:
		if pain['hands'] > 70:
			'<b><font color="red">Your hands are in extreme pain.</font></b>'
		elseif pain['hands'] > 40:
			'Your hands are very sore.'
		else
			'Your hands hurt.'
		end
	end
	if pain['fingers'] > 0:
		if pain['fingers'] > 70:
			'<b><font color="red">Your fingers are in extreme pain.</font></b>'
		elseif pain['fingers'] > 40:
			'Your fingers are very sore.'
		else
			'Your fingers hurt.'
		end
	end
	if pain['chest'] > 0:
		if pain['chest'] > 70:
			'<b><font color="red">Your chest is in extreme pain.</font></b>'
		elseif pain['chest'] > 40:
			'Your chest is very sore.'
		else
			'Your chest hurts.'
		end
	end
	if pain['breasts'] > 0:
		if pain['breasts'] > 70:
			'<b><font color="red">Your breasts are in extreme pain.</font></b>'
		elseif pain['breasts'] > 40:
			'Your breasts are very sore.'
		else
			'Your breasts hurt.'
		end
	end
	if pain['nipples'] > 0:
		if pain['nipples'] > 70:
			'<b><font color="red">Your nipples are in extreme pain.</font></b>'
		elseif pain['nipples'] > 40:
			'Your nipples are very sore.'
		else
			'Your nipples hurt.'
		end
	end
	if pain['ribs'] > 0:
		if pain['ribs'] > 70:
			'<b><font color="red">Your ribs are in extreme pain.</font></b>'
		elseif pain['ribs'] > 40:
			'Your ribs are very sore.'
		else
			'Your ribs hurt.'
		end
	end
	if pain['tummy'] > 0:
		if pain['tummy'] > 70:
			'<b><font color="red">Your tummy is in extreme pain.</font></b>'
		elseif pain['tummy'] > 40:
			'Your tummy is very sore.'
		else
			'Your tummy hurts.'
		end
	end
	if pain['pubic'] > 0:
		if pain['pubic'] > 70:
			'<b><font color="red">Your pubis is extremely painful.</font></b>'
		elseif pain['pubic'] > 40:
			'Your pubis is very sore.'
		else
			'Your pubis hurts.'
		end
	end
	if pain['labia'] > 0:
		if pain['labia'] > 70:
			'<b><font color="red">Your labia is extremely painful.</font></b>'
		elseif pain['labia'] > 40:
			'Your labia is very sore.'
		else
			'Your labia hurts.'
		end
	end
	if pain['vaginal'] + (vgape * 8) > 0:
		if pain['vaginal'] + (vgape * 8) > 70:
			'<b><font color="red">You have very sore vagina, you can hardly even walk, while trying to keep your feet apart.</font></b>'
		elseif pain['vaginal'] + (vgape * 8) > 40:
			'<b><font color="red">You have a very sore vagina and you can hardly keep your feet together.</font></b>'
		else
			'<b><font color="red">You have a sore vagina.</font></b>'
		end
	end
	if pain['clitoris'] > 0:
		if pain['clitoris'] > 70:
			'<b><font color="red">Your clitoris is in extreme pain.</font></b>'
		elseif pain['clitoris'] > 40:
			'Your clitoris is very sore.'
		else
			'Your clitoris hurts.'
		end
	end
	if pain['urethra'] > 0:
		if pain['urethra'] > 70:
			'<b><font color="red">Your urethra is extremely painful.</font></b>'
		elseif pain['urethra'] > 40:
			'Your urethra is very sore.'
		else
			'Your urethra hurts.'
		end
	end
	if pain['cervix'] > 0:
		if pain['cervix'] > 70:
			'<b><font color="red">Your cervix is in extreme pain.</font></b>'
		elseif pain['cervix'] > 40:
			'Your cervix is very sore.'
		else
			'Your cervix hurts.'
		end
	end
	'</td></tr></table></center>'
end

if $ARGS[0] = 'face':
	!disay image and escription for menu
	*clr
	$BACKIMAGE = ''
	gs 'obj_din','bodytabs'
	'<center><h1>Looks</h1></center>'
	'<center><table width="90%" cellspacing="0" cellpadding="20" valign="top"><tr>'
	'<td cellspacing="0" cellpadding="0" valign="top">'
	$img_temp = func('$face_image')
	'<center><img <<$set_imgh>> src="<<$img_temp>>"></a></center>'
	killvar 'img_temp'
	if $face_style['avatar_hair'] ! '':
		'Your hair: <<$face_style[''avatar_hair'']>>.'
	else
		'<<$hair>>'
	end
	if defcurly = 0 and curly > 0: 'Your curls are good for another <<curly>> days.'
	if defcurly = 1 and straight > 0: 'Your hair should be straight for another <<straight>> days.'
	*nl

	'<<$pc_descFull[''lip'']>>'
	'<<$pc_descFull[''throat'']>>'
	'<<$pc_descFull[''skin'']>>'
	'<<$pc_descFull[''eyes'']>>'
	'<<$pc_descFull[''makeup'']>>.'
	'</td></tr></table></center>'
end

if $ARGS[0] = 'body':
	*clr
	gs 'obj_din','bodytabs'
	'<center><h1>Body</h1></center>'
	'<center><table width="90%" cellspacing="0" cellpadding="20" valign="top"><tr>'
	'<td cellspacing="0" cellpadding="0" valign="top">'
!!	This displays the body image; $bodimgsets[x9] is the folder name
	!some in-game script may call this to display image, so leave it be
	$img_temp = func('$body_image','body')
	if $modApi_body_image ! '':
		$img_temp = $modApi_body_image
	end
	'<center><img <<$set_imgh>> src="<<$img_temp>>"></a></center>'
	if $modApi_body_image_msg = '':
		'<<$body_image_msg>>'
	else
		'<<$modApi_body_image_msg>>'
	end
	killvar 'img_temp'
	killvar 'body_image_msg'
	'</td></tr></table></center>'
end

if $ARGS[0] = 'clothes':
	*clr
	gs 'obj_din','bodytabs'
	'<center><h1>Clothes</h1></center>'

	$temp_table = '<center><table border=0 cellspacing=<<ward_img_hgt/25>> cellpadding=5>'

	$temp_table += '<tr>'
	if underwear['type'] = 0:
		$temp_table += '<th width="33%">Bra worn</th>'
	else
		$temp_table += '<th width="33%">Bodysuit worn</th>'
	end
	$temp_table += '<th width="33%">Outfit worn</th>'
	$temp_table += '<th width="33%">Coat (only worn outside when cold)</th>'

	$temp_table += '</tr><tr>'

	if underwear['type'] = 0:
		$temp_table += '<td><center><img Height = <<ward_img_hgt>> src="<<func(''$body_image'',''bra'')>>"></center></td>'
	else
		$temp_table += '<td rowspan=4><center><img Height = <<ward_img_hgt>>*2 src="<<func(''$body_image'',''bodysuit'')>>"></center></td>'
	end
	$temp_table += '<td><center><img Height = <<ward_img_hgt * 2>> src="<<func(''$body_image'',''clothes'')>>"></center></td>'

	if $coatworntype ! 'none':
		$temp_table += '<td><center><img Height = <<ward_img_hgt * 2>> src="<<func(''$body_image'', ''coat'')>>"></center></td>'
	else
		$temp_table += '<td></td>'
	end

	$temp_table += '</tr><tr>'

	if underwear['type'] = 0:
		if $braworntype ! 'none':
			$temp_table += '<td><center>You are wearing <<$braworntype>> bra no. <<brawornnumber>></center></td>'
		else
			$temp_table += '<td><center>You are not wearing a bra</center></td>'
		end
	end

	!move image define to $body_image
	!display cloth
	gs '$body_image', 'clothes'
	if $modApi_clothes_image ! '':
		$img_temp = $modApi_clothes_image
	end

	if $modApi_clothes_image_msg = '':
		$temp_table += '<td><center><<$body_image_msg>></center></td>'
	else
		$temp_table += '<td><center><<$modApi_clothes_image_msg>></center></td>'
	end

	!display coat
	gs '$body_image', 'coat'
	if $modApi_coat_image_msg = '':
		$temp_table += '<td><center><<$body_image_msg>></center></td>'
	else
		$temp_table += '<td><center><<$modApi_coat_image_msg>></center></td>'
	end

	$temp_table += '</tr><tr>'

	if underwear['type'] = 0:
		$temp_table += '<th>Panties worn</th>'
	end
	$temp_table += '<th>Shoes (Only worn outside)</th><th>Purse worn</th>'

	$temp_table += '</tr><tr>'

	if underwear['type'] = 0:
		$temp_table += '<td><center><img Height = <<ward_img_hgt>> src="<<FUNC(''$body_image'',''panties'')>>"></center></td>'
	end
	$temp_table += '<td><center><img Height = <<ward_img_hgt>> src="<<FUNC(''$body_image'', ''shoes'')>>"></center></td>'

	if bag = 1:
		$temp_table += '<td><center><img Height = <<ward_img_hgt>> src="<<FUNC(''$purse_image'', $currentpursetype, currentpursenumber)>>"></center></td>'
	else
		$temp_table += '<td></td>'
	end

	$temp_table += '</tr><tr>'

	if underwear['type'] = 0:
		if $pantyworntype ! 'none':
			$temp_table += '<td><center>You are wearing <<$pantyworntype>> panties no. <<pantywornnumber>></center></td>'
		else
			$temp_table += '<td><center>You are not wearing panties</center></td>'
		end
	else
		$temp_table += '<td><center>You are wearing <<$bodysuitworntype>> bodysuit no. <<bodysuitwornnumber>></center></td>'
	end

	if $shoeworntype ! 'none':
		$temp_table += '<td><center>You are wearing <<$shoeworntype>> shoes no. <<shoewornnumber>></center></td>'
	else
		$temp_table += '<td><center>You do not have any shoes selected</center></td>'
	end
	if bag = 1:
		$temp_table += '<td><center>You are using <<$currentpursetype>> purse no. <<currentpursenumber>></center></td>'
	else
		$temp_table += '<td><center>You do not have a purse equipped</center></td>'
	end
	$temp_table += '</tr></table></center>'
	'<<$temp_table>>'
	killvar '$temp_table'
end

if $ARGS[0] = 'show_tits':
	if pcs_nips >= 40 and pcs_nips < 60 and tits = 2:
		view 'images/pc/body/tits/t<<tits>>_p.jpg'
	else
		view 'images/pc/body/tits/t<<tits>>.jpg'
	end
end

if $ARGS[0] = 'show_body':
	$img_temp = func('$body_image','body')
	view '<<$img_temp>>'
	killvar 'img_temp'
end

if $ARGS[0] = 'show_teeth':
	if pcs_brace = 1:
		view 'images/pc/body/teeth/brace.jpg'
	elseif pcs_teeth = -1:
		view 'images/pc/body/teeth/goodteeth.jpg'
	elseif pcs_teeth = 1:
		view 'images/pc/body/teeth/badteeth1.jpg'
	elseif pcs_teeth = 2:
		view 'images/pc/body/teeth/badteeth2.jpg'
	else
		view 'images/pc/body/teeth/averageteeth.jpg'
	end
end

if $ARGS[0] = 'show_missing_teeth':
	view 'images/pc/body/teeth/missing.jpg'
end

if $ARGS[0] = 'shoes':
	*clr
	gs 'obj_din','bodytabs'
	'<center><h1>Shoes</h1></center>'
	'<center><table width="90%" cellspacing="0" cellpadding="20" valign="top"><tr>'
	'<td cellspacing="0" cellpadding="0" valign="top">'
	$img_temp = func('$body_image','shoes')
	if $modApi_shoes_image ! '':
		$img_temp = $modApi_shoes_image
	end
	'<center><img <<$set_imgh>> src="<<$img_temp>>"></a></center>'
	if $modApi_shoes_image_msg = '':
		'<<$body_image_msg>>'
	else
		'<<$modApi_shoes_image_msg>>'
	end
	killvar 'img_temp'
	killvar 'body_image_msg'
	'</td></tr></table></center>'
end

if $ARGS[0] = 'tattoos':
	*clr & cla
	gs 'obj_din','bodytabs'
	'<center><h1>Tattoos</h1></center>'

	if pcs_tattoos['total'] = 0:
		'You have a pristine body. Not in terms of debauchery, but in terms of tattoos.'
		exit
	end

	'<center>'
	*pl
	if pcs_tattoos['face'] > 0:
		*p '<a href="exec: gs ''obj_din'', ''tattooface''">Face</a> | '
	else
		*p 'Face | '
	end
	if pcs_tattoos['lip'] > 0:
		*p '<a href="exec: gs ''obj_din'', ''tattoolip''">Lip</a> | '
	else
		*p 'Lip | '
	end
	if pcs_tattoos['neck'] > 0:
		*p '<a href="exec: gs ''obj_din'', ''tattooneck''">Neck</a> | '
	else
		*p 'Neck | '
	end
	if pcs_tattoos['back'] > 0:
		*p '<a href="exec: gs ''obj_din'', ''tattooback''">Back</a> | '
	else
		*p 'Back | '
	end
	if pcs_tattoos['shoulder'] > 0:
		*p '<a href="exec: gs ''obj_din'', ''tattooshoulder''">Shoulder</a> | '
	else
		*p 'Shoulder | '
	end
	if pcs_tattoos['breast'] > 0:
		*p '<a href="exec: gs ''obj_din'', ''tattoobreast''">Breast</a> | '
	else
		*p 'Breast | '
	end
	if pcs_tattoos['under'] > 0:
		*p '<a href="exec: gs ''obj_din'', ''tattoounder''">Under Breast</a> | '
	else
		*p 'Under Breast | '
	end
	if pcs_tattoos['chest'] > 0:
		*p '<a href="exec: gs ''obj_din'', ''tattoochest''">Chest</a> | '
	else
		*p 'Chest | '
	end
	if pcs_tattoos['side'] > 0:
		*p '<a href="exec: gs ''obj_din'', ''tattooside''">Side</a> | '
	else
		*p 'Side | '
	end
	if pcs_tattoos['belly'] > 0:
		*p '<a href="exec: gs ''obj_din'', ''tattoobelly''">Belly</a>'
	else
		*p 'Belly'
	end
	*pl
	if pcs_tattoos['arm'] > 0:
		*p '<a href="exec: gs ''obj_din'', ''tattooarm''">Arm</a> | '
	else
		*p 'Arm | '
	end
	if pcs_tattoos['wrist'] > 0:
		*p '<a href="exec: gs ''obj_din'', ''tattoowrist''">Wrist</a> | '
	else
		*p 'Wrist | '
	end
	if pcs_tattoos['hand'] > 0:
		*p '<a href="exec: gs ''obj_din'', ''tattoohand''">Hand</a> | '
	else
		*p 'Hand | '
	end
	if pcs_tattoos['leg'] > 0:
		*p '<a href="exec: gs ''obj_din'', ''tattooleg''">Leg</a> | '
	else
		*p 'Leg | '
	end
	if pcs_tattoos['ankle'] > 0:
		*p '<a href="exec: gs ''obj_din'', ''tattooankle''">Ankle</a> | '
	else
		*p 'Foot | '
	end

	if pcs_tattoos['tramp'] > 0:
		*p '<a href="exec: gs ''obj_din'', ''tattootramp''">"Tramp Stamp"</a> | '
	else
		*p 'Tramp Stamp | '
	end
	if pcs_tattoos['ass'] > 0:
		*p '<a href="exec: gs ''obj_din'', ''tattooass''">Butt</a> | '
	else
		*p 'Butt | '
	end
	if pcs_tattoos['pussy'] > 0:
		*p '<a href="exec: gs ''obj_din'', ''tattoovag''">Groin</a>'
	else
		*p 'Groin'
	end
	'</center>'
end

!!Image displays for tattoos
if $ARGS[0] = 'tattooankle':
	*clr
	gs 'obj_din', 'tattoos'
	*nl
	'<center><img <<$set_imgh>> src="<<func(''tattoo_management'', ''ankle_image'')>>"></center>'
end

if $ARGS[0] = 'tattooarm':
	*clr
	gs 'obj_din', 'tattoos'
	*nl
	'<center><img <<$set_imgh>> src="<<func(''tattoo_management'', ''arm_image'')>>"></center>'
end

if $ARGS[0] = 'tattooass':
	*clr
	gs 'obj_din', 'tattoos'
	*nl
	'<center><img <<$set_imgh>> src="<<func(''tattoo_management'', ''ass_image'')>>"></center>'
end

if $ARGS[0] = 'tattooback':
	*clr
	gs 'obj_din', 'tattoos'
	*nl
	'<center><img <<$set_imgh>> src="<<func(''tattoo_management'', ''back_image'')>>"></center>'
end

if $ARGS[0] = 'tattoobelly':
	*clr
	gs 'obj_din', 'tattoos'
	*nl
	'<center><img <<$set_imgh>> src="<<func(''tattoo_management'', ''belly_image'')>>"></center>'
end

if $ARGS[0] = 'tattoobreast':
	*clr
	gs 'obj_din', 'tattoos'
	*nl
	'<center><img <<$set_imgh>> src="<<func(''tattoo_management'', ''breast_image'')>>"></center>'
end

if $ARGS[0] = 'tattoochest':
	*clr
	gs 'obj_din', 'tattoos'
	*nl
	'<center><img <<$set_imgh>> src="<<func(''tattoo_management'', ''chest_image'')>>"></center>'
end

if $ARGS[0] = 'tattooface':
	*clr
	gs 'obj_din', 'tattoos'
	*nl
	'<center><img <<$set_imgh>> src="<<func(''tattoo_management'', ''face_image'')>>"></center>'
end

if $ARGS[0] = 'tattoohand':
	*clr
	gs 'obj_din', 'tattoos'
	*nl
	'<center><img <<$set_imgh>> src="<<func(''tattoo_management'', ''hand_image'')>>"></center>'
end

if $ARGS[0] = 'tattooleg':
	*clr
	gs 'obj_din', 'tattoos'
	*nl
	'<center><img <<$set_imgh>> src="<<func(''tattoo_management'', ''leg_image'')>>"></center>'
end

if $ARGS[0] = 'tattoolip':
	*clr
	gs 'obj_din', 'tattoos'
	*nl
	'<center><img <<$set_imgh>> src="<<func(''tattoo_management'', ''lip_image'')>>"></center>'
end

if $ARGS[0] = 'tattooneck':
	*clr
	gs 'obj_din', 'tattoos'
	*nl
	'<center><img <<$set_imgh>> src="<<func(''tattoo_management'', ''neck_image'')>>"></center>'
end

if $ARGS[0] = 'tattoovag':
	*clr
	gs 'obj_din', 'tattoos'
	*nl
	'<center><img <<$set_imgh>> src="<<func(''tattoo_management'', ''pussy_image'')>>"></center>'
end

if $ARGS[0] = 'tattooshoulder':
	*clr
	gs 'obj_din', 'tattoos'
	*nl
	'<center><img <<$set_imgh>> src="<<func(''tattoo_management'', ''shoulder_image'')>>"></center>'
end

if $ARGS[0] = 'tattooside':
	*clr
	gs 'obj_din', 'tattoos'
	*nl
	'<center><img <<$set_imgh>> src="<<func(''tattoo_management'', ''side_image'')>>"></center>'
end

if $ARGS[0] = 'tattootramp':
	*clr
	gs 'obj_din', 'tattoos'
	*nl
	'<center><img <<$set_imgh>> src="<<func(''tattoo_management'', ''tramp_image'')>>"></center>'
end

if $ARGS[0] = 'tattoounder':
	*clr
	gs 'obj_din', 'tattoos'
	*nl
	'<center><img <<$set_imgh>> src="<<func(''tattoo_management'', ''under_image'')>>"></center>'
end

if $ARGS[0] = 'tattoowrist':
	*clr
	gs 'obj_din', 'tattoos'
	*nl
	'<center><img <<$set_imgh>> src="<<func(''tattoo_management'', ''wrist_image'')>>"></center>'
end


if $ARGS[0] = 'piercing':
	*clr & cla
	gs 'obj_din','bodytabs'
	'<center><h1>Piercings</h1></center>'
	'<center>'
	if pcs_piercings['total']:
		'You have no piercings.'
	elseif pcs_piercings['wearing'] = 0:
		'You are not wearing any piercings'
	else
		*pl
		if pcs_piercings['ears'] > 0:
			*p '<a href="exec:gs ''obj_din'', ''piercing_ears''">Ears</a> | '
		else
			*p 'Ears | '
		end
		if pcs_piercings['nose'] > 0:
			*p '<a href="exec:gs ''obj_din'', ''piercing_nose''">Nose</a> | '
		else
			*p 'Nose | '
		end
		if pcs_piercings['brow'] > 0:
			*p '<a href="exec:gs ''obj_din'', ''piercing_brow''">Eyebrows</a> | '
		else
			*p 'Eyebrows | '
		end
		if pcs_piercings['lip'] > 0:
			*p '<a href="exec:gs ''obj_din'', ''piercing_lip''">Lips</a> | '
		else
			*p 'lips | '
		end
		if pcs_piercings['tongue'] > 0:
			*p '<a href="exec:gs ''obj_din'', ''piercing_tongue''">Tongue</a> | '
		else
			*p 'Tongue | '
		end
		if pcs_piercings['navel'] > 0:
			*p '<a href="exec:gs ''obj_din'', ''piercing_navel''">Navel</a> | '
		else
			*p 'Navel | '
		end
		if pcs_piercings['nipples'] > 0:
			*p '<a href="exec:gs ''obj_din'', ''piercing_nipples''">Nipples</a> | '
		else
			*p 'Nipples | '
		end
		if pcs_piercings['pussy'] > 0:
			*p '<a href="exec:gs ''obj_din'', ''piercing_pussy''">Pussy</a>'
		else
			*p 'Pussy'
		end
	end
	'</center>'
end

!! piercing images.
if $ARGS[0] = 'piercing_ears':
	*clr
	gs 'obj_din', 'piercing'
	*nl
	'<center><img <<$set_imgh>> src="images/pc/body/piercings/c<<pcs_piercings[''ears'']>>.jpg"></center>'
end
if $ARGS[0] = 'piercing_nose':
	*clr
	gs 'obj_din', 'piercing'
	*nl
	'<center><img <<$set_imgh>> src="images/pc/body/piercings/d<<pcs_piercings[''nose'']>>.jpg"></center>'
end
if $ARGS[0] = 'piercing_brow':
	*clr
	gs 'obj_din', 'piercing'
	*nl
	'<center><img <<$set_imgh>> src="images/pc/body/piercings/e<<pcs_piercings[''brow'']>>.jpg"></center>'
end
if $ARGS[0] = 'piercing_lip':
	*clr
	gs 'obj_din', 'piercing'
	*nl
	'<center><img <<$set_imgh>> src="images/pc/body/piercings/b<<pcs_piercings[''lip'']>>.jpg"></center>'
end
if $ARGS[0] = 'piercing_tongue':
	*clr
	gs 'obj_din', 'piercing'
	*nl
	'<center><img <<$set_imgh>> src="images/pc/body/piercings/a<<pcs_piercings[''tongue'']>>.jpg"></center>'
end
if $ARGS[0] = 'piercing_navel':
	*clr
	gs 'obj_din', 'piercing'
	*nl
	'<center><img <<$set_imgh>> src="images/pc/body/piercings/n<<pcs_piercings[''navel'']>>.jpg"></center>'
end
if $ARGS[0] = 'piercing_nipples':
	*clr
	gs 'obj_din', 'piercing'
	*nl
	'<center><img <<$set_imgh>> src="images/pc/body/piercings/f<<pcs_piercings[''nipples'']>>.jpg"></center>'
end
if $ARGS[0] = 'piercing_pussy':
	*clr
	gs 'obj_din', 'piercing'
	*nl
	'<center><img <<$set_imgh>> src="images/pc/body/piercings/g<<pcs_piercings[''pussy'']>>.jpg"></center>'
end

if $ARGS[0] = 'records': gt 'journal', 'records'

if $ARGS[0] = 'emergency':
	'<center><b>YOU JUST had to use emergency exit, this is only for use when you get a BLANK SCREEN.</b></center>'
	*nl
	'<center><b>DO NOT use this option without a good reason, doing so can cause instability and could damage your save game.</b></center>'
	*nl
	'<center><b>If this was the result of a bug in the game, then please report the issue and when / how it was trigger with as much info as you can on the tfgamesite.com forum.</b></center>'
	*nl

	cla
	act 'Go to Pavlovsk': InSleep = 0 & gt 'pav_residential'
	act 'Go to City Residental': InSleep = 0 & gt 'city_residential'
	if mod_list > 0:
		act 'Disable all mods':
			if input('Are you sure? ALL mod will be disabled!<br>please input <b>qqq</B> to confirm') = 'qqq':
				if mod_list > 0:
					mod_i=mod_list
					:mod_data_remover
					if $mod_name[mod_i] ! '':
						$mod_su_name = 'mod_<<$mod_name[mod_i]>>_onremove'
						if LOC($mod_su_name): gs $mod_su_name
					end
					if mod_i > 0:
						mod_i-=1
						jump 'mod_data_remover'
					end
					killvar '$mod_su_name'
					killvar 'mod_i'
				end

				killqst
				set mod_list=0
				killvar '$mod_name'
				killvar '$mod_version'
				killvar '$mod_author'
				killvar '$mod_desc'
				killvar '$mod_opt'
				msg 'All mod disabled. You can re-install them later.'
			end
		end
	end
	if $loc ! '' and $loc_arg ! '':
		act 'Cancel':gt $loc, $loc_arg
	elseif $loc ! '':
		act 'Cancel':gt $loc
	elseif $curloc ! '':
		act 'Cancel':gt $curloc
	end
end

!!quick time changes from the object menu
if $ARGS[0] = '-1 Hour':
	hour -= 1
	gs 'stat'
	gt $loc, $loc_arg
end

if $ARGS[0] = '+1 Hour':
	hour += 1
	gs 'stat'
	gt $loc, $loc_arg
end

!! Objects window debug
!! to turn on showing variables in the Object window type in the console window
!! objectWindowDebug = 1
!! to add a variable to the current game type in the console window
!! gs 'obj_din', 'AddDebugVar', 'grupTipe'
if $ARGS[0] = 'old':
	killobj
	oldobjmenu = 1
	addobj '<center>Refresh</center>'
	if cheatVars['console'] = 0: addobj '<center>Console</center>'
	addobj '<center>Toggle Debug Variables</center>'
	addobj '<center>Add Debug Variable</center>'
	addobj '<center>Delete Debug Variable</center>'
	addobj '<center>Switch HTML</center>'
	addobj '<center>Toggle Call Trace</center>'
	if cheatVars['time'] = 1:
		addobj '<center>-1 Hour</center>'
		addobj '<center>+1 Hour</center>'
	end
	addobj ''
	addobj '<center><font color = red>Emergency</font></center>'
	addobj ''
	if debug_warning_closed = 0:
		addobj '<center>This window is for debug only and can be safely closed.</center>'
		addobj '<center>Remove debug info</center>'
	end
	if objectWindowDebug = 1:
		addobj '$curloc: <<$curloc>>'
		addobj '$loc: <<$loc>>'
		addobj '$loc_arg: <<$loc_arg>>'
		addobj '$location_type: <<$location_type>>'
		addobj 'week: <<week>>'
		addobj 'daystart: <<daystart>>'
		if ARRSIZE('$ObjDebugVars') > 0:
			i = 0
			:AddDebugVarLoop
			if i < ARRSIZE('$ObjDebugVars'):
				if instr($ObjDebugVars[i],'$') = 1:
					dynamic '$tmp = <<$ObjDebugVars[i]>>'
					addobj '<<$ObjDebugVars[i]>>: <<$tmp>>'
				else
					dynamic 'tmp = <<$ObjDebugVars[i]>>'
					addobj '<<$ObjDebugVars[i]>>: <<tmp>>'
				end
				i += 1
				jump 'AddDebugVarLoop'
			end
		end
	end
end

if $ARGS[0] = "AddDebugVar":
	if $ARGS[1] <> '':
		i = ARRSIZE('$ObjDebugVars')
		$ObjDebugVars[i] = '<<$ARGS[1]>>'
	end
end

if $ARGS[0] = "DeleteDebugVar":
	if $ARGS[1] <> '':
		if ARRSIZE('$ObjDebugVars') > 0:
			i = 0
			:DeleteDebugVarLoop
			if i < ARRSIZE('$ObjDebugVars'):
				if $ObjDebugVars[i] = $ARGS[1]:
					killvar '$ObjDebugVars', i
					i = ARRSIZE('$ObjDebugVars')
				else
					i += 1
				end
				jump 'DeleteDebugVarLoop'
			end
		end
	end
end

if $ARGS[0] = 'wait':
	cla
	$waitStr = input ("How long would you like to wait?<br>(maximum 120 minutes, leave blank or press cancel to wait 15 minutes)<br>Alternatively, input a time to wait until (hh:mm). It is <<$mid(100+hour,2,2)>>:<<$mid(100+minut,2,2)>> now.")

	waiting = 0
	if $waitStr = '':
		waiting = 15
	elseif isnum($waitStr) = 0:
		waiting = val(mid($waitStr, 1,2)) * 60 + val(mid($waitStr, 4,2)) - minut - hour * 60
	else
		waiting = val($waitStr)
	end
	if waiting > 0 and waiting <= 120:
		minut += waiting
	else
		msg 'Invalid time.'
	end
	gs 'stat'
	killvar 'waiting'
	killvar 'waitStr'
	gt $loc, $loc_arg
end

if $ARGS[0] = 'rest':
	cla
	waiting = val(input("How long would you like to rest?<br>(Default 15 minutes, maximum 120 minutes)"))

	if waiting = 0:
		minut += 15
	elseif waiting > 0 and waiting <= 120:
		minut += waiting
		pcs_mood += 10
		if pcs_sleep < 90 and waiting >= 60:
			pcs_sleep += 10
		end
	else
		msg 'Invalid time.'
	end
	gs 'stat'
	killvar 'waiting'
	gt $loc, $loc_arg
end

--- obj_din ---------------------------------