# 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('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
''
*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
''
*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
''
*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
''
*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
''
*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
''
*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
''
*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
''
*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
''
*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
''
*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
''
*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
''
*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
''
*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
''
*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
''
*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
''
*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
''
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 ---------------------------------