Вопросы по Lua скриптингу

Общая тема для вопросов по разработке скриптов на языке программирования Lua, в частности под MoonLoader.
  • Задавая вопрос, убедитесь, что его нет в списке частых вопросов и что на него ещё не отвечали (воспользуйтесь поиском).
  • Поищите ответ в теме посвященной разработке Lua скриптов в MoonLoader
  • Отвечая, убедитесь, что ваш ответ корректен.
  • Старайтесь как можно точнее выразить мысль, а если проблема связана с кодом, то обязательно прикрепите его к сообщению, используя блок [code=lua]здесь мог бы быть ваш код[/code].
  • Если вопрос связан с MoonLoader-ом первым делом желательно поискать решение на wiki.

Частые вопросы

Как научиться писать скрипты? С чего начать?
Информация - Гайд - Всё о Lua скриптинге для MoonLoader(https://blast.hk/threads/22707/)
Как вывести текст на русском? Вместо русского текста у меня какие-то каракули.
Изменить кодировку файла скрипта на Windows-1251. В Atom: комбинация клавиш Ctrl+Shift+U, в Notepad++: меню Кодировки -> Кодировки -> Кириллица -> Windows-1251.
Как получить транспорт, в котором сидит игрок?
Lua:
local veh = storeCarCharIsInNoSave(PLAYER_PED)
Как получить свой id или id другого игрока?
Lua:
local _, id = sampGetPlayerIdByCharHandle(PLAYER_PED) -- получить свой ид
local _, id = sampGetPlayerIdByCharHandle(ped) -- получить ид другого игрока. ped - это хендл персонажа
Как проверить, что строка содержит какой-то текст?
Lua:
if string.find(str, 'текст', 1, true) then
-- строка str содержит "текст"
end
Как эмулировать нажатие игровой клавиши?
Lua:
local game_keys = require 'game.keys' -- где-нибудь в начале скрипта вне функции main

setGameKeyState(game_keys.player.FIREWEAPON, -1) -- будет сэмулировано нажатие клавиши атаки
Все иды клавиш находятся в файле moonloader/lib/game/keys.lua.
Подробнее о функции setGameKeyState здесь: lua - setgamekeystate | BlastHack — DEV_WIKI(https://www.blast.hk/wiki/lua:setgamekeystate)
Как получить id другого игрока, в которого целюсь я?
Lua:
local valid, ped = getCharPlayerIsTargeting(PLAYER_HANDLE) -- получить хендл персонажа, в которого целится игрок
if valid and doesCharExist(ped) then -- если цель есть и персонаж существует
  local result, id = sampGetPlayerIdByCharHandle(ped) -- получить samp-ид игрока по хендлу персонажа
  if result then -- проверить, прошло ли получение ида успешно
    -- здесь любые действия с полученным идом игрока
  end
end
Как зарегистрировать команду чата SAMP?
Lua:
-- До бесконечного цикла/задержки
sampRegisterChatCommand("mycommand", function (param)
     -- param будет содержать весь текст введенный после команды, чтобы разделить его на аргументы используйте string.match()
    sampAddChatMessage("MyCMD", -1)
end)
Крашит игру при вызове sampSendChat. Как это исправить?
Это происходит из-за бага в SAMPFUNCS, когда производится попытка отправки пакета определенными функциями изнутри события исходящих RPC и пакетов. Исправления для этого бага нет, но есть способ не провоцировать его. Вызов sampSendChat изнутри обработчика исходящих RPC/пакетов нужно обернуть в скриптовый поток с нулевой задержкой:
Lua:
function onSendRpc(id)
  -- крашит:
  -- sampSendChat('Send RPC: ' .. id)

  -- норм:
  lua_thread.create(function()
    wait(0)
    sampSendChat('Send RPC: ' .. id)
  end)
end
 
Последнее редактирование:

AugustTN

Известный
1,363
471
Как сделать так чтобы при вводе команды бот тпнулся на координаты, далее если он видит текст в чате то тп на следующие координаты (2 штуки координат), далее высветится ещё один текст и он тпается на координаты и на первоначальную позицию и так по кругу?
в цикле
 

Sadow

Известный
1,427
592
Lua:
require 'lib.moonloader'
local sampev = require 'lib.samp.events'
local BitStreamIO = require 'lib.samp.events.bitstream_io'
local imgui = require 'imgui'
local encoding = require 'encoding'
encoding.default = 'CP1251'
u8 = encoding.UTF8
local main_window_state = imgui.ImBool(false)
local sw, sh = getScreenResolution()
local statusBot = false
local statusTpBot = false
local sb1 = false
local sb2 = false
local collisia = false
function apply_custom_style()
    imgui.SwitchContext()
    local style  = imgui.GetStyle()
    local colors = style.Colors
    local clr    = imgui.Col
    local ImVec4 = imgui.ImVec4
    local ImVec2 = imgui.ImVec2
    style.WindowPadding       = ImVec2(10, 10)
    style.WindowRounding      = 8
    style.ChildWindowRounding = 0
    style.FramePadding        = ImVec2(5, 4)
    style.FrameRounding       = 16
    style.TouchExtraPadding   = ImVec2(0, 0)
    style.IndentSpacing       = 21
    style.ScrollbarSize       = 10
    style.ScrollbarRounding   = 0
    style.GrabMinSize         = 20
    style.GrabRounding        = 16
    style.WindowTitleAlign = imgui.ImVec2(0.5, 0.5)
    style.ButtonTextAlign     = ImVec2(1, 1)
    colors[clr.Text]                 = ImVec4(1.00, 1.00, 1.00, 1.00)
    colors[clr.TextDisabled]         = ImVec4(0.73, 0.75, 0.74, 1.00)
    colors[clr.WindowBg]             = ImVec4(0.00, 0.00, 0.00, 0.94)
    colors[clr.ChildWindowBg]        = ImVec4(0.00, 0.00, 0.00, 0.00)
    colors[clr.PopupBg]              = ImVec4(0.00, 0.00, 0.00, 0.94)
    colors[clr.Border]               = ImVec4(0.00, 0.00, 0.00, 0.50)
    colors[clr.BorderShadow]         = ImVec4(0.00, 0.00, 0.00, 0.00)
    colors[clr.FrameBg]              = ImVec4(0.10, 0.10, 0.10, 0.54)
    colors[clr.FrameBgHovered]       = ImVec4(0.10, 0.10, 0.10, 0.54)
    colors[clr.FrameBgActive]        = ImVec4(0.10, 0.10, 0.10, 0.54)
    colors[clr.TitleBg]              = ImVec4(0.10, 0.10, 0.10, 0.54)
    colors[clr.TitleBgActive]        = ImVec4(0.00, 0.00, 0.00, 1.00)
    colors[clr.TitleBgCollapsed]     = ImVec4(0.00, 0.00, 0.00, 0.67)
    colors[clr.MenuBarBg]            = ImVec4(0.10, 0.10, 0.10, 0.54)
    colors[clr.ScrollbarBg]          = ImVec4(0.10, 0.10, 0.10, 0.54)
    colors[clr.ScrollbarGrab]        = ImVec4(0.36, 0.36, 0.36, 0.54)
    colors[clr.ScrollbarGrabHovered] = ImVec4(0.27, 0.27, 0.27, 1.00)
    colors[clr.ScrollbarGrabActive]  = ImVec4(0.51, 0.51, 0.51, 1.00)
    colors[clr.ComboBg]              = ImVec4(0.20, 0.20, 0.20, 0.99)
    colors[clr.CheckMark]            = ImVec4(1.00, 1.00, 1.00, 1.00)
    colors[clr.SliderGrab]           = ImVec4(0.27, 0.27, 0.27, 0.54)
    colors[clr.SliderGrabActive]     = ImVec4(0.10, 0.10, 0.10, 0.54)
    colors[clr.Button]               = ImVec4(0.12, 0.12, 0.12, 0.54)
    colors[clr.ButtonHovered]        = ImVec4(0.10, 0.10, 0.10, 0.54)
    colors[clr.ButtonActive]         = ImVec4(0.20, 0.20, 0.20, 0.50)
    colors[clr.Header]               = ImVec4(0.10, 0.10, 0.10, 0.54)
    colors[clr.HeaderHovered]        = ImVec4(0.84, 0.66, 0.66, 0.65)
    colors[clr.HeaderActive]         = ImVec4(0.10, 0.10, 0.10, 0.54)
    colors[clr.Separator]            = ImVec4(0.10, 0.10, 0.10, 0.54)
    colors[clr.SeparatorHovered]     = ImVec4(0.10, 0.10, 0.10, 0.54)
    colors[clr.SeparatorActive]      = ImVec4(0.10, 0.10, 0.10, 0.54)
    colors[clr.ResizeGrip]           = ImVec4(0.10, 0.10, 0.10, 0.54)
    colors[clr.ResizeGripHovered]    = ImVec4(0.10, 0.10, 0.10, 0.54)
    colors[clr.ResizeGripActive]     = ImVec4(0.10, 0.10, 0.10, 0.54)
    colors[clr.CloseButton]          = ImVec4(0.10, 0.10, 0.10, 0.54)
    colors[clr.CloseButtonHovered]   = ImVec4(0.10, 0.10, 0.10, 0.54)
    colors[clr.CloseButtonActive]    = ImVec4(0.10, 0.10, 0.10, 0.54)
    colors[clr.PlotLines]            = ImVec4(0.62, 0.62, 0.62, 1.00)
    colors[clr.PlotLinesHovered]     = ImVec4(0.10, 0.10, 0.10, 0.54)
    colors[clr.PlotHistogram]        = ImVec4(0.10, 0.10, 0.10, 0.54)
    colors[clr.PlotHistogramHovered] = ImVec4(0.10, 0.10, 0.10, 0.54)
    colors[clr.TextSelectedBg]       = ImVec4(0.26, 0.59, 0.98, 0.35)
    colors[clr.ModalWindowDarkening] = ImVec4(0.80, 0.80, 0.80, 0.35)
end
apply_custom_style()
function BeginToPoint(x, y, z, radius, move_code, isSprint)
    repeat
        local posX, posY, posZ = GetCoordinates()
        SetAngle(x, y, z)
        MovePlayer(move_code, isSprint)
        local dist = getDistanceBetweenCoords3d(x, y, z, posX, posY, z)
        wait(0)
    until not statusBot or dist < radius
end
function MovePlayer(move_code, isSprint)
    setGameKeyState(1, move_code)
if isSprint then setGameKeyState(16, -255) end
end
function SetAngle(x, y, z)
    local posX, posY, posZ = GetCoordinates()
    local pX = x - posX
    local pY = y - posY
    local zAngle = getHeadingFromVector2d(pX, pY)
    if isCharInAnyCar(playerPed) then
        local car = storeCarCharIsInNoSave(playerPed)
        setCarHeading(car, zAngle)
    else
        setCharHeading(playerPed, zAngle)
    end
    restoreCameraJumpcut()
end
function GetCoordinates()
    if isCharInAnyCar(playerPed) then
        local car = storeCarCharIsInNoSave(playerPed)
        return getCarCoordinates(car)
    else
        return getCharCoordinates(playerPed)
    end
end
function sampev.onPlayerStreamIn()
    if collisia then 
    return false
    end
end
function sampev.onVehicleStreamIn()
    if collisia then
        return false
    end
end
function main()
    if not isSampLoaded() or not isSampfuncsLoaded() then return end
    while not isSampAvailable() do wait(100) end

    sampAddChatMessage('{5A90CE}[Лесопильный Бот] {FFFFFF}Скрипт успешно загружен!', -1)
    sampAddChatMessage('{5A90CE}[Лесопильный Бот] {FFFFFF}Активация: /lbot', -1)
    sampAddChatMessage('{5A90CE}[Лесопильный Бот] {FFFFFF}Автор: Sadow', -1)
    sampRegisterChatCommand('lbot', cmd_lbot)
    local saveX = {}
    local saveY = {}
    local saveZ = {}
    imgui.Process = false
    while true do
        wait(0)
        if main_window_state.v == false then
            imgui.Process = false
        end
        if collisia == true then
            local chars = getAllChars()
            for i = 1, #chars do
            local res, id = sampGetPlayerIdByCharHandle(chars[i])
              if res and chars[i] ~= 1 then
              hidePlayer(id)
            end
                local cars = getAllVehicles()
                for i = 1, #cars do
                local res, id = sampGetVehicleIdByCarHandle(cars[i])
                if res and cars[i] ~= 1 then
                hideCar(id)
            end
        end
            end
        end
    end
end
function hidePlayer(id)
    local w = BitStreamIO.bs_write
    local bs = raknetNewBitStream()
    w.int16(bs, id)
    raknetEmulRpcReceiveBitStream(163, bs)
end
function hideCar(id)
    local w = BitStreamIO.bs_write
    local bs = raknetNewBitStream()
    w.int16(bs, id)
    raknetEmulRpcReceiveBitStream(165, bs)
end
function cmd_lbot(arg)
    main_window_state.v = not main_window_state.v
    imgui.Process = main_window_state.v
end
function sampev.onShowTextDraw(id, data)
    if statusBot or statusTpBot then
        if data.text == 'X' then
            sampSendClickTextdraw(id)
        end
    end
end
function imgui.Ques(text)
    imgui.SameLine()
    imgui.TextDisabled("(?)")
    if imgui.IsItemHovered() then
        imgui.BeginTooltip()
        imgui.TextUnformatted(u8(text))
        imgui.EndTooltip()
    end
end
function imgui.OnDrawFrame()
    imgui.SetNextWindowPos(imgui.ImVec2(sw / 2, sh / 2), imgui.Cond.FirstUseEver, imgui.ImVec2(0.5, 0.5))
    imgui.SetNextWindowSize(imgui.ImVec2(555, 180), imgui.Cond.FirstUseEver)
    imgui.Begin(u8'Бот Лесоруб', main_window_state, imgui.WindowFlags.NoResize + imgui.WindowFlags.NoCollapse)
    if statusBot == false then
        if imgui.Button(u8'Включить') then
            if statusTpBot == false then
            sampAddChatMessage('{5A90CE}[Лесопильный Бот] {FFFFFF}Бот начал работу пешком!', -1)
            statusBot = true
            else
            sampAddChatMessage('{5A90CE}[Лесопильный Бот] {FFFFFF}Для начала выключите бота телепортом!', -1)
            end
        end
    else
        if imgui.Button(u8'Выключить') then
            sampAddChatMessage('{5A90CE}[Лесопильный Бот] {FFFFFF}Бот был успешно выключен!', -1)
            statusBot = false
        end
    end
    imgui.SameLine(30)
    imgui.Ques('Чтобы бот начал свою работу необходимо\nНадеть форму и желательно включить коллизию')
    if statusTpBot == false then
        if imgui.Button(u8'Включить тп бота') then
            if statusBot == false then
            sampAddChatMessage('{5A90CE}[Лесопильный Бот] {FFFFFF}Бот начал работу телепортом', -1)
            statusTpBot = true
            else
            sampAddChatMessage('{5A90CE}[Лесопильный Бот] {FFFFFF}Для начала выключите бота пешком!', -1)
            end
        end
    else
        if imgui.Button(u8'Выключить тп бота') then
            sampAddChatMessage('{5A90CE}[Лесопильный Бот] {FFFFFF}Бот был успешно выключен!', -1)
            statusTpBot = false
        end
    end
    imgui.SameLine(30)
    imgui.Ques('Чтобы бот начал свою работу необходимо\nНадеть форму и желательно включить коллизию')
    if collisia == false then
        if imgui.Button(u8'Включить коллизию') then
            sampAddChatMessage('{5A90CE}[Лесопильный Бот] {FFFFFF}Коллизия успешно включена!', -1)
            collisia = true
        end
    else
        if imgui.Button(u8'Выключить коллизию') then
            sampAddChatMessage('{5A90CE}[Лесопильный Бот] {FFFFFF}Коллизия была выключена!', -1)
            collisia = false
        end
    end
    imgui.SameLine(30)
    imgui.Ques('Убирает визуально:\nИгроков\nМашины\nСерверные объекты')
    imgui.Text(u8'Автор: Sadow')
    imgui.End()
end
function sampev.onServerMessage(color, text)
    if statusBot or statusTpBot then
        if text:match('{7396ff}%[Лесопилка%]{FFFFFF} Отнесите дерево на склад и продолжайте работу') then
            sb1 = true
        end
        if text:match('{7396ff}%[Лесопилка%]{FFFFFF} Вы заработали - (.+)') then
            sb1 = false
            sb2 = true
        end
    end
end
lua_thread.create(function()
    while true do
        wait(0)
        if isPlayerPlaying(playerHandle) and statusBot == true then
            wait(1)
            BeginToPoint(-502.23892211914, -175.7674407959, 76.726554870605, 1.000000, -255, true)
            wait(1500)
            BeginToPoint(-507.58218383789, -201.15493774414, 78.40625, 1.000000, -255, true)
            wait(1)
        end
    end
end)
lua_thread.create(function()
    while true do
        wait(0)
        if isPlayerPlaying(playerHandle) and statusTpBot == true then
            setCharCoordinates(PLAYER_PED, -502.23892211914, -175.7674407959, 76.726554870605)
            --wait(1700)
            if sb1 == true then
            setCharCoordinates(PLAYER_PED, -502.87048339844, -186.88681030273, 77.707412719727)
            wait(500)
            setCharCoordinates(PLAYER_PED, -507.58218383789, -201.15493774414, 78.40625)
            end
            --wait(1500)
            if sb2 == true then
            setCharCoordinates(PLAYER_PED, -502.87048339844, -186.88681030273, 77.707412719727)
            wait(500)
            setCharCoordinates(PLAYER_PED, -502.23892211914, -175.7674407959, 76.726554870605)
            end
        end
    end
end)
Работает не так как я хочу. Наверное в коде будет понятнее что я хочу сделать, а не на словах
 

Kaktyc007

Известный
166
11
Lua:
local sampev = require('lib.samp.events')

function sampev.onServerMessage(color, text)
    if text:find('%[id: (%d+)%] Имя: (.+) {00AB06}Проверил: (.+){FFFFFF}') then
        local id, Name, CheckedBy = text:match('%[id: (%d+)%] Имя: (.+) {00AB06}Проверил: (.+){FFFFFF}')
        print(id, Name, CheckedBy)
    end
end
Что-то не работает, получается такая шляпа:

Код:
0Nick_Name {00AB06}Проверил: Nick_Name{FFFFFF}
[id: 1] Имя: Nick_Name {00AB06}Проверил: Nick_Name{FFFFFF}
[id: 3] Имя: Nick_Name
[id: 4] Имя: Nick_Name {00AB06}Проверил: Nick_Name{FFFFFF}
[id: 5] Имя: Nick_Name {00AB06}Проверил: Nick_Name{FFFFFF}
[id: 6] Имя: Nick_Name
[id: 7] Имя: Nick_Name
[id: 8] Имя: Nick_Name
[id: 9] Имя: Nick_Name
[id: 10] Имя: Nick_Name
[id: 11] Имя: Nick_Name {00AB06}Проверил: Nick_Name{FFFFFF}

Если выводить только id, то будет одна цифра.
Как я понимаю проблема в том, что sampGetDialogText() собирает данные в одну строку, а тут обработка тоже для одной строки
 

copypaste_scripter

Известный
1,342
263
[ML] (error) shitkod.lua: opcode '05D1' call caused an unhandled exception
stack traceback:
[C]: in function 'taskCarDriveToCoord'
C:\GAMES\ARIZONA GAMES\bin\Arizona\moonloader\shitkod.lua:160: in function <C:\GAMES\ARIZONA GAMES\bin\Arizona\moonloader\shitkod.lua:155>
[ML] (error) shitkod.lua: Script died due to an error. (A28C8684)

160 линию подсветил

Lua:
    sampRegisterChatCommand("dermo", function()
        local _, myid = sampGetPlayerIdByCharHandle(playerPed)
        local car = storeCarCharIsInNoSave(PLAYER_PED)
        local result, id = sampGetVehicleIdByCarHandle(car)
        --myplayerx, myplayery, myplayerz = getCharCoordinates(PLAYER_PED)
        taskCarDriveToCoord(myid, car, 1662, -976, 37, 10, 2, 0, 4)
    end)
 

XRLM

Против ветра рождённый
Модератор
1,570
1,154
[ML] (error) shitkod.lua: opcode '05D1' call caused an unhandled exception
stack traceback:
[C]: in function 'taskCarDriveToCoord'
C:\GAMES\ARIZONA GAMES\bin\Arizona\moonloader\shitkod.lua:160: in function <C:\GAMES\ARIZONA GAMES\bin\Arizona\moonloader\shitkod.lua:155>
[ML] (error) shitkod.lua: Script died due to an error. (A28C8684)

160 линию подсветил

Lua:
    sampRegisterChatCommand("dermo", function()
        local _, myid = sampGetPlayerIdByCharHandle(playerPed)
        local car = storeCarCharIsInNoSave(PLAYER_PED)
        local result, id = sampGetVehicleIdByCarHandle(car)
        --myplayerx, myplayery, myplayerz = getCharCoordinates(PLAYER_PED)
        taskCarDriveToCoord(myid, car, 1662, -976, 37, 10, 2, 0, 4)
    end)
вместо myId поставь PLAYER_PED

пример использования чекай https://wiki.blast.hk/moonloader/lua/taskcardrivetocoord

Lua:
    sampRegisterChatCommand("dermo", function()
        taskCarDriveToCoord(PLAYER_PED, storeCarCharIsInNoSave(PLAYER_PED), 1662, -976, 37, 10, 2, nil, 4)
    end)
 
  • Нравится
Реакции: copypaste_scripter

copypaste_scripter

Известный
1,342
263
@xarlamov не знаешь почему после приезда на месте тупо стоит и не дает двигтся?

едит: да я тупой и не прочитал до конца... ответ: в документации
 
  • Нравится
Реакции: XRLM

Sadow

Известный
1,427
592
Lua:
require 'lib.moonloader'
local sampev = require 'lib.samp.events'
local BitStreamIO = require 'lib.samp.events.bitstream_io'
local imgui = require 'imgui'
local encoding = require 'encoding'
encoding.default = 'CP1251'
u8 = encoding.UTF8
local main_window_state = imgui.ImBool(false)
local sw, sh = getScreenResolution()
local statusBot = false
local statusTpBot = false
local sb1 = false
local sb2 = false
local collisia = false
function apply_custom_style()
    imgui.SwitchContext()
    local style  = imgui.GetStyle()
    local colors = style.Colors
    local clr    = imgui.Col
    local ImVec4 = imgui.ImVec4
    local ImVec2 = imgui.ImVec2
    style.WindowPadding       = ImVec2(10, 10)
    style.WindowRounding      = 8
    style.ChildWindowRounding = 0
    style.FramePadding        = ImVec2(5, 4)
    style.FrameRounding       = 16
    style.TouchExtraPadding   = ImVec2(0, 0)
    style.IndentSpacing       = 21
    style.ScrollbarSize       = 10
    style.ScrollbarRounding   = 0
    style.GrabMinSize         = 20
    style.GrabRounding        = 16
    style.WindowTitleAlign = imgui.ImVec2(0.5, 0.5)
    style.ButtonTextAlign     = ImVec2(1, 1)
    colors[clr.Text]                 = ImVec4(1.00, 1.00, 1.00, 1.00)
    colors[clr.TextDisabled]         = ImVec4(0.73, 0.75, 0.74, 1.00)
    colors[clr.WindowBg]             = ImVec4(0.00, 0.00, 0.00, 0.94)
    colors[clr.ChildWindowBg]        = ImVec4(0.00, 0.00, 0.00, 0.00)
    colors[clr.PopupBg]              = ImVec4(0.00, 0.00, 0.00, 0.94)
    colors[clr.Border]               = ImVec4(0.00, 0.00, 0.00, 0.50)
    colors[clr.BorderShadow]         = ImVec4(0.00, 0.00, 0.00, 0.00)
    colors[clr.FrameBg]              = ImVec4(0.10, 0.10, 0.10, 0.54)
    colors[clr.FrameBgHovered]       = ImVec4(0.10, 0.10, 0.10, 0.54)
    colors[clr.FrameBgActive]        = ImVec4(0.10, 0.10, 0.10, 0.54)
    colors[clr.TitleBg]              = ImVec4(0.10, 0.10, 0.10, 0.54)
    colors[clr.TitleBgActive]        = ImVec4(0.00, 0.00, 0.00, 1.00)
    colors[clr.TitleBgCollapsed]     = ImVec4(0.00, 0.00, 0.00, 0.67)
    colors[clr.MenuBarBg]            = ImVec4(0.10, 0.10, 0.10, 0.54)
    colors[clr.ScrollbarBg]          = ImVec4(0.10, 0.10, 0.10, 0.54)
    colors[clr.ScrollbarGrab]        = ImVec4(0.36, 0.36, 0.36, 0.54)
    colors[clr.ScrollbarGrabHovered] = ImVec4(0.27, 0.27, 0.27, 1.00)
    colors[clr.ScrollbarGrabActive]  = ImVec4(0.51, 0.51, 0.51, 1.00)
    colors[clr.ComboBg]              = ImVec4(0.20, 0.20, 0.20, 0.99)
    colors[clr.CheckMark]            = ImVec4(1.00, 1.00, 1.00, 1.00)
    colors[clr.SliderGrab]           = ImVec4(0.27, 0.27, 0.27, 0.54)
    colors[clr.SliderGrabActive]     = ImVec4(0.10, 0.10, 0.10, 0.54)
    colors[clr.Button]               = ImVec4(0.12, 0.12, 0.12, 0.54)
    colors[clr.ButtonHovered]        = ImVec4(0.10, 0.10, 0.10, 0.54)
    colors[clr.ButtonActive]         = ImVec4(0.20, 0.20, 0.20, 0.50)
    colors[clr.Header]               = ImVec4(0.10, 0.10, 0.10, 0.54)
    colors[clr.HeaderHovered]        = ImVec4(0.84, 0.66, 0.66, 0.65)
    colors[clr.HeaderActive]         = ImVec4(0.10, 0.10, 0.10, 0.54)
    colors[clr.Separator]            = ImVec4(0.10, 0.10, 0.10, 0.54)
    colors[clr.SeparatorHovered]     = ImVec4(0.10, 0.10, 0.10, 0.54)
    colors[clr.SeparatorActive]      = ImVec4(0.10, 0.10, 0.10, 0.54)
    colors[clr.ResizeGrip]           = ImVec4(0.10, 0.10, 0.10, 0.54)
    colors[clr.ResizeGripHovered]    = ImVec4(0.10, 0.10, 0.10, 0.54)
    colors[clr.ResizeGripActive]     = ImVec4(0.10, 0.10, 0.10, 0.54)
    colors[clr.CloseButton]          = ImVec4(0.10, 0.10, 0.10, 0.54)
    colors[clr.CloseButtonHovered]   = ImVec4(0.10, 0.10, 0.10, 0.54)
    colors[clr.CloseButtonActive]    = ImVec4(0.10, 0.10, 0.10, 0.54)
    colors[clr.PlotLines]            = ImVec4(0.62, 0.62, 0.62, 1.00)
    colors[clr.PlotLinesHovered]     = ImVec4(0.10, 0.10, 0.10, 0.54)
    colors[clr.PlotHistogram]        = ImVec4(0.10, 0.10, 0.10, 0.54)
    colors[clr.PlotHistogramHovered] = ImVec4(0.10, 0.10, 0.10, 0.54)
    colors[clr.TextSelectedBg]       = ImVec4(0.26, 0.59, 0.98, 0.35)
    colors[clr.ModalWindowDarkening] = ImVec4(0.80, 0.80, 0.80, 0.35)
end
apply_custom_style()
function BeginToPoint(x, y, z, radius, move_code, isSprint)
    repeat
        local posX, posY, posZ = GetCoordinates()
        SetAngle(x, y, z)
        MovePlayer(move_code, isSprint)
        local dist = getDistanceBetweenCoords3d(x, y, z, posX, posY, z)
        wait(0)
    until not statusBot or dist < radius
end
function MovePlayer(move_code, isSprint)
    setGameKeyState(1, move_code)
if isSprint then setGameKeyState(16, -255) end
end
function SetAngle(x, y, z)
    local posX, posY, posZ = GetCoordinates()
    local pX = x - posX
    local pY = y - posY
    local zAngle = getHeadingFromVector2d(pX, pY)
    if isCharInAnyCar(playerPed) then
        local car = storeCarCharIsInNoSave(playerPed)
        setCarHeading(car, zAngle)
    else
        setCharHeading(playerPed, zAngle)
    end
    restoreCameraJumpcut()
end
function GetCoordinates()
    if isCharInAnyCar(playerPed) then
        local car = storeCarCharIsInNoSave(playerPed)
        return getCarCoordinates(car)
    else
        return getCharCoordinates(playerPed)
    end
end
function sampev.onPlayerStreamIn()
    if collisia then
    return false
    end
end
function sampev.onVehicleStreamIn()
    if collisia then
        return false
    end
end
function main()
    if not isSampLoaded() or not isSampfuncsLoaded() then return end
    while not isSampAvailable() do wait(100) end

    sampAddChatMessage('{5A90CE}[Лесопильный Бот] {FFFFFF}Скрипт успешно загружен!', -1)
    sampAddChatMessage('{5A90CE}[Лесопильный Бот] {FFFFFF}Активация: /lbot', -1)
    sampAddChatMessage('{5A90CE}[Лесопильный Бот] {FFFFFF}Автор: Sadow', -1)
    sampRegisterChatCommand('lbot', cmd_lbot)
    local saveX = {}
    local saveY = {}
    local saveZ = {}
    imgui.Process = false
    while true do
        wait(0)
        if main_window_state.v == false then
            imgui.Process = false
        end
        if collisia == true then
            local chars = getAllChars()
            for i = 1, #chars do
            local res, id = sampGetPlayerIdByCharHandle(chars[i])
              if res and chars[i] ~= 1 then
              hidePlayer(id)
            end
                local cars = getAllVehicles()
                for i = 1, #cars do
                local res, id = sampGetVehicleIdByCarHandle(cars[i])
                if res and cars[i] ~= 1 then
                hideCar(id)
            end
        end
            end
        end
    end
end
function hidePlayer(id)
    local w = BitStreamIO.bs_write
    local bs = raknetNewBitStream()
    w.int16(bs, id)
    raknetEmulRpcReceiveBitStream(163, bs)
end
function hideCar(id)
    local w = BitStreamIO.bs_write
    local bs = raknetNewBitStream()
    w.int16(bs, id)
    raknetEmulRpcReceiveBitStream(165, bs)
end
function cmd_lbot(arg)
    main_window_state.v = not main_window_state.v
    imgui.Process = main_window_state.v
end
function sampev.onShowTextDraw(id, data)
    if statusBot or statusTpBot then
        if data.text == 'X' then
            sampSendClickTextdraw(id)
        end
    end
end
function imgui.Ques(text)
    imgui.SameLine()
    imgui.TextDisabled("(?)")
    if imgui.IsItemHovered() then
        imgui.BeginTooltip()
        imgui.TextUnformatted(u8(text))
        imgui.EndTooltip()
    end
end
function imgui.OnDrawFrame()
    imgui.SetNextWindowPos(imgui.ImVec2(sw / 2, sh / 2), imgui.Cond.FirstUseEver, imgui.ImVec2(0.5, 0.5))
    imgui.SetNextWindowSize(imgui.ImVec2(555, 180), imgui.Cond.FirstUseEver)
    imgui.Begin(u8'Бот Лесоруб', main_window_state, imgui.WindowFlags.NoResize + imgui.WindowFlags.NoCollapse)
    if statusBot == false then
        if imgui.Button(u8'Включить') then
            if statusTpBot == false then
            sampAddChatMessage('{5A90CE}[Лесопильный Бот] {FFFFFF}Бот начал работу пешком!', -1)
            statusBot = true
            else
            sampAddChatMessage('{5A90CE}[Лесопильный Бот] {FFFFFF}Для начала выключите бота телепортом!', -1)
            end
        end
    else
        if imgui.Button(u8'Выключить') then
            sampAddChatMessage('{5A90CE}[Лесопильный Бот] {FFFFFF}Бот был успешно выключен!', -1)
            statusBot = false
        end
    end
    imgui.SameLine(30)
    imgui.Ques('Чтобы бот начал свою работу необходимо\nНадеть форму и желательно включить коллизию')
    if statusTpBot == false then
        if imgui.Button(u8'Включить тп бота') then
            if statusBot == false then
            sampAddChatMessage('{5A90CE}[Лесопильный Бот] {FFFFFF}Бот начал работу телепортом', -1)
            statusTpBot = true
            else
            sampAddChatMessage('{5A90CE}[Лесопильный Бот] {FFFFFF}Для начала выключите бота пешком!', -1)
            end
        end
    else
        if imgui.Button(u8'Выключить тп бота') then
            sampAddChatMessage('{5A90CE}[Лесопильный Бот] {FFFFFF}Бот был успешно выключен!', -1)
            statusTpBot = false
        end
    end
    imgui.SameLine(30)
    imgui.Ques('Чтобы бот начал свою работу необходимо\nНадеть форму и желательно включить коллизию')
    if collisia == false then
        if imgui.Button(u8'Включить коллизию') then
            sampAddChatMessage('{5A90CE}[Лесопильный Бот] {FFFFFF}Коллизия успешно включена!', -1)
            collisia = true
        end
    else
        if imgui.Button(u8'Выключить коллизию') then
            sampAddChatMessage('{5A90CE}[Лесопильный Бот] {FFFFFF}Коллизия была выключена!', -1)
            collisia = false
        end
    end
    imgui.SameLine(30)
    imgui.Ques('Убирает визуально:\nИгроков\nМашины\nСерверные объекты')
    imgui.Text(u8'Автор: Sadow')
    imgui.End()
end
function sampev.onServerMessage(color, text)
    if statusBot or statusTpBot then
        if text:match('{7396ff}%[Лесопилка%]{FFFFFF} Отнесите дерево на склад и продолжайте работу') then
            sb1 = true
        end
        if text:match('{7396ff}%[Лесопилка%]{FFFFFF} Вы заработали - (.+)') then
            sb1 = false
            sb2 = true
        end
    end
end
lua_thread.create(function()
    while true do
        wait(0)
        if isPlayerPlaying(playerHandle) and statusBot == true then
            wait(1)
            BeginToPoint(-502.23892211914, -175.7674407959, 76.726554870605, 1.000000, -255, true)
            wait(1500)
            BeginToPoint(-507.58218383789, -201.15493774414, 78.40625, 1.000000, -255, true)
            wait(1)
        end
    end
end)
lua_thread.create(function()
    while true do
        wait(0)
        if isPlayerPlaying(playerHandle) and statusTpBot == true then
            setCharCoordinates(PLAYER_PED, -502.23892211914, -175.7674407959, 76.726554870605)
            --wait(1700)
            if sb1 == true then
            setCharCoordinates(PLAYER_PED, -502.87048339844, -186.88681030273, 77.707412719727)
            wait(500)
            setCharCoordinates(PLAYER_PED, -507.58218383789, -201.15493774414, 78.40625)
            end
            --wait(1500)
            if sb2 == true then
            setCharCoordinates(PLAYER_PED, -502.87048339844, -186.88681030273, 77.707412719727)
            wait(500)
            setCharCoordinates(PLAYER_PED, -502.23892211914, -175.7674407959, 76.726554870605)
            end
        end
    end
end)
Работает не так как я хочу. Наверное в коде будет понятнее что я хочу сделать, а не на словах
Я решил проблему. Ура

Как сделать проверку какой скин сейчас у игрока использующего скрипт?
 
Последнее редактирование:
  • Вау
Реакции: XRLM

olol321

Участник
103
16
Приветствую всех, мне нужно изменить углы поворота игрока, не координаты игрока, а именно углы поворота куда он направлен(поворот камеры не нужен) опкода такого не знаю primer.jpg
и желательно чтобы можно было редактировать наклоны игрока(когда он в полете допустим на машине флай каром)

почему ошибка
типа код:
local float angle = ""



function SetZAngle()
    result, handle = sampGetCharHandleBySampPlayerId(id)
    setCharHeading(handle, angle)
end


ошибка:
[18:53:35.895875] (error) Кам: opcode '0173' call caused an unhandled exception
stack traceback:
[C]: in function 'setCharHeading'
D:\GTA bandana\moonloader\AngleCam.lua:22: in function <D:\GTA bandana\moonloader\AngleCam.lua:20>
[18:53:35.896872] (error) Кам: Script died due to an error. (14141BCC)
 
Последнее редактирование:

Kaktyc007

Известный
166
11
вместо myId поставь PLAYER_PED

пример использования чекай https://wiki.blast.hk/moonloader/lua/taskcardrivetocoord

Lua:
    sampRegisterChatCommand("dermo", function()
        taskCarDriveToCoord(PLAYER_PED, storeCarCharIsInNoSave(PLAYER_PED), 1662, -976, 37, 10, 2, nil, 4)
    end)
Пробовал так, в данном случае перед каждой новой строкой выводится информация
Lua:
local vkeys = require 'vkeys'
local sampev = require "lib.samp.events"

function main()
    while not isSampAvailable() do wait(0) end
    sampRegisterChatCommand("as", cmd)
    while true do
        wait(0)
    end
end

function sampev.onServerMessage(clr, text)
    if isKeyJustPressed(vkeys.VK_NUMPAD3) then
        sampAddChatMessage(sampGetDialogText(), -1)
        if sampGetDialogText():find('%[id: (%d+)%] Имя: (.+) {00AB06}Проверил: (.+){FFFFFF}') then
            local id, Name, CheckedBy = sampGetDialogText():match('%[id: (%d+)%] Имя: (.+) {00AB06}Проверил: (.+){FFFFFF}')
            sampAddChatMessage(id .. Name .. CheckedBy, -1)
        end
    end
end

Если так то информация выводится по нажатию кнопки
Lua:
local vkeys = require 'vkeys'
local sampev = require "lib.samp.events"
function main()
    while not isSampAvailable() do wait(0) end
    sampRegisterChatCommand("as", cmd)
    while true do
        wait(0)
        
        if isKeyJustPressed(vkeys.VK_NUMPAD3) and sampIsDialogActive() then
            if sampGetDialogText():find('%[id: (%d+)%] Имя: (.+) {00AB06}Проверил: (.+){FFFFFF}') then
                local id, Name, CheckedBy = sampGetDialogText():match('%[id: (%d+)%] Имя: (.+) {00AB06}Проверил: (.+){FFFFFF}')
                sampAddChatMessage(id .. Name .. CheckedBy, -1)
            end
        end
    end
end

В обоих случаях информация выглядит так:

Код:
0Nick_Name {00AB06}Проверил: Nick_Name{FFFFFF}
[id: 1] Имя: Nick_Name {00AB06}Проверил: Nick_Name{FFFFFF}
[id: 3] Имя: Nick_Name
[id: 4] Имя: Nick_Name {00AB06}Проверил: Nick_Name{FFFFFF}
[id: 5] Имя: Nick_Name {00AB06}Проверил: Nick_Name{FFFFFF}
[id: 6] Имя: Nick_Name
[id: 7] Имя: Nick_Name
[id: 8] Имя: Nick_Name
[id: 9] Имя: Nick_Name
[id: 10] Имя: Nick_Name
[id: 11] Имя: Nick_Name {00AB06}Проверил: Nick_Name{FFFFFF}
 
  • Эм
Реакции: XRLM

Smeruxa

smeruxa.ru
Проверенный
1,412
757
как обозначить что переменная больше какого то числа?
Lua:
if tonumber(a) > b then

Пробовал так, в данном случае перед каждой новой строкой выводится информация
Lua:
local vkeys = require 'vkeys'
local sampev = require "lib.samp.events"

function main()
    while not isSampAvailable() do wait(0) end
    sampRegisterChatCommand("as", cmd)
    while true do
        wait(0)
    end
end

function sampev.onServerMessage(clr, text)
    if isKeyJustPressed(vkeys.VK_NUMPAD3) then
        sampAddChatMessage(sampGetDialogText(), -1)
        if sampGetDialogText():find('%[id: (%d+)%] Имя: (.+) {00AB06}Проверил: (.+){FFFFFF}') then
            local id, Name, CheckedBy = sampGetDialogText():match('%[id: (%d+)%] Имя: (.+) {00AB06}Проверил: (.+){FFFFFF}')
            sampAddChatMessage(id .. Name .. CheckedBy, -1)
        end
    end
end

Если так то информация выводится по нажатию кнопки
Lua:
local vkeys = require 'vkeys'
local sampev = require "lib.samp.events"
function main()
    while not isSampAvailable() do wait(0) end
    sampRegisterChatCommand("as", cmd)
    while true do
        wait(0)
  
        if isKeyJustPressed(vkeys.VK_NUMPAD3) and sampIsDialogActive() then
            if sampGetDialogText():find('%[id: (%d+)%] Имя: (.+) {00AB06}Проверил: (.+){FFFFFF}') then
                local id, Name, CheckedBy = sampGetDialogText():match('%[id: (%d+)%] Имя: (.+) {00AB06}Проверил: (.+){FFFFFF}')
                sampAddChatMessage(id .. Name .. CheckedBy, -1)
            end
        end
    end
end

В обоих случаях информация выглядит так:

Код:
0Nick_Name {00AB06}Проверил: Nick_Name{FFFFFF}
[id: 1] Имя: Nick_Name {00AB06}Проверил: Nick_Name{FFFFFF}
[id: 3] Имя: Nick_Name
[id: 4] Имя: Nick_Name {00AB06}Проверил: Nick_Name{FFFFFF}
[id: 5] Имя: Nick_Name {00AB06}Проверил: Nick_Name{FFFFFF}
[id: 6] Имя: Nick_Name
[id: 7] Имя: Nick_Name
[id: 8] Имя: Nick_Name
[id: 9] Имя: Nick_Name
[id: 10] Имя: Nick_Name
[id: 11] Имя: Nick_Name {00AB06}Проверил: Nick_Name{FFFFFF}
ИД не может выводиться от 1 до 11, не бывает такого, ибо если диалог остается активным то возвращается одно и тоже, а результат у тебя разный
+ цвета надо экранировать
Проверь, тот ли файл ты редактируешь.. НЕ МОЖЕТ БЫТЬ такого вывода если ты выводишь результат поиска регулярного выражения
+ нет смысла запихивать это в хук onServerMessage.. зачем?..
Lua:
if isKeyJustPressed(vkeys.VK_NUMPAD3) and sampIsDialogActive() then
    if sampGetDialogText():find('%[id: (%d+)%] Имя%: (.+) %{......%}Проверил%: (.+)%{......%}') then
        local id, Name, CheckedBy = sampGetDialogText():match('%[id: (%d+)%] Имя%: (.+) %{......%}Проверил%: (.+)%{......%}')
        sampAddChatMessage(id, -1)
    end
end

Приветствую всех, мне нужно изменить углы поворота игрока, не координаты игрока, а именно углы поворота куда он направлен(поворот камеры не нужен) опкода такого не знаюПосмотреть вложение 171912
и желательно чтобы можно было редактировать наклоны игрока(когда он в полете допустим на машине флай каром)

почему ошибка
типа код:
local float angle = ""



function SetZAngle()
    result, handle = sampGetCharHandleBySampPlayerId(id)
    setCharHeading(handle, angle)
end


ошибка:
[18:53:35.895875] (error) Кам: opcode '0173' call caused an unhandled exception
stack traceback:
[C]: in function 'setCharHeading'
D:\GTA bandana\moonloader\AngleCam.lua:22: in function <D:\GTA bandana\moonloader\AngleCam.lua:20>
[18:53:35.896872] (error) Кам: Script died due to an error. (14141BCC)
Такая тупость в коде.
Объявил тип данных в луа..
Указал что float = string
GENIUS
Кстати, result в ф-ии sampGetCharHandleBySampPlayerId тоже не просто так :)
Перед тем как что нибудь писать в коде, зайди в ютуб и открой уроки по луа
 
Последнее редактирование:

Kaktyc007

Известный
166
11
Lua:
if tonumber(a) > b then


ИД не может выводиться от 1 до 11, не бывает такого, ибо если диалог остается активным то возвращается одно и тоже, а результат у тебя разный
+ цвета надо экранировать
Проверь, тот ли файл ты редактируешь.. НЕ МОЖЕТ БЫТЬ такого вывода если ты выводишь результат поиска регулярного выражения
+ нет смысла запихивать это в хук onServerMessage.. зачем?..
Lua:
if isKeyJustPressed(vkeys.VK_NUMPAD3) and sampIsDialogActive() then
    if sampGetDialogText():find('%[id: (%d+)%] Имя%: (.+) %{......%}Проверил%: (.+)%{......%}') then
        local id, Name, CheckedBy = sampGetDialogText():match('%[id: (%d+)%] Имя%: (.+) %{......%}Проверил%: (.+)%{......%}')
        sampAddChatMessage(id, -1)
    end
end


Такая тупость в коде.
Объявил тип данных в луа..
Указал что float = string
GENIUS
Кстати, result в ф-ии sampGetCharHandleBySampPlayerId тоже не просто так :)
Перед тем как что нибудь писать в коде, зайди в ютуб и открой уроки по луа
Так выводит только один первый ID, как остальные вывести?
 

