при определённом тексте в чате самп - выполняется скрипт

6y6Jluk

6y6Jluk

Новичок
Автор темы
11
0
Ребята, подскажите как сделать в этом скрипте (bot maker) что б после какой-то определённой фразы или текста в чате, например сервер напишет "У вас закончилось что-то там" и тогда скрипт начинает свою роботу, сообственно начинает бег по координатам. Буду очень благодарен

Lua: 
script_name("beg")
script_authors("no")
script_description("Бот создан в bot maker")
script_version("0.1")
script_dependencies("CLEO", "SAMP", "SAMPFUNCS")

---------------------------------------------------------------------------

require "lib.moonloader"
require "lib.sampfuncs"

---------------------------------------------------------------------------

function main()
    if not isSampfuncsLoaded() or not isSampLoaded() then return end
    sampRegisterChatCommand("beg", cmd_bot)

    local saveX = {}
    local saveY = {}
    local saveZ = {}
    while true do
        wait(0)
        if isPlayerPlaying(playerHandle) and enabled then
---------------------------------------------------------------------------
            BeginToPoint(2611.879883, -2469.300049, 3.240000, 1.000000, -255, false)
            BeginToPoint(2593.020020, -2469.239990, 3.240000, 1.000000, -255, false)
            BeginToPoint(2593.489990, -2462.120117, 3.240000, 1.000000, -255, false)
            BeginToPoint(2618.879883, -2461.629883, 13.360000, 1.000000, -255, false)
            BeginToPoint(2616.530029, -2456.659912, 13.640000, 1.000000, -255, false)
            BeginToPoint(2597.780029, -2435.780029, 13.660000, 1.000000, -255, false)
            BeginToPoint(2602.219971, -2431.959961, 13.660000, 1.000000, -255, false)
            BeginToPoint(2607.620117, -2437.040039, 13.670000, 1.000000, -255, false)
            wait(3000)
            BeginToPoint(2607.620117, -2437.040039, 13.670000, 1.000000, -255, false)
            BeginToPoint(2602.219971, -2431.959961, 13.660000, 1.000000, -255, false)
            BeginToPoint(2597.780029, -2435.780029, 13.660000, 1.000000, -255, false)
            BeginToPoint(2616.530029, -2456.659912, 13.640000, 1.000000, -255, false)
            BeginToPoint(2618.879883, -2461.629883, 13.360000, 1.000000, -255, false)
            BeginToPoint(2593.489990, -2462.120117, 3.240000, 1.000000, -255, false)
            BeginToPoint(2593.020020, -2469.239990, 3.240000, 1.000000, -255, false)
            BeginToPoint(2611.879883, -2469.300049, 3.240000, 1.000000, -255, false)
            BeginToPoint(2612.699951, -2474.560059, 3.240000, 1.000000, -255, false)
---------------------------------------------------------------------------
        end
    end
end



--------------------------- STANDART FUNCTIONS ---------------------------

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 enabled or dist < radius
end
function MovePlayer(move_code, isSprint)
    setGameKeyState(1, move_code)
    --[[255 - обычный бег назад
       -255 - обычный бег вперед
      65535 - идти шагом вперед
     -65535 - идти шагом назад]]
    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 cmd_bot(param)
    enabled = not enabled
    if enabled then
        sampAddChatMessage(string.format("[%s]: Активирован", thisScript().name), 0x40FF40)
    else
        sampAddChatMessage(string.format("[%s]: Деактивирован", thisScript().name), 0xFF4040)
    end
end

--------------------------- ADDITIONAL FUNCTIONS ---------------------------
 
Сортировка по дате Сортировка по голосам
6y6Jluk

6y6Jluk

Новичок
Автор темы
11
0
Позитивный голос 0 Негативный голос
MrBidloKoder

MrBidloKoder

Известный
423
249
Lua: 
script_name("beg")
script_authors("no")
script_description("Бот создан в bot maker")
script_version("0.1")
script_dependencies("CLEO", "SAMP", "SAMPFUNCS")

---------------------------------------------------------------------------

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

---------------------------------------------------------------------------

function main()
    if not isSampfuncsLoaded() or not isSampLoaded() then return end
    sampRegisterChatCommand("beg", cmd_bot)

    local saveX = {}
    local saveY = {}
    local saveZ = {}
    while true do
        wait(0)
        if isPlayerPlaying(playerHandle) and enabled then
