# clothing_QV
if $ARGS[0] = 'list':
'
Wardrobe | Storage | Unwanted | Pick something to wear | '
act 'Strip':gt 'clothing_QV', 'strip'
act 'Leave':gt $loc, $metka
i = 1
:loopcheap
gs 'clothing_attributes', 'cheap', i
if CloStyle ! 5:
if cheap[i] = 1 and cheapS[i] = 0 and cheapH[i] > 0 and cheapB[i] > (bedra - 8) and cheapB[i] < (bedra + 8):*p ''
else
if cheap[i] = 1 and cheapS[i] = 0 and cheapH[i] > 0:*p ''
end
i += 1
if i <= 85:jump 'loopcheap'
i = 1
:loopaverage
gs 'clothing_attributes', 'cheap', i
if CloStyle ! 5:
if average[i] = 1 and averageS[i] = 0 and averageH[i] > 0 and averageB[i] > (bedra - 8) and averageB[i] < (bedra + 8):*p ''
else
if average[i] = 1 and averageS[i] = 0 and averageH[i] > 0:*p ''
end
i += 1
if i <= 125:jump 'loopaverage'
i = 1
:loopexpensive
gs 'clothing_attributes', 'cheap', i
if CloStyle ! 5:
if expensive[i] = 1 and expensiveS[i] = 0 and expensiveH[i] > 0 and expensiveB[i] > (bedra - 8) and expensiveB[i] < (bedra + 8):*p ''
else
if expensive[i] = 1 and expensiveS[i] = 0 and expensiveH[i] > 0:*p ''
end
i += 1
if i <= 147:jump 'loopexpensive'
i = 1
:loopformal
if formal[i] = 1 and formalS[i] = 0 and formalH[i] > 0 and formalB[i] > (bedra - 8) and formalB[i] < (bedra + 8):*p ''
i += 1
if i <= 14:jump 'loopformal'
i = 1
:loopoffice
if office[i] = 1 and officeS[i] = 0 and officeH[i] > 0 and officeB[i] > (bedra - 8) and officeB[i] < (bedra + 8):*p ''
i += 1
if i <= 30:jump 'loopoffice'
i = 1
:loopschool
if school[i] = 1 and schoolS[i] = 0 and schoolH[i] > 0 and schoolB[i] > (bedra - 8) and schoolB[i] < (bedra + 8):*p ''
i += 1
if i = 6: i = 7
if i <= 14:jump 'loopschool'
i = 1
:loopexercise
if exercise[i] = 1 and exerciseS[i] = 0 and exerciseH[i] > 0:*p ''
i += 1
if i <= 26:jump 'loopexercise'
i = 1
:loopnaughty
if naughty[i] = 1 and naughtyS[i] = 0 and naughtyH[i] > 0 and naughtyB[i] > (bedra - 8) and naughtyB[i] < (bedra + 8):*p ''
i += 1
if i <= 67:jump 'loopnaughty'
i = 1
:loopexhibit
if exhibit[i] = 1 and exhibitS[i] = 0 and exhibitH[i] > 0 and exhibitB[i] > (bedra - 8) and exhibitB[i] < (bedra + 8):*p ''
i += 1
if i <= 30:jump 'loopexhibit'
i = 1
:loopuniform
if uniform[i] = 1 and uniformS[i] = 0 and uniformH[i] > 0 and uniformB[i] > (bedra - 8) and uniformB[i] < (bedra + 8):*p ''
i += 1
if i <= 24:jump 'loopuniform'
end
if $ARGS[0] = 'cloak':
i = 1
:loopcoat
if coat[i] = 1 and coatH[i] > 0:*p ''
i += 1
if i <= 12:jump 'loopcoat'
end
if $ARGS[0] = 'strip':
if tanga = 1:
'
'
'You strip down to your panties.'
else
'
'
'You strip completely naked.'
end
gs 'clothing', 'strip'
act 'Choose something to wear':gt 'clothing_QV', 'list'
act 'Leave':gt $loc, $metka
end
if $ARGS[0] = 'change':
*clr
cla
'
'
$RESULT = FUNC('$short_description', $ARGS[1])
$RESULT += '<>'
'<<$RESULT>>'
gs 'clothing_attributes', $ARGS[1], ARGS[2]
if $ARGS[1] ! 'coat' and $ARGS[1] ! 'swimwear':
gs 'clothing_descriptions'
'<<$description>>'
else
FUNC('$clothing_name', $ARGS[1], ARGS[2])
end
if CloBimbo = 1:'This item is considered bimbo clothing.'
if $ARGS[1] = 'naughty' and CloQuality < 4:'This outfit can be used for prostitution.'
if $ARGS[1] = 'uniform':
if CloStyle2 = 1:
'This outfit is considered to be a maid uniform.'
else
'This outfit is a server uniform, suitable for jobs that require one.'
end
end
if $clothingworntype = $ARGS[1] and clothingwornnumber = ARGS[2]:
'You are wearing this outfit.'
else
act 'Wear this outfit':
gs 'clothing', 'wear', $ARGS[1], ARGS[2]
dynamic $ARGS[1] + 'W[<>] = 1'
gt $loc, $metka
end
end
act 'Choose another outfit': gt 'clothing_QV', 'list'
act 'Leave':gt $loc, $metka
end
--- clothing_QV ---------------------------------