code:
# assistant_stat
!rewritten a piece of code with assistant infotext, now its all in one file, removed some from main_screen
gs '$newloc' &! ensure all stats are updated before displaying them

if assistant_state = CONST_INT['slave_faint']:
	$info_text = '  <<$assistant_name>> is exhausted and moans quietly. She is clearly in a very bad condition. You have to give her a rest or even medical assistance.'
elseif assistant_state = CONST_INT['slave_dead']:
	$info_text = '  <<$assistant_name>> is dead. Her lifeless corpse is lying on the floor.'
elseif $info_text = '':
	if assistant_stat_screen = 0:
		$info_text = '  [<<$assistant_name>>]
- Newcomer slaves will often try to escape or make stupid moves. I will watch over them with attention and devotion. But if you order me to supervise over them, then I’ll pay particular attention to this, having to use all my will and fighting skills in order to keep your goods.'
		if slave_state > CONST_INT['no_slave']:
			gs '$slave_price' &! update specialisation details for current slave
			$spec_list = ''
			if slave_specialisation['concubine'] = 1: $spec_list += ', concubine'
			if slave_specialisation['pet'] = 1: $spec_list += ', pet ponygirl'
			if slave_specialisation['witchdoctor'] = 1: $spec_list += ', witch doctor'
			if slave_specialisation['servant'] = 1: $spec_list += ', servant'
			if slave_specialisation['gladiatrix'] = 1: $spec_list += ', gladiatrix'
			if slave_specialisation['artist'] = 1: $spec_list += ', artist'
			if slave_specialisation['refferent'] = 1: $spec_list += ', assistant'
			if slave_specialisation['cowSK'] = 1: $spec_list += ', milk cow'
			$info_text = '  [<<$assistant_name>>]

- I checked the specializations of your slave, master.'
			if $spec_list = '':
				$info_text += ' At this moment she does not meet the requirements for any specialized role.'
			else
				$info_text += ' At this moment she meets the requirements for the following roles: <<$mid($spec_list, 3)>>.'
			end
			if slave['brand'] = 0:
				$info_text += ' She is not branded, so she can be sold to the Guild only and may be less compliant.'
			end
			$info_text += '
'
		end
	else
		dynamic $replace("$info_text = '<<$psy_status[$assistant_psy_status]>>'", 'dyn'+'slave', 'assistant') &! evaluate delayed sub-expressions with substitution
	end
end

!reset equip choice menu when switching tabs
if slot = 0: $equip_choice = ''
slot = 0

!Fix blank screen bug - crushboss
if assistant_state = CONST_INT['slave_exist']:
 	if $assistant["wpn"] = '': $assistant["wpn"] = 'безоружный'
 	if $assistant["armor"] = '': $assistant["armor"] = 'без_брони'
 	if $assistant["cloth"] = '': $assistant["cloth"] = 'голая'
end

if assistant['image_mode'] = 0:
	assistant['nude'] = 0
	assistant['maido'] = 0
	assistant['domina'] = 0
	assistant['executive'] = 0
end
if assistant['image_mode'] = 1:
	assistant['nude'] = 1
	assistant['maido'] = 0
	assistant['domina'] = 1
	assistant['executive'] = 0
end
if assistant['image_mode'] = 2:
	assistant['nude'] = 1
	assistant['maido'] = 1
	assistant['domina'] = 0
	assistant['executive'] = 0
end
if assistant['image_mode'] = 3:
	assistant['nude'] = 1
	assistant['maido'] = 0
	assistant['domina'] = 0
	assistant['executive'] = 1
end
if assistant['image_mode'] = 4:
	assistant['nude'] = 1
	assistant['maido'] = 1
	assistant['domina'] = 1
	assistant['executive'] = 1
end

gs 'stats_layout'

*p '
Rules
'
*p '
Anatomy
'
*p '
Equipment
'
*p '
Aura
'

if is_home = 1:
	*p '

'
else
	*p '

'
end

gs '$addon', 'info_box'

*p '
'
*nl 'Name:  <<$assistant_name>>'
*nl 'Age:  <<$assistant_age_name[assistant["age"]]>>'
if assistant['age_count'] = 1:
	*nl 'Owned for:  1 day'
elseif assistant['age_count'] < 1000:
	*nl 'Owned for:  <<assistant["age_count"]>> days'
else
	*nl 'Owned for:  <<assistant["age_count"]/10>> decades'
end
gs '$slave_price', 'assistant' &! update $rating and rating to represent assistant so we can display the correct rank and populate $rating_help for the assistant when the rank is clicked
*nl 'Rank:  <<$rating[rating]>>'
*nl 'ATTRIBUTES '
$tooltip_text = func('$addon', 'no_rate_stat_tooltip_text', 'beauty', assistant['beauty'], 1)
*nl '<a class="tooltip-right" tooltip-data="<<$tooltip_text>>" href="EXEC: dynamic $msg, $красота_справка & dynamic $msg, $красота_справка_2 & $info_text = $красота_совет & gt $curloc"><<$beauty[assistant["beauty"]]>>'
$tooltip_text = func('$addon', 'assistant_stat_tooltip_text', 'stamina')
*nl '<a class="tooltip-right" tooltip-data="<<$tooltip_text>>" href="EXEC: dynamic $msg, $здоровье_справка & dynamic $msg, $здоровье_справка_2 & $info_text = $здоровье_совет & gt $curloc"><<$stamina[assistant["stamina"]]>>'
$tooltip_text = func('$addon', 'assistant_stat_tooltip_text', 'sensitivity')
*nl '<a class="tooltip-right" tooltip-data="<<$tooltip_text>>" href="EXEC: dynamic $msg, $чувствительность_справка & dynamic $msg, $чувствительность_справка_2 & $info_text = $чувствительность_совет & gt $curloc"><<$sensitivity[assistant["sensitivity"]]>>'
$tooltip_text = func('$addon', 'assistant_stat_tooltip_text', 'temper')
*nl '<a class="tooltip-right" tooltip-data="<<$tooltip_text>>" href="EXEC: dynamic $msg, $темперамент_справка & dynamic $msg, $темперамент_справка_2 & $info_text = $темперамент_совет & gt $curloc"><<$temper[assistant["temper"]]>>'
$tooltip_text = func('$addon', 'assistant_stat_tooltip_text', 'intellect')
*nl '<a class="tooltip-right" tooltip-data="<<$tooltip_text>>" href="EXEC: dynamic $msg, $ум_справка & dynamic $msg, $ум_справка_2 & $info_text = $ум_совет & gt $curloc"><<$intellect[assistant["intellect"]]>>'
$tooltip_text = func('$addon', 'assistant_stat_tooltip_text', 'ego')
*nl '<a class="tooltip-right" tooltip-data="<<$tooltip_text>>" href="EXEC: dynamic $msg, $характер_справка & dynamic $msg, $характер_справка_2 & $info_text = $характер_совет & gt $curloc"><<$ego[assistant["ego"]]>>'
$tooltip_text = func('$addon', 'assistant_stat_tooltip_text', 'pride', -1)
*nl '<a class="tooltip-right" tooltip-data="<<$tooltip_text>>" href="EXEC: dynamic $msg, $гордыня_справка & dynamic $msg, $гордыня_справка_2 & $info_text = $гордыня_совет & gt $curloc"><<$pride[assistant["pride"]]>>'
$tooltip_text = func('$addon', 'no_rate_stat_tooltip_text', 'exotic', assistant['exotic'], 1)
*nl '<a class="tooltip-right" tooltip-data="<<$tooltip_text>>" href="EXEC: dynamic $msg, $экзотичность_справка & dynamic $msg, $экзотичность_справка_2 & $info_text = $экзотичность_совет & gt $curloc"><<$exotic[assistant["exotic"]]>>'
$tooltip_text = func('$addon', 'assistant_physique_tooltip_text', 'fat', assistant['fat'])
*nl '<a class="tooltip-right" tooltip-data="<<$tooltip_text>>" href="EXEC: dynamic $msg, $жыр_справка & dynamic $msg, $жыр_справка_2 & $info_text = $жыр_совет & gt $curloc"><<$fat[assistant["fat"]]>>'
$tooltip_text = func('$addon', 'no_rate_stat_tooltip_text', 'style', assistant['style'], 1)
*nl '<a class="tooltip-right" tooltip-data="<<$tooltip_text>>" href="EXEC: dynamic $msg, $стиль_справка & dynamic $msg, $стиль_справка_2 & $info_text = $стиль_совет & gt $curloc"><<$style[assistant["style"]]>>'
$tooltip_text = func('$addon', 'no_rate_stat_tooltip_text', 'fame', assistant['fame'], 1)
*nl '<a class="tooltip-right" tooltip-data="<<$tooltip_text>>" href="EXEC: dynamic $msg, $слава_справка & dynamic $msg, $слава_справка_2 & $info_text = $слава_совет & gt $curloc"><<$girl_fame[assistant["fame"]]>>'
$tooltip_text = func('$addon', 'no_rate_full_grade_tooltip_text', 'mood', assistant['mood'], 1)
*nl '<a class="tooltip-right" tooltip-data="<<$tooltip_text>>" href="EXEC: msg $mood_chart & $info_text = $slave_mood_help & gt $curloc"><<$mood[assistant_mood_plus]>>'
*nl 'TRAITS'
*nl '<<$assistant_features_list>>'
*p '
'

!main tab
!$info_text = ''&nbsp'' - info text will reset after switching
if assistant_stat_screen = 0:
 	*p '

'
 	*p '

'
 	*p '

'
 	*p '

'
 	if is_home = 1:
  		*p '
<img src = "content\pic\bg\<<$interior_study[$study]>>.png">
'
 	else
  		*p '
<img src = "content\pic\bg\<<$bg[$place]>>_small.png">
'
 	end
 	if nsfw = 0:
		*p '
<img src="content\pic\<<$assistant[''fullimage'']>>.png">
'
		!if assistant['nude'] = 0: *p '
<img src="content\pic\<<$fullimage[assistant_type]>>.png">
'
		!if assistant['maido'] = 1: *p '
<img src="content\pic\<<$fullmade[assistant_type]>>.png">
'
		!if assistant['domina'] = 1: *p '
<img src="content\pic\<<$fullmistress[assistant_type]>>.png">
'
		!if assistant['executive'] = 1: *p '
<img src="content\pic\<<$fullsecretary[assistant_type]>>.png">
'
 	end
 	*p '
DUTIES:

APPEARANCE:

REPORTING:
'
 	*p '
'
	*nl 'Act as accountant -'
	*nl 'Act as alchemist -'
	*nl 'Act as cook -'
	*nl 'Act as maid -'
	*nl 'Milk the fiend -'
	*nl 'Supervise slave -'
	*nl 'Wash master -'
	*nl 'Wash slave -'
	*nl '

'
	*nl 'Silence -
'

	if assistant["account_rule"] = 1:
		*p '

'
	else
		*p '

'
	end

	if lab <= 0:
		*p '

'
	elseif assistant["alchemist_rule"] = 1:
		!display enabled and do not allow disabling when no slave available - ImperatorAugustus
		if slave_state < CONST_INT['slave_exist']:
			*p '

'
		else
			*p '

'
		end
	else
		*p '

'
	end

	if kitchen <= 0:
		*p '

'
	elseif assistant["cooks_rule"] = 1:
		*p '

'
	else
		*p '

'
	end

	if assistant["cleans_rule"] = 1:
		*p '

'
	else
		*p '

'
	end

	if pet_tentacle <= 0:
		*p '

'
	elseif assistant["tentacle_rule"] = 1:
		*p '

'
	else
		*p '

'
	end

	if slave_state = CONST_INT['no_slave']:
		*p '

'
	elseif assistant["supervise_rule"] = 1:
		*p '

'
	else
		*p '

'
	end

	if bath <= 0:
		*p '

'
	elseif assistant["washes_master_rule"] = 1:
		*p '

'
	else
		*p '

'
	end

	if bath <= 0:
		*p '

'
	elseif slave_state = CONST_INT['no_slave']:
		*p '

'
	elseif assistant["washes_slave_rule"] = 1:
		*p '

'
	else
		*p '

'
	end

	if assistant_quiet_rule = 1:
		*p '

'
	else
		*p '

'
	end

	*p '
GROCERIES:

DERIVATIVES:

MEAT:

'

	*p '
'
	*nl ' - Alcohol'
	*nl ' - Cheese and butter'
	*nl ' - Flour and grains'
	*nl ' - Herbs and spices'
	*nl ' - Vegetables

'
	*nl ' - Cream'
	*nl ' - Eggs'
	*nl ' - Milk

'
	*nl ' - Mince'
	*nl ' - Tenderloin'
	*nl '&nbsp&nbspReset rules
'

	if kitchen > 0 and sparks > 50:
		if assistant["buy_alcohol"] = 1:
			*p '

'
		else
			*p '

'
		end
		if assistant["buy_cheese"] = 1:
			*p '

'
		else
			*p '

'
		end
		if assistant["buy_flour"] = 1:
			*p '

'
		else
			*p '

'
		end
		if assistant["buy_spice"] = 1:
			*p '

'
		else
			*p '

'
		end
		if assistant["buy_vegetables"] = 1:
			*p '

'
		else
			*p '

'
		end
		if assistant["buy_cream"] = 1:
			*p '

'
		else
			*p '

'
		end
		if assistant["buy_eggs"] = 1:
			*p '

'
		else
			*p '

'
		end
		if assistant["buy_milk"] = 1:
			*p '

'
		else
			*p '

'
		end
		if assistant["buy_mince"] = 1:
			*p '

'
		else
			*p '

'
		end
		if assistant["buy_meat"] = 1:
			*p '

'
		else
			*p '

'
		end
	elseif kitchen = 0:
		*p '

'
		*p '

'
		*p '

'
		*p '

'
		*p '

'
		*p '

'
		*p '

'
		*p '

'
		*p '

'
		*p '

'

	elseif sparks <= 50:
		*p '

'
		*p '

'
		*p '

'
		*p '

'
		*p '

'
		*p '

'
		*p '

'
		*p '

'
		*p '

'
		*p '

'
	end

	!assistant appearance
	killvar '$assistant_appearance'
	$assistant_appearance = ''
	$assistant_appearance = 'Slave -
'

	if $fullmade[assistant_type] ! '':
	 	$assistant_appearance += 'Maid -
'
	else
	 	$assistant_appearance += '
'
	end
	if $fullmistress[assistant_type] ! '':
	 	$assistant_appearance += 'Dominatrix -
'
	else
		$assistant_appearance += '
'
	end
	if assistant["age"] ! 1:
	 	if $fullsecretary[assistant_type] ! '': $assistant_appearance += 'Secretary -
'
	else
	 	if $fullsecretary[assistant_type] ! '': $assistant_appearance += 'Schoolgirl -
'
	end

	*p '

<<$assistant_appearance>>
'

	if assistant['nude'] = 0:
		*p '

'
	else
		*p '

'
	end

	if $fullmade[assistant_type] ! '':
		if assistant['maido'] = 1:
		 	*p '

'
		else
			*p '

'
		end
	end

	if $fullmistress[assistant_type] ! '':
		if assistant['domina'] = 1:
	 		*p '

'
	 	else
	 		*p '

