GTA SA CLOTH external script source by B1ack & Wh1te

//-------------External script 64 (CLOTHES)---------------

:CLOTH
// To execute at the beginning main.scm
CONST
    BODY_PART_TORSO             = 0
    BODY_PART_HEAD              = 1
    BODY_PART_LEGS              = 2
    BODY_PART_SHOES             = 3
    BODY_PART_LOWER_LEFT_ARM    = 4
    BODY_PART_UPPER_LEFT_ARM    = 5
    BODY_PART_LOWER_RIGHT_ARM   = 6
    BODY_PART_UPPER_RIGHT_ARM   = 7
    BODY_PART_BACK_TOP          = 8
    BODY_PART_LEFT_CHEST        = 9
    BODY_PART_RIGHT_CHEST       = 10
    BODY_PART_STOMACH           = 11
    BODY_PART_LOWER_BACK        = 12
    BODY_PART_NECKLACE          = 13
    BODY_PART_BRACELET          = 14
    BODY_PART_GLASSES           = 15
    BODY_PART_HAT               = 16
    BODY_PART_SPECIAL           = 17

    WEAPON_UNARMED              = 0
    WEAPON_ANY                  = 57

    PANEL_ROW_LOCK              = 0
    PANEL_ROW_BOUGHT            = 1
    PANEL_ROW_UNLOCK            = 2
    MAX_PANEL_ROWS              = 12

    ALIGN_CENTRE                = 0
    ALIGN_LEFT                  = 1
    ALIGN_RIGHT                 = 2

    LANGUAGE_AMERICAN           = 0
    LANGUAGE_FRENCH             = 1
    LANGUAGE_GERMAN             = 2
    LANGUAGE_ITALIAN            = 3
    LANGUAGE_SPANISH            = 4

    NULL                        = 0
END
VAR
    $PLAYER_CHAR            : Player
    $PLAYER_ACTOR           : Actor
    $Shops_Player_Cash      : Int
    $X_Buy_Marker           : Float
    $Y_Buy_Marker           : Float
    $Z_Buy_Marker           : Float
    $2514                   : Int
    $2425                   : Int
    $2426                   : Array 12 of Int
    $2438                   : Array 12 of Int
    $2450                   : Array 12 of String
    $2474                   : Array 12 of Int
    $2486                   : Array 12 of Int
    $2498                   : Array 12 of Int
    $2513                   : Int
    $2542                   : Int
    $2547                   : Int
    $2755                   : Float
    $2756                   : Float
    $2757                   : Float
    $10001                  : Float
    $10002                  : Float
    $10003                  : Float
    $SELECTED_MENU_ITEM     : Int
    $SHOPPINGITEM_MODELCRC  : Int
    $SHOPPINGITEM_BODYPART  : Int
    $SELLER_MODEL           : Model
END

VAR
    $9999   : Int   = 0
    $10000  : Int   = 0
    $9981   : Actor
    $9982   : Int
    $9989   : Object
    $9998   : Int   = 0
    $10004  : Float = 0.0
    $10005  : Float = 0.0
    $10006  : Float = 0.0
    $10007  : Float = 0.0
    $10008  : Float = 0.0
    $10009  : Float = 0.0
    $10010  : Float = 0.0
    $10011  : Float = 0.0
    $10012  : Float = 0.0
    $10013  : Float = 0.0
    $10014  : Float = 0.0
    $10015  : Float = 0.0
    $10016  : Float = 0.0
    $10017  : Float = 0.0
    $10018  : Float = 0.0
    $10019  : Float = 0.0
    $10020  : Float = 0.0
    $10021  : Float = 0.0
    $10022  : Float = 0.0
    $10023  : Float = 0.0
    $10024  : Float = 0.0
    $10025  : Float = 0.0
    $10026  : Float = 0.0
    $10027  : Float = 0.0
    $9983   : Int   = 0
    $9993   : Int   = 0
    $9991   : Float = 0.0
    $9992   : Float = 0.0
    $9990   : Int   = 0
    $10028  : Model
    $10031  : Int   = 0
END
$2513   = 0
$2514   = 0
$2515   = 0
$2418   = FALSE
$2420   = FALSE
$2422   = FALSE
$2424   = FALSE
$2425   = 0
$2544   = FALSE
$2545   = FALSE
$2546   = FALSE
$2547   = NULL
$9986   = FALSE
$9987   = FALSE
$9988   = FALSE
$10002  = 0.0
$10001  = 0.0
$10003  = 0.0
$10029  = FALSE
$10030  = FALSE

IF s$CURRENT_SHOP_GXT_NAME == 'LACS1' // Sub Urban
THEN
    $SELLER_MODEL = #WFYCLOT
    $10028 = -371
END
IF s$CURRENT_SHOP_GXT_NAME == 'CSCHP' // Binco
THEN
    $SELLER_MODEL = #WFYCLOT
    $10028 = -370
END
IF s$CURRENT_SHOP_GXT_NAME == 'CSSPRT' // Pro-Laps
THEN
    $SELLER_MODEL = #WMYCLOT
    $10028 = -372
END
IF s$CURRENT_SHOP_GXT_NAME == 'CLOTHGP' // Zip
THEN
    $SELLER_MODEL = #WFYCLOT
    $10028 = -373
END
IF s$CURRENT_SHOP_GXT_NAME == 'CSDESGN' // Victim
THEN
    $SELLER_MODEL = #WFYCLOT
    $10028 = -374
END
IF s$CURRENT_SHOP_GXT_NAME == 'CSEXL' // Didier Sachs
THEN
    $SELLER_MODEL = #WMYCLOT
    $10028 = -375
END

$SELLER_MODEL.Load()
$10028.Load()
03CF: load_wav 20802 as 4
038B: load_requested_models
set_wb_check_to FALSE
thread 'CLOTH'

