Заказываем Lua скрипты | Reborn

Статус
В этой теме нельзя размещать новые ответы.
S

SweetMode

Новичок
7
0
kraft1k написал(а):
lua калькулятор ищи, саму функцию, потом просто с диалога текст берёшь и вызываешь функцию калькулятора...
Нажмите для раскрытия...
Нашол калькулятор
Lua: 
print("Choose numbers:")
print("Num1:")
local num1 = io.read()
print("num2:")
local num2 = io.read()
print("Choose operator: + / - / * / /")
local operator = io.read()
if operator == "+" then
   local add = num1 + num2
   print(add)    
end
if operator == "-" then
   local subtract = num1 - num2
   print(subtract)  
end
if operator == "*" then
   local multiply = num1 * num2
   print(multiply)
end  
if operator == "/" then 
   local devide = num1 / num2
   print(devide)
end
io.read()
Только как теперь объединить это?
Знаю еще что диалоговое окно имеет стиль [STYLE_INPUT]. Я в lua не шарю могу только что-то подредактировать из лёгкого.
 
клешь рояль

клешь рояль

Известный
1,255
550
Скрипт должен отвечать не репорт игрока, например на слово "чит".
Строка из чат лога [22:11:55] Pupsen_Vupsin[15]:{FFCD00} 12 чит.
И должно написать /ans 15 "Текст"
И кто напишет объясните пожалуйста как дополнить его, то есть ещё на слово дм,аим, и тд. Заранее спасибо.
Могу заплатить, не много потому что денег мало.
 
Ш

ШPEK

Известный
1,474
525
lolimoska1 написал(а):
Скрипт должен отвечать не репорт игрока, например на слово "чит".
Строка из чат лога [22:11:55] Pupsen_Vupsin[15]:{FFCD00} 12 чит.
И должно написать /ans 15 "Текст"
И кто напишет объясните пожалуйста как дополнить его, то есть ещё на слово дм,аим, и тд. Заранее спасибо.
Могу заплатить, не много потому что денег мало.
Нажмите для раскрытия...
Lua: 
local ev = require "lib.samp.events"
require "lib.moonloader"

function main()
wait(-1)
end

function ev.onServerMessage(color, msg)
    if msg:find("%D+_%D+[%d+]: %d+ чит") then
        local object, subject = msg:match("%D+_%D+%[(%d+)%]:%s(%d+)")
        sampSendChat("/ans "..object.." Слежу")
        wait(1000)
        sampSendChat("/recon "..subject)
    elseif msg:find("%D+_%D+[%d+]: %d+ аим") then
        local object, subject = msg:match("%D+_%D+%[(%d+)%]:%s(%d+)")
        sampSendChat("/ans "..object.." Слежу")
        wait(1000)
        sampSendChat("/recon "..subject)
    elseif msg:find("%D+_%D+[%d+]: %d+ дм") then
        local object, subject = msg:match("%D+_%D+%[(%d+)%]:%s(%d+)")
        sampSendChat("/ans "..object.." Слежу")
        wait(1000)
        sampSendChat("/recon "..subject)
    end
end
Можешь не платить
 
  • Нравится
Реакции: клешь рояль
клешь рояль

клешь рояль

Известный
1,255
550
yuy111 написал(а):
Lua: 
local ev = require "lib.samp.events"
require "lib.moonloader"

function main()
wait(-1)
end

function ev.onServerMessage(color, msg)
    if msg:find("%D+_%D+[%d+]: %d+ чит") then
        local object, subject = msg:match("%D+_%D+%[(%d+)%]:%s(%d+)")
        sampSendChat("/ans "..object.." Слежу")
        wait(1000)
        sampSendChat("/recon "..subject)
    elseif msg:find("%D+_%D+[%d+]: %d+ аим") then
        local object, subject = msg:match("%D+_%D+%[(%d+)%]:%s(%d+)")
        sampSendChat("/ans "..object.." Слежу")
        wait(1000)
        sampSendChat("/recon "..subject)
    elseif msg:find("%D+_%D+[%d+]: %d+ дм") then
        local object, subject = msg:match("%D+_%D+%[(%d+)%]:%s(%d+)")
        sampSendChat("/ans "..object.." Слежу")
        wait(1000)
        sampSendChat("/recon "..subject)
    end
end
Можешь не платить
Нажмите для раскрытия...
Можно убрать subject те чтоб не выходило в рекон, я не шарю в луа. Спасибо.
 
Последнее редактирование:
S

SweetMode

