123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495 |
- # panties
- !!This is separate panties file and that means underwear['type'] = 0
- !!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] = 'view_panty_list':
- !! ARGS 0 - view_panty_list
- !! ARGS 1 - action type (clean, dirty, store, bathroom)
-
- if $pursepantytype ! '' or $pursebratype ! '':
- '<center><b>You put the '+iif($pursepantytype ! '','panties','')+iif($pursepantytype ! '' and $pursebratype ! '',' and ','')+iif($pursebratype ! '','bra','')+' from your purse back in the wardrobe.</b></center><br>'
- 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_panties = 0
- end
- if $ARGS[1] = 'store':
- metka_panties = 1
- end
- if $ARGS[1] = 'unwanted':
- metka_panties = 2
- end
- '<center><table border=1><TH><a href="exec:gt ''panties'', ''view_panty_list'', ''wardrobe''">Draw</a></TH><TH><a href="exec:gt ''panties'', ''view_panty_list'', ''store''">Storage</a></TH><TH><a href="exec:gt ''panties'', ''view_panty_list'', ''unwanted''">Unwanted</a></TH></table></center>'
- if $pantyworntype ! 'none':act 'Remove panties':gs 'panties', 'remove' & gt 'panties', 'view_panty_list', $ARGS[1]
-
- if $ARGS[1] = 'store':
- cloc = 1
- end
- '<center><img src="images/locations/city/citycenter/mall/gm.png"></center>'
- i = 1
- :loopcheappanties
- if cheap_pantiesS[i] = metka_panties and cheap_panties[i] = 1:*p '<a href="exec:gt ''panties'', ''view_panty_item'', ''<<$ARGS[1]>>'', ''cheap'', <<i>>"><img src="images/pc/panties/basic/<<i>>.jpg" height="150" /></a>'
- i += 1
- if i <= ARRSIZE('cheap_panties'):jump 'loopcheappanties'
- '<center><img src="images/locations/city/citycenter/mall/Lusso.png"></center>'
- i = 1
- :loopboutiquepanties
- if boutique_pantiesS[i] = metka_panties and boutique_panties[i] = 1:*p '<a href="exec:gt ''panties'', ''view_panty_item'', ''<<$ARGS[1]>>'', ''boutique'', <<i>>"><img src="images/pc/panties/boutique/<<i>>.jpg" height="150" /></a>'
- i += 1
- if i <= ARRSIZE('boutique_panties'):jump 'loopboutiquepanties'
- '<center><img src="images/locations/pushkin/exhibitshop/shop_name.png"></center>'
- i = 1
- :loopexhibitionistpanties
- if exhibitionist_pantiesS[i] = metka_panties and exhibitionist_panties[i] = 1:*p '<a href="exec:gt ''panties'', ''view_panty_item'', ''<<$ARGS[1]>>'', ''exhibitionist'', <<i>>"><img src="images/pc/panties/exhibitionist/<<i>>.jpg" height="150" /></a>'
- i += 1
- if i <= ARRSIZE('exhibitionist_panties'):jump 'loopexhibitionistpanties'
- '<center><img src="images/locations/city/citycenter/mall/fashionista.png"></center>'
- i = 1
- :loopfashionistapanties
- if fashionista_pantiesS[i] = metka_panties and fashionista_panties[i] = 1:*p '<a href="exec:gt ''panties'', ''view_panty_item'', ''<<$ARGS[1]>>'', ''fashionista'', <<i>>"><img src="images/pc/panties/fashionista/<<i>>.jpg" height="150" /></a>'
- i += 1
- if i <= ARRSIZE('fashionista_panties'):jump 'loopfashionistapanties'
- '<center><img src="images/locations/city/citycenter/mall/pussycat.png"></center>'
- i = 1
- :loopcatspanties
- if cats_pantiesS[i] = metka_panties and cats_panties[i] = 1:*p '<a href="exec:gt ''panties'', ''view_panty_item'', ''<<$ARGS[1]>>'', ''cats'', <<i>>"><img src="images/pc/panties/kats/<<i>>.jpg" height="150" /></a>'
- i += 1
- if i <= ARRSIZE('cats_panties'):jump 'loopcatspanties'
- '<center><img src="images/locations/city/redlight/erotomaniac/shop_name.png"></center>'
- i = 1
- :loopsexshoppanties
- if sexshop_pantiesS[i] = metka_panties and sexshop_panties[i] = 1:*p '<a href="exec:gt ''panties'', ''view_panty_item'', ''<<$ARGS[1]>>'', ''sexshop'', <<i>>"><img src="images/pc/panties/sexshop/<<i>>.jpg" height="150" /></a>'
- i += 1
- if i <= ARRSIZE('sexshop_panties'):jump 'loopsexshoppanties'
- '<center><img src="images/locations/city/citycenter/mall/sports.png"></center>'
- i = 1
- :loopsportpanties
- if sport_pantiesS[i] = metka_panties and sport_panties[i] = 1:*p '<a href="exec:gt ''panties'', ''view_panty_item'', ''<<$ARGS[1]>>'', ''sport'', <<i>>"><img src="images/pc/panties/sport/<<i>>.jpg" height="150" /></a>'
- 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
- '<center><img src="<<FUNC(''$panty_image'', $ARGS[2], ARGS[3])>>"></center>'
- gs 'underwear_attributes', $ARGS[2]+'_panties', ARGS[3]
- !! $RESULT = FUNC('$short_description', $ARGS[2], CloStyle2)
- !! $RESULT += '<<ARGS[3]>>'
- !! '<<$RESULT>>'
- if BraQuality > 0:
- gs 'underwear_descriptions', 'panties'
- 'This bra forms a set with bra #<<underwear[''pair'']>>.'
- else
- gs 'panties', 'descriptions', $ARGS[2]
- end
- if $ARGS[1] = 'shop':
- if dyneval('RESULT = <<$ARGS[2]>>_panties[<<ARGS[3]>>]') = 1:
- 'You already own this item.'
- act 'Leave': gt $loc, $loc_arg
- else
- price = ARGS[4]
- 'Price: <<ARGS[4]>> <b>₽</b>'
- act 'Leave': gt $loc, $loc_arg
- if money >= price:
- act 'Buy (cash)':
- money -= price
- dynamic $ARGS[2] + '_panties[<<ARGS[3]>>] = 1'
- dynamic $ARGS[2] + '_pantiesS[<<ARGS[3]>>] = 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[<<ARGS[3]>>] = 1'
- dynamic $ARGS[2] + '_pantiesS[<<ARGS[3]>>] = 0'
- gt $loc, $loc_arg
- end
- else
- 'You do not have enough money in your bank to buy these panties.'
- end
- if underwear['pair'] > 0:
- if dyneval('RESULT = <<$ARGS[2]>>_panties[<<underwear[''pair'']>>]') = 1:
- 'You own the matching bra buying these panties will complete the set.'
- else
- 'You do not own the matching bra, you can buy it and these panties together as a set.'
- price_set = ARGS[4]*18/10
- 'Price for set: <<price_set>> <b>₽</b>'
- if money >= price_set:
- act 'Buy set (cash)':
- money -= price_set
- dynamic $ARGS[2] + '_panties[<<ARGS[3]>>] = 1'
- dynamic $ARGS[2] + '_pantiesS[<<ARGS[3]>>] = 0'
- dynamic $ARGS[2] + '_bras[<<underwear[''pair'']>>] = 1'
- dynamic $ARGS[2] + '_brasS[<<underwear[''pair'']>>] = 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] + '_panties[<<ARGS[3]>>] = 1'
- dynamic $ARGS[2] + '_pantiesS[<<ARGS[3]>>] = 0'
- dynamic $ARGS[2] + '_bras[<<underwear[''pair'']>>] = 1'
- dynamic $ARGS[2] + '_brasS[<<underwear[''pair'']>>] = 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 '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'
- else
- if 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 (<<will_cost>> Willpower)':
- gs 'willpower', 'pay', 'resist'
- gs 'stat'
- gs 'panties', '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 (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
- end
- act 'Back':
- gt 'wardrobe', 'main'
- end
- else
- gs 'panties', '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]>>_bras[<<underwear[''pair'']>>]') = 1:
- 'You own this bra 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 (<<will_cost>> Willpower)':
- gs 'willpower', 'pay', 'resist'
- gs 'stat'
- gs 'bras', 'wear', $ARGS[2], underwear['pair']
- gs 'panties', '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 (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
- 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 (<<will_cost>> Willpower)':
- gs 'willpower', 'pay', 'resist'
- gs 'stat'
- gs 'bras', 'wear', $ARGS[2], underwear['pair']
- gs 'panties', '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 (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
- 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 (<<will_cost>> Willpower)':
- gs 'willpower', 'pay', 'resist'
- gs 'stat'
- gs 'bras', 'wear', $ARGS[2], underwear['pair']
- gs 'panties', '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 (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
- end
- act 'Back':
- gt 'wardrobe', 'main'
- end
- else
- gs 'bras', 'wear', $ARGS[2], underwear['pair']
- gs 'panties', '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 bra to make this set.'
- 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
- act '<font color="red">Throw these panties away</font>':
- dynamic '<<$ARGS[2]>>_panties[<<ARGS[3]>>] = 0'
- gt 'wardrobe', 'main'
- end
- end
- end
- end
- if $ARGS[0] = 'dest0':
- *clr
- dynamic '<<$ARGS[2]>>_pantiesS[<<ARGS[3]>>] = 0'
- gt 'panties', 'view_panty_item', $ARGS[1], $ARGS[2], ARGS[3]
- end
- if $ARGS[0] = 'dest1':
- *clr
- dynamic '<<$ARGS[2]>>_pantiesS[<<ARGS[3]>>] = 1'
- gt 'panties', 'view_panty_item', $ARGS[1], $ARGS[2], ARGS[3]
- end
- if $ARGS[0] = 'dest2':
- *clr
- dynamic '<<$ARGS[2]>>_pantiesS[<<ARGS[3]>>] = 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] = 'cats':
- '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
- 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
- :loopsumpanties_i
- $temp = $t[i]
- j = 1
- :loopsumpanties_j
- $temp1 = '<<$temp>>_panties[<<j>>]'
- $temp2 = '<<$temp>>_pantiesS[<<j>>]'
- dynamic 'if <<$temp1>> = 1 and <<$temp2>> = 0: result +=1'
- j += 1
- if j <= dyneval('result = arrsize(''<<$temp>>_panties'')') : jump 'loopsumpanties_j'
- i += 1
- if i <= arrsize('$t'): jump 'loopsumpanties_i'
- if $ARGS[1] = 'dresser': if $pantyworntype ! '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 $pantyworntype + '_panties[<<pantywornnumber>>] = 0'
- $lastwornpantytype = 'none'
- lastwornpantynumber = 0
- $pantyworntype = 'none'
- pantywornnumber = 0
- end
- if $ARGS[0] = 'remove':
- if underwear['type'] = 2: gs 'underwear_bodysuits', 'remove'
- $lastwornpantytype = $pantyworntype
- lastwornpantynumber = pantywornnumber
- $pantyworntype = 'none'
- pantywornnumber = 0
- underwear['lastworntype'] = 0
- end
- if $ARGS[0] = 'wear':
- if underwear['lastworntype'] = 2: gs 'underwear_bodysuits', 'wear'
- if $ARGS[1] = '':
- if dyneval('RESULT = <<$lastwornpantytype>>_pantiesS[<<lastwornpantynumber>>]') = 0 and $lastwornpantytype ! '':
- gs 'panties', 'wear2', $lastwornpantytype, lastwornpantynumber
- else
- $pantyworntype = 'none'
- pantywornnumber = 0
- end
- else
- if dyneval('RESULT = <<$ARGS[1]>>_pantiesS[<<ARGS[2]>>]') = 0:
- gs 'panties', 'wear2', $ARGS[1], ARGS[2]
- else
- $pantyworntype = 'none'
- pantywornnumber = 0
- end
- end
- end
- if $ARGS[0] = 'wear2':
- !! ARGS 0 - action
- !! ARGS 1 - panties type name
- !! ARGS 2 - panties index
- !! removing panties or bodysuit if worn
- if underwear['type'] = 0:
- gs 'panties', 'remove'
- else
- gs 'underwear_bodysuits', 'remove'
- end
- underwear['type'] = 0
- $pantyworntype = $ARGS[1]
- pantywornnumber = ARGS[2]
- dynamic $ARGS[1] + '_w[<<ARGS[2]>>] = 1'
- gs 'underwear_attributes', $ARGS[1], ARGS[2]
- dynamic '<<$ARGS[1]>>_s[<<ARGS[2]>>] = 0'
- PPanMaterial = PanMaterial
- PPantyFun = PantyFun
- PPanQuality = PanQuality
- PPanThinness = PanThinness
- PPanCoverFront = PanCoverFront
- PPanCoverBack = PanCoverBack
- end
- if $ARGS[0] = 'wear_last_worn':
- !!contingency
- if $lastwornpantytype = '': $lastwornpantytype = 'none'
- gs 'panties', 'wear', $lastwornpantytype, lastwornpantynumber
- end
- --- panties ---------------------------------
|