code:
# sex_interaction
!all effects from interactions in sex mode
gs 'sex_addup'
killvar '$play_sound'
$play_sound[1] = ''
killvar '$text'
txt = 1

!resetting
shameful = 0
painful = 0
disgusting = 0
lesbian = 0
darkness = 0
bloody = 0
fire_based = 0
water_based = 0
vermin_based = 0
deprivation = 0
abuse = 0
comforting = 0

stimulating = 0
clitoral_stimulation = 0

multiplier = 1
bonus = 0
compensation = 0

diligence = 0
skill = 0
quality = 0
diff = 0
balance = 0

friction = 0
synchronization = 0
girl_x_change = 0
boy_x_change = 0

$rise_skill = 'dump'

!striptease
if sex_interaction = 101:
	$interaction_type = 'foreplay'
	shameful = 1
	res = 0
	dynamic $sex_diligence
	if diligence < 0:
		$interaction_type = 'deny' & gt 'sex_interaction_result'
	end
	skill = (1 + sex['girl_roleplay'] + sex['girl_calisthenics'])/2
	quality = min (diligence, skill)
	$text[1] = $active_strip[quality]
	$bg_path = func('display_pic', $sex['partner'], 'seduce', 'girls/sex_scenes/')
	$play_sound[1] = $seduce_sound[sex['girl_age']]
	if sex['girl_style'] > sex['girl_exotic']:
		multiplier = sex['girl_style']
		bonus = sex['girl_exotic']
	else
		multiplier = sex['girl_exotic']
		bonus = sex['girl_style']
	end
	if sex['pc_excitement_state'] < 3: sex['pc_excitement'] += quality
	sex['pc_interest'] += quality * multiplier + bonus + sex['girl_newness']
	if $sex['partner'] = '':
		if diligence > slave['calisthenics'] and sex_done_today[$str(sex_interaction)] = 0: slave_rate['calisthenics'] += 1
		if slave['sub_exhibit'] = 0:
			if diligence > 1: $rise_skill = 'slave["sub_exhibit"]'
		else
			if diligence > slave['sub_exhibit'] and sex_done_today[$str(sex_interaction)] = 0: slave['sub_exhibit_xp'] += 1
		end
		if slave['sub_seduce'] = 0:
			if diligence > 1: $rise_skill = 'slave["sub_seduce"]'
		else
			if diligence > slave['sub_seduce'] and sex_done_today[$str(sex_interaction)] = 0: slave['sub_seduce_xp'] += 1
		end
	end
	if $sex['partner'] = 'assistant':
		if diligence > assistant['calisthenics']: assistant_rate['calisthenics'] += 1
		if assistant['sub_exhibit'] = 0:
			if diligence > 1: $rise_skill = 'assistant["sub_exhibit"]'
		else
			if diligence > assistant['sub_exhibit'] and sex_done_today[$str(sex_interaction)] = 0: assistant['sub_exhibit_xp'] += 1
		end
		if assistant['sub_seduce'] = 0:
			if diligence > 1: $rise_skill = 'assistant["sub_seduce"]'
		else
			if diligence > assistant['sub_seduce'] and sex_done_today[$str(sex_interaction)] = 0: assistant['sub_seduce_xp'] += 1
		end
	end
	sex['girl_energy'] -= 10
	strip = 1
$insertion = 'withdrawn'
end

!Seduce
if sex_interaction = 102:
	$insertion = 'withdrawn'
	$interaction_type = 'foreplay'
	res = 0
	dynamic $sex_diligence
	if diligence < 0:
		$interaction_type = 'deny' & gt 'sex_interaction_result'
	end
	skill = max (sex['girl_sub_seduce'], sex['girl_sub_humiliation'], sex['girl_sub_masturbation'])
	quality = min (diligence, skill)

	if $sex['partner'] = '':
		if slave['sub_seduce'] = 0:
			if diligence > 1: $rise_skill = 'slave["sub_seduce"]'
		else
			if diligence > slave['sub_seduce'] and sex_done_today[$str(sex_interaction)] = 0: slave['sub_seduce_xp'] += sex['girl_attention'] - 2
		end
		if slave['sub_humiliation'] = 0:
			if diligence > 1: $rise_skill = 'slave["sub_humiliation"]'
		else
			if diligence > slave['sub_humiliation'] and sex_done_today[$str(sex_interaction)] = 0: slave['sub_humiliation_xp'] += sex['girl_attention'] - 2
		end
		if slave['sub_masturbation'] = 0:
			if diligence > 1: $rise_skill = 'slave["sub_masturbation"]'
		else
			if diligence > slave['sub_masturbation'] and sex_done_today[$str(sex_interaction)] = 0: slave['sub_masturbation_xp'] += sex['girl_attention'] - 2
		end
	end

	if $sex['partner'] = 'assistant':
		if assistant['sub_seduce'] = 0:
			if diligence > 1: $rise_skill = 'assistant["sub_seduce"]'
		else
			if diligence > assistant['sub_seduce'] and sex_done_today[$str(sex_interaction)] = 0: assistant['sub_seduce_xp'] += sex['girl_attention'] - 2
		end
		if assistant['sub_humiliation'] = 0:
			if diligence > 1: $rise_skill = 'assistant["sub_humiliation"]'
		else
			if diligence > assistant['sub_humiliation'] and sex_done_today[$str(sex_interaction)] = 0: assistant['sub_humiliation_xp'] += sex['girl_attention'] - 2
		end
		if assistant['sub_masturbation'] = 0:
			if diligence > 1: $rise_skill = 'assistant["sub_masturbation"]'
		else
			if diligence > assistant['sub_masturbation'] and sex_done_today[$str(sex_interaction)] = 0: assistant['sub_masturbation_xp'] += sex['girl_attention'] - 2
		end
	end

	if sex['pc_excitement_state'] < 3: sex['pc_excitement'] += quality
	if sex_done_today[$str(sex_interaction)] = 0: sex['pc_interest'] += quality * sex['girl_beauty'] + sex['girl_newness']
	sex['girl_energy'] -= 5

	$text[1] = $active_seduce[quality]
	$bg_path = func('display_pic', $sex['partner'], 'seduce', 'girls/sex_scenes/')
	$play_sound[1] = $seduce_sound[sex['girl_age']]
end

!kiss
if sex_interaction = 103:
	$interaction_type = 'foreplay'
	res = 0
	stimulating = 1
	dynamic $sex_diligence
	if diligence < 0:
		$interaction_type = 'deny' & gt 'sex_interaction_result'
	end
	skill = sex['girl_sub_kiss']
	quality = min (diligence, skill)
	if sex['pc_excitement_state'] < 4: sex['pc_excitement'] += quality - sex_done_today[$str(sex_interaction)]
	if sex['girl_excitement'] < 3:
		diff = sex['girl_excitement'] + sex['girl_attention'] - sex['girl_openmind'] + (3 - sex['girl_pain']) - sex['girl_nympo']
		if master_oral > diff:
			sex['girl_excitement'] += 1
		else
			if sex_done_today[$str(sex_interaction)] = 0: master_oral_rate += 1
		end
	end

	if $sex['partner'] = '':
		if slave['sub_kiss'] = 0:
			if sex['girl_attention'] >= 3: $rise_skill = 'slave["sub_kiss"]'
		else
			if sex['girl_attention'] > slave['sub_kiss'] and sex_done_today[$str(sex_interaction)] = 0: slave['sub_kiss_xp'] += sex['girl_attention'] - 2
		end
	end

	if $sex['partner'] = 'assistant':
		if assistant['sub_kiss'] = 0:
			if sex['girl_attention'] >= 3: $rise_skill = 'assistant["sub_kiss"]'
		else
			if sex['girl_attention'] > assistant['sub_kiss'] and sex_done_today[$str(sex_interaction)] = 0: assistant['sub_kiss_xp'] += sex['girl_attention'] - 2
		end
	end

	$text[1] = $sex_kiss[quality]
	$bg_path = func('display_pic', $sex['partner'], 'kiss', 'girls/sex_scenes/')
	$play_sound[1] = $kiss_sound[sex['girl_age']]
	sex['girl_energy'] -= 3
	sex['pc_energy'] -= 3
	sex['climax_buildup'] -= 2
end

!Caress me
if sex_interaction = 104:
	sex_interaction = 1040 + intensity
end

if sex_interaction = 1041:
	$interaction_type = 'foreplay'
	res = 0
	stimulating = 1
	dynamic $sex_diligence
	if diligence < 0:
		$interaction_type = 'deny' & gt 'sex_interaction_result'
	end
	skill = max (sex['girl_sub_tongue'],sex['girl_sub_hj'],sex['girl_sub_hug'])
	quality = min (diligence, skill)

	if sex['girl_excitement'] < 2 and diligence > 3 - sex['girl_nympo']: sex['girl_excitement'] += 1
	if sex['pc_excitement_state'] > 3: multiplier += 1
	if sex['pc_excitement_state'] > 4: multiplier += 1
	sex['pc_excitement'] += quality * multiplier - sex_done_today[$str(sex_interaction)]
	if sex_done_today[$str(sex_interaction)] = 0: sex['pc_interest'] += quality * multiplier

	if $sex['partner'] = '':
		if slave['sub_tongue'] = 0:
			if diligence > 1: $rise_skill = 'slave["sub_tongue"]'
		else
			if diligence > slave['sub_tongue'] and sex_done_today[$str(sex_interaction)] = 0: slave['sub_tongue_xp'] += sex['girl_attention'] - 2
		end
		if slave['sub_hj'] = 0:
			if diligence > 1: $rise_skill = 'slave["sub_hj"]'
		else
			if diligence > slave['sub_hj'] and sex_done_today[$str(sex_interaction)] = 0: slave['sub_hj_xp'] += sex['girl_attention'] - 2
		end
		if slave['sub_hug'] = 0:
			if diligence > 1: $rise_skill = 'slave["sub_hug"]'
		else
			if diligence > slave['sub_hug'] and sex_done_today[$str(sex_interaction)] = 0: slave['sub_hug_xp'] += sex['girl_attention'] - 2
		end
	end

	if $sex['partner'] = 'assistant':
		if assistant['sub_tongue'] = 0:
			if diligence > 1: $rise_skill = 'assistant["sub_tongue"]'
		else
			if diligence > assistant['sub_tongue'] and sex_done_today[$str(sex_interaction)] = 0: assistant['sub_tongue_xp'] += sex['girl_attention'] - 2
		end
		if assistant['sub_hj'] = 0:
			if diligence > 1: $rise_skill = 'assistant["sub_hj"]'
		else
			if diligence > assistant['sub_hj'] and sex_done_today[$str(sex_interaction)] = 0: assistant['sub_hj_xp'] += sex['girl_attention'] - 2
		end
		if assistant['sub_hug'] = 0:
			if diligence > 1: $rise_skill = 'assistant["sub_hug"]'
		else
			if diligence > assistant['sub_hug'] and sex_done_today[$str(sex_interaction)] = 0: assistant['sub_hug_xp'] += sex['girl_attention'] - 2
		end
	end

	$text[1] = $sex_ll_caress[quality]
	$bg_path = func('display_pic', $sex['partner'], 'hj', 'girls/sex_scenes/')
	$play_sound[1] = $kiss_sound[sex['girl_age']]
	sex['girl_energy'] -= 1
end

if sex_interaction = 1042:
	$interaction_type = 'foreplay'
	res = 0
	stimulating = 1
	dynamic $sex_diligence
	if diligence < 0:
		$interaction_type = 'deny' & gt 'sex_interaction_result'
	end
	skill = max (sex['girl_sub_tongue'],sex['girl_sub_hj'],sex['girl_sub_hug'])
	quality = min (diligence, skill)

	if sex['girl_excitement'] < 2 and diligence > 3 - sex['girl_nympo']: sex['girl_excitement'] += 1
	if sex['pc_excitement_state'] > 2: multiplier += 1
	sex['pc_excitement'] += quality * multiplier - sex_done_today[$str(sex_interaction)]
	if sex_done_today[$str(sex_interaction)] = 0: sex['pc_interest'] += quality * multiplier

	if $sex['partner'] = '':
		if slave['sub_tongue'] = 0:
			if diligence > 1: $rise_skill = 'slave["sub_tongue"]'
		else
			if diligence > slave['sub_tongue'] and sex_done_today[$str(sex_interaction)] = 0: slave['sub_tongue_xp'] += sex['girl_attention'] - 2
		end
		if slave['sub_hj'] = 0:
			if diligence > 1: $rise_skill = 'slave["sub_hj"]'
		else
			if diligence > slave['sub_hj'] and sex_done_today[$str(sex_interaction)] = 0: slave['sub_hj_xp'] += sex['girl_attention'] - 2
		end
		if slave['sub_hug'] = 0:
			if diligence > 1: $rise_skill = 'slave["sub_hug"]'
		else
			if diligence > slave['sub_hug'] and sex_done_today[$str(sex_interaction)] = 0: slave['sub_hug_xp'] += sex['girl_attention'] - 2
		end
	end

	if $sex['partner'] = 'assistant':
		if assistant['sub_tongue'] = 0:
			if diligence > 1: $rise_skill = 'assistant["sub_tongue"]'
		else
			if diligence > assistant['sub_tongue'] and sex_done_today[$str(sex_interaction)] = 0: assistant['sub_tongue_xp'] += sex['girl_attention'] - 2
		end
		if assistant['sub_hj'] = 0:
			if diligence > 1: $rise_skill = 'assistant["sub_hj"]'
		else
			if diligence > assistant['sub_hj'] and sex_done_today[$str(sex_interaction)] = 0: assistant['sub_hj_xp'] += sex['girl_attention'] - 2
		end
		if assistant['sub_hug'] = 0:
			if diligence > 1: $rise_skill = 'assistant["sub_hug"]'
		else
			if diligence > assistant['sub_hug'] and sex_done_today[$str(sex_interaction)] = 0: assistant['sub_hug_xp'] += sex['girl_attention'] - 2
		end
	end

	$text[1] = $sex_l_caress[quality]
	$bg_path = func('display_pic', $sex['partner'], 'hj', 'girls/sex_scenes/')
	$play_sound[1] = $kiss_sound[sex['girl_age']]
	sex['girl_energy'] -= 2
end

