:CARSHOP

:CARSHOP
thread 'CARSHOP'

gosub @CARSHOP_PICKUP

while true
    wait 0
    if
    0214:   pickup $CARSHOP_PICKUP picked_up
    then
        $CARSHOP_FLAG = 0

        0215: destroy_pickup $CARSHOP_PICKUP

        01F7: set_player $PLAYER_CHAR ignored_by_cops_state_to 1
        03BF: set_player $PLAYER_CHAR ignored_by_everyone_to 1

        01B4: set_player $PLAYER_CHAR frozen_state 0

        00BE: text_clear_all
        00BA: text_styled 'LANDSTK' 99999 ms 2
        03E5: text_box 'CARBUY'

        0395: clear_area 1 at 1242.4652 -115.0636 range -20.0 20.0

        gosub @CHANGE_CARSHOP_CARMODEL

        015F: set_camera_position 1231.2035 -113.2843 17.5 0.0 0.0 0.0
        0160: point_camera 1242.4652 -115.0636 14.9732 2

        while true
            wait 0
            if 00E1:   pad 0 key_pressed 11
            then
                $CARSHOP_FLAG += 1

                if $CARSHOP_FLAG > 9
                then
                    $CARSHOP_FLAG = 0
                end

                gosub @CHANGE_CARSHOP_CARMODEL
                03E5: text_box 'CARBUY'

                while 00E1:   pad 0 key_pressed 11
                    wait 0
                end
            end


            if 00E1:   pad 0 key_pressed 10
            then
                $CARSHOP_FLAG -= 1

                if 0 > $CARSHOP_FLAG
                then
                    $CARSHOP_FLAG = 9
                end

                gosub @CHANGE_CARSHOP_CARMODEL
                03E5: text_box 'CARBUY'

                while 00E1:   pad 0 key_pressed 10
                    wait 0
                end
            end


            if 00E1:   pad 0 key_pressed 14
            then
                $CARSHOP_FLAG = 0
                $CARSHOP_CARMODEL_COST += -1

                if 010A:   player $PLAYER_CHAR money > $CARSHOP_CARMODEL_COST
                then
                    $CARSHOP_CARMODEL_COST += 1

                    $CARSHOP_CARMODEL_COST *= -1

                    0109: player $PLAYER_CHAR money += $CARSHOP_CARMODEL_COST

                    020A: set_car $CARSHOP_CARMODEL door_status_to 1

                    00BE: text_clear_all
                    00BB: text_lowpriority 'CARBGHT' 5000 ms 1

                    0169: set_fade_color 1 1 1
                    016A: fade 1 500

                    break
                end

                if 810A: not player $PLAYER_CHAR money > $CARSHOP_CARMODEL_COST
                then
                    00BE: text_clear_all
                    00BB: text_lowpriority 'NOMONEY' 5000 ms 1

                    continue
                end
            end


            if 00E1:   pad 0 key_pressed 15
            then
                00A6: destroy_car $CARSHOP_CARMODEL
                break
            end
        end

        00BE: text_clear_all

        $CARSHOP_FLAG = 0
        01B4: set_player $PLAYER_CHAR frozen_state 1

        02EB: restore_camera_with_jumpcut
        0373: set_camera_directly_behind_player

        01F7: set_player $PLAYER_CHAR ignored_by_cops_state_to 0
        03BF: set_player $PLAYER_CHAR ignored_by_everyone_to 0

        01C3: remove_references_to_car $CARSHOP_CARMODEL // Like turning a car into any random car

        0249: release_model 90
        0249: release_model 92
        0249: release_model 94
        0249: release_model 102
        0249: release_model 105
        0249: release_model 109
        0249: release_model 111
        0249: release_model 112
        0249: release_model 119
        0249: release_model 129

        gosub @CARSHOP_PICKUP
    end
end

:CARSHOP_PICKUP
0247: request_model #BRIEFCASE
038B: load_requested_models