---------------------------------------------------------------------------
            BeginToPoint(2611.879883, -2469.300049, 3.240000, 1.000000, -255, false)
            BeginToPoint(2593.020020, -2469.239990, 3.240000, 1.000000, -255, false)
            BeginToPoint(2593.489990, -2462.120117, 3.240000, 1.000000, -255, false)
            BeginToPoint(2618.879883, -2461.629883, 13.360000, 1.000000, -255, false)
            BeginToPoint(2616.530029, -2456.659912, 13.640000, 1.000000, -255, false)
            BeginToPoint(2597.780029, -2435.780029, 13.660000, 1.000000, -255, false)
            BeginToPoint(2602.219971, -2431.959961, 13.660000, 1.000000, -255, false)
            BeginToPoint(2607.620117, -2437.040039, 13.670000, 1.000000, -255, false)
            wait(3000)
            BeginToPoint(2607.620117, -2437.040039, 13.670000, 1.000000, -255, false)
            BeginToPoint(2602.219971, -2431.959961, 13.660000, 1.000000, -255, false)
            BeginToPoint(2597.780029, -2435.780029, 13.660000, 1.000000, -255, false)
            BeginToPoint(2616.530029, -2456.659912, 13.640000, 1.000000, -255, false)
            BeginToPoint(2618.879883, -2461.629883, 13.360000, 1.000000, -255, false)
            BeginToPoint(2593.489990, -2462.120117, 3.240000, 1.000000, -255, false)
            BeginToPoint(2593.020020, -2469.239990, 3.240000, 1.000000, -255, false)
            BeginToPoint(2611.879883, -2469.300049, 3.240000, 1.000000, -255, false)
            BeginToPoint(2612.699951, -2474.560059, 3.240000, 1.000000, -255, false)
---------------------------------------------------------------------------
        end
    end
end



--------------------------- STANDART FUNCTIONS ---------------------------

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 enabled or dist < radius
end
function MovePlayer(move_code, isSprint)
    setGameKeyState(1, move_code)
    --[[255 - обычный бег назад
       -255 - обычный бег вперед
      65535 - идти шагом вперед
     -65535 - идти шагом назад]]
    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 cmd_bot(param)
    enabled = not enabled
    if enabled then
        sampAddChatMessage(string.format("[%s]: Активирован", thisScript().name), 0x40FF40)
    else
        sampAddChatMessage(string.format("[%s]: Деактивирован", thisScript().name), 0xFF4040)
    end
end

--------------------------- ADDITIONAL FUNCTIONS ---------------------------

function sampev.onServerMessage(color, text)
    if text:find("дэб") then
        cmd_bot()
    end
end
 
  • Нравится
Реакции: 6y6Jluk
Позитивный голос 0 Негативный голос
6y6Jluk

6y6Jluk

Новичок
Автор темы
11
0
MrBidloKoder написал(а):
Lua: 
script_name("beg")
script_authors("no")
script_description("Бот создан в bot maker")
script_version("0.1")
script_dependencies("CLEO", "SAMP", "SAMPFUNCS")

---------------------------------------------------------------------------

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

---------------------------------------------------------------------------

function main()
    if not isSampfuncsLoaded() or not isSampLoaded() then return end
    sampRegisterChatCommand("beg", cmd_bot)

    local saveX = {}
    local saveY = {}
    local saveZ = {}
    while true do
        wait(0)
        if isPlayerPlaying(playerHandle) and enabled then
---------------------------------------------------------------------------
            BeginToPoint(2611.879883, -2469.300049, 3.240000, 1.000000, -255, false)
            BeginToPoint(2593.020020, -2469.239990, 3.240000, 1.000000, -255, false)
            BeginToPoint(2593.489990, -2462.120117, 3.240000, 1.000000, -255, false)
            BeginToPoint(2618.879883, -2461.629883, 13.360000, 1.000000, -255, false)
            BeginToPoint(2616.530029, -2456.659912, 13.640000, 1.000000, -255, false)
            BeginToPoint(2597.780029, -2435.780029, 13.660000, 1.000000, -255, false)
            BeginToPoint(2602.219971, -2431.959961, 13.660000, 1.000000, -255, false)
            BeginToPoint(2607.620117, -2437.040039, 13.670000, 1.000000, -255, false)
            wait(3000)
            BeginToPoint(2607.620117, -2437.040039, 13.670000, 1.000000, -255, false)
            BeginToPoint(2602.219971, -2431.959961, 13.660000, 1.000000, -255, false)
            BeginToPoint(2597.780029, -2435.780029, 13.660000, 1.000000, -255, false)
            BeginToPoint(2616.530029, -2456.659912, 13.640000, 1.000000, -255, false)
            BeginToPoint(2618.879883, -2461.629883, 13.360000, 1.000000, -255, false)
            BeginToPoint(2593.489990, -2462.120117, 3.240000, 1.000000, -255, false)
            BeginToPoint(2593.020020, -2469.239990, 3.240000, 1.000000, -255, false)
            BeginToPoint(2611.879883, -2469.300049, 3.240000, 1.000000, -255, false)
            BeginToPoint(2612.699951, -2474.560059, 3.240000, 1.000000, -255, false)