'
		end
	end

	if $fullsecretary[assistant_type] ! '':
		if assistant['executive'] = 1:
		 	*p '

'
		else
		 	*p '

'
		end
	end
end

!ANATOMY TAB
!removed hairstyle_demo hardcode
if assistant_stat_screen = 1:
 	*p '

'
 	*p '

'
 	*p '

'
 	*p '

'
 	if ui_style = 2:
		*p '

'
	else
		*p '

'
 	end
 	if nsfw = 0: *p '
<img width = "370px" src = "content\pic\girls\body\<<$assistant["boobs_img"]>>.png">
'
 	if nsfw = 0: *p '
<img width = "370px" src = "content\pic\girls\body\<<$assistant["pussy_img"]>>.png">
'
 	*p '
'
		*p '<<$красота[assistant["beauty"]]>> = <<$природная_красота[assistant["base_beauty"]]>> + <<$пластика[assistant["beauty_enhanced"]]>> - (<<$шрамы[assistant["scars"]]>> + <<$синяки[assistant["bruises"]]>> + <<$charm_physique[assistant["fat"]]>>)'
		*nl '<<$экзотика[assistant["exotic"]]>> = <<$природная_экзотика[assistant["base_exotic"]]>> + <<$slave_tattoo[assistant["tattoo"]]>> + <<$пирсинг[assistant["piercing_count"]]>> + <<$wear_ex[assistant["ex_count"]]>>'
		*nl '<<$стиль[assistant["style"]]>> = <<$wear_st[assistant["st_count"]]>> + <<$slave_makeup[assistant["makeup"]]>> + <<$hair_style[assistant["hairstyle"]]>> + <<$мейкап[assistant["makeup_count"]]>> + <<$грация[assistant["grace_count"]]>> - <<$гигиена[assistant["hygiene"]]>>'
		if auspex = 1:
			*nl '<<$charm_aura[max(0, 5 + charm_from_aura)]>> = <<$charm_moral[assistant["moral"]]>> - (<<$charm_angst[assistant["angst"]]>> + <<$charm_spoil[assistant["spoil"]]>>)'
			*nl '<<$charm_stat>>  = <<$brand[brand_reputation]>> + <<$girl_fame[assistant["fame"]]>> + <<$стиль[assistant["style"]]>> + <<$экзотика[assistant["exotic"]]>> + <<$charm_aura[max(0, 5 + charm_from_aura)]>> + <<$charm_physique[assistant["fat"]]>> - <<$шрамы[assistant["scars"]]>> - <<$синяки[assistant["bruises"]]>>' &! $charm_stat is updated by $slave_price call earlier
		else
			*nl 'You must cast Auspex to view the aura and charm rating of your assistant '
		end
	*p '
'
	*p '
'
		*p '<<$assistant_boobs>><<$assistant_boobsx>>'
		if assistant['lactation'] > 0:
			*nl '<<$slave_lactation[assistant["lactation"]]>>  <<$impregnation_rate[assistant["impregnation"]]>>  '
		else
			*nl '<<$slave_lactation[assistant["lactation"]]>>'
		end
		*nl '<<$nipple_piercing[assistant["nipple_piercing"]]>>'
		*nl '<<$boobs_modification[assistant["breast_enhanced"]]>>'
		*nl '<<$assistant_age_name[assistant["age"]]>>'
	*p '
'
	*p '
'
		*p '<<$virginity[assistant["virginity"]]>>'
		*nl '<<$slave_anal_description[assistant["anal_stretch"]]>>'
		*nl '<<$clit_piercing[assistant["clit_piercing"]]>>'
		*nl '<<$vaginal_modification[assistant["vaginal_modification"]]>>'
		*nl '<<$slave_brand[assistant["brand"]]>>'
	*p '
'
end

!Equipment tab
if assistant_stat_screen = 2:
	$earrings_plural = ''
	if $item_name[$assistant["earrings"]] ! '' and $item_name[$assistant["earrings"]] ! '-': $earrings_plural = 's'
	$nipplerings_plural = ''
	if $item_name[$assistant["nipplerings"]] ! '' and $item_name[$assistant["nipplerings"]] ! '-' and $assistant["nipplerings"] ! 'nipple_chain': $nipplerings_plural = 's'
	*p '

'
	*p '

'
	*p '

'
	*p '

'
	if ui_style = 2:
		*p '

'
	else
		*p '

'
	end
	*p '
'
	*p 'ASSISTANT EQUIPMENT'
	*p '
Armour: <<$item_name[$assistant["armor"]]>>
'
	*p '
Shoulder Holster: <<$item_name[$assistant["back_wpn"]]>>
'
	*p '
Left Hand: <<$item_name[$assistant["left_wpn"]]>>
'
	*p '
Right Hand: <<$item_name[$assistant["right_wpn"]]>>
'
	*nl '
Clothing: <<$item_name[$assistant["cloth"]]>>
'
	*p '
Headgear: <<$item_name[$assistant["headband"]]>>
'
	*p '
Neck: <<$item_name[$assistant["collar"]]>>
'
	*p '
Hands: <<$item_name[$assistant["gloves"]]>>
'
	*p '
Feet: <<$item_name[$assistant["boots"]]>>
'
	*p '
Ring 1: <<$item_name[$assistant["ring_left"]]>>
'
	*p '
Ring 2: <<$item_name[$assistant["ring_right"]]>>
'
	*p '
Earrings: <<$item_name[$assistant["earrings"]]>><<$earrings_plural>>
'
	*p '
Tongue: <<$item_name[$assistant["tongue"]]>>
'
	*p '
Nipples: <<$item_name[$assistant["nipplerings"]]>><<$nipplerings_plural>>
'
	*p '
Navel: <<$item_name[$assistant["navel"]]>>
'
	*p '
Clitoris: <<$item_name[$assistant["clitring"]]>>
'
	*p '
'

	*p '
AVAILABLE OPTIONS
<<$equip_choice>>
'
end

!ASSISTANT AURA TAB
if assistant_stat_screen = 3:
 	*p '

'
 	*p '

'
 	*p '

'
 	*p '

'
 	if ui_style = 2:
		*p '

'
	else
		*p '

'
 	end
 	assistant_aura = 1
 	gs 'auspex_list'
 	*p '
<<$auspex_list>>
'
end

!Assistant Skills display
if assistant_state = CONST_INT['slave_exist'] and is_home = 1:
	!ImperatorAugustus: added is_home check to disable skill training links when not at home
	$teach_slave_buttons = ''
	if slave_state = CONST_INT['slave_exist'] and house_mess > 0 and assistant['service'] > slave['service'] and assistant['stamina'] >= 0:
		$teach_slave_buttons += '
'
	else
		$teach_slave_buttons += '
'
	end
	if slave_state = CONST_INT['slave_exist'] and kitchen > 0 and assistant['cook'] > slave['cook'] and assistant['stamina'] >= 0:
		$teach_slave_buttons += '
'
	else
		$teach_slave_buttons += '
'
	end
	if slave_state = CONST_INT['slave_exist'] and assistant['secretary'] > slave['secretary'] and assistant['stamina'] >= 0:
		$teach_slave_buttons += '
'
	else
		$teach_slave_buttons += '
'
	end
	if slave_state = CONST_INT['slave_exist'] and assistant['expression'] > slave['expression'] and assistant['stamina'] >= 0:
		$teach_slave_buttons += '
'
	else
		$teach_slave_buttons += '
'
	end
	if slave_state = CONST_INT['slave_exist'] and assistant['nurse'] > slave['nurse'] and assistant['stamina'] >= 0:
		$teach_slave_buttons += '
'
	else
		$teach_slave_buttons += '
'
	end
	if slave_state = CONST_INT['slave_exist'] and lab = 1 and assistant['alchemy'] > slave['alchemy'] and assistant['stamina'] >= 0:
		$teach_slave_buttons += '
'
	else
		$teach_slave_buttons += '
'
	end
	if slave_state = CONST_INT['slave_exist'] and assistant['enchanter'] > slave['enchanter'] and assistant['stamina'] >= 0:
		$teach_slave_buttons += '
'
	else
		$teach_slave_buttons += '
'
	end
	if slave_state = CONST_INT['slave_exist'] and slave['stamina'] >= 1 and assistant['stamina'] >= slave['stamina'] and assistant['stamina'] >= 0:
		$teach_slave_buttons += '
'
	else
		$teach_slave_buttons += '
'
	end
	if slave_state = CONST_INT['slave_exist'] and slave['stamina'] >= 2 and assistant['gladiatrix'] > slave['gladiatrix'] and assistant['stamina'] >= 0:
		$teach_slave_buttons += '
'
	else
		$teach_slave_buttons += '
'
	end
	if slave_state = CONST_INT['slave_exist'] and slave['stamina'] >= 2 and assistant['calisthenics'] > slave['calisthenics'] and assistant['stamina'] >= 0:
		$teach_slave_buttons += '
'
	else
		$teach_slave_buttons += '
'
	end
	if slave_state = CONST_INT['slave_exist'] and assistant['music'] > slave['music'] and assistant['stamina'] >= 0:
		$teach_slave_buttons += '
'
	else
		$teach_slave_buttons += '
'
	end
	if slave_state = CONST_INT['slave_exist'] and assistant['art'] > slave['art'] and assistant['stamina'] >= 0:
		$teach_slave_buttons += '
'
	else
		$teach_slave_buttons += '
'
	end
	if slave_state = CONST_INT['slave_exist'] and slave['stamina'] >= 2 and assistant['pet'] > slave['pet'] and assistant['stamina'] >= 0:
		$teach_slave_buttons += '
'
	else
		$teach_slave_buttons += '
'
	end
	if slave_state = CONST_INT['slave_exist'] and slave['stamina'] >= IIF(slave['dressage'] < 3, 2, 3) and assistant['dressage'] > slave['dressage'] and assistant['stamina'] >= 0:
		$teach_slave_buttons += '
'
	else
		$teach_slave_buttons += '
'
	end
	if slave_state = CONST_INT['slave_exist'] and slave['stamina'] >= 2 and assistant['cowSK'] > slave['cowSK'] and assistant['stamina'] >= 0:
		$teach_slave_buttons += '
'
	else
		$teach_slave_buttons += '
'
	end

	*p '
'
		*nl '
SKILLS
'
		*p '
' &! shifted to make room for teach-slave buttons along the right edge
			*p  '<div style="display:inline-block;position:relative;" class="tooltip-left" tooltip-data="<<$atr_name[''service'']>> rating"><<$slave_service[assistant["service"]]>>
'
			*nl '<div style="display:inline-block;position:relative;" class="tooltip-left" tooltip-data="<<$atr_name[''cook'']>> rating"><<$slave_cook[assistant["cook"]]>>
'
			*nl '<div style="display:inline-block;position:relative;" class="tooltip-left" tooltip-data="<<$atr_name[''secretary'']>> rating"><<$slave_secretary[assistant["secretary"]]>>
'
			*nl '<div style="display:inline-block;position:relative;" class="tooltip-left" tooltip-data="<<$atr_name[''expression'']>> rating"><<$slave_expression[assistant["expression"]]>>
'
			*nl '<div style="display:inline-block;position:relative;" class="tooltip-left" tooltip-data="<<$atr_name[''nurse'']>> rating"><<$slave_nurse[assistant["nurse"]]>>
'
			*nl '<div style="display:inline-block;position:relative;" class="tooltip-left" tooltip-data="<<$atr_name[''alchemy'']>> rating"><<$slave_alchemy[assistant["alchemy"]]>>
'
			*nl '<div style="display:inline-block;position:relative;" class="tooltip-left" tooltip-data="<<$atr_name[''enchanter'']>> rating"><<$slave_enchanter[assistant["enchanter"]]>>
'
			*nl '
<<$gym_lesson[assistant["stamina"]]>>
'
			*nl '<div style="display:inline-block;position:relative;" class="tooltip-left" tooltip-data="<<$atr_name[''gladiatrix'']>> rating"><<$slave_gladiatrix[assistant["gladiatrix"]]>>
'
			*nl '<div style="display:inline-block;position:relative;" class="tooltip-left" tooltip-data="<<$atr_name[''calisthenics'']>> rating"><<$slave_calisthenics[assistant["calisthenics"]]>>
'
			*nl '<div style="display:inline-block;position:relative;" class="tooltip-left" tooltip-data="<<$atr_name[''music'']>> rating"><<$slave_music[assistant["music"]]>>
'
			*nl '<div style="display:inline-block;position:relative;" class="tooltip-left" tooltip-data="<<$atr_name[''art'']>> rating"><<$slave_art[assistant["art"]]>>
'
			*nl '<div style="display:inline-block;position:relative;" class="tooltip-left" tooltip-data="<<$atr_name[''pet'']>> rating"><<$slave_pet[assistant["pet"]]>>
'
			*nl '<div style="display:inline-block;position:relative;" class="tooltip-left" tooltip-data="<<$atr_name[''dressage'']>> rating"><<$slave_dressage[assistant["dressage"]]>>
'
			*nl '<div style="display:inline-block;position:relative;" class="tooltip-left" tooltip-data="<<$atr_name[''cowSK'']>> rating"><<$slave_cowSK[assistant["cowSK"]]>>
'
		*p '
' &! end shift_assistant_skills
		*p '
SEX TECHNIQUES
'
		*p '
' &! make the following links clickable
			*p  '<a class="tooltip-left" tooltip-data="Conduct a petting lesson for <<$assistant_name>>" href = "EXEC: menu_form = 231 & $place = ''home_lux'' & gt ''menu_form''"><<$slave_petting[assistant["petting"]]>>'
			*nl '<a class="tooltip-left" tooltip-data="Conduct an oral pleasure lesson for <<$assistant_name>>" href = "EXEC: menu_form = 232 & $place = ''home_lux'' & gt ''menu_form''"><<$slave_oral[assistant["oral"]]>>'
			*nl '<a class="tooltip-left" tooltip-data="Conduct a penetration lesson for <<$assistant_name>>" href = "EXEC: menu_form = 233 & $place = ''home_lux'' & gt ''menu_form''"><<$slave_penetration[assistant["penetration"]]>>'
			*nl '<a class="tooltip-left" tooltip-data="Conduct a group sex lesson for <<$assistant_name>>" href = "EXEC: menu_form = 234 & $place = ''home_lux'' & gt ''menu_form''"><<$slave_orgy[assistant["orgy"]]>>'
			*nl '<a class="tooltip-left" tooltip-data="Conduct a demonstration lesson for <<$assistant_name>>" href = "EXEC: menu_form = 237 & $place = ''home_lux'' & gt ''menu_form''"><<$slave_roleplay[assistant["roleplay"]]>>'
			*nl '<a class="tooltip-left" tooltip-data="Conduct a fetishism lesson for <<$assistant_name>>" href = "EXEC: menu_form = 236 & $place = ''home_lux'' & gt ''menu_form''"><<$slave_fetishism[assistant["fetishism"]]>>'
			*nl '<a class="tooltip-left" tooltip-data="Conduct a xenophily lesson for <<$assistant_name>>" href = "EXEC: menu_form = 235 & $place = ''home_lux'' & gt ''menu_form''"><<$slave_xenophily[assistant["xenophily"]]>>'
		*p '
' &! end assistant_sex_skills
	*p '
' &! end right_column
	*p '
