include('shared.lua')

function ENT:Draw()
    self:DrawModel()
end

surface.CreateFont("SH_ACC_VENDOR_", {font = "Circular Std Bold", size = 22})

net.Receive("AdvertCop",function()
    local pos = net.ReadVector()
    hook.Add("HUDPaint",LocalPlayer():SteamID().."AdvertPaint",function()
        local Position = ( pos + Vector( 0, 0, 25 ) ):ToScreen()
        draw.SimpleTextOutlined( "●","SH_ACC_VENDOR_", Position.x, Position.y - 15, Color( 50,50,255 ) ,TEXT_ALIGN_CENTER, TEXT_ALIGN_CENTER, 1, Color( 25,25,25 ) )
        surface.SetDrawColor(0,0,255)
        surface.SetMaterial(Material("police.png"))
        surface.DrawTexturedRect(Position.x-32,Position.y-100,64,64)
        draw.SimpleTextOutlined(  math.Round( LocalPlayer():GetPos():Distance( pos ) / 10 ) .. "m", "SH_ACC_VENDOR_", Position.x, Position.y, Color( 230,230,230 ), TEXT_ALIGN_CENTER, TEXT_ALIGN_CENTER, 1, Color( 25,25,25 ) )
        if LocalPlayer():GetPos():Distance(pos) < 200 then
            hook.Remove("HUDPaint",LocalPlayer():SteamID().."AdvertPaint")
        end
    end)
end)

surface.CreateFont("ATMTITLEFONT", {
  font = "Roboto",
  size = 22,
  weight = 1000,
  antialias = true
})

surface.CreateFont("ATMText1", {
  font = "Roboto",
  size = 25,
  weight = 1000,
  antialias = true
})

function SizeToClient(x,y)
    local x = x or 0
    local y = y or 0
    return ScrW()*(x/ScrW()), ScrH()*(y/ScrH())
end

local function OpenDark()
    local Cart = {}
    local Frame = vgui.Create("DFrame")
    Frame:SetSize(SizeToClient(1000,500))
    Frame:Center()
    Frame:MakePopup()
    Frame:SetDraggable(false)
    Frame.Paint = function(s,w,h)
        draw.RoundedBox(3,0,0,w,h,Color(37, 36, 35))
        draw.RoundedBox(3,0,h-50,w,50,Color(60, 57, 60))
        draw.RoundedBox(0,150,10,150,10,Color(140,140,140))
        local tr = timer.TimeLeft("OpenDark"..LocalPlayer():Nick()) or 0
        draw.RoundedBox(0,150,10,150*tr/DarkConfig.timeBeforeAdvert,10,Color(158, 16, 24))
    end
    Frame:SetTitle("PC - "..LocalPlayer():Nick().." - DarkNet")
    Frame.OnClose = function()
        net.Start("StopTimerAdvert")
        net.SendToServer()
    end

    local HomeButton = vgui.Create("DButton",Frame)
    HomeButton:SetSize(48,48)
    HomeButton:SetPos(SizeToClient(7, Frame:GetTall()-45))
    HomeButton:SetText("")
    HomeButton:SetTooltip("Accueil")
    HomeButton.Paint = function(s,w,h)
        surface.SetDrawColor(255,255,255)
        surface.SetMaterial(Material("home.png"))
        surface.DrawTexturedRect(0,0,w,h)
    end
    HomeButton.DoClick = function()
        Frame:Close()
        net.Start("OpenCompMenu")
        net.SendToServer()
    end

    local Scroll = vgui.Create( "DScrollPanel", Frame )
    Scroll:SetSize(SizeToClient(Frame:GetWide()-20,Frame:GetTall()-100))
    Scroll:SetPos(SizeToClient(10,30))
    local sbar = Scroll:GetVBar()
    function sbar:Paint( w, h )
    end
    function sbar.btnUp:Paint( w, h )
    end
    function sbar.btnDown:Paint( w, h )
    end
    function sbar.btnGrip:Paint( w, h )
    end

    local Order = vgui.Create("DButton",Frame)
    Order:SetPos(SizeToClient(830, 405))
    Order:SetSize(SizeToClient(150, 30))
    Order:SetText("Acheter")
    Order:SetFont("SH_ACC_VENDOR_")
    Order:SetTextColor(Color(255,255,255))
    Order.Paint = function(_,w,h)
        draw.RoundedBox(0,0,0,w,h,Color(59, 57, 57))
    end