WHILE TRUE
wait 0
    IF $PLAYER_CHAR.Defined()
    THEN
        IF 8844: NOT string s$CURRENT_SHOP_GXT_NAME empty
        THEN
            IF $9990 > 0
            THEN
                0489: set_actor $PLAYER_ACTOR muted TRUE
                IF 0A0F: new_language_set
                THEN
                    03E6: remove_text_box
                    08DA: remove_panel $2419
                    08DA: remove_panel $2423
                    08DA: remove_panel $2421
                    08DA: remove_panel $2417
                    $2420 = FALSE
                    $2424 = FALSE
                    $2422 = FALSE
                    $2418 = FALSE
                    09FB: $CURRENT_LANGUAGE = current_language
                END
            END

            IF $9990 == 0
            THEN
                IF s$CURRENT_SHOP_GXT_NAME == 'LACS1' // Sub Urban
                THEN
                    $10004 = 0.0
                    $10005 = 0.0
                    $10006 = 0.0
                    $10024 = 203.528
                    $10025 = -41.644
                    $10026 = 1000.852
                    $10027 = 180.0
                    $10011 = 90.0
                    $10007 = 0.0
                    s$9984 = s$CURRENT_SHOP_GXT_NAME
                    075F: store_shopping_data_entries_number_to $9999
                    $9990 = 1
                END
                IF s$CURRENT_SHOP_GXT_NAME == 'CSCHP' // Binco
                THEN
                    $10004 = 2.85
                    $10005 = -57.534
                    $10006 = 3.26
                    $10024 = 208.806
                    $10025 = -98.713
                    $10026 = 1004.297
                    $10027 = 180.0
                    $10011 = 90.0
                    $10007 = 0.0
                    s$9984 = s$CURRENT_SHOP_GXT_NAME
                    075F: store_shopping_data_entries_number_to $9999
                    $9990 = 1
                END
                IF s$CURRENT_SHOP_GXT_NAME == 'CSSPRT' // Pro-Laps
                THEN
                    $10004 = -12.653
                    $10005 = -90.758
                    $10006 = 1.477
                    $10024 = 207.018
                    $10025 = -127.782
                    $10026 = 1002.555
                    $10027 = 180.0
                    $10011 = 90.0
                    $10007 = 0.0
                    s$9984 = s$CURRENT_SHOP_GXT_NAME
                    075F: store_shopping_data_entries_number_to $9999
                    $9990 = 1
                END
                IF s$CURRENT_SHOP_GXT_NAME == 'CLOTHGP' // Zip
                THEN
                    $10004 = -33.204
                    $10005 = -46.245
                    $10006 = 0.0
                    $10024 = 161.56
                    $10025 = -81.369
                    $10026 = 1000.859
                    $10027 = 180.0
                    $10011 = 90.0
                    $10007 = 0.0
                    s$9984 = s$CURRENT_SHOP_GXT_NAME
                    075F: store_shopping_data_entries_number_to $9999
                    $9990 = 1
                END
                IF s$CURRENT_SHOP_GXT_NAME == 'CSDESGN' // Victim
                THEN
                    IF $MANSION_TOTAL_PASSED_MISSIONS > 3
                    THEN
                        09A9: get_string "TSHIRTLOCGREY" CRC32_to $10031 // 16-byte strings
                        08C8: set_shopping_item_with_textureCRC $10031 price_to 15
                        09A9: get_string "BASKBALLLOC" CRC32_to $10031 // 16-byte strings
                        08C8: set_shopping_item_with_textureCRC $10031 price_to 20
                        09A9: get_string "TSHIRTMADDGREY" CRC32_to $10031 // 16-byte strings
                        08C8: set_shopping_item_with_textureCRC $10031 price_to 300
                        09A9: get_string "TSHIRTMADDGRN" CRC32_to $10031 // 16-byte strings
                        08C8: set_shopping_item_with_textureCRC $10031 price_to 300
                    END
                    $10004 = -5.806
                    $10005 = 36.733
                    $10006 = -0.815
                    $10024 = 204.836
                    $10025 = -7.328
                    $10026 = 1000.258
                    $10027 = 270.0
                    $10011 = 90.0
                    $10007 = 0.0
                    s$9984 = s$CURRENT_SHOP_GXT_NAME
                    075F: store_shopping_data_entries_number_to $9999
                    $9990 = 1
                END
                IF s$CURRENT_SHOP_GXT_NAME == 'CSEXL' // Didier Sachs
                THEN
                    $10004 = 1.2
                    $10005 = -114.524
                    $10006 = -1.51
                    $10024 = 204.366
                    $10025 = -157.789
                    $10026 = 999.563
                    $10027 = 180.0
                    $10011 = 90.0
                    $10007 = 0.0
                    s$9984 = s$CURRENT_SHOP_GXT_NAME
                    075F: store_shopping_data_entries_number_to $9999
                    $9990 = 1
                END
            END

            IF $9990 == 1
            THEN
                03F0: enable_text_draw TRUE
                08F8: display_stat_update_box FALSE
                $10012 = 212.8715
                $10012 += $10004
                $10013 = -42.8156
                $10013 += $10005
                $10014 = 1002.116
                $10014 += $10006
                $10015 = 213.4791
                $10015 += $10004
                $10016 = -42.0238
                $10016 += $10005
                $10017 = 1002.053
                $10017 += $10006
                $10018 = 214.5148
                $10018 += $10004
                $10019 = -41.6106
                $10019 += $10005
                $10020 = 1002.494
                $10020 += $10006
                $10021 = 214.5367
                $10021 += $10004
                $10022 = -40.6175
                $10022 += $10005
                $10023 = 1002.609
                $10023 += $10006
                $10008 = 214.622
                $10008 += $10004
                $10009 = -40.652
                $10009 += $10005
                $10010 = 1001.033
                $10010 += $10006
                $10001 = 213.874
                $10001 += $10004
                $10002 = -39.811
                $10002 += $10005
                $10003 = 1002.2
                $10003 += $10006
                $9981 = Actor.Create(CivMale, $SELLER_MODEL, $10024, $10025, $10026)
                02A9: set_actor $9981 immune_to_nonplayer TRUE
                060B: set_actor $9981 decision_maker_to 65542
                $9981.Angle = $10027
                $9986 = FALSE
                $9989 = Object.Init($10028, $10001, $10002, $10003)
                $9989.Angle = $10007
                0947: actor $9981 speak_from_audio_table 332 store_spoken_phrase_id_to $10081
                $SHOW_SHOP_SPHERE = TRUE
                $9990 = 2
            END

            IF $9990 == 2
            THEN
                07B0: get_active_shop_name_to s$CURRENT_SHOP_GXT_NAME
                IF s$CURRENT_SHOP_GXT_NAME <> s$9984
                THEN
                    gosub @CLOTH_END_THREAD
                END
                IF NOT $9981.Dead()
                THEN
                    IF $9986 == FALSE
                    THEN
                        IF OR
                            02E0: actor $PLAYER_ACTOR firing_weapon
                            0457: player $PLAYER_CHAR aiming_at_actor $9981
                            031D: actor $9981 hit_by_weapon WEAPON_ANY
                            $1258 == TRUE
                        THEN
                            0947: actor $9981 speak_from_audio_table 327 store_spoken_phrase_id_to $10081
                            05C4: AS_actor $9981 hands_up -2 ms
                            $9986 = TRUE
                        ELSE
                            $SHOW_SHOP_SPHERE = TRUE
                            IF 0102: actor $PLAYER_ACTOR in_sphere $10008 $10009 $10010 radius 1.0 1.0 4.0 sphere $SHOW_SHOP_SPHERE stopped_on_foot
                            THEN
                                IF Player.Controllable($PLAYER_CHAR)
                                THEN
                                    $9990 = 3
                                END
                            END
                        END
                        IF $9988 == FALSE
                        THEN
                            IF 0105: actor $PLAYER_ACTOR near_actor $9981 radius 8.0 8.0 3.0 sphere FALSE on_foot
                            THEN
                                0947: actor $9981 speak_from_audio_table 328 store_spoken_phrase_id_to $10081
                                $9988 = TRUE
                            ELSE
                                $9988 = FALSE
                            END
                        END
                    ELSE
                        gosub @CLOTH_CLEAR
                        07B0: get_active_shop_name_to s$CURRENT_SHOP_GXT_NAME
                        IF s$CURRENT_SHOP_GXT_NAME <> s$9984
                        THEN
                            gosub @CLOTH_END_THREAD
                        END
                        CONTINUE
                    END
                ELSE
                    gosub @CLOTH_CLEAR
                    07B0: get_active_shop_name_to s$CURRENT_SHOP_GXT_NAME
                    IF s$CURRENT_SHOP_GXT_NAME <> s$9984
                    THEN
                        gosub @CLOTH_END_THREAD
                    END
                    CONTINUE
                END
            END

            IF $9990 == 3
            THEN
                IF $PLAYER_CHAR.Defined()
                THEN
                    $PLAYER_CHAR.CanMove = FALSE
                    09BD: allow_other_threads_to_display_text_boxes TRUE
                    01B9: set_actor $PLAYER_ACTOR armed_weapon_to WEAPON_UNARMED
                    Actor.StorePos($PLAYER_ACTOR, $TEMPVAR_X_COORD, $TEMPVAR_Y_COORD, $TEMPVAR_Z_COORD)
                    0792: disembark_instantly_actor $PLAYER_ACTOR
                    0395: clear_area 1 at $TEMPVAR_X_COORD $TEMPVAR_Y_COORD $TEMPVAR_Z_COORD radius 1.0
                    0581: enable_radar FALSE
                    TIMERA = 0
                    $9998 = 0
                    $9990 = 4
                ELSE
                    gosub @CLOTH_END_THREAD
                END
            END

            IF $9990 == 4
            THEN
                IF $9981.Dead()
                THEN
                    gosub @CLOTH_CLEAR
                    07B0: get_active_shop_name_to s$CURRENT_SHOP_GXT_NAME // s$
                    IF s$CURRENT_SHOP_GXT_NAME <> s$9984
                    THEN
                        gosub @CLOTH_END_THREAD
                    END
                    CONTINUE
                END
                IF $9998 == 0
                THEN
                    IF TIMERA >= 300
                    THEN
                        01B9: set_actor $PLAYER_ACTOR armed_weapon_to WEAPON_UNARMED
                        08C7: put_actor $PLAYER_ACTOR at $10008 $10009 $10010 dont_warp_gang
                        $PLAYER_ACTOR.Angle = $10011
                        $PLAYER_ACTOR.StorePos($TEMPVAR_X_COORD, $TEMPVAR_Y_COORD, $TEMPVAR_Z_COORD)
                        $9981.StorePos($2755, $2756, $2757)
                        IF OR
                            $2755 <> $10024
                            $2756 <> $10025
                            $2757 <> $10026
                        THEN
                            $9981.PutAt($10024, $10025, $10026)
                            $9981.Angle = $10027
                        END
                        Camera.SetPosition($10012, $10013, $10014, 0.0, 0.0, 0.0)
                        Camera.PointAt($10015, $10016, $10017, 2)
                        0793: save_player_clothes
                        0812: AS_actor $PLAYER_ACTOR perform_animation "CLO_IN" IFP "CLOTHES" framedelta 4.0 loopA FALSE lockX FALSE lockY FALSE lockF TRUE time -1 // versionB
                        $9991 = 0.0
                        IF $PLAYER_ACTOR.Animation == "CLO_IN"
                        THEN
                            0613: $9991 = actor $PLAYER_ACTOR animation "CLO_IN" time
                        END
                        IF 03CA: object $9989 exists
                        THEN
                            075A: set_object $9989 animation "CLO_POSE_OUT_O" IFP_file "CLOTHES" 4.0 lockF FALSE loop TRUE // IF AND SET
                        END
                        $9998 = 1
                    END
                END
                IF $9998 == 1
                THEN
                    IF $PLAYER_ACTOR.Animation == "CLO_IN"
                    THEN
                        0613: $9991 = actor $PLAYER_ACTOR animation "CLO_IN" time
                    END
                    IF $9991 == 1.0
                    THEN
                        $9998 = 0
                        $9990 = 5
                    END
                END
            END

            IF $9990 == 5
            THEN
                IF $9981.Dead()
                THEN
                    gosub @CLOTH_CLEAR
                    07B0: get_active_shop_name_to s$CURRENT_SHOP_GXT_NAME
                    IF s$CURRENT_SHOP_GXT_NAME <> s$9984
                    THEN
                        gosub @CLOTH_END_THREAD
                    END
                    CONTINUE
                END
                IF $2420 == FALSE
                THEN
                    IF $9998 < 1
                    THEN
                        gosub @CLOTH_CREATE_PANEL_CATEGORY
                    END
                END
                $SHOW_SHOP_SPHERE = FALSE
                IF $9998 == 0
                THEN
                    IF 00E1: player $PLAYER_CHAR pressed_key 16
                    THEN
                        $9998 = 1
                    END
                    IF 00E1: player $PLAYER_CHAR pressed_key 15
                    THEN
                        $9998 = 2
                    END
                END
                IF $9998 == 1
                THEN
                    IF 80E1: NOT player $PLAYER_CHAR pressed_key 16
                    THEN
                        08D8: $2516 = panel $2419 selected_row
                        IF $2516 < 0
                        THEN
                            $2516 = 0
                        END
                        gosub @CLOTH_SET_INFO_OF_BODYPART
                        $9990 = 6
                        IF $2420 == TRUE
                        THEN
                            08DA: remove_panel $2419
                            03E6: remove_text_box
                            $2420 = FALSE
                        END
                        $9998 = 0
                    END
                END
                IF $9998 == 2
                THEN
                    IF 80E1: NOT player $PLAYER_CHAR pressed_key 15
                    THEN
                        IF $2420 == TRUE
                        THEN
                            08DA: remove_panel $2419
                            03E6: remove_text_box
                            $2420 = FALSE
                        END
                        IF $2424 == TRUE
                        THEN
                            08DA: remove_panel $2423
                            03E6: remove_text_box
                            $2424 = FALSE
                        END
                        0812: AS_actor $PLAYER_ACTOR perform_animation "CLO_OUT" IFP "CLOTHES" framedelta 1000.0 loopA FALSE lockX FALSE lockY FALSE lockF FALSE time -1 // versionB
                        $9991 = 0.0
                        IF 03CA: object $9989 exists
                        THEN
                            075A: set_object $9989 animation "CLO_POSE_IN_O" IFP_file "CLOTHES" 1000.0 lockF FALSE loop TRUE // IF AND SET
                        END
                        $9998 = 5
                    END
                END
                IF $9998 == 5
                THEN
                    IF $PLAYER_ACTOR.Animation == "CLO_OUT"
                    THEN
                        0613: $9991 = actor $PLAYER_ACTOR animation "CLO_OUT" time
                    END
                    IF $9991 == 1.0
                    THEN
                        $9998 = 6
                    END
                END
                IF $9998 == 6
                THEN
                    $PLAYER_CHAR.CanMove = True
                    09BD: allow_other_threads_to_display_text_boxes FALSE
                    Camera.SetBehindPlayer
                    Camera.Restore_WithJumpCut
                    0581: enable_radar TRUE
                    0947: actor $9981 speak_from_audio_table 331 store_spoken_phrase_id_to $10081
                    $10029 = FALSE
                    $2420 = FALSE
                    $2424 = FALSE
                    $9990 = 8
                END
            END

            IF $9990 == 6
            THEN
                IF $9981.Dead()
                THEN
                    gosub @CLOTH_CLEAR
                    07B0: get_active_shop_name_to s$CURRENT_SHOP_GXT_NAME
                    IF s$CURRENT_SHOP_GXT_NAME <> s$9984
                    THEN
                        gosub @CLOTH_END_THREAD
                    END
                    CONTINUE
                END
                IF $2424 == FALSE
                THEN
                    IF $9998 < 2
                    THEN
                        gosub @CLOTH_CREATE_PANEL_CLOTHES
                    END
                END
                $SHOW_SHOP_SPHERE = FALSE
                IF $9998 == 0
                THEN
                    IF 00E1: player $PLAYER_CHAR pressed_key 15
                    THEN
                        $9998 = 1
                    END
                    IF 00E1: player $PLAYER_CHAR pressed_key 16
                    THEN
                        $10029 = FALSE
                        08D7: $2517 = panel $2423 active_row
                        IF $2517 < 0
                        THEN
                            $2517 = 0
                        END
                        $SELECTED_MENU_ITEM = $2438[$2517]
                        $9982 = $2426[$2517]
                        $SHOPPINGITEM_MODELCRC = $2474[$2517]
                        $SHOPPINGITEM_BODYPART = $2486[$2517]
                        s$9979 = $2450[$2517]
                        IF OR
                            $SHOPPINGITEM_BODYPART == BODY_PART_NECKLACE
                            $SHOPPINGITEM_BODYPART == BODY_PART_BRACELET
                            $SHOPPINGITEM_BODYPART == BODY_PART_GLASSES
                            $SHOPPINGITEM_BODYPART == BODY_PART_HAT
                        THEN
                            Camera.SetPosition($10018, $10019, $10020, 0.0, 0.0, 0.0)
                            Camera.PointAt($10021, $10022, $10023, 2)
                        ELSE
                            IF OR
                                $2547 == BODY_PART_TORSO
                                $2547 == BODY_PART_LEGS
                            THEN
                                03D1: play_wav 4
                            END
                            Camera.SetPosition($10012, $10013, $10014, 0.0, 0.0, 0.0)
                            Camera.PointAt($10015, $10016, $10017, 2)
                        END
                        IF $2424 == TRUE
                        THEN
                            08DA: remove_panel $2423
                            03E6: remove_text_box
                            $2424 = FALSE
                        END
                        $9998 = 2
                    END
                END
                IF $9998 == 1
                THEN
                    IF 80E1: NOT player $PLAYER_CHAR pressed_key 15
                    THEN
                        $9998 = 0
                        $9990 = 5
                        IF $2424 == TRUE
                        THEN
                            03E6: remove_text_box
                            08DA: remove_panel $2423
                            $2424 = FALSE
                        END
                        IF $2420 == FALSE
                        THEN
                            gosub @CLOTH_CREATE_PANEL_CATEGORY
                        END
                    END
                END
                IF $9998 == 2
                THEN
                    IF 03D2: wav 4 ended
                    THEN
                        IF 80E1: NOT player $PLAYER_CHAR pressed_key 16
                        THEN
                            $9998 = 3
                        END
                    END
                END
                IF $9998 == 3
                THEN
                    IF OR
                        $2547 == BODY_PART_TORSO
                        $2547 == BODY_PART_LEGS
                        $2547 == BODY_PART_SHOES
                    THEN
                        0784: set_player $PLAYER_CHAR textureCRC 0 modelCRC 0 bodypart 17
                        0793: save_player_clothes
                    END
                    0784: set_player $PLAYER_CHAR textureCRC $SELECTED_MENU_ITEM modelCRC $SHOPPINGITEM_MODELCRC bodypart $SHOPPINGITEM_BODYPART
                    $PLAYER_CHAR.Build()
                    0812: AS_actor $PLAYER_ACTOR perform_animation "CLO_POSE_IN" IFP "CLOTHES" framedelta 1000.0 loopA FALSE lockX FALSE lockY FALSE lockF TRUE time -1 // versionB
                    $9991 = 0.0
                    IF 03CA: object $9989 exists
                    THEN
                        075A: set_object $9989 animation "CLO_POSE_IN_O" IFP_file "CLOTHES" 1000.0 lockF FALSE loop TRUE
                    END
                    $9998 = 4
                END
                IF $9998 == 4
                THEN
                    IF $PLAYER_ACTOR.Animation == "CLO_POSE_IN"
                    THEN
                        0613: $9991 = actor $PLAYER_ACTOR animation "CLO_POSE_IN" time
                    END
                    IF $9991 == 1.0
                    THEN
                        0812: AS_actor $PLAYER_ACTOR perform_animation v$9994 IFP "CLOTHES" framedelta 1000.0 loopA FALSE lockX FALSE lockY FALSE lockF TRUE time -1 // versionB
                        $9991 = 0.0
                        $9998 = 5
                    END
                END
                IF $9998 == 5
                THEN
                    IF $PLAYER_ACTOR.Animation == v$9994
                    THEN
                        0613: $9991 = actor $PLAYER_ACTOR animation v$9994 time
                    END
                    IF $9991 == 1.0
                    THEN
                        gosub @CLOTH_PANEL_CHOICE
                        0812: AS_actor $PLAYER_ACTOR perform_animation "CLO_POSE_LOOP" IFP "CLOTHES" framedelta 1000.0 loopA TRUE lockX FALSE lockY FALSE lockF FALSE time -1 // versionB
                        $9991 = 0.0
                        $9990 = 7
                        $9998 = 0
                    END
                END
            END

            IF $9990 == 7
            THEN
                IF $9981.Dead()
                THEN
                    gosub @CLOTH_CLEAR
                    07B0: get_active_shop_name_to s$CURRENT_SHOP_GXT_NAME
                    IF s$CURRENT_SHOP_GXT_NAME <> s$9984
                    THEN
                        gosub @CLOTH_END_THREAD
                    END
                    CONTINUE
                END
                $SHOW_SHOP_SPHERE = FALSE
                IF $9998 == 0
                THEN
                    IF 00E1: player $PLAYER_CHAR pressed_key 16
                    THEN
                        03D5: remove_text 'SHOPNO'  // ~s~You don't have enough money to buy this item.
                        03D5: remove_text 'CLTHNO2'  // You have already bought this item!
                        03D5: remove_text 'CLTHNO1'  // You already own this item!
                        $2545 = FALSE
                        $2544 = FALSE
                        $2546 = FALSE
                        $10030 = FALSE
                        $9998 = 1
                    END
                    IF 00E1: player $PLAYER_CHAR pressed_key 15
                    THEN
                        03D5: remove_text 'SHOPNO'  // ~s~You don't have enough money to buy this item.
                        03D5: remove_text 'CLTHNO2'  // You have already bought this item!
                        03D5: remove_text 'CLTHNO1'  // You already own this item!
                        $2545 = FALSE
                        $2544 = FALSE
                        $2546 = FALSE
                        $10030 = FALSE
                        gosub @CLOTH_SET_PANEL_CLOTHES_INFO
                        IF $2418 == TRUE
                        THEN
                            08DA: remove_panel $2417
                            03E6: remove_text_box
                            $2418 = FALSE
                        END
                        IF $10029 == FALSE
                        THEN
                            $9998 = 3
                        ELSE
                            IF  $2422 == TRUE
                            THEN
                                08DA: remove_panel $2421
                                03E6: remove_text_box
                                $2422 = FALSE
                            END
                            $9998 = 0
                            $9990 = 6
                        END
                    END
                END
                IF $9998 < 2
                THEN
                    gosub @CLOTH_PANEL_CHOICE
                END
                IF $9998 == 1
                THEN
                    IF 80E1: NOT player $PLAYER_CHAR pressed_key 16
                    THEN
                        $SHOPS_PLAYER_CASH = $PLAYER_CHAR.Money
                        IF $SHOPS_PLAYER_CASH >= $9982
                        THEN
                            IF $2542 <> $SELECTED_MENU_ITEM
                            THEN
                                IF $2418 == TRUE
                                THEN
                                    08DA: remove_panel $2417
                                    03E6: remove_text_box
                                    $2418 = FALSE
                                END
                                0790: charge_money_for_shopping_item_with_textureCRC $SELECTED_MENU_ITEM
                                $10030 = TRUE
                                0947: actor $9981 speak_from_audio_table 323 store_spoken_phrase_id_to $10081
                                097A: play_audio_at $TEMPVAR_X_COORD $TEMPVAR_Y_COORD $TEMPVAR_Z_COORD event 1054
                                gosub @CLOTH_PANEL_BUY
                                gosub @CLOTH_UPDATE_WARROBE
                                0793: save_player_clothes
                                $PLAYER_CHAR.Build()
                                08F7: get_player $PLAYER_CHAR bodypart $2547 textureCRC_to $2542 modelCRC_to $2543
                                0812: AS_actor $PLAYER_ACTOR perform_animation "CLO_BUY" IFP "CLOTHES" framedelta 4.0 loopA FALSE lockX FALSE lockY FALSE lockF TRUE time -1 // versionB
                                $9991 = 0.0
                                $9998 = 2
                            ELSE
                                IF $2545 == FALSE
                                THEN
                                    097A: play_audio_at $TEMPVAR_X_COORD $TEMPVAR_Y_COORD $TEMPVAR_Z_COORD event 1055
                                    0947: actor $9981 speak_from_audio_table 322 store_spoken_phrase_id_to $10081
                                    00BC: show_text_highpriority GXT 'CLTHNO2' time 5000 flag 1  // You have already bought this item!
                                    $9998 = 0
                                    $2545 = TRUE
                                END
                            END
                        ELSE
                            IF $2544 == FALSE
                            THEN
                                097A: play_audio_at $TEMPVAR_X_COORD $TEMPVAR_Y_COORD $TEMPVAR_Z_COORD event 1055
                                0947: actor $9981 speak_from_audio_table 324 store_spoken_phrase_id_to $10081
                                00BC: show_text_highpriority GXT 'SHOPNO' time 5000 flag 1  // ~s~You don't have enough money to buy this item.
                                $9998 = 0
                                $2544 = TRUE
                            END
                        END
                    END
                END
                IF $9998 == 2
                THEN
                    IF $PLAYER_ACTOR.Animation == "CLO_BUY"
                    THEN
                        0613: $9991 = actor $PLAYER_ACTOR animation "CLO_BUY" time
                    END
                    IF $9991 == 1.0
                    THEN
                        0812: AS_actor $PLAYER_ACTOR perform_animation "CLO_POSE_LOOP" IFP "CLOTHES" framedelta 1000.0 loopA TRUE lockX FALSE lockY FALSE lockF FALSE time -1 // versionB
                        $9991 = 0.0
                        $9998 = 3
                    END
                END
                IF $9998 == 3
                THEN
                    0812: AS_actor $PLAYER_ACTOR perform_animation "CLO_POSE_OUT" IFP "CLOTHES" framedelta 4.0 loopA FALSE lockX FALSE lockY FALSE lockF TRUE time -1 // versionB
                    $9991 = 0.0
                    IF 03CA: object $9989 exists
                    THEN
                        075A: set_object $9989 animation "CLO_POSE_OUT_O" IFP_file "CLOTHES" 1000.0 lockF FALSE loop TRUE // IF AND SET
                    END
                    $9998 = 4
                END
                IF $9998 == 4
                THEN
                    IF $PLAYER_ACTOR.Animation == "CLO_POSE_OUT"
                    THEN
                        0613: $9991 = actor $PLAYER_ACTOR animation "CLO_POSE_OUT" time
                    END
                    IF $9991 == 1.0
                    THEN
                        0794: restore_player_clothes
                        $PLAYER_CHAR.Build()
                        0793: save_player_clothes
                        IF $2422 == TRUE
                        THEN
                            08DA: remove_panel $2421
                            03E6: remove_text_box
                            $2422 = FALSE
                        END
                        IF $2424 == TRUE
                        THEN
                            08DA: remove_panel $2423
                            03E6: remove_text_box
                            $2424 = FALSE
                        END
                        IF $2418 == TRUE
                        THEN
                            08DA: remove_panel $2417
                            03E6: remove_text_box
                            $2418 = FALSE
                        END
                        $10029 = TRUE
                        IF $10030 == TRUE
                        THEN
                            $9998 = 0
                            $9990 = 5
                            IF $2420 == FALSE
                            THEN
                                IF $9998 < 1
                                THEN
                                    gosub @CLOTH_CREATE_PANEL_CATEGORY
                                END
                            END
                        ELSE
                            $9998 = 0
                            $9990 = 6
                            IF $2424 == FALSE
                            THEN
                                gosub @CLOTH_SET_PANEL_CLOTHES_INFO
                                gosub @CLOTH_CREATE_PANEL_CLOTHES
                            END
                        END
                    END
                END
            END

            IF $9990 == 8
            THEN
                IF $9981.Dead()
                THEN
                    gosub @CLOTH_CLEAR
                    07B0: get_active_shop_name_to s$CURRENT_SHOP_GXT_NAME // s$
                    IF s$CURRENT_SHOP_GXT_NAME <> s$9984
                    THEN
                        gosub @CLOTH_END_THREAD
                    END
                    CONTINUE
                END
                IF $9986 == FALSE
                THEN
                    IF OR
                        02E0: actor $PLAYER_ACTOR firing_weapon
                        0457: player $PLAYER_CHAR aiming_at_actor $9981
                        031D: actor $9981 hit_by_weapon WEAPON_ANY
                        $1258 == TRUE
                    THEN
                        0947: actor $9981 speak_from_audio_table 327 store_spoken_phrase_id_to $10081
                        05C4: AS_actor $9981 hands_up -2 ms
                        $9986 = TRUE
                    END
                END
                IF 80FF: NOT actor $PLAYER_ACTOR sphere $SHOW_SHOP_SPHERE in_sphere $10008 $10009 $10010 radius 1.0 1.0 4.0 on_foot
                THEN
                    $2420 = FALSE
                    $2424 = FALSE
                    $2418 = FALSE
                    $2422 = FALSE
                    $2516 = 0
                    $2517 = 0
                    $9990 = 2
                    $9998 = 0
                    $2545 = FALSE
                    $2544 = FALSE
                    $10030 = FALSE
                    $SHOW_SHOP_SPHERE = TRUE
                END
            END
        ELSE
            gosub @CLOTH_END_THREAD
        END
    ELSE
        gosub @CLOTH_END_THREAD
    END