' &! overlay teach-slave buttons along the right edge
		*nl &! extra line break to go under column title
		*nl '<<$teach_slave_buttons>>'
	*p '
'
else
 	*p '
'
		*nl '
SKILLS
'
			*p  '<div style="display:inline-block;position:relative;" class="tooltip-left" tooltip-data="<<$atr_name[''service'']>> rating"><<$slave_service[assistant["service"]]>>
'
			*nl '<div style="display:inline-block;position:relative;" class="tooltip-left" tooltip-data="<<$atr_name[''cook'']>> rating"><<$slave_cook[assistant["cook"]]>>
'
			*nl '<div style="display:inline-block;position:relative;" class="tooltip-left" tooltip-data="<<$atr_name[''secretary'']>> rating"><<$slave_secretary[assistant["secretary"]]>>
'
			*nl '<div style="display:inline-block;position:relative;" class="tooltip-left" tooltip-data="<<$atr_name[''expression'']>> rating"><<$slave_expression[assistant["expression"]]>>
'
			*nl '<div style="display:inline-block;position:relative;" class="tooltip-left" tooltip-data="<<$atr_name[''nurse'']>> rating"><<$slave_nurse[assistant["nurse"]]>>
'
			*nl '<div style="display:inline-block;position:relative;" class="tooltip-left" tooltip-data="<<$atr_name[''alchemy'']>> rating"><<$slave_alchemy[assistant["alchemy"]]>>
'
			*nl '<div style="display:inline-block;position:relative;" class="tooltip-left" tooltip-data="<<$atr_name[''enchanter'']>> rating"><<$slave_enchanter[assistant["enchanter"]]>>
'
			*nl '
<<$gym_lesson[assistant["stamina"]]>>
'
			*nl '<div style="display:inline-block;position:relative;" class="tooltip-left" tooltip-data="<<$atr_name[''gladiatrix'']>> rating"><<$slave_gladiatrix[assistant["gladiatrix"]]>>
'
			*nl '<div style="display:inline-block;position:relative;" class="tooltip-left" tooltip-data="<<$atr_name[''calisthenics'']>> rating"><<$slave_calisthenics[assistant["calisthenics"]]>>
'
			*nl '<div style="display:inline-block;position:relative;" class="tooltip-left" tooltip-data="<<$atr_name[''music'']>> rating"><<$slave_music[assistant["music"]]>>
'
			*nl '<div style="display:inline-block;position:relative;" class="tooltip-left" tooltip-data="<<$atr_name[''art'']>> rating"><<$slave_art[assistant["art"]]>>
'
			*nl '<div style="display:inline-block;position:relative;" class="tooltip-left" tooltip-data="<<$atr_name[''pet'']>> rating"><<$slave_pet[assistant["pet"]]>>
'
			*nl '<div style="display:inline-block;position:relative;" class="tooltip-left" tooltip-data="<<$atr_name[''dressage'']>> rating"><<$slave_dressage[assistant["dressage"]]>>
'
			*nl '<div style="display:inline-block;position:relative;" class="tooltip-left" tooltip-data="<<$atr_name[''cowSK'']>> rating"><<$slave_cowSK[assistant["cowSK"]]>>
'
		*nl '
SEX TECHNIQUES
'
			*p  '
<<$slave_petting[assistant["petting"]]>>
'
			*nl '
<<$slave_oral[assistant["oral"]]>>
'
			*nl '
<<$slave_penetration[assistant["penetration"]]>>
'
			*nl '
<<$slave_orgy[assistant["orgy"]]>>
'
			*nl '
<<$slave_roleplay[assistant["roleplay"]]>>
'
			*nl '
<<$slave_fetishism[assistant["fetishism"]]>>
'
			*nl '
<<$slave_xenophily[assistant["xenophily"]]>>
'
	*p '
'
end

*p '
<<$info_text>>
'

!Used for debugging variables I need to track - crushboss
!msg '<<$assistant[''ava'']>>.png'
!msg '<<tentacle_hp>>'

--- assistant_stat ---------------------------------


code:
# assistant_testing
!Assistant Testing Cheat
!Created by crushboss

if assistant_state = CONST_INT['slave_exist']:
	!Assistant Piercings
	assistant['nipple_piercing'] = 1
	assistant['clit_piercing'] = 1
	assistant['ear_piercing'] = 1
	assistant['tongue_piercing'] = 1
	assistant['belly_piercing'] = 1
	assistant['nostril_piercing'] = 1
	assistant['nose_piercing'] = 1
	assistant['tongue_split'] = 1
	assistant['scarification'] = 1
	assistant['full_piercing'] = 1
	assistant['piercings'] = 9
	assistant['piercing_count'] = 5

	!Assistant Makeup and Tattoos
	assistant['makeup'] = 3
	assistant['fiend_tattoo'] = 1
	assistant['tattoo'] = 5
	assistant['manicure'] = 5
	assistant['perfume'] = 1
	assistant['hygiene'] = 0
	assistant_rate['hygiene'] = 0
	assistant['epilation'] = 12
	assistant['hairstyle'] = 7
	assistant['pos_gentle'] = 2
	assistant['pos_slave_clean'] = 1

	!Assistant Clothing Inventory
	assistant_inventory['common_apron'] = 1
	assistant_inventory['maid_dress'] = 1
	assistant_inventory['nurse_dress'] = 1
	assistant_inventory['enchanter_robe'] = 1
	assistant_inventory['leotard'] = 1
	assistant_inventory['chainmail_bikini'] = 1
	assistant_inventory['laced_underwear'] = 1
	assistant_inventory['bellydance'] = 1
	assistant_inventory['leather_corset'] = 1
	assistant_inventory['anal_tail'] = 1
	assistant_inventory['exotic_wig'] = 1
	assistant_inventory['pony_plume'] = 1
	assistant_inventory['incrusted_earrings'] = 4
	assistant_inventory['golden_collar'] = 1
	assistant_inventory['leather_gloves'] = 1
	assistant_inventory['ponygirl_harness'] = 1
	assistant_inventory['cow_gear'] = 1
	assistant_inventory['nipple_chain'] = 1
	assistant_inventory['high_heels'] = 1
	assistant_inventory['high_boots'] = 1
	assistant_inventory['hoofed_boots'] = 1
	assistant_inventory['incrusted_ring'] = 4
	assistant_inventory['heavy_gauge_rings'] = 1
	assistant_inventory['barbells'] = 1

	!Assistant Equipped Gear
	$assistant['wpn'] = 'катана'
	$assistant['scnd'] = ''
	$assistant['armor'] = 'плейт'
	$assistant['right_wpn'] = 'катана'
	$assistant['left_wpn'] = 'кинжал'
	$assistant['back_wpn'] = 'фламберг'
	$assistant['cloth'] = 'leather_corset'
	$assistant['earrings'] = 'incrusted_earrings'
	$assistant['collar'] = 'golden_collar'
	$assistant['headband'] = 'exotic_wig'
	$assistant['gloves'] = 'laced_gloves'
	$assistant['nipplerings'] = 'nipple_chain'
	$assistant['clitring'] = 'incrusted_earrings'
	$assistant['boots'] = 'high_boots'
	$assistant['ring_left'] = 'incrusted_ring'
	$assistant['ring_right'] = 'incrusted_ring'
	$assistant['navel'] = 'heavy_gauge_rings'
	$assistant['tongue'] = 'barbells'

	!Pet Fiend
	if pet_tentacle < 1:
		pet_tentacle = 1
	 	tentacle_size = 0
	 	tentacle_hp = 0
	end

	!Assistant Misc
	!if assistant['arena_level'] < 4: assistant['arena_level'] = 4
	!if assistant['has_ride_win'] < 1: assistant['has_ride_win'] = 1
	assistant_rate['fame'] += 15
	assistant['brand'] = 3

	!Testing new assistant buttons
	!Testing Code - crushboss
	assistant['fertility'] = 0
	!assistant['parasite'] = 1
	!assistant['ill'] = 1
	!assistant['pregnant'] = 1
	!assistant['wounds'] = 4
	!assistant_rate['wounds'] = 140
end
!End of testing code

--- assistant_testing ---------------------------------

repo_name: Tcallas/game

license: unknown


code:
# auspex_list
if wizard_mode = 1: auspex = 1

$auspex_list = ''

if auspex = 0:
	$info_text = '  Without spells reinforcing auspex, the aura of your <<IIF(assistant_aura = 1, "assistant", "slave")>> is seen as pale and indistinct shadow. You can not determine the color, strength or direction of her spiritual field.'
	if sparks > 1: $info_text += '
Cast auspex (2 sparks)'
elseif assistant_aura = 0:
	if slave["obedience"] >= 0:
		if slave["obedience"] < 10:
			$auspex_list += $aura_obedience[slave["obedience"]]
		else
			$auspex_list += $aura_obedience[10]
		end
	else
		if slave["obedience"] = -1:$auspex_list += $aura_obedience[11]
		if slave["obedience"] = -2:$auspex_list += $aura_obedience[12]
		if slave["obedience"] = -3:$auspex_list += $aura_obedience[13]
		if slave["obedience"] = -4:$auspex_list += $aura_obedience[14]
		if slave["obedience"] = -5:$auspex_list += $aura_obedience[15]
		if slave["obedience"] = -6:$auspex_list += $aura_obedience[16]
		if slave["obedience"] = -7:$auspex_list += $aura_obedience[17]
		if slave["obedience"] = -8:$auspex_list += $aura_obedience[18]
		if slave["obedience"] = -9:$auspex_list += $aura_obedience[19]
		if slave["obedience"] < -9:$auspex_list += $aura_obedience[20]
	end

	if master_supermacy = 0: $auspex_list += ' <<$aura_supermacy[3]>>

'
	if master_supermacy > 0 and master_supermacy < 4: $auspex_list += ' <<$aura_supermacy[4]>>

'
	if master_supermacy > 3: $auspex_list += ' <<$aura_supermacy[5]>>

'
	if master_supermacy > -4 and master_supermacy < 0: $auspex_list += ' <<$aura_supermacy[2]>>

'
	if master_supermacy < -3: $auspex_list += ' <<$aura_supermacy[1]>>

'

	$auspex_list += '<<$aura_lust[slave["arousal"]]>>

' &! unlike other aura stats, arousal rate is "continuous" and does not reset when arousal level changes
	if $master_head_gear = 'raven_crown':
		$tooltip_text = IIF($master_head_gear = 'raven_crown', func('$addon', 'no_label_stat_rate_tooltip_text', 'fear', slave['fear']), '')
		$auspex_list += '<div style="display:inline-block;position:relative;" class="tooltip-bottom" tooltip-data="<<$tooltip_text>>"><<$aura_fear[slave["fear"]]>>

'
		$tooltip_text = IIF($master_head_gear = 'raven_crown', func('$addon', 'no_label_stat_rate_tooltip_text', 'angst', slave['angst']), '')
		$auspex_list += '<div style="display:inline-block;position:relative;" class="tooltip-bottom" tooltip-data="<<$tooltip_text>>"><<$aura_angst[slave["angst"]]>>

'
		$tooltip_text = IIF($master_head_gear = 'raven_crown', func('$addon', 'no_label_stat_rate_tooltip_text', 'rational', slave['rational']), '')
		$auspex_list += '<div style="display:inline-block;position:relative;" class="tooltip-bottom" tooltip-data="<<$tooltip_text>>"><<$aura_rational[slave["rational"]]>>

'
		$tooltip_text = IIF($master_head_gear = 'raven_crown', func('$addon', 'no_label_stat_rate_tooltip_text', 'instinct', slave['instinct']), '')
		$auspex_list += '<div style="display:inline-block;position:relative;" class="tooltip-bottom" tooltip-data="<<$tooltip_text>>"><<$aura_instinct[slave["instinct"]]>>

'
		$tooltip_text = IIF($master_head_gear = 'raven_crown', func('$addon', 'no_label_stat_rate_tooltip_text', 'custom', slave['custom']), '')
		$auspex_list += '<div style="display:inline-block;position:relative;" class="tooltip-bottom" tooltip-data="<<$tooltip_text>>"><<$aura_custom[slave["custom"]]>>

'
		$tooltip_text = IIF($master_head_gear = 'raven_crown', func('$addon', 'no_label_stat_rate_tooltip_text', 'spoil', slave['spoil']), '')
		$auspex_list += '<div style="display:inline-block;position:relative;" class="tooltip-bottom" tooltip-data="<<$tooltip_text>>"><<$aura_spoil[slave["spoil"]]>>

'
		$tooltip_text = IIF($master_head_gear = 'raven_crown', func('$addon', 'no_label_stat_rate_tooltip_text', 'moral', slave['moral']), '')
		$auspex_list += '<div style="display:inline-block;position:relative;" class="tooltip-bottom" tooltip-data="<<$tooltip_text>>"><<$aura_moral[slave["moral"]]>>
'
	else
		$auspex_list += '<<$aura_fear[slave["fear"]]>>

'
		$auspex_list += '<<$aura_angst[slave["angst"]]>>

'
		$auspex_list += '<<$aura_rational[slave["rational"]]>>

'
		$auspex_list += '<<$aura_instinct[slave["instinct"]]>>

'
		$auspex_list += '<<$aura_custom[slave["custom"]]>>

'
		$auspex_list += '<<$aura_spoil[slave["spoil"]]>>

'
		$auspex_list += '<<$aura_moral[slave["moral"]]>>'
	end

	$info_text = '  Auspex allows you to distinguish between colors, direction and strength of the spiritual field of your slave. After analyzing them, you get detailed information.'
	$auspex_list += ''
else
	if assistant["obedience"] >= 0:
		if assistant["obedience"] < 10:
			$auspex_list += $aura_obedience[assistant["obedience"]]
		else
			$auspex_list += $aura_obedience[10]
		end
	else
		if assistant["obedience"] = -1:$auspex_list += $aura_obedience[11]
		if assistant["obedience"] = -2:$auspex_list += $aura_obedience[12]
		if assistant["obedience"] = -3:$auspex_list += $aura_obedience[13]
		if assistant["obedience"] = -4:$auspex_list += $aura_obedience[14]
		if assistant["obedience"] = -5:$auspex_list += $aura_obedience[15]
		if assistant["obedience"] = -6:$auspex_list += $aura_obedience[16]
		if assistant["obedience"] = -7:$auspex_list += $aura_obedience[17]
		if assistant["obedience"] = -8:$auspex_list += $aura_obedience[18]
		if assistant["obedience"] = -9:$auspex_list += $aura_obedience[19]
		if assistant["obedience"] < -9:$auspex_list += $aura_obedience[20]
	end

	$auspex_list += '

'

	!if master_supermacy = 0: $auspex_list += ' <<$aura_supermacy[3]>>

'
	!if master_supermacy > 0 and master_supermacy < 4: $auspex_list += ' <<$aura_supermacy[4]>>

'
	!if master_supermacy > 3: $auspex_list += ' <<$aura_supermacy[5]>>

'
	!if master_supermacy > -4 and master_supermacy < 0: $auspex_list += ' <<$aura_supermacy[2]>>

'
	!if master_supermacy < -3: $auspex_list += ' <<$aura_supermacy[1]>>

'

	$auspex_list += '<<$aura_lust[assistant["arousal"]]>>