if sex_interaction = 1043:
	$interaction_type = 'foreplay'
	res = 0
	stimulating = 1
	dynamic $sex_diligence
	if diligence < 0:
		$interaction_type = 'deny' & gt 'sex_interaction_result'
	end
	skill = max (sex['girl_sub_tongue'],sex['girl_sub_hj'],sex['girl_sub_hug'])
	quality = min (diligence, skill)

	if sex['girl_excitement'] < 2 and diligence > 3 - sex['girl_nympo']: sex['girl_excitement'] += 1
	sex['pc_excitement'] += quality * 2 - sex_done_today[$str(sex_interaction)]

	if $sex['partner'] = '':
		if slave['sub_tongue'] = 0:
			if diligence > 1: $rise_skill = 'slave["sub_tongue"]'
		else
			if diligence > slave['sub_tongue'] and sex_done_today[$str(sex_interaction)] = 0: slave['sub_tongue_xp'] += sex['girl_attention'] - 2
		end
		if slave['sub_hj'] = 0:
			if diligence > 1: $rise_skill = 'slave["sub_hj"]'
		else
			if diligence > slave['sub_hj'] and sex_done_today[$str(sex_interaction)] = 0: slave['sub_hj_xp'] += sex['girl_attention'] - 2
		end
		if slave['sub_hug'] = 0:
			if diligence > 1: $rise_skill = 'slave["sub_hug"]'
		else
			if diligence > slave['sub_hug'] and sex_done_today[$str(sex_interaction)] = 0: slave['sub_hug_xp'] += sex['girl_attention'] - 2
		end
	end

	if $sex['partner'] = 'assistant':
		if assistant['sub_tongue'] = 0:
			if diligence > 1: $rise_skill = 'assistant["sub_tongue"]'
		else
			if diligence > assistant['sub_tongue'] and sex_done_today[$str(sex_interaction)] = 0: assistant['sub_tongue_xp'] += sex['girl_attention'] - 2
		end
		if assistant['sub_hj'] = 0:
			if diligence > 1: $rise_skill = 'assistant["sub_hj"]'
		else
			if diligence > assistant['sub_hj'] and sex_done_today[$str(sex_interaction)] = 0: assistant['sub_hj_xp'] += sex['girl_attention'] - 2
		end
		if assistant['sub_hug'] = 0:
			if diligence > 1: $rise_skill = 'assistant["sub_hug"]'
		else
			if diligence > assistant['sub_hug'] and sex_done_today[$str(sex_interaction)] = 0: assistant['sub_hug_xp'] += sex['girl_attention'] - 2
		end
	end

	$text[1] = $sex_n_caress[quality]
	$bg_path = func('display_pic', $sex['partner'], 'hj', 'girls/sex_scenes/')
	$play_sound[1] = $kiss_sound[sex['girl_age']]
	sex['girl_energy'] -= 3
end

if sex_interaction = 1044:
	$interaction_type = 'foreplay'
	res = 1
	stimulating = 1
	dynamic $sex_diligence
	if diligence < 0:
		$interaction_type = 'deny' & gt 'sex_interaction_result'
	end
	skill = max (sex['girl_sub_tongue'],sex['girl_sub_hj'])
	quality = min (diligence, skill)

	if sex['girl_excitement'] < 2 and diligence > 3 - sex['girl_nympo']: sex['girl_excitement'] += 1
	sex['pc_excitement'] += quality * 3 - sex_done_today[$str(sex_interaction)]
	sex['cum_buildup'] += 3

	if $sex['partner'] = '':
		if slave['sub_tongue'] = 0:
			if diligence > 1: $rise_skill = 'slave["sub_tongue"]'
		else
			if diligence > slave['sub_tongue'] and sex_done_today[$str(sex_interaction)] = 0: slave['sub_tongue_xp'] += sex['girl_attention'] - 2
		end
		if slave['sub_hj'] = 0:
			if diligence > 1: $rise_skill = 'slave["sub_hj"]'
		else
			if diligence > slave['sub_hj'] and sex_done_today[$str(sex_interaction)] = 0: slave['sub_hj_xp'] += sex['girl_attention'] - 2
		end
		if slave['sub_hug'] = 0:
			if diligence > 1: $rise_skill = 'slave["sub_hug"]'
		else
			if diligence > slave['sub_hug'] and sex_done_today[$str(sex_interaction)] = 0: slave['sub_hug_xp'] += sex['girl_attention'] - 2
		end
	end

	if $sex['partner'] = 'assistant':
		if assistant['sub_tongue'] = 0:
			if diligence > 1: $rise_skill = 'assistant["sub_tongue"]'
		else
			if diligence > assistant['sub_tongue'] and sex_done_today[$str(sex_interaction)] = 0: assistant['sub_tongue_xp'] += sex['girl_attention'] - 2
		end
		if assistant['sub_hj'] = 0:
			if diligence > 1: $rise_skill = 'assistant["sub_hj"]'
		else
			if diligence > assistant['sub_hj'] and sex_done_today[$str(sex_interaction)] = 0: assistant['sub_hj_xp'] += sex['girl_attention'] - 2
		end
		if assistant['sub_hug'] = 0:
			if diligence > 1: $rise_skill = 'assistant["sub_hug"]'
		else
			if diligence > assistant['sub_hug'] and sex_done_today[$str(sex_interaction)] = 0: assistant['sub_hug_xp'] += sex['girl_attention'] - 2
		end
	end

	$text[1] = $sex_f_caress[quality]
	$bg_path = func('display_pic', $sex['partner'], 'hj', 'girls/sex_scenes/')
	$play_sound[1] = $kiss_sound[sex['girl_age']]
	sex['girl_energy'] -= 5
end

if sex_interaction = 1045:
	$interaction_type = 'foreplay'
	disgusting = 1
	res = 1
	stimulating = 1
	dynamic $sex_diligence
	if diligence < 0:
		$interaction_type = 'deny' & gt 'sex_interaction_result'
	end
	skill = max (sex['girl_sub_tongue'],sex['girl_sub_hj'])
	quality = min (diligence, skill)

	if sex['girl_excitement'] < 2 and diligence > 3 - sex['girl_nympo'] + sex['girl_perversion']: sex['girl_excitement'] += 1
	sex['pc_excitement'] += quality * 4 - sex_done_today[$str(sex_interaction)]
	sex['cum_buildup'] += 4

	if $sex['partner'] = '':
		if slave['sub_tongue'] = 0:
			if diligence > 1: $rise_skill = 'slave["sub_tongue"]'
		else
			if diligence > slave['sub_tongue'] and sex_done_today[$str(sex_interaction)] = 0: slave['sub_tongue_xp'] += sex['girl_attention'] - 2
		end
		if slave['sub_hj'] = 0:
			if diligence > 1: $rise_skill = 'slave["sub_hj"]'
		else
			if diligence > slave['sub_hj'] and sex_done_today[$str(sex_interaction)] = 0: slave['sub_hj_xp'] += sex['girl_attention'] - 2
		end
		if slave['sub_hug'] = 0:
			if diligence > 1: $rise_skill = 'slave["sub_hug"]'
		else
			if diligence > slave['sub_hug'] and sex_done_today[$str(sex_interaction)] = 0: slave['sub_hug_xp'] += sex['girl_attention'] - 2
		end
	end

	if $sex['partner'] = 'assistant':
		if assistant['sub_tongue'] = 0:
			if diligence > 1: $rise_skill = 'assistant["sub_tongue"]'
		else
			if diligence > assistant['sub_tongue'] and sex_done_today[$str(sex_interaction)] = 0: assistant['sub_tongue_xp'] += sex['girl_attention'] - 2
		end
		if assistant['sub_hj'] = 0:
			if diligence > 1: $rise_skill = 'assistant["sub_hj"]'
		else
			if diligence > assistant['sub_hj'] and sex_done_today[$str(sex_interaction)] = 0: assistant['sub_hj_xp'] += sex['girl_attention'] - 2
		end
		if assistant['sub_hug'] = 0:
			if diligence > 1: $rise_skill = 'assistant["sub_hug"]'
		else
			if diligence > assistant['sub_hug'] and sex_done_today[$str(sex_interaction)] = 0: assistant['sub_hug_xp'] += sex['girl_attention'] - 2
		end
	end

	$text[1] = $sex_ff_caress[quality]
	$bg_path = func('display_pic', $sex['partner'], 'hj', 'girls/sex_scenes/')
	$play_sound[1] = $kiss_sound[sex['girl_age']]
	sex['girl_energy'] -= 5
end

!Massage her
if sex_interaction = 105:
	$interaction_type = 'foreplay'
	force = sex['girl_sensitivity'] + intensity - 3
	if force < 1: force = 1
	if force > 5: force = 5
	balance = sex['girl_openmind'] - force
	if sex['girl_excitement'] > 1:
		compensation = sex['girl_excitement'] + master_petting - 5
		if balance > 0:
			a = balance - compensation
			if a <= 0: balance = 0
		else
			a = balance + compensation
			if a >= 0: balance = 0
		end
	end

	if balance < 0: pain_done = 1 & sex['climax_buildup'] = 0
	if balance > 0 and $sex['partner'] = '' and sex_done_today[$str(sex_interaction)] = 0:
		slave_rate['sensitivity'] += 1
	end

	if balance = 0 and master_petting >= sex['girl_openmind']: sex['girl_openmind'] += 1 & sex['girl_attention'] -= 1
	if sex_done_today[$str(sex_interaction)] = 0: master_petting_rate += 1
	sex['pc_interest'] -= 5

	$text[1] = $sex_massage[intensity]
	$bg_path = func('display_pic', $sex['partner'], 'petting', 'girls/sex_scenes/')
	$play_sound[1] = $petting_sound[sex['girl_age']]
	sex['girl_energy'] -= intensity - 1
	sex['pc_energy'] -= 2 * intensity
	sex['climax_buildup'] -= 1
	sex['cum_buildup'] = 0
end

!Arouse her
if sex_interaction = 106:
	$interaction_type = 'foreplay'
	stimulating = 1
	clitoral_stimulation = 1
	force = sex['girl_sensitivity'] + intensity - 3
	if force < 1: force = 1
	if force > 5: force = 5
	balance = sex['girl_excitement'] - force
	if sex['girl_openmind'] > 1:
		compensation = sex['girl_openmind'] + master_oral - 5
		if balance > 0:
			a = balance - compensation
			if a <= 0: balance = 0
		else
			a = balance + compensation
			if a >= 0: balance = 0
		end
	end

	if balance < 0: sex['climax_buildup'] -= 2 & sex['girl_attention'] += 1
	if balance > 0:
		sex['climax_buildup'] -= 1
		if $sex['partner'] = '' and sex_done_today[$str(sex_interaction)] = 0: slave_rate['sensitivity'] += 1
	end

	if balance = 0:
		diff = sex['girl_excitement'] - sex['girl_openmind'] + sex['girl_attention']
		if master_oral > diff:
			sex['girl_excitement'] += 1
			sex['climax_buildup'] += intensity
		else
			if sex_done_today[$str(sex_interaction)] = 0: master_oral_rate += 1
			sex['climax_buildup'] += intensity
		end
	end
	sex['pc_interest'] -= 5

	$text[1] = $sex_caress_girl[intensity]
	$bg_path = func('display_pic', $sex['partner'], 'petting', 'girls/sex_scenes/')
	$play_sound[1] = $petting_sound[sex['girl_age']]
	sex['girl_energy'] -= intensity
	sex['pc_energy'] -= 2 * intensity
end

!lubricant
if sex_interaction = 19:
	lube = 1
	$insertion = 'withdrawn'

	sex['pc_interest'] -= 1
	sex['pc_energy'] -= 1
	sex['climax_buildup'] -= 1

	$text[1] = '  Lubrication will make sex more comfortable.'
	$play_sound[1] = $slopy[1]
	g = rand(1, picMax['master_fap'])
	$bg_path = 'scene/master_fap'
	if g > 1: $bg_path += '_' + $str(g)
end

!Defloration
if sex_interaction = 11:
	$interaction_type = 'penetration'
	stimulating = 1

	res = intensity + 4
	dynamic $sex_diligence
	if diligence < 0:
		$interaction_type = 'deny' & gt 'sex_interaction_result'
	end

	if lube = 0: friction = 4 - sex['girl_excitement']
	if friction > 0 and sex['girl_tightness'] < 0:
		a = friction + sex['girl_tightness']
		if a > 0:
			friction = a
		else
			friction = 0
		end
	end
	if friction < 1: friction = 1
	sex['girl_attention'] += 1

	diff = sex['girl_excitement'] + sex['girl_attention']*2 - sex['girl_openmind'] + friction

	force = sex['girl_sensitivity'] + intensity - 2
	if force < 1: force = 1
	if force > 5: force = 5
	balance = sex['girl_excitement'] - force

	if balance < 0:
		sex['girl_openmind'] -= 1
		sex['girl_attention'] += 1
		diff -= balance
	end
	if balance > 0:
		sex['climax_buildup'] -= balance
		diff += balance
	end

	if master_penetration > diff: sex['girl_excitement'] += 1
	girl_stimulation = master_penetration - friction + sex['girl_openmind']
	sex['climax_buildup'] += girl_stimulation

	pc_stimulation = 3 + sex['pc_boner'] + sex['girl_tightness'] + intensity - friction * intensity
	sex['pc_excitement'] += pc_stimulation
	if sex_done_today[$str(sex_interaction)] = 0: master_penetration_rate += 3

	sex['pc_interest'] -= 1
	sex['girl_energy'] -= intensity
	sex['pc_energy'] -= intensity + 1

	if $insertion =  'defloration':
		$text[1] = $sex_defloration[intensity]
	else
		$text[1] = $sex_insert_defloration
		$insertion =  'defloration'
	end
	$play_sound[1] = $soft_pain[sex['girl_age']]
	$bg_path = func('display_pic', $sex['partner'], 'defloration', 'girls/sex_scenes/')
	deflorated = 1
	sex['girl_virgin'] = 2
end