END



:CLOTH_CLEAR
IF $9990 >= 1
THEN
    03E6: remove_text_box
END
IF $2420 == TRUE
THEN
    08DA: remove_panel $2419
    03E6: remove_text_box
    $2420 = FALSE
END
IF $2424 == TRUE
THEN
    08DA: remove_panel $2423
    03E6: remove_text_box
    $2424 = FALSE
END
IF $2422 == TRUE
THEN
    08DA: remove_panel $2421
    03E6: remove_text_box
    $2422 = FALSE
END
IF $2418 == TRUE
THEN
    08DA: remove_panel $2417
    03E6: remove_text_box
    $2418 = FALSE
END
03D5: remove_text 'SHOPNO'  // ~s~You don't have enough money to buy this item.
03D5: remove_text 'CLTHNO2'  // You have already bought this item!
03D5: remove_text 'CLTHNO1'  // You already own this item!
$2420 = FALSE
$2424 = FALSE
$2418 = FALSE
$2422 = FALSE
$2516 = 0
$2517 = 0
$2545 = FALSE
$2544 = FALSE
$2546 = FALSE
$9998 = 0
$10029 = FALSE
$10030 = FALSE
$9990 = 2
RETURN



:CLOTH_END_THREAD
IF $2420 == TRUE
THEN
    08DA: remove_panel $2419
    03E6: remove_text_box
    $2420 = FALSE
