Lua [ARZ] AFK Zarplata - автопереодевание после входа UPD 23.06.23

kykla228

Участник
41
5
Будет работать на раксамп? Если сначала настроить на сборке
 

MrRazrab

Известный
Автор темы
481
238
потому что для взятия нужно быть на координатах пикапа, для этого нужно тепнуться туда
нет бро, эта функция работает. просто задержку побольше надо поставить

но мне лень писать 3 строки кода с задержкой
 

nedoros

Участник
51
3
нет бро, эта функция работает. просто задержку побольше надо поставить

но мне лень писать 3 строки кода с задержкой
ыыы:
function main()
    repeat wait(0) until isSampAvailable()
    wait(2000)
    sampRegisterChatCommand('autozp', saveToIni)
    sampRegisterChatCommand('savepick', saveCoordinates)
    msg('Загружен')
    loadFromIni()
   
    while true do
        wait(0)
        if state then
            wait(2000)
            local iniFile = io.open(iniPath, "r")
            for line in iniFile:lines() do
                local key, value = line:match("(%a+)=(-?%d+%.?%d*)")
                if key and value then
                    if key == "pick" then
                        aaaaaaa = tonumber(value)
                    end
                end
            end
            iniFile:close()
            sampSendPickedUpPickup(aaaaaaa)
            msg('Переоделся')
            state = false
        end
    end
end

function saveToIni()
    value = not value
    local file = io.open(iniPath2, "w")
    file:write(string.format("value=%s", tostring(value)))
    file:close()

    if value then
        msg('Включено')
    else
        msg('Выключено')
    end
end

function loadFromIni()
    local file = io.open(iniPath2, "r")
    for line in file:lines() do
        local key, val = line:match("(%a+)=(.-)$")
        if key == 'value' then
            value = val
        end
    end
    value = stringtoboolean[value]
    file:close()
end

function saveCoordinates() -- Сохранить корды пикапа
    local plx, ply, plz = getCharCoordinates(PLAYER_PED)
    local precent = 0
    local xxx, yyy, zzz = 0, 0, 0
    os.remove(iniPath)
    for id = 0, 6095 do
        local pickup = sampGetPickupHandleBySampId(id)
        local x, y, z = getPickupCoordinates(pickup)
        if x ~= 0 and z ~= 17.5 then
            local d = math.sqrt((x - plx)^2 + (y - ply)^2 + (z - plz)^2)
            local percent_similarity = 100 - (d / 30000) * 100
            if percent_similarity > precent then
                precent = percent_similarity
                xxx, yyy, zzz = x, y, z
                aaaaaaa = id
            end
        end
    end
    local iniFile = io.open(iniPath, "a+")
    iniFile:write(string.format("pick=%f\n", aaaaaaa))
    iniFile:close()
    msg('Сохранил')
end

function msg(message) -- Вывод текста в чат
    local tag = '{0000FF}[NEW afkZP]: {FFCC00}'
    sampAddChatMessage(tag .. message, -1)
end

function sampev.onServerMessage(color, text) -- Проверить подключение к серверу
    if value then
        if (text:find("На сервере есть инвентарь")) then
            state = true
           
        end
    end
end

function sampev.onShowDialog(id, style, title, button1, button2, tekst) -- На диалог переодевания
    if value then
        if tekst:find('Переодется в {31853A}рабочую{FFFFFF} форму.') then
            lua_thread.create(function()
                wait(60)
                local listbox = sampGetListboxItemByText('Переодется в {31853A}рабочую{FFFFFF} форму.')
                sampSendDialogResponse(id, 1, listbox, nil)
                sampCloseCurrentDialogWithButton(0)
            end)
        elseif tekst:find('Переодеться') then
            lua_thread.create(function()
                wait(60)
                local listbox = sampGetListboxItemByText('Переодеться')
                sampSendDialogResponse(id, 1, listbox, nil)
                sampCloseCurrentDialogWithButton(0)
            end)
        end
    end
end
function sampGetListboxItemByText(text, plain)
    if not sampIsDialogActive() then return -1 end
        plain = not (plain == false)
    for i = 0, sampGetListboxItemsCount() - 1 do
        if sampGetListboxItemText(i):find(text, 1, plain) then
            return i
        end
    end
    return -1
end
просто скажи где они, я сам поменяю
 

s3lfdes7ruct

Новичок
3
0
добавь проверку на текст, чтобы персонаж не переодевался в том случае когда персонаж уже одет в рабочую форму
 

#Kingston

Активный
365
66
если ли какие нибудь зависимости? в мунлоадер закинул, вообще ни одна команда не робит
 

MrDorlik

Известный
957
385
если ли какие нибудь зависимости? в мунлоадер закинул, вообще ни одна команда не робит
к наркологу приди он тебе скажет есть зависимость или нет. а если ты про скрипт, то открой консоль и посмотри, как сложно 1 кнопку нажать
 

gamefixer?

Известный
562
219
Пиздец, снесли за старую версию(та, где перс сам идет) по айпи а то есть 630 дней. На акке 1+лярд был.. Никому не рекомендую.
Поэтому данная тема и весит в разделе "читы", использовать нужно с умом, ставив задержку автореконнекта на 500 секунд и более, дабы вычислить было труднее. (не думаю , что тебя снесли просто с 1го захода в игру)
Пробуй писать амнистию, может пойдут на уступки.
1700068643014.png