Order.DoClick = function()
        if table.Count(Cart) == 0 then return end
        price = 0
        commande = {}
        for k, v in pairs(DarkRPEntities) do
            quanti = 0
            for k2, v2 in pairs(Cart) do
                if(v.name == v2.name) then
                    quanti = quanti + 1
                end
            end
            d = {
                name = v.name,
                entButton = v.ent,
                quant = quanti,
            }
            table.insert(commande, d)
        end
        for k, v in pairs(Cart) do
            price = price + v.price
        end
        net.Start("commande_buy")
        net.WriteTable(commande)
        net.WriteInt(price, 32)
        net.SendToServer()
        Frame:Close()
    end

    local List = vgui.Create( "DIconLayout", Scroll )
    List:Dock( FILL )
    List:SetSpaceY( 8 )
    List:SetSpaceX( 5 )

    for _,v in pairs(DarkRPEntities) do
        if v.darknet then
            local ListItem = List:Add( "DButton" )
            ListItem:SetSize( SizeToClient(1100,64) )
            ListItem:SetText("")
            ListItem.Paint = function(s,h,w)
                draw.RoundedBox(0,0,0,1100,300,Color(40, 40, 39))
                draw.SimpleText(v.price.."€", "Trebuchet24", 850, 20,Color(240, 238, 231))
                draw.SimpleText(v.name, "Trebuchet24", w-5, 20,Color(240, 238, 231))
            end
            ListItem:SetTooltip(v.name.." - "..v.price.."€")
            ListItem.DoClick = function()
                table.insert(Cart,1,v)
                chat.AddText(v.name, " ajouté(e) au panier")
            end
            local entModel = vgui.Create( "SpawnIcon", ListItem )
            entModel:SetSize( 52, 52 )
            entModel:SetPos( 0, 8 )
            entModel:SetModel( v.model )
            entModel.DoClick = function() ListItem.DoClick() end
            entModel:SetTooltip(v.name.." - "..v.price.."€")
        end
    end
end


local function OpenAmazon()
    local Cart = {}
    local Frame = vgui.Create("DFrame")
    Frame:SetSize(SizeToClient(1000,500))
    Frame:Center()
    Frame:MakePopup()
    Frame:SetDraggable(false)
    Frame.Paint = function(s,w,h)
        draw.RoundedBox(3,0,0,w,h,Color(229, 231, 233))
        draw.RoundedBox(3,0,h-50,w,50,Color(140, 140, 140))
        surface.SetDrawColor(255,255,255)
        surface.SetMaterial(Material("amazon.png"))
        local s,d = SizeToClient(64,64)
        local x,y = SizeToClient(w-70, 20)
        surface.DrawTexturedRect(x,y,s,d)
    end
    Frame:SetTitle("PC - "..LocalPlayer():Nick().." - Amazon")

    local HomeButton = vgui.Create("DButton",Frame)
    HomeButton:SetSize(48,48)
    HomeButton:SetPos(SizeToClient(7, Frame:GetTall()-45))
    HomeButton:SetText("")
    HomeButton:SetTooltip("Accueil")
    HomeButton.DoClick = function()
        Frame:Close()
        net.Start("OpenCompMenu")
        net.SendToServer()
    end
    HomeButton.Paint = function(s,w,h)
        surface.SetDrawColor(255,255,255)
        surface.SetMaterial(Material("home.png"))
        surface.DrawTexturedRect(0,0,w,h)
    end

    local Scroll = vgui.Create( "DScrollPanel", Frame )
    Scroll:SetSize(SizeToClient(Frame:GetWide()-20,Frame:GetTall()-100))
    Scroll:SetPos(SizeToClient(10,30))
    local sbar = Scroll:GetVBar()
    function sbar:Paint( w, h )
    end
    function sbar.btnUp:Paint( w, h )
    end
    function sbar.btnDown:Paint( w, h )
    end
    function sbar.btnGrip:Paint( w, h )
    end


    local Order = vgui.Create("DButton",Frame)
    Order:SetPos(SizeToClient(830, 405))
    Order:SetSize(SizeToClient(150, 30))
    Order:SetText("Acheter")
    Order:SetFont("SH_ACC_VENDOR_")
    Order:SetTextColor(Color(255,255,255))
    Order.Paint = function(_,w,h)
        draw.RoundedBox(0,0,0,w,h,Color(59, 57, 57))
    end