' &! unlike other aura stats, arousal rate is "continuous" and does not reset when arousal level changes
	if $master_head_gear = 'raven_crown':
		$tooltip_text = IIF($master_head_gear = 'raven_crown', func('$addon', 'assistant_no_label_stat_rate_tooltip_text', 'fear', assistant['fear']), '')
		$auspex_list += '<div style="display:inline-block;position:relative;" class="tooltip-bottom" tooltip-data="<<$tooltip_text>>"><<$aura_fear[assistant["fear"]]>>

'
		$tooltip_text = IIF($master_head_gear = 'raven_crown', func('$addon', 'assistant_no_label_stat_rate_tooltip_text', 'angst', assistant['angst']), '')
		$auspex_list += '<div style="display:inline-block;position:relative;" class="tooltip-bottom" tooltip-data="<<$tooltip_text>>"><<$aura_angst[assistant["angst"]]>>

'
		$tooltip_text = IIF($master_head_gear = 'raven_crown', func('$addon', 'assistant_no_label_stat_rate_tooltip_text', 'rational', assistant['rational']), '')
		$auspex_list += '<div style="display:inline-block;position:relative;" class="tooltip-bottom" tooltip-data="<<$tooltip_text>>"><<$aura_rational[assistant["rational"]]>>

'
		$tooltip_text = IIF($master_head_gear = 'raven_crown', func('$addon', 'assistant_no_label_stat_rate_tooltip_text', 'instinct', assistant['instinct']), '')
		$auspex_list += '<div style="display:inline-block;position:relative;" class="tooltip-bottom" tooltip-data="<<$tooltip_text>>"><<$aura_instinct[assistant["instinct"]]>>

'
		$tooltip_text = IIF($master_head_gear = 'raven_crown', func('$addon', 'assistant_no_label_stat_rate_tooltip_text', 'custom', assistant['custom']), '')
		$auspex_list += '<div style="display:inline-block;position:relative;" class="tooltip-bottom" tooltip-data="<<$tooltip_text>>"><<$aura_custom[assistant["custom"]]>>

'
		$tooltip_text = IIF($master_head_gear = 'raven_crown', func('$addon', 'assistant_no_label_stat_rate_tooltip_text', 'spoil', assistant['spoil']), '')
		$auspex_list += '<div style="display:inline-block;position:relative;" class="tooltip-bottom" tooltip-data="<<$tooltip_text>>"><<$aura_spoil[assistant["spoil"]]>>

'
		$tooltip_text = IIF($master_head_gear = 'raven_crown', func('$addon', 'assistant_no_label_stat_rate_tooltip_text', 'moral', assistant['moral']), '')
		$auspex_list += '<div style="display:inline-block;position:relative;" class="tooltip-bottom" tooltip-data="<<$tooltip_text>>"><<$aura_moral[assistant["moral"]]>>
'
	else
		$auspex_list += '<<$aura_fear[assistant["fear"]]>>

'
		$auspex_list += '<<$aura_angst[assistant["angst"]]>>

'
		$auspex_list += '<<$aura_rational[assistant["rational"]]>>

'
		$auspex_list += '<<$aura_instinct[assistant["instinct"]]>>

'
		$auspex_list += '<<$aura_custom[assistant["custom"]]>>

'
		$auspex_list += '<<$aura_spoil[assistant["spoil"]]>>

'
		$auspex_list += '<<$aura_moral[assistant["moral"]]>>'
	end

	$info_text = '  Auspex allows you to distinguish between colors, direction and strength of the spiritual field of your assistant. After analyzing them, you get detailed information.'
	$auspex_list += ''
end

--- auspex_list ---------------------------------


code:
# barn
$place = "barn"
gs '_layout'
gs '$newloc'
gs '$slave_traits'
killvar 'menu_form'
killvar '$info_bar'

dynamic $cow_pass_out
dynamic $master_pass_out &! master should be last

cow_mood_plus = IIF(cow['mood'] < 0, 5 - cow['mood'], cow['mood'])

if $cow_info_text = '':
	if cow_state = CONST_INT['slave_exist']: dynamic $replace("$cow_info_text = '<<$psy_status[$cow_psy_status]>>'", 'dyn'+'slave', 'cow') &! evaluate delayed sub-expressions with substitution
	if cow_state = CONST_INT['slave_faint']: $cow_info_text = '  <<$cow_name>> is exhausted and moans quietly. She is clearly in a very bad condition. You have to give her a rest or even medical assistance.'
	if cow_state = CONST_INT['slave_dead']: $cow_info_text = '  <<$cow_name>> is dead. Her lifeless corpse is lying on the floor.'
	if cow_state = CONST_INT['no_slave']: $cow_info_text = '  You have no cow.'
end

*p '
<img src="content\pic\bg\<<$bg[$place]>>.png">
'
if cow_state = CONST_INT['slave_exist'] and nsfw = 0: *p '
<img src="content\pic\<<$cow["fullimage"]>>.png">
'
!*p '
<<$text>>
'

$text_display = ''

func('$menu', 'spacer', 1)
func('$menu', '===BEGIN===', 'column_0')
if farmhand_state = CONST_INT['no_slave']:
	if slave_state > CONST_INT['no_slave']:
		func('$menu', 'goto', $menu_item_farmhand, 6001, 'interaction', 'interaction', 'Make your slave a farmhand', 'Make your slave a farmhand')
	else
		func('$menu', 'exec', $menu_item_farmhand_gray, empty, 'Make your slave a farmhand', 'You have no slave')
	end
else
	if slave_state = CONST_INT['no_slave']:
		func('$menu', 'goto', $menu_item_retfarmhand, 6002, 'interaction', 'interaction', 'Retrieve your farmhand', 'Retrieve your farmhand')
	else
		func('$menu', 'exec', $menu_item_retfarmhand_gray, empty, 'Retrieve your farmhand', 'You have no room for her')
	end
end
if cow_state = CONST_INT['no_slave']:
	if slave_state > CONST_INT['no_slave']:
		if slave["lactation"] ! 0:
			func('$menu', 'exec_options', $menu_item_Cow, 'interaction = 0 & gs "slave_to_cow" & gt $curloc', 'Make your slave a cow', 'Make your slave a cow')
		else
			func('$menu', 'exec', $menu_item_Cow_gray, empty, 'Make your slave a cow', 'Your slave needs to have lactating breasts')
		end
	else
		func('$menu', 'exec', $menu_item_Cow_gray, empty, 'Make your slave a cow', 'You have no slave')
	end
else
	if slave_state = CONST_INT['no_slave']:
		func('$menu', 'exec_options', $menu_item_retCow, 'interaction = 0 & gs "slave_to_cow" & gt $curloc', 'Retrieve your cow', 'Retrieve your cow')
	else
		func('$menu', 'exec', $menu_item_retCow_gray, empty, 'Retrieve your cow', 'You have no room for her')
	end
end
if slave_state > CONST_INT['no_slave']:
	func('$menu', 'goto', $menu_item_Pig, 6007, 'interaction', 'interaction', 'Make your slave a pig', 'Make your slave a pig')
elseif pig_state > CONST_INT['no_slave']:
	func('$menu', 'goto', $menu_item_RetPig, 6008, 'interaction', 'interaction', 'Retrieve your pig', 'Retrieve your pig')
else
	func('$menu', 'exec', $menu_item_Pig_gray, empty, 'Make your slave a pig', 'You have no slave')
end

end
if harpy_state = CONST_INT['no_slave']:
	if slave_state > CONST_INT['no_slave']:
		func('$menu', 'goto', $menu_item_Harpy, 6005, 'interaction', 'interaction', 'Make your slave an egglayer', 'Make your slave an egglayer')
	else
		func('$menu', 'exec', $menu_item_Harpy_gray, empty, 'Make your slave an egglayer', 'You have no slave')
	end
else
	if slave_state = CONST_INT['no_slave']:
		func('$menu', 'goto', $menu_item_RetHarpy, 6006, 'interaction', 'interaction', 'Retrieve your egglayer', 'Retrieve your egglayer')
	else
		func('$menu', 'exec', $menu_item_RetHarpy_gray, empty, 'Retrieve your egglayer', 'You have no room for her')
	end
end

if cow_state > CONST_INT['no_slave']:
	if cow_state = CONST_INT['slave_exist'] and farmhand_state = CONST_INT['slave_exist']:
		func('$menu', 'interaction', $menu_item_farmhand_milking, menu_farmhand_milking, 'Ask farmhand to milk cow')
	elseif cow_state = CONST_INT['slave_faint']:
		func('$menu', 'exec', $menu_item_farmhand_milking_gray, empty, 'Ask farmhand to milk cow', 'Your cow is unconscious')
	elseif farmhand_state ! CONST_INT['slave_exist']:
		func('$menu', 'exec', $menu_item_farmhand_milking_gray, empty, 'Ask farmhand to milk cow', 'You need a farmhand')
	end
	if $estate = 'kamira_house':
		func('$menu', 'exec_options', $menu_item_milk_menu, 'interaction_city = menu_milk_cooperative & gt "interaction_city"', 'Go to the milk cooperative')
	else
		func('$menu', 'exec_options', $menu_item_milk_menu, 'dynamic $master_energy_drop & interaction_city = menu_milk_cooperative & gt "interaction_city"', 'Go to the milk cooperative')
	end
	if cow_state ! CONST_INT['slave_faint'] and sparks > 29:
		func('$menu', 'interaction_city', $menu_item_cow_insemination, menu_cow_insemination_group, 'Request an insemination')
	elseif cow_state = CONST_INT['slave_faint']:
		func('$menu', 'exec', $menu_item_cow_insemination_gray, empty, 'Request an insemination', 'Your cow is unconscious')
	else
		func('$menu', 'exec', $menu_item_cow_insemination_gray, empty, 'Request an insemination', 'Not enough sparks')
	end
	if cow_state ! CONST_INT['slave_faint'] and sparks > 59:
		func('$menu', 'interaction_city', $menu_item_cow_insemination_full, menu_cow_insemination_minotaur, 'Request a full insemination')
	elseif cow_state = CONST_INT['slave_faint']:
		func('$menu', 'exec', $menu_item_cow_insemination_full_gray, empty, 'Request a full insemination', 'Your cow is unconscious')
	else
		func('$menu', 'exec', $menu_item_cow_insemination_full_gray, empty, 'Request a full insemination', 'Not enough sparks')
	end
end
func('$menu', '===END===')
*p '
<<$text_display>>
'

if cow_state > CONST_INT['no_slave']:
	gs '$addon', 'info_box'
	*p '
'
		*p 'ATTRIBUTES'
		$tooltip_text = func('$addon', 'no_rate_stat_tooltip_text', 'beauty', cow['beauty'], 1)
		*nl '<a class="tooltip-right" tooltip-data="<<$tooltip_text>>" href="EXEC: dynamic $msg, $красота_справка & dynamic $msg, $красота_справка_2"><<$beauty[cow["beauty"]]>>'
		$tooltip_text = func('$addon', 'cow_stat_tooltip_text', 'stamina')
		*nl '<a class="tooltip-right" tooltip-data="<<$tooltip_text>>" href="EXEC: dynamic $msg, $здоровье_справка & dynamic $msg, $здоровье_справка_2"><<$stamina[cow["stamina"]]>>'
		$tooltip_text = func('$addon', 'cow_stat_tooltip_text', 'sensitivity')
		*nl '<a class="tooltip-right" tooltip-data="<<$tooltip_text>>" href="EXEC: dynamic $msg, $чувствительность_справка & dynamic $msg, $чувствительность_справка_2"><<$sensitivity[cow["sensitivity"]]>>'
		$tooltip_text = func('$addon', 'cow_stat_tooltip_text', 'temper')
		*nl '<a class="tooltip-right" tooltip-data="<<$tooltip_text>>" href="EXEC: dynamic $msg, $темперамент_справка & dynamic $msg, $темперамент_справка_2"><<$temper[cow["temper"]]>>'
		$tooltip_text = func('$addon', 'cow_stat_tooltip_text', 'intellect')
		*nl '<a class="tooltip-right" tooltip-data="<<$tooltip_text>>" href="EXEC: dynamic $msg, $ум_справка & dynamic $msg, $ум_справка_2"><<$intellect[cow["intellect"]]>>'
		$tooltip_text = func('$addon', 'cow_stat_tooltip_text', 'ego')
		*nl '<a class="tooltip-right" tooltip-data="<<$tooltip_text>>" href="EXEC: dynamic $msg, $характер_справка & dynamic $msg, $характер_справка_2"><<$ego[cow["ego"]]>>'
		$tooltip_text = func('$addon', 'cow_stat_tooltip_text', 'pride', -1)
		*nl '<a class="tooltip-right" tooltip-data="<<$tooltip_text>>" href="EXEC: dynamic $msg, $гордыня_справка & dynamic $msg, $гордыня_справка_2"><<$pride[cow["pride"]]>>'
		!$tooltip_text = func('$addon', 'no_rate_stat_tooltip_text', 'exotic', cow['exotic'], 1)
		!*nl '<a class="tooltip-right" tooltip-data="<<$tooltip_text>>" href="EXEC: dynamic $msg, $экзотичность_справка & dynamic $msg, $экзотичность_справка_2"><<$exotic[cow["exotic"]]>>'
		$tooltip_text = func('$addon', 'cow_physique_tooltip_text', 'fat', cow['fat'])
		*nl '<a class="tooltip-right" tooltip-data="<<$tooltip_text>>" href="EXEC: dynamic $msg, $жыр_справка & dynamic $msg, $жыр_справка_2"><<$fat[cow["fat"]]>>'
		!$tooltip_text = func('$addon', 'no_rate_stat_tooltip_text', 'style', cow['style'], 1)
		!*nl '<a class="tooltip-right" tooltip-data="<<$tooltip_text>>" href="EXEC: dynamic $msg, $стиль_справка & dynamic $msg, $стиль_справка_2"><<$style[cow["style"]]>>'
		$tooltip_text = func('$addon', 'no_rate_stat_tooltip_text', 'fame', cow['fame'], 1)
		*nl '<a class="tooltip-right" tooltip-data="<<$tooltip_text>>" href="EXEC: dynamic $msg, $слава_справка & dynamic $msg, $слава_справка_2"><<$girl_fame[cow["fame"]]>>'
		*nl 'TRAITS'
		*nl '<<$cow_features_list>>'
	*p '
'

	*p '
'
		*nl 'Standard cattle food'
		*nl 'Calorific food'
		*nl 'Fiend’s cum'
		*p '

'
		*nl 'Restrain her'
	*p '
'

	if cow_ration = 1:
		*p '

'
	else
		*p '

'
	end
	if cow_ration = 0:
		*p '

'
	else
		*p '

'
	end
	if cow_ration ! 2 and kitchen = 0:
		*p '

'
	elseif cow_ration = 2:
		*p '

'
	else
		*p '

'
	end

	!cow lactation info - Pianocat
	*p '
