# clothing_QV
if $ARGS[0] = 'list':
'Wardrobe - click on a shop name to view clothes from that shop'
*nl
*nl
$regularwornclothingtype = ''
'| Switch to wardrobe list | Switch to stored clothing list | Switch to unwanted clothing list | '
if $clothingworntype ! 'nude':
act 'Strip':gt 'clothing_QV', 'strip'
end
act 'Return':gt 'wardrobe', 'start'
'
'
if ARRSIZE('average') > 0:'
'
if ARRSIZE('expensive') > 0:'
'
if ARRSIZE('formal') > 0:'
'
if ARRSIZE('fetish') > 0 or ARRSIZE('burlesque') > 0:'
'
if ARRSIZE('exhibit') > 0:'
'
if ARRSIZE('alternative') > 0:'
'
if ARRSIZE('exercise') > 0:'
'
end
if $ARGS[0] = 'gm':
''
if StoryLine = 1 and SchoolAtestat = 0 and SchoolBlock = 0 and schoolS[6] = 0:*p '
'
i = 1
:loopcheap
if cheap[i] = 1:
gs 'clothing_attributes', 'cheap', i
if CloInhibit <= pcs_inhib:
if CloStyle ! 5:
if cheapS[i] = 0 and cheapH[i] > 0 and cheapB[i] >= (pcs_hips - 8) and cheapB[i] <= (pcs_hips + 8):*p '
'
else
if cheapS[i] = 0 and cheapH[i] > 0:*p ''
end
end
end
i += 1
if i <= ARRSIZE('cheap'):jump 'loopcheap'
i = 1
:loopoffice
if office[i] = 1:
gs 'clothing_attributes', 'office', i
if CloInhibit <= pcs_inhib:
if officeS[i] = 0 and officeH[i] > 0 and officeB[i] >= (pcs_hips - 8) and officeB[i] <= (pcs_hips + 8):*p '
'
end
end
i += 1
if i <= ARRSIZE('office'):jump 'loopoffice'
i = 1
:loopschool
if school[i] = 1:
gs 'clothing_attributes', 'school', i
if CloInhibit <= pcs_inhib:
if schoolS[i] = 0 and schoolH[i] > 0 and schoolB[i] >= (pcs_hips - 8) and schoolB[i] <= (pcs_hips + 8):*p '
'
end
end
i += 1
if i = 6: i = 7
if i <= ARRSIZE('school'):jump 'loopschool'
i = 1
:loopuniform
if uniform[i] = 1:
gs 'clothing_attributes', 'uniform', i
if CloInhibit <= pcs_inhib:
if uniformS[i] = 0 and uniformH[i] > 0 and uniformB[i] >= (pcs_hips - 8) and uniformB[i] <= (pcs_hips + 8):*p '
'
end
end
i += 1
if i <= ARRSIZE('uniform'):jump 'loopuniform'
act 'Return': gt 'clothing_QV', 'list'
end
if $ARGS[0] = 'kats':
''
i = 1
:loopaverage
if average[i] = 1:
gs 'clothing_attributes', 'average', i
if CloInhibit <= pcs_inhib:
if CloStyle ! 5:
if averageS[i] = 0 and averageH[i] > 0 and averageB[i] >= (pcs_hips - 8) and averageB[i] <= (pcs_hips + 8):*p '
'
else
if averageS[i] = 0 and averageH[i] > 0:*p ''
end
end
end
i += 1
if i <= ARRSIZE('average'):jump 'loopaverage'
act 'Return': gt 'clothing_QV', 'list'
end
if $ARGS[0] = 'fashionista':
''
i = 1
:loopexpensive
if expensive[i] = 1:
gs 'clothing_attributes', 'expensive', i
if CloInhibit <= pcs_inhib:
if CloStyle ! 5:
if expensiveS[i] = 0 and expensiveH[i] > 0 and expensiveB[i] >= (pcs_hips - 8) and expensiveB[i] <= (pcs_hips + 8):*p '
'
else
if expensiveS[i] = 0 and expensiveH[i] > 0:*p ''
end
end
end
i += 1
if i <= ARRSIZE('expensive'):jump 'loopexpensive'
act 'Return': gt 'clothing_QV', 'list'
end
if $ARGS[0] = 'moncheri':
''
i = 1
:loopformal
if formal[i] = 1:
gs 'clothing_attributes', 'formal', i
if CloInhibit <= pcs_inhib:
if formalS[i] = 0 and formalH[i] > 0 and formalB[i] >= (pcs_hips - 8) and formalB[i] <= (pcs_hips + 8):*p '
'
end
end
i += 1
if i <= ARRSIZE('formal'):jump 'loopformal'
act 'Return': gt 'clothing_QV', 'list'
end
if $ARGS[0] = 'sexshop':
''
i = 1
:loopfetish
if fetish[i] = 1:
gs 'clothing_attributes', 'fetish', i
if CloInhibit <= pcs_inhib:
if fetishS[i] = 0 and fetishH[i] > 0 and fetishB[i] >= (pcs_hips - 8) and fetishB[i] <= (pcs_hips + 8):*p '
'
end
end
i += 1
if i <= ARRSIZE('fetish'):jump 'loopfetish'
i = 1
:loopburlesque
if burlesque[i] = 1:
gs 'clothing_attributes', 'burlesque', i
if CloInhibit <= pcs_inhib:
if burlesqueS[i] = 0 and burlesqueH[i] > 0 and burlesqueB[i] >= (pcs_hips - 8) and burlesqueB[i] <= (pcs_hips + 8):*p '
'
end
end
i += 1
if i <= ARRSIZE('burlesque'):jump 'loopburlesque'
act 'Return': gt 'clothing_QV', 'list'
end
if $ARGS[0] = 'exhibitshop':
''
i = 1
:loopexhibit
if exhibit[i] = 1:
gs 'clothing_attributes', 'exhibit', i
if CloInhibit <= pcs_inhib:
if exhibitS[i] = 0 and exhibitH[i] > 0 and exhibitB[i] >= (pcs_hips - 8) and exhibitB[i] <= (pcs_hips + 8):*p '
'
end
end
i += 1
if i <= ARRSIZE('exhibit'):jump 'loopexhibit'
act 'Return': gt 'clothing_QV', 'list'
end
if $ARGS[0] = 'dolls':
''
i = 1
:loopalternative
if alternative[i] = 1:
gs 'clothing_attributes', 'alternative', i
if CloInhibit <= pcs_inhib:
if alternativeS[i] = 0 and alternativeH[i] > 0 and alternativeB[i] >= (pcs_hips - 8) and alternativeB[i] <= (pcs_hips + 8):*p '
'
end
end
i += 1
if i <= ARRSIZE('alternative'):jump 'loopalternative'
act 'Return': gt 'clothing_QV', 'list'
end
if $ARGS[0] = 'sports':
''
i = 1
:loopexercise
if exercise[i] = 1:
gs 'clothing_attributes', 'exercise', i
if CloInhibit <= pcs_inhib:
if exerciseS[i] = 0 and exerciseH[i] > 0:*p '
'
end
end
i += 1
if i <= ARRSIZE('exercise'):jump 'loopexercise'
act 'Return': gt 'clothing_QV', 'list'
end
if $ARGS[0] = 'gym':
if $regularwornclothingtype = '':
$regularwornclothingtype = $clothingworntype
regularwornclothingnumber = clothingwornnumber
end
''
i = 1
:loopexercise2
if exercise[i] = 1:
gs 'clothing_attributes', 'exercise', i
if CloInhibit <= pcs_inhib:
if exerciseS[i] = 0 and exerciseH[i] > 0:*p ''
end
end
i += 1
if i <= ARRSIZE('exercise'):jump 'loopexercise2'
act 'Return': gt $loc, $metka
if $clothingworntype ! $regularwornclothingtype: gs 'clothing_QV', 'gym2'
if $clothingworntype ! 'nude':
act 'Strip':gt 'clothing_QV', 'strip'
end
end
if $ARGS[0] = 'gym2':
act 'Change back into your regular clothes':
$clothingworntype = $regularwornclothingtype
clothingwornnumber = regularwornclothingnumber
killvar '$regularwornclothingtype'
killvar 'regularwornclothingnumber'
gt 'clothing_QV', 'gym'
end
end
if $ARGS[0] = 'cloak':
i = 1
:loopcoat
if coat[i] = 1:
if coatH[i] > 0:*p '
'
end
i += 1
if i <= ARRSIZE('coat'):jump 'loopcoat'
end
if $ARGS[0] = 'strip':
if $pantyworntype ! 'none':
'
'
'You strip down to your panties.'
else
'
'
'You strip completely naked.'
end
gs 'clothing', 'strip'
act 'Choose something to wear':
if $regularwornclothingtype = '':
gt 'clothing_QV', 'list'
else
gt 'clothing_QV', 'gym'
end
end
act 'Leave': gt $loc, $metka
end
if $ARGS[0] = 'change':
*clr
cla
gs 'clothing_attributes', $ARGS[1], ARGS[2]
'>>)
'
$RESULT = FUNC('$short_description', $ARGS[1], CloStyle2)
$RESULT += '<>'
'<<$RESULT>>'
if $ARGS[1] ! 'coat' and $ARGS[1] ! 'swimwear':
gs 'clothing_descriptions'
'<<$description>>'
else
FUNC('$clothing_name', $ARGS[1], ARGS[2])
end
if CloBimbo = 1:'This item is considered bimbo clothing.'
if CloStyle = 4:'This outfit can be used for prostitution.'
if $ARGS[2] = 'uniform':
if CloStyle2 = 1:
'This outfit is considered to be a maid uniform.'
elseif CloStyle2 = 3:
'This is a stripper outfit.'
else
'This outfit is a server uniform, suitable for jobs that require one.'
end
end
if $ARGS[2] = 'school':
if CloSkirtShortness < 5 and CloThinness < 5 and CloBra = 0:
'This uniform complies with the school regulations on skirt length.'
elseif CloSkirtShortness = 5 and CloThinness < 5 and CloBra = 0:
'This uniform slightly breaches the school regulations on skirt length.'
else
'This uniform makes a mockery of the school uniform regulations.'
end
end
if $clothingworntype = $ARGS[1] and clothingwornnumber = ARGS[2]:
'You are wearing this outfit.'
elseif CloInhibit > pcs_inhib:
'You don''t feel confident enough to wear an outfit this revealing.'
elseif ARRPOS('$CloLosTyp', $ARGS[1]) ! -1 and ARRPOS('CloLosNum',ARGS[2]) ! -1 :
'You lost these clothes somewhere, maybe you can find them again?.'
else
if CloInhibit + 10 > pcs_inhib: 'You find this outfit more revealing than you are completely comfortable with but that makes it quite exciting too.'
act 'Wear this outfit':
gs 'clothing', 'wear', $ARGS[1], ARGS[2]
if $regularwornclothingtype = '':
gt 'wardrobe', 'start'
else
gt 'clothing_QV', 'gym'
end
end
end
act 'Return': gt 'clothing_QV', 'list'
end
if $ARGS[0] = 'shop_header':
$Headerstring = 'Prostitute clothing '
if clothingfilter_prost = 0:
$Headerstring += 'Included | '
else
$Headerstring += 'Excluded'
end
$Headerstring += 'Bimbo clothing '
if clothingfilter_bimbo = 0:
$Headerstring += 'Included | '
else
$Headerstring += 'Excluded'
end
$Headerstring += 'Neither Prostitute or Bimbo clothing '
if clothingfilter_norm = 0:
$Headerstring += 'Included | '
else
$Headerstring += 'Excluded'
end
$Headerstring += 'Clothing you don''t find risqué '
if clothingfilter_comf = 0:
$Headerstring += 'Included | '
else
$Headerstring += 'Excluded'
end
$Headerstring += 'Risqué clothing '
if clothingfilter_daring = 0:
$Headerstring += 'Included | '
else
$Headerstring += 'Excluded'
end
$Headerstring += 'Clothing too risqué for you '
if clothingfilter_too_daring = 0:
$Headerstring += 'Included | '
else
$Headerstring += 'Excluded'
end
'<<$Headerstring>>'
end
if $ARGS[0] = 'shop_filter':
if (clothingfilter_comf = 0 and CloInhibit + 10 < pcs_inhib) or (clothingfilter_daring = 0 and CloInhibit + 10 >= pcs_inhib and CloInhibit <= pcs_inhib) or (clothingfilter_too_daring = 0 and CloInhibit > pcs_inhib):
clothingfilter_risk = 1
else
clothingfilter_risk = 0
end
if (clothingfilter_prost = 0 or CloStyle ! 4) and (clothingfilter_bimbo = 0 or CloBimbo = 0):
clothingfilter_pandb = 1
else
clothingfilter_pandb = 0
end
if clothingfilter_norm = 1 and CloStyle ! 4 and CloBimbo ! 1:
clothingfilter_norm2 = 0
else
clothingfilter_norm2 = 1
end
end
--- clothing_QV ---------------------------------