Order.DoClick = function()
        if table.Count(Cart) == 0 then return end
        net.Start("Amazon:Command")
        net.WriteTable(Cart)
        net.SendToServer()
        Frame:Close()
    end

    local List = vgui.Create( "DIconLayout", Scroll )
    List:Dock( FILL )
    List:SetSpaceY( 8 )
    List:SetSpaceX( 5 )

     for _,v in pairs(DarkRPEntities) do
        if v.amazon then
            local ListItem = List:Add( "DButton" )
            ListItem:SetSize( SizeToClient(1100,64) )
            ListItem:SetText("")
            ListItem.Paint = function(s,h,w)
                draw.RoundedBox(0,0,0,1100,300,Color(234, 236, 239))
                draw.SimpleText(v.price.."€", "Trebuchet24", 850, 20,Color(31, 34, 35))
                draw.SimpleText(v.name, "Trebuchet24", w-5, 20,Color(31, 34, 35))
            end
            ListItem:SetTooltip(v.name.." - "..v.price.."€")
            ListItem.DoClick = function()
                table.insert(Cart,1,v)
                chat.AddText(v.name, " ajouté(e) au panier")
            end
            local entModel = vgui.Create( "SpawnIcon", ListItem )
            entModel:SetSize( 52, 52 )
            entModel:SetPos( 0, 8 )
            entModel:SetModel( v.model )
            entModel.DoClick = function() ListItem.DoClick() end
            entModel:SetTooltip(v.name.." - "..v.price.."€")
        end
    end
end


local function OpenIkea()
    local Cart = {}
    local Frame = vgui.Create("DFrame")
    Frame:SetSize(SizeToClient(1000,500))
    Frame:Center()
    Frame:MakePopup()
    Frame:SetDraggable(false)
    Frame.Paint = function(s,w,h)
        draw.RoundedBox(3,0,0,w,h,Color(32,32,32))
        draw.RoundedBox(3,0,h-50,w,50,Color(85,85,85))
        surface.SetDrawColor(255,255,255)
        surface.SetMaterial(Material("ikea.png"))
        local s,d = SizeToClient(64,64)
        local x,y = SizeToClient(w-70, 20)
        surface.DrawTexturedRect(x,y,s,d)
    end
    Frame:SetTitle("PC - "..LocalPlayer():Nick().." - Ikea")

    local HomeButton = vgui.Create("DButton",Frame)
    HomeButton:SetSize(48,48)
    HomeButton:SetPos(SizeToClient(7, Frame:GetTall()-45))
    HomeButton:SetText("")
    HomeButton:SetTooltip("Accueil")
    HomeButton.DoClick = function()
        Frame:Close()
        net.Start("OpenCompMenu")
        net.SendToServer()
    end
    HomeButton.Paint = function(s,w,h)
        surface.SetDrawColor(255,255,255)
        surface.SetMaterial(Material("home.png"))
        surface.DrawTexturedRect(0,0,w,h)
    end

    local Scroll = vgui.Create( "DScrollPanel", Frame )
    Scroll:SetSize(SizeToClient(Frame:GetWide()-20,Frame:GetTall()-100))
    Scroll:SetPos(SizeToClient(10,30))
    local sbar = Scroll:GetVBar()
    function sbar:Paint( w, h )
    end
    function sbar.btnUp:Paint( w, h )
    end
    function sbar.btnDown:Paint( w, h )
    end
    function sbar.btnGrip:Paint( w, h )
    end

    local Order = vgui.Create("DButton",Frame)
    Order:SetPos(SizeToClient(10, 405))
    Order:SetSize(SizeToClient(150, 30))
    Order:SetText("Acheter")
    Order:SetFont("SH_ACC_VENDOR_")
    Order:SetTextColor(Color(255,255,255))
    Order.Paint = function(_,w,h)
        draw.RoundedBox(3,0,0,w,h,Color(59, 57, 57))
    end
    Order.DoClick = function()
        if table.Count(Cart) == 0 then return end
        net.Start("Ikea:Command")
        net.WriteTable(Cart)
        net.SendToServer()
        Frame:Close()
    end

    local List = vgui.Create( "DIconLayout", Scroll )
    List:Dock( FILL )
    List:SetSpaceY( 15 )
    List:SetSpaceX( 30 )

    for k,v in pairs(DarkConfig.propslist) do
        local ListItem = List:Add( "DButton" )
        ListItem:SetSize( SizeToClient(64,64) )
        ListItem:SetText("")
        ListItem.Paint = function(s,h,w)
            draw.RoundedBox(5,0,0,w,h,Color(214, 219, 220))
        end
        ListItem:SetTooltip(v.name.." - "..v.price.."€")
        ListItem.DoClick = function()
            table.insert(Cart, 1, v)
        end
        local entModel = vgui.Create( "SpawnIcon", ListItem )
        entModel:SetSize( 52, 52 )
        entModel:SetPos( 0, 8 )
        entModel:SetModel( k )
        entModel.DoClick = function() ListItem.DoClick() end
        entModel:SetTooltip(v.name.." - "..v.price.."€")
    end