'
		*p '<img src = "<<$master_ava>>">'
		*nl 'Energy <<$master_energy_stars>>'
		$tooltip_text = func('$addon', 'no_rate_stat_tooltip_text', 'hygiene', master_hygiene, -1)
		*nl '<a class="tooltip-left" tooltip-data="<<$tooltip_text>>" href="EXEC: msg $hygiene_chart"><<$personal_hygiene[master_hygiene]>>'
		$tooltip_text = func('$addon', 'no_rate_full_grade_tooltip_text', 'mood', master_mood, 1)
		*nl '<a class="tooltip-left" tooltip-data="<<$tooltip_text>>" href="EXEC: msg $mood_chart"><<$mood[master_mood_plus]>>'
		$tooltip_text = func('$addon', 'no_rate_full_grade_tooltip_text', 'master_excitement', master_excitement, 1)
		*nl '<a class="tooltip-left" tooltip-data="<<$tooltip_text>>" href="EXEC: msg $excitement_chart"><<$excitement[master_excitement_plus]>>'
		*nl
		*nl 'Cow Status'
		$tooltip_text = func('$addon', 'no_rate_stat_tooltip_text', 'cowSK', cow['cowSK'], 1)
		*nl '<div style="display:inline-block;position:relative;" class="tooltip-left" tooltip-data="<<$tooltip_text>>"><<$slave_cowSK[cow["cowSK"]]>>
'
		*nl
		*nl '<<$cow_boobs>>'
		*nl '<<$slave_lactation[cow["lactation"]]>>'
		*p  '<<$impregnation_rate[cow["impregnation"]]>>'
	*p '
'

	if cow_locked = 1:
		*p '

'
		*p '

'
	else
		*p '

'
	end

	!if cow["cowSK"] < 5:
	!	*p '
<<$slave_cowSK[cow["cowSK"]]>> (<<cow_rate["cowSK"]>>)
'
	!end
	!if cow["cowSK"] = 5:
	!	*p '
<<$slave_cowSK[cow["cowSK"]]>>
'
	!end

	if master_excitement >= 0:
		*p '

'
	end
	*p '
'
		*p ''
		if cow_state = CONST_INT['slave_faint']:
			*p ''
		elseif cow['milk_summ'] < 10:
			*p ''
		else
			*p ''
		end
	*p '
'
end

if cow_state = CONST_INT['slave_exist']:
	*p '
<img src = "<<$cow[''ava'']>>.png">
'
	*p '
Energy <<$cow_energy_stars>>'
		$tooltip_text = func('$addon', 'no_rate_full_grade_tooltip_text', 'mood', cow['mood'], 1)
		*nl '<a class="tooltip-left" tooltip-data="<<$tooltip_text>>" href="EXEC: msg $mood_chart"><<$mood[cow_mood_plus]>>'
		$tooltip_text = func('$addon', 'no_rate_stat_tooltip_text', 'hygiene', cow['hygiene'], -1)
		*nl '<div style="display:inline-block;position:relative;" class="tooltip-left" tooltip-data="<<$tooltip_text>>"><<$personal_hygiene[cow["hygiene"]]>>
'
		*nl ' <<IIF(cow["calories"] > 0, "+", "")>><<cow["calories"]*100>> cal'
		*nl 'Owned for: <<cow["age_count"]>> days'
	*p '
'
elseif cow_state = CONST_INT['slave_faint']:
	*p '
<img src = "<<$cow[''ava_gray'']>>.png">
'
	*p '
Unconscious
'
		$tooltip_text = func('$addon', 'no_rate_stat_tooltip_text', 'hygiene', cow['hygiene'], -1)
		*nl '<div style="display:inline-block;position:relative;" class="tooltip-left" tooltip-data="<<$tooltip_text>>"><<$personal_hygiene[cow["hygiene"]]>>
'
	*p '
'
	$cow_info_text = '  <<$cow_name>> is unconscious.'
end

if cow_state ! CONST_INT['no_slave']: *p '
<<$info_bar>>
'

*p '
<<$cow_info_text>>
'
$cow_info_text = ''

if cheat_no_starve = 0 and cow['starvation_warning'] = 1:
	cow['starvation_warning'] = 2 &! will be reset in next_day when no longer starving
	msg '   You notice signs of starvation on your cow. It seems that the food you are giving her is not enough. Maybe you even have to pull her out of the barn and feed her to satiety.'
end

if cow_state > CONST_INT['no_slave'] and cow["hygiene"] > 0: *p '

'
if cow_state > CONST_INT['no_slave'] and cow["hygiene"] > 0 and assistant_state = CONST_INT['slave_exist']: *p '

'

if milk_can = 1:
	*p '

'
	*p '

<<milk_stock>>
'
end

if exam_in_progress = 0: *p '

'
if exam_in_progress = 1: *p '

'

--- barn ---------------------------------


code:
# billing
!Billing at the end of each decade (called from main_screen, TODO: move to next_day? - ImperatorAugustus)

rental_cost = 0
if owner = 0: rental_cost += estate_cost_main[$estate]
if barn > 0: rental_cost += estate_cost_barn[$estate]
if boudoir > 0: rental_cost += estate_cost_boudoir[$estate] &! zero for some estates
if dungeon > 0: rental_cost += estate_cost_dungeon[$estate] &! zero for some estates
if lab > 0: rental_cost += estate_cost_lab[$estate]
if pen > 0: rental_cost += 10

food_bill = total_food_cost
total_food_cost = 0

master_wealth = master_wealth_target

if master_wealth = 0: other_bills = 0
if master_wealth = 1: other_bills = 20 + ((97 * day) mod 11) &! pseudo-rand(20,30)
if master_wealth = 2: other_bills = 40 + ((97 * day) mod 21) &! pseudo-rand(40,60)
if master_wealth = 3: other_bills = 80 + ((97 * day) mod 41) &! pseudo-rand(80,120)
if master_wealth = 4: other_bills = 200 + ((97 * day) mod 101) &! pseudo-rand(200,300)
if master_wealth = 5: other_bills = 400 + ((97 * day) mod 201) &! pseudo-rand(400,600)
if master_wealth = 6: other_bills = 800 + ((97 * day) mod 401) &! pseudo-rand(800,1200)
if day = 10: other_bills = 0

other_bills += decade_cryo_costs
decade_cryo_costs = 0

other_bills += autobuy_cost
autobuy_cost = 0

revised_payment = food_bill + other_bills

account_skill = 0

$do_accounting = {
	if dynslave_state = CONST_INT['slave_exist'] and dynslave['account_rule'] = 1 and dynslave['energy'] >= 0:
		dynslave_rate['intellect'] += 5
		dynslave_rate['secretary'] += 15
		account_skill = max(account_skill, dynslave['secretary'] + dynslave['intellect'])
		if dynslave['obedience'] < 0: account_skill += dynslave['obedience']
		if dynslave['secretary_affinity'] > 0:
			account_skill += 2
			if dynslave['pos_job'] < 3: dynslave['pos_job'] = 3
		elseif dynslave["secretary_affinity"] < 0:
			account_skill -= 2
			if dynslave['neg_job'] < 3: dynslave['neg_job'] = 3
		end
		dynamic $dynslave_energy_drop &! energy cost is deducted after nightly refresh, so accountants start the decade slightly fatigued in exchange for the benefits - ImperatorAugustus
	end
}

dynamic $replace($do_accounting, 'dyn'+'slave', 'slave')
dynamic $replace($do_accounting, 'dyn'+'slave', 'assistant')

fine = 0
discount = 0

if account_skill ! 0:
	percent = revised_payment/20
	fine_chance = 2 + ((97 * day) mod 9) &! pseudo-rand(2,10)
	if account_skill < 4: fine_chance += 5
	a = fine_chance - account_skill
	if a > 0: fine = a*percent
	discount_chance = 2 + ((89 * day) mod 9) &! pseudo-rand(2,10)
	if account_skill > 7: discount_chance -= 5
	a = account_skill - discount_chance
	if a > 0: discount = a*percent
else
	master_moodlet['neg_accounts'] = 1 + brand_reputation
end

final_payment = rental_cost + revised_payment + fine - discount

!barn_report_cow_profit = barn_milk_profit + barn_cream_profit
barn_report_egg_profit = barn_egg_profit
barn_report_pig_profit = barn_pig_profit
barn_report_food_cost = barn_cow_food + barn_harpy_food + barn_pig_food
barn_cow_food = 0
barn_harpy_food = 0
barn_pig_food = 0
barn_milk_profit = 0
barn_cream_profit = 0
barn_egg_profit = 0
barn_pig_profit = 0
barn_total_profit = barn_report_egg_profit + barn_report_pig_profit - barn_report_food_cost

$bill_message = 'BILLS TO PAY
' + _
'Rental cost: <<rental_cost>> sparks
' + _
'Food bills: <<food_bill>> sparks
' + _
'Other expenses: <<other_bills>> sparks
' + _
'Discount: <<discount>> sparks
' + _
'Fines: <<fine>> sparks
' + _
'--------------------------
' + _
'       Total: <<final_payment>> sparks'

$barn_accounts = 'BARN ACCOUNTS
' + _
'Egglayer Income: <<barn_report_egg_profit>> sparks
' + _
'Pig Income: <<barn_report_pig_profit>> sparks
' + _
'Food costs: (<<barn_report_food_cost>>) sparks
' + _
'--------------------------
' + _
'       Profit: <<barn_total_profit>> sparks
' + _
'	   Saved on Groceries: <<decade_consume>> sparks
' + _
'	   Total Profit: <<barn_total_profit+decade_consume>> sparks'

tmp_liters_milk = decade_milk / 10
tmp_part_liters_milk = decade_milk - (tmp_liters_milk * 10)
tmp_liters_cream = decade_cream  / 10
tmp_part_liters_cream = decade_cream  - (tmp_liters_cream * 10)
tmp_part_liters_cream = (tmp_part_liters_cream * 10) / 10

$produce_msg = 'FOOD PRODUCTION
' + _
'Milk: <<decade_milk/5>> bottles (<<tmp_liters_milk>>.<<tmp_part_liters_milk>> litres)
' + _
'Cream: <<decade_cream/5>> bottles (<<tmp_liters_cream>>.<<tmp_part_liters_cream>> litres)
' + _
'Eggs: <<decade_eggs>>
'
if decade_semen > 0: $produce_msg += 'Fiend Semen <<decade_semen>> bottles
'
if decade_mince > 0: $produce_msg +='Meat: <<decade_meat>>
Virgin Meat: <<decade_virgin>>
Mince: <<decade_mince>>'

--- billing ---------------------------------


code:
# choice_screen
!yes/no choice screen
gs '#var_base'
gs '_layout'

if not_safe = 1:
	not_safe = 0
	*p '

'
elseif $picture_type = 'pic_png':
	*p '
<img src="content\pic\<<$bg_path>>.png">
'
else
	*p '
<img src="content\pic\bg\<<$bg[$place]>>.png">
'
end
*p '
<<$text[txt]>>
'

if $picture_type = 'slave_picture':
	if nsfw = 0:*p '
<img src="content\pic\<<$fullimage[slave_type]>>.png">
'
elseif $picture_type = 'assistant_picture':
	npc = 0
	if nsfw = 0:*p '
<img src="content\pic\<<$fullimage[assistant_type]>>.png">
'
elseif $picture_type = 'stock_picture':
	if npc ! 9999: npc = 0
	if nsfw = 0:*p '
<img src="content\pic\<<$fullimage[stock_type]>>.png">
'
elseif $picture_type = 'prisoner_picture':
	npc = 0
	if nsfw = 0:*p '
<img src="content\pic\<<$fullimage[prisoner_type]>>.png">
'
elseif $picture_type = 'cow_picture':
	npc = 0
	if nsfw = 0:*p '
<img src="content\pic\<<$fullimage[cow_type]>>.png">
'
end

if npc = 0:
	$info_bar = ''
	*p '

<<$place_name[$place]>>
<<$place_location[$place]>>
'
	*nl 'Information for consideration:'
	*nl '
'
	*p '
<<$place_info[$place]>>
'
elseif npc ! 9999:
	$info_bar = ''
	if nsfw = 1:
		*p '

'
	elseif $npc_image[$npc_id] ! '':
		*p '
<img src="content\pic\characters\<<$npc_image[$npc_id]>>.png">
'
	end
	*p '

<<$npc_name[$npc_id]>>
<<$npc_status[$npc_id]>>
'
	*nl 'Information for consideration:'
	*nl '
'
	*p '
<<$npc_attitude[npc_attitude[$npc_id]]>>'
	*nl '<<$npc_info[$npc_id]>>
'
else
	gs '$addon', 'info_box'
	gs '$slave_price', 'stock' &! merged $slave_price_stock into $slave_price - ImperatorAugustus
	*p '
'
	*nl 'Name: <<$stock_name>>'
	*nl 'Age:  <<$slave_age_name[stock["age"]]>>'
	if $master_head_gear = 'raven_crown':
		*nl 'Attributes Rating:  <<$rating[rating]>>
'
	else
		*nl
	end
	*nl 'ATTRIBUTES'
	$tooltip_text = func('$addon', 'no_rate_stat_tooltip_text', 'beauty', stock['beauty'], 1)
	*nl '<a class="tooltip-right" tooltip-data="<<$tooltip_text>>" href="EXEC: dynamic $msg, $красота_справка & dynamic $msg, $красота_справка_2"><<$beauty[stock["beauty"]]>>'
	$tooltip_text = func('$addon', 'no_rate_stat_tooltip_text', 'stamina', stock['stamina'], 1)
	*nl '<a class="tooltip-right" tooltip-data="<<$tooltip_text>>" href="EXEC: dynamic $msg, $здоровье_справка & dynamic $msg, $здоровье_справка_2"><<$stamina[stock["stamina"]]>>'
	$tooltip_text = func('$addon', 'no_rate_stat_tooltip_text', 'sensitivity', stock['sensitivity'], 1)
	*nl '<a class="tooltip-right" tooltip-data="<<$tooltip_text>>" href="EXEC: dynamic $msg, $чувствительность_справка & dynamic $msg, $чувствительность_справка_2"><<$sensitivity[stock["sensitivity"]]>>'
	$tooltip_text = func('$addon', 'no_rate_stat_tooltip_text', 'temper', stock['temper'], 1)
	*nl '<a class="tooltip-right" tooltip-data="<<$tooltip_text>>" href="EXEC: dynamic $msg, $темперамент_справка & dynamic $msg, $темперамент_справка_2"><<$temper[stock["temper"]]>>'
	$tooltip_text = func('$addon', 'no_rate_stat_tooltip_text', 'intellect', stock['intellect'], 1)
	*nl '<a class="tooltip-right" tooltip-data="<<$tooltip_text>>" href="EXEC: dynamic $msg, $ум_справка & dynamic $msg, $ум_справка_2"><<$intellect[stock["intellect"]]>>'
	$tooltip_text = func('$addon', 'no_rate_stat_tooltip_text', 'ego', stock['ego'], 1)
	*nl '<a class="tooltip-right" tooltip-data="<<$tooltip_text>>" href="EXEC: dynamic $msg, $характер_справка & dynamic $msg, $характер_справка_2"><<$ego[stock["ego"]]>>'
	$tooltip_text = func('$addon', 'no_rate_stat_tooltip_text', 'pride', stock['pride'], -1)
	*nl '<a class="tooltip-right" tooltip-data="<<$tooltip_text>>" href="EXEC: dynamic $msg, $гордыня_справка & dynamic $msg, $гордыня_справка_2"><<$pride[stock["pride"]]>>'
	$tooltip_text = func('$addon', 'no_rate_stat_tooltip_text', 'exotic', stock['exotic'], 1)
	*nl '<a class="tooltip-right" tooltip-data="<<$tooltip_text>>" href="EXEC: dynamic $msg, $экзотичность_справка & dynamic $msg, $экзотичность_справка_2"><<$exotic[stock["exotic"]]>>'
	$tooltip_text = func('$addon', 'no_rate_stat_tooltip_text', 'fat', IIF(stock['fat'] = 1 or stock['fat'] = 5, 1, 6 - stock['fat']))
	*nl '<a class="tooltip-right" tooltip-data="<<$tooltip_text>>" href="EXEC: dynamic $msg, $жыр_справка & dynamic $msg, $жыр_справка_2"><<$fat[stock["fat"]]>>'
	$tooltip_text = func('$addon', 'no_rate_stat_tooltip_text', 'style', stock['style'], 1)
	*nl '<a class="tooltip-right" tooltip-data="<<$tooltip_text>>" href="EXEC: dynamic $msg, $стиль_справка & dynamic $msg, $стиль_справка_2"><<$style[stock["style"]]>>'
	$tooltip_text = func('$addon', 'no_rate_stat_tooltip_text', 'fame', stock['fame'], 1)
	*nl '<a class="tooltip-right" tooltip-data="<<$tooltip_text>>" href="EXEC: dynamic $msg, $слава_справка & dynamic $msg, $слава_справка_2"><<$girl_fame[stock["fame"]]>>'
	*nl
	*nl 'TRAITS'
	*nl '<<$stock_features_list>>