Новичок
7
0
Помогите довести до ума этот скрипт
Нужно сделать так чтобы он срабатывал на вот такое диалоговое окно
Вот скрипт
Lua: 
[I]local event = require 'lib.samp.events'
local state = false
local count = 0
function main()
    while not isSampfuncsLoaded do wait(0) end
    sampfuncsRegisterConsoleCommand('poehali', poehali)
    sampfuncsRegisterConsoleCommand('poehali2', poehali2)
    while true do wait(0)
        if state2 then
            local players = sampGetPlayerCount(false)
            if players == 1 then state = true sampSendDialogResponse(9379, 1, 9, '{8258FA}Мобильный заработок') end
        end
    end
end
function poehali()
    state = not state
    if not state then
        sampAddChatMessage('Отправлено ответов '..count..' заработоно денек: '..count*50000, 0x00FFFF)
        count = 0
    end
end
function poehali2()
    state2 = not state2
end
function event.onShowDialog(dialogId,style,title,button1,button2,text)
    if state then
        if string.find(title, 'Мобильный заработок') then
            n1, n2 = string.match(text, '(%d+) %+ (%d+)')
            --id 7462 but 1 list 65535 inp 806
            --sampAddChatMessage(n1 + n2, 0x00FFFF)
            --lua_thread.create(function() wait(math.random(2, 6) * 1000)
            sampSendDialogResponse(dialogId, 1, 65535, n1 + n2)
            count = count + 1
            --end)
            return false
        end
    end
end
function event.onPlayerJoin()
    if state and state2 then
        state = false
        sampAddChatMessage('Отправлено ответов '..count..' заработоно денек: '..count*50000, 0x00FFFF)
        count = 0
    end
end[/I]
Есть еще один скрипт я сам пробовал его переделать но ничего не получилось
Lua: 
[I]script_name("AutoCaptcha")
script_authors("t1ckz")
script_dependencies("CLEO")
require "lib.moonloader"
local sampev = require 'lib.samp.events'
require "lib.sampfuncs"
local key = require 'vkeys'

local valuecap = 26
function main()
sampfuncsLog("AutoCaptcha. verison: 0.1(Загружено: "..valuecap.." капч)")
end