---------------------------------------------------------------------------
        end
    end
end



--------------------------- STANDART FUNCTIONS ---------------------------

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 enabled or dist < radius
end
function MovePlayer(move_code, isSprint)
    setGameKeyState(1, move_code)
    --[[255 - обычный бег назад
       -255 - обычный бег вперед
      65535 - идти шагом вперед
     -65535 - идти шагом назад]]
    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 cmd_bot(param)
    enabled = not enabled
    if enabled then
        sampAddChatMessage(string.format("[%s]: Активирован", thisScript().name), 0x40FF40)
    else
        sampAddChatMessage(string.format("[%s]: Деактивирован", thisScript().name), 0xFF4040)
    end
end

--------------------------- ADDITIONAL FUNCTIONS ---------------------------

function sampev.onServerMessage(color, text)
    if text:find("дэб") then
        cmd_bot()
    end
end
Нажмите для раскрытия...
А как добавить задержку, что б бег активировался например через 1000мс после увиденого в чате?

MrBidloKoder написал(а):
Lua: 
script_name("beg")
script_authors("no")
script_description("Бот создан в bot maker")
script_version("0.1")
script_dependencies("CLEO", "SAMP", "SAMPFUNCS")

---------------------------------------------------------------------------

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

---------------------------------------------------------------------------

function main()
    if not isSampfuncsLoaded() or not isSampLoaded() then return end
    sampRegisterChatCommand("beg", cmd_bot)

    local saveX = {}
    local saveY = {}
    local saveZ = {}
    while true do
        wait(0)
        if isPlayerPlaying(playerHandle) and enabled then
---------------------------------------------------------------------------
            BeginToPoint(2611.879883, -2469.300049, 3.240000, 1.000000, -255, false)
            BeginToPoint(2593.020020, -2469.239990, 3.240000, 1.000000, -255, false)
            BeginToPoint(2593.489990, -2462.120117, 3.240000, 1.000000, -255, false)
            BeginToPoint(2618.879883, -2461.629883, 13.360000, 1.000000, -255, false)
            BeginToPoint(2616.530029, -2456.659912, 13.640000, 1.000000, -255, false)
            BeginToPoint(2597.780029, -2435.780029, 13.660000, 1.000000, -255, false)
            BeginToPoint(2602.219971, -2431.959961, 13.660000, 1.000000, -255, false)
            BeginToPoint(2607.620117, -2437.040039, 13.670000, 1.000000, -255, false)
            wait(3000)
            BeginToPoint(2607.620117, -2437.040039, 13.670000, 1.000000, -255, false)
            BeginToPoint(2602.219971, -2431.959961, 13.660000, 1.000000, -255, false)
            BeginToPoint(2597.780029, -2435.780029, 13.660000, 1.000000, -255, false)
            BeginToPoint(2616.530029, -2456.659912, 13.640000, 1.000000, -255, false)
            BeginToPoint(2618.879883, -2461.629883, 13.360000, 1.000000, -255, false)
            BeginToPoint(2593.489990, -2462.120117, 3.240000, 1.000000, -255, false)
            BeginToPoint(2593.020020, -2469.239990, 3.240000, 1.000000, -255, false)
            BeginToPoint(2611.879883, -2469.300049, 3.240000, 1.000000, -255, false)
            BeginToPoint(2612.699951, -2474.560059, 3.240000, 1.000000, -255, false)
---------------------------------------------------------------------------
        end
    end
end



--------------------------- STANDART FUNCTIONS ---------------------------

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 enabled or dist < radius
end
function MovePlayer(move_code, isSprint)
    setGameKeyState(1, move_code)
    --[[255 - обычный бег назад
       -255 - обычный бег вперед
      65535 - идти шагом вперед
     -65535 - идти шагом назад]]
    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 cmd_bot(param)
    enabled = not enabled
    if enabled then
        sampAddChatMessage(string.format("[%s]: Активирован", thisScript().name), 0x40FF40)
    else
        sampAddChatMessage(string.format("[%s]: Деактивирован", thisScript().name), 0xFF4040)
    end
end

--------------------------- ADDITIONAL FUNCTIONS ---------------------------

function sampev.onServerMessage(color, text)
    if text:find("дэб") then
        cmd_bot()
    end