end

local function OpenHitConfMenu(HitMan)
    local name = ""

    local Frame = vgui.Create("DFrame")
    Frame:SetSize(SizeToClient(1000,500))
    Frame:Center()
    Frame:MakePopup()
    Frame:SetDraggable(false)
    Frame.Paint = function(s,w,h)
        draw.RoundedBox(3,0,0,w,h,Color(32,32,32))
        draw.RoundedBox(3,0,h-50,w,50,Color(60, 57, 60))
        surface.SetDrawColor(255,255,255)
        surface.SetMaterial(Material("target.png"))
        local s,d = SizeToClient(64,64)
        local x,y = SizeToClient(w-70, 20)
        surface.DrawTexturedRect(x,y,s,d)

        draw.SimpleText(name,"SH_ACC_VENDOR_",10,10,color_white,TEXT_ALIGN_CENTER)
    end
    Frame:SetTitle("PC - "..LocalPlayer():Nick().." - HitMan Confirmation")

    local HomeButton = vgui.Create("DButton",Frame)
    HomeButton:SetSize(48,48)
    HomeButton:SetPos(SizeToClient(7, Frame:GetTall()-45))
    HomeButton:SetText("")
    HomeButton:SetTooltip("Accueil")
    HomeButton.DoClick = function()
        Frame:Close()
        net.Start("OpenCompMenu")
        net.SendToServer()
    end
    HomeButton.Paint = function(s,w,h)
        surface.SetDrawColor(255,255,255)
        surface.SetMaterial(Material("home.png"))
        surface.DrawTexturedRect(0,0,w,h)
    end

    local icon = vgui.Create( "DModelPanel", Frame )
    icon:SetSize( 500, 500 )
    icon:SetPos(Frame:GetWide()-550, -10)

    local p = vgui.Create("DComboBox",Frame)
    p:SetSize(200,30)
    p:SetPos(10,Frame:GetTall()/2-100)
    for k,v in pairs(player.GetAll()) do
        if v:SteamID() != LocalPlayer():SteamID() and v:SteamID() != HitMan:SteamID() then
            p:AddChoice(v:Nick(),v)
        end
    end
    p.OnSelect = function()
        local _,data = p:GetSelected()
        icon:SetModel(data:GetModel())
    end

    local price = vgui.Create("DTextEntry",Frame)
    price:SetSize(200,30)
    price:SetPos(10, Frame:GetTall()/2-50)
    price:SetText(("Prix..."))

    local choose = vgui.Create("DButton",Frame)
    choose:SetSize(200,30)
    choose:SetPos(10, Frame:GetTall()/2)
    choose:SetText("Valider mon choix !")
    choose.DoClick = function()
        if price:GetValue() == "" or price:GetValue() == "Prix..." then return end
        if p:GetSelected() == nil then return end
        net.Start("PlaceHitStart")
        net.WriteEntity(HitMan)
        local _,p = p:GetSelected()
        net.WriteEntity(p)
        net.WriteString(price:GetValue())
        net.SendToServer()
        Frame:Close()
    end