'
end

*p '
<<$info_bar>>
'
if $special_image[txt] ! '':
	if nsfw = 0:*p '
<img src="content\pic\<<$special_image[txt]>>">
'
end

if sound_on = 1 and $play_sound[txt] ! '': play 'content\snd\<<$play_sound[txt]>>.wav', sound_volume
if $play_sound[txt] ! '': $play_sound[txt] = ''

*p '

'
*p '

'

--- choice_screen ---------------------------------


code:
# choose_the_girl
!slave selection screen for the training mode
exam_in_progress = 1
ui_style = 1
killobj
addobj ''

*p '

'
*p '
Choose your slave
'

if special_stock = 0: special_stock = 2575 &! default selection

if special_stock = 2575:
	*p '

'
	$text[1] = 'Former housewife who was sold into slavery by the bank, for the debts of her husband. She served as a «specialist in entertainment» for the managers of a corporation, so she has some required experience. But she is not specially trained.
' + _
 	'Difficulty: minimal'
	*p '
<<$text[txt]>>
'
end

if special_stock = 2574:
	*p '

'
	$text[1] = 'Lesbian amazon from the savage space tribe. She has great makings, but do not forget that this girl has great physical strength, fighting skills, and she despises men.
' + _
 	'Difficulty: high'
	*p '
<<$text[txt]>>
'
end

if special_stock = 2573:
	*p '

'
	$text[1] = 'Little princess of a small kingdom of a highly-magical world. The combination of poor health, vulnerability and prohibitive defiance will make her training especially challenging. But her beauty is worth it.
' + _
 	'Difficulty: normal'
	*p '
<<$text[txt]>>
'
end
!gs '$newloc'
gs 'generate_stock'
gs 'stock_to_slave_nogt'
slave['brand'] = 4
dynamic $replace($update_slave_features_list, 'dyn'+'slave', 'slave')
$slave["cloth"] = "голая"

slave_inventory['maid_dress'] = 1
slave_inventory['apron'] = 1
slave_inventory['common_apron'] = 1
slave_inventory['nurse_dress'] = 1
slave_inventory['sailor_foku'] = 1
slave_inventory['leotard'] = 1
slave_inventory['chainmail_bikini'] = 1
slave_inventory['enchanter_robe'] = 1
slave_inventory['sun_dress'] = 1
slave_inventory['leather_corset'] = 1
slave_inventory['fluffy_stepins'] = 1
slave_inventory['high_boots'] = 1
slave_inventory['sneakers'] = 1
slave_inventory['tabi'] = 1
slave_inventory['glasses'] = 1
slave_inventory['nekomimi'] = 1
slave_inventory['anal_tail'] = 1
slave_inventory['pony_plume'] = 1
slave_inventory['ponygirl_harness'] = 1
slave_inventory['hoofed_boots'] = 1
slave_inventory['leather_gloves'] = 1
slave_inventory['fluffy_gloves'] = 1
slave_inventory['rubber_gloves'] = 1
slave_inventory['plain_headband'] = 1
slave_inventory['golden_collar'] = 1
slave_inventory['leather_collar'] = 1
slave_inventory['spiked_collar'] = 1

!slave['energy'] = slave["stamina"]

if no_loli ! 1: *p '

'
*p '

'
*p '

'

*p '
'
*nl 'ATTRIBUTES'
*nl '<<$beauty[seed_beauty[slave_type]]>>'
*nl '<<$stamina[seed_stamina[slave_type]]>>'
*nl '<<$sensitivity[seed_sensitivity[slave_type]]>>'
*nl '<<$temper[seed_temper[slave_type]]>>'
*nl '<<$intellect[seed_intellect[slave_type]]>>'
*nl '<<$ego[seed_ego[slave_type]]>>'
*nl '<<$pride[seed_pride[slave_type]]>>'
*nl '<<$exotic[seed_exotic[slave_type]]>>'
*nl '<<$fat[seed_fat[slave_type]]>>'
*nl '<<$style[seed_style[slave_type]]>>
'
*nl 'TRAITS'
*nl '<<$slave_features_list>>
'

--- choose_the_girl ---------------------------------


code:
# chose_answer
!The choice of answer to the question in the dialogue with slave

if interaction = 1113:
	killvar '$text'
	txt = 0
	if slave['passion_comfort'] = 1:
		$text[] = $comfort_need
	end
	if slave['passion_luxury'] = 1:
		$text[] = $luxury_need
	end
	if slave['passion_sweets'] = 1:
		$text[] = $sweets_need
	end
	if slave['passion_fame'] = 1:
		$text[] = $fame_need
	end
	if slave['abuse_attitude'] = 2 and slave['custom'] > 1:
		$text[] = $abuse_need
	end
	if slave['darkness_attitude'] = 2 and slave['custom'] > 1:
		$text[] = $darkness_need
	end
	if slave['blood_attitude'] = 2 and slave['custom'] > 1:
		$text[] = $blood_need
	end
	if slave['fire_attitude'] = 2 and slave['custom'] > 1:
		$text[] = $fire_need
	end
	if slave['water_attitude'] = 2 and slave['custom'] > 1:
		$text[] = $water_need
	end
	if slave['vermin_attitude'] = 2 and slave['custom'] > 1:
		$text[] = $vermin_need
	end
	if slave['deprivation_attitude'] = 2 and slave['custom'] > 1:
		$text[] = $deprivation_need
	end
	if slave['nymphomania'] > 0 and slave['arousal'] > 1 and slave['instinct'] > 2 and slave['sex_sum'] > 5:
		$text[] = $nymphomania_need
	end
	if slave['homosexualism'] = 2 and slave['arousal'] > 1 and slave['sex_sum'] > 0:
		$text[] = $homosexualism_need
	end
	if slave['exhibitionism'] = 2 and slave['arousal'] > 2 and slave['obedience'] > 20:
		$text[] = $exhibitionism_need
	end
	if slave['perversion'] = 2 and slave['arousal'] > 3 and slave['obedience'] > 40:
		$text[] = $perversion_need
	end
	if arrsize('$text') = 0:
		if $slave_psy_status = 'obedient' or $slave_psy_status = 'servile' or $slave_psy_status = 'horny':
			$text[] = $no_need_gentle
		else
			$text[] = $no_need
		end
	end
end

if interaction = 1114:
	killvar '$text'
	txt = 0
	if slave['sport_affinity'] > 0:
		$text[] = $sport_like
	end
	if slave['expression_affinity'] > 0:
		$text[] = $expression_like
	end
	if slave['pet_affinity'] > 0:
		$text[] = $pet_like
	end
	if slave['dressage_affinity'] > 0:
		$text[] = $dressage_like
	end
	if slave['cowSK_affinity'] > 0:
		$text[] = $cowSK_like
	end
	if slave['nurse_affinity'] > 0:
		$text[] = $nurse_like
	end
	if slave['service_affinity'] > 0:
		$text[] = $service_like
	end
	if slave['cook_affinity'] > 0:
		$text[] = $cook_like
	end
	if slave['gladiatrix_affinity'] > 0:
		$text[] = $gladiatrix_like
	end
	if slave['enchanter_affinity'] > 0:
		$text[] = $enchanter_like
	end
	if slave['art_affinity'] > 0:
		$text[] = $art_like
	end
	if slave['music_affinity'] > 0:
		$text[] = $music_like
	end
	if slave['calisthenics_affinity'] > 0:
		$text[] = $calisthenics_like
	end
	if slave['secretary_affinity'] > 0:
		$text[] = $secretary_like
	end
	if arrsize('$text') = 0:
		if $slave_psy_status = 'obedient' or $slave_psy_status = 'servile' or $slave_psy_status = 'horny':
			$text[] = $no_like_gentle
		else
			$text[] = $no_like
		end
	end
end

if interaction = 1115:
	killvar '$text'
	txt = 0
	if slave['obedience'] >= slave['intellect'] - slave['temperament']:
		if slave['nymphomania'] < 0 and slave['arousal'] > 0:
			$text[] = $nymphomania_dislike
		end
		if slave['homosexualism'] = -1 and slave['arousal'] > 0:
			$text[] = $homosexualism_dislike
		end
		if slave['exhibitionism'] = -1 and slave['arousal'] > 1:
			$text[] = $exhibitionism_dislike
		end
		if slave['perversion'] = -1 and slave['arousal'] > 2:
			$text[] = $perversion_dislike
		end
		if slave['passion_comfort'] = -1:
			$text[] = $comfort_dislike
		end
		if slave['passion_luxury'] = -1:
			$text[] = $luxury_dislike
		end
		if slave['passion_sweets'] = -1:
			$text[] = $sweets_dislike
		end
		if slave['passion_fame'] = -1:
			$text[] = $fame_dislike
		end
		if slave['abuse_attitude'] = -1 and slave['instinct'] > 0:
			$text[] = $abuse_dislike
		end
		if slave['darkness_attitude'] = -1 and slave['instinct'] > 0:
			$text[] = $darkness_dislike
		end
		if slave['blood_attitude'] = -1 and slave['instinct'] > 0:
			$text[] = $blood_dislike
		end
		if slave['fire_attitude'] = -1 and slave['instinct'] > 0:
			$text[] = $fire_dislike
		end
		if slave['water_attitude'] = -1 and slave['instinct'] > 0:
			$text[] = $water_dislike
		end
		if slave['vermin_attitude'] = -1 and slave['instinct'] > 0:
			$text[] = $vermin_dislike
		end
		if slave['deprivation_attitude'] = -1 and slave['instinct'] > 0:
			$text[] = $deprivation_dislike
		end
	end
	if arrsize('$text') = 0:
		if slave['obedience'] >= slave['intellect'] - slave['temperament']:
			$text[] = $no_dislike
		else
			$text[] = $hide_dislikes
		end
	end
end

--- chose_answer ---------------------------------


code:
# city_menu_form
!return to tutorial if the player somehow escapes
if exam_in_progress = 1: gt 'demo_menu_form'
gs '$newloc' &! ensure all stats are updated before displaying them
$toplay = 'fight'
!CLOSE ALL

dynamic $slave_pass_out
dynamic $prisoner_pass_out
dynamic $assistant_pass_out
dynamic $cow_pass_out
dynamic $master_pass_out &! master should be last

$text_display = ''
$setting_display = ''
$setting_display_c = ''
$setting_display_c2 = ''
$setting_display_r = ''
$return_lock  = 'city_menu_form'
sp_txt = 0
get_girl = 0
is_home = 0
!обнуление
buyer_from_house = 0

!check for an event
gs '$city_random_event'

if city_form ! 1000:
	if noble_status = 1 or brand_reputation >= 5:
		$city_sound = 'content/snd/city_honor.wav'
	elseif $estate = 'slum_house':
		$city_sound = 'content/snd/city_poor.wav'
	else
		$city_sound = 'content/snd/city_citizen.wav'
	end
end

!Energy loss will occur with the regular menu now instead of only with the quick travel buttons - crushboss
if city_form = 0:
	$place = 'city'
	func('$menu', 'spacer', 1)

	func('$menu', '===BEGIN===', 'column_0')

	func('$menu', 'exec_options', $menu_item_town, 'city_form = 1 & $quick_move_action = "go" & gt "sjm_UI_UIadds"', 'White Town')
	func('$menu', 'exec_options', $menu_item_Necropolis, 'city_form = 5 & $quick_move_action = "go" & gt "sjm_UI_UIadds"', 'Necropolis')
	func('$menu', 'exec_options', $menu_item_Bull, 'city_form = 2 & $quick_move_action = "go" & gt "sjm_UI_UIadds"', 'Quarter of the Bull')
	func('$menu', 'exec_options', $menu_item_Serpentine, 'city_form = 3 & $quick_move_action = "go" & gt "sjm_UI_UIadds"', 'Serpentine Quarter')
	func('$menu', 'exec_options', $menu_item_Outcasts, 'city_form = 4 & $quick_move_action = "go" & gt "sjm_UI_UIadds"', 'Quarter of the Outcasts')
	func('$menu', 'exec_options', $menu_item_city_gate, 'city_form = 61 & $quick_move_action = "go" & gt "sjm_UI_UIadds"', 'To City Gate')
	!func('$menu', 'exec_options', $menu_item_Slums, 'city_form = 6 & $quick_move_action = "go" & gt "sjm_UI_UIadds"', 'The Slums')

	func('$menu', '===END===')
end

if city_form = 1:
	city_district = 1
	$place = 'white_city'
	func('$menu', 'spacer', 1)

	func('$menu', '===BEGIN===', 'column_0')

	func('$menu', 'city_form', $menu_item_ResidencesWhiteTown, menu_ResidencesWhiteTown, 'Palatine Residences')
	func('$menu', 'city_form', $menu_item_square, menu_square, 'Trade Square')
	func('$menu', 'interaction_city', $menu_item_guild, menu_guild, 'The Slavers Guild')
	func('$menu', 'interaction_city', $menu_item_Colosseum, menu_Colosseum, 'Colosseum')
	func('$menu', 'interaction_city', $menu_item_Central, menu_Central, 'Central Forum')
	func('$menu', 'interaction_city', $menu_item_Vatican, menu_Vatican, 'The Vatican')
	func('$menu', 'city_form', $menu_item_Leavewhite, menu_Leavewhite, 'Leave the Quarter')

	func('$menu', '===END===')
end

