# 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('gm_school') > 0:'
' if ARRSIZE('cats_outfits') > 0 or ARRSIZE('cats_dress') > 0:'
' if ARRSIZE('flamingos_outfits') > 0 or ARRSIZE('flamingos_dress') > 0:'
' if ARRSIZE('coco_outfits') > 0 or ARRSIZE('coco_dress') > 0:'
' if ARRSIZE('fashionista') > 0:'
' if ARRSIZE('moncheri') > 0:'
' if ARRSIZE('fetish') > 0:'
' if ARRSIZE('fancy_burlesque') > 0:'
' if ARRSIZE('exhibit') > 0:'
' if ARRSIZE('dolls_outfits') > 0 or ARRSIZE('dolls_dress') > 0:'
' if ARRSIZE('bomba_outfits') > 0 or ARRSIZE('bomba_dress') > 0:'
' if ARRSIZE('exercise') > 0:'
' if $ARGS[1] = 'gm': *clr & cla '

Wardrobe

' '
' *nl if ARRSIZE('gm_outfits') > 0:'
G&M clothing
' if ARRSIZE('gm_dress') > 0:'
G&M dresses
' if ARRSIZE('gm_office') > 0:'
Office wear
' if ARRSIZE('gm_uniform') > 0:'
Work uniforms
' act 'Return': killvar '$ward_list_store' & gt 'clothing_QV', 'list' end if $ARGS[1] = 'gm_outfits': $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 :loopgm_outfits if gm_outfits[i] = 1: gs 'clothing_attributes', 'gm_outfits', i if CloInhibit <= pcs_inhib: if CloStyle ! 5: if gm_outfits_s[i] = 0 and gm_outfits_h[i] > 0 and gm_outfits_b[i] >= (pcs_hips - 8) and gm_outfits_b[i] <= (pcs_hips + 8):*p '' else if gm_outfits_s[i] = 0 and gm_outfits_h[i] > 0:*p '' end end end i += 1 if i <= ARRSIZE('gm_outfits'):jump 'loopgm_outfits' act 'Return': killvar '$ward_list_store' & gt 'clothing_QV', 'list' end if $ARGS[1] = 'gm_dress': $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 :loopgm_dress if gm_dress[i] = 1: gs 'clothing_attributes', 'gm_dress', i if CloInhibit <= pcs_inhib: if CloStyle ! 5: if gm_dress_s[i] = 0 and gm_dress_h[i] > 0 and gm_dress_b[i] >= (pcs_hips - 8) and gm_dress_b[i] <= (pcs_hips + 8):*p '' else if gm_dress_s[i] = 0 and gm_dress_h[i] > 0:*p '' end end end i += 1 if i <= ARRSIZE('gm_dress'):jump 'loopgm_dress' 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 gm_office[i] = 1: gs 'clothing_attributes', 'gm_office', i if CloInhibit <= pcs_inhib: if gm_office_s[i] = 0 and gm_office_h[i] > 0 and gm_office_b[i] >= (pcs_hips - 8) and gm_office_b[i] <= (pcs_hips + 8):*p '' end end i += 1 if i <= ARRSIZE('gm_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 gm_uniform[i] = 1: gs 'clothing_attributes', 'gm_uniform', i if CloInhibit <= pcs_inhib: if gm_uniform_s[i] = 0 and gm_uniform_h[i] > 0 and gm_uniform_b[i] >= (pcs_hips - 8) and gm_uniform_b[i] <= (pcs_hips + 8):*p '' end end i += 1 if i <= ARRSIZE('gm_uniform'):jump 'loopuniform' act 'Return': killvar '$ward_list_store' & gt 'clothing_QV', 'list' end if $ARGS[1] = 'gm_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 gm_school_s[6] = 0:*p '' i = 1 :loopschool if gm_school[i] = 1: gs 'clothing_attributes', 'gm_school', i if CloInhibit <= pcs_inhib: if gm_school_s[i] = 0 and gm_school_h[i] > 0 and gm_school_b[i] >= (pcs_hips - 8) and gm_school_b[i] <= (pcs_hips + 8):*p '' end end i += 1 if i = 6: i = 7 if i <= ARRSIZE('gm_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 :loopcats_outfits if cats_outfits[i] = 1: gs 'clothing_attributes', 'cats_outfits', i if CloInhibit <= pcs_inhib: if CloStyle ! 5: if cats_outfits_s[i] = 0 and cats_outfits_h[i] > 0 and cats_outfits_b[i] >= (pcs_hips - 8) and cats_outfits_b[i] <= (pcs_hips + 8):*p '' else if cats_outfits_s[i] = 0 and cats_outfits_h[i] > 0:*p '' end end end i += 1 if i <= ARRSIZE('cats_outfits'):jump 'loopcats_outfits' i = 1 :loopcats_dress if cats_dress[i] = 1: gs 'clothing_attributes', 'cats_dress', i if CloInhibit <= pcs_inhib: if CloStyle ! 5: if cats_dress_s[i] = 0 and cats_dress_h[i] > 0 and cats_dress_b[i] >= (pcs_hips - 8) and cats_dress_b[i] <= (pcs_hips + 8):*p '' else if cats_dress_s[i] = 0 and cats_dress_h[i] > 0:*p '' end end end i += 1 if i <= ARRSIZE('cats_dress'):jump 'loopcats_dress' act 'Return': killvar '$ward_list_store' & gt 'clothing_QV', 'list' end if $ARGS[1] = 'flamingos': *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 :loopflamingos_outfits if flamingos_outfits[i] = 1: gs 'clothing_attributes', 'flamingos_outfits', i if CloInhibit <= pcs_inhib: if CloStyle ! 5: if flamingos_outfits_s[i] = 0 and flamingos_outfits_h[i] > 0 and flamingos_outfits_b[i] >= (pcs_hips - 8) and flamingos_outfits_b[i] <= (pcs_hips + 8):*p '' else if flamingos_outfits_s[i] = 0 and flamingos_outfits_h[i] > 0:*p '' end end end i += 1 if i <= ARRSIZE('flamingos_outfits'):jump 'loopflamingos_outfits' i = 1 :loopflamingos_dress if flamingos_dress[i] = 1: gs 'clothing_attributes', 'flamingos_dress', i if CloInhibit <= pcs_inhib: if CloStyle ! 5: if flamingos_dress_s[i] = 0 and flamingos_dress_h[i] > 0 and flamingos_dress_b[i] >= (pcs_hips - 8) and flamingos_dress_b[i] <= (pcs_hips + 8):*p '' else if flamingos_dress_s[i] = 0 and flamingos_dress_h[i] > 0:*p '' end end end i += 1 if i <= ARRSIZE('flamingos_dress'):jump 'loopflamingos_dress' act 'Return': killvar '$ward_list_store' & gt 'clothing_QV', 'list' end if $ARGS[1] = 'coco': *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 :loopcoco_outfit if coco_outfits[i] = 1: gs 'clothing_attributes', 'coco_outfits', i if CloInhibit <= pcs_inhib: if CloStyle ! 5: if coco_outfits_s[i] = 0 and coco_outfits_h[i] > 0 and coco_outfits_b[i] >= (pcs_hips - 8) and coco_outfits_b[i] <= (pcs_hips + 8):*p '' else if coco_outfits_s[i] = 0 and coco_outfits_h[i] > 0:*p '' end end end i += 1 if i <= ARRSIZE('coco_outfits'):jump 'loopcoco_outfit' i = 1 :loopcoco_dress if coco_dress[i] = 1: gs 'clothing_attributes', 'coco_dress', i if CloInhibit <= pcs_inhib: if CloStyle ! 5: if coco_dress_s[i] = 0 and coco_dress_h[i] > 0 and coco_dress_b[i] >= (pcs_hips - 8) and coco_dress_b[i] <= (pcs_hips + 8):*p '' else if coco_dress_s[i] = 0 and coco_dress_h[i] > 0:*p '' end end end i += 1 if i <= ARRSIZE('coco_dress'):jump 'loopcoco_dress' 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 :loopfashionista if fashionista[i] = 1: gs 'clothing_attributes', 'fashionista', i if CloInhibit <= pcs_inhib: if CloStyle ! 5: if fashionista_s[i] = 0 and fashionista_h[i] > 0 and fashionista_b[i] >= (pcs_hips - 8) and fashionista_b[i] <= (pcs_hips + 8):*p '' else if fashionista_s[i] = 0 and fashionista_h[i] > 0:*p '' end end end i += 1 if i <= ARRSIZE('fashionista'):jump 'loopfashionista' 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 :loopmoncheri if moncheri[i] = 1: gs 'clothing_attributes', 'moncheri', i if CloInhibit <= pcs_inhib: if moncheri_s[i] = 0 and moncheri_h[i] > 0 and moncheri_b[i] >= (pcs_hips - 8) and moncheri_b[i] <= (pcs_hips + 8):*p '' end end i += 1 if i <= ARRSIZE('moncheri'):jump 'loopmoncheri' 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 fetish_s[i] = 0 and fetish_h[i] > 0 and fetish_b[i] >= (pcs_hips - 8) and fetish_b[i] <= (pcs_hips + 8):*p '' end end i += 1 if i <= ARRSIZE('fetish'):jump 'loopfetish' act 'Return': killvar '$ward_list_store' & gt 'clothing_QV', 'list' end if $ARGS[1] = 'fancypancy': *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 :loopburlesque if fancy_burlesque[i] = 1: gs 'clothing_attributes', 'fancy_burlesque', i if CloInhibit <= pcs_inhib: if fancy_burlesque_s[i] = 0 and fancy_burlesque_h[i] > 0 and fancy_burlesque_b[i] >= (pcs_hips - 8) and fancy_burlesque_b[i] <= (pcs_hips + 8):*p '' end end i += 1 if i <= ARRSIZE('fancy_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 exhibit_s[i] = 0 and exhibit_h[i] > 0 and exhibit_b[i] >= (pcs_hips - 8) and exhibit_b[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 :loopdolls_outfits if dolls_outfits[i] = 1: gs 'clothing_attributes', 'dolls_outfits', i if CloInhibit <= pcs_inhib: if CloStyle ! 5: if dolls_outfits_s[i] = 0 and dolls_outfits_h[i] > 0 and dolls_outfits_b[i] >= (pcs_hips - 8) and dolls_outfits_b[i] <= (pcs_hips + 8):*p '' else if dolls_outfits_s[i] = 0 and dolls_outfits_h[i] > 0:*p '' end end end i += 1 if i <= ARRSIZE('dolls_outfits'):jump 'loopdolls_outfits' i = 1 :loopdolls_dress if dolls_dress[i] = 1: gs 'clothing_attributes', 'dolls_dress', i if CloInhibit <= pcs_inhib: if CloStyle ! 5: if dolls_dress_s[i] = 0 and dolls_dress_h[i] > 0 and dolls_dress_b[i] >= (pcs_hips - 8) and dolls_dress_b[i] <= (pcs_hips + 8):*p '' else if dolls_dress_s[i] = 0 and dolls_dress_h[i] > 0:*p '' end end end i += 1 if i <= ARRSIZE('dolls_dress'):jump 'loopdolls_dress' act 'Return': killvar '$ward_list_store' & gt 'clothing_QV', 'list' end if $ARGS[1] = 'bomba': *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 :loopbomba_outfits if bomba_outfits[i] = 1: gs 'clothing_attributes', 'bomba_outfits', i if CloInhibit <= pcs_inhib: if CloStyle ! 5: if bomba_outfits_s[i] = 0 and bomba_outfits_h[i] > 0 and bomba_outfits_b[i] >= (pcs_hips - 8) and bomba_outfits_b[i] <= (pcs_hips + 8):*p '' else if bomba_outfits_s[i] = 0 and bomba_outfits_h[i] > 0:*p '' end end end i += 1 if i <= ARRSIZE('bomba_outfits'):jump 'loopbomba_outfits' i = 1 :loopbomba_dress if bomba_dress[i] = 1: gs 'clothing_attributes', 'bomba_dress', i if CloInhibit <= pcs_inhib: if CloStyle ! 5: if bomba_dress_s[i] = 0 and bomba_dress_h[i] > 0 and bomba_dress_b[i] >= (pcs_hips - 8) and bomba_dress_b[i] <= (pcs_hips + 8):*p '' else if bomba_dress_s[i] = 0 and bomba_dress_h[i] > 0:*p '' end end end i += 1 if i <= ARRSIZE('bomba_dress'):jump 'loopbomba_dress' 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 exercise_s[i] = 0 and exercise_h[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 exercise_s[i] = 0 and exercise_h[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 coat_h[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] = 'misc_outfits' and ARGS[2] = 1: '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' and $ARGS[1] ! 'beach': 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 ---------------------------------