!Vaginal sex
if sex_interaction = 12:
	$interaction_type = 'penetration'
	stimulating = 1
	clitoral_stimulation = 1

	res = intensity + iif(sex['girl_virgin'] < 2, 4, 1)
	dynamic $sex_diligence
	if diligence < 0:
		$interaction_type = 'deny' & gt 'sex_interaction_result'
	end

	if cheat_easy_as ! 0: sex['climax_buildup'] += 200
	if lube = 0: friction = 3 - sex['girl_excitement']
	if friction > 0 and sex['girl_tightness'] < 0:
		a = friction + sex['girl_tightness']
		if a > 0:
			friction = a
		else
			friction = 0
		end
	end

	diff = sex['girl_excitement'] + sex['girl_attention'] - sex['girl_openmind'] + friction

	force = sex['girl_sensitivity'] + intensity - 3
	if force < 1: force = 1
	if force > 5: force = 5
	balance = sex['girl_excitement'] - force

	if balance < 0:
		sex['girl_openmind'] -= 1
		sex['girl_attention'] += 1
		if $sex['partner'] = '' and sex_done_today[$str(sex_interaction)] = 0: slave['masochism_xp'] += 1
		if $sex['partner'] = 'assistant' and sex_done_today[$str(sex_interaction)] = 0: assistant['masochism_xp'] += 1
		diff -= balance
		sex['masochism_revealed'] = 1
	end
	if balance > 0:
		if $sex['partner'] = '' and sex_done_today[$str(sex_interaction)] = 0: slave_rate['sensitivity'] += 1
		if $sex['partner'] = 'assistant' and sex_done_today[$str(sex_interaction)] = 0: assistant_rate['sensitivity'] += 1
		sex['climax_buildup'] -= balance
		diff += balance
	end

	if master_penetration > diff: sex['girl_excitement'] += 1
	girl_stimulation = master_penetration - friction + sex['girl_openmind']
	if girl_stimulation > 0:
		girl_stimulation += intensity + sex['girl_sub_vaginal']
		if $sex['partner'] = '' and sex_done_today[$str(sex_interaction)] = 0:
			if slave['sub_vaginal'] > 0: slave['sub_vaginal_xp'] += sex['girl_attention'] - 2
			if slave['sub_vaginal'] = 0: $rise_skill = 'slave["sub_vaginal"]'
		end
		if $sex['partner'] = 'assistant' and sex_done_today[$str(sex_interaction)] = 0:
			if assistant['sub_vaginal'] > 0: assistant['sub_vaginal_xp'] += sex['girl_attention'] - 2
			if assistant['sub_vaginal'] = 0: $rise_skill = 'assistant["sub_vaginal"]'
		end
	else
		if sex_done_today[$str(sex_interaction)] = 0: slave_rate['sensitivity'] += 1
	end
	sex['climax_buildup'] += girl_stimulation

	pc_stimulation = sex['girl_sub_vaginal'] + sex['pc_boner'] + sex['girl_tightness'] + intensity - friction * intensity
	sex['pc_excitement'] += pc_stimulation
	if sex_done_today[$str(sex_interaction)] = master_penetration: master_penetration_rate += 1

	sex['nymphomania_revealed'] = 1

	sex['pc_interest'] -= 3
	sex['girl_energy'] -= intensity/2
	sex['pc_energy'] -= intensity

	if $insertion = 'defloration':
		$text[1] = $sex_defloration[intensity]
	elseif $insertion = 'vaginal':
		$text[1] = $sexy_vaginal[intensity]
	else
		$text[1] = $sex_insert_vaginal
		$insertion = 'vaginal'
	end
	$play_sound[1] = $fuck_sound[sex['girl_age']]
	$bg_path = func('display_pic', $sex['partner'], 'sex', 'girls/sex_scenes/')
	!debug
	!msg 'girl_type = <<girl_type>>, sex["girl_type"] = <<sex["girl_type"]>>,  $sex_vaginal[sex["girl_type"]] = <<$sex_vaginal[sex["girl_type"]]>>'
	if $sex['partner'] = '':
		if slave['ill'] > 0:
			a = rand(1,6)
			if a > master_str and master_ill = 0: master_ill = 1
		end
		if master_ill > 0:
			a = rand(1,6)
			if a > slave['stamina'] and slave['ill'] = 0: slave['ill'] = 1
		end
	end
	if $sex['partner'] = 'assistant':
		if assistant['ill'] > 0:
			a = rand(1,6)
			if a > master_str and master_ill = 0: master_ill = 1
		end
		if master_ill > 0:
			a = rand(1,6)
			if a > assistant['stamina'] and assistant['ill'] = 0: assistant['ill'] = 1
		end
	end
end

!Anal sex
if sex_interaction = 13:
	$interaction_type = 'penetration'
	stimulating = 1

	res = intensity + 5
	dynamic $sex_diligence
	if diligence < 0:
		$interaction_type = 'deny' & gt 'sex_interaction_result'
	end

	if cheat_easy_as ! 0: sex['climax_buildup'] += 200
	if lube = 0: friction = 5 - sex['girl_anal_stretch']

	diff = sex['girl_excitement'] + sex['girl_attention'] - sex['girl_openmind'] + friction + sex['girl_sub_anal']

	force = sex['girl_sensitivity'] + intensity - 3
	if force < 1: force = 1
	if force > 5: force = 5
	balance = sex['girl_excitement'] - force

	if balance < 0:
		sex['girl_openmind'] -= 1
		sex['girl_attention'] += 1
		if $sex['partner'] = '' and sex_done_today[$str(sex_interaction)] = 0: slave_rate['sensitivity'] -= 1 & slave['masochism_xp'] += 1
		if $sex['partner'] = 'assistant' and sex_done_today[$str(sex_interaction)] = 0: assistant['masochism_xp'] += 1
		diff -= balance
		sex['masochism_revealed'] = 1
	end
	if balance > 0:
		if $sex['partner'] = '' and sex_done_today[$str(sex_interaction)] = 0: slave_rate['sensitivity'] += 1
		if $sex['partner'] = 'assistant' and sex_done_today[$str(sex_interaction)] = 0: assistant_rate['sensitivity'] += 1
		sex['climax_buildup'] -= balance
		diff += balance
	end

	if master_penetration > diff: sex['girl_excitement'] += 1
	girl_stimulation = master_penetration - friction + sex['girl_openmind']
	if girl_stimulation > 0:
		girl_stimulation += intensity + sex['girl_sub_anal']
		if $sex['partner'] = '' and sex_done_today[$str(sex_interaction)] = 0:
			if slave['sub_anal'] > 0: slave['sub_anal_xp'] += sex['girl_attention'] - 2
			if slave['sub_anal'] = 0: $rise_skill = 'slave["sub_anal"]'
		end
		if $sex['partner'] = 'assistant' and sex_done_today[$str(sex_interaction)] = 0:
			if assistant['sub_anal'] > 0: assistant['sub_anal_xp'] += sex['girl_attention'] - 2
			if assistant['sub_anal'] = 0: $rise_skill = 'assistant["sub_anal"]'
		end
	end
	sex['climax_buildup'] += girl_stimulation

	pc_stimulation = sex['girl_sub_anal'] + sex['pc_boner'] + 1 + intensity*2 - friction * intensity * 2
	sex['pc_excitement'] += pc_stimulation
	if sex_done_today[$str(sex_interaction)] = master_penetration: master_penetration_rate += 1

	sex['nymphomania_revealed'] = 1

	sex['pc_interest'] -= 2
	sex['girl_energy'] -= intensity
	sex['pc_energy'] -= intensity + 1

	if $insertion = 'anal':
		$text[1] = $sex_anal[intensity]
	else
		$text[1] = $sex_insert_anal
		$insertion = 'anal'
	end
	$play_sound[1] = $assfuck_sound[sex['girl_age']]
	$bg_path = func('display_pic', $sex['partner'], 'analsex', 'girls/sex_scenes/')
	if $sex['partner'] = '':
		if slave['ill'] > 0:
			a = rand(1,6)
			if a > master_str and master_ill = 0: master_ill = 1
		end
		if master_ill > 0:
			a = rand(1,6)
			if a > slave['stamina'] and slave['ill'] = 0: slave['ill'] = 1
		end
	end
	if $sex['partner'] = 'assistant':
		if assistant['ill'] > 0:
			a = rand(1,6)
			if a > master_str and master_ill = 0: master_ill = 1
		end
		if master_ill > 0:
			a = rand(1,6)
			if a > assistant['stamina'] and assistant['ill'] = 0: assistant['ill'] = 1
		end
	end
end

!blowjob
if sex_interaction = 14:
	disgusting = 1
	sex_interaction = 141
	if intensity > 3: sex_interaction = 142
end

if sex_interaction = 141:
	$interaction_type = 'penetration'

	res = intensity + 1
	dynamic $sex_diligence
	if diligence < 0:
		$interaction_type = 'deny' & gt 'sex_interaction_result'
	end

	sex['climax_buildup'] -= 2
	quality = min (diligence, sex['girl_sub_bj'])
	if sex['girl_attention'] < 3: quality -= 1
	if sex['girl_attention'] < 2: quality -= 2
	sex['pc_excitement'] += quality * intensity

	if $sex['partner'] = '' and sex_done_today[$str(sex_interaction)] = 0 and diligence > 0:
		if slave['sub_bj'] > 0: slave['sub_bj_xp'] += sex['girl_attention'] - 2
		if slave['sub_bj'] = 0: $rise_skill = 'slave["sub_bj"]'
		slave_rate['pride'] -= intensity
	end

	if $sex['partner'] = 'assistant' and sex_done_today[$str(sex_interaction)] = 0 and diligence > 0:
		if assistant['sub_bj'] > 0: assistant['sub_bj_xp'] += sex['girl_attention'] - 2
		if assistant['sub_bj'] = 0: $rise_skill = 'assistant["sub_bj"]'
		assistant_rate['pride'] -= intensity
	end

	if sex['girl_perversion'] > -1:
		girl_excitement_theshold = min (sex['girl_sensitivity'],sex['girl_openmind']) - sex['girl_attention'] - sex['girl_angst'] + sex['girl_temper'] - 3
		if sex['girl_excitement'] < girl_excitement_theshold: sex['girl_excitement'] += 1
	end

	sex['nymphomania_revealed'] = 1

	sex['pc_interest'] -= 1
	sex['girl_energy'] -= intensity*2
	sex['pc_energy'] -= intensity/2

	$text[1] = $sex_oral[intensity]
	$insertion = 'oral'

	$play_sound[1] = $bj_sound[sex['girl_age']]
	$bg_path = func('display_pic', $sex['partner'], 'bj', 'girls/sex_scenes/')
end

if sex_interaction = 142:
	$interaction_type = 'penetration'

	res = intensity + 2
	dynamic $sex_diligence
	if diligence < 0:
		$interaction_type = 'deny' & gt 'sex_interaction_result'
	end

	if $sex['partner'] = '' and sex_done_today[$str(sex_interaction)] = 0:
		if slave['sub_dt'] > 0: slave['sub_dt_xp'] += sex['girl_sub_dt'] - 2
		if slave['sub_dt'] = 0: $rise_skill = 'slave["sub_dt"]'
		if slave['temper'] > slave['pride']: slave_rate['instinct'] += intensity - 3
		slave_rate['pride'] -= intensity*2
		slave_rate['sensitivity'] -= intensity - 3
	end

	if $sex['partner'] = 'assistant' and sex_done_today[$str(sex_interaction)] = 0:
		if assistant['sub_dt'] > 0: assistant['sub_dt_xp'] += sex['girl_sub_dt'] - 2
		if assistant['sub_dt'] = 0: $rise_skill = 'assistant["sub_dt"]'
		if assistant['temper'] > assistant['pride']: assistant_rate['instinct'] += intensity - 3
		assistant_rate['pride'] -= intensity*2
		assistant_rate['sensitivity'] -= intensity - 3
	end

	sex['climax_buildup'] -= intensity - sex['girl_sub_dt']

	pc_stimulation = sex['pc_boner'] - sex['girl_sub_dt'] + intensity*2
	sex['pc_excitement'] += pc_stimulation
	if intensity > sex['girl_sub_dt']:
		sex['girl_excitement'] -= 1
		sex['girl_openmind'] -= 1
		if sex['girl_attention'] < 3: sex['girl_attention'] += 1
	end

	if sex['girl_perversion'] > 0:
		girl_excitement_theshold = min (sex['girl_sensitivity'],sex['girl_openmind']) - sex['girl_attention'] - sex['girl_angst'] + sex['girl_temper'] - 3
		if sex['girl_excitement'] < girl_excitement_theshold: sex['girl_excitement'] += 1
	end

	sex['nymphomania_revealed'] = 1

	sex['pc_interest'] -= 2
	sex['girl_energy'] -= intensity
	sex['pc_energy'] -= intensity

	$text[1] = $sex_oral[intensity]
	$insertion = 'oral'

	$play_sound[1] = $throatfuck_sound[sex['girl_age']]
	$bg_path = func('display_pic', $sex['partner'], 'dt', 'girls/sex_scenes/')
end

!frottage
if sex_interaction = 15:
	$insertion = 'withdrawn'
	stimulating = 1
	sex_interaction = 150 + intensity
	girl_excitement_theshold = min (sex['girl_sensitivity'],sex['girl_openmind']) - sex['girl_attention'] - sex['girl_angst'] + sex['girl_temper'] - 3
	if sex['girl_excitement'] < girl_excitement_theshold: sex['girl_excitement'] += 1
	$text[1] = $sex_frottage[intensity]
end

if sex_interaction = 151:
	$interaction_type = 'penetration'

	res = 3
	dynamic $sex_diligence
	if diligence < 0:
		$interaction_type = 'deny' & gt 'sex_interaction_result'
	end

	sex['climax_buildup'] -= 1

	sex['pc_excitement'] += master_penetration + intensity

	if $sex['partner'] = '' and sex_done_today[$str(sex_interaction)] = 0 and diligence > 0:
		if slave['sub_hug'] > 0: slave['sub_hug_xp'] += sex['girl_attention'] - 2
		if slave['sub_hug'] = 0: $rise_skill = 'slave["sub_hug"]'
		if intensity = slave['sensitivity']: slave_rate['sensitivity'] += 1
	end

	if $sex['partner'] = 'assistant' and sex_done_today[$str(sex_interaction)] = 0 and diligence > 0:
		if assistant['sub_hug'] > 0: assistant['sub_hug_xp'] += sex['girl_attention'] - 2
		if assistant['sub_hug'] = 0: $rise_skill = 'assistant["sub_hug"]'
		if intensity = assistant['sensitivity']: assistant_rate['sensitivity'] += 1
	end

	sex['nymphomania_revealed'] = 1

	sex['pc_interest'] -= 2
	sex['girl_energy'] -= intensity
	sex['pc_energy'] -= intensity

	$play_sound[1] = $petting_sound[sex['girl_age']]
	$bg_path = func('display_pic', $sex['partner'], 'petting', 'girls/sex_scenes/')