if city_form = 11:
	$place = 'market'

	func('$menu', '===BEGIN===', 'column_0')

	if slave_state = CONST_INT['no_slave']:
		func('$menu', 'goto_city', $menu_item_marketbuy, menu_market, 'txt = 1', 'slave_auction_buy', 'Slave Market')
	elseif slave_state ! CONST_INT['no_slave']:
		func('$menu', 'goto_city', $menu_item_marketsell, menu_market, 'txt = 1', 'slave_auction_sell', 'Slave Market')
	else
		func('$menu', 'city_form', $menu_item_nomarket, empty, 'Slave Market')
	end
	func('$menu', 'interaction_city', $menu_item_Gastronomicon, menu_Gastronomicon, 'Gastronomicon')
	func('$menu', 'interaction_city', $menu_item_laid, menu_laid, 'Salon Elven Laid')
	func('$menu', 'interaction_city', $menu_item_Quint, menu_Quint, 'Boutique of Servilia Quint')
	func('$menu', 'interaction_city', $menu_item_treasury, menu_treasury, 'Ashura’s Treasury')
	func('$menu', 'interaction_city', $menu_item_armory, menu_armory, 'Manhunter’s Armory')
	func('$menu', 'interaction_city', $menu_item_office, menu_office, 'Real Estate Office')
	func('$menu', 'city_form', $menu_item_Leavesquare, menu_Leavesquare, 'Leave the Trade Square')

	func('$menu', '===END===')
end

if city_form = 111:
	$place = 'white_street'

	func('$menu', '===BEGIN===', 'column_0')

	if $estate = 'white_house':
		func('$menu', 'goto_city', $menu_item_apartmentwhite_house, 0, 'menu_form = 0 & city_form', 'menu_form', 'Your Apartment')
	end
	func('$menu', 'city_form', $menu_item_town, menu_town, 'To the Central Street')

	func('$menu', '===END===')
end

if city_form = 2:
	city_district = 2
	$place = 'taurus_district'
	func('$menu', 'spacer', 1)

	func('$menu', '===BEGIN===', 'column_0')

	func('$menu', 'city_form', $menu_item_ResidencesBull, menu_ResidencesBull, 'Taurus Residences')
	func('$menu', 'interaction_city', $menu_item_Salon, menu_Salon, 'Salon of Madame Jofre')
	func('$menu', 'interaction_city', $menu_item_club, menu_club, 'Gentleman’s Club')
	func('$menu', 'interaction_city', $menu_item_palace, menu_palace, 'White Palace')
	func('$menu', 'city_form', $menu_item_Leavetaurus_district, menu_Leavetaurus_district, 'Leave the Quarter')

	func('$menu', '===END===')
end

if city_form = 21:
	$place = 'taurus_street'

	func('$menu', '===BEGIN===', 'column_0')

	if $estate = 'taurus_house':
		func('$menu', 'goto_city', $menu_item_apartmenttaurus_house, 0, 'menu_form = 0 & city_form', 'menu_form', 'Your Apartment')
	end
	if npc_progress['don_castilio'] ! 2:
		func('$menu', 'interaction_city', $menu_item_castilio, menu_castilio, 'Don Castilio')
	else
		func('$menu', 'interaction_city', $menu_item_castilio_gray, menu_castilio, 'Don Castilio')
	end
	if npc_progress['don_diego'] ! 2:
		func('$menu', 'interaction_city', $menu_item_diego, menu_diego, 'Don Diego')
	else
		func('$menu', 'interaction_city', $menu_item_diego_gray, menu_diego, 'Don Diego')
	end
	if npc_progress['magister_gilmeritus'] ! 2:
		func('$menu', 'interaction_city', $menu_item_gilmeritus, menu_gilmeritus, 'Magister Gilmeritus')
	else
		func('$menu', 'interaction_city', $menu_item_gilmeritus_gray, menu_gilmeritus, 'Magister Gilmeritus')
	end
	if npc_progress['sir_toughbar'] ! 2:
		func('$menu', 'interaction_city', $menu_item_toughbar, menu_toughbar, 'Sir Toughbar')
	else
		func('$menu', 'interaction_city', $menu_item_toughbar_gray, menu_toughbar, 'Sir Toughbar')
	end
	if npc_progress['lady_edna'] ! 2:
		func('$menu', 'interaction_city', $menu_item_edna, menu_edna, 'Lady Edna')
	else
		func('$menu', 'interaction_city', $menu_item_edna_gray, menu_edna, 'Lady Edna')
	end
	if npc_progress['lady_suinton'] ! 2:
		func('$menu', 'interaction_city', $menu_item_suinton, menu_suinton, 'Lady Suinton')
	else
		func('$menu', 'interaction_city', $menu_item_suinton_gray, menu_suinton, 'Lady Suinton')
	end
	func('$menu', 'city_form', $menu_item_taurus_street, menu_taurus_street, 'To the Central Street')

	func('$menu', '===END===')
end

if city_form = 3:
	city_district = 3
	$place = 'serpis_district'
	func('$menu', 'spacer', 1)

	func('$menu', '===BEGIN===', 'column_0')

	func('$menu', 'city_form', $menu_item_Anthill, menu_Anthill, 'Anthill')
	func('$menu', 'interaction_city', $menu_item_hip, menu_hip, 'Virgin’s Hip')
	func('$menu', 'city_form', $menu_item_Technosphere, menu_Technosphere, 'Technosphere')
	func('$menu', 'interaction_city', $menu_item_spires, menu_spires, 'Administrative Spires')
	func('$menu', 'city_form', $menu_item_Leaveserpis_district, menu_Leaveserpis_district, 'Leave the Quarter')

	func('$menu', '===END===')
end

if city_form = 31:
	$place = 'serpis_street'

	func('$menu', '===BEGIN===', 'column_0')
	if $estate = 'serpis_house':
		func('$menu', 'goto_city', $menu_item_apartmentserpis_house, 0, 'menu_form = 0 & city_form', 'menu_form', 'Your Apartment')
	end
	if npc_progress['yôhanan_stiven'] ! 2:
		func('$menu', 'interaction_city', $menu_item_yôhanan_stiven, menu_yôhanan_stiven, 'Yôhanan Stiven')
	else
		func('$menu', 'interaction_city', $menu_item_yôhanan_stiven_gray, menu_yôhanan_stiven, 'Yôhanan Stiven')
	end
	if npc_progress['archmage_zephiros'] ! 2:
		func('$menu', 'interaction_city', $menu_item_zephiros, menu_zephiros, 'Archmage Zephiros')
	else
		func('$menu', 'interaction_city', $menu_item_zephiros_gray, menu_zephiros, 'Archmage Zephiros')
	end
	if npc_progress['zhuge_liang'] ! 2:
		func('$menu', 'interaction_city', $menu_item_zhuge_liang, menu_zhuge_liang, 'Zhuge Liang')
	else
		func('$menu', 'interaction_city', $menu_item_zhuge_liang_gray, menu_zhuge_liang, 'Zhuge Liang')
	end
	if npc_progress['piter_viabu'] ! 2:
		func('$menu', 'interaction_city', $menu_item_viabu, menu_viabu, 'Peter Viaboo')
	else
		func('$menu', 'interaction_city', $menu_item_viabu_gray, menu_viabu, 'Peter Viaboo')
	end
	if npc_progress['mister_lardbag'] ! 2:
		func('$menu', 'interaction_city', $menu_item_lardbag, menu_lardbag, 'Mister Lardbag')
	else
		func('$menu', 'interaction_city', $menu_item_lardbag_gray, menu_lardbag, 'Mister Lardbag')
	end
	if npc_progress['krull'] ! 2:
		func('$menu', 'interaction_city', $menu_item_krull, menu_krull, 'Krull')
	else
		func('$menu', 'interaction_city', $menu_item_krull_gray, menu_krull, 'Krull')
	end
	if $estate ! 'serpis_house':
		if npc_progress['avek_plesir'] ! 2:
			func('$menu', 'interaction_city', $menu_item_plesir, menu_plesir, 'Avek Plesir')
		else
			func('$menu', 'interaction_city', $menu_item_plesir_gray, menu_plesir, 'Avek Plesir')
		end
	end
	func('$menu', 'city_form', $menu_item_serpis_street, menu_serpis_street, 'To the Central Street')
	func('$menu', '===END===')

	func('$menu', '===BEGIN===', 'column_1')
	if $estate = 'serpis_house':
		if npc_progress['avek_plesir'] ! 2:
			func('$menu', 'interaction_city', $menu_item_plesir, menu_plesir, 'Avek Plesir')
		else
			func('$menu', 'interaction_city', $menu_item_plesir_gray, menu_plesir, 'Avek Plesir')
		end
	end
	if npc_progress['green_mamba'] ! 2:
		func('$menu', 'interaction_city', $menu_item_mamba, menu_mamba, 'Green Mamba')
	else
		func('$menu', 'interaction_city', $menu_item_mamba_gray, menu_mamba, 'Green Mamba')
	end
	if npc_progress['leonid_alexandriatos'] ! 2:
		func('$menu', 'interaction_city', $menu_item_alexandriatos, menu_alexandriatos, 'Leonid Aleksandriatos')
	else
		func('$menu', 'interaction_city', $menu_item_alexandriatos_gray, menu_alexandriatos, 'Leonid Aleksandriatos')
	end
	if npc_progress['lucius_patricius'] ! 2:
		func('$menu', 'interaction_city', $menu_item_patricius, menu_patricius, 'Lucius Patricius')
	else
		func('$menu', 'interaction_city', $menu_item_patricius_gray, menu_patricius, 'Lucius Patricius')
	end
	if npc_progress['singh_khan'] ! 2:
		func('$menu', 'interaction_city', $menu_item_khan, menu_khan, 'Singh-Khan')
	else
		func('$menu', 'interaction_city', $menu_item_khan_gray, menu_khan, 'Singh-Khan')
	end
	if npc_progress['frogger'] ! 2:
		func('$menu', 'interaction_city', $menu_item_frogger, menu_frogger, 'Frogger')
	else
		func('$menu', 'interaction_city', $menu_item_frogger_gray, menu_frogger, 'Frogger')
	end
	if npc_progress['dofine_tutti'] ! 2:
		func('$menu', 'interaction_city', $menu_item_tutti, menu_tutti, 'Dauphine Tutti')
	else
		func('$menu', 'interaction_city', $menu_item_tutti_gray, menu_tutti, 'Dauphine Tutti')
	end
	if npc_progress['earl_gray'] ! 2:
		func('$menu', 'interaction_city', $menu_item_earl, menu_earl, 'Earl Gray')
	else
		func('$menu', 'interaction_city', $menu_item_earl_gray, menu_earl, 'Earl Gray')
	end
	func('$menu', '===END===')
end

if city_form = 33:
	$place = 'technodrom'

	!reset health checkup status so examination fee is charged once per visit
	master_health_checked = 0
	dynamic $do_for_each_slave_in_list, "{ if dynslave_state ! CONST_INT['no_slave']: dynslave['health_issues_revealed'] = 0 }", '$mobile_slave_characters'

	func('$menu', 'spacer', 1)

	func('$menu', '===BEGIN===', 'column_0')

	func('$menu', 'interaction_city', $menu_item_Medical_center, menu_Medical_center, 'Medical Center')
	!if sparks > 0:
		func('$menu', 'interaction_city', $menu_item_Cryostatic, menu_Cryostatic, 'Cryostatic Store')
	!else
	!	func('$menu', 'exec', $menu_item_Cryostatic_gray, empty, 'Cryostatic Store')
	!end
	func('$menu', 'interaction_city', $menu_item_Library, menu_Library, 'Library Terminal')
	func('$menu', 'city_form', $menu_item_Leave_technodrom, menu_Leave_technodrom, 'Leave the Technosphere')

	func('$menu', '===END===')
end

if city_form = 4:
	city_district = 4
	$place = 'kamira_district'
	func('$menu', 'spacer', 1)

	func('$menu', '===BEGIN===', 'column_0')

	func('$menu', 'city_form', $menu_item_Resident_kamira_district, menu_Resident_kamira_district, 'Camira Residences')
	func('$menu', 'interaction_city', $menu_item_Uncle_Bo, menu_Uncle_Bo, 'Patterns of Uncle Bo')
	func('$menu', 'interaction_city', $menu_item_Mystra, menu_Mystra, 'The Rarity Of Mystra')
	func('$menu', 'interaction_city', $menu_item_animal_farm, menu_animal_farm, 'Public Animal Farm')
	func('$menu', 'interaction_city', $menu_item_Citadel, menu_Citadel, 'Tierra del Citadel')
	func('$menu', 'city_form', $menu_item_Leavekamira_district, menu_Leavekamira_district, 'Leave the Quarter')

	func('$menu', '===END===')
end

if city_form = 41:
	$place = 'kamira_street'

	func('$menu', '===BEGIN===', 'column_0')
	if $estate = 'kamira_house':
		func('$menu', 'goto_city', $menu_item_apartmentkamira_house, 0, 'menu_form = 0 & city_form', 'menu_form', 'Your Apartment')
	end
	if npc_progress['gloth_prisonguard'] ! 2:
		func('$menu', 'interaction_city', $menu_item_gloth, menu_gloth, 'Glot Prisonguard')
	else
		func('$menu', 'interaction_city', $menu_item_gloth_gray, menu_gloth, 'Glot Prisonguard')
	end
	if npc_progress['bullhorn'] ! 2:
		func('$menu', 'interaction_city', $menu_item_bullhorn, menu_bullhorn, 'Bullhorn')
	else
		func('$menu', 'interaction_city', $menu_item_bullhorn_gray, menu_bullhorn, 'Bullhorn')
	end
	if npc_progress['arbue'] ! 2:
		func('$menu', 'interaction_city', $menu_item_arbue, menu_arbue, 'Arbue')
	else
		func('$menu', 'interaction_city', $menu_item_arbue_gray, menu_arbue, 'Arbue')
	end
	if npc_progress['magnaga'] ! 2:
		func('$menu', 'interaction_city', $menu_item_magnaga, menu_magnagae, 'Magnaga')
	else
		func('$menu', 'interaction_city', $menu_item_magnaga_gray, menu_magnaga, 'Magnaga')
	end
	if npc_progress['kratos'] ! 2:
		func('$menu', 'interaction_city', $menu_item_kratos, menu_kratos, 'Kratos')
	else
		func('$menu', 'interaction_city', $menu_item_kratos_gray, menu_kratos, 'Kratos')
	end
	if $estate ! 'kamira_house':
		if npc_progress['mikkey'] ! 2:
			func('$menu', 'interaction_city', $menu_item_mikkey, menu_mikkey, 'Mikkey')
		else
			func('$menu', 'interaction_city', $menu_item_mikkey_gray, menu_mikkey, 'Mikkey')
		end
	end
	func('$menu', 'city_form', $menu_item_kamira_street, menu_kamira_street, 'To the Central Street')
	func('$menu', '===END===')

	func('$menu', '===BEGIN===', 'column_1')
	if $estate = 'kamira_house':
		if npc_progress['mikkey'] ! 2:
			func('$menu', 'interaction_city', $menu_item_mikkey, menu_mikkey, 'Mikkey')
		else
			func('$menu', 'interaction_city', $menu_item_mikkey_gray, menu_mikkey, 'Mikkey')
		end
	end
	if npc_progress['sfinga'] ! 2:
		func('$menu', 'interaction_city', $menu_item_sfinga, menu_sfinga, 'Sphingy')
	else
		func('$menu', 'interaction_city', $menu_item_sfinga_gray, menu_sfinga, 'Sphingy')
	end
	if npc_progress['lady_mordhulla'] ! 2:
		func('$menu', 'interaction_city', $menu_item_mordhulla, menu_mordhulla, 'Lady Mordhulla')
	else
		func('$menu', 'interaction_city', $menu_item_mordhulla_gray, menu_mordhulla, 'Lady Mordhulla')
	end
	if npc_progress['kurfilinn'] ! 2:
		func('$menu', 'interaction_city', $menu_item_kurfilinn, menu_kurfilinn, 'Kurfilinn')
	else
		func('$menu', 'interaction_city', $menu_item_kurfilinn_gray, menu_kurfilinn, 'Kurfilinn')
	end
	if npc_progress['prince_charming'] ! 2:
		func('$menu', 'interaction_city', $menu_item_charming, menu_charming, 'Prince Charming')
	else
		func('$menu', 'interaction_city', $menu_item_charming_gray, menu_charming, 'Prince Charming')
	end
	if npc_progress['lord_pira'] ! 2:
		func('$menu', 'interaction_city', $menu_item_pira, menu_pira, 'Lord Pyra')
	else
		func('$menu', 'interaction_city', $menu_item_pira_gray, menu_pira, 'Lord Pyra')
	end
	if npc_progress['countess_bathory'] ! 2:
		func('$menu', 'interaction_city', $menu_item_bathory, menu_bathory, 'Countess Bathory')
	else
		func('$menu', 'interaction_city', $menu_item_bathory_gray, menu_bathory, 'Countess Bathory')
	end
	func('$menu', '===END===')