end

local function OpenHitMenu()
    local HitPlayer = {}
    local index = 1

    for k,v in pairs(player.GetAll()) do
        if team.GetName(v:Team()) == DarkConfig.HitManJob and !v:hasHit() then
            table.insert(HitPlayer, 1, v)
        end
    end

    local count = #HitPlayer

    local name = ""
    if count == 0 then
        name = "Il n'y a pas de Tueur à gage en ville !"
    else
        name = HitPlayer[index]:Nick()
    end

    local Frame = vgui.Create("DFrame")
    Frame:SetSize(SizeToClient(1000,500))
    Frame:Center()
    Frame:MakePopup()
    Frame:SetDraggable(false)
    Frame.Paint = function(s,w,h)
        draw.RoundedBox(3,0,0,w,h,Color(32,32,32))
        draw.RoundedBox(3,0,h-50,w,50,Color(60, 57, 60))
        surface.SetDrawColor(255,255,255)
        surface.SetMaterial(Material("target.png"))
        local s,d = SizeToClient(64,64)
        local x,y = SizeToClient(w-70, 20)
        surface.DrawTexturedRect(x,y,s,d)

        draw.SimpleText(name,"SH_ACC_VENDOR_",w/2,10,color_white,TEXT_ALIGN_CENTER)
    end
    Frame:SetTitle("PC - "..LocalPlayer():Nick().." - HitMan")

    local HomeButton = vgui.Create("DButton",Frame)
    HomeButton:SetSize(48,48)
    HomeButton:SetPos(SizeToClient(7, Frame:GetTall()-45))
    HomeButton:SetText("")
    HomeButton:SetTooltip("Accueil")
    HomeButton.DoClick = function()
        Frame:Close()
        net.Start("OpenCompMenu")
        net.SendToServer()
    end
    HomeButton.Paint = function(s,w,h)
        surface.SetDrawColor(255,255,255)
        surface.SetMaterial(Material("home.png"))
        surface.DrawTexturedRect(0,0,w,h)
    end

    local icon = vgui.Create( "DModelPanel", Frame )
    icon:SetSize( 500, 500 )
    icon:SetPos(Frame:GetWide()/2-250, 0)
    if count != 0 then
        icon:SetModel( HitPlayer[index]:GetModel() )

        if count >= 2 then
            local g = vgui.Create("DButton",Frame)
            g:SetSize(50,50)
            g:SetPos(50,150)
            g:SetText("<")
            g.DoClick = function()
                if index - 1 <= 0 then
                    index = count
                else
                    index = index - 1
                end

                icon:SetModel(HitPlayer[index]:GetModel())
                name = HitPlayer[index]:Nick()
            end

            local d = vgui.Create("DButton",Frame)
            d:SetSize(50,50)
            d:SetPos(Frame:GetWide()-100,150)
            d:SetText(">")
            d.DoClick = function()
                if index + 1 > count then
                    index = 1
                else
                    index = index + 1
                end

                icon:SetModel(HitPlayer[index]:GetModel())
                name = HitPlayer[index]:Nick()
            end
        end

        local choose = vgui.Create("DButton",Frame)
        choose:SetSize(150,30)
        choose:SetPos(Frame:GetWide()-200, Frame:GetTall()-100)
        choose:SetText("L'engager !")
        choose.DoClick = function()
            OpenHitConfMenu(HitPlayer[index])
            Frame:Close()
        end
    end
end

