123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347 |
- # exhibitionistshop
- !!2022/03/12
- if $ARGS[0] = 'start':
- CLOSE ALL
- $loc = 'exhibitionistshop'
- $loc_arg = 'start'
- $location_type = 'public_indoors'
- $menu_loc = 'exhibitionistshop'
- $menu_arg = 'start'
- menu_off = 0
- cla & *clr
- if exhibitionQW = 3: exhibitionQW = 4
- gs 'stat'
- gs 'themes', 'indoors'
- '<center><b><font color="maroon">Simply Salacious</font></b></center>'
- '<center><img <<$set_imgh>> src="images/locations/pushkin/exhibitshop/shop.jpg"></center>'
- 'A shop in the most modern style who''s clothing is all very revealing and not nearly as classy as the store itself.'
- if hypnoClothes = 1 and exhibitionQW = 4:
- act 'Look for Ksenya': gt 'exhibitionistshop', 'ksenya_intro'
- end
-
- if exhibitionQW = 5 and exhibitionQW['daystart'] ! daystart:
- act 'Talk to Ksenya': gt 'exhibitionistshop', 'ksenya_chat'
- end
- act 'Leave':
- minut += 5
- gt 'pushkin_sq'
- end
- if hour >= 18:
- *nl
- 'The shop is closing and you have to leave.'
- else
- act 'View outfits':
- minut += 5
- gt 'exhibitionistshop', 'outfits'
- end
- act 'View dresses':
- minut += 5
- gt 'exhibitionistshop', 'dresses'
- end
- act 'View panties':
- minut += 5
- gt 'exhibitionistshop', 'panties'
- end
- act 'View bras':
- minut += 5
- gt 'exhibitionistshop', 'bras'
- end
-
- act 'View bodysuits':
- minut += 5
- gt 'exhibitionistshop', 'bodysuit'
- end
- end
- end
- if $ARGS[0] = 'ksenya_intro':
- exhibitionQW = 5
- exhibitionQW['daystart'] = daystart
- gs 'willpower', 'misc', 'force', 'hard'
- minut += 2
- cla & *clr
- gs 'stat'
- '<center><img <<$set_imgh>> src="images/locations/shared/park/ksenya/ksenya7.jpg"></center>'
- '"Hello? I''m looking for Ksenya, is she around?"'
- 'The cashier nods. "Yes, follow me," she says, leading you to the back of the store.'
- '"Miss Ksenya? You have a visitor" The cashier takes you into the break room that looks really comfortable. Large double-pane windows that look out on the back patio. She stands up and comes over to give you a hug. "Hey <<$pcs_firstname>>, what can I do for you?"'
- '"I was wondering if you had school uniforms? My therapist told me that you might have some in your shop." You said.'
- '"The one in town?" She asks.'
- '"Yes? Do you know him?" You replied.'
- 'She sighs. "Yes, that''s my father. He''s asked me to keep them in stock for some reason" she admits. "If we don''t have one right now, check back in a few days and we might have one" she offers. "Tell me, has" she pauses "anything changed recently?" she asks. "Like has anything recently been different, wearing things you haven''t before? doing things you don''t normally haven''t been doing?" she questions.'
- 'You take a moment to think about things.'
- act 'No':
- cla & *clr
- gs 'stat'
- '<center><img <<$set_imgh>> src="images/locations/shared/park/ksenya/ksenya8.jpg"></center>'
- '"No? Why?" you ask.'
- '"No reason, sorry. If you ever want to hang out, just stop by the shop and we can chat." She says as she walks you back to the front of the store.'
- act 'Continue': gt 'exhibitionistshop', 'start'
- end
- if will_cost <= pcs_willpwr:
- act 'Yes':
- gs 'willpower', 'pay', 'hard'
- cla & *clr
- gs 'stat'
- '<center><img <<$set_imgh>> src="images/locations/shared/park/ksenya/ksenya8.jpg"></center>'
- 'In response, you reply, "Yes?" I no longer like wearing underwear. "Are you referring to that?" you inquire.'
- '"Is he doing hypnosis with you?" You nod your head. She informs you, "I think you may be in trouble if you continue seeing him."'
- '"Nothing has happened to me that I am aware of." You assure her'
- '"I trust you, but please let me know if anything happens. My father is not trustworthy, so please be careful. She walks you out of the shop after giving you a hug. If you ever want to talk to me, please come see me." She says as she walks you back to the front of the store.'
- act 'Continue': gt 'exhibitionistshop', 'start'
- end
- else
- act 'Yes (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
- end
- end
- if $ARGS[0] = 'ksenya_chat':
- exhibitionQW['daystart'] = daystart
- npc_rel['A263'] += 1
- minut += 60
- cla & *clr
- gs 'stat'
- '<center><img <<$set_imgh>> src="images/locations/shared/park/ksenya/ksenya9.jpg"></center>'
- 'You meet up with Ksenya at her shop and spend the next hour talking about random things. About flashing, clothing, and just everyday stuff.'
- act 'Continue': gt 'exhibitionistshop', 'start'
- end
- if $ARGS[0] = 'outfits':
- $loc_arg = 'outfits'
- $loc = 'exhibitionistshop'
- cls
- gs'stat'
- '<center><b><font color="maroon">Salacious outfits</font></b></center>'
- *nl
- gs 'clothing_QV', 'shop_filter_header'
- act 'Return':
- cla
- minut += 1
- gt 'exhibitionistshop', 'start'
- end
- !!To filter just this set
- clo_i = 0
- :loopsalacious_outfits_filter
- i = 1
- :loopsalacious_outfits
- if salacious_outfits[i] = 0:
- gs 'clothing_attributes', 'salacious_outfits', i
- gs 'clothing_QV', 'shop_filter'
- !!sort by filter
- if (clothingfilter['quality'] = 0 and CloQuality = clo_i) or (clothingfilter['inhibition'] = 0 and CloInhibit = clo_i) or clothingfilter['number'] = 0:
- if clothingfilter['inc'] = 1 and clothingfilter['only'] = 1: *p '<a href="exec: i = <<i>> & gt ''exhibitionistshop'', ''salacious_outfits''"><img <<$set_imgh>> src="images/pc/items/salacious/outfits/<<i>>.jpg" height="250" /></a>'
- end
- end
- i += 1
- if i <= 20:jump 'loopsalacious_outfits'
- clo_i += 1
- if clothingfilter['quality'] = 0 and clo_i <= 7:
- jump 'loopsalacious_outfits_filter'
- elseif clothingfilter['inhibition'] = 0 and clo_i <= 40:
- jump 'loopsalacious_outfits_filter'
- end
- end
- if $ARGS[0] = 'salacious_outfits': gt 'clothing', 'view_clothing_item', 'salacious_outfits',i, 1000, 'shop'
- if $ARGS[0] = 'dresses':
- $loc_arg = 'dresses'
- $loc = 'exhibitionistshop'
- cls
- gs'stat'
- '<center><b><font color="maroon">Salacious dresses</font></b></center>'
- *nl
- gs 'clothing_QV', 'shop_filter_header'
- act 'Return':
- cla
- minut += 1
- gt 'exhibitionistshop', 'start'
- end
- !!To filter just this set
- clo_i = 0
- :loopsalacious_dress_filter
- if Clothingstock >= 12:
- i = 1
- else
- i = 2
- end
- :loopsalacious_dress
- if salacious_dress[i] = 0:
- gs 'clothing_attributes', 'salacious_dress', i
- gs 'clothing_QV', 'shop_filter'
- !!sort by filter
- if (clothingfilter['quality'] = 0 and CloQuality = clo_i) or (clothingfilter['inhibition'] = 0 and CloInhibit = clo_i) or clothingfilter['number'] = 0:
- if clothingfilter['inc'] = 1 and clothingfilter['only'] = 1: *p '<a href="exec: i = <<i>> & gt ''exhibitionistshop'', ''salacious_dress''"><img <<$set_imgh>> src="images/pc/items/salacious/dress/<<i>>.jpg" height="250" /></a>'
- end
- end
- i += 2
- if i <= 60:jump 'loopsalacious_dress'
- clo_i += 1
- if clothingfilter['quality'] = 0 and clo_i <= 7:
- jump 'loopsalacious_dress_filter'
- elseif clothingfilter['inhibition'] = 0 and clo_i <= 40:
- jump 'loopsalacious_dress_filter'
- end
- end
- if $ARGS[0] = 'salacious_dress': gt 'clothing', 'view_clothing_item', 'salacious_dress',i, 1000, 'shop'
- if $ARGS[0] = 'panties':
- $loc_arg = 'panties'
- $loc = 'exhibitionistshop'
- cls
- gs'stat'
- gs 'panties', 'shop_filter_header'
- act 'Return':
- cla
- minut += 1
- gt 'exhibitionistshop', 'start'
- end
- !!To filter just this set
- clo_i = 0
- :looppantyquality_filter
- i = 2
- :loopsalacious_panties
- if salacious_panties[i] = 0:
- gs 'underwear_attributes', 'salacious_panties', i
- if (clothingfilter['quality'] = 0 and PanQuality = clo_i) or clothingfilter['number'] = 0:
- *p '<a href="exec: i = <<i>> & gt ''exhibitionistshop'', ''panties2''"><img src="images/pc/items/salacious/panties/<<i>>.jpg" height="150" /></a> '
- end
- end
- i += 1
- if i <= 59:jump 'loopsalacious_panties'
- clo_i += 1
- if clothingfilter['quality'] = 0 and clo_i <= 6:
- jump 'looppantyquality_filter'
- end
- end
- if $ARGS[0] = 'panties2':
- cla
-
- if salacious_panties[i] ! 0:
- msg 'You already own these panties.'
- gt 'exhibitionistshop', 'panties'
- end
- gt 'panties', 'view_panty_item', 'shop', 'salacious',i, 600
- end
- if $ARGS[0] = 'bras':
- $loc_arg = 'bras'
- $loc = 'exhibitionistshop'
- cls
- gs'stat'
- gs 'bras', 'shop_filter_header'
- act 'Return':
- cla
- minut += 1
- gt 'exhibitionistshop', 'start'
- end
- !!To filter just this set
- clo_i = 0
- :loopbraquality_filter
- i = 2
- :loopsalacious_bras
- if salacious_bras[i] = 0:
- gs 'underwear_attributes', 'salacious_bras', i
- if (clothingfilter['quality'] = 0 and BraQuality = clo_i) or clothingfilter['number'] = 0:
- *p '<a href="exec: i = <<i>> & gt ''exhibitionistshop'', ''bras2''"><img src="images/pc/items/salacious/bras/<<i>>.jpg" height="150" /></a> '
- end
- end
- i += 1
- if i <= 37:jump 'loopsalacious_bras'
- clo_i += 1
- if clothingfilter['quality'] = 0 and clo_i <= 6:
- jump 'loopbraquality_filter'
- end
- end
- if $ARGS[0] = 'bras2':
- cla
-
- if salacious_bras[i] ! 0:
- msg 'You already own these bras.'
- gt 'exhibitionistshop', 'bras'
- end
- gt 'bras', 'view_bra_item', 'shop', 'salacious',i, 600
- end
- if $ARGS[0] = 'bodysuit':
- $loc_arg = 'bodysuit'
- $loc = 'exhibitionistshop'
- $menu_loc = 'exhibitionistshop'
- $menu_arg = 'bodysuit'
- menu_off = 0
- *clr & cla
- gs'stat'
- gs 'underwear_bodysuits', 'shop_filter_header'
- act 'Return': minut += 1 & gt 'exhibitionistshop', 'start'
- !!To filter just this set
- clo_i = 0
- :loopbodysuitquality_filter
- i = 1
- :loopsalacious_bodysuit
- if salacious_bodysuits[i] = 0:
- gs 'underwear_attributes', 'salacious_bodysuits', i
- if (clothingfilter['quality'] = 0 and BraQuality = clo_i) or clothingfilter['number'] = 0:
- *p '<a href="exec: i = <<i>> & gt ''exhibitionistshop'', ''bodysuit2''"><img src="images/pc/items/salacious/bodysuits/<<i>>.jpg" height="250" /></a> '
- end
- end
- i += 1
- if i <= 40:jump 'loopsalacious_bodysuit'
- clo_i += 1
- if clothingfilter['quality'] = 0 and clo_i <= 6:
- jump 'loopbodysuitquality_filter'
- end
- end
- if $ARGS[0] = 'bodysuit2':
- cla
- menu_off = 1
- gt 'underwear_bodysuits', 'view_bodysuit_item', 'shop', 'salacious',i, 1000
- end
- --- exhibitionistshop ---------------------------------
|