END
IF $2424 == TRUE
THEN
    08DA: remove_panel $2423
    03E6: remove_text_box
    $2424 = FALSE
END
IF $2422 == TRUE
THEN
    08DA: remove_panel $2421
    03E6: remove_text_box
    $2422 = FALSE
END
IF $2418 == TRUE
THEN
    08DA: remove_panel $2417
    03E6: remove_text_box
    $2418 = FALSE
END
IF $9990 >= 1
THEN
    03E6: remove_text_box
END
03D5: remove_text 'SHOPNO'  // ~s~You don't have enough money to buy this item.
03D5: remove_text 'CLTHNO2'  // You have already bought this item!
03D5: remove_text 'CLTHNO1'  // You already own this item!
$10029 = FALSE
$2420 = FALSE
$2424 = FALSE
$2418 = FALSE
$2422 = FALSE
$2516 = 0
$2517 = 0
$SHOW_SHOP_SPHERE = TRUE
$9988 = FALSE
$9986 = FALSE
$2545 = FALSE
$2544 = FALSE
$2546 = FALSE
$10030 = FALSE
$9998 = 0
$9990 = 0
$9989.Destroy()
$10028.Destroy()
$9981.DestroyInstantly()
$SELLER_MODEL.Destroy()
03F0: enable_text_draw FALSE
0581: enable_radar TRUE
08F8: display_stat_update_box TRUE
09BD: allow_other_threads_to_display_text_boxes FALSE
040D: unload_wav 4
IF $PLAYER_CHAR.Defined()
THEN
    0489: set_actor $PLAYER_ACTOR muted FALSE