net.Receive("OpenCompMenu",function()
    local Frame = vgui.Create("DFrame")
    Frame:SetSize(SizeToClient(1000,500))
    Frame:Center()
    Frame:MakePopup()
    Frame:SetDraggable(false)
    Frame:SetTitle("PC - "..LocalPlayer():Nick())
    Frame.Paint = function(s,w,h)
        surface.SetDrawColor(255,255,255)
        surface.SetMaterial(Material("wallpaper.jpg"))
        surface.DrawTexturedRect(0,0,w,h)
        draw.RoundedBox(3,0,h-50,w,50,Color(60, 57, 60))

    end

    local Apps = {
        {name = "DarkNet", icon = "dark.png", func = function()
            net.Start("FreezeClient")
            net.SendToServer()
            Frame:Close()
            local ende = CurTime()+3
            hook.Add("HUDPaint","Dark",function()
                draw.RoundedBox(0,ScrW() / 2 - 500/2,ScrH() / 2 - 75/2,500,75,Color(48,48,48,255))

                draw.RoundedBox(0,ScrW() / 2 - 500/2,ScrH() / 2 - 75/2,500,1,Color(0,0,0))
                draw.RoundedBox(0,ScrW() / 2 - 500/2,ScrH() / 2 - 75/2,1,75,Color(0,0,0))

                draw.RoundedBox(0,ScrW() / 2+ 500/2,ScrH() / 2 - 75/2,1,75,Color(0,0,0))
                draw.RoundedBox(0,ScrW() / 2 - 500/2,ScrH() / 2 + 75/2,500,1,Color(0,0,0))

                draw.RoundedBox(0,ScrW() / 2 - 500/2,ScrH() /2 - 73 / 2 - 1,(ende - CurTime())*168,75,Color(0,0,0,200))
            end)
            timer.Simple(3,function()
                hook.Remove("HUDPaint","Dark")
                OpenDark()
                net.Start("OpenDark")
                net.SendToServer()
                timer.Create("OpenDark"..LocalPlayer():Nick(), DarkConfig.timeBeforeAdvert, 1, function() end)
            end)
        end},
        {name = "Amazon", icon = "amazon.png", func = function()
            OpenAmazon()
            Frame:Close()
        end},
        {name = "Ikea", icon = "ikea.png", func = function()
            OpenIkea()
            Frame:Close()
        end},
        {name = "EasySolution", icon = "target.png", func = function()
            OpenHitMenu()
            Frame:Close()
        end},
        {name = "Discord", icon = "discord.png", func = function()
            gui.OpenURL("https://discord.gg/cjEPvwU")
            Frame:Close()
        end},
        {name = "Google", icon = "google.png", func = function()
            gui.OpenURL("https://google.fr/")
            Frame:Close()
        end},
    }

    local HomeButton = vgui.Create("DButton",Frame)
    HomeButton:SetSize(48,48)
    HomeButton:SetPos(SizeToClient(7, Frame:GetTall()-45))
    HomeButton:SetText("")
    HomeButton:SetTooltip("Accueil")
    HomeButton.Paint = function(s,w,h)
        surface.SetDrawColor(255,255,255)
        surface.SetMaterial(Material("home.png"))
        surface.DrawTexturedRect(0,0,w,h)
    end
    HomeButton.DoClick = function()
        Frame:Close()
        net.Start("OpenCompMenu")
        net.SendToServer()
    end

    local Scroll = vgui.Create( "DScrollPanel", Frame )
    Scroll:SetSize(SizeToClient(Frame:GetWide()-20,Frame:GetTall()-100))
    Scroll:SetPos(SizeToClient(10,30))
    local sbar = Scroll:GetVBar()
    function sbar:Paint( w, h )
    end
    function sbar.btnUp:Paint( w, h )
    end
    function sbar.btnDown:Paint( w, h )
    end
    function sbar.btnGrip:Paint( w, h )
    end


    local List = vgui.Create( "DIconLayout", Scroll )
    List:Dock( FILL )
    List:SetSpaceY( 15 )
    List:SetSpaceX( 30 )

    for _,v in pairs(Apps) do
        local ListItem = List:Add( "DButton" )
        ListItem:SetSize( SizeToClient(64,64) )
        ListItem:SetText("")
        ListItem.Paint = function(s,h,w)
            surface.SetDrawColor(255,255,255)
            surface.SetMaterial(Material(v.icon))
            surface.DrawTexturedRect(0,0,w,h)
        end
        ListItem:SetTooltip(v.name)
        ListItem.DoClick = function()
            v.func(Frame)
        end
    end
end)

hook.Add( "OnSpawnMenuOpen", "SpawnMenuWhitelist", function()
    if !table.HasValue(DarkConfig.accessSpawnMenu,LocalPlayer():GetUserGroup()) then
        return false
    end
end )