function sampev.onShowDialog(dialogId, style, caption, b1, b2,text)
--sampfuncsLog(text)
if string.find(text, "У вас есть 60 секунд. Введите ответ на вопрос.Сколько будет 1+1?") then -- 26 ответов
enableDialog(true)
sampSendDialogResponse(673, 1, 0, 2) 
sampCloseCurrentDialogWithButton(0)
sampAddChatMessage("Ответ был найден в базе:{007dff} 2(2)",0xFFFFFF)
end
if string.find(text, "У вас есть 60 секунд. Введите ответ на вопрос.Сколько будет 1+2?") then
enableDialog(true)
sampSendDialogResponse(673, 1, 0, 3) 
sampCloseCurrentDialogWithButton(0)
sampAddChatMessage("Ответ был найден в базе:{007dff} 3(3)",0xFFFFFF)
end
if string.find(text, "У вас есть 60 секунд. Введите ответ на вопрос.Сколько будет 1+3?") then
enableDialog(true)
sampSendDialogResponse(673, 1, 0, 4) 
sampCloseCurrentDialogWithButton(0)
sampAddChatMessage("Ответ был найден в базе:{007dff} 4(4)",0xFFFFFF)
end
if string.find(text, "У вас есть 60 секунд. Введите ответ на вопрос.Сколько будет 1+4?") then
enableDialog(true)
sampSendDialogResponse(673, 1, 0, 5) 
sampCloseCurrentDialogWithButton(0)
sampAddChatMessage("Ответ был найден в базе:{007dff} 5(5)",0xFFFFFF)
end
if string.find(text, "У вас есть 60 секунд. Введите ответ на вопрос.Сколько будет 2+1?") then
enableDialog(true)
sampSendDialogResponse(673, 1, 0, 3) 
sampCloseCurrentDialogWithButton(0)
sampAddChatMessage("Ответ был найден в базе:{007dff} 3(3)",0xFFFFFF)
end
if string.find(text, "У вас есть 60 секунд. Введите ответ на вопрос.Сколько будет 2+2?") then
enableDialog(true)
sampSendDialogResponse(673, 1, 0, 4) 
sampCloseCurrentDialogWithButton(0)
sampAddChatMessage("Ответ был найден в базе:{007dff} 4(4)",0xFFFFFF)
end
if string.find(text, "У вас есть 60 секунд. Введите ответ на вопрос.Сколько будет 2+3?") then
enableDialog(true)
sampSendDialogResponse(673, 1, 0, 5) 
sampCloseCurrentDialogWithButton(0)
sampAddChatMessage("Ответ был найден в базе:{007dff} 5(5)",0xFFFFFF)
end
if string.find(text, "У вас есть 60 секунд. Введите ответ на вопрос. Сколько будет 2+4?") then
sampSendDialogResponse(673, 1, 0, 6) 
enableDialog(true)
sampCloseCurrentDialogWithButton(0)
sampAddChatMessage("Ответ был найден в базе:{007dff} 6(6)",0xFFFFFF)
end
if string.find(text, "У вас есть 60 секунд. Введите ответ на вопрос. Сколько будет 3+1?") then
enableDialog(true)
sampSendDialogResponse(673, 1, 0, 4) 
sampCloseCurrentDialogWithButton(0)
sampAddChatMessage("Ответ был найден в базе:{007dff} 4(4)",0xFFFFFF)
end
if string.find(text, "У вас есть 60 секунд. Введите ответ на вопрос.Сколько будет 3+2?") then
enableDialog(true)
sampSendDialogResponse(673, 1, 0, 5) 
sampCloseCurrentDialogWithButton(0)
sampAddChatMessage("Ответ был найден в базе:{007dff} 5(5)",0xFFFFFF)
end
if string.find(text, "У вас есть 60 секунд. Введите ответ на вопрос.Сколько будет 3+3?") then
enableDialog(true)
sampSendDialogResponse(673, 1, 0, 6) 
sampCloseCurrentDialogWithButton(0)
sampAddChatMessage("Ответ был найден в базе:{007dff} 6(6)",0xFFFFFF)
end
if string.find(text, "У вас есть 60 секунд. Введите ответ на вопрос.Сколько будет 3+4?") then
enableDialog(true)
sampSendDialogResponse(673, 1, 0, 7) 
sampCloseCurrentDialogWithButton(0)
sampAddChatMessage("Ответ был найден в базе:{007dff} 7(7)",0xFFFFFF)
end
if string.find(text, "У вас есть 60 секунд. Введите ответ на вопрос.Сколько будет 4+1?") then
enableDialog(true)
sampSendDialogResponse(673, 1, 0, 5) 
sampCloseCurrentDialogWithButton(0)
sampAddChatMessage("Ответ был найден в базе:{007dff} 5(5)",0xFFFFFF)
end
if string.find(text, "У вас есть 60 секунд. Введите ответ на вопрос.Сколько будет 4+2?") then
enableDialog(true)
sampSendDialogResponse(673, 1, 0, 6) 
sampCloseCurrentDialogWithButton(0)
sampAddChatMessage("Ответ был найден в базе:{007dff} 6(6)",0xFFFFFF)
end
if string.find(text, "У вас есть 60 секунд. Введите ответ на вопрос.Сколько будет 4+3?") then
enableDialog(true)
sampSendDialogResponse(673, 1, 0, 7) 
sampCloseCurrentDialogWithButton(0)
sampAddChatMessage("Ответ был найден в базе:{007dff} 7(7)",0xFFFFFF)
end
if string.find(text, "У вас есть 60 секунд. Введите ответ на вопрос.Сколько будет 4+4?") then
enableDialog(true)
sampSendDialogResponse(673, 1, 0, 8) 
sampCloseCurrentDialogWithButton(0)
sampAddChatMessage("Ответ был найден в базе:{007dff} 8(8)",0xFFFFFF)
end
if string.find(text, "У вас есть 60 секунд. Введите ответ на вопрос.Сколько будет 1-1?") then
enableDialog(true)
sampSendDialogResponse(673, 1, 0, 0) 
sampCloseCurrentDialogWithButton(0)
sampAddChatMessage("Ответ был найден в базе:{007dff} 0(0)",0xFFFFFF)
end
if string.find(text, "У вас есть 60 секунд. Введите ответ на вопрос.Сколько будет 2-1?") then
enableDialog(true)
sampSendDialogResponse(673, 1, 0, 1) 
sampCloseCurrentDialogWithButton(0)
sampAddChatMessage("Ответ был найден в базе:{007dff} 1(1)",0xFFFFFF)
end
if string.find(text, "У вас есть 60 секунд. Введите ответ на вопрос.Сколько будет 2-2?") then
enableDialog(true)
sampSendDialogResponse(673, 1, 0, 0) 
sampCloseCurrentDialogWithButton(0)
sampAddChatMessage("Ответ был найден в базе:{007dff} 0(0)",0xFFFFFF)
end
if string.find(text, "У вас есть 60 секунд. Введите ответ на вопрос.Сколько будет 3-1?") then
enableDialog(true)
sampSendDialogResponse(673, 1, 0, 2) 
sampCloseCurrentDialogWithButton(0)
sampAddChatMessage("Ответ был найден в базе:{007dff} 2(2)",0xFFFFFF)
end
if string.find(text, "У вас есть 60 секунд. Введите ответ на вопрос.Сколько будет 3-2?") then
enableDialog(true)
sampSendDialogResponse(673, 1, 0, 1) 
sampCloseCurrentDialogWithButton(0)
sampAddChatMessage("Ответ был найден в базе:{007dff} 1(1)",0xFFFFFF)
end
if string.find(text, "У вас есть 60 секунд. Введите ответ на вопрос.Сколько будет 3-3?") then
enableDialog(true)
sampSendDialogResponse(673, 1, 0, 0) 
sampCloseCurrentDialogWithButton(0)
sampAddChatMessage("Ответ был найден в базе:{007dff} 0(0)",0xFFFFFF)
end
if string.find(text, "У вас есть 60 секунд. Введите ответ на вопрос.Сколько будет 4-1?") then
enableDialog(true)
sampSendDialogResponse(673, 1, 0, 3) 
sampCloseCurrentDialogWithButton(0)
sampAddChatMessage("Ответ был найден в базе:{007dff} 3(3)",0xFFFFFF)
end
if string.find(text, "У вас есть 60 секунд. Введите ответ на вопрос.Сколько будет 4-2?") then
enableDialog(true)
sampSendDialogResponse(673, 1, 0, 2) 
sampCloseCurrentDialogWithButton(0)
sampAddChatMessage("Ответ был найден в базе:{007dff} 2(2)",0xFFFFFF)
end
if string.find(text, "У вас есть 60 секунд. Введите ответ на вопрос.Сколько будет 4-3?") then
enableDialog(true)
sampSendDialogResponse(673, 1, 0, 1) 
sampCloseCurrentDialogWithButton(0)
sampAddChatMessage("Ответ был найден в базе:{007dff} 1(1)",0xFFFFFF)
end
if string.find(text, "У вас есть 60 секунд. Введите ответ на вопрос.Сколько будет 4-4?") then
enableDialog(true)
sampSendDialogResponse(673, 1, 0, 0) 
sampCloseCurrentDialogWithButton(0)
sampAddChatMessage("Ответ был найден в базе:{007dff} 0(0)",0xFFFFFF)
end
end