end

if sex_interaction = 152:
	$interaction_type = 'penetration'

	res = 1
	dynamic $sex_diligence
	if diligence < 0:
		$interaction_type = 'deny' & gt 'sex_interaction_result'
	end

	sex['climax_buildup'] -= 1
	if lube = 0: friction = 4 - sex['girl_sub_hj']
	if friction < 0: friction = 0
	quality = min (diligence, sex['girl_sub_hj'])
	if sex['girl_attention'] < 3: quality -= 1
	if sex['girl_attention'] < 2: quality -= 1
	sex['pc_excitement'] += quality + intensity - friction

	if $sex['partner'] = '' and sex_done_today[$str(sex_interaction)] = 0 and diligence > 0:
		if slave['sub_hj'] > 0: slave['sub_hj_xp'] += sex['girl_attention'] - 2
		if slave['sub_hj'] = 0: $rise_skill = 'slave["sub_hj"]'
		if intensity = slave['sensitivity']: slave_rate['sensitivity'] += 1
	end

	if $sex['partner'] = 'assistant' and sex_done_today[$str(sex_interaction)] = 0 and diligence > 0:
		if assistant['sub_hj'] > 0: assistant['sub_hj_xp'] += sex['girl_attention'] - 2
		if assistant['sub_hj'] = 0: $rise_skill = 'assistant["sub_hj"]'
		if intensity = assistant['sensitivity']: assistant_rate['sensitivity'] += 1
	end

	sex['nymphomania_revealed'] = 1

	sex['pc_interest'] -= 2
	sex['girl_energy'] -= intensity+1
	sex['pc_energy'] -= intensity/2

	$play_sound[1] = $petting_sound[sex['girl_age']]
	$bg_path = func('display_pic', $sex['partner'], 'hj', 'girls/sex_scenes/')
end

if sex_interaction = 153:
	$interaction_type = 'penetration'
	$insertion = 'withdrawn'

	res = 3
	dynamic $sex_diligence
	if diligence < 0:
		$interaction_type = 'deny' & gt 'sex_interaction_result'
	end

	sex['climax_buildup'] -= 1
	if lube = 0: friction = 3 - sex['girl_sub_paizuri']
	if friction < 0: friction = 0
	quality = min (diligence, sex['girl_sub_paizuri'])
	if sex['girl_attention'] < 3: quality -= 1
	if sex['girl_attention'] < 2: quality -= 1
	sex['pc_excitement'] += quality*sex['girl_boobs'] + intensity - friction

	if $sex['partner'] = '' and sex_done_today[$str(sex_interaction)] = 0 and diligence > 0:
		if slave['sub_paizuri'] > 0: slave['sub_paizuri_xp'] += sex['girl_attention'] - 2
		if slave['sub_paizuri'] = 0: $rise_skill = 'slave["sub_paizuri"]'
		if intensity = slave['sensitivity']: slave_rate['sensitivity'] += 1
	end

	if $sex['partner'] = 'assistant' and sex_done_today[$str(sex_interaction)] = 0 and diligence > 0:
		if assistant['sub_paizuri'] > 0: assistant['sub_paizuri_xp'] += sex['girl_attention'] - 2
		if assistant['sub_paizuri'] = 0: $rise_skill = 'assistant["sub_paizuri"]'
		if intensity = assistant['sensitivity']: assistant_rate['sensitivity'] += 1
	end

	sex['nymphomania_revealed'] = 1

	sex['pc_interest'] -= 2
	sex['girl_energy'] -= intensity + sex['girl_boobs']
	sex['pc_energy'] -= intensity/2

	$play_sound[1] = $petting_sound[sex['girl_age']]
	$bg_path = func('display_pic', $sex['partner'], 'paizuri', 'girls/sex_scenes/')
end

if sex_interaction = 154:
	$interaction_type = 'penetration'

	res = 1
	dynamic $sex_diligence
	if diligence < 0:
		$interaction_type = 'deny' & gt 'sex_interaction_result'
	end

	sex['climax_buildup'] -= 1
	if lube = 0: friction = 4 - sex['girl_sub_fj']
	if friction < 0: friction = 0
	quality = min (diligence, sex['girl_sub_fj'])
	if sex['girl_attention'] < 3: quality -= 1
	if sex['girl_attention'] < 2: quality -= 1
	sex['pc_excitement'] += quality + intensity - friction

	if $sex['partner'] = '' and sex_done_today[$str(sex_interaction)] = 0 and diligence > 0:
		if slave['sub_fj'] > 0: slave['sub_fj_xp'] += sex['girl_attention'] - 2
		if slave['sub_fj'] = 0: $rise_skill = 'slave["sub_fj"]'
		if intensity = slave['sensitivity']: slave_rate['sensitivity'] += 1
	end

	if $sex['partner'] = 'assistant' and sex_done_today[$str(sex_interaction)] = 0 and diligence > 0:
		if assistant['sub_fj'] > 0: assistant['sub_fj_xp'] += sex['girl_attention'] - 2
		if assistant['sub_fj'] = 0: $rise_skill = 'assistant["sub_fj"]'
		if intensity = assistant['sensitivity']: assistant_rate['sensitivity'] += 1
	end

	sex['nymphomania_revealed'] = 1

	sex['pc_interest'] -= 2
	sex['girl_energy'] -= intensity + 1
	sex['pc_energy'] -= intensity/2

	$play_sound[1] = $petting_sound[sex['girl_age']]
	$bg_path = func('display_pic', $sex['partner'], 'fj', 'girls/sex_scenes/')
end

if sex_interaction = 155:
	$interaction_type = 'penetration'
	if lube = 0: friction = 4 - sex['girl_excitement']
	if friction < 0: friction = 0

	sex['pc_excitement'] += master_penetration + intensity

	if $sex['partner'] = '' and sex_done_today[$str(sex_interaction)] = 0:
		if slave['sub_hug'] > 0: slave['sub_hug_xp'] += sex['girl_attention'] - 2
		if slave['sub_hug'] = 0: $rise_skill = 'slave["sub_hug"]'
		slave_rate['sensitivity'] += 1
	end

	if $sex['partner'] = 'assistant' and sex_done_today[$str(sex_interaction)] = 0:
		if assistant['sub_hug'] > 0: assistant['sub_hug_xp'] += sex['girl_attention'] - 2
		if assistant['sub_hug'] = 0: $rise_skill = 'assistant["sub_hug"]'
		assistant_rate['sensitivity'] += 1
	end

	sex['nymphomania_revealed'] = 1

	sex['pc_interest'] -= 2
	sex['girl_energy'] -= intensity - 1
	sex['pc_energy'] -= intensity + 1

	$play_sound[1] = $petting_sound[sex['girl_age']]
	$bg_path = func('display_pic', $sex['partner'], 'petting', 'girls/sex_scenes/')
end

if sex_interaction = 161:
	$interaction_type = 'extras'
	stimulating = 1

	skill = master_oral - sex['girl_excitement']
	balance = sex['girl_sensitivity'] - intensity
	if balance < 0:
		skill += balance
		sex['girl_attention'] += 1
		if sex['girl_excitement'] >= intensity: sex['climax_buildup'] += 1
	end
	if balance > 0:
		skill -= balance - 1
		if $sex['partner'] = '' and sex_done_today[$str(sex_interaction)] = 0: slave_rate['sensitivity'] += 1
		if $sex['partner'] = 'assistant' and sex_done_today[$str(sex_interaction)] = 0: assistant_rate['sensitivity'] += 1
	end
	if skill > 0:
		sex['girl_excitement'] += 1
		sex['climax_buildup'] += 1
	end

	sex['pc_interest'] -= 3
	if sex_done_today[$str(sex_interaction)] = 0: master_oral_rate += 1

	$text[1] = $sex_oral_extra[intensity]
	$bg_path = func('display_pic', $sex['partner'], 'kiss', 'girls/sex_scenes/')
	$play_sound[1] = $kiss_sound[sex['girl_age']]
	sex['girl_energy'] -= 1
	sex['pc_energy'] -= 1
end

if sex_interaction = 162:
	$interaction_type = 'extras'
	stimulating = 1
	clitoral_stimulation = 1

	force = sex['girl_sensitivity'] + intensity - 3
	if force < 1: force = 1
	if force > 5: force = 5
	balance = sex['girl_excitement'] - force

	diff = sex['girl_attention'] - sex['girl_openmind']
	skill = master_petting - sex['girl_attention'] + sex['girl_sensitivity']

	if balance = 0: diff -= sex['girl_sensitivity']
	if balance < 0:
		sex['girl_openmind'] -= 1
		sex['girl_attention'] += 1
		diff -= balance
	end
	if balance > 0:
		if $sex['partner'] = '' and sex_done_today[$str(sex_interaction)] = 0: slave_rate['sensitivity'] += 1
		if $sex['partner'] = 'assistant' and sex_done_today[$str(sex_interaction)] = 0: assistant_rate['sensitivity'] += 1
		diff += balance
	end

	sex['climax_buildup'] += master_petting - diff

	if sex_done_today[$str(sex_interaction)] = 0: master_petting_rate += 1
	sex['pc_interest'] -= 5
	sex['girl_energy'] -= 1
	sex['pc_energy'] -= intensity

	$text[1] = $sex_manual_extra[intensity]
	$bg_path = func('display_pic', $sex['partner'], 'sex', 'girls/sex_scenes/')
	$play_sound[1] = $petting_sound[sex['girl_age']]
end

if sex_interaction = 163:
	$interaction_type = 'extras'
	abuse = 1

	res = intensity
	dynamic $sex_diligence
	quality = sex['girl_sub_humiliation']
	if diligence > sex['girl_excitement']: sex['girl_excitement'] += 1
	if diligence < 0: sex['girl_excitement'] -= 1

	if $sex['partner'] = '':
		if slave['sub_humiliation'] = 0:
			if diligence > 1: $rise_skill = 'slave["sub_humiliation"]'
		else
			if diligence > slave['sub_humiliation'] and sex_done_today[$str(sex_interaction)] = 0: slave['sub_humiliation_xp'] += sex['girl_attention'] - 2
		end
		if master_domination > slave['pride'] and sex_done_today[$str(sex_interaction)] = 0:
			slave_rate['pride'] -= intensity
		elseif slave['ego'] >= master_domination and sex_done_today[$str(sex_interaction)] = 0:
			master_domination_rate += 1
		end
	end

	if $sex['partner'] = 'assistant':
		if assistant['sub_humiliation'] = 0:
			if diligence > 1: $rise_skill = 'assistant["sub_humiliation"]'
		else
			if diligence > assistant['sub_humiliation'] and sex_done_today[$str(sex_interaction)] = 0: assistant['sub_humiliation_xp'] += sex['girl_attention'] - 2
		end
		if master_domination > assistant['pride'] and sex_done_today[$str(sex_interaction)] = 0:
			assistant_rate['pride'] -= intensity
		elseif assistant['ego'] >= master_domination and sex_done_today[$str(sex_interaction)] = 0:
			master_domination_rate += 1
		end
	end

	sex['pc_interest'] += intensity * sex['girl_ego'] - sex_done_today[$str(sex_interaction)]
	sex['pc_energy'] -= 1

	$text[1] = $sex_abuse_extra[intensity]
	$bg_path = func('display_pic', $sex['partner'], 'petting', 'girls/sex_scenes/')
	$play_sound[1] = $cry[0]
end

if sex_interaction = 164:
	$interaction_type = 'extras'
	painful = 1
	res = intensity
	dynamic $sex_diligence

	force = intensity + sex['girl_attention'] + sex['girl_sensitivity'] - sex['girl_excitement'] - 3 - sex['girl_masochism'] * 2
	if force > 0:
		sex['girl_excitement'] -= 1
		sex['climax_buildup'] -= force
		sex['girl_openmind'] -= 1
		sex['girl_attention'] += 1
	end
	if diligence > sex['girl_excitement'] and force <= 0: sex['girl_excitement'] += 1
	if intensity = 1: sex['climax_buildup'] += 1

	if $sex['partner'] = '':
		if slave['sub_mazo'] = 0:
			if diligence > 1: $rise_skill = 'slave["sub_mazo"]'
		else
			if diligence > slave['sub_mazo'] and sex_done_today[$str(sex_interaction)] = 0: slave['sub_mazo_xp'] += sex['girl_attention'] - 2
		end
		a = intensity + slave['pride']
		if a > 5 and sex_done_today[$str(sex_interaction)] = 0: slave_rate['pride'] -= a - 5
		if sex_done_today[$str(sex_interaction)] = 0 and slave['ego'] >= master_domination: master_domination_rate += 1
	end

	if $sex['partner'] = 'assistant':
		if assistant['sub_mazo'] = 0:
			if diligence > 1: $rise_skill = 'assistant["sub_mazo"]'
		else
			if diligence > assistant['sub_mazo'] and sex_done_today[$str(sex_interaction)] = 0: assistant['sub_mazo_xp'] += sex['girl_attention'] - 2
		end
		a = intensity + assistant['pride']
		if a > 5 and sex_done_today[$str(sex_interaction)] = 0: assistant_rate['pride'] -= a - 5
		if sex_done_today[$str(sex_interaction)] = 0 and assistant['ego'] >= master_domination: master_domination_rate += 1
	end

	sex['masochism_revealed'] = 1

	sex['pc_interest'] += intensity * slave['temper'] - sex_done_today[$str(sex_interaction)]
	sex['girl_energy'] -= intensity
	sex['pc_energy'] -= intensity

	$text[1] = $sex_slap_extra[intensity]
	$bg_path = func('display_pic', $sex['partner'], 'slap', 'girls/torture_scenes/battering/', 'any_age')
	$play_sound[1] = $slap_sound
end

