# wardrobe
if $ARGS[0] = 'start':
PShoQuality = ShoQuality
PShoHeels = ShoHeels
PShoCut = ShoCut
PShoStyle = ShoStyle
$wloc = 'wardrobe'
menu_off = 1
gs 'stat'
if $sports_clothing_name = '':$sports_clothing_name = 'default sports outfit'
if $clothingworntype = 'cheap' and clothingwornnumber = '414':
gs 'clothing', 'swamp_clothes', 0
gs 'clothing', 'strip'
end
if ward_img_hgt = 0:ward_img_hgt = 150
'
Wardrobe overview
These are the clothes you are currently wearing - Click on an item to change it'
'
> cellpadding=5>'
*p 'Bra worn | Outfit worn | Coat (only worn outside when cold) | '
*P ' > src="<>"> | > src="<>"> | '
if defaultcoat = 0:
'Search the wardrobe'
else
' > src="<>">'
end
' | '
'
'
if $braworntype ! 'none':
'Remove'
else
'Remove'
end
' | '
if $clothingworntype ! 'nude':
'Remove'
else
'Remove'
end
' | '
if defaultcoat ! 0:
'Remove'
else
'Remove'
end
' | '
*p '
Panties worn | Shoes (Only worn outside) | Purse worn | '
*P '
---|
> src="<>"> | > src="<>"> | '
if bag = 1:
' > src="<>">'
else
'Search the wardrobe'
end
' | '
'
'
if $pantyworntype ! 'none':
'Remove'
else
'Remove'
end
' | '
if $shoeworntype ! 'none':
'Remove'
else
'Remove'
end
' | '
if bag = 1:
'Remove'
else
'Remove'
end
' | '
'
| '
if ($clothingworntype ! 'nude' and (defaultcoat > 0 or bag > 0)) or (defaultcoat > 0 and bag > 0):
'Remove all items'
else
'Remove all items'
end
*nl
'Save/load outfits with "Managed saved clothing sets".'
' | '
' |
'
act 'Close wardrobe': killvar '$wloc' & gt $loc, $metka
act 'Strip all clothing':
gs 'bras', 'remove'
gs 'clothing', 'strip'
gs 'panties', 'remove'
gs 'shoes', 'strip'
gt 'wardrobe', 'start'
end
act 'Organise your wardrobe': org_loc = 1 & gt 'clothing', 'view_clothing_list', 'wardrobe'
act 'Manage saved clothing sets': gt 'wardrobe', 'default'
act 'Set image size for this view':
ward_img_hgt = input("Enter height in pixels you want for images on this page
(Default 150, min 50, max 500)")
if ward_img_hgt < 50:
ward_img_hgt = 50
elseif ward_img_hgt > 500:
ward_img_hgt = 500
end
gt 'wardrobe', 'start'
end
end
if $ARGS[0] = 'removeall':
gs 'bras', 'remove'
gs 'clothing', 'strip'
gs 'panties', 'remove'
gs 'shoes', 'strip'
gs 'purses', 'remove'
defaultcoat = 0
end
!!---------------------------Oufit stuff----------------------------------
if $ARGS[0] = 'default':
gs 'stat'
'Default outfits'
'You can overwrite and rename default outfits, but you cannot delete a default outfit.'
*nl
''
'Custom outfits'
'Choose your clothing, then select "Add as a new custom set" to save your clothing choice'
*nl
''
''
if ARRSIZE('defclothingnumber') > 0:
i = 0
:loopdefclothing
'<<$def_clothing_name[i]>>: Wear | Overwrite | Reset name | Delete'
i += 1
if i < ARRSIZE('defclothingnumber'):jump 'loopdefclothing'
end
' |
'
'
'
act 'Return': gt 'wardrobe', 'start'
act 'Add as a new custom set': gt 'wardrobe', 'default_entry_set', ARRSIZE('defclothingnumber')
'Note: Selecting an outfit will show the bonus for equipped shoes, this is only applied when outside.'
end
if $ARGS[0] = 'default_entry_wear':
gs 'stat'
default_entry = ARGS[1]
gs 'clothing_attributes', $defclothingtype[default_entry], defclothingnumber[default_entry]
if ARRPOS('$CloLosTyp', $defclothingtype[default_entry]) ! -1 and ARRPOS('CloLosNum', defclothingnumber[default_entry]) ! -1:
msg 'You''ve lost part of this set, and are unable to wear all items.
Maybe you can find the missing clothes somewhere?'
else
gs 'clothing', 'wear', $defclothingtype[default_entry], defclothingnumber[default_entry]
end
if dyneval('RESULT = <<$defbratype[default_entry]>>_bras[<>]') = 0: $defbratype[default_entry] = 'none' & defbranumber[default_entry] = 0
gs 'bras', 'wear', $defbratype[default_entry], defbranumber[default_entry]
if dyneval('RESULT = <<$defpantytype[default_entry]>>_panties[<>]') = 0: $defpantytype[default_entry] = 'none' & defpantynumber[default_entry] = 0
gs 'panties', 'wear', $defpantytype[default_entry], defpantynumber[default_entry]
if dyneval('RESULT = s<<$defshoetype[default_entry]>>[<>]') = 0: $defshoetype[default_entry] = 'none' & defshoenumber[default_entry] = 0
gs 'shoes', 'wear', $defshoetype[default_entry], defshoenumber[default_entry]
if dyneval('RESULT = <<$defpursetype[default_entry]>>_purses[<>]') = 0:
$defpursetype[default_entry] = 'none' & defpursenumber[default_entry]
end
$currentpursetype = $defpursetype[default_entry]
currentpursenumber = defpursenumber[default_entry]
if $currentpursetype = 'none':
bag = 0
else
bag = 1
end
if dyneval('RESULT = coat[<>]') = 0: defcoat[default_entry] = 0
defaultcoat = defcoat[default_entry]
!! default school girl uniform is always allowed to be worn if still in school
if StoryLine = 1 and SchoolAtestat = 0 and SchoolBlock = 0 and $defclothingtype[default_entry] = 'school' and defclothingnumber[default_entry] = 6:
cls
''
'Your put on your <<$def_clothing_name[default_entry]>> outfit without any problems.'
act 'Return to wardrobe':
killvar 'default_entry'
gs 'stat'
gt 'wardrobe', 'start'
end
!! do not own this clothing anymore
elseif dyneval('RESULT = <<$defclothingtype[default_entry]>>[<>]') = 0:
cls
'
> src="images/characters/pavlovsk/school/boy/niko/nikoev/school/strip/strip2.jpg">'
'As you go to pull your <<$def_clothing_name[default_entry]>> outfit out of your wardrobe you remember you don''t own that piece of clothing anymore. Maybe you should buy it again? Guess you will have to find something else to wear.'
act 'Return to wardrobe':
gs 'clothing', 'strip'
killvar 'default_entry'
gs 'stat'
gt 'wardrobe', 'start'
end
!! strength of clothing is less than or equal to 0
elseif dyneval('RESULT = <<$defclothingtype[default_entry]>>H[<>]') <= 0:
cls
''
'Your <<$def_clothing_name[default_entry]>> outfit has worn out and can''t be used anymore. Guess you will have to find something else to wear.'
act 'Strip out of worn out clothing':
gs 'clothing', 'strip'
killvar 'default_entry'
gs 'stat'
gt 'wardrobe', 'start'
end
!! clothing exhibition is greater than player exhibition
elseif CloInhibit > pcs_inhib:
cls
''
'You don''t feel daring enough to wear your <<$def_clothing_name[default_entry]>> outfit. Maybe you will be confident enough in the future? Guess you will have to find something else to wear.'
act 'Strip out of revealing clothing':
gs 'clothing', 'strip'
killvar 'default_entry'
gs 'stat'
gt 'wardrobe', 'start'
end
!! not exercise clothing, not coat, and not loose fitting
elseif $defclothingtype[default_entry] ! 'exercise' and $defclothingtype[default_entry] ! 'coat' and CloStyle ! 5:
!! check for if the hipsize is too far from your hipsize
dynamic 'RESULT = <<$defclothingtype[default_entry]>>B[<>]'
if RESULT < pcs_hips - 8 or RESULT > pcs_hips + 8:
cls
iif(RESULT < pcs_hips - 8,'','')
'As you put on your <<$def_clothing_name[default_entry]>> outfit you notice it doesn''t fit correctly anymore. It''s ' + iif(RESULT < pcs_hips - 8,'unbearably tight and uncomfortable to wear.','extremely loose and won''t stay in place no matter how hard you try.') + ' You must have ' + iif(RESULT < pcs_hips - 8,'gained','lost') + ' some weight since this was purchased or last tailored. You will have to get this clothing resized before you can wear it again.'
act 'Strip out of ill-fitting clothing':
gs 'clothing', 'strip'
killvar 'default_entry'
gs 'stat'
gt 'wardrobe', 'start'
end
!! clothing ok to wear after passing hip check
else
cls
''
'Your put on your <<$def_clothing_name[default_entry]>> outfit without any problems.'
act 'Return to wardrobe':
killvar 'default_entry'
gs 'stat'
gt 'wardrobe', 'start'
end
end
!! clothing ok to wear without needing hip check and passing all other checks
else
cls
''
'Your put on your <<$def_clothing_name[default_entry]>> outfit without any problems.'
act 'Return to wardrobe':
killvar 'default_entry'
gs 'stat'
gt 'wardrobe', 'start'
end
end
end
if $ARGS[0] = 'default_entry_set':
gs 'stat'
i = ARGS[1]
$defclothingtype[i] = $clothingworntype
defclothingnumber[i] = clothingwornnumber
$defbratype[i] = $braworntype
defbranumber[i] = brawornnumber
$defpantytype[i] = $pantyworntype
defpantynumber[i] = pantywornnumber
$defshoetype[i] = $shoeworntype
defshoenumber[i] = shoewornnumber
$defpursetype[i] = $currentpursetype
defpursenumber[i] = currentpursenumber
defcoat[i] = defaultcoat
$def_clothing_temp = '<<$def_clothing_name[i]>>'
$def_clothing_name[i] = input ('Enter a name for this outfit set
Leaving blank will reuse current name.')
if $def_clothing_name[i] = '' and $def_clothing_temp = '':
$def_clothing_name[i] = 'Custom <>'
elseif $def_clothing_name[i] = '':
$def_clothing_name[i] = '<<$def_clothing_temp>>'
end
gt 'wardrobe', 'default'
end
if $ARGS[0] = 'default_entry_delete':
gs 'stat'
i = ARGS[1]
killvar 'defclothingtype', i
killvar 'defclothingnumber', i
killvar 'defbratype', i
killvar 'defbranumber', i
killvar 'defpantytype', i
killvar 'defpantynumber', i
killvar 'defshoetype', i
killvar 'defshoenumber', i
killvar 'defpursetype', i
killvar 'defpursenumber', i
killvar 'defcoat', i
killvar 'def_clothing_name', i
gt 'wardrobe', 'default'
end
!!-- sports outfit stuff
if $ARGS[0] = 'sports_entry_set':
gs 'stat'
if $clothingworntype ! 'exercise' OR $shoeworntype ! 'trainers':
MSG 'The sports outfit needs to include exercise clothes and training shoes'
gt 'wardrobe', 'start'
else
gs 'stat'
$sportsclothingtype = $clothingworntype
sportsclothingnumber = clothingwornnumber
$sportsbratype = $braworntype
sportsbranumber = brawornnumber
$sportspantytype = $pantyworntype
sportspantynumber = pantywornnumber
$sportsshoetype = $shoeworntype
sportsshoenumber = shoewornnumber
$sportspursetype = $currentpursetype
sportspursenumber = currentpursenumber
sportscoat = defaultcoat
$sports_clothing_temp = '<<$sports_clothing_name>>'
$sports_clothing_name = input ('Enter a name for this outfit set
Leaving blank will reuse current name.')
if $sports_clothing_name = '' and $sports_clothing_temp = '':
$sports_clothing_name = 'default sports outfit'
elseif $sports_clothing_name = '':
$sports_clothing_name = '<<$sports_clothing_temp>>'
end
gt 'wardrobe', 'default'
end
end
if $ARGS[0] = 'sports_entry_wear':
gs 'stat'
gs 'wardrobe', 'prev_entry_set'
gs 'clothing_attributes', 'exercise', sportsclothingnumber
if ARRPOS('$CloLosTyp', 'exercise') ! -1 and ARRPOS('CloLosNum', sportsclothingnumber) ! -1:
msg 'You''ve lost part of this set, and are unable to wear all items.
Maybe you can find the missing clothes somewhere?'
else
gs 'clothing', 'wear', 'exercise', sportsclothingnumber
end
if dyneval('RESULT = <<$sportsbratype>>_bras[<>]') = 0: $sportsbratype = 'none' & sportsbranumber = 0
gs 'bras', 'wear', $sportsbratype, sportsbranumber
if dyneval('RESULT = <<$sportspantytype>>_panties[<>]') = 0: $sportspantytype = 'none' & sportspantynumber = 0
gs 'panties', 'wear', $sportspantytype, sportspantynumber
gs 'shoes', 'wear', 'trainers', sportsshoenumber
minut += 2
gs 'stat'
!! do not own this clothing anymore
if dyneval('RESULT = exercise[<>]') = 0:
cls
'
> src="images/characters/pavlovsk/school/boy/niko/nikoev/school/strip/strip2.jpg">'
'As you go to pull your sports outfit out of your wardrobe you remember you don''t own that piece of clothing anymore. Maybe you should buy it again? Guess you will have to find something else to wear.'
gs 'wardrobe', 'prev_entry_set'
!! strength of clothing is less than or equal to 0
elseif dyneval('RESULT = exerciseH[<>]') <= 0:
cls
''
'Your sports outfit has worn out and can''t be used anymore. Guess you will have to find something else to wear.'
gs 'wardrobe', 'prev_entry_set'
!! clothing exhibition is greater than player exhibition
elseif CloInhibit > pcs_inhib:
cls
''
'You don''t feel daring enough to wear your sports outfit. Maybe you will be confident enough in the future? Guess you will have to find something else to wear.'
gs 'wardrobe', 'prev_entry_set'
!! clothing ok to wear without needing hip check and passing all other checks
else
cls
''
'You put on your sports outfit without any problems.'
end
act 'Return':
if $wloc = 'wardrobe':
gt 'wardrobe', 'start'
elseif $wloc = 'workout':
gt 'exercise', 'workout'
else
gt $loc, $metka
end
end
end
if $ARGS[0] = 'sports_outfit':
gs 'stat'
if $clothingworntype ! 'exercise' or $shoeworntype ! 'trainers':
act 'Change into: <<$sports_clothing_name>>': gs 'wardrobe', 'sports_entry_wear'
end
end
--- wardrobe ---------------------------------