CLEO Thread Chag wait 2000 chatmsg 005ea7 PointBinder 85ff00 Author Ch

{$CLEO}
Thread "Chag"
wait 2000

chatmsg "{005ea7}[PointBinder] {85ff00}Author Chag." -1
chatmsg "{005ea7}[PointBinder] {85ff00}Reload script - R + B." -1

0AF0: 1@ = get_int_from_ini_file "CLEO\INI\PointBinder.ini" section "slot1" key "Key1"
0AF4: 2@ = read_string_from_ini_file "CLEO\INI\PointBinder.ini" section "slot1" key "Command1"
0AF4: 3@ = read_string_from_ini_file "CLEO\INI\PointBinder.ini" section "slot1" key "Text1"
0AF0: 5@ = get_int_from_ini_file "CLEO\INI\PointBinder.ini" section "slot2" key "Key2"
0AF4: 6@ = read_string_from_ini_file "CLEO\INI\PointBinder.ini" section "slot2" key "Command2"
0AF4: 7@ = read_string_from_ini_file "CLEO\INI\PointBinder.ini" section "slot2" key "Text2"

cmd "pbinder" @pbinder

While True
wait 0
    if and
        0AD2: 0@ = player $PLAYER_CHAR targeted_actor //IF and SET
        key_down 1@
    then
    0B2B: samp 3@ = get_player_id_by_actor_handle 0@
    alloc 2@ 64
    alloc 4@ 64
    0AF4: 2@ = read_string_from_ini_file "CLEO\INI\PointBinder.ini" section "slot1" key "Command1"
    0AF4: 4@ = read_string_from_ini_file "CLEO\INI\PointBinder.ini" section "slot1" key "Text1"
    say "/%s %d %s" 2@ 3@ 4@
    wait 1000
    free 2@
    free 4@
    end
        if and
            0AD2: 0@ = player $PLAYER_CHAR targeted_actor //IF and SET
            key_down 5@
        then
        0B2B: samp 3@ = get_player_id_by_actor_handle 0@
        alloc 6@ 64
        alloc 7@ 64
        0AF4: 6@ = read_string_from_ini_file "CLEO\INI\PointBinder.ini" section "slot2" key "Command2"
        0AF4: 7@ = read_string_from_ini_file "CLEO\INI\PointBinder.ini" section "slot2" key "Text2"
        say "/%s %d %s" 6@ 3@ 7@
        wait 1000
        free 6@
        free 7@
        end
            if and
                key_down 66
                key_down 82
            then
            0AF0: 1@ = get_int_from_ini_file "CLEO\INI\PointBinder.ini" section "slot1" key "Key1"
            0AF4: 2@ = read_string_from_ini_file "CLEO\INI\PointBinder.ini" section "slot1" key "Command1"
            0AF4: 3@ = read_string_from_ini_file "CLEO\INI\PointBinder.ini" section "slot1" key "Text1"
            0AF0: 5@ = get_int_from_ini_file "CLEO\INI\PointBinder.ini" section "slot2" key "Key2"
            0AF4: 6@ = read_string_from_ini_file "CLEO\INI\PointBinder.ini" section "slot2" key "Command2"
            0AF4: 7@ = read_string_from_ini_file "CLEO\INI\PointBinder.ini" section "slot2" key "Text2"
            wait 1500
            chatmsg "{005ea7}[PointBinder] {85ff00}Ñêðèïò ïåðåçàãðóæåí." -1
            end
                if 
                    0B3C:  samp is_dialog_responded id 249 button 9@ list_item 10@ input_text 0
                then 
                    if 10@ == 0
                    then
                    0B3B: samp show_dialog id 250 caption "{005ea7}PointBinder" text "Ââåäèòå òåêñò äëÿ 1 ñëîòà:" button_1 "Äàëåå" button_2 "Çàêðûòü" style 1
                    alloc 12@ 128
                    end
                        if 10@ == 1
                        then
                        0B3B: samp show_dialog id 251 caption "{005ea7}PointBinder" text "Óêàæèòå êîìàíäó äëÿ 1 ñëîòà:" button_1 "Äàëåå" button_2 "Çàêðûòü" style 1
                        end
                            if 10@ == 2
                            then
                            0B3B: samp show_dialog id 252 caption "{005ea7}PointBinder" text "Óêàæèòå êíîïêó àêòèâàöèè äëÿ 1 ñëîòà:" button_1 "Äàëåå" button_2 "Çàêðûòü" style 1
                            end
                        if 10@ == 3
                        then
                        0B3B: samp show_dialog id 253 caption "{005ea7}PointBinder" text "Ââåäèòå òåêñò äëÿ 2 ñëîòà:" button_1 "Äàëåå" button_2 "Çàêðûòü" style 1
                        end
                    if 10@ == 4
                    then
                    0B3B: samp show_dialog id 254 caption "{005ea7}PointBinder" text "Óêàæèòå êîìàíäó äëÿ 2 ñëîòà:" button_1 "Äàëåå" button_2 "Çàêðûòü" style 1
                    end
                        if 10@ == 5
                        then
                        0B3B: samp show_dialog id 255 caption "{005ea7}PointBinder" text "Óêàæèòå êíîïêó àêòèâàöèè äëÿ 2 ñëîòà:" button_1 "Äàëåå" button_2 "Çàêðûòü" style 1
                        end
            if 0B3C:  samp is_dialog_responded id 250 button 11@ list_item 0 input_text 12@
            then
                if 11@ == 1
                then
                0AF5: write_string 12@ to_ini_file "CLEO\INI\PointBinder.ini" section "slot1" key "Text1"
                free 12@
                end
            end
        end                     
    end      
    
:pbinder
alloc 8@ 64
0AD3: 8@ = format "Text1%cCommand1%cKey1%cText2%cCommand2%cKey2" 0xA 0xA 0xA 0xA 0xA
0B3B: samp show_dialog id 249 caption "{005ea7}PointBinder" text 8@ button_1 "Äàëåå" button_2 "Âûõîä" style 2
free 8@
SAMP.CmdRet()