END
END_THREAD



:CLOTH_SET_INFO_OF_BODYPART
IF $2516 == 0
THEN
    $2513 = BODY_PART_TORSO
    $2547 = BODY_PART_TORSO
    08F7: get_player $PLAYER_CHAR bodypart $2547 textureCRC_to $2542 modelCRC_to $2543
    gosub @CLOTH_SET_PANEL_CLOTHES_INFO
    v$9994 = "CLO_POSE_TORSO"
END
IF $2516 == 1
THEN
    $2513 = BODY_PART_LEGS
    $2547 = BODY_PART_LEGS
    08F7: get_player $PLAYER_CHAR bodypart $2547 textureCRC_to $2542 modelCRC_to $2543
    gosub @CLOTH_SET_PANEL_CLOTHES_INFO
    v$9994 = "CLO_POSE_LEGS"
END
IF $2516 == 2
THEN
    $2513 = BODY_PART_SHOES
    $2547 = BODY_PART_SHOES
    08F7: get_player $PLAYER_CHAR bodypart $2547 textureCRC_to $2542 modelCRC_to $2543
    gosub @CLOTH_SET_PANEL_CLOTHES_INFO
    v$9994 = "CLO_POSE_SHOES"
END
IF $2516 == 3
THEN
    $2513 = BODY_PART_NECKLACE
    $2547 = BODY_PART_NECKLACE
    08F7: get_player $PLAYER_CHAR bodypart $2547 textureCRC_to $2542 modelCRC_to $2543
    gosub @CLOTH_SET_PANEL_CLOTHES_INFO
    v$9994 = "CLO_POSE_TORSO"