if sex_interaction = 165:
	$interaction_type = 'extras'
	painful = 1

	force = intensity + sex['girl_attention'] + sex['girl_sensitivity'] - sex['girl_excitement'] - 3 - sex['girl_masochism'] * 2
	if force > 0:
		sex['girl_excitement'] -= 1
		sex['climax_buildup'] -= force
		sex['girl_openmind'] -= 1
		sex['girl_attention'] += 1
	end
	if force < 0 and intensity >= sex['girl_excitement']: sex['girl_excitement'] += 1

	if $sex['partner'] = '':
		if slave['sub_mazo'] = 0:
			if diligence > 1: $rise_skill = 'slave["sub_mazo"]'
		else
			if diligence > slave['sub_mazo'] and sex_done_today[$str(sex_interaction)] = 0: slave['sub_mazo_xp'] += sex['girl_attention'] - 2
		end
		if sex_done_today[$str(sex_interaction)] = 0 and slave['ego'] >= master_domination: master_domination_rate += 1
		sex['pc_interest'] += intensity * slave['temper'] - sex_done_today[$str(sex_interaction)]
	end

	if $sex['partner'] = 'assistant':
		if assistant['sub_mazo'] = 0:
			if diligence > 1: $rise_skill = 'assistant["sub_mazo"]'
		else
			if diligence > assistant['sub_mazo'] and sex_done_today[$str(sex_interaction)] = 0: assistant['sub_mazo_xp'] += sex['girl_attention'] - 2
		end
		if sex_done_today[$str(sex_interaction)] = 0 and assistant['ego'] >= master_domination: master_domination_rate += 1
		sex['pc_interest'] += intensity * assistant['temper'] - sex_done_today[$str(sex_interaction)]
	end

	sex['masochism_revealed'] = 1

	sex['girl_energy'] -= 1
	sex['pc_energy'] -= 1

	$text[1] = $sex_bite_extra[intensity]
	$bg_path = func('display_pic', $sex['partner'], 'slap', 'girls/torture_scenes/battering/', 'any_age')
	$play_sound[1] = $bite
end

!Perverse games
!Blindfold
if sex_interaction = 21:
	$interaction_type = 'foreplay'
	res = 1
	darkness = 1
	dynamic $sex_diligence
	if diligence < 0:
		$interaction_type = 'deny' & gt 'sex_interaction_result'
	end

	sex['eyes_bound'] = 1
	sex['girl_attention'] -= 1
	if diligence > sex['girl_openmind'] and sex_done_today[$str(sex_interaction)] = 0: sex['girl_openmind'] += 1
	if diligence <= 0: sex['girl_openmind'] -= 1

	if $sex['partner'] = '' and sex_done_today[$str(sex_interaction)] = 0: slave_rate['temper'] -= 1

	if $sex['partner'] = 'assistant' and sex_done_today[$str(sex_interaction)] = 0: assistant_rate['temper'] -= 1

	sex['darkness_attitude_revealed'] = 1

	$text[1] = '  You cover her eyes with a blindfold. This should help her to concentrate better on her own feelings and make her anticipate your next actions.'
	$bg_path = 'scene\blindfold'
	g = rand(1, picMax['blindfold'])
	if g > 1: $bg_path += '_' + $str(g)
	sex['pc_energy'] -= 1
	sex['pc_interest'] -= 1
	sex['climax_buildup'] -= sex['girl_attention']
end

!Remove blindfold
if sex_interaction = 211:
	$interaction_type = 'foreplay'

	sex['eyes_bound'] = 0
	sex['girl_attention'] += 1

	$text[1] = '  You remove the blindfold from her eyes so she can turn her attention to what is happening around her and show more initiative.'
	$bg_path = 'scene\blindfold'
	sex['pc_energy'] -= 1
	sex['pc_interest'] -= 1
	sex['climax_buildup'] -= sex['girl_attention']
end

!Tie up
if sex_interaction = 22:
	$interaction_type = 'foreplay'
	res = 2
	deprivation = 1
	dynamic $sex_diligence
	if diligence < 0:
		$interaction_type = 'deny' & gt 'sex_interaction_result'
	end

	sex['bondage'] = 1
	sex['girl_openmind'] += 1
	if diligence > sex['girl_excitement'] and master_bondage > sex['girl_excitement']: sex['girl_excitement'] += 1
	if diligence <= 0: sex['girl_attention'] += 1

	if $sex['partner'] = '' and sex_done_today[$str(sex_interaction)] = 0: slave_rate['ego'] -= 1

	if $sex['partner'] = 'assistant' and sex_done_today[$str(sex_interaction)] = 0: assistant_rate['ego'] -= 1

	if sex_done_today[$str(sex_interaction)] = 0: master_bondage_rate += 1

	sex['deprivation_attitude_revealed'] = 1

	$text[1] = '  You firmly bind her, so that she feels helpless.'
	$bg_path = func('display_pic', $sex['partner'], 'bdsm', 'girls/sex_scenes/')
	sex['pc_energy'] -= 10
	sex['pc_interest'] -= 1
	sex['climax_buildup'] -= sex['girl_attention'] - master_bondage
end

!untie
if sex_interaction = 221:
	$interaction_type = 'foreplay'

	sex['bondage'] = 0

	$text[1] = '  You release her from the ropes so that she can act independently.'
	$bg_path = func('display_pic', $sex['partner'], 'bdsm', 'girls/sex_scenes/')
	sex['pc_energy'] -= 1
	sex['pc_interest'] -= 1
	sex['climax_buildup'] -= sex['girl_attention']
end

!Nipple clamps
if sex_interaction = 23:
	$interaction_type = 'foreplay'
	res = 2
	painful = 1
	dynamic $sex_diligence
	if diligence < 0:
		$interaction_type = 'deny' & gt 'sex_interaction_result'
	end

	sex['clamps'] = 1
	sex['girl_openmind'] -= 1
	if diligence > sex['girl_excitement'] and master_torture > sex['girl_excitement']: sex['girl_excitement'] += 1

	sex['masochism_revealed'] = 1

	$text[1] = '  You take the metal clamps connected by a chain and attach them to her nipples. This will be quite painful, but with the right attitude arousal will grow.'
	$bg_path = func('display_pic', $sex['partner'], 'clamps', 'girls/torture_scenes/torture_instruments/')
	$play_sound[1] = $clamps[1]
	sex['pc_energy'] -= 2
	sex['pc_interest'] += sex['girl_sensitivity']
	sex['climax_buildup'] -= sex['girl_attention'] - master_torture
end

!Remove clamps
if sex_interaction = 231:
	$interaction_type = 'foreplay'

	sex['clamps'] = 0

	$text[1] = '  You remove the metal clamps from her nipples. Sometimes removing the clamps is even more painful than attachment, but this brings a special relief.'
	$bg_path = func('display_pic', $sex['partner'], 'clamps', 'girls/torture_scenes/torture_instruments/')
	$play_sound[1] = $clamps[2]
	sex['pc_energy'] -= 1
	sex['pc_interest'] -= 1
	sex['climax_buildup'] += master_torture
end

!Tickle with the dagger
if sex_interaction = 24:
	$interaction_type = 'foreplay'
	bloody = 1
	a = sex['girl_fear'] + sex['girl_sensitivity']
	if a >= 6 and sex['girl_masochism'] < 1:
		sex['climax_buildup'] = 0
		sex['girl_openmind'] -= 1
		sex['girl_excitement'] -= 1
		sex['girl_attention'] += 1
	else
		if sex['girl_excitement'] < sex['girl_sensitivity']: sex['girl_excitement'] += 1 & sex['climax_buildup'] += sex['girl_sensitivity']
	end
	if $sex['partner'] = '' and sex_done_today[$str(sex_interaction)] = 0:
		slave_rate['sensitivity'] += 1
	end
	if $sex['partner'] = 'assistant' and sex_done_today[$str(sex_interaction)] = 0:
		assistant_rate['sensitivity'] += 1
	end

	if sex_done_today[$str(sex_interaction)] = 0: master_torture_rate += 1
	sex['pc_interest'] += sex['girl_sensitivity']

	$text[1] = $sex_dagger
	$bg_path = func('display_pic', $sex['partner'], 'petting', 'girls/sex_scenes/')
	$play_sound[1] = $petting_sound[sex['girl_age']]
	sex['girl_energy'] -=  1
	sex['pc_energy'] -= 2
	sex['cum_buildup'] = 0
end

!Hot wax
if sex_interaction = 25:
	$interaction_type = 'foreplay'
	painful = 1
	a = sex['girl_fear'] + sex['girl_sensitivity']
	if a >= 6 and sex['girl_masochism'] < 1:
		sex['climax_buildup'] = 0
		sex['girl_openmind'] -= 1
		sex['girl_excitement'] -= 1
		sex['girl_attention'] += 1
	else
		if sex['girl_excitement'] < sex['girl_sensitivity']: sex['girl_excitement'] += 1 & sex['climax_buildup'] += sex['girl_sensitivity']
	end

	sex['masochism_revealed'] = 1
	if sex_done_today[$str(sex_interaction)] = 0: master_torture_rate += 1
	sex['pc_interest'] += sex['girl_sensitivity']
	$text[1] = $sex_wax
	$bg_path = func('display_pic', $sex['partner'], 'wax', 'girls/torture_scenes/torture_instruments/')
	$play_sound[1] = $soft_pain[sex['girl_age']]
	sex['girl_energy'] -=  1
	sex['pc_energy'] -= 2
	sex['cum_buildup'] = 0
end

!Put an enema
if sex_interaction = 26:
	$interaction_type = 'foreplay'
	$insertion = 'withdrawn'
	res = 2
	shameful = 1
	dynamic $sex_diligence
	if diligence < 0:
		$interaction_type = 'deny' & gt 'sex_interaction_result'
	end
	sex['enema'] = 1
	sex['girl_openmind'] -= 1
	if diligence > sex['girl_excitement'] and master_fetish > sex['girl_excitement']: sex['girl_excitement'] += 1
	if $sex['partner'] = '' and sex_done_today[$str(sex_interaction)] = 0: slave_rate['pride'] -= master_fetish
	if $sex['partner'] = 'assistant' and sex_done_today[$str(sex_interaction)] = 0: assistant_rate['pride'] -= master_fetish
	if sex_done_today[$str(sex_interaction)] = 0: master_fetish_rate += 1 & master_medic_rate += 1
	$text[1] = $sex_enema
	$bg_path = func('display_pic', $sex['partner'], 'enema', 'girls/sex_scenes/')
	$play_sound[1] = $moan[sex['girl_age']]
	sex['pc_energy'] -= 5
	sex['girl_energy'] -=  10
	sex['pc_interest'] += sex['pride'] + master_fetish
	sex['climax_buildup'] -= sex['girl_attention'] - master_fetish
end

!Release water
if sex_interaction = 261:
	$interaction_type = 'foreplay'
	shameful = 1
	sex['enema'] = 0
	$play_sound[1] = $moan[sex['girl_age']]
	$text[1] = $sex_enema_out
	$bg_path = func('display_pic', $sex['partner'], 'enema', 'girls/sex_scenes/')
	sex['pc_energy'] -= 1
	sex['pc_interest'] -= 1
	sex['climax_buildup'] += master_torture
end

!Golden shower
if sex_interaction = 27:
	$interaction_type = 'foreplay'
	$insertion = 'withdrawn'
	disgusting = 1
	shameful = 1
	res = 3
	dynamic $sex_diligence
	if diligence < 0:
		$interaction_type = 'deny' & gt 'sex_interaction_result'
	end
	if sex['girl_perversion'] < 0:
		sex['climax_buildup'] = 0
		sex['girl_openmind'] -= 1
		sex['girl_excitement'] -= 1
		sex['girl_attention'] += 1
	else
		if sex['girl_perversion'] > 0 and sex['girl_excitement'] < master_fetish: sex['girl_excitement'] += 1
	end
	if $sex['partner'] = '' and sex_done_today[$str(sex_interaction)] = 0:
		if slave['sub_piss'] > 0: slave['sub_piss_xp'] += sex['girl_attention'] - 2
		if slave['sub_piss'] = 0: $rise_skill = 'slave["sub_piss"]'
		slave_rate['pride'] -= master_fetish
	end
	if $sex['partner'] = 'assistant' and sex_done_today[$str(sex_interaction)] = 0:
		if assistant['sub_piss'] > 0: assistant['sub_piss_xp'] += sex['girl_attention'] - 2
		if assistant['sub_piss'] = 0: $rise_skill = 'slave["sub_piss"]'
		assistant_rate['pride'] -= master_fetish
	end
	sex['perversion_revealed'] = 1
	if sex_done_today[$str(sex_interaction)] = 0: master_fetish_rate += 1
	sex['pc_interest'] += 1 + sex['girl_sub_piss'] + master_fetish
	$text[1] = $sex_urination[sex['girl_sub_piss']]
	$bg_path = func('display_pic', $sex['partner'], 'urine', 'girls/sex_scenes/')
	$play_sound[1] = $urine[sex['girl_age']]
	sex['girl_energy'] -=  2
	sex['pc_energy'] -= 3
	sex['cum_buildup'] = 0
end

!Fisting
if sex_interaction = 28:
	$interaction_type = 'foreplay'
	$insertion = 'withdrawn'
	if sex['girl_anal_stretch'] <= 3: painful = 1
	res = 3
	stimulating = 1
	dynamic $sex_diligence
	if diligence < 0:
		$interaction_type = 'deny' & gt 'sex_interaction_result'
	end
	if sex['girl_anal_stretch'] < 3 or sex['girl_masochism'] = -1:
		sex['climax_buildup'] = 0
		sex['girl_openmind'] -= 1
		sex['girl_excitement'] -= 1
		sex['girl_attention'] += 1
		if $sex['partner'] = '' and sex_done_today[$str(sex_interaction)] = 0: slave_rate['sensitivity'] -= 1 & slave['masochism_xp'] += 1
		if $sex['partner'] = 'assistant' and sex_done_today[$str(sex_interaction)] = 0: assistant_rate['sensitivity'] -= 1 & assistant['masochism_xp'] += 1
	else
		if sex['girl_excitement'] < sex['girl_sensitivity']: sex['girl_excitement'] += 1 & sex['climax_buildup'] += sex['girl_sensitivity']
		if sex['girl_masochism'] > 0 and sex['girl_excitement'] < master_penetration: sex['girl_excitement'] += 1
		if $sex['partner'] = '' and sex_done_today[$str(sex_interaction)] = 0: slave_rate['sensitivity'] += 1
		if $sex['partner'] = 'assistant' and sex_done_today[$str(sex_interaction)] = 0: assistant_rate['sensitivity'] += 1
	end
	if $sex['partner'] = '' and sex_done_today[$str(sex_interaction)] = 0:
		if slave['anal_stretch'] > 0: slave['anal_stretch_xp'] += sex['girl_attention'] - 2
		if slave['anal_stretch'] = 0: $rise_skill = 'slave["anal_stretch"]'
	end
	if $sex['partner'] = 'assistant' and sex_done_today[$str(sex_interaction)] = 0:
		if assistant['anal_stretch'] > 0: assistant['anal_stretch_xp'] += sex['girl_attention'] - 2
		if assistant['anal_stretch'] = 0: $rise_skill = 'assistant["anal_stretch"]'
	end
	sex['masochism_revealed'] = 1
	$text[1] = $sex_analfisting[sex['girl_anal_stretch']]
	$play_sound[1] = $fisting_sound[sex['girl_age']]
	$bg_path = func('display_pic', $sex['partner'], 'analfisting', 'girls/sex_scenes/')
	sex['pc_energy'] -= 5
	sex['pc_interest'] += sex['girl_anal_stretch'] + master_penetration
	sex['girl_energy'] -= 10
