ищу автокликер на мышку для лесоруба на родине

BalticWolf

Новичок
Автор темы
26
2
да, lua. Когда перс подходит к дереву, появляется надпись (на скрине) и нужно кликать мышкой пока не заполнится круг. Было бы идеально если скрипт кликал сам, а потом останавливался, а у админов что бы было видно что левая клавиша мыши нажимается

12.48.24.890.jpg
 

CastelloFAM

Иуда
245
82
да, lua. Когда перс подходит к дереву, появляется надпись (на скрине) и нужно кликать мышкой пока не заполнится круг. Было бы идеально если скрипт кликал сам, а потом останавливался, а у админов что бы было видно что левая клавиша мыши нажимается

Посмотреть вложение 273223
нада еще?
 

2elnwndrer.

Известный
60
19
да, lua. Когда перс подходит к дереву, появляется надпись (на скрине) и нужно кликать мышкой пока не заполнится круг. Было бы идеально если скрипт кликал сам, а потом останавливался, а у админов что бы было видно что левая клавиша мыши нажимается

Посмотреть вложение 273223
попробуй это

автокликер лкм:
-- by Cosmo with <3
function main()
    repeat wait(0) until isSampAvailable()

    local state = false
    addEventHandler("onReceivePacket", function (id, bs)
        if id == 220 then
            raknetBitStreamIgnoreBits(bs, 8)
            if raknetBitStreamReadInt8(bs) == 17 then
                raknetBitStreamIgnoreBits(bs, 32)
                local length = raknetBitStreamReadInt16(bs)
                local encoded = raknetBitStreamReadInt8(bs)
                local cmd = (encoded ~= 0) and raknetBitStreamDecodeString(bs, length + encoded) or raknetBitStreamReadString(bs, length)
                local view = string.match(cmd, "^window.executeEvent%('event%.setActiveView', [`']%[[\"%s]?(.-)[\"%s]?%][`']%);$")
                if view ~= nil then
                    state = (view == "Clicker")
                end
            end
        end
    end)

    while true do
        local textdraw = sampTextdrawGetString(2069)
        if string.match(textdraw, "%[ ~p~%u+~w~ %]") then
            setGameKeyState(21, 255) -- ALT
            setGameKeyState(9, 255) -- H
            wait(0)
            setGameKeyState(21, 0)
            setGameKeyState(9, 0)
        end

        if state then
            local cmd = "clickMinigame"
            local bs = raknetNewBitStream()
            raknetBitStreamWriteInt8(bs, 220)
            raknetBitStreamWriteInt8(bs, 18)
            raknetBitStreamWriteInt16(bs, #cmd)
            raknetBitStreamWriteString(bs, cmd)
            raknetBitStreamWriteInt32(bs, 0)
            raknetSendBitStream(bs)
            raknetDeleteBitStream(bs)
        end
        wait(0)
    end
end
 

CastelloFAM

Иуда
245
82
попробуй это

автокликер лкм:
-- by Cosmo with <3
function main()
    repeat wait(0) until isSampAvailable()

    local state = false
    addEventHandler("onReceivePacket", function (id, bs)
        if id == 220 then
            raknetBitStreamIgnoreBits(bs, 8)
            if raknetBitStreamReadInt8(bs) == 17 then
                raknetBitStreamIgnoreBits(bs, 32)
                local length = raknetBitStreamReadInt16(bs)
                local encoded = raknetBitStreamReadInt8(bs)
                local cmd = (encoded ~= 0) and raknetBitStreamDecodeString(bs, length + encoded) or raknetBitStreamReadString(bs, length)
                local view = string.match(cmd, "^window.executeEvent%('event%.setActiveView', [`']%[[\"%s]?(.-)[\"%s]?%][`']%);$")
                if view ~= nil then
                    state = (view == "Clicker")
                end
            end
        end
    end)

    while true do
        local textdraw = sampTextdrawGetString(2069)
        if string.match(textdraw, "%[ ~p~%u+~w~ %]") then
            setGameKeyState(21, 255) -- ALT
            setGameKeyState(9, 255) -- H
            wait(0)
            setGameKeyState(21, 0)
            setGameKeyState(9, 0)
        end

        if state then
            local cmd = "clickMinigame"
            local bs = raknetNewBitStream()
            raknetBitStreamWriteInt8(bs, 220)
            raknetBitStreamWriteInt8(bs, 18)
            raknetBitStreamWriteInt16(bs, #cmd)
            raknetBitStreamWriteString(bs, cmd)
            raknetBitStreamWriteInt32(bs, 0)
            raknetSendBitStream(bs)
            raknetDeleteBitStream(bs)
        end
        wait(0)
    end
end
Это не будет работать