# 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 '
Switch to wardrobe listSwitch to stored clothing listSwitch to unwanted clothing list
' *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 '
Switch to wardrobe listSwitch to stored clothing listSwitch to unwanted clothing list
' *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 '
Switch to wardrobe listSwitch to stored clothing listSwitch to unwanted clothing list
' *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 '
Switch to wardrobe listSwitch to stored clothing listSwitch to unwanted clothing list
' *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 '
Switch to wardrobe listSwitch to stored clothing listSwitch to unwanted clothing list
' *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 '
Switch to wardrobe listSwitch to stored clothing listSwitch to unwanted clothing list
' *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 '
Switch to wardrobe listSwitch to stored clothing listSwitch to unwanted clothing list
' *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 '
Switch to wardrobe listSwitch to stored clothing listSwitch to unwanted clothing list
' *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 '
Switch to wardrobe listSwitch to stored clothing listSwitch to unwanted clothing list
' *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:'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 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 '
<<$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 ---------------------------------