AutoPIN source

{$CLEO}

0662: "AutoPIN"
thread "AutoPIN"
wait 1000

0AB1: call_scm_func @chatmsg 0

5@ = 0
31@ = 1
0AC8: 7@ = allocate_memory_size 260
0AC8: 8@ = allocate_memory_size 260

while true
wait 0
    if 0C5D: samp textdraw 2172 is_exists
    then

        0AF4: 7@ = read_string_from_ini_file "cleo\autopin.ini" section "Server" key "Name"
        0B2B: samp 6@ = get_player_id_by_actor_handle $PLAYER_ACTOR
        0B36: samp 6@ = get_player_nickname 6@

        if
        0C14: strcmp string1 7@ string2 6@
        then
            0AF0: 8@ = get_int_from_ini_file "cleo\autopin.ini" section "Server" key "PIN"
            while 8@ > 0
                0B14: 2@ = 8@ MOD 10
                5@ *= 10
                0058: 5@ += 2@
                8@ /= 10
            end

            while 5@ > 0
                0B14: 2@ = 5@ MOD 10
                10@ = 2166
                if 2@ == 0
                then
                    0BCA: samp send_click_textdraw 2176
                else
                    0058: 10@ += 2@
                    0BCA: samp send_click_textdraw 10@
                end
                5@ /= 10
            end
        end
        0BCA: samp send_click_textdraw 112
        free 7@
        free 8@
    end
wait  500
end

:chatmsg
0AA2: 0@ = load_library "samp.dll" // IF and SET
0085: 1@ = 0@ // (int)
1@ += 2203876
0A8D: 3@ = read_memory 1@ size 4 virtual_protect 1
0085: 2@ = 0@ // (int)
2@ += 409616
chatmsg "{848383}AutoPIN by {000000}- {ad0011}Make" -1
0AB2: ret 0