# clothing
!!2021/05/06
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 = 100 & !clothing widdefault to 100
end
$RESULT +=' | '
killvar 'clothing_temp'
$swimwear_description = ''
gs 'clothing_attributes', $ARGS[1], ARGS[2]
if $ARGS[1] ! 'gm_school' or ARGS[2] ! 6:
$RESULT += '' + dyneval '$RESULT += <<$ARGS[1]>>_h[<>]' + ' | '
if $ARGS[1] ! 'danilovich_outfits' and $ARGS[1] ! 'coat' and CloStyle ! 5:
$RESULT += '' + dyneval '$RESULT += <<$ARGS[1]>>_b[<>]' + ' | '
else
$RESULT += ' | '
end
else
$RESULT += ' | '
end
if $ARGS[1] = 'misc_outfits' and ARGS[2] = 1:
$RESULT += 'A hessian sack the hunters gave you. | '
elseif $swimwear_description = '':
gs 'clothing_descriptions'
$RESULT += '<> <> <<$description>> | '
else
$RESULT += '' + $swimwear_description + ' | '
end
$RESULT += ''
if CloBimbo = 1: $RESULT += ' '
if CloStyle = 4: $RESULT += ' '
if CloStyle2 = 3: $RESULT += ''
$RESULT += ' | '
if $ARGS[0] ! 'resize':
if dyneval('RESULT = <<$ARGS[1]>>_s[<>]') = 0:
$RESULT += ' | '
else
$RESULT += ' | '
end
if dyneval('RESULT = <<$ARGS[1]>>_s[<>]') = 1:
$RESULT += ' | '
else
$RESULT += ' | '
end
if dyneval('RESULT = <<$ARGS[1]>>_s[<>]') = 2:
$RESULT += ' | '
else
$RESULT += ' | '
end
if ($ARGS[1] ! 'gm_school' or ARGS[2] ! 6) and dyneval('RESULT = <<$ARGS[1]>>_h[<>]') <= 0 and pcs_sewng >= 60 and tkan > 0:
$RESULT += ' | '
else
$RESULT += ' | '
end
if pcs_sewng >= 50 and money >= 500 and (dyneval('RESULT = <<$ARGS[1]>>_b[<>]') < pcs_hips - 8 or dyneval('RESULT = <<$ARGS[1]>>_b[<>]') > pcs_hips + 8):
$RESULT += ' | '
else
$RESULT += ' | '
end
if ($ARGS[1] ! 'gm_school' or ARGS[2] ! 6):
$RESULT += ' | '
end
else
$RESULT += ' | | | | | '
if pcs_sewng >= 50 and tkan > 0 and (dyneval('RESULT = <<$ARGS[1]>>_b[<>]') < pcs_hips - 8 or dyneval('RESULT = <<$ARGS[1]>>_b[<>]') > pcs_hips + 8):
$RESULT += ' | '
else
$RESULT += ' | '
end
end
}
!!_s, 0 = wardrobe, 1 = storage, 2 = unwanted
if $ARGS[0] = 'dest0':
*clr
dynamic '<<$ARGS[2]>>_s[<>] = 0'
gt 'clothing', 'clothing_list', '<<$ward_list_store>>'
end
if $ARGS[0] = 'dest1':
*clr
dynamic '<<$ARGS[2]>>_s[<>] = 1'
gt 'clothing', 'clothing_list', '<<$ward_list_store>>'
end
if $ARGS[0] = 'dest2':
*clr
dynamic '<<$ARGS[2]>>_s[<>] = 2'
gt 'clothing', 'clothing_list', '<<$ward_list_store>>'
end
if $ARGS[0] = 'qresize':
*clr
tkan -= 1
minut += 30
dynamic '<<$ARGS[2]>>_b[<>] = pcs_hips'
gt 'clothing', 'clothing_list', '<<$ward_list_store>>'
end
if $ARGS[0] = 'qrepair':
*clr
if rand (1, 100) < 30:
tkan -= 1
minut += 30
dynamic $ARGS[2] + '_h[<>] += 30'
else
tkan += 3
minut += 30
dynamic $ARGS[2] + '[<>] = 0'
end
gt 'clothing', 'clothing_list', '<<$ward_list_store>>'
end
if $ARGS[0] = 'qdelete':
*clr
dynamic '<<$ARGS[2]>>[<>] = 0'
gt 'clothing', 'clothing_list', '<<$ward_list_store>>'
end
if $ARGS[0] = 'tresize':
*clr
minut += 5
money -= 500
dynamic '<<$ARGS[2]>>_b[<>] = pcs_hips'
gt 'clothing', 'clothing_list', '<<$ward_list_store>>'
end
if $ARGS[0] = 'view_clothing_list':
if $wloc = '': $wloc = 'default1'
!! ARGS 0 - view_clothing_list
!! ARGS 1 - action type (wardrobe, resize)
!! ARGS 2 - Shop name (kats, moncheri, gm, etc)
if $ARGS[1] = 'wardrobe':
$ward_list_page = $ARGS[1]
' | | Your Wardrobe |
'
if $wardrobeDefaultPagePref = 'viewClothing':
$wardrobeSetDefault = 'Unset as default wardrobe page'
else
$wardrobeSetDefault = 'Set here as default wardrobe page'
end
!! '''' Colour code correction for editor
'<<$wardrobeSetDefault>>'
killvar '$wardrobeSetDefault'
elseif $ARGS[1] = 'resize':
$ward_list_page = $ARGS[1]
'Choose item/s to resize
'
end
'Choose to view all or select by shop'
*nl
' | '
if ARRSIZE('gm_outfits') > 0 or ARRSIZE('gm_dress') > 0:''
if ARRSIZE('gm_school') > 0:''
if ARRSIZE('gm_office') > 0:''
if ARRSIZE('gm_maid') > 0:''
if ARRSIZE('gm_server') > 0:''
if ARRSIZE('misc_outfits') > 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 or ARRSIZE('fashionista_outfits') > 0:''
if ARRSIZE('moncheri_gown') > 0 or ARRSIZE('moncheri_dress') > 0:''
if ARRSIZE('scandalicious_outfits') > 0 or ARRSIZE('scandalicious_dress') > 0:''
if ARRSIZE('scandalicious_bikinis') > 0 or ARRSIZE('scandalicious_swimsuit') > 0:''
if ARRSIZE('allure_bikinis') > 0 or ARRSIZE('allure_swimsuit') > 0:''
if ARRSIZE('fancy_burlesque') > 0:''
if ARRSIZE('eroto_dress') > 0 or ARRSIZE('eroto_outfits') > 0 or ARRSIZE('eroto_strip') > 0:''
if ARRSIZE('salacious_outfits') > 0 or ARRSIZE('salacious_dress') > 0:''
if ARRSIZE('dolls_outfits') > 0 or ARRSIZE('dolls_dress') > 0:''
if ARRSIZE('bomba_outfits') > 0 or ARRSIZE('bomba_dress') > 0:''
if ARRSIZE('nerdvana_outfits') > 0 or ARRSIZE('nerdvana_cosplay') > 0 or ARRSIZE('nerdvana_bikinis') > 0 or ARRSIZE('nerdvana_swimsuit') > 0:''
if ARRSIZE('danilovich_outfits') > 0:''
if ARRSIZE('materinstvo_dress') > 0:''
if ARRSIZE('market_outfits') > 0:''
act 'Leave': killvar '$ward_list_store' & gt $loc, $loc_arg
act 'Your Clothes': gt 'wardrobe', 'main'
act 'Your sets': gt 'wardrobe', $wloc
end
if $ARGS[0] = 'clothing_list':
$ward_list_file = 'clothing'
$bgcolor='#f3f4ee'
if $args[1] = 'all':
$ward_list_store = 'all'
gs 'clothing_QV', 'filter_header'
gs 'clothing', 'clothinglist_header'
!!For filtering all clothes
clo_i = 0
:loopfilter_all
end
if $args[1] = 'gm' or $args[1] = 'all':
if $args[1] ! 'all':
$ward_list_store = $args[1]
''
gs 'clothing_QV', 'filter_header', 'store'
if $ward_list_page = 'wardrobe':
gs 'clothing', 'clothinglist_header'
end
!!To filter just this set
clo_i = 0
:loopgm_filter
end
i = 1
:loopgm_outfits
if gm_outfits[i] = 1 and ($clothingworntype ! 'gm_outfits' or clothingwornnumber ! i):
gs 'clothing_attributes', 'gm_outfits', i
gs 'clothing_QV', 'clo_filter'
!!sort by filter
if (clothingfilter['quality'] = 0 and CloQuality = clo_i) or (clothingfilter['inhibition'] = 0 and CloInhibit = clo_i) or clothingfilter['number'] = 0:
if clothingfilter['inc'] = 1 and clothingfilter['only'] = 1 and clothingfilter['sport_only'] = 0 and clothingfilter['swim_only'] = 0:*P dyneval($clothing_list_line, $ward_list_page, 'gm_outfits', i)
end
end
i += 1
if i <= ARRSIZE('gm_outfits'):jump 'loopgm_outfits'
i = 1
:loopgm_dress
if gm_dress[i] = 1 and ($clothingworntype ! 'gm_dress' or clothingwornnumber ! i):
gs 'clothing_attributes', 'gm_dress', i
gs 'clothing_QV', 'clo_filter'
!!sort by filter
if (clothingfilter['quality'] = 0 and CloQuality = clo_i) or (clothingfilter['inhibition'] = 0 and CloInhibit = clo_i) or clothingfilter['number'] = 0:
if clothingfilter['inc'] = 1 and clothingfilter['only'] = 1 and clothingfilter['sport_only'] = 0 and clothingfilter['swim_only'] = 0:*P dyneval($clothing_list_line, $ward_list_page, 'gm_dress', i)
end
end
i += 1
if i <= ARRSIZE('gm_dress'):jump 'loopgm_dress'
if $args[1] ! 'all':
clo_i += 1
if clothingfilter['quality'] = 0 and clo_i <= 7:
jump 'loopgm_filter'
elseif clothingfilter['inhibition'] = 0 and clo_i <= 40:
jump 'loopgm_filter'
end
end
act 'Return': killvar '$ward_list_store' & gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>'
gs 'clothing', 'clothwidth'
end
if $args[1] = 'gm_office' or $args[1] = 'all':
if $args[1] ! 'all':
$ward_list_store = $args[1]
''
gs 'clothing_QV', 'filter_header', 'store'
gs 'clothing', 'clothinglist_header'
!!To filter just this set
clo_i = 0
:loopgm_office_filter
end
i = 1
:loopoffice
if gm_office[i] = 1 and ($clothingworntype ! 'gm_office' or clothingwornnumber ! i):
gs 'clothing_attributes', 'gm_office', i
gs 'clothing_QV', 'clo_filter'
!!sort by filter
if (clothingfilter['quality'] = 0 and CloQuality = clo_i) or (clothingfilter['inhibition'] = 0 and CloInhibit = clo_i) or clothingfilter['number'] = 0:
if clothingfilter['inc'] = 1 and clothingfilter['only'] = 1 and clothingfilter['sport_only'] = 0 and clothingfilter['swim_only'] = 0:*P dyneval($clothing_list_line, $ward_list_page, 'gm_office', i)
end
end
i += 1
if i <= ARRSIZE('gm_office'):jump 'loopoffice'
if $args[1] ! 'all':
clo_i += 1
if clothingfilter['quality'] = 0 and clo_i <= 7:
jump 'loopgm_office_filter'
elseif clothingfilter['inhibition'] = 0 and clo_i <= 40:
jump 'loopgm_office_filter'
end
end
act 'Return': killvar '$ward_list_store' & gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>'
gs 'clothing', 'clothwidth'
end
if $args[1] = 'gm_maid' or $args[1] = 'all':
if $args[1] ! 'all':
$ward_list_store = $args[1]
''
gs 'clothing_QV', 'filter_header', 'store'
gs 'clothing', 'clothinglist_header'
!!To filter just this set
clo_i = 0
:loopgm_maid_filter
end
i = 1
:loopgm_maid
if gm_maid[i] = 1 and ($clothingworntype ! 'gm_maid' or clothingwornnumber ! i):
gs 'clothing_attributes', 'gm_maid', i
gs 'clothing_QV', 'clo_filter'
!!sort by filter
if (clothingfilter['quality'] = 0 and CloQuality = clo_i) or (clothingfilter['inhibition'] = 0 and CloInhibit = clo_i) or clothingfilter['number'] = 0:
if clothingfilter['inc'] = 1 and clothingfilter['only'] = 1 and clothingfilter['sport_only'] = 0 and clothingfilter['swim_only'] = 0:*P dyneval($clothing_list_line, $ward_list_page, 'gm_maid', i)
end
end
i += 1
if i <= ARRSIZE('gm_maid'):jump 'loopgm_maid'
if $args[1] ! 'all':
clo_i += 1
if clothingfilter['quality'] = 0 and clo_i <= 7:
jump 'loopgm_maid_filter'
elseif clothingfilter['inhibition'] = 0 and clo_i <= 40:
jump 'loopgm_maid_filter'
end
end
act 'Return': killvar '$ward_list_store' & gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>'
gs 'clothing', 'clothwidth'
end
if $args[1] = 'gm_server' or $args[1] = 'all':
if $args[1] ! 'all':
$ward_list_store = $args[1]
''
gs 'clothing_QV', 'filter_header', 'store'
gs 'clothing', 'clothinglist_header'
!!To filter just this set
clo_i = 0
:loopgm_server_filter
end
i = 1
:loopgm_server
if gm_server[i] = 1 and ($clothingworntype ! 'gm_server' or clothingwornnumber ! i):
gs 'clothing_attributes', 'gm_server', i
gs 'clothing_QV', 'clo_filter'
!!sort by filter
if (clothingfilter['quality'] = 0 and CloQuality = clo_i) or (clothingfilter['inhibition'] = 0 and CloInhibit = clo_i) or clothingfilter['number'] = 0:
if clothingfilter['inc'] = 1 and clothingfilter['only'] = 1 and clothingfilter['sport_only'] = 0 and clothingfilter['swim_only'] = 0:*P dyneval($clothing_list_line, $ward_list_page, 'gm_server', i)
end
end
i += 1
if i <= ARRSIZE('gm_server'):jump 'loopgm_server'
if $args[1] ! 'all':
clo_i += 1
if clothingfilter['quality'] = 0 and clo_i <= 7:
jump 'loopgm_server_filter'
elseif clothingfilter['inhibition'] = 0 and clo_i <= 40:
jump 'loopgm_server_filter'
end
end
act 'Return': killvar '$ward_list_store' & gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>'
gs 'clothing', 'clothwidth'
end
if $args[1] = 'gm_school' or $args[1] = 'all':
if $args[1] ! 'all':
$ward_list_store = $args[1]
''
gs 'clothing_QV', 'filter_header', 'store'
gs 'clothing', 'clothinglist_header'
!!To filter just this set
clo_i = 0
:loopgm_school_filter
end
if mid($start_type,1,2) = 'sg' and SchoolAtestat = 0 and SchoolBlock = 0 and ($clothingworntype ! 'gm_school' or clothingwornnumber ! 6):
if (clothingfilter['quality'] = 0 and CloQuality = clo_i) or (clothingfilter['inhibition'] = 0 and CloInhibit = clo_i) or clothingfilter['number'] = 0:*P dyneval($clothing_list_line, $ward_list_page, 'gm_school', 6)
end
i = 1
:loopschool
if gm_school[i] = 1 and ($clothingworntype ! 'gm_school' or clothingwornnumber ! i):
gs 'clothing_attributes', 'gm_school', i
gs 'clothing_QV', 'clo_filter'
!!sort by filter
if (clothingfilter['quality'] = 0 and CloQuality = clo_i) or (clothingfilter['inhibition'] = 0 and CloInhibit = clo_i) or clothingfilter['number'] = 0:
if clothingfilter['inc'] = 1 and clothingfilter['only'] = 1 and clothingfilter['sport_only'] = 0 and clothingfilter['swim_only'] = 0:*P dyneval($clothing_list_line, $ward_list_page, 'gm_school', i)
end
end
i += 1
if i = 6: i = 7
if i <= ARRSIZE('gm_school'):jump 'loopschool'
if $args[1] ! 'all':
clo_i += 1
if clothingfilter['quality'] = 0 and clo_i <= 7:
jump 'loopgm_school_filter'
elseif clothingfilter['inhibition'] = 0 and clo_i <= 40:
jump 'loopgm_school_filter'
end
end
act 'Return': killvar '$ward_list_store' & gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>'
gs 'clothing', 'clothwidth'
end
if $args[1] = 'misc' or $args[1] = 'all':
if $args[1] ! 'all':
$ward_list_store = $args[1]
''
gs 'clothing_QV', 'filter_header', 'store'
gs 'clothing', 'clothinglist_header'
!!To filter just this set
clo_i = 0
:loopmisc_filter
end
i = 1
:loopmisc_outfits
if misc_outfits[i] = 1 and ($clothingworntype ! 'misc_outfits' or clothingwornnumber ! i):
gs 'clothing_attributes', 'misc_outfits', i
gs 'clothing_QV', 'clo_filter'
!!sort by filter
if (clothingfilter['quality'] = 0 and CloQuality = clo_i) or (clothingfilter['inhibition'] = 0 and CloInhibit = clo_i) or clothingfilter['number'] = 0:
if clothingfilter['inc'] = 1 and clothingfilter['only'] = 1 and clothingfilter['sport_only'] = 0 and clothingfilter['swim_only'] = 0:*P dyneval($clothing_list_line, $ward_list_page, 'misc_outfits', i)
end
end
i += 1
if i <= ARRSIZE('misc_outfits'):jump 'loopmisc_outfits'
if $args[1] ! 'all':
clo_i += 1
if clothingfilter['quality'] = 0 and clo_i <= 7:
jump 'loopmisc_filter'
elseif clothingfilter['inhibition'] = 0 and clo_i <= 40:
jump 'loopmisc_filter'
end
end
act 'Return': killvar '$ward_list_store' & gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>'
gs 'clothing', 'clothwidth'
end
if $args[1] = 'cats' or $args[1] = 'all':
if $args[1] ! 'all':
$ward_list_store = $args[1]
''
gs 'clothing_QV', 'filter_header', 'store'
gs 'clothing', 'clothinglist_header'
!!To filter just this set
clo_i = 0
:loopcats_filter
end
i = 1
:loopcats_outfits
if cats_outfits[i] = 1 and ($clothingworntype ! 'cats_outfits' or clothingwornnumber ! i):
gs 'clothing_attributes', 'cats_outfits', i
gs 'clothing_QV', 'clo_filter'
!!sort by filter
if (clothingfilter['quality'] = 0 and CloQuality = clo_i) or (clothingfilter['inhibition'] = 0 and CloInhibit = clo_i) or clothingfilter['number'] = 0:
if clothingfilter['inc'] = 1 and clothingfilter['only'] = 1 and clothingfilter['sport_only'] = 0 and clothingfilter['swim_only'] = 0:*P dyneval($clothing_list_line, $ward_list_page, 'cats_outfits', i)
end
end
i += 1
if i <= ARRSIZE('cats_outfits'):jump 'loopcats_outfits'
i = 1
:loopcats_dress
if cats_dress[i] = 1 and ($clothingworntype ! 'cats_dress' or clothingwornnumber ! i):
gs 'clothing_attributes', 'cats_dress', i
gs 'clothing_QV', 'clo_filter'
!!sort by filter
if (clothingfilter['quality'] = 0 and CloQuality = clo_i) or (clothingfilter['inhibition'] = 0 and CloInhibit = clo_i) or clothingfilter['number'] = 0:
if clothingfilter['inc'] = 1 and clothingfilter['only'] = 1 and clothingfilter['sport_only'] = 0 and clothingfilter['swim_only'] = 0:*P dyneval($clothing_list_line, $ward_list_page, 'cats_dress', i)
end
end
i += 1
if i <= ARRSIZE('cats_dress'):jump 'loopcats_dress'
if $args[1] ! 'all':
clo_i += 1
if clothingfilter['quality'] = 0 and clo_i <= 7:
jump 'loopcats_filter'
elseif clothingfilter['inhibition'] = 0 and clo_i <= 40:
jump 'loopcats_filter'
end
end
act 'Return': killvar '$ward_list_store' & gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>'
gs 'clothing', 'clothwidth'
end
if $args[1] = 'flamingos' or $args[1] = 'all':
if $args[1] ! 'all':
$ward_list_store = $args[1]
''
gs 'clothing_QV', 'filter_header', 'store'
gs 'clothing', 'clothinglist_header'
!!To filter just this set
clo_i = 0
:loopflamingos_filter
end
i = 1
:loopflamingos_dress
if flamingos_dress[i] = 1 and ($clothingworntype ! 'flamingos_dress' or clothingwornnumber ! i):
gs 'clothing_attributes', 'flamingos_dress', i
gs 'clothing_QV', 'clo_filter'
!!sort by filter
if (clothingfilter['quality'] = 0 and CloQuality = clo_i) or (clothingfilter['inhibition'] = 0 and CloInhibit = clo_i) or clothingfilter['number'] = 0:
if clothingfilter['inc'] = 1 and clothingfilter['only'] = 1 and clothingfilter['sport_only'] = 0 and clothingfilter['swim_only'] = 0:*P dyneval($clothing_list_line, $ward_list_page, 'flamingos_dress', i)
end
end
i += 1
if i <= ARRSIZE('flamingos_dress'):jump 'loopflamingos_dress'
i = 1
:loopflamingos_outfits
if flamingos_outfits[i] = 1 and ($clothingworntype ! 'flamingos_outfits' or clothingwornnumber ! i):
gs 'clothing_attributes', 'flamingos_outfits', i
gs 'clothing_QV', 'clo_filter'
!!sort by filter
if (clothingfilter['quality'] = 0 and CloQuality = clo_i) or (clothingfilter['inhibition'] = 0 and CloInhibit = clo_i) or clothingfilter['number'] = 0:
if clothingfilter['inc'] = 1 and clothingfilter['only'] = 1 and clothingfilter['sport_only'] = 0 and clothingfilter['swim_only'] = 0:*P dyneval($clothing_list_line, $ward_list_page, 'flamingos_outfits', i)
end
end
i += 1
if i <= ARRSIZE('flamingos_outfits'):jump 'loopflamingos_outfits'
if $args[1] ! 'all':
clo_i += 1
if clothingfilter['quality'] = 0 and clo_i <= 7:
jump 'loopflamingos_filter'
elseif clothingfilter['inhibition'] = 0 and clo_i <= 40:
jump 'loopflamingos_filter'
end
end
act 'Return': killvar '$ward_list_store' & gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>'
gs 'clothing', 'clothwidth'
end
if $args[1] = 'coco' or $args[1] = 'all':
if $args[1] ! 'all':
$ward_list_store = $args[1]
''
gs 'clothing_QV', 'filter_header', 'store'
gs 'clothing', 'clothinglist_header'
!!To filter just this set
clo_i = 0
:loopcoco_filter
end
i = 1
:loopcoco_dress
if coco_dress[i] = 1 and ($clothingworntype ! 'coco_dress' or clothingwornnumber ! i):
gs 'clothing_attributes', 'coco_dress', i
gs 'clothing_QV', 'clo_filter'
!!sort by filter
if (clothingfilter['quality'] = 0 and CloQuality = clo_i) or (clothingfilter['inhibition'] = 0 and CloInhibit = clo_i) or clothingfilter['number'] = 0:
if clothingfilter['inc'] = 1 and clothingfilter['only'] = 1 and clothingfilter['sport_only'] = 0 and clothingfilter['swim_only'] = 0:*P dyneval($clothing_list_line, $ward_list_page, 'coco_dress', i)
end
end
i += 1
if i <= ARRSIZE('coco_dress'):jump 'loopcoco_dress'
i = 1
:loopcoco_outfits
if coco_outfits[i] = 1 and ($clothingworntype ! 'coco_outfits' or clothingwornnumber ! i):
gs 'clothing_attributes', 'coco_outfits', i
gs 'clothing_QV', 'clo_filter'
!!sort by filter
if (clothingfilter['quality'] = 0 and CloQuality = clo_i) or (clothingfilter['inhibition'] = 0 and CloInhibit = clo_i) or clothingfilter['number'] = 0:
if clothingfilter['inc'] = 1 and clothingfilter['only'] = 1 and clothingfilter['sport_only'] = 0 and clothingfilter['swim_only'] = 0:*P dyneval($clothing_list_line, $ward_list_page, 'coco_outfits', i)
end
end
i += 1
if i <= ARRSIZE('coco_outfits'):jump 'loopcoco_outfits'
if $args[1] ! 'all':
clo_i += 1
if clothingfilter['quality'] = 0 and clo_i <= 7:
jump 'loopcoco_filter'
elseif clothingfilter['inhibition'] = 0 and clo_i <= 40:
jump 'loopcoco_filter'
end
end
act 'Return': killvar '$ward_list_store' & gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>'
gs 'clothing', 'clothwidth'
end
if $args[1] = 'fashionista' or $args[1] = 'all':
if $args[1] ! 'all':
$ward_list_store = $args[1]
''
gs 'clothing_QV', 'filter_header', 'store'
gs 'clothing', 'clothinglist_header'
!!To filter just this set
clo_i = 0
:loopfashionista_filter
end
i = 1
:loopfashionista
if fashionista[i] = 1 and ($clothingworntype ! 'fashionista' or clothingwornnumber ! i):
gs 'clothing_attributes', 'fashionista', i
gs 'clothing_QV', 'clo_filter'
!!sort by filter
if (clothingfilter['quality'] = 0 and CloQuality = clo_i) or (clothingfilter['inhibition'] = 0 and CloInhibit = clo_i) or clothingfilter['number'] = 0:
if clothingfilter['inc'] = 1 and clothingfilter['only'] = 1 and clothingfilter['sport_only'] = 0 and clothingfilter['swim_only'] = 0:*P dyneval($clothing_list_line, $ward_list_page, 'fashionista', i)
end
end
i += 1
if i <= ARRSIZE('fashionista'):jump 'loopfashionista'
i = 1
:loopfashionista_outfits
if fashionista_outfits[i] = 1 and ($clothingworntype ! 'fashionista_outfits' or clothingwornnumber ! i):
gs 'clothing_attributes', 'fashionista_outfits', i
gs 'clothing_QV', 'clo_filter'
!!sort by filter
if (clothingfilter['quality'] = 0 and CloQuality = clo_i) or (clothingfilter['inhibition'] = 0 and CloInhibit = clo_i) or clothingfilter['number'] = 0:
if clothingfilter['inc'] = 1 and clothingfilter['only'] = 1 and clothingfilter['sport_only'] = 0 and clothingfilter['swim_only'] = 0:*P dyneval($clothing_list_line, $ward_list_page, 'fashionista_outfits', i)
end
end
i += 1
if i <= ARRSIZE('fashionista_outfits'):jump 'loopfashionista_outfits'
if $args[1] ! 'all':
clo_i += 1
if clothingfilter['quality'] = 0 and clo_i <= 7:
jump 'loopfashionista_filter'
elseif clothingfilter['inhibition'] = 0 and clo_i <= 40:
jump 'loopfashionista_filter'
end
end
act 'Return': killvar '$ward_list_store' & gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>'
gs 'clothing', 'clothwidth'
end
if $args[1] = 'moncheri' or $args[1] = 'all':
if $args[1] ! 'all':
$ward_list_store = $args[1]
''
gs 'clothing_QV', 'filter_header', 'store'
gs 'clothing', 'clothinglist_header'
!!To filter just this set
clo_i = 0
:loopmoncheri_filter
end
i = 1
:loopmoncheri_dress
if moncheri_dress[i] = 1 and ($clothingworntype ! 'moncheri_dress' or clothingwornnumber ! i):
gs 'clothing_attributes', 'moncheri_dress', i
gs 'clothing_QV', 'clo_filter'
!!sort by filter
if (clothingfilter['quality'] = 0 and CloQuality = clo_i) or (clothingfilter['inhibition'] = 0 and CloInhibit = clo_i) or clothingfilter['number'] = 0:
if clothingfilter['inc'] = 1 and clothingfilter['only'] = 1 and clothingfilter['sport_only'] = 0 and clothingfilter['swim_only'] = 0:*P dyneval($clothing_list_line, $ward_list_page, 'moncheri_dress', i)
end
end
i += 1
if i <= ARRSIZE('moncheri_dress'):jump 'loopmoncheri_dress'
i = 1
:loopmoncheri_gown
if moncheri_gown[i] = 1 and ($clothingworntype ! 'moncheri_gown' or clothingwornnumber ! i):
gs 'clothing_attributes', 'moncheri_gown', i
gs 'clothing_QV', 'clo_filter'
!!sort by filter
if (clothingfilter['quality'] = 0 and CloQuality = clo_i) or (clothingfilter['inhibition'] = 0 and CloInhibit = clo_i) or clothingfilter['number'] = 0:
if clothingfilter['inc'] = 1 and clothingfilter['only'] = 1 and clothingfilter['sport_only'] = 0 and clothingfilter['swim_only'] = 0:*P dyneval($clothing_list_line, $ward_list_page, 'moncheri_gown', i)
end
end
i += 1
if i <= ARRSIZE('moncheri_gown'):jump 'loopmoncheri_gown'
if $args[1] ! 'all':
clo_i += 1
if clothingfilter['quality'] = 0 and clo_i <= 7:
jump 'loopmoncheri_filter'
elseif clothingfilter['inhibition'] = 0 and clo_i <= 40:
jump 'loopmoncheri_filter'
end
end
act 'Return': killvar '$ward_list_store' & gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>'
gs 'clothing', 'clothwidth'
end
if $args[1] = 'scandalicious' or $args[1] = 'all':
if $args[1] ! 'all':
$ward_list_store = $args[1]
''
gs 'clothing_QV', 'filter_header', 'store'
gs 'clothing', 'clothinglist_header'
!!To filter just this set
clo_i = 0
:loopscandalicious_filter
end
i = 1
:loopscandalicious_dress
if scandalicious_dress[i] = 1 and ($clothingworntype ! 'scandalicious_dress' or clothingwornnumber ! i):
gs 'clothing_attributes', 'scandalicious_dress', i
gs 'clothing_QV', 'clo_filter'
!!sort by filter
if (clothingfilter['quality'] = 0 and CloQuality = clo_i) or (clothingfilter['inhibition'] = 0 and CloInhibit = clo_i) or clothingfilter['number'] = 0:
if clothingfilter['inc'] = 1 and clothingfilter['only'] = 1 and clothingfilter['sport_only'] = 0 and clothingfilter['swim_only'] = 0:*P dyneval($clothing_list_line, $ward_list_page, 'scandalicious_dress', i)
end
end
i += 1
if i <= ARRSIZE('scandalicious_dress'):jump 'loopscandalicious_dress'
i = 1
:loopscandalicious_outfits
if scandalicious_outfits[i] = 1 and ($clothingworntype ! 'scandalicious_outfits' or clothingwornnumber ! i):
gs 'clothing_attributes', 'scandalicious_outfits', i
gs 'clothing_QV', 'clo_filter'
!!sort by filter
if (clothingfilter['quality'] = 0 and CloQuality = clo_i) or (clothingfilter['inhibition'] = 0 and CloInhibit = clo_i) or clothingfilter['number'] = 0:
if clothingfilter['inc'] = 1 and clothingfilter['only'] = 1 and clothingfilter['sport_only'] = 0 and clothingfilter['swim_only'] = 0:*P dyneval($clothing_list_line, $ward_list_page, 'scandalicious_outfits', i)
end
end
i += 1
if i <= ARRSIZE('scandalicious_outfits'):jump 'loopscandalicious_outfits'
if $args[1] ! 'all':
clo_i += 1
if clothingfilter['quality'] = 0 and clo_i <= 7:
jump 'loopscandalicious_filter'
elseif clothingfilter['inhibition'] = 0 and clo_i <= 40:
jump 'loopscandalicious_filter'
end
end
act 'Return': killvar '$ward_list_store' & gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>'
gs 'clothing', 'clothwidth'
end
if $args[1] = 'scandalicious_swimwear' or $args[1] = 'all':
if $args[1] ! 'all':
$ward_list_store = $args[1]
''
gs 'clothing_QV', 'filter_header', 'store'
gs 'clothing', 'clothinglist_header'
!!To filter just this set
clo_i = 0
:loopscandalicious_swim_filter
end
i = 1
:loopscandalicious_bikinis
if scandalicious_bikinis[i] = 1 and ($clothingworntype ! 'scandalicious_bikinis' or clothingwornnumber ! i):
gs 'clothing_attributes', 'scandalicious_bikinis', i
gs 'clothing_QV', 'clo_filter'
!!sort by filter
if (clothingfilter['quality'] = 0 and CloQuality = clo_i) or (clothingfilter['inhibition'] = 0 and CloInhibit = clo_i) or clothingfilter['number'] = 0:
if clothingfilter['inc'] = 1 and clothingfilter['only'] = 1 and clothingfilter['sport_only'] = 0 and clothingfilter['swim'] = 0:*P dyneval($clothing_list_line, $ward_list_page, 'scandalicious_bikinis', i)
end
end
i += 1
if i <= ARRSIZE('scandalicious_bikinis'):jump 'loopscandalicious_bikinis'
$ward_list_store = $args[1]
i = 1
:loopscandalicious_swimsuit
if scandalicious_swimsuit[i] = 1 and ($clothingworntype ! 'scandalicious_swimsuit' or clothingwornnumber ! i):
gs 'clothing_attributes', 'scandalicious_swimsuit', i
gs 'clothing_QV', 'clo_filter'
!!sort by filter
if (clothingfilter['quality'] = 0 and CloQuality = clo_i) or (clothingfilter['inhibition'] = 0 and CloInhibit = clo_i) or clothingfilter['number'] = 0:
if clothingfilter['inc'] = 1 and clothingfilter['only'] = 1 and clothingfilter['sport_only'] = 0 and clothingfilter['swim'] = 0:*P dyneval($clothing_list_line, $ward_list_page, 'scandalicious_swimsuit', i)
end
end
i += 1
if i <= ARRSIZE('scandalicious_swimsuit'):jump 'loopscandalicious_swimsuit'
if $args[1] ! 'all':
clo_i += 1
if clothingfilter['quality'] = 0 and clo_i <= 7:
jump 'loopscandalicious_swim_filter'
elseif clothingfilter['inhibition'] = 0 and clo_i <= 40:
jump 'loopscandalicious_swim_filter'
end
end
act 'Return': killvar '$ward_list_store' & gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>'
gs 'clothing', 'clothwidth'
end
if $args[1] = 'allure' or $args[1] = 'all':
if $args[1] ! 'all':
$ward_list_store = $args[1]
''
gs 'clothing_QV', 'filter_header', 'store'
gs 'clothing', 'clothinglist_header'
!!To filter just this set
clo_i = 0
:loopallure_filter
end
i = 1
:loopallure_bikinis
if allure_bikinis[i] = 1 and ($clothingworntype ! 'allure_bikinis' or clothingwornnumber ! i):
gs 'clothing_attributes', 'allure_bikinis', i
gs 'clothing_QV', 'clo_filter'
!!sort by filter
if (clothingfilter['quality'] = 0 and CloQuality = clo_i) or (clothingfilter['inhibition'] = 0 and CloInhibit = clo_i) or clothingfilter['number'] = 0:
if clothingfilter['inc'] = 1 and clothingfilter['only'] = 1 and clothingfilter['sport_only'] = 0 and clothingfilter['swim'] = 0:*P dyneval($clothing_list_line, $ward_list_page, 'allure_bikinis', i)
end
end
i += 1
if i <= ARRSIZE('allure_bikinis'):jump 'loopallure_bikinis'
$ward_list_store = $args[1]
i = 1
:loopallure_swimsuit
if allure_swimsuit[i] = 1 and ($clothingworntype ! 'allure_swimsuit' or clothingwornnumber ! i):
gs 'clothing_attributes', 'allure_swimsuit', i
gs 'clothing_QV', 'clo_filter'
!!sort by filter
if (clothingfilter['quality'] = 0 and CloQuality = clo_i) or (clothingfilter['inhibition'] = 0 and CloInhibit = clo_i) or clothingfilter['number'] = 0:
if clothingfilter['inc'] = 1 and clothingfilter['only'] = 1 and clothingfilter['sport_only'] = 0 and clothingfilter['swim'] = 0:*P dyneval($clothing_list_line, $ward_list_page, 'allure_swimsuit', i)
end
end
i += 1
if i <= ARRSIZE('allure_swimsuit'):jump 'loopallure_swimsuit'
if $args[1] ! 'all':
clo_i += 1
if clothingfilter['quality'] = 0 and clo_i <= 7:
jump 'loopallure_filter'
elseif clothingfilter['inhibition'] = 0 and clo_i <= 40:
jump 'loopallure_filter'
end
end
act 'Return': killvar '$ward_list_store' & gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>'
gs 'clothing', 'clothwidth'
end
if $args[1] = 'fancypancy' or $args[1] = 'all':
if $args[1] ! 'all':
$ward_list_store = $args[1]
''
gs 'clothing_QV', 'filter_header', 'store'
gs 'clothing', 'clothinglist_header'
!!To filter just this set
clo_i = 0
:loopfancy_filter
end
i = 1
:loopfancy_burlesque
if fancy_burlesque[i] = 1 and ($clothingworntype ! 'fancy_burlesque' or clothingwornnumber ! i):
gs 'clothing_attributes', 'fancy_burlesque', i
gs 'clothing_QV', 'clo_filter'
!!sort by filter
if (clothingfilter['quality'] = 0 and CloQuality = clo_i) or (clothingfilter['inhibition'] = 0 and CloInhibit = clo_i) or clothingfilter['number'] = 0:
if clothingfilter['inc'] = 1 and clothingfilter['only'] = 1 and clothingfilter['sport_only'] = 0 and clothingfilter['swim_only'] = 0:*P dyneval($clothing_list_line, $ward_list_page, 'fancy_burlesque', i)
end
end
i += 1
if i <= ARRSIZE('fancy_burlesque'):jump 'loopfancy_burlesque'
if $args[1] ! 'all':
clo_i += 1
if clothingfilter['quality'] = 0 and clo_i <= 7:
jump 'loopfancy_filter'
elseif clothingfilter['inhibition'] = 0 and clo_i <= 40:
jump 'loopfancy_filter'
end
end
act 'Return': killvar '$ward_list_store' & gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>'
gs 'clothing', 'clothwidth'
end
if $args[1] = 'sexshop' or $args[1] = 'all':
if $args[1] ! 'all':
$ward_list_store = $args[1]
''
gs 'clothing_QV', 'filter_header', 'store'
gs 'clothing', 'clothinglist_header'
!!To filter just this set
clo_i = 0
:looperoto__filter
end
i = 1
:looperoto_dress
if eroto_dress[i] = 1 and ($clothingworntype ! 'eroto_dress' or clothingwornnumber ! i):
gs 'clothing_attributes', 'eroto_dress', i
gs 'clothing_QV', 'clo_filter'
!!sort by filter
if (clothingfilter['quality'] = 0 and CloQuality = clo_i) or (clothingfilter['inhibition'] = 0 and CloInhibit = clo_i) or clothingfilter['number'] = 0:
if clothingfilter['inc'] = 1 and clothingfilter['only'] = 1 and clothingfilter['sport_only'] = 0 and clothingfilter['swim_only'] = 0:*P dyneval($clothing_list_line, $ward_list_page, 'eroto_dress', i)
end
end
i += 1
if i <= ARRSIZE('eroto_dress'):jump 'looperoto_dress'
$ward_list_store = $args[1]
i = 1
:looperoto_outfits
if eroto_outfits[i] = 1 and ($clothingworntype ! 'eroto_outfits' or clothingwornnumber ! i):
gs 'clothing_attributes', 'eroto_outfits', i
gs 'clothing_QV', 'clo_filter'
!!sort by filter
if (clothingfilter['quality'] = 0 and CloQuality = clo_i) or (clothingfilter['inhibition'] = 0 and CloInhibit = clo_i) or clothingfilter['number'] = 0:
if clothingfilter['inc'] = 1 and clothingfilter['only'] = 1 and clothingfilter['sport_only'] = 0 and clothingfilter['swim_only'] = 0:*P dyneval($clothing_list_line, $ward_list_page, 'eroto_outfits', i)
end
end
i += 1
if i <= ARRSIZE('eroto_outfits'):jump 'looperoto_outfits'
$ward_list_store = $args[1]
i = 1
:looperoto_strip
if eroto_strip[i] = 1 and ($clothingworntype ! 'eroto_strip' or clothingwornnumber ! i):
gs 'clothing_attributes', 'eroto_strip', i
gs 'clothing_QV', 'clo_filter'
!!sort by filter
if (clothingfilter['quality'] = 0 and CloQuality = clo_i) or (clothingfilter['inhibition'] = 0 and CloInhibit = clo_i) or clothingfilter['number'] = 0:
if clothingfilter['inc'] = 1 and clothingfilter['only'] = 1 and clothingfilter['sport_only'] = 0 and clothingfilter['swim_only'] = 0:*P dyneval($clothing_list_line, $ward_list_page, 'eroto_strip', i)
end
end
i += 1
if i <= ARRSIZE('eroto_strip'):jump 'looperoto_strip'
if $args[1] ! 'all':
clo_i += 1
if clothingfilter['quality'] = 0 and clo_i <= 7:
jump 'looperoto__filter'
elseif clothingfilter['inhibition'] = 0 and clo_i <= 40:
jump 'looperoto__filter'
end
end
act 'Return': killvar '$ward_list_store' & gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>'
gs 'clothing', 'clothwidth'
end
if $args[1] = 'exhibitshop' or $args[1] = 'all':
if $args[1] ! 'all':
$ward_list_store = $args[1]
''
gs 'clothing_QV', 'filter_header', 'store'
gs 'clothing', 'clothinglist_header'
!!To filter just this set
clo_i = 0
:loopsalacious_filter
end
i = 1
:loopsalacious_dress
if salacious_dress[i] = 1 and ($clothingworntype ! 'salacious_dress' or clothingwornnumber ! i):
gs 'clothing_attributes', 'salacious_dress', i
gs 'clothing_QV', 'clo_filter'
!!sort by filter
if (clothingfilter['quality'] = 0 and CloQuality = clo_i) or (clothingfilter['inhibition'] = 0 and CloInhibit = clo_i) or clothingfilter['number'] = 0:
if clothingfilter['inc'] = 1 and clothingfilter['only'] = 1 and clothingfilter['sport_only'] = 0 and clothingfilter['swim_only'] = 0:*P dyneval($clothing_list_line, $ward_list_page, 'salacious_dress', i)
end
end
i += 1
if i <= ARRSIZE('salacious_dress'):jump 'loopsalacious_dress'
$ward_list_store = $args[1]
i = 1
:loopsalacious_outfits
if salacious_outfits[i] = 1 and ($clothingworntype ! 'salacious_outfits' or clothingwornnumber ! i):
gs 'clothing_attributes', 'salacious_outfits', i
gs 'clothing_QV', 'clo_filter'
!!sort by filter
if (clothingfilter['quality'] = 0 and CloQuality = clo_i) or (clothingfilter['inhibition'] = 0 and CloInhibit = clo_i) or clothingfilter['number'] = 0:
if clothingfilter['inc'] = 1 and clothingfilter['only'] = 1 and clothingfilter['sport_only'] = 0 and clothingfilter['swim_only'] = 0:*P dyneval($clothing_list_line, $ward_list_page, 'salacious_outfits', i)
end
end
i += 1
if i <= ARRSIZE('salacious_outfits'):jump 'loopsalacious_outfits'
if $args[1] ! 'all':
clo_i += 1
if clothingfilter['quality'] = 0 and clo_i <= 7:
jump 'loopsalacious_filter'
elseif clothingfilter['inhibition'] = 0 and clo_i <= 40:
jump 'loopsalacious_filter'
end
end
act 'Return': killvar '$ward_list_store' & gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>'
gs 'clothing', 'clothwidth'
end
if $args[1] = 'dolls' or $args[1] = 'all':
if $args[1] ! 'all':
$ward_list_store = $args[1]
''
gs 'clothing_QV', 'filter_header', 'store'
gs 'clothing', 'clothinglist_header'
!!To filter just this set
clo_i = 0
:loopdolls_filter
end
i = 1
:loopdolls_outfits
if dolls_outfits[i] = 1 and ($clothingworntype ! 'dolls_outfits' or clothingwornnumber ! i):
gs 'clothing_attributes', 'dolls_outfits', i
gs 'clothing_QV', 'clo_filter'
!!sort by filter
if (clothingfilter['quality'] = 0 and CloQuality = clo_i) or (clothingfilter['inhibition'] = 0 and CloInhibit = clo_i) or clothingfilter['number'] = 0:
if clothingfilter['inc'] = 1 and clothingfilter['only'] = 1 and clothingfilter['sport_only'] = 0 and clothingfilter['swim_only'] = 0:*P dyneval($clothing_list_line, $ward_list_page, 'dolls_outfits', i)
end
end
i += 1
if i <= ARRSIZE('dolls_outfits'):jump 'loopdolls_outfits'
$ward_list_store = $args[1]
i = 1
:loopdolls_dress
if dolls_dress[i] = 1 and ($clothingworntype ! 'dolls_dress' or clothingwornnumber ! i):
gs 'clothing_attributes', 'dolls_dress', i
gs 'clothing_QV', 'clo_filter'
!!sort by filter
if (clothingfilter['quality'] = 0 and CloQuality = clo_i) or (clothingfilter['inhibition'] = 0 and CloInhibit = clo_i) or clothingfilter['number'] = 0:
if clothingfilter['inc'] = 1 and clothingfilter['only'] = 1 and clothingfilter['sport_only'] = 0 and clothingfilter['swim_only'] = 0:*P dyneval($clothing_list_line, $ward_list_page, 'dolls_dress', i)
end
end
i += 1
if i <= ARRSIZE('dolls_dress'):jump 'loopdolls_dress'
if $args[1] ! 'all':
clo_i += 1
if clothingfilter['quality'] = 0 and clo_i <= 7:
jump 'loopdolls_filter'
elseif clothingfilter['inhibition'] = 0 and clo_i <= 40:
jump 'loopdolls_filter'
end
end
act 'Return': killvar '$ward_list_store' & gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>'
gs 'clothing', 'clothwidth'
end
if $args[1] = 'bomba' or $args[1] = 'all':
if $args[1] ! 'all':
$ward_list_store = $args[1]
''
gs 'clothing_QV', 'filter_header', 'store'
gs 'clothing', 'clothinglist_header'
!!To filter just this set
clo_i = 0
:loopbomba_filter
end
i = 1
:loopbomba_outfits
if bomba_outfits[i] = 1 and ($clothingworntype ! 'bomba_outfits' or clothingwornnumber ! i):
gs 'clothing_attributes', 'bomba_outfits', i
gs 'clothing_QV', 'clo_filter'
!!sort by filter
if (clothingfilter['quality'] = 0 and CloQuality = clo_i) or (clothingfilter['inhibition'] = 0 and CloInhibit = clo_i) or clothingfilter['number'] = 0:
if clothingfilter['inc'] = 1 and clothingfilter['only'] = 1 and clothingfilter['sport_only'] = 0 and clothingfilter['swim_only'] = 0:*P dyneval($clothing_list_line, $ward_list_page, 'bomba_outfits', i)
end
end
i += 1
if i <= ARRSIZE('bomba_outfits'):jump 'loopbomba_outfits'
i = 1
:loopbomba_dress
if bomba_dress[i] = 1 and ($clothingworntype ! 'bomba_dress' or clothingwornnumber ! i):
gs 'clothing_attributes', 'bomba_dress', i
gs 'clothing_QV', 'clo_filter'
!!sort by filter
if (clothingfilter['quality'] = 0 and CloQuality = clo_i) or (clothingfilter['inhibition'] = 0 and CloInhibit = clo_i) or clothingfilter['number'] = 0:
if clothingfilter['inc'] = 1 and clothingfilter['only'] = 1 and clothingfilter['sport_only'] = 0 and clothingfilter['swim_only'] = 0:*P dyneval($clothing_list_line, $ward_list_page, 'bomba_dress', i)
end
end
i += 1
if i <= ARRSIZE('bomba_dress'):jump 'loopbomba_dress'
if $args[1] ! 'all':
clo_i += 1
if clothingfilter['quality'] = 0 and clo_i <= 7:
jump 'loopbomba_filter'
elseif clothingfilter['inhibition'] = 0 and clo_i <= 40:
jump 'loopbomba_filter'
end
end
act 'Return': killvar '$ward_list_store' & gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>'
gs 'clothing', 'clothwidth'
end
if $args[1] = 'nerdvana' or $args[1] = 'all':
if $args[1] ! 'all':
$ward_list_store = $args[1]
''
gs 'clothing_QV', 'filter_header', 'store'
gs 'clothing', 'clothinglist_header'
!!To filter just this set
clo_i = 0
:loopnerdvana_filter
end
i = 1
:loopnerdvana_outfits
if nerdvana_outfits[i] = 1 and ($clothingworntype ! 'nerdvana_outfits' or clothingwornnumber ! i):
gs 'clothing_attributes', 'nerdvana_outfits', i
gs 'clothing_QV', 'clo_filter'
!!sort by filter
if (clothingfilter['quality'] = 0 and CloQuality = clo_i) or (clothingfilter['inhibition'] = 0 and CloInhibit = clo_i) or clothingfilter['number'] = 0:
if clothingfilter['inc'] = 1 and clothingfilter['only'] = 1 and clothingfilter['sport_only'] = 0 and clothingfilter['swim_only'] = 0:*P dyneval($clothing_list_line, $ward_list_page, 'nerdvana_outfits', i)
end
end
i += 1
if i <= ARRSIZE('nerdvana_outfits'):jump 'loopnerdvana_outfits'
i = 1
:loopnerdvana_cosplay
if nerdvana_cosplay[i] = 1 and ($clothingworntype ! 'nerdvana_cosplay' or clothingwornnumber ! i):
gs 'clothing_attributes', 'nerdvana_cosplay', i
gs 'clothing_QV', 'clo_filter'
!!sort by filter
if (clothingfilter['quality'] = 0 and CloQuality = clo_i) or (clothingfilter['inhibition'] = 0 and CloInhibit = clo_i) or clothingfilter['number'] = 0:
if clothingfilter['inc'] = 1 and clothingfilter['only'] = 1 and clothingfilter['sport_only'] = 0 and clothingfilter['swim_only'] = 0:*P dyneval($clothing_list_line, $ward_list_page, 'nerdvana_cosplay', i)
end
end
i += 1
if i <= ARRSIZE('nerdvana_cosplay'):jump 'loopnerdvana_cosplay'
i = 1
:loopnerdvana_bikinis
if nerdvana_bikinis[i] = 1 and ($clothingworntype ! 'nerdvana_bikinis' or clothingwornnumber ! i):
gs 'clothing_attributes', 'nerdvana_bikinis', i
gs 'clothing_QV', 'clo_filter'
!!sort by filter
if (clothingfilter['quality'] = 0 and CloQuality = clo_i) or (clothingfilter['inhibition'] = 0 and CloInhibit = clo_i) or clothingfilter['number'] = 0:
if clothingfilter['inc'] = 1 and clothingfilter['only'] = 1 and clothingfilter['sport_only'] = 0 and clothingfilter['swim'] = 0:*P dyneval($clothing_list_line, $ward_list_page, 'nerdvana_bikinis', i)
end
end
i += 1
if i <= ARRSIZE('nerdvana_bikinis'):jump 'loopnerdvana_bikinis'
$ward_list_store = $args[1]
i = 1
:loopnerdvana_swimsuit
if nerdvana_swimsuit[i] = 1 and ($clothingworntype ! 'nerdvana_swimsuit' or clothingwornnumber ! i):
gs 'clothing_attributes', 'nerdvana_swimsuit', i
gs 'clothing_QV', 'clo_filter'
!!sort by filter
if (clothingfilter['quality'] = 0 and CloQuality = clo_i) or (clothingfilter['inhibition'] = 0 and CloInhibit = clo_i) or clothingfilter['number'] = 0:
if clothingfilter['inc'] = 1 and clothingfilter['only'] = 1 and clothingfilter['sport_only'] = 0 and clothingfilter['swim'] = 0:*P dyneval($clothing_list_line, $ward_list_page, 'nerdvana_swimsuit', i)
end
end
i += 1
if i <= ARRSIZE('nerdvana_swimsuit'):jump 'loopnerdvana_swimsuit'
if $args[1] ! 'all':
clo_i += 1
if clothingfilter['quality'] = 0 and clo_i <= 7:
jump 'loopnerdvana_filter'
elseif clothingfilter['inhibition'] = 0 and clo_i <= 40:
jump 'loopnerdvana_filter'
end
end
act 'Return': killvar '$ward_list_store' & gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>'
gs 'clothing', 'clothwidth'
end
if $args[1] = 'sports' or $args[1] = 'all':
if $args[1] ! 'all':
$ward_list_store = $args[1]
if clothingfilter['sport'] = 1: 'Displaying despite sport filter being active'
''
gs 'clothing_QV', 'filter_header', 'store'
gs 'clothing', 'clothinglist_header'
!!To filter just this set
clo_i = 0
:loopdanilovich_outfits_filter
end
i = 1
:loopdanilovich_outfits
if danilovich_outfits[i] = 1 and ($clothingworntype ! 'danilovich_outfits' or clothingwornnumber ! i):
gs 'clothing_attributes', 'danilovich_outfits', i
gs 'clothing_QV', 'clo_filter'
!!sort by filter
if (clothingfilter['quality'] = 0 and CloQuality = clo_i) or (clothingfilter['inhibition'] = 0 and CloInhibit = clo_i) or clothingfilter['number'] = 0:
if clothingfilter['inc'] = 1 and clothingfilter['only'] = 1 and clothingfilter['sport'] = 0 and clothingfilter['swim_only'] = 0:*P dyneval($clothing_list_line, $ward_list_page, 'danilovich_outfits', i)
end
end
i += 1
if i <= ARRSIZE('danilovich_outfits'):jump 'loopdanilovich_outfits'
i = 1
:loopdanilovich_swimsuit
if danilovich_swimsuit[i] = 1:
gs 'clothing_attributes', 'danilovich_swimsuit', i
gs 'clothing_QV', 'clo_filter'
!!sort by filter
if (clothingfilter['quality'] = 0 and CloQuality = clo_i) or (clothingfilter['inhibition'] = 0 and CloInhibit = clo_i) or clothingfilter['number'] = 0:
if clothingfilter['inc'] = 1 and clothingfilter['only'] = 1 and clothingfilter['sport_only'] = 0 and clothingfilter['swim'] = 0:*P dyneval($clothing_list_line, $ward_list_page, 'danilovich_swimsuit', i)
end
end
i += 1
if i <= ARRSIZE('danilovich_swimsuit'):jump 'loopdanilovich_swimsuit'
if $args[1] ! 'all':
clo_i += 1
if clothingfilter['quality'] = 0 and clo_i <= 7:
jump 'loopdanilovich_outfits_filter'
elseif clothingfilter['inhibition'] = 0 and clo_i <= 40:
jump 'loopdanilovich_outfits_filter'
end
end
act 'Return': killvar '$ward_list_store' & gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>'
gs 'clothing', 'clothwidth'
end
if $args[1] = 'market' or $args[1] = 'all':
if $args[1] ! 'all':
$ward_list_store = $args[1]
''
gs 'clothing_QV', 'filter_header', 'store'
gs 'clothing', 'clothinglist_header'
!!To filter just this set
clo_i = 0
:loopmarket_outfits_filter
end
i = 1
:loopmarket_outfits
if market_outfits[i] = 1 and ($clothingworntype ! 'market_outfits' or clothingwornnumber ! i):
gs 'clothing_attributes', 'market_outfits', i
gs 'clothing_QV', 'clo_filter'
!!sort by filter
if (clothingfilter['quality'] = 0 and CloQuality = clo_i) or (clothingfilter['inhibition'] = 0 and CloInhibit = clo_i) or clothingfilter['number'] = 0:
if clothingfilter['inc'] = 1 and clothingfilter['only'] = 1 and clothingfilter['sport_only'] = 0 and clothingfilter['swim_only'] = 0:*P dyneval($clothing_list_line, $ward_list_page, 'market_outfits', i)
end
end
i += 1
if i <= ARRSIZE('market_outfits'):jump 'loopmarket_outfits'
if $args[1] ! 'all':
clo_i += 1
if clothingfilter['quality'] = 0 and clo_i <= 7:
jump 'loopmarket_outfits_filter'
elseif clothingfilter['inhibition'] = 0 and clo_i <= 40:
jump 'loopmarket_outfits_filter'
end
end
act 'Return': killvar '$ward_list_store' & gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>'
gs 'clothing', 'clothwidth'
end
if $args[1] = 'materinstvo' or $args[1] = 'all':
if $args[1] ! 'all':
$ward_list_store = $args[1]
''
gs 'clothing_QV', 'filter_header', 'store'
gs 'clothing', 'clothinglist_header'
!!To filter just this set
clo_i = 0
:loopmaterinstvo_dress_filter
end
i = 1
:loopmaterinstvo_dress
if materinstvo_dress[i] = 1 and ($clothingworntype ! 'materinstvo_dress' or clothingwornnumber ! i):
gs 'clothing_attributes', 'materinstvo_dress', i
gs 'clothing_QV', 'clo_filter'
!!sort by filter
if (clothingfilter['quality'] = 0 and CloQuality = clo_i) or (clothingfilter['inhibition'] = 0 and CloInhibit = clo_i) or clothingfilter['number'] = 0:
if clothingfilter['inc'] = 1 and clothingfilter['only'] = 1 and clothingfilter['sport_only'] = 0 and clothingfilter['swim_only'] = 0:*P dyneval($clothing_list_line, $ward_list_page, 'materinstvo_dress', i)
end
end
i += 1
if i <= ARRSIZE('materinstvo_dress'):jump 'loopmaterinstvo_dress'
if $args[1] ! 'all':
clo_i += 1
if clothingfilter['quality'] = 0 and clo_i <= 7:
jump 'loopmaterinstvo_dress_filter'
elseif clothingfilter['inhibition'] = 0 and clo_i <= 40:
jump 'loopmaterinstvo_dress_filter'
end
end
act 'Return': killvar '$ward_list_store' & gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>'
gs 'clothing', 'clothwidth'
end
if $args[1] = 'all':
clo_i += 1
if clothingfilter['quality'] = 0 and clo_i <= 7:
jump 'loopfilter_all'
elseif clothingfilter['inhibition'] = 0 and clo_i <= 40:
jump 'loopfilter_all'
end
act 'Return': killvar '$ward_list_store' & gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>'
gs 'clothing', 'clothwidth'
end
''
end
if $ARGS[0] = 'clothinglist_header':
' | Strength | Hip size | Description | Specials | Wardrobe | Storage | Unwanted (Sell) | Attempt Repair (0:30) | Resize(0:30) | Throw Out | '
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', 'clothing_list', '<<$ward_list_store>>'
end
end
if $ARGS[0] = 'view_clothing_item':
!! ARGS 0 - view_clothing_item
!! ARGS 1 - clothing type
!! ARGS 2 - clothing index
!! ARGS 3 - price for shop
!! ARGS 4 = action type (wardrobe, shop, sell, resize)
$swimwear_description = ''
cla
''
gs 'clothing_attributes', $ARGS[1], ARGS[2]
$RESULT = FUNC('$short_description', $ARGS[1], CloStyle2)
$RESULT += '<>'
'<<$RESULT>>'
if $ARGS[1] = 'misc_outfits' and ARGS[2] = 1:
'A hessian sack the hunters gave you.'
elseif $swimwear_description = '':
gs 'clothing_descriptions'
'<<$description>>'
else
$swimwear_description
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
!!CloStyle2: 1 Maid, 2 Server, 3 Stripper, 4 School
if CloStyle2 = 1: 'This is a maid outfit.'
if CloStyle2 = 2: 'This outfit is a server uniform.'
if CloStyle2 = 3: 'This outfit is a stripper uniform, suitable for jobs that require one.'
if CloStyle2 = 4: gs 'clothing', 'school_check'
if $ARGS[4] ! 'shop' and ($ARGS[1] ! 'gm_school' or ARGS[2] ! 6):
$RESULT = '(strength '
dynamic '$RESULT += <<$ARGS[1]>>_h[<>]'
if $ARGS[1] ! 'danilovich_outfits' and $ARGS[1] ! 'coat' and CloStyle ! 5:
$RESULT += ', hip size '
dynamic '$RESULT += <<$ARGS[1]>>_b[<>]'
end
$RESULT += ')'
'<<$RESULT>>'
end
if $ARGS[4] = 'shop':
if dyneval('RESULT = <<$ARGS[1]>>[<>]') = 1:
'You already own this item.'
act 'Leave': gt $loc, $loc_arg
else
if $ARGS[1] = 'coat' and ARGS[2] = 5:
price = ARGS[3]
else
price = ('<>' * ((5 * CloQuality) + 100) / 100) * 1000 / (1250 - Clothingstock[ARGS[2]]) * 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
gs 'clothing', 'view_clothing_item_buy', $ARGS[4], $ARGS[1], ARGS[2], ARGS[3]
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
gs 'clothing', 'view_clothing_item_buy', $ARGS[4], $ARGS[1], ARGS[2], ARGS[3]
end
end
end
end
elseif $ARGS[4] = 'wardrobe':
act 'Return':gt 'clothing', 'clothing_list', '<<$ward_list_store>>'
if $ARGS[1] ! 'gm_school' or ARGS[2] ! 6:
!! if the clothing is worn out
if dyneval('RESULT = <<$ARGS[1]>>_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:
*clr
cla
tkan -= 1
minut += 30
dynamic $ARGS[1] + '_h[<>] += 30'
'> src="images/pc/activities/sewing/fix' + rand(1,2) + '.jpg">'
'You spend 30 minutes fixing the outfit.'
act 'Return':gt 'clothing', 'clothing_list', '<<$ward_list_store>>'
else
*clr
cla
tkan += 3
minut += 30
dynamic $ARGS[1] + '[<>] = 0'
'> src="images/pc/activities/sewing/fix' + rand(1,2) + '.jpg">'
'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', 'clothing_list', '<<$ward_list_store>>'
end
end
act 'Return': gt 'clothing', 'clothing_list', '<<$ward_list_store>>'
end
exit
end
!! if the clothing is a type that checks for hip size
if $ARGS[1] ! 'danilovich_outfits' and CloStyle ! 5:
!! if the hipsize is too far from your hipsize
dynamic 'RESULT = <<$ARGS[1]>>_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 >= 50 and tkan > 0:
cla & *nl
'You can resize this thanks to your sewing skill.'
act 'Resize item':
cla
tkan -= 1
minut += 30
dynamic $ARGS[1] + '_b[<>] = pcs_hips'
'You spend 30 minutes resizing the outfit.'
act 'Return':gt 'clothing', 'clothing_list', '<<$ward_list_store>>'
end
elseif $loc_arg = 'tailor':
cla & *nl
if money >= 500:
'You can pay to have this resized for (500 ₽).'
act 'Resize item':
minut += 15
money -= 500
dynamic $ARGS[1] + '_b[<>] = pcs_hips'
*nl
'You hand the clothing over to the tailor who takes it into the back. Fifteen minutes later, he presents your clothing back to you, adjusted to fit you perfectly.'
act 'Return':gt 'clothing', 'clothing_list', '<<$ward_list_store>>'
end
else
'You cannot afford to have this resized.'
end
end
exit
end
end
end
if $ARGS[1] ! 'danilovich_swimsuit' and $ARGS[1] ! 'scandalicious_bikinis' and $ARGS[1] ! 'scandalicious_swimsuit' and $ARGS[1] ! 'allure_bikinis' and $ARGS[1] ! 'allure_bikinis':
if CloInhibit > pcs_inhib:
'You don''t feel daring 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
act 'Wear':
gs 'clothing', 'wear', $ARGS[1], ARGS[2]
gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>', '<<$ward_list_store>>'
end
end
end
elseif $ARGS[4] = 'store' or $ARGS[4] = 'unwanted':
act 'Return':gt 'clothing', 'clothing_list', '<<$ward_list_store>>'
if $ARGS[1] ! 'coat':
act 'Move back to wardrobe':
dynamic $ARGS[1] + '_s[<>] = 0'
gt 'clothing', 'clothing_list', '<<$ward_list_store>>'
end
end
elseif $ARGS[4] = 'sell':
$ward_list_page = $ARGS[4]
act 'Keep item':gt 'clothing', 'clothing_list', '<<$ward_list_store>>'
!! value is based on the strength remaining
dynamic 'RESULT = <<$ARGS[1]>>_h[<>]'
if RESULT > 45:
'You can sell this item for 500 ₽.'
act 'Sell':
dynamic '<<$ARGS[1]>>[<>] = 0'
money += 500
gt 'clothing', 'clothing_list', '<<$ward_list_store>>'
end
elseif RESULT > 30:
'You can sell this item for 300 ₽.'
act 'Sell':
dynamic '<<$ARGS[1]>>[<>] = 0'
money += 300
gt 'clothing', 'clothing_list', '<<$ward_list_store>>'
end
elseif RESULT > 0:
'You can sell this item for 100 ₽.'
act 'Sell':
dynamic '<<$ARGS[1]>>[<>] = 0'
money += 100
gt 'clothing', 'clothing_list', '<<$ward_list_store>>'
end
else
'This item is too worn to have any sale value.'
act 'Throw it away':
dynamic '<<$ARGS[1]>>[<>] = 0'
gt 'clothing', 'clothing_list', '<<$ward_list_store>>'
end
end
elseif $ARGS[4] = 'resize':
act 'Leave item alone':gt 'clothing', 'view_clothing_list', '<<$ward_list_page>>', '<<$ward_list_store>>'
if $ARGS[1] ! 'danilovich_outfits' and $ARGS[1] ! 'coat' and CloStyle ! 5:
if dyneval('RESULT = <<$ARGS[1]>>_b[<>]') ! pcs_hips and money >= 500:
'You can have this resized for 500 ₽.'
act 'Resize':
money -= 500
dynamic '<<$ARGS[1]>>_b[<>] = pcs_hips'
gt 'clothing', 'view_clothing_list', 'resize'
end
end
end
end
end
if $args[0] = 'school_check':
if CloInhibit <= 10:
'This uniform is very conservative. Only the nerds would approve of you wearing it.'
elseif CloSkirtShortness < 5 and CloThinness < 5 and CloBra = 0:
if CloInhibit >= 30 or CloTopCut = 4:
'This uniform, despite meeting the school uniform regulations, is too risqué. Everybody in school will think that you''re a slut apart from the gopniks who will respect you for beating the school rules.'
elseif CloStyle = 2:
'This uniform follows the school regulation on skirt length but is of a style that appeals to Gopniks.'
elseif 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 CloSkirtShortness = 5 and CloThinness < 5 and CloBra = 0:
if CloInhibit >= 35:
'This uniform slightly breaches the school uniform regulations and it is too risqué. Everybody in school apart from the gopniks will think that you''re a slut.'
elseif CloStyle = 2:
'This uniform slightly breaches the school regulations on skirt length and is of a style that appeals to Gopniks.'
elseif 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 and they will respect you for beating the school rules.'
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[0] = 'view_clothing_item_buy':
dynamic $ARGS[2] + '[<>] = 1'
if $ARGS[2] = 'gm_outfits' or $ARGS[2] = 'gm_dress' or $ARGS[2] = 'gm_office':
dynamic $ARGS[2] + '_h[<>] = 70 + <>'
elseif $ARGS[2] = 'cats_dress' or $ARGS[2] = 'cats_outfits' or $ARGS[2] = 'flamingos_dress' or $ARGS[2] = 'flamingos_outfits' or $ARGS[2] = 'coco_dress' or $ARGS[2] = 'coco_outfits' or $ARGS[2] = 'nerdvana_cosplay' or $ARGS[2] = 'nerdvana_outfits':
dynamic $ARGS[2] + '_h[<>] = 90 + <>'
elseif $ARGS[2] = 'moncheri_gown' or $ARGS[2] = 'moncheri_dress':
dynamic $ARGS[2] + '_h[<>] = 25 + <>'
elseif $ARGS[2] = 'eroto_dress' or $ARGS[2] = 'eroto_outfits' or $ARGS[2] = 'eroto_strip' or $ARGS[2] = 'salacious_outfits' or $ARGS[2] = 'salacious_dress' or $ARGS[2] = 'fancy_burlesque':
dynamic $ARGS[2] + '_h[<>] = 40 + <>'
elseif $ARGS[2] = 'gm_school' or $ARGS[2] = 'gm_maid' or $ARGS[2] = 'gm_server':
dynamic $ARGS[2] + '_h[<>] = 120 + <>'
elseif $ARGS[2] = 'danilovich_outfits':
dynamic $ARGS[2] + '_h[<>] = 100 + <>'
else
dynamic $ARGS[2] + '_h[<>] = 60 + <>'
end
dynamic $ARGS[2] + '_b[<>] = pcs_hips'
dynamic $ARGS[2] + '_s[<>] = 0'
gs 'stat'
if $ARGS[1] ! 'skip': gt $loc, $loc_arg
end
if $ARGS[0] = 'strip_all':
$strip_loc = $ARGS[1]
gs 'underwear', 'remove'
gs 'clothing', 'strip', $strip_loc
end
if $ARGS[0] = 'dispose':
dynamic $clothingworntype + '[<>] = 0'
$lastwornclothingtype = 'none'
lastwornclothingnumber = 0
gs 'clothing', 'strip_code'
end
if $ARGS[0] = 'strip':
!$strip_loc = location when stripping outdoors
$strip_loc = $ARGS[1]
if $clothingworntype = 'nude': exit
cumspclnt = 6
gs 'cum_cleanup'
if PCloStyle2 = 4:
$schbrand = $clothingworntype
schtype = clothingwornnumber
end
if $strip_loc ! '' :
DYNAMIC '$CloLos<<$clothingworntype>>[<>]=<<$strip_loc>>'
$CloLosLoc[] = $strip_loc
$CloLosTyp[$strip_loc] = $clothingworntype
CloLosNum[$strip_loc] = clothingwornnumber
CloLosDay[$strip_loc] = daystart
KILLVAR '$lastwornclothingtype'
KILLVAR 'lastwornclothingnumber'
else
$lastwornclothingtype = $clothingworntype
lastwornclothingnumber = clothingwornnumber
end
killvar '$strip_loc'
gs 'clothing', 'strip_code'
end
if $ARGS[0] = 'strip_code':
$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
PCloDress = 0
PCloPanties = 0
PCloBra = 0
PCloQuality = 0
PCloThinness = 0
PCloTopCut = 0
PCloPants = 0
PCloSkirt = 0
PCloStyle = 0
PCloStyle2 = 0
PCloStyle3 = 0
PCloBimbo = 0
PCloInhibit = 0
PCloOnePiece = 0
PCloswimwear = 0
PXCloThinness = 0
PXCloTopCut = 0
PXCloBottomShortness = 0
PCloCoverTop = 4
PCloCoverBack = 4
PCloCoverFront = 4
gs 'clothing', 'exposure_calc'
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
PCloDress = CloDress
PCloStyle = CloStyle
PCloStyle2 = CloStyle2
PCloStyle3 = CloStyle3
PCloInhibit = CloInhibit
if cheatbimbo = 0:
PCloBimbo = CloBimbo
end
PCloCoverTop = CloCoverTop
PCloCoverBack = CloCoverBack
PCloCoverFront = CloCoverFront
gs 'clothing', 'exposure_calc'
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
if $clothingworntype = 'danilovich_swimsuit' or $clothingworntype = 'scandalicious_swimsuit' or $clothingworntype = 'scandalicious_bikinis' or $clothingworntype = 'allure_swimsuit' or $clothingworntype = 'allure_bikinis' or $clothingworntype = 'nerdvana_swimsuit' or $clothingworntype = 'nerdvana_bikinis': PCloswimwear = 1
end
if $ARGS[0] = 'exposure_calc':
CoverTop = (PCloCoverTop + PBraCover)
CoverTop = CoverTop - 4
if CoverTop < 0: CoverTop = 0
CoverBack = (PCloCoverBack + PPanCoverBack)
CoverBack = CoverBack - 4
if CoverBack < 0: CoverBack = 0
CoverFront = (PCloCoverFront + PPanCoverFront)
CoverFront = CoverFront - 4
if CoverFront < 0: CoverFront = 0
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.
misc_outfits[1] = 1
misc_outfits_s[1] = 0
misc_outfits_h[1] = 100
misc_outfits_b[1] = pcs_hips
swamp_clothes = 1
gs 'clothing', 'wear', 'misc_outfits', 1
end
if ARGS[1] = 0:
!hessian clothing no longer owned, but not unequipped.
misc_outfits[1] = 0
swamp_clothes = 0
end
end
!! Used to get price of an outfit uses the variable "price"
!! $ARGS[1] set to outfit type
!! ARGS[2] for outfit number
!! ARGS[3] the store base price
if $ARGS[0] = 'get_price':
gs 'clothing_attributes', '$ARGS[1]', ARGS[2]
price = (ARGS[3] * ((5 * CloQuality) + 100) / 100) * 1000 / (1250 - Clothingstock[ARGS[2]]) * 3 / 2
price = price / 50 * 50
end
!! use to buy outfit automatically, use with gosub
!! $ARGS[1] = item_type
!! ARGS[2] = item number
!! ARGS[3] = store price
!! $ARGS[4] = 'money' or 'karta' for payment type
if $ARGS[0] = 'quick_buy':
price = (ARGS[3] * ((5 * CloQuality) + 100) / 100) * 1000 / (1250 - Clothingstock[ARGS[2]]) * 3 / 2
price = price / 50 * 50
h = 0
if CloStyle = 2:h = 10
if CloStyle = 5:h = 20
h += (3 * CloQuality)
dynamic '<<$ARGS[4]>> -= price'
gs 'clothing', 'view_clothing_item_buy', 'skip', $ARGS[1], ARGS[2], ARGS[3]
end
--- clothing ---------------------------------