Lua Klans Drugs (Настраиваемый AutoDrugs для SAMP 0.3.7)

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

Kapa211

Новичок
Автор темы
25
11
Описание: Простенький autodrugs с настроичками
Команды: /kadhelp
Автор: Kapa211
upd: Теперь до задержки вас будет информировать что наркотики использованы а после задержки о том что срипт готов к работе плюс пофиксил флуд наркотиками при /kadhp 100 (Качать klansdrugsfixed.lua и кстати это возможно последнее обновление так как добавлять больше нечего)
Lua:
script_name("Klans ADrugs")
script_author("Kapa211")
script_description("/kadtime /kadhp /kadsbiv /kaddrugs")

kadtimes = 10000
kadhps = 15
kadsbiver = false
kaddrugss = 3


function kadtime(param)
    if tonumber(param) == nil then
        sampAddChatMessage("Надо ввести число Пример: /kadtime 10", 0x8A2BE2)
    else
        kadtimes = tonumber(param) * 1000
        sampAddChatMessage("Сейчас задержка перед использованием " .. param .. " секунд", 0x8A2BE2)
    end
end


function kadhp(param)
    if tonumber(param) == nil then
        sampAddChatMessage("Надо ввести число Пример: /kadhp 30", 0x8A2BE2)
    else
        if tonumber(param) == 100 then
            kadhps = tonumber(param - 1)
            sampAddChatMessage("Сейчас уровень жизни для использования " .. param .. " хп", 0x8A2BE2)
        else
            kadhps = tonumber(param)
            sampAddChatMessage("Сейчас уровень жизни для использования " .. param .. " хп", 0x8A2BE2)
        end
    end
end


function kadsbiv()
    if kadsbiver == false then
        kadsbiver = true
        sampAddChatMessage("Сбив включён", 0x8A2BE2)
    else
        kadsbiver = false
        sampAddChatMessage("Сбив выключён", 0x8A2BE2)
    end
end


function kadhelp()
    sampAddChatMessage("/kadhp - установить еиже какого уровня использовать скрипт", 0x8A2BE2)
    sampAddChatMessage("/kadtimes - установить уровень задержики перед повторным юзанием", 0x8A2BE2)
    sampAddChatMessage("/kadsbiv - включить/выключить сбив", 0x8A2BE2)
    sampAddChatMessage("/kaddrugs - кол-во наркотиков для использования", 0x8A2BE2)
end
function kaddrugs(param)
    if tonumber(param) == nil then
        sampAddChatMessage("Надо ввести число Пример: /kaddrugs 3", 0x8A2BE2)
    else
        kaddrugss = tonumber(param)
        sampAddChatMessage("Сейчас кол-во наркотиков для использования " .. param .. "ед", 0x8A2BE2)
    end
end



function main()
    while not isSampAvailable()    do
        wait(100)
    end
    sampAddChatMessage("Klans ADrugs успешно запущен!", 0x8A2BE2)
    sampAddChatMessage("Команды скрипта: /kadhelp", 0x8A2BE2)
    sampRegisterChatCommand("kadtime", kadtime)
    sampRegisterChatCommand("kadhelp", kadhelp)
    sampRegisterChatCommand("kadhp", kadhp)
    sampRegisterChatCommand("kadsbiv", kadsbiv)
    sampRegisterChatCommand("kaddrugs", kaddrugs)
    while true do
        wait(1)
        local dhp = getCharHealth(playerPed)
        if dhp <= kadhps then
            sampSendChat("/usedrugs " .. tostring(kaddrugss))
            if kadsbiver == true then
                clearCharTasks(playerPed)
            end
            sampAddChatMessage("Хп менше или равно " .. tostring(kadhps) .. " используем " .. tostring(kaddrugss) .. "ед" .. " нарко остерегайтесь урона в течении " .. tostring(kadtimes / 1000) .. " секунд.", 0x8A2BE2)
            wait(kadtimes)
            sampAddChatMessage("Klans Drugs готов к работе", 0x8A2BE2)
        end
    end
end
 

Вложения

  • klansdrugs.lua
    2.2 KB · Просмотры: 114
  • klansdrugsfixed.lua
    2.7 KB · Просмотры: 196
Последнее редактирование:
  • Нравится
Реакции: eiuhuth

AnWu

Известный
Всефорумный модератор
4,306
4,180
Автор: Капа и бх. ибо сам ты полную дичь написал)
 
  • Нравится
Реакции: (-_-)

AnWu

Известный
Всефорумный модератор
4,306
4,180
Все с чего то начинали)
я ничуть не критикую. за желание учиться нельзя критиковать

задачку сложнее хочешь? напиши авто вход дл срп. научишься грамотному коду и интересной идее. сохраняй пароль в ини. я скоро сам напишу, но если сделаешь - будет твоим достижением ;)
 
Последнее редактирование модератором:
  • Нравится
Реакции: eiuhuth

4el0ve4ik

Жыве Беларусь!
Всефорумный модератор
1,529
1,235
я ничуть не критикую. за желание учиться нельзя критиковать

задачку сложнее хочешь? напиши авто вход дл срп. научишься грамотному коду и интересной идее. сохраняй пароль в ини. я скоро сам напишу, но если сделаешь - будет твоим достижением ;)
Очень глупо хранить пароли в ини, если только не шифровать, ну или ты не подпускаешь никого к своему компу)
 

AnWu

Известный
Всефорумный модератор
4,306
4,180
Очень глупо хранить пароли в ини, если только не шифровать, ну или ты не подпускаешь никого к своему компу)
я не подпускаю. этот ини хранится у юзвера. тот кто получит контроль над пк так или иначе получит всё
 
  • Нравится
Реакции: eazyWe
Статус
В этой теме нельзя размещать новые ответы.