Lua [ARZ]Для Лидеров Семей

[Стэнфорд]

Мега простой скрипт.
Функции:
Автопиар собеса в вип чате (кд 5 минут), активация /piar номер телефона (название семьи можно поменять через код (вы найдете где)
Вместо /faiminvite id теперь можно писать просто /i id
Автопоздравление с др, если кто-то из фамы получил новый уровень!​

 

[chapo]

1. что с табуляцией, и что это:

2. можно обойтись без 4 строки (local nomer,phon,arg2 = 0)
3. зачем дублировать эту строку 4 раза, если тебе будет писать "не флуди"?

4. сделал бы название фамы в переменную (или через .ini), что бы не менять в каждой строке.

---

вот, немного доработал (может что-то не заметил и может не работать):

----------------SETTINGS----------------
local FAM_NAME = 'Название вашей семьи'
local leader_number = '123456'
----------------------------------------
local sampev = require'lib.samp.events'
local piar = false

function main()
    if not isSampfuncsLoaded() or not isSampLoaded() then return end
    while not isSampAvailable() do wait(100) end
    sampAddChatMessage(string.format("[Stanford Stealer Scripts]: {FFFFFF} Успешно загружен!"), 0x8A5EB6 )
    sampRegisterChatCommand("piar", cmd_piar)
    sampRegisterChatCommand("i", cmd_i)
    while true do
        wait(1)
        if piar == true then
            wait(300100)
            sampSendChat('/vr Инвайчу в фулл фаму '..FAM_NAME..'. Деп не трогаем. Звони: '..leader_number)
        end
    end
end

function sampev.onServerMessage(color, msg)
    if msg:find('уровня. В семью начислен опыт.') then
        sampSendChat("/fam Руководство семьи "..FAM_NAME.." поздравляет тебя с Днем Рождения!)",0x00FF00)
        return(true)
    end
end
   
function cmd_piar(nomer)
    piar = not piar
    leader_number = nomer
    if piar == true then
        sampAddChatMessage("Автопиар фамы включен", 0x00FF00)
    else
        sampAddChatMessage("Автопиар фамы выключен", 0xFF0000)
    end
end
   
function cmd_i(arg2)
    sampSendChat('/faminvite '..arg2)
end

 

[kizn]

1. что с табуляцией, и что это:
Посмотреть вложение 79266
2. можно обойтись без 4 строки (local nomer,phon,arg2 = 0)
3. зачем дублировать эту строку 4 раза, если тебе будет писать "не флуди"?Посмотреть вложение 79267
4. сделал бы название фамы в переменную (или через .ini), что бы не менять в каждой строке.

---

вот, немного доработал (может что-то не заметил и может не работать):

----------------SETTINGS----------------
local FAM_NAME = 'Название вашей семьи'
local leader_number = '123456'
----------------------------------------
local sampev = require'lib.samp.events'
local piar = false

function main()
    if not isSampfuncsLoaded() or not isSampLoaded() then return end
    while not isSampAvailable() do wait(100) end
    sampAddChatMessage(string.format("[Stanford Stealer Scripts]: {FFFFFF} Успешно загружен!"), 0x8A5EB6 )
    sampRegisterChatCommand("piar", cmd_piar)
    sampRegisterChatCommand("i", cmd_i)
    while true do
        wait(1)
        if piar == true then
            wait (300100)
            sampSendChat('/vr Инвайчу в фулл фаму '..FAM_NAME..'. Деп не трогаем. Звони: '..leader_number)
        end
    end
end

function sampev.onServerMessage(color, msg)
    if msg:find('уровня. В семью начислен опыт.') then
        sampSendChat("/fam Руководство семьи "..FAM_NAME.." поздравляет тебя с Днем Рождения!)",0x00FF00)
        return(true)
    end
end
   
function cmd_piar(nomer)
    piar = not piar
    leader_number = nomer
    if piar == true then
        sampAddChatMessage("Автопиар фамы включен", 0x00FF00)
    else
        sampAddChatMessage("Автопиар фамы выключен", 0xFF0000)
    end
end
   
function cmd_i(arg2)
    sampSendChat('/faminvite '..arg2)
end

wait (300100)
пробел лишний тут

 

[Стэнфорд]

1. что с табуляцией, и что это:
Посмотреть вложение 79266
2. можно обойтись без 4 строки (local nomer,phon,arg2 = 0)
3. зачем дублировать эту строку 4 раза, если тебе будет писать "не флуди"?Посмотреть вложение 79267
4. сделал бы название фамы в переменную (или через .ini), что бы не менять в каждой строке.

---

вот, немного доработал (может что-то не заметил и может не работать):

----------------SETTINGS----------------
local FAM_NAME = 'Название вашей семьи'
local leader_number = '123456'
----------------------------------------
local sampev = require'lib.samp.events'
local piar = false

function main()
    if not isSampfuncsLoaded() or not isSampLoaded() then return end
    while not isSampAvailable() do wait(100) end
    sampAddChatMessage(string.format("[Stanford Stealer Scripts]: {FFFFFF} Успешно загружен!"), 0x8A5EB6 )
    sampRegisterChatCommand("piar", cmd_piar)
    sampRegisterChatCommand("i", cmd_i)
    while true do
        wait(1)
        if piar == true then
            wait (300100)
            sampSendChat('/vr Инвайчу в фулл фаму '..FAM_NAME..'. Деп не трогаем. Звони: '..leader_number)
        end
    end
end

function sampev.onServerMessage(color, msg)
    if msg:find('уровня. В семью начислен опыт.') then
        sampSendChat("/fam Руководство семьи "..FAM_NAME.." поздравляет тебя с Днем Рождения!)",0x00FF00)
        return(true)
    end
end
   
function cmd_piar(nomer)
    piar = not piar
    leader_number = nomer
    if piar == true then
        sampAddChatMessage("Автопиар фамы включен", 0x00FF00)
    else
        sampAddChatMessage("Автопиар фамы выключен", 0xFF0000)
    end
end
   
function cmd_i(arg2)
    sampSendChat('/faminvite '..arg2)
end

4 раза отправляется сообщение, т.к. на АРЗ баг, когда пишешь в вип чат, а тебе пишет "Подождите 1 секунду перде отправкой сообщения". из 4 отправленных сообщения 100% 1 из точно дойдет, несмотря на баг

 

[chapo]

4 раза отправляется сообщение, т.к. на АРЗ баг, когда пишешь в вип чат, а тебе пишет "Подождите 1 секунду перде отправкой сообщения". из 4 отправленных сообщения 100% 1 из точно дойдет, несмотря на баг

тогда для повторной отправки лучше юзать onServerMessage

function main()
    --code
    if piar then
        wait(300100)
        checkmsg = true
        sampSendChat('/vr Инвайчу в фулл фаму '..FAM_NAME..'. Деп не трогаем. Звони: '..leader_number)
    end
end

function sampev.onServerMessage(color, text)
    if checkmsg then
        if text:find('сообщение об ошибке') then
            sampSendChat('/vr Инвайчу в фулл фаму '..FAM_NAME..'. Деп не трогаем. Звони: '..leader_number)
        end
    end
end