# scandalicious
if $ARGS[0] = 'start':
$loc = 'scandalicious'
$loc_arg = 'start'
$location_type = 'public_indoors'
cls
menu_off = 0
gs 'stat'
gs 'themes', 'indoors'
'
Scandalicious'
''
*nl
'This store is cheap and tacky. The clothing lives up to the name though and you assume they saved a lot of money on fabric.
It''s not somewhere you''d go with your Mom or let her know you''d even looked in the window but if you want to show off your body there is nowhere better to shop. The staff aren''t judging anyone so it feels relaxed but there is still a mix of those hiding their embarrassment and those exuding confidence.'
*nl
act 'Leave':
cla
minut += 3
gt 'torgcentr'
end
act 'View clothing':
minut += 5
gt 'scandalicious', 'clothes'
end
act 'View dresses':
minut += 5
gt 'scandalicious', 'dresses'
end
act 'View swimsuits':
cla
minut += 5
gt 'scandalicious', 'swim'
end
act 'View bikinis':
cla
minut += 5
gt 'scandalicious', 'bikinis'
end
end
if $ARGS[0] = 'clothes':
$loc_arg = 'clothes'
$loc = 'scandalicious'
$menu_loc = 'scandalicious'
$menu_arg = 'clothes'
menu_off = 0
*clr & cla
gs'stat'
'Viewing Scandalicious outfits'
*nl
gs 'clothing_QV', 'shop_header'
act 'Return':
cla
minut += 1
gt 'scandalicious', 'start'
end
clothingfilter['qualitycheck'] = 7
:loopquality
i = 1
:loopscandalicious_outfits
if scandalicious_outfits[i] = 0:
gs 'clothing_attributes', 'scandalicious_outfits', 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 ''
end
end
i += 1
if i <= 20:jump 'loopscandalicious_outfits'
if clothingfilter['quality'] = 1 and clothingfilter['qualitycheck'] > 0: clothingfilter['qualitycheck'] -=1 & jump 'loopquality'
end
if $ARGS[0] = 'scandalicious_outfits':
cla
menu_off = 1
if scandalicious_outfits[i] ! 0:
msg 'You already own these clothes.'
gt 'scandalicious', 'clothes'
end
gt 'clothing', 'view_clothing_item', 'shop', 'scandalicious_outfits',i, 1500
end
if $ARGS[0] = 'dresses':
$loc_arg = 'dresses'
$loc = 'scandalicious'
$menu_loc = 'scandalicious'
$menu_arg = 'dresses'
menu_off = 0
*clr & cla
gs'stat'
'Viewing Scandalicious dresses'
*nl
gs 'clothing_QV', 'shop_header'
act 'Return':
cla
minut += 1
gt 'scandalicious', 'start'
end
clothingfilter['qualitycheck'] = 7
:loopquality1
i = 1
:loopscandalicious_dress
if scandalicious_dress[i] = 0:
gs 'clothing_attributes', 'scandalicious_dress', 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 ''
end
end
i += 1
if i <= 50:jump 'loopscandalicious_dress'
if clothingfilter['quality'] = 1 and clothingfilter['qualitycheck'] > 0: clothingfilter['qualitycheck'] -=1 & jump 'loopquality1'
end
if $ARGS[0] = 'scandalicious_dress':
cla
menu_off = 1
if scandalicious_dress[i] ! 0:
msg 'You already own this dress.'
gt 'scandalicious', 'dresses'
end
gt 'clothing', 'view_clothing_item', 'shop', 'scandalicious_dress',i, 1500
end
if $ARGS[0] = 'swim':
$loc_arg = 'swim'
$loc = 'scandalicious'
cls
gs'stat'
'Swimsuits - one size fits all'
*nl
gs 'clothing_QV', 'shop_header'
act 'Return':
cla
minut += 1
gt 'scandalicious', 'start'
end
clothingfilter['qualitycheck'] = 7
:loopquality2
i = 1
:loopscandalicious_swimsuit
if scandalicious_swimsuit[i] = 0:
gs 'clothing_attributes', 'scandalicious_swimsuit', 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 ''
end
end
i += 1
if i <= 40:jump 'loopscandalicious_swimsuit'
if clothingfilter['quality'] = 1 and clothingfilter['qualitycheck'] > 0: clothingfilter['qualitycheck'] -=1 & jump 'loopquality2'
end
if $ARGS[0] = 'swim1': gt 'clothing', 'view_clothing_item', 'shop', 'scandalicious_swimsuit',i, 1750
if $ARGS[0] = 'bikinis':
$loc_arg = 'bikinis'
$loc = 'scandalicious'
cls
gs'stat'
'Bikinis - one size fits all'
*nl
gs 'clothing_QV', 'shop_header'
act 'Return':
cla
minut += 1
gt 'scandalicious', 'start'
end
clothingfilter['qualitycheck'] = 7
:loopquality3
i = 1
:loopscandalicious_bikinis
if scandalicious_bikinis[i] = 0:
gs 'clothing_attributes', 'scandalicious_bikinis', 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 ''
end
end
i += 1
if i <= 70:jump 'loopscandalicious_bikinis'
if clothingfilter['quality'] = 1 and clothingfilter['qualitycheck'] > 0: clothingfilter['qualitycheck'] -=1 & jump 'loopquality3'
end
if $ARGS[0] = 'bikini1': gt 'clothing', 'view_clothing_item', 'shop', 'scandalicious_bikinis',i, 1750
--- scandalicious ---------------------------------