Вопросы по 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.

— Как получить транспорт, в котором сидит игрок?

Спойлер

local veh = storeCarCharIsInNoSave(PLAYER_PED)

— Как получить свой id или id другого игрока?

Спойлер

local _, id = sampGetPlayerIdByCharHandle(PLAYER_PED) -- получить свой ид
local _, id = sampGetPlayerIdByCharHandle(ped) -- получить ид другого игрока. ped - это хендл персонажа

— Как проверить, что строка содержит какой-то текст?

Спойлер

if string.find(str, 'текст', 1, true) then
-- строка str содержит "текст"
end

— Как эмулировать нажатие игровой клавиши?

Спойлер

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 другого игрока, в которого целюсь я?

Спойлер

local valid, ped = getCharPlayerIsTargeting(PLAYER_HANDLE) -- получить хендл персонажа, в которого целится игрок
if valid and doesCharExist(ped) then -- если цель есть и персонаж существует
  local result, id = sampGetPlayerIdByCharHandle(ped) -- получить samp-ид игрока по хендлу персонажа
  if result then -- проверить, прошло ли получение ида успешно
    -- здесь любые действия с полученным идом игрока
  end
end

— Как зарегистрировать команду чата SAMP?

Спойлер

-- До бесконечного цикла/задержки
sampRegisterChatCommand("mycommand", function (param)
     -- param будет содержать весь текст введенный после команды, чтобы разделить его на аргументы используйте string.match()
    sampAddChatMessage("MyCMD", -1)
end)

— Крашит игру при вызове sampSendChat. Как это исправить?

Спойлер

Это происходит из-за бага в SAMPFUNCS, когда производится попытка отправки пакета определенными функциями изнутри события исходящих RPC и пакетов. Исправления для этого бага нет, но есть способ не провоцировать его. Вызов sampSendChat изнутри обработчика исходящих RPC/пакетов нужно обернуть в скриптовый поток с нулевой задержкой:

function onSendRpc(id)
  -- крашит:
  -- sampSendChat('Send RPC: ' .. id)

  -- норм:
  lua_thread.create(function()
    wait(0)
    sampSendChat('Send RPC: ' .. id)
  end)
end

 

[imring]

new,php

мб new.php?

playerid = sampGetPlayerIdByCharHandle(target)

sampGetPlayerIdByCharHandle выводит результат (result) и ид (playerid)

name = sampGetPlayerNickname(playerid)
playerid = sampGetPlayerIdByCharHandle(target)

поменяй местами

 

[mrdiimax]

мб new.php?

sampGetPlayerIdByCharHandle выводит результат (result) и ид (playerid)

поменяй местами

Исправил, у меня косяк с запросом, не профит

 

[imring]

Исправил, у меня косяк с запросом, не профит

а че там не так?

 

[mrdiimax]

а че там не так?

не отправляется

 

[Oreshka23]

Как работать с mySQL через Lua?

 

