# cloakroom menu_off = 1 $coat_list_line = { !! a single line in a coat list (wardrobe, etc) !! ARGS 0 - coat index if Enable_clothwidth > 0: clothing_temp = Enable_clothwidth - 1 else clothing_temp = 150 & !clothing widdefault to 150 end gs 'themes', 'clothing', 1 $RESULT = '' $RESULT +='' 'coat no.<>" width="<>">' $RESULT += 'Coat # <>
strength: ' + dyneval '$RESULT += <<$ARGS[1]>>_h[<>]'+'' $RESULT += '$coat_description' $RESULT += 'View' if coat_h[i] > 0: $RESULT += 'Wear' end $RESULT += '' if i = defaultcoat: $RESULT += 'Yes' end $RESULT += '' $RESULT += '' if dyneval('RESULT = coat_s[<>]') = 0:$RESULT += ' Keep' if dyneval('RESULT = coat_s[<>]') = 2:$RESULT += ' Unwanted' $RESULT += ''} if $ARGS[0] = 'dest': *clr dynamic '<<$ARGS[1]>>_s[<>] = 2' gt 'cloakroom', 'view_coat_list' end if $ARGS[0] = 'dest1': *clr dynamic '<<$ARGS[1]>>_s[<>] = 0' gt 'cloakroom', 'view_coat_list' end if $ARGS[0] = 'clothwidth': act 'Set image height 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 'cloakroom', 'view_coat_list' end end if $ARGS[0] = 'view_coat_list': '

Wardrobe

' '
These are the coats that are currently available for you to wear.
' *nl if defaultcoat = 0: '
You will not wear a coat when outside in the cold.
' else '
You will wear Coat<> when a coat is required.
' end *nl gs 'themes', 'clothing', 2 '
' i = 1 :loopcoat if coat[i] = 1:*p dyneval($coat_list_line, i) i += 1 if i <= ARRSIZE('coat'):jump 'loopcoat' i = 1 :loop_bomba_coats if bomba_coats[i] = 1 and bomba_coats_s[i] = ploc:*p '' i += 1 if i <= ARRSIZE('bomba_coats'):jump 'loop_bomba_coats' '
' '
Item no.DescriptionLarge imageSet as defaultDefaultSet for sale
' act 'Return':gt 'wardrobe', 'start' if defaultcoat ! 0: act 'Remove coat': defaultcoat_warmth = 0 defaultcoat_quality = 0 defaultcoat = 0 gt 'cloakroom', 'view_coat_list' end end gs 'cloakroom', 'clothwidth' end if $ARGS[0] = 'view_coat_item': !! ARGS 0 - view_clothing_item !! ARGS 1 - clothing index cla '
' 'coat no.<>' FUNC('$attributes_coat', coat, ARGS[1]) $coat_description $RESULT = '(strength ' dynamic '$RESULT += coat_h[<>]' $RESULT += ')' '<<$RESULT>>' !! if the coat is worn out if dyneval('RESULT = coat_h[<>]') <= 0: 'This item is worn and is not suitable for further wear.' act 'Throw it away': dynamic 'coat[<>] = 0' gt 'cloakroom', 'view_coat_list', 'coat' end end act 'Return':gt 'cloakroom', 'view_coat_list' if defaultcoat ! '<>': act 'Wear this coat': defaultcoat = '<>' defaultcoat_warmth = CoatWarm defaultcoat_quality = CloQuality gt 'wardrobe', 'start' end end end --- cloakroom ---------------------------------