Lua [Radmir CRMP] Бот на танцевальную школу

[FakeSince]

Версия SA-MP

1. 0.3.7-R3

Ку, писал этот скрипт года полтора назад, щас вспомнил о нём и решил сюда залить
Для работы скрипта вам нужен moonloader, и его обход, думаю это сами найдёте
Активация: Автоматическая
Видео обзор:

​

 

[XRLM]

а какой смысл закрывать код, если скрипт легко декомпилируется? или ты думаешь что ты один такой гений, который смог разобрать пакеты радмира?)

 

[FakeSince]

а какой смысл закрывать код, если скрипт легко декомпилируется? или ты думаешь что ты один такой гений, который смог разобрать пакеты радмира?)

просто захотелось, вай нот

 

[Fasz fiatal]

а какой смысл закрывать код, если скрипт легко декомпилируется? или ты думаешь что ты один такой гений, который смог разобрать пакеты радмира?)

просто там мега гипер супер-пупер приватный код и компиляция чисто чтобы не стырили

 

[deleted-user-543704]

Вас так парит закрытие кода? Так идите и пишите такого же бота с открытым кодом - кто не дает?

 

[XRLM]

Вас так парит закрытие кода? Так идите и пишите такого же бота с открытым кодом - кто не дает?

написал. похвалишь?

function main()
    while not isSampAvailable() do
        wait(0)
    end

    sampAddChatMessage("{8548f0}DanceSchool bot by FakeSince", -1)
    sampAddChatMessage("{8548f0}blast.hk/members/442544/", -1)
end

function onReceivePacket(arg_2_0, arg_2_1)
    if arg_2_0 == 215 then
        local var_2_0 = raknetBitStreamReadInt16(arg_2_1)
        local var_2_1 = raknetBitStreamReadInt32(arg_2_1)
        local var_2_2 = raknetBitStreamReadInt8(arg_2_1)
        local var_2_3 = raknetBitStreamReadInt8(arg_2_1)
        local var_2_4 = raknetBitStreamReadInt32(arg_2_1)

        if var_2_4 > 0 and var_2_4 < 5000 then
            bitstreamtext = raknetBitStreamReadString(arg_2_1, var_2_4)
        else
            bitstreamtext = nil
        end

        if bitstreamtext then
            if bitstreamtext:match("interface.*DanceTrack.*.showButton.*[0].*") then
                sendKey(87)
            end

            if bitstreamtext:match("interface.*DanceTrack.*.showButton.*[1].*") then
                sendKey(65)
            end

            if bitstreamtext:match("interface.*DanceTrack.*.showButton.*[2].*") then
                sendKey(83)
            end

            if bitstreamtext:match("interface.*DanceTrack.*.showButton.*[3].*") then
                sendKey(68)
            end

            if bitstreamtext:match("interface.*DanceTrack.*.showButton.*[4].*") then
                sendKey(16)
            end

            if bitstreamtext:match("interface.*DanceTrack.*.showButton.*[5].*") then
                sendKey(32)
            end

            if bitstreamtext:match("interface.*DanceTrack.*.showButton.*[6].*") then
                sendKey(17)
            end
        end
    end
end

function sendKey(arg_3_0)
    bs = raknetNewBitStream()

    raknetBitStreamWriteInt8(bs, 215)
    raknetBitStreamWriteInt16(bs, 2)
    raknetBitStreamWriteInt32(bs, 0)
    raknetBitStreamWriteInt32(bs, #"OnPlayerClientSideKey")
    raknetBitStreamWriteString(bs, "OnPlayerClientSideKey")
    raknetBitStreamWriteInt32(bs, 2)
    raknetBitStreamWriteInt8(bs, 100)
    raknetBitStreamWriteInt32(bs, arg_3_0)
    raknetSendBitStream(bs)
    raknetDeleteBitStream(bs)
end

 

[deleted-user-543704]

написал. похвалишь?

function main()
    while not isSampAvailable() do
        wait(0)
    end

    sampAddChatMessage("{8548f0}DanceSchool bot by FakeSince", -1)
    sampAddChatMessage("{8548f0}blast.hk/members/442544/", -1)
end

function onReceivePacket(arg_2_0, arg_2_1)
    if arg_2_0 == 215 then
        local var_2_0 = raknetBitStreamReadInt16(arg_2_1)
        local var_2_1 = raknetBitStreamReadInt32(arg_2_1)
        local var_2_2 = raknetBitStreamReadInt8(arg_2_1)
        local var_2_3 = raknetBitStreamReadInt8(arg_2_1)
        local var_2_4 = raknetBitStreamReadInt32(arg_2_1)

        if var_2_4 > 0 and var_2_4 < 5000 then
            bitstreamtext = raknetBitStreamReadString(arg_2_1, var_2_4)
        else
            bitstreamtext = nil
        end

        if bitstreamtext then
            if bitstreamtext:match("interface.*DanceTrack.*.showButton.*[0].*") then
                sendKey(87)
            end

            if bitstreamtext:match("interface.*DanceTrack.*.showButton.*[1].*") then
                sendKey(65)
            end

            if bitstreamtext:match("interface.*DanceTrack.*.showButton.*[2].*") then
                sendKey(83)
            end

            if bitstreamtext:match("interface.*DanceTrack.*.showButton.*[3].*") then
                sendKey(68)
            end

            if bitstreamtext:match("interface.*DanceTrack.*.showButton.*[4].*") then
                sendKey(16)
            end

            if bitstreamtext:match("interface.*DanceTrack.*.showButton.*[5].*") then
                sendKey(32)
            end

            if bitstreamtext:match("interface.*DanceTrack.*.showButton.*[6].*") then
                sendKey(17)
            end
        end
    end
end

function sendKey(arg_3_0)
    bs = raknetNewBitStream()

    raknetBitStreamWriteInt8(bs, 215)
    raknetBitStreamWriteInt16(bs, 2)
    raknetBitStreamWriteInt32(bs, 0)
    raknetBitStreamWriteInt32(bs, #"OnPlayerClientSideKey")
    raknetBitStreamWriteString(bs, "OnPlayerClientSideKey")
    raknetBitStreamWriteInt32(bs, 2)
    raknetBitStreamWriteInt8(bs, 100)
    raknetBitStreamWriteInt32(bs, arg_3_0)
    raknetSendBitStream(bs)
    raknetDeleteBitStream(bs)
end

Покрасовался декпомпилом? Молодец, возьми на полочке пирожок

 

[XRLM]

Покрасовался декпомпилом?

сори, но красоваться тут нечем.

вапщето я сам писал

тебя так парит то, как я называю переменные или что?

так иди и пиши себе другие переменные

 

[deleted-user-543704]

сори, но красоваться тут нечем.

вапщето я сам писал

тебя так парит то, как я называю переменные или что?

так иди и пиши себе другие переменные

Да как скажешь) Вот только человек залил полезный скрипт который сэкономит людям время, а вот закрывать код или нет это уже его дело