# panties !!2021/04/15 !!gs 'panties', 'dispose' !!to remove panties and destroy them !!gs 'panties', 'remove' !!To remove panties and store them !!gs 'panties', 'wear' !!To wear panties menu_off = 1 if $ARGS[0] = 'dispose': dynamic $pantyworntype + '_panties[<>] = 0' $lastwornpantytype = 'none' lastwornpantynumber = 0 $pantyworntype = 'none' pantywornnumber = 0 end if $ARGS[0] = 'remove': $lastwornpantytype = $pantyworntype lastwornpantynumber = pantywornnumber $pantyworntype = 'none' pantywornnumber = 0 end if $ARGS[0] = 'wear': panty_none = 0 if $ARGS[1] = '': if $lastwornpantytype ! '': $pantyworntype = $lastwornpantytype pantywornnumber = lastwornpantynumber else $pantyworntype = 'none' pantywornnumber = 0 end else $pantyworntype = $ARGS[1] pantywornnumber = ARGS[2] end end if $ARGS[0] = 'view_panty_list': !! ARGS 0 - view_panty_list !! ARGS 1 - action type (clean, dirty, store, bathroom) 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', 'start' else act 'Return': gt $loc, $loc_arg end if $ARGS[1] = 'wardrobe': metka_panties = 0 end if $ARGS[1] = 'store': metka_panties = 1 end if $ARGS[1] = 'unwanted': metka_panties = 2 end '
' if $pantyworntype ! 'none':act 'Remove panties':gs 'panties', 'remove' & gt 'panties', 'view_panty_list', $ARGS[1] if $ARGS[1] = 'store': cloc = 1 end i = 1 :loopcheappanties if cheap_pantiesS[i] = metka_panties and cheap_panties[i] = 1:*p '' i += 1 if i <= ARRSIZE('cheap_panties'):jump 'loopcheappanties' '
' i = 1 :loopboutiquepanties if boutique_pantiesS[i] = metka_panties and boutique_panties[i] = 1:*p '' i += 1 if i <= ARRSIZE('boutique_panties'):jump 'loopboutiquepanties' '
' i = 1 :loopexhibitionistpanties if exhibitionist_pantiesS[i] = metka_panties and exhibitionist_panties[i] = 1:*p '' i += 1 if i <= ARRSIZE('exhibitionist_panties'):jump 'loopexhibitionistpanties' '
' i = 1 :loopfashionistapanties if fashionista_pantiesS[i] = metka_panties and fashionista_panties[i] = 1:*p '' i += 1 if i <= ARRSIZE('fashionista_panties'):jump 'loopfashionistapanties' '
' i = 1 :loopkatspanties if kats_pantiesS[i] = metka_panties and kats_panties[i] = 1:*p '' i += 1 if i <= ARRSIZE('kats_panties'):jump 'loopkatspanties' '
' i = 1 :loopsexshoppanties if sexshop_pantiesS[i] = metka_panties and sexshop_panties[i] = 1:*p '' i += 1 if i <= ARRSIZE('sexshop_panties'):jump 'loopsexshoppanties' '
' i = 1 :loopsportpanties if sport_pantiesS[i] = metka_panties and sport_panties[i] = 1:*p '' i += 1 if i <= ARRSIZE('sport_panties'):jump 'loopsportpanties' end if $ARGS[0] = 'view_panty_item': !! ARGS 0 - view_panty_item !! ARGS 1 = action type (draw, shop) !! ARGS 2 - panty type !! ARGS 3 - panty index !! ARGS 4 - price for shop cla '
' !! gs 'panty_attributes', $ARGS[2], ARGS[3] !! $RESULT = FUNC('$short_description', $ARGS[2], CloStyle2) !! $RESULT += '<>' !! '<<$RESULT>>' gs 'panties', 'descriptions', $ARGS[2] if $ARGS[1] = 'shop': if dyneval('RESULT = <<$ARGS[2]>>_panties[<>]') = 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] + '_panties[<>] = 1' dynamic $ARGS[2] + '_pantiesS[<>] = 0' gt $loc, $loc_arg end else 'You do not have enough cash to buy these panties.' end if karta + bankDebtLimit >= price: act 'Buy (card)': karta -= price 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 these panties.' end end else if $ARGS[1] ! 'bathroom': if metka_panties ! 1:$RESULT += 'Move these panties to Storage
' if metka_panties ! 0:$RESULT += 'Move these panties to Wardrobe
' if metka_panties ! 2:$RESULT += 'Move these panties to Unwanted' end act 'Return':gt 'panties', 'view_panty_list', $ARGS[1] if $ARGS[1] = 'store': 'These panties are in storage.' elseif $ARGS[1] = 'unwanted': 'These panties are unwanted.' else if $pantyworntype = $ARGS[2] and pantywornnumber = ARGS[3]: 'You are wearing these panties.' else if metka_panties = 0: act 'Wear': if CloPanties = 1: msg'Your outfit is already replacing your panties' end gs 'panties', 'wear', $ARGS[2], ARGS[3] if $ARGS[1] = 'wardrobe': gt 'wardrobe', 'start' else gt $loc, $loc_arg end end end end end if $ARGS[1] ! 'store': act 'Move to storage': gt 'panties', 'dest1', $ARGS[1], $ARGS[2], ARGS[3] end if $ARGS[1] ! 'unwanted': act 'Move to unwanted': gt 'panties', 'dest2', $ARGS[1], $ARGS[2], ARGS[3] end if $ARGS[1] ! 'wardrobe': act 'Move to wardrobe': gt 'panties', 'dest0', $ARGS[1], $ARGS[2], ARGS[3] end end end if $ARGS[0] = 'dest0': *clr dynamic '<<$ARGS[2]>>_pantiesS[<>] = 0' gt 'panties', 'view_panty_item', $ARGS[1], $ARGS[2], ARGS[3] end if $ARGS[0] = 'dest1': *clr dynamic '<<$ARGS[2]>>_pantiesS[<>] = 1' gt 'panties', 'view_panty_item', $ARGS[1], $ARGS[2], ARGS[3] end if $ARGS[0] = 'dest2': *clr dynamic '<<$ARGS[2]>>_pantiesS[<>] = 2' gt 'panties', 'view_panty_item', $ARGS[1], $ARGS[2], ARGS[3] end if $ARGS[0] = 'descriptions': if $ARGS[1] = 'cheap': 'Cheap panties with no redeeming features.' elseif $ARGS[1] = 'boutique': 'These panties are so beautifully made that your posture and confidence is improved wearing them boosting your appearance even when fully clothed.' elseif $ARGS[1] = 'exhibitionist': 'These panties are so revealing that they are more exciting than not wearing any and you''ll always feel horny wearing them.' elseif $ARGS[1] = 'fashionista': 'These panties are well made improving your posture and confidence and slightly boosting your appearance even when fully clothed.' elseif $ARGS[1] = 'kats': 'These panties feel reassuring and wear them gives your mood a lift.' elseif $ARGS[1] = 'sexshop': 'Tacky and cheap these panties make you look like a hooker, this could be a bonus if working as one.' elseif $ARGS[1] = 'sport': 'These panties are designed for physical exercises to make them less tiring.' end end --- panties ---------------------------------
DrawStorageUnwanted