END
IF $2516 == 4
THEN
    $2513 = BODY_PART_BRACELET
    $2547 = BODY_PART_BRACELET
    08F7: get_player $PLAYER_CHAR bodypart $2547 textureCRC_to $2542 modelCRC_to $2543
    gosub @CLOTH_SET_PANEL_CLOTHES_INFO
    v$9994 = "CLO_POSE_WATCH"
END
IF $2516 == 5
THEN
    $2513 = BODY_PART_GLASSES
    $2547 = BODY_PART_GLASSES
    08F7: get_player $PLAYER_CHAR bodypart $2547 textureCRC_to $2542 modelCRC_to $2543
    gosub @CLOTH_SET_PANEL_CLOTHES_INFO
    v$9994 = "CLO_POSE_HAT"
END
IF $2516 == 6
THEN
    $2513 = BODY_PART_HAT
    $2547 = BODY_PART_HAT
    08F7: get_player $PLAYER_CHAR bodypart $2547 textureCRC_to $2542 modelCRC_to $2543
    gosub @CLOTH_SET_PANEL_CLOTHES_INFO
    v$9994 = "CLO_POSE_HAT"
END
RETURN



:CLOTH_SET_PANEL_CLOTHES_INFO
$2514 = 0
$10000 = 0
WHILE $2514 < $9999
    0760: store_shopping_data_index $2514 textureCRC_to $SELECTED_MENU_ITEM
    0783: get_shopping_item_with_textureCRC $SELECTED_MENU_ITEM flag 0 store_to $SHOPPINGITEM_MODELCRC
    0783: get_shopping_item_with_textureCRC $SELECTED_MENU_ITEM flag 1 store_to $SHOPPINGITEM_BODYPART
    IF $SHOPPINGITEM_BODYPART == $2513
    THEN
        $2438[$10000] = $SELECTED_MENU_ITEM
        078C: get_shopping_item_with_textureCRC $SELECTED_MENU_ITEM nametag_to s$9979
        0761: get_shopping_item_with_textureCRC $SELECTED_MENU_ITEM price_to $9982
        $2426[$10000] = $9982
        $2450[$10000] = s$9979
        $2474[$10000] = $SHOPPINGITEM_MODELCRC
        $2486[$10000] = $SHOPPINGITEM_BODYPART
        IF $2542 == $SELECTED_MENU_ITEM
        THEN
            $2498[$10000] = PANEL_ROW_LOCK
        ELSE
            IF 0942: item_with_textureCRC $SELECTED_MENU_ITEM is_clothing
            THEN
                $2498[$10000] = PANEL_ROW_BOUGHT
            ELSE
                $2498[$10000] = PANEL_ROW_UNLOCK
            END
        END
        $10000++
    END
    $2514++