end

if city_form = 5:
	city_district = 5
	$place = 'korvus_district'
	func('$menu', 'spacer', 1)

	func('$menu', '===BEGIN===', 'column_0')

	func('$menu', 'city_form', $menu_item_Residenceskorvus_district, menu_Residenceskorvus_district, 'Corvus Residences')
	func('$menu', 'interaction_city', $menu_item_Steel, menu_Steel, 'Steel Rose')
	func('$menu', 'interaction_city', $menu_item_theatre, menu_theatre, 'Anatomical Theater')
	func('$menu', 'interaction_city', $menu_item_Tower, menu_Tower, 'Raven Tower')
	func('$menu', 'city_form', $menu_item_Leavekorvus_district, menu_Leavekorvus_district, 'Leave the Quarter')

	func('$menu', '===END===')
end

if city_form = 51:
	$place = 'korvus_street'

	func('$menu', '===BEGIN===', 'column_0')

	if $estate = 'korvus_house':
		func('$menu', 'goto_city', $menu_item_apartmentkorvus_house, 0, 'menu_form = 0 & city_form', 'menu_form', 'Your Apartment')
	end
	if npc_progress['wight'] ! 2:
		func('$menu', 'interaction_city', $menu_item_wight, menu_wight, 'Wight')
	else
		func('$menu', 'interaction_city', $menu_item_wight_gray, menu_wight, 'Wight')
	end
	if npc_progress['lestor'] ! 2:
		func('$menu', 'interaction_city', $menu_item_lestor, menu_lestor, 'Lestor')
	else
		func('$menu', 'interaction_city', $menu_item_lestor_gray, menu_lestor, 'Lestor')
	end
	if npc_progress['paral_itch'] ! 2:
		func('$menu', 'interaction_city', $menu_item_itch, menu_itch, 'Para Lysis')
	else
		func('$menu', 'interaction_city', $menu_item_itch_gray, menu_itch, 'Para Lysis')
	end
	if npc_progress['draugr'] ! 2:
		func('$menu', 'interaction_city', $menu_item_draugr, menu_draugr, 'Draugr')
	else
		func('$menu', 'interaction_city', $menu_item_draugr_gray, menu_draugr, 'Draugr')
	end
	if npc_progress['scarlet'] ! 2:
		func('$menu', 'interaction_city', $menu_item_scarlet, menu_scarlet, 'Scarlet')
	else
		func('$menu', 'interaction_city', $menu_item_scarlet_gray, menu_scarlet, 'Scarlet')
	end
	func('$menu', 'city_form', $menu_item_korvus_street, menu_korvus_street, 'To the Central Street')
	func('$menu', '===END===')
end
if city_form = 51:
	$place = 'korvus_street'

	func('$menu', '===BEGIN===', 'column_1')

	if npc_progress['mad_baron'] ! 2:
		func('$menu', 'interaction_city', $menu_item_baron, menu_baron, 'Mad Baron')
	else
		func('$menu', 'interaction_city', $menu_item_baron_gray, menu_baron, 'Mad Baron')
	end
	if npc_progress['faceless'] ! 2:
		func('$menu', 'interaction_city', $menu_item_faceless, menu_faceless, 'Faceless')
	else
		func('$menu', 'interaction_city', $menu_item_faceless_gray, menu_faceless, 'Faceless')
	end
	if npc_progress['donna_venturi'] ! 2:
		func('$menu', 'interaction_city', $menu_item_venturi, menu_venturi, 'Donna Venturi')
	else
		func('$menu', 'interaction_city', $menu_item_venturi_gray, menu_venturi, 'Donna Venturi')
	end
	if npc_progress['lady_yasmenia'] ! 2:
		func('$menu', 'interaction_city', $menu_item_yasmenia, menu_yasmenia, 'Lady Yasmenia')
	else
		func('$menu', 'interaction_city', $menu_item_yasmenia_gray, menu_yasmenia, 'Lady Yasmenia')
	end
	if npc_progress['count_yagellon'] ! 2:
		func('$menu', 'interaction_city', $menu_item_yagellon, menu_yagellon, 'Count Yagellon')
	else
		func('$menu', 'interaction_city', $menu_item_yagellon_gray, menu_yagellon, 'Count Yagellon')
	end
	if npc_progress['baron_imladis'] ! 2:
		func('$menu', 'interaction_city', $menu_item_imladis, menu_imladis, 'Baron Imladis')
	else
		func('$menu', 'interaction_city', $menu_item_imladis_gray, menu_imladis, 'Baron Imladis')
	end
	func('$menu', '===END===')
end

if city_form = 6:
	city_district = 6
	$place = 'slums'
	func('$menu', '===BEGIN===', 'column_0')

	if $estate = 'slum_house':
		func('$menu', 'goto_city', $menu_item_apartmentslum_house, 0, 'menu_form = 0 & city_form', 'menu_form', 'Your Shack')
	end
	func('$menu', 'interaction_city', $menu_item_Smuggler, menu_Smuggler, 'Smuggler’s Rendezvous')
	func('$menu', 'interaction_city', $menu_item_Moneylender, menu_Moneylender, 'Moneylender’s Home')
	func('$menu', 'city_form', $menu_item_city_gate, menu_city_gate, 'To City Gate')
	!func('$menu', 'city_form', $menu_item_Walktocity, menu_Walktocity, 'Enter the City')

	func('$menu', '===END===')
end

if city_form = 61:
	city_district = 6
	$place = 'gates_of_mists'
	func('$menu', 'spacer', 1)

	func('$menu', '===BEGIN===', 'column_0')

	if master_energy > 2:
		func('$menu', 'interaction_city', $menu_item_Patrol, menu_Patrol, 'Patrol Border of Fogs')
	else
		func('$menu', 'city_form', $menu_item_Patrol_gray, menu_city_gate, 'Patrol Border of Fogs')
	end
	func('$menu', 'interaction_city', $menu_item_camp, menu_camp, 'Base Camp')
	func('$menu', 'city_form', $menu_item_Slums, menu_Slums, 'The Slums')
	func('$menu', 'city_form', $menu_item_Walktocity, menu_Walktocity, 'Enter the City')

	func('$menu', '===END===')
end

if city_form = 1000:
	$setting_display += '<div id="under_gray">{ { { UI } } }<br></div>'
	if ui_style ! 1:
		$setting_display += '<br><div id="under_gray">Old<br><div id = "clear"><a href = "EXEC: ui_style = 1 & gt ''city_menu_form''"><img src = "content\pic\clear.png"></a></div></div>'
	else
		$setting_display += '<br><div id="under">Old<br></div>'
	end
	if ui_style ! 0:
		$setting_display += '<br><div id="under_gray">Classic<br><div id = "clear"><a href = "EXEC: ui_style = 0 & gt ''city_menu_form''"><img src = "content\pic\clear.png"></a></div></div>'
	else
		$setting_display += '<br><div id="under">Classic<br></div>'
	end
	if ui_style ! 2:
		$setting_display += '<br><div id="under_gray">Grimdark<br><div id = "clear"><a href = "EXEC: ui_style = 2 & gt ''city_menu_form''"><img src = "content\pic\clear.png"></a></div></div>'
	else
		$setting_display += '<br><div id="under">Grimdark<br></div>'
	end
	$setting_display += '<br><br><div id="under_gray">{ { { AUTOSAVE } } }<br></div>'
	$setting_display += '<br><div id="under_gray">{ Every morning }<br></div>'
	if autosave_day ! 1:
		$setting_display += '<br><div id="under">Off<br><div id = "clear"><a href = "EXEC: autosave_day = 1 & gt ''city_menu_form''"><img src = "content\pic\clear.png"></a></div></div>'
	else
		$setting_display += '<br><div id="under">On<br><div id = "clear"><a href = "EXEC: autosave_day = 0 & gt ''city_menu_form''"><img src = "content\pic\clear.png"></a></div></div>'
	end
	$setting_display += '<br><div id="under_gray">{ Every decade }<br></div>'
	if autosave_decade ! 1:
		$setting_display += '<br><div id="under">Off<br><div id = "clear"><a href = "EXEC: autosave_decade = 1 & gt ''city_menu_form''"><img src = "content\pic\clear.png"></a></div></div>'
	else
		$setting_display += '<br><div id="under">On<br><div id = "clear"><a href = "EXEC: autosave_decade = 0 & gt ''city_menu_form''"><img src = "content\pic\clear.png"></a></div></div>'
	end

	$setting_display_r += '<div id="under_gray">{ { { Content Options } } }<br></div>'
	if nsfw ! 1:
		$setting_display_r += '<br><div id="under">NSFW - nudity is currently displayed<br><div id = "clear"><a href = "EXEC: nsfw = 1 & gt ''city_menu_form''"><img src = "content\pic\clear.png"></a></div></div>'
	else
		$setting_display_r += '<br><div id="under">NSFW - nudity is currently hidden<br><div id = "clear"><a href = "EXEC: nsfw = 0 & gt ''city_menu_form''"><img src = "content\pic\clear.png"></a></div></div>'
	end

	if no_loli = 0 and perv_revealed > 0:
		$setting_display_r += '<br><div id="under">New lolis and explicit loli text <i>disabled</i><div id = "clear"><a href = "EXEC: no_loli = 2 & gt ''city_menu_form''"><img src = "content\pic\clear.png"></a></div></div>'
	elseif no_loli = 2:
		$setting_display_r += '<br><div id="under">New lolis and explicit loli text <i>enabled</i><div id = "clear"><a href = "EXEC: no_loli = 0 & gt ''city_menu_form''"><img src = "content\pic\clear.png"></a></div></div>'
	elseif no_loli = 0:
		$setting_display_r += '<br><div id="under">New loli aged slaves will appear<div id = "clear"><a href = "EXEC: no_loli = 1 & gt ''city_menu_form''"><img src = "content\pic\clear.png"></a></div></div>'
	elseif no_loli = 1:
		$setting_display_r += '<br><div id="under">New loli aged slaves won’t appear<div id = "clear"><a href = "EXEC: no_loli = 0 & gt ''city_menu_form''"><img src = "content\pic\clear.png"></a></div></div>'
	end

	if no_milf ! 1:
		$setting_display_r += '<div id="under">New MILF aged slaves will appear<br><div id = "clear"><a href = "EXEC: no_milf = 1 & gt ''city_menu_form''"><img src = "content\pic\clear.png"></a></div></div>'
	else
		$setting_display_r += '<div id="under">New MILF aged slaves won’t appear<br><div id = "clear"><a href = "EXEC: no_milf = 0 & gt ''city_menu_form''"><img src = "content\pic\clear.png"></a></div></div>'
	end

	if no_mindbreak ! 1:
		$setting_display_r += '<br><div id="under">Mindbreak is currently enabled<br><div id = "clear"><a href = "EXEC: no_mindbreak = 1 & gt ''city_menu_form''"><img src = "content\pic\clear.png"></a></div></div>'
	else
		$setting_display_r += '<br><div id="under">Mindbreak is currently disabled<br><div id = "clear"><a href = "EXEC: no_mindbreak = 0 & gt ''city_menu_form''"><img src = "content\pic\clear.png"></a></div></div>'
	end

	if no_guro ! 1:
		$setting_display_r += '<div id="under">Gore is currently shown<br><div id = "clear"><a href = "EXEC: dynamic $guro_off & gt ''city_menu_form''"><img src = "content\pic\clear.png"></a></div></div>'
	else
		$setting_display_r += '<div id="under">Gore is currently not shown<br><div id = "clear"><a href = "EXEC: dynamic $guro_on & gt ''city_menu_form''"><img src = "content\pic\clear.png"></a></div></div>'
	end

	$setting_display_r += '<br><div id="under_gray">{ { { Obedience Difficulty Setting } } }<br></div>'

	if game_difficulty ! 2:
		if difficulty_setting ! 1:
			$setting_display_r += '<br><div id="under_gray">Easy<br><div id = "clear"><a href = "EXEC: difficulty_setting = 1 & gt ''city_menu_form''"><img src = "content\pic\clear.png"></a></div></div>'
		else
			$setting_display_r += '<br><div id="under">Easy<br></div>'
		end
		if difficulty_setting ! 0:
			$setting_display_r += '<div id="under_gray">Classic/Normal<br><div id = "clear"><a href = "EXEC: difficulty_setting = 0 & gt ''city_menu_form''"><img src = "content\pic\clear.png"></a></div></div>'
		else
			$setting_display_r += '<div id="under">Classic/Normal<br></div>'
		end
	end
	if difficulty_setting ! 2:
		$setting_display_r += '<div id="under_gray">Difficult/Hardcore<br><div id = "clear"><a href = "EXEC: difficulty_setting = 2 & gt ''city_menu_form''"><img src = "content\pic\clear.png"></a></div></div>'
	else
		$setting_display_r += '<div id="under">Difficult/Hardcore<br></div>'
	end

	$setting_display_r += '<br><div id="under_gray">{ { { SOUND SETTINGS } } }<br></div>'
	if nsfw_sound = 0:
		$setting_display_r += '<br><div id="under">NSFW sounds are currently being played<br><div id="clear"><a href = "EXEC: nsfw_sound = 1 & gt ''city_menu_form''"><img src = "content\pic\clear.png"></a></div></div>'
	else
		$setting_display_r += '<br><div id="under">NSFW sounds are currently disabled<br><div id="clear"><a href = "EXEC: nsfw_sound = 0 & gt ''city_menu_form''"><img src = "content\pic\clear.png"></a></div></div>'
	end

	$setting_display_c += '<br><div id="under">Back <br><div id = "clear"><a href = "EXEC: gs ''$newloc'' & city_form = prev_city_form & gt ''city_menu_form''"><img src = "content\pic\clear.png"></a></div></div>'
!  	$setting_display_c2 += '<br><div id="under_gray"> Next <br></div>'
!  	$setting_display_c2 += '<br><div id="under_gray"> Next <br><div id = "clear"><img src = "content\pic\clear.png"></div></div>'
end

gt 'city_screen'

--- city_menu_form ---------------------------------