function enableDialog(bool)
    local memory = require 'memory'
    memory.setint32(sampGetDialogInfoPtr()+40, bool and 1 or 0, true)
    sampToggleCursor(bool)
end [/I]
Помогите пожалуйста :3
 
Ш

ШPEK

Известный
1,474
525
SweetMode написал(а):
Помогите довести до ума этот скрипт
Нужно сделать так чтобы он срабатывал на вот такое диалоговое окно
Вот скрипт
Lua: 
[I]local event = require 'lib.samp.events'
local state = false
local count = 0
function main()
    while not isSampfuncsLoaded do wait(0) end
    sampfuncsRegisterConsoleCommand('poehali', poehali)
    sampfuncsRegisterConsoleCommand('poehali2', poehali2)
    while true do wait(0)
        if state2 then
            local players = sampGetPlayerCount(false)
            if players == 1 then state = true sampSendDialogResponse(9379, 1, 9, '{8258FA}Мобильный заработок') end
        end
    end
end
function poehali()
    state = not state
    if not state then
        sampAddChatMessage('Отправлено ответов '..count..' заработоно денек: '..count*50000, 0x00FFFF)
        count = 0
    end
end
function poehali2()
    state2 = not state2
end
function event.onShowDialog(dialogId,style,title,button1,button2,text)
    if state then
        if string.find(title, 'Мобильный заработок') then
            n1, n2 = string.match(text, '(%d+) %+ (%d+)')
            --id 7462 but 1 list 65535 inp 806
            --sampAddChatMessage(n1 + n2, 0x00FFFF)
            --lua_thread.create(function() wait(math.random(2, 6) * 1000)
            sampSendDialogResponse(dialogId, 1, 65535, n1 + n2)
            count = count + 1
            --end)
            return false
        end
    end
end
function event.onPlayerJoin()
    if state and state2 then
        state = false
        sampAddChatMessage('Отправлено ответов '..count..' заработоно денек: '..count*50000, 0x00FFFF)
        count = 0
    end
end[/I]
Есть еще один скрипт я сам пробовал его переделать но ничего не получилось
Lua: 
[I]script_name("AutoCaptcha")
script_authors("t1ckz")
script_dependencies("CLEO")
require "lib.moonloader"
local sampev = require 'lib.samp.events'
require "lib.sampfuncs"
local key = require 'vkeys'