[#Northn]

Как работать с mySQL через Lua?

С помощью отдельной библиотеки
Библиотеки^{(https://blast.hk/threads/16031/)}

 

[ШPEK]

как отправить запрос в вк апи

 

[egor230]

Подскажите, пожалуйста, как правильно сделать цикл repeat, что не получается...

Repeat вызывает функцию, которая последовательно возвращает координаты.

[

script_author("Egor")

script_name("readcodinat")

require "lib.moonloader"


function codinat() --

printStringNow('~g~play', 1500)-- вывод текста

local str = 0 -- счетчик строк

local a = {} -- массив

for i in pairs (a) do a [i] = nil end -- очистить массив

num = num +1 -- номер читаемой строки

local cod = "moonloader/codinat.txt"-- имя файла

local file = io.open(cod, "r+") -- открыть файл для чтении

if file ~= nil -- если файл не пуст

then

for i in io.lines(cod) do

 str = str + 1

 st = str

 end -- посчитать кол-во строк в файле

end

if st >= num -- строк больше и равно номеру читаемой строки

then local n = 0

else

x = nil

y = nil

z = nil

return x,y,z

for lin in io.lines(cod) do n = n+1

 if n == num

 then line = lin 

  break;

  end

 file:close()

end

end

for i in string.gmatch(line, "[^%s]+") do table.insert(a,i) -- записать числа по отдельности в массив

end

x = a[1]

y = a[2]

z = a[3]

return x,y,z

end

function createcar()

printStringNow('~g~go car me', 2000)-- вывод текста

 m = 415 -- id модели машины

requestModel(m)

 while not isModelAvailable(m) do wait(0) end -- ждать пока отпустим кнопку

 posX, posY, posZ = getCharCoordinates(playerPed) -- координаты cj           

 posY = posY + 10               

 mycar = createCar(m, posX, posY, posZ) -- создать машину от 10 м от cj

 setCarCruiseSpeed(mycar, 10.0) -- 00AD: set_car 36@ max_speed_to 10.0

end


function main()

while true do

wait(0)

num = 0

if wasKeyPressed(VK_P) -- клавиша P

then while isKeyDown(VK_P) do wait(0) end -- ждать пока отпустим кнопку

createcar()

repeat

wait(0)

x,y,z = codinat()

carGotoCoordinates(mycar, x, y, z) -- 00A7: car 99@ drive_to 252@ 253@ 254@

while not locateCar3d(mycar, x, y, z, 0.0, 0.0, 0.0, 0) -- -- 01AF: car 74@ sphere 0 in_sphere 143@ 150@ 157@ radius 0.2 0.2 1.0

do wait(0) end

until x == nil

 while not isKeyDown(VK_P) do  -- ждать пока отпустим кнопку

  wait(0) end

  while isKeyDown(VK_P) do wait(0) end -- ждать пока отпустим кнопку

 end

 end

 end

 

[imring]

как отправить запрос в вк апи

gleb-kosteiko/lvk^{(https://github.com/gleb-kosteiko/lvk)}

 

[asocial demon]

не работает, в moonloader.log куча строк такого содержания "(error) id.lua: E:\GTA San Andreas\moonloader\lib\samp\events\core.lua:106: attempt to index local 'item' (a function value)" samp.lua стоит

local sampev = require 'lib.samp.events'
require 'lib.moonloader'

function main()
  sampRegisterChatCommand("anticop", cop)
  wait(-1)
end

function sampev.onApplyPlayerAnimation(l, b, d, f, j, a, e, o)
  anim = not anim
  if anim then
    return false
  end
end

function sampev.onClearPlayerAnimation(a)
  anim2 = not anim2
  if anim2 then
    return false
  end
end

function sampev.onRemovePlayerFromVehicle()
  anti = not anti
  if anti then
   return false
  end
end

function sampev.onTogglePlayerControllable(a)
  play = not play
  if play then
    return false
  end
end

function sampev.onAttachObjectToPlayer(a)
  player = not player
  if player then
    return false
  end
end

function cop()
  enabled = not enabled
  if enabled then
    sampAddChatMessage("activated", -1)
    anim = true
    anim2 = true
    anti = true
    play = true
    player = true
  else
    sampAddChatMessage("deactivated", -1)
    anim = false
    anim2 = false
    anti = false
    play = false
    player = false
  end
end

 

[IZDATXXX]

Что значит vector3d в rpc, например SETPLAYERPOS, понятно, что это x, y, z, но что это? int8, int16, int32, float?

В lua типы данных выбираются автоматически с помощью ключа local. Но int8 - целое в один байт, int16 - целое в 2 байта, int32 - целое в 4 байта, float - вещественное в 4 байта.

Как менять стиль кнопок в Имгуи? А также цвет окна.

Добавить после подключения библиотеки:

local style = imgui.GetStyle()
local colors = style.Colors
local clr = imgui.Col
local ImVec4 = imgui.ImVec4

Вызвать следующую функцию лишь один раз:

function context()
    imgui.SwitchContext()
    colors[clr.Button]                 = ImVec4(0.26, 0.59, 0.98, 0.40)
    colors[clr.ButtonHovered]          = ImVec4(0.26, 0.59, 0.98, 1.00)
    colors[clr.ButtonActive]           = ImVec4(0.06, 0.53, 0.98, 1.00)
    colors[clr.TitleBg]                = ImVec4(0.04, 0.04, 0.04, 1.00)
    colors[clr.TitleBgActive]          = ImVec4(0.16, 0.29, 0.48, 1.00)
    colors[clr.TitleBgCollapsed]       = ImVec4(0.00, 0.00, 0.00, 0.51)
    colors[clr.CloseButton]            = ImVec4(0.41, 0.41, 0.41, 0.50)
    colors[clr.CloseButtonHovered]     = ImVec4(0.98, 0.39, 0.36, 1.00)
    colors[clr.CloseButtonActive]      = ImVec4(0.98, 0.39, 0.36, 1.00)
    colors[clr.TextSelectedBg]         = ImVec4(0.26, 0.59, 0.98, 0.35)
    colors[clr.Text]                   = ImVec4(1.00, 1.00, 1.00, 1.00)
    colors[clr.FrameBg]                = ImVec4(0.16, 0.29, 0.48, 0.54)
    colors[clr.FrameBgHovered]         = ImVec4(0.26, 0.59, 0.98, 0.40)
    colors[clr.FrameBgActive]          = ImVec4(0.26, 0.59, 0.98, 0.67)
end

перед цикличным блоком с:

imgui.Process = ..

 

[TheDed]

Как можно сделать АФК или фейк-АФК?

 

[ШPEK]

Как можно сделать АФК или фейк-АФК?

function ev.onSendPlayerSync() return false end

 

[TheDed]

function ev.onSendPlayerSync() return false end

Можно подробнее? В гугле по "ev.onSendPlayerSync()" выдаёт только эту тему.

 

[mrdiimax]

local lanes = require("lanes").configure()

playerid = sampGetPlayerIdByCharHandle(result, playerid)
name = sampGetPlayerNickname(playerid)


function async_http_request(method, url, args, resolve, reject)
    if not _G["lanes.async_http"] then
        local linda = lanes.linda()
        local lane_gen = lanes.gen("*", {package = {path = package.path, cpath = package.cpath}}, function()
            local requests = require("requests")
            while true do
                local key, val = linda:receive(50 / 1000, "request")
                if key == "request" then
                    local ok, result = pcall(requests.request, val.method, val.url, val.args)
                    if ok then
                        result.json, result.xml = nil, nil
                        linda:send("response", result)
                    else linda:send("error", result) end
                end
            end
        end)
        _G["lanes.async_http"] = {lane = lane_gen(), linda = linda}
    end
    local lanes_http = _G["lanes.async_http"]
    lanes_http.linda:send("request", {method = method, url = url, args = args})
    lua_thread.create(function(linda)
        while true do
            local key, val = linda:receive(0, "response", "error")
            if key == "response" then return resolve(val)
            elseif key == "error" then return reject(val) end
            wait(0)
        end
    end, lanes_http.linda)
end

async_http_request("POST", "https://silence-project.ru/new.php", {params = {name = "..name.."}}, function(response) print(response.text) end, function(err) print(err) end)

[ML] (error) kek.lua: opcode '0B2B' call caused an unhandled exception
stack traceback:
[C]: in function 'sampGetPlayerIdByCharHandle'
C:\×èñòàÿ ÃÒÀ\moonloader\kek.lua:3: in main chunk
[ML] (error) kek.lua: Script died due to an error. (0FD2610C)
??