while true
    wait 250
    if and
    0248:   model #BRIEFCASE available
    80FF: not actor $PLAYER_ACTOR 0 1238.0396 -134.4277 15.024 radius 2.0 2.0 2.0
    then
        0213: $CARSHOP_PICKUP = create_pickup #BRIEFCASE type 3 at 1238.0396 -134.4277 15.024
        0249: release_model #BRIEFCASE
        return
    end
end

:CHANGE_CARSHOP_CARMODEL
0247: request_model 90
0247: request_model 92
0247: request_model 94
0247: request_model 102
0247: request_model 105
0247: request_model 109
0247: request_model 111
0247: request_model 112
0247: request_model 119
0247: request_model 129
038B: load_requested_models


0169: set_fade_color 1 1 1
016A: fade 0 500

    while 016B:   fading
        wait 0
    end

00A6: destroy_car $CARSHOP_CARMODEL

while true
    wait 0
    if and
    $CARSHOP_FLAG == 0
    0248:   model 90 available
    then
        00A5: $CARSHOP_CARMODEL = create_car 90 at 1242.4652 -115.0636 14.9732
        $CARSHOP_CARMODEL_COST = 9000

        0175: set_car $CARSHOP_CARMODEL z_angle_to 45.0
        020A: set_car $CARSHOP_CARMODEL door_status_to 2

        00BE: text_clear_all
        00BA: text_styled 'LANDSTK' 99999 ms 2
        01E4: text_1number_lowpriority 'CARCOST' $CARSHOP_CARMODEL_COST 99999 ms 1

        wait 500

        0169: set_fade_color 1 1 1
        016A: fade 1 500
        return
    end

    if and
    $CARSHOP_FLAG == 1
    0248:   model 92 available
    then
        00A5: $CARSHOP_CARMODEL = create_car 92 at 1242.4652 -115.0636 14.9732
        $CARSHOP_CARMODEL_COST = 75000

        0175: set_car $CARSHOP_CARMODEL z_angle_to 45.0
        020A: set_car $CARSHOP_CARMODEL door_status_to 2

        00BE: text_clear_all
        00BA: text_styled 'STINGER' 99999 ms 2
        01E4: text_1number_lowpriority 'CARCOST' $CARSHOP_CARMODEL_COST 99999 ms 1

        wait 500

        0169: set_fade_color 1 1 1
        016A: fade 1 500
        return
    end

    if and
    $CARSHOP_FLAG == 2
    0248:   model 94 available
    then
        00A5: $CARSHOP_CARMODEL = create_car 94 at 1242.4652 -115.0636 14.9732
        $CARSHOP_CARMODEL_COST = 6000

        0175: set_car $CARSHOP_CARMODEL z_angle_to 45.0
        020A: set_car $CARSHOP_CARMODEL door_status_to 2

        00BE: text_clear_all
        00BA: text_styled 'PEREN' 99999 ms 2
        01E4: text_1number_lowpriority 'CARCOST' $CARSHOP_CARMODEL_COST 99999 ms 1

        wait 500

        0169: set_fade_color 1 1 1
        016A: fade 1 500
        return
    end

    if and
    $CARSHOP_FLAG == 3
    0248:   model 102 available
    then
        00A5: $CARSHOP_CARMODEL = create_car 102 at 1242.4652 -115.0636 14.9732
        $CARSHOP_CARMODEL_COST = 10000

        0175: set_car $CARSHOP_CARMODEL z_angle_to 45.0
        020A: set_car $CARSHOP_CARMODEL door_status_to 2

        00BE: text_clear_all
        00BA: text_styled 'BLISTA' 99999 ms 2
        01E4: text_1number_lowpriority 'CARCOST' $CARSHOP_CARMODEL_COST 99999 ms 1

        wait 500

        0169: set_fade_color 1 1 1
        016A: fade 1 500
        return
    end

    if and
    $CARSHOP_FLAG == 4
    0248:   model 105 available
    then
        00A5: $CARSHOP_CARMODEL = create_car 105 at 1242.4652 -115.0636 14.9732
        $CARSHOP_CARMODEL_COST = 81000

        0175: set_car $CARSHOP_CARMODEL z_angle_to 45.0
        020A: set_car $CARSHOP_CARMODEL door_status_to 2

        00BE: text_clear_all
        00BA: text_styled 'CHEETAH' 99999 ms 2
        01E4: text_1number_lowpriority 'CARCOST' $CARSHOP_CARMODEL_COST 99999 ms 1

        wait 500

        0169: set_fade_color 1 1 1
        016A: fade 1 500
        return
    end

    if and
    $CARSHOP_FLAG == 5
    0248:   model 109 available
    then
        00A5: $CARSHOP_CARMODEL = create_car 109 at 1242.4652 -115.0636 14.9732
        $CARSHOP_CARMODEL_COST = 7000

        0175: set_car $CARSHOP_CARMODEL z_angle_to 45.0
        020A: set_car $CARSHOP_CARMODEL door_status_to 2

        00BE: text_clear_all
        00BA: text_styled 'ESPERAN' 99999 ms 2
        01E4: text_1number_lowpriority 'CARCOST' $CARSHOP_CARMODEL_COST 99999 ms 1

        wait 500

        0169: set_fade_color 1 1 1
        016A: fade 1 500
        return
    end

    if and
    $CARSHOP_FLAG == 6
    0248:   model 111 available
    then
        00A5: $CARSHOP_CARMODEL = create_car 111 at 1242.4652 -115.0636 14.9732
        $CARSHOP_CARMODEL_COST = 18500

        0175: set_car $CARSHOP_CARMODEL z_angle_to 45.0
        020A: set_car $CARSHOP_CARMODEL door_status_to 2

        00BE: text_clear_all
        00BA: text_styled 'KURUMA' 99999 ms 2
        01E4: text_1number_lowpriority 'CARCOST' $CARSHOP_CARMODEL_COST 99999 ms 1

        wait 500

        0169: set_fade_color 1 1 1
        016A: fade 1 500
        return
    end

    if and
    $CARSHOP_FLAG == 7
    0248:   model 112 available
    then
        00A5: $CARSHOP_CARMODEL = create_car 112 at 1242.4652 -115.0636 14.9732
        $CARSHOP_CARMODEL_COST = 12000

        0175: set_car $CARSHOP_CARMODEL z_angle_to 45.0
        020A: set_car $CARSHOP_CARMODEL door_status_to 2

        00BE: text_clear_all
        00BA: text_styled 'BOBCAT' 99999 ms 2
        01E4: text_1number_lowpriority 'CARCOST' $CARSHOP_CARMODEL_COST 99999 ms 1

        wait 500

        0169: set_fade_color 1 1 1
        016A: fade 1 500
        return
    end

    if and
    $CARSHOP_FLAG == 8
    0248:   model 119 available
    then
        00A5: $CARSHOP_CARMODEL = create_car 119 at 1242.4652 -115.0636 14.9732
        $CARSHOP_CARMODEL_COST = 69666

        0175: set_car $CARSHOP_CARMODEL z_angle_to 45.0
        020A: set_car $CARSHOP_CARMODEL door_status_to 2

        00BE: text_clear_all
        00BA: text_styled 'BANSHEE' 99999 ms 2
        01E4: text_1number_lowpriority 'CARCOST' $CARSHOP_CARMODEL_COST 99999 ms 1

        wait 500

        0169: set_fade_color 1 1 1
        016A: fade 1 500
        return
    end

    if and
    $CARSHOP_FLAG == 9
    0248:   model 129 available
    then
        00A5: $CARSHOP_CARMODEL = create_car 129 at 1242.4652 -115.0636 14.9732
        $CARSHOP_CARMODEL_COST = 9500

        0175: set_car $CARSHOP_CARMODEL z_angle_to 45.0
        020A: set_car $CARSHOP_CARMODEL door_status_to 2

        00BE: text_clear_all
        00BA: text_styled 'STALION' 99999 ms 2
        01E4: text_1number_lowpriority 'CARCOST' $CARSHOP_CARMODEL_COST 99999 ms 1

        wait 500

        0169: set_fade_color 1 1 1
        016A: fade 1 500
        return
    end
end