Lua Dead Bot

[Armya]

Версия SA-MP

1. Любая

Я НЕ являюсь создателем оригинального кода, я просто переделываю его под более удобный формат.
Информацию о оригинальной и переписанной версии можно увидеть ниже:
Ссылка на тему
Автор скрипта

Здравствуйте! Недавно наткнулся на этот пост, где и нашел данный Lua скрипт! Могу сказать, что оригинальный код был рабочим, но не продуманным.
1. Скрипт активируется автоматически при входе на сервер и не имеет деактивации
2. Если посмотреть на сам код, то нельзя понять кто его сделал :)

Активация: /db

Суть скрипта - убийство ботов с одного удара. НО это работает и в обратную сторону (боты тоже смогут вас убивать с одного удара)!

Видео работы скрипта:

p.s. [Fem version] это тоже самое видео, но с добавленной музыкой на фон ​

 

[GRACHOVE]

а зачем перезаливать? просто добавил деактевацию и все.

 

[MrDorlik]

булевые переменные: придуманы в 1984 г.
так же этот гений:

 

[Hinаta]

булевые переменные: придуманы в 1984 г.
так же этот гений:
Посмотреть вложение 221325
Посмотреть вложение 221326
Посмотреть вложение 221328

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

 

[minxty]

пиздец, а не скрипт

 

[tinkeringabout]

что за скрипт на полоску за педом?

 

[minxty]

что за скрипт на полоску за педом?

Lua - Trails | Линия за персонажем

Ну што сказать, линия за персом тип как в кс Зач? шоб была Активация: /trail Требования: ImGui 1.2 Сделал привязку к костям 1.21 Добавил больше костей [/SPOILER]

www.blast.hk

 

[vegas]

пиздец, а не скрипт
Посмотреть вложение 221331

Boolean переменные это уже прошлый век

 

[Gorskin]

Boolean переменные это уже прошлый век

Реально, а че на стрингах ни кто не пишет? Ну типа...

local thong = "wearing"

function main()
    repeat wait(100) until isSampAvailable()
   
    sampRegisterChatCommand('db', function()
        if thong == "wearing" then
            thong = "removed"
            sampAddChatMessage('Ты снял(-а) стринги', 0xFFFFFF)
        else
            thong = "wearing"
            sampAddChatMessage('Ты одел(-а) стринги', 0xFFFFFF)
        end
    end)
    wait(-1)
end

function onSendPacket(id, bs)
    if id == 221 and thong == "wearing" then
        raknetBitStreamSetReadOffset(bs, 8)
        if raknetBitStreamReadInt16(bs) == 73 then
            local data = {}
            for i = 1, (raknetBitStreamGetNumberOfUnreadBits(bs)/8) do table.insert(data, raknetBitStreamReadInt8(bs)) end
            local damage_bs = raknetNewBitStream()
            raknetBitStreamWriteInt8(damage_bs, 221)
            raknetBitStreamWriteInt16(damage_bs, 73)
            for i = 1, 2 do raknetBitStreamWriteInt8(damage_bs, data[i]) end
            raknetBitStreamWriteInt8(damage_bs, 0)
            raknetBitStreamWriteInt8(damage_bs, 6)
            raknetBitStreamWriteInt8(damage_bs, 62)
            raknetBitStreamWriteInt8(damage_bs, 62)
            for i = 7, #data do raknetBitStreamWriteInt8(damage_bs, data[i]) end
            raknetSendBitStreamEx(damage_bs, 1, 7, 1)
            raknetDeleteBitStream(damage_bs)
            return false
        end
    end
end

 

[Armya]

Я в ахуе

 

[VanoKLR]

local Dmode = false

function main()
    if not isSampLoaded() or not isSampfuncsLoaded() then return end
    while not isSampAvailable() do wait(100) end
    
    sampRegisterChatCommand('db', function()
        Dmode = not Dmode
        sampAddChatMessage(dmode and "ON" or "OFF", 0xFFFFFF)
    end)
    wait(-1)
end

function onSendPacket(id, bs)
    if id == 221 and Dmode then
        raknetBitStreamSetReadOffset(bs, 8)
        if raknetBitStreamReadInt16(bs) == 73 then
            local data = {}
            for i = 1, (raknetBitStreamGetNumberOfUnreadBits(bs)/8) do table.insert(data, raknetBitStreamReadInt8(bs)) end
            local damage_bs = raknetNewBitStream()
            raknetBitStreamWriteInt8(damage_bs, 221)
            raknetBitStreamWriteInt16(damage_bs, 73)
            for i = 1, 2 do raknetBitStreamWriteInt8(damage_bs, data[i]) end
            raknetBitStreamWriteInt8(damage_bs, 0)
            raknetBitStreamWriteInt8(damage_bs, 6)
            raknetBitStreamWriteInt8(damage_bs, 62)
            raknetBitStreamWriteInt8(damage_bs, 62)
            for i = 7, #data do raknetBitStreamWriteInt8(damage_bs, data[i]) end
            raknetSendBitStreamEx(damage_bs, 1, 7, 1)
            raknetDeleteBitStream(damage_bs)
            return false
        end
    end
end

 

[Hinаta]

Dmode = not Dmode

sampAddChatMessage(dmode and ...

 

[фидарза]

1. Скрипт активируется автоматически при входе на сервер и не имеет деактивации

Активация: /db

это как?

 

[Armya]

это как?

Могу сказать, что оригинальный код был рабочим, но не продуманным.
1. Скрипт активируется автоматически при входе на сервер и не имеет деактивации
2. Если посмотреть на сам код, то нельзя понять кто его сделал :)

 

[Shadow_1206]

На телефоне тестили? (Monerloader) Просто вчера натыкался на почти такой же скрипт, но на теле не работал (https://www.blast.hk/threads/190346/)

Да, похоже работает т.к другой скрипт даже не загружался из-за того, что там присутствовали зависимости к пакетам, которых нету на monerloader(e)