code:
# #item_base
!ITEM DATABASE
![0]
$item_name[0] = '-' &! DO NOT MODIFY THIS
item_price[0] = 0
!item_size[0] = 0 &! CURRENTLY UNUSED
$item_description[0] = ''
$item_demo[0] = ''

$item_property[0] = {}
$item_property_off[0] = {}

!EXAMPLE OF AN ITEM DEFINITION
!['']
!$item_name[''] = ''
!item_price[''] = 0
!$item_description[''] = ''
!$item_demo[''] = 'scene\item\item_'
!
!$item_property[''] = {
	!dynslave_rate['nothing'] += 1
	!learn_bonus['skill'] += 1
	!example_item_is_worn = 1
!}
!
!$item_property_off[''] = {
	!example_item_is_worn = 0
!}

$recalc_equipment_bonuses = {
	!this function expects to be called with dynamic $replace($recalc_equipment_bonuses, 'dynslave', 'an actual slave variable')
	!currently used in $newloc via #static_base (for style, exotic and moodlet), next_day and $moodlets_account (for daily_bonus) and interaction (for learn_bonus)
	if dynslave_state > CONST_INT['no_slave']:
		! state check includes fainted

		dynslave['st_plus'] = 0 &! reset count from zero (items that confer a style bonus)
		dynslave['ex_plus'] = 0 &! reset count from zero (items that confer an exoticism bonus)
		dynslave['neg_clothes'] = 0 &! reset in case no longer wearing an item with this effect
		dynslave['pos_clothes'] = 0 &! reset in case no longer wearing an item with this effect
		dynslave['slave_collar'] = 0 &! reset in case no longer wearing an item with this effect
		dynslave['wig'] = 0 &! reset in case no longer wearing an item with this effect
		killvar 'learn_bonus'
		killvar 'daily_bonus'
		killvar 'worn_bonus'
		! use $replace to generalize the $item_property effects - ImperatorAugustus
		dynamic $replace($item_property[$dynslave['armor']], 'dyn'+'slave', 'dynslave')
		dynamic $replace($item_property[$dynslave['headband']], 'dyn'+'slave', 'dynslave')
		dynamic $replace($item_property[$dynslave['earrings']], 'dyn'+'slave', 'dynslave')
		dynamic $replace($item_property[$dynslave['tongue']], 'dyn'+'slave', 'dynslave')
		dynamic $replace($item_property[$dynslave['cloth']], 'dyn'+'slave', 'dynslave')
		dynamic $replace($item_property[$dynslave['collar']], 'dyn'+'slave', 'dynslave')
		dynamic $replace($item_property[$dynslave['nipplerings']], 'dyn'+'slave', 'dynslave')
		dynamic $replace($item_property[$dynslave['gloves']], 'dyn'+'slave', 'dynslave')
		dynamic $replace($item_property[$dynslave['ring_left']], 'dyn'+'slave', 'dynslave')
		dynamic $replace($item_property[$dynslave['ring_right']], 'dyn'+'slave', 'dynslave')
		dynamic $replace($item_property[$dynslave['navel']], 'dyn'+'slave', 'dynslave')
		dynamic $replace($item_property[$dynslave['clitring']], 'dyn'+'slave', 'dynslave')
		dynamic $replace($item_property[$dynslave['boots']], 'dyn'+'slave', 'dynslave')
		if dynslave_inventory['plaid'] > 0: dynamic $replace($item_property['plaid'], 'dyn'+'slave', 'dynslave')
		if dynslave_inventory['stuffed_toy'] > 0: dynamic $replace($item_property['stuffed_toy'], 'dyn'+'slave', 'dynslave')
		if dynslave_inventory['perfume'] > 0: dynamic $replace($item_property['perfume'], 'dyn'+'slave', 'dynslave')
		if dynslave_inventory['pony'] > 0: dynamic $replace($item_property['pony'], 'dyn'+'slave', 'dynslave')
		! neg_clothes is intended as a display-only moodlet, to indicate via "how do you feel?" that some item(s) worn by the slave have negative impact - ImperatorAugustus
		if dynslave['neg_clothes'] > 0: worn_bonus['mood'] += 1 &! reverse the -1 mood for a negative moodlet that is applied by $recalc_slave_mood in #static_base
		! items setting neg_clothes should apply negative worn_bonus['mood'] or worn_bonus['mood_rate'] adjustments of the appropriate magnitude
		! in contrast, pos_clothes applies +1 mood (not stacking from multiple items); however, it does not contribute to raising mood above Hopeful (capped in $recalc_slave_mood in #static_base)
		if dynslave['pos_clothes'] > 0 and (dynslave['neg_clothes'] > 0 or $dynslave['cloth'] = 'голая' or $dynslave['cloth'] = 'пусто'): dynslave['pos_clothes'] = -100 & worn_bonus['mood'] += 1
		! this suppresses contradictory moodlet text if pos_clothes is active at the same time as neg_clothes or when slave is naked, but still elevates mood
		! setting pos_clothes to -100 signals $recalc_slave_mood to skip the moodlet and also to apply a -1 adjustment if total mood exceeds Hopeful

	end
}

!TODO: replace price hardcode in the description to a variable
!replacement for item copypaste, by Lyazar
$ib_cycle = {
	$_ib_cycle_name = $args[0]
	$item_name[$_ib_cycle_name] = $args[1]
	item_price[$_ib_cycle_name] = args[2]
	$item_description[$_ib_cycle_name] = $args[3]
	$item_demo[$_ib_cycle_name] = $args[4]

	killvar '$_ib_cycle_name'
}

!example:

!$item_name['голая'] = 'Naked'
!item_price['голая'] = 0
!$item_description['голая'] = '   Your slave is completely naked.'
!$item_demo['голая'] = 'scene\'

! replaces to:

!dynamic $ib_cycle, 'голая', 'Naked', 0, '   Your slave is completely naked.', 'scene\'
!-----replacement for item copypaste, by Lyazar-----

!MASTER ITEMS

!['man_rugs']
dynamic $ib_cycle, 'man_rugs', 'Worn clothes', 5, '   Price: 5 sparks
   These clothes are worn out and out of fashion. They do not meet any of your goals. It would be better to get some new clothes.', 'scene\item\item_worn_clothes'
!item_size['man_rugs'] = 0
style_modifer['man_rugs'] = -1
$item_property['man_rugs'] = {
	master_moodlet['neg_worn_clothes'] = 100
}
$item_property_off['man_rugs'] = {
	master_moodlet['neg_worn_clothes'] = 0
}

!['comfy_robes']
dynamic $ib_cycle, 'comfy_robes', 'Housecoat', 25, '   Price: 25 sparks
   Comfortable and soft housecoat. Does not look very nice, but very convenient and comfortable to wear. Just what you need to relax!', 'scene\item\item_Housecoat'
!item_size['comfy_robes'] = 0
style_modifer['comfy_robes'] = -1
$item_property['comfy_robes'] = {
	master_moodlet['pos_master_cloth'] = 100
}
$item_property_off['comfy_robes'] = {
	master_moodlet['pos_master_cloth'] = 0
}

!['regal_suit']
dynamic $ib_cycle, 'regal_suit', 'Noble Regalia', 200, '   Price: 200 sparks
   This heavy clothing is richly decorated with precious inserts and decorative elements, making you look bigger and grander. Beautiful and impressive, of course, but very impractical.', 'scene\item\item_Noble_regalia'
!item_size['regal_suit'] = 0
style_modifer['regal_suit'] = 2
$item_property['regal_suit'] = {
	master_moodlet['neg_master_cloth'] = 100
}
$item_property_off['regal_suit'] = {
	master_moodlet['neg_master_cloth'] = 0
}

!['fancy_suit']
dynamic $ib_cycle, 'fancy_suit', 'Fashionable Attire', 100, '   Price: 100 sparks
   Keeping track of Eternal Rome fashion is almost impossible, but many are trying. In any case, this outfit is a perfect compromise between luxury and convenience.', 'scene\item\item_Fashionable_attire'
!item_size['fancy_suit'] = 0
style_modifer['fancy_suit'] = 1
$item_property['fancy_suit'] = {}
$item_property_off['fancy_suit'] = {}

!['formal_suit']
dynamic $ib_cycle, 'Formal_suit', 'Formal Suit', 40, '   Price: 40 sparks
   Very formal clothing. Looks old-fashioned and not very charming, but at least you will be taken seriously. It is perfect for the impresario or for an entertainer.', 'scene\item\item_Formal_suit'
!item_size['formal_suit'] = 0
style_modifer['formal_suit'] = 0
$item_property['formal_suit'] = {
	boost_up['master_artdirector'] = 1
}
$item_property_off['formal_suit'] = {
	boost_up['master_artdirector'] = 0
}

!['aketon']
dynamic $ib_cycle, 'aketon', 'Aketon', 40, '   Price: 40 sparks
   Quilted armor jacket, light enough to be used as everyday wear. Great outfit for a warrior.', 'scene\item\item_Aketon'
!item_size['aketon'] = 0
style_modifer['aketon'] = 0
$item_property['aketon'] = {
	boost_up['master_fighter'] = 1
}
$item_property_off['aketon'] = {
	boost_up['master_fighter'] = 0
}

!['livery']
dynamic $ib_cycle, 'livery', 'Livery', 40, '   Price: 40 sparks
   Ornate livery of a senior butler. In this uniform you immediately feel like the sole ruler over your household.', 'scene\item\item_Livery'
!item_size['livery'] = 0
style_modifer['livery'] = 0
$item_property['livery'] = {
	boost_up['master_butler'] = 1
}
$item_property_off['livery'] = {
	boost_up['master_butler'] = 0
}

!['medic_robes']
dynamic $ib_cycle, 'medic_robes', 'Medical Gown', 40, '   Price: 40 sparks
   Very comfortable and practical clothing for the healthcare worker. Immediately makes you a qualified doctor - even if only due to self-hypnosis.', 'scene\item\item_Medical_gown'
!item_size['medic_robes'] = 0
style_modifer['medic_robes'] = 0
$item_property['medic_robes'] = {
	boost_up['master_medic'] = 1
}
$item_property_off['medic_robes'] = {
	boost_up['master_medic'] = 0
}

!['wizard_robes']
dynamic $ib_cycle, 'wizard_robes', 'Wizard Robes', 40, '   Price: 40 sparks
   This ritual costume is covered with magical runes. Increases your magical power!', 'scene\item\item_Wizard robes'
!item_size['wizard_robes'] = 0
style_modifer['wizard_robes'] = 0
$item_property['wizard_robes'] = {
	boost_up['master_mage'] = 1
}
$item_property_off['wizard_robes'] = {
	boost_up['master_mage'] = 0
}

!Raven crown ['raven_crown']
dynamic $ib_cycle, 'raven_crown', 'Raven Crown', 0, '   This artifact, called the Raven Crown by its creator, Master Valios, grants permanent auspex and greater insight when looking at others, and strengthens the aura.', ''

$item_property['raven_crown'] = {
	auspex = 1
	item_supermacy_bonus += 1
	raven_crown_on = 1
}
$item_property_off['raven_crown'] = {
	auspex = 0
	item_supermacy_bonus -= 1
	raven_crown_on = 0
}

!Chimaera’s gem ['chimera_earring']
dynamic $ib_cycle, 'chimera_earring', 'Chimaera’s Gem', 0, '   This earring, given to me by the strange hissing creature Garsid, increases libido, strengthens the aura and heals wounds rapidly.', ''

$item_property['chimera_earring'] = {
	chimera_gem_on = 1
	item_supermacy_bonus += 2
}
$item_property_off['chimera_earring'] = {
	chimera_gem_on = 0
	item_supermacy_bonus -= 2
}

!Snake talisman ['snake_amulet']
dynamic $ib_cycle, 'snake_amulet', 'Snake Talisman', 0, '   This amulet, given to me by its maker, Vujin the Wise of House Serpis, increases concentration, personality, resistance to pain and fear, and strengthens the aura of the wearer, while also blocking scanning.', ''

$item_property['snake_amulet'] = {
	snake_amulet_on = 1
	item_supermacy_bonus += 1
}
$item_property_off['snake_amulet'] = {
	snake_amulet_on = 0
	item_supermacy_bonus -= 1
}

!Bull ring ['bull_ring']
dynamic $ib_cycle, 'bull_ring', 'Bull Ring', 0, '   This normal-looking ring, given to me by Sir Aramus of House Taurus, increases stamina and hardiness in battle and strengthens the aura of the wearer.', ''

$item_property['bull_ring'] = {
	bull_ring_on = 1
	item_supermacy_bonus += 1
}
$item_property_off['bull_ring'] = {
	bull_ring_on = 0
	item_supermacy_bonus -= 1
}

!OTHER ITEMS
!['пусто'] EMPTY
dynamic $ib_cycle, 'пусто', '-', 0, '', ''

$item_property['пусто'] = {
}

!ITEMS WORN ON BODY

!['голая'] NAKED
dynamic $ib_cycle, 'голая', 'Naked', 0, '   Your slave is completely naked. This is helpful for some types of training, and it will remind her of her place, but she might be happier if she had something to wear.', ''

$item_property['голая'] = {
	if rebell[$dynslave_psy_status] > 0: worn_bonus['mood_rate'] -= dynslave['pride']*3 &! proud slaves dislike being put on display - ImperatorAugustus
	if dynslave['exhibitionism'] < 0 and $dynslave_psy_status ! 'horny': worn_bonus['mood'] -= 1 & dynslave['exhibitionism_revealed'] = max(1, dynslave['exhibitionism_revealed']) &! shy, insufficiently-aroused slaves strongly dislike being naked - stacks with the neg_naked moodlet applied in #static_base that can be suppressed with exhibitionism training (shy trait itself also can be removed with enough training) - ImperatorAugustus
	learn_bonus['sex'] += 1
	learn_bonus['stamina'] += 1
	daily_bonus['instinct'] += 1
}

!Фартук ['apron']
dynamic $ib_cycle, 'common_apron', 'Frilly Apron', 5, '   Price: 5 sparks
   Aprons are most useful in the kitchen. This apron is worn without any other clothing, leaving plenty of opportunities to enjoy the sight of your woman working in the kitchen.', 'scene\item\item_apron1'

$item_property['common_apron'] = {
	if rebell[$dynslave_psy_status] > 0: dynslave['neg_clothes'] = 100 & worn_bonus['mood_rate'] -= dynslave['pride']*3 &! proud slaves dislike being put on display - ImperatorAugustus
	if dynslave['exhibitionism'] < 0 and $dynslave_psy_status ! 'horny': dynslave['neg_clothes'] = 100 & worn_bonus['mood'] -= 1 & dynslave['exhibitionism_revealed'] = max(1, dynslave['exhibitionism_revealed']) &! body-shy, insufficiently-aroused slaves dislike revealing outfits - ImperatorAugustus
	if dynslave['cook_affinity'] > 0: dynslave['pos_clothes'] = 100 &! affinity finds the outfit comfortable, but wearing it does not reveal the trait - ImperatorAugustus
	learn_bonus['cook'] += 2
}

!Платье горничной ['maid_dress']
dynamic $ib_cycle, 'maid_dress', 'Maid Outfit', 5, '   Price: 5 sparks
   Classic French maid uniform. Many parts of the uniform have been left out in order to preserve fabric. Most customers actually like this design.', 'scene\item\item_maido'

$item_property['maid_dress'] = {
	if rebell[$dynslave_psy_status] > 0: dynslave['neg_clothes'] = 100 & worn_bonus['mood_rate'] -= dynslave['pride']*3 &! proud slaves dislike being put on display (albeit less than more revealing outfits) - ImperatorAugustus
	if dynslave['exhibitionism'] < 0 and $dynslave_psy_status ! 'horny': dynslave['neg_clothes'] = 100 & worn_bonus['mood'] -= 1 & dynslave['exhibitionism_revealed'] = max(1, dynslave['exhibitionism_revealed']) &! body-shy, insufficiently-aroused slaves dislike revealing outfits - ImperatorAugustus
	if dynslave['service_affinity'] > 0: dynslave['pos_clothes'] = 100 &! affinity finds the outfit comfortable, but wearing it does not reveal the trait - ImperatorAugustus
	learn_bonus['service'] += 2
	dynslave['st_plus'] += 1
}

!Платье медсестры ['nurse_dress']
dynamic $ib_cycle, 'nurse_dress', 'Nurse Outfit', 5, '   Price: 5 sparks
   A flashy white nurse dress. This is what you need to lift the spirit of any patient.', 'scene\item\item_nurse'

$item_property['nurse_dress'] = {
	if dynslave['nurse_affinity'] > 0: dynslave['pos_clothes'] = 100 &! affinity finds the outfit comfortable, but wearing it does not reveal the trait - ImperatorAugustus
	learn_bonus['nurse'] += 2
}

!['leotard']
dynamic $ib_cycle, 'leotard', 'Athletic Leotard', 5, '   Price: 5 sparks
   A tight leotard which emphasizes the shape of your slave while not hampering her movements. Perfect for any sports activity, except for battles.', 'scene\item\item_leotard'

$item_property['leotard'] = {
	if rebell[$dynslave_psy_status] > 0: dynslave['neg_clothes'] = 100 & worn_bonus['mood_rate'] -= dynslave['pride']*2 &! proud slaves dislike being put on display (albeit less than more revealing outfits) - ImperatorAugustus
	if dynslave['exhibitionism'] < 0 and $dynslave_psy_status ! 'horny': dynslave['neg_clothes'] = 100 & worn_bonus['mood'] -= 1 & dynslave['exhibitionism_revealed'] = max(1, dynslave['exhibitionism_revealed']) &! body-shy, insufficiently-aroused slaves dislike revealing outfits - ImperatorAugustus
	if dynslave['sport_affinity'] > 0: dynslave['pos_clothes'] = 100 &! affinity finds the outfit comfortable, but wearing it does not reveal the trait - ImperatorAugustus
	learn_bonus['stamina'] += 2
	learn_bonus['calisthenics'] += 2
}

!['chainmail_bikini']
dynamic $ib_cycle, 'chainmail_bikini', 'Chainmail Bikini', 5, '   Price: 5 sparks
   Classic gladiatrix clothing. I repeat - clothing. It’s not an armor, it’s a stage props, made of light and gleaming anodized aluminum. The cut is so minimal that it almost hides nothing.', 'scene\item\item_chainmail_bikini'

$item_property['chainmail_bikini'] = {
	if rebell[$dynslave_psy_status] > 0: dynslave['neg_clothes'] = 100 & worn_bonus['mood_rate'] -= dynslave['pride']*3 &! proud slaves dislike being put on display - ImperatorAugustus
	if dynslave['exhibitionism'] < 0 and $dynslave_psy_status ! 'horny': dynslave['neg_clothes'] = 100 & worn_bonus['mood'] -= 1 & dynslave['exhibitionism_revealed'] = max(1, dynslave['exhibitionism_revealed']) &! body-shy, insufficiently-aroused slaves dislike revealing outfits - ImperatorAugustus
	if dynslave['gladiatrix_affinity'] > 0: dynslave['pos_clothes'] = 100 &! affinity finds the outfit comfortable, but wearing it does not reveal the trait - ImperatorAugustus
	learn_bonus['stamina'] += 1
	learn_bonus['gladiatrix'] += 3
	dynslave['ex_plus'] += 1
}

!['enchanter_robe']
dynamic $ib_cycle, 'enchanter_robe', 'Sorceress Robes', 5, '   Price: 5 sparks
   Made of a very light but opaque fabric - this arcane robe with a hood completely hides the shape of your slave. Not very sexy, but very mysterious and helps to tune in to a mystical way.', 'scene\item\item_robe'

$item_property['enchanter_robe'] = {
	if dynslave['pride'] >= 3: dynslave['pos_clothes'] = 100 &! proud slaves like wearing a concealing outfit - ImperatorAugustus
	if dynslave['enchanter_affinity'] > 0: dynslave['pos_clothes'] = 100 &! affinity finds the outfit comfortable, but wearing it does not reveal the trait - ImperatorAugustus
	learn_bonus['enchanter'] += 3 &! mystical way
	learn_bonus['alchemy'] += 2 &! mystical way
	dynslave['st_plus'] -= 1 &! not very sexy
	dynslave['ex_plus'] += 2 &! but very mysterious
}

!['sun_dress']
dynamic $ib_cycle, 'sun_dress', 'Light Sundress', 5, '   Price: 5 sparks
   This cute little dress is perfect for relaxing and raises the mood of those who wear it. Of course, there are more beautiful or functional dresses, but wearing a sundress is just very nice.', 'scene\item\item_sundress'

$item_property['sun_dress'] = {
	dynslave['pos_clothes'] = 100
	dynslave['st_plus'] += 1
}

!['laced_underwear']
dynamic $ib_cycle, 'laced_underwear', 'Lace Underwear', 5, '   Price: 5 sparks
   In this set of sexy lace underwear that includes bra, panties, lightweight corset and stockings with garters, any girl would look desirable. Treat yourself to a beautiful sight and tune your slave for a rough night!', 'scene\item\item_laced_underwear'

$item_property['laced_underwear'] = {
	if rebell[$dynslave_psy_status] > 0: dynslave['neg_clothes'] = 100 & worn_bonus['mood_rate'] -= dynslave['pride']*3 &! proud slaves dislike being put on display - ImperatorAugustus
	if dynslave['exhibitionism'] < 0 and $dynslave_psy_status ! 'horny': dynslave['neg_clothes'] = 100 & worn_bonus['mood'] -= 1 & dynslave['exhibitionism_revealed'] = max(1, dynslave['exhibitionism_revealed']) &! body-shy, insufficiently-aroused slaves dislike revealing outfits - ImperatorAugustus
	learn_bonus['sex'] += 2 &! better than being naked - ImperatorAugustus
	if dynslave['moral'] > 0 and master_style >= 3: daily_bonus['arousal'] += 1
	dynslave['st_plus'] += 1
}

!['sailor_foku']
dynamic $ib_cycle, 'sailor_foku', 'School Uniform', 10, '   Price: 10 sparks
   Uniform of the Academy of St. Peter. If your slave will ever attend classes there, this dress will make her feel at home. In any case, what can be more charming and naive than a young schoolgirl?', 'scene\item\item_sailor'

$item_property['sailor_foku'] = {
	if dynslave['secretary_affinity'] > 0: dynslave['pos_clothes'] = 100 &! affinity finds the outfit comfortable, but wearing it does not reveal the trait - ImperatorAugustus
	learn_bonus['secretary'] += 2
	learn_bonus['academy'] += 2
	dynslave['st_plus'] += 1
}

!['cocktail_dress']
dynamic $ib_cycle, 'cocktail_dress', 'Gown', 10, '   Price: 10 sparks
   A dress made only of the finest fabric. This dress will make your slave stand out at any party. Very stylish and quite affordable - a great choice.', 'scene\item\item_laced_dreess'

$item_property['cocktail_dress'] = {
	dynslave['st_plus'] += 2
}

!['rubber_dress']
dynamic $ib_cycle, 'rubber_dress', 'Latex Dress', 20, '   Price: 20 sparks
   This dress made of thin latex will fit the body of your slave so tightly that every aspect of her body will be highlighted. Easily associable with sex, this outfit will constantly remind your slave that she is expected to learn fast and to be diligent when it comes to any sexual lesson. At the same time, the dress has a strict cut, so it can be worn at dinner parties.', 'scene\item\item_rubber_dress'

$item_property['rubber_dress'] = {
	if rebell[$dynslave_psy_status] > 0: dynslave['neg_clothes'] = 100 & worn_bonus['mood_rate'] -= dynslave['pride']*3 &! proud slaves dislike being put on display (albeit less than more revealing outfits) - ImperatorAugustus
	if dynslave['exhibitionism'] < 0 and $dynslave_psy_status ! 'horny': dynslave['neg_clothes'] = 100 & worn_bonus['mood'] -= 1 & dynslave['exhibitionism_revealed'] = max(1, dynslave['exhibitionism_revealed']) &! body-shy, insufficiently-aroused slaves dislike revealing outfits - ImperatorAugustus
	learn_bonus['sex'] += 3
	dynslave['st_plus'] += 2
}

!['ukata']
dynamic $ib_cycle, 'ukata', 'Kimono-Yukata', 20, '   Price: 20 sparks
   Beautiful but strict Japanese clothes - the choice of a Geisha. Bright fabric colors and a lush wide belt will help to emphasize the beauty of the dress, and the strict cut will complement formal communication in any elite company.', 'scene\item\item_ukata'

$item_property['ukata'] = {
	if dynslave['secretary_affinity'] > 0: dynslave['pos_clothes'] = 100 &! affinity finds the outfit comfortable, but wearing it does not reveal the trait - ImperatorAugustus
	learn_bonus['expression'] += 3
	dynslave['st_plus'] += 2
}

!['bellydance']
dynamic $ib_cycle, 'bellydance', 'Exotic Outfit', 25, '   Price: 25 sparks
   In our city, it is difficult to surprise someone with exotic clothes. This dress with transparent sleeves, baggy trousers, shiny gold and ringing monists is definitely suited for such a task. And belly dancing too!', 'scene\item\item_bellydance'

$item_property['bellydance'] = {
	if rebell[$dynslave_psy_status] > 0: dynslave['neg_clothes'] = 100 & worn_bonus['mood_rate'] -= dynslave['pride'] &! proud slaves dislike being put on display (albeit this outfit is not as revealing) - ImperatorAugustus
	if dynslave['calisthenics_affinity'] > 0: dynslave['pos_clothes'] = 100 &! affinity finds the outfit comfortable, but wearing it does not reveal the trait - ImperatorAugustus
	learn_bonus['calisthenics'] += 3
	learn_bonus['sex'] += 1
	dynslave['ex_plus'] += 3
	dynslave['st_plus'] += 2
}

!['leather_corset']
dynamic $ib_cycle, 'leather_corset', 'Leather Corset', 50, '   Price: 50 sparks
   <<iif(shop_description = 1, "A brace dress - the best choice for any sex slave! ","")>>This hard corset with metal edges has an open front which reveals her breasts and pussy. The gentle brush of air over her exposed erogenous zones will stimulate her and direct her sexual interest towards her master! Moreover, she is certain to be more focused in any sexual training. Beautiful, exciting and practical!', 'scene\item\item_corset'

$item_property['leather_corset'] = {
	if rebell[$dynslave_psy_status] > 0: dynslave['neg_clothes'] = 100 & worn_bonus['mood_rate'] -= dynslave['pride']*3 &! proud slaves dislike being put on display - ImperatorAugustus
	if dynslave['exhibitionism'] < 0 and $dynslave_psy_status ! 'horny': dynslave['neg_clothes'] = 100 & worn_bonus['mood'] -= 1 & dynslave['exhibitionism_revealed'] = max(1, dynslave['exhibitionism_revealed']) &! body-shy, insufficiently-aroused slaves dislike revealing outfits - ImperatorAugustus
	if dynslave['moral'] > 0 and master_style >= 3: daily_bonus['arousal'] += 2
	learn_bonus['sex'] += 4
	dynslave['st_plus'] += 2
}

!['rich_dress']
dynamic $ib_cycle, 'rich_dress', 'Gorgeous Dress', 50, '   Price: 50 sparks
   Yes, this dress is expensive and not very comfortable, but it is GORGEOUS! Talented designers made sure that anyone wearing this dress will appear elegant and tasteful.', 'scene\item\item_rich_dress'

$item_property['rich_dress'] = {
	dynslave['neg_clothes'] = 100 & worn_bonus['mood_rate'] -= 5 &! not very comfortable - ImperatorAugustus
	dynslave['st_plus'] += 3 &! same style bonus as wedding dress at half the price - ImperatorAugustus
}

!['wedding_dress']
dynamic $ib_cycle, 'wedding_dress', 'Wedding Dress', 100, '   Price: 100 sparks
   There is nothing better than a wedding dress. This is not just a luxury outfit, it’s a symbol of purity and happiness, especially for a devoted slave. Every girl dreams of wearing a wedding dress and it will make every girl irresistible! For special ceremonies there is a sexy open front option.', 'scene\item\item_wedding_dress'

$item_property['wedding_dress'] = {
	if dynslave['pride'] < 3 and rebell[$dynslave_psy_status] <= 0: dynslave['pos_clothes'] = 100
	if dynslave['moral'] > 0 and master_style >= 3: daily_bonus['arousal'] += 1 & worn_bonus['mood_rate'] += 5 &! devoted slaves fantasize about being a waifu, further increasing mood by +0.5 while also raising arousal - ImperatorAugustus
	learn_bonus['sex'] += dynslave['moral'] &! better than corset only with maximum devotion, but the mood bonus helps balance the scale - ImperatorAugustus
	dynslave['st_plus'] += 3 &! same style bonus as gorgeous dress and precious tiara - ImperatorAugustus
}

!ITEMS WORN ON HANDS

!['rubber_gloves']
dynamic $ib_cycle, 'rubber_gloves', 'Rubber Gloves', 5, '   Price: 5 sparks
   Although rubber gloves do not complement any costume and will not decorate the hands of your slave, they have a lot of applications. These gloves will protect the delicate skin of the slave while cleaning and washing dishes. It also comes in handy for some medical procedures.', 'scene\item\item_rubber_gloves'

$item_property['rubber_gloves'] = {
	learn_bonus['nurse'] += 1
	learn_bonus['service'] += 1
	dynslave['st_plus'] -= 2 &! very not stylish (considered making an exception when paired with nurse outfit but decided against it) - ImperatorAugustus
}

!['laced_gloves']
dynamic $ib_cycle, 'laced_gloves', 'Lace Gloves', 5, {   Price: 5 sparks
   Elbow-length laced gloves <<iif(shop_description = 1, "will accentuate", "are elegant and well suited for accentuating")>> the style and charm of your slave’s outfit. <<iif(shop_description = 1, "We offer a variety of lengths and colors, solid or mesh, with fingers or without.", "This pair covers the skin from elbow to fingertip with delicate lace.")>>}, 'scene\item\item_laced_gloves'

$item_property['laced_gloves'] = {
	dynslave['st_plus'] += 2
}

!['leather_gloves']
dynamic $ib_cycle, 'leather_gloves', 'Leather Gloves', 5, '   Price: 5 sparks
   Elegant and durable leather gloves not only serve a stylish addition to most outfits, but also protect the hands of your slave during weapon training or alchemy.', 'scene\item\item_leather_gloves'

$item_property['leather_gloves'] = {
	learn_bonus['gladiatrix'] += 1
	learn_bonus['alchemy'] += 1
	dynslave['st_plus'] += 1 &! stylish but not as much as laced_gloves - ImperatorAugustus
}

!['plastic_bracers']
dynamic $ib_cycle, 'plastic_bracers', 'Carbon Fiber Gloves', 10, '   Price: 10 sparks
   Lightweight and durable bracers from black carbon fiber hardly will add elegance to your slave. It will however protect her hands during combat training. And health is sometimes more important than beauty.', 'scene\item\item_bracers'

$item_property['plastic_bracers'] = {
	learn_bonus['gladiatrix'] += 2
	dynslave['st_plus'] -= 1 &! not stylish - ImperatorAugustus
}

!['fluffy_gloves']
dynamic $ib_cycle, 'fluffy_gloves', 'Fluffy Paws', 5, '   Price: 5 sparks
   These plump and fluffy gloves are made in the form of soft cat paws. It is not functional, but a very nice addition to the wardrobe of your slave. It is easier for her to feel like a pet!', 'scene\item\item_fluffy_gloves'

$item_property['fluffy_gloves'] = {
	if dynslave['pet_affinity'] > 0: dynslave['pos_clothes'] = 100 &! slaves with pet affinity find these comfortable (but wearing does not reveal the trait) - ImperatorAugustus
	learn_bonus['pet'] += 1 &! easier to feel like a pet
	! not functional - interferes with other lessons - ImperatorAugustus
	learn_bonus['service']      -= 10
	learn_bonus['cook']         -= 10
	learn_bonus['secretary']    -= 10
	learn_bonus['expression']   -= 10
	learn_bonus['nurse']        -= 10
	learn_bonus['alchemy']      -= 10
	learn_bonus['enchanter']    -= 10
	learn_bonus['stamina']      -= 10
	learn_bonus['gladiatrix']   -= 10
	learn_bonus['calisthenics'] -= 10
	learn_bonus['music']        -= 10
	learn_bonus['art']          -= 10
	learn_bonus['cowSK']        -= 10
	learn_bonus['dressage']     -= 10
	dynslave['st_plus'] -= 1 &! not stylish - ImperatorAugustus
}

!ITEMS WORN ON FEET

!['tabi']
dynamic $ib_cycle, 'tabi', 'Tabi Socks', 5, '   Price: 5 sparks
   This type of thick socks is cut with a separate thumb. Classic footwear for martial arts and silent movement. These socks will last through any sort of training.', 'scene\item\item_tabi'

$item_property['tabi'] = {
	if dynslave['gladiatrix'] > 2 or dynslave['gladiatrix_affinity'] > 0: dynslave['pos_clothes'] = 100 &! B+ gladiatrices or slaves with gladiatrix trait find these comfortable (but wearing does not reveal the trait) - ImperatorAugustus
	learn_bonus['gladiatrix'] += 2 &! martial arts
	learn_bonus['calisthenics'] += 1 &! silent movement
	dynslave['ex_plus'] += 1 &! slightly exotic - ImperatorAugustus
}

!['fluffy_stepins']
dynamic $ib_cycle, 'fluffy_stepins', 'Soft Slippers', 5, {   Price: 5 sparks
   <<iif(shop_description = 1, "We offer a variety of options for soft and fluffy slippers, which will create an incredible feeling of warmth and comfort. We even have options in the form of muzzles of different cute animals!", "These soft and fluffy slippers create an incredible feeling of warmth and comfort. They have a simple design, open at the back and with a pair of soft tassel balls on each slipper, decorated with tiny ribbons.")>>}, 'scene\item\item_fluffy_stepins'

$item_property['fluffy_stepins'] = {
	dynslave['pos_clothes'] = 100
	dynslave['st_plus'] -= 1 &! does not complement a stylish outfit - ImperatorAugustus
	dynslave['ex_plus'] -= 1 &! reduces exoticism - ImperatorAugustus
}

!['pointes']
dynamic $ib_cycle, 'pointes', 'Pointes', 5, '   Price: 5 sparks
   Indispensable attribute of every ballerina - pointes. The most comfortable shoes for ballroom dancing.', 'scene\item\item_pointes'

$item_property['pointes'] = {
	if dynslave['calisthenics'] > 2 or dynslave['calisthenics_affinity'] > 0: dynslave['pos_clothes'] = 100 &! B+ dancers or slaves with ballerina trait find these comfortable (but wearing does not reveal the trait) - ImperatorAugustus
	learn_bonus['calisthenics'] += 2 &! dancing
}

!['sneakers']
dynamic $ib_cycle, 'sneakers', 'Sneakers', 5, '   Price: 5 sparks
   Comfortable and practical footwear for sports and everyday wear.', 'scene\item\item_sneakers'

$item_property['sneakers'] = {
	if dynslave['sport_affinity'] > 0: dynslave['pos_clothes'] = 100 &! slaves with sport affinity find these comfortable (but wearing does not reveal the trait) - ImperatorAugustus
	learn_bonus['stamina'] += 3 &! sports
	learn_bonus['gladiatrix'] += 1 &! sports
	learn_bonus['calisthenics'] += 1 &! sports
	dynslave['st_plus'] -= 1 &! does not complement a stylish outfit - ImperatorAugustus
	dynslave['ex_plus'] -= 1 &! reduces exoticism - ImperatorAugustus
}

!['high_heels']
dynamic $ib_cycle, 'high_heels', 'Heels', 5, '   Price: 5 sparks
   These shoes with high and sharp heels are a sample of elegance and style. A wide range of styles and colors means there is a fitting pair for every dress. No elegant outfit would be complete without a set of high heels.', 'scene\item\item_high_heels'

$item_property['high_heels'] = {
	if dynslave['stamina'] < 3: dynslave['neg_clothes'] = 100 & worn_bonus['mood'] -= 3 - dynslave['stamina'] &! unhealthy slaves find heels unpleasant to wear - ImperatorAugustus
	if dynslave['stamina'] > 1: daily_bonus['stamina'] += 1 &! wearing heels passively trains endurance unless Feeble - ImperatorAugustus
	dynslave['st_plus'] += 2 &! as elegant as high_boots
}

!['high_boots']
dynamic $ib_cycle, 'high_boots', 'High Boots', 20, '   Price: 20 sparks
   High leather boots with shiny buckles and elegant heel. These are not only as elegant as high heels, but also emphasize the sexuality and unbridled temper of your slave.', 'scene\item\item_high_boots'

$item_property['high_boots'] = {
	if dynslave['stamina'] < 3: dynslave['neg_clothes'] = 100 & worn_bonus['mood'] -= 3 - dynslave['stamina'] &! unhealthy slaves find heels unpleasant to wear - ImperatorAugustus
	learn_bonus['sex'] += 2 &! emphasize sexuality
	if dynslave['temper'] > 2: daily_bonus['temper'] += 1 &! emphasize temper, effect shared with hoofed_boots (pony gear) - ImperatorAugustus
	if dynslave['stamina'] > 1: daily_bonus['stamina'] += 1 &! wearing heels passively trains endurance unless Feeble - ImperatorAugustus
	dynslave['st_plus'] += 2 &! as elegant as high_heels
}

!JEWELRY AND ACCESSORIES FOR HANDS

!['plain_ring']
dynamic $ib_cycle, 'plain_ring', 'Elegant Ring', 3, '   Price: 3 sparks
   A well crafted and beautiful ring made out of precious metals.', 'scene\item\item_plain_ring'

$item_property['plain_ring'] = {
	dynslave['st_plus'] += 1
}

!['incrusted_ring']
dynamic $ib_cycle, 'incrusted_ring', 'Gemstone Ring', 5, '   Price: 5 sparks
   This ring is made out of higher quality metal and the inlaid stone enhances the beauty of anyone wearing this ring.', 'scene\item\item_incrusted_ring'

$item_property['incrusted_ring'] = {
	dynslave['st_plus'] += 2 &! more style bonus than plain_ring, but removed +1 to ex_plus - ImperatorAugustus
}

!JEWELRY AND ACCESSORIES FOR PIERCINGS

!['plain_earrings']
dynamic $ib_cycle, 'plain_earrings', 'Small Hoop', 3, '   Price: 3 sparks (pair)
   These elegant little hoops are perfectly suited for all pierced areas of the body.', 'scene\item\item_plain_earring'

$item_property['plain_earrings'] = {
	dynslave['st_plus'] += 1
}

!['incrusted_earrings']
dynamic $ib_cycle, 'incrusted_earrings', 'Gemstone Stud', 5, '   Price: 5 sparks (pair)
   This drop stud is encrusted with synthetic crystals, which are generally more rare and exotic than standard gemstones.
  For the ears there is an option with clips that does not require piercing.', 'scene\item\item_incrusted_earring'

$item_property['incrusted_earrings'] = {
	dynslave['st_plus'] += 2 &! more stylish than other piercing accessories
	dynslave['ex_plus'] += 2 &! more rare and exotic than standard gemstones
}

!['barbells']
dynamic $ib_cycle, 'barbells', 'Barbell', 10, '   Price: 10 sparks (pair)
   These barbells are made out of precious metal and polished to perfection with a rare gemstone on either end. Barbells can provide mild stimulation to a pierced tongue, nipple, navel or clit.', 'scene\service\service_tongue_piercing'

$item_property['barbells'] = {
	! sold in pairs, twice the price of gemstone studs which are equivalent for style and exoticism - a premium for increasing arousal, which helps sex training - ImperatorAugustus
	daily_bonus['arousal'] += 1 &! mild stimulation
	dynslave['st_plus'] += 1 &! precious metal
	dynslave['ex_plus'] += 1 &! rare gemstone
	! not quite as good for charm as gemstone studs, despite the higher price, giving a reason to buy both - ImperatorAugustus
}

!['nipple_chain']
dynamic $ib_cycle, 'nipple_chain', 'Nipple Chain', 10, '   Price: 10 sparks (pair)
   A pair of rings linked with a chain, which is meant to connect the nipples of a slave. This will give your slave a slightly exotic look. The rings provide constant stimulation, and knowing that you can always pull the chain, she will behave more respectfully - as pulling it hurts.', 'scene\item\item_nipple_chain'

$item_property['nipple_chain'] = {
	if dynslave['pride'] >= 2 or (dynslave['arousal'] = 0 and dynslave['masochism'] <= 0):
		if dynslave_state = CONST_INT['slave_exist'] and rebell[$dynslave_psy_status] > 0 and dynslave['obedience'] < 0 and dynslave['beaten_ever'] = 0 and dynslave['domini_dictum'] = 0:
			$place = 'study'
			$picture_type = 'dynslave_picture'
			npc = 0 & txt = 1 & $text[1] = '  <<$dynslave_name>> refuses to wear the nipple chain. Use force to make her wear it anyway?'
			$yes = {
				if dynslave['gladiatrix'] > max(0, master_supermacy - master_style):
					dynamic $slave_fights_back
				else
					dynamic $replace($dyn_slave_forced, 'dyn'+'slave', 'dynslave')
					dynslave_stat_screen = 2 & gt 'dynslave_stat'
				end
			}
			$no = {
				$dynslave['nipplerings'] = 'пусто' &! empty
				dynslave_inventory['nipple_chain'] += 2
				dynslave_stat_screen = 2 & gt 'dynslave_stat'
			}
			gt 'choice_screen'
		end
	end
	if dynslave['arousal'] = 0 and dynslave['masochism'] <= 0: dynslave['neg_clothes'] = 100 & worn_bonus['mood_rate'] -= 5 &! not inured (1) or masochist (2)
	daily_bonus['arousal'] += 2 &! constant stimulation, more than barbells
	daily_bonus['instinct'] += 1 &! behave more respectfully / pulling it hurts
	! removed direct bonus for sex lessons (arousal still assists with lessons implicitly) - ImperatorAugustus
	dynslave['ex_plus'] += 1 &! changed to exoticism bonus instead of style bonus - ImperatorAugustus
	! no style bonus, so for charm when selling the slave, using barbells or gemstone studs is better - ImperatorAugustus
}

!['heavy_gauge_rings']
dynamic $ib_cycle, 'heavy_gauge_rings', 'Thick Steel Ring', 30, '   Price: 30 sparks (set of 7)
   Add drama to any piercing and remind your slave of her place. Because nothing says "slave" like heavy gauge steel. Exotic, but not the most elegant, of course. A trio of these make a good complement for a nipple chain and a nose ring. Or, if not a nose ring, perhaps replace one of the trio with a barbell for variety.', 'scene\item\item_heavy_gauge'

$item_property['heavy_gauge_rings'] = {
	! daily impact (+instinct, -mood) is applied in next_day according to the number of rings equipped
	! maximum impact is +3 instinct for -0.9 mood with 5 of these rings [tongue/nipple(x2)/navel/clit] and a permanent nose ring
	! substituting nipple chain for thick steel rings is a change of -1 instinct, +0.3 mood and the chain adds +1 instinct and up to -1.0 mood (ideally zero, if she is aroused or a masochist)
	! when using a nipple chain, +3 instinct requires a nose piercing and all other slots filled with these rings; the mood impact in this case is -0.6
	! if you omit the nose piercing, a nipple chain and two rings yields a total impact of +2 instinct and -0.3 to -0.4 mood, plus arousal
	! that leaves one empty slot for another accessory, for example a barbell for extra arousal
	dynslave['neg_clothes'] = 100 &! for display only, moodlet impact is negated in $recalc_equipment_bonuses
	dynslave['st_plus'] -= 1 &! not a refined, stylish look
	dynslave['ex_plus'] += 2 &! but more exotic than gemstone rings
	! not the best for style, but on par with gemstone studs for exoticism - ImperatorAugustus
}

!ITEMS WORN ON HEAD

!['plain_headband']
dynamic $ib_cycle, 'plain_headband', 'Headband', 3, '   Price: 3 sparks
   This accessory is designed not only as an accessory, but for everyday use. The lightweight and flexible headband allows to neatly tuck away hair so that it does not conceal the face or fall into the pot.', 'scene\item\item_headband'

$item_property['plain_headband'] = {
	dynslave['wig'] = 1 &! equivalent style bonus as a recent haircut - ImperatorAugustus
	learn_bonus['cook'] += 1 &! same as hijab, which costs the same, but hijab also boosts service
	! aside from the style function, this item serves as an inexpensive gift
}
$item_property_off['plain_headband'] = {
	if dynslave['hairstyle'] = 1: dynslave['hairstyle'] = 0
}

!['hijab']
dynamic $ib_cycle, 'hijab', 'Hijab', 3, '   Price: 3 sparks
   A hijab completely covers the hair. Perhaps not the best kind of jewelry for the head, but it is very practical in everyday affairs. The hair will not fall into the soup or interfere during cleaning!', 'scene\item\item_hijab'

$item_property['hijab'] = {
	learn_bonus['service'] += 1
	learn_bonus['cook'] += 1
	dynslave['st_plus'] -= 1 &! not a refined, stylish look
}

!['crown_of_thorns']
dynamic $ib_cycle, 'crown_of_thorns', 'Crown of Thorns', 5, ' Price: 5 sparks
   Of course this is only the name, it has no thorns. These rims are made out of barbed wire. The trick is the attachment mechanism - it is arranged such as to cause pain, but not to injure and not be removed so easily. Constant, though mild pain reminds a slave of humility.', 'scene\item\item_thorns'

$item_property['crown_of_thorns'] = {
	if dynslave['masochism'] <= 0:
		if dynslave_state = CONST_INT['slave_exist'] and rebell[$dynslave_psy_status] > 0 and dynslave['obedience'] < 0 and dynslave['beaten_ever'] = 0 and dynslave['domini_dictum'] = 0:
			$place = 'study'
			$picture_type = 'dynslave_picture'
			npc = 0 & txt = 1 & $text[1] = '  <<$dynslave_name>> refuses to wear the crown of thorns. Use force to make her wear it anyway?'
			$yes = {
				if dynslave['gladiatrix'] > max(0, master_supermacy - master_style):
					dynamic $slave_fights_back
				else
					dynamic $replace($dyn_slave_forced, 'dyn'+'slave', 'dynslave')
					dynslave_stat_screen = 2 & gt 'dynslave_stat'
				end
			}
			$no = {
				$dynslave['headband'] = 'пусто' &! empty
				dynslave_inventory['crown_of_thorns'] += 1
				dynslave_stat_screen = 2 & gt 'dynslave_stat'
			}
			gt 'choice_screen'
		end
	end
	dynslave['masochism_revealed'] = max(1, dynslave['masochism_revealed']) &! always reveals trait when worn - ImperatorAugustus
	if dynslave['masochism'] ! 2: dynslave['neg_clothes'] = 100
	worn_bonus['mood'] += iif(dynslave['masochism'] = 2, 1, -1) &! conditioned mood effect on masochism (2 = masochist) - ImperatorAugustus
	daily_bonus['instinct'] += 2 &! mild pain reminds slave of humility - ImperatorAugustus
	dynslave['st_plus'] = -2 &! added style penalty - ImperatorAugustus
}

!['plain_tiara']
dynamic $ib_cycle, 'plain_tiara', 'Ornamented Diadem', 10, '   Price: 10 sparks
   A stylish diadem from precious metal. It perfectly complements the hairstyle of your slave and surrounds her with an aura of luxury.', 'scene\item\item_plain_tiara'

$item_property['plain_tiara'] = {
	if dynslave['passion_luxury'] > 0: worn_bonus['mood_rate'] += 5 & dynslave['passion_luxury_revealed'] = max(1, dynslave['passion_luxury_revealed']) &! sybarite loves luxurious items - ImperatorAugustus
	dynslave['st_plus'] += 2 &! more stylish than glasses as the diadem has no other function for non-sybarite slaves - ImperatorAugustus
}

!['hairnet']
dynamic $ib_cycle, 'hairnet', 'Hairnet', 10, '   Price: 10 sparks
   Elegant hair mesh decorated with pearls and preciously woven, it will not only accentuate the style of your slave, but also permanently retain her hairstyle. In addition to the product itself, a set of silver pins and a pearl comb are included.', 'scene\item\item_hairnet'

$item_property['hairnet'] = {
	dynslave['wig'] = 1 &! equivalent style bonus as a recent haircut - ImperatorAugustus
	dynslave['st_plus'] += 2 &! increased style effectiveness to give a reason to use it (superior to a wig for style, but no exoticism bonus) - ImperatorAugustus
}
$item_property_off['hairnet'] = {
	if dynslave['hairstyle'] = 1: dynslave['hairstyle'] = 0
}

!['glasses']
dynamic $ib_cycle, 'glasses', 'Stylish Glasses', 10, {   Price: 10 sparks
   Beautiful and practical accessory. <<iif(shop_description = 1, "Our experts pick the lens that is", "The expertly selected lenses are")>> optimal for the slave’s vision correction, allowing her to read documents more efficiently. And a stylish frame from precious metal <<iif(shop_description = 1, "will accentuate", "accentuates")>> the unique style of the girl.}, 'scene\item\item_glasses'

$item_property['glasses'] = {
	if dynslave['secretary_affinity'] > 0: dynslave['pos_clothes'] = 100 &! slaves with secretary affinity are happier wearing glasses (but wearing them does not reveal the trait) - ImperatorAugustus
	learn_bonus['secretary'] += 1
	dynslave['st_plus'] += 1
}

!['nekomimi']
dynamic $ib_cycle, 'nekomimi', 'Cat Ears', 10, '   Price: 10 sparks
   Large fur cat ears with a flexible rim certainly attract the attention of others and will help your slave feel like a real pet.', 'scene\item\item_nekomimi'

$item_property['nekomimi'] = {
	if dynslave['pet_affinity'] > 0: dynslave['pos_clothes'] = 100 &! slaves with pet affinity find these comfortable (but wearing does not reveal the trait) - ImperatorAugustus
	learn_bonus['pet'] += 1 &! feel like a real pet
	dynslave['st_plus'] -= 1 &! not a refined, stylish look
	dynslave['ex_plus'] += 1 &! but it is slightly exotic
}

!['incrusted_tiara']
dynamic $ib_cycle, 'incrusted_tiara', 'Precious Tiara', 20, '   Price: 20 sparks
   This massive tiara is decorated with shimmering gems of the highest quality - it will certainly attract attention and emphasize the beauty of your slave.', 'scene\item\item_incrusted_tiara'

$item_property['incrusted_tiara'] = {
	if dynslave['passion_luxury'] > 0: worn_bonus['mood_rate'] += 5 & dynslave['passion_luxury_revealed'] = max(1, dynslave['passion_luxury_revealed']) &! sybarite loves luxurious items - ImperatorAugustus
	dynslave['st_plus'] += 3 &! increased effectiveness to give a reason to use it (better than a wig for style when combined with a recent haircut, but less exotic) - ImperatorAugustus
	dynslave['ex_plus'] += 1
}

!['exotic_wig']
dynamic $ib_cycle, 'exotic_wig', 'Exotic Wig', 20, '   Price: 20 sparks
   Want to raise the exotic nature of your slave? Use a gorgeous exotic wig. Incredible colors, feathers, dreadlocks as well as shiny jewelry woven into the hair literally attract glances.', 'scene\item\item_exotic_wig'

$item_property['exotic_wig'] = {
	dynslave['wig'] = 1 &! equivalent style bonus as a recent haircut - ImperatorAugustus
	dynslave['ex_plus'] += 2 &! best in slot
	dynslave['st_plus'] += 1 &! inferior to hairnet and diadem for style - ImperatorAugustus
}
$item_property_off['exotic_wig'] = {
	if dynslave['hairstyle'] = 1: dynslave['hairstyle'] = 0
}

!ITEMS WORN ON NECK - NOT SLAVE COLLARS (SLAVE WEARING THESE CAN ESCAPE)

!['plain_pendant']
dynamic $ib_cycle, 'plain_pendant', 'Chain with Pendant', 5, '   Price: 5 sparks
   A chain from precious metal with a shaped pendant perfectly accentuates the style and elegance of your slave.', 'scene\item\item_plain_pendant'

$item_property['plain_pendant'] = {
	dynslave['st_plus'] += 1
}

!['incrusted_necklace']
dynamic $ib_cycle, 'incrusted_necklace', 'Gemstone Necklace', 10, '   Price: 10 sparks
   Figured necklace, studded with beautiful gems.', 'scene\item\item_incrusted_necklace'

$item_property['incrusted_necklace'] = {
	dynslave['st_plus'] += 2
}

!['dog_collar']
dynamic $ib_cycle, 'dog_collar', 'Collar and Leash', 5, '   Price: 5 sparks
   Provided with a leash, it is immediately obvious that this is not made for humans, but for a pet. Helps set up a slave in the right mood, but it’s easy to remove. This collar is not meant to remind your slave of her fate, as it is obviously a pet collar, not a slave collar.', 'scene\item\item_dog_collar'

$item_property['dog_collar'] = {
	if dynslave['pet'] < 3 and dynslave['pet_affinity'] = 0:
		if dynslave_state = CONST_INT['slave_exist'] and rebell[$dynslave_psy_status] > 0 and dynslave['obedience'] < 0 and dynslave['beaten_ever'] = 0 and dynslave['domini_dictum'] = 0:
			$place = 'study'
			$picture_type = 'dynslave_picture'
			npc = 0 & txt = 1 & $text[1] = '  <<$dynslave_name>> refuses to wear the pet collar. Use force to make her wear it anyway? It has no lock, so she can easily remove it.'
			$yes = {
				if dynslave['gladiatrix'] > max(0, master_supermacy - master_style):
					dynamic $slave_fights_back
				else
					dynamic $replace($dyn_slave_forced, 'dyn'+'slave', 'dynslave')
					dynslave_stat_screen = 2 & gt 'dynslave_stat'
				end
			}
			$no = {
				$dynslave['collar'] = 'пусто' &! empty
				dynslave_inventory['dog_collar'] += 1
				dynslave_stat_screen = 2 & gt 'dynslave_stat'
			}
			gt 'choice_screen'
		end
	end
	if dynslave['pet'] > 2 and (dynslave['ego'] < 3 or dynslave['moral'] > 1): worn_bonus['mood_rate'] += 5
	! no mood penalty, like leather and ornamented collar, but this is not a slave collar (easy to remove) - ImperatorAugustus
	learn_bonus['pet'] += 2 &! helps set up a slave in the right mood (better than leather or spiked collar for pet training) - ImperatorAugustus
	dynslave['st_plus'] = -1 &! added style penalty - ImperatorAugustus
}

!ITEMS WORN ON NECK - SLAVE COLLARS (SLAVE WEARING THESE CANNOT ESCAPE)

!['leather_collar']
dynamic $ib_cycle, 'leather_collar', 'Leather Collar', 3, '   Price: 3 sparks
   Wide leather collar with studs and rings for attaching a leash and shackles. Wearing one of these, your slave will never forget about her fate. Not to mention the fact that it’s just very practical for many games. It is equipped with your name token to get her back in case of loss.', 'scene\item\item_leather_collar'

$item_property['leather_collar'] = {
	if dynslave_state = CONST_INT['slave_exist'] and rebell[$dynslave_psy_status] > 0 and dynslave['obedience'] < 0 and dynslave['beaten_ever'] = 0 and dynslave['domini_dictum'] = 0:
		$place = 'study'
		$picture_type = 'dynslave_picture'
		npc = 0 & txt = 1 & $text[1] = '  <<$dynslave_name>> refuses to wear the leather collar. Use force to lock the collar on her anyway?'
		$yes = {
			if dynslave['gladiatrix'] > max(0, master_supermacy - master_style):
				dynamic $slave_fights_back
			else
				dynamic $replace($dyn_slave_forced, 'dyn'+'slave', 'dynslave')
				dynslave_stat_screen = 2 & gt 'dynslave_stat'
			end
		}
		$no = {
			$dynslave['collar'] = 'пусто' &! empty
			dynslave_inventory['leather_collar'] += 1
			dynslave_stat_screen = 2 & gt 'dynslave_stat'
		}
		gt 'choice_screen'
	end
	! no mood penalty gives a reason to use this or the ornamented collar, and this is 17$ cheaper - ImperatorAugustus
	dynslave['slave_collar'] = 1 &! equipped with name token
	daily_bonus['instinct'] += 1 &! never forget about her fate
	learn_bonus['pet'] += 1 &! rings for attaching a leash
	dynslave['st_plus'] = -1 &! added style penalty - ImperatorAugustus
}

!['steel_collar']
dynamic $ib_cycle, 'steel_collar', 'Steel Collar', 10, '   Price: 10 sparks
   Durable steel collar - heavy reminder of the fate of the slave from which it is impossible to escape. Wearing a steel collar is not a pleasant experience - it rubs the neck and grazes the skin. Not to mention the impact on the pride and conceit. It is engraved with your name and address to get her back in case of loss.', 'scene\item\item_steel_collar'

$item_property['steel_collar'] = {
	if dynslave_state = CONST_INT['slave_exist'] and rebell[$dynslave_psy_status] > 0 and dynslave['obedience'] < 0 and dynslave['beaten_ever'] = 0 and dynslave['domini_dictum'] = 0:
		$place = 'study'
		$picture_type = 'dynslave_picture'
		npc = 0 & txt = 1 & $text[1] = '  <<$dynslave_name>> refuses to wear the steel collar. Use force to lock the collar on her anyway?'
		$yes = {
			if dynslave['gladiatrix'] > max(0, master_supermacy - master_style):
				dynamic $slave_fights_back
			else
				dynamic $replace($dyn_slave_forced, 'dyn'+'slave', 'dynslave')
				dynslave_stat_screen = 2 & gt 'dynslave_stat'
			end
		}
		$no = {
			$dynslave['collar'] = 'пусто' &! empty
			dynslave_inventory['steel_collar'] += 1
			dynslave_stat_screen = 2 & gt 'dynslave_stat'
		}
		gt 'choice_screen'
	end
	dynslave['neg_clothes'] = 100 & worn_bonus['mood'] -= 1 &! not a pleasant experience
	dynslave['slave_collar'] = 1 &! engraved with name and address
	daily_bonus['pride'] -= 1 &! impact on pride and conceit
	daily_bonus['instinct'] += 2 &! heavy reminder of fate
	dynslave['st_plus'] = -2 &! added style penalty - ImperatorAugustus
}

!['spiked_collar']
dynamic $ib_cycle, 'spiked_collar', 'Spiked Collar', 10, '   Price: 10 sparks
   Brutal form of a collar decorated with long and sharp steel spikes. It not only reminds the slave of her status, but also makes her feel more aggressive. Good accessory for a gladiatrix, and indeed for any temperamental bitch. It is equipped with your name token to get her back in case of loss.', 'scene\item\item_spiked_collar'

$item_property['spiked_collar'] = {
	if dynslave['gladiatrix'] < 3 and dynslave['gladiatrix_affinity'] = 0:
		if dynslave_state = CONST_INT['slave_exist'] and rebell[$dynslave_psy_status] > 0 and dynslave['obedience'] < 0 and dynslave['beaten_ever'] = 0 and dynslave['domini_dictum'] = 0:
			$place = 'study'
			$picture_type = 'dynslave_picture'
			npc = 0 & txt = 1 & $text[1] = '  <<$dynslave_name>> refuses to wear the spiked collar. Use force to lock the collar on her anyway?'
			$yes = {
				if dynslave['gladiatrix'] > max(0, master_supermacy - master_style):
					dynamic $slave_fights_back
				else
					dynamic $replace($dyn_slave_forced, 'dyn'+'slave', 'dynslave')
					dynslave_stat_screen = 2 & gt 'dynslave_stat'
				end
			}
			$no = {
				$dynslave['collar'] = 'пусто' &! empty
				dynslave_inventory['spiked_collar'] += 1
				dynslave_stat_screen = 2 & gt 'dynslave_stat'
			}
			gt 'choice_screen'
		end
	end
	if dynslave['gladiatrix'] > 2 and dynslave['ego'] > 2 and dynslave['temper'] > 2:
		! good accessory for gladiatrix and temperamental bitch
		worn_bonus['mood_rate'] += 5 &! mood increase for B+ gladiatrix skill (not for pets - use collar and leash instead) - ImperatorAugustus
	else
		dynslave['neg_clothes'] = 100 & worn_bonus['mood'] -= 1 &! reason to use leather or ornamented collar in early training - ImperatorAugustus
	end
	dynslave['slave_collar'] = 1 &! equipped with name token
	daily_bonus['instinct'] += 1 &! reminds of her status
	daily_bonus['sensitivity'] -= 1 &! more aggressive
	learn_bonus['gladiatrix'] += 1 &! accessory for gladiatrix
	dynslave['st_plus'] = -1 &! added style penalty - ImperatorAugustus
}

!['golden_collar']
dynamic $ib_cycle, 'golden_collar', 'Ornamented Collar', 20, '   Price: 20 sparks
   A luxurious wide and golden collar. It is adorned with exotic jewels and equipped with your name token to get her back in case of loss. Multiple rings allow for attaching leash and shackles. This stylish accessory will make sure that the slave will not forget that you are her master and she has to obey.', 'scene\item\item_golden_collar'

$item_property['golden_collar'] = {
	if dynslave['passion_luxury'] = 0:
		if dynslave_state = CONST_INT['slave_exist'] and rebell[$dynslave_psy_status] > 0 and dynslave['obedience'] < 0 and dynslave['beaten_ever'] = 0 and dynslave['domini_dictum'] = 0:
			$place = 'study'
			$picture_type = 'dynslave_picture'
			npc = 0 & txt = 1 & $text[1] = '  <<$dynslave_name>> refuses to wear the ornamented collar. Use force to lock the collar on her anyway?'
			$yes = {
				if 'dynslave' = 'slave' and dynslave['gladiatrix'] > max(0, master_supermacy - master_style):
					dynamic $slave_fights_back
				else
					dynamic $replace($dyn_slave_forced, 'dyn'+'slave', 'dynslave')
					dynslave_stat_screen = 2 & gt 'dynslave_stat'
				end
			}
			$no = {
				$dynslave['collar'] = 'пусто' &! empty
				dynslave_inventory['golden_collar'] += 1
				dynslave_stat_screen = 2 & gt 'dynslave_stat'
			}
			gt 'choice_screen'
		end
	end
	if dynslave['passion_luxury'] > 0: worn_bonus['mood_rate'] += 5 & dynslave['passion_luxury_revealed'] = max(1, dynslave['passion_luxury_revealed']) &! sybarite loves luxurious items - ImperatorAugustus
	dynslave['slave_collar'] = 1 &! equipped with name token
	daily_bonus['instinct'] += 1 &! will not forget you are her master
	dynslave['ex_plus'] += 2 &! best in slot
	dynslave['st_plus'] += 2 &! as stylish as a gemstone necklace
}

!ITEMS WORN ON HANDS OR FEET

!['leather_straps']
dynamic $ib_cycle, 'leather_straps', 'Leather Shackles', 5, '   Price: 5 sparks
   A pair of sturdy leather bracelets with steel rings for fixing chains. Can be worn on the hands or feet, and successfully used in any bondage. Very practical!', 'scene\item\item_leather_straps'

$item_property['leather_straps'] = {
	dynslave['deprivation_attitude_revealed'] = max(1, dynslave['deprivation_attitude_revealed']) &! always reveals trait when worn - ImperatorAugustus
	if dynslave['deprivation_attitude'] = 2:
		! deprivation attitude 2 = loves helplessness - ImperatorAugustus
		worn_bonus['mood_rate'] += 5
		if master_style >= 3: daily_bonus['arousal'] += 1
	elseif dynslave['deprivation_attitude'] = -1:
		! deprivation attitude -1 = claustrophobic - ImperatorAugustus
		dynslave['neg_clothes'] = 100
		worn_bonus['mood'] -= 2
		daily_bonus['arousal'] -= 2
	else
		dynslave['neg_clothes'] = 100
		worn_bonus['mood_rate'] -= 5
	end
	learn_bonus['sex'] += 1 &! used in any bondage
	dynslave['st_plus'] = -1 &! added style penalty - ImperatorAugustus
}

!ITEMS FOR ANIMAL ROLEPLAY (TAIL IS CLOTHING SLOT, HARNESS IS HAND SLOT)

!['anal_tail']
dynamic $ib_cycle, 'anal_tail', 'Anal Tail', 10, '   Price: 10 sparks
   This device consists of two parts - a large plastic phallus with an extension that provides a secure fit in the ass, and a set of removable tails. Well suited for animal play and increases the arousal of your slave. But it’s true that the tail prevents wearing ordinary clothes.', 'scene\item\item_anal_tail'

$item_property['anal_tail'] = {
	if dynslave['dressage_affinity'] = 0 and dynslave['pet_affinity'] = 0:
		if dynslave_state = CONST_INT['slave_exist'] and rebell[$dynslave_psy_status] > 0 and dynslave['obedience'] < 0 and dynslave['beaten_ever'] = 0 and dynslave['domini_dictum'] = 0:
			$place = 'study'
			$picture_type = 'dynslave_picture'
			npc = 0 & txt = 1 & $text[1] = '  <<$dynslave_name>> refuses to wear the anal tail. Use force to make her wear it anyway?'
			$yes = {
				if 'dynslave' = 'slave' and dynslave['gladiatrix'] > max(0, master_supermacy - master_style):
					dynamic $slave_fights_back
				else
					dynamic $replace($dyn_slave_forced, 'dyn'+'slave', 'dynslave')
					dynslave_stat_screen = 2 & gt 'dynslave_stat'
				end
			}
			$no = {
				$dynslave['cloth'] = 'голая' &! naked
				dynslave_inventory['anal_tail'] += 1
				dynslave_stat_screen = 2 & gt 'dynslave_stat'
			}
			gt 'choice_screen'
		end
	end
	if dynslave['dressage_affinity'] = 0 and dynslave['pet_affinity'] = 0 and dynslave['has_ride_win'] < 7 and $dynslave_psy_status ! 'horny': dynslave['neg_clothes'] = 100 & worn_bonus['mood_rate'] -= dynslave['pride']*5
	if dynslave['dressage_affinity'] > 0 or dynslave['pet_affinity'] > 0:
		dynslave['dressage_affinity_revealed'] = max(1, dynslave['dressage_affinity_revealed']) &! always reveals trait when worn - ImperatorAugustus
		dynslave['pet_affinity_revealed'] = max(1, dynslave['pet_affinity_revealed']) &! always reveals trait when worn - ImperatorAugustus
		worn_bonus['mood_rate'] += 5
	end
	learn_bonus['pet'] += 2 &! well suited for animal play (more for pet)
	learn_bonus['dressage'] += 1 &! well suited for animal play (less for pony)
	daily_bonus['arousal'] += 2 &! increases arousal
	daily_bonus['pride'] -= 1 &! anal is degrading
	dynslave['st_plus'] = -2 &! added style penalty - ImperatorAugustus
}

!['pony_plume']
dynamic $ib_cycle, 'pony_plume', 'Plumed Bridle', 10, '   Price: 10 sparks
   It’s just a necessary accessory for any ponygirl. The leather bridle is securely locked in the mouth gag and a bit and reins are already connected. Thick leather blinkers allow for the slave only to look straight ahead and a bright and high plume makes the whole construction look pleasing to the eye.', 'scene\item\item_pony_plume'

$item_property['pony_plume'] = {
	if dynslave['dressage_affinity'] = 0:
		if dynslave_state = CONST_INT['slave_exist'] and rebell[$dynslave_psy_status] > 0 and dynslave['obedience'] < 0 and dynslave['beaten_ever'] = 0 and dynslave['domini_dictum'] = 0:
			$place = 'study'
			$picture_type = 'dynslave_picture'
			npc = 0 & txt = 1 & $text[1] = '  <<$dynslave_name>> refuses to wear the plumed bridle. Use force to make her wear it anyway?'
			$yes = {
				if 'dynslave' = 'slave' and dynslave['gladiatrix'] > max(0, master_supermacy - master_style):
					dynamic $slave_fights_back
				else
					dynamic $replace($dyn_slave_forced, 'dyn'+'slave', 'dynslave')
					dynslave_stat_screen = 2 & gt 'dynslave_stat'
				end
			}
			$no = {
				$dynslave['headband'] = 'пусто' &! empty
				dynslave_inventory['pony_plume'] += 1
				dynslave_stat_screen = 2 & gt 'dynslave_stat'
			}
			gt 'choice_screen'
		end
	end
	if dynslave['dressage_affinity'] > 0:
		dynslave['dressage_affinity_revealed'] = max(1, dynslave['dressage_affinity_revealed']) &! always reveals trait when worn - ImperatorAugustus
		worn_bonus['mood_rate'] += 5
	elseif dynslave['has_ride_win'] < 4:
		dynslave['neg_clothes'] = 100 & worn_bonus['mood'] -= 2
	end
	daily_bonus['instinct'] += 3 &! restraints induce taming (more than crown of thorns) - ImperatorAugustus
	daily_bonus['pride'] -= 1 &! mouth gag is degrading
	learn_bonus['dressage'] += 3 &! for ponygirl
	dynslave['st_plus'] += 1 &! pleasing to the eye
}

!['ponygirl_harness']
dynamic $ib_cycle, 'ponygirl_harness', 'Pony Harness', 10, '   Price: 10 sparks
   The main objective of this leather corset is to fix a ponygirl’s hands behind her back so that she can no longer use them. A big ring in the area of the fixed hands provides the convenience of rides and additional straps in the front provide a fixation and emphasize the breasts.', 'scene\item\item_harness'

$item_property['ponygirl_harness'] = {
	if dynslave['dressage_affinity'] = 0:
		if dynslave_state = CONST_INT['slave_exist'] and rebell[$dynslave_psy_status] > 0 and dynslave['obedience'] < 0 and dynslave['beaten_ever'] = 0 and dynslave['domini_dictum'] = 0:
			$place = 'study'
			$picture_type = 'dynslave_picture'
			npc = 0 & txt = 1 & $text[1] = '  <<$dynslave_name>> refuses to wear the pony harness. Use force to make her wear it anyway?'
			$yes = {
				if 'dynslave' = 'slave' and dynslave['gladiatrix'] > max(0, master_supermacy - master_style):
					dynamic $slave_fights_back
				else
					dynamic $replace($dyn_slave_forced, 'dyn'+'slave', 'dynslave')
					dynslave_stat_screen = 2 & gt 'dynslave_stat'
				end
			}
			$no = {
				$dynslave['gloves'] = 'пусто' &! empty
				dynslave_inventory['ponygirl_harness'] += 1
				dynslave_stat_screen = 2 & gt 'dynslave_stat'
			}
			gt 'choice_screen'
		end
	end
	! body-shy, insufficiently-aroused slaves dislike revealing outfits (leather corset, emphasize the breasts) - ImperatorAugustus
	if dynslave['exhibitionism'] < 0 and $dynslave_psy_status ! 'horny': dynslave['neg_clothes'] = 100 & worn_bonus['mood'] -= 1 & dynslave['exhibitionism_revealed'] = max(1, dynslave['exhibitionism_revealed'])
	! slaves who love helplessness feel better when tied up while those inured to it are less unaffected and those who are afraid of it feel worse
	if dynslave['deprivation_attitude'] = 2:  worn_bonus['mood'] += 1 & dynslave['deprivation_attitude_revealed'] = max(1, dynslave['deprivation_attitude_revealed']) &! Loves Helplessness (2)
	if dynslave['deprivation_attitude'] = -1: worn_bonus['mood'] -= 1 & dynslave['deprivation_attitude_revealed'] = max(1, dynslave['deprivation_attitude_revealed']) &! Claustrophobic (-1)
	! the effects above can stack with the effects below
	if dynslave['dressage_affinity'] > 0:
		dynslave['dressage_affinity_revealed'] = max(1, dynslave['dressage_affinity_revealed']) &! always reveals trait when worn - ImperatorAugustus
		worn_bonus['mood'] += 1 &! can stack with shy and claustrophic for a combined -1, or loves helplessness can elevate it to +2
	elseif dynslave['deprivation_attitude'] = 1:
		dynslave['deprivation_attitude_revealed'] = max(1, dynslave['deprivation_attitude_revealed']) &! Inured (1)
		! trait blocks negative mood - ImperatorAugustus
	elseif dynslave['has_ride_win'] < 4:
		dynslave['neg_clothes'] = 100
		worn_bonus['mood'] -= 2 &! can stack with shy and claustrophic for a combined -4, or loves helplessness can mitigate it to -1
	end
	daily_bonus['instinct'] += 3 &! restraints induce taming (equivalent to petsuit but different slot)
	learn_bonus['dressage'] += 4 &! for ponygirl
	dynslave['st_plus'] = -2 &! added style penalty - ImperatorAugustus
}

!['hoofed_boots']
dynamic $ib_cycle, 'hoofed_boots', 'Hooved Boots', 25, '   Price: 25 sparks
   This is a special kind of boots with heels, imitating horse hooves. Walking with them is even more uncomfortable than with usual heels, but they look stylish and they can be used to stomp loudly, showing your temper.', 'scene\item\item_hoofs'

$item_property['hoofed_boots'] = {
	! slave will not refuse to wear these like they refuse other pony gear - ImperatorAugustus
	dynslave['dressage_affinity_revealed'] = max(1, dynslave['dressage_affinity_revealed']) &! always reveals trait when worn - ImperatorAugustus
	if dynslave['dressage_affinity'] = 0 and dynslave['has_ride_win'] < 4: dynslave['neg_clothes'] = 100 & worn_bonus['mood_rate'] -= 15 &! -1.5 mood, more uncomfortable than high_heels or high_boots
	if dynslave['temper'] > 2: daily_bonus['temper'] += 1 &! showing temper, effect shared with high_boots - ImperatorAugustus
	learn_bonus['dressage'] += 5 &! better for learning than other items to compensate for higher price - ImperatorAugustus
	dynslave['st_plus'] += 1 &! look stylish (but less than high_heels and high_boots) - ImperatorAugustus
}

!['cow_gear']
dynamic $ib_cycle, 'cow_gear', 'Cow Gear', 25, '   Price: 25 sparks
   Tail, ears, and a nice bell with your name engraved on it: all indispensable elements to remind your cow of her role. The ringing can be a bit mind-numbing, though.', 'scene\item\item_cow_gear'

$item_property['cow_gear'] = {
	if dynslave['cowSK_affinity'] = 0 and dynslave['cowSK'] < 3 and dynslave['pet'] < 3:
		if dynslave_state = CONST_INT['slave_exist'] and rebell[$dynslave_psy_status] > 0 and dynslave['obedience'] < 0 and dynslave['beaten_ever'] = 0 and dynslave['domini_dictum'] = 0:
			$place = 'study'
			$picture_type = 'dynslave_picture'
			npc = 0 & txt = 1 & $text[1] = '  <<$dynslave_name>> refuses to wear the cow gear. Use force to make her wear it anyway?'
			$yes = {
				if 'dynslave' = 'slave' and dynslave['gladiatrix'] > max(0, master_supermacy - master_style):
					dynamic $slave_fights_back
				else
					dynamic $replace($dyn_slave_forced, 'dyn'+'slave', 'dynslave')
					dynslave_stat_screen = 2 & gt 'dynslave_stat'
				end
			}
			$no = {
				$dynslave['cloth'] = 'голая' &! naked
				dynslave_inventory['cow_gear'] += 1
				dynslave_stat_screen = 2 & gt 'dynslave_stat'
			}
			gt 'choice_screen'
		end
	end
	if dynslave['cowSK_affinity'] > 0:
		dynslave['pos_clothes'] = 100 &! affinity finds the outfit comfortable, but wearing it does not reveal the trait - ImperatorAugustus
	elseif max(dynslave['cowSK'], dynslave['pet']) < 3:
		! conditioned mood effect on cow or pet training (B+ or higher accepts the gear without a mood penalty) - ImperatorAugustus
		dynslave['neg_clothes'] = 100
		worn_bonus['mood_rate'] -= 5
	end
	learn_bonus['cowSK'] += 2 &! remind cow of her role
	daily_bonus['pride'] -= 1 &! tail is degrading
	if dynslave['intellect'] > 2: daily_bonus['intellect'] -= 1 &! mind-numbing (intellect drain stops at C-, Dimwitted - ImperatorAugustus)
	dynslave['st_plus'] = -2 &! added style penalty - ImperatorAugustus
}

!['petsuit']
dynamic $ib_cycle, 'petsuit', 'Petsuit', 25, '   Price: 25 sparks
   This version of a deprivation suit does not impede vision or hearing. It is made so that the wearer acts like a cat or a dog. Allows you to move only on all fours, leaning on elbows and knees.', 'scene\item\item_petsuit'

$item_property['petsuit'] = {
	! these conditions must be kept in sync with next_day pet_rule evaluation to avoid interrupting next_day processing with an equip refusal
	if dynslave['pride'] >= 2 and dynslave['pet_affinity'] = 0 and dynslave['pet'] < 3 and dynslave['deprivation_attitude'] <= 0:
		if dynslave_state = CONST_INT['slave_exist'] and rebell[$dynslave_psy_status] > 0 and dynslave['obedience'] < 0 and dynslave['beaten_ever'] = 0 and dynslave['domini_dictum'] = 0:
			$place = 'study'
			$picture_type = 'dynslave_picture'
			npc = 0 & txt = 1 & $text[1] = '  <<$dynslave_name>> refuses to wear the petsuit. Use force to make her wear it anyway?'
			$yes = {
				if 'dynslave' = 'slave' and dynslave['gladiatrix'] > max(0, master_supermacy - master_style):
					dynamic $slave_fights_back
				else
					dynamic $replace($dyn_slave_forced, 'dyn'+'slave', 'dynslave')
					dynslave_stat_screen = 2 & gt 'dynslave_stat'
				end
			}
			$no = {
				$dynslave['cloth'] = 'голая' &! naked
				dynslave_inventory['petsuit'] += 1
				dynslave_stat_screen = 2 & gt 'dynslave_stat'
			}
			gt 'choice_screen'
		end
	end
	dynslave['deprivation_attitude_revealed'] = max(1, dynslave['deprivation_attitude_revealed']) &! always reveals trait when worn - ImperatorAugustus
	if dynslave['deprivation_attitude'] = 2:
		worn_bonus['mood'] += 1
	else
		dynslave['neg_clothes'] = 100
		worn_bonus['mood'] -= 1 - dynslave['deprivation_attitude'] &! less restrictive than pet suit (1 for inured, -1 for claustrophobic)
		daily_bonus['ego'] -= 1 &! like behave pet rule - ImperatorAugustus
	end
	daily_bonus['pride']        -= 1 &! being forced to act like an animal is degrading - ImperatorAugustus
	daily_bonus['instinct']     += 3 &! restraints induce taming (equivalent to pony harness but different slot) - ImperatorAugustus
	learn_bonus['pet']          += 3 &! act like a cat or dog (best in slot, anal tail gives +2) - ImperatorAugustus
	! interferes with lessons
	learn_bonus['service']      -= 10
	learn_bonus['cook']         -= 10
	learn_bonus['secretary']    -= 10
	learn_bonus['expression']   -= 10
	learn_bonus['nurse']        -= 10
	learn_bonus['alchemy']      -= 10
	learn_bonus['enchanter']    -= 10
	learn_bonus['stamina']      -= 10
	learn_bonus['gladiatrix']   -= 10
	learn_bonus['calisthenics'] -= 10
	learn_bonus['music']        -= 10
	learn_bonus['art']          -= 10
	learn_bonus['dressage']     -= 10
	learn_bonus['cowSK']        -= 10
	dynslave['st_plus'] = -2
	dynslave['ex_plus'] = 1
}

!['deprivation_suit']
dynamic $ib_cycle, 'deprivation_suit', 'Deprivation Suit', 50, '   Price: 50 sparks
   Although it is called a suit, it is not intended to be worn as such, it’s for radical bondage. The thick rubber shell and durable leather belts prevent any movement and apply a constant uniform pressure. The eyes, ears and mouth are tightly shut to completely cut off the wearer from the outside world.', 'scene\item\item_dsuit'

$item_property['deprivation_suit'] = {
	if dynslave['deprivation_attitude'] <= 0:
		if dynslave_state = CONST_INT['slave_exist'] and rebell[$dynslave_psy_status] > 0 and dynslave['obedience'] < 0 and dynslave['beaten_ever'] = 0 and dynslave['domini_dictum'] = 0:
			$place = 'study'
			$picture_type = 'dynslave_picture'
			npc = 0 & txt = 1 & $text[1] = '  <<$dynslave_name>> refuses to wear the deprivation suit. Use force to make her wear it anyway?'
			$yes = {
				if 'dynslave' = 'slave' and dynslave['gladiatrix'] > max(0, master_supermacy - master_style):
					dynamic $slave_fights_back
				else
					dynamic $replace($dyn_slave_forced, 'dyn'+'slave', 'dynslave')
					dynslave_stat_screen = 2 & gt 'dynslave_stat'
				end
			}
			$no = {
				$dynslave['cloth'] = 'голая' &! naked
				dynslave_inventory['deprivation_suit'] += 1
				dynslave_stat_screen = 2 & gt 'dynslave_stat'
			}
			gt 'choice_screen'
		end
	end
	dynslave['deprivation_attitude_revealed'] = max(1, dynslave['deprivation_attitude_revealed']) &! always reveals trait when worn - ImperatorAugustus
	if dynslave['deprivation_attitude'] = 2:
		worn_bonus['mood'] += 1
	else
		dynslave['neg_clothes'] = 100
		worn_bonus['mood'] -= 2 - dynslave['deprivation_attitude'] &! more restrictive than pet suit (1 for inured, -1 for claustrophobic)
		daily_bonus['temper'] -= 1 &! like behave silence rule - ImperatorAugustus
	end
	daily_bonus['instinct']     += 4 &! restraints induce taming (best in slot) - ImperatorAugustus
	! interferes with lessons
	learn_bonus['pet']          -= 10
	learn_bonus['service']      -= 10
	learn_bonus['cook']         -= 10
	learn_bonus['secretary']    -= 10
	learn_bonus['expression']   -= 10
	learn_bonus['nurse']        -= 10
	learn_bonus['alchemy']      -= 10
	learn_bonus['enchanter']    -= 10
	learn_bonus['stamina']      -= 10
	learn_bonus['gladiatrix']   -= 10
	learn_bonus['calisthenics'] -= 10
	learn_bonus['music']        -= 10
	learn_bonus['art']          -= 10
	learn_bonus['dressage']     -= 10
	learn_bonus['cowSK']        -= 10
	dynslave['st_plus'] = -4
	dynslave['ex_plus'] = 2
}

!ONE TIME PURCHASES FOR RULES OR RULE ENFORCEMENT

!['vaginal_balls']
dynamic $ib_cycle, 'vaginal_balls', 'Vaginal Beads', 5, '   Price: 5 sparks
   A pair of beads on a string with a ring designed for extended wear in the vagina. They are excellent to help build arousal and develop muscles.', 'scene\item\item_vaginal_balls'

$item_property['vaginal_balls'] = {
}

!['anal_plug']
dynamic $ib_cycle, 'anal_plug', 'Anal Pear', 20, '   Price: 20 sparks
   Unlike the normal anal plug, this pear has a screw that allows you to expand it after inserting it in the ass. The screw is fixed with a small padlock, so there is no way to remove the pear without the key.', 'scene\item\item_toys'

$item_property['anal_plug'] = {}

!['secure_gag']
dynamic $ib_cycle, 'secure_gag', 'Reliable Gag', 20, '   Price: 20 sparks
   This impressive steel structure inherits the best traits of the horse bridle and dental reamer. You cannot remove it without the key and the mouth is fixed in the maximum open state.', 'scene\item\item_secure_gag'

$item_property['secure_gag'] = {
}

!['chastity belt']
dynamic $ib_cycle, 'chastity_belt', 'Chastity Belt', 30, '   Price: 30 sparks
   A solid garment of steel and leather that prevents all access to the vagina for anybody but the keyholder.', 'scene\item\item_chastity_belt'

$item_property['chastity_belt'] = {
}

!['pissuar_stable']
dynamic $ib_cycle, 'pissuar_stable', 'Urinal Rack', 100, '   Price: 100 sparks
   This piece of furniture does not take up too much space, as its main component is a slave. The rack is equipped with robust clamps for hands, feet and the head. It comes with a ring expander for the mouth as well as a nose clip. You can also set a transparent headband bowl of a «drink or choke» type.', 'scene\item\item_pissuar'

$item_property['pissuar_stable'] = {
}

!['toilet_stable']
dynamic $ib_cycle, 'toilet_stable', 'Toilet Seat', 250, '   Price: 250 sparks
   A pretty massive piece of furniture, but it is well worth it. The construct completely immobilizes the slave and only her head sticks out. A special device makes sure that her mouth is open at all times so it can be used to take a dump. The massive construction prevents any attempts to escape.', 'scene\item\item_toilet'

$item_property['toilet_stable'] = {
}

!PRESENTS

!Букет ['bouqet']
dynamic $ib_cycle, 'bouqet', 'Bouquet of Flowers ($2)', 2, '   A small but very beautiful bouquet of flowers. This is a special ripening variety, grown hydroponically in the technosphere - only blooms for one day, but quite affordable.', 'scene\item\item_bouqet'

$item_property['bouqet'] = {}

!Плед ['plaid']
dynamic $ib_cycle, 'plaid', 'Warm Plaid ($9)', 9, '   Great soft weave with a scot-pattern. Wrapped in this plaid, a slave will feel comfortable and warm when she rests during the day or in her bedroll, and it will be easier to go through difficult times in life.', 'scene\item\item_plaid'

$item_property['plaid'] = {
	if (dynslave['sleep_condition'] = 0 and 'dynslave' = 'slave') or dynslave['well_rested'] > 0: daily_bonus['angst'] -= 1 &! reduces angst nightly if used during the day or in her bedroll
}

!Мягкая игрушка ['stuffed_toy']
dynamic $ib_cycle, 'stuffed_toy', 'Plush Toy ($15)', 15, '   A rather large and expensive toy will be a good gift. Will also keep the slave warm, lying on a thin bedroll near the door.', 'scene\item\item_stuffed_toy'

$item_property['stuffed_toy'] = {
	if dynslave['sleep_condition'] = 0 and 'dynslave' = 'slave': daily_bonus['half_action'] -= 1 &! increases energy by a half-star overnight when sleeping on a bedroll
}

!Духи ['perfume']
dynamic $ib_cycle, 'perfume', 'Perfume ($20)', 20, '   A beautiful bottle of perfume with a magnificent composition, brought through the fog. Of course, such a gift will please any woman, but you are pursuing two purposes - your slave will also be more stylish and more desirable for customers. And using it will help her grow accustomed to her fate.', 'scene\item\item_perfume'

$item_property['perfume'] = {
	if 'dynslave' ! 'prisoner' and arrpos('$livestock_slave_characters', 'dynslave') = -1: daily_bonus['custom'] += 1
}

!Мини-пони ['pony']
dynamic $ib_cycle, 'pony', 'Mini-Pony ($50)', 50, '   These incredibly cute creatures the size of a cat are grown from eggs in the technosphere. Their life expectancy is not very long and they are inedible, but they are faithful and lovely. You will have to pay for food regularly. (1 spark/day)', 'scene\item\item_pony'

$item_property['pony'] = {
	dynslave['pos_pony'] = 1
}

--- #item_base ---------------------------------