LUA Бесплатная Випка 2022-06-11

Спиздил скрипт, с официального форума gmodonate.

Подобным образом делают тестовые випки, но они не исчезают после покупки, а просто становятся недоступными для повторного использования

Пример:


IGS("Тестовая VIP", "vip_test", 0)
:SetDescription("Тестовая випка на 7 дней")
:SetMaxPlayerPurchases(1)
:SetTerm(7)

Немного объяснения от @W1skarik:


:SetTerm(1) -- донат на один день
:SetMaxGlobalPurchases(iMax) --[[Делает лимитированный предмет.
После максимального числа покупок он скроется с /donate меню ]]
:SetMaxPlayerPurchases(num) (пример 6)
--[[
Устанавливает максимальное количество покупок услуги для игрока.
При SetMaxPlayerPurchases(1) игрок сможет купить эту услугу только один раз,
что полезно для тестовых випок
]]


Вот так выглядит с gmdonate!

У меня скрипт работает по команде в чат!

 

А теперь смотри даты. Так что не гавкай

 

Скинь ссылку на тему в gmdonate.

Я лично делал скрипт этот

if SERVER then
    hook.Add("PlayerSay", "VidachaPlatinum", function(ply, text)
        if text == "!vip" then
            if ply:GetUserGroup() == "user" then
                if file.Exists("free_vips/" .. ply:SteamID64() .. ".txt", "DATA") == true then return "" end
                file.CreateDir("free_vips")
                local date = os.time() + 172800
                file.Write("free_vips/" .. ply:SteamID64() .. ".txt", date)
                RunConsoleCommand("sam", "setrank", ply:Name(), "vip", "1440", "user")
                ply:ChatPrint("Вы получили VIP на 24 часа!")

                return ""
            else
                ply:ChatPrint("У вас уже есть привилегия!")

                return ""
            end
        end
    end)
end

if SERVER then
    hook.Add("PlayerSay", "VidachaPlatinum", function(ply, text)
        if text == "!vip" then
            if ply:GetUserGroup() == "user" then
                if file.Exists("free_vips/" .. ply:SteamID64() .. ".txt", "DATA") == true then return "" end
                file.CreateDir("free_vips")
                local date = os.time() + 172800
                file.Write("free_vips/" .. ply:SteamID64() .. ".txt", date)
                RunConsoleCommand("sam", "setrank", ply:Name(), "vip", "1440", "user")
                ply:ChatPrint("Вы получили VIP на 24 часа!")

                return ""
            else
                ply:ChatPrint("У вас уже есть привилегия!")

                return ""
            end
        end
    end)
end

 

разницы нету от слова совсем

 

Tako добавил(а) новый ресурс:

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



Узнать больше об этом ресурсе...

взято со сброки Гамбита