# clothing_QV
menu_off = 1
if $ARGS[0] = 'list':
'Wardrobe - Brand Selection
'
'click on a shop name to view clothes from that shop'
$regularwornclothingtype = ''
*nl
''
*nl
! 'These are the clothes that are currently available for you to wear.
'
! *nl
if org_loc = 1:
act 'Return':
killvar '$ward_list_store'
killvar 'org_loc'
gt 'clothing', 'view_clothing_list', 'wardrobe'
end
else
act 'Return':
killvar '$ward_list_store'
gt 'wardrobe', 'start'
end
end
'
'
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:'
'
if $ARGS[1] = 'gm':
$ward_list_store = $ARGS[1]
*clr & cla
'Wardrobe
'
''
*nl
''
*nl
'These are the clothes that are currently available for you to wear.
'
*nl
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': killvar '$ward_list_store' & gt 'clothing_QV', 'list'
end
if $ARGS[1] = 'kats':
*clr & cla
$ward_list_store = $ARGS[1]
'Wardrobe
'
''
*nl
''
*nl
'These are the clothes that are currently available for you to wear.
'
*nl
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': killvar '$ward_list_store' & gt 'clothing_QV', 'list'
end
if $ARGS[1] = 'fashionista':
*clr & cla
$ward_list_store = $ARGS[1]
'Wardrobe
'
''
*nl
''
*nl
'These are the clothes that are currently available for you to wear.
'
*nl
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': killvar '$ward_list_store' & gt 'clothing_QV', 'list'
end
if $ARGS[1] = 'moncheri':
*clr & cla
$ward_list_store = $ARGS[1]
'Wardrobe
'
''
*nl
''
*nl
'These are the clothes that are currently available for you to wear.
'
*nl
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': killvar '$ward_list_store' & gt 'clothing_QV', 'list'
end
if $ARGS[1] = 'sexshop':
*clr & cla
$ward_list_store = $ARGS[1]
'Wardrobe
'
''
*nl
''
*nl
'These are the clothes that are currently available for you to wear.
'
*nl
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': killvar '$ward_list_store' & gt 'clothing_QV', 'list'
end
if $ARGS[1] = 'exhibitshop':
*clr & cla
$ward_list_store = $ARGS[1]
'Wardrobe
'
''
*nl
''
*nl
'These are the clothes that are currently available for you to wear.
'
*nl
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': killvar '$ward_list_store' & gt 'clothing_QV', 'list'
end
if $ARGS[1] = 'dolls':
*clr & cla
$ward_list_store = $ARGS[1]
'Wardrobe
'
''
*nl
''
*nl
'These are the clothes that are currently available for you to wear.
'
*nl
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': killvar '$ward_list_store' & gt 'clothing_QV', 'list'
end
if $ARGS[1] = 'sports':
*clr & cla
$ward_list_store = $ARGS[1]
'Wardrobe
'
''
*nl
''
*nl
'These are the clothes that are currently available for you to wear.
'
*nl
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': killvar '$ward_list_store' & gt 'clothing_QV', 'list'
end
if $clothingworntype ! 'nude':
act 'Strip':gt 'clothing_QV', 'strip'
end
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]
'>>)
'
if $ARGS[1] = 'cheap' and ARGS[2] = 414:
'A hessian sack the hunters gave you.'
else
$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
end
if CloBimbo = 1 and cheatBimbo = 0:'This item is considered bimbo clothing.'
if CloStyle = 4:'This outfit can be used for prostitution.'
if $ARGS[1] = '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 CloStyle2 = 4:
if CloInhibit <= 10:
'This uniform is very conservative. Only the nerds would approve of you wearing it.'
elseif CloSkirt < 5 and CloThinness < 5 and CloBra = 0:
if CloQuality = 4:
'This uniform complies with the regulations and is of good quality. It would certainly help you with your standing with the cool kids and jocks.'
else
'This uniform complies with the school regulations on skirt length. Nobody in school would be offended by you wearing it.'
end
elseif CloSkirt = 5 and CloThinness < 5 and CloBra = 0:
if CloQuality = 4:
'This uniform slightly breaches the school regulations on skirt length and is of good quality. Everybody apart from the nerds would approve of you wearing it.'
else
'This uniform slightly breaches the school regulations on skirt length. The gopnik would approve of you wearing it.'
end
else
'This uniform makes a mockery of the school uniform regulations. Everybody in school apart from the gopniks will think that you''re a slut.'
end
end
act 'Return':gt 'clothing_QV', 'list', '<<$ward_list_store>>'
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
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
''
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 ---------------------------------