local valuecap = 26
function main()
sampfuncsLog("AutoCaptcha. verison: 0.1(Загружено: "..valuecap.." капч)")
end

function sampev.onShowDialog(dialogId, style, caption, b1, b2,text)
--sampfuncsLog(text)
if string.find(text, "У вас есть 60 секунд. Введите ответ на вопрос.Сколько будет 1+1?") then -- 26 ответов
enableDialog(true)
sampSendDialogResponse(673, 1, 0, 2) 
sampCloseCurrentDialogWithButton(0)
sampAddChatMessage("Ответ был найден в базе:{007dff} 2(2)",0xFFFFFF)
end
if string.find(text, "У вас есть 60 секунд. Введите ответ на вопрос.Сколько будет 1+2?") then
enableDialog(true)
sampSendDialogResponse(673, 1, 0, 3) 
sampCloseCurrentDialogWithButton(0)
sampAddChatMessage("Ответ был найден в базе:{007dff} 3(3)",0xFFFFFF)
end
if string.find(text, "У вас есть 60 секунд. Введите ответ на вопрос.Сколько будет 1+3?") then
enableDialog(true)
sampSendDialogResponse(673, 1, 0, 4) 
sampCloseCurrentDialogWithButton(0)
sampAddChatMessage("Ответ был найден в базе:{007dff} 4(4)",0xFFFFFF)
end
if string.find(text, "У вас есть 60 секунд. Введите ответ на вопрос.Сколько будет 1+4?") then
enableDialog(true)
sampSendDialogResponse(673, 1, 0, 5) 
sampCloseCurrentDialogWithButton(0)
sampAddChatMessage("Ответ был найден в базе:{007dff} 5(5)",0xFFFFFF)
end
if string.find(text, "У вас есть 60 секунд. Введите ответ на вопрос.Сколько будет 2+1?") then
enableDialog(true)
sampSendDialogResponse(673, 1, 0, 3) 
sampCloseCurrentDialogWithButton(0)
sampAddChatMessage("Ответ был найден в базе:{007dff} 3(3)",0xFFFFFF)
end
if string.find(text, "У вас есть 60 секунд. Введите ответ на вопрос.Сколько будет 2+2?") then
enableDialog(true)
sampSendDialogResponse(673, 1, 0, 4) 
sampCloseCurrentDialogWithButton(0)
sampAddChatMessage("Ответ был найден в базе:{007dff} 4(4)",0xFFFFFF)
end
if string.find(text, "У вас есть 60 секунд. Введите ответ на вопрос.Сколько будет 2+3?") then
enableDialog(true)
sampSendDialogResponse(673, 1, 0, 5) 
sampCloseCurrentDialogWithButton(0)
sampAddChatMessage("Ответ был найден в базе:{007dff} 5(5)",0xFFFFFF)
end
if string.find(text, "У вас есть 60 секунд. Введите ответ на вопрос. Сколько будет 2+4?") then
sampSendDialogResponse(673, 1, 0, 6) 
enableDialog(true)
sampCloseCurrentDialogWithButton(0)
sampAddChatMessage("Ответ был найден в базе:{007dff} 6(6)",0xFFFFFF)
end
if string.find(text, "У вас есть 60 секунд. Введите ответ на вопрос. Сколько будет 3+1?") then
enableDialog(true)
sampSendDialogResponse(673, 1, 0, 4) 
sampCloseCurrentDialogWithButton(0)
sampAddChatMessage("Ответ был найден в базе:{007dff} 4(4)",0xFFFFFF)
end
if string.find(text, "У вас есть 60 секунд. Введите ответ на вопрос.Сколько будет 3+2?") then
enableDialog(true)
sampSendDialogResponse(673, 1, 0, 5) 
sampCloseCurrentDialogWithButton(0)
sampAddChatMessage("Ответ был найден в базе:{007dff} 5(5)",0xFFFFFF)
end
if string.find(text, "У вас есть 60 секунд. Введите ответ на вопрос.Сколько будет 3+3?") then
enableDialog(true)
sampSendDialogResponse(673, 1, 0, 6) 
sampCloseCurrentDialogWithButton(0)
sampAddChatMessage("Ответ был найден в базе:{007dff} 6(6)",0xFFFFFF)
end
if string.find(text, "У вас есть 60 секунд. Введите ответ на вопрос.Сколько будет 3+4?") then
enableDialog(true)
sampSendDialogResponse(673, 1, 0, 7) 
sampCloseCurrentDialogWithButton(0)
sampAddChatMessage("Ответ был найден в базе:{007dff} 7(7)",0xFFFFFF)
end
if string.find(text, "У вас есть 60 секунд. Введите ответ на вопрос.Сколько будет 4+1?") then
enableDialog(true)
sampSendDialogResponse(673, 1, 0, 5) 
sampCloseCurrentDialogWithButton(0)
sampAddChatMessage("Ответ был найден в базе:{007dff} 5(5)",0xFFFFFF)
end
if string.find(text, "У вас есть 60 секунд. Введите ответ на вопрос.Сколько будет 4+2?") then
enableDialog(true)
sampSendDialogResponse(673, 1, 0, 6) 
sampCloseCurrentDialogWithButton(0)
sampAddChatMessage("Ответ был найден в базе:{007dff} 6(6)",0xFFFFFF)
end
if string.find(text, "У вас есть 60 секунд. Введите ответ на вопрос.Сколько будет 4+3?") then
enableDialog(true)
sampSendDialogResponse(673, 1, 0, 7) 
sampCloseCurrentDialogWithButton(0)
sampAddChatMessage("Ответ был найден в базе:{007dff} 7(7)",0xFFFFFF)
end
if string.find(text, "У вас есть 60 секунд. Введите ответ на вопрос.Сколько будет 4+4?") then
enableDialog(true)
sampSendDialogResponse(673, 1, 0, 8) 
sampCloseCurrentDialogWithButton(0)
sampAddChatMessage("Ответ был найден в базе:{007dff} 8(8)",0xFFFFFF)
end
if string.find(text, "У вас есть 60 секунд. Введите ответ на вопрос.Сколько будет 1-1?") then
enableDialog(true)
sampSendDialogResponse(673, 1, 0, 0) 
sampCloseCurrentDialogWithButton(0)
sampAddChatMessage("Ответ был найден в базе:{007dff} 0(0)",0xFFFFFF)
end
if string.find(text, "У вас есть 60 секунд. Введите ответ на вопрос.Сколько будет 2-1?") then
enableDialog(true)
sampSendDialogResponse(673, 1, 0, 1) 
sampCloseCurrentDialogWithButton(0)
sampAddChatMessage("Ответ был найден в базе:{007dff} 1(1)",0xFFFFFF)
end
if string.find(text, "У вас есть 60 секунд. Введите ответ на вопрос.Сколько будет 2-2?") then
enableDialog(true)
sampSendDialogResponse(673, 1, 0, 0) 
sampCloseCurrentDialogWithButton(0)
sampAddChatMessage("Ответ был найден в базе:{007dff} 0(0)",0xFFFFFF)
end
if string.find(text, "У вас есть 60 секунд. Введите ответ на вопрос.Сколько будет 3-1?") then
enableDialog(true)
sampSendDialogResponse(673, 1, 0, 2) 
sampCloseCurrentDialogWithButton(0)
sampAddChatMessage("Ответ был найден в базе:{007dff} 2(2)",0xFFFFFF)
end
if string.find(text, "У вас есть 60 секунд. Введите ответ на вопрос.Сколько будет 3-2?") then
enableDialog(true)
sampSendDialogResponse(673, 1, 0, 1) 
sampCloseCurrentDialogWithButton(0)
sampAddChatMessage("Ответ был найден в базе:{007dff} 1(1)",0xFFFFFF)
end
if string.find(text, "У вас есть 60 секунд. Введите ответ на вопрос.Сколько будет 3-3?") then
enableDialog(true)
sampSendDialogResponse(673, 1, 0, 0) 
sampCloseCurrentDialogWithButton(0)
sampAddChatMessage("Ответ был найден в базе:{007dff} 0(0)",0xFFFFFF)
end
if string.find(text, "У вас есть 60 секунд. Введите ответ на вопрос.Сколько будет 4-1?") then
enableDialog(true)
sampSendDialogResponse(673, 1, 0, 3) 
sampCloseCurrentDialogWithButton(0)
sampAddChatMessage("Ответ был найден в базе:{007dff} 3(3)",0xFFFFFF)
end
if string.find(text, "У вас есть 60 секунд. Введите ответ на вопрос.Сколько будет 4-2?") then
enableDialog(true)
sampSendDialogResponse(673, 1, 0, 2) 
sampCloseCurrentDialogWithButton(0)
sampAddChatMessage("Ответ был найден в базе:{007dff} 2(2)",0xFFFFFF)
end
if string.find(text, "У вас есть 60 секунд. Введите ответ на вопрос.Сколько будет 4-3?") then
enableDialog(true)
sampSendDialogResponse(673, 1, 0, 1) 
sampCloseCurrentDialogWithButton(0)
sampAddChatMessage("Ответ был найден в базе:{007dff} 1(1)",0xFFFFFF)
end
if string.find(text, "У вас есть 60 секунд. Введите ответ на вопрос.Сколько будет 4-4?") then
enableDialog(true)
sampSendDialogResponse(673, 1, 0, 0) 
sampCloseCurrentDialogWithButton(0)
sampAddChatMessage("Ответ был найден в базе:{007dff} 0(0)",0xFFFFFF)
end
end

