code:
# interaction_city
!INTERACTIONS IN CITY

gs '#txt'
gs '#txt_2'

killvar '$text'
killvar 'play_sound'
killvar '$sp_text'
killvar '$special_image'
killvar '$special_image_full'
killvar '$special_action'
killvar '$bg_path'

$special_part = ''
$bg_path = ''
$special_text = ''
$picture_type = ''

npc = 0
if wpn_price = 0: skip_to = 0 &! do not reset skip_to when coming here from shop_wpn - ImperatorAugustus
multiple = 0

if sp_txt_is_set_from_save = 0: sp_txt = 1
sl_txt = 1
txt = 1
$msg_txt = ''

arena_mode = 0
buyer_interested = 0
charm_demand = 0
no_charm_check = 0
fixed_brand_rise = 0
noprice = 0
lord_spectre_offer = 0
lord_spectre_agreed = 1
item_qty = 1

$interaction_type = 'basic'

if interaction_city = 111:
	npc = 1
	$npc_id = 'менхантер'
	wpn_price = 0
	$place = 'shop_wpn'
	$text[1] = '  You enter Manhunter’s shop. The owner greets you with his trademark crooked smile.'
	$return_lock = 'shop_wpn'
	skip_to = 1
end

if interaction_city = 1111:
	npc = 1
	$npc_id = 'менхантер'
	$place = 'shop_wpn'
	$return_lock = 'shop_wpn'
	copyarr '$text', '$manhunter_talk'
end

if interaction_city = 1112:
	$place = 'shop_wpn'
	$return_lock = 'shop_wpn'
	if no_slave_count['менхантер'] > 0:
		interaction_city = 1113
	else
		gt 'slave_sell'
	end
end

if interaction_city = 1113:
	npc = 1
	$npc_id = 'менхантер'
	$place = 'shop_wpn'
	$return_lock = 'shop_wpn'
	$text[1] = '  [MANHUNTER]
- Sorry, <<$master_name>>, but I’m not interested now. I’ve recently bought one. Come back in <<no_slave_count[''менхантер'']>> days, and then we will talk about your product. In the meantime, it is better to take a look at mine!'
end

if interaction_city = 1114:
	npc = 1
	$npc_id = 'менхантер'
	$place = 'shop_wpn'
	$return_lock = 'shop_wpn'
	$interaction_type = 'buy_item_personal'
end

if interaction_city = 117:
	$place = 'slave_stage'
	$return_lock = 'city_screen'
	gt 'slave_auction_buy'
end

if interaction_city = 112:
	$place = 'guild_hall'
	$guild[0] = '  You enter your guildhall. The slave trade in the Eternal Rome is booming, and the interior of the headquarters only emphasizes it. The facilities are very spacious and the furniture is comfortable and richly decorated.'
	$return_lock = 'guild'
	gt 'guild'
end

if interaction_city = 113:
	$place = 'boutique'
	$return_lock = 'shop_general'
	$sp_text[1] = '  In the boutique you can purchase a variety of clothing and footwear.'
	copyarr '$display_options', '$boutique_options'
	gt 'shop_general'
end

if interaction_city = 11361:
	npc = 1
	$npc_id = 'servilia_quinta'
	$place = 'boutique'
	$return_lock = 'shop_general'
	copyarr '$text', '$quinta_pref'
end

if interaction_city = 11362:
	npc = 1
	$npc_id = 'servilia_quinta'
	$place = 'boutique'
	$return_lock = 'shop_general'
	if no_slave_count['servilia_quinta'] < 1:
		gt 'slave_sell'
	else
		interaction_city = 11363
	end
end

if interaction_city = 11363:
	npc = 1
	$npc_id = 'servilia_quinta'
	$place = 'boutique'
	$return_lock = 'shop_general'
	$text[1] = '  [SERVILIA QUINT]
- Maybe I’ll be interested later <<$master_name>>. Currently, new workers are not required.'
end

if interaction_city = 11311:
	$place = 'boutique'
	$return_lock = 'shop_general' & skip_to = 2
	$interaction_type = 'buy_item'
	$item_id = 'common_apron'
end

if interaction_city = 11312:
	$place = 'boutique'
	$return_lock = 'shop_general' & skip_to = 2
	$interaction_type = 'buy_item'
	$item_id = 'maid_dress'
end

if interaction_city = 11313:
	$place = 'boutique'
	$return_lock = 'shop_general' & skip_to = 2
	$interaction_type = 'buy_item'
	$item_id = 'nurse_dress'
end

if interaction_city = 11314:
	$place = 'boutique'
	$return_lock = 'shop_general' & skip_to = 2
	$interaction_type = 'buy_item'
	$item_id = 'enchanter_robe'
end

if interaction_city = 11315:
	$place = 'boutique'
	$return_lock = 'shop_general' & skip_to = 2
	$interaction_type = 'buy_item'
	$item_id = 'leotard'
end

if interaction_city = 11316:
	$place = 'boutique'
	$return_lock = 'shop_general' & skip_to = 2
	$interaction_type = 'buy_item'
	$item_id = 'chainmail_bikini'
end

if interaction_city = 11317:
	$place = 'boutique'
	$return_lock = 'shop_general' & skip_to = 2
	$interaction_type = 'buy_item'
	$item_id = 'ukata'
end

if interaction_city = 11319:
	$place = 'boutique'
	$return_lock = 'shop_general' & skip_to = 2
	$interaction_type = 'buy_item'
	$item_id = 'ukata'
end

if interaction_city = 11318:
	$place = 'boutique'
	$return_lock = 'shop_general' & skip_to = 2
	$interaction_type = 'buy_item'
	$item_id = 'sailor_foku'
end

if interaction_city = 11321:
	$place = 'boutique'
	$return_lock = 'shop_general' & skip_to = 3
	$interaction_type = 'buy_item'
	$item_id = 'sun_dress'
end

if interaction_city = 11322:
	$place = 'boutique'
	$return_lock = 'shop_general' & skip_to = 3
	$interaction_type = 'buy_item'
	$item_id = 'laced_underwear'
end

if interaction_city = 11323:
	$place = 'boutique'
	$return_lock = 'shop_general' & skip_to = 3
	$interaction_type = 'buy_item'
	$item_id = 'cocktail_dress'
end

if interaction_city = 11324:
	$place = 'boutique'
	$return_lock = 'shop_general' & skip_to = 3
	$interaction_type = 'buy_item'
	$item_id = 'rubber_dress'
end

if interaction_city = 11325:
	$place = 'boutique'
	$return_lock = 'shop_general' & skip_to = 3
	$interaction_type = 'buy_item'
	$item_id = 'bellydance'
end

if interaction_city = 11326:
	$place = 'boutique'
	$return_lock = 'shop_general' & skip_to = 3
	$interaction_type = 'buy_item'
	$item_id = 'leather_corset'
end

if interaction_city = 11327:
	$place = 'boutique'
	$return_lock = 'shop_general' & skip_to = 3
	$interaction_type = 'buy_item'
	$item_id = 'wedding_dress'
end

if interaction_city = 11328:
	$place = 'boutique'
	$return_lock = 'shop_general' & skip_to = 3
	$interaction_type = 'buy_item'
	$item_id = 'rich_dress'
end

if interaction_city = 11331:
	$place = 'boutique'
	$return_lock = 'shop_general' & skip_to = 4
	$interaction_type = 'buy_item'
	$item_id = 'rubber_gloves'
end

if interaction_city = 11332:
	$place = 'boutique'
	$return_lock = 'shop_general' & skip_to = 4
	$interaction_type = 'buy_item'
	$item_id = 'laced_gloves'
end

if interaction_city = 11333:
	$place = 'boutique'
	$return_lock = 'shop_general' & skip_to = 4
	$interaction_type = 'buy_item'
	$item_id = 'plastic_bracers'
end

if interaction_city = 11334:
	$place = 'boutique'
	$return_lock = 'shop_general' & skip_to = 4
	$interaction_type = 'buy_item'
	$item_id = 'fluffy_gloves'
end

if interaction_city = 11335:
	$place = 'boutique'
	$return_lock = 'shop_general' & skip_to = 4
	$interaction_type = 'buy_item'
	$item_id = 'leather_gloves'
end

if interaction_city = 11341:
	$place = 'boutique'
	$return_lock = 'shop_general' & skip_to = 5
	$interaction_type = 'buy_item'
	$item_id = 'tabi'
end

if interaction_city = 11342:
	$place = 'boutique'
	$return_lock = 'shop_general' & skip_to = 5
	$interaction_type = 'buy_item'
	$item_id = 'fluffy_stepins'
end

if interaction_city = 11343:
	$place = 'boutique'
	$return_lock = 'shop_general' & skip_to = 5
	$interaction_type = 'buy_item'
	$item_id = 'pointes'
end

if interaction_city = 11344:
	$place = 'boutique'
	$return_lock = 'shop_general' & skip_to = 5
	$interaction_type = 'buy_item'
	$item_id = 'sneakers'
end

if interaction_city = 11345:
	$place = 'boutique'
	$return_lock = 'shop_general' & skip_to = 5
	$interaction_type = 'buy_item'
	$item_id = 'high_heels'
end

if interaction_city = 11346:
	$place = 'boutique'
	$return_lock = 'shop_general' & skip_to = 5
	$interaction_type = 'buy_item'
	$item_id = 'high_boots'
end

if interaction_city = 11351:
	$place = 'boutique'
	$return_lock = 'shop_general' & skip_to = 6
	$interaction_type = 'buy_item_personal'
	$item_id = 'formal_suit'
	multiple = 1
end

if interaction_city = 11352:
	$place = 'boutique'
	$return_lock = 'shop_general' & skip_to = 6
	$interaction_type = 'buy_item_personal'
	$item_id = 'medic_robes'
	multiple = 1
end

if interaction_city = 11353:
	$place = 'boutique'
	$return_lock = 'shop_general' & skip_to = 6
	$interaction_type = 'buy_item_personal'
	$item_id = 'wizard_robes'
	multiple = 1
end

if interaction_city = 11354:
	$place = 'boutique'
	$return_lock = 'shop_general' & skip_to = 6
	$interaction_type = 'buy_item_personal'
	$item_id = 'comfy_robes'
	multiple = 1
end

if interaction_city = 11355:
	$place = 'boutique'
	$return_lock = 'shop_general' & skip_to = 6
	$interaction_type = 'buy_item_personal'
	$item_id = 'fancy_suit'
	multiple = 1
end

if interaction_city = 11356:
	$place = 'boutique'
	$return_lock = 'shop_general' & skip_to = 6
	$interaction_type = 'buy_item_personal'
	$item_id = 'aketon'
	multiple = 1
end

if interaction_city = 11357:
	$place = 'boutique'
	$return_lock = 'shop_general' & skip_to = 6
	$interaction_type = 'buy_item_personal'
	$item_id = 'livery'
	multiple = 1
end

if interaction_city = 11358:
	$place = 'boutique'
	$return_lock = 'shop_general' & skip_to = 6
	$interaction_type = 'buy_item_personal'
	$item_id = 'regal_suit'
	multiple = 1
end

!JEWELER SHOP
if interaction_city = 114:
	$place = 'jeweler'
	$return_lock = 'shop_general'
	$sp_text[1] = ''
	copyarr '$display_options', '$jeweler_options'
	gt 'shop_general'
end

if interaction_city = 11441:
	npc = 1
	$npc_id = 'azura'
	$place = 'jeweler'
	$return_lock = 'shop_general'
	copyarr '$text', '$azura_pref'
end

if interaction_city = 11442:
	npc = 1
	$npc_id = 'azura'
	$place = 'jeweler'
	$return_lock = 'shop_general'
	if no_slave_count['azura'] < 1:
		gt 'slave_sell'
	else
		interaction_city = 11443
	end
end

if interaction_city = 11443:
	npc = 1
	$npc_id = 'azura'
	$place = 'jeweler'
	$return_lock = 'shop_general'
	$text[1] = '  [ASHURA]
- Thank you, <<$master_name>>, but my shop is not very big. I don’t require new workers very often at all, but stop back after some time, you never know.'
end

if interaction_city = 11411:
	$place = 'jeweler'
	$return_lock = 'shop_general' & skip_to = 2
	$interaction_type = 'buy_item'
	$item_id = 'plain_ring'
end

if interaction_city = 11412:
	$place = 'jeweler'
	$return_lock = 'shop_general' & skip_to = 2
	$interaction_type = 'buy_item'
	$item_id = 'plain_earrings'
	item_qty = 1
end

if interaction_city = 11413:
	$place = 'jeweler'
	$return_lock = 'shop_general' & skip_to = 2
	$interaction_type = 'buy_item'
	$item_id = 'plain_pendant'
end

if interaction_city = 11414:
	$place = 'jeweler'
	$return_lock = 'shop_general' & skip_to = 2
	$interaction_type = 'buy_item'
	$item_id = 'plain_tiara'
end

if interaction_city = 11415:
	$place = 'jeweler'
	$return_lock = 'shop_general' & skip_to = 2
	$interaction_type = 'buy_item'
	$item_id = 'incrusted_ring'
end

if interaction_city = 11416:
	$place = 'jeweler'
	$return_lock = 'shop_general' & skip_to = 2
	$interaction_type = 'buy_item'
	$item_id = 'incrusted_earrings'
	item_qty = 1
end

if interaction_city = 11417:
	$place = 'jeweler'
	$return_lock = 'shop_general' & skip_to = 2
	$interaction_type = 'buy_item'
	$item_id = 'incrusted_necklace'
end

if interaction_city = 11418:
	$place = 'jeweler'
	$return_lock = 'shop_general' & skip_to = 2
	$interaction_type = 'buy_item'
	$item_id = 'incrusted_tiara'
end

if interaction_city = 11419:
	$place = 'jeweler'
	$return_lock = 'shop_general' & skip_to = 2
	$interaction_type = 'buy_item'
	$item_id = 'heavy_gauge_rings'
	item_qty = 7
end

if interaction_city = 11420:
	$place = 'jeweler'
	$return_lock = 'shop_general' & skip_to = 2
	$interaction_type = 'buy_item'
	$item_id = 'barbells'
	item_qty = 2
end

if interaction_city = 11431:
	$place = 'jeweler'
	$return_lock = 'shop_general' & skip_to = 4
	$interaction_type = 'buy_item'
	$item_id = 'plain_headband'
end

if interaction_city = 11432:
	$place = 'jeweler'
	$return_lock = 'shop_general' & skip_to = 4
	$interaction_type = 'buy_item'
	$item_id = 'glasses'
end

if interaction_city = 11433:
	$place = 'jeweler'
	$return_lock = 'shop_general' & skip_to = 4
	$interaction_type = 'buy_item'
	$item_id = 'nekomimi'
end

if interaction_city = 11434:
	$place = 'jeweler'
	$return_lock = 'shop_general' & skip_to = 4
	$interaction_type = 'buy_item'
	$item_id = 'golden_collar'
end

if interaction_city = 11435:
	$place = 'jeweler'
	$return_lock = 'shop_general' & skip_to = 4
	$interaction_type = 'buy_item'
	$item_id = 'hairnet'
end

if interaction_city = 11436:
	$place = 'jeweler'
	$return_lock = 'shop_general' & skip_to = 4
	$interaction_type = 'buy_item'
	$item_id = 'exotic_wig'
end

if interaction_city = 11437:
	$place = 'jeweler'
	$return_lock = 'shop_general' & skip_to = 4
	$interaction_type = 'buy_item'
	$item_id = 'hijab'
end

!Продуктовый магазин
if interaction_city = 115:
	$place = 'gastronom'
	$return_lock = 'shop_general'
	$sp_text[1] = ''
	copyarr '$display_options', '$gastronom_options'
	gt 'shop_general'
end

if interaction_city = 11521:
	$place = 'gastronom'
	$return_lock = 'shop_general'
	sparks -= 10
	fridge['eggs'] += 5
	skip_to = 2
	if sound_on = 1: play $small_money_sound, sound_volume
	gt 'shop_general'
end

if interaction_city = 11522:
	$place = 'gastronom'
	$return_lock = 'shop_general'
	sparks -= 20
	fridge['milk'] += 5
	skip_to = 2
	if sound_on = 1: play $small_money_sound, sound_volume
	gt 'shop_general'
end

if interaction_city = 11523:
	$place = 'gastronom'
	$return_lock = 'shop_general'
	sparks -= 20
	fridge['cream'] += 5
	skip_to = 2
	if sound_on = 1: play $small_money_sound, sound_volume
	gt 'shop_general'
end

if interaction_city = 11524:
	$place = 'gastronom'
	$return_lock = 'shop_general'
	sparks -= 5
	fridge['cheese'] += 5
	skip_to = 2
	if sound_on = 1: play $small_money_sound, sound_volume
	gt 'shop_general'
end

if interaction_city = 11531:
	$place = 'gastronom'
	$return_lock = 'shop_general'
	sparks -= 5
	fridge['vegetables'] += 5
	skip_to = 3
	if sound_on = 1: play $small_money_sound, sound_volume
	gt 'shop_general'
end

if interaction_city = 11532:
	$place = 'gastronom'
	$return_lock = 'shop_general'
	sparks -= 5
	fridge['flower'] += 5
	skip_to = 3
	if sound_on = 1: play $small_money_sound, sound_volume
	gt 'shop_general'
end

if interaction_city = 11533:
	$place = 'gastronom'
	$return_lock = 'shop_general'
	sparks -= 5
	fridge['spice'] += 5
	skip_to = 3
	if sound_on = 1: play $small_money_sound, sound_volume
	gt 'shop_general'
end

if interaction_city = 11534:
	$place = 'gastronom'
	$return_lock = 'shop_general'
	sparks -= 10
	fridge['alcohol'] += 5
	skip_to = 3
	if sound_on = 1: play $small_money_sound, sound_volume
	gt 'shop_general'
end

if interaction_city = 11541:
	$place = 'gastronom'
	$return_lock = 'shop_general'
	sparks -= 7
	fridge['mince'] += 5
	skip_to = 4
	if sound_on = 1: play $small_money_sound, sound_volume
	gt 'shop_general'
end

if interaction_city = 11542:
	$place = 'gastronom'
	$return_lock = 'shop_general'
	sparks -= 20
	fridge['meat'] += 5
	skip_to = 4
	if sound_on = 1: play $small_money_sound, sound_volume
	gt 'shop_general'
end

if interaction_city = 11544:
	npc = 1
	$npc_id = 'butcher'
	if nsfw = 1: not_safe = 1
	$place = 'slaughter'
	$return_lock = 'shop_general'
	slave['threat_death'] = 0
	dynamic $replace($dyn_meat_evaluation, 'dyn'+'slave', 'slave')
	$text[1] = '  [The Butcher]
- Good. I’ll take her for <<meat_price>> sparks.'
	$yes = {
		interaction_city = 115441
		gt 'interaction_city'
	}
	$no = {
		sp_txt = 4
		gt 'shop_general'
	}
	gt 'choice_screen'
end

if interaction_city = 115441:
	npc = 1
	$npc_id = 'butcher'
	if nsfw = 1: not_safe = 1
	$place = 'slaughter'
	$return_lock = 'shop_general'
	sparks += meat_price
	$special_image[1] = 'scene\slaughter_work2.png'
	$play_sound[1] = $slaughter_sound
	$text[1] = '  The butcher ruthlessly takes the girl by the hair, pulling her head back to slice her throat wide open with a knife. Choking on her own blood, <<$slave_name>> twitches in his hands, but her life quickly fades. The butcher hangs her carcass on a hook to bleed, and you receive your sparks.'
	dynamic $clear_slave_instance, 'slave'
end

if interaction_city = 11545:
	npc = 1
	$npc_id = 'butcher'
	if nsfw = 1: not_safe = 1
	$place = 'slaughter'
	$return_lock = 'shop_general'
	slave['threat_death'] = 0
	dynamic $replace($dyn_meat_evaluation, 'dyn'+'slave', 'slave')
	$text[1] = '  [The Butcher]
- You know I’ve been doing this job for many years, but I still really enjoy my work so I’ll only charge you five sparks for the job. Skin, offal and head will be mine, too. The rest will be yours.'
	$yes = {
		interaction_city = 115451
		gt 'interaction_city'
	}
	$no = {
		sp_txt = 4
		gt 'shop_general'
	}
	gt 'choice_screen'
end

if interaction_city = 115451:
	npc = 1
	$npc_id = 'butcher'
	if nsfw = 1: not_safe = 1
	$place = 'slaughter'
	$return_lock = 'shop_general'
	sparks -= 5
	$play_sound[1] = $slaughter_sound
	$text[1] = '  The butcher ruthlessly takes the girl by the hair, pulling her head back to slice her throat wide open with a knife. Choking on her own blood, <<$slave_name>> twitches in his hands, but her life quickly fades.'
	$text[2] = '  After bleeding the carcass from a hook for a while, the butcher takes a special curved knife and skins the body. Then, he chops the carcass into pieces with a huge cleaver. The best tenderloin is cut into portions, and the more fatty meat is minced through a large grinder.'
	$text[3] = '  After about two hours you get your slave back, neatly packed in sealed plastic bags.
 Content of the bags:
'
	if virgin_meat_gain > 0: $text[3] += 'Delicate virgin meat: <<virgin_meat_gain>> portions.
'
	if meat_gain > 0: $text[3] += 'Best tenderloin: <<meat_gain>> portions.
'
	if mince_gain > 0: $text[3] += 'Greasy mince: <<mince_gain>> portions. '
	decade_mince += mince_gain
	decade_meat += meat_gain
	decade_virgin += virgin_meat_gain
	$special_image[1] = 'scene\slaughter_work_start'
	g = rand(1, picMax['slaughter_work_start'])
	if g > 1: $special_image[1] += '_' + $str(g)
	$special_image[1] += ".png"
	$special_image[2] = 'scene\slaughter_work_end'
	g = rand(1, picMax['slaughter_work_end'])
	if g > 1: $special_image[2] += '_' + $str(g)
	$special_image[2] += ".png"
	$special_image[3] = 'scene\slaughter_result'
	g = rand(1, picMax['slaughter_result'])
	if g > 1: $special_image[3] += '_' + $str(g)
	$special_image[3] += ".png"
	dynamic $clear_slave_instance, 'slave'
	dynamic $get_meat
end

if interaction_city = 11591:
	npc = 1
	$npc_id = 'kagami_san'
	$place = 'gastronom'
	$return_lock = 'shop_general'
	copyarr '$text', '$kagami_pref'
end

if interaction_city = 11592:
	npc = 1
	$npc_id = 'kagami_san'
	$place = 'gastronom'
	$return_lock = 'shop_general'
	if no_slave_count['kagami_san'] < 1:
		gt 'slave_sell'
	else
		interaction_city = 11593
	end
end

if interaction_city = 11593:
	npc = 1
	$npc_id = 'kagami_san'
	$place = 'gastronom'
	$return_lock = 'shop_general'
	$text[1] = '  [Kagami-san]
- Please excuse me, <<$master_name>>-san, but right now I can not afford another worker.'
end

!beauty salon
if interaction_city = 116:
	$place = 'beauty_shop'
	$return_lock = 'shop_general'
	$sp_text[1] = ''
	copyarr '$display_options', '$beauty_options'
	gt 'shop_general'
end

if interaction_city = 11631:
	npc = 1
	$npc_id = 'estelindel'
	$place = 'beauty_shop'
	$return_lock = 'shop_general'
	copyarr '$text', '$estelindel_pref'
end

if interaction_city = 11632:
	npc = 1
	$npc_id = 'estelindel'
	$place = 'beauty_shop'
	$return_lock = 'shop_general'
	if no_slave_count['estelindel'] < 1:
		gt 'slave_sell'
	else
		interaction_city = 11633
	end
end

if interaction_city = 11633:
	npc = 1
	$npc_id = 'estelindel'
	$place = 'beauty_shop'
	$return_lock = 'shop_general'
	$text[1] = '  [ESTELINDEL]
- Oh, dear <<$master_name>>, I’m so sorry to disappoint you, but I do not need new workers at this time. Maybe in a month?'
end

if interaction_city = 11611:
	$place = 'beauty_shop'
	$return_lock = 'shop_general'
	$interaction_type = 'service'
	service_price = 3
	$service_picture = 'scene\service\service_massage_girl'
	g = rand(1, picMax['service_massage_girl'])
	if g > 1: $service_picture += '_' + $str(g)
	copyarr '$text', '$beauty_spa'
	$do_service = {
		slave_rate['hygiene'] = 0
		slave['hygiene'] = 0
		slave['pos_slave_clean'] = 1
		if slave['stamina'] < 3: slave_rate['stamina'] += 1 &! removed skill_adv_mul, this is healing not training - ImperatorAugustus
		if slave['massaged'] = 0:
			slave['massaged'] = 1
			slave_rate['mood'] += slave['sensitivity'] + slave['temper'] &! replaced +3 with temper to match full service - ImperatorAugustus
			if slave['pos_gentle'] < 2: slave['pos_gentle'] = 2
			slave['half_action'] -= 2
		end
	}
end
!волософикс
!еще бы добавить небольшое повышение настроение рабыни и мастера от всех этих процедур, кроме депиляции, но чтобы был лимит один раз в день, иначе все будут бегать улучшать настроение сюда
if interaction_city = 11612:
	$place = 'beauty_shop'
	$return_lock = 'shop_general'
	$interaction_type = 'service'
	service_price = 3
	$service_picture = 'scene\service\service_hairstyle_girl'
	g = rand(1, picMax['service_hairstyle_girl'])
	if g > 1: $service_picture += '_' + $str(g)
	copyarr '$text', '$beauty_hairstyle'
	$do_service = {
		slave['hairstyle'] = 7
	}
end

if interaction_city = 11613:
	$place = 'beauty_shop'
	$return_lock = 'shop_general'
	$interaction_type = 'service'
	service_price = 3
	$service_picture = 'scene/service/service_depilation'
	g = rand(1, picMax['service_depilation'])
	if g > 1: $service_picture += '_' + $str(g)
	copyarr '$text', '$beauty_depilation'
	$do_service = {
		slave['epilation'] = 12
		if slave['masochism'] < 2: slave_rate['mood'] -= 1
		if slave['masochism'] < 1: slave_rate['mood'] -= 2
		if slave['masochism'] < 0: slave_rate['mood'] -= 3
	}
end

if interaction_city = 11614:
	$place = 'beauty_shop'
	$return_lock = 'shop_general'
	$interaction_type = 'service'
	service_price = 3
	$service_picture = 'scene\service\service_manicure'
	g = rand(1, picMax['service_manicure'])
	if g > 1: $service_picture += '_' + $str(g)
	copyarr '$text', '$beauty_visage'
	$do_service = {
		slave['manicure'] = 5
		slave['perfume'] = 1
		if slave['makeup'] < 3: slave['makeup'] += 1
	}
end

if interaction_city = 11615:
	$place = 'beauty_shop'
	$return_lock = 'shop_general'
	$interaction_type = 'service'
	if slave['epilation'] > 12:
		service_price = 6
	else
		service_price = 9
	end
	g = rand(1, 4)
	if g = 1:
		$service_picture = 'scene/service/service_hairstyle_girl'
		g = rand(1, picMax['service_hairstyle_girl'])
	if g > 1: $service_picture += '_' + $str(g)
	elseif g = 2:
		$service_picture = 'scene/service/service_manicure'
		g = rand(1, picMax['service_manicure'])
	if g > 1: $service_picture += '_' + $str(g)
	elseif g = 3:
		$service_picture = 'scene/service/service_depilation'
		g = rand(1, picMax['service_depilation'])
		if g > 1: $service_picture += '_' + $str(g)
	elseif g = 4:
		$service_picture = 'scene/service/service_massage_girl'
		g = rand(1, picMax['service_massage_girl'])
		if g > 1: $service_picture += '_' + $str(g)
	end
	copyarr '$text', '$beauty_full'
	$do_service = {
		slave['hairstyle'] = 7
		slave['epilation'] = 12
		if slave['masochism'] < 2: slave_rate['mood'] -= 1
		if slave['masochism'] < 1: slave_rate['mood'] -= 2
		if slave['masochism'] < 0: slave_rate['mood'] -= 3
		slave['manicure'] = 5
		slave['perfume'] = 1
		if slave['makeup'] < 3: slave['makeup'] += 1
		slave['hygiene'] = 0
		slave_rate['hygiene'] = 0
		slave['pos_slave_clean'] = 1
		if slave['stamina'] < 3: slave_rate['stamina'] += 1 &! removed skill_adv_mul, this is healing not training - ImperatorAugustus
		slave_rate['mood'] += slave['sensitivity'] + slave['temper']
	}
end

if interaction_city = 11620:
	$place = 'beauty_shop'
	$return_lock = 'shop_general'
	$interaction_type = 'service'
	service_price = 15
	g = rand(1,5)
	if g = 1:
		$service_picture = 'scene\service_hairstyle_master'
		g = rand(1, picMax['service_hairstyle_master'])
		if g > 1: $service_picture += '_' + $str(g)
	elseif g = 2:
		$service_picture = 'scene\service_style_master'
		g = rand(1, picMax['service_style_master'])
		if g > 1: $service_picture += '_' + $str(g)
	elseif g = 3:
		$service_picture = 'scene\service_massage_master'
		g = rand(1, picMax['service_massage_master'])
		if g > 1: $service_picture += '_' + $str(g)
	elseif g = 4:
		$service_picture = 'scene\service_erotic_massage_master'
		g = rand(1, picMax['service_erotic_massage_master'])
		if g > 1: $service_picture += '_' + $str(g)
	elseif g = 5:
		$service_picture = 'scene\service_aroma_master'
		g = rand(1, picMax['service_aroma_master'])
		if g > 1: $service_picture += '_' + $str(g)
	end
	copyarr '$text', '$beauty_master_full'
	$do_service = {
		master_haircut = 30
		master_visage = 10
		if master_massaged = 0:
			master_massaged = 1
			master_half_action -= 2
			master_mood_rate += 3
			if master_moodlet['pos_massage'] < 2: master_moodlet['pos_massage'] = 2
		end
		master_hygiene_rate = 0
		master_hygiene = 0
		master_moodlet['pos_self_clean'] = 1
		if master_spaed = 0:
			master_spaed = 1
			master_mood_rate += 10
			if master_moodlet['pos_massage'] < 2: master_moodlet['pos_massage'] = 5
		end
	}
end

if interaction_city = 11621:
	$place = 'beauty_shop'
	$return_lock = 'shop_general'
	$interaction_type = 'service'
	service_price = 3
	$service_picture = 'scene\service_hairstyle_master'
	g = rand(1, picMax['service_hairstyle_master'])
	if g > 1: $service_picture += '_' + $str(g)
	copyarr '$text', '$beauty_master_hairstyle'
	$do_service = {
		master_haircut = 30
	}
end

if interaction_city = 11622:
	$place = 'beauty_shop'
	$return_lock = 'shop_general'
	$interaction_type = 'service'
	service_price = 5
	$service_picture = 'scene\service_style_master'
	g = rand(1, picMax['service_style_master'])
	if g > 1: $service_picture += '_' + $str(g)
	copyarr '$text', '$beauty_master_stylist'
	$do_service = {
		master_visage = 10
	}
end

if interaction_city = 11623:
	$place = 'beauty_shop'
	$return_lock = 'shop_general'
	$interaction_type = 'service'
	service_price = 3
	$service_picture = 'scene\service_massage_master'
	g = rand(1, picMax['service_massage_master'])
	if g > 1: $service_picture += '_' + $str(g)
	copyarr '$text', '$beauty_master_massage'
	$do_service = {
		if master_massaged = 0:
			master_massaged = 1
			master_half_action -= 2
			master_mood_rate += 3
			if master_moodlet['pos_massage'] < 2: master_moodlet['pos_massage'] = 2
		end
	}
end

if interaction_city = 11624:
	$place = 'beauty_shop'
	$return_lock = 'shop_general'
	$interaction_type = 'service'
	service_price = 3
	$service_picture = 'scene\service_erotic_massage_master'
	g = rand(1, picMax['service_erotic_massage_master'])
	if g > 1: $service_picture += '_' + $str(g)
	copyarr '$text', '$beauty_master_eromas'
	$do_service = {
		if master_erected = 0:
			master_erected = 1
			if master_libido > 0:
				if master_excitement < 5: master_excitement_rate += master_libido*6
			else
				$text[2] = '  For almost half an hour she caresses and strokes your “lingam” with her oiled fingers. Among other things, she presses specific acupuncture points. Unfortunately, although it was pleasant enough, you feel no more excited than you were before the procedure. The girl eyes your limp organ, then wordlessly hands you a small elixir bottle and places a finger to her lips while glancing meaningfully towards the door.'
				афродизиак += 1 &! aphrodisiac
			end
			master_mood_rate += max(0, 1 + master_excitement + master_libido - brand_reputation)
			if master_moodlet['pos_massage'] < 2: master_moodlet['pos_massage'] = 2
		end
	}
end

if interaction_city = 11625:
	$place = 'beauty_shop'
	$return_lock = 'shop_general'
	$interaction_type = 'service'
	service_price = 5
	$service_picture = 'scene\service_aroma_master'
	g = rand(1, picMax['service_aroma_master'])
	if g > 1: $service_picture += '_' + $str(g)
	copyarr '$text', '$beauty_master_spa'
	$do_service = {
		master_hygiene_rate = 0
		master_hygiene = 0
		if master_spaed = 0:
			master_spaed = 1
			master_mood_rate += 10
			if master_moodlet['pos_massage'] < 5: master_moodlet['pos_massage'] = 5
		end
	}
end

if interaction_city = 119:
	$interaction_type = 'drop_to_farid'
	city_form = 11
	$return_lock = 'city_menu_form'
	npc = 1
	gs '$slave_price', 'stock'
	farid_potential_debt = slaveprice/2
	$npc_id = 'фарид_аукционщик'
	$place = 'slave_stage'
	! $text[1] = '  You already have a slave you are training, so you decide to take your trophy girl to Farid.'
	$text[1] = '  [FARID]
- Of course I will sell her for you, <<$master_name>>! Come tomorrow for your share. If you change your mind before then, come back, I’ll give her back to you.'
	$text[2] = '  On the way home you remember your booty and mentally evaluate it. Maybe it’s worth it to take her as a slave?'
	$special_image[2] = '<<$stock["fullimage"]>>.png'
	if slave_state ! CONST_INT['no_slave']: $text[2] += ' You’ll have to decide something to do with the one you already have though...'

end

if interaction_city = 1191:
	city_form = 11
	$return_lock = 'city_menu_form'
	npc = 1
	sparks -= 5
	gs 'stock_to_slave'
	farid_potential_debt = 0
	$npc_id = 'фарид_аукционщик'
	$place = 'slave_stage'
	$text[1] = '  [FARID]
- Changed your mind? Here’s your girl. It turns out that I get nothing so I should not have kept her at all, eh? This will not work, my friend... one has to make a living! I’ll take five sparks for holding her... See? We treated her like royalty during her brief stay!'
	$text[2] = '  You pay the auctioneer and take your new slave. You can only hope that she will meet all of your efforts and costs...'
end

if interaction_city = 1192:
	city_form = 11
	$return_lock = 'city_menu_form'
	npc = 1
	$npc_id = 'фарид_аукционщик'
	$place = 'slave_stage'
	$text[1] = '  [FARID]
- Your sparks? What’s your hurry, eh? I have not sold your girl yet. Come tomorrow for your sparks, my friend, tomorrow.'
end

if interaction_city = 1193:
	city_form = 11
	$return_lock = 'city_menu_form'
	npc = 1
	$npc_id = 'фарид_аукционщик'
	sparks += farid_debt
	$place = 'slave_stage'
	$text[1] = '  [FARID]
- Hello there, <<$master_name>>! I sold your girl for the best possible price. Gone with a whistle! Here’s your half: <<farid_debt>> sparks!'
	farid_debt = 0
end

if interaction_city = 12:
	$place = 'colosseum'
	$return_lock = 'shop_general'
	$sp_text[1] = '  You enter the service tunnels under the amphitheater. The guards admitted you without a second thought - The Slavers Guild is always welcome in the home of gladiators and chariot racing.'
	copyarr '$display_options', '$colosseum_options'
	gt 'shop_general'
end

if interaction_city = 121:
	$place = 'colosseum_arena'
	$picture_type = 'pic_png'
	$bg_path = 'scene/chariot_crash'
	g = rand(1, picMax['chariot_crash'])
	if g > 1: $bg_path += '_' + $str(g)
	if heavy_rider_armor = 1:
		crash_trauma = 0
	else
		d = rand(1,12)
		if d = 1:
			crash_trauma = 0
		elseif d > 1 and d <= 5:
			crash_trauma = 1
		elseif d > 5 and d <= 8:
			crash_trauma = 2
		elseif d > 8 and d <= 10:
			crash_trauma = 3
		elseif d = 11:
			crash_trauma = 4
		elseif d >= 12:
			crash_trauma = 5
		end
	end
	if master_wounds < crash_trauma:
		if crash_trauma = 1: master_wounds_rate += rand(1,9)
		if crash_trauma = 2: master_wounds_rate += rand(11,19)
		if crash_trauma = 3: master_wounds_rate += rand(21,39)
		if crash_trauma = 4: master_wounds_rate += rand(41,59)
		master_moodlet['neg_wounded'] = 1
	end
	$text[1] = $crash_text
	$text[2] = $crash_trauma[crash_trauma]
	if pony_dead = 1 and crash_trauma < 5:
		$text[3] = $pony_dead
		if no_guro = 1:
			$special_image[2] = 'bg/empty'
		else
			$special_image[2] = 'scene/ride_feast'
			g = rand(1, picMax['ride_feast'])
			if g > 1: $special_image[2] += '_' + $str(g)
			$special_image[2] += ".png"
		end
	end
	slave['virtue'] = 0
	dynamic $sin_gained_now, 'slave'
	city_form = 1
	$return_lock = 'city_menu_form'
	if crash_trauma = 5: $return_lock = 'Start'
end

if interaction_city = 123:
	$place = 'colosseum_arena'
	$picture_type = 'pic_png'
	$bg_path = 'scene/chariot_crash'
	g = rand(1, picMax['chariot_crash'])
	if heavy_rider_armor = 1:
		crash_trauma = 0
	else
		d = rand(1,12)
		if d = 1:
			crash_trauma = 0
		elseif d > 1 and d <= 5:
			crash_trauma = 1
		elseif d > 5 and d <= 8:
			crash_trauma = 2
		elseif d > 8 and d <= 10:
			crash_trauma = 3
		elseif d = 11:
			crash_trauma = 4
		elseif d >= 12:
			crash_trauma = 5
		end
	end
	if master_wounds < crash_trauma:
		if crash_trauma = 1: master_wounds_rate += rand(1,9)
		if crash_trauma = 2: master_wounds_rate += rand(11,19)
		if crash_trauma = 3: master_wounds_rate += rand(21,39)
		if crash_trauma = 4: master_wounds_rate += rand(41,59)
		master_moodlet['neg_wounded'] = 1
	end
	$text[1] = $crash_text
	$text[2] = $pony_fail
	$text[3] = $crash_trauma[crash_trauma]
	if crash_trauma < 5:
		$text[4] = $pony_dead
		$special_image[4] = 'scene\ride_feast.png'
	end
	slave['virtue'] = 0
	dynamic $sin_gained_now, 'slave'
	city_form = 1
	$return_lock = 'city_menu_form'
	if crash_trauma = 5: $return_lock = 'Start'
end

if interaction_city = 124:
	$place = 'colosseum_arena'
	$picture_type = 'pic_png'
	$bg_path = 'content\pic\bg\ride.png'
	$text[1] = $race_win_description[$race_winner]
	city_form = 1
	$return_lock = 'city_menu_form'
	if $race_winner = 'master':
		msg 'Chariot Race Score:
<<speed_points["master"]>>
You won the race!
'
	else
		msg 'Chariot Race Score:
<<speed_points["master"]>>
You lost the race
'
	end
end

if interaction_city = 1251:
	$return_lock = 'shop_general'
	$place = 'colosseum_arena'
	$picture_type = 'pic_png'
	$bg_path = 'scene/arena_racing'
	g = rand(1, picMax['arena_racing'])
	if g > 1: $bg_path += '_' + $str(g)
	ride_count = 10
	bonus = 6 - brand_reputation
	if master_moodlet['pos_show'] < bonus: master_moodlet['pos_show'] += bonus
	master_mood_rate += bonus
	copyarr '$text', '$arena_ride_description'
end

if interaction_city = 1252:
	$return_lock = 'shop_general'
	$place = 'colosseum_arena'
	$picture_type = 'pic_png'
	$bg_path = 'scene/arena_fight'
	g = rand(1, picMax['arena_fight'])
	if g > 1: $bg_path += '_' + $str(g)
	gladi_count = 10
	bonus = 6 - brand_reputation
	if master_moodlet['pos_show'] < bonus: master_moodlet['pos_show'] += bonus
	master_mood_rate += bonus
	copyarr '$text', '$arena_fight_description'
end

if interaction_city = 12801:
	$toplay = 'arena'
	$place = 'colosseum_arena'
	$return_lock = '$gladiator_fight_start'
	$special_image[1] = 'characters\games_superviser.png'
	$special_image[2] = '<<$slave["fullimage"]>>.png'
	$special_image_full[3] = $силуэт_моба[$ge]
	$text[1] = $superviser_message[superviser_message]
	$text[2] = $arena_slave_presentation[1]
	$text[3] = $описание_моба[$ge]
end

!slave dies on arena
if interaction_city = 1291:
	$place = 'colosseum_arena'
	$picture_type = 'pic_png'
	$bg_path = 'scene/arena_end'
	g = rand(1, picMax['arena_end'])
	if g > 1: $bg_path += '_' + $str(g)
	sparks += 5
	city_form = 1
	$return_lock = 'city_menu_form'
	$text[1] = '  <<$slave_name>> did not get up. When the servants went out into the arena, she had died of her wounds and loss of blood. According to Colosseum tradition, her body is given to a chef who is cooking a feast for the guests of the Senatorial lodge. You get a token payment of 5 sparks.'
	master_moodlet['neg_master_loser'] = 3
	brand_rate -= 1
	dynamic $clear_slave_instance, 'slave'
end

!executing the slave on arena
if interaction_city = 1292:
	$place = 'colosseum_arena'
	$picture_type = 'pic_png'
	$bg_path = 'scene/arena_end'
	g = rand(1, picMax['arena_end'])
	if g > 1: $bg_path += '_' + $str(g)
	sparks += 5
	city_form = 1
	$return_lock = 'city_menu_form'
	$text[1] = '  Spectators hiss and stomp their feet, calling to finish the prostrate slave. Looks like the rostrum believe that <<$slave_name>> didn’t fight valiantly enough to save her life. The will of the crowd is to be executed, and the body of your slave is given to the chefs of the Senatorial lodge.'
	master_moodlet['neg_master_loser'] = 5
	brand_rate -= 2
	dynamic $clear_slave_instance, 'slave'
end

!Поражение рабыни на арене
if interaction_city = 1293:
	$place = 'colosseum_arena'
	$return_lock = 'city_menu_form' & city_form = 1
	$picture_type = 'pic_png'
	$bg_path = 'scene/arena_end'
	g = rand(1, picMax['arena_end'])
	if g > 1: $bg_path += '_' + $str(g)
	$text[1] = '  <<$slave_name>> is defeated, but still alive. Spectators asked to generously save her life, acknowledging that she struggled quite nicely. Servants put your slave on a stretcher and carry her to the slave pens, where they provide first aid.'
	slave_rate['gladiatrix'] += IIF(slave['gladiatrix'] >= 4, 0, 5) &! defeat cannot raise skill above A+ - ImperatorAugustus
	slave_rate['pride'] -= 5
	master_moodlet['neg_master_loser'] = 3
	slave['neg_slave_loser'] = slave['sensitivity']
	slave['virtue'] = 0
	dynamic $sin_gained_now, 'slave'
	brand_rate -= 1
end

!slave wins in the arena - fight_finish - fight_end - fight_rewards - overhauled crushboss
if interaction_city = 1294:
	$place = 'colosseum_arena'
	$return_lock = 'city_menu_form' & city_form = 1
	$picture_type = 'pic_png'
	$bg_path = 'scene/arena_end'
	g = rand(1, picMax['arena_end'])
	if g > 1: $bg_path += '_' + $str(g)
	$text[1] = '  The final blow from <<$slave_name>> sends her opponent to the ground and <<$slave_name>> raises her weapon to the sky, welcoming the crowd. With this win she earned the love of the crowd for herself and glorified her master <<$master_name>>!'
	purse = (slave['arena_level']*20) + (challenge_type*50) + rand(1,25)
	if purse < 50: purse = 50
	$text[2] = '  Purse won: <<purse>> sparks!'
	sparks += purse
	slave_rate['gladiatrix'] += IIF(challenge_type = 2 and slave['gladiatrix'] >= 4, 0, 15) &! group fight against unarmed slaves cannot raise skill above A+ - ImperatorAugustus
	slave_rate['temper'] += 10
	slave_rate['ego'] += 10
	slave_rate['pride'] += 5
	slave_rate['stamina'] += 10
	if slave['angst'] > 0: slave['angst'] -= 1 & slave_rate['angst'] = 0
	slave_rate['mood'] += 10
	slave['virtue'] = 5
	slave['sin'] = 0
	master_moodlet['pos_master_winner'] = 3
	slave['pos_slave_winner'] = slave['sensitivity']
	fgn = 1 + slave['winning_series'] * slave['winning_series']
	slave_rate['fame'] += fgn
	if brand_reputation < 3: brand_rate += (3 + challenge_type)
	if $ge = 'champion_kamira': trophy_camira = 1
	if $ge = 'champion_corvus': trophy_corvus = 1
	if $ge = 'champion_serpis': trophy_serpis = 1
	if $ge = 'champion_taurus': trophy_taurus = 1
	if $ge = 'champion_vatican': trophy_vatican = 1
	if challenge_type = 1 and slave['c1done'] = 0:
		slave['c1done'] = 1
		if slave['arena_level'] < 8: slave['arena_level'] += 1
	end
	if challenge_type = 2 and slave['c2done'] = 0:
		slave['c2done'] = 1
		if slave['arena_level'] < 8: slave['arena_level'] += 1
		trophy_slaves = 1
	end
	if challenge_type = 3 and slave['c3done'] = 0:
		slave['c3done'] = 1
		if slave['arena_level'] < 8: slave['arena_level'] += 1
		trophy_arenafiend = 1
	end
	if challenge_type = 4:
		slave['c4done'] = 1
		slave['arena_level'] = 9
		trophy_absolute = 1
	end
end

!slave is freed in the arena due to winning the Arena Championship
if interaction_city = 1295:
	$place = 'colosseum_arena'
	city_form = 1
	$return_lock = 'city_menu_form'
	if brand_reputation < 4: brand_rate += 5
	$text[1] = '  Seeing the magnificent victory of your slave, the crowd roars in ecstasy. One after another, the audience rise from their seats and begin to chant «LI-BE-RO!!!» You’ll have to grant her freedom... but people will not forget the master who gave them such a glorious champion!'
	if slave['moral'] > slave['fear']:
		$text[2] = '  Although you officially bestow freedom to your slave, immediately after the feast she comes back to you. Looks like <<$slave_name>> does not want any other destiny than to serve you. Or maybe she just doesn’t know where to go. In any case, this is a very good situation.'
		purse = (slave['arena_level']*20) + (challenge_type*50) + rand(1,25)
		if purse < 50: purse = 50
		$text[3] = '  Purse won: <<purse>> sparks!'
		sparks += purse
		slave_rate['gladiatrix'] += 15
		slave_rate['temper'] += 10
		slave_rate['ego'] += 10
		slave_rate['pride'] += 5
		slave_rate['stamina'] += 10
		if slave['angst'] > 0: slave['angst'] -= 1 & slave_rate['angst'] = 0
		slave_rate['mood'] += 10
		slave['virtue'] = 5
		slave['sin'] = 0
		master_moodlet['pos_master_winner'] = 5
		slave['pos_slave_winner'] = slave['sensitivity'] + 1
		fgn = 1 + slave['winning_series'] * slave['winning_series']
		slave_rate['fame'] += fgn
	else
		$text[2] = '  You solemnly bestow freedom to your slave. Now <<$slave_name>> is free and it is unlikely that you will meet her ever again. Perhaps if she had more devotion or was less afraid of you, the result would be different...'
		master_moodlet['pos_master_winner'] = 3
		purse = (slave['arena_level']*20) + (challenge_type*50) + rand(1,25)
		if purse < 50: purse = 50
		$text[3] = '  Purse won: <<purse>> sparks!'
		sparks += purse
		dynamic $clear_slave_instance, 'slave'
	end
end

! Sparring results - Master
if interaction_city = 1296:
	$place = 'colosseum'
	$return_lock = 'shop_general'
	$picture_type = 'pic_png'
	$bg_path = 'scene/arena_end'
	g = rand(1, picMax['arena_end'])
	if g > 1: $bg_path += '_' + $str(g)
	if $итог_боя = 'бегство' or $итог_боя = 'вырубился' or $итог_боя = 'убит':
		fighting_experience = IIF((master_fighter - boost_up['master_fighter']) < 1, 2, 0) &! defeat gives flat 2 xp up to D- and cannot raise skill higher - ImperatorAugustus
		$text[1] = '  You lie defeated on the ground.' + IIF(fighting_experience = 0, ' Unfortunately, suffering such defeats cannot hone your fighting ability, nor improve your strength.', IIF(colosseum_fight <= master_str, ' Unfortunately, suffering such defeats cannot improve your strength, though it may still teach you something.', ''))
		master_fighter_rate += (skill_adv_mul * fighting_experience)
		master_mood_rate -= 5
	else
		fighting_experience = IIF((master_fighter - boost_up['master_fighter']) < 4, max(0, colosseum_fight - (master_fighter - boost_up['master_fighter']))*2, 0) &! sparring cannot raise level above A+, xp gain is proportional to opponent level and zero for tiers equal or below current skill (colosseum_fight indicates tier of opponent, ranges from 1 to 5) - ImperatorAugustus
		$text[1] = '  Your final blow sends your opponent to the ground.' + IIF(fighting_experience = 0, ' Unfortunately, defeating such opponents cannot hone your fighting ability, <<IIF(colosseum_fight >= master_str, "although it may still", "nor")>> improve your strength.', IIF(colosseum_fight < master_str, ' Unfortunately, while defeating such opponents may still hone your fighting ability, it will not improve your strength.', ''))
		master_fighter_rate += (skill_adv_mul * fighting_experience)
		if colosseum_fight >= master_str: master_str_rate += (skill_adv_mul * 1) &! sparring the second-highest-tier opponents (4) can raise master strength up to S+, but only the top-tier opponents can raise fighting skill to A+
		if colosseum_fight - 2 > master_domination: master_domination_rate += 1 &! sparring the highest-tier opponents (5) can raise master domination up to B+ (3)
		master_mood_rate += 5
		if master_moodlet['pos_master_winner'] < 2: master_moodlet['pos_master_winner'] += 1
	end
	master_hygiene_rate += 15
	combatant = 0 &! set master as combatant for next battle
	colosseum_fight = 0 &! clear spar type global
	fighting_experience = 0 &! used here as a local variable
	get_weapon = 0 &! stop intercepting ESC in menu_form
	$итог_боя = '' &! reset outcome so next battle does not prematurely end
	$fight_return = '' &! clear post-battle $return_lock variable
	gs '$newloc' &! update stats after combat
end

! Sparring results - Slave
if interaction_city = 1297:
	$place = 'colosseum'
	$return_lock = 'shop_general'
	$picture_type = 'pic_png'
	$bg_path = 'scene/arena_end'
	g = rand(1, picMax['arena_end'])
	if g > 1: $bg_path += '_' + $str(g)
	if $итог_боя = 'бегство' or $итог_боя = 'вырубился' or $итог_боя = 'убит':
		fighting_experience = IIF(slave['gladiatrix'] < 1, 2, 0) &! defeat gives flat 2 xp up to D- and cannot raise skill higher - ImperatorAugustus
		$text[1] = '  <<$slave_name>> lies defeated on the ground. Unfortunately, suffering such defeats cannot hone her fighting ability, nor improve her endurance.'
		slave['neg_slave_loser'] = max(1, slave['neg_slave_loser'])
	else
		fighting_experience = IIF(slave['gladiatrix'] < 4, max(0, (colosseum_fight mod 10) - slave['gladiatrix'])*4, 0) &! sparring cannot raise level above A+, xp gain is proportional to opponent level and zero for tiers equal or below current skill (colosseum_fight mod 10 indicates tier of opponent, ranges from 1 to 5) - ImperatorAugustus
		$text[1] = '  The final blow from <<$slave_name>> sends her opponent to the ground.' + IIF(fighting_experience = 0, ' Unfortunately, defeating such opponents cannot hone her fighting ability, <<IIF((colosseum_fight mod 10) > slave["stamina"], "although it may still", "nor")>> improve her endurance.', IIF((colosseum_fight mod 10) <= slave["stamina"], ' Unfortunately, while defeating such opponents may still hone her fighting ability, it will not improve her endurance.', ''))
		slave_rate['temper'] += 1
		slave_rate['ego'] += 1
		if slave_already_done_today[1] >= slave['stamina']:
			slave_rate['stamina'] -= 2
		elseif (colosseum_fight mod 10) > slave["stamina"]:
			slave_rate['stamina'] += 2
		end
		if slave['pos_slave_winner'] < 2: slave['pos_slave_winner'] += 1
	end
	slave_already_done_today[1] += 1
	if slave_already_done_today[1] >= slave['stamina']: $text[1] += '

  In any event, she appears exhausted - further exertion today will not be good for her.'
	slave_rate['gladiatrix'] += (skill_adv_mul * fighting_experience)
	slave_rate['hygiene'] += 15
	combatant = 0 &! set master as combatant for next battle
	colosseum_fight = 0 &! clear spar type global
	fighting_experience = 0 &! used here as a local variable
	get_weapon = 0 &! stop intercepting ESC in menu_form
	$итог_боя = '' &! reset outcome so next battle does not prematurely end
	$fight_return = '' &! clear post-battle $return_lock variable
	gs '$newloc' &! update stats after combat
end

! Sparring results - Assistant
if interaction_city = 1298:
	$place = 'colosseum'
	$return_lock = 'shop_general'
	$picture_type = 'pic_png'
	$bg_path = 'scene/arena_end'
	g = rand(1, picMax['arena_end'])
	if g > 1: $bg_path += '_' + $str(g)
	if $итог_боя = 'бегство' or $итог_боя = 'вырубился' or $итог_боя = 'убит':
		fighting_experience = IIF(assistant['gladiatrix'] < 1, 2, 0) &! defeat gives flat 2 xp up to D- and cannot raise skill higher - ImperatorAugustus
		$text[1] = '  <<$assistant_name>> lies defeated on the ground. Unfortunately, suffering such defeats cannot hone her fighting ability, nor improve her endurance.'
		assistant['neg_slave_loser'] = max(1, assistant['neg_slave_loser'])
	else
		fighting_experience = IIF(assistant['gladiatrix'] < 4, max(0, (colosseum_fight mod 10) - assistant['gladiatrix'])*4, 0) &! sparring cannot raise level above A+, xp gain is proportional to opponent level and zero for tiers equal or below current skill (colosseum_fight mod 10 indicates tier of opponent, ranges from 1 to 5) - ImperatorAugustus
		$text[1] = '  The final blow from <<$assistant_name>> sends her opponent to the ground.' + IIF(fighting_experience = 0, ' Unfortunately, defeating such opponents cannot hone her fighting ability, <<IIF((colosseum_fight mod 10) > assistant["stamina"], "although it may still", "nor")>> improve her endurance.', IIF((colosseum_fight mod 10) <= assistant["stamina"], ' Unfortunately, while defeating such opponents may still hone her fighting ability, it will not improve her endurance.', ''))
		assistant_rate['temper'] += 1
		assistant_rate['ego'] += 1
		if assistant_already_done_today[1] >= assistant['stamina']:
			assistant_rate['stamina'] -= 2
		elseif (colosseum_fight mod 10) > assistant["stamina"]:
			assistant_rate['stamina'] += 2
		end
		if assistant['pos_slave_winner'] < 2: assistant['pos_slave_winner'] += 1
	end
	assistant_already_done_today[1] += 1
	if assistant_already_done_today[1] >= assistant['stamina']: $text[1] += '

  In any event, she appears exhausted - further exertion today will not be good for her.'
	assistant_rate['gladiatrix'] += (skill_adv_mul * fighting_experience)
	assistant_rate['hygiene'] += 15
	combatant = 0 &! set master as combatant for next battle
	colosseum_fight = 0 &! clear spar type global
	fighting_experience = 0 &! used here as a local variable
	get_weapon = 0 &! stop intercepting ESC in menu_form
	$итог_боя = '' &! reset outcome so next battle does not prematurely end
	$fight_return = '' &! clear post-battle $return_lock variable
	gs '$newloc' &! update stats after combat
end

if interaction_city = 13:
	$place = 'realtor_office'
	$return_lock = 'shop_general'
	copyarr '$display_options', '$realtor_options'
	gt 'shop_general'
end

if interaction_city = 1311:
	npc = 1
	$npc_id = 'realtor'
	$place = 'realtor_office'
	$return_lock = 'shop_general'
	npc_reveal['realtor'] = 1
	sp_txt = 2
	copyarr '$text', '$realtor_first_meet'
end

if interaction_city = 1315:
	npc = 1
	$npc_id = 'realtor'
	$place = 'realtor_office'
	$return_lock = 'shop_general'
	txt = 1
	$text[1] = '  [Gloria]
- Do you want to abandon the current apartment, be it rented or bought, and all related facilities in the same building? If so, I will prepare the documents, but please note that we do not reimburse for already paid services. We will pay you back a third of what you paid for the property.'
	$yes = {
		if owner = 1:
			sparks += (40 * estate_cost_main[$estate])
			if sound_on = 1 and estate_cost_main[$estate] >= 50: play $large_money_sound, sound_volume
			owner = 0
		end
		$estate = 'slum_house'
		$interior = 'slum_house'
		gs 'new_estate'
		gt 'shop_general'
	}
	$no = {
		gt 'shop_general'
	}
	gt 'choice_screen'
end

if interaction_city = 1316:
	npc = 1
	$npc_id = 'realtor'
	$place = 'realtor_office'
	$return_lock = 'shop_general'
	price = (120 * estate_cost_main[$estate])
	$text[1] = '  [Gloria]
- Do you wish to buy the property you are currently renting? By doing so, you will no longer pay rent every decade. Price: <<price>>$.'
	if sparks >= price:
	$yes = {
		if sound_on = 1: play $large_money_sound, sound_volume
		owner = 1
		sparks -= price
		gt 'shop_general'
	}
	end
	$no = {
		gt 'shop_general'
	}
	gt 'choice_screen'
end

if interaction_city = 1321:
	$interaction_type = 'rental_demo'
	$place = 'white_street_rental'
	$demo_var = 'elite'
	$place_location['demo'] = 'White Town'
	$yes = {
		interaction_city = 13211
		gt 'interaction_city'
	}
	copyarr '$text', '$realtor_demo_white'
end

if interaction_city = 13211:
	$interaction_type = 'rental_sex'
	sparks -= 250
	$estate = 'white_house'
	$interior = 'elite'
end

if interaction_city = 1322:
	$interaction_type = 'rental_demo'
	$place = 'necropolis_street_rental'
	$demo_var = 'gothic'
	$place_location['demo'] = 'Necropolis'
	$yes = {
		interaction_city = 13221
		gt 'interaction_city'
	}
	copyarr '$text', '$realtor_demo_korvus'
end

if interaction_city = 13221:
	$interaction_type = 'rental_sex'
	sparks -= 200
	$estate = 'korvus_house'
	$interior = 'gothic'
end

if interaction_city = 1323:
	$interaction_type = 'rental_demo'
	$place = 'taurus_street_rental'
	$demo_var = 'fort'
	$place_location['demo'] = 'Quarter of the Bull'
	$yes = {
		interaction_city = 13231
		gt 'interaction_city'
	}
	copyarr '$text', '$realtor_demo_taurus'
end

if interaction_city = 13231:
	$interaction_type = 'rental_sex'
	sparks -= 150
	$estate = 'taurus_house'
	$interior = 'fort'
end

if interaction_city = 1324:
	$interaction_type = 'rental_demo'
	$place = 'serpis_street_rental'
	$demo_var = 'econom'
	$place_location['demo'] = 'Serpentine quarter'
	$yes = {
		interaction_city = 13241
		gt 'interaction_city'
	}
	copyarr '$text', '$realtor_demo_serpis'
end

if interaction_city = 13241:
	$interaction_type = 'rental_sex'
	sparks -= 75
	$estate = 'serpis_house'
	$interior = 'econom'
end

if interaction_city = 1325:
	$interaction_type = 'rental_demo'
	$place = 'kamira_street_rental'
	$demo_var = 'basic'
	$place_location['demo'] = 'Quarter of the Outcasts'
	$yes = {
		interaction_city = 13251
		gt 'interaction_city'
	}
	copyarr '$text', '$realtor_demo_kamira'
end

if interaction_city = 13251:
	$interaction_type = 'rental_sex'
	sparks -= 50
	$estate = 'kamira_house'
	$interior = 'basic'
end

if interaction_city = 1331:
	npc = 1
	$npc_id = 'realtor'
	$place = 'realtor_office'
	$return_lock = 'shop_general'
	$text[1] = '  [Gloria]
- We have a suitable location for the prison in the same building where you rent apartments, <<$master_name>>. Rent will cost <<estate_cost_dungeon[$estate]>> sparks for ten days. I can give you access right now, with provided prepayment for ten days.'
	$yes = {
		dungeon = 1
		$bg['dungeon'] = $interior_dungeon[$interior]
		sparks -= estate_cost_dungeon[$estate]
		if sound_on = 1: play $small_money_sound, sound_volume
		gt 'shop_general'
	}
	$no = {
		sp_txt = 3
		gt 'shop_general'
	}
	gt 'choice_screen'
end

if interaction_city = 1332:
	npc = 1
	$npc_id = 'realtor'
	$place = 'realtor_office'
	$return_lock = 'shop_general'
	$text[1] = '  [Gloria]
- I can cancel the rent right now, <<$master_name>>. You will save <<estate_cost_dungeon[$estate]>> for the decade.'
	$yes = {
		dungeon = 0
		gt 'shop_general'
	}
	$no = {
		sp_txt = 3
		gt 'shop_general'
	}
	gt 'choice_screen'
end

if interaction_city = 1333:
	npc = 1
	$npc_id = 'realtor'
	$place = 'realtor_office'
	$return_lock = 'shop_general'
	$text[1] = '  [Gloria]
- We have a suitable location for a boudoir in the same building where you rent the apartment, <<$master_name>>. Rent will cost <<estate_cost_boudoir[$estate]>> sparks for ten days. I can give you access right now, with provided prepayment for ten days.'
	$yes = {
		boudoir = 1
		$bg['boudoir'] = $interior_boudoir[$interior]
		sparks -= estate_cost_boudoir[$estate]
		if sound_on = 1: play $small_money_sound, sound_volume
		gt 'shop_general'
	}
	$no = {
		sp_txt = 3
		gt 'shop_general'
	}
	gt 'choice_screen'
end

if interaction_city = 1334:
	npc = 1
	$npc_id = 'realtor'
	$place = 'realtor_office'
	$return_lock = 'shop_general'
	$text[1] = '  [Gloria]
- I can cancel the rent right now, <<$master_name>>. You will save <<estate_cost_boudoir[$estate]>> for the decade.'
	$yes = {
		boudoir = 0
		gt 'shop_general'
	}
	$no = {
		sp_txt = 3
		gt 'shop_general'
	}
	gt 'choice_screen'
end

if interaction_city = 1335:
	npc = 1
	$npc_id = 'realtor'
	$place = 'realtor_office'
	$return_lock = 'shop_general'
	$text[1] = '  [Gloria]
- We have a suitable location for the lab in the same building where you rent the apartment, <<$master_name>>. Rent will cost <<estate_cost_lab[$estate]>> sparks for ten days. I can give you access right now, with provided prepayment for ten days.'
	$yes = {
		lab = 1
		$bg['lab'] = $interior_lab[$interior]
		sparks -= estate_cost_lab[$estate]
		if sound_on = 1:
			if estate_cost_lab[$estate] >= 50:
				play $large_money_sound, sound_volume
			else
				play $small_money_sound, sound_volume
			end
		end
		gt 'shop_general'
	}
	$no = {
		sp_txt = 3
		gt 'shop_general'
	}
	gt 'choice_screen'
end

if interaction_city = 1336:
	npc = 1
	$npc_id = 'realtor'
	$place = 'realtor_office'
	$return_lock = 'shop_general'
	$text[1] = '  [Gloria]
- I can cancel the rent right now, <<$master_name>>. You will save <<estate_cost_lab[$estate]>> for the decade.'
	$yes = {
		lab = 0
		gt 'shop_general'
	}
	$no = {
		sp_txt = 3
		gt 'shop_general'
	}
	gt 'choice_screen'
end

if interaction_city = 1337:
	npc = 1
	$npc_id = 'realtor'
	$place = 'realtor_office'
	$return_lock = 'shop_general'
	$text[1] = '  [Gloria]
- Yes, we can provide a safe environment for fiend containment, <<$master_name>>. Ten sparks for every ten days. I can give you access right now, with provided prepayment for ten days.'
	$yes = {
		pen = 1
		sparks -= 10
		if sound_on = 1: play $small_money_sound, sound_volume
		gt 'shop_general'
	}
	$no = {
		sp_txt = 3
		gt 'shop_general'
	}
	gt 'choice_screen'
end

if interaction_city = 1338:
	npc = 1
	$npc_id = 'realtor'
	$place = 'realtor_office'
	$return_lock = 'shop_general'
	$text[1] = '  [Gloria]
- I can cancel the rent right now, <<$master_name>>. Just remember, if you have a living fiend now, we have to destroy it.'
	$yes = {
		pen = 0
		gt 'shop_general'
	}
	$no = {
		sp_txt = 3
		gt 'shop_general'
	}
	gt 'choice_screen'
end

if interaction_city = 1339:
	npc = 1
	$npc_id = 'realtor'
	$place = 'realtor_office'
	$return_lock = 'shop_general'
	$text[1] = '  [Gloria]
- Yes, we can provide a secure building for small-scale livestock storage. It’s <<estate_cost_barn[$estate]>> sparks per ten days.'
	$yes = {
		barn = 1
		sparks -= estate_cost_barn[$estate]
		play $small_money_sound, sound_volume
		gt 'shop_general'
	}
	$no = {
		sp_txt = 3
		gt 'shop_general'
	}
	gt 'choice_screen'
end

if interaction_city = 1340:
	npc = 1
	$npc_id = 'realtor'
	$place = 'realtor_office'
	$return_lock = 'shop_general'
	$text[1] = '  [Gloria]
- I can cancel the rent right now, <<$master_name>>, as long as the barn is currently unoccupied. You will save <<estate_cost_barn[$estate]>> for the decade.'
	$yes = {
		if farmhand_state = CONST_INT['no_slave'] and harpy_state = CONST_INT['no_slave'] and _
				cow_state = CONST_INT['no_slave'] and pig_state = CONST_INT['no_slave']:
			barn = 0
		end
		! replaced barn_farmhand, barn_harpy, barn_pig globals with state checks - ImperatorAugustus
		gt 'shop_general'
	}
	$no = {
		sp_txt = 3
		gt 'shop_general'
	}
	gt 'choice_screen'
end

if interaction_city = 13411:
	$place = 'realtor_office'
	$return_lock = 'shop_general'
	$picture_type = 'pic_png'
	$bg_path = 'bg\interiors\basic_study'
	$text[1] = '  [Gloria]
- Do you really want to redesign your hall in this way? It will be free of charge. Our workers simply will move out the extra furniture.'
	$yes = {
		$study = 'basic'
		$bg['study'] = $interior_study[$study]
		$bg['home_lux'] = $interior_study_large[$study]
		$place_info['study'] = $interior_study_info[$study]
		gt 'shop_general'
	}
	$no = {
		sp_txt = 41
		gt 'shop_general'
	}
	gt 'choice_screen'
end

if interaction_city = 13412:
	$place = 'realtor_office'
	$return_lock = 'shop_general'
	$picture_type = 'pic_png'
	$bg_path = 'bg\interiors\econom_study'
	$text[1] = '  [Gloria]
- This budget design set is available for a one-time fee of 25 sparks. Our workers will install it within a day.'
	$yes = {
		$study = 'econom'
		sparks -= 20
		if sound_on = 1: play $small_money_sound, sound_volume
		$bg['study'] = $interior_study[$study]
		$bg['home_lux'] = $interior_study_large[$study]
		$place_info['study'] = $interior_study_info[$study]
		gt 'shop_general'
	}
	$no = {
		sp_txt = 41
		gt 'shop_general'
	}
	gt 'choice_screen'
end

if interaction_city = 13413:
	$place = 'realtor_office'
	$return_lock = 'shop_general'
	$picture_type = 'pic_png'
	$bg_path = 'bg\interiors\japan_study'
	$text[1] = '  [Gloria]
- This budget design set is available for a one-time fee of 25 sparks. Our workers will install it within a day.'
	$yes = {
		$study = 'japan'
		sparks -= 25
		if sound_on = 1: play $small_money_sound, sound_volume
		$bg['study'] = $interior_study[$study]
		$bg['home_lux'] = $interior_study_large[$study]
		$place_info['study'] = $interior_study_info[$study]
		gt 'shop_general'
	}
	$no = {
		sp_txt = 41
		gt 'shop_general'
	}
	gt 'choice_screen'
end

if interaction_city = 13414:
	$place = 'realtor_office'
	$return_lock = 'shop_general'
	$picture_type = 'pic_png'
	$bg_path = 'bg\interiors\comfy_study'
	$text[1] = '  [Gloria]
- This budget design set is available for a one-time fee of 25 sparks. Our workers will install it within a day.'
	$yes = {
		$study = 'comfy'
		sparks -= 25
		if sound_on = 1: play $small_money_sound, sound_volume
		$bg['study'] = $interior_study[$study]
		$bg['home_lux'] = $interior_study_large[$study]
		$place_info['study'] = $interior_study_info[$study]
		gt 'shop_general'
	}
	$no = {
		sp_txt = 41
		gt 'shop_general'
	}
	gt 'choice_screen'
end

if interaction_city = 13415:
	$place = 'realtor_office'
	$return_lock = 'shop_general'
	$picture_type = 'pic_png'
	$bg_path = 'bg\interiors\fort_study'
	$text[1] = '  [Gloria]
- This budget design set is available for a one-time fee of 50 sparks. Our workers will install it within a day.'
	$yes = {
		$study = 'fort'
		sparks -= 50
		if sound_on = 1: play $large_money_sound, sound_volume
		$bg['study'] = $interior_study[$study]
		$bg['home_lux'] = $interior_study_large[$study]
		$place_info['study'] = $interior_study_info[$study]
		gt 'shop_general'
	}
	$no = {
		sp_txt = 41
		gt 'shop_general'
	}
	gt 'choice_screen'
end

if interaction_city = 13416:
	$place = 'realtor_office'
	$return_lock = 'shop_general'
	$picture_type = 'pic_png'
	$bg_path = 'bg\interiors\modern_study'
	$text[1] = '  [Gloria]
- This budget design set is available for a one-time fee of 50 sparks. Our workers will install it within a day.'
	$yes = {
		$study = 'modern'
		sparks -= 50
		if sound_on = 1: play $large_money_sound, sound_volume
		$bg['study'] = $interior_study[$study]
		$bg['home_lux'] = $interior_study_large[$study]
		$place_info['study'] = $interior_study_info[$study]
		gt 'shop_general'
	}
	$no = {
		sp_txt = 41
		gt 'shop_general'
	}
	gt 'choice_screen'
end

if interaction_city = 13417:
	$place = 'realtor_office'
	$return_lock = 'shop_general'
	$picture_type = 'pic_png'
	$bg_path = 'bg\interiors\classic_study'
	$text[1] = '  [Gloria]
- This premium design set is available for a one-time fee of 50 sparks. Our workers will install it within a day.'
	$yes = {
		$study = 'classic'
		sparks -= 50
		if sound_on = 1: play $large_money_sound, sound_volume
		$bg['study'] = $interior_study[$study]
		$bg['home_lux'] = $interior_study_large[$study]
		$place_info['study'] = $interior_study_info[$study]
		gt 'shop_general'
	}
	$no = {
		sp_txt = 41
		gt 'shop_general'
	}
	gt 'choice_screen'
end

if interaction_city = 13418:
	$place = 'realtor_office'
	$return_lock = 'shop_general'
	$picture_type = 'pic_png'
	$bg_path = 'bg\interiors\victorian_study'
	$text[1] = '  [Gloria]
- This premium design set is available for a one-time fee of 100 sparks. Our workers will install it within a day.'
	$yes = {
		$study = 'victorian'
		sparks -= 100
		if sound_on = 1: play $large_money_sound, sound_volume
		$bg['study'] = $interior_study[$study]
		$bg['home_lux'] = $interior_study_large[$study]
		$place_info['study'] = $interior_study_info[$study]
		gt 'shop_general'
	}
	$no = {
		sp_txt = 41
		gt 'shop_general'
	}
	gt 'choice_screen'
end

if interaction_city = 13419:
	$place = 'realtor_office'
	$return_lock = 'shop_general'
	$picture_type = 'pic_png'
	$bg_path = 'bg\interiors\gothic_study'
	$text[1] = '  [Gloria]
- This premium design set is available for a one-time fee of 100 sparks. Our workers will install it within a day.'
	$yes = {
		$study = 'gothic'
		sparks -= 100
		if sound_on = 1: play $large_money_sound, sound_volume
		$bg['study'] = $interior_study[$study]
		$bg['home_lux'] = $interior_study_large[$study]
		$place_info['study'] = $interior_study_info[$study]
		gt 'shop_general'
	}
	$no = {
		sp_txt = 41
		gt 'shop_general'
	}
	gt 'choice_screen'
end

if interaction_city = 134110:
	$place = 'realtor_office'
	$return_lock = 'shop_general'
	$picture_type = 'pic_png'
	$bg_path = 'bg\interiors\elite_study'
	$text[1] = '  [Gloria]
- This premium design set is available for a one-time fee of 100 sparks. Our workers will install it within a day.'
	$yes = {
		$study = 'elite'
		sparks -= 100
		if sound_on = 1: play $large_money_sound, sound_volume
		$bg['study'] = $interior_study[$study]
		$bg['home_lux'] = $interior_study_large[$study]
		$place_info['study'] = $interior_study_info[$study]
		gt 'shop_general'
	}
	$no = {
		sp_txt = 41
		gt 'shop_general'
	}
	gt 'choice_screen'
end

if interaction_city = 134111:
	$place = 'realtor_office'
	$return_lock = 'shop_general'
	$picture_type = 'pic_png'
	$bg_path = 'bg\interiors\slaver_study'
	$text[1] = '  [Gloria]
- This premium design set is available for a one-time fee of 150 sparks. Our workers will install it within a day.'
	$yes = {
		$study = 'slaver'
		sparks -= 150
		if sound_on = 1: play $large_money_sound, sound_volume
		$bg['study'] = $interior_study[$study]
		$bg['home_lux'] = $interior_study_large[$study]
		$place_info['study'] = $interior_study_info[$study]
		gt 'shop_general'
	}
	$no = {
		sp_txt = 41
		gt 'shop_general'
	}
	gt 'choice_screen'
end

if interaction_city = 134112:
	$place = 'realtor_office'
	$return_lock = 'shop_general'
	$picture_type = 'pic_png'
	$bg_path = 'bg\interiors\lux_study'
	$text[1] = '  [Gloria]
- This premium design set is available for a one-time fee of 200 sparks. Our workers will install it within a day.'
	$yes = {
		$study = 'lux'
		sparks -= 200
		if sound_on = 1: play $large_money_sound, sound_volume
		$bg['study'] = $interior_study[$study]
		$bg['home_lux'] = $interior_study_large[$study]
		$place_info['study'] = $interior_study_info[$study]
		gt 'shop_general'
	}
	$no = {
		sp_txt = 41
		gt 'shop_general'
	}
	gt 'choice_screen'
end

if interaction_city = 13421:
	$place = 'realtor_office'
	$return_lock = 'shop_general'
	$picture_type = 'pic_png'
	$bg_path = 'bg\interiors\basic_bed'
	$text[1] = '  [Gloria]
- Do you really want to redesign your bedroom in this way? It will be free of charge. Our workers simply will move out the extra furniture.'
	$yes = {
		$bed = 'basic'
		$bg['bedroom'] = $interior_bed[$bed]
		$bg['bedroom_lux'] = $interior_bed_large[$bed]
		$place_info['bedroom'] = $interior_bed_info[$bed]
		gt 'shop_general'
	}
	$no = {
		sp_txt = 42
		gt 'shop_general'
	}
	gt 'choice_screen'
end

if interaction_city = 13422:
	$place = 'realtor_office'
	$return_lock = 'shop_general'
	$picture_type = 'pic_png'
	$bg_path = 'bg\interiors\econom_bed'
	$text[1] = '  [Gloria]
- This budget design set is available for a one-time fee of 15 sparks. Our workers will install it within a day.'
	$yes = {
		$bed = 'econom'
		sparks -= 15
		if sound_on = 1: play $small_money_sound, sound_volume
		$bg['bedroom'] = $interior_bed[$bed]
		$bg['bedroom_lux'] = $interior_bed_large[$bed]
		$place_info['bedroom'] = $interior_bed_info[$bed]
		gt 'shop_general'
	}
	$no = {
		sp_txt = 42
		gt 'shop_general'
	}
	gt 'choice_screen'
end

if interaction_city = 13423:
	$place = 'realtor_office'
	$return_lock = 'shop_general'
	$picture_type = 'pic_png'
	$bg_path = 'bg\interiors\japan_bed'
	$text[1] = '  [Gloria]
- This budget design set is available for a one-time fee of 25 sparks. Our workers will install it within a day.'
	$yes = {
		$bed = 'japan'
		sparks -= 25
		if sound_on = 1: play $small_money_sound, sound_volume
		$bg['bedroom'] = $interior_bed[$bed]
		$bg['bedroom_lux'] = $interior_bed_large[$bed]
		$place_info['bedroom'] = $interior_bed_info[$bed]
		gt 'shop_general'
	}
	$no = {
		sp_txt = 42
		gt 'shop_general'
	}
	gt 'choice_screen'
end

if interaction_city = 13424:
	$place = 'realtor_office'
	$return_lock = 'shop_general'
	$picture_type = 'pic_png'
	$bg_path = 'bg\interiors\comfy_bed'
	$text[1] = '  [Gloria]
- This budget design set is available for a one-time fee of 25 sparks. Our workers will install it within a day.'
	$yes = {
		$bed = 'comfy'
		sparks -= 25
		if sound_on = 1: play $small_money_sound, sound_volume
		$bg['bedroom'] = $interior_bed[$bed]
		$bg['bedroom_lux'] = $interior_bed_large[$bed]
		$place_info['bedroom'] = $interior_bed_info[$bed]
		gt 'shop_general'
	}
	$no = {
		sp_txt = 42
		gt 'shop_general'
	}
	gt 'choice_screen'
end

if interaction_city = 13425:
	$place = 'realtor_office'
	$return_lock = 'shop_general'
	$picture_type = 'pic_png'
	$bg_path = 'bg\interiors\fort_bed'
	$text[1] = '  [Gloria]
- This budget design set is available for a one-time fee of 30 sparks. Our workers will install it within a day.'
	$yes = {
		$bed = 'fort'
		sparks -= 30
		if sound_on = 1: play $small_money_sound, sound_volume
		$bg['bedroom'] = $interior_bed[$bed]
		$bg['bedroom_lux'] = $interior_bed_large[$bed]
		$place_info['bedroom'] = $interior_bed_info[$bed]
		gt 'shop_general'
	}
	$no = {
		sp_txt = 42
		gt 'shop_general'
	}
	gt 'choice_screen'
end

if interaction_city = 13426:
	$place = 'realtor_office'
	$return_lock = 'shop_general'
	$picture_type = 'pic_png'
	$bg_path = 'bg\interiors\modern_bed'
	$text[1] = '  [Gloria]
- This premium design set is available for a one-time fee of 50 sparks. Our workers will install it within a day.'
	$yes = {
		$bed = 'modern'
		sparks -= 50
		if sound_on = 1: play $large_money_sound, sound_volume
		$bg['bedroom'] = $interior_bed[$bed]
		$bg['bedroom_lux'] = $interior_bed_large[$bed]
		$place_info['bedroom'] = $interior_bed_info[$bed]
		gt 'shop_general'
	}
	$no = {
		sp_txt = 42
		gt 'shop_general'
	}
	gt 'choice_screen'
end

if interaction_city = 13427:
	$place = 'realtor_office'
	$return_lock = 'shop_general'
	$picture_type = 'pic_png'
	$bg_path = 'bg\interiors\classic_bedroom'
	$text[1] = '  [Gloria]
- This premium design set is available for a one-time fee of 100 sparks. Our workers will install it within a day.'
	$yes = {
		$bed = 'classic'
		sparks -= 100
		if sound_on = 1: play $large_money_sound, sound_volume
		$bg['bedroom'] = $interior_bed[$bed]
		$bg['bedroom_lux'] = $interior_bed_large[$bed]
		$place_info['bedroom'] = $interior_bed_info[$bed]
		gt 'shop_general'
	}
	$no = {
		sp_txt = 42
		gt 'shop_general'
	}
	gt 'choice_screen'
end

if interaction_city = 13428:
	$place = 'realtor_office'
	$return_lock = 'shop_general'
	$picture_type = 'pic_png'
	$bg_path = 'bg\interiors\slaver_bed'
	$text[1] = '  [Gloria]
- This premium design set is available for a one-time fee of 100 sparks. Our workers will install it within a day.'
	$yes = {
		$bed = 'slaver'
		sparks -= 100
		if sound_on = 1: play $large_money_sound, sound_volume
		$bg['bedroom'] = $interior_bed[$bed]
		$bg['bedroom_lux'] = $interior_bed_large[$bed]
		$place_info['bedroom'] = $interior_bed_info[$bed]
		gt 'shop_general'
	}
	$no = {
		sp_txt = 42
		gt 'shop_general'
	}
	gt 'choice_screen'
end

if interaction_city = 13429:
	$place = 'realtor_office'
	$return_lock = 'shop_general'
	$picture_type = 'pic_png'
	$bg_path = 'bg\interiors\stylish_bed'
	$text[1] = '  [Gloria]
- This premium design set is available for a one-time fee of 150 sparks. Our workers will install it within a day.'
	$yes = {
		$bed = 'stylish'
		sparks -= 150
		if sound_on = 1: play $large_money_sound, sound_volume
		$bg['bedroom'] = $interior_bed[$bed]
		$bg['bedroom_lux'] = $interior_bed_large[$bed]
		$place_info['bedroom'] = $interior_bed_info[$bed]
		gt 'shop_general'
	}
	$no = {
		sp_txt = 42
		gt 'shop_general'
	}
	gt 'choice_screen'
end

if interaction_city = 134210:
	$place = 'realtor_office'
	$return_lock = 'shop_general'
	$picture_type = 'pic_png'
	$bg_path = 'bg\interiors\gothic_bed'
	$text[1] = '  [Gloria]
- This premium design set is available for a one-time fee of 150 sparks. Our workers will install it within a day.'
	$yes = {
		$bed = 'gothic'
		sparks -= 150
		if sound_on = 1: play $large_money_sound, sound_volume
		$bg['bedroom'] = $interior_bed[$bed]
		$bg['bedroom_lux'] = $interior_bed_large[$bed]
		$place_info['bathroom'] = $interior_bed_info[$bed]
		gt 'shop_general'
	}
	$no = {
		sp_txt = 42
		gt 'shop_general'
	}
	gt 'choice_screen'
end

if interaction_city = 134211:
	$place = 'realtor_office'
	$return_lock = 'shop_general'
	$picture_type = 'pic_png'
	$bg_path = 'bg\interiors\elite_bed'
	$text[1] = '  [Gloria]
- This premium design set is available for a one-time fee of 150 sparks. Our workers will install it within a day.'
	$yes = {
		$bed = 'elite'
		sparks -= 150
		if sound_on = 1: play $large_money_sound, sound_volume
		$bg['bedroom'] = $interior_bed[$bed]
		$bg['bedroom_lux'] = $interior_bed_large[$bed]
		$place_info['bedroom'] = $interior_bed_info[$bed]
		gt 'shop_general'
	}
	$no = {
		sp_txt = 42
		gt 'shop_general'
	}
	gt 'choice_screen'
end

if interaction_city = 134212:
	$place = 'realtor_office'
	$return_lock = 'shop_general'
	$picture_type = 'pic_png'
	$bg_path = 'bg\interiors\lux_bed'
	$text[1] = '  [Gloria]
- This premium design set is available for a one-time fee of 200 sparks. Our workers will install it within a day.'
	$yes = {
		$bed = 'lux'
		sparks -= 200
		if sound_on = 1: play $large_money_sound, sound_volume
		$bg['bedroom'] = $interior_bed[$bed]
		$bg['bedroom_lux'] = $interior_bed_large[$bed]
		$place_info['bedroom'] = $interior_bed_info[$bed]
		gt 'shop_general'
	}
	$no = {
		sp_txt = 42
		gt 'shop_general'
	}
	gt 'choice_screen'
end

if interaction_city = 13431:
	$place = 'realtor_office'
	$return_lock = 'shop_general'
	$picture_type = 'pic_png'
	$bg_path = 'bg\interiors\basic_kitchen'
	$text[1] = '  [Gloria]
- This budget design set is available for a one-time fee of 20 sparks. Our workers will install it within a day.'
	$yes = {
		$kitchen = 'basic'
		sparks -= 20
		if sound_on = 1: play $small_money_sound, sound_volume
		$bg['kitchen'] = $interior_kitchen[$kitchen]
		$bg['kitchen_lux'] = $interior_kitchen_large[$kitchen]
		$place_info['kitchen'] = $interior_kitchen_info[$kitchen]
		gt 'shop_general'
	}
	$no = {
		sp_txt = 43
		gt 'shop_general'
	}
	gt 'choice_screen'
end

if interaction_city = 13432:
	$place = 'realtor_office'
	$return_lock = 'shop_general'
	$picture_type = 'pic_png'
	$bg_path = 'bg\interiors\econom_kitchen'
	$text[1] = '  [Gloria]
- This budget design set is available for a one-time fee of 20 sparks. Our workers will install it within a day.'
	$yes = {
		$kitchen = 'econom'
		sparks -= 20
		if sound_on = 1: play $small_money_sound, sound_volume
		$bg['kitchen'] = $interior_kitchen[$kitchen]
		$bg['kitchen_lux'] = $interior_kitchen_large[$kitchen]
		$place_info['kitchen'] = $interior_kitchen_info[$kitchen]
		gt 'shop_general'
	}
	$no = {
		sp_txt = 43
		gt 'shop_general'
	}
	gt 'choice_screen'
end

if interaction_city = 13433:
	$place = 'realtor_office'
	$return_lock = 'shop_general'
	$picture_type = 'pic_png'
	$bg_path = 'bg\interiors\fort_kitchen'
	$text[1] = '  [Gloria]
- This budget design set is available for a one-time fee of 20 sparks. Our workers will install it within a day.'
	$yes = {
		$kitchen = 'fort'
		sparks -= 20
		if sound_on = 1: play $small_money_sound, sound_volume
		$bg['kitchen'] = $interior_kitchen[$kitchen]
		$bg['kitchen_lux'] = $interior_kitchen_large[$kitchen]
		$place_info['kitchen'] = $interior_kitchen_info[$kitchen]
		gt 'shop_general'
	}
	$no = {
		sp_txt = 43
		gt 'shop_general'
	}
	gt 'choice_screen'
end

if interaction_city = 13434:
	$place = 'realtor_office'
	$return_lock = 'shop_general'
	$picture_type = 'pic_png'
	$bg_path = 'bg\interiors\gothic_kitchen'
	$text[1] = '  [Gloria]
- This premium design set is available for a one-time fee of 50 sparks. Our workers will install it within a day.'
	$yes = {
		$kitchen = 'gothic'
		sparks -= 50
		if sound_on = 1: play $large_money_sound, sound_volume
		$bg['kitchen'] = $interior_kitchen[$kitchen]
		$bg['kitchen_lux'] = $interior_kitchen_large[$kitchen]
		$place_info['kitchen'] = $interior_kitchen_info[$kitchen]
		gt 'shop_general'
	}
	$no = {
		sp_txt = 43
		gt 'shop_general'
	}
	gt 'choice_screen'
end

if interaction_city = 13435:
	$place = 'realtor_office'
	$return_lock = 'shop_general'
	$picture_type = 'pic_png'
	$bg_path = 'bg\interiors\elite_kitchen'
	$text[1] = '  [Gloria]
- This premium design set is available for a one-time fee of 50 sparks. Our workers will install it within a day.'
	$yes = {
		$kitchen = 'elite'
		sparks -= 50
		if sound_on = 1: play $large_money_sound, sound_volume
		$bg['kitchen'] = $interior_kitchen[$kitchen]
		$bg['kitchen_lux'] = $interior_kitchen_large[$kitchen]
		$place_info['kitchen'] = $interior_kitchen_info[$kitchen]
		gt 'shop_general'
	}
	$no = {
		sp_txt = 43
		gt 'shop_general'
	}
	gt 'choice_screen'
end

if interaction_city = 13441:
	$place = 'realtor_office'
	$return_lock = 'shop_general'
	$picture_type = 'pic_png'
	$bg_path = 'bg\interiors\econom_bath'
	$text[1] = '  [Gloria]
- This budget design set is available for a one-time fee of 20 sparks. Our workers will install it within a day.'
	$yes = {
		$bath = 'econom'
		sparks -= 20
		if sound_on = 1: play $small_money_sound, sound_volume
		$bg['bathroom'] = $interior_bath[$bath]
		$bg['bathroom_lux'] = $interior_bath_large[$bath]
		$place_info['bathroom'] = $interior_bath_info[$bath]
		gt 'shop_general'
	}
	$no = {
		sp_txt = 44
		gt 'shop_general'
	}
	gt 'choice_screen'
end

if interaction_city = 13442:
	$place = 'realtor_office'
	$return_lock = 'shop_general'
	$picture_type = 'pic_png'
	$bg_path = 'bg\interiors\fort_bath'
	$text[1] = '  [Gloria]
- This budget design set is available for a one-time fee of 20 sparks. Our workers will install it within a day.'
	$yes = {
		$bath = 'fort'
		sparks -= 20
		if sound_on = 1: play $small_money_sound, sound_volume
		$bg['bathroom'] = $interior_bath[$bath]
		$bg['bathroom_lux'] = $interior_bath_large[$bath]
		$place_info['bathroom'] = $interior_bath_info[$bath]
		gt 'shop_general'
	}
	$no = {
		sp_txt = 44
		gt 'shop_general'
	}
	gt 'choice_screen'
end

if interaction_city = 13443:
	$place = 'realtor_office'
	$return_lock = 'shop_general'
	$picture_type = 'pic_png'
	$bg_path = 'bg\interiors\classic_bathroom'
	$text[1] = '  [Gloria]
- This premium design set is available for a one-time fee of 50 sparks. Our workers will install it within a day.'
	$yes = {
		$bath = 'classic'
		sparks -= 50
		if sound_on = 1: play $large_money_sound, sound_volume
		$bg['bathroom'] = $interior_bath[$bath]
		$bg['bathroom_lux'] = $interior_bath_large[$bath]
		$place_info['bathroom'] = $interior_bath_info[$bath]
		gt 'shop_general'
	}
	$no = {
		sp_txt = 44
		gt 'shop_general'
	}
	gt 'choice_screen'
end

if interaction_city = 13444:
	$place = 'realtor_office'
	$return_lock = 'shop_general'
	$picture_type = 'pic_png'
	$bg_path = 'bg\interiors\japan_bath'
	$text[1] = '  [Gloria]
- This premium design set is available for a one-time fee of 50 sparks. Our workers will install it within a day.'
	$yes = {
		$bath = 'japan'
		sparks -= 50
		if sound_on = 1: play $large_money_sound, sound_volume
		$bg['bathroom'] = $interior_bath[$bath]
		$bg['bathroom_lux'] = $interior_bath_large[$bath]
		$place_info['bathroom'] = $interior_bath_info[$bath]
		gt 'shop_general'
	}
	$no = {
		sp_txt = 44
		gt 'shop_general'
	}
	gt 'choice_screen'
end

if interaction_city = 13445:
	$place = 'realtor_office'
	$return_lock = 'shop_general'
	$picture_type = 'pic_png'
	$bg_path = 'bg\interiors\gothic_bath'
	$text[1] = '  [Gloria]
- This premium design set is available for a one-time fee of 50 sparks. Our workers will install it within a day.'
	$yes = {
		$bath = 'gothic'
		sparks -= 50
		if sound_on = 1: play $large_money_sound, sound_volume
		$bg['bathroom'] = $interior_bath[$bath]
		$bg['bathroom_lux'] = $interior_bath_large[$bath]
		$place_info['bathroom'] = $interior_bath_info[$bath]
		gt 'shop_general'
	}
	$no = {
		sp_txt = 44
		gt 'shop_general'
	}
	gt 'choice_screen'
end

if interaction_city = 13446:
	$place = 'realtor_office'
	$return_lock = 'shop_general'
	$picture_type = 'pic_png'
	$bg_path = 'bg\interiors\elite_bath'
	$text[1] = '  [Gloria]
- This premium design set is available for a one-time fee of 50 sparks. Our workers will install it within a day.'
	$yes = {
		$bath = 'elite'
		sparks -= 50
		if sound_on = 1: play $large_money_sound, sound_volume
		$bg['bathroom'] = $interior_bath[$bath]
		$bg['bathroom_lux'] = $interior_bath_large[$bath]
		$place_info['bathroom'] = $interior_bath_info[$bath]
		gt 'shop_general'
	}
	$no = {
		sp_txt = 44
		gt 'shop_general'
	}
	gt 'choice_screen'
end

if interaction_city = 13448:
	$place = 'realtor_office'
	$return_lock = 'shop_general'
	$picture_type = 'pic_png'
	$bg_path = 'bg\interiors\lux_bath'
	$text[1] = '  [Gloria]
- This premium design set is available for a one-time fee of 100 sparks. Our workers will install it within a day.'
	$yes = {
		$bath = 'lux'
		sparks -= 100
		if sound_on = 1: play $large_money_sound, sound_volume
		$bg['bathroom'] = $interior_bath[$bath]
		$bg['bathroom_lux'] = $interior_bath_large[$bath]
		$place_info['bathroom'] = $interior_bath_info[$bath]
		gt 'shop_general'
	}
	$no = {
		sp_txt = 44
		gt 'shop_general'
	}
	gt 'choice_screen'
end

if interaction_city = 13447:
	$place = 'realtor_office'
	$return_lock = 'shop_general'
	$picture_type = 'pic_png'
	$bg_path = 'bg\interiors\basic_bath'
	$text[1] = '  [Gloria]
- Do you really want to redesign your bathroom in this way? It will be free of charge. Our workers simply will move out the extra furniture.'
	$yes = {
		$bath = 'basic'
		$bg['bathroom'] = $interior_bath[$bath]
		$bg['bathroom_lux'] = $interior_bath_large[$bath]
		$place_info['bathroom'] = $interior_bath_info[$bath]
		gt 'shop_general'
	}
	$no = {
		sp_txt = 44
		gt 'shop_general'
	}
	gt 'choice_screen'
end

if interaction_city = 13451:
	$place = 'realtor_office'
	$return_lock = 'shop_general'
	$picture_type = 'pic_png'
	$bg_path = 'bg\interiors\basic_dungeon'
	$text[1] = '  [Gloria]
- Do you really want to redesign your dungeon in this way? It will be free of charge. Our workers simply will move out the extra furniture.'
	$yes = {
		$dungeon = 'basic'
		sparks -= 0
		$bg['dungeon'] = $interior_dungeon[$dungeon]
		$bg['dungeon_lux'] = $interior_dungeon_large[$dungeon]
		$place_info['dungeon'] = $interior_dungeon_info[$dungeon]
		gt 'shop_general'
	}
	$no = {
		sp_txt = 45
		gt 'shop_general'
	}
	gt 'choice_screen'
end

if interaction_city = 13452:
	$place = 'realtor_office'
	$return_lock = 'shop_general'
	$picture_type = 'pic_png'
	$bg_path = 'bg\interiors\econom_dungeon'
	$text[1] = '  [Gloria]
- This design set is available for a one-time fee of 20 sparks. Our workers will install it within a day.'
	$yes = {
		$dungeon = 'econom'
		sparks -= 20
		if sound_on = 1: play $small_money_sound, sound_volume
		$bg['dungeon'] = $interior_dungeon[$dungeon]
		$bg['dungeon_lux'] = $interior_dungeon_large[$dungeon]
		$place_info['dungeon'] = $interior_dungeon_info[$dungeon]
		gt 'shop_general'
	}
	$no = {
		sp_txt = 45
		gt 'shop_general'
	}
	gt 'choice_screen'
end

if interaction_city = 13453:
	$place = 'realtor_office'
	$return_lock = 'shop_general'
	$picture_type = 'pic_png'
	$bg_path = 'bg\interiors\fort_dungeon'
	$text[1] = '  [Gloria]
- This design set is available for a one-time fee of 10 sparks. Our workers will install it within a day.'
	$yes = {
		$dungeon = 'fort'
		sparks -= 10
		if sound_on = 1: play $small_money_sound, sound_volume
		$bg['dungeon'] = $interior_dungeon[$dungeon]
		$bg['dungeon_lux'] = $interior_dungeon_large[$dungeon]
		$place_info['dungeon'] = $interior_dungeon_info[$dungeon]
		gt 'shop_general'
	}
	$no = {
		sp_txt = 45
		gt 'shop_general'
	}
	gt 'choice_screen'
end

if interaction_city = 13454:
	$place = 'realtor_office'
	$return_lock = 'shop_general'
	$picture_type = 'pic_png'
	$bg_path = 'bg\interiors\entomb_dungeon'
	$text[1] = '  [Gloria]
- This design set is available for a one-time fee of 10 sparks. Our workers will install it within a day.'
	$yes = {
		$dungeon = 'entomb'
		sparks -= 10
		if sound_on = 1: play $small_money_sound, sound_volume
		$bg['dungeon'] = $interior_dungeon[$dungeon]
		$bg['dungeon_lux'] = $interior_dungeon_large[$dungeon]
		$place_info['dungeon'] = $interior_dungeon_info[$dungeon]
		gt 'shop_general'
	}
	$no = {
		sp_txt = 45
		gt 'shop_general'
	}
	gt 'choice_screen'
end

if interaction_city = 13455:
	$place = 'realtor_office'
	$return_lock = 'shop_general'
	$picture_type = 'pic_png'
	$bg_path = 'bg\interiors\classic_dungeon'
	$text[1] = '  [Gloria]
- This design set is available for a one-time fee of 20 sparks. Our workers will install it within a day.'
	$yes = {
		$dungeon = 'classic'
		sparks -= 20
		if sound_on = 1: play $small_money_sound, sound_volume
		$bg['dungeon'] = $interior_dungeon[$dungeon]
		$bg['dungeon_lux'] = $interior_dungeon_large[$dungeon]
		$place_info['dungeon'] = $interior_dungeon_info[$dungeon]
		gt 'shop_general'
	}
	$no = {
		sp_txt = 45
		gt 'shop_general'
	}
	gt 'choice_screen'
end

if interaction_city = 13456:
	$place = 'realtor_office'
	$return_lock = 'shop_general'
	$picture_type = 'pic_png'
	$bg_path = 'bg\interiors\pastoral_dungeon'
	$text[1] = '  [Gloria]
- This design set is available for a one-time fee of 25 sparks. Our workers will install it within a day.'
	$yes = {
		$dungeon = 'pastoral'
		sparks -= 20
		if sound_on = 1: play $small_money_sound, sound_volume
		$bg['dungeon'] = $interior_dungeon[$dungeon]
		$bg['dungeon_lux'] = $interior_dungeon_large[$dungeon]
		$place_info['dungeon'] = $interior_dungeon_info[$dungeon]
		gt 'shop_general'
	}
	$no = {
		sp_txt = 45
		gt 'shop_general'
	}
	gt 'choice_screen'
end

if interaction_city = 13457:
	$place = 'realtor_office'
	$return_lock = 'shop_general'
	$picture_type = 'pic_png'
	$bg_path = 'bg\interiors\gothic_dungeon'
	$text[1] = '  [Gloria]
- This design set is available for a one-time fee of 25 sparks. Our workers will install it within a day.'
	$yes = {
		$dungeon = 'gothic'
		sparks -= 20
		if sound_on = 1: play $small_money_sound, sound_volume
		$bg['dungeon'] = $interior_dungeon[$dungeon]
		$bg['dungeon_lux'] = $interior_dungeon_large[$dungeon]
		$place_info['dungeon'] = $interior_dungeon_info[$dungeon]
		gt 'shop_general'
	}
	$no = {
		sp_txt = 45
		gt 'shop_general'
	}
	gt 'choice_screen'
end

if interaction_city = 13458:
	$place = 'realtor_office'
	$return_lock = 'shop_general'
	$picture_type = 'pic_png'
	$bg_path = 'bg\interiors\executor_dungeon'
	$text[1] = '  [Gloria]
- This design set is available for a one-time fee of 25 sparks. Our workers will install it within a day.'
	$yes = {
		$dungeon = 'executor'
		sparks -= 25
		if sound_on = 1: play $small_money_sound, sound_volume
		$bg['dungeon'] = $interior_dungeon[$dungeon]
		$bg['dungeon_lux'] = $interior_dungeon_large[$dungeon]
		$place_info['dungeon'] = $interior_dungeon_info[$dungeon]
		gt 'shop_general'
	}
	$no = {
		sp_txt = 45
		gt 'shop_general'
	}
	gt 'choice_screen'
end

if interaction_city = 13459:
	$place = 'realtor_office'
	$return_lock = 'shop_general'
	$picture_type = 'pic_png'
	$bg_path = 'bg\interiors\slaver_dungeon'
	$text[1] = '  [Gloria]
- This design set is available for a one-time fee of 25 sparks. Our workers will install it within a day.'
	$yes = {
		$dungeon = 'slaver'
		sparks -= 25
		if sound_on = 1: play $small_money_sound, sound_volume
		$bg['dungeon'] = $interior_dungeon[$dungeon]
		$bg['dungeon_lux'] = $interior_dungeon_large[$dungeon]
		$place_info['dungeon'] = $interior_dungeon_info[$dungeon]
		gt 'shop_general'
	}
	$no = {
		sp_txt = 45
		gt 'shop_general'
	}
	gt 'choice_screen'
end

if interaction_city = 134510:
	$place = 'realtor_office'
	$return_lock = 'shop_general'
	$picture_type = 'pic_png'
	$bg_path = 'bg\interiors\victorian_dungeon'
	$text[1] = '  [Gloria]
- This design set is available for a one-time fee of 50 sparks. Our workers will install it within a day.'
	$yes = {
		$dungeon = 'victorian'
		sparks -= 50
		if sound_on = 1: play $large_money_sound, sound_volume
		$bg['dungeon'] = $interior_dungeon[$dungeon]
		$bg['dungeon_lux'] = $interior_dungeon_large[$dungeon]
		$place_info['dungeon'] = $interior_dungeon_info[$dungeon]
		gt 'shop_general'
	}
	$no = {
		sp_txt = 45
		gt 'shop_general'
	}
	gt 'choice_screen'
end

if interaction_city = 134511:
	$place = 'realtor_office'
	$return_lock = 'shop_general'
	$picture_type = 'pic_png'
	$bg_path = 'bg\interiors\elite_dungeon'
	$text[1] = '  [Gloria]
- This design set is available for a one-time fee of 50 sparks. Our workers will install it within a day.'
	$yes = {
		$dungeon = 'elite'
		sparks -= 50
		if sound_on = 1: play $large_money_sound, sound_volume
		$bg['dungeon'] = $interior_dungeon[$dungeon]
		$bg['dungeon_lux'] = $interior_dungeon_large[$dungeon]
		$place_info['dungeon'] = $interior_dungeon_info[$dungeon]
		gt 'shop_general'
	}
	$no = {
		sp_txt = 45
		gt 'shop_general'
	}
	gt 'choice_screen'
end

if interaction_city = 134512:
	$place = 'realtor_office'
	$return_lock = 'shop_general'
	$picture_type = 'pic_png'
	$bg_path = 'bg\interiors\lux_dungeon'
	$text[1] = '  [Gloria]
- This design set is available for a one-time fee of 50 sparks. Our workers will install it within a day.'
	$yes = {
		$dungeon = 'lux'
		sparks -= 50
		if sound_on = 1: play $large_money_sound, sound_volume
		$bg['dungeon'] = $interior_dungeon[$dungeon]
		$bg['dungeon_lux'] = $interior_dungeon_large[$dungeon]
		$place_info['dungeon'] = $interior_dungeon_info[$dungeon]
		gt 'shop_general'
	}
	$no = {
		sp_txt = 45
		gt 'shop_general'
	}
	gt 'choice_screen'
end

if interaction_city = 13461:
	$place = 'realtor_office'
	$return_lock = 'shop_general'
	$picture_type = 'pic_png'
	$bg_path = 'bg\interiors\basic_boudoir'
	$text[1] = '  [Gloria]
- Do you really want to redesign the boudoir in this way? It will be free of charge. Our workers simply will move out the extra furniture.'
	$yes = {
		$boudoir = 'basic'
		sparks -= 0
		$bg['boudoir'] = $interior_boudoir[$boudoir]
		$bg['boudoir_lux'] = $interior_boudoir_large[$boudoir]
		$place_info['boudoir'] = $interior_boudoir_info[$boudoir]
		gt 'shop_general'
	}
	$no = {
		sp_txt = 46
		gt 'shop_general'
	}
	gt 'choice_screen'
end

if interaction_city = 13462:
	$place = 'realtor_office'
	$return_lock = 'shop_general'
	$picture_type = 'pic_png'
	$bg_path = 'bg\interiors\econom_boudoir'
	$text[1] = '  [Gloria]
- This design set is available for a one-time fee of 10 sparks. Our workers will install it within a day.'
	$yes = {
		$boudoir = 'econom'
		sparks -= 10
		if sound_on = 1: play $small_money_sound, sound_volume
		$bg['boudoir'] = $interior_boudoir[$boudoir]
		$bg['boudoir_lux'] = $interior_boudoir_large[$boudoir]
		$place_info['boudoir'] = $interior_boudoir_info[$boudoir]
		gt 'shop_general'
	}
	$no = {
		sp_txt = 46
		gt 'shop_general'
	}
	gt 'choice_screen'
end

if interaction_city = 13463:
	$place = 'realtor_office'
	$return_lock = 'shop_general'
	$picture_type = 'pic_png'
	$bg_path = 'bg\interiors\modern_boudoir'
	$text[1] = '  [Gloria]
- This design set is available for a one-time fee of 20 sparks. Our workers will install it within a day.'
	$yes = {
		$boudoir = 'modern'
		sparks -= 20
		if sound_on = 1: play $small_money_sound, sound_volume
		$bg['boudoir'] = $interior_boudoir[$boudoir]
		$bg['boudoir_lux'] = $interior_boudoir_large[$boudoir]
		$place_info['boudoir'] = $interior_boudoir_info[$boudoir]
		gt 'shop_general'
	}
	$no = {
		sp_txt = 46
		gt 'shop_general'
	}
	gt 'choice_screen'
end

if interaction_city = 13464:
	$place = 'realtor_office'
	$return_lock = 'shop_general'
	$picture_type = 'pic_png'
	$bg_path = 'bg\interiors\comfy_boudoir'
	$text[1] = '  [Gloria]
- This design set is available for a one-time fee of 20 sparks. Our workers will install it within a day.'
	$yes = {
		$boudoir = 'comfy'
		sparks -= 20
		if sound_on = 1: play $small_money_sound, sound_volume
		$bg['boudoir'] = $interior_boudoir[$boudoir]
		$bg['boudoir_lux'] = $interior_boudoir_large[$boudoir]
		$place_info['boudoir'] = $interior_boudoir_info[$boudoir]
		gt 'shop_general'
	}
	$no = {
		sp_txt = 46
		gt 'shop_general'
	}
	gt 'choice_screen'
end

if interaction_city = 13465:
	$place = 'realtor_office'
	$return_lock = 'shop_general'
	$picture_type = 'pic_png'
	$bg_path = 'bg\interiors\magic_boudoir'
	$text[1] = '  [Gloria]
- This design set is available for a one-time fee of 50 sparks. Our workers will install it within a day.'
	$yes = {
		$boudoir = 'magic'
		sparks -= 50
		if sound_on = 1: play $large_money_sound, sound_volume
		$bg['boudoir'] = $interior_boudoir[$boudoir]
		$bg['boudoir_lux'] = $interior_boudoir_large[$boudoir]
		$place_info['boudoir'] = $interior_boudoir_info[$boudoir]
		gt 'shop_general'
	}
	$no = {
		sp_txt = 46
		gt 'shop_general'
	}
	gt 'choice_screen'
end

if interaction_city = 13466:
	$place = 'realtor_office'
	$return_lock = 'shop_general'
	$picture_type = 'pic_png'
	$bg_path = 'bg\interiors\victorian_boudoir'
	$text[1] = '  [Gloria]
- This design set is available for a one-time fee of 50 sparks. Our workers will install it within a day.'
	$yes = {
		$boudoir = 'victorian'
		sparks -= 50
		if sound_on = 1: play $large_money_sound, sound_volume
		$bg['boudoir'] = $interior_boudoir[$boudoir]
		$bg['boudoir_lux'] = $interior_boudoir_large[$boudoir]
		$place_info['boudoir'] = $interior_boudoir_info[$boudoir]
		gt 'shop_general'
	}
	$no = {
		sp_txt = 46
		gt 'shop_general'
	}
	gt 'choice_screen'
end

if interaction_city = 13467:
	$place = 'realtor_office'
	$return_lock = 'shop_general'
	$picture_type = 'pic_png'
	$bg_path = 'bg\interiors\slaver_boudoir'
	$text[1] = '  [Gloria]
- This design set is available for a one-time fee of 50 sparks. Our workers will install it within a day.'
	$yes = {
		$boudoir = 'slaver'
		sparks -= 50
		if sound_on = 1: play $large_money_sound, sound_volume
		$bg['boudoir'] = $interior_boudoir[$boudoir]
		$bg['boudoir_lux'] = $interior_boudoir_large[$boudoir]
		$place_info['boudoir'] = $interior_boudoir_info[$boudoir]
		gt 'shop_general'
	}
	$no = {
		sp_txt = 46
		gt 'shop_general'
	}
	gt 'choice_screen'
end

if interaction_city = 13468:
	$place = 'realtor_office'
	$return_lock = 'shop_general'
	$picture_type = 'pic_png'
	$bg_path = 'bg\interiors\fort_boudoir'
	$text[1] = '  [Gloria]
- This design set is available for a one-time fee of 100 sparks. Our workers will install it within a day.'
	$yes = {
		$boudoir = 'fort'
		sparks -= 100
		if sound_on = 1: play $large_money_sound, sound_volume
		$bg['boudoir'] = $interior_boudoir[$boudoir]
		$bg['boudoir_lux'] = $interior_boudoir_large[$boudoir]
		$place_info['boudoir'] = $interior_boudoir_info[$boudoir]
		gt 'shop_general'
	}
	$no = {
		sp_txt = 46
		gt 'shop_general'
	}
	gt 'choice_screen'
end

if interaction_city = 13469:
	$place = 'realtor_office'
	$return_lock = 'shop_general'
	$picture_type = 'pic_png'
	$bg_path = 'bg\interiors\elite_boudoir'
	$text[1] = '  [Gloria]
- This design set is available for a one-time fee of 150 sparks. Our workers will install it within a day.'
	$yes = {
		$boudoir = 'elite'
		sparks -= 150
		if sound_on = 1: play $large_money_sound, sound_volume
		$bg['boudoir'] = $interior_boudoir[$boudoir]
		$bg['boudoir_lux'] = $interior_boudoir_large[$boudoir]
		$place_info['boudoir'] = $interior_boudoir_info[$boudoir]
		gt 'shop_general'
	}
	$no = {
		sp_txt = 46
		gt 'shop_general'
	}
	gt 'choice_screen'
end

if interaction_city = 134610:
	$place = 'realtor_office'
	$return_lock = 'shop_general'
	$picture_type = 'pic_png'
	$bg_path = 'bg\interiors\gothic_boudoir'
	$text[1] = '  [Gloria]
- This design set is available for a one-time fee of 200 sparks. Our workers will install it within a day.'
	$yes = {
		$boudoir = 'gothic'
		sparks -= 200
		if sound_on = 1: play $large_money_sound, sound_volume
		$bg['boudoir'] = $interior_boudoir[$boudoir]
		$bg['boudoir_lux'] = $interior_boudoir_large[$boudoir]
		$place_info['boudoir'] = $interior_boudoir_info[$boudoir]
		gt 'shop_general'
	}
	$no = {
		sp_txt = 46
		gt 'shop_general'
	}
	gt 'choice_screen'
end

if interaction_city = 134611:
	$place = 'realtor_office'
	$return_lock = 'shop_general'
	$picture_type = 'pic_png'
	$bg_path = 'bg\interiors\lux_boudoir'
	$text[1] = '  [Gloria]
- This design set is available for a one-time fee of 250 sparks. Our workers will install it within a day.'
	$yes = {
		$boudoir = 'lux'
		sparks -= 250
		if sound_on = 1: play $large_money_sound, sound_volume
		$bg['boudoir'] = $interior_boudoir[$boudoir]
		$bg['boudoir_lux'] = $interior_boudoir_large[$boudoir]
		$place_info['boudoir'] = $interior_boudoir_info[$boudoir]
		gt 'shop_general'
	}
	$no = {
		sp_txt = 46
		gt 'shop_general'
	}
	gt 'choice_screen'
end

if interaction_city = 13471:
	$place = 'realtor_office'
	$return_lock = 'shop_general'
	$picture_type = 'pic_png'
	$bg_path = 'bg\interiors\econom_lab'
	$text[1] = '  [Gloria]
- This design set is available for a one-time fee of 20 sparks. Our workers will install it within a day.'
	$yes = {
		$lab = 'econom'
		sparks -= 20
		if sound_on = 1: play $small_money_sound, sound_volume
		$bg['lab'] = $interior_lab[$lab]
		$bg['lab_lux'] = $interior_lab_large[$lab]
		$place_info['lab'] = $interior_lab_info[$lab]
		gt 'shop_general'
	}
	$no = {
		sp_txt = 47
		gt 'shop_general'
	}
	gt 'choice_screen'
end

if interaction_city = 13472:
	$place = 'realtor_office'
	$return_lock = 'shop_general'
	$picture_type = 'pic_png'
	$bg_path = 'bg\interiors\basic_lab'
	$text[1] = '  [Gloria]
- This design set is available for a one-time fee of 20 sparks. Our workers will install it within a day.'
	$yes = {
		$lab = 'basic'
		sparks -= 20
		if sound_on = 1: play $small_money_sound, sound_volume
		$bg['lab'] = $interior_lab[$lab]
		$bg['lab_lux'] = $interior_lab_large[$lab]
		$place_info['lab'] = $interior_lab_info[$lab]
		gt 'shop_general'
	}
	$no = {
		sp_txt = 47
		gt 'shop_general'
	}
	gt 'choice_screen'
end

if interaction_city = 13473:
	$place = 'realtor_office'
	$return_lock = 'shop_general'
	$picture_type = 'pic_png'
	$bg_path = 'bg\interiors\fort_lab'
	$text[1] = '  [Gloria]
- This design set is available for a one-time fee of 50 sparks. Our workers will install it within a day.'
	$yes = {
		$lab = 'fort'
		sparks -= 50
		if sound_on = 1: play $large_money_sound, sound_volume
		$bg['lab'] = $interior_lab[$lab]
		$bg['lab_lux'] = $interior_lab_large[$lab]
		$place_info['lab'] = $interior_lab_info[$lab]
		gt 'shop_general'
	}
	$no = {
		sp_txt = 47
		gt 'shop_general'
	}
	gt 'choice_screen'
end

if interaction_city = 13474:
	$place = 'realtor_office'
	$return_lock = 'shop_general'
	$picture_type = 'pic_png'
	$bg_path = 'bg\interiors\gothic_lab'
	$text[1] = '  [Gloria]
- This design set is available for a one-time fee of 100 sparks. Our workers will install it within a day.'
	$yes = {
		$lab = 'gothic'
		sparks -= 100
		if sound_on = 1: play $large_money_sound, sound_volume
		$bg['lab'] = $interior_lab[$lab]
		$bg['lab_lux'] = $interior_lab_large[$lab]
		$place_info['lab'] = $interior_lab_info[$lab]
		gt 'shop_general'
	}
	$no = {
		sp_txt = 47
		gt 'shop_general'
	}
	gt 'choice_screen'
end

if interaction_city = 13475:
	$place = 'realtor_office'
	$return_lock = 'shop_general'
	$picture_type = 'pic_png'
	$bg_path = 'bg\interiors\slaver_lab'
	$text[1] = '  [Gloria]
- This design set is available for a one-time fee of 100 sparks. Our workers will install it within a day.'
	$yes = {
		$lab = 'slaver'
		sparks -= 100
		if sound_on = 1: play $large_money_sound, sound_volume
		$bg['lab'] = $interior_lab[$lab]
		$bg['lab_lux'] = $interior_lab_large[$lab]
		$place_info['lab'] = $interior_lab_info[$lab]
		gt 'shop_general'
	}
	$no = {
		sp_txt = 47
		gt 'shop_general'
	}
	gt 'choice_screen'
end

if interaction_city = 13476:
	$place = 'realtor_office'
	$return_lock = 'shop_general'
	$picture_type = 'pic_png'
	$bg_path = 'bg\interiors\victorian_lab'
	$text[1] = '  [Gloria]
- This design set is available for a one-time fee of 100 sparks. Our workers will install it within a day.'
	$yes = {
		$lab = 'victorian'
		sparks -= 100
		if sound_on = 1: play $large_money_sound, sound_volume
		$bg['lab'] = $interior_lab[$lab]
		$bg['lab_lux'] = $interior_lab_large[$lab]
		$place_info['lab'] = $interior_lab_info[$lab]
		gt 'shop_general'
	}
	$no = {
		sp_txt = 47
		gt 'shop_general'
	}
	gt 'choice_screen'
end

if interaction_city = 13477:
	$place = 'realtor_office'
	$return_lock = 'shop_general'
	$picture_type = 'pic_png'
	$bg_path = 'bg\interiors\elite_lab'
	$text[1] = '  [Gloria]
- This design set is available for a one-time fee of 100 sparks. Our workers will install it within a day.'
	$yes = {
		$lab = 'elite'
		sparks -= 100
		if sound_on = 1: play $large_money_sound, sound_volume
		$bg['lab'] = $interior_lab[$lab]
		$bg['lab_lux'] = $interior_lab_large[$lab]
		$place_info['lab'] = $interior_lab_info[$lab]
		gt 'shop_general'
	}
	$no = {
		sp_txt = 47
		gt 'shop_general'
	}
	gt 'choice_screen'
end

if interaction_city = 138:
	$interaction_type = 'sell_slave_simple'
	npc = 1
	$npc_id = 'realtor'
	$place = 'realtor_office'
	$return_lock = 'shop_general'
	no_charm_check = 1
	fixed_brand_rise = 1
end

if interaction_city = 139:
	npc = 1
	$npc_id = 'realtor'
	$place = 'realtor_office'
	$return_lock = 'shop_general'
	copyarr '$text', '$realtor_pref'
end

!D-rank contract
if interaction_city = 1412:
	gs 'generate_stock'
	npc = 9999
	$place = 'guild_hall'
	$picture_type = 'stock_picture'
	$return_lock = 'guild'
	specialisation = 0
	n = 0
	n = arrsize('$specialisation') - 1
	specialisation = rand(1,n)
	txt = 1
	$text[1] = '  [MISTRESS ANGELIKA]
- This is <<$stock_name>>. She should be prepared as <<$slave_type_name[$specialisation[specialisation]]>> of <<$rating[1]>> rank or higher. Prepayment for this contract is 60 sparks. Bonus payments on the basis of the work will depend on the speed of training and quality of the slave. Do you accept?'
	!Testing code - crushboss
	! msg 'n: <<n>>
specialisation num: <<specialisation>>
specialisation name: <<$specialisation[specialisation]>>
slave_type_name: <<$slave_type_name[$specialisation[specialisation]]>>
'
	!End of testing code - crushboss
	$yes = {
		gs 'stock_to_slave_nogt'
		gs '$slave_price'
		slave['parasite'] = 0
		slave['brand'] = 4
		killvar 'contract'
		killvar 'n'
		contract['active'] = 1
		active[$quest[10]] = 1
		sparks += 60
		contract['level'] = 1
		$contract['specialisation'] = $specialisation[specialisation]
		npc = 0
		gt 'guild'
	}
	$no = {
		contract['active'] = 2
		npc = 0
		dynamic $clear_slave_instance, 'stock'
		gt 'guild'
	}
	gt 'choice_screen'
end

!D+ rank contract
if interaction_city = 1413:
	gs 'generate_stock'
	npc = 9999
	$place = 'guild_hall'
	$picture_type = 'stock_picture'
	$return_lock = 'guild'
	specialisation = 0
	n = 0
	n = arrsize('$specialisation') - 1
	specialisation = rand(1,n)
	txt = 1
	$text[1] = '  [MISTRESS ANGELIKA]
- This is <<$stock_name>>. She should be prepared as <<$slave_type_name[$specialisation[specialisation]]>> of <<$rating[2]>> rank or higher. Prepayment for this contract is 100 sparks. Bonus payments on the basis of the work will depend on the speed of training and quality of the slave. Do you accept?'
	$yes = {
		gs 'stock_to_slave_nogt'
		gs '$slave_price'
		slave['parasite'] = 0
		slave['brand'] = 4
		killvar 'contract'
		killvar 'n'
		contract['active'] = 1
		active[$quest[10]] = 1
		sparks += 100
		contract['level'] = 2
		$contract['specialisation'] = $specialisation[specialisation]
		npc = 0
		gt 'guild'
	}
	$no = {
		contract['active'] = 2
		npc = 0
		dynamic $clear_slave_instance, 'stock'
		gt 'guild'
	}
	gt 'choice_screen'
end

!C- rank contract
if interaction_city = 1414:
	gs 'generate_stock'
	npc = 9999
	$place = 'guild_hall'
	$picture_type = 'stock_picture'
	$return_lock = 'guild'
	specialisation = 0
	n = 0
	n = arrsize('$specialisation') - 1
	specialisation = rand(1,n)
	txt = 1
	$text[1] = '  [MISTRESS ANGELIKA]
- This is <<$stock_name>>. She should be prepared as <<$slave_type_name[$specialisation[specialisation]]>> of <<$rating[3]>> rank or higher. Prepayment for this contract is 275 sparks. Bonus payments on the basis of the work will depend on the speed of training and quality of the slave. Do you accept?'
	$yes = {
		gs 'stock_to_slave_nogt'
		gs '$slave_price'
		slave['parasite'] = 0
		slave['brand'] = 4
		killvar 'contract'
		killvar 'n'
		contract['active'] = 1
		active[$quest[10]] = 1
		sparks += 275
		contract['level'] = 3
		$contract['specialisation'] = $specialisation[specialisation]
		npc = 0
		gt 'guild'
	}
	$no = {
		contract['active'] = 2
		npc = 0
		dynamic $clear_slave_instance, 'stock'
		gt 'guild'
	}
	gt 'choice_screen'
end

!C+ rank contract
if interaction_city = 1415:
	gs 'generate_stock'
	npc = 9999
	$place = 'guild_hall'
	$picture_type = 'stock_picture'
	$return_lock = 'guild'
	specialisation = 0
	n = 0
	n = arrsize('$specialisation') - 1
	specialisation = rand(1,n)
	txt = 1
	$text[1] = '  [MISTRESS ANGELIKA]
- This is <<$stock_name>>. She should be prepared as <<$slave_type_name[$specialisation[specialisation]]>> of <<$rating[4]>> rank or higher. Prepayment for this contract is 400 sparks. Bonus payments on the basis of the work will depend on the speed of training and quality of the slave. Do you accept?'
	$yes = {
		gs 'stock_to_slave_nogt'
		gs '$slave_price'
		slave['parasite'] = 0
		slave['brand'] = 4
		killvar 'contract'
		killvar 'n'
		contract['active'] = 1
		active[$quest[10]] = 1
		sparks += 400
		contract['level'] = 4
		$contract['specialisation'] = $specialisation[specialisation]
		npc = 0
		gt 'guild'
	}
	$no = {
		contract['active'] = 2
		npc = 0
		dynamic $clear_slave_instance, 'stock'
		gt 'guild'
	}
	gt 'choice_screen'
end

!B- rank contract
if interaction_city = 1416:
	gs 'generate_stock'
	npc = 9999
	$place = 'guild_hall'
	$picture_type = 'stock_picture'
	$return_lock = 'guild'
	specialisation = 0
	n = 0
	n = arrsize('$specialisation') - 1
	specialisation = rand(1,n)
	txt = 1
	$text[1] = '  [MISTRESS ANGELIKA]
- This is <<$stock_name>>. She should be prepared as <<$slave_type_name[$specialisation[specialisation]]>> of <<$rating[5]>> rank or higher. Prepayment for this contract is 550 sparks. Bonus payments on the basis of the work will depend on the speed of training and quality of the slave. Do you accept?'
	$yes = {
		gs 'stock_to_slave_nogt'
		gs '$slave_price'
		slave['parasite'] = 0
		slave['brand'] = 4
		killvar 'contract'
		killvar 'n'
		contract['active'] = 1
		active[$quest[10]] = 1
		sparks += 550
		contract['level'] = 5
		$contract['specialisation'] = $specialisation[specialisation]
		npc = 0
		gt 'guild'
	}
	$no = {
		contract['active'] = 2
		npc = 0
		dynamic $clear_slave_instance, 'stock'
		gt 'guild'
	}
	gt 'choice_screen'
end

!B+ rank contract
if interaction_city = 1417:
	gs 'generate_stock'
	npc = 9999
	$place = 'guild_hall'
	$picture_type = 'stock_picture'
	$return_lock = 'guild'
	specialisation = 0
	n = 0
	n = arrsize('$specialisation') - 1
	specialisation = rand(1,n)
	txt = 1
	$text[1] = '  [MISTRESS ANGELIKA]
- This is <<$stock_name>>. She should be prepared as <<$slave_type_name[$specialisation[specialisation]]>> of <<$rating[6]>> rank or higher. Prepayment for this contract is 660 sparks. Bonus payments on the basis of the work will depend on the speed of training and quality of the slave. Do you accept?'
	$yes = {
		gs 'stock_to_slave_nogt'
		gs '$slave_price'
		slave['parasite'] = 0
		slave['brand'] = 4
		killvar 'contract'
		killvar 'n'
		contract['active'] = 1
		active[$quest[10]] = 1
		sparks += 660
		contract['level'] = 6
		$contract['specialisation'] = $specialisation[specialisation]
		npc = 0
		gt 'guild'
	}
	$no = {
		contract['active'] = 2
		npc = 0
		dynamic $clear_slave_instance, 'stock'
		gt 'guild'
	}
	gt 'choice_screen'
end

!A- rank contract
if interaction_city = 1418:
	gs 'generate_stock'
	npc = 9999
	$place = 'guild_hall'
	$picture_type = 'stock_picture'
	$return_lock = 'guild'
	specialisation = 0
	n = 0
	n = arrsize('$specialisation') - 1
	specialisation = rand(1,n)
	txt = 1
	$text[1] = '  [MISTRESS ANGELIKA]
- This is <<$stock_name>>. She should be prepared as <<$slave_type_name[$specialisation[specialisation]]>> of <<$rating[7]>> rank or higher. Prepayment for this contract is 800 sparks. Bonus payments on the basis of the work will depend on the speed of training and quality of the slave. Do you accept?'
	$yes = {
		gs 'stock_to_slave_nogt'
		gs '$slave_price'
		slave['parasite'] = 0
		slave['brand'] = 4
		killvar 'contract'
		killvar 'n'
		contract['active'] = 1
		active[$quest[10]] = 1
		sparks += 800
		contract['level'] = 7
		$contract['specialisation'] = $specialisation[specialisation]
		npc = 0
		gt 'guild'
	}
	$no = {
		contract['active'] = 2
		npc = 0
		dynamic $clear_slave_instance, 'stock'
		gt 'guild'
	}
	gt 'choice_screen'
end

!A+ rank contract
if interaction_city = 1419:
	gs 'generate_stock'
	npc = 9999
	$place = 'guild_hall'
	$picture_type = 'stock_picture'
	$return_lock = 'guild'
	specialisation = 0
	n = 0
	n = arrsize('$specialisation') - 1
	specialisation = rand(1,n)
	txt = 1
	$text[1] = '  [MISTRESS ANGELIKA]
- This is <<$stock_name>>. She should be prepared as <<$slave_type_name[$specialisation[specialisation]]>> of <<$rating[8]>> rank or higher. Prepayment for this contract is 920 sparks. Bonus payments on the basis of the work will depend on the speed of training and quality of the slave. Do you accept?'
	$yes = {
		gs 'stock_to_slave_nogt'
		gs '$slave_price'
		slave['parasite'] = 0
		slave['brand'] = 4
		killvar 'contract'
		killvar 'n'
		contract['active'] = 1
		active[$quest[10]] = 1
		sparks += 920
		contract['level'] = 8
		$contract['specialisation'] = $specialisation[specialisation]
		npc = 0
		gt 'guild'
	}
	$no = {
		contract['active'] = 2
		npc = 0
		dynamic $clear_slave_instance, 'stock'
		gt 'guild'
	}
	gt 'choice_screen'
end

!S- rank contract
if interaction_city = 1420:
	gs 'generate_stock'
	npc = 9999
	$place = 'guild_hall'
	$picture_type = 'stock_picture'
	$return_lock = 'guild'
	specialisation = 0
	n = 0
	n = arrsize('$specialisation') - 1
	specialisation = rand(1,n)
	txt = 1
	$text[1] = '  [MISTRESS ANGELIKA]
- This is <<$stock_name>>. She should be prepared as <<$slave_type_name[$specialisation[specialisation]]>> of <<$rating[9]>> rank or higher. Prepayment for this contract is 1080 sparks. Bonus payments on the basis of the work will depend on the speed of training and quality of the slave. Do you accept?'
	$yes = {
		gs 'stock_to_slave_nogt'
		gs '$slave_price'
		slave['parasite'] = 0
		slave['brand'] = 4
		killvar 'contract'
		killvar 'n'
		contract['active'] = 1
		active[$quest[10]] = 1
		sparks += 1080
		contract['level'] = 9
		$contract['specialisation'] = $specialisation[specialisation]
		npc = 0
		gt 'guild'
	}
	$no = {
		contract['active'] = 2
		npc = 0
		dynamic $clear_slave_instance, 'stock'
		gt 'guild'
	}
	gt 'choice_screen'
end

!S+ rank contract
if interaction_city = 1421:
	gs 'generate_stock'
	npc = 9999
	$place = 'guild_hall'
	$picture_type = 'stock_picture'
	$return_lock = 'guild'
	specialisation = 0
	n = 0
	n = arrsize('$specialisation') - 1
	specialisation = rand(1,n)
	txt = 1
	$text[1] = '  [MISTRESS ANGELIKA]
- This is <<$stock_name>>. She should be prepared as <<$slave_type_name[$specialisation[specialisation]]>> of <<$rating[10]>> rank or higher. Prepayment for this contract is 1200 sparks. Bonus payments on the basis of the work will depend on the speed of training and quality of the slave. Do you accept?'
	$yes = {
		gs 'stock_to_slave_nogt'
		gs '$slave_price'
		slave['parasite'] = 0
		slave['brand'] = 4
		killvar 'contract'
		killvar 'n'
		contract['active'] = 1
		active[$quest[10]] = 1
		sparks += 1200
		contract['level'] = 10
		$contract['specialisation'] = $specialisation[specialisation]
		npc = 0
		gt 'guild'
	}
	$no = {
		contract['active'] = 2
		npc = 0
		dynamic $clear_slave_instance, 'stock'
		gt 'guild'
	}
	gt 'choice_screen'
end

if interaction_city = menu_contract_work:
	npc = 1
	$npc_id = 'mistress_angelika'
	$place = 'guild_hall'
	$return_lock = 'guild'
	$text[1] = '  [MISTRESS ANGELIKA]
- You know that I’m always ready to throw you a job, <<$master_name>>. But first you should deal with your slave that you have now. Men are not very good at multi-tasking.'
end

!Turn in guild contract to MISTRESS ANGELIKA
if interaction_city = menu_close_contract:
	npc = 1
	$place = 'guild_hall'
	$npc_id = 'mistress_angelika'
	$return_lock = 'guild'
	gs '$slave_price'
	if slave_specialisation[$contract['specialisation']] > 0 and rating >= contract['level'] and slave_state = CONST_INT['slave_exist']:
		normal_price = auction_price[contract['level']]
		quality_bonus = auction_price[rating] - normal_price - slave['angst']*50 - slave['wounds']*20 - slave['bruises']*20 - slave['scars']*20
		time_bonus = discount_price[contract['level']] - contract['time'] * 10 &! can be negative - a penalty
		if time_bonus > normal_price: time_bonus = normal_price
		final_bonus = max(0, normal_price + time_bonus + quality_bonus)
		if quality_bonus < 0:
			if slave['angst'] > 0 and max(slave['bruises'], slave['scars'], slave['wounds']) > 0:
				$text[1] = '  [MISTRESS ANGELIKA]
- This slave is damaged and she has angst in her aura, reducing her quality. Normal price for a <<$rating[contract["level"]]>> slave is <<normal_price>> sparks. Quality award: <font color="<<IIF(quality_bonus < 0, ''#CD0000'', ''#0000D8'')>>"><<quality_bonus>> sparks. Speed award: <font color="<<IIF(time_bonus < 0, ''#CD0000'', ''#0000D8'')>>"><<time_bonus>> sparks. In total: <<final_bonus>> sparks. Next time, heal the slave before you bring her, and recall my lessons about angst.'
			elseif slave['angst'] > 0:
				$text[1] = '  [MISTRESS ANGELIKA]
- This slave has angst in her aura, reducing her quality. Normal price for a <<$rating[contract["level"]]>> slave is <<normal_price>> sparks. Quality award: <font color="<<IIF(quality_bonus < 0, ''#CD0000'', ''#0000D8'')>>"><<quality_bonus>> sparks. Speed award: <font color="<<IIF(time_bonus < 0, ''#CD0000'', ''#0000D8'')>>"><<time_bonus>> sparks. In total: <<final_bonus>> sparks. In the future, recall my lessons about angst.'
			else
				$text[1] = '  [MISTRESS ANGELIKA]
- This slave is damaged, reducing her quality. Normal price for a <<$rating[contract["level"]]>> slave is <<normal_price>> sparks. Quality award: <font color="<<IIF(quality_bonus < 0, ''#CD0000'', ''#0000D8'')>>"><<quality_bonus>> sparks. Speed award: <font color="<<IIF(time_bonus < 0, ''#CD0000'', ''#0000D8'')>>"><<time_bonus>> sparks. In total: <<final_bonus>> sparks. In the future, heal the slave before you bring her.'
			end
			if time_bonus < 0:
				$text[1] += ' For this job, you are already late. Next time, hurry up if you want to receive an award.'
			else
				$text[1] += ' You are not yet late on this contract. Do you want to keep working on it?'
				$yes = {
					gt 'guild'
				}
				$no = {
					sparks += final_bonus
					active[$quest[10]] = 0
					if quality_bonus > 0 and guild_reputation <= (contract['level']/2):
						guild_reputation_rate += 3
					elseif guild_reputation <= (contract['level']/2):
						guild_reputation_rate += 2
					elseif (rating/3) >= 1:
						guild_reputation_rate += rating/3
					end
					if slave['ill'] > 0: gave_guild_ill_slave = 1 &! trigger follow-up event
					if slave['parasite'] > 0: gave_guild_parasite_slave = 1 &! trigger follow-up event
					dynamic $clear_slave_instance, 'slave'
					killvar 'contract'
					gt 'interaction_result_city'
				}
				gt 'choice_screen'
			end
		elseif final_bonus <= 0:
			final_bonus = 0
			if time_bonus < 0:
				$text[1] = '  [MISTRESS ANGELIKA]
- Why so long? Normal price for a <<$rating[contract["level"]]>> slave is <<normal_price>> sparks. Quality award: <font color="<<IIF(quality_bonus < 0, ''#CD0000'', ''#0000D8'')>>"><<quality_bonus>> sparks. Speed award: <font color="<<IIF(time_bonus < 0, ''#CD0000'', ''#0000D8'')>>"><<time_bonus>> sparks. In total: <<final_bonus>> sparks. I accept the job, but do not hope for bonuses. Next time hurry up if you want to receive an award.'
			end
		else
			$text[1] = '  [MISTRESS ANGELIKA]
- Good job, <<$master_name>>. Normal price for a <<$rating[contract["level"]]>> slave is <<normal_price>> sparks. Quality award: <font color="<<IIF(quality_bonus < 0, ''#CD0000'', ''#0000D8'')>>"><<quality_bonus>> sparks. Speed award: <font color="<<IIF(time_bonus < 0, ''#CD0000'', ''#0000D8'')>>"><<time_bonus>> sparks.
  In total: <<final_bonus>> sparks. If you need more work, you know where to find me. I must say, you have increased your reputation... do you want to get together over a drink or a slavegirl sometime?'
		end
		sparks += final_bonus
		active[$quest[10]] = 0
		if quality_bonus > 0 and guild_reputation <= (contract['level']/2):
			guild_reputation_rate += 3
		elseif guild_reputation <= (contract['level']/2):
			guild_reputation_rate += 2
		elseif (rating/3) >= 1:
			guild_reputation_rate += rating/3
		end
		if slave['ill'] > 0: gave_guild_ill_slave = 1 &! trigger follow-up event
		if slave['parasite'] > 0: gave_guild_parasite_slave = 1 &! trigger follow-up event
		dynamic $clear_slave_instance, 'slave'
		killvar 'contract'
	else
		!TODO: <<$rating[contract['level']]>> не выводится
		$text[1] = '  [MISTRESS ANGELIKA]
- So what? I need <<$slave_type_name[$contract["specialisation"]]>> with <<IIF(rating < contract["level"], "a rank", "skills")>> much better than you’re offering me. Alive and well. Not necessarily the one that I gave you, but as long as you do not hand over to me the finished work, the <<$rating[contract["level"]]>> contract remains on you. Go back to work.'
	end
end

!end game when master escapes from slave in fight
if interaction_city = 143:
	npc = 1
	$npc_id = 'mistress_angelika'
	$place = 'guild_hall'
	$return_lock = 'exit'
	$text[1] = '  [MISTRESS ANGELIKA]
- <<$master_name>>, did you seriously run away from your own slave? Wow, that is so pathetic! And you have the nerve to come here then? Our guild will be disgraced after this accident if anyone finds out! No, <<$master_name>>, I will not let you leave.'
	$text[2] = '  After that, Angelika shoots at you with some dart. Not feeling your body, you collapse on the floor. Sad fate of the unnamed servant at the service of the guild awaits...

&nbsp&nbsp&nbsp&nbsp&nbspGAME OVER'
end

!Forum
if interaction_city = 15:
	$place = 'forum'
	city_form = 1
	$return_lock = 'shop_general'
	!dynamic $master_energy_drop
	!$interaction_type = 'buyer_invitation'
	!n = arrsize('$basic_buyer') - 1
	!basic_buyer = rand(1,n)
	!if npc_progress[$basic_buyer[basic_buyer]] > 0: $interaction_type = 'advanced_encounter'
	!if forum_visited = 0: $interaction_type = 'forum_first_visit'
	!if city_already_done_today[interaction_city] = 1: $interaction_type = 'forum_revisit'
	copyarr '$display_options', '$forum_options'
	gt 'shop_general'
end

if interaction_city = 151:
	$place = 'forum'
	city_form = 1
	$return_lock = 'shop_general'
	dynamic $master_energy_drop
	$text[1] = '  You spend a few hours on the forum, asking friends and carefully writing in a diary all the jobs and possible buyers for your current slave. You need to get back home, and in a quiet environment analyze the collected information.'
end

!Spread Rumors - Central Forum - improved - crushboss
if interaction_city = 152:
	$place = 'forum'
	city_form = 1
	$return_lock = 'shop_general'
	dynamic $master_energy_drop
	if city_already_done_today[interaction_city] = 0 and brand_reputation < 2:
		brand_rate += 1
		$text[1] = '  You productively spend your time at the forum, spreading vicious rumors about your competitors out of the guild and praising to the skies your own goods. This surely will have a positive impact on the reputation of your brand.'
	else
		! to raise reputation above C- you must win in the arena, sell slaves or spread rumors in the taurus club
		$text[1] = '  You spend a couple of hours at the forum, but without any success. Faces are the same, and you already spoke with them or your current fame is too high to make any difference. Maybe tomorrow will be more interesting.'
	end
end

if interaction_city = 1531:
	npc = 1
	$npc_id = 'sir_aramus'
	$place = 'forum'
	$return_lock = 'shop_general'
	sp_txt = 2
	if active[$quest[6]] = 0:
		interaction_city = 15311
	else
		interaction_city = 15312
		if slave['arena_level'] > 4 and slave_state = CONST_INT['slave_exist']: interaction_city = 15313
	end
end

if interaction_city = 15311:
	copyarr '$text', '$aramus_quest'
	active[$quest[6]] = 1
end

if interaction_city = 15312:
	copyarr '$text', '$aramus_fail'
end

if interaction_city = 15313:
	copyarr '$text', '$aramus_win'
	active[$quest[6]] = 2
	bull_ring = 1
	if slave['ill'] > 0: sold_ill_slave = 1 &! trigger follow-up event
	if slave['parasite'] > 0: sold_parasite_slave = 1 &! trigger follow-up event
	dynamic $clear_slave_instance, 'slave'
end

if interaction_city = 1532:
	npc = 1
	$npc_id = 'wujen'
	$place = 'forum'
	$return_lock = 'shop_general'
	sp_txt = 2
	if active[$quest[7]] = 0:
		interaction_city = 15321
	else
		interaction_city = 15322
		if slave['has_ride_win'] >= 1 and slave_state = CONST_INT['slave_exist']: interaction_city = 15323
	end
end

if interaction_city = 15321:
	copyarr '$text', '$wujen_quest'
	active[$quest[7]] = 1
end

if interaction_city = 15322:
	copyarr '$text', '$wujen_fail'
end

if interaction_city = 15323:
	copyarr '$text', '$wujen_win'
	active[$quest[7]] = 2
	snake_amulet = 1
	if slave['ill'] > 0: sold_ill_slave = 1 &! trigger follow-up event
	if slave['parasite'] > 0: sold_parasite_slave = 1 &! trigger follow-up event
	dynamic $clear_slave_instance, 'slave'
end

if interaction_city = 1533:
	npc = 1
	$npc_id = 'garsid'
	$place = 'forum'
	$return_lock = 'shop_general'
	sp_txt = 2
	if active[$quest[8]] = 0:
		interaction_city = 15331
	else
		interaction_city = 15332
		if slave_state = CONST_INT['slave_exist'] and slave['petting'] = 5 and slave['oral'] = 5 and slave['penetration'] = 5 and slave['fetishism'] = 5 and slave['orgy'] = 5 and slave['xenophily'] = 5: interaction_city = 15333
	end
end

if interaction_city = 15331:
	copyarr '$text', '$garsid_quest'
	active[$quest[8]] = 1
end

if interaction_city = 15332:
	copyarr '$text', '$garsid_fail'
end

if interaction_city = 15333:
	copyarr '$text', '$garsid_win'
	active[$quest[8]] = 2
	chimera_earring = 1
	if slave['ill'] > 0: sold_ill_slave = 1 &! trigger follow-up event
	if slave['parasite'] > 0: sold_parasite_slave = 1 &! trigger follow-up event
	dynamic $clear_slave_instance, 'slave'
end

if interaction_city = 1534:
	npc = 1
	$npc_id = 'magister_vailos'
	$place = 'forum'
	$return_lock = 'shop_general'
	sp_txt = 2
	if active[$quest[9]] = 0:
		interaction_city = 15341
	else
		interaction_city = 15342
		if tentacle_size >= 4 and pet_tentacle > 0: interaction_city = 15343
	end
end

if interaction_city = 15341:
	copyarr '$text', '$magister_vailos_quest'
	active[$quest[9]] = 1
end

if interaction_city = 15342:
	copyarr '$text', '$magister_vailos_fail'
end

if interaction_city = 15343:
	copyarr '$text', '$magister_vailos_win'
	active[$quest[9]] = 2
	raven_crown = 1
	pet_tentacle = 0
	tentacle_size = 0
	tentacle_hp = 0
end

!Post Patrician Quest for end game - crushboss
if interaction_city = 1535:
	npc = 1
	$npc_id = 'lord_spectre'
	$place = 'forum'
	$return_lock = 'shop_general'
	sp_txt = 2
	gs '#txt_2'
	if active[$quest[12]] = 0:
		interaction_city = 15351
	else
		interaction_city = 15352
		if slave_type = 2572 and rating = 10 and slave_state = CONST_INT['slave_exist'] and slave['pregnant'] > 0 and slave['sex_sum'] = 35 and slave['pride'] = 0 and slave['spoil'] = 0 and slave['moral'] = 5 and slave['has_ride_win'] > 6:
			if slave['v_balls_rule'] = 1 and slave['diet_leftovers'] = 0 and slave['diet_food_type'] = 2 and slave['blowjob_rule'] = 1 and slave['washes_master_rule'] = 1 and slave['tentacle_rule'] = 1 and pet_tentacle > 0:
				if slave['fiend_tattoo'] = 1 and slave['tattoo'] >= 5 and slave['piercings'] >= 9 and slave['piercing_count'] >= 5 and slave['arousal'] = 5:
					if $slave['earrings'] ! '' and $slave['collar'] ! '' and $slave['headband'] ! '' and $slave['gloves'] ! '' and $slave['nipplerings'] ! '' and $slave['clitring'] ! '' and $slave['boots'] ! '' and $slave['ring_left'] ! '' and $slave['ring_right'] ! '' and $slave['navel'] ! '' and $slave['tongue'] ! '':
						if slave['exhibitionism'] > 1 and slave['nymphomania'] > 0 and slave['perversion'] > 0 and slave['homosexualism'] > 0:
							interaction_city = 15353
						end
					end
				end
			end
		end
	end
end

if interaction_city = 15351:
	npc = 1
	$npc_id = 'lord_spectre'
	$place = 'forum'
	$return_lock = 'mission_accept'
	sp_txt = 2
	copyarr '$text', '$spectre_quest'
	$yes = {
		active[$quest[12]] = 1
		lord_spectre_agreed = 1
		gt 'mission_accept'
	}
	$no = {
		gt 'mission_accept'
	}
	lord_spectre_offer = 1
end
if interaction_city = 153511:
	npc = 1
	txt = 1
	$npc_id = 'lord_spectre'
	$place = 'forum'
	$return_lock = 'mission_accept'
	sp_txt = 2
	copyarr '$text', '$spectre_quest_accept'
end

if interaction_city = 15352:
	copyarr '$text', '$spectre_fail'
end

if interaction_city = 15353:
	copyarr '$text', '$spectre_win'
	active[$quest[12]] = 2
	кольчуга = 1
	brand_rate += 10
	guild_reputation_rate += 10
	if slave['ill'] > 0: sold_ill_slave = 1 &! trigger follow-up event
	if slave['parasite'] > 0: sold_parasite_slave = 1 &! trigger follow-up event
	dynamic $clear_slave_instance, 'slave'
end

!VATICAN
if interaction_city = 16:
	$place = 'vatican_gate'
	$return_lock = 'shop_general'
	if sound_on = 1:
		play 'content/snd/vatican.wav', music_volume, 'only, loop'
	else
		close 'content/snd/vatican.wav'
	end
	copyarr '$display_options', '$vatican_options'
	if brand_reputation >= 5 and vatican_met = 0:
		vatican_met = 1
		$text[1] = '  [CAPTAIN DURWARD]
- Mortal, you became quite famous to get here and you proved your exceptional devotion to Rome. You can pass.'
	elseif brand_reputation >= 5 and vatican_met = 1:
		$text[1] = '  [CAPTAIN DURWARD]
- Come in, mortal.'
	end
	if brand_reputation < 5:
		$text[1] = '  [CAPTAIN DURWARD]
- This abode is not for mere mortals. What business brings you to the Vatican?'
	end
	if julia_start = 2 and julia_met = 0:
		if slave_state ! CONST_INT['no_slave']:
			$text[2] = '  Recalling the letter you received, you inquire about the whereabouts of Johanna, but it seems she is not available at the moment. Meanwhile, if your sister really did come here somehow, you will need to make a place for her, which means you need to do something with your current slave...'
		else
			julia_met = 1
			interaction_city = 163
			gt 'interaction_city'
		end
	end
end

if interaction_city = 161:
	interaction_city = 1611
	if slave_state = CONST_INT['slave_exist'] and npc_progress['cardinal_de_mujlon'] = 1 and slave['brand'] > 0: interaction_city = 1612
end

if interaction_city = 1611:
	npc = 1
	$npc_id = 'cardinal_de_mujlon'
	$place = 'church'
	$return_lock = 'shop_general'
	npc_progress['cardinal_de_mujlon'] = 1
	active[$quest[5]] = 1
	$quest_description[5] = 'Cardinal De Muzhlon (Vatican, <<$rating[8]>>)
' + _
	'So, <<$master_name>>, you want an audience with the pontiff and advertise your goods to him. I have no doubt that you are preparing a wonderful slave, but you must understand...
' + _
	'Do you really think that the Pope has no more important things to do? I don’t know... An Elite Squad of nun-slaves who personally care about the pontiff does exist, but we already have distributors.
' + _
	'Let’s do this. I’ll check the quality of your work in practice, and I will arrange a meeting with the Pope if I’m satisfied. I need a worker in secretarial service.
' + _
	'As you might realize, this work will require a certain perseverance and intellectual abilities. However, we all understand why we need such a slave. I’ll check her ability to love. Without perversions please.
' + _
	'And the main thing that you must understand: I’m not going to pay. You will have access to the pope - that’ll be your only reward. However, do not expect to get any sparks from him either. If you are relying on the patronage of the Pope, you will have to give him your masterpiece as a gift.
' + _
	'Back'
	copyarr '$text', '$cardinal_de_mujlon_pref'
end

if interaction_city = 1612:
	npc = 1
	$npc_id = 'cardinal_de_mujlon'
	$place = 'church'
	$return_lock = 'shop_general'
	$interaction_type = 'sell_slave_complex'
	noprice = 1
end

if interaction_city = 162:
	interaction_city = 1621
	if slave_state = CONST_INT['slave_exist'] and npc_progress['pope'] = 1 and slave['brand'] > 0: interaction_city = 1622
end

if interaction_city = 1621:
	npc = 1
	$npc_id = 'pope'
	$place = 'church'
	$return_lock = 'shop_general'
	npc_progress['pope'] = 1
	active[$quest[5]] = 1
	$quest_description[5] = 'His Holiness Pope Ioann I (Vatican, <<$rating[10]>>)
' + _
	'De Muzhlon buzzed my ears about you preparing splendid slaves and how popular your brand is. There is a special Order of females engaged as my personal guard - Adepta Sororitas.
' + _
	'In order to have the capability to enter the Order, the girl should be untouched by man and meet the high requirements. But the main requirement - absolute devotion in combination with iron will.
' + _
	'Of course, she will have to show excellent hand-to-hand combat skills before she could even think about entering the Order. After that, she will take the indoctrination into the Order.
' + _
	'Will you complete this task? Find a girl that is strong-willed enough and beautiful in order to enter and then properly prepare her - it is an extremely difficult task, but I would not personally accept less.
' + _
	'If you make me such a gift, I will give you a special status in the White Town and my support in all of your endeavors.
' + _
	'Back'
	copyarr '$text', '$pope_pref'
end

if interaction_city = 1622:
	npc = 1
	$npc_id = 'pope'
	$place = 'church'
	$return_lock = 'shop_general'
	$interaction_type = 'sell_slave_complex'
	noprice = 1
end

if interaction_city = 163:
	! end of conversation exits to White Town instead of Vatican gate
	city_form = 1
	$return_lock = 'city_menu_form'

	! generate julia and put her in slave slot
	special_stock = 2576
	gs 'generate_stock'
	dynamic $swap_slave_instances, 'stock', 'slave'
	slave['neg_slave'] = 0
	$slave['cloth'] = 'sun_dress'
	slave['newness'] = 1
	if no_loli ! 1: slave['age'] = CONST_INT['loli_age']

	! match visuals with text
	copyarr '$text', '$julia_meeting'
	$special_action[1] = {
		npc = 0
		$place = 'vatican_gate'
	}
	$special_action[2] = {
		npc = 1
		$npc_id = 'johanna'
		$place = 'church'
	}
	$special_action[3] = {
		npc = 1
		$npc_id = 'julia'
		$place = 'vatican_bedroom'
		$bg['vatican_bedroom'] = $interior_boudoir['gothic']
	}
	$special_action[15] = {
		npc = 1
		$npc_id = 'julia'
		$place = 'vatican_bedroom'
	}
	$special_action[16] = {
		npc = 1
		show_slave_fullimage = 0
		$npc_id = 'johanna'
		$place = 'church'
	}
	$special_action[17] = {
		npc = 1
		show_slave_fullimage = 0
		$npc_id = 'johanna'
		$place = 'church'
	}
	$special_action[18] = {
		! show julia on small white town background
		npc = 1
		$npc_id = 'julia'
		$place = 'white_street'
		$special_image[18] = 'bg\white_city_small.png'
	}
end

!Arena
if interaction_city = 191:
	npc = 1
	$npc_id = 'brina'
	$place = 'colosseum'
	$return_lock = 'shop_general'
	copyarr '$text', '$brina_pref'
end

!if interaction_city = 192:
! $interaction_type = 'sell_slave_simple'
! npc = 1
! $npc_id = 'brina'
! $place = 'colosseum'
! $return_lock = 'shop_general'
! no_charm_check = 1
! fixed_brand_rise = 1
!end

if interaction_city = 192:
	npc = 1
	$npc_id = 'brina'
	$place = 'colosseum'
	$return_lock = 'shop_general'
	if no_slave_count['brina'] < 1:
		gt 'slave_sell'
	else
		interaction_city = 193
	end
end

if interaction_city = 193:
	npc = 1
	$npc_id = 'brina'
	$place = 'colosseum'
	$return_lock = 'shop_general'
	$text[1] = '  [RED HAIR BRYN]
-   We have no openings now. Come back later, gladiatrices do not last long, vacancies open in less than no time.'
end

if interaction_city = 199:
	$toplay = 'arena'
	$place = 'colosseum'
	$return_lock = 'shop_general'
	$picture_type = 'untyped'
	$text[1] = '  <<$описание_моба[$враг[1]]>>'
	$bg_path = '<<$силуэт_моба[$враг[1]]>>'
	$return_lock = 'начать_бой'
	memcf = colosseum_fight
end

if interaction_city = 1941:
	$place = 'colosseum'
	$return_lock = 'shop_general'
	npc = 1
	$npc_id = 'брина_рыжая'
	$text[1] = '  [RED HAIR BRYN]
- I will take for that lesson <<spm_price>> sparks. A roundhouse kick is a technique without any special effects. Deals good damage, so if you are well prepared and choose the right moment - no enemy will have a chance! Fits any weapon.'
	$yes = {
		$spm_to_learn = 'удар_с_разворота'
		sparks -= spm_price
		master_energy -= 5
		interaction_city = 19410
		gt 'interaction_city'
	}
	$no = {
		sp_txt = 5
		gt 'shop_general'
	}
	gt 'choice_screen'
end

if interaction_city = 1942:
	$place = 'colosseum'
	$return_lock = 'shop_general'
	npc = 1
	$npc_id = 'брина_рыжая'
	$text[1] = '  [RED HAIR BRYN]
- I will take for that lesson <<spm_price>> sparks. A swift blow is a technique for two enemies at once. You will damage both and hit twice as hard as a normal attack. Try to choose a moment when both targets are evading. Requires a slashing weapon, be careful!'
	$yes = {
		$spm_to_learn = 'рассечение'
		sparks -= spm_price
		master_energy -= 5
		interaction_city = 19410
		gt 'interaction_city'
	}
	$no = {
		sp_txt = 5
		gt 'shop_general'
	}
	gt 'choice_screen'
end

if interaction_city = 1943:
	$place = 'colosseum'
	$return_lock = 'shop_general'
	npc = 1
	$npc_id = 'брина_рыжая'
	$text[1] = '  [RED HAIR BRYN]
- I will take for that lesson <<spm_price>> sparks. A fearsome battle cry will not only reduce the morale of the enemies but also restore strength to you. Enemies with a weak spirit can surrender or flee, forgetting about the fight.'
	$yes = {
		$spm_to_learn = 'воинственный_клич'
		sparks -= spm_price
		master_energy -= 5
		interaction_city = 19410
		gt 'interaction_city'
	}
	$no = {
		sp_txt = 5
		gt 'shop_general'
	}
	gt 'choice_screen'
end

if interaction_city = 1944:
	$place = 'colosseum'
	$return_lock = 'shop_general'
	npc = 1
	$npc_id = 'брина_рыжая'
	$text[1] = '  [RED HAIR BRYN]
- I will take for that lesson <<spm_price>> sparks. A heavy blow to the head will give a long stun to the enemy and also deals double damage! You will need a blunt weapon, be careful!'
	$yes = {
		$spm_to_learn = 'оглушение'
		sparks -= spm_price
		master_energy -= 5
		interaction_city = 19410
		gt 'interaction_city'
	}
	$no = {
		sp_txt = 5
		gt 'shop_general'
	}
	gt 'choice_screen'
end

if interaction_city = 1945:
	$place = 'colosseum'
	$return_lock = 'shop_general'
	npc = 1
	$npc_id = 'брина_рыжая'
	$text[1] = '  [RED HAIR BRYN]
- I will take for that lesson <<spm_price>> sparks. A dashing blow to the tendons will weaken an enemy’s stance and make him vulnerable and shaky! You will need a slashing weapon, be careful!'
	$yes = {
		$spm_to_learn = 'подрезка'
		sparks -= spm_price
		master_energy -= 5
		interaction_city = 19410
		gt 'interaction_city'
	}
	$no = {
		sp_txt = 5
		gt 'shop_general'
	}
	gt 'choice_screen'
end

if interaction_city = 1946:
	$place = 'colosseum'
	$return_lock = 'shop_general'
	npc = 1
	$npc_id = 'брина_рыжая'
	$text[1] = '  [RED HAIR BRYN]
- I will take for that lesson <<spm_price>> sparks. A precise hit in the eyes will not only cause double damage, but also cause the enemy to become more scattered and vulnerable! You will need a piercing weapon, be careful!'
	$yes = {
		$spm_to_learn = 'ослепление'
		sparks -= spm_price
		master_energy -= 5
		interaction_city = 19410
		gt 'interaction_city'
	}
	$no = {
		sp_txt = 5
		gt 'shop_general'
	}
	gt 'choice_screen'
end

if interaction_city = 1947:
	$place = 'colosseum'
	$return_lock = 'shop_general'
	npc = 1
	$npc_id = 'брина_рыжая'
	$text[1] = '  [RED HAIR BRYN]
- I will take <<spm_price>> sparks for that lesson. A riposte is a technique not only to lower incoming damage, but also to pierce the enemy’s vitals! You will need a piercing weapon, be careful!'
	$yes = {
		$spm_to_learn = 'ответный_удар'
		sparks -= spm_price
		master_energy -= 5
		interaction_city = 19410
		gt 'interaction_city'
	}
	$no = {
		sp_txt = 5
		gt 'shop_general'
	}
	gt 'choice_screen'
end

if interaction_city = 1948:
	$place = 'colosseum'
	$return_lock = 'shop_general'
	npc = 1
	$npc_id = 'брина_рыжая'
	$text[1] = '  [RED HAIR BRYN]
- I will take <<spm_price>> sparks for that lesson. A face bash is a technique to trick the enemy and give a clear shot to smash your weapon forward into the enemy’s face and weaken them! You will need a blunt weapon, be careful!'
	$yes = {
		$spm_to_learn = 'лицо_прикладом'
		sparks -= spm_price
		master_energy -= 5
		interaction_city = 19410
		gt 'interaction_city'
	}
	$no = {
		sp_txt = 5
		gt 'shop_general'
	}
	gt 'choice_screen'
end

if interaction_city = 19410:
	$interaction_type = 'learn_spm'
end

if interaction_city = 1951:
	$place = 'colosseum'
	$return_lock = 'shop_general'
	npc = 1
	$npc_id = 'stableman'
	$text[1] = '  [STABLEMAN]
- The next route will be like this:
' + _
	'1) <<$trace_name[$trace[1]]>>   2) <<$trace_name[$trace[2]]>>   3) <<$trace_name[$trace[3]]>>
' + _
	'4) <<$trace_name[$trace[4]]>>   5) <<$trace_name[$trace[5]]>>   6) <<$trace_name[$trace[6]]>>
' + _
	'7) <<$trace_name[$trace[7]]>>   8) <<$trace_name[$trace[8]]>>   9) <<$trace_name[$trace[9]]>>
' + _
	'10) <<$trace_name[$trace[10]]>>   11) <<$trace_name[$trace[11]]>>   12) <<$trace_name[$trace[12]]>>.'
end

if interaction_city = 1952:
	$place = 'colosseum'
	$return_lock = 'shop_general'
	npc = 1
	$npc_id = 'stableman'
	copyarr '$text', '$chariots_info'
end

!taurus housings
if interaction_city = 210:
	$interaction_type = 'buyer_invitation'
	city_form = 21
	$npc_id = 'don_castilio'
	$place = 'taurus_street_rental'
end

if interaction_city = 211:
	$interaction_type = 'buyer_invitation'
	city_form = 21
	$npc_id = 'don_diego'
	$place = 'taurus_street_rental'
end

if interaction_city = 212:
	$interaction_type = 'buyer_invitation'
	city_form = 21
	$npc_id = 'magister_gilmeritus'
	$place = 'taurus_street_rental'
end

if interaction_city = 213:
	$interaction_type = 'buyer_invitation'
	city_form = 21
	$npc_id = 'sir_toughbar'
	$place = 'taurus_street_rental'
end

if interaction_city = 214:
	$interaction_type = 'buyer_invitation'
	city_form = 21
	$npc_id = 'lady_edna'
	$place = 'taurus_street_rental'
end

if interaction_city = 215:
	$interaction_type = 'buyer_invitation'
	city_form = 21
	$npc_id = 'lady_suinton'
	$place = 'taurus_street_rental'
end

!brothel
is_loli = 0
is_flaccid2 = 1
if interaction_city = 22:
	$place = 'brothel'
	$return_lock = 'shop_general'
	$sp_text[1] = '  Want to treat yourself to something exotic? Tired of that same old vagina at home? Just looking to get your oil changed? Welcome to the Salon of Madame Jofre: purveyor of fine girls for every occasion.'
	$return_lock = 'shop_general'
	copyarr '$display_options', '$brothel_options'
	gt 'shop_general'
end

if interaction_city = 2221:
	whore_price = 1
	whore_quality = 1
	$interaction_type = 'whore'
	g = rand(1,2)
	if g = 1:
		$bg_path  = 'scene\whore\whore_one-1'
		$special_image[2] = 'scene\whore\whore_one-2.png'
		$special_image[3] = 'scene\whore\whore_one-3.png'
	else
		$bg_path = 'scene\whore\whore_two-1'
		$special_image[2] = 'scene\whore\whore_two-2.png'
		$special_image[3] = 'scene\whore\whore_two-3.png'
	end
	copyarr '$text', '$brothel_whore'
end

if interaction_city = 2222:
	whore_price = 1
	whore_quality = 1
	$interaction_type = 'whore'
	if master_excitement < 0:
		$bg_path = 'scene\whore\whore_one-1'
	else
		$bg_path = 'scene\whore\whore_anal-1' &! image shows an erection
	end
	$special_image[2] = 'scene\whore\whore_anal-2.png'
	$special_image[3] = 'scene\whore\whore_anal-3.png'
	copyarr '$text', '$brothel_whore_anal'
end

if interaction_city = 2223:
	whore_price = 1
	whore_quality = 1
	$interaction_type = 'whore'
	$bg_path = 'scene\whore\whore_oral-1'
	$special_image[2] = 'scene\whore\whore_oral-2.png'
	$special_image[3] = 'scene\whore\whore_oral-3.png'
	copyarr '$text', '$brothel_whore_oral'
end

if interaction_city = 2224:
	whore_price = 1
	whore_quality = 1
	is_master_virgin = 0
	$interaction_type = 'whore'
	$bg_path = 'scene\whore\whore_paizuri-1'
	$special_image[2] = 'scene\whore\whore_paizuri-2.png'
	$special_image[3] = 'scene\whore\whore_paizuri-3.png'
	copyarr '$text', '$brothel_whore_paizuri'
end

if interaction_city = 2225:
	whore_price = 1
	whore_quality = 1
	$interaction_type = 'whore'
	!Turns on enhanced Loli text once user has proven they have a preference for lolis.
	lolis_rented += 1
	if lolis_rented >= lolis_rented_threshold and perv_revealed < 1 and (master_excitement > -2 or is_perv = 1):
		$bg_path = '$npc_image["madame_jofre"]'
		$special_image[2] = '$npc_image["madame_jofre"]'
		$special_image[3] = 'scene\whore\whore_loli-3.png'
		$brothel_whore_loli_1[1] = '  The hall is full of beautiful women, visions of ripened female sexuality. Perversely, however, you are drawn to a lovely little girl.

  As you lead her toward a room, Madame Jofre stops you. With a look of wry amusement at the child you have selected for your pleasure, she notes:'
		$brothel_whore_loli_1[2] = '  [MADAME JOFRE]
- Monsieur comes here often for the little ones, non? Most men do not appreciate the beauty of youth. Some might sample a child, but they are not true connoisseurs, not comfortable with such natural desires. But perhaps a man with your highly-developed tastes... Permit me to offer you a new option in your Settings:
        Loli aged descriptions are explicit'
		$brothel_whore_loli_1[3] = '  You thank her, unsure of exactly what she has offered.
  However, minutes later as you are fucking the girl, you notice you are much more aware that she is a child, so small, on the very cusp of puberty. No hips, a child’s bottom, and no breasts, though her pale nipples are tiny domes, swollen with promise. And her pussy? So deliciously small, smooth and undeveloped with only a few, fine hairs, and so much tighter than a grown woman’s.'
		perv_revealed = 1
		no_loli = 2
	else
		$bg_path = 'scene\whore\whore_loli-1'
		$special_image[2] = 'scene\whore\whore_loli-2.png'
		$special_image[3] = 'scene\whore\whore_loli-3.png'
	end
	is_loli = 1
	copyarr '$text', '$brothel_whore_loli_1'
end

if interaction_city = 2231:
	whore_price = 5
	whore_quality = 3
	$interaction_type = 'whore'
	$bg_path = 'scene\whore\whore_twins'
	copyarr '$text', '$brothel_whore_twins'
end

if interaction_city = 2232:
	whore_price = 5
	whore_quality = 3
	$interaction_type = 'whore'
	lolis_rented += 1
	if lolis_rented >= lolis_rented_threshold and perv_revealed < 1 and (master_excitement > -2 or is_perv = 1):
		$bg_path = '$npc_image["madame_jofre"]'
		$special_image[2] = '$npc_image["madame_jofre"]'
		$special_image[3] = 'scene\whore\whore_loli_3-2.png'
		$brothel_whore_loli_3[1] = '  Though the salon is filled with voluptuous women, visions of ripened female sexuality, it is three delightful little girls that stir your lust.

  As you lead them off to a room, Madame Jofre stops you. With a look of wry amusement at the children you have selected, she notes:'
		$brothel_whore_loli_3[2] = '  [MADAME JOFRE]
- Monsieur comes here often for the little ones, non? Most men do not appreciate the beauty of youth. Some might try a child, but they are not true connoisseurs, not comfortable with such natural desires. But perhaps a man with your highly-developed tastes... Permit me to offer you a new option in your Settings:
        Loli aged descriptions are explicit'
		$brothel_whore_loli_3[3] = '  You thank her, unsure of exactly what she has offered.
  However, minutes later as you are molesting the little girls, you notice you are much more aware that they are children, so small, barely pubescent. They only have the first swellings of breasts. And their pussies? So deliciously smooth and undeveloped, and so much tighter than a grown woman’s.'
		perv_revealed = 1
		no_loli = 2
	else
		$bg_path = 'scene\whore\whore_loli_3-1'
		$special_image[2] = 'scene\whore\whore_loli_3-2.png'
		$special_image[3] = 'scene\whore\whore_loli_3-3.png'
	end
	is_loli = 1
	copyarr '$text', '$brothel_whore_loli_3'
end

if interaction_city = 2233:
	whore_price = 5
	whore_quality = 3
	$interaction_type = 'whore'
	$bg_path = 'scene\whore\whores_5-1'
	$special_image[2] = 'scene\whore\whores_5-2.png'
	$special_image[3] = 'scene\whore\whores_5-3.png'
	copyarr '$text', '$brothel_whores_5'
end

if interaction_city = 2234:
	whore_price = 5
	whore_quality = 3
	$interaction_type = 'whore'
	$bg_path = 'scene\whore\whore_bdsm'
	$special_image[2] = 'scene\whore\whore_bdsm-2.png'
	$special_image[3] = 'scene\whore\whore_bdsm-3.png'
	copyarr '$text', '$brothel_whore_bdsm'
end

if interaction_city = 2235:
	whore_price = 5
	whore_quality = 3
	$interaction_type = 'whore'
	$bg_path = 'scene\whore\whore_exotic'
	is_flaccid2 = 0
	copyarr '$text', '$brothel_whore_exotic'
end

if interaction_city = 2241:
	whore_price = 15
	whore_quality = 5
	$interaction_type = 'whore'
	$bg_path = 'scene\whore\whore_incest-1'
	$special_image[2] = 'scene\whore\whore_incest-2.png'
	$special_image[3] = 'scene\whore\whore_incest-3.png'
	if is_perv ! 0: is_loli = 1
	is_flaccid2 = 0
	copyarr '$text', '$brothel_whore_incest'
end

if interaction_city = 2242:
	whore_price = 15
	whore_quality = 5
	$interaction_type = 'whore'
	lolis_rented += 1
	if lolis_rented >= lolis_rented_threshold and perv_revealed < 1 and (master_excitement > -2 or is_perv = 1):
		$bg_path = '$npc_image["madame_jofre"]'
		$special_image[2] = '$npc_image["madame_jofre"]'
		$special_image[3] = 'scene\whore\whore_loli_6-2.png'
		$brothel_whore_loli_6[1] = '  The brothel is full of gorgeous, shapely women, visions of ripened female sexuality, however you ask for the lolis, every one in the brothel.

  As they are assembled, Madame Jofre surveys you with a look of wry amusement: you are surrounded by half a dozen scantly-dressed children, the tallest barely up to your nipple.'
		$brothel_whore_loli_6[2] = '  [MADAME JOFRE]
- Monsieur comes here often for the little ones, non? Most men do not appreciate the beauty of youth. Some might try a child, but they are not true connoisseurs, not comfortable with such natural desires. But perhaps a man with your highly-developed tastes... Permit me to offer you a new option in your Settings:        Loli aged descriptions are explicit'
		$brothel_whore_loli_6[3] = '  You thank her, unsure of exactly what she has offered.
  However, minutes later as you are wallowing in a sea of little girls’ bodies, you notice you are much more aware that they are just children. Some have the first swellings of breasts, others none at all. And their pussies? So deliciously smooth and undeveloped, and so much tighter than a grown woman’s.'
		perv_revealed = 1
		no_loli = 2
	else
		$bg_path = 'scene\whore\whore_loli_6-1'
		$special_image[2] = 'scene\whore\whore_loli_6-2.png'
		$special_image[3] = 'scene\whore\whore_loli_6-3.png'
	end
	is_loli = 1
	copyarr '$text', '$brothel_whore_loli_6'
end

if interaction_city = 2243:
	whore_price = 15
	whore_quality = 5
	$interaction_type = 'whore'
	$bg_path = 'scene\whore\whores_7'
	$special_image[2] = 'scene\whore\whores_7-2.png'
	$special_image[3] = 'scene\whore\whores_7-3.png'
	is_flaccid2 = 0
	copyarr '$text', '$brothel_whores_7'
end

if interaction_city = 2244:
	whore_price = 15
	whore_quality = 5
	$interaction_type = 'whore'
	$bg_path = 'scene\whore\whore_exotic_2'
	$special_image[2] = 'scene\whore\whore_exotic_2-2.png'
	$special_image[3] = 'scene\whore\whore_exotic_2-3.png'
	is_flaccid2 = 0
	copyarr '$text', '$brothel_whore_exotic_2'
end

if interaction_city = 2245:
	whore_price = 15
	whore_quality = 5
	$interaction_type = 'whore'
	$bg_path = 'scene\whore\whore_twins_exotic'
	$special_image[2] = 'scene\whore\whore_twins_exotic-2.png'
	$special_image[3] = 'scene\whore\whore_twins_exotic-3.png'
	copyarr '$text', '$brothel_whore_twins_exotic'
end

if interaction_city = 2251:
	npc = 1
	$npc_id = 'madame_jofre'
	$place = 'brothel'
	$return_lock = 'shop_general'
	copyarr '$text', '$jofre_pref'
end

if interaction_city = 2252:
	! this interaction id is not used because sell_slave_simple does not check all requirements; instead offering to the madam goes to interaction_city 2254 below - ImperatorAugustus
	$interaction_type = 'sell_slave_simple'
	npc = 1
	$npc_id = 'madame_jofre'
	$place = 'brothel'
	$return_lock = 'shop_general'
	no_charm_check = 1
	fixed_brand_rise = 1
end

if interaction_city = 2253:
	npc = 1
	$npc_id = 'madame_jofre'
	$place = 'brothel'
	$return_lock = 'shop_general'
	copyarr '$text', '$jofre_pref'
end

if interaction_city = 2254:
	npc = 1
	$npc_id = 'madame_jofre'
	$place = 'brothel'
	$return_lock = 'shop_general'
	if no_slave_count['madame_jofre'] < 1:
		gt 'slave_sell'
	else
		interaction_city = 22541
	end
end

if interaction_city = 22541:
	npc = 1
	$npc_id = 'madame_jofre'
	$place = 'brothel'
	$return_lock = 'shop_general'
	$text[1] = '  [MADAME JOFRE]
- I have stopped the recruitment of new girls at this time, mon cher. But I think that a vacancy may open as early as a few days from now. Do not forget to come to see us.'
end

!gentlemans club
if interaction_city = 23:
	$place = 'club'
	$return_lock = 'shop_general'
	copyarr '$display_options', '$club_options'
	gt 'shop_general'
end

if interaction_city = 231:
	npc = 1
	$npc_id = 'sir_shelly'
	$place = 'club'
	$return_lock = 'shop_general'
	if master_wealth >= 4 and faction_fame['taurus'] >= 1:
		club_member = 1
		$text[1] = '  [Sir Shelley]
- Welcome to our club, <<$master_name>>. Here, everything is at your disposal, enjoy. And do not worry about membership fees - let them be handled by your accountant. For a respectable man, these costs are negligible.'
	else
		$text[1] = '  [Sir Shelley]
- You see, what’s the matter, <<$master_name>>... Not everyone can gain membership in our club. It’s not even a question of money as such. We accept only respectable gentlemen and only on the recommendation of someone from the esteemed members of the Taurus House.'
	end
end

if interaction_city = 2311:
	from_club = 1
	$interaction_type = 'buyer_invitation'
	$place = 'club'
	$return_lock = 'shop_general'
	$npc_id = 'don_karbolio'
end

if interaction_city = 2312:
	from_club = 1
	$interaction_type = 'buyer_invitation'
	$return_lock = 'shop_general'
	$place = 'club'
	$npc_id = 'don_sigismund'
end

if interaction_city = 2313:
	from_club = 1
	$interaction_type = 'buyer_invitation'
	$place = 'club'
	$return_lock = 'shop_general'
	$npc_id = 'don_sorino'
end

if interaction_city = 2314:
	from_club = 1
	$interaction_type = 'buyer_invitation'
	$place = 'club'
	$return_lock = 'shop_general'
	$npc_id = 'don_bobrit'
end

if interaction_city = 2315:
	from_club = 1
	$interaction_type = 'buyer_invitation'
	$place = 'club'
	$return_lock = 'shop_general'
	$npc_id = 'don_mladio'
end

if interaction_city = 2316:
	from_club = 1
	$interaction_type = 'buyer_invitation'
	$place = 'club'
	$return_lock = 'shop_general'
	$npc_id = 'don_sedos'
end

!Spread Rumors - Club - improved - crushboss
if interaction_city = 2317:
	$place = 'club'
	$return_lock = 'shop_general'
	dynamic $master_energy_drop
	a = rand(1,100)
	if city_already_done_today[interaction_city] = 0 and a <= 50:
		brand_rate += 1
		$text[1] = '  You are doing tough work praising your own goods and teaching methods, as well as questioning the quality of the other guild members. Club members tend to support each other, so your attempts to raise your image are very successful.'
	elseif city_already_done_today[interaction_city] > 0:
		$text[1] = '  You are unlikely to do more in the field of gossip and rumors today. All are tired of your bragging and your gossip about competitors. You can try again tomorrow, with other members of the club.'
	elseif a > 50:
		$text[1] = '  You were unsuccessful in the field of gossip and rumors today. Your brand reputation did not improve. You can try again tomorrow, with other members of the club.'
	end
	a = 0
end

if interaction_city = 2318:
	$place = 'club'
	$return_lock = 'shop_general'
	dynamic $master_energy_drop
	gs '$mod_master_rise',1
	master_hygiene_rate += 5
	if master_moodlet['pos_show'] < 5: master_moodlet['pos_show'] = 5
	if master_moodlet['pos_self_food'] < 1: master_moodlet['pos_self_food'] = 1
	$text[1] = '  You have a great time, away from the cares and concerns of the seething city. Here is everything you need for a relaxing break - delicious food, great entertainment and pleasant in every way communication.'
	if ate_already = 0 and master_str < 4: master_str_rate += 3 &! eating good food at the club can raise health/strength to A+, countered by next_day health/strength drain if home meals are low quality
	ate_already = 1 &! also set by meals at the pub
end

if interaction_city = 232:
	$interaction_type = 'sell_slave_simple'
	npc = 1
	$npc_id = 'sir_shelly'
	$place = 'club'
	$return_lock = 'shop_general'
	no_charm_check = 1
	fixed_brand_rise = 2
end

if interaction_city = 233:
	npc = 1
	$npc_id = 'sir_shelly'
	$place = 'club'
	$return_lock = 'shop_general'
	copyarr '$text', '$sir_shelly_pref'
end

!White palace
if interaction_city = 24:
	$place = 'palace_gate'
	$return_lock = 'shop_general'
	if sound_on = 1:
		play 'content/snd/palace.wav', music_volume, 'only, loop'
	else
		close 'content/snd/palace.wav'
	end
	copyarr '$display_options', '$palace_options'
	if faction_fame['taurus'] >= 3 and taurus_met = 0:
		taurus_met = 1
		$text[1] = '  [GUARD KNIGHTS]
- We’ve heard about you, <<$master_name>>. You can go through.'
	elseif faction_fame['taurus'] >= 3 and taurus_met = 1:
		$text[1] = '  [GUARD KNIGHTS]
- Come in, <<$master_name>>.'
	end
	if faction_fame['taurus'] < 3 and npc_progress['pope'] < 2:
		$text[1] = '  [GUARD KNIGHTS]
- Whoa! Declare the purpose of your visit.'
	elseif faction_fame['taurus'] < 3:
		$text[1] = '  [GUARD KNIGHTS]
- Sir <<$master_name>>, may I ask the purpose of your visit?'
	end
end

if interaction_city = 241:
	interaction_city = 2411
	if slave_state = CONST_INT['slave_exist'] and npc_progress['bishop_molaru'] = 1 and slave['brand'] > 0: interaction_city = 2412
end

if interaction_city = 2411:
	npc = 1
	$npc_id = 'bishop_molaru'
	$place = 'church'
	$return_lock = 'shop_general'
	npc_progress['bishop_molaru'] = 1
	active[$quest[5]] = 1
	$quest_description[5] = 'Archbishop Molaru (White Palace, <<$rating[8]>>)
' + _
	'What do you know about the CLEANLINESS, my son? Ah... what do you even know about PURITY, considering your work. Everything in this world, the dust and dirt, everything is a Sin. Everything must be burned! I clean myself three times a day. THREE TIMES!!!
' + _
	'I also use enema thrice a day, only while praying and only with holy water from Zion. Is it unpleasant for you to hear about enemas, eh? But I am clean, while you rot from the inside! Slag, dirt and rot - it is all satanic seed!!!
' + _
	'The body is the temple of the Soul! I need a pure and innocent maiden, a vessel of chastity. Only she will be able to properly clean my precious body. She should wash me, take care of cell cleanliness and have flawless medical technique to administer the enemas without fail.
' + _
	'I will not leave even my shit in this sinful City. The maiden will be a vessel in which I will seal my uncleanliness and she must take it with gratitude without dropping a single drop.
' + _
	'And mind you, a fat and flabby body is a sign of abominable lust and gluttony. The fire of true Faith can only be sustained in a fit body! Only such a maiden is suitable for me. Go, my son, and remember my words.

' + _
	'Back'
	copyarr '$text', '$bishop_molaru_pref'
end

if interaction_city = 2412:
	npc = 1
	$npc_id = 'bishop_molaru'
	$place = 'church'
	$return_lock = 'shop_general'
	$interaction_type = 'sell_slave_complex'
end

if interaction_city = 242:
	interaction_city = 2421
	if slave_state = CONST_INT['slave_exist'] and npc_progress['general_barabas'] = 1 and slave['brand'] > 0: interaction_city = 2422
end

if interaction_city = 2421:
	npc = 1
	$npc_id = 'general_barabas'
	$place = 'palace'
	$return_lock = 'shop_general'
	npc_progress['general_barabas'] = 1
	active[$quest[5]] = 1
	$quest_description[5] = 'General Barabas (White Palace, <<$rating[8]>>)
' + _
	'You are renowned as a very competent expert, <<$master_name>>. That is necessary, as I’m looking for something rather unusual. The point is that I have a son, Vlomilio. Not blood-related, of course...
' + _
	'My own children stayed behind the Fog. But I adopted him to continue my lineage. He is a handsome, daring guy, but ill-mannered and somewhat... dull. And I have no time for education.
' + _
	'He grew up amongst soldiers and housemaids, children are rare in these parts. So I thought I could buy him a girl-peer. Not only to play with him, but to educate him as well!
' + _
	'I need an immature girl, but she should have a strong nature and be clever. She should teach Vlomilio some manners and sciences. And something for aestheticism. She might be skilled in music... piano or lute...
' + _
	'Surely they may fall in love so she should be a virgin. A whore is not fit for my son. And of course she needs to be beautiful, with curly hair, big eyes and a face like a doll.

' + _
	'Back'
	copyarr '$text', '$general_barabas_pref'
end

if interaction_city = 2422:
	npc = 1
	$npc_id = 'general_barabas'
	$place = 'palace'
	$return_lock = 'shop_general'
	$interaction_type = 'sell_slave_complex'
end

if interaction_city = 243:
	interaction_city = 2431
	if slave_state = CONST_INT['slave_exist'] and npc_progress['pretor_siegfrid'] = 1 and slave['brand'] > 0: interaction_city = 2432
end

if interaction_city = 2431:
	npc = 1
	$npc_id = 'pretor_siegfrid'
	$place = 'palace'
	$return_lock = 'shop_general'
	npc_progress['pretor_siegfrid'] = 1
	active[$quest[5]] = 1
	$quest_description[5] = 'Praetor Siegfrid (White Palace, <<$rating[8]>>)
' + _
	'Do you see this horse, slaver? This is my trusty Bucephalus, the best horse in the city and the only one I will ride. The reason for that is that thanks to Bucephalus, I can safely deliver sparks.
' + _
	'This stallion saved my life a lot of times, but his life in this damn city is not very sweet. I can not keep mares in the palace and his temper is hot and insatiable. I have heard though that some teach women to please beasts.
' + _
	'If you can teach a slave to provide him with proper care and attention, that would make him cheerful and happy. I would pay good money for such a girl. But mind you, very few people can cope with the force of such a violent stallion as Bucephalus!
' + _
	'She should be able to excellently please a horse and pretend to be a mare as well.. so that the act does not feel strange to him. And of course, she would have to clean the stall.
' + _
	'And do not try to slip me a feeble little girl! She needs to be a mature adult woman, juicy and strong. She should be healthy and temperamental!

' + _
	'Back'
	copyarr '$text', '$pretor_siegfrid_pref'
end

if interaction_city = 2432:
	npc = 1
	$npc_id = 'pretor_siegfrid'
	$place = 'palace'
	$return_lock = 'shop_general'
	$interaction_type = 'sell_slave_complex'
end

if interaction_city = 244:
	interaction_city = 2441
	if slave_state = CONST_INT['slave_exist'] and npc_progress['taurus_king'] = 1 and slave['brand'] > 0: interaction_city = 2442
end

if interaction_city = 2441:
	npc = 1
	$npc_id = 'taurus_king'
	$place = 'palace'
	$return_lock = 'shop_general'
	npc_progress['taurus_king'] = 1
	active[$quest[5]] = 1
	$quest_description[5] = 'King Arboreus (White Palace, <<$rating[10]>>)
' + _
	'Well, <<$master_name>>, my lords gave you their truly exotic requests, eh? Sometimes they seem to be really weird, but who cares. Valuable professionals can afford to be a little eccentric.
' + _
	'Do not worry, I do not need anything fancy. I just need the BEST girl. Pick up and teach the most gorgeous concubine for me.
' + _
	'Of course, she should be good in bed and know how to work with her hands and mouth. Well, you know that better than me, of course. But I don’t just want a concubine.
' + _
	'I need a woman that can hold a conversation and can show her character. A real woman, you know, with brains, not just a mindless slave. Of course, she needs to know her place as well.
' + _
	'What else? Hmm, nothing else I guess. Only one thing remains - she should please me. Bring her here, I will evaluate her. Just do not waste my time, only bring a prepared women.

' + _
	'Back'
	copyarr '$text', '$taurus_king_pref'
end

if interaction_city = 2442:
	npc = 1
	$npc_id = 'taurus_king'
	$place = 'palace'
	$return_lock = 'shop_general'
	$interaction_type = 'sell_slave_complex'
end

!serpis housings
if interaction_city = 311:
	$interaction_type = 'buyer_invitation'
	city_form = 31
	$npc_id = 'yôhanan_stiven'
	$place = 'serpis_street_rental'
end

if interaction_city = 312:
	$interaction_type = 'buyer_invitation'
	city_form = 31
	$npc_id = 'piter_viabu'
	$place = 'serpis_street_rental'
end

if interaction_city = 313:
	$interaction_type = 'buyer_invitation'
	city_form = 31
	$npc_id = 'mister_lardbag'
	$place = 'serpis_street_rental'
end

if interaction_city = 314:
	$interaction_type = 'buyer_invitation'
	city_form = 31
	$npc_id = 'Zhuge_Liang'
	$place = 'serpis_street_rental'
end

if interaction_city = 315:
	$interaction_type = 'buyer_invitation'
	city_form = 31
	$npc_id = 'krull'
	$place = 'serpis_street_rental'
end

if interaction_city = 316:
	$interaction_type = 'buyer_invitation'
	city_form = 31
	$npc_id = 'archmage_zephiros'
	$place = 'serpis_street_rental'
end

if interaction_city = 317:
	$interaction_type = 'buyer_invitation'
	city_form = 31
	$npc_id = 'avek_plesir'
	$place = 'serpis_street_rental'
end

if interaction_city = 318:
	$interaction_type = 'buyer_invitation'
	city_form = 31
	$npc_id = 'green_mamba'
	$place = 'serpis_street_rental'
end

if interaction_city = 319:
	$interaction_type = 'buyer_invitation'
	city_form = 31
	$npc_id = 'leonid_alexandriatos'
	$place = 'serpis_street_rental'
end

if interaction_city = 3110:
	$interaction_type = 'buyer_invitation'
	city_form = 31
	$npc_id = 'lucius_patricius'
	$place = 'serpis_street_rental'
end

if interaction_city = 3111:
	$interaction_type = 'buyer_invitation'
	city_form = 31
	$npc_id = 'singh_khan'
	$place = 'serpis_street_rental'
end

if interaction_city = 3112:
	$interaction_type = 'buyer_invitation'
	city_form = 31
	$npc_id = 'frogger'
	$place = 'serpis_street_rental'
end

if interaction_city = 3113:
	$interaction_type = 'buyer_invitation'
	city_form = 31
	$npc_id = 'dofine_tutti'
	$place = 'serpis_street_rental'
end

if interaction_city = 3114:
	$interaction_type = 'buyer_invitation'
	city_form = 31
	$npc_id = 'earl_gray'
	$place = 'serpis_street_rental'
end

!virgin hip
if interaction_city = 32:
	$place = 'tavern'
	$return_lock = 'shop_general'
	$sp_text[1] = ''
	copyarr '$display_options', '$tavern_options'
	gt 'shop_general'
end

if interaction_city = 32101:
	$place = 'tavern'
	$return_lock = 'shop_general'
	sparks -= 1
	if master_drunk = 2:
		$text[1] = '  You remember how you drown a pile of powdered whiskey in a one-liter mug of beer powder. You even remember that it’s called "Babel Fish". But then everything’s a fog... as in the Fog.'
		master_drunk = 3
		$return_lock = 'next_day' & is_home = 1 &! is_home = 1 to bypass menu_form ESC intercept
	elseif master_drunk = 1:
		$text[1] = '  You chase your powdered whiskey with a powdered beer. The foam is probably from washing powder, but what’s the difference if the body and the head feel sudden lightness. And life is getting better! And all the girls all around are beautiful and the music is good.'
		master_moodlet['pos_drunk'] = 1
		master_drunk = 2
	elseif master_drunk = 0:
		$text[1] = '  So as not to carry heavy liquids through the fogs, cheap booze is delivered to the Eternal Rome in the form of powders which are reconstituted on site. You order for yourself half a liter of powdered whiskey and sip it, eating salted nuts. Troubles now seem not so unpleasant...'
		gs '$mod_master_rise', 1
		if master_moodlet['neg_drunk'] > 0: master_alco_addiction = master_moodlet['neg_drunk']
		master_moodlet['neg_drunk'] = 0
		master_drunk = 1
	end
end

if interaction_city = 32111:
	$interaction_type = 'special'
	$place = 'tavern'
	$return_lock = 'shop_general'
	$picture_type = 'pic_png'
	$bg_path = 'bg\tavern_gyro'
	sparks -= 1
	if master_str < 2 and master_moodlet['pos_self_food'] < 1: master_moodlet['pos_self_food'] = 1
	$text[1] = '  The best shawarma in the Eternal Rome is a product of patience and pride. Fresh virgin meat is marinated at length, spitted, and slowly roasted as juices drip down to coat and caramelize its exterior. Our master chef then shaves off paper-thin, melt-in-your-mouth slices of tender flesh.'
	if ate_already = 0 and master_str < 2: master_str_rate += 1 &! eating cheaper food at the pub can raise health/strength to C-, countered by next_day health/strength drain if home meals are low quality
	ate_already = 1
end

if interaction_city = 32112:
	$interaction_type = 'special_png'
	$place = 'tavern'
	$return_lock = 'shop_general'
	$picture_type = 'pic_png'
	$bg_path = 'bg\tavern_breast'
	sparks -= 3
	if master_str < 3 and master_moodlet['pos_self_food'] < 1: master_moodlet['pos_self_food'] = 1
	$text[1] = '  The secret to our succulent roast breast? Generously-breasted, heavily lactating women are fed only herbs and garlic for a week and allowed to engorge for a full three days before slaughter. When roasted, these firm, milk-swollen mammaries make their own delicious cream sauce in situ, permeating the tender flesh.

  ...like mother used to make- Galatoire'
	if ate_already = 0 and master_str < 3: master_str_rate += 3 &! eating more expensive food at the pub can raise health/strength to A+, countered by next_day health/strength drain if home meals are low quality
	ate_already = 1
end

if interaction_city = 32113:
	$interaction_type = 'special_png'
	$place = 'tavern'
	$return_lock = 'shop_general'
	$picture_type = 'pic_png'
	$bg_path = 'bg\tavern_hip'
	sparks -= 3
	if master_str < 3 and master_moodlet['pos_self_food'] < 1: master_moodlet['pos_self_food'] = 1
	$text[1] = '  Young, Fog-caught virgin, hunted fresh daily. Select your favourite cut from today’s girl and allow our chef to grill it to mouth-watering perfection.
(We use only certified extra virgin meat so you never need worry about eating something another man has inseminated.)

  ...the virgin tenderloin cooked rare was divine- Huntsman'
	if ate_already = 0 and master_str < 3: master_str_rate += 3 &! eating more expensive food at the pub can raise health/strength to A+, countered by next_day health/strength drain if home meals are low quality
	ate_already = 1
end

if interaction_city = 32114:
	$interaction_type = 'special_png'
	$place = 'tavern'
	$return_lock = 'shop_general'
	$picture_type = 'pic_png'
	$bg_path = 'bg\tavern_pussy'
	sparks -= 2
	if master_str < 2 and master_moodlet['pos_self_food'] < 1: master_moodlet['pos_self_food'] = 1
	$text[1] = '  Tender, extra virgin vulva is heavily aroused for hours and then slaughtered mid-orgasm. It is then cooked in its own juices to enhance the flavour, creating a delicious, natural light gravy. Taste why connoisseurs savour maidenhead crackling.
Always fresh, never fucked.

  ...juiciest pussy I’ve ever eaten- Lord Zadok'
	if ate_already = 0 and master_str < 2: master_str_rate += 2 &! eating cheaper food at the pub can raise health/strength to C-, countered by next_day health/strength drain if home meals are low quality
	ate_already = 1
end

if interaction_city = 32221:
	npc = 1
	$npc_id = 'barman'
	$place = 'tavern'
	$return_lock = 'shop_general'
	copyarr '$text', '$barman_pref'
end

if interaction_city = 32222:
	! this interaction id is not used because sell_slave_simple does not check all requirements; instead offering to the barman goes to interaction_city 3223 below - ImperatorAugustus
	$interaction_type = 'sell_slave_simple'
	npc = 1
	$npc_id = 'barman'
	$place = 'tavern'
	$return_lock = 'shop_general'
	no_charm_check = 1
	fixed_brand_rise = 1
end

if interaction_city = 32229:
	npc = 1
	$npc_id = 'barman'
	$place = 'tavern'
	$return_lock = 'shop_general'
	copyarr '$text', '$barman_pref'
end

if interaction_city = 3223:
	npc = 1
	$npc_id = 'barman'
	$place = 'tavern'
	$return_lock = 'shop_general'
	if no_slave_count['barman'] < 1:
		gt 'slave_sell'
	else
		interaction_city = 32231
	end
end

if interaction_city = 32231:
	npc = 1
	$npc_id = 'barman'
	$place = 'tavern'
	$return_lock = 'shop_general'
	$text[1] = '  [BARMAN]
-  We have everything packed now, buddy. No new jobs for the time being.'
end

if interaction_city = 3233:
	npc = 1
	$npc_id = 'chief'
	$place = 'tavern' &! because tavern_kitchen background includes the cook - ImperatorAugustus
	$return_lock = 'shop_general'
	copyarr '$text', '$chief_pref'
end

if interaction_city = 3234:
	npc = 1
	$npc_id = 'chief'
	$place = 'tavern' &! because tavern_kitchen background includes the cook - ImperatorAugustus
	$return_lock = 'shop_general'
	if no_slave_count['chief'] < 1:
		gt 'slave_sell'
	else
		interaction_city = 32341
	end
end

if interaction_city = 32341:
	npc = 1
	$npc_id = 'chief'
	$place = 'tavern' &! because tavern_kitchen background includes the cook - ImperatorAugustus
	$return_lock = 'shop_general'
	$text[1] = '  [CHEF]
-  Our stables are now clogged! I can not buy your pig, I just don’t have a place to keep her.'
end

if interaction_city = 3231:
	$interaction_type = 'hit_on_patron'
end

!TECHNOSPHERE
!medical center
if interaction_city = 331:
	$place = 'hospital'
	$return_lock = 'shop_general'
	$sp_text[1] = '  For an examination, you will have to wait in line - there is only one decent hospital in the entire city. Maybe talk with a staff member for now?'
	copyarr '$display_options', '$hospital_options'
	gt 'shop_general'
end

if interaction_city = 3311:
	npc = 1
	$npc_id = 'doctor'
	$place = 'hospital'
	$return_lock = 'shop_general'
	!added validation visit - if for diagnosis has been paid previously, the second time money will not be taken until you get out of the center
	if master_health_checked = 0: sparks -= 5 & master_health_checked = 1
	master_issues = 0
	killvar 'cure_master_ill'
	if master_wounds = 1:
		master_issues += 1
		$text[master_issues] = '  [DOCTOR]
- Your wound is superficial and poses no threat to life. It’s just a scratch and will heal itself in a few days. But we can cure you instantly, just for five sparks.'
	end
	if master_wounds = 2:
		master_issues += 1
		$text[master_issues] = '  [DOCTOR]
- Your injury is of moderate severity. Nothing life-threatening, but without our assistance it will take quite a long time to heal. We can conduct an accelerated regeneration, for only ten sparks.'
	end
	if master_wounds = 3:
		master_issues += 1
		$text[master_issues] = '  [DOCTOR]
- You have a serious injury, I would not recommend leaving it unattended. This will take a month of bed rest with a constant change of bandages and a special diet, or... we can cure you in just one hour. It will cost 25 sparks.'
	end
	if master_wounds = 4:
		master_issues += 1
		$text[master_issues] = '  [DOCTOR]
- I am afraid that your wounds are more serious than they seem, damage is heavy and I would not recommend relying on a natural cure. You need urgent reconstructive surgery. It will cost 50 sparks.'
	end
	if master_wounds = 5:
		master_issues += 1
		$text[master_issues] = '  [DOCTOR]
- Oh God! How did you reach us under your own?! This is a mortal wound. You urgently need an operation, and not a cheap one. We take 100 sparks for that, but I do not recommend you refuse. Otherwise you risk your own life.'
	end
	if master_ill > 0:
		master_issues += 1
		cure_master_ill = 1
		$text[master_issues] = '  [DOCTOR]
- We diagnosed rotphilis, <<$master_name>>. In some ways it’s a common profession related disease for members of your line of work. It’s okay. The course of treatment will cost 25 sparks and takes only an hour. I do not recommend that you ignore this disease, it could end badly.'
	end
	!INFO: skip_to = 11 -> прыжок на $hospital_options[11]
	if master_issues > 0:
		skip_to = 11
		$sp_text[11] = '  [DOCTOR]
- So, <<$master_name>>, do you want to order from us any medical procedures?'
	else
		$text[1] = '  [DOCTOR]
- According to our examination, you are completely healthy, <<$master_name>>. At least nothing that would require medical intervention. Congratulations.'
	end
end

if interaction_city = 33111:
	$place = 'hospital'
	$return_lock = 'shop_general'
	$text[1] = '  You are immediately taken to a bed. Unaware of anything that happened during your anesthesia, you wake up feeling wonderful.'

	if master_wounds = 1:
		sparks -= 5
	elseif master_wounds = 2:
		sparks -= 10
	elseif master_wounds = 3:
		sparks -= 25
	elseif master_wounds = 4:
		sparks -= 50
	elseif master_wounds = 5:
		sparks -= 100
	elseif master_wounds ! 0:
		msg 'master_wounds = <<master_wounds>>, master_wounds -> [0, 5]!'
	end
	master_wounds = 0
	master_wounds_rate = 0
	!If there are still some - jump on the old menu. copypaste from interaction_city = 3311
	if master_issues > 0:
		skip_to = 11
		$sp_text[11] = '  [DOCTOR]
- So, <<$master_name>>, do you want to order from us any medical procedures?'
		master_issues -= 1
	end
end

if interaction_city = 33112:
	$place = 'hospital'
	$return_lock = 'shop_general'
	$text[1] = '  You immediately receive a general anesthesia and are taken to the procedure. You wake up feeling wonderful. Nothing hurts and and you wake up with seemingly no side effects.'
	killvar 'cure_master_ill'
	sparks -= 25
	master_ill = 0
	!TODO: замутить нейтральный список мудлетов персонажей, тогда после лечения надо будет включать статус 'после болезни', с выводом в дневник
	!turn off bad moodlet after curing
	master_moodlet['neg_master_ill'] = 0
	!If there are still some - jump on the old menu. copypaste interaction_city = 3311
	if master_issues > 0:
		skip_to = 11
		$sp_text[11] = '  [DOCTOR]
- So, <<$master_name>>, do you want to order from us any medical procedures?'
		master_issues -= 1
	end
end

if interaction_city = 3312:
	npc = 1
	$npc_id = 'doctor'
	$place = 'hospital'
	$return_lock = 'shop_general'
	!added validation visit - if for diagnosis has been paid previously, the second time money will not be taken until you get out of the center
	if slave['health_issues_revealed'] = 0: sparks -= 5 & slave['health_issues_revealed'] = 1
	slave_issues = 0
	killvar 'cure_slave_ill'
	killvar 'slave_abortion'
	killvar 'slave_insidous_abortion'
	killvar 'slave_stimulation'
	if slave['stamina'] < 1 or slave['energy'] = -5:
		slave_issues += 1
		slave_stimulation = 1
		$text[slave_issues] = '  [DOCTOR]

- <<$slave_name>> in a coma and did not respond to any stimulus. With proper care, she can recover after a while, but in the worst case death is possible. We can use stimulants to bring her back to life, but it does not solve the problem completely. The body tends to reject stimulants, so that at each subsequent resuscitation we will have to use more and more which will be expensive.
'
	end
	if slave['pregnant'] > 9 and slave['fertility'] = 0:
		slave_issues += 1
		slave_abortion = 1
		$text[slave_issues] = '  [DOCTOR]
- <<$slave_name>> is pregnant. The fetus is quite healthy and viable for now. If the pregnancy isn’t aborted, you will have to give the girl to the Vatican, when the pregnancy becomes obvious, they have strict laws about these things. Abortion will cost 10 sparks.'
	end
	if slave['parasite'] > 0:
		slave_issues += 1
		slave_insidous_abortion = 1
		$text[slave_issues] = '  [DOCTOR]
- <<$slave_name>>... is pregnant. But not quite by a conventional manner. It’s some type of xenoparasite, likely larva of a Fog fiend. If we do not remove it in the near future, the larva will devour the insides of the girl and split her bowels open. The removal operation will cost 25 sparks.'
	end
	if slave['scars'] = 1:
		slave_issues += 1
		$text[slave_issues] = '  [DOCTOR]
- Your slave has a small scar that slightly spoils the appearance. We could perform a little plastic surgery to remove it. Only for five sparks.'
	end
	if slave['scars'] = 2:
		slave_issues += 1
		$text[slave_issues] = '  [DOCTOR]
- Your slave has a few old scars that affect her... salable condition. We can remove them and restore softness and smoothness to her skin. The operation will cost 10 sparks.'
	end
	if slave['scars'] = 3:
		slave_issues += 1
		$text[slave_issues] = '  [DOCTOR]
- As you can see, your slave has rather impressive scars. But nothing that we can not handle with good old-fashioned plastic surgery. Twenty-five sparks, an hour, and she will be as good as new!'
	end
	if slave['scars'] = 4:
		slave_issues += 1
		$text[slave_issues] = '  [DOCTOR]
- It looks like your slave has had a tough life, <<$master_name>>. These scars look very impressive, but they aren’t attractive at all. She needs a serious intervention to get rid of this horror. The procedure will cost fifty sparks.'
	end
	if slave['scars'] = 5:
		slave_issues += 1
		$text[slave_issues] = '  [DOCTOR]
- Oh boy. A woman is rarely seen with such terrible scars. They would rather fit to an old viking... Is she a gladiator? Oh well, it does not matter, we can remove them. But the work is very delicate. The operation will cost you a hundred sparks.'
	end
	if slave['wounds'] = 1:
		slave_issues += 1
		$text[slave_issues] = '  [DOCTOR]
- Good that you have come to us, <<$master_name>>. She has a slight wound, almost a scratch, but who knows what complications can arise. Restorative treatment will cost only five sparks.'
	end
	if slave['wounds'] = 2:
		slave_issues += 1
		$text[slave_issues] = '  [DOCTOR]
- Do not worry, the injury is not too severe and not life threatening. It can heal itself after a week or two, but it is safer and faster to receive treatment from us. Just ten sparks and she’s as good as new. There will be no scars, I guarantee.'
	end
	if slave['wounds'] = 3:
		slave_issues += 1
		$text[slave_issues] = '  [DOCTOR]
- This is a pretty serious wound, I do not recommend that you self-medicate. The process will be long and in any case there will be scars. But we can heal the wound quickly and without consequences, just for twenty-five sparks.'
	end
	if slave['wounds'] = 4:
		slave_issues += 1
		$text[slave_issues] = '  [DOCTOR]
- I am afraid that the injures your slave has are very severe, <<$master_name>>. Treatment will cost fifty sparks, and I recommend that you pay it. If you leave things as they are, the consequences of such injuries can be very serious.'
	end
	if slave['wounds'] >= 5:
		slave_issues += 1
		$text[slave_issues] = '  [DOCTOR]
- Put her on a stretcher, quick! Such injuries are usually not compatible with life. <<$master_name>>, if you want to save the girl, she urgently needs surgery. It will cost you 100 sparks, but note that it is likely a matter of life and death!'
	end
	if slave['ill'] > 0:
		slave_issues += 1
		cure_slave_ill = 1
		$text[slave_issues] = '  [DOCTOR]
- We diagnosed rotphilis on your slave, <<$master_name>>. I would not recommend to sell her with a disease if you do not want to lower your reputation. But it can be treated. Only for twenty-five sparks.'
	end
	if slave_issues > 0:
		skip_to = 12
		$sp_text[12] = '  [DOCTOR]
- So, <<$master_name>>, do you want to order from us any medical procedures?'
	else
		$text[1] = '  [DOCTOR]
- <<$slave_name>> is completely healthy, <<$master_name>>. At least nothing that would require medical intervention. If you want, I’ll write you a certificate of her condition, for presentation to potential buyers.'
	end
end

if interaction_city = 33121:
	$place = 'hospital'
	$return_lock = 'shop_general'
	$text[1] = '  They take your slave for about an hour, then return her back. She looks quite healthy. No traces of wounds left.'
	if slave['wounds'] = 1:
		sparks -= 5
	elseif slave['wounds'] = 2:
		sparks -= 10
	elseif slave['wounds'] = 3:
		sparks -= 25
	elseif slave['wounds'] = 4:
		sparks -= 50
	elseif slave['wounds'] = 5:
		sparks -= 100
	elseif slave['wounds'] ! 0:
		msg 'slave["wounds"] = <<slave["wounds"]>>, slave["wounds"] -> [0, 5]!'
	end

	slave['wounds'] = 0
	slave_rate['wounds'] = 0
	slave['neg_slave_wounded'] = 0

	!If there are still some - jump on the old menu. copypaste interaction_city = 3312
	if slave_issues > 0:
		skip_to = 12
		$sp_text[12] = '  [DOCTOR]
- So, <<$master_name>>, do you want to order from us any medical procedures?'
		slave_issues -= 1
	end
end

if interaction_city = 33122:
	$place = 'hospital'
	$return_lock = 'shop_general'
	$text[1] = '  They take your slave for about an hour, then return her back. She looks quite healthy.'
	sparks -= 25
	killvar 'cure_slave_ill'
	slave['ill'] = 0
	!removing bad moodlet
	slave['neg_slave_ill'] = 0
	!If there are still some - jump on the old menu. copypaste interaction_city = 3312
	if slave_issues > 0:
		skip_to = 12
		$sp_text[12] = '  [DOCTOR]
- So, <<$master_name>>, do you want to order from us any medical procedures?'
		slave_issues -= 1
	end
end

if interaction_city = 33123:
	$place = 'hospital'
	$return_lock = 'shop_general'
	$text[1] = '  They take your slave for about an hour, then return her back. Scars disappeared as if by magic.'
	if slave['scars'] = 1:
		sparks -= 5
	elseif slave['scars'] = 2:
		sparks -= 10
	elseif slave['scars'] = 3:
		sparks -= 25
	elseif slave['scars'] = 4:
		sparks -= 50
	elseif slave['scars'] = 5:
		sparks -= 100
	elseif slave['scars'] ! 0:
		msg 'slave["scars"] = <<slave["scars"]>>, slave["scars"] -> [0, 5]!'
	end

	slave['scars'] = 0
	slave_rate['scars'] = 0

	!If there are still some - jump on the old menu. copypaste interaction_city = 3312
	if slave_issues > 0:
		skip_to = 12
		$sp_text[12] = '  [DOCTOR]
- So, <<$master_name>>, do you want to order from us any medical procedures?'
		slave_issues -= 1
	end
end

if interaction_city = 33124:
	$place = 'hospital'
	$return_lock = 'shop_general'
	$text[1] = '  They take your slave for about an hour, then return her back. She looks quite healthy.'
	sparks -= 10
	killvar 'slave_abortion'
	slave['pregnant'] = 0
	!If there are still some - jump on the old menu. copypaste interaction_city = 3312
	if slave_issues > 0:
		skip_to = 12
		$sp_text[12] = '  [DOCTOR]
- So, <<$master_name>>, do you want to order from us any medical procedures?'
		slave_issues -= 1
	end
end

if interaction_city = 33125:
	$place = 'hospital'
	$return_lock = 'shop_general'
	$text[1] = '  They take your slave for about an hour, then return her back. She looks quite healthy.'
	sparks -= 25
	killvar 'slave_insidous_abortion'
	slave_insidous_abortion = 0
	slave['parasite'] = 0
	!If there are still some - jump on the old menu. copypaste interaction_city = 3312
	if slave_issues > 0:
		skip_to = 12
		$sp_text[12] = '  [DOCTOR]
- So, <<$master_name>>, do you want to order from us any medical procedures?'
		slave_issues -= 1
	end
end

if interaction_city = 33126:
	$place = 'hospital'
	$return_lock = 'shop_general'
	$text[1] = '  They put some kind of dropper on your slave, and then they hit her a couple of times with an electric discharge and inject adrenaline into her heart. She wakes up.'
	slave['res'] += 1
	if slave['res'] > 5: slave['res'] = 5
	if slave['res'] = 1: sparks -= 50
	if slave['res'] = 2: sparks -= 100
	if slave['res'] = 3: sparks -= 250
	if slave['res'] = 4: sparks -= 500
	if slave['res'] = 5: sparks -= 1000
	slave['energy'] = 0
	if slave['stamina'] < 2: slave['stamina'] = 2
	if slave['starvation'] > 0: slave['starvation'] = 0
	slave_state = CONST_INT['slave_exist']
	slave_stimulation = 0

	!If there are still some - jump on the old menu. copypaste interaction_city = 3312
	if slave_issues > 0:
		skip_to = 12
		$sp_text[12] = '  [DOCTOR]
- So, <<$master_name>>, do you want to order from us any medical procedures?'
		slave_issues -= 1
	end
end

if interaction_city = 3321:
	$place = 'hospital'
	$return_lock = 'shop_general'
	npc = 1
	$npc_id = 'doctor'
	$text[1] = '  [DOCTOR]
- After this operation, <<$slave_name>> can no longer get pregnant. The effect is reversible. The health consequences are minimal.
 Cost of the procedure is 5 sparks. Rehabilitation period 2 days. '
	$yes = {
		sparks -= 5
		slave['energy'] -= 2
		dynamic $slave_energy_drop
		slave_rate['stamina'] -= 5
		slave['rehabilitation'] += 2
		slave['fertility'] = -1
		slave['fertility_revealed'] = 1
		gt 'shop_general'
	}
	$no = {
		sp_txt = 2
		gt 'shop_general'
	}
	gt 'choice_screen'
end

if interaction_city = 33211:
	$place = 'hospital'
	$return_lock = 'shop_general'
	npc = 1
	$npc_id = 'doctor'
	if slave['fertility'] = -2:
		$text[1] = '  [DOCTOR]
- We can perform a procedure to induce fertility in an otherwise too young slave, starting her menstruation cycle and allowing her to become pregnant. The health consequences are average.
 Cost of the procedure 50 sparks. Rehabilitation period 7 days. '
	else
		$text[1] = '  [DOCTOR]
- Restoring the fertility ability of the female body is harder than sterilization. The health consequences are average.
 Cost of the procedure 50 sparks. Rehabilitation period 7 days. '
	end
	$yes = {
		sparks -= 50
		slave['energy'] -= 3
		dynamic $slave_energy_drop
		slave_rate['stamina'] -= 10
		slave['rehabilitation'] += 7
		slave['fertility'] = 0
		slave['fertility_revealed'] = 1
		gt 'shop_general'
	}
	$no = {
		sp_txt = 2
		gt 'shop_general'
	}
	gt 'choice_screen'
end

if interaction_city = 3322:
	$place = 'hospital'
	$return_lock = 'shop_general'
	npc = 1
	$npc_id = 'doctor'
	$text[1] = '  [DOCTOR]
- We can increase your slave’s breast size'
	if slave['age'] = CONST_INT['milf_age']: $text[1] += ' and make them nice and firm, again, so they ride high on her chest like a teen’s'
	$text[1] += '. The health consequences are average.
 Cost of the procedure 25 sparks. Rehabilitation period 5 days. '
	$yes = {
		sparks -= 25
		slave['energy'] -= 3
		dynamic $slave_energy_drop
		slave_rate['stamina'] -= 10
		slave['rehabilitation'] += 5
		dynamic $enlarge_breast
		gt 'shop_general'
	}
	$no = {
		sp_txt = 2
		gt 'shop_general'
	}
	gt 'choice_screen'
end

if interaction_city = 33221:
	$place = 'hospital'
	$return_lock = 'shop_general'
	npc = 1
	$npc_id = 'doctor'
	$text[1] = '  [DOCTOR]
- We can decrease your slave’s breast size'
	if slave['age'] = CONST_INT['milf_age']: $text[1] += ' and make them firmer, too, so they ride high on her chest like they used to'
	$text[1] += '. The health consequences are average.
 Cost of the procedure 25 sparks. Rehabilitation period 5 days. '
	$yes = {
		sparks -= 25
		slave['energy'] -= 3
		dynamic $slave_energy_drop
		slave_rate['stamina'] -= 10
		slave['rehabilitation'] += 5
		dynamic $reduce_breast
		gt 'shop_general'
	}
	$no = {
		sp_txt = 2
		gt 'shop_general'
	}
	gt 'choice_screen'
end

if interaction_city = 3323:
	$place = 'hospital'
	$return_lock = 'shop_general'
	npc = 1
	$npc_id = 'doctor'
	$text[1] = '  [DOCTOR]
- We can restore the hymen of your slave so that no one would guess that she was not innocent. The health consequences are minimal.
 Cost of the procedure 25 sparks. Rehabilitation period 1 day. '
	$yes = {
		sparks -= 25
		slave['virginity'] = 1
		slave['energy'] -= 2
		if slave['vaginal_modification'] = 4: slave['vaginal_modification'] = 0
		if slave['fertility'] = 1: slave['fertility'] = 0
		dynamic $slave_energy_drop
		slave_rate['stamina'] -= 3
		slave['rehabilitation'] += 1
		gt 'shop_general'
	}
	$no = {
		sp_txt = 2
		gt 'shop_general'
	}
	gt 'choice_screen'
end

!slave neoplasty
if interaction_city = 3324:
$place = 'hospital'
	$return_lock = 'shop_general'
	npc = 1
	$npc_id = 'doctor'
	procedure_price = 250
	rehabilitation_period = 20
	$text[1] = '  [DOCTOR]
- We can remove some of the disadvantages in appearance of your slave and make her more attractive. Significant health consequences.

' + _
	'Cost of the procedure <<procedure_price>> sparks. Rehabilitation period <<rehabilitation_period>> days.'
	$yes = {
		sparks -= procedure_price
		slave['energy'] = -4
		slave_rate['stamina'] -= 20
		slave['rehabilitation'] = rehabilitation_period
		slave['beauty_enhanced'] = 1
		slave_rate['beauty'] = cont_atr_threshold[slave['base_beauty'] + 1]
		interaction_city = 33241
		gt 'interaction_city'
	}
	$no = {sp_txt = 3
		gt 'shop_general'
	}
	gt 'choice_screen'
end

if interaction_city = 33241:
	$place = 'hospital'
	$return_lock = 'shop_general'
	npc = 1
	$npc_id = 'doctor'
	$text[1] = '  [DOCTOR]
- If you wish, we can not simply remove the disadvantages, but also completely change the appearance of your slave. Work with the bone structure is still necessary, so why not adapt her to suit your personal tastes?'
	$yes = {
		txt = 0
		gt 'plastics'
	}
	$no = {
		sp_txt = 2
		gt 'shop_general'
	}
	gt 'choice_screen'
end

!slave lactation
if interaction_city = 3325:
	$place = 'hospital'
	$return_lock = 'shop_general'
	npc = 1
	$npc_id = 'doctor'
	$text[1] = '  [DOCTOR]
- We can fully remake the breasts of your slave, as well as her reproductive organs: her breasts will become a real milk factory. You will have to impregnate her regularly but don’t worry, it will never come to a real pregnancy.'
	$text[2] = '  [DOCTOR]
- Apart from impregnation, milk yield can be improved by the acceptance of your slave being a cow, and, to a lesser extent, her boobs size, fatness and mood. Note that if your slave is not used to be treated like a cow, she could have a hard time accepting this surgery. Significant health consequences.
 Cost of the procedure 50 sparks. Rehabilitation period 15 days. '
	$yes = {
		sparks -= 50
		slave['energy'] -= 4
		dynamic $slave_energy_drop
		slave_rate['stamina'] -= 15
		slave['rehabilitation'] += 10
		slave['lactation'] = 1
		slave['fertility'] = -3
		gt 'shop_general'
	}
	$no = {
		sp_txt = 2
		gt 'shop_general'
	}
	slave_lactation_surgery = 1
end

!Slave oviparity - egglaying
if interaction_city = 3326:
	$place = 'hospital'
	$return_lock = 'shop_general'
	npc = 1
	$npc_id = 'doctor'
	$text[1] = '  [DOCTOR]
- We can transplant the womb of a harpy into your slave. Instead of children she will produce large tasty eggs, like a bird. Significant health consequences.
 Cost of the procedure 50 sparks. Rehabilitation period 20 days. '
	$yes = {
		sparks -= 25
		slave['energy'] = -4
		slave_rate['stamina'] -= 20
		slave['rehabilitation'] += 20
		slave['fertility'] = 1
		slave['fertility_revealed'] = 1
		slave['vaginal_modification'] = 4
		slave['parasite'] = 0
		gt 'shop_general'
	}
	$no = {
		sp_txt = 2
		gt 'shop_general'
	}
	gt 'choice_screen'
end

if interaction_city = 3314:
	$interaction_type = 'sell_slave_simple'
	npc = 1
	$npc_id = 'doctor'
	$place = 'hospital'
	$return_lock = 'shop_general'
	no_charm_check = 1
	fixed_brand_rise = 1
end

if interaction_city = 3313:
	npc = 1
	$npc_id = 'doctor'
	$place = 'hospital'
	$return_lock = 'shop_general'
	copyarr '$text', '$doctor_pref'
end

!assistant checkup
if interaction_city = 13312:
	npc = 1
	$npc_id = 'doctor'
	$place = 'hospital'
	$return_lock = 'shop_general'
	!added validation visit - if for diagnosis has been paid previously, the second time money will not be taken until you get out of the center
	if assistant['health_issues_revealed'] = 0: sparks -= 5 & assistant['health_issues_revealed'] = 1
	assistant_issues = 0
	killvar 'cure_assistant_ill'
	killvar 'assistant_abortion'
	killvar 'assistant_insidous_abortion'
	killvar 'assistant_stimulation'
	if assistant['stamina'] < 1 or assistant['energy'] = -5:
		assistant_issues += 1
		assistant_stimulation = 1
		$text[assistant_issues] = '  [DOCTOR]

- <<$assistant_name>> is in a coma and did not respond to any stimulus. With proper care, she can recover after a while, but in the worst case death is possible. We can use stimulants to bring her back to life, but it does not solve the problem completely. The body tends to reject stimulants, so that at each subsequent resuscitation we will have to use more and more which is dangerous and expensive.
'
	end
	if assistant['pregnant'] > 9 and assistant['fertility'] = 0:
		assistant_issues += 1
		assistant_abortion = 1
		$text[assistant_issues] = '  [DOCTOR]
- <<$assistant_name>> is pregnant. The fetus is quite healthy and viable for now. If you don’t abort the pregnancy, you will have to give the girl to the Vatican, when the pregnancy becomes obvious, they have strict laws about these things. Abortion will cost 10 sparks.'
	end
	if assistant['parasite'] > 0:
		assistant_issues += 1
		assistant_insidous_abortion = 1
		$text[assistant_issues] = '  [DOCTOR]
- <<$assistant_name>>... is pregnant. But not quite by conventional manner. It’s some type of xenoparasite, likely larva of a Fog fiend. If we do not remove it in the near future, the larva will devour the insides of the girl and split her stomach open. The removal operation will cost 25 sparks.'
	end
	if assistant['scars'] = 1:
		assistant_issues += 1
		$text[assistant_issues] = '  [DOCTOR]
- Your assistant has a small scar that slightly spoils her appearance. We could perform a little plastic surgery to remove it. Only for five sparks.'
	end
	if assistant['scars'] = 2:
		assistant_issues += 1
		$text[assistant_issues] = '  [DOCTOR]
- Your assistant has a few old scars that affect her... salable condition. We can remove them and restore softness and smoothness to her skin. The operation will cost 10 sparks.'
	end
	if assistant['scars'] = 3:
		assistant_issues += 1
		$text[assistant_issues] = '  [DOCTOR]
- As you can see, your assistant has rather impressive scars. But nothing that we can not handle with good old-fashioned plastic surgery. Twenty-five sparks, an hour, and she will be as good as new!'
	end
	if assistant['scars'] = 4:
		assistant_issues += 1
		$text[assistant_issues] = '  [DOCTOR]
- Looks like your assistant had a traumatic life, <<$master_name>>. These scars look very impressive, but they are not attractive. She needs serious intervention to get rid of this horror. The procedure will cost fifty sparks.'
	end
	if assistant['scars'] = 5:
		assistant_issues += 1
		$text[assistant_issues] = '  [DOCTOR]
- Oh boy. The woman is rarely seen with such a terrible scars. They would rather fit to the old viking... Is she a gladiator? Oh well, it does not matter, we can remove them. But the work is very delicate, the operation will cost you a hundred sparks.'
	end
	if assistant['wounds'] = 1:
		assistant_issues += 1
		$text[assistant_issues] = '  [DOCTOR]
- Good that you have applied to us, <<$master_name>>. She has a slight wound, almost a scratch, but who knows what complications can arise. Restorative treatment will cost only five sparks.'
	end
	if assistant['wounds'] = 2:
		assistant_issues += 1
		$text[assistant_issues] = '  [DOCTOR]
- Do not worry, the injury is not too severe and not life threatening. It can heal itself after a week or two, but it is safer and faster to receive treatment from us. Just ten sparks and she’s as good as new. There will be no scars, I guarantee.'
	end
	if assistant['wounds'] = 3:
		assistant_issues += 1
		$text[assistant_issues] = '  [DOCTOR]
- This is a pretty serious wound, I do not recommend that you self-medicate. The process will be long and in any case there will be scars. But we can heal the wound quickly and without consequences, just for twenty-five sparks.'
	end
	if assistant['wounds'] = 4:
		assistant_issues += 1
		$text[assistant_issues] = '  [DOCTOR]
- I am afraid that the injures your assistant has are very serious, <<$master_name>>. Treatment will cost fifty sparks, and I recommend you pay it. If you leave things as they are, the consequences of such injuries can be very serious.'
	end
	if assistant['wounds'] >= 5:
		assistant_issues += 1
		$text[assistant_issues] = '  [DOCTOR]
- Put her on a stretcher, quick! Such injuries are usually not compatible with life. <<$master_name>>, if you want to save the girl, she urgently needs surgery. It will cost you 100 sparks, but note that it is likely a matter of life and death!'
	end
	if assistant['ill'] > 0:
		assistant_issues += 1
		cure_assistant_ill = 1
		$text[assistant_issues] = '  [DOCTOR]
- We diagnosed rotphilis on your assistant, <<$master_name>>. I would not recommend that you sell her with a disease if you do not want lower your reputation. But it can be treated. Only for twenty-five sparks.'
	end
	if assistant_issues > 0:
		skip_to = 13
		$sp_text[13] = '  [DOCTOR]
- So, <<$master_name>>, do you want to order from us any medical procedures?'
	else
		$text[1] = '  [DOCTOR]
- <<$assistant_name>> is completely healthy, <<$master_name>>. At least nothing that would require medical intervention. If you want, I’ll write you a certificate of her condition, for presentation to potential buyers.'
	end
end

!assistant wounds
if interaction_city = 331211:
	$place = 'hospital'
	$return_lock = 'shop_general'
	$text[1] = '  They take your assistant for about an hour, then return her back. She looks quite healthy. No traces of wounds left.'
	if assistant['wounds'] = 1:
		sparks -= 5
	elseif assistant['wounds'] = 2:
		sparks -= 10
	elseif assistant['wounds'] = 3:
		sparks -= 25
	elseif assistant['wounds'] = 4:
		sparks -= 50
	elseif assistant['wounds'] = 5:
		sparks -= 100
	elseif assistant['wounds'] ! 0:
		msg 'assistant["wounds"] = <<assistant["wounds"]>>, assistant["wounds"] -> [0, 5]!'
	end

	assistant['wounds'] = 0
	assistant_rate['wounds'] = 0
	assistant['neg_slave_wounded'] = 0

	!If there are still some - jump on the old menu. copypaste interaction_city = 3312
	if assistant_issues > 0:
		skip_to = 13
		$sp_text[13] = '  [DOCTOR]
- So, <<$master_name>>, do you want to order from us any medical procedures?'
		assistant_issues -= 1
	end
end

!assistant cure
if interaction_city = 331221:
	$place = 'hospital'
	$return_lock = 'shop_general'
	$text[1] = '  They take your assistant for about an hour, then return her back. She looks quite healthy.'
	sparks -= 25
	killvar 'cure_assistant_ill'
	assistant['ill'] = 0
	!removing bad moodlet
	assistant['neg_assistant_ill'] = 0

	!If there are still some - jump on the old menu. copypaste interaction_city = 3312
	if assistant_issues > 0:
		skip_to = 13
		$sp_text[13] = '  [DOCTOR]
- So, <<$master_name>>, do you want to order from us any medical procedures?'
		assistant_issues -= 1
	end
end

!assistant scars
if interaction_city = 331231:
	$place = 'hospital'
	$return_lock = 'shop_general'
	$text[1] = '  They take your assistant for about an hour, then return her back. Scars disappeared as if by magic.'
	if assistant['scars'] = 1:
		sparks -= 5
	elseif assistant['scars'] = 2:
		sparks -= 10
	elseif assistant['scars'] = 3:
		sparks -= 25
	elseif assistant['scars'] = 4:
		sparks -= 50
	elseif assistant['scars'] = 5:
		sparks -= 100
	elseif assistant['scars'] ! 0:
		msg 'assistant["scars"] = <<assistant["scars"]>>, assistant["scars"] -> [0, 5]!'
	end
	assistant['scars'] = 0
	assistant_rate['scars'] = 0
	!If there are still some - jump on the old menu. copypaste interaction_city = 3312
	if assistant_issues > 0:
		skip_to = 13
		$sp_text[13] = '  [DOCTOR]
- So, <<$master_name>>, do you want to order from us any medical procedures?'
		assistant_issues -= 1
	end
end

!assistant pregnant
if interaction_city = 331241:
	$place = 'hospital'
	$return_lock = 'shop_general'
	$text[1] = '  They take your assistant for about an hour, then return her back. She looks quite healthy.'
	sparks -= 10
	killvar 'assistant_abortion'
	assistant['pregnant'] = 0
	!If there are still some - jump on the old menu. copypaste interaction_city = 3312
	if assistant_issues > 0:
		skip_to = 13
		$sp_text[13] = '  [DOCTOR]
- So, <<$master_name>>, do you want to order from us any medical procedures?'
		assistant_issues -= 1
	end
end

!assistant insidous abortion
if interaction_city = 331251:
	$place = 'hospital'
	$return_lock = 'shop_general'
	$text[1] = '  They take your assistant for about an hour, then return her back. She looks quite healthy.'
	sparks -= 25
	killvar 'assistant_insidous_abortion'
	assistant_insidous_abortion = 0
	assistant['parasite'] = 0

	!If there are still some - jump on the old menu. copypaste interaction_city = 3312
	if assistant_issues > 0:
		skip_to = 13
		$sp_text[13] = '  [DOCTOR]
- So, <<$master_name>>, do you want to order from us any medical procedures?'
		assistant_issues -= 1
	end
end

!assistant res
if interaction_city = 331261:
	$place = 'hospital'
	$return_lock = 'shop_general'
	$text[1] = '  They put some kind of dropper on your assistant, and then they hit her a couple of times with an electric discharge and inject adrenaline into her heart. She wakes up.'
	assistant['res'] += 1
	if assistant['res'] > 5: assistant['res'] = 5
	if assistant['res'] = 1: sparks -= 50
	if assistant['res'] = 2: sparks -= 100
	if assistant['res'] = 3: sparks -= 250
	if assistant['res'] = 4: sparks -= 500
	if assistant['res'] = 5: sparks -= 1000
	assistant['energy'] = 0
	if assistant['stamina'] < 2: assistant['stamina'] = 2
	if assistant['starvation'] > 0: assistant['starvation'] = 0
	assistant_state = CONST_INT['slave_exist']
	assistant_stimulation = 0

	!If there are still some - jump on the old menu. copypaste interaction_city = 3312
	if assistant_issues > 0:
		skip_to = 13
		$sp_text[13] = '  [DOCTOR]
- So, <<$master_name>>, do you want to order from us any medical procedures?'
		assistant_issues -= 1
	end
end

!assistant no fertility
if interaction_city = 332112:
	$place = 'hospital'
	$return_lock = 'shop_general'
	npc = 1
	$npc_id = 'doctor'
	$text[1] = '  [DOCTOR]
- After this operation, <<$assistant_name>> can no longer get pregnant. The effect is reversible. The health consequences are minimal.
 Cost of the procedure is 5 sparks. Rehabilitation period 2 days. '
	$yes = {
		sparks -= 5
		assistant['energy'] -= 2
		dynamic $assistant_energy_drop
		assistant_rate['stamina'] -= 5
		assistant['rehabilitation'] += 2
		assistant['fertility'] = -1
		assistant['fertility_revealed'] = 1
		gt 'shop_general'
	}
	$no = {
		sp_txt = 3
		gt 'shop_general'
	}
	gt 'choice_screen'
end

!assistant Restoring the fertility
if interaction_city = 332212:
	$place = 'hospital'
	$return_lock = 'shop_general'
	npc = 1
	$npc_id = 'doctor'
	if assistant['fertility'] = -2:
		$text[1] = '  [DOCTOR]
- We can perform a procedure to induce fertility in an otherwise too young slave, starting her menstruation cycle and allowing her to become pregnant. The health consequences are average.
 Cost of the procedure 50 sparks. Rehabilitation period 7 days. '
	else
		$text[1] = '  [DOCTOR]
- Restoring the fertility ability of the female body is harder than sterilization. The health consequences are average.
 Cost of the procedure 50 sparks. Rehabilitation period 7 days. '
	end
	$yes = {
		sparks -= 50
		assistant['energy'] -= 3
		dynamic $assistant_energy_drop
		assistant_rate['stamina'] -= 10
		assistant['rehabilitation'] += 7
		assistant['fertility'] = 0
		assistant['fertility_revealed'] = 1
		gt 'shop_general'
	}
	$no = {
		sp_txt = 3
		gt 'shop_general'
	}
	gt 'choice_screen'
end

!assistant enlarge breast
if interaction_city = 33222:
	$place = 'hospital'
	$return_lock = 'shop_general'
	npc = 1
	$npc_id = 'doctor'
	$text[1] = '  [DOCTOR]
- We can increase your assistant’s breast size'
	if assistant['age'] = CONST_INT['milf_age']: $text[1] += ' and make those poor old things as perky as a teen’s'
	$text[1] += '. The health consequences are average.
 Cost of the procedure 25 sparks. Rehabilitation period 5 days. '
	$yes = {
		sparks -= 25
		assistant['energy'] -= 3
		dynamic $assistant_energy_drop
		assistant_rate['stamina'] -= 10
		assistant['rehabilitation'] += 5
		dynamic $enlarge_assistant_breast
		gt 'shop_general'
	}
	$no = {
		sp_txt = 3
		gt 'shop_general'
	}
	gt 'choice_screen'
end

!assistant reduce breast
if interaction_city = 332221:
	$place = 'hospital'
	$return_lock = 'shop_general'
	npc = 1
	$npc_id = 'doctor'
	$text[1] = '  [DOCTOR]
- We can decrease your assistant’s breast size'
	if assistant['age'] = CONST_INT['milf_age']: $text[1] += ' and make those poor old things as perky as a teen’s'
	$text[1] += '. The health consequences are average.
 Cost of the procedure 25 sparks. Rehabilitation period 5 days. '
	$yes = {
		sparks -= 25
		assistant['energy'] -= 3
		dynamic $assistant_energy_drop
		assistant_rate['stamina'] -= 10
		assistant['rehabilitation'] += 5
		dynamic $reduce_assistant_breast
		gt 'shop_general'
	}
	$no = {
		sp_txt = 3
		gt 'shop_general'
	}
	gt 'choice_screen'
end

!assistant restore the hymen
if interaction_city = 33231:
	$place = 'hospital'
	$return_lock = 'shop_general'
	npc = 1
	$npc_id = 'doctor'
	$text[1] = '  [DOCTOR]
- We can restore the hymen of your assistant so that no one would guess that she was not innocent. The health consequences are minimal.
 Cost of the procedure 25 sparks. Rehabilitation period 1 day. '
	$yes = {
		sparks -= 25
		assistant['virginity'] = 1
		assistant['energy'] -= 2
		if assistant['vaginal_modification'] = 4: assistant['vaginal_modification'] = 0
		if assistant['fertility'] = 1: assistant['fertility'] = 0
		dynamic $assistant_energy_drop
		assistant_rate['stamina'] -= 3
		assistant['rehabilitation'] += 1
		gt 'shop_general'
	}
	$no = {
		sp_txt = 3
		gt 'shop_general'
	}
	gt 'choice_screen'
end

!assistant Neoplasty
if interaction_city = 33242:
	$place = 'hospital'
	$return_lock = 'shop_general'
	npc = 1
	$npc_id = 'doctor'
	procedure_price = 250
	rehabilitation_period = 20
	$text[1] = '  [DOCTOR]
- We can remove some of the disadvantages in appearance of your assistant and make her more attractive. Significant health consequences.

' + _
	'Cost of the procedure <<procedure_price>> sparks. Rehabilitation period <<rehabilitation_period>> days.'
	$yes = {
		sparks -= procedure_price
		assistant['energy'] = -4
		assistant_rate['stamina'] -= 20
		assistant['rehabilitation'] = rehabilitation_period
		assistant['beauty_enhanced'] = 1
		assistant_rate['beauty'] = cont_atr_threshold[assistant['base_beauty'] + 1]
		interaction_city = 33244
		gt 'interaction_city'
	}
	$no = {sp_txt = 3
		gt 'shop_general'
	}
	gt 'choice_screen'
end

!assistant appearance
if interaction_city = 33244:
	$place = 'hospital'
	$return_lock = 'shop_general'
	npc = 1
	$npc_id = 'doctor'
	$text[1] = '  [DOCTOR]
- If you wish, we can not simply remove the disadvantages, but also completely change the appearance of your assistant. Work with the bone structure is still necessary, so why not adapt her to suit your personal tastes?'
	$yes = {
		txt = 0
		gt 'plastics_assistant'
	}
	$no = {
		sp_txt = 3
		gt 'shop_general'
	}
	gt 'choice_screen'
end

!assistant lactation
if interaction_city = 33251:
	$place = 'hospital'
	$return_lock = 'shop_general'
	npc = 1
	$npc_id = 'doctor'
	$text[1] = '  [DOCTOR]
- We can fully remake the breasts of your assistant, as well as her reproductive organs: her breasts will become a real milk factory. You will have to impregnate her regularly though, but don’t worry, it will never come to a real pregnancy. '
	$text[2] = '  [DOCTOR]
- Apart from impregnation, milk yield can be improved by the acceptance of your assistant being a cow, and, to a lesser extent, her boobs size, fatness and mood. Note that if your assistant is not used to be treated like a cow, she could have a hard time accepting this surgery.Significant health consequences.
 Cost of the procedure 50 sparks. Rehabilitation period 15 days. '
	$yes = {
		sparks -= 50
		assistant['energy'] -= 4
		dynamic $assistant_energy_drop
		assistant_rate['stamina'] -= 15
		assistant['rehabilitation'] += 10
		assistant['lactation'] = 1
		assistant['fertility'] = -3
		gt 'shop_general'
	}
	$no = {
		sp_txt = 3
		gt 'shop_general'
	}
	slave_lactation_surgery = 1
end

!Assistant oviparity - egglaying
if interaction_city = 33261:
	$place = 'hospital'
	$return_lock = 'shop_general'
	npc = 1
	$npc_id = 'doctor'
	$text[1] = '  [DOCTOR]
- We can transplant the womb of a harpy into your assistant. Instead of children she will produce large tasty eggs, like a bird. Significant health consequences.
 Cost of the procedure 50 sparks. Rehabilitation period 20 days. '
	$yes = {
		sparks -= 25
		assistant['energy'] = -4
		assistant_rate['stamina'] -= 20
		assistant['rehabilitation'] += 20
		assistant['fertility'] = 1
		assistant['fertility_revealed'] = 1
		assistant['vaginal_modification'] = 4
		assistant['parasite'] = 0
		gt 'shop_general'
	}
	$no = {
		sp_txt = 3
		gt 'shop_general'
	}
	gt 'choice_screen'
end

!cryostorage
if interaction_city = 332:
	$place = 'stasis_bank'
	if nsfw = 1: not_safe = 1
	$return_lock = 'shop_general'
	$sp_text[1] = '  In a huge cryostorage, quiet as a tomb. Along the walls to a height of many floors stretch endless cells with bodies of humans and other living beings floating inside them.'
	copyarr '$display_options', '$stasis_options'
	gt 'shop_general'
end

if interaction_city = 33201:
	$place = 'stasis_bank'
	if nsfw = 1: not_safe = 1
	$return_lock = 'shop_general'
	npc = 1
	$npc_id = 'kerulis_veil'
	$text[1] = '  [KERULIS VALE]
- Do you want a capsule in your home, slaver? It will cost you twenty sparks every decade. Just don’t try to look into the internal mechanisms - I will crush your eyes!'
	$yes = {
		sparks -= 20
		stasis_tank = 1
		gt 'shop_general'
	}
	$no = {
		gt 'shop_general'
	}
	gt 'choice_screen'
end

if interaction_city = 332011:
	$place = 'stasis_bank'
	if nsfw = 1: not_safe = 1
	$return_lock = 'shop_general'
	npc = 1
	$npc_id = 'kerulis_veil'
	$text[1] = '  [KERULIS VALE]
- I knew that you would not afford it! Sign the papers, and I will send installers to take my property back.'
	$yes = {
		stasis_tank = 0
		gt 'shop_general'
	}
	$no = {
		gt 'shop_general'
	}
	gt 'choice_screen'
end

if interaction_city = 332012:
	$place = 'stasis_bank'
	if nsfw = 1: not_safe = 1
	cryo_cell_selected = 1
	if sound_on = 1: play $small_money_sound, sound_volume
	gs 'slave_to_iced', 1
	sp_txt = 2
	gt 'shop_general'
end

if interaction_city = 332013:
	$place = 'stasis_bank'
	if nsfw = 1: not_safe = 1
	cryo_cell_selected = 2
	if sound_on = 1: play $small_money_sound, sound_volume
	gs 'slave_to_iced', 2
	sp_txt = 2
	gt 'shop_general'
end

if interaction_city = 332014:
	$place = 'stasis_bank'
	if nsfw = 1: not_safe = 1
	cryo_cell_selected = 3
	if sound_on = 1: play $small_money_sound, sound_volume
	gs 'slave_to_iced', 3
	sp_txt = 2
	gt 'shop_general'
end

if interaction_city = 332015:
	$place = 'stasis_bank'
	if nsfw = 1: not_safe = 1
	cryo_cell_selected = 4
	if sound_on = 1: play $small_money_sound, sound_volume
	gs 'slave_to_iced', 4
	sp_txt = 2
	gt 'shop_general'
end

if interaction_city = 332016:
	$place = 'stasis_bank'
	if nsfw = 1: not_safe = 1
	cryo_cell_selected = 5
	if sound_on = 1: play $small_money_sound, sound_volume
	gs 'slave_to_iced', 5
	sp_txt = 2
	gt 'shop_general'
end

if interaction_city = 332017:
	$place = 'stasis_bank'
	if nsfw = 1: not_safe = 1
	cryo_cell_selected = 6
	if sound_on = 1: play $small_money_sound, sound_volume
	gs 'slave_to_iced', 6
	sp_txt = 2
	gt 'shop_general'
end

if interaction_city = 33202:
	$place = 'stasis_bank'
	if nsfw = 1: not_safe = 1
	sparks -= 300
	$return_lock = 'shop_general'
	if sound_on = 1: play $large_money_sound, sound_volume
	cells_unlocked = 1
	sp_txt = 2
	gt 'shop_general'
end

!soulnet terminal
if interaction_city = 333:
	$place = 'computer'
	if nsfw = 1: not_safe = 1
	$return_lock = 'shop_general'
	copyarr '$display_options', '$computer_options'
	gt 'shop_general'
end

if interaction_city = 3331:
	$place = 'computer'
	if nsfw = 1: not_safe = 1
	$return_lock = 'shop_general'
	copyarr '$text', '$infodata_aura'
end

if interaction_city = 3332:
	$place = 'computer'
	if nsfw = 1: not_safe = 1
	$return_lock = 'shop_general'
	copyarr '$text', '$infodata_aura_patterns'
end

!Administrative Spires
if interaction_city = 34:
	$place = 'spire_gate'
	if nsfw = 1: not_safe = 1
	$return_lock = 'shop_general'
	if sound_on = 1:
		play 'content/snd/spires.wav', music_volume, 'only, loop'
	else
		close 'content/snd/spires.wav'
	end
	copyarr '$display_options', '$spire_options'
	if faction_fame['serpis'] >= 3 and serpis_met = 0:
		serpis_met = 1
		$text[1] = '  [TECHNO-JANISSARIES]
- Seems like we’ve seen you somewhere, <<$master_name>>. Show your pass. Hmmm... Well, you can go through.'
	elseif faction_fame['serpis'] >= 3 and serpis_met = 1:
		$text[1] = '  [TECHNO-JANISSARIES]
- You can go in, <<$master_name>>.'
	end
	if faction_fame['serpis'] < 3 and npc_progress['pope'] < 2:
		$text[1] = '  [TECHNO-JANISSARIES]
- Access to the Administrative Spires is strictly limited, citizen. Do you have a pass?'
	elseif faction_fame['serpis'] < 3:
		$text[1] = '  [TECHNO-JANISSARIES]
- Have you made an appointment, your honor? We cannot find it in the database.'
	end
end

if interaction_city = 341:
	interaction_city = 3411
	if slave_state = CONST_INT['slave_exist'] and npc_progress['bishop_porter'] = 1 and slave['brand'] > 0: interaction_city = 3412
end

if interaction_city = 3411:
	npc = 1
	$npc_id = 'bishop_porter'
	$place = 'palace'
	$return_lock = 'shop_general'
	npc_progress['bishop_porter'] = 1
	active[$quest[5]] = 1
	$quest_description[5] = 'Reverend Porter (Administrative Spires, <<$rating[8]>>)
' + _
	'I am not a soldier, but my work is still dangerous, <<$master_name>>. An Archbishop is too important for the house to take any risks. If anything happens to me - the Fog will absorb House Serpis in mere weeks.
' + _
	'So I often use doubles to confuse assassins who try to attack me. The requirements are high so we need someone as experienced as you to prepare a girl.
' + _
	'In the first place, she must be a master of transformation and know all about etiquette of communication. To be like me, a slave must be smart and have a strong nature.
' + _
	'Of course, she should also not be too young, and generally have a similar physique to mine. And one more thing... do not attempt to steal her innocence. I do not want a defiled girl in my service.
' + _
	'The girl may be tender and sensual. Unlike most males. But if you are as professional as they say, you will be able to teach her how to work with her hands and work with her tongue to a proper degree.
' + _
	'
Back'
	copyarr '$text', '$bishop_porter_pref'
end

if interaction_city = 3412:
	npc = 1
	$npc_id = 'bishop_porter'
	$place = 'palace'
	$return_lock = 'shop_general'
	$interaction_type = 'sell_slave_complex'
end

if interaction_city = 342:
	interaction_city = 3421
	if slave_state = CONST_INT['slave_exist'] and npc_progress['general_drago'] = 1 and slave['brand'] > 0: interaction_city = 3422
end

if interaction_city = 3421:
	npc = 1
	$npc_id = 'general_drago'
	$place = 'palace'
	$return_lock = 'shop_general'
	npc_progress['general_drago'] = 1
	active[$quest[5]] = 1
	$quest_description[5] = 'General Drago (Administrative Spires, <<$rating[8]>>)
' + _
	'Do you know what the strength of a general is, <<$master_name>>? His army. And do know what the strength of an army is? Their devotion. If your soldiers are devoted to you and your cause, you can do anything. No enemy will stand a chance.
' + _
	'And soldiers - what makes them different from ordinary guys? What makes me different? So how do we increase their devotion? With good wine and a caring woman. Such simple means are enough to make them follow me.
' + _
	'I promised one of my more.. disgusting platoons that they would get a woman even the pope would dream of. Can you do this? don’t worry about sparks, I know how to reward.
' + _
	'The girl must be properly trained in various arts though. She must to know how to serve a full platoon of soldiers so no one feels out of place. She should also be able to do some of the more.. "exotic" acts to entertain them. Maybe sex with a horse or dog or some other unusual thing.
' + _
	'And most importantly she must be lively, not slack. And she must to know how to fight too. These guys will throw girls in a dirt pit and force them fight. The winner is rewarded a day off. So make sure she can handle a catfight!
' + _
	'Back'
	copyarr '$text', '$general_drago_pref'
end

if interaction_city = 3422:
	npc = 1
	$npc_id = 'general_drago'
	$place = 'palace'
	$return_lock = 'shop_general'
	$interaction_type = 'sell_slave_complex'
end

if interaction_city = 343:
	interaction_city = 3431
	if slave_state = CONST_INT['slave_exist'] and npc_progress['pretor_diabaz'] = 1 and slave['brand'] > 0: interaction_city = 3432
end

if interaction_city = 3431:
	npc = 1
	$npc_id = 'pretor_diabaz'
	$place = 'palace'
	$return_lock = 'shop_general'
	npc_progress['pretor_diabaz'] = 1
	active[$quest[5]] = 1
	$quest_description[5] = 'Praetor Diabaz (Administrative Spires, <<$rating[8]>>)
' + _
	'Gaudete, <<$master_name>>. I was told that you prepare wonderful slaves. Frankly, I would not mind stocking up my security a little. It is necessary to spend sparks somewhere after all.
' + _
	'I need a fighting girlfriend. She should not be afraid to accompany me on my campaigns. Our house has a, you know, special image. The locals are afraid of our technology.
' + _
	'So, what I need is a physically strong and exotic girl which will look impressive with a heavy bolter or a plasma rifle.
' + _
	'And of course, it is necessary that she can stand up for herself. I am not attacked every day, but the work is still dangerous. I used to rely on whoever comes with me and did not think about how to cover my back.
' + _
	'I assume she need to know how to provide first aid and have stage presence. The rest relies on your experience as the slave master. Please me and I will make it worth your while.
' + _
	'Back'
	copyarr '$text', '$pretor_diabaz_pref'
end

if interaction_city = 3432:
	npc = 1
	$npc_id = 'pretor_diabaz'
	$place = 'palace'
	$return_lock = 'shop_general'
	$interaction_type = 'sell_slave_complex'
end

if interaction_city = 344:
	interaction_city = 3441
	if slave_state = CONST_INT['slave_exist'] and npc_progress['serpis_prince_first'] = 1 and slave['brand'] > 0: interaction_city = 3442
end

if interaction_city = 3441:
	npc = 1
	$npc_id = 'serpis_prince_first'
	$place = 'palace'
	$return_lock = 'shop_general'
	npc_progress['serpis_prince_first'] = 1
	active[$quest[5]] = 1
	$quest_description[5] = 'Mr. President (Administrative Spires, <<$rating[10]>>)
' + _
	'Did you know that these assholes from the Vatican take away all the pregnant girls for themselves? But I am not willing to let them keep doing this.
' + _
	'But all children somehow are born dead, no matter how hard I try. But I will not give up. What are our achievements, if you have no heir, right? And the process is enjoyable.
' + _
	'I experiment. I do not know what exactly is needed for a successful pregnancy. So prepare the slave as you wish. I have been told that you are able to guess the wishes of the clients like no one else.
' + _
	'The only thing I ask for - let her know how to get along and communicate with the other girls. And she should be sensitive, not coarse. I hate rough uncut bitches.
' + _
	'Of course, I am expecting her to have some sexual training. Oral, petting and sex skills are required. That goes without saying, of course. The rest I will leave in your hands. I’ll wait for it!
' + _
	'Back'
	copyarr '$text', '$serpis_prince_first_pref'
end

if interaction_city = 3442:
	npc = 1
	$npc_id = 'serpis_prince_first'
	$place = 'palace'
	$return_lock = 'shop_general'
	$interaction_type = 'sell_slave_complex'
end

!CAMIRA HOUSINGS
if interaction_city = 411:
	$interaction_type = 'buyer_invitation'
	city_form = 41
	$npc_id = 'magnaga'
	$place = 'kamira_street_rental'
end

if interaction_city = 412:
	$interaction_type = 'buyer_invitation'
	city_form = 41
	$npc_id = 'kratos'
	$place = 'kamira_street_rental'
end

if interaction_city = 413:
	$interaction_type = 'buyer_invitation'
	city_form = 41
	$npc_id = 'gloth_prisonguard'
	$place = 'kamira_street_rental'
end

if interaction_city = 414:
	$interaction_type = 'buyer_invitation'
	city_form = 41
	$npc_id = 'bullhorn'
	$place = 'kamira_street_rental'
end

if interaction_city = 415:
	$interaction_type = 'buyer_invitation'
	city_form = 41
	$npc_id = 'arbue'
	$place = 'kamira_street_rental'
end

if interaction_city = 416:
	$interaction_type = 'buyer_invitation'
	city_form = 41
	$npc_id = 'sfinga'
	$place = 'kamira_street_rental'
end

if interaction_city = 417:
	$interaction_type = 'buyer_invitation'
	city_form = 41
	$npc_id = 'lady_mordhulla'
	$place = 'kamira_street_rental'
end

if interaction_city = 418:
	$interaction_type = 'buyer_invitation'
	city_form = 41
	$npc_id = 'kurfilinn'
	$place = 'kamira_street_rental'
end

if interaction_city = 419:
	$interaction_type = 'buyer_invitation'
	city_form = 41
	$npc_id = 'prince_charming'
	$place = 'kamira_street_rental'
end

if interaction_city = 4110:
	$interaction_type = 'buyer_invitation'
	city_form = 41
	$npc_id = 'lord_pira'
	$place = 'kamira_street_rental'
end

if interaction_city = 4111:
	$interaction_type = 'buyer_invitation'
	city_form = 41
	$npc_id = 'countess_bathory'
	$place = 'kamira_street_rental'
end

if interaction_city = 4112:
	$interaction_type = 'buyer_invitation'
	city_form = 41
	$npc_id = 'mikkey'
	$place = 'kamira_street_rental'
end

if interaction_city = 4113:
	from_club = 1
	$interaction_type = 'buyer_invitation'
	$place = 'witch_shop'
	city_form = 4
	$npc_id = 'mystra'
end

!tattoo shop
if interaction_city = 42:
	$place = 'uncle_bo'
	$return_lock = 'shop_general'
	$sp_text[1] = ''
	copyarr '$display_options', '$bo_options'
	gt 'shop_general'
end

if interaction_city = 421:
	npc = 1
	$npc_id = 'uncle_bo'
	$place = 'uncle_bo'
	$return_lock = 'shop_general'
	copyarr '$text', '$bo_pref'
end

if interaction_city = 422:
	npc = 1
	$npc_id = 'uncle_bo'
	$place = 'uncle_bo'
	$return_lock = 'shop_general'
	$special_text = ''
	gt 'slave_sell'
end

if interaction_city = 4211:
	$place = 'uncle_bo'
	$return_lock = 'shop_general'
	$interaction_type = 'service'
	service_price = 5
	$service_picture = 'scene\service\service_small_tattoo'
	g = rand(1, picMax['service_small_tattoo'])
	if g > 1: $service_picture += '_' + $str(g)
	copyarr '$text', '$tattoo_small'
	$do_service = {
		slave['tattoo'] = 1
		slave_rate['mood'] -= 3
		if slave['neg_pain'] < 1: slave['neg_pain'] = 1
		slave_rate['exotic'] += 3
		slave['tattoo_timeup'] = 1
		slave_rate['hygiene'] += 5
	}
end

if interaction_city = 4212:
	$place = 'uncle_bo'
	$return_lock = 'shop_general'
	$interaction_type = 'service'
	service_price = 10
	$service_picture = 'scene\service\service_tattoo_start'
	g = rand(1, picMax['service_tattoo_start'])
	if g > 1: $service_picture += '_' + $str(g)
	copyarr '$text', '$tattoo_start'
	$do_service = {
		if slave['tattoo'] = 1:
			slave_rate['exotic'] += 2
		else
			slave_rate['exotic'] += 5
		end
		slave['tattoo'] = 2
		slave_rate['mood'] -= 5
		if slave['neg_pain'] < 2: slave['neg_pain'] = 2
		dynamic $slave_energy_drop
		slave_rate['hygiene'] += 10
		slave['tattoo_timeup'] = 1
	}
end

if interaction_city = 4213:
	$place = 'uncle_bo'
	$return_lock = 'shop_general'
	$interaction_type = 'service'
	service_price = 25
	$service_picture = 'scene\service\service_tattoo_continue'
	g = rand(1, picMax['service_tattoo_continue'])
	if g > 1: $service_picture += '_' + $str(g)
	copyarr '$text', '$tattoo_continue'
	$do_service = {
		slave['tattoo'] = 3
		slave_rate['mood'] -= 10
		if slave['neg_pain'] < 3: slave['neg_pain'] = 3
		slave_rate['exotic'] += 8
		dynamic $slave_energy_drop
		dynamic $slave_energy_drop
		slave['tattoo_timeup'] = 1
		slave_rate['hygiene'] += 15
	}
end

if interaction_city = 4214:
	$place = 'uncle_bo'
	$return_lock = 'shop_general'
	$interaction_type = 'service'
	service_price = 50
	$service_picture = 'scene\service\service_tattoo_enlarge'
	g = rand(1, picMax['service_tattoo_enlarge'])
	if g > 1: $service_picture += '_' + $str(g)
	copyarr '$text', '$tattoo_enlarge'
	$do_service = {
		slave['tattoo'] = 4
		slave_rate['mood'] -= 15
		if slave['neg_pain'] < 4: slave['neg_pain'] = 4
		slave_rate['exotic'] += 14
		dynamic $slave_energy_drop
		dynamic $slave_energy_drop
		dynamic $slave_energy_drop
		slave['tattoo_timeup'] = 1
		slave_rate['hygiene'] += 20
	}
end

if interaction_city = 4215:
	$place = 'uncle_bo'
	$return_lock = 'shop_general'
	$interaction_type = 'service'
	service_price = 100
	$service_picture = 'scene\service\service_tattoo_total'
	g = rand(1, picMax['service_tattoo_total'])
	if g > 1: $service_picture += '_' + $str(g)
	copyarr '$text', '$tattoo_total'
	$do_service = {
		slave['tattoo'] = 5
		slave_rate['mood'] -= 20
		if slave['neg_pain'] < 5: slave['neg_pain'] = 5
		dynamic $slave_energy_drop
		dynamic $slave_energy_drop
		dynamic $slave_energy_drop
		dynamic $slave_energy_drop
		dynamic $slave_energy_drop
		slave_rate['exotic'] += 13
		slave_rate['hygiene'] += 25
	}
end

if interaction_city = 4216:
	$place = 'uncle_bo'
	$return_lock = 'shop_general'
	$interaction_type = 'service'
	service_price = 20
	$service_picture = 'scene\service\service_tattoo_makeup'
	g = rand(1, picMax['service_tattoo_makeup'])
	if g > 1: $service_picture += '_' + $str(g)
	copyarr '$text', '$tattoo_makeup'
	$do_service = {
		slave['makeup'] = 3
		slave_rate['mood'] -= 5
		slave['tattoo_timeup'] = 1
	}
end

if interaction_city = 4217:
	$place = 'uncle_bo'
	$return_lock = 'shop_general'
	$interaction_type = 'service'
	service_price = 10
	$service_picture = 'scene\service\service_tattoo_branding'
	g = rand(1, picMax['service_tattoo_branding'])
	if g > 1: $service_picture += '_' + $str(g)
	copyarr '$text', '$tattoo_branding'
	$do_service = {
		slave['brand'] = 2
		slave_rate['mood'] -= 3
		if slave['neg_pain'] < 1: slave['neg_pain'] = 1
		slave_rate['hygiene'] += 5
	}
end

if interaction_city = 4218:
	$place = 'uncle_bo'
	$return_lock = 'shop_general'
	$interaction_type = 'service'
	service_price = 30
	$service_picture = 'scene\service\service_tattoo_fiend'
	g = rand(1, picMax['service_tattoo_fiend'])
	if g > 1: $service_picture += '_' + $str(g)
	copyarr '$text', '$tattoo_fiend'
	$do_service = {
		slave['fiend_tattoo'] = 1
		! no exoticism increase because the fiend tattoo fades to invisibility after application
		slave_rate['mood'] -= 3
		slave_rate['hygiene'] += 5
		if slave['neg_pain'] < 1: slave['neg_pain'] = 1
	}
end

!rarity shop
if interaction_city = 43:
	$place = 'witch_shop'
	$return_lock = 'shop_general'
	$sp_text[1] = ''
	copyarr '$display_options', '$mistra_options'
	gt 'shop_general'
end

if interaction_city = 4311:
	$place = 'witch_shop'
	$return_lock = 'shop_general'
	sparks -= 10
	lab_store['kanabis'] += 5
	if sound_on = 1: play $small_money_sound, sound_volume
	gt 'shop_general'
end

if interaction_city = 4312:
	$place = 'witch_shop'
	$return_lock = 'shop_general'
	sparks -= 10
	lab_store['koffe'] += 5
	if sound_on = 1: play $small_money_sound, sound_volume
	gt 'shop_general'
end

if interaction_city = 4313:
	$place = 'witch_shop'
	$return_lock = 'shop_general'
	sparks -= 10
	lab_store['meth'] += 5
	if sound_on = 1: play $small_money_sound, sound_volume
	gt 'shop_general'
end

if interaction_city = 4314:
	$place = 'witch_shop'
	$return_lock = 'shop_general'
	sparks -= 10
	lab_store['opium'] += 5
	if sound_on = 1: play $small_money_sound, sound_volume
	gt 'shop_general'
end

if interaction_city = 4321:
	$place = 'witch_shop'
	$return_lock = 'shop_general'
	copyarr '$text', '$bahus_help'
end

if interaction_city = 4322:
	$place = 'witch_shop'
	$return_lock = 'shop_general'
	copyarr '$text', '$tonic_help'
end

if interaction_city = 4323:
	$place = 'witch_shop'
	$return_lock = 'shop_general'
	copyarr '$text', '$cure_help'
end

if interaction_city = 4324:
	$place = 'witch_shop'
	$return_lock = 'shop_general'
	copyarr '$text', '$afro_help'
end

if interaction_city = 4325:
	$place = 'witch_shop'
	$return_lock = 'shop_general'
	copyarr '$text', '$letha_help'
end

if interaction_city = 4326:
	$place = 'witch_shop'
	$return_lock = 'shop_general'
	copyarr '$text', '$morpot_help'
end

if interaction_city = 4327:
	$place = 'witch_shop'
	$return_lock = 'shop_general'
	copyarr '$text', '$elixir_help'
end

!public farm
if interaction_city = 44:
	npc = 1
	$npc_id = 'jarik'
	$place = 'farm'
	$return_lock = 'shop_general'
	copyarr '$display_options', '$farm_options'
	$text[1] = '  [Jarik]
- Oh! Hello there, sir-trainer. What do you wish today? Buy, sell, or maybe you want to rent cattle for breeding?'
end
if interaction_city = 476:
	$place = 'farm'
	$return_lock = 'shop_general'
	copyarr '$display_options', '$farm_options'
	gt 'shop_general'
end

if interaction_city = 441:
	npc = 1
	$npc_id = 'jarik'
	$place = 'farm'
	$return_lock = 'shop_general'
	copyarr '$text', '$jarik_pref'
end

if interaction_city = 442:
	$interaction_type = 'sell_slave_simple'
	npc = 1
	$npc_id = 'jarik'
	$place = 'farm'
	$return_lock = 'shop_general'
	no_charm_check = 1
	fixed_brand_rise = 1
end

if interaction_city = 443:
	npc = 1
	$npc_id = 'jarik'
	$place = 'farm'
	if total_milk_sold < 100:
		$text[1] = '  [Jarik]
- Sorry, sir-trainer, the public farm has a reputation to uphold, you see: we are especially vigilant concerning our cows, and we cannot buy girls from anybody. Start by selling us milk, prove your worth as a breeder, then we will do business.'
		$return_lock = 'shop_general'
	else
		$interaction_type = 'sell_milk_cow'
		$picture_type = 'untyped'
		g = rand(1, picMax['cowshed'])
		$bg_path = 'content\pic\scene\cowshed'
		if g > 1: $bg_path += '_' + $str(g)
		$return_lock = 'shop_general'
		no_charm_check = 1
		fixed_brand_rise = 1
	end
	! $place = 'farm'
	! $picture_type = 'untyped'
	! $bg_path = 'content\pic\scene\farm_cows_1.png'
	! $text[1] = '  Here are kept a part of the girls which provide milk for the entire city.'
	! $return_lock = 'shop_general'
	! no_charm_check = 1
	! fixed_brand_rise = 1
end

if interaction_city = 444:
	npc = 1
	$npc_id = 'jarik'
	$place = 'farm'
	$return_lock = 'shop_general'
	copyarr '$text', '$jarik_cow_pref'
end

if interaction_city = 445:
	$place = 'milk_cooperative'
	$return_lock = 'shop_general'
	copyarr '$display_options', '$milk_cooperative'
	if milky_met = 0:
		$text[1] = '  A girl welcomes you with a smile:
' + _
		'  [Milky]
- Hello sir! Nice to meet you, I’m Milky. Well, that’s not my real name, but Jarik calls me that, and minotaurs are sadly lacking in imagination...'
		$text[2] = '  [Milky]
- Anyway, I’m in charge of buying for the cooperative. So if you have a milk license, you can sell us your milk production. We’re also offering some equipment for sale: help youself.'
		milky_met = 1
	else
		gt 'shop_general'
	end
end

if interaction_city = menu_cow_insemination_group:
	$place = 'barn'
	$return_lock = 'barn'
	npc = 1
	$npc_id = 'jarik'
	$text[1] = '  [Jarik]
- Absolutely, sir-trainer, I can send you professionals to directly inseminate your cow... You surely have better things to do with your energy and libido, huh? It will only cost you 30 sparks, and a 40% percent minimum impregnation is guaranteed.'
	$yes = {
		interaction = menu_cow_insemination_group
		gt 'interaction'
	}
	$no = {
		sp_txt = 2
		gt 'barn'
	}
	gt 'choice_screen'
end

if interaction_city = menu_cow_insemination_minotaur:
	$place = 'barn'
	$return_lock = 'barn'
	npc = 1
	$npc_id = 'jarik'
	$text[1] = '  [Jarik]
- If you want a total insemination of your cow I can send you one of our minotaurs. But I have to warn you: some girls are not ready for this kind of... hmm, treatment. Normally we advise our customers to make their girls ready by regular fisting, and by horse mating. Anyway, it will cost you 60 sparks... High price for high service quality, sir-trainer.'
	$yes = {
		interaction = menu_cow_insemination_minotaur
		gt 'interaction'
	}
	$no = {
		sp_txt = 2
		gt 'barn'
	}
	gt 'choice_screen'
end

if interaction_city = 470:
	milk_stock -= 1
	sparks += milk_price
	total_milk_sold += 1
	$text[1] = '
  You sold 1 bottle of milk for <<milk_price>> sparks.'
	if sound_on = 1: play $small_money_sound, sound_volume
end

if interaction_city = 471:
	milk_stock -= 5
	sparks += milk_price*5
	total_milk_sold += 5
	$text[1] = '
  You sold 5 bottles of milk for <<milk_price*5>> sparks.'
	if sound_on = 1: play $small_money_sound, sound_volume
end

if interaction_city = 472:
	$place = 'milk_cooperative'
	$return_lock = 'shop_general'
	if milk_tip = 1:
		if tip_asked = 1:
			$text[1] = $tip_milk[3]
		else
			$text[1] = $tip_milk[milk_demand]
		end
	elseif milk_tip = 0:
		if tip_asked = 0: tip_asked = rand(1,6)
		if tip_asked = 1:
			milk_tip = 1
			$text[1] = $tip_milk[3]
		else
			$text[1] = '  [Milky]
- For sure, <<$master_name>>, I can give you a little tip about how prices will evolve, tomorrow: when it’s about milk I’m well placed to know how things are going... But you will understand these hints aren’t free, hmm? [5 sparks]'
			$yes = {
				sparks -= 5
				$interaction_type = 'ask_milk_tip'
				gt 'interaction_result_city'
			}
			$no = {
				gt 'shop_general'
			}
			gt 'choice_screen'
		end
	end
end

if interaction_city = 473:
	$place = 'milk_cooperative'
	$return_lock = 'shop_general'
	$interaction_type = 'buy_item'
	$item_id = 'cow_gear'
end

if interaction_city = 474:
	$place = 'milk_cooperative'
	$return_lock = 'shop_general'
	$picture_type = 'pic_png'
	$bg_path = 'scene\milkcan_buy'
	$text[1] = '  [Milky]
- We can provide you a refrigerated can, which will be perfect to keep your milk production fresh until you sell it! It can stock up to 100 bottles, and installation is included.
' + _
	'
[Your total stocked milk will be visible in the master stat screen, or in the barn, if you rent one.]'
	$yes = {
		milk_can = 1
		sparks -= 25
		gt 'shop_general'
	}
	$no = {
		gt 'shop_general'
	}
	gt 'choice_screen'
end

if interaction_city = 475:
	$place = 'milk_cooperative'
	$return_lock = 'shop_general'
	$text[1] = '  [Milky]
- If you want to sell your production to the milk cooperative, you need this license. It’s a bit costly, but eventually it will even allow you to sell us your girls - if they’re productive enough!'
	$yes = {
		milk_license = 1
		sparks -= 200
		gt 'shop_general'
	}
	$no = {
		gt 'shop_general'
	}
	gt 'choice_screen'
end

!Tierra del Citadel
if interaction_city = 45:
	$place = 'citadel_gate'
	$return_lock = 'shop_general'
	if sound_on = 1:
		play 'content/snd/citadel.wav', music_volume, 'only, loop'
	else
		close 'content/snd/citadel.wav'
	end
	copyarr '$display_options', '$citadel_options'
	if faction_fame['kamira'] >= 3 and kamira_met = 0:
		kamira_met = 1
		$text[1] = '  [CITADEL GUARD]
- You’ve proven that you can be trusted, <<$master_name>>. Come on in.'
	elseif faction_fame['kamira'] >= 3 and kamira_met = 1:
		$text[1] = '  [CITADEL GUARD]
- Go on, <<$master_name>>.'
		end
	if faction_fame['kamira'] < 3 and npc_progress['pope'] < 2:
		$text[1] = '  [CITADEL GUARD]
- Give me one good reason to let you inside, human.'
	elseif faction_fame['kamira'] < 3:
		$text[1] = '  [CITADEL GUARD]
- You’re that human, what is it you need?'
	end
end

if interaction_city = 451:
	interaction_city = 4511
	if slave_state = CONST_INT['slave_exist'] and npc_progress['bishop_shaitana'] = 1 and slave['brand'] > 0: interaction_city = 4512
end

if interaction_city = 4511:
	npc = 1
	$npc_id = 'bishop_shaitana'
	$place = 'palace'
	$return_lock = 'shop_general'
	npc_progress['bishop_shaitana'] = 1
	active[$quest[5]] = 1
	$quest_description[5] = 'Archbishop Shaitana (Tierra del Citadel, <<$rating[8]>>)
' + _
	'Oh, <<$master_name>>, come on in, sit down. Do you know what it takes for us to keep at bay the Fogs and expand House ownership? These rituals require sparks, yes. But also they require a masterful performance.
' + _
	'I have to pick out the temple maidens myself, and the requirements are high, so I’m willing to pay well for the help. Our rituals must contain immature virgins, not yet experienced in the act of love.
' + _
	'But at the same time she must be a potion master, because she will personally mix the Great Elixir. This task is of the highest importance, it does not allow for mistakes.
' + _
	'To participate in the rituals, the virgin also must sing well, dance and play the dulcimer. And in general, she should be pleasing to God.
' + _
	'As you can see this set of requirements is not easy. I can not just take a child from the street and let her into the temple. Pick the best material, educate, teach and come to me. Sparks will wait.
' + _
	'
Back'
	copyarr '$text', '$bishop_shaitana_pref'
end

if interaction_city = 4512:
	npc = 1
	$npc_id = 'bishop_shaitana'
	$place = 'palace'
	$return_lock = 'shop_general'
	$interaction_type = 'sell_slave_complex'
end

if interaction_city = 452:
	interaction_city = 4521
	if slave_state = CONST_INT['slave_exist'] and npc_progress['general_carnis'] = 1 and slave['brand'] > 0: interaction_city = 4522
end

if interaction_city = 4521:
	npc = 1
	$npc_id = 'general_carnis'
	$place = 'palace'
	$return_lock = 'shop_general'
	npc_progress['general_carnis'] = 1
	active[$quest[5]] = 1
	$quest_description[5] = 'General Carneys (Tierra del Citadel, <<$rating[8]>>)
' + _
	'Do you play chess, <<$master_name>>? I recommend it. Great game for both a warrior and a strategist. Let us play, while we speak.
' + _
	'So, my friends highly recommend your slaves. I’vedecided to try one myself. I honestly have not kept them before. There is someone who cooks and cleans. But at night, it gets lonely. I’m getting old.
' + _
	'Prepare me a woman who will know how to deal with my beast nature. The wolf in me is no less important than the human. Although the usual art of love and work with the tongue also come in handy.
' + _
	'But all these are details. Most importantly, the woman that you offer to me should have outstanding intelligence. The intelligence of a chess player. I find this game even more entertaining than hunting and love.
' + _
	'And let her be literate, able to put two and two together, so she would not yield a queen as you have, my friend. And by the way... checkmate.
' + _
	'Back'
	copyarr '$text', '$general_carnis_pref'
end

if interaction_city = 4522:
	npc = 1
	$npc_id = 'general_carnis'
	$place = 'palace'
	$return_lock = 'shop_general'
	$interaction_type = 'sell_slave_complex'
end

if interaction_city = 453:
	interaction_city = 4531
	if slave_state = CONST_INT['slave_exist'] and npc_progress['pretor_tifaret'] = 1 and slave['brand'] > 0: interaction_city = 4532
end

if interaction_city = 4531:
	npc = 1
	$npc_id = 'pretor_tifaret'
	$place = 'palace'
	$return_lock = 'shop_general'
	npc_progress['pretor_tifaret'] = 1
	active[$quest[5]] = 1
	$quest_description[5] = 'Praetor Tifaret (Tierra del Citadel, <<$rating[8]>>)
' + _
	'It is said that you handle even difficult tasks. Do you see my size, <<$master_name>>? It’s hard to find a woman who can stand my love but will not look like a hairy ogre.
' + _
	'But you better try. I need some variety, stay out of boredom. I have nothing to do, I can’t even really fight anyone. Only female affection can save me.
' + _
	'Try to check the slave that you prepare for me on a horse. If she coincides with the stallion, then maybe she can stand beneath me. And the most important thing - she needs to be healthy and strong. But also beautiful.
' + _
	'But of course she should be adept in making love with with a man. I’m still not a horse, even though I’m big. And reactive, hot. She must not be boring. Did I mention how bored I am?
' + _
	'I want, when I come back home from work, someone happy, who will meet me like a dog. And immediately ease my heart. Just so.
' + _
	'
Back'
	copyarr '$text', '$pretor_tifaret_pref'
end

if interaction_city = 4532:
	npc = 1
	$npc_id = 'pretor_tifaret'
	$place = 'palace'
	$return_lock = 'shop_general'
	$interaction_type = 'sell_slave_complex'
end

if interaction_city = 454:
	interaction_city = 4541
	if slave_state = CONST_INT['slave_exist'] and npc_progress['tiamath'] = 1 and slave['brand'] > 0: interaction_city = 4542
end

if interaction_city = 4541:
	npc = 1
	$npc_id = 'tiamath'
	$place = 'palace'
	$return_lock = 'shop_general'
	npc_progress['tiamath'] = 1
	active[$quest[5]] = 1
	$quest_description[5] = 'Mistress Tiamat (Tierra del Citadel, <<$rating[10]>>)
' + _
	'DO YOU SEE THIS SHINING CHILD, HUMAN? HE’S MY HEIR, HOPE OF THE HOUSE IN THE NEXT MILLENNIUM. SO VULNERABLE NOW, BUT UNDER MY PROTECTION HE WILL GROW TO BE THE MOST POWERFUL CREATURE IN THIS DIRTY CITY.
' + _
	'HE, HOWEVER, HAS A PROBLEM. HE CANNOT DISTINGUISH BETWEEN HIGHER and LOWER BEING. KINDNESS WILL MAKE HIM VULNERABLE. HE NEEDS TO GET USED TO COMMANDING LESSER BEINGS, SUCH AS THEE.
' + _
	'TRAIN A HUMAN FEMALE FOR HIM. PREPARE HER WELL, LET SHE BE OBEDIENT TO HER MASTER ABOVE ALL. SHE MUST BE ABLE TO FEEL PAIN and SADNESS.
' + _
	'SHE MUST TAKE CARE OF HIM, CLEAN HIM UP and HEAL HIM and SING HIM A LULLABY. if HE WANTS TO RAPE HER, SHE MUST BE READY FOR THIS.
' + _
	'and MOST IMPORTANTLY, SHE MUST IDEALLY EXECUTE THE ROLE OF AN ANIMAL. MY HEIR HAS TO LEARN THE WORTH OF PEOPLE and NOT MAKE THE MISTAKE OF TRYING TO COMMUNICATE ON EQUAL TERMS. NOW GO. YOU HEARD MY WILL.
' + _
	'Back'
	copyarr '$text', '$tiamath_pref'
end

if interaction_city = 4542:
	npc = 1
	$npc_id = 'tiamath'
	$place = 'palace'
	$return_lock = 'shop_general'
	$interaction_type = 'sell_slave_complex'
end

!Korvus housings
if interaction_city = 511:
	$interaction_type = 'buyer_invitation'
	city_form = 51
	$npc_id = 'wight'
	$place = 'necropolis_street_rental'
end

if interaction_city = 512:
	$interaction_type = 'buyer_invitation'
	city_form = 51
	$npc_id = 'paral_itch'
	$place = 'necropolis_street_rental'
end

if interaction_city = 513:
	$interaction_type = 'buyer_invitation'
	city_form = 51
	$npc_id = 'lestor'
	$place = 'necropolis_street_rental'
end

if interaction_city = 514:
	$interaction_type = 'buyer_invitation'
	city_form = 51
	$npc_id = 'draugr'
	$place = 'necropolis_street_rental'
end

if interaction_city = 515:
	$interaction_type = 'buyer_invitation'
	city_form = 51
	$npc_id = 'scarlet'
	$place = 'necropolis_street_rental'
end

if interaction_city = 516:
	$interaction_type = 'buyer_invitation'
	city_form = 51
	$npc_id = 'mad_baron'
	$place = 'necropolis_street_rental'
end

if interaction_city = 517:
	$interaction_type = 'buyer_invitation'
	city_form = 51
	$npc_id = 'faceless'
	$place = 'necropolis_street_rental'
end

if interaction_city = 518:
	$interaction_type = 'buyer_invitation'
	city_form = 51
	$npc_id = 'donna_venturi'
	$place = 'necropolis_street_rental'
end

if interaction_city = 519:
	$interaction_type = 'buyer_invitation'
	city_form = 51
	$npc_id = 'lady_yasmenia'
	$place = 'necropolis_street_rental'
end

if interaction_city = 5110:
	$interaction_type = 'buyer_invitation'
	city_form = 51
	$npc_id = 'count_yagellon'
	$place = 'necropolis_street_rental'
end

if interaction_city = 5111:
	$interaction_type = 'buyer_invitation'
	city_form = 51
	$npc_id = 'baron_imladis'
	$place = 'necropolis_street_rental'
end

!piercing shop
if interaction_city = 52:
	$place = 'piercing_shop'
	$return_lock = 'shop_general'
	$sp_text[1] = ''
	copyarr '$display_options', '$piercing_options'
	gt 'shop_general'
end

if interaction_city = 521:
	npc = 1
	$npc_id = 'poison'
	$place = 'piercing_shop'
	$return_lock = 'shop_general'
	copyarr '$text', '$poison_pref'
end

if interaction_city = 522:
	npc = 1
	$npc_id = 'poison'
	$place = 'piercing_shop'
	$return_lock = 'shop_general'
	if no_slave_count['poison'] < 1:
		gt 'slave_sell'
	else
		interaction_city = 523
	end
end

if interaction_city = 523:
	npc = 1
	$npc_id = 'poison'
	$place = 'piercing_shop'
	$return_lock = 'shop_general'
	$text[1] = '  [POISON]
-  No, <<$master_name>>, I do not need new slaves yet. But this will change soon - come see me in the next month.'
end

if interaction_city = 5211:
	$place = 'piercing_shop'
	$return_lock = 'shop_general' & skip_to = 2
	$interaction_type = 'service'
	service_price = 5
	if no_guro = 1:
		$service_picture = 'bg\empty'
	else
		$service_picture = 'scene\service\service_nipple_pierce'
		g = rand(1, picMax['service_nipple_pierce'])
		if g > 1: $service_picture += '_' + $str(g)
	end
	copyarr '$text', '$nipple_pierce'
	$do_service = {
		slave['nipple_piercing'] = 1
		dynamic $pierce_breast
		slave_rate['mood'] -= 10
		if slave['neg_pain'] < 3: slave['neg_pain'] = 3
		if slave['neg_disgust'] < 10 and blood_attitude < 0: slave['neg_disgust'] = 10
		gs '$mood_drop', 'slave', 1
		!slave_rate['exotic'] += 5
		slave_rate['hygiene'] += 5
		slave['piercings'] += 1
	}
end

if interaction_city = 5212:
	$place = 'piercing_shop'
	$return_lock = 'shop_general' & skip_to = 2
	$interaction_type = 'service'
	service_price = 5
	$service_picture = 'scene\service\service_clit_pierce'
	g = rand(1, picMax['service_clit_pierce'])
	if g > 1: $service_picture += '_' + $str(g)
	copyarr '$text', '$clit_pierce'
	$do_service = {
		slave['clit_piercing'] = 1
		dynamic $pierce_clitoris
		slave_rate['mood'] -= 15
		if slave['neg_pain'] < 5: slave['neg_pain'] = 5
		if slave['neg_disgust'] < 10 and blood_attitude < 0: slave['neg_disgust'] = 10
		gs '$mood_drop', 'slave', 1
		!slave_rate['exotic'] += 5
		slave_rate['hygiene'] += 5
		slave['piercings'] += 1
	}
end

if interaction_city = 5213:
	$place = 'piercing_shop'
	$return_lock = 'shop_general' & skip_to = 2
	$interaction_type = 'service'
	service_price = 5
	$service_picture = 'scene\service\service_ear_pierce'
	g = rand(1, picMax['service_ear_pierce'])
	if g > 1: $service_picture += '_' + $str(g)
	copyarr '$text', '$ear_pierce'
	$do_service = {
		slave['ear_piercing'] = 1
		slave_rate['mood'] -= 5
		if slave['neg_pain'] < 1: slave['neg_pain'] = 1
		if slave['neg_disgust'] < 10 and blood_attitude < 0: slave['neg_disgust'] = 10
		gs '$mood_drop', 'slave', 1
		!slave_rate['exotic'] += 2
		slave_rate['hygiene'] += 5
		slave['piercings'] += 1
	}
end

if interaction_city = 5214:
	$place = 'piercing_shop'
	$return_lock = 'shop_general' & skip_to = 2
	$interaction_type = 'service'
	service_price = 5
	$service_picture = 'scene\service\service_tongue_piercing'
	g = rand(1, picMax['service_tongue_piercing'])
	if g > 1: $service_picture += '_' + $str(g)
	copyarr '$text', '$tongue_piercing'
	$do_service = {
		slave['tongue_piercing'] = 1
		if slave['neg_pain'] < 2: slave['neg_pain'] = 2
		if slave['neg_disgust'] < 10 and blood_attitude < 0: slave['neg_disgust'] = 10
		gs '$mood_drop', 'slave', 1
		slave_rate['mood'] -= 10
		!slave_rate['exotic'] += 2
		slave_rate['hygiene'] += 5
		slave['piercings'] += 1
	}
end

if interaction_city = 5215:
	$place = 'piercing_shop'
	$return_lock = 'shop_general' & skip_to = 2
	$interaction_type = 'service'
	service_price = 5
	$service_picture = 'scene\service\service_belly_piercing'
	g = rand(1, picMax['service_belly_piercing'])
	if g > 1: $service_picture += '_' + $str(g)
	copyarr '$text', '$belly_piercing'
	$do_service = {
		slave['belly_piercing'] = 1
		slave_rate['mood'] -= 10
		if slave['neg_pain'] < 2: slave['neg_pain'] = 2
		if slave['neg_disgust'] < 10 and blood_attitude < 0: slave['neg_disgust'] = 10
		gs '$mood_drop', 'slave', 1
		!slave_rate['exotic'] += 3
		slave_rate['hygiene'] += 5
		slave['piercings'] += 1
	}
end

if interaction_city = 5216:
	$place = 'piercing_shop'
	$return_lock = 'shop_general' & skip_to = 2
	$interaction_type = 'service'
	service_price = 5
	$service_picture = 'scene\service\service_nostril_piercing'
	g = rand(1, picMax['service_nostril_piercing'])
	if g > 1: $service_picture += '_' + $str(g)
	copyarr '$text', '$nostril_piercing'
	$do_service = {
		slave['nostril_piercing'] = 1
		slave_rate['mood'] -= 5
		if slave['neg_pain'] < 1: slave['neg_pain'] = 1
		if slave['neg_disgust'] < 10 and blood_attitude < 0: slave['neg_disgust'] = 10
		gs '$mood_drop', 'slave', 1
		!slave_rate['exotic'] += 3
		slave_rate['hygiene'] += 5
		slave['piercings'] += 1
	}
end

if interaction_city = 5217:
	$place = 'piercing_shop'
	$return_lock = 'shop_general' & skip_to = 2
	$interaction_type = 'service'
	service_price = 5
	$service_picture = 'scene\service\service_nose_piercing'
	g = rand(1, picMax['service_nose_piercing'])
	if g > 1: $service_picture += '_' + $str(g)
	copyarr '$text', '$nose_piercing'
	$do_service = {
		slave['nose_piercing'] = 1
		!slave_rate['exotic'] += 5
		slave_rate['mood'] -= 10
		if slave['neg_pain'] < 2: slave['neg_pain'] = 2
		if slave['neg_disgust'] < 10 and blood_attitude < 0: slave['neg_disgust'] = 10
		gs '$mood_drop', 'slave', 1
		slave_rate['hygiene'] += 5
		slave['piercings'] += 1
	}
end

if interaction_city = 5218:
	$place = 'piercing_shop'
	$return_lock = 'shop_general' & skip_to = 2
	$interaction_type = 'service'
	service_price = 20
	$service_picture = 'scene\service\service_scarification'
	g = rand(1, picMax['service_scarification'])
	if g > 1: $service_picture += '_' + $str(g)
	copyarr '$text', '$scarification'
	$do_service = {
		slave['scarification'] = 1
		slave_rate['mood'] -= 15
		if slave['neg_pain'] < 5: slave['neg_pain'] = 5
		if slave['neg_disgust'] < 50: slave['neg_disgust'] = 50
		gs '$mood_drop', 'slave', 1
		!slave_rate['exotic'] += 10
		slave_rate['hygiene'] += 20
		slave['tattoo_timeup'] = 1
		slave['piercings'] += 1
		dynamic $slave_energy_drop
		dynamic $slave_energy_drop
		dynamic $slave_energy_drop
	}
end

if interaction_city = 5219:
	$place = 'piercing_shop'
	$return_lock = 'shop_general' & skip_to = 2
	$interaction_type = 'service'
	service_price = 25
	$service_picture = 'scene\service\service_tongue_split'
	g = rand(1, picMax['service_tongue_split'])
	if g > 1: $service_picture += '_' + $str(g)
	copyarr '$text', '$tongue_split'
	$do_service = {
		slave['tongue_split'] = 1
		slave_rate['mood'] -= 20
		if slave['neg_pain'] < 10: slave['neg_pain'] = 10
		if slave['neg_disgust'] < 50: slave['neg_disgust'] = 50
		gs '$mood_drop', 'slave', 3
		!slave_rate['exotic'] += 10
		slave_rate['hygiene'] += 25
		slave['tattoo_timeup'] = 1
		slave['piercings'] += 1
		dynamic $slave_energy_drop
		dynamic $slave_energy_drop
		dynamic $slave_energy_drop
	}
end

if interaction_city = 5220:
	$place = 'piercing_shop'
	$return_lock = 'shop_general' & skip_to = 2
	$interaction_type = 'service'
	service_price = 35
	$service_picture = 'scene\service\service_full_piercing'
	g = rand(1, picMax['service_full_piercing'])
	if g > 1: $service_picture += '_' + $str(g)
	copyarr '$text', '$full_piercing'
	$do_service = {
		slave['nipple_piercing'] = 1
		dynamic $pierce_breast
		slave['clit_piercing'] = 1
		dynamic $pierce_clitoris
		slave['ear_piercing'] = 1
		slave['tongue_piercing'] = 1
		slave['belly_piercing'] = 1
		slave['nostril_piercing'] = 1
		slave['nose_piercing'] = 1
		slave['full_piercing'] = 1
		slave_rate['mood'] -= 65
		if slave['neg_pain'] < 7: slave['neg_pain'] = 7
		if slave['neg_disgust'] < 10 and blood_attitude < 0: slave['neg_disgust'] = 10
		gs '$mood_drop', 'slave', 7
		!slave_rate['exotic'] += 30
		slave_rate['hygiene'] += 35
		slave['piercings'] += 7
	}
end

if interaction_city = 5221:
	$place = 'piercing_shop'
	$return_lock = 'shop_general' & skip_to = 3
	$interaction_type = 'buy_item'
	$item_id = 'leather_collar'
end

if interaction_city = 5222:
	$place = 'piercing_shop'
	$return_lock = 'shop_general' & skip_to = 3
	$interaction_type = 'buy_item'
	$item_id = 'steel_collar'
end

if interaction_city = 5223:
	$place = 'piercing_shop'
	$return_lock = 'shop_general' & skip_to = 3
	$interaction_type = 'buy_item'
	$item_id = 'spiked_collar'
end

if interaction_city = 5224:
	$place = 'piercing_shop'
	$return_lock = 'shop_general' & skip_to = 3
	$interaction_type = 'buy_item'
	$item_id = 'leather_straps'
end

if interaction_city = 5225:
	$place = 'piercing_shop'
	$return_lock = 'shop_general' & skip_to = 3
	$interaction_type = 'buy_item'
	$item_id = 'nipple_chain'
	item_qty = 1
end

if interaction_city = 5226:
	$place = 'piercing_shop'
	$return_lock = 'shop_general' & skip_to = 3
	$interaction_type = 'buy_item'
	$item_id = 'crown_of_thorns'
end

if interaction_city = 5231:
	$place = 'piercing_shop'
	$return_lock = 'shop_general' & skip_to = 4
	$interaction_type = 'buy_item'
	$item_id = 'dog_collar'
end

if interaction_city = 5232:
	$place = 'piercing_shop'
	$return_lock = 'shop_general' & skip_to = 4
	$interaction_type = 'buy_item'
	$item_id = 'anal_tail'
end

if interaction_city = 5233:
	$place = 'piercing_shop'
	$return_lock = 'shop_general' & skip_to = 4
	$interaction_type = 'buy_item'
	$item_id = 'pony_plume'
end

if interaction_city = 5234:
	$place = 'piercing_shop'
	$return_lock = 'shop_general' & skip_to = 4
	$interaction_type = 'buy_item'
	$item_id = 'hoofed_boots'
end

if interaction_city = 5235:
	$place = 'piercing_shop'
	$return_lock = 'shop_general' & skip_to = 4
	$interaction_type = 'buy_item'
	$item_id = 'ponygirl_harness'
end

if interaction_city = 5236:
	$place = 'piercing_shop'
	$return_lock = 'shop_general' & skip_to = 4
	$interaction_type = 'buy_item'
	$item_id = 'petsuit'
end

if interaction_city = 5261:
	$place = 'piercing_shop'
	$return_lock = 'shop_general' & skip_to = 5
	$interaction_type = 'buy_item_home'
	$item_id = 'vaginal_balls'
end

if interaction_city = 5262:
	$place = 'piercing_shop'
	$return_lock = 'shop_general' & skip_to = 5
	$interaction_type = 'buy_item_home'
	$item_id = 'anal_plug'
end

if interaction_city = 5263:
	$place = 'piercing_shop'
	$return_lock = 'shop_general' & skip_to = 5
	$interaction_type = 'buy_item_home'
	$item_id = 'secure_gag'
end

if interaction_city = 5264:
	$place = 'piercing_shop'
	$return_lock = 'shop_general' & skip_to = 5
	$interaction_type = 'buy_item_home'
	$item_id = 'chastity_belt'
end

if interaction_city = 5265:
	$place = 'piercing_shop'
	$return_lock = 'shop_general' & skip_to = 5
	$interaction_type = 'buy_item_home'
	$item_id = 'deprivation_suit'
end

if interaction_city = 5266:
	$place = 'piercing_shop'
	$return_lock = 'shop_general' & skip_to = 5
	$interaction_type = 'buy_item_home'
	$item_id = 'pissuar_stable'
end

if interaction_city = 5267:
	$place = 'piercing_shop'
	$return_lock = 'shop_general' & skip_to = 5
	$interaction_type = 'buy_item_home'
	$item_id = 'toilet_stable'
end

!anatomical theater
if interaction_city = 53:
	npc = 1
	$npc_id = 'malifiscent'
	$place = 'morgue'
	$return_lock = 'shop_general'
	copyarr '$display_options', '$morgue_options'
	$text[1] = '  [Malifiscent]
- Oh! We have guests, ladies and gentlemen... Be my guest. Until the next presentation is still a couple of hours, so I can take a moment for business matters.'
end

if interaction_city = 531:
	npc = 1
	$npc_id = 'malifiscent'
	$place = 'morgue'
	$return_lock = 'shop_general'
	copyarr '$text', '$malifiscent_pref'
end

if interaction_city = 532:
	!$interaction_type = 'sell_slave_simple'
	$interaction_type = 'sell_slave_complex' &! no negotiating, but check special demands and charm and raise brand rate by demand rating - ImperatorAugustus
	npc = 1
	$npc_id = 'malifiscent'
	$place = 'morgue'
	$return_lock = 'shop_general'
	!no_charm_check = 1 &! disabled - ImperatorAugustus
	!fixed_brand_rise = 1 &! implied with sell_slave_complex - ImperatorAugustus
end

!Воронья башня
if interaction_city = 54:
	$place = 'tower_gate'
	$return_lock = 'shop_general'
	if sound_on = 1:
		play 'content/snd/tower.wav', music_volume, 'only, loop'
	else
		close 'content/snd/tower.wav'
	end-
	copyarr '$display_options', '$tower_options'
	if faction_fame['korvus'] >= 3 and korvus_met = 0:
		korvus_met = 1
		$text[1] = '  [DEATH KNIGHT]
- Grrghhh... Human... Obedient man... Glorious man... <<$master_name>>? Go thrrroooughhh...'
	elseif faction_fame['korvus'] >= 3 and korvus_met = 1:
		$text[1] = '  [DEATH KNIGHT]
- <<$master_name>> wants to enter? Obedient man will. Go iinnnnn...'
	end
	if faction_fame['korvus'] < 3 and npc_progress['pope'] < 2:
		$text[1] = '  [DEATH KNIGHT]
- Arrrghhh... Brraainnnsss...'
	elseif faction_fame['korvus'] < 3:
		$text[1] = '  [DEATH KNIGHT]
- Hrrrghhh... Brraai... Must respect... Emissary of holiness...'
	end
end

if interaction_city = 541:
	interaction_city = 5411
	if slave_state = CONST_INT['slave_exist'] and npc_progress['bishop_nerilis'] = 1 and slave['brand'] > 0: interaction_city = 5412
end

if interaction_city = 5411:
	npc = 1
	$npc_id = 'bishop_nerilis'
	$place = 'palace'
	$return_lock = 'shop_general'
	npc_progress['bishop_nerilis'] = 1
	active[$quest[5]] = 1
	$quest_description[5] = 'Archbishop Nirelis (Raven Tower, <<$rating[8]>>)
' + _
	'My body is perishable. And difficult to speak.
' + _
	'It needs to be sown and bandaged, so as not to crumble.
' + _
	' Magic potions from herbs must be used inside my tomb as well as keeping it constantly in order and clean.
' + _
	'All entries must be kept in order.
' + _
	' Mind is needed, that will not be confused or disaster will happen. Get me this.
' + _
	'Back'
	copyarr '$text', '$bishop_nerilis_pref'
end

if interaction_city = 5412:
	npc = 1
	$npc_id = 'bishop_nerilis'
	$place = 'palace'
	$return_lock = 'shop_general'
	$interaction_type = 'sell_slave_complex'
end

if interaction_city = 542:
	interaction_city = 5421
	if slave_state = CONST_INT['slave_exist'] and npc_progress['hand_of_the_knyaz'] = 1 and slave['brand'] > 0: interaction_city = 5422
end

if interaction_city = 5421:
	npc = 1
	$npc_id = 'hand_of_the_knyaz'
	$place = 'palace'
	$return_lock = 'shop_general'
	npc_progress['hand_of_the_knyaz'] = 1
	active[$quest[5]] = 1
	$quest_description[5] = 'The Hand of the Prince (Raven Tower, <<$rating[8]>>)
' + _
	'Greetings, <<$master_name>>. Everyone says that you prepare excellent slaves. I could use one. You see, our prince is obsessed with secular life. I always have to be present at his balls.
' + _
	'Among our people, few understand the purpose of these events. Even though we must pay tribute, such events reinforce the position of the house, improve our image, and is suitable for most vampires. And the vampires in our house are on the rise.
' + _
	'The only problem is that I must have a lady present on such occasions, and I do not have time for such nonsense. And I cannot take just a simple woman - I’ll be laughed at. It is necessary to keep our reputation. In short I need a secular lioness.
' + _
	'She should be well versed in dancing and have a solid nature. Otherwise I shall be ridiculed. Periodically the events will end with an orgy, so she must be ready for that.
' + _
	'Of course, vampires will drink her blood from time to time, so she need to be physically healthy and a virgin. Vampires freak out over the blood of virgins, do not ask why. The rest is up to you.
' + _
	'Back'
	copyarr '$text', '$hand_of_the_knyaz_pref'
end

if interaction_city = 5422:
	npc = 1
	$npc_id = 'hand_of_the_knyaz'
	$place = 'palace'
	$return_lock = 'shop_general'
	$interaction_type = 'sell_slave_complex'
end

if interaction_city = 543:
	interaction_city = 5431
	if slave_state = CONST_INT['slave_exist'] and npc_progress['pretor_kamael'] = 1 and slave['brand'] > 0: interaction_city = 5432
end

if interaction_city = 5431:
	npc = 1
	$npc_id = 'pretor_kamael'
	$place = 'palace'
	$return_lock = 'shop_general'
	npc_progress['pretor_kamael'] = 1
	active[$quest[5]] = 1
	$quest_description[5] = 'Praetor Kamael (Raven Tower, <<$rating[8]>>)
' + _
	'Few people notice, but in Rome there is a war, <<$master_name>>. And it will not stop. And in war the most important thing is to know the enemy’s plans in advance. I have a lot of spies, but they cannot be too well known.
' + _
	'Most people do not notice slaves at all. They make people’s lives easier and are thus more accepted. But the servants have eyes and ears. I need a slave, who will bring their knowledge to me.
' + _
	'She should be brilliantly chatty and gain people’s confidence. Maybe even seduce.
' + _
	'She should carefully compare rumors and gossip from the lips of the other slaves, and then write me a report. Such a task requires a high intelligence.
' + _
	'And of course she should have a solid nature, so as not to spill the beans herself. Else she might not live long.
' + _
	'Back'
	copyarr '$text', '$pretor_kamael_pref'
end

if interaction_city = 5432:
	npc = 1
	$npc_id = 'pretor_kamael'
	$place = 'palace'
	$return_lock = 'shop_general'
	$interaction_type = 'sell_slave_complex'
end

if interaction_city = 544:
	interaction_city = 5441
	if slave_state = CONST_INT['slave_exist'] and npc_progress['korvus_knyaz'] = 1 and slave['brand'] > 0: interaction_city = 5442
end

if interaction_city = 5441:
	npc = 1
	$npc_id = 'korvus_knyaz'
	$place = 'palace'
	$return_lock = 'shop_general'
	npc_progress['korvus_knyaz'] = 1
	active[$quest[5]] = 1
	$quest_description[5] = 'Prince of the Undead (Raven Tower, <<$rating[10]>>)
' + _
	'We are glad to see you, <<$master_name>>. We have heard a great deal about your exceptional abilities in preparing slaves. Here, in this room there are mortals that are marked by the best brands of the Guild. But not by yours. An unfortunate omission.
' + _
	'We are determined to let you fix it. Prepare for us the best girl so she could practice to prove the superiority of your school at our receptions.
' + _
	'Try to give her the best skills for the entertainment of our dear guests. Painting, playing music, dance and recitation of poems delight us most.
' + _
	'And, of course, she should be soft and refined to fit the style of our yard. We also expect that she will be a virgin. Innocent blood has a special, unique flavor.
' + _
	'All the rest I leave to your discretion, <<$master_name>>. I have no doubt that you will be able to surprise us with something special. Now go.
' + _
	'Back'
	copyarr '$text', '$korvus_knyaz_pref'
end

if interaction_city = 5442:
	npc = 1
	$npc_id = 'korvus_knyaz'
	$place = 'palace'
	$return_lock = 'shop_general'
	$interaction_type = 'sell_slave_complex'
end

!FOG BORDER
!Random events
if interaction_city = 610:
	$place = 'smugglers_den'
	$return_lock = 'shop_general'
	!$special_image[1] = 'characters\isabella_meeting.png'
	copyarr '$text', '$isabella_met'
	copyarr '$display_options', '$isabella_options'
	$special_action[4] = {
		$picture_type = 'pic_png'
		$bg_path = 'characters\isabella_meeting'
	}
end

if interaction_city = 6101:
	$place = 'smugglers_den'
	$return_lock = 'menu_form' & city_form = 0 &! city_form = 0 to bypass menu_form ESC intercept but still play door sound
	gs 'get_special_assistant'
	copyarr '$text', '$isabella_branded' &! bugfix: moved after get_special_assistant which indirectly reloads text databases and clears $text in the process - ImperatorAugustus
	$special_action[1] = { $place = 'uncle_bo' }
end

!starting the patrol
if interaction_city = 611:
	gs '$combat_variable_reset'
	$place = 'edge_patrol'
	$return_lock = 'city_menu_form'
	if sound_on = 1:
		close $city_sound
		$city_sound = 'content/snd/fog.wav'
		play $city_sound, music_volume, 'only, loop'
	end
	combatant = 0 &! set master as the combatant
	!the upper bound of this MUST equal the total number of encounters
	patrol_num = rand(1,14)
!Testing code - comment out the line above and uncomment the line below to have all fights in order - crushboss
! patrol_num += 1
!End of Testing Code - crushboss
	if patrol_num > 14: patrol_num = 1
	if patrol_num < 1: patrol_num = 1
	interaction_city = 61100 + patrol_num
	$враг[2] = ''
end

!retreat
if interaction_city = 6111:
	$place = 'edge_patrol'
	$return_lock = 'city_menu_form'
	$text[1] = '  You decide not to get involved, and step away from the border of the Fog to quieter places. Slow and steady wins the race.'
	dynamic $master_energy_drop
	city_form = 61
end

!young fiend with a girl
if interaction_city = 61101:
	$fight_return = 'city_menu_form'
	skip_to = 1
	$sp_text[1] = '  You see a young fiend has crept through the Fogs and caught a girl, which it is fertilizing with its tentacles, rumbling. Maybe she can still be saved.'
	количество_врагов = 1
	$враг[1] = 'исчадие_молодь'
	copyarr '$display_options', '$edge_of_mists'
	gt 'shop_general'
end

!mature fiend with a girl
if interaction_city = 61102:
	$fight_return = 'city_menu_form'
	skip_to = 2
	количество_врагов = 1
	$враг[1] = 'исчадие'
	$sp_text[2] = '  You stumble upon a large Fog fiend, that accidentally crawled farther form its border than usual. It’s many tentacles desperately beat a woman. The Fiend methodically pumps all her holes with loads of thick seed, trying to fertilize her.'
	copyarr '$display_options', '$edge_of_mists'
	gt 'shop_general'
end

!huge fiend with a girl
if interaction_city = 61103:
	$fight_return = 'city_menu_form'
	skip_to = 3
	$sp_text[3] = '  You notice a huge, hardened Fog Fiend, that wandered in its search of a victim near the border. The search was not in vain - you see the creature’s tentacles desperately beating a woman, and the beast will not let her go until it impregnates her. If only someone would come and rescue her.'
	количество_врагов = 1
	$враг[1] = 'чудовщиное_исчадие'
	copyarr '$display_options', '$edge_of_mists'
	gt 'shop_general'
end

!black medic with a girl
if interaction_city = 61104:
	$fight_return = 'city_menu_form'
	skip_to = 4
	$sp_text[4] = '  Patrolling the border, you stumble upon a group of mercenaries accompanying a black medic. They just caught some girl and the medic starts sorting through his sinister tools, preparing to remove her organs and probably sell them to the medical center of the technosphere.'
	количество_врагов = 4
	$враг[1] = 'черный_медик'
	$враг[2] = 'подручный'
	$враг[3] = 'подручный'
	$враг[4] = 'подручный'
	copyarr '$display_options', '$edge_of_mists'
	gt 'shop_general'
end

!taurus paladin with a girl
if interaction_city = 61105:
	$fight_return = 'city_menu_form'
	skip_to = 5
	$sp_text[5] = '  Walking along the border of the fog, you notice that you are approaching a knight. This is a paladin of Taurus House accompanied by two infantry. He leads a naked girl on a chain, apparently a slave who was caught during his patrol.'
	количество_врагов = 3
	$враг[1] = 'паладин'
	$враг[2] = 'пехотинец'
	$враг[3] = 'пехотинец'
	copyarr '$display_options', '$edge_of_mists'
	gt 'shop_general'
end

!beastmen with a girl
if interaction_city = 61106:
	$fight_return = 'city_menu_form'
	skip_to = 6
	$sp_text[6] = '  You hear screams and roars from afar, which indicates that nearby are the beastmen gang of Camira. They caught a woman and one of them rapes the victim, while the rest are building a fire to fry and eat the poor thing.'
	количество_врагов = 4
	$зверолюд[1] = 'козлорогий'
	$зверолюд[2] = 'свинорылый'
	$зверолюд[3] = 'жабован'
	$зверолюд[4] = 'крысолюд'
	$враг[1] = $зверолюд[rand(1,4)]
	$враг[2] = $зверолюд[rand(1,4)]
	$враг[3] = $зверолюд[rand(1,4)]
	$враг[4] = $зверолюд[rand(1,4)]
	killvar '$зверолюд'
	copyarr '$display_options', '$edge_of_mists'
	gt 'shop_general'
end

!werewolf with a girl
if interaction_city = 61107:
	$fight_return = 'city_menu_form'
	skip_to = 7
	$sp_text[7] = '  Like gray lightning something rushes past you and jumps on a girl who is trying to stay hidden, knocking her to the ground. It’s a werewolf, and he seems to believe that the prey belongs to him. Glancing at you with the corner of his eye, the werewolf tears off the victim’s clothes, ready to rape and then eat her alive.'
	количество_врагов = 1
	$враг[1] = 'вервольф'
	copyarr '$display_options', '$edge_of_mists'
	gt 'shop_general'
end

!vampire with a girl
if interaction_city = 61108:
	$fight_return = 'city_menu_form'
	skip_to = 8
	количество_врагов = 1
	$враг[1] = 'вампир'
	$sp_text[8] = '  Close to the border of Fogs you see two human figures. Dressed in black armor as dark as the night itself, a vampire enchanted a young girl with his eyes and is ready to drink her blood. Your approach has not gone unnoticed.'
	copyarr '$display_options', '$edge_of_mists'
	gt 'shop_general'
end

!Lich with a girl
if interaction_city = 61109:
	$fight_return = 'city_menu_form'
	skip_to = 9
	количество_врагов = 1
	$враг[1] = 'лич'
	$sp_text[9] = '  From a distance you notice a deathly blue flash of magic. It’s a lich necromancer who has emerged from the Fogs and spell bounded a young girl with paralysis. He seems to need her as a sacrifice for some dark magic ritual.'
	copyarr '$display_options', '$edge_of_mists'
	gt 'shop_general'
end

!scum with a girl
if interaction_city = 61110:
	$fight_return = 'city_menu_form'
	skip_to = 10
	$sp_text[10] = '  You hear raucous laughter and screams that lead you to a small gang of young men from the slums. The lads are having a bit of fun with a young girl they have caught. They have torn her clothing off and are taking turns raping her, while their friends are collecting wood for a fire. It seems like they don’t like raw meat.'
	$вт[1] = 'канибал'
	$вт[2] = 'калека'
	$вт[3] = 'нищеброд'
	$вт[4] = 'безумец'
	$вт[5] = 'изможденный'
	количество_врагов = 5
	$враг[1] = $вт[rand(1,5)]
	$враг[2] = $вт[rand(1,5)]
	$враг[3] = $вт[rand(1,5)]
	$враг[4] = $вт[rand(1,5)]
	$враг[5] = $вт[rand(1,5)]
	killvar '$вт'
	copyarr '$display_options', '$edge_of_mists'
	gt 'shop_general'
end

!ogre with a girl
if interaction_city = 61111:
	$fight_return = 'city_menu_form'
	skip_to = 11
	$sp_text[11] = '  Near the edge of the Fogs you hear a deep, gravelly laugh, followed by a scream. Approaching the source, you find a girl in the grips of a large ogre. His massive cock is pistoning in and out of her as he rapes her, making her belly bulge with each thrust. They haven’t noticed you yet.'
	количество_врагов = 1
	$враг[1] = 'ogre'
	copyarr '$display_options', '$edge_of_mists'
	gt 'shop_general'
end

!goblins with a girl
if interaction_city = 61112:
	$fight_return = 'city_menu_form'
	skip_to = 12
	$sp_text[12] = '  You come upon a pair of goblins double-penetrating a scared-looking girl near the edge of the Fogs. One of them has his dagger at her neck. She looks relatively unharmed at the moment, though they’ll probably just slit her throat when they’re done with her.'
	количество_врагов = 2
	$враг[1] = 'goblin'
	$враг[2] = 'goblin'
	copyarr '$display_options', '$edge_of_mists'
	gt 'shop_general'
end

!warg with a girl
if interaction_city = 61113:
	$fight_return = 'city_menu_form'
	skip_to = 13
	количество_врагов = 1
	$враг[1] = 'warg'
	$sp_text[13] = '  As you patrol the border of the Fogs, you hear a deep snarling sound accompanied by haggard sobs. Approaching quietly, you see a large wolf-like creature raping a wounded girl. He grips her neck in his teeth, and will surely kill and eat her once he cums. He smells you approaching and growls deeply.'
	copyarr '$display_options', '$edge_of_mists'
	gt 'shop_general'
end

!orc with a girl
if interaction_city = 61114:
	$fight_return = 'city_menu_form'
	skip_to = 14
	количество_врагов = 1
	$враг[1] = 'orc'
	$sp_text[14] = '  Stalking along the edge of the Fogs, you come across two figures - a large one striding powerfully, and a smaller one bound and limping along behind. Coming closer, you see it is an orcish warrior who appears to have captured a young woman. He sees you and brandishes his large axe.'
	copyarr '$display_options', '$edge_of_mists'
	gt 'shop_general'
end

if interaction_city = 61120:
	$place = 'edge_patrol'
	$return_lock = 'shop_general'
	$interaction_type = 'hunting_trophy'
	$attackers_txt = 's'
	if $враг[2] = '': $attackers_txt = ''
	$special_image[1] = '<<$stock["fullimage"]>>.png'
	$text[1] = '  Your foe dead at your feet, you turn to the terrified <<$stock_noun2[stock["age"]]>>. '
	if stock['beauty'] > 3:
		$text[1] += 'The <<$slave_noun3[stock["age"]]>> is absolutely <<$slave_beauty1_txt[stock["beauty"]]>>. She '
	else
		$text[1] += 'The <<$slave_beauty1_txt[stock["beauty"]]>> <<$slave_noun3[stock["age"]]>> '
	end
	$text[1] += 'cowers on the ground clutching her torn clothing to her <<$stock_boobs2_txt[stock["boobs"]]>> as if the shredded cloth can protect her <<$stock_body_txt[stock["fat"]]>> body.'
	if no_loli ! 1 and is_perv > 1 and stock['age'] = CONST_INT['loli_age'] and stock['beauty'] > 2:
		if is_perv = 3 and loli_magic < 2:
			$text[1] += '

  As you gaze upon the<<$little_txt>> girl before you, you feel a sudden tightness in your breeches. Is it some sort of Eternal Rome magic?'
			is_perv = 2
			loli_magic += 1
			master_perv_rate += 7
			if master_excitement_rate < 16: master_excitement_rate = 16 & master_excitement = 1
			master_mood_rate += 16
		elseif is_perv = 2 and loli_magic = 2 and assistant_state > CONST_INT['no_slave'] and assistant['age'] = CONST_INT['loli_age'] and assistant['beauty'] > 2:
			$text[1] += '

  Just imagining what you can do with this<<$little_txt>> girl and your adorable assistant has you ignited!'
			is_perv = 1
			master_perv_rate += 14
			master_libido_rate = max(master_libido_rate, master_libido_rate_cap[1])
			if master_excitement_rate < 32: master_excitement_rate = 32 & master_excitement = 2
			master_mood_rate += 32
		end
	end
	hunting_prize = 1
	copyarr '$display_options', '$hunting_prize_options'
end

if interaction_city = 61121:
	$place = 'edge_patrol'
	$return_lock = 'shop_general'
	$interaction_type = 'hunting_trophy'
	$play_sound[1] = $fuck_sound[stock['age']]
	$text[1] = '  When you rescued her from her attacker<<$attackers_txt>> she hoped she was safe. You start undoing the codpiece of your armour and that hope is crushed. Having seen what you can do in battle, she gives up. She lets the rags fall from her body, sobbing as you roughly pin her to the ground<<$stock_virgin_txt[stock["virginity"]]>> Welcome to the Eternal Rome, baby.
'
	$text[2] = '  Her pussy is tight and dry, completely unprepared so this really hurts her. She begs you to stop, but the joy of battle has stoked your lust and you are beyond sympathy. You gore her, savagely stabbing her with your cock with the same ferocity that you killed just minutes before!'
	$text[3] = $prize_rape_description3
	$picture_type = 'pic_png'
	$bg_path = func('display_pic', 'stock', 'sex', 'girls/sex_scenes/')
	if stock['virginity'] < 2: $bg_path = func('display_pic', 'stock', 'defloration', 'girls/sex_scenes/')
	! above line was incorrectly checking slave virginity instead of stock - ImperatorAugustus
	stock['fear'] += 1
	dynamic $replace($dyn_rape_effects, 'dyn'+'slave', 'stock') &! apply psychological impacts
	ejaculation_intensity = master_excitement
	dynamic $vaginally_penetrated, 'stock'
	master_domination_rate += 12 - (master_domination * 2)
	master_penetration_rate += (skill_adv_mul * 3)
	if is_kid = 1: master_domination_rate += stock['boobs']
	if is_perv ! 0 and stock['age'] = CONST_INT['loli_age']:
		master_perv_rate += 7
		master_domination_rate += max(0, 2 - stock['boobs'])
	end
	stock['energy'] -= 1
	stock['calories'] -= 1 & stock_rate['stamina'] += 1
	dynamic $master_energy_drop
	master_hygiene_rate += 20
	stock_rate['hygiene'] += 20
	hunting_prize = 0 &! lust satisfied flag for following options menu
	copyarr '$display_options', '$hunting_prize_options'
end

if interaction_city = 61131:
	gs 'stock_to_slave_nogt' &! this option is only available if there is no current slave, so we can safely do this
	hunting_prize = 1
	$return_lock = 'menu_form' & city_form = 0 &! city_form = 0 to bypass menu_form ESC intercept but still play door sound
	interaction = 6007 &! try to put slave into barn as a pig (can be resisted)
	gt 'interaction'
end

if interaction_city = 61132:
	city_form = 61
	$return_lock = 'city_menu_form'
	$place = 'edge_patrol'
	$text[1] = '  You decide to take your prize with you. She is your slave now, to be branded, sold, or trained as you see fit.'
	$special_image[1] = '<<$stock["fullimage"]>>.png'
	gs 'stock_to_slave_nogt' &! this option is only available if there is no current slave, so we can safely do this
end

if interaction_city = 61133:
	dynamic $swap_slave_instances, 'slave', 'prisoner' &! temporarily move current slave to empty prison (this option is only available if the prison is empty)
	gs 'stock_to_slave_nogt'
	hunting_prize = 1
	gs 'slave_to_cage' &! swap new slave into prison using gs instead of the swap function because it does things conditioned on hunting_prize = 1
	is_home = 1 & gt 'menu_form' &! return home
end

if interaction_city = 61134:
	npc = 1
	$npc_id = 'butcher'
	if nsfw = 1: not_safe = 1
	$place = 'slaughter'
	$play_sound[1] = $slaughter_sound
	$special_image[1] = 'scene\slaughter_work2.png'
	$text[1] = '  The butcher ruthlessly takes the <<$stock_noun2[stock["age"]]>> by the hair, pulling her head back to slice her throat wide open with a knife. Choking on her own blood, she twitches in his hands, but her life quickly fades. The butcher hangs her carcass on a hook to bleed, and you receive your sparks.'
	$special_action[1] = {
		$return_lock = 'shop_general'
		copyarr '$display_options', '$gastronom_options'
		sp_txt = 4 &! butchery
	}
	dynamic $replace($dyn_meat_evaluation, 'dyn'+'slave', 'stock')
	sparks += meat_price
	dynamic $clear_slave_instance, 'stock'
end

if interaction_city = 61135:
	npc = 1
	$npc_id = 'butcher'
	if nsfw = 1: not_safe = 1
	$place = 'slaughter'
	$play_sound[1] = $slaughter_sound
	$text[1] = '  The butcher ruthlessly takes the <<$stock_noun2[stock["age"]]>> by the hair, pulling her head back to slice her throat wide open with a knife. Choking on her own blood, she twitches in his hands, but her life quickly fades.'
	$text[2] = '  After bleeding the carcass from a hook for a while, the butcher takes a special curved knife and skins the body. Then, he chops the carcass into pieces with a huge cleaver. The best tenderloin is cut into portions, and the more fatty meat is minced through a large grinder.'
	$text[3] = '  After about two hours you get your slave back, neatly packed in sealed plastic bags.
 Content of the bags:
'
	$special_action[3] = {
		$return_lock = 'shop_general'
		copyarr '$display_options', '$gastronom_options'
		sp_txt = 4 &! butchery
	}
	sparks -= 5
	dynamic $replace($dyn_meat_evaluation, 'dyn'+'slave', 'stock')
	if virgin_meat_gain > 0: $text[3] += 'Delicate virgin meat: <<virgin_meat_gain>> portions.
'
	if meat_gain > 0: $text[3] += 'Best tenderloin: <<meat_gain>> portions.
'
	if mince_gain > 0: $text[3] += 'Greasy mince: <<mince_gain>> portions. '
	decade_mince += mince_gain
	decade_meat += meat_gain
	decade_virgin += virgin_meat_gain

	$special_image[1] = 'scene\slaughter_work_start'
	g = rand(1, picMax['slaughter_work_start'])
	if g > 1: $special_image[1] += '_' + $str(g)
	$special_image[1] += ".png"

	$special_image[2] = 'scene\slaughter_work_end'
	g = rand(1, picMax['slaughter_work_end'])
	if g > 1: $special_image[2] += '_' + $str(g)
	$special_image[2] += ".png"

	$special_image[3] = 'scene\slaughter_result'
	g = rand(1, picMax['slaughter_result'])
	if g > 1: $special_image[3] += '_' + $str(g)
	$special_image[3] += ".png"

	dynamic $clear_slave_instance, 'stock'
	dynamic $get_meat
end

if interaction_city = 61136:
	$place = 'stasis_bank'
	if nsfw = 1: not_safe = 1
	if sound_on = 1: play $small_money_sound, sound_volume
	cryo_cell_selected = prize_cryo_nr
	if slave_state ! CONST_INT['no_slave']: gs 'slave_to_iced', prize_cryo_nr &! if we already have a slave, store it temporarily
	gs 'stock_to_slave'
	gs 'slave_to_iced', prize_cryo_nr &! store the prize and retrieve the slave we already had (if any)
	copyarr '$display_options', '$stasis_options'
	sp_txt = 2
	gt 'shop_general'
end

!SLUMS
if interaction_city = 63:
	if nsfw = 1: not_safe = 1
	$place = 'moneylender'
	$return_lock = 'shop_general'
	$sp_text[1] = ''
	copyarr '$display_options', '$moneylender_options'
	gt 'shop_general'
end

if interaction_city = 631:
	npc = 1
	$npc_id = 'moneylender'
	if nsfw = 1: not_safe = 1
	$place = 'moneylender'
	$return_lock = 'shop_general'
	copyarr '$text', '$moneylender_pref'
end

if interaction_city = 632:
	npc = 1
	$npc_id = 'moneylender'
	if nsfw = 1: not_safe = 1
	$place = 'moneylender'
	$return_lock = 'shop_general'
	if no_slave_count['moneylender'] < 1:
		gt 'slave_sell'
	else
		interaction_city = 633
	end
end

if interaction_city = 633:
	npc = 1
	$npc_id = 'moneylender'
	if nsfw = 1: not_safe = 1
	$place = 'moneylender'
	$return_lock = 'shop_general'
	$text[1] = '  [MONEYLENDER]
- I have enough good cocksuckers for now. Come back when these start boring me.'
end

if interaction_city = 6321:
	$interaction_type = 'moneylender'
	loan = 500
	debt = 600
	debt_count = 30
end

if interaction_city = 6322:
	$interaction_type = 'moneylender'
	loan = 1000
	debt = 1250
	debt_count = 60
end

if interaction_city = 6323:
	$interaction_type = 'moneylender'
	loan = 2000
	debt = 2500
	debt_count = 90
end

if interaction_city = 6324:
	$interaction_type = 'moneylender'
	loan = 5000
	debt = 7000
	debt_count = 120
end

if interaction_city = 6331:
	npc = 1
	$npc_id = 'moneylender'
	if nsfw = 1: not_safe = 1
	$place = 'moneylender'
	$return_lock = 'shop_general'
	if debt = 600 and debt_history <= 0: debt_history = 1
	if debt = 1250 and debt_history < 2: debt_history = 2
	if debt = 2500: debt_history = 3
	sparks -= debt
	debt = 0
	debt_count = 0
	$text[1] = '  [MONEYLENDER]
- Good, you brought my sparks <<$master_name>>! Excellent, excellent. If you ever need more, you can contact me. Maybe I’ll even give you more money and time to pay.'
end

!base camp
if interaction_city = 612:
	npc = 1
	$npc_id = 'sergant'
	$place = 'warcamp'
	$return_lock = 'shop_general'
	copyarr '$display_options', '$warcamp_options'
	$text[1] = '  [SERGEANT]
- Civilians do not belong here, you had better go back to the protected area. But do not even expect protection and an escort to the city, we are short on forces.'
end

if interaction_city = 6121:
	npc = 1
	$npc_id = 'sergant'
	$place = 'warcamp'
	$return_lock = 'shop_general'
	if no_slave_count['sergant'] < 1:
		copyarr '$text', '$sergant_pref'
	else
		interaction_city = 6123
	end
end

if interaction_city = 6122:
	npc = 1
	$npc_id = 'sergant'
	$place = 'warcamp'
	$return_lock = 'shop_general'
	if no_slave_count['sergant'] < 1:
		$interaction_type = 'sell_slave_simple'
		no_charm_check = 1
		fixed_brand_rise = 1
		no_slave_count['sergant'] += count_size['sergant'] + rand(0,10)
	else
		interaction_city = 6123
	end
end

if interaction_city = 6123:
	npc = 1
	$npc_id = 'sergant'
	$place = 'warcamp'
	$return_lock = 'shop_general'
	$text[1] = '  [SERGEANT]
- We have enough witchdoctors for now.'
end

!smuggler den
if interaction_city = 62:
	npc = 1
	$npc_id = 'bararaika'
	$place = 'smugglers_den'
	$return_lock = 'shop_general'
	copyarr '$display_options', '$smuggler_options'
	$text[1] = '  [BALALAIKA]
- Hello there. Looking for something special? Whatever you want in the world, I’ll get that for you, baby, do not hesitate. It’s just a matter of price.'
end

if interaction_city = 621:
	npc = 1
	$npc_id = 'bararaika'
	$place = 'smugglers_den'
	$return_lock = 'shop_general'
	copyarr '$text', '$smuggler_info'
end

if interaction_city = 6221:
	$special_age = 'milf'
	interaction_city = 6229
end

if interaction_city = 6222:
	$special_age = 'young'
	interaction_city = 6229
end

if interaction_city = 6223:
	$special_age = 'loli'
	interaction_city = 6229
end

!Added a chance to get caught with severe penalties from the Slaver Guild - crushboss
if interaction_city = 6229:
	npc = 1
	$npc_id = 'bararaika'
	$place = 'smugglers_den'
	$return_lock = 'shop_general'
	gs 'generate_clone'
	gs 'stock_to_slave_nogt'
	sparks -= 2000
	if brand_reputation > 2 or guild_reputation > 2:
		npc = 1
		$npc_id = 'master_skups'
		brand_rate -= 10
		guild_reputation_rate -= 10
		fine = max(500, sparks/3) &! minimum moneylender loan is 600, so as long as the slaver is not in debt, survival should be possible - ImperatorAugustus
		sparks -= fine
		$text[1] = '  [MASTER SKUPS]
- You didn’t think we kept track of our guild VIPs did you? That is unfortunate! I didn’t think a well respected member of the guild would be so foolish as to take shortcuts. Here is a hefty fine of <<fine>> sparks! It will take some time before you regain our trust <<$master_name>>!'
		$return_lock = 'guild'
		dynamic $clear_slave_instance, 'stock'
		house_mess_rate += 5
		master_hygiene_rate += 20
		master_excitement_rate = 0
		master_excitement = 0
		master_moodlet['neg_wealth'] = 3
		dynamic $master_energy_drop
		dynamic $master_energy_drop
		if assistant_state = CONST_INT['slave_exist']:
			assistant_rate['hygiene'] += 20
			dynamic $assistant_energy_drop
			dynamic $assistant_energy_drop
		end
	else
		brand_rate -= 5
		guild_reputation_rate -= 5
		$text[1] = '  [BALALAIKA]
- You’re lucky kid. I just now got this one right here. Gimme sparks and take away the girl.'
	end
end

if interaction_city = 6230:
	npc = 1
	$npc_id = 'bararaika'
	$place = 'smugglers_den'
	$return_lock = 'shop_general'
	$text[1] = '  [BALALAIKA]
- Traveling through the Fog means that many of our haulers are assaulted by fiends. The girls that aren’t worth curing, we freeze them until we find a buyer for the fiend inside them. The price is 100 sparks. Would you be interested in buying one?'
	$yes = {
		interaction_city = 6231
		gt 'interaction_city'
	}
	$no = {
		gt 'shop_general'
	}
	gt 'choice_screen'
end

if interaction_city = 6231:
	npc = 1
	$npc_id = 'bararaika'
	$place = 'smugglers_den'
	$return_lock = 'shop_general'
	$text[1] = '  Balalaika takes your sparks and leaves the room, and before long you hear screaming and a series of wet, fleshy sounds from nearby. After they die down, Balalaika returns and hands you a large box that shakes as something within thrashes around.'
	sparks -= 100
	if sound_on = 1 and nsfw_sound = 1: play 'content\snd\scream10.wav', sound_volume
	pet_tentacle = 1
	tentacle_size = 0
	tentacle_hp = 0
end

if interaction_city = 6232:
	npc = 1
	$npc_id = 'bararaika'
	$place = 'smugglers_den'
	$return_lock = 'shop_general'

	special_stock = 2575

	!Helen stats customization
	seed_beauty[special_stock] = rand(2,5)
	seed_exotic[special_stock] = rand(0,1)
	seed_intellect[special_stock] = rand(4,5)
	seed_masochism[special_stock] = rand(0,2)
	seed_nymphomania[special_stock] = rand(0,1)

	gs 'generate_stock'
	gs 'stock_to_slave_nogt'

	slave['brand'] = 0
	sparks -= 3000
	helen = 1
	$text[1] = '  [BALALAIKA]
- You’re lucky kid. I just now have this milf right here. Gimme sparks and take her away.'
end

if interaction_city = 6233:
	npc = 1
	$npc_id = 'bararaika'
	$place = 'smugglers_den'
	$return_lock = 'shop_general'

	special_stock = 2574

	!Yasmin stats customization
	seed_beauty[special_stock] = rand(3,5)
	seed_exotic[special_stock] = rand(2,5)
	seed_blood_attitude[special_stock] = rand(1,2)
	seed_homosexualism[special_stock] = rand(1,2)

	gs 'generate_stock'
	gs 'stock_to_slave_nogt'

	slave['grace'] = rand(0,1)
	slave['brand'] = 0
	sparks -= 3000
	yasmin = 1
	$text[1] = '  [BALALAIKA]
- You’re lucky kid. I just now have this amazon woman right here. Gimme sparks and take her away.'
end

if interaction_city = 6234:
	npc = 1
	$npc_id = 'bararaika'
	$place = 'smugglers_den'
	$return_lock = 'shop_general'

	special_stock = 2573
	gs 'generate_stock'
	gs 'stock_to_slave_nogt'

	slave['grace'] = rand(0,1)
	slave['brand'] = 0
	sparks -= 3000
	whilhelmine = 1
	$text[1] = '  [BALALAIKA]
- You’re lucky kid, I just now have this really young princess right here. Gimme sparks and take her away.'
end

!Post Patrician Quest - crushboss
if interaction_city = 6235:
	npc = 1
	$npc_id = 'bararaika'
	$place = 'smugglers_den'
	$return_lock = 'shop_general'

	special_stock = 2572
	gs 'generate_stock'
	gs 'stock_to_slave_nogt'
	if no_loli ! 1: slave['age'] = CONST_INT['loli_age']

	$slave['wpn'] = 'кинжал'
	$slave['armor'] = 'кожан'
	$slave['left_wpn'] = 'стилет'
	$slave['right_wpn'] = 'кинжал'
	$slave['back_wpn'] = ''
	$slave['cloth'] = 'bellydance'
	slave['ear_piercing'] = 1
	slave['manicure'] = 5
	slave['perfume'] = 1
	slave['hygiene'] = 0
	slave_rate['hygiene'] = 0
	slave['epilation'] = 12
	slave['hairstyle'] = 7
	slave['pos_gentle'] = 2
	slave['pos_slave_clean'] = 2
	$slave['earrings'] = 'incrusted_earrings'
	$slave['gloves'] = 'laced_gloves'
	$slave['boots'] = 'pointes'
	$slave['ring_left'] = 'incrusted_ring'
	$slave['ring_right'] = 'incrusted_ring'
	if spawn_semen < 120:
		spawn_semen = 120
	else
		spawn_semen += 60
	end
	slave['metabolism'] = 3

	slave['grace'] = rand(0,1)
	slave['brand'] = 0
	sparks -= 10000
	felicity = 1
	$text[1] = '  [BALALAIKA]
- We’ve been expecting you, <<$master_name>>. I have this spoiled brat right here. Gimme sparks and take her away.'
end

!misc
if interaction_city = 900:
	$return_lock = 'slave_to_train'
	npc = 1
	$npc_id = $contractor_id[txt]
	npc_reveal[$npc_id] = 1
	dynamic $npc_contract_talk[$npc_id]
end

if interaction_city = 911:
	if buyer_from_house = 1:
		$interaction_type = 'slave_sold_house'
		buyer_from_house = 0
	else
		$interaction_type = 'slave_sold'
	end
	sell_price = common_price[demand_rating[$npc_id]]
	a = 2 + brand_reputation
	b = (day * 97) mod (a + 1)
	c = 10 + ((day * 87) mod 21)
	e = (day * 83) mod ((charm/2) + 1)
	brand_reputation_plus = brand_reputation + 1
	if b = 0:
		d = c*brand_reputation_plus*demand_rating[$npc_id]
		sell_price -= d
		$text[1] = '  Unfortunately, the trade went from bad to worse, you blurted out a couple of stupid things and eventually were forced to agree to a price even lower than the average: <<sell_price>> sparks. Well, it’s still a profit...'
	elseif b = 1:
		$text[1] = '  You negotiated, but to no avail. As a result, you had to compromise and agree to a fair average price: <<sell_price>> sparks. It could be worse.'
	elseif b = 2:
		d = c*brand_reputation_plus*demand_rating[$npc_id]
		sell_price += d
		if sell_price > npc_money[$npc_id]: sell_price = npc_money[$npc_id]
		$text[1] = '  You managed to convince the customer that your product is worth a small overpayment. As a result, the deal was worth: <<sell_price>> sparks. Not bad!'
	elseif b > 2:
		d = c*brand_reputation_plus*demand_rating[$npc_id]
		sell_price += d*2
		if sell_price > npc_money[$npc_id]: sell_price = npc_money[$npc_id]
		$text[1] = '  Thanks to the popularity of your brand, you managed to raise the price considerably. As a result, the deal was worth: <<sell_price>> sparks. Excellent!'
	end
	if e > b and b > 3:
		!d = c*brand_reputation_plus*demand_rating[$npc_id]
		!if sell_price > npc_money[$npc_id]: sell_price = npc_money[$npc_id]
		d = c*(rating+charm/2)*demand_rating[$npc_id]
		sell_price += d + virgin_price
		$text[1] = '  Thanks to the charm of your slave, you manage to raise the price considerably. As a result, the deal was worth: <<sell_price>> sparks. Excellent!'
	end
end

if interaction_city = 912:
	if buyer_from_house = 1:
		$interaction_type = 'slave_sold_house'
		buyer_from_house = 0
	else
		$interaction_type = 'slave_sold'
	end
	sell_price = common_price[demand_rating[$npc_id]] + virgin_price
	$text[1] = '  You decided not to sink to market trade and agreed on a fair average price: <<sell_price>> sparks.'
end

if interaction_city = 913:
	if buyer_from_house = 1:
		$interaction_type = 'slave_sold_house'
		buyer_from_house = 0
		have_discounted = 1
	else
		$interaction_type = 'slave_sold'
	end
	sell_price = common_price[demand_rating[$npc_id]]
	!sell_price -= 50*demand_rating[$npc_id]
	if demand_rating[$npc_id] = 1: sell_discount = 125
	if demand_rating[$npc_id] = 2: sell_discount = 250
	if demand_rating[$npc_id] = 3: sell_discount = 400
	if demand_rating[$npc_id] = 4: sell_discount = 600
	if demand_rating[$npc_id] = 5: sell_discount = 900
	if demand_rating[$npc_id] = 6: sell_discount = 1100
	if demand_rating[$npc_id] = 7: sell_discount = 1500
	if demand_rating[$npc_id] = 8: sell_discount = 1800
	if demand_rating[$npc_id] = 9: sell_discount = 2100
	if demand_rating[$npc_id] = 10: sell_discount = 2500
	sell_price -= sell_discount
	$text[1] = '  To win the favor of the client, you lowered the price to: <<sell_price>> sparks. Not as profitable as you would like, but a good relationship with customers is more important than short-term profits.'
end

if interaction_city = 92:
	npc = 1
	$npc_id = 'mistress_angelika'
	$place = 'guild_hall'
	$return_lock = 'guild'
	demand_rating['mistress_angelika'] = rating
	if rating = 0: demand_rating['mistress_angelika'] = 1
	!TODO: test this interaction
	if npc_reveal['mistress_angelika'] < 1:
		npc_reveal['mistress_angelika'] = 1
		$special_action[4] = {
			npc = 0
			gt 'slave_sell'
		}
		copyarr '$text', '$auction_intro'
	else
		$text[1] = $auction_intro[3]
		$special_action[2] = {
			npc = 0
			gt 'slave_sell'
		}
	end
end

!Auction of Branded Slaves
if interaction_city = 93:
	if $place ! 'guild_hall': dynamic $transport_energy_drop
	$place = 'guild_hall'
	$return_lock = 'guild'
	$text[1] = '  Are you sure you want to put <<$slave_name>> up for auction and sell her? There is no turning back from this decision.'
	$yes = {
		interaction_city = 930
		gt 'interaction_city'
	}
	$no = {
		gt 'guild'
	}
	gt 'choice_screen'
end

if interaction_city = 930:
	$place = 'guild_hall'
	$return_lock = '$guild_auction'
	$text[1] = '  You put <<$slave_name>> up for auction. At first, she, along with other slaves that are prepared for today’s sale, participate in a cocktail party, where they cater drinks and snacks, as guests discern and question her to make a preliminary opinion.'
end

if interaction_city = 931:
	$place = 'guild_hall'
	$return_lock = 'guild'
	copyarr '$text', '$auction_flow'
	if sound_on = 1: $play_sound[arrsize('$text')-1] = 'purse'
	gs '$slave_price'
	if guild_reputation_rate < rating: guild_reputation_rate += rating
	sparks += sparks_get
	if slave['ill'] > 0: sold_ill_slave = 1 &! trigger follow-up event
	if slave['parasite'] > 0: sold_parasite_slave = 1 &! trigger follow-up event
	dynamic $clear_slave_instance, 'slave'
end

if interaction_city = menu_subpurchaser:
	gs '$slave_price'
	$place = 'guild_hall'
	$return_lock = 'guild'
	npc = 1
	$npc_id = 'master_vong'
	$text[1] = '  [MASTER VONG]
- I take most of the riffraff that Mistress Angelika won’t accept. If you want to fulfill your guild contract though, you should go see her and turn in your prepared slave. Make sure she meets all the requirements first unless you prefer a scolding.'
	$text[2] = $speculator_text[rating]
	!if $slave_psy_status = 'broken': $text[2] = $replace($text[2], $str(auction_price[rating]), $str(auction_price[rating] - auction_price[rating]/5)) &! 20% less if mind-broken
	if rating > 0:
		$special_action[2] = { gt 'choice_screen' }
		$yes = {
			gs '$slave_price' &! make sure we are still using the correct rating
			if guild_reputation_rate < rating: guild_reputation_rate += rating
			sparks += auction_price[rating]
			!if $slave_psy_status = 'broken': sparks -= auction_price[rating]/5 &! pays 20% less if mind-broken
			if sound_on = 1: play $large_money_sound, sound_volume
			if slave['ill'] > 0: gave_guild_ill_slave = 1 &! trigger follow-up event
			if slave['parasite'] > 0: gave_guild_parasite_slave = 1 &! trigger follow-up event
			dynamic $clear_slave_instance, 'slave'
			master_moodlet['pos_deal'] = 3
			gt 'guild'
		}
		$no = {
			gt 'guild'
		}
	end
end

if interaction_city = 95:
	$place = 'guild_hall'
	$return_lock = 'guild'
	copyarr '$display_options', '$expert_options'
	gt 'shop_general'
end

if interaction_city = 951:
	$place = 'guild_hall'
	$return_lock = 'interaction_city' & interaction_city = 95
	npc = 1
	$npc_id = 'master_skups'
	copyarr '$text','$expert_explanation'
end

if interaction_city = 9511:
	$place = 'guild_hall'
	$return_lock = 'guild'
	expert_looks_for_slave = 1
	full_search_cost = search['cost'] * 70
	npc = 1
	$npc_id = 'master_skups'
	$text[1] = '  [MASTER SKUPS]
- It will cost you <<full_search_cost>> sparks, <<$master_name>>. Sparks in advance and mind you, even if you cancel the order, I do not do refunds.'
	$yes = {
		search['active'] = 1
		sparks -= full_search_cost
		gt 'guild'
	}
	$no = {
		killvar 'search'
		gt 'guild'
	}
	if full_search_cost > 0:
		gt 'choice_screen'
	else
		$text[1] = '  [MASTER SKUPS]
- Well, I imagine you can find SUCH a slave easily without me, <<$master_name>>. Go to Farid and buy what you want, but do not bother me with such foolishness.'
	end
end

if interaction_city = 952:
	$place = 'guild_hall'
	$return_lock = 'guild'
	npc = 1
	$npc_id = 'master_skups'
	$text[1] = '  [MASTER SKUPS]
- As you say, <<$master_name>>. I’ll stop searching, but do not count on a refund!'
	search['active'] = 0
	killvar 'search'
end

if interaction_city = 953:
	$place = 'guild_hall'
	$return_lock = 'guild'
	npc = 1
	$npc_id = 'master_skups'
	if slave_state = CONST_INT['no_slave']:
		$text[1] = '  [MASTER SKUPS]
- Here, <<$master_name>>. A slave just like you ordered - I guarantee! Take her and enjoy. I’m sure you’ll be able to perfectly prepare her. Good luck!'
		expert_give_slave = 1
	else
		$text[1] = '  [MASTER SKUPS]
- You do not have space for her yet? I know, free space is an eternal problem, but I just cannot keep her forever. Come when you can pick up this slave and try to do it quickly, please!'
	end
end

if interaction_city = 96:
	!$interaction_type = 'guild_gangbang'
	$place = 'guild_hall'
	$return_lock = 'guild'
	npc = 0
	if guild_reputation > 2 and master_excitement >= 0:
		if master_mood < 3: master_mood_rate += 10*(3-master_mood)
		$special_image[1] = 'scene/gangbang/guild_gangbang'
		g = rand(1, picMax['guild_gangbang'])
		if g > 1: $special_image[1] += '_' + $str(g)
		$special_image[1] += '.png'
		$text[1] = '  You have a good time fucking a girl for free. Of course, you will have to return the favor when your own slave needs group training.'
		ejaculation_intensity = master_excitement
		dynamic $master_ejaculate
		dynamic $master_energy_drop
		if rand(1,8) = 1: master['ill'] += 1
	elseif guild_reputation > 2 and master_excitement < 0:
		if master_mood < 0: master_mood_rate += 10
		$special_image[1] = 'scene/gangbang/guild_gangbang'
		g = rand(1, picMax['guild_gangbang'])
		if g > 1: $special_image[1] += '_' + $str(g)
		$special_image[1] += '.png'
		$text[1] = '  Unfortunately, while the mind may be willing, the flesh is not. Unable to join in properly, you watch the scene impotently from the sidelines. At least you can take notes on technique.'
		if bull_ring_on = 0: master_half_action += 1
	else
		$text[1] = $guildy[rand(0,arrsize("$guildy")-1)] + '
<<$no_ggb[rand(0,arrsize("$no_ggb")-1)]>>'
	end
	is_gangbang = -1
end

!Grab weapons to fight
if interaction_city = 901:
	$place = $memplace
	$return_lock = 'shop_general'
	nogoto = 1
	$sp_text[1] = '  Before you engage in battle, you have time to prepare and ready your weapons. You can attack with a single two-handed weapon (shoulder slot), a single one-handed weapon (any non-shoulder slot), or dual wield a primary weapon (right hand) and an off hand weapon (left hand). The first weapon you select will become your primary weapon. You can also switch weapons during combat.'
	$sp_text[2] = '  Your left hand is still free. You can try to fight with a weapon in each hand in order to have more options to attack. Special Combat Techniques (if the slaver learned any) are only available for the primary weapon.'
	gs '$weapon_assignments'
	copyarr '$display_options', '$get_weapon'
	gt 'shop_general'
end

if interaction_city = 902:
	$place = $memplace
	$return_lock = 'shop_general'
	skip_to = 10
	nogoto = 1
	$sp_text[10] = '  The attack occurs so suddenly that you do not have time to prepare and get a weapon. You’ll have to fight with your bare hands!'
	copyarr '$display_options', '$get_weapon'
	gt 'shop_general'
end

if interaction_city = 903:
	$place = 'bedroom'
	$return_lock = 'shop_general'
	nogoto = 1
	skip_to = 3
	$sp_text[3] = '  Fighting against a knife with your bare hands is too risky. Fortunately, you always hide a dagger under the pillow. Or you can grab a stool.'
	copyarr '$display_options', '$get_weapon'
	gt 'shop_general'
end

gt 'interaction_result_city'

--- interaction_city ---------------------------------

repo_name: Tcallas/game

license: unknown