# exhibitionistshop
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'
'
Expression of You'
'> src="images/locations/oldtown/exhibitshop/shop.jpg">'
'A shop in the most modern style who''s clothing is all very revealing and not nearly as classy as the store itself.'
act 'Leave':
minut += 5
gt 'liames'
end
if hour >= 18:
*nl
'The shop is closing and you have to leave.'
else
act 'View clothing':
minut += 5
gt 'exhibitionistshop', 'clo'
end
act 'View panties':
minut += 5
gt 'exhibitionistshop', 'panties'
end
act 'View bras':
minut += 5
gt 'exhibitionistshop', 'bras'
end
end
end
if $ARGS[0] = 'clo':
$loc_arg = 'clo'
$loc = 'exhibitionistshop'
cls
gs'stat'
'Exhibitionist clothing'
*nl
gs 'clothing_QV', 'shop_header'
act 'Return':
cla
minut += 1
gt 'exhibitionistshop', 'start'
end
clothingfilter['qualitycheck'] = 7
:loopquality
if Clothingstock >= 18:
i = 1
elseif Clothingstock >= 12:
i = 2
elseif Clothingstock >= 6:
i = 3
else
i = 4
end
:loopexhibit
if exhibit[i] = 0:
gs 'clothing_attributes', 'exhibit', i
gs 'clothing_QV', 'shop_filter'
if clothingfilter['quality'] = 0 or clothingfilter['qualitycheck'] = CloQuality:
if clothingfilter_risk = 1 and clothingfilter_pandb = 1 and clothingfilter_norm2 = 1: *p '> src="images/pc/clothing/9exhibit/<>.jpg" height="250" />'
end
end
i += 4
if i <= 125:jump 'loopexhibit'
if clothingfilter['quality'] = 1 and clothingfilter['qualitycheck'] > 0: clothingfilter['qualitycheck'] -=1 & jump 'loopquality'
end
if $ARGS[0] = 'exhibit':
cla
if exhibit[i] ! 0:
msg 'You already own these clothes.'
gt 'exhibitionistshop', 'clo'
end
gt 'clothing', 'view_clothing_item', 'shop', 'exhibit',i, 1000
end
if $ARGS[0] = 'panties':
$loc_arg = 'panties'
$loc = 'exhibitionistshop'
cls
gs'stat'
act 'Return':
cla
minut += 1
gt 'exhibitionistshop', 'start'
end
i = 2
:loopexhibitionist_panties
if exhibitionist_panties[i] = 0:*p ' '
i += 1
if i <= 59:jump 'loopexhibitionist_panties'
end
if $ARGS[0] = 'panties2':
cla
if exhibitionist_panties[i] ! 0:
msg 'You already own these panties.'
gt 'exhibitionistshop', 'panties'
end
gt 'panties', 'view_panty_item', 'shop', 'exhibitionist',i, 600
end
if $ARGS[0] = 'bras':
$loc_arg = 'bras'
$loc = 'exhibitionistshop'
cls
gs'stat'
act 'Return':
cla
minut += 1
gt 'exhibitionistshop', 'start'
end
i = 2
:loopexhibitionist_bras
if exhibitionist_bras[i] = 0:*p ' '
i += 1
if i <= 37:jump 'loopexhibitionist_bras'
end
if $ARGS[0] = 'bras2':
cla
if exhibitionist_bras[i] ! 0:
msg 'You already own these bras.'
gt 'exhibitionistshop', 'bras'
end
gt 'bras', 'view_bra_item', 'shop', 'exhibitionist',i, 600
end
--- exhibitionistshop ---------------------------------