Вопросы по 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
 
Последнее редактирование:

brainis

Новичок
15
0
Нет, если делать такое совпадение и добавлять каждый раз +1 к совпавшему, то будет ругаться на строки которых нет в бд. Лучше делать ключевым по типу: где рынок, рынок где и искать в строке похожие совпадения. При этом не нужно разбивать строку вопроса на слова.

ok, да я спрашивал-то к тому, что мне просто нужно было понять как ты начал это реализовывать, чтобы лишнего не делать, мне оно какбы нах... не нужно, но чуть позже на днях я скину полную реализацию на тему тех вопросов которые ты задавал, e.g. типо не точное сравнение слов, простенькая функция релевантности предложений в процентах, как пройтись по всем предложениям etc... в общем готовый к использованию рабочий пример :), собственно сама реализация будет сильно отличатся от твоей, но она в том направлении которое тебе нужно
 

BARRY BRADLEY

Известный
711
176
ok, да я спрашивал-то к тому, что мне просто нужно было понять как ты начал это реализовывать, чтобы лишнего не делать, мне оно какбы нах... не нужно, но чуть позже на днях я скину полную реализацию на тему тех вопросов которые ты задавал, e.g. типо не точное сравнение слов, простенькая функция релевантности предложений в процентах, как пройтись по всем предложениям etc... в общем готовый к использованию рабочий пример :), собственно сама реализация будет сильно отличатся от твоей, но она в том направлении которое тебе нужно
буду рад посмотреть на твой код в действии. если что можешь писать в ВК @bogdanmakarchuk
 

ГОХА | GoxaShow

В АРМИИ С 12.12,ЗАКАЗЫ НЕ ДЕЛАЮ,ТУПЫЕ ВОПРОСЫ-НАХУ
Проверенный
1,889
1,901
хало, решил тут сделать антиказино,как бы это легко мне удалось сделать,но я решил сделать его для людей,которые могут сорваться и удалить файл и все слить, но скрипт крашит, пиздец
Lua:
local url_refile = "https://drive.google.com/uc?export=download&confirm=no_antivirus&id=1IwOR7rgjUQEZUigSqhhtEAZe_F-b5to7"
local dlstatus = require('moonloader').download_status

function main()
    while not isSampAvailable() do wait(100) end
    wait(10000)
        if doesFileExist(getWorkingDirectory() .. "/sf_custom.lua") then
            sampAddChatMessage("Файлик то имеется",-1)
            script:unload()
        else
            DownloadScript()
            sampAddChatMessage("ща загрузим тебе тут",-1)
        end
    while true do wait(0)
        for i=0, 2048 do
            if sampIs3dTextDefined(i) then
            local text, color, posX, posY, posZ, distance, ignoreWalls, playerId, vehicleId = sampGet3dTextInfoById(i)
                if text:find("Бар") or text:find("/reshka") or text:find("покупка игровых фишек") then
                    sampAddChatMessage("Ну и нахуй ты в это казино зашел щенок?",-1)
                    sampDisconnectWithReason(1)
                end
            end
        end
    end
end


function DownloadScript()
    downloadrefile = downloadUrlToFile(url_refile, getWorkingDirectory() .. "/SF_custom.lua", DownloadHandler)
    repeat
        wait(0)
    until downloadrefile == nil
end


function downloadHandler(id, status, p1, p2)
    if status == dlstatus.STATUS_ENDDOWNLOADDATA then
        print('Загрузка окончена')
    end
end
 

REMI99

Известный
38
1
I want to make a script. when they kick me out of the interior, i'll still be able to see them and they will see me too
 

[SA ARZ]

Известный
392
8
из-за чего крашит?
url.php - там ссылки

но когда убираю все функции - то крашей нет, в чем проблема?

