# bras
!!This is separate bras file and that means underwear['type'] = 0
!!2021/04/15
!!gs 'bras', 'dispose'
!!gs 'bras', 'remove'
!!gs 'bras', 'wear'
if $ARGS[0] = 'view_bra_list':
!! ARGS 0 - view_bra_list
!! ARGS 1 - action type (draw, store, unwanted)
if $pursepantytype ! '' or $pursebratype ! '':
'
You put the '+iif($pursepantytype ! '','panties','')+iif($pursepantytype ! '' and $pursebratype ! '',' and ','')+iif($pursebratype ! '','bra','')+' from your purse back in the wardrobe.
'
killvar '$pursepantytype' & killvar 'pursepantynumber'
killvar '$pursebratype' & killvar 'pursebranumber'
end
if $ARGS[1] ! 'bathroom':
act 'Return': gt 'wardrobe', 'main'
else
act 'Return': gt $loc, $loc_arg
end
if $ARGS[1] = 'wardrobe':
metka_bras = 0
end
if $ARGS[1] = 'store':
metka_bras = 1
end
if $ARGS[1] = 'unwanted':
metka_bras = 2
end
''
if $braworntype ! 'none':act 'Remove bra':gs 'bras', 'remove' & gt 'bras', 'view_bra_list', $ARGS[1]
if $ARGS[1] = 'store':
cloc = 1
end
''
i = 1
:loopcheapbras
if cheap_brasS[i] = metka_bras and cheap_bras[i] = 1:*p ''
i += 1
if i <= ARRSIZE('cheap_bras'):jump 'loopcheapbras'
''
i = 1
:loopboutiquebras
if boutique_brasS[i] = metka_bras and boutique_bras[i] = 1:*p ''
i += 1
if i <= ARRSIZE('boutique_bras'):jump 'loopboutiquebras'
''
i = 1
:loopexhibitionistbras
if exhibitionist_brasS[i] = metka_bras and exhibitionist_bras[i] = 1:*p ''
i += 1
if i <= ARRSIZE('exhibitionist_bras'):jump 'loopexhibitionistbras'
''
i = 1
:loopfashionistabras
if fashionista_brasS[i] = metka_bras and fashionista_bras[i] = 1:*p ''
i += 1
if i <= ARRSIZE('fashionista_bras'):jump 'loopfashionistabras'
''
i = 1
:loopcatsbras
if cats_brasS[i] = metka_bras and cats_bras[i] = 1:*p ''
i += 1
if i <= ARRSIZE('cats_bras'):jump 'loopcatsbras'
''
i = 1
:loopsexshopbras
if sexshop_brasS[i] = metka_bras and sexshop_bras[i] = 1:*p ''
i += 1
if i <= ARRSIZE('sexshop_bras'):jump 'loopsexshopbras'
''
i = 1
:loopsportbras
if sport_brasS[i] = metka_bras and sport_bras[i] = 1:*p ''
i += 1
if i <= ARRSIZE('sport_bras'):jump 'loopsportbras'
end
if $ARGS[0] = 'view_bra_item':
!! ARGS 0 - view_bra_item
!! ARGS 1 = action type (wardrobe, bathroom, shop)
!! ARGS 2 - bra type
!! ARGS 3 - bra index
!! ARGS 4 - price for shop
cla
''
gs 'underwear_attributes', $ARGS[2]+'_bras', ARGS[3]
!! $RESULT = FUNC('$short_description', $ARGS[2], CloStyle2)
!! $RESULT += '<>'
!! '<<$RESULT>>'
if BraQuality > 0:
gs 'underwear_descriptions', 'bras'
'This bra forms a set with panty #<>.'
else
gs 'bras', 'descriptions', $ARGS[2]
end
if $ARGS[1] = 'shop':
if dyneval('RESULT = <<$ARGS[2]>>_bras[<>]') = 1:
'You already own this item.'
act 'Leave': gt $loc, $loc_arg
else
price = ARGS[4]
'Price: <> ₽'
act 'Leave': gt $loc, $loc_arg
if money >= price:
act 'Buy (cash)':
money -= price
dynamic $ARGS[2] + '_bras[<>] = 1'
dynamic $ARGS[2] + '_brasS[<>] = 0'
gt $loc, $loc_arg
end
else
'You do not have enough cash to buy this bra.'
end
if karta + bankDebtLimit >= price:
act 'Buy (card)':
karta -= price
dynamic $ARGS[2] + '_bras[<>] = 1'
dynamic $ARGS[2] + '_brasS[<>] = 0'
gt $loc, $loc_arg
end
else
'You do not have enough money in your bank to buy this bra.'
end
if underwear['pair'] > 0:
if dyneval('RESULT = <<$ARGS[2]>>_panties[<>]') = 1:
'You own the matching panties buying this bra will complete the set.'
else
'You do not own the matching panties, you can buy this bra and them as a set.'
price_set = ARGS[4]*18/10
'Price for set: <> ₽'
if money >= price_set:
act 'Buy set (cash)':
money -= price_set
dynamic $ARGS[2] + '_bras[<>] = 1'
dynamic $ARGS[2] + '_brasS[<>] = 0'
dynamic $ARGS[2] + '_panties[<>] = 1'
dynamic $ARGS[2] + '_pantiesS[<>] = 0'
gt $loc, $loc_arg
end
else
'You do not have enough cash to buy this set.'
end
if karta + bankDebtLimit >= price_set:
act 'Buy set (card)':
karta -= price_set
dynamic $ARGS[2] + '_bras[<>] = 1'
dynamic $ARGS[2] + '_brasS[<>] = 0'
dynamic $ARGS[2] + '_panties[<>] = 1'
dynamic $ARGS[2] + '_pantiesS[<>] = 0'
gt $loc, $loc_arg
end
else
'You do not have enough money in your bank to buy this set.'
end
end
end
end
else
act 'Return':gt 'bras', 'view_bra_list', $ARGS[1]
if $ARGS[1] = 'store':
'This bra is in storage.'
elseif $ARGS[1] = 'unwanted':
'This bra is unwanted.'
else
if $braworntype = $ARGS[2] and brawornnumber = ARGS[3]:
'You are wearing this bra.'
else
if metka_bras = 0:
act 'Wear':
if CloBra = 1:
msg'You cannot wear a bra with this top'
else
if hypnoBra > 0:
cla
*clr
'You pick up the bra and think about trying them on... but you don''t really like wearing bras.'
gs 'willpower', 'misc', 'resist', 'easy'
will_cost += hypnoTime
if will_cost <= pcs_willpwr:
act 'Put them on anyways (<> Willpower)':
gs 'willpower', 'pay', 'resist'
gs 'stat'
gs 'bras', 'wear', $ARGS[2], ARGS[3]
if $ARGS[1] = 'wardrobe':
gt 'wardrobe', 'main'
else
gt $loc, $loc_arg
end
end
else
act 'Put them on anyways (<> Willpower)': '
You don''t have enough willpower to use this action.'
end
act 'Back':
gt 'wardrobe', 'main'
end
else
gs 'bras', 'wear', $ARGS[2], ARGS[3]
if $ARGS[1] = 'wardrobe':
gt 'wardrobe', 'main'
else
gt $loc, $loc_arg
end
end
end
end
if underwear['pair'] > 0:
if dyneval('RESULT = <<$ARGS[2]>>_panties[<>]') = 1:
'You own these panties and can wear this set.'
act 'Wear set':
if CloBra = 1:
msg'You cannot wear a bra with this top'
elseif CloPanties = 1:
msg'You cannot wear a panties with this outfit'
else
if hypnoBra > 0 and hypnoPanty > 0:
cla
*clr
'You pick up the bra and panties and think about trying them on... but you don''t really like wearing underwear.'
gs 'willpower', 'misc', 'resist'
will_cost += hypnoTime
if will_cost <= pcs_willpwr:
act 'Wear it anyway anyways (<> Willpower)':
gs 'willpower', 'pay', 'resist'
gs 'stat'
gs 'panties', 'wear', $ARGS[2], underwear['pair']
gs 'bras', 'wear', $ARGS[2], ARGS[3]
if $ARGS[1] = 'wardrobe':
gt 'wardrobe', 'main'
else
gt $loc, $loc_arg
end
end
else
act 'Wear it anyway anyways (<> Willpower)': '
You don''t have enough willpower to use this action.'
end
act 'Back':
gt 'wardrobe', 'main'
end
elseif hypnoBra > 0:
cla
*clr
'You pick up the bra and think about trying them on... but you don''t really like wearing bras.'
gs 'willpower', 'misc', 'resist', 'easy'
will_cost += hypnoTime
if will_cost <= pcs_willpwr:
act 'Put them on anyways (<> Willpower)':
gs 'willpower', 'pay', 'resist'
gs 'stat'
gs 'panties', 'wear', $ARGS[2], underwear['pair']
gs 'bras', 'wear', $ARGS[2], ARGS[3]
if $ARGS[1] = 'wardrobe':
gt 'wardrobe', 'main'
else
gt $loc, $loc_arg
end
end
else
act 'Put them on anyways (<> Willpower)': '
You don''t have enough willpower to use this action.'
end
act 'Back':
gt 'wardrobe', 'main'
end
elseif hypnoPanty > 0:
cla
*clr
'You pick up the panties and think about trying them on... but you don''t really like wearing panties.'
gs 'willpower', 'misc', 'resist', 'easy'
will_cost += hypnoTime
if will_cost <= pcs_willpwr:
act 'Put them on anyways (<> Willpower)':
gs 'willpower', 'pay', 'resist'
gs 'stat'
gs 'panties', 'wear', $ARGS[2], underwear['pair']
gs 'bras', 'wear', $ARGS[2], ARGS[3]
if $ARGS[1] = 'wardrobe':
gt 'wardrobe', 'main'
else
gt $loc, $loc_arg
end
end
else
act 'Put them on anyways (<> Willpower)': '
You don''t have enough willpower to use this action.'
end
act 'Back':
gt 'wardrobe', 'main'
end
else
gs 'panties', 'wear', $ARGS[2], underwear['pair']
gs 'bras', 'wear', $ARGS[2], ARGS[3]
if $ARGS[1] = 'wardrobe':
gt 'wardrobe', 'main'
else
gt $loc, $loc_arg
end
end
end
end
else
'You do not own the matching panties to make this set.'
end
end
end
end
if $ARGS[1] ! 'store':
act 'Move to storage': gt 'bras', 'dest1', $ARGS[1], $ARGS[2], ARGS[3]
end
if $ARGS[1] ! 'unwanted':
act 'Move to unwanted': gt 'bras', 'dest2', $ARGS[1], $ARGS[2], ARGS[3]
end
if $ARGS[1] ! 'wardrobe':
act 'Move to wardrobe': gt 'bras', 'dest0', $ARGS[1], $ARGS[2], ARGS[3]
end
act 'Throw this bra away':
dynamic '<<$ARGS[2]>>_panties[<>] = 0'
gt 'wardrobe', 'main'
end
end
end
end
if $ARGS[0] = 'dest0':
*clr
dynamic '<<$ARGS[2]>>_brasS[<>] = 0'
gt 'bras', 'view_bra_item', $ARGS[1], $ARGS[2], ARGS[3]
end
if $ARGS[0] = 'dest1':
*clr
dynamic '<<$ARGS[2]>>_brasS[<>] = 1'
gt 'bras', 'view_bra_item', $ARGS[1], $ARGS[2], ARGS[3]
end
if $ARGS[0] = 'dest2':
*clr
dynamic '<<$ARGS[2]>>_brasS[<>] = 2'
gt 'bras', 'view_bra_item', $ARGS[1], $ARGS[2], ARGS[3]
end
if $ARGS[0] = 'descriptions':
if $ARGS[1] = 'cheap':
'Cheap bra with no redeeming features.'
elseif $ARGS[1] = 'boutique':
'This bra is so beautifully made that your posture and confidence is improved wearing it boosting your appearance even when fully clothed.'
elseif $ARGS[1] = 'exhibitionist':
'This bra is so revealing that it is more exciting than not wearing one and you''ll always feel horny wearing it.'
elseif $ARGS[1] = 'fashionista':
'This bra is well made improving your posture and confidence and slightly boosting your appearance even when fully clothed.'
elseif $ARGS[1] = 'cats':
'This bra feels reassuring and wear it gives your mood a lift.'
elseif $ARGS[1] = 'sexshop':
'Tacky and cheap this bra makes you look like a hooker, this could be a bonus if working as one.'
elseif $ARGS[1] = 'sport':
'This bra is designed for physical exercises to make them less tiring.'
end
end
if $ARGS[0] = 'sum':
$t[0] = 'boutique'
$t[1] = 'cats'
$t[2] = 'exhibitionist'
$t[3] = 'fashionista'
$t[4] = 'cheap'
$t[5] = 'sexshop'
$t[6] = 'sport'
result = 0
i = 0
:loopsumbras_i
$temp = $t[i]
j = 1
:loopsumbras_j
$temp1 = '<<$temp>>_bras[<>]'
$temp2 = '<<$temp>>_brasS[<>]'
dynamic 'if <<$temp1>> = 1 and <<$temp2>> = 0: result +=1'
j += 1
if j <= dyneval('result = arrsize(''<<$temp>>_bras'')') : jump 'loopsumbras_j'
i += 1
if i <= arrsize('$t'): jump 'loopsumbras_i'
if $ARGS[1] = 'dresser': if $braworntype ! 'none' and result > 0: result -= 1
killvar('t')
killvar('temp')
killvar('temp1')
killvar('temp2')
end
if $ARGS[0] = 'dispose':
if underwear['type'] = 2: gs 'underwear_bodysuits', 'dispose'
dynamic $braworntype + '_bras[<>] = 0'
$lastwornbratype = 'none'
lastwornbranumber = 0
$braworntype = 'none'
brawornnumber = 0
end
if $ARGS[0] = 'remove':
if underwear['type'] = 2: gs 'underwear_bodysuits', 'remove'
$lastwornbratype = $braworntype
lastwornbranumber = brawornnumber
$braworntype = 'none'
brawornnumber = 0
underwear['lastworntype'] = 0
end
if $ARGS[0] = 'wear':
if $ARGS[1] = '':
if dyneval('RESULT = <<$lastwornbratype>>_brasS[<>]') = 0 and $lastwornbratype ! '' and underwear['lastworntype'] ! 2:
gs 'bras', 'wear2', $lastwornbratype, lastwornbranumber
else
$braworntype = 'none'
brawornnumber = 0
end
else
if dyneval('RESULT = <<$ARGS[1]>>_brasS[<>]') = 0:
gs 'bras', 'wear2', $ARGS[1], ARGS[2]
else
$braworntype = 'none'
brawornnumber = 0
end
end
end
if $ARGS[0] = 'wear2':
!! ARGS 0 - action
!! ARGS 1 - bras type name
!! ARGS 2 - bras index
!! removing bra or bodysuit if worn
if underwear['type'] = 0:
gs 'bras', 'remove'
else
gs 'underwear_bodysuits', 'remove'
end
underwear['type'] = 0
$braworntype = $ARGS[1]
brawornnumber = ARGS[2]
dynamic $ARGS[1] + '_w[<>] = 1'
gs 'underwear_attributes', $ARGS[1], ARGS[2]
dynamic '<<$ARGS[1]>>_s[<>] = 0'
PBraMaterial = BraMaterial
PBraType = BraType
PBraFun = BraFun
PBraQuality = BraQuality
PBraThinness = BraThinness
PBraCover = BraCover
end
if $ARGS[0] = 'wear_last_worn':
!!contingency
if $lastwornbratype = '': $lastwornbratype = 'none'
gs 'bras', 'wear', $lastwornbratype, lastwornbranumber
end
--- bras ---------------------------------