local apiurl = "https://exec.pavetr.top/lua/api/"
local uplurl = "https://exec.pavetr.top/lua/uploads/"

local lualist = {}

local curlua = {}

exec_menuaddtab("CRACK",function(pnl)
	pnl:DockPadding(pnl:GetWide()*.01,0,pnl:GetWide()*.025,pnl:GetTall()*.025)
	
	local scroll = vgui.Create( "DScrollPanel", pnl)
	scroll:Dock(LEFT)
	scroll:SetWide(pnl:GetWide()*.25)
	local luapnl = vgui.Create( "DPanel", pnl)
	luapnl:Dock(FILL)
	luapnl:SetPaintBackground(false)
	luapnl:DockPadding(pnl:GetWide()*.01,pnl:GetTall()*.01,pnl:GetWide()*.01,pnl:GetTall()*.01)
	luapnl:DockMargin(0,0,pnl:GetWide()*.35,pnl:GetTall()*.03)

	local function runCl(path)
		http.Fetch(path,
			function( body, length, headers, code )
				exec_runtoclientside(body)
				exec_notification("Loaded to clientside")
			end,
			function( message )
				exec_notification( "Execcrack error: "..message )
			end
		)
	end

	local function runMenu(path)
		http.Fetch(path,
			function( body, length, headers, code )
				RunString(body)
				exec_notification("Loaded to menuside")
			end,
			function( message )
				exec_notification( "Execcrack error: "..message )
			end
		)
	end

	local function downloadLua(path,fname)
		http.Fetch(path,
			function( body, length, headers, code )
				exec_Write("C:/exechack/"..fname,body)
				exec_notification("Saved as "..fname)
			end,
			function( message )
				exec_notification( "Execcrack error: "..message )
			end
		)
	end

	local menucol = Color(74,170,77)
	local premcol = Color(212, 174, 49)
	
	local function updateLua()
		scroll:Clear()
		luapnl:Clear()
		for z,v in ipairs(lualist) do
			local btn = scroll:Add("DButton")
			local pref = ""
			if v.isMenu == "1" then
				pref = "[Menu] "
			end
			if v.isPrem == "1" then
				pref = "[Premium] "
			end
			btn:SetText(pref..v.name)
			btn:SetTooltip(pref..v.name)
			btn:Dock(TOP)
			btn:DockMargin(0,0,0,5)
			btn:SetFont("efont_17")

			if v.isMenu == "1" then
				btn:SetTextColor(menucol)
			elseif v.isPrem == "1" then
				btn:SetTextColor(premcol)
			else
				btn:SetTextColor(exec_cfg_GetValue("STYLESX_TEXT"))
			end

			btn.Paint = function(s,w,h)
				draw.RoundedBox(4,0,0,w,h,s:IsHovered() and exec_cfg_GetValue("STYLESX_TEXT_NON_SELECTED") or exec_cfg_GetValue("STYLESX_BUTTON"))
			end
			btn.DoClick = function()
				curlua = v
				updateLua()
			end
		end
		
		if curlua.name != nil then
			local pref = ""
			if curlua.isMenu == "1" then
				pref = "[Menu] "
			end
			if curlua.isPrem == "1" then
				pref = "[Premium] "
			end
			
			local lbl = vgui.Create("DLabel",luapnl)
			lbl:SetFont("efont_25")
			lbl:SetTextColor(exec_cfg_GetValue("STYLESX_TEXT"))
			lbl:SetText(pref..curlua.name)
			lbl:Dock(TOP)
			lbl:SizeToContentsY()
		end
		
		if curlua.descr != nil then
			local descr = vgui.Create("RichText",luapnl)
			descr:SetPaintBackgroundEnabled(false)
			function descr:PerformLayout()
				descr:SetFontInternal("efont_17")
				descr:SetFGColor(exec_cfg_GetValue("STYLESX_TEXT"))
			end
			descr:AppendText(curlua.descr)
			descr:Dock(FILL)
		end
		
		if curlua.filepath != nil then
			local btPnl = vgui.Create("Panel",luapnl)
			btPnl:Dock(BOTTOM)
			btPnl:DockMargin(0,0,0,5)

			local btn = vgui.Create("DButton",btPnl)
			btn:SetText("Run script")
			btn:SetTooltip("If LMB errors, try RMB")
			btn:Dock(LEFT)
			btn:SetWide(pnl:GetWide()*.125)
			btn:SetFont("efont_17")
			btn:SetTextColor(exec_cfg_GetValue("STYLESX_TEXT"))
			btn.Paint = function(s,w,h)
				draw.RoundedBox(4,0,0,w,h,s:IsHovered() and exec_cfg_GetValue("STYLESX_TEXT_NON_SELECTED") or exec_cfg_GetValue("STYLESX_BUTTON"))
			end
			btn.DoClick = function()
				if curlua.isMenu == "1" then
					runMenu(uplurl..curlua.filepath)
				else
					runCl(uplurl..curlua.filepath)
				end
				
			end
			btn.DoRightClick = function()
				if curlua.isMenu == "1" then
					runCl(uplurl..curlua.filepath)
				else
					runMenu(uplurl..curlua.filepath)
				end
			end

			local down = vgui.Create("DButton",btPnl)
			down:SetText("Download")
			down:Dock(RIGHT)
			down:SetWide(pnl:GetWide()*.125)
			down:SetFont("efont_17")
			down:SetTextColor(exec_cfg_GetValue("STYLESX_TEXT"))
			down.Paint = function(s,w,h)
				draw.RoundedBox(4,0,0,w,h,s:IsHovered() and exec_cfg_GetValue("STYLESX_TEXT_NON_SELECTED") or exec_cfg_GetValue("STYLESX_BUTTON"))
			end
			down.DoClick = function()
				downloadLua(uplurl..curlua.filepath,curlua.filepath)
			end
		end
	end
	
	http.Fetch(apiurl,
		function( body, length, headers, code )
			lualist = util.JSONToTable(body)
			updateLua()
		end,
		function( message )
			exec_notification( "Execcrack error: "..message )
		end
	)
end)