end
Нажмите для раскрытия...
Заметил такую штуку, может поможешь разобраться? Вообщем когда учился пользоваться языком луа сегодня, то заметил такую штуку... Если я делаю что б после какой-то команды что-то писало sampAddChatMessage и текст на русском, то будут какие-то символы. Для этого мне приходится в нотепаде ++ менять кодировку на ANSI постоянно что б оно писало нормально... Так же если я в том скрипте что ты мне помог сделать сделаю на поиск в чате текста со скобками. Например [Ошибка] У вас нет лицензии - это как пример и сделаю кодировку ANSI то ничего не получиться :( Надо стереть скобки и тогда будет работать
 
Позитивный голос 0 Негативный голос
MrBidloKoder

MrBidloKoder

Известный
423
249
6y6Jluk написал(а):
А как добавить задержку, что б бег активировался например через 1000мс после увиденого в чате?
Нажмите для раскрытия...
Lua: 
if text:find("дэб") then
    lua_thread.create(function()
        wait(1000)
        cmd_bot()
    end)
end


6y6Jluk написал(а):
Заметил такую штуку, может поможешь разобраться? Вообщем когда учился пользоваться языком луа сегодня, то заметил такую штуку... Если я делаю что б после какой-то команды что-то писало sampAddChatMessage и текст на русском, то будут какие-то символы. Для этого мне приходится в нотепаде ++ менять кодировку на ANSI постоянно что б оно писало нормально... Так же если я в том скрипте что ты мне помог сделать сделаю на поиск в чате текста со скобками. Например [Ошибка] У вас нет лицензии - это как пример и сделаю кодировку ANSI то ничего не получиться :( Надо стереть скобки и тогда будет работать
Нажмите для раскрытия...
скачай любой скрипт, удали оттуда весь код и вставь свой.
 
  • Нравится
Реакции: 6y6Jluk
Позитивный голос 0 Негативный голос
6y6Jluk

6y6Jluk

Новичок
Автор темы
11
0
MrBidloKoder написал(а):
Lua: 
if text:find("дэб") then
    lua_thread.create(function()
        wait(1000)
        cmd_bot()
    end)
end



скачай любой скрипт, удали оттуда весь код и вставь свой.
Нажмите для раскрытия...
Да, таким образом всё работает как часы, не подскажешь как исправить что б я постоянно так не делал? Учу луа просто, постоянно так делать напрягает(
 
Позитивный голос 0 Негативный голос
6y6Jluk

6y6Jluk

Новичок
Автор темы
11
0
MrBidloKoder написал(а):
постоянно что? не понял чуток
Нажмите для раскрытия...
Код который ты мне скинул, что б он работал надо сделать как ты посоветовал. Взять чужой скрипт луа и вставить туда этот код. Тогда всё работает отлично, но как только я открою этот код через notepad++, что-то там исправлю, даже тот самый текст который ищет скрипт в чате, всё сразу ломается и не хочет работать. Надо опять копировать, открывать чужой скрипт, удалять от-туда код и вставлять свой. Проблема выходит у меня с кодировкой? Возможно знаешь как исправить? Основная проблема это - [] Если их убрать то всё хорошо работает и у меня с моим файлом, который я создам сам
 
Последнее редактирование:
Позитивный голос 0 Негативный голос
MrBidloKoder

MrBidloKoder

Известный
423
249
6y6Jluk написал(а):
Код который ты мне скинул, что б он работал надо сделать как ты посоветовал. Взять чужой скрипт луа и вставить туда этот код. Тогда всё работает отлично, но как только я открою этот код через notepad++, что-то там исправлю, даже тот самый текст который ищет скрипт в чате, всё сразу ломается и не хочет работать. Надо опять копировать, открывать чужой скрипт, удалять от-туда код и вставлять свой. Проблема выходит у меня с кодировкой? Возможно знаешь как исправить? Основная проблема это - [] Если их убрать то всё хорошо работает и у меня с моим файлом, который я создам сам
Нажмите для раскрытия...
переходи на visual studio code и не мучай себя. А так, у меня стоит вот это:
1608119600789.png
 
  • Нравится
Реакции: 6y6Jluk
Позитивный голос 0 Негативный голос
Войдите или зарегистрируйтесь для ответа.

Похожие темы

  1. AnWu
    • Закреплено
    • Статья
    Информация Гайд Всё о Lua скриптинге для MoonLoader
      • Нравится
    Ответы
    49
    Просмотры
    168K
    Lua
    FlouZip
    FlouZip
  2. T
    • Решено
    Есть ли скрипт для мигания окна самп при определенном тексте в чате?
    Ответы
    4
    Просмотры
    426
    Помощь
    Teppu
    T
  3. B
    • Закрыта
    Вопрос по ахк
    Ответы
    2
    Просмотры
    2K
    Другое
    Bond_Jems
    B
  4. DarkP1xel
    • Закрыта
    Неактуально CLEO X Project V1.5 BlastHack Edition by DarkP1xel [01/05/15] [0.3z]
      • Нравится
    Ответы
    65
    Просмотры
    34K
    Читы
    0pc0d3R
    0
  5. Lertex
    • Решено
    Lua Samp получение определённого текста из строки
    Ответы
    5
    Просмотры
    1K
    Вопросы
    Lertex
    Lertex
Сверху Снизу