END

$2515 = $10000
WHILE $2515 < MAX_PANEL_ROWS
    $2438[$2515] = -1
    $2426[$2515] = NULL
    $2450[$2515] = 'DUMMY'
    $2515++
END
RETURN



:CLOTH_CREATE_PANEL_CATEGORY
IF $2420 == FALSE
THEN
    0512: show_permanent_text_box 'CLOTHA'  // Use ~k~~GO_FORWARD~ and ~k~~GO_BACK~ to select area.~N~~k~~PED_SPRINT~ Select~N~~k~~VEHICLE_ENTER_EXIT~ Quit
    s$2518 = 'TORSO'    // Torso
    s$2520 = 'LEGS'     // Legs
    s$2522 = 'FEET'     // Shoes
    s$2524 = 'CHAINS'   // Chains
    s$2526 = 'WATCHES'  // Watches
    s$2528 = 'SHADES'   // Shades
    s$2530 = 'HATS'     // Hats
    s$2532 = 'DUMMY'
    s$2534 = 'DUMMY'
    s$2536 = 'DUMMY'
    s$2538 = 'DUMMY'
    s$2540 = 'DUMMY'
    IF $CURRENT_LANGUAGE == LANGUAGE_AMERICAN
    THEN
        08D4: $2419 = create_panel_with_title 'CLOTCHO' position 29.0 145.0 width 186.0 columns 1 interactive TRUE background TRUE alignment ALIGN_LEFT  // Apparel
    ELSE
        IF $CURRENT_LANGUAGE == LANGUAGE_FRENCH
        THEN
            08D4: $2419 = create_panel_with_title 'CLOTCHO' position 29.0 165.0 width 186.0 columns 1 interactive TRUE background TRUE alignment ALIGN_LEFT  // Apparel
        ELSE
            IF $CURRENT_LANGUAGE == LANGUAGE_GERMAN
            THEN
                08D4: $2419 = create_panel_with_title 'CLOTCHO' position 29.0 165.0 width 186.0 columns 1 interactive TRUE background TRUE alignment ALIGN_LEFT  // Apparel
            ELSE
                IF $CURRENT_LANGUAGE == LANGUAGE_ITALIAN
                THEN
                    08D4: $2419 = create_panel_with_title 'CLOTCHO' position 29.0 145.0 width 186.0 columns 1 interactive TRUE background TRUE alignment ALIGN_LEFT  // Apparel
                ELSE
                    IF $CURRENT_LANGUAGE == LANGUAGE_SPANISH
                    THEN
                        08D4: $2419 = create_panel_with_title 'CLOTCHO' position 29.0 145.0 width 186.0 columns 1 interactive TRUE background TRUE alignment ALIGN_LEFT  // Apparel
                    END
                END
            END
        END
    END
    08D6: set_panel $2419 column 0 alignment ALIGN_LEFT
    08DB: set_panel $2419 column 0 header 'DUMMY' data s$2518 s$2520 s$2522 s$2524 s$2526 s$2528 s$2530 s$2532 s$2534 s$2536 s$2538 s$2540
    $2420 = TRUE
END
RETURN