function enableDialog(bool)
    local memory = require 'memory'
    memory.setint32(sampGetDialogInfoPtr()+40, bool and 1 or 0, true)
    sampToggleCursor(bool)
end [/I]
Помогите пожалуйста :3
Нажмите для раскрытия...
Окно серверное или локальное?
 
S

SweetMode

Новичок
7
0
yuy111 написал(а):
Окно серверное или локальное?
Нажмите для раскрытия...
А как узнать? Знаю точно что его id всегда меняется ( id короче я так понял рандомные в диапазоне от 6600 до 6700 может и больше [6623 , 6690, 6718, 6685]
И это окно появляется только на последнем маркере, на работе автобусника.
 
Ш

ШPEK

Известный
1,474
525
SweetMode написал(а):
А как узнать? Знаю точно что его id всегда меняется ( id короче я так понял рандомные в диапазоне от 6600 до 6700 может и больше [6623 , 6690, 6718, 6685]
И это окно появляется только на последнем маркере, на работе автобусника.
Нажмите для раскрытия...
Локальные - которые создает клиент или ты, серверные - создаёт сервер
 
imring

imring

Ride the Lightning
Всефорумный модератор
2,365
2,552
SweetMode написал(а):
Нашол калькулятор
Lua: 
print("Choose numbers:")
print("Num1:")
local num1 = io.read()
print("num2:")
local num2 = io.read()
print("Choose operator: + / - / * / /")
local operator = io.read()
if operator == "+" then
   local add = num1 + num2
   print(add) 
end
if operator == "-" then
   local subtract = num1 - num2
   print(subtract)
end
if operator == "*" then
   local multiply = num1 * num2
   print(multiply)
end
if operator == "/" then
   local devide = num1 / num2
   print(devide)
end
io.read()
Только как теперь объединить это?
Знаю еще что диалоговое окно имеет стиль [STYLE_INPUT]. Я в lua не шарю могу только что-то подредактировать из лёгкого.
Нажмите для раскрытия...
Lua: 
function calc(m)
    local func = load('return '..tostring(m))
    local a = select(2, pcall(func))
    return type(a) == 'number' and a or nil
end

print(calc('3^2'))
-- console: 9
 
Последнее редактирование:
imring

imring

Ride the Lightning
Всефорумный модератор
2,365
2,552
SweetMode написал(а):
Ну тогда серверное. Как мне это поможет?
Нажмите для раскрытия...
Lua: 
samp = require 'samp.events'
function main() wait(-1) end

function calc(m)
    local func = load('return '..tostring(m))
    local a = select(2, pcall(func))
    return type(a) == 'number' and a or nil
end

function samp.onShowDialog(id, style, title, button1, button2, text)
    if title:find('{%x+}Антибот') then
        local m = text:match('Сколько будет (.+)%?$')
        sampSendDialogResponse(id, 1, 0, tonumber(calc(m)))
        return false
    end
end
 
  • Нравится
  • Bug
Реакции: Shepi и SweetMode
randazzo

randazzo

.
1,417
1,032
SweetMode написал(а):
Ну тогда серверное. Как мне это поможет?
Нажмите для раскрытия...
Lua: 
local q = require 'lib.samp.events'

function main()
    repeat wait(0) until isSampAvailable()
    wait(-1)
end

function q.onShowDialog(dialogId, style, title, button1, button2, text)
    if title:find('Антибот') or text:find('У вас есть .+Сколько будет (.*)?') then
        sampSendDialogResponse(dialogId, 1, -1, calc(text:match('У вас есть .+Сколько будет (.*)?')))
        return false
    end
end

function calc(m)
    local func = load('return '..m)
    local a = select(2, pcall(func))
    return type(a) == 'number' and a or nil
end
 
  • Нравится
Реакции: SweetMode
клешь рояль

клешь рояль

Известный
1,255
550
Lua: 
local ev = require "lib.samp.events"
require "lib.moonloader"

function main()
wait(-1)
end

function ev.onServerMessage(color, msg)
    if msg:find("%D+_%D+[%d+]: %d+ чит") then
        local object, subject = msg:match("%D+_%D+%[(%d+)%]:%s(%d+)")
        sampSendChat("/ans "..object.." Накажут.")
        wait(1000)
        sampSendChat("/recon "..subject)
    elseif msg:find("%D+_%D+[%d+]: %d+ аим") then
        local object, subject = msg:match("%D+_%D+%[(%d+)%]:%s(%d+)")
        sampSendChat("/ans "..object.." Накажут.")
        wait(1000)
        sampSendChat("/recon "..subject)
    elseif msg:find("%D+_%D+[%d+]: %d+ дм") then
        local object, subject = msg:match("%D+_%D+%[(%d+)%]:%s(%d+)")
        sampSendChat("/ans "..object.." Накажут.")
        wait(1000)
        sampSendChat("/recon "..subject)
    end
end
Не робит, просто нечего не пишет на слово "чит" в репорт. Мб я не правильно создал(не знаю как называется компиляция на луа, вроде и нету) файл, приложу ниже.
 

Вложения

  • awed.lua
    856 байт · Просмотры: 6
randazzo

randazzo

.
1,417
1,032
yuy111 написал(а):
Можешь не платить
Нажмите для раскрытия...
можешь не отписываться в этой теме, если не знаешь, что делаешь?
lolimoska1 написал(а):
Lua: 
local ev = require "lib.samp.events"
require "lib.moonloader"

function main()
wait(-1)
end

function ev.onServerMessage(color, msg)
    if msg:find("%D+_%D+[%d+]: %d+ чит") then
        local object, subject = msg:match("%D+_%D+%[(%d+)%]:%s(%d+)")
        sampSendChat("/ans "..object.." Накажут.")
        wait(1000)
        sampSendChat("/recon "..subject)
    elseif msg:find("%D+_%D+[%d+]: %d+ аим") then
        local object, subject = msg:match("%D+_%D+%[(%d+)%]:%s(%d+)")
        sampSendChat("/ans "..object.." Накажут.")
        wait(1000)
        sampSendChat("/recon "..subject)
    elseif msg:find("%D+_%D+[%d+]: %d+ дм") then
        local object, subject = msg:match("%D+_%D+%[(%d+)%]:%s(%d+)")
        sampSendChat("/ans "..object.." Накажут.")
        wait(1000)
        sampSendChat("/recon "..subject)
    end
end
Не робит, просто нечего не пишет на слово "чит" в репорт. Мб я не правильно создал(не знаю как называется компиляция на луа, вроде и нету) файл, приложу ниже.
Нажмите для раскрытия...
Lua: 
--Pupsen_Vupsin[15]:{FFCD00} 12 чит.
local q = require 'lib.samp.events'

local reasons = {'чит', 'аим', 'дм'}

function main()
    repeat wait(0) until isSampAvailable()
    wait(-1)
end

function q.onServerMessage(clr, str)
    for _, i in pairs(reasons) do
        if str:find('.*%[(%d+)%]:{%x+} (%d+) '..i) then
            local fromId, reportId = str:match('.*%[(%d+)%]:{%x+} (%d+) '..i)
            lua_thread.create(function(fId, rId)
                sampSendChat('/ans '..fId..' Накажут.')
                wait(1000)
                sampSendChat('/recon '..rId)
            end, fromId, reportId)
            break
        end
    end
end
 
  • Нравится
Реакции: клешь рояль и Frapsy
N

norway

Известный
30
1
У кого есть время, визуальную починку колес / визуальный ГМ на колеса, буду признателен
 
Статус
В этой теме нельзя размещать новые ответы.

Похожие темы

  1. U
    • Закрыта
    Заказываем lua скрипты
      • Нравится
    Ответы
    287
    Просмотры
    43K
    Lua
    imring
    imring
  2. AnWu
    • Закрыта
    Заказываем lua скрипты | Халява
      • Bug
      • Нравится
    Ответы
    75
    Просмотры
    13K
    Lua
    AnWu
    AnWu
  3. влад динозавр
    Неактуально Информация Гайд Как декомпилировать LUA скрипты
      • Нравится
    Ответы
    24
    Просмотры
    11K
    Lua
    zimerfm
    Z
  4. СоМиК
    Проверено Исполнитель пишу Lua скрипты на заказ | от 100 рублей
      • Нравится
      • Bug
      • Злость
    Ответы
    12
    Просмотры
    3K
    Работа и услуги
    СоМиК
    СоМиК
  5. babulya_headdyson
    Неактуально Софт Lua Protector
      • Нравится
    Ответы
    26
    Просмотры
    16K
    Lua
    Looney Koldyin
    Looney Koldyin
Сверху Снизу