# clothing
menu_off = 1
$clothing_list_line = {
!! a single line in a clothing list (wardrobe, etc)
!! ARGS 0 - action type (wardrobe, sell, resize, store, forsale)
!! ARGS 1 - clothing type
!! ARGS 2 - clothing index
gs 'themes', 'clothing', 1
$RESULT = '
'
if Enable_clothwidth > 0:
clothing_temp = Enable_clothwidth - 1
else
clothing_temp = 150 & !clothing widdefault to 150
end
$RESULT +='![](<<FUNC(''$clothing_image'', $ARGS[1], ARGS[2])>>) <<$ARGS[1]>> outfit | '
killvar 'clothing_temp'
gs 'clothing_attributes', $ARGS[1], ARGS[2]
if $ARGS[1] ! 'school' or ARGS[2] ! 6:
$RESULT += '' + dyneval '$RESULT += <<$ARGS[1]>>H[<>]' + ' | '
if $ARGS[1] ! 'exercise' and $ARGS[1] ! 'coat' and CloStyle ! 5:
$RESULT += '' + dyneval '$RESULT += <<$ARGS[1]>>B[<>]' + ' | '
else
$RESULT += ' | '
end
else
$RESULT += ' | '
end
if $ARGS[1] = 'cheap' and ARGS[2] = 414:
$RESULT += 'A hessian sack the hunters gave you. | '
elseif $ARGS[1] ! 'coat' and $ARGS[1] ! 'swimwear':
gs 'clothing_descriptions'
$RESULT += '<> <>
<<$description>> | '
else
$RESULT += '' + FUNC('$clothing_name', $ARGS[1], ARGS[2]) + ' | '
end
if CloBimbo = 1:
$RESULT += 'Yes | '
else
$RESULT += 'No | '
end
if CloStyle = 4:
$RESULT += 'Yes | '
else
$RESULT += 'No | '
end
$RESULT += 'View'
if $ARGS[0] ! 'sell' and $ARGS[0] ! 'resize':
if StoryLine = 1 and SchoolAtestat = 0 and SchoolBlock = 0 and $ARGS[1] = 'school' and ARGS[2] = 6:
$RESULT += ' Wear | '
elseif ($ARGS[1] ! 'coat' and $ARGS[1] ! 'swimwear') and dyneval('RESULT = <<$ARGS[1]>>H[<>]') > 0:
if $ARGS[1] ! 'exercise' and CloStyle ! 5 and (dyneval('RESULT = <<$ARGS[1]>>B[<>]') < (pcs_hips - 8) or dyneval('RESULT = <<$ARGS[1]>>B[<>]') > (pcs_hips + 8)) or (ARRPOS('$CloLosTyp', $ARGS[1]) ! -1 and ARRPOS('CloLosNum',ARGS[2]) ! -1):
$RESULT += ''
else
$RESULT += ' Wear'
end
else
$RESULT += ''
end
$RESULT += ''
if cloc ! 1:$RESULT += ' Storage '
if cloc ! 0:$RESULT += ' Wardrobe '
if $ARGS[1] ! 'school' or ARGS[2] ! 6:
if cloc ! 2:$RESULT += ' Unwanted'
end
$RESULT += ' | '
end
}
!!cloc, 0 = wardrobe, 1 = storage, 2 = unwanted
if $ARGS[0] = 'dest0':
*clr
dynamic '<<$ARGS[2]>>S[<>] = 0'
gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>', '<<$ward_list_store>>'
end
if $ARGS[0] = 'dest1':
*clr
dynamic '<<$ARGS[2]>>S[<>] = 1'
gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>', '<<$ward_list_store>>'
end
if $ARGS[0] = 'dest2':
*clr
dynamic '<<$ARGS[2]>>S[<>] = 2'
gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>', '<<$ward_list_store>>'
end
if $ARGS[0] = 'view_clothing_list':
!! ARGS 0 - view_clothing_list
!! ARGS 1 - action type (wardrobe, sell, resize, store, unwanted)
!! ARGS 2 - Shop name (kats, moncheri, gm, fashionista, sexshop, exhibitshop, dolls, sports)
if $pursepantytype ! '' or $pursebratype ! '' and $ARGS[1] ! 'resize' and $ARGS[1] ! 'sell':
'You put the '+iif($pursepantytype ! '','panties','')+iif($pursepantytype ! '' and $pursebratype ! '',' and ','')+iif($pursebratype ! '','bra','')+' from your purse back in the wardrobe.
'
killvar '$pursepantytype' & killvar 'pursepantynumber'
killvar '$pursebratype' & killvar 'pursebranumber'
end
if $ARGS[1] = 'wardrobe':
$ward_list_page = $ARGS[1]
'Wardrobe list
'
elseif $ARGS[1] = 'store':
$ward_list_page = $ARGS[1]
'Stored clothing list
'
elseif $ARGS[1] = 'unwanted':
$ward_list_page = $ARGS[1]
'Unwanted clothing list
'
elseif $ARGS[1] = 'sell':
$ward_list_page = $ARGS[1]
'Choose an item to sell
'
end
if $ARGS[2] = 'gm' or $ARGS[2] = 'gm_cheap' or $ARGS[2] = 'gm_office' or $ARGS[2] = 'gm_school' or $ARGS[2] = 'gm_uniform':
!'Viewing clothes from G&M'
'
'
elseif $ARGS[2] = 'kats':
!'Viewing clothes from PussyKats'
'
'
elseif $ARGS[2] = 'fashionista':
!'Viewing clothes from Fashionista'
'
'
elseif $ARGS[2] = 'moncheri':
!'Viewing clothes from Mon Cheri'
'
'
elseif $ARGS[2] = 'sexshop':
!'Viewing clothes from the sex shop'
'
'
elseif $ARGS[2] = 'exhibitshop':
!'Viewing clothes from the Exhibitionist shop'
'
'
elseif $ARGS[2] = 'dolls':
!'Viewing clothes from Patchwork Dolls'
'
'
elseif $ARGS[2] = 'sports':
!'Viewing sportswear from Danilovich'
'
'
else
'Click on a shop name to view clothes from that shop'
if $wloc = 'wardrobe':
act 'Return': killvar '$ward_list_store' & gt 'wardrobe', 'start'
elseif $ARGS[1] = 'sell' or $ARGS[1] = 'resize':
act 'Leave': killvar '$ward_list_store' & gt $loc, $loc_arg
else
act 'Leave': killvar '$ward_list_store' & gt $loc, $loc_arg
end
end
*nl
if $ARGS[1] ! 'sell':
$clothing_header = ''
if $ARGS[1] ! 'wardrobe': $clothing_header += 'Switch to wardrobe list | '
$clothing_header += 'Switch to icons | '
if $ARGS[1] ! 'store': $clothing_header += 'Switch to stored clothing list | '
if $ARGS[1] ! 'unwanted': $clothing_header += 'Switch to unwanted clothing list | '
$clothing_header
if $ARGS[1] = 'wardrobe':
'These are the clothes that are currently available for you to wear.
'
elseif $ARGS[1] = 'store':
'These are the clothes you have stored that do not show up in your wardrobe list and cannot be sold at the market.
'
elseif $ARGS[1] = 'unwanted':
'These are the clothes you''ve marked to be sold at the market.
'
end
end
if $ARGS[2] = '':
'
'
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:'
'
else
$bgcolor='#f3f4ee'
if $ARGS[1] = 'sell':
' | Strength | Hip size | Description | Bimbo | Prostitute | Actions | '
else
' | Strength | Hip size | Description | Bimbo | Prostitute | Actions | Move to | '
end
if $ARGS[1] = 'store':
cloc = 1
elseif $ARGS[1] = 'unwanted':
cloc = 2
else
cloc = 0
end
if $ARGS[2] = 'gm':
if ARRSIZE('cheap') > 0:'Regular G&M clothing'
if ARRSIZE('office') > 0:'Office wear'
if ARRSIZE('school') > 0:'School uniforms'
if ARRSIZE('uniform') > 0:'Work uniforms'
act 'Return': killvar '$ward_list_store' & gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>'
end
if $ARGS[2] = 'gm_cheap':
$ward_list_store = $ARGS[2]
i = 1
:loopcheap
if cheap[i] = 1 and cheapS[i] = cloc and ($clothingworntype ! 'cheap' or clothingwornnumber ! i):*P dyneval($clothing_list_line, $ARGS[1], 'cheap', i)
i += 1
if i <= ARRSIZE('cheap'):jump 'loopcheap'
act 'Return': killvar '$ward_list_store' & gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>'
gs 'clothing', 'clothwidth'
end
if $ARGS[2] = 'gm_office':
$ward_list_store = $ARGS[2]
i = 1
:loopoffice
if office[i] = 1 and officeS[i] = cloc and ($clothingworntype ! 'office' or clothingwornnumber ! i):*P dyneval($clothing_list_line, $ARGS[1], 'office', i)
i += 1
if i <= ARRSIZE('office'):jump 'loopoffice'
act 'Return': killvar '$ward_list_store' & gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>'
gs 'clothing', 'clothwidth'
end
if $ARGS[2] = 'gm_school':
$ward_list_store = $ARGS[2]
if StoryLine = 1 and SchoolAtestat = 0 and SchoolBlock = 0 and schoolS[6] = cloc and ($clothingworntype ! 'school' or clothingwornnumber ! 6):*P dyneval($clothing_list_line, $ARGS[1], 'school', 6)
i = 1
:loopschool
if school[i] = 1 and schoolS[i] = cloc and ($clothingworntype ! 'school' or clothingwornnumber ! i):*P dyneval($clothing_list_line, $ARGS[1], 'school', i)
i += 1
if i = 6: i = 7
if i <= ARRSIZE('school'):jump 'loopschool'
act 'Return': killvar '$ward_list_store' & gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>'
gs 'clothing', 'clothwidth'
end
if $ARGS[2] = 'gm_uniform':
$ward_list_store = $ARGS[2]
i = 1
:loopuniform
if uniform[i] = 1 and uniformS[i] = cloc and ($clothingworntype ! 'uniform' or clothingwornnumber ! i):*P dyneval($clothing_list_line, $ARGS[1], 'uniform', i)
i += 1
if i <= ARRSIZE('uniform'):jump 'loopuniform'
act 'Return': killvar '$ward_list_store' & gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>'
gs 'clothing', 'clothwidth'
end
if $ARGS[2] = 'kats':
$ward_list_store = $ARGS[2]
i = 1
:loopaverage
if average[i] = 1 and averageS[i] = cloc and ($clothingworntype ! 'average' or clothingwornnumber ! i):*P dyneval($clothing_list_line, $ARGS[1], 'average', i)
i += 1
if i <= ARRSIZE('average'):jump 'loopaverage'
act 'Return': killvar '$ward_list_store' & gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>'
gs 'clothing', 'clothwidth'
end
if $ARGS[2] = 'fashionista':
$ward_list_store = $ARGS[2]
i = 1
:loopexpensive
if expensive[i] = 1 and expensiveS[i] = cloc and ($clothingworntype ! 'expensive' or clothingwornnumber ! i):*P dyneval($clothing_list_line, $ARGS[1], 'expensive', i)
i += 1
if i <= ARRSIZE('expensive'):jump 'loopexpensive'
act 'Return': killvar '$ward_list_store' & gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>'
gs 'clothing', 'clothwidth'
end
if $ARGS[2] = 'moncheri':
$ward_list_store = $ARGS[2]
i = 1
:loopformal
if formal[i] = 1 and formalS[i] = cloc and ($clothingworntype ! 'formal' or clothingwornnumber ! i):*P dyneval($clothing_list_line, $ARGS[1], 'formal', i)
i += 1
if i <= ARRSIZE('formal'):jump 'loopformal'
act 'Return': killvar '$ward_list_store' & gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>'
gs 'clothing', 'clothwidth'
end
if $ARGS[2] = 'sexshop':
$ward_list_store = $ARGS[2]
i = 1
:loopfetish
if fetish[i] = 1 and fetishS[i] = cloc and ($clothingworntype ! 'fetish' or clothingwornnumber ! i):*P dyneval($clothing_list_line, $ARGS[1], 'fetish', i)
i += 1
if i <= ARRSIZE('fetish'):jump 'loopfetish'
act 'Return': killvar '$ward_list_store' & gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>'
gs 'clothing', 'clothwidth'
i = 1
:loopburlesque
if burlesque[i] = 1 and burlesqueS[i] = cloc and ($clothingworntype ! 'burlesque' or clothingwornnumber ! i):*P dyneval($clothing_list_line, $ARGS[1], 'burlesque', i)
i += 1
if i <= ARRSIZE('burlesque'):jump 'loopburlesque'
act 'Return': killvar '$ward_list_store' & gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>'
gs 'clothing', 'clothwidth'
end
if $ARGS[2] = 'exhibitshop':
$ward_list_store = $ARGS[2]
i = 1
:loopexhibit
if exhibit[i] = 1 and exhibitS[i] = cloc and ($clothingworntype ! 'exhibit' or clothingwornnumber ! i):*P dyneval($clothing_list_line, $ARGS[1], 'exhibit', i)
i += 1
if i <= ARRSIZE('exhibit'):jump 'loopexhibit'
act 'Return': killvar '$ward_list_store' & gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>'
gs 'clothing', 'clothwidth'
end
if $ARGS[2] = 'dolls':
cla
$ward_list_store = $ARGS[2]
i = 1
:loopalternative
if alternative[i] = 1 and alternativeS[i] = cloc and ($clothingworntype ! 'alternative' or clothingwornnumber ! i):*P dyneval($clothing_list_line, $ARGS[1], 'alternative', i)
i += 1
if i <= ARRSIZE('alternative'):jump 'loopalternative'
act 'Return': killvar '$ward_list_store' & gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>'
gs 'clothing', 'clothwidth'
end
if $ARGS[2] = 'sports':
$ward_list_store = $ARGS[2]
i = 1
:loopexercise
if exercise[i] = 1 and exerciseS[i] = cloc and ($clothingworntype ! 'exercise' or clothingwornnumber ! i):*P dyneval($clothing_list_line, $ARGS[1], 'exercise', i)
i += 1
if i <= ARRSIZE('exercise'):jump 'loopexercise'
i = 1
:loopswimwear
if swimwear[i] = 1 and swimwearS[i] = cloc :*P dyneval($clothing_list_line, $ARGS[1], 'swimwear', i)
i += 1
if i <= ARRSIZE('swimwear'):jump 'loopswimwear'
act 'Return': killvar '$ward_list_store' & gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>'
gs 'clothing', 'clothwidth'
end
'
'
end
end
if $ARGS[0] = 'clothwidth':
act 'Set image size for this view':
Enable_clothwidth = input("Enter height in pixels you want for images on this page
(Default 150, min 50, max 500)")
if Enable_clothwidth < 50:
Enable_clothwidth = 50
elseif Enable_clothwidth > 500:
Enable_clothwidth = 500
end
gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>', '<<$ward_list_store>>'
end
end
if $ARGS[0] = 'view_clothing_item':
!! ARGS 0 - view_clothing_item
!! ARGS 1 = action type (wardrobe, shop, sell, resize)
!! ARGS 2 - clothing type
!! ARGS 3 - clothing index
!! ARGS 4 - price for shop
cla
'
'
gs 'clothing_attributes', $ARGS[2], ARGS[3]
$RESULT = FUNC('$short_description', $ARGS[2], CloStyle2)
$RESULT += '<>'
'<<$RESULT>>'
if $ARGS[1] = 'cheap' and ARGS[2] = 414:
'A hessian sack the hunters gave you.'
elseif $ARGS[2] ! 'coat' and $ARGS[2] ! 'swimwear':
gs 'clothing_descriptions'
'<<$description>>'
else
FUNC('$clothing_name', $ARGS[2], ARGS[3])
end
if CloBimbo = 1 and cheatbimbo = 0:'This item is considered bimbo clothing.'
if CloStyle = 4:'This outfit can be used for prostitution.'
if CloInhibit > 10:
if CloInhibit + 10 > pcs_inhib and CloInhibit <= pcs_inhib: 'You find this outfit more revealing than you are completely comfortable with but that makes it quite exciting too.'
end
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 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
if $ARGS[1] ! 'shop' and ($ARGS[2] ! 'school' or ARGS[3] ! 6):
$RESULT = '(strength '
dynamic '$RESULT += <<$ARGS[2]>>H[<>]'
if $ARGS[2] ! 'exercise' and $ARGS[2] ! 'coat' and CloStyle ! 5:
$RESULT += ', hip size '
dynamic '$RESULT += <<$ARGS[2]>>B[<>]'
end
$RESULT += ')'
'<<$RESULT>>'
end
if $ARGS[1] = 'shop':
if dyneval('RESULT = <<$ARGS[2]>>[<>]') = 1:
'You already own this item.'
act 'Leave': gt $loc, $loc_arg
else
if $ARGS[2] = 'coat' and ARGS[3] = 5:
price = ARGS[4]
else
price = ('<>' * ((5 * CloQuality) + 100) / 100) * 1000 / (1250 - Clothingstock[ARGS[3]]) * 3 / 2
price = price / 50 * 50
end
'Price: <> ₽'
act 'Leave': gt $loc, $loc_arg
if CloInhibit > pcs_inhib:
'You don''t feel daring enough to wear an outfit this revealing and can''t bring yourself to buy it.'
elseif karta + bankDebtLimit < Price and money < Price:
'You cannot afford this outfit.'
else
if money >= Price:
act 'Buy (cash)':
h = 0
if CloStyle = 2:h = 10
if CloStyle = 5:h = 20
h += (3 * CloQuality)
money -= price
dynamic $ARGS[2] + '[<>] = 1'
if $ARGS[2] = 'cheap' or $ARGS[2] = 'office':
dynamic $ARGS[2] + 'H[<>] = 70 + <>'
elseif $ARGS[2] = 'average':
dynamic $ARGS[2] + 'H[<>] = 90 + <>'
elseif $ARGS[2] = 'formal':
dynamic $ARGS[2] + 'H[<>] = 15 + <>'
elseif $ARGS[2] = 'fetish' or $ARGS[2] = 'exhibit' or $ARGS[2] = 'burlesque':
dynamic $ARGS[2] + 'H[<>] = 35 + <>'
elseif $ARGS[2] = 'school' or $ARGS[2] = 'uniform':
dynamic $ARGS[2] + 'H[<>] = 120 + <>'
elseif $ARGS[2] = 'exercise':
dynamic $ARGS[2] + 'H[<>] = 100 + <>'
elseif $ARGS[2] = 'coat':
dynamic $ARGS[2] + 'H[<>] = 250 + <>'
else
dynamic $ARGS[2] + 'H[<>] = 60 + <>'
end
dynamic $ARGS[2] + 'B[<>] = pcs_hips'
dynamic $ARGS[2] + 'S[<>] = 0'
gs 'stat'
gt $loc, $loc_arg
end
end
if karta + bankDebtLimit >= Price:
act 'Buy (card)':
h = 0
if CloStyle = 2:h = 10
if CloStyle = 5:h = 20
h += (3 * CloQuality)
karta -= price
dynamic $ARGS[2] + '[<>] = 1'
if $ARGS[2] = 'cheap' or $ARGS[2] = 'office':
dynamic $ARGS[2] + 'H[<>] = 70 + <>'
elseif $ARGS[2] = 'average':
dynamic $ARGS[2] + 'H[<>] = 90 + <>'
elseif $ARGS[2] = 'formal':
dynamic $ARGS[2] + 'H[<>] = 15 + <>'
elseif $ARGS[2] = 'fetish' or $ARGS[2] = 'exhibit' or $ARGS[2] = 'burlesque':
dynamic $ARGS[2] + 'H[<>] = 35 + <>'
elseif $ARGS[2] = 'school' or $ARGS[2] = 'uniform':
dynamic $ARGS[2] + 'H[<>] = 120 + <>'
elseif $ARGS[2] = 'exercise':
dynamic $ARGS[2] + 'H[<>] = 100 + <>'
elseif $ARGS[2] = 'coat':
dynamic $ARGS[2] + 'H[<>] = 250 + <>'
else
dynamic $ARGS[2] + 'H[<>] = 60 + <>'
end
dynamic $ARGS[2] + 'B[<>] = pcs_hips'
dynamic $ARGS[2] + 'S[<>] = 0'
gs 'stat'
gt $loc, $loc_arg
end
end
end
end
elseif $ARGS[1] = 'wardrobe':
act 'Return':gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>', '<<$ward_list_store>>'
if $ARGS[2] ! 'school' or ARGS[3] ! 6:
!! if the clothing is worn out
if dyneval('RESULT = <<$ARGS[2]>>H[<>]') <= 0:
'This item is worn and is not suitable for further wear.'
if pcs_sewng >= 60 and tkan > 0:
cla
'You can repair this thanks to your sewing skill.'
act 'Repair item':
if rand (1, 100) < 30:
cla
tkan -= 1
minut += 30
dynamic $ARGS[2] + 'H[<>] += 30'
'You spend 30 minutes fixing the outfit.'
act 'Return':gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>', '<<$ward_list_store>>'
else
cla
tkan += 3
minut += 30
dynamic $ARGS[2] + '[<>] = 0'
'Despite your skill with a needle, this outfit has proved beyond repair. All that is left of it is only good for your cloth pile.'
act 'Return':gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>'
end
end
act 'Return': gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>', '<<$ward_list_store>>'
end
exit
end
!! if the clothing is a type that checks for hip size
if $ARGS[2] ! 'exercise' and $ARGS[2] ! 'coat' and CloStyle ! 5:
!! if the hipsize is too far from your hipsize
dynamic 'RESULT = <<$ARGS[2]>>B[<>]'
if RESULT < pcs_hips - 8 or RESULT > pcs_hips + 8:
if RESULT < pcs_hips:
'This item is too small for you to wear.'
else
'This item is too large for you to wear.'
end
if pcs_sewng >= 60 and tkan > 0:
cla
'You can resize this thanks to your sewing skill.'
act 'Resize item':
cla
tkan -= 1
minut += 30
dynamic $ARGS[2] + 'B[<>] = pcs_hips'
'You spend 30 minutes resizing the outfit.'
act 'Return':gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>', '<<$ward_list_store>>'
end
act 'Return': gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>', '<<$ward_list_store>>'
end
exit
end
end
end
if $ARGS[2] ! 'coat' and $ARGS[2] ! 'swimwear':
if CloInhibit > pcs_inhib:
'You don''t feel daring enough to wear an outfit this revealing.'
elseif ARRPOS('$CloLosTyp', $ARGS[2]) ! -1 and ARRPOS('CloLosNum',ARGS[3]) ! -1 :
'You lost these clothes somewhere, maybe you can find them again?.'
else
act 'Wear':
gs 'clothing', 'wear', $ARGS[2], ARGS[3]
gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>', '<<$ward_list_store>>'
end
end
end
elseif $ARGS[1] = 'store' or $ARGS[1] = 'unwanted':
act 'Return':gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>', '<<$ward_list_store>>'
if $ARGS[2] ! 'coat':
act 'Move back to wardrobe':
dynamic $ARGS[2] + 'S[<>] = 0'
gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>', '<<$ward_list_store>>'
end
end
elseif $ARGS[1] = 'sell':
$ward_list_page = $ARGS[1]
act 'Keep item':gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>', '<<$ward_list_store>>'
!! value is based on the strength remaining
dynamic 'RESULT = <<$ARGS[2]>>H[<>]'
if RESULT > 45:
'You can sell this item for 500 ₽.'
act 'Sell':
dynamic '<<$ARGS[2]>>[<>] = 0'
money += 500
gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>', '<<$ward_list_store>>'
end
elseif RESULT > 30:
'You can sell this item for 300 ₽.'
act 'Sell':
dynamic '<<$ARGS[2]>>[<>] = 0'
money += 300
gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>', '<<$ward_list_store>>'
end
elseif RESULT > 0:
'You can sell this item for 100 ₽.'
act 'Sell':
dynamic '<<$ARGS[2]>>[<>] = 0'
money += 100
gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>', '<<$ward_list_store>>'
end
else
'This item is too worn to have any sale value.'
act 'Throw it away':
dynamic '<<$ARGS[2]>>[<>] = 0'
gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>', '<<$ward_list_store>>'
end
end
elseif $ARGS[1] = 'resize':
act 'Leave item alone':gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>', '<<$ward_list_store>>'
if $ARGS[2] ! 'exercise' and $ARGS[2] ! 'coat' and CloStyle ! 5:
if dyneval('RESULT = <<$ARGS[2]>>B[<>]') ! pcs_hips and money >= 500:
'You can have this resized for 500 ₽.'
act 'Resize':
money -= 500
dynamic '<<$ARGS[2]>>B[<>] = pcs_hips'
gt 'clothing', 'view_clothing_list', 'resize'
end
end
end
end
end
if $ARGS[0] = 'strip':
!$ARGS[1] = location when stripping outdoors
if $clothingworntype = 'nude': exit
cumspclnt = 6
gs 'cum_cleanup'
if cloth_vid = 1:
last_vid = 1
else
last_vid = 0
end
if PCloStyle2 = 4:
$schbrand = $clothingworntype
schtype = clothingwornnumber
end
if $ARGS[1] ! '' :
DYNAMIC '$CloLos<<$clothingworntype>>[<>]=<<$ARGS[1]>>'
$CloLosLoc[] = $ARGS[1]
$CloLosTyp[$ARGS[1]] = $clothingworntype
CloLosNum[$ARGS[1]] = clothingwornnumber
CloLosDay[$ARGS[1]] = daystart
KILLVAR '$lastwornclothingtype'
KILLVAR 'lastwornclothingnumber'
else
$lastwornclothingtype = $clothingworntype
lastwornclothingnumber = clothingwornnumber
end
$clothingworntype = 'nude'
clothingwornnumber = 0
CloQuality = 0
CloThinness = 0
CloTopCut = 0
CloBra = 0
CloPantsShortness = 0
CloSkirtShortness = 0
CloPanties = 0
CloStyle = 0
CloStyle2 = 0
CloBimbo = 0
CloOnePiece = 0
PShoQuaility = 0
PShoCut = 0
PShoHeels = 0
PShoStyle = 0
PCloQuality = 0
PCloThinness = 0
PCloTopCut = 0
PCloPants = 0
PCloSkirt = 0
PCloStyle = 0
PCloStyle2 = 0
PCloBimbo = 0
PCloInhibit = 0
PCloOnePiece = 0
PXCloThinness = 0
PXCloTopCut = 0
PXCloBottomShortness = 0
glamur = 0
sport = 0
ski = 0
ofclo = 0
sexual = 0
odevnesh = 0
! WD: Bimbo look
cloth_vid = 0
exhibiHideNewCloth = 0
end
if $ARGS[0] = 'recover_lost_clothes':
!$ARGS[1] = location
!ARGS[2] = 1 : wear the clothes, ARGS[2] = 2 : Return to shop (lost FOREVAH!)
$cloLoc = $ARGS[1]
cloAction = ARGS[2]
$clothType = $CloLosTyp[$cloLoc]
clothNumber = CloLosNum[$cloLoc]
dayLost = CloLosDay[$cloLoc]
DYNAMIC 'KILLVAR ''$CloLos<<$clothingworntype>>'', <>'
findLocInd = ARRPOS('$CloLosTyp', $clothType)
KILLVAR '$CloLosTyp', findLocInd
findLocInd = ARRPOS('CloLosNum', clothNumber)
KILLVAR 'CloLosNum', findLocInd
findLocInd = ARRPOS('CloLosDay', CloLosDay[$cloLoc])
KILLVAR 'CloLosDay', findLocInd
findLocInd = ARRPOS('$CloLosLoc', $cloLoc)
KILLVAR '$CloLosLoc', findLocInd
KILLVAR 'findLocInd'
if cloAction = 1:
gs 'clothing', 'wear', $clothType, clothNumber
elseif cloAction = 2 :
dynamic $clothType + 'S[<>] = 1'
end
KILLVAR '$cloLoc'
KILLVAR 'cloAction'
KILLVAR '$clothType'
KILLVAR 'clothNumber'
end
if $ARGS[0] = 'wear':
!! ARGS 0 - action
!! ARGS 1 - clothing type name
!! ARGS 2 - clothing index
gs 'clothing', 'strip'
$clothingworntype = $ARGS[1]
clothingwornnumber = ARGS[2]
dynamic $ARGS[1] + 'W[<>] = 1'
gs 'clothing_attributes', $ARGS[1], ARGS[2]
dynamic '<<$ARGS[1]>>S[<>] = 0'
if CloStyle2 = 4:
$schbrand = $clothingworntype
schtype = clothingwornnumber
end
PCloQuality = CloQuality
PCloThinness = CloThinness
PCloTopCut = CloTopCut
PCloBra = CloBra
PCloOnePiece = CloOnePiece
PCloPants = CloPantsShortness
PCloSkirt = CloSkirtShortness
PCloPanties = CloPanties
PCloStyle = CloStyle
PCloStyle2 = CloStyle2
PCloInhibit = CloInhibit
if cheatbimbo = 0:
PCloBimbo = CloBimbo
if CloBimbo = 1: bimbocl = 1
if CloBimbo = 0: bimbocl = 0
else
PCloBimbo = 0
CloBimbo = 0
bimbocl = 0
end
if PCloTopCut > 1:
if tits = 2 or tits = 3: PCloTopCut += 1
if tits >= 4: PCloTopCut += 2
if PCloTopCut > 2 and tits >=6: PCloTopCut += 1
end
!Calculations for clothing beauty, multiplied by natural beauty
if PCloThinness > 0:
if PCloThinness = 1:
PXCloThinness = 150
elseif PCloThinness = 2:
PXCloThinness = 200
elseif PCloThinness = 3:
PXCloThinness = 250
elseif PCloThinness = 4:
PXCloThinness = 300
elseif PCloThinness = 5:
PXCloThinness = 350
elseif PCloThinness = 6:
PXCloThinness = 400
end
end
if PCloTopCut > 0:
if PCloTopCut = 1:
PXCloTopCut = 100
elseif PCloTopCut = 2:
PXCloTopCut = 150
elseif PCloTopCut = 3:
PXCloTopCut = 200
elseif PCloTopCut = 4:
PXCloTopCut = 250
elseif PCloTopCut = 5:
PXCloTopCut = 300
elseif PCloTopCut = 6:
PXCloTopCut = 350
elseif PCloTopCut >= 7:
PXCloTopCut = 400
end
end
if PCloBra = 1:
PXCloTopCut = 400
$braworntype = 'none'
elseif PCloBra = 2:
PXCloTopCut = 500
end
if PCloSkirt > 0:
if PCloSkirt = 1:
PXCloBottomShortness = 100
elseif PCloSkirt = 2:
PXCloBottomShortness = 150
elseif PCloSkirt = 3:
PXCloBottomShortness = 200
elseif PCloSkirt = 4:
PXCloBottomShortness = 250
elseif PCloSkirt = 5:
PXCloBottomShortness = 300
elseif PCloSkirt = 6:
PXCloBottomShortness = 350
elseif PCloSkirt >= 7:
PXCloBottomShortness = 400
end
end
if PCloPants > 0:
if PCloPants = 1:
PXCloBottomShortness = 100
elseif PCloPants = 2:
PXCloBottomShortness = 150
elseif PCloPants = 3:
PXCloBottomShortness = 200
elseif PCloPants = 4:
PXCloBottomShortness = 250
elseif PCloPants = 5:
PXCloBottomShortness = 300
elseif PCloPants = 6:
PXCloBottomShortness = 350
elseif PCloPants >= 7:
PXCloBottomShortness = 400
end
end
if PCloPanties = 1: PXCloBottomShortness = 400
end
if $ARGS[0] = 'wear_last_worn':
!!contingency
if $lastwornclothingtype = '': $lastwornclothingtype = 'nude'
gs 'clothing', 'wear', $lastwornclothingtype, lastwornclothingnumber
end
if $ARGS[0] = 'swamp_clothes':
if ARGS[1] = 1:
!hessian clothing to owned, sets size and equipped.
cheap[414] = 1
cheapS[414] = 0
cheapH[414] = 100
cheapB[414] = pcs_hips
swamp_clothes = 1
gs 'clothing', 'wear', 'cheap', 414
end
if ARGS[1] = 0:
!hessian clothing no longer owned, but not unequipped.
cheap[414] = 0
swamp_clothes = 0
end
end
--- clothing ---------------------------------