0000:
0662: printstring "Author: Thomas_Johnson"
0662: printstring "AutoLock 06.04.16"
0662: printstring "Thanks: zena3061 for idea"

while not SAMP.Available
wait 10
end
const
STATE           = 8@
end
STATE = 0
if 8AAB: "CLEO\AutoLock.ini"
then
    0AF1: write_int 0 to_ini_file "cleo\AutoLock.ini" section "Thomas_Johnson" keyé "CarID"
    0AF1: write_int 1 to_ini_file "cleo\AutoLock.ini" section "Thomas_Johnson" keyé "Method"
    0AF1: write_int 5 to_ini_file "cleo\AutoLock.ini" section "Thomas_Johnson" keyé "Delay"
    0AF5: write_string "lock" to_ini_file "cleo\AutoLock.ini" section "Thomas_Johnson" keyé "Command"
    0AF1: write_float 5 to_ini_file "cleo\AutoLock.ini" section "Thomas_Johnson" key "Distance"
    chatmsg "[AutoLock] {FFFFFF}Âàø {FF0000}AutoLock.ini {FFFFFF}áûë ñîçäàí." 0xFF0000
    chatmsg "[AutoLock] {FFFFFF}Ïîæàëóéñòà çàïèøèòå ñâîè äàííûå â ôàéë." 0xFF0000
end
newcmd "autolock" @autolock
newcmd "alreset" @statereset
while true
wait 0
    0AF0: 0@ = get_int_from_ini_file "cleo\AutoLock.ini" section "Thomas_Johnson" key "Method"    
    repeat
    wait 0
    until not 0@ == 0                        
    0B4E: samp 0@ = get_current_dialog_id
    if and
    8B4C:  samp is_dialog_active 0@
    not ischatopened
    then
        if not Actor.Driving($PLAYER_ACTOR)
        then
            0AB5: store_actor $PLAYER_ACTOR closest_vehicle_to 0@ closest_ped_to 1@
            if 056E: car 0@ defined
            then
                Actor.StorePos($PLAYER_ACTOR 1@ 2@ 3@)
                Car.StorePos(0@ 4@ 5@ 6@)
                050A: 7@ = distance_between_XYZ 1@ 2@ 3@ and_XYZ 4@ 5@ 6@
                0092: 7@ = float_to_int 7@
                0AF2: 1@ = get_float_from_ini_file "cleo\AutoLock.ini" section "Thomas_Johnson" key "Distance"
                0092: 1@ = float_to_int 1@
                if 802D: 7@ >= 1@
                then
                    0AF0: 1@ = get_int_from_ini_file "cleo\AutoLock.ini" section "Thomas_Johnson" key "CarID"
                    0AFF: samp 2@ = car_handle_by_samp_vehicle_id 1@
                    if and
                    not STATE == 1
                    003B: 0@ == 2@
                    then
                        call @carlock 0
                        0AF0: 0@ = get_int_from_ini_file "cleo\AutoLock.ini" section "Thomas_Johnson" key "Method"    
                        if or
                        0@ == 2
                        STATE == 2
                        then
                            STATE = 0
                            0AF0: 0@ = get_int_from_ini_file "cleo\AutoLock.ini" section "Thomas_Johnson" key "Delay"
                            0012: 0@ *= 1000
                            wait 0@
                        else
                            if STATE == 0
                            then
                            STATE = 1
                            end
                        end
                    end
                end
            end
        else
            if STATE == 1
            then
                0AF0: 0@ = get_int_from_ini_file "cleo\AutoLock.ini" section "Thomas_Johnson" key "CarID"
                0AFF: samp 1@ = car_handle_by_samp_vehicle_id 0@
                2@ = Actor.CurrentCar($PLAYER_ACTOR)
                if 003B: 1@ == 2@
                then
                    STATE = 2
                    call @carlock 0
                end
            end
        end
    end
end

:carlock
0AF4: 0@v = read_string_from_ini_file "cleo\AutoLock.ini" section "Thomas_Johnson" key "Command"
say "/%s" 0@v
ret 0
:statereset
STATE = 0
chatmsg "[AutoLock] {FFFFFF}Ñêðèïò òåïåðü ñíîâà ðàáîòàåò." 0xFF0000
samp.CmdRet()
:autolock
0B35: samp 0@ = get_last_command_params
if 0AD4: 1@ = scan_string 0@ forma "%d" 2@ //IF and SET
then
    0AF1: write_int 2@ to_ini_file "cleo\AutoLock.ini" section "Thomas_Johnson" keyé "CarID"
    chatmsg "[AutoLock] {FFFFFF}Íîâûé íîìåð ìàøèíû â AutoLock.ini òåïåðü {FF0000}%d{FFFFFF}." 0xFF0000 2@
    STATE = 0
else
    chatmsg "[AutoLock] {FFFFFF}/autolock [car id]." 0xFF0000
    chatmsg "[AutoLock] {FFFFFF}×òîáû åãî óçíàòü íàïèøèòå /dl, íà ìàøèíå áóäåò íàïèñàíî." 0xFF0000
end
samp.CmdRet()