# 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('school') > 0:'
' 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': *clr & cla '

Wardrobe

' '
' *nl if ARRSIZE('cheap') > 0:'
Regular G&M clothing
' if ARRSIZE('office') > 0:'
Office wear
' if ARRSIZE('uniform') > 0:'
Work uniforms
' act 'Return': killvar '$ward_list_store' & gt 'clothing_QV', 'list' end if $ARGS[1] = 'gm_cheap': $ward_list_store = $ARGS[1] *clr & cla '

Wardrobe

' '
' '
Regular G&M clothing
' *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 :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' act 'Return': killvar '$ward_list_store' & gt 'clothing_QV', 'list' end if $ARGS[1] = 'gm_office': $ward_list_store = $ARGS[1] *clr & cla '

Wardrobe

' '
' '
Office wear
' *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 :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' act 'Return': killvar '$ward_list_store' & gt 'clothing_QV', 'list' end if $ARGS[1] = 'gm_uniform': $ward_list_store = $ARGS[1] *clr & cla '

Wardrobe

' '
' '
Work uniforms
' *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 :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] = 'school': $ward_list_store = $ARGS[1] *clr & cla '

Wardrobe

' '
' '
School uniforms
' *nl '
Switch to wardrobe listSwitch to stored clothing listSwitch to unwanted clothing list
' *nl '
These are the school uniforms you own 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 :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' 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, $loc_arg 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, $loc_arg 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: if CloInhibit + 10 > pcs_inhib: 'You find this outfit more revealing than you are completely comfortable with but that makes it quite exciting too.' end 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 = 'Sort by quality ' if clothingfilter['quality'] = 0: $Headerstring += 'High - Low' else $Headerstring += 'Random' end $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 ---------------------------------