-- These are the default laws, they're unchangeable in-game.
local Laws = {

}



function DrawLaws()
	
	local X = ScrW()-510
	local Y = 10
	local W = 500
	local H = 290

	surface.SetDrawColor(25,25,25,200)
	surface.DrawRect( X, Y, W, 35+(#Laws*20) )
	
	--draw.RoundedBox( 4, X, Y, W, 30, Color( 0, 0, 100, 200 ) )
	draw.SimpleTextOutlined("Laws", "Trebuchet24", X+W/8, Y+2, Color( 255, 255, 255, 255 ), TEXT_ALIGN_RIGHT, TEXT_ALIGN_RIGHT, 1.2, Color(0,0,0,255) )
	
	local y = 35
	for i, law in pairs( Laws ) do
	
		draw.DrawText( i .. ": " .. law, "Trebuchet22", X+5, y, Color( 255, 255, 255, 200 ) )
		
		y = y + 20
		
	end

end
hook.Add("HUDPaint", "DrawLaws", DrawLaws)

function ShowLawMenu()




	local l7 = vgui.Create('DLabel')
	local l6 = vgui.Create('DLabel')
	local rlaw = vgui.Create('DButton')
	local rlaw2 = vgui.Create('DButton')
	local rlaw3 = vgui.Create('DButton')
	local rlaw4 = vgui.Create('DButton')
	local rlaw5 = vgui.Create('DButton')
	local rlaw6 = vgui.Create('DButton')
	local rlaw7 = vgui.Create('DButton')
	local rlaw8 = vgui.Create('DButton')
	local rlaw9 = vgui.Create('DButton')
	local l5 = vgui.Create('DLabel')
	local l9 = vgui.Create('DLabel')
	local l8 = vgui.Create('DLabel')
	local l4 = vgui.Create('DLabel')
	local l3 = vgui.Create('DLabel')
	local l1 = vgui.Create('DLabel')
	local l2 = vgui.Create('DLabel')
	local addl = vgui.Create('DButton')
	local lawin = vgui.Create('DTextEntry')
	local base = vgui.Create('DFrame')
	
	
	base:SetSize(384, 196)
	base:SetTitle('Edit Laws')
	base:SetSizable(true)
	base:SetDeleteOnClose(false)
	base:MakePopup()
	base:SetSizable(false)

	
	
	
	

	local li = vgui.Create('DLabel')

	local X = 15
	local y = 20
		function base:Paint(w, h)
		draw.RoundedBox(0, 0, 0, w, h, Color(40, 40, 40, 200))
		surface.SetDrawColor(0, 0, 0)
		surface.DrawOutlinedRect(1, 1, w-2, h-2)
		for i, law in pairs( Laws ) do
		draw.DrawText( i .. ": " .. law, "Trebuchet22", X+5, y, Color( 255, 255, 255, 200 ) )
		y = y + 20

	end

	end
	

	
	
	-- Remove buttons
	
	rlaw:SetSize(13, 13)
	rlaw:SetPos(5, 20)
	rlaw:SetText('X')
	rlaw.DoClick = function() end
	rlaw:SetParent(base)
	
	rlaw2:SetSize(13, 13)
	rlaw2:SetPos(5, 35)
	rlaw2:SetText('X')
	rlaw2.DoClick = function() end
	rlaw2:SetParent(base)
	
	rlaw3:SetSize(13, 13)
	rlaw3:SetPos(5, 50)
	rlaw3:SetText('X')
	rlaw3.DoClick = function() end
	rlaw3:SetParent(base)
	
	rlaw4:SetSize(13, 13)
	rlaw4:SetPos(5, 65)
	rlaw4:SetText('X')
	rlaw4.DoClick = function() end
	rlaw4:SetParent(base)
	
	rlaw5:SetSize(13, 13)
	rlaw5:SetPos(5, 80)
	rlaw5:SetText('X')
	rlaw5.DoClick = function() end
	rlaw5:SetParent(base)
	
	rlaw6:SetSize(13, 13)
	rlaw6:SetPos(5, 95)
	rlaw6:SetText('X')
	rlaw6.DoClick = function() end
	rlaw6:SetParent(base)
	
	rlaw7:SetSize(13, 13)
	rlaw7:SetPos(5, 110)
	rlaw7:SetText('X')
	rlaw7.DoClick = function() end
	rlaw7:SetParent(base)
	
	rlaw8:SetSize(13, 13)
	rlaw8:SetPos(5, 125)
	rlaw8:SetText('X')
	rlaw8.DoClick = function() end
	rlaw8:SetParent(base)
	
	rlaw9:SetSize(13, 13)
	rlaw9:SetPos(5, 140)
	rlaw9:SetText('X')
	rlaw9.DoClick = function() end
	rlaw9:SetParent(base)
	
	
	
	
	
	
	
	-- Law input
	lawin:SetSize(295, 20)
	lawin:SetPos(5, 165)
	lawin:SetText('THIS IS A WORK IN PROGRESS. IT IS CURRENTLY USELESS')
	lawin.OnEnter = function() end
	lawin:SetParent(base)
	
	
	
	
	
	
	-- Add law button
	addl:SetSize(75, 20)
	addl:SetPos(304, 165)
	addl:SetText('Add law')
	addl.DoClick = function() end
	addl:SetParent(base)
	

	
	end
usermessage.Hook("LawsMenuOpen", ShowLawMenu)


local function AddLaw( um )

	print("Law Catched")
	table.insert( Laws, um:ReadString() )

end
usermessage.Hook("DRP_AddLaw", AddLaw )

local function RemoveLaw( um )

	table.remove( Laws, um:ReadChar() )
	
end
usermessage.Hook("DRP_RemoveLaw", RemoveLaw )
































/* l1:SetPos(X+5, y)
	l1:SetText('Law ' .. i .. ": " .. law)
	l1:SizeToContents()
	l1:SetParent(base)
	
	l2:SetPos(25, 35)
	l2:SetText('Law 2: ')
	l2:SizeToContents()
	l2:SetParent(base)

	l3:SetPos(25, 50)
	l3:SetText('Law 3: ')
	l3:SizeToContents()
	l3:SetParent(base)
	
	l4:SetPos(25, 65)
	l4:SetText('Law 4: ')
	l4:SizeToContents()
	l4:SetParent(base)

	l5:SetPos(25, 80)
	l5:SetText('Law 5: ')
	l5:SizeToContents()
	l5:SetParent(base)

	l6:SetPos(25, 95)
	l6:SetText('Law 6: ')
	l6:SizeToContents()
	l6:SetParent(base)
	
	l7:SetPos(25, 110)
	l7:SetText('Law 7: ')
	l7:SizeToContents()
	l7:SetParent(base)
	
	l8:SetPos(25, 125)
	l8:SetText('Law 8: ')
	l8:SizeToContents()
	l8:SetParent(base)
	
	l9:SetPos(25, 140)
	l9:SetText('Law 9: ')
	l9:SizeToContents()
	l9:SetParent(base)
	*/