# wardrobe if $ARGS[0] = 'start': PShoQuality = ShoQuality PShoHeels = ShoHeels PShoCut = ShoCut PShoStyle = ShoStyle $wloc = 'wardrobe' if $clothingworntype = 'cheap' and clothingwornnumber = '414': gs 'clothing', 'strip' gs 'clothing', 'swamp_clothes', 0 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 '' *P '' '' *p '' *P '' '' '' '

Bra worn	Outfit worn	Coat (only worn outside when cold)
> 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 '
Panties worn	Shoes (Only worn outside)	Purse worn
> 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 '

' 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 'Set a default outfit': gt 'wardrobe', 'default_set' act 'Choose a default outfit': gt 'wardrobe', 'default' act 'Organise stored clothing': org_loc = 1 & gt 'clothing', 'view_clothing_list', 'wardrobe' 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 sports outfit Wear this default outfit' act 'Return': gt 'wardrobe', 'start' if ARRSIZE('defclothingnumber') > 0: i = 0 :loopdefclothing '<<$def_clothing_name[i]>> Wear this default outfit Delete this default outfit' i += 1 if i < ARRSIZE('defclothingnumber'):jump 'loopdefclothing' end *nl 'Note: When selecting an outfit you will see the bonus for your shoes applied, this will be removed when you leave and only added when outside.' end if $ARGS[0] = 'default_entry_wear': default_entry = ARGS[1] gs 'clothing_attributes', $defclothingtype[default_entry], defclothingnumber[default_entry] gs 'clothing', 'wear', $defclothingtype[default_entry], defclothingnumber[default_entry] 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 end if $ARGS[0] = 'default_set': gs 'stat' 'sports outfit Overwrite this' if ARRSIZE('defclothingnumber') ! 0: i = 0 :loopdefclothing_set '<<$def_clothing_name[i]>> Overwrite this' i += 1 if i < ARRSIZE('defclothingnumber'):jump 'loopdefclothing_set' end act 'Return': gt 'wardrobe', 'start' act 'Add as new default': gt 'wardrobe', 'default_entry_set', ARRSIZE('defclothingnumber') 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_name[i] = input ('Enter name for for this outfit (Leave blank for default)') if $def_clothing_name[i] = '': $def_clothing_name[i] = 'default <>' gt 'wardrobe', 'default_set' 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_wear': gs 'wardrobe', 'prev_entry_set' gs 'clothing_attributes', 'exercise', sportsclothingnumber gs 'clothing', 'wear', 'exercise', sportsclothingnumber 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 if $sportspursetype = '' AND sportspursenumber = 0: $sportspursetype = 'none' & sportspursenumber = 0 elseif dyneval('RESULT = <<$sportspursetype>>_purses[<>]') = 0: $sportspursetype = 'none' & sportspursenumber = 0 end $currentpursetype = $sportspursetype currentpursenumber = sportspursenumber if $currentpursetype = 'none': bag = 0 else bag = 1 end if dyneval('RESULT = coat[<>]') = 0: sportscoat = 0 defaultcoat = sportscoat 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_entry_set': if $clothingworntype ! 'exercise' OR $shoeworntype ! 'trainers': MSG 'The sports outfit needs to include exercise clothes and training shoes' act 'Return to wardrobe': gt 'wardrobe', 'start' else gs 'stat' sportsclothingnumber = clothingwornnumber $sportsbratype = $braworntype sportsbranumber = brawornnumber $sportspantytype = $pantyworntype sportspantynumber = pantywornnumber sportsshoenumber = shoewornnumber $sportspursetype = $currentpursetype sportspursenumber = currentpursenumber sportscoat = defaultcoat gt 'wardrobe', 'default_set' end end if $ARGS[0] = 'prev_entry_set': $prevsportsclothingtype = $clothingworntype prevsportsclothingnumber = clothingwornnumber $prevsportsbratype = $braworntype prevsportsbranumber = brawornnumber $prevsportspantytype = $pantyworntype prevsportspantynumber = pantywornnumber $prevsportsshoetype = $shoeworntype prevsportsshoenumber = shoewornnumber $prevsportspursetype = $currentpursetype prevsportspursenumber = currentpursenumber prevsportscoat = defaultcoat end if $ARGS[0] = 'prev_entry_wear': cls '' 'You take off your sports outfit and put on the previous clothes' $clothingworntype = $prevsportsclothingtype clothingwornnumber = prevsportsclothingnumber $braworntype = $prevsportsbratype brawornnumber = prevsportsbranumber $pantyworntype = $prevsportspantytype pantywornnumber = prevsportspantynumber $shoeworntype = $prevsportsshoetype shoewornnumber = prevsportsshoenumber $currentpursetype = $prevsportspursetype currentpursenumber = prevsportspursenumber defaultcoat = prevsportscoat minut += 2 gs 'stat' 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_option': if $ARGS[1] = 'workout': $wloc = 'workout' else killvar '$wloc' end if $clothingworntype = 'exercise' AND $shoeworntype = 'trainers' AND sportsclothingnumber = clothingwornnumber AND $sportsbratype = $braworntype AND sportsbranumber = brawornnumber AND $sportspantytype = $pantyworntype AND sportspantynumber = pantywornnumber AND sportsshoenumber = shoewornnumber: act 'Wear previous outfit': gs 'wardrobe', 'prev_entry_wear' else act 'Wear sports outfit': gs 'wardrobe', 'sports_entry_wear' end end --- wardrobe ---------------------------------