whyega52

Eblang головного мозга
Модератор
2,839
2,779
Приветствую всех, мне нужно изменить углы поворота игрока, не координаты игрока, а именно углы поворота куда он направлен(поворот камеры не нужен) опкода такого не знаюПосмотреть вложение 171912
и желательно чтобы можно было редактировать наклоны игрока(когда он в полете допустим на машине флай каром)

почему ошибка
типа код:
local float angle = ""



function SetZAngle()
    result, handle = sampGetCharHandleBySampPlayerId(id)
    setCharHeading(handle, angle)
end


ошибка:
[18:53:35.895875] (error) Кам: opcode '0173' call caused an unhandled exception
stack traceback:
[C]: in function 'setCharHeading'
D:\GTA bandana\moonloader\AngleCam.lua:22: in function <D:\GTA bandana\moonloader\AngleCam.lua:20>
[18:53:35.896872] (error) Кам: Script died due to an error. (14141BCC)
В Луа не надо указывать тип данных переменной + тебе надо флоат, а ты пишешь кавычки, которые обозначают строку
Lua:
local angle = 3.14 -- можешь поставить любое значение



function SetZAngle()
    local result, handle = sampGetCharHandleBySampPlayerId(id) -- хз откуда у тя тут переменная id
    if result then
        setCharHeading(handle, angle)
    end
end
 
Последнее редактирование:

olol321

Участник
103
16
В Луа не надо указывать тип данных переменной + тебе надо флоат, а ты пишешь кавычки, которые обозначают строку
Lua:
local angle = 3.14 -- можешь поставить любое значение



function SetZAngle()
    local result, handle = sampGetCharHandleBySampPlayerId(id) -- хз откуда у тя тут переменная id
    if result then
        setCharHeading(handle, angle)
    end
end
[22:23:42.495992] (error) Кам: opcode '0173' call caused an unhandled exception
stack traceback:
[C]: in function 'setCharHeading'
D:\GTA bandana\moonloader\AngleCam.lua:23: in function <D:\GTA bandana\moonloader\AngleCam.lua:20>
[22:23:42.496991] (error) Кам: Script died due to an error. (1514C584)


код:
function SetZAngle()
    local _, id = sampGetPlayerIdByCharHandle(PLAYER_PED)
    result, handle = sampGetCharHandleBySampPlayerId(id)
    setCharHeading(handle, angle)
end