Вопросы по 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
 
Последнее редактирование:
  • Нравится
  • Клоун
  • Эм
Реакции: EnScryptior, minxty, RatnikSrb и 41 других
Нажмите для раскрытия...
SurnikSur

SurnikSur

Активный
283
40
возможно ли как-то удалить конкретную модель транспорта в зоне стрима?
 
eqzzz

eqzzz

Известный
125
21
playerCOLOR = sampGetPlayerColor(playerID)

Почему функция string.format('%x', playerCOLOR) выдает 8 значиный код, вместо 6 значеного?
 
qdIbp

qdIbp

Автор темы
Проверенный
1,438
1,199
eqzzZ написал(а):
2868903935 как использовать такие цвета в sampAddChatMessage и другие? Как установить текст над головой какого-то игрока?
Нажмите для раскрытия...
Lua: 
do
    local bit = require 'bit'
    local function join_argb(a, r, g, b)
        local argb = b  -- b
        argb = bit.bor(argb, bit.lshift(g, 8))  -- g
        argb = bit.bor(argb, bit.lshift(r, 16)) -- r
        argb = bit.bor(argb, bit.lshift(a, 24)) -- a
        return argb
    end
    local function explode_argb(argb)
        local a = bit.band(bit.rshift(argb, 24), 0xFF)
        local r = bit.band(bit.rshift(argb, 16), 0xFF)
        local g = bit.band(bit.rshift(argb, 8), 0xFF)
        local b = bit.band(argb, 0xFF)
        return a, r, g, b
    end
    local function ARGBtoRGB(color) return bit.band(color, 0xFFFFFF) end
    function ColorAccentsAdapter(color)
        local a, r, g, b = explode_argb(color)
        local ret = {a = a, r = r, g = g, b = b}
        function ret:apply_alpha(alpha)
            self.a = alpha
            return self
        end

        function ret:as_u32() return join_argb(self.a, self.b, self.g, self.r) end
        function ret:as_vec4() return imgui.ImVec4(self.r / 255, self.g / 255, self.b / 255, self.a / 255) end
        function ret:as_argb() return join_argb(self.a, self.r, self.g, self.b) end
        function ret:as_rgba() return join_argb(self.r, self.g, self.b, self.a) end

        function ret:as_chat() return string.format("%06X", ARGBtoRGB(join_argb(self.a, self.r, self.g, self.b))) end
        return ret
    end
end
sampAddChatMessage('text', ColorAccentsAdapter(2868903935--[[ЦВЕТ]]):as_chat())

Lua: 
raknet = require("lib.samp.raknet")
local id, text = -1 , ''