:CLOTH_CREATE_PANEL_CLOTHES
IF $2424 == FALSE
THEN
    0512: show_permanent_text_box 'CLOTHB'  // Use ~k~~GO_FORWARD~ and ~k~~GO_BACK~ to select clothing.~N~~k~~PED_SPRINT~ View Item~N~~k~~VEHICLE_ENTER_EXIT~ Back
    IF $CURRENT_LANGUAGE == LANGUAGE_AMERICAN
    THEN
        08D4: $2423 = create_panel_with_title 'CLOTCHO' position 29.0 145.0 width 186.0 columns 1 interactive TRUE background TRUE alignment ALIGN_LEFT  // Apparel
    ELSE
        IF $CURRENT_LANGUAGE == LANGUAGE_FRENCH
        THEN
            08D4: $2423 = create_panel_with_title 'CLOTCHO' position 29.0 145.0 width 186.0 columns 1 interactive TRUE background TRUE alignment ALIGN_LEFT  // Apparel
        ELSE
            IF $CURRENT_LANGUAGE == LANGUAGE_GERMAN
            THEN
                08D4: $2423 = create_panel_with_title 'CLOTCHO' position 29.0 165.0 width 186.0 columns 1 interactive TRUE background TRUE alignment ALIGN_LEFT  // Apparel
            ELSE
                IF $CURRENT_LANGUAGE == LANGUAGE_ITALIAN
                THEN
                    08D4: $2423 = create_panel_with_title 'CLOTCHO' position 29.0 145.0 width 186.0 columns 1 interactive TRUE background TRUE alignment ALIGN_LEFT  // Apparel
                ELSE
                    IF $CURRENT_LANGUAGE == LANGUAGE_SPANISH
                    THEN
                        08D4: $2423 = create_panel_with_title 'CLOTCHO' position 29.0 145.0 width 186.0 columns 1 interactive TRUE background TRUE alignment ALIGN_LEFT  // Apparel
                    END
                END
            END
        END
    END
    08D6: set_panel $2423 column 0 alignment ALIGN_LEFT
    08DB: set_panel $2423 column 0 header 'DUMMY' data s$2450[0] s$2450[1] s$2450[2] s$2450[3] s$2450[4] s$2450[5] s$2450[6] s$2450[7] s$2450[8] s$2450[9] s$2450[10] s$2450[11]
    $2515 = 0
    WHILE $2515 < $10000
        IF $2498[$2515] == PANEL_ROW_LOCK
        THEN
            0A23: set_panel $2423 row $2515 shopping_item_bought FALSE
            08D9: set_panel $2423 row $2515 enable FALSE
        ELSE
            IF $2498[$2515] == PANEL_ROW_BOUGHT
            THEN
                0A23: set_panel $2423 row $2515 shopping_item_bought TRUE
            ELSE
                0A23: set_panel $2423 row $2515 shopping_item_bought FALSE
                08D9: set_panel $2423 row $2515 enable TRUE
            END
        END
        $2515++
    END
    $2424 = TRUE
END
RETURN



:CLOTH_PANEL_CHOICE
IF $2418 == FALSE
THEN
    0512: show_permanent_text_box 'CLOTHC'  // ~k~~PED_SPRINT~ Buy~N~~k~~VEHICLE_ENTER_EXIT~ Back
    08D4: $2417 = create_panel_with_title 'CLOTCHO' position 29.0 95.0 width 93.0 columns 2 interactive FALSE background TRUE alignment ALIGN_LEFT  // Apparel
    08D6: set_panel $2417 column 0 alignment ALIGN_LEFT
    08DB: set_panel $2417 column 0 header 'CLOTCHO' data s$9979 'DUMMY' 'DUMMY' 'DUMMY' 'DUMMY' 'DUMMY' 'DUMMY' 'DUMMY' 'DUMMY' 'DUMMY' 'DUMMY' 'DUMMY'  // Apparel
    08D6: set_panel $2417 column 1 alignment ALIGN_RIGHT
    08DB: set_panel $2417 column 1 header 'COST' data 'DUMMY' 'DUMMY' 'DUMMY' 'DUMMY' 'DUMMY' 'DUMMY' 'DUMMY' 'DUMMY' 'DUMMY' 'DUMMY' 'DUMMY' 'DUMMY'  // Cost
    08EE: set_panel $2417 column 1 row 0 text_1number GXT 'DOLLAR' number $9982  // $~1~
    09DB: set_panel $2417 column 0 width 140
    09DB: set_panel $2417 column 1 width 46
    $2418 = TRUE
END
RETURN



:CLOTH_PANEL_BUY
IF $2422 == FALSE
THEN
    08D4: $2421 = create_panel_with_title 'CLOTCHO' position 29.0 25.0 width 93.0 columns 2 interactive FALSE background TRUE alignment ALIGN_LEFT  // Apparel
    08D6: set_panel $2421 column 0 alignment ALIGN_LEFT
    08DB: set_panel $2421 column 0 header 'CLOTCHO' data 'BOUGHT' 'DUMMY' 'DUMMY' 'DUMMY' 'DUMMY' 'DUMMY' 'DUMMY' 'DUMMY' 'DUMMY' 'DUMMY' 'DUMMY' 'DUMMY'  // Apparel // Purchased
    08D6: set_panel $2421 column 1 alignment ALIGN_RIGHT
    08DB: set_panel $2421 column 1 header 'COST' data 'DUMMY' 'DUMMY' 'DUMMY' 'DUMMY' 'DUMMY' 'DUMMY' 'DUMMY' 'DUMMY' 'DUMMY' 'DUMMY' 'DUMMY' 'DUMMY'  // Cost
    08EE: set_panel $2421 column 1 row 0 text_1number GXT 'DOLLAR' number $9982  // $~1~
    09DB: set_panel $2421 column 0 width 140
    09DB: set_panel $2421 column 1 width 46
    $2422 = TRUE
END
RETURN



:CLOTH_UPDATE_WARROBE
IF $2549 == FALSE
THEN
    IF s$CURRENT_SHOP_GXT_NAME == 'CSCHP' // Binco
    THEN
        $2549 = TRUE
    END
END
IF $2550 == FALSE
THEN
    IF s$CURRENT_SHOP_GXT_NAME == 'CSSPRT' // Pro-Laps
    THEN
        $2550 = TRUE
    END
END

IF $2551 == FALSE
THEN
    IF s$CURRENT_SHOP_GXT_NAME == 'LACS1' // Sub Urban
    THEN
        $2551 = TRUE
    END
END

IF $2552 == FALSE
THEN
    IF s$CURRENT_SHOP_GXT_NAME == 'CLOTHGP' // Zip
    THEN
        $2552 = TRUE
    END
END

IF $2553 == FALSE
THEN
    IF s$CURRENT_SHOP_GXT_NAME == 'CSDESGN' // Victim
    THEN
        $2553 = TRUE
    END
END

IF $2554 == FALSE
THEN
    IF s$CURRENT_SHOP_GXT_NAME == 'CSEXL' // Didier Sachs
    THEN
        $2554 = TRUE
    END
END
RETURN