https://www.mixmods.com.br/2019/08/mini-malibu-safe-house.html

Mini Malibu Safehouse.sc

// by Junior_Djjr - MixMods.com.br
// You are free to edit it, just keep credits for me as a base script
// You need: https://forum.mixmods.com.br/f16-utilidades/t179-gta3script-while-true-return_true-e-return_false
SCRIPT_START
{
    LVAR_INT carGene scplayer markers[6] i blip1 blip2 pickup

    // safe house
    CREATE_CAR_GENERATOR -180.579 -2072.51 2.0 270.0 JETMAX 1 3 TRUE 0 0 20000 50000 carGene 
    SWITCH_CAR_GENERATOR carGene 101
    SET_HAS_BEEN_OWNED_FOR_CAR_GENERATOR carGene TRUE
    CLEO_CALL DisableCarGeneratorFromBeingSaved 0 (carGene)

    CREATE_CAR_GENERATOR -160.579 -2072.51 2.0 270.0 MARQUIS 0 1 TRUE 0 0 20000 50000 carGene 
    SWITCH_CAR_GENERATOR carGene 101
    SET_HAS_BEEN_OWNED_FOR_CAR_GENERATOR carGene TRUE
    CLEO_CALL DisableCarGeneratorFromBeingSaved 0 (carGene)

    CREATE_CAR_GENERATOR -181.534 -2046.85 9.5 0.0 INFERNUS 3 25 TRUE 0 0 20000 50000 carGene 
    SWITCH_CAR_GENERATOR carGene 101
    SET_HAS_BEEN_OWNED_FOR_CAR_GENERATOR carGene TRUE
    CLEO_CALL DisableCarGeneratorFromBeingSaved 0 (carGene)

    CREATE_CAR_GENERATOR -228.422 -1997.38 30.53 90.0 BULLET 6 0 TRUE 0 0 20000 50000 carGene 
    SWITCH_CAR_GENERATOR carGene 101
    SET_HAS_BEEN_OWNED_FOR_CAR_GENERATOR carGene TRUE
    CLEO_CALL DisableCarGeneratorFromBeingSaved 0 (carGene)

    // others
    CREATE_CAR_GENERATOR -153.567 -1736.4 3.2 0.0 JETMAX 1 3 TRUE 0 0 20000 50000 carGene 
    SWITCH_CAR_GENERATOR carGene 101
    CLEO_CALL DisableCarGeneratorFromBeingSaved 0 (carGene)

    CREATE_CAR_GENERATOR -217.105 -1742.76 6.0 90.0 ELEGY 0 0 TRUE 0 0 20000 50000 carGene 
    SWITCH_CAR_GENERATOR carGene 101
    CLEO_CALL DisableCarGeneratorFromBeingSaved 0 (carGene)

    CREATE_CAR_GENERATOR -265.378 -1854.93 23.0 0.0 EUROS 3 25 TRUE 0 0 20000 50000 carGene 
    SWITCH_CAR_GENERATOR carGene 101
    CLEO_CALL DisableCarGeneratorFromBeingSaved 0 (carGene)

    CREATE_CAR_GENERATOR -258.65 -1931.97 29.53 90.0 CHEETAH 30 1 TRUE 0 0 20000 50000 carGene 
    SWITCH_CAR_GENERATOR carGene 101
    CLEO_CALL DisableCarGeneratorFromBeingSaved 0 (carGene)

    CREATE_CAR_GENERATOR -258.65 -1926.97 29.53 90.0 SUPERGT 1 3 TRUE 0 0 20000 50000 carGene 
    SWITCH_CAR_GENERATOR carGene 101
    CLEO_CALL DisableCarGeneratorFromBeingSaved 0 (carGene)

    CREATE_CAR_GENERATOR -258.65 -1921.97 29.53 90.0 SULTAN 1 0 TRUE 0 0 20000 50000 carGene 
    SWITCH_CAR_GENERATOR carGene 101
    CLEO_CALL DisableCarGeneratorFromBeingSaved 0 (carGene)

    CREATE_CAR_GENERATOR -237.5 -2024.0 34.5 0.0 BANSHEE 0 1 TRUE 0 0 20000 50000 carGene 
    SWITCH_CAR_GENERATOR carGene 101
    CLEO_CALL DisableCarGeneratorFromBeingSaved 0 (carGene)

    CREATE_CAR_GENERATOR -242.5 -2024.0 34.5 0.0 WINDSOR 3 25 TRUE 0 0 20000 50000 carGene 
    SWITCH_CAR_GENERATOR carGene 101
    CLEO_CALL DisableCarGeneratorFromBeingSaved 0 (carGene)

    CREATE_CAR_GENERATOR -172.9 -1916.46 7.49 180.0 -1 -1 -1 TRUE 0 0 20000 50000 carGene 
    SWITCH_CAR_GENERATOR carGene 101
    CLEO_CALL DisableCarGeneratorFromBeingSaved 0 (carGene)

    CREATE_CAR_GENERATOR -152.9 -1916.46 7.49 180.0 -1 -1 -1 TRUE 0 0 20000 50000 carGene 
    SWITCH_CAR_GENERATOR carGene 101
    CLEO_CALL DisableCarGeneratorFromBeingSaved 0 (carGene)

    CREATE_CAR_GENERATOR -162.9 -1927.86 7.49 0.0 -1 -1 -1 TRUE 0 0 20000 50000 carGene 
    SWITCH_CAR_GENERATOR carGene 101
    CLEO_CALL DisableCarGeneratorFromBeingSaved 0 (carGene)

    GET_PLAYER_CHAR 0 scplayer


    GOSUB CreateBlips

    WHILE TRUE
        WAIT 0
        
        // hill safe house
        IF LOCATE_CHAR_ANY_MEANS_3D scplayer -252.1251 -1991.1157 32.1816 30.0 30.0 20.0 FALSE

            GOSUB CreateMarkersAndPickup1

            WHILE LOCATE_CHAR_ANY_MEANS_3D scplayer -252.1251 -1991.1157 32.1816 35.0 35.0 25.0 FALSE
                WAIT 0
                IF HAS_PICKUP_BEEN_COLLECTED pickup
                    SET_CHAR_COORDINATES_NO_OFFSET scplayer (-239.746 -1964.81 31.53)
                    SET_CHAR_HEADING scplayer (180.0)
                    RESTORE_CAMERA_JUMPCUT
                    DO_FADE 0 0
                    GOSUB DeleteBlips
                    GOSUB DeleteMarkersAndPickup1
                    WAIT 50
                    DO_FADE 0 1
                    ACTIVATE_SAVE_MENU
                    WAIT 2000
                    GOSUB CreateMarkersAndPickup1
                ENDIF
                IF LOCATE_CHAR_ON_FOOT_3D scplayer -238.372 -1980.68 31.53 1.0 1.0 1.0 FALSE
                    GOSUB FadeIn
                    SET_CHAR_COORDINATES_NO_OFFSET scplayer (-239.222 -1996.0 31.53)
                    SET_CHAR_HEADING scplayer (180.0)
                    GOSUB FadeOut
                ENDIF
                IF LOCATE_CHAR_ON_FOOT_3D scplayer -239.222 -1992.58 31.53 1.0 1.0 1.0 FALSE
                    GOSUB FadeIn
                    SET_CHAR_COORDINATES_NO_OFFSET scplayer (-238.372 -1977.0 31.53)
                    SET_CHAR_HEADING scplayer (0.0)
                    GOSUB FadeOut
                ENDIF
            ENDWHILE

            GOSUB DeleteMarkersAndPickup1

        ENDIF

        // ocean safe house
        IF LOCATE_CHAR_ANY_MEANS_3D scplayer -172.3674 -2053.8049 10.1225 50.0 50.0 20.0 FALSE

            GOSUB CreateMarkersAndPickup2

            WHILE LOCATE_CHAR_ANY_MEANS_3D scplayer -172.3674 -2053.8049 10.1225 55.0 55.0 25.0 FALSE
                WAIT 0
                IF HAS_PICKUP_BEEN_COLLECTED pickup
                    SET_CHAR_COORDINATES_NO_OFFSET scplayer (-179.021 -2052.7 5.3)
                    SET_CHAR_HEADING scplayer (180.0)
                    RESTORE_CAMERA_JUMPCUT
                    DO_FADE 0 0
                    GOSUB DeleteBlips
                    GOSUB DeleteMarkersAndPickup2
                    WAIT 50
                    DO_FADE 0 1
                    ACTIVATE_SAVE_MENU
                    WAIT 2000
                    GOSUB CreateMarkersAndPickup2
                ENDIF
                IF LOCATE_CHAR_ON_FOOT_3D scplayer -177.688 -2047.59 9.5 1.0 1.0 1.0 FALSE
                    GOSUB FadeIn
                    SET_CHAR_COORDINATES_NO_OFFSET (scplayer -174.188 -2047.59 9.5)
                    SET_CHAR_HEADING scplayer (270.0)
                    GOSUB FadeOut
                ENDIF
                IF LOCATE_CHAR_ON_FOOT_3D scplayer -176.188 -2047.59 9.5 1.0 1.0 1.0 FALSE
                    GOSUB FadeIn
                    SET_CHAR_COORDINATES_NO_OFFSET (scplayer -179.588 -2047.59 9.5)
                    SET_CHAR_HEADING scplayer (90.0)
                    GOSUB FadeOut
                ENDIF
                IF LOCATE_CHAR_ON_FOOT_3D scplayer -173.974 -2061.84 5.4 1.0 1.0 1.0 FALSE
                    GOSUB FadeIn
                    SET_CHAR_COORDINATES_NO_OFFSET (scplayer -171.83 -2064.0 5.2)
                    SET_CHAR_HEADING scplayer (270.0)
                    GOSUB FadeOut
                ENDIF
                IF LOCATE_CHAR_ON_FOOT_3D scplayer -173.974 -2063.14 5.4 1.0 1.0 1.0 FALSE
                    GOSUB FadeIn
                    SET_CHAR_COORDINATES_NO_OFFSET (scplayer -173.7931 -2059.6934 5.2)
                    SET_CHAR_HEADING scplayer (0.0)
                    GOSUB FadeOut
                ENDIF
            ENDWHILE

            GOSUB DeleteMarkersAndPickup2

        ENDIF

    ENDWHILE

    CreateMarkersAndPickup1:
    CREATE_USER_3D_MARKER -238.372 -1980.68 32.53 14 (markers[0])
    CREATE_USER_3D_MARKER -239.222 -1992.58 32.53 14 (markers[1])
    CREATE_PICKUP 1277 3 -236.346 -1964.81 31.53 (pickup)
    RETURN

    CreateMarkersAndPickup2:
    CREATE_USER_3D_MARKER -177.688 -2047.59 10.5 14 (markers[0])
    CREATE_USER_3D_MARKER -176.188 -2047.59 10.5 14 (markers[1])
    CREATE_USER_3D_MARKER -173.974 -2061.84 6.4 14 (markers[2])
    CREATE_USER_3D_MARKER -173.974 -2063.14 6.4 14 (markers[3])
    CREATE_PICKUP 1277 3 -182.421 -2052.7 5.4 (pickup)
    RETURN

    DeleteMarkersAndPickup2:
    REMOVE_USER_3D_MARKER markers[2]
    REMOVE_USER_3D_MARKER markers[3]
    DeleteMarkersAndPickup1:
    REMOVE_USER_3D_MARKER markers[0]
    REMOVE_USER_3D_MARKER markers[1]
    REMOVE_PICKUP pickup
    RETURN

    DeleteBlips:
    REMOVE_BLIP blip1
    REMOVE_BLIP blip2
    RETURN

    CreateBlips:
    ADD_SHORT_RANGE_SPRITE_BLIP_FOR_CONTACT_POINT -182.421 -2052.7 5.4 RADAR_SPRITE_SAVEHOUSE (blip1)
    CHANGE_BLIP_DISPLAY blip1 2
    ADD_SHORT_RANGE_SPRITE_BLIP_FOR_CONTACT_POINT -236.346 -1964.81 31.53 RADAR_SPRITE_SAVEHOUSE (blip2)
    CHANGE_BLIP_DISPLAY blip2 2
    RETURN

    FadeIn:
    DO_FADE 100 0
    WAIT 120
    RETURN

    FadeOut:
    RESTORE_CAMERA_JUMPCUT
    WAIT 50
    DO_FADE 500 1
    RETURN
}
SCRIPT_END

{
    LVAR_INT car_generator // In
    LVAR_INT var_a store_result

    DisableCarGeneratorFromBeingSaved:
    IF NOT car_generator = -1
        READ_MEMORY 0x6F32AA 1 0 var_a
        CALL_FUNCTION_RETURN 0x479D60 1 1 car_generator store_result
        IF (var_a >= 0x30)
            store_result += 0x22
            WRITE_MEMORY store_result 1 0xFFFF 0
        ELSE
            store_result += 0x1C
            WRITE_MEMORY store_result 1 0xFF 0                
        ENDIF
    ENDIF
    CLEO_RETURN 0
}