function main()
    sampRegisterChatCommand('text',
    function(arg)
        id,text = arg:match('(%d+) (.+)')
        if id ~= -1 and text ~= '' and text ~= nil then         
            local bs = raknetNewBitStream()
            raknetBitStreamWriteInt16(bs,id) --id
            raknetBitStreamWriteInt32(bs,-1)
            raknetBitStreamWriteFloat(bs,15)
            raknetBitStreamWriteInt32(bs,5000) -- 5000 мс
            raknetBitStreamWriteInt8(bs, #text)
            raknetBitStreamWriteString(bs,text)
            raknetEmulRpcReceiveBitStream(raknet.RPC.CHATBUBBLE,bs)
            raknetDeleteBitStream(bs) else sampAddChatMessage('Где то что то не дописано',-1)
        end
    end)
    while true do wait(0)
    end
end
 
eqzzz

eqzzz

Известный
125
21
qdIbp написал(а):
Lua: 
do
    local bit = require 'bit'
    local function join_argb(a, r, g, b)
        local argb = b  -- b
        argb = bit.bor(argb, bit.lshift(g, 8))  -- g
        argb = bit.bor(argb, bit.lshift(r, 16)) -- r
        argb = bit.bor(argb, bit.lshift(a, 24)) -- a
        return argb
    end
    local function explode_argb(argb)
        local a = bit.band(bit.rshift(argb, 24), 0xFF)
        local r = bit.band(bit.rshift(argb, 16), 0xFF)
        local g = bit.band(bit.rshift(argb, 8), 0xFF)
        local b = bit.band(argb, 0xFF)
        return a, r, g, b
    end
    local function ARGBtoRGB(color) return bit.band(color, 0xFFFFFF) end
    function ColorAccentsAdapter(color)
        local a, r, g, b = explode_argb(color)
        local ret = {a = a, r = r, g = g, b = b}
        function ret:apply_alpha(alpha)
            self.a = alpha
            return self
        end

        function ret:as_u32() return join_argb(self.a, self.b, self.g, self.r) end
        function ret:as_vec4() return imgui.ImVec4(self.r / 255, self.g / 255, self.b / 255, self.a / 255) end
        function ret:as_argb() return join_argb(self.a, self.r, self.g, self.b) end
        function ret:as_rgba() return join_argb(self.r, self.g, self.b, self.a) end

        function ret:as_chat() return string.format("%06X", ARGBtoRGB(join_argb(self.a, self.r, self.g, self.b))) end
        return ret
    end
end
sampAddChatMessage('text', ColorAccentsAdapter(2868903935--[[ЦВЕТ]]):as_chat())

Lua: 
raknet = require("lib.samp.raknet")
local id, text = -1 , ''

function main()
    sampRegisterChatCommand('text',
    function(arg)
        id,text = arg:match('(%d+) (.+)')
        if id ~= -1 and text ~= '' and text ~= nil then       
            local bs = raknetNewBitStream()
            raknetBitStreamWriteInt16(bs,id) --id
            raknetBitStreamWriteInt32(bs,-1)
            raknetBitStreamWriteFloat(bs,15)
            raknetBitStreamWriteInt32(bs,5000) -- 5000 мс
            raknetBitStreamWriteInt8(bs, #text)
            raknetBitStreamWriteString(bs,text)
            raknetEmulRpcReceiveBitStream(raknet.RPC.CHATBUBBLE,bs)
            raknetDeleteBitStream(bs) else sampAddChatMessage('Где то что то не дописано',-1)
        end
    end)
    while true do wait(0)
    end
end
Нажмите для раскрытия...
цвет черным пишет в 1 ответе
 
qdIbp

qdIbp

Автор темы
Проверенный
1,438
1,199
eqzzZ написал(а):
playerCOLOR = sampGetPlayerColor(playerID)

Почему функция string.format('%x', playerCOLOR) выдает 8 значиный код, вместо 6 значеного?
Нажмите для раскрытия...
Lua: 
do
    local bit = require 'bit'
    local function join_argb(a, r, g, b)
        local argb = b  -- b
        argb = bit.bor(argb, bit.lshift(g, 8))  -- g
        argb = bit.bor(argb, bit.lshift(r, 16)) -- r
        argb = bit.bor(argb, bit.lshift(a, 24)) -- a
        return argb
    end
    local function explode_argb(argb)
        local a = bit.band(bit.rshift(argb, 24), 0xFF)
        local r = bit.band(bit.rshift(argb, 16), 0xFF)
        local g = bit.band(bit.rshift(argb, 8), 0xFF)
        local b = bit.band(argb, 0xFF)
        return a, r, g, b
    end
    local function ARGBtoRGB(color) return bit.band(color, 0xFFFFFF) end
    function ColorAccentsAdapter(color)
        local a, r, g, b = explode_argb(color)
        local ret = {a = a, r = r, g = g, b = b}
        function ret:apply_alpha(alpha)
            self.a = alpha
            return self
        end

        function ret:as_u32() return join_argb(self.a, self.b, self.g, self.r) end
        function ret:as_vec4() return imgui.ImVec4(self.r / 255, self.g / 255, self.b / 255, self.a / 255) end
        function ret:as_argb() return join_argb(self.a, self.r, self.g, self.b) end
        function ret:as_rgba() return join_argb(self.r, self.g, self.b, self.a) end

        function ret:as_chat() return string.format("%06X", ARGBtoRGB(join_argb(self.a, self.r, self.g, self.b))) end
        return ret
    end
end
function main()
    playerCOLOR = sampGetPlayerColor(playerID)
    print('0x'..ColorAccentsAdapter(playerCOLOR):as_chat())
    sampAddChatMessage('text', '0x'..ColorAccentsAdapter(playerCOLOR):as_chat())
    while true do wait(0)
    end
end

eqzzZ написал(а):
цвет черным пишет в 1 ответе
Нажмите для раскрытия...
Lua: 
do
    local bit = require 'bit'
    local function join_argb(a, r, g, b)
        local argb = b  -- b
        argb = bit.bor(argb, bit.lshift(g, 8))  -- g
        argb = bit.bor(argb, bit.lshift(r, 16)) -- r
        argb = bit.bor(argb, bit.lshift(a, 24)) -- a
        return argb
    end
    local function explode_argb(argb)
        local a = bit.band(bit.rshift(argb, 24), 0xFF)
        local r = bit.band(bit.rshift(argb, 16), 0xFF)
        local g = bit.band(bit.rshift(argb, 8), 0xFF)
        local b = bit.band(argb, 0xFF)
        return a, r, g, b
    end
    local function ARGBtoRGB(color) return bit.band(color, 0xFFFFFF) end
    function ColorAccentsAdapter(color)
        local a, r, g, b = explode_argb(color)
        local ret = {a = a, r = r, g = g, b = b}
        function ret:apply_alpha(alpha)
            self.a = alpha
            return self
        end

        function ret:as_u32() return join_argb(self.a, self.b, self.g, self.r) end
        function ret:as_vec4() return imgui.ImVec4(self.r / 255, self.g / 255, self.b / 255, self.a / 255) end
        function ret:as_argb() return join_argb(self.a, self.r, self.g, self.b) end
        function ret:as_rgba() return join_argb(self.r, self.g, self.b, self.a) end

        function ret:as_chat() return string.format("%06X", ARGBtoRGB(join_argb(self.a, self.r, self.g, self.b))) end
        return ret
    end
end
sampAddChatMessage('text', '0x'..ColorAccentsAdapter(2868903935--[[ЦВЕТ]]):as_chat())
 
hauntedpeek

hauntedpeek

Известный
505
105
Lua: 
etStructFloatElement(data, 18, 'NaN', false)
setStructFloatElement(data, 22, 'NaN', false)
setStructFloatElement(data, 26, 'NaN', false)
что значит параметр NaN?
 
L

Lolikas

Участник
31
0
Войдите или зарегистрируйтесь для ответа.

Similar threads

  1. AnWu
    • Закреплено
    Информация Ответы на часто задаваемые вопросы [FAQ]
      • Нравится
      • Влюблен
    Ответы
    26
    Просмотры
    22K
    Lua
    вайега52
    вайега52
  2. Smeruxa
    Вопросы по Lua скриптингу
      • Клоун
    Ответы
    1
    Просмотры
    455
    Общение
    chromiusj
    chromiusj
  3. W
    • Решено
    Не работает у меня downloadUrlToFile
    Ответы
    6
    Просмотры
    2K
    Вопросы
    wintreist
    W
  4. Frapsy
    • Опрос
    Исходник Полноценный исходник фракционного(МО) скрипта ARP
      • Нравится
    Ответы
    74
    Просмотры
    42K
    Lua
    Frapsy
    Frapsy
  5. Taisheika
    • Вопрос
    Вопросы по Lua скриптингу
    Ответы
    2
    Просмотры
    1K
    Помощь
    Vintik
    Vintik
Сверху Снизу