# bras !!gs 'bras', 'dispose' !!gs 'bras', 'remove' !!gs 'bras', 'wear' if $ARGS[0] = 'dispose': dynamic $braworntype + '_bras[<>] = 0' $lastwornbratype = 'none' lastwornbranumber = 0 $braworntype = 'none' brawornnumber = 0 end if $ARGS[0] = 'remove': $lastwornbratype = $braworntype lastwornbranumber = brawornnumber $braworntype = 'none' brawornnumber = 0 end if $ARGS[0] = 'wear': if $ARGS[1] = '': bra_none = 0 if $lastwornbratype ! '': $braworntype = $lastwornbratype brawornnumber = lastwornbranumber else $braworntype = 'none' brawornnumber = 0 end else $braworntype = $ARGS[1] brawornnumber = ARGS[2] end end if $ARGS[0] = 'view_bra_list': !! ARGS 0 - view_bra_list !! ARGS 1 - action type (draw, store, unwanted) if $ARGS[1] ! 'bathroom': act 'Return': gt 'wardrobe', 'start' else act 'Return': gt $loc, $metka 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 :loopkatsbras if kats_brasS[i] = metka_bras and kats_bras[i] = 1:*p '' i += 1 if i <= ARRSIZE('kats_bras'):jump 'loopkatsbras' '
' 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 'bra_attributes', $ARGS[2], ARGS[3] !! $RESULT = FUNC('$short_description', $ARGS[2], CloStyle2) !! $RESULT += '<>' !! '<<$RESULT>>' gs 'bras', 'descriptions', $ARGS[2] if $ARGS[1] = 'shop': if dyneval('RESULT = <<$ARGS[2]>>_bras[<>]') = 1: 'You already own this item.' act 'Leave': gt $loc, $metka else price = ARGS[4] 'Price: <> ' act 'Leave': gt $loc, $metka if money >= price: act 'Buy': money -= price dynamic $ARGS[2] + '_bras[<>] = 1' dynamic $ARGS[2] + '_brasS[<>] = 0' gt $loc, $metka end else 'You cannot afford this bra.' end end else if $ARGS[1] ! 'bathroom': if metka_bras ! 1:$RESULT += 'Move these bras to Storage
' if metka_bras ! 0:$RESULT += 'Move these bras to Wardrobe
' if metka_bras ! 2:$RESULT += 'Move these bras to Unwanted' end 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': gs 'bras', 'wear', $ARGS[2], ARGS[3] if $ARGS[1] = 'wardrobe': gt 'wardrobe', 'start' else gt $loc, $metka end 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 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] = 'kats': '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 --- bras ---------------------------------
DrawStorageUnwanted