ni?ej przesy?am server.lua

--System VIP wykonany przez Tysiek <mail:karolp0312@gmail.com>
--Dla projektu 4FUN PSZ MTA.
--Zakaz u?ywania skryptu bez mojej zogody.
--Wszystkie prawa zastrze?one.

--premia


-- Kamizelka i zdrowie

function kamizelka(plr,cmd,...)
    local account = getPlayerAccount(plr)
    local accname = getAccountName(account)
    if isObjectInACLGroup("user."..accname, aclGetGroup("VIP")) then
    setPedArmor(plr, 100)
    outputChatBox("[4FuN VIP] U?y?es kamizelki!", plr, 171, 207, 0)
    end
end
addCommandHandler("viparmor",kamizelka)

function uleczanie(plr,cmd,...)
    local account = getPlayerAccount(plr)
    local accname = getAccountName(account)
    if isObjectInACLGroup("user."..accname, aclGetGroup("VIP")) then
    setElementHealth (plr, 100)
    outputChatBox("[4FuN VIP] Uleczy?e? si?!", plr, 171, 207, 0)
    end
end
addCommandHandler("viphealth",uleczanie)

--NameTag


addEventHandler ( 'onPlayerLogin', function(plr)
local account = getPlayerAccount(plr)
local accname = getAccountName(account)
if isObjectInACLGroup("user."..accname, aclGetGroup("VIP")) then
 setElementData(plr,"premium")
 outputChatBox("[4FuN VIP] Posiadasz aktywne konto VIP.", plr, 171, 207, 0)
 setPlayerNametagColor(plr, 171, 207, 0)
end
end)





--Chat

addCommandHandler("v", function(plr, cmd, ...)
if isObjectInACLGroup("user."..getAccountName(getPlayerAccount(plr)), aclGetGroup("VIP")) then
if ... then
    local msg = table.concat({...}, " ")
    for k, v in ipairs(getElementsByType("player")) do
        if isObjectInACLGroup("user."..getAccountName(getPlayerAccount(v)), aclGetGroup("VIP")) then
            outputChatBox("#ffff33[VIP CHAT] >> #FF0000"..getPlayerName(plr).."#FFFFFF: "..msg, v,255,255,255,true)
        end
    end
end
end
end)



--[[ Premia pieni?zna ]]--
function dajKase(plr)
if getElementData(plr, "premium") then else return end
givePlayerMoney(plr, 10000)
outputChatBox("[4FuN VIP] Otrzymujesz premi? w ilo?ci 10000PLN za konto premium.", plr)
end
setTimer(dajKase, 1000, 0)



hydraStat = false
--[[ Premia pieni?zna ]]--
function getHydra(plr)
local account = getPlayerAccount(plr)
local accname = getAccountName(account)
if isObjectInACLGroup("user."..accname, aclGetGroup("VIP")) then
        if hydraStat == false then
    x,y,z = getElementPosition(plr)
    hydra = createVehicle(520, x, y, z+1)
    warpPedIntoVehicle(plr, hydra, 0)
    hydraStat = true
        else
        outputChatBox("[4FuN VIP] Mo?esz repspi? hydre tylko co 5 minut!", plr, 171, 207, 0)
        end
else 
outputChatBox("Nie posiadasz 4FuN VIP'a!", plr, 171, 207, 0)
end
end
addCommandHandler("hydra", getHydra)

setTimer(function()
hydra = false
end, 3000000, 0)



--Inormacje

function info(plr)
outputChatBox("**************************************", plr, 0, 255, 255)
outputChatBox("Koszt SMS: 7d 3.69z?, 14d 7z?, 30d, 11.07z?.", plr, 171, 207, 0)
outputChatBox("Koszt PSC: 30d 20z?, 60d 40 z?.", plr, 171, 207, 0)
outputChatBox("Mo?liwo?ci: uleczanie, kamizelka, pojazd hydra, premia co 1h oraz chat vip.", plr, 171, 207, 0)
outputChatBox("VIP'a mo?na kupi? o Administratora ROOT Tysiek.", plr, 171, 207, 0)
outputChatBox("**************************************", plr, 0, 255, 255)
end
addCommandHandler("vipinfo", info)

setTimer(function(plr)
restartResource(getThisResource())
end, 3600000, 0)

---
function giveVIPperm (playerSource, commandName, accountName)
if isObjectInACLGroup ( "user." ..getAccountName(getPlayerAccount(playerSource)), aclGetGroup ("Admin")) then else return end
    if accountName then
        aclGroupAddObject (aclGetGroup("VIP"), "user."..accountName)
        outputChatBox ("Konto '"..accountName.."' otrzyma?o premisje 4FuN VIP.", playerSource)
    else
        outputChatBox ("Co? posz?o nie tak.. /dajvipa <login>", playerSource)
    end
end
addCommandHandler ("dajvipa", giveVIPperm)