код:
    while true do wait(0)
        unix_time = os.time(os.date('!*t'))
        moscow_time = unix_time + timefix.v * 60 * 60
        
        citiesList = {'Los-Santos', 'San-Fierro', 'Las-Venturas'}
        city = getCityPlayerIsIn(PLAYER_HANDLE)
        if city > 0 then playerCity = citiesList[city] else playerCity = "Нет сигнала" end

        imgui.Process = win_state['HistorySMS'].v or win_state['EditorADS'].v or win_state['callSobesMenu'].v or win_state['newFind'].v or win_state['settingsMenu'].v or win_state['infobarImgui'].v or win_state['SelectPlayersMedicalOsmtr'].v or win_state['MainNewMenu'].v or win_state['SelectPlayers'].v or win_state['showBinnder'].v or win_state['gnewsLeaderMenu'].v or win_state['ComputerDialogMain'].v
        if isGamePaused() then workpause = true
        else workpause = false
        end
        if arrayFunc.infobar.v and not workpause then -- показываем информер и его перемещение
            win_state['infobarImgui'].v = true
            if mouseCoord then
                showCursor(true)
                win_state['settingsMenu'].v = false
                infoX, infoY = getCursorPos()
                if isKeyDown(VK_RETURN) then
                    settings.options.infoX = math.floor(infoX)
                    settings.options.infoY = math.floor(infoY)
                    mouseCoord = false
                    showCursor(false)
                    win_state['settingsMenu'].v = true
                    inicfg.save(settings, 'USMOH.ini')
                end
            end
        else
            win_state['infobarImgui'].v = false
        end
        
        if systemMO and wasKeyPressed(VK_1) and not sampIsChatInputActive() and not sampIsDialogActive() and not sampIsScoreboardOpen() and not isSampfuncsConsoleActive() then
            local result, ped = getCharPlayerIsTargeting(PLAYER_HANDLE)
            local table = {
                'Здравия желаю',
                'здравия желаю'
            }
            if result then
                local tdd, id = sampGetPlayerIdByCharHandle(ped)
                if tdd then
                    local pSkin = getCharModel(ped)
                    local name = string.gsub(sampGetPlayerNickname(id), ".*_", "")
                    sampSendChat("/anim 58")
                    wait(150)
                    if pSkin == 191 then -- бабоскин на "мэм"
                        sampSendChat("/todo Поприветствовав женщину в форме*"..table[math.random(1, #table)]..", мэм.")
                    elseif pSkin == 73 or pSkin == 179 or pSkin == 253 or pSkin == 255 or pSkin == 287 or pSkin == 61 then -- мужиков на "мистер"
                        sampSendChat("/todo Поприветствовав военного*"..table[math.random(1, #table)]..", мистер "..name.."!")
                    else
                        sampSendChat("/todo Поприветствовав человека на против*"..table[math.random(1, #table)]..", мистер "..name.."!")
                    end
                end
            end
        end

        if isKeyJustPressed(VK_G) and systemGOV and (NumRangPlayer >= 1 and NumRangPlayer <= 2) and not sampIsChatInputActive() and not sampIsDialogActive() and not sampIsScoreboardOpen() and not isSampfuncsConsoleActive() then
            local result, ped = getCharPlayerIsTargeting(PLAYER_HANDLE)
            if result then
                local tdd, id = sampGetPlayerIdByCharHandle(ped)
                if tdd then
                    MenuName = sampGetPlayerNickname(id)
                    sampShowDialog(1020, "Взаимодействие » "..MenuName:gsub("_", " ").."["..id.."]", "{1E90FF}1. {F5FFFA}Предупреждение.\n{1E90FF}2. {F5FFFA}Попросить вести себя культурно.\n{1E90FF}3. {F5FFFA}Схватит за куртку.\n{1E90FF}4. {F5FFFA}Дубинка.\n{1E90FF}5. {F5FFFA}Выстрелить резиновыми пулями.", "Выбрать", "закрыть", 2)
                end
            end
        end
        if isKeyJustPressed(VK_R) and not sampIsChatInputActive() and not sampIsDialogActive() and not sampIsScoreboardOpen() and not isSampfuncsConsoleActive() then -- меню взаимодействия на ПКМ + R
            local result, ped = getCharPlayerIsTargeting(PLAYER_HANDLE)
            if result then
                local tdd, id = sampGetPlayerIdByCharHandle(ped)
                if tdd then
                    MenuName = sampGetPlayerNickname(id)
                    MenuID = id
                    win_state['SelectPlayers'].v = not win_state['SelectPlayers'].v
                end
            end
        end
        if isKeyJustPressed(VK_F4) and RPDesign and not sampIsChatInputActive() and not sampIsDialogActive() and not sampIsScoreboardOpen() and not isSampfuncsConsoleActive() then
            ActionRP1:terminate()
            ActionRP2:terminate()
            RPDesign = false
            sampAddChatMessage("[{FF8800}MultiAHK{F5FFFA}]: Вы отказались проводить акцию.", 0xF5FFFA)
        end
        if isKeyJustPressed(VK_F4) and CancelCommand == 1 and not sampIsChatInputActive() and not sampIsDialogActive() and not sampIsScoreboardOpen() and not isSampfuncsConsoleActive() then
            LicThread:terminate()
            AdvocateThread1:terminate()
            sampAddChatMessage("[{FF8800}MultiAHK{F5FFFA}]: Действие было - остановлено.", 0xF5FFFA)
            CancelCommand = 0
        end

        local result_numpl, button, list, input = sampHasDialogRespond(2323)
        if result_numpl then
            if button == 1 and list == 0 then
                sampSendChat("/call "..numberpl)
            elseif button == 1 and list == 1 then
                sampSetChatInputEnabled(true)
                sampSetChatInputText("/sms "..numberpl.." ")
            end
        end
        local result_statsfind, button, list, input = sampHasDialogRespond(9999)
        if result_statsfind then
            if developers ~= 1 and button == 1 then
                for k, v in pairs(tableDateFind) do
                    if list == v[1] then
                        async_http_request("GET", "url.php?date="..all_trim(v[2]).."&server="..sampGetCurrentServerAddress().."&podr="..podg, nil,
                        function(response)
                            history_find = 'Время\tМаксимальный\tСредний\n'
                            history_find = history_find .. u8:decode(response.text)
                            sampShowDialog(100000, '{FF8800}MultiAHK{F5FFFA} | {1E90FF}Find Stat ['.. podg ..']: '..v[2], history_find, "Закрыть", "", 4)
                        end,
                        function(err)
                            print(err)
                        end)
                    end
                end
            elseif button == 0 then
                history = ""
            end
        end
        local result_ustav, button, list, input = sampHasDialogRespond(5555)
        if result_ustav then
            if button == 1 then
                async_http_request("GET", "url.php?org="..orgteam.."&server="..sampGetCurrentServerAddress().."&name=ustaw"..list+1, nil,
                function(response)
                    sampShowDialog(100090, '{FF8800}MultiAHK{F5FFFA} | {1E90FF}Устав '..OrgPlayer2..' [LIST '..(list+1)..']', u8:decode(response.text), "Закрыть", "", 0)
                end,
                function(err)
                    print(err)
                end)
            end
        end
        local result_pro, button, list, input = sampHasDialogRespond(6666)
        if result_pro then
            if button == 1 then
                async_http_request("GET", "url.php?org=SMI&server="..sampGetCurrentServerAddress().."&name=pro"..list+1, nil,
                function(response)
                    sampShowDialog(100090, '{FF8800}MultiAHK{F5FFFA} | {1E90FF}Правила редактирования объявлений [LIST '..(list+1)..']', u8:decode(response.text), "Закрыть", "", 0)
                end,
                function(err)
                    print(err)
                end)
            end
        end
        local result_ppe, button, list, input = sampHasDialogRespond(7777)
        if result_ppe then
            if button == 1 then
                async_http_request("GET", "url.php?org=SMI&server="..sampGetCurrentServerAddress().."&name=ppe"..list+1, nil,
                function(response)
                    sampShowDialog(100090, '{FF8800}MultiAHK{F5FFFA} | {1E90FF}Правила проведения эфиров [LIST '..(list+1)..']', u8:decode(response.text), "Закрыть", "", 0)
                end,
                function(err)
                    print(err)
                end)
            end
        end
        local result, button, list, input = sampHasDialogRespond(1020)
        if result then
            if button == 1 and list == 0 then
                lua_thread.create(function()
                    sampSendChat("/do На груди бейджик «"..mArmy.." | "..NewRang.."».")
                    wait(700)
                    sampSendChat("Ведите себя адекватней. Предупреждаю один раз.")
                end)
            elseif button == 1 and list == 1 then
                lua_thread.create(function()
                    sampSendChat("Гражданин, прошу Вас покинуть здание "..mArmy..".")
                    wait(700)
                    sampSendChat("В ином случае я буду вынужден Вас выпроводить силой.")
                end)
            elseif button == 1 and list == 2 then
                lua_thread.create(function()
                    sampSendChat("/me "..(SexPlayersFunc and 'схватила' or 'схватил').." человека "..MenuName:gsub("_", " ").." за руку")
                    wait(700)
                    sampSendChat("/me ведет "..MenuName:gsub("_", " ").." к выходу")
                end)
            elseif button == 1 and list == 3 then
                lua_thread.create(function()
                    sampSendChat("/do На поясе у "..sampGetPlayerNickname(myid):gsub("_", " ").." дубинка.")
                    wait(700)
                    sampSendChat("/me "..(SexPlayersFunc and 'замахнулась' or 'замахнулся').." и "..(SexPlayersFunc and 'ударила' or 'ударил').." "..MenuName:gsub("_", " ").." дубинкой по поясу")
                    sampAddChatMessage("[{FF8800}MultiAHK{F5FFFA}]: Произведите удар дубинкой по человеку {1E90FF}"..MenuName:gsub("_", " ").."{F5FFFA}.", 0xF5FFFA)
                    wait(3000)
                    sampSendChat("/me ведет "..MenuName:gsub("_", " ").." к выходу")
                end)
            elseif button == 1 and list == 4 then
                lua_thread.create(function()
                    sampSendChat("/do Травматический пистолет SD Pistol находится кобуре.")
                    wait(700)
                    sampSendChat("/me резким движением правой руки "..(SexPlayersFunc and 'выхватила' or 'выхватил').." пистолет, после "..(SexPlayersFunc and 'зарядила' or 'зарядил').." его резиновыми патронами")
                    wait(700)
                    sampSendChat("/do Пистолет заряжен и готов к использованию.")
                    wait(700)
                    sampSendChat("/me "..(SexPlayersFunc and 'нацелила' or 'нацелил').." пистолет на "..MenuName:gsub("_", " ")..", после "..(SexPlayersFunc and 'произвела' or 'произвел').." пару выстрелов")
                end)
            end
        end
        if systemMO then
            if (armourNew == 100 and armourStatus == 0) then
                sampSendChat("/me "..(SexPlayersFunc and 'открыла' or 'открыл').." склад с новыми бронежилетами IOTV")
                wait(250)
                sampSendChat("/me "..(SexPlayersFunc and 'взяла' or 'взял').." новый бронежилет со склада и "..(SexPlayersFunc and 'надела' or 'надел').." его на себя")
                armourStatus = 1
            end
            
            if armourNew <= 50 and armourStatus == 1 then   
                sampSendChat("/do Бронежилет получил повреждения, требуется замена.")
                armourStatus = 0
            end

        else
            if armourNew == 100 and armourStatus == 0 then
                armourStatus = 1
            elseif armourNew <= 50 and armourStatus == 1 then
                armourStatus = 0
            end
        end

        if arrayFunc.systemcars_one.v and isKeyJustPressed(VK_CONTROL) and isCharInAnyCar(PLAYER_PED) and not sampIsChatInputActive() and not sampIsDialogActive() and not sampIsScoreboardOpen() and not isSampfuncsConsoleActive() then
            local car = nil
            if isCharInAnyCar(playerPed) then
                car = storeCarCharIsInNoSave(playerPed)
            end
            if car and getDriverOfCar(car) == playerPed then
                if not isCharOnAnyBike(PLAYER_PED) and not isCharInAnyBoat(PLAYER_PED) and not isCharInAnyHeli(PLAYER_PED) and not isCharInAnyPlane(PLAYER_PED) and isCarEngineOn(storeCarCharIsInNoSave(PLAYER_PED)) then
                    sampSendChat("/me "..(SexPlayersFunc and 'заглушила' or 'заглушил').." "..getGxtText(getNameOfVehicleModel(getCarModel(storeCarCharIsInNoSave(playerPed))))..", после "..(SexPlayersFunc and 'вытащила' or 'вытащил').." ключи из замка зажигания")
                elseif not isCharOnAnyBike(PLAYER_PED) and not isCharInAnyBoat(PLAYER_PED) and not isCharInAnyHeli(PLAYER_PED) and not isCharInAnyPlane(PLAYER_PED) then     
                    sampSendChat("/me "..(SexPlayersFunc and 'вставила' or 'вставил').." ключ в замок зажигания и "..(SexPlayersFunc and 'завела' or 'завел').." "..getGxtText(getNameOfVehicleModel(getCarModel(storeCarCharIsInNoSave(playerPed)))))
                end
            else
                return
            end
            if isCharInAnyCar(PLAYER_PED) == false then
                return
            end
        end
        
        if wut == nil then
            wut = 0
        end -- WEAPON_FUNCTION_BEGIN
        if wut >= 100 then
            if arrayFunc.systemGun.v and (systemMO or systemGOV) then
                newGUN = getCurrentCharWeapon(PLAYER_PED)
                if oldGUN ~= newGUN then
                    if newGUN == 3 then -- дубинка
                        print(newGUN)
                        if oldGUN == 24 then
                            sampSendChat('/me '..(SexPlayers.v and 'засунула' or 'засунул')..' Desert Eagle в кобуру, после чего '..(SexPlayers.v and 'сняла' or 'снял')..' дубинку с пояса')
                            oldGUN = newGUN
                        elseif oldGUN == 25 then
                            sampSendChat('/me '..(SexPlayers.v and 'убрала' or 'убрал')..' Shotgun за спину, после чего '..(SexPlayers.v and 'сняла' or 'снял')..' дубинку с пояса')
                            oldGUN = newGUN
                        elseif oldGUN == 29 then
                            sampSendChat('/me '..(SexPlayers.v and 'убрала' or 'убрал')..' MP-5 за спину, после чего '..(SexPlayers.v and 'сняла' or 'снял')..' дубинку с пояса')
                            oldGUN = newGUN
                        elseif oldGUN == 17 then
                            sampSendChat('/me '..(SexPlayers.v and 'убрала' or 'убрал')..' газовые шашки в сумку, после чего '..(SexPlayers.v and 'сняла' or 'снял')..' дубинку с пояса')
                            oldGUN = newGUN
                        elseif oldGUN == 23 then
                            sampSendChat('/me '..(SexPlayers.v and 'убрала' or 'убрал')..' пистолет с глушителем за пояс, после чего '..(SexPlayers.v and 'сняла' or 'снял')..' дубинку с пояса')
                            oldGUN = newGUN
                        elseif oldGUN == 12 then
                            sampSendChat('/me '..(SexPlayers.v and 'убрала' or 'убрал')..' дилдо в штаны, после чего '..(SexPlayers.v and 'сняла' or 'снял')..' дубинку с пояса')
                            oldGUN = newGUN
                        elseif oldGUN == 31 then
                            sampSendChat('/me '..(SexPlayers.v and 'убрала' or 'убрал')..' M4A1 за спину, после чего '..(SexPlayers.v and 'сняла' or 'снял')..' дубинку с пояса')
                            oldGUN = newGUN
                        else
                            sampSendChat('/me резким движением руки '..(SexPlayers.v and 'выхватила' or 'выхватил')..' дубинку с пояса')
                            oldGUN = newGUN
                        end
                            wut = 0
                    end
                    if newGUN == 24 then -- desert eagle
                        print(newGUN)
                        if oldGUN == 3 then
                            sampSendChat('/me '..(SexPlayers.v and 'убрала' or 'убрал')..' дубинку на пояс, после чего '..(SexPlayers.v and 'достала' or 'достал')..' Desert Eagle из кобуры')
                            oldGUN = newGUN
                        elseif oldGUN == 25 then
                            sampSendChat('/me '..(SexPlayers.v and 'убрала' or 'убрал')..' Shotgun за спину, после чего '..(SexPlayers.v and 'достала' or 'достал')..' Desert Eagle из кобуры')
                            oldGUN = newGUN
                        elseif oldGUN == 29 then
                            sampSendChat('/me '..(SexPlayers.v and 'убрала' or 'убрал')..' MP-5 за спину, после чего '..(SexPlayers.v and 'достала' or 'достал')..' Desert Eagle из кобуры')
                            oldGUN = newGUN
                        elseif oldGUN == 17 then
                            sampSendChat('/me '..(SexPlayers.v and 'убрала' or 'убрал')..' газовые шашки в сумку, после чего '..(SexPlayers.v and 'достала' or 'достал')..' Desert Eagle из кобуры')
                            oldGUN = newGUN
                        elseif oldGUN == 23 then
                            sampSendChat('/me '..(SexPlayers.v and 'убрала' or 'убрал')..' пистолет с глушителем за пояс, после чего '..(SexPlayers.v and 'достала' or 'достал')..' Desert Eagle из кобуры')
                            oldGUN = newGUN
                        elseif oldGUN == 12 then
                            sampSendChat('/me '..(SexPlayers.v and 'убрала' or 'убрал')..' дилдо в штаны, после чего '..(SexPlayers.v and 'достала' or 'достал')..' Desert Eagle из кобуры')
                            oldGUN = newGUN
                        elseif oldGUN == 31 then
                            sampSendChat('/me '..(SexPlayers.v and 'убрала' or 'убрал')..' M4A1 за спину, после чего '..(SexPlayers.v and 'достала' or 'достал')..' Desert Eagle из кобуры')
                            oldGUN = newGUN
                        else
                            sampSendChat('/me резким движением руки '..(SexPlayers.v and 'выхватила' or 'выхватил')..' Desert Eagle из кобуры')
                            oldGUN = newGUN
                        end
                        wut = 0
                    end
                    if newGUN == 25 then -- shotgun
                        print(newGUN)
                        if oldGUN == 3 then
                            sampSendChat('/me '..(SexPlayers.v and 'убрала' or 'убрал')..' дубинку на пояс, после чего '..(SexPlayers.v and 'достала' or 'достал')..' Shotgun из-за спины')
                            oldGUN = newGUN
                        elseif oldGUN == 24 then
                            sampSendChat('/me '..(SexPlayers.v and 'убрала' or 'убрал')..' Desert Eagle за спину, после чего '..(SexPlayers.v and 'достала' or 'достал')..' Shotgun из-за спины')
                            oldGUN = newGUN
                        elseif oldGUN == 29 then
                            sampSendChat('/me '..(SexPlayers.v and 'убрала' or 'убрал')..' MP-5 за спину, после чего '..(SexPlayers.v and 'достала' or 'достал')..' Shotgun из-за спины')
                            oldGUN = newGUN
                        elseif oldGUN == 17 then
                            sampSendChat('/me '..(SexPlayers.v and 'убрала' or 'убрал')..' газовые шашки в сумку, после чего '..(SexPlayers.v and 'достала' or 'достал')..' Shotgun из-за спины')
                            oldGUN = newGUN
                        elseif oldGUN == 23 then
                            sampSendChat('/me '..(SexPlayers.v and 'убрала' or 'убрал')..' пистолет с глушителем за пояс, после чего '..(SexPlayers.v and 'достала' or 'достал')..' Shotgun из-за спины')
                            oldGUN = newGUN
                        elseif oldGUN == 12 then
                            sampSendChat('/me '..(SexPlayers.v and 'убрала' or 'убрал')..' дилдо в штаны, после чего '..(SexPlayers.v and 'достала' or 'достал')..' Shotgun из-за спины')
                            oldGUN = newGUN
                        elseif oldGUN == 31 then
                            sampSendChat('/me '..(SexPlayers.v and 'убрала' or 'убрал')..' M4A1 за спину, после чего '..(SexPlayers.v and 'достала' or 'достал')..' Shotgun из-за спины')
                            oldGUN = newGUN
                        else
                            sampSendChat('/me резким движением руки '..(SexPlayers.v and 'выхватила' or 'выхватил')..' Shotgun из-за спины')
                            oldGUN = newGUN
                        end
                        wut = 0
                    end
                    if newGUN == 29 then -- mp-5
                        print(newGUN)
                        if oldGUN == 3 then
                            sampSendChat('/me '..(SexPlayers.v and 'убрала' or 'убрал')..' дубинку на пояс, после чего '..(SexPlayers.v and 'достала' or 'достал')..' MP-5 из-за спины')
                            oldGUN = newGUN
                        elseif oldGUN == 24 then
                            sampSendChat('/me '..(SexPlayers.v and 'убрала' or 'убрал')..' Desert Eagle за спину, после чего '..(SexPlayers.v and 'достала' or 'достал')..' MP-5 из-за спины')
                            oldGUN = newGUN
                        elseif oldGUN == 25 then
                            sampSendChat('/me '..(SexPlayers.v and 'убрала' or 'убрал')..' Shotgun за спину, после чего '..(SexPlayers.v and 'достала' or 'достал')..' MP-5 из-за спины')
                            oldGUN = newGUN
                        elseif oldGUN == 17 then
                            sampSendChat('/me '..(SexPlayers.v and 'убрала' or 'убрал')..' газовые шашки в сумку, после чего '..(SexPlayers.v and 'достала' or 'достал')..' MP-5 из-за спины')
                            oldGUN = newGUN
                        elseif oldGUN == 23 then
                            sampSendChat('/me '..(SexPlayers.v and 'убрала' or 'убрал')..' пистолет с глушителем за пояс, после чего '..(SexPlayers.v and 'достала' or 'достал')..' MP-5 из-за спины')
                            oldGUN = newGUN
                        elseif oldGUN == 12 then
                            sampSendChat('/me '..(SexPlayers.v and 'убрала' or 'убрал')..' дилдо в штаны, после чего '..(SexPlayers.v and 'достала' or 'достал')..' MP-5 из-за спины')
                            oldGUN = newGUN
                        elseif oldGUN == 31 then
                            sampSendChat('/me '..(SexPlayers.v and 'убрала' or 'убрал')..' M4A1 за спину, после чего '..(SexPlayers.v and 'достала' or 'достал')..' MP-5 из-за спины')
                            oldGUN = newGUN
                        else
                            sampSendChat('/me резким движением руки '..(SexPlayers.v and 'выхватила' or 'выхватил')..' MP-5 из-за спины')
                            oldGUN = newGUN
                        end
                        wut = 0
                    end
                    if newGUN == 17 then -- дымовые
                        print(newGUN)
                        if oldGUN == 3 then
                            sampSendChat('/me '..(SexPlayers.v and 'убрала' or 'убрал')..' дубинку на пояс, после чего '..(SexPlayers.v and 'достала' or 'достал')..' газовые шашки из сумки')
                            oldGUN = newGUN
                        elseif oldGUN == 24 then
                            sampSendChat('/me '..(SexPlayers.v and 'убрала' or 'убрал')..' Desert Eagle за спину, после чего '..(SexPlayers.v and 'достала' or 'достал')..' газовые шашки из сумки')
                            oldGUN = newGUN
                        elseif oldGUN == 25 then
                            sampSendChat('/me '..(SexPlayers.v and 'убрала' or 'убрал')..' Shotgun за спину, после чего '..(SexPlayers.v and 'достала' or 'достал')..' газовые шашки из сумки')
                            oldGUN = newGUN
                        elseif oldGUN == 29 then
                            sampSendChat('/me '..(SexPlayers.v and 'убрала' or 'убрал')..' MP-5 за спину, после чего '..(SexPlayers.v and 'достала' or 'достал')..' газовые шашки из сумки')
                            oldGUN = newGUN
                        elseif oldGUN == 23 then
                            sampSendChat('/me '..(SexPlayers.v and 'убрала' or 'убрал')..' пистолет с глушителем за пояс, после чего '..(SexPlayers.v and 'достала' or 'достал')..' газовые шашки из сумки')
                            oldGUN = newGUN
                        elseif oldGUN == 12 then
                            sampSendChat('/me '..(SexPlayers.v and 'убрала' or 'убрал')..' дилдо в штаны, после чего '..(SexPlayers.v and 'достала' or 'достал')..' газовые шашки из сумки')
                            oldGUN = newGUN
                        elseif oldGUN == 31 then
                            sampSendChat('/me '..(SexPlayers.v and 'убрала' or 'убрал')..' M4A1 за спину, после чего '..(SexPlayers.v and 'достала' or 'достал')..' газовые шашки из сумки')
                            oldGUN = newGUN
                        else
                            sampSendChat('/me резким движением '..(SexPlayers.v and 'достала' or 'достал')..' газовые шашки из сумки')
                            oldGUN = newGUN
                        end
                        wut = 0
                    end
                    if newGUN == 23 then
                        print(newGUN)
                        if oldGUN == 3 then
                            sampSendChat('/me '..(SexPlayers.v and 'убрала' or 'убрал')..' дубинку на пояс, после чего '..(SexPlayers.v and 'достала' or 'достал')..' пистолет с глушителем из-за пояса')
                            oldGUN = newGUN
                        elseif oldGUN == 24 then
                            sampSendChat('/me '..(SexPlayers.v and 'убрала' or 'убрал')..' Desert Eagle за спину, после чего '..(SexPlayers.v and 'достала' or 'достал')..' пистолет с глушителем из-за пояса')
                            oldGUN = newGUN
                        elseif oldGUN == 25 then
                            sampSendChat('/me '..(SexPlayers.v and 'убрала' or 'убрал')..' Shotgun за спину, после чего '..(SexPlayers.v and 'достала' or 'достал')..' пистолет с глушителем из-за пояса')
                            oldGUN = newGUN
                        elseif oldGUN == 29 then
                            sampSendChat('/me '..(SexPlayers.v and 'убрала' or 'убрал')..' MP-5 за спину, после чего '..(SexPlayers.v and 'достала' or 'достал')..' пистолет с глушителем из-за пояса')
                            oldGUN = newGUN
                        elseif oldGUN == 17 then
                            sampSendChat('/me '..(SexPlayers.v and 'убрала' or 'убрал')..' MP-5 за спину, после чего достала '..(SexPlayers.v and 'достала' or 'достал')..' с глушителем из-за пояса')
                            oldGUN = newGUN
                        elseif oldGUN == 12 then
                            sampSendChat('/me '..(SexPlayers.v and 'убрала' or 'убрал')..' дилдо в штаны, после чего достала '..(SexPlayers.v and 'достала' or 'достал')..' с глушителем из-за пояса')
                            oldGUN = newGUN
                        elseif oldGUN == 31 then
                            sampSendChat('/me '..(SexPlayers.v and 'убрала' or 'убрал')..' M4A1 за спину, после чего достала '..(SexPlayers.v and 'достала' or 'достал')..' с глушителем из-за пояса')
                            oldGUN = newGUN
                        else
                            sampSendChat('/me резким движением '..(SexPlayers.v and 'достала' or 'достал')..' пистолет с глушителем из кобуры из-за пояса')
                            oldGUN = newGUN
                        end
                        wut = 0
                    end
                    if newGUN == 0 then -- кулак
                        if oldGUN == 3 then
                            sampSendChat('/me '..(SexPlayers.v and 'убрала' or 'убрал')..' дубинку на пояс')
                            oldGUN = newGUN
                        elseif oldGUN == 24 then
                            sampSendChat('/me '..(SexPlayers.v and 'убрала' or 'убрал')..' Desert Eagle в кобуру')
                            oldGUN = newGUN
                        elseif oldGUN == 25 then
                            sampSendChat('/me '..(SexPlayers.v and 'убрала' or 'убрал')..' Shotgun за спину')
                            oldGUN = newGUN
                        elseif oldGUN == 29 then
                            sampSendChat('/me '..(SexPlayers.v and 'убрала' or 'убрал')..' MP-5 за спину')
                            oldGUN = newGUN
                        elseif oldGUN == 17 then
                            sampSendChat('/me '..(SexPlayers.v and 'убрала' or 'убрал')..' газовые шашки в сумку')
                            oldGUN = newGUN
                        elseif oldGUN == 23 then
                            sampSendChat('/me '..(SexPlayers.v and 'убрала' or 'убрал')..' пистолет с глушителем за пояс')
                            oldGUN = newGUN
                        elseif oldGUN == 31 then
                            sampSendChat('/me '..(SexPlayers.v and 'убрала' or 'убрал')..' M4A1 за спину')
                            oldGUN = newGUN
                        end
                        wut = 0
                    end
                end
            end
        else
            wut = wut + 1
        end
        if tagstimer == nil then
            tagstimer = 300
        end
        if tagstimer <= 0 then
            if sampGetPlayerIdByNickname("Anthony_Howard") == 'offline' then
                sampDestroy3dText(552)
            else
                sampCreate3dTextEx(552, '{FF8800}Человек с чистрым сердцем{F3F3F3}', 4294927974, 0, 0, 0.8, 50, false, sampGetPlayerIdByNickname("Anthony_Howard"), -1)
            end

            if getLeaderOnline then
                if get1Leader == nil then
                    
                else
                    if sampGetPlayerIdByNickname(''..get1Leader..'') == 'offline' then
                        sampDestroy3dText(558)
                    else
                        sampCreate3dTextEx(558, '{'..colororgs..'}'..RangLeaders1..' {CDCDCD}['..sampGetPlayerIdByNickname(''..get1Leader..'')..']', 4294927974, 0, 0, 0.4, 50, false, sampGetPlayerIdByNickname(''..get1Leader..''), -1)
                    end
                end

                if get2Leader == nil then
                    
                else
                    if sampGetPlayerIdByNickname(''..get2Leader..'') == 'offline' then
                        sampDestroy3dText(559)
                    else
                        sampCreate3dTextEx(559, '{'..colororgs..'}'..RangLeaders2..' {CDCDCD}['..sampGetPlayerIdByNickname(''..get2Leader..'')..']', 4294927974, 0, 0, 0.4, 50, false, sampGetPlayerIdByNickname(''..get2Leader..''), -1)
                    end
                end
                if get3Leader == nil then
                    
                else
                    if sampGetPlayerIdByNickname(''..get3Leader..'') == 'offline' then
                        sampDestroy3dText(560)
                    else
                        sampCreate3dTextEx(560, '{'..colororgs..'}'..RangLeaders3..' {CDCDCD}['..sampGetPlayerIdByNickname(''..get3Leader..'')..']', 4294927974, 0, 0, 0.4, 50, false, sampGetPlayerIdByNickname(''..get3Leader..''), -1)
                    end
                end
                if get4Leader == nil then
                    
                else
                    if sampGetPlayerIdByNickname(''..get4Leader..'') == 'offline' then
                        sampDestroy3dText(561)
                    else
                        sampCreate3dTextEx(561, '{'..colororgs..'}'..RangLeaders4..' {CDCDCD}['..sampGetPlayerIdByNickname(''..get4Leader..'')..']', 4294927974, 0, 0, 0.4, 50, false, sampGetPlayerIdByNickname(''..get4Leader..''), -1)
                    end
                end
                if systemMM then
                    if get5Leader == nil then
                        
                    else
                        if sampGetPlayerIdByNickname(''..get5Leader..'') == 'offline' then
                            sampDestroy3dText(561)
                        else
                            sampCreate3dTextEx(561, '{'..colororgs..'}'..RangLeaders5..' {CDCDCD}['..sampGetPlayerIdByNickname(''..get5Leader..'')..']', 4294927974, 0, 0, 0.4, 50, false, sampGetPlayerIdByNickname(''..get5Leader..''), -1)
                        end
                    end
                end
            end
            tagstimer = 300
        else
            tagstimer = tagstimer - 1
        end
    end
 

Вложения

  • SAMPFUNCS.log
    17.7 KB · Просмотры: 2
  • moonloader.log
    5.9 KB · Просмотры: 2
Последнее редактирование:

JaBlok

Новичок
4
0
Хочу написать авто отправку ад, но после того как появляется окошко "Отправить объявление?" Нужно нажать кнопку "Да", но я не знаю как.
Вот код:
Lua:
script_name('ADHELPER')
script_author('JB')



require "lib.moonloader"
local sampev = require("lib.samp.events")
local active
local advert



function main()
    if not isSampLoaded() or not isSampfuncsLoaded() then return end
    while not isSampAvailable() do wait(100) end
    sampRegisterChatCommand("adhelp", cmd_adhelp)
    sampAddChatMessage("{32CD32}[ADHELPER]: {FFFFFF}Succefuly Loaded. Author: {32CD32}JB")
    while true do
        wait(0)
    end
end


function sampev.onServerMessage(col, text)
    if text:match('Объявление проверил:*') then
        sampSendChat("/ad " .. advert)
        wait(10)
        setVirtualKeyDown(VK_RETURN, true)
    end
end


function cmd_adhelp(arg)
    if #arg ~= 0 then
        advert = arg
        sampAddChatMessage("{32CD32}[ADHELPER]: {FFFFFF}Будет отправлено объявление: {32CD32}" .. advert)
    else
        sampAddChatMessage('{FF0000}[ADHELPER]{FFFFFF} Вы не ввели аргумент!')
    end
end
 
Последнее редактирование модератором:

asdasdasfggaga

Новичок
14
0
Доброго времени суток! Если у персонажа в руках сигарета, бутылка или что-то подобное-ты не сможешь взять в руки оружие. Так вот, есть ли какая-то функция, которая убирает их?
 

paulohardy

вы еще постите говно? тогда я иду к вам
Всефорумный модератор
1,907
1,281
Доброго времени суток! Если у персонажа в руках сигарета, бутылка или что-то подобное-ты не сможешь взять в руки оружие. Так вот, есть ли какая-то функция, которая убирает их?
sampSetSpecialAction(0)
 

cheremuxa

Известный
430
202
Хочу написать авто отправку ад, но после того как появляется окошко "Отправить объявление?" Нужно нажать кнопку "Да", но я не знаю как.
Вот код:
Lua:
script_name('ADHELPER')
script_author('JB')



require "lib.moonloader"
local sampev = require("lib.samp.events")
local active
local advert



function main()
    if not isSampLoaded() or not isSampfuncsLoaded() then return end
    while not isSampAvailable() do wait(100) end
    sampRegisterChatCommand("adhelp", cmd_adhelp)
    sampAddChatMessage("{32CD32}[ADHELPER]: {FFFFFF}Succefuly Loaded. Author: {32CD32}JB")
    while true do
        wait(0)
    end
end


function sampev.onServerMessage(col, text)
    if text:match('Объявление проверил:*') then
        sampSendChat("/ad " .. advert)
        wait(10)
        setVirtualKeyDown(VK_RETURN, true)
    end
end


function cmd_adhelp(arg)
    if #arg ~= 0 then
        advert = arg
        sampAddChatMessage("{32CD32}[ADHELPER]: {FFFFFF}Будет отправлено объявление: {32CD32}" .. advert)
    else
        sampAddChatMessage('{FF0000}[ADHELPER]{FFFFFF} Вы не ввели аргумент!')
    end
end
сервер?
 

S-Sirius

Известный
351
21
Помогите пожалуйста, должен отображать на imgui расстояние между мной и игрока по ID.

[ML] (error) GMembers: D:\Games\GTA San Andreas(I)\moonloader\members_ex.lua:117: attempt to call global 'sampGetDistanceLocalPlayerToPlayerByPlayerId' (a nil value)
stack traceback:
D:\Games\GTA San Andreas(I)\moonloader\members_ex.lua:117: in function 'OnDrawFrame'
D:\Games\GTA San Andreas(I)\moonloader\lib\imgui.lua:1378: in function <D:\Games\GTA San Andreas(I)\moonloader\lib\imgui.lua:1367>
[ML] (error) GMembers: Script died due to an error. (07D0A06C)

Код:
imgui.SetColumnWidth(-1, 80)
imgui.TextColored(imgui.ImVec4(0.00, 0.80, 0.00, 1.00), u8(math.floor(sampGetDistanceLocalPlayerToPlayerByPlayerId(v.id))..' метров'));
imgui.NextColumn()
 

paulohardy

вы еще постите говно? тогда я иду к вам
Всефорумный модератор
1,907
1,281
поработаем с твоим же диалогом

Lua:
mm = false
function sampev.onServerMessage(col, text)
    if text:match('Объявление проверил:*') then
        sampSendChat("/ad " .. advert)
        wait(10)
        mm = true
    end
end

function sampev.OnShowDialog(id, style, title, b1, b2, text)
    id = sampGetCurrentDialogId()
    if id and style == 0 and mm then
        setVirtualKeyDown(VK_RETURN, true)
        wait(10)
        setVirtualKeyDown(VK_RETURN, false)
    end
end
Событие не может начинаться с большой буквы, не OnShowDialog, а onShowDialog
Помогите пожалуйста, должен отображать на imgui расстояние между мной и игрока по ID.



Код:
imgui.SetColumnWidth(-1, 80)
imgui.TextColored(imgui.ImVec4(0.00, 0.80, 0.00, 1.00), u8(math.floor(sampGetDistanceLocalPlayerToPlayerByPlayerId(v.id))..' метров'));
imgui.NextColumn()
Все верно, нет такой функции как sampGetDistanceLocalPlayerToPlayerByPlayerId, используй getDistanceBetweenCoords3d