end

!CUMMING
!inside
if sex_interaction = 91:
	$interaction_type = 'ejaculate'
	res = 2
	stimulating = 1
	dynamic $sex_diligence
	if $insertion = 'vaginal' or $insertion = 'defloration':
		$play_sound[1] = $fuck_sound[sex['girl_age']]
		$bg_path = func('display_pic', $sex['partner'], 'sex', 'girls/sex_scenes/')
		$text[1] = $sex_cum_vaginal
		quality = min (diligence,sex['girl_sub_vaginal'])
	end
	if $insertion = 'anal':
		$play_sound[1] = $assfuck_sound[sex['girl_age']]
		$bg_path = func('display_pic', $sex['partner'], 'analsex', 'girls/sex_scenes/')
		$text[1] = $sex_cum_anal
		quality = min (diligence,sex['girl_sub_anal'])
	end
	sex['climax_buildup'] += quality
	if sex_done_today[$str(sex_interaction)] = master_penetration: master_penetration_rate += 1
	sex['cum_pleasure'] = sex['pc_boner']*3 + sex['pc_excitement_state']*3
	sex['pc_interest'] -= 5
	sex['girl_energy'] -= 3
	sex['pc_energy'] -= 5
	if $insertion = 'vaginal' or $insertion = 'defloration':
		if $sex['partner'] = '': dynamic $inseminate, 'slave' & slave['cum_load'] += sex['climax_buildup']
		if $sex['partner'] = 'assistant': dynamic $inseminate, 'assistant' & assistant['cum_load'] += sex['climax_buildup']
	end
end

!in mouth
if sex_interaction = 92:
	$interaction_type = 'ejaculate'
	res = 2
	disgusting = 1
	dynamic $sex_diligence
	quality = min (diligence,sex['girl_sub_bj'])
	if $sex['partner'] = '' and sex_done_today[$str(sex_interaction)] = 0: slave_rate['pride'] -= 2
	if $sex['partner'] = '' and sex_done_today[$str(sex_interaction)] = 0 and diligence > 0:
		if slave['sub_bj'] > 0: slave['sub_bj_xp'] += sex['girl_attention'] - 2
		if slave['sub_bj'] = 0: $rise_skill = 'slave["sub_bj"]'
	end
	if $sex['partner'] = 'assistant' and sex_done_today[$str(sex_interaction)] = 0: assistant_rate['pride'] -= 2
	if $sex['partner'] = 'assistant' and sex_done_today[$str(sex_interaction)] = 0 and diligence > 0:
		if assistant['sub_bj'] > 0: assistant['sub_bj_xp'] += sex['girl_attention'] - 2
		if assistant['sub_bj'] = 0: $rise_skill = 'assistant["sub_bj"]'
	end
	if quality > 2:
		sex['cum_pleasure'] = sex['pc_boner']*quality + sex['pc_excitement_state']*quality
	else
		sex['cum_pleasure'] = sex['pc_boner']*2 + sex['pc_excitement_state']*2
	end
	sex['pc_interest'] -= 3
	sex['girl_energy'] -= 1
	sex['pc_energy'] -= 3
	$play_sound[1] = $bj_sound[sex['girl_age']]
	$bg_path = func('display_pic', $sex['partner'], 'bj', 'girls/sex_scenes/')
	$text[1] = $sex_cum_oral
end

!into face, bukkake
if sex_interaction = 93:
	$interaction_type = 'ejaculate'
	$insertion = 'withdrawn'
	res = 1
	disgusting = 1
	dynamic $sex_diligence
	quality = min (diligence,sex['girl_sub_bukkake'])
	if $sex['partner'] = '' and sex_done_today[$str(sex_interaction)] = 0: slave_rate['pride'] -= master_fetish
	if $sex['partner'] = '' and sex_done_today[$str(sex_interaction)] = 0 and diligence > 0:
		if slave['sub_bukkake'] > 0: slave['sub_bukkake_xp'] += sex['girl_attention'] - 2
		if slave['sub_bukkake'] = 0: $rise_skill = 'slave["sub_bukkake"]'
	end
	if $sex['partner'] = 'assistant' and sex_done_today[$str(sex_interaction)] = 0: assistant_rate['pride'] -= master_fetish
	if $sex['partner'] = 'assistant' and sex_done_today[$str(sex_interaction)] = 0 and diligence > 0:
		if assistant['sub_bukkake'] > 0: assistant['sub_bukkake_xp'] += sex['girl_attention'] - 2
		if assistant['sub_bukkake'] = 0: $rise_skill = 'assistant["sub_bukkake"]'
	end
	sex['perversion_revealed'] = 1
	sex['cum_pleasure'] = sex['pc_boner'] + sex['pc_excitement_state'] + quality*2
	sex['pc_interest'] -= 3
	sex['girl_energy'] -= 1
	sex['pc_energy'] -= 3
	$play_sound[1] = $moan[sex['girl_age']]
	$bg_path = func('display_pic', $sex['partner'], 'oral', 'girls/sex_scenes/')
	$text[1] = $sex_cum_bukkake
end

!on breasts
if sex_interaction = 94:
	$interaction_type = 'ejaculate'
	$insertion = 'withdrawn'
	res = 0
	disgusting = 1
	dynamic $sex_diligence
	$play_sound[1] = $moan[sex['girl_age']]
	$bg_path = func('display_pic', $sex['partner'], 'paizuri', 'girls/sex_scenes/')
	$text[1] = $sex_cum_neck
	quality = min (diligence,sex['girl_sub_bukkake'])
	if $sex['partner'] = '' and sex_done_today[$str(sex_interaction)] = 0: slave_rate['pride'] -= 1
	if $sex['partner'] = '' and sex_done_today[$str(sex_interaction)] = 0 and diligence > 0:
		if slave['sub_bukkake'] > 0: slave['sub_bukkake_xp'] += sex['girl_attention'] - 2
		if slave['sub_bukkake'] = 0: $rise_skill = 'slave["sub_bukkake"]'
	end
	if $sex['partner'] = 'assistant' and sex_done_today[$str(sex_interaction)] = 0: assistant_rate['pride'] -= 1
	if $sex['partner'] = 'assistant' and sex_done_today[$str(sex_interaction)] = 0 and diligence > 0:
		if assistant['sub_bukkake'] > 0: assistant['sub_bukkake_xp'] += sex['girl_attention'] - 2
		if assistant['sub_bukkake'] = 0: $rise_skill = 'assistant["sub_bukkake"]'
	end
	sex['perversion_revealed'] = 1
	sex['cum_pleasure'] = sex['pc_boner'] + sex['pc_excitement_state'] + quality
	sex['pc_interest'] -= 5
	sex['girl_energy'] -= 1
	sex['pc_energy'] -= 2
end

!on the floor
if sex_interaction = 95:
	$interaction_type = 'ejaculate'
	$insertion = 'withdrawn'
	sex['pc_interest'] -= 10
	sex['pc_energy'] -= 1
	sex['cum_pleasure'] = sex['pc_boner'] + sex['pc_excitement_state']
	$text[1] = $sex_cum_waste
	$play_sound[1] = $slopy
end

!on ass
if sex_interaction = 96:
	$interaction_type = 'ejaculate'
	$insertion = 'withdrawn'
	res = 0
	disgusting = 1
	dynamic $sex_diligence
	$play_sound[1] = $assfuck_sound[sex['girl_age']]
	$bg_path = func('display_pic', $sex['partner'], 'analsex', 'girls/sex_scenes/')
	$text[1] = $sex_cum_back
	quality = min (diligence,sex['girl_sub_bukkake'])
	if $sex['partner'] = '' and sex_done_today[$str(sex_interaction)] = 0: slave_rate['pride'] -= 1
	if $sex['partner'] = '' and sex_done_today[$str(sex_interaction)] = 0 and diligence > 0:
		if slave['sub_bukkake'] > 0: slave['sub_bukkake_xp'] += sex['girl_attention'] - 2
		if slave['sub_bukkake'] = 0: $rise_skill = 'slave["sub_bukkake"]'
	end
	if $sex['partner'] = 'assistant' and sex_done_today[$str(sex_interaction)] = 0: assistant_rate['pride'] -= 1
	if $sex['partner'] = 'assistant' and sex_done_today[$str(sex_interaction)] = 0 and diligence > 0:
		if assistant['sub_bukkake'] > 0: assistant['sub_bukkake_xp'] += sex['girl_attention'] - 2
		if assistant['sub_bukkake'] = 0: $rise_skill = 'assistant["sub_bukkake"]'
	end
	sex['perversion_revealed'] = 1
	sex['cum_pleasure'] = sex['pc_boner'] + sex['pc_excitement_state'] + quality
	sex['pc_interest'] -= 5
	sex['girl_energy'] -= 1
	sex['pc_energy'] -= 2
end

gt 'sex_interaction_result'

--- sex_interaction ---------------------------------


code:
# sex_interaction_result
!Второй этап обработки действий в секси-тайм
$msg_txt = ''
gs 'sex_addup'

if $interaction_type = 'deny':
	$text[1] = '  The bitch resists! She refuses to comply with your instructions.'
end

if $interaction_type = 'foreplay':
	if sex_done_thisperson[$str(sex_interaction)] = 0: sex['girl_newness'] -= 1
	dynamic '<<$rise_skill>> += 1'
end

if $interaction_type = 'penetration':
	if sex_done_thisperson[$str(sex_interaction)] = 0: sex['girl_newness'] -= 1
	dynamic '<<$rise_skill>> += 1'
end

if $interaction_type = 'ejaculate':
	pc_pleasure = max (1,quality)
	sex['pc_boner'] -= pc_pleasure
	lube = 0
	$insertion = ''
	sex["pc_excitement"] = 0
	master_mood_rate += sex["cum_pleasure"]
	sex["cum_pleasure"] = 0
	dynamic '<<$rise_skill>> += 1'
end

if $interaction_type = 'extras':
	dynamic '<<$rise_skill>> += 1'
end

if sex["climax_force"] > 0:
	if $sex['partner'] = '':
		slave['pos_gentle'] = max(slave['pos_gentle'], 2)
	end
	if $sex['partner'] = 'assistant':
		assistant['pos_gentle'] = max(assistant['pos_gentle'], 2)
	end
	if sex["climax_force"] = 1:
		$text[] = $sex_orgasm_clitoral
		sex['girl_excitement'] = 1
		sex["climax_buildup"] = 0
		if $sex['partner'] = '': slave['pos_orgasm'] += 1 &! moodlet exponentially decays in next_day -ImperatorAugustus
		if $sex['partner'] = 'assistant': assistant['pos_orgasm'] += 1 &! moodlet exponentially decays in next_day -ImperatorAugustus
	end
	if sex["climax_force"] = 2:
		$text[] = $sex_orgasm_deep
		sex["climax_buildup"] = sex["climax_treshold"]/2
		if $sex['partner'] = '': slave['pos_multiple_orgasm'] = 2
		if $sex['partner'] = 'assistant': assistant['pos_multiple_orgasm'] = 2
	end
	if sex["climax_force"] = 3:
		$text[] = $sex_orgasm_squirt
		sex["climax_buildup"] = sex["climax_treshold"] - 10
		if $sex['partner'] = '': slave['pos_multiple_orgasm'] = 3
		if $sex['partner'] = 'assistant': assistant['pos_multiple_orgasm'] = 3
	end
	if sex["climax_force"] > 1: sex["climax_count"] += 1
	if sex["climax_top"] < sex["climax_force"]: sex["climax_top"] = sex["climax_force"]
	sex["climax_force"] = 0
end

sex_done_today[$str(sex_interaction)] += 1
sex_done_thisperson[$str(sex_interaction)] += 1

if sex["pc_interest"] <= 0 and $interaction_type ! 'ejaculate':
	$text[] = '  At some point you realize that you are insanely sick of it. Why stand on ceremony with her and try to deliver some fun? You should have just cum in a hurry, but now you don’t even feel like it.'
	$return_lock = 'sex_end'
end

if sex["pc_energy"] <= 0:
	$text[] = '  You are so tired and out of breath that you have no more strength to continue.'
	$return_lock = 'sex_end'
end

!Chimera Gem modifiers - crushboss
if chimera_gem_on = 1:
	master_excitement = 5
	master_excitement_rate = 200
	sex["cum_buildup"] += master_excitement
	sex['pc_boner'] = master_excitement
	pc_boner_plus = master_excitement
end

gt 'sex_interaction_screen'

--- sex_interaction_result ---------------------------------

repo_name: Sutopia/game

license: unknown


code:
# sex_interaction_screen

gs '_layout'
npc = 0

*p '
<img src="content\pic\bg\<<$bg[$place]>>.png">
'
*p '
<<$text[txt]>>
'
if nsfw = 0:*p '
<img src="content\pic\<<$bg_path>>.png">
'

$info_bar = ''
*p '
'
*nl '&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbspResult'
*nl '        Newness: <<sex["girl_newness"]>>'
*nl '        Diligence: <<diligence>>'
*nl '		 Skill: <<skill>>'
*nl '		 Quality: <<quality>>'
*nl '		 Complexity: <<diff>>'
*nl '		 Balance: <<balance>>
'

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

if txt > 1:
	addobj ''
else
	addobj ''
end
addobj ''

if $msg_txt ! '': msg '<<$msg_txt>>'

--- sex_interaction_screen ---------------------------------


code:
# sex_screen
!SEX SCREEN USER INTERFACE
gs '_layout'
gs 'sex_addup'

killvar '$play_sound'
$play_sound[1] = ''
CLOSE ALL

$sex_menu = ''
dynamic $sex_options[sex_num]
gs "#sex_texts"
gs 'sex_addup'

