[[
 Code write by Yolos. Permissions to use only by agree from Yolos.
]]

function RGBToHex(red, green, blue, alpha)
    if ( (red < 0 or red > 255 or green < 0 or green > 255 or blue < 0 or blue > 255) or (alpha and (alpha < 0 or alpha > 255) ) ) then
        return nil
    end
    if ( alpha ) then
        return string.format("#%.2X%.2X%.2X%.2X", red,green,blue,alpha)
    else
        return string.format("#%.2X%.2X%.2X", red,green,blue)
    end
end
    
function getPremiumDate(plr)
    local queryA=exports['ogrpg-db']:dbGet("SELECT * FROM ogrpg_users WHERE id=? AND premiumdate>NOW() LIMIT 1", getElementData(plr,"player:uid"))
    if (queryA and #queryA > 0) then
        return queryA[1].premiumdate
    end
    return false
end


function setPremiumDay(plr,days)
    if getPremiumDate(plr) then
    local queryA=exports['ogrpg-db']:dbSet(string.format("UPDATE ogrpg_users SET premiumdate = DATE(premiumdate) + INTERVAL %d DAY WHERE id=%d",days,getElementData(plr,"player:uid")))
    return end
    local queryA=exports['ogrpg-db']:dbSet(string.format("UPDATE ogrpg_users SET premiumdate = DATE(curdate()) + INTERVAL %d DAY WHERE id=%d",days,getElementData(plr,"player:uid")))
end

addEvent("premiumActive", true)
addEventHandler("premiumActive", root, function(code,amount,number)
    if not code then return end
    outputDebugString(code..":"..amount)
    local x=exports['ogrpg-db']:dbGet("SELECT * from ogrpg_premium_code where code=?",code)
    if x and #x > 0 then
        if x[1].active < 1 then outputChatBox("*B?&#8218;?&#8482;dny -Kod",client) return end
        local xamount = tonumber(x[1].amount)
        if xamount == tonumber(amount) then
        exports['ogrpg-db']:dbSet("UPDATE ogrpg_premium_code set active=0,active_date=NOW(),active_uid=? where code=?",getElementData(client,"player:uid"),code)
        -- BRAK PROMOCJI -- if tonumber(amount) == 4354 then amount = 15 else amount = 30 end
        if tonumber(amount) == 5098 then 
        amount = 1
        elseif tonumber(amount) == 5102 then 
        amount = 7
        elseif tonumber(amount) == 4364 then 
        amount = 30
        elseif tonumber(amount) == 5103 then 
        amount = 45
        end
        setPremiumDay(client,amount)
        setElementData(client,"player:premium",true)
        outputChatBox("Kupiono konto premium na "..amount.." dni! Weso?&#8218;ego dnia !", client)
        triggerEvent("load:player",root,client)
        triggerEvent("save:player",root,client)
        else
        outputChatBox("B?&#8218;?&#8482;dny ekod",client) return
        end
    return end
    local query=string.format("http://microsms.pl/api/check.php?userid=5381&number=%s&code=%s&serviceid=%s", number,code,amount)
    fetchRemote( query, result,"",false, client,amount,number)
end)

function result(responseData, errno, playerToReceive,amount)
    if errno == 0 then
  local x = split(responseData,",")
    if not x then return end
    if string.find(x[1],"1") then
        --BRAK PRMOCJI -- if tonumber(amount) == 4354 then amount = 15 else amount = 30 end
        if tonumber(amount) == 5098 then 
        amount = 1
        elseif tonumber(amount) == 5102 then 
        amount = 7
        elseif tonumber(amount) == 4364 then 
        amount = 30
        elseif tonumber(amount) == 5103 then 
        amount = 45
        end
        setPremiumDay(playerToReceive,amount)
        outputChatBox("Kupiono konto premium na "..amount.." dni! Weso?&#8218;ego dnia !", playerToReceive)
    --`    setElementData(playerToReceive,"player:premium", true)
        triggerEvent("load:player",root,playerToReceive)
        triggerEvent("save:player",root,playerToReceive)
    else
        outputChatBox("B?&#8218;?&#8482;dny Kod ("..responseData..")", playerToReceive)
--        outputChatBox("*B?&#8218;?&#8482;dny Kod", client)
    end
    end
end

addCommandHandler("dajp",function(plr,cmd,cel,dni)
    if exports['dutyadmin']:getAdmin(plr,5) then
    if not cel then outputChatBox("/dajp [gracz] [dni]",plr) return end
    if not dni then outputChatBox("/dajp [gracz] [dni]",plr) return end
    if not tonumber(dni) then outputChatBox("/dajp [gracz] [dni]",plr) return end
        local target=exports["ogrpg-core"]:findPlayer(plr,cel)
        if not target then
            outputChatBox("* Nie znaleziono podanego gracza.", plr, 255, 0, 0)
            return
        end
        setPremiumDay(target,dni)
        outputChatBox("Nadano konto Premium na "..dni.." dni dla "..getPlayerName(target):gsub("#%x%x%x%x%x%x",""), plr)
        outputChatBox("Otrzymales konto Premium na "..dni.." dni od "..getPlayerName(plr):gsub("#%x%x%x%x%x%x",""), target)
        setElementData(target,"player:premium",true)
        triggerEvent("load:player",root,target)
        triggerEvent("save:player",root,target)
    end
end)

addCommandHandler("losujp",function(plr)
    if exports['dutyadmin']:getAdmin(plr,5) then
    local los = getRandomPlayer()
    if not los then return end
        setPremiumDay(los,15)
        outputChatBox("Losowanie konta Premium na 15 dzie?&#8222;..", root)
        outputChatBox("Losowe konto PREMIUM otrzymuje gracz o nicku "..getPlayerName(los):gsub("#%x%x%x%x%x%x","").." na 15 dzie?&#8222;", root)
        outputChatBox("Otrzymales konto Premium na 15 dzie?&#8222;.", los)
        setElementData(los,"player:premium",true)
        triggerEvent("load:player",root,los)
        triggerEvent("save:player",root,los)
    end
end)

addCommandHandler("losujp2",function(plr)
    if exports['dutyadmin']:getAdmin(plr,5) then
    local los2 = getRandomPlayer()
    if not los2 then return end
        setPremiumDay(los2,30)
        outputChatBox("Losowanie konta Premium na 30 dni..", root)
        outputChatBox("Losowe konto PREMIUM otrzymuje gracz o nicku "..getPlayerName(los2):gsub("#%x%x%x%x%x%x","").." na 30 dni!", root)
        outputChatBox("Otrzymales konto Premium na 30 dni.", los2)
        setElementData(los2,"player:premium",true)
        triggerEvent("load:player",root,los2)
        triggerEvent("save:player",root,los2)
    end
end)

addCommandHandler("losujp3",function(plr, cmd, dni)
    if exports['dutyadmin']:getAdmin(plr,5) then
    if not dni then outputChatBox("/losujp3 [dni]",plr) return end
    if not tonumber(dni) then outputChatBox("/losujp3 [dni]",plr) return end
    for k,v in ipairs(getElementsByType ( "player" )) do
    if not getElementData(v, "player:uid") then return end
        setPremiumDay(v,dni)
        setElementData(v,"player:premium",true)
        triggerEvent("load:player",root,v)
        triggerEvent("save:player",root,v)
        gracze=v
        --outputChatBox("Z powodu dobrego humoru "..getPlayerName(plr):gsub("#%x%x%x%x%x%x","")..", ca?&#8218;y serwer otrzyma?&#8218; Premium na "..dni.." dzie?&#8222;/dni!", root, 0, 192, 255)
    end
end
end)    

addCommandHandler("losujp3",function(plr,cmd,dni)
if exports['dutyadmin']:getAdmin(plr,5) then
outputChatBox("Z powodu dobrego humoru "..getPlayerName(plr):gsub("#%x%x%x%x%x%x","")..", ca?&#8218;y serwer otrzyma?&#8218; Premium na "..dni.." dzie?&#8222;/dni!", root, 0, 192, 255)
end
end)


addCommandHandler("wekp",function(plr,cmd,cel,dni)
    if exports['dutyadmin']:getAdmin(plr,5) then
    if not cel then outputChatBox("/wekp [gracz] [dni]",plr) return end
    if not dni then outputChatBox("/wekp [gracz] [dni]",plr) return end
    if not tonumber(dni) then outputChatBox("/wekp [gracz] [dni]",plr) return end
        local target=exports["ogrpg-core"]:findPlayer(plr,cel)
        if not target then
            outputChatBox("* Nie znaleziono podanego gracza.", plr, 255, 0, 0)
            return
        end
        setPremiumDay(target,dni)
        outputChatBox("#00FF00Gratulacje! #6666CCGracz #000033"..getPlayerName(target):gsub("#%x%x%x%x%x%x","").."#00CCCC wygrywa #FFFF00Konto Premium #9932CDna #660000"..dni.." #FF0000Dni", root,0,0,255,true)
        outputChatBox("#00FF66?&#187;yczymy mi?&#8218;ego korzystania z Konta Premium ",root,0,0,255,true)
        setElementData(target,"player:premium",true)
        triggerEvent("load:player",root,target)
        triggerEvent("save:player",root,target)
    end
end)