local function Mg(player)
    local CheckVipl = WorldDBQuery("SELECT `vip` FROM logon.accounts WHERE `login` = '"..player:GetAccountName().."';");
    if CheckVipl then
        local Vip = CheckVipl:GetColumn(0):GetLong()
        local a = (5*Vip)
        WorldDBQuery("UPDATE logon.accounts SET `mg` = `mg` + "..a.." WHERE `login` = '"..player:GetAccountName().."' LIMIT 1; ")
        player:SendBroadcastMessage("+"..a.."mg earned.")
    end
end

local function Players_Count()
    for _,v in pairs(GetPlayersInWorld()) do
        if(v and v:IsInWorld()) then
            Mg(v)
        end
    end
end

RegisterTimedEvent(Players_Count, 1800000, 0)
-- 60000 = 1 minute
-- 1800000 = 30 minutes