pc_boner_plus = sex['pc_boner']
if pc_boner_plus < 0: pc_boner_plus = 5 - sex['pc_boner']
if pc_boner_plus > 10: pc_boner_plus = 10

$sex_master_stat = ''
$sex_master_stat = 'Arousal:
'
$sex_master_stat += 'Energy:
'
$sex_master_stat += 'Interest:
'
$sex_master_stat += 'Cum buildup:
'
$sex_master_stat += 'Threshold:
'

$sex_info = '
Stamina:
'
$sex_info += '<<$sex_girl_arousal[sex["girl_excitement"]]>>
'
$sex_info += '<<$sex_girl_concentration[sex["girl_attention"]]>>
'
$sex_info += '<<$sex_girl_openmind[sex["girl_openmind"]]>>
'
!$sex_info += '<<$sex_girl_pain[sex["girl_pain"]]>>
'
$sex_info += 'Climax:
'

$sex_master_var = ''
$sex_master_var = '<<$sex_pc_excitement[sex["pc_excitement_state"]]>>
'
$sex_master_var += '<<$sex_pc_energy[sex["pc_energy_state"]]>>
'
$sex_master_var += '<<$sex_pc_interest[sex["pc_interest_state"]]>>
'
$sex_master_var += '<<$sex_pc_boner[pc_boner_plus]>>
'
$sex_master_var += '<<sex["cum_treshold"]>>
'

$sex_slave_var = '
<<$sex_girl_stamina[sex["girl_energy_state"]]>>
'
$sex_slave_var += '<<sex["girl_excitement"]>>
'
if sex["girl_attention"] > 4 or sex["girl_attention"] < 3:
	$sex_slave_var += '      <<sex["girl_attention"]>>
'
else
	$sex_slave_var += '<<sex["girl_attention"]>>
'
end
$sex_slave_var += '<<sex["girl_openmind"]>>
'
!$sex_slave_var += '<<sex["girl_pain"]>>
'
$sex_slave_var += '<<sex["climax_buildup"]>> / <<sex["climax_treshold"]>>
'

*p '
<img src = "<<$master_ava>>">
'
*p '
<img src = "<<$sex["girl_ava"]>>.png">
'

*p '
<img src="content\pic\bg\<<$bg[$place]>>.png">
'
!*p '

'
*p '
<<$intensity_knobs>>
'
*p '
<<$sex_menu>>
'

if ui_style = 2:
	if sound_on = 1:
		*p '

'
	else
		*p '

'
	end
	else
	if sound_on = 1:
		*p '

'
	else
		*p '

'
	end
end

if ui_style = 2:
	*p '

'
else
	*p '

'
end

if sex_num = 100:
	if exam_in_progress = 1:
		*p '

'
		*p '

MUSIC:		<<music_volume>>%
'
		*nl '
SOUND:		<<sound_volume>>%

'
	else
		*p '

'
		*p '

MUSIC:		<<music_volume>>%
'
		*nl '
SOUND:		<<sound_volume>>%

'
	end
end

act '1':
	music_volume -= 10
	if music_volume < 0: music_volume = 0
	gt $curloc
end

act '2':
	music_volume += 10
	if music_volume > 100: music_volume = 100
	gt $curloc
end

act '3':
	if music_volume ! 0:
		rem_music_volume = music_volume
		music_off = 1
		music_volume = 0
	else
		music_volume = rem_music_volume
		music_off = 0
	end
	gt $curloc
end

act '4':
	sound_volume  -= 10
	if sound_volume < 0: sound_volume = 0
	gt $curloc
end

act '5':
	sound_volume += 10
	if sound_volume > 100: sound_volume = 100
	gt $curloc
end

act '6':
	if sound_volume ! 0:
		rem_sound_volume =  sound_volume
		sound_off = 1
		sound_volume = 0
	else
		sound_volume = rem_sound_volume
		sound_off = 0
	end
	gt $curloc
end

$info_bar = ''
*p '

<<$master_name>>

'
*p '

<<$sex["girl_name"]>>

'
*p '
<<$sex_master_stat>>
'
*p '
<<$sex_info>>
'
*p '
<<$sex_master_var>>
'
*p '
<<$sex_slave_var>>
'

!intensity buttons
if sex_num >= 0:
	if intensity = 1:
		*p '

'
	else
		*p '

'
	end
	if intensity = 2:
		*p '

'
	else
		*p '

'
	end
	if intensity = 3:
		*p '

'
	else
		*p '

'
	end
	if intensity = 4:
		*p '

'
	else
		*p '

'
	end
	if intensity = 5:
		*p '

'
	else
		*p '

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

if wizard_mode = 1: $msg_txt = "Итог
" + _
"Новизна: <<sex['girl_newness']>>
" + _
"Старание: <<diligence>>
" + _
"Навык: <<skill>>
" + _
"Качество: <<quality>>
" + _
"Сложность: <<diff>>
" + _
"Баланс: <<balance>>"

--- sex_screen ---------------------------------


code:
# shop_general
!Common interface for selecting options in different places
gs '_layout'

if colosseum_fight > 0:
	gt 'colosseum_fight'
end

if skip_to > 0:
	sp_txt = skip_to
	skip_to = 0
end
npc = 0
$text_display = ''
dynamic $display_options[sp_txt]

if slave_lactation_surgery = 1:
	slave_lactation_surgery = 0
	txt = 2
	npc = 1
	gt 'choice_screen'
end

if not_safe = 1:
	not_safe = 0
	*p '

'
else
	*p '
<img src="content\pic\bg\<<$bg[$place]>>.png">
'
end

if $place = 'gastronom':
	! сразу выводится сумма запасов дома, минус алкоголь(не занимает места?), by Lyazar
	! возможно и не нужно, т.к. впилил подсчет в каждый пункт магаза, но пусть будет
	dynamic $get_fridge_space
	$place_info[$place] = 'CURRENT STOCK [<<fridge_items>>/<<estate_size[$estate]>>]:' + _
	'
Vegetables х<<fridge["vegetables"]>>' + _
	'
Grains and Flour х<<fridge["flower"]>>' + _
	'
Herbs and Spices x<<fridge["spice"]>>' + _
	'
Cheese and Butter x<<fridge["cheese"]>>' + _
	'
Alcohol x<<fridge["alcohol"]>>' + _
	'
Eggs x<<fridge["eggs"]>>' + _
	'
Milk x<<fridge["milk"]>>' + _
	'
Cream x<<fridge["cream"]>>' + _
	'
Mincemeat x<<fridge["mince"]>>' + _
	'
Tenderloin x<<fridge["meat"]>>' + _
	'
Virgin Meat x<<fridge["virgin_meat"]>>'
end

!счетчик мяса будет отображаться когда спускаешься к мяснику
if $place = 'meat':
	dynamic $get_fridge_space
	$place_info[$place] = 'CURRENT STOCK [<<fridge_items>>/<<estate_size[$estate]>>]:' + _
	'
Mincemeat x<<fridge["mince"]>>' + _
	'
Tenderloin x<<fridge["meat"]>>' + _
	'
Virgin Meat x<<fridge["virgin_meat"]>>'
end

if interaction_city = 61120 or interaction_city = 61121:
	$info_bar = $stock_attrib_list
	*p '

<<$place_name[$place]>>
<<$place_location[$place]>>

'
	*p '
<<$info_bar>>
'
elseif npc = 0:
	$info_bar = ''
	*p '

<<$place_name[$place]>>
<<$place_location[$place]>>
'
	*nl 'Information for consideration:
'
	*p '
<<$info_bar>><<$place_info[$place]>>
'
else
	$info_bar = ''
	if nsfw = 0 and $npc_image[$npc_id] ! '': *p '
<img src="content\pic\characters\<<$npc_image[$npc_id]>>.png">
'
	*p '

<<$npc_name[$npc_id]>>
<<$npc_status[$npc_id]>>
'
	*nl 'Information for consideration:
'
	*p '
<<$npc_attitude[npc_attitude[$npc_id]]>>'
	*nl '<<$npc_info[$npc_id]>>
'
end

!cryocenter
if $place = 'stasis_bank_2':
	if iced_1_state ! CONST_INT['no_slave']:
		*p '
<img src = "<<$iced_1[''ava_gray'']>>.png">
Cell №1
'
	else
		*p '

Cell №1
'
	end
	if iced_2_state ! CONST_INT['no_slave']:
		*p '
<img src = "<<$iced_2[''ava_gray'']>>.png">
Cell №2
'
	else
		*p '

Cell №2
'
	end
	if iced_3_state ! CONST_INT['no_slave']:
		*p '
<img src = "<<$iced_3[''ava_gray'']>>.png">
Cell №3
'
	else
		*p '

Cell №3
'
	end
	if cells_unlocked = 1:
		if iced_4_state ! CONST_INT['no_slave']:
			*p '
<img src = "<<$iced_4[''ava_gray'']>>.png">
Cell №4
'
		else
			*p '

Cell №4
'
		end
		if iced_5_state ! CONST_INT['no_slave']:
			*p '
<img src = "<<$iced_5[''ava_gray'']>>.png">
Cell №5
'
		else
			*p '

Cell №5
'
		end
		if iced_6_state ! CONST_INT['no_slave']:
			*p '
<img src = "<<$iced_6[''ava_gray'']>>.png">
Cell №6
'
		else
			*p '

Cell №6
'
		end
	end
end

*p '
<<$sp_text[sp_txt]>>
'
*p '
<<$text_display>>
'
*p '
<<sparks>>$
'

if $place = 'milk_cooperative':
	*p '

'
	*p '

<<milk_price>>$
'
end
if $place = 'milk_cooperative' and milk_can = 1:
	*p '

'
	*p '

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

--- shop_general ---------------------------------


code:
# shop_wpn
gs '_layout'
$npc_id = 'менхантер'
$text_display = ''

if wpn_price > 0 and $item_id ! '':
	interaction_city = 1114
	gt 'interaction_city'
elseif skip_to ! 0:
	if npc = 0: killvar '$text'
	$item_id = ''
	wpn_price = 0
	sp_txt = skip_to
	skip_to = 0
elseif sp_txt = 0:
	killvar '$text' &! this reset is important, do not remove it - ImperatorAugustus
	sp_txt = 1
end

if $bg[$place] ! '': *p '
<img src="content\pic\bg\<<$bg[$place]>>.png">
'

if sp_txt = 1:
	npc = 0 &! clears npc image on transition from interaction_city greeting - ImperatorAugustus
	func('$menu', 'spacer', 3)

	func('$menu', '===BEGIN===', 'column_0')
	func('$menu', 'exec_options', $menu_item_Weapons, 'sp_txt = 2 & gt $curloc', 'Weapons')
	func('$menu', 'exec_options', $menu_item_Armors, 'sp_txt = 3 & gt $curloc', 'Armor')
	func('$menu', 'interaction_city', $menu_item_preferencesarmory, menu_preferencesarmory, 'Check preferences')
	if slave_state = CONST_INT['slave_exist'] and slave['brand'] > 0 and slave['brand'] ! 4:
		func('$menu', 'interaction_city', $menu_item_Offerarmory, menu_Offerarmory, 'Offer a slave')
	else
		func('$menu', 'location_gray_tooltip', $menu_item_Offerarmory_gray, empty, 'Offer a slave', 'You have no branded slave to offer')
	end
	func('$menu', 'city_form', $menu_item_Leavearmory, emptyLeavearmory, 'Leave the shop')
	func('$menu', '===END===')
end

if sp_txt = 2:
	func('$menu', 'spacer', 4)

	func('$menu', '===BEGIN===', 'column_0')
	func('$menu', 'exec_options', $menu_item_Secondary, 'sp_txt = 11 & gt $curloc', 'Secondary')
	func('$menu', 'exec_options', $menu_item_Onehanded, 'sp_txt = 12 & gt $curloc', 'One-Handed')
	func('$menu', 'exec_options', $menu_item_Twohanded, 'sp_txt = 13 & gt $curloc', 'Two-Handed')
	func('$menu', 'exec_options', $menu_item_Backarmoy, 'sp_txt = 1 & gt $curloc', 'Other goods')
	func('$menu', '===END===')
end

if sp_txt = 11:
	func('$menu', 'spacer', 1)

	func('$menu', '===BEGIN===', 'column_0')
	func('$menu', 'exec_options', $menu_item_Stiletto, '$item_id = "стилет" & wpn_price = 10 & skip_to = 11 & gt $curloc', 'Stiletto (10$)')
	func('$menu', 'exec_options', $menu_item_knuckles, '$item_id = "кастет" & wpn_price = 10 & skip_to = 11 & gt $curloc', 'Brass Knuckles (10$)')
	func('$menu', 'exec_options', $menu_item_Stunner, '$item_id = "глушилка" & wpn_price = 10 & skip_to = 11 & gt $curloc', 'Stunner (10$)')
	func('$menu', 'exec_options', $menu_item_Lashbuy, '$item_id = "нагайка" & wpn_price = 10 & skip_to = 11 & gt $curloc', 'Lash (10$)')
	func('$menu', 'exec_options', $menu_item_Daggerbuy, '$item_id = "кинжал" & wpn_price = 15 & skip_to = 11 & gt $curloc', 'Dagger (15$)')
	func('$menu', 'exec_options', $menu_item_cleaver, '$item_id = "тесак" & wpn_price = 20 & skip_to = 11 & gt $curloc', 'Butcher’s Cleaver (20$)')
	func('$menu', 'exec_options', $menu_item_Backarmoy, 'sp_txt = 2 & gt $curloc', 'Back')
	func('$menu', '===END===')
end

if sp_txt = 12:
	func('$menu', 'spacer', 3)

	func('$menu', '===BEGIN===', 'column_0')
	func('$menu', 'exec_options', $menu_item_Baton, '$item_id = "демократизатор" & wpn_price = 25 & skip_to = 12 & gt $curloc', 'Baton (25$)')
	func('$menu', 'exec_options', $menu_item_Rapier, '$item_id = "рапира" & wpn_price = 50 & skip_to = 12 & gt $curloc', 'Rapier (50$)')
	func('$menu', 'exec_options', $menu_item_Koncerz, '$item_id = "кончар" & wpn_price = 50 & skip_to = 12 & gt $curloc', 'Koncerz (50$)')
	func('$menu', 'exec_options', $menu_item_Whipbuy, '$item_id = "кнут" & wpn_price = 50 & skip_to = 12 & gt $curloc', 'Whip (50$)')
	func('$menu', 'exec_options', $menu_item_Epee, '$item_id = "шпага" & wpn_price = 50 & skip_to = 12 & gt $curloc', 'Epee (50$)')
	func('$menu', 'exec_options', $menu_item_Backarmoy, 'sp_txt = 2 & gt $curloc', 'Back')
	func('$menu', '===END===')

	func('$menu', '===BEGIN===', 'column_1')
	func('$menu', 'exec_options', $menu_item_Gladius, '$item_id = "гладиус" & wpn_price = 50 & skip_to = 12 & gt $curloc', 'Gladius (50$)')
	func('$menu', 'exec_options', $menu_item_Machete, '$item_id = "мачете" & wpn_price = 50 & skip_to = 12 & gt $curloc', 'Machete (50$)')
	func('$menu', 'exec_options', $menu_item_Bastardsword, '$item_id = "бастард" & wpn_price = 100 & skip_to = 12 & gt $curloc', 'Bastard Sword (100$)')
	func('$menu', 'exec_options', $menu_item_Katana, '$item_id = "катана" & wpn_price = 100 & skip_to = 12 & gt $curloc', 'Katana (100$)')
	func('$menu', 'exec_options', $menu_item_Trident, '$item_id = "трезубец" & wpn_price = 100 & skip_to = 12 & gt $curloc', 'Trident (100$)')
	func('$menu', 'exec_options', $menu_item_Mace, '$item_id = "мулава" & wpn_price = 100 & skip_to = 12 & gt $curloc', 'Mace (100$)')
	func('$menu', '===END===')
end

if sp_txt = 13:
	func('$menu', 'spacer', 1)

	func('$menu', '===BEGIN===', 'column_0')
	func('$menu', 'exec_options', $menu_item_Baseballbat, '$item_id = "бита" & wpn_price = 100 & skip_to = 13 & gt $curloc', 'Baseball Bat (100$)')
	func('$menu', 'exec_options', $menu_item_Cattleprod, '$item_id = "скотобой" & wpn_price = 150 & skip_to = 13 & gt $curloc', 'Cattle Prod (150$)')
	func('$menu', 'exec_options', $menu_item_Greataxe, '$item_id = "грейтекс" & wpn_price = 150 & skip_to = 13 & gt $curloc', 'Greataxe (150$)')
	func('$menu', 'exec_options', $menu_item_Flamberge, '$item_id = "фламберг" & wpn_price = 200 & skip_to = 13 & gt $curloc', 'Flamberge (200$)')
	func('$menu', 'exec_options', $menu_item_Naginata, '$item_id = "нагината" & wpn_price = 200 & skip_to = 13 & gt $curloc', 'Naginata (200$)')
	func('$menu', 'exec_options', $menu_item_Morningstar, '$item_id = "моргенштерн" & wpn_price = 200 & skip_to = 13 & gt $curloc', 'Morningstar (200$)')
	func('$menu', 'exec_options', $menu_item_Backarmoy, 'sp_txt = 2 & gt $curloc', 'Back')
	func('$menu', '===END===')
end

if sp_txt = 3:
	func('$menu', 'spacer', 2)

	func('$menu', '===BEGIN===', 'column_0')
	func('$menu', 'exec_options', $menu_item_Aramid, '$item_id = "комбез" & wpn_price = 100 & skip_to = 3 & gt $curloc', 'Aramid Suit (100$)')
	func('$menu', 'exec_options', $menu_item_Leather, '$item_id = "кожан" & wpn_price = 200 & skip_to = 3 & gt $curloc', 'Leather Armor (200$)')
	func('$menu', 'exec_options', $menu_item_Elven, '$item_id = "эльчуга" & wpn_price = 250 & skip_to = 3 & gt $curloc', 'Elven Chainmail (250$)')
	func('$menu', 'exec_options', $menu_item_Yatserin, '$item_id = "ячуга" & wpn_price = 300 & skip_to = 3 & gt $curloc', 'Yatserin Mail (300$)')
	func('$menu', 'exec_options', $menu_item_Combined, '$item_id = "полудоспех" & wpn_price = 800 & skip_to = 3 & gt $curloc', 'Combined Armor (800$)')
	func('$menu', 'exec_options', $menu_item_Gothicbuy, '$item_id = "плейт" & wpn_price = 1000 & skip_to = 3 & gt $curloc', 'Gothic Plate (1000$)')
	func('$menu', 'exec_options', $menu_item_Backarmoy, 'sp_txt = 1 & gt $curloc', 'Other goods')
	func('$menu', '===END===')
end

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

<<$place_name[$place]>>
<<$place_location[$place]>>
'
	*nl 'Information for consideration:
'
	*p '
<<$place_info[$place]>>
'
else
	$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:
'

	*p '
<<$npc_attitude[npc_attitude[$npc_id]]>>'
	*nl '<<$npc_info[$npc_id]>>
'
end

! must display npc bg image before menu 999 to avoid overwriting menu with npc image when 999 has npc = 1

if sp_txt = 999:
	func('$menu', 'spacer', 1)

	func('$menu', '===BEGIN===', 'column_0')
	func('$menu', 'exec_options', $menu_item_Backarmoy, 'sp_txt = 0 & gt $curloc', 'Look at other goods')
	func('$menu', 'city_form', $menu_item_Leavearmory, emptyLeavearmory, 'Leave the shop')
	func('$menu', '===END===')
end

!if sp_txt = 4:
! $text_display += {

- Look at my merchandise!

}
! $text_display += {

- Tell me in detail what do you expect?

}
!end

!*p '

'
*p '
<<$text[txt]>>
'
*p '
<<$text_display>>
'
*p '
<<sparks>>$
'

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

--- shop_wpn ---------------------------------


code:
# sjm_UI_UIadds
if inventory['stethoscope'] < 1: inventory['stethoscope'] = 0

!-------------------------------------------- Slave Management - Start ------------------------------------------------------
if is_home = 1 and slave_state > CONST_INT['no_slave']:
	$tmp = '

'

	if slave['virginity'] < 2:
		$tmp += '

'
	else
		$tmp += '

'
	end
	if slave['fertility'] < 0:
		if slave['fertility_revealed'] > 0 and (slave['fertility'] = -1 or slave['fertility'] = -3):
			$tmp += '

'
		elseif slave['fertility'] = -2:
			$tmp += '

'
		else
			$tmp += '

'
		end
	elseif slave['fertility'] = 1:
		if slave['fertility_revealed'] > 0:
			$tmp += '

'
		else
			$tmp += '

'
		end
	else
		$tmp += '

'
	end
	if slave['arousal'] = 0:
		$tmp += '

'
	elseif slave['arousal'] = 1:
		$tmp += '

'
	elseif slave['arousal'] = 2:
		$tmp += '

'
	elseif slave['arousal'] = 3:
		$tmp += '

'
	elseif slave['arousal'] = 4:
		$tmp += '

'
	elseif slave['arousal'] = 5:
		$tmp += '

'
	end
	if slave['lactation'] > 0:
		$tmp += '

'
	else
		$tmp += '

'
	end
	if slave['brand'] = 4:
		$tmp += '

'
	elseif slave['brand'] = 3:
		$tmp += '<div style="display:inline-block;position:relative;" class="tooltip-left" tooltip-data="Magical Brand of <<$master_name>>">
'
	elseif slave['brand'] = 2:
		$tmp += '<div style="display:inline-block;position:relative;" class="tooltip-left" tooltip-data="Tattoo of <<$master_name>>’s Brand">
'
	elseif slave['brand'] = 1:
		$tmp += '

'
	else
		$tmp += '

'
	end
	*p '
<<$tmp>>
'

	!----------------------- Cautious: the goal is just to inform the player of a risk, not more here
	if inventory['stethoscope'] ! 0:
		if slave['parasite'] > 0:
			if master_medic > 3 or assistant['nurse'] > 3:
				*p '<div id="slinfo_pregnant_risk" class="tooltip-left" tooltip-data="It seems there is a risk that <<$slave_name>> is pregnant!">
'
			end
		else
			if slave['pregnant'] > 0 and slave['vaginal_modification'] ! 4 and slave['fertility'] = 0:
				if slave['pregnant_revealed'] > 0:
					*p '<div id="slinfo_pregnant_risk" class="tooltip-left" tooltip-data="It seems there is a risk that <<$slave_name>> is pregnant!">
'
				end
			end
		end
		if slave['ill'] ! 0:
			if master_medic > 2 or assistant['nurse'] > 2:
				*p '<div id="slinfo_pregnant_risk" class="tooltip-left" tooltip-data="It seems that <<$slave_name>> is ill!">
'
			end
		end
	end
	if slave['wounds'] > 0:
		*p '<div id="slinfo_pregnant_risk" class="tooltip-left" tooltip-data="<<$slave_name>> is wounded!">
'
	end
end
! also show rating outside
if slave_state > CONST_INT['no_slave']:
	gs '$slave_price', 'slave' &! update $rating and rating to represent slave so we can put the correct rank on the button (and when clicked, we will do it again to populate $rating_help for the assistant)
	*p '
<<$rating[rating]>>
'
end
!-------------------------------------------- Slave Management - End ------------------------------------------------------

!-------------------------------------------- Assistant Management - Start ------------------------------------------------------
if is_home = 1 and assistant_state > CONST_INT['no_slave']:
	$tmp = '

'
	if assistant['virginity'] < 2:
		$tmp += '

'
	else
		$tmp += '

'
	end
	if assistant['fertility'] < 0:
		if assistant['fertility_revealed'] > 0 and (assistant['fertility'] = -1 or assistant['fertility'] = -3):
			$tmp += '

'
		elseif assistant['fertility'] = -2:
			$tmp += '

'
		elseif assistant['fertility'] = -3:
			$tmp += '

'
		else
			$tmp += '

'
		end
	elseif assistant['fertility'] = 1:
		if assistant['fertility_revealed'] > 0:
			$tmp += '

'
		else
			$tmp += '

'
		end
	else
		$tmp += '

'
	end
	if assistant['arousal'] = 0:
		$tmp += '

'
	elseif assistant['arousal'] = 1:
		$tmp += '

'
	elseif assistant['arousal'] = 2:
		$tmp += '

'
	elseif assistant['arousal'] = 3:
		$tmp += '

'
	elseif assistant['arousal'] = 4:
		$tmp += '

'
	elseif assistant['arousal'] = 5:
		$tmp += '

'
	end
	if assistant['lactation'] > 0:
		$tmp += '

'
	else
		$tmp += '

'
	end
	if assistant['brand'] = 4:
		$tmp += '

'
	elseif assistant['brand'] = 3:
		$tmp += '<div style="display:inline-block;position:relative;" class="tooltip-left" tooltip-data="Magical Brand of <<$master_name>>">
'
	elseif assistant['brand'] = 2:
		$tmp += '<div style="display:inline-block;position:relative;" class="tooltip-left" tooltip-data="Tattoo of <<$master_name>>’s Brand">
'
	elseif assistant['brand'] = 1:
		$tmp += '

'
	else
		$tmp += '

'
	end
	*p '
<<$tmp>>
'
	!----------------------- Cautious: the goal is just to inform the player of a risk, not more here
	if inventory['stethoscope'] ! 0:
		if assistant['parasite'] > 0:
			if master_medic > 3 or assistant['nurse'] > 3:
				*p '<div id = "asinfo_pregnant_risk" class="tooltip-left" tooltip-data="It seems there is a risk that <<$assistant_name>> is pregnant!">
'
			end
		elseif assistant['pregnant'] > 0 and assistant['vaginal_modification'] ! 4 and assistant['fertility'] = 0:
			if assistant['pregnant_revealed'] > 0:
				*p '<div id = "asinfo_pregnant_risk" class="tooltip-left" tooltip-data="It seems there is a risk that <<$assistant_name>> is pregnant!">
'
			end
		end
		if assistant['ill'] ! 0:
			if master_medic > 2 or assistant['nurse'] > 2:
				*p '<div id = "asinfo_pregnant_risk" class="tooltip-left" tooltip-data="It seems that <<$assistant_name>> is ill!">
'
			end
		end
	end
	if assistant['wounds'] > 0:
		*p '<div id = "asinfo_pregnant_risk" class="tooltip-left" tooltip-data="<<$assistant_name>> is wounded!">
'
	end
end
! also show rating outside
if assistant_state > CONST_INT['no_slave']:
	gs '$slave_price', 'assistant' &! update $rating and rating to represent assistant so we can put the correct rank on the button (and when clicked, we will do it again to populate $rating_help for the assistant)
	*p '
<<$rating[rating]>>
'
end
!-------------------------------------------- Assistant Management - End ------------------------------------------------------

!-------------------------------------------- Master Management - Start ------------------------------------------------------
if master_wounds ! 0:
	*p '<div id = "master_info_wounds" class="tooltip-left" tooltip-data="It seems that <<$master_name>> is wounded!">
'
end
if master_ill ! 0:
	if master_medic > 2 or assistant['nurse'] > 2:
		*p '<div id = "master_info_wounds" class="tooltip-left" tooltip-data="It seems that <<$master_name>> is ill!">
'
	end
end
!-------------------------------------------- Master Management - end ------------------------------------------------------

! Showing quarters buttons
if $quick_move_action = "show":
	$tmp = '
'
!	$tmp += '
Travel
'
	$tmp += 'Travel'

		$tmp += ''
		$tmp += ''
		$tmp += ''
		$tmp += ''
		$tmp += ''
		$tmp += ''
!if the below line is enabled, update qm_block definition in css to increase height from 180px to 205px
!		$tmp += '
'

	$tmp += '
'
	*p '<<$tmp>>'
end

! Action of quarters buttons
if $quick_move_action = "go":
	dynamic $transport_energy_drop
	if is_home = 1 and sound_on = 1:
		play 'content/snd/door.wav'
	end
	!gs '$newloc'
	gt 'city_menu_form'
end

--- sjm_UI_UIadds ---------------------------------


code:
# sjm_UI_UIadds_buystethoscope

if inventory['stethoscope'] < 1: inventory['stethoscope'] = 0
inventory['stethoscope'] += 1
sparks -= 100
if sound_on = 1: play $large_money_sound, sound_volume
copyarr '$display_options', '$hospital_options'
gt 'shop_general'

--- sjm_UI_UIadds_buystethoscope ---------------------------------