Derma Help

[dpoolas]

What I am trying to do is make it so the option you pick in the dmultichoice is the command it will run but it is not working.

Here is the code

local DButton5
local DButton4
local DMultiChoice1
local DButton2
local DButton3
local DButton1
local D3Main
function D3TellAll()
D3Main = vgui.Create('DFrame')
D3Main:SetSize(417, 156)
D3Main:SetPos(117, 65)
D3Main:SetTitle('                                               Rule Enforcer/Informer')
D3Main:SetSizable(true)
D3Main:SetDeleteOnClose(false)
D3Main:MakePopup()

DButton1 = vgui.Create('DButton')
DButton1:SetParent(D3Main)
DButton1:SetSize(89, 30)
DButton1:SetPos(150, 28)
DButton1:SetText('  Confirmed Minge')
DButton1.DoClick = function() end

DButton3 = vgui.Create('DButton')
DButton3:SetParent(D3Main)
DButton3:SetSize(89, 30)
DButton3:SetPos(150, 66)
DButton3:SetText('JukeBox')
DButton3.DoClick = function() end

DButton2 = vgui.Create('DButton')
DButton2:SetParent(D3Main)
DButton2:SetSize(92, 34)
DButton2:SetPos(29, 98)
DButton2:SetText('Enable/Tell')
DButton2.DoClick = function() 
 LocalPlayer():ConCommand(DMultiChoice1:GetValue())
end

DMultiChoice1 = vgui.Create('DMultiChoice')
DMultiChoice1:SetParent(D3Main)
DMultiChoice1:SetPos(14, 53)
DMultiChoice1.OnMousePressed = function() end
function DMultiChoice1:OnSelect(Index, Value, Data) end

DMultiChoice1:AddChoice("RS_RULELIST")
DMultiChoice1:AddChoice("RS_Rule1")
DMultiChoice1:AddChoice("RS_Rule2")
DMultiChoice1:AddChoice("RS_Rule3")
DMultiChoice1:AddChoice("RS_Rule4")
DMultiChoice1:AddChoice("RS_Rule5")
DMultiChoice1:AddChoice("RS_Rule6")
DMultiChoice1:AddChoice("RS_Rule7")
DMultiChoice1:AddChoice("RS_Rule8")


DButton4 = vgui.Create('DButton')
DButton4:SetParent(D3Main)
DButton4:SetSize(89, 30)
DButton4:SetPos(267, 28)
DButton4:SetText('EULA')
DButton4.DoClick = function() end

DButton5 = vgui.Create('DButton')
DButton5:SetParent(D3Main)
DButton5:SetSize(89, 30)
DButton5:SetPos(268, 66)
DButton5:SetText('ATRA')
DButton5.DoClick = function() 
RunConsoleCommand("RS_ATRA")
end
end
concommand.Add("RS_TELLALL", D3TellAll)

[Cubar]

Fixed
[lua]/*
] RS_TELLALL
Selected RS_Rule3
Unknown command: RS_Rule3
*/
local DButton5
local DButton4
local DMultiChoice1
local DButton2
local DButton3
local DButton1
local D3Main
local Val
function D3TellAll()
D3Main = vgui.Create('DFrame')
D3Main:SetSize(417, 156)
D3Main:SetPos(117, 65)
D3Main:SetTitle(' Rule Enforcer/Informer')
D3Main:SetSizable(true)
D3Main:SetDeleteOnClose(false)
D3Main:MakePopup()

DButton1 = vgui.Create('DButton')
DButton1:SetParent(D3Main)
DButton1:SetSize(89, 30)
DButton1:SetPos(150, 28)
DButton1:SetText(' Confirmed Minge')
DButton1.DoClick = function() end

DButton3 = vgui.Create('DButton')
DButton3:SetParent(D3Main)
DButton3:SetSize(89, 30)
DButton3:SetPos(150, 66)
DButton3:SetText('JukeBox')
DButton3.DoClick = function() end

DButton2 = vgui.Create('DButton')
DButton2:SetParent(D3Main)
DButton2:SetSize(92, 34)
DButton2:SetPos(29, 98)
DButton2:SetText('Enable/Tell')
DButton2.DoClick = function()
print("Selected "..Val)
LocalPlayer():ConCommand(Val)
end

DMultiChoice1 = vgui.Create('DMultiChoice')
DMultiChoice1:SetParent(D3Main)
DMultiChoice1:SetPos(14, 53)
DMultiChoice1.OnMousePressed = function() end
function DMultiChoice1:OnSelect(Index, Value, Data) Val = Value end
DMultiChoice1:AddChoice("RS_RULELIST")
DMultiChoice1:AddChoice("RS_Rule1")
DMultiChoice1:AddChoice("RS_Rule2")
DMultiChoice1:AddChoice("RS_Rule3")
DMultiChoice1:AddChoice("RS_Rule4")
DMultiChoice1:AddChoice("RS_Rule5")
DMultiChoice1:AddChoice("RS_Rule6")
DMultiChoice1:AddChoice("RS_Rule7")
DMultiChoice1:AddChoice("RS_Rule8")

DButton4 = vgui.Create('DButton')
DButton4:SetParent(D3Main)
DButton4:SetSize(89, 30)
DButton4:SetPos(267, 28)
DButton4:SetText('EULA')
DButton4.DoClick = function() end

DButton5 = vgui.Create('DButton')
DButton5:SetParent(D3Main)
DButton5:SetSize(89, 30)
DButton5:SetPos(268, 66)
DButton5:SetText('ATRA')
DButton5.DoClick = function()
RunConsoleCommand("RS_ATRA")
end
end
concommand.Add("RS_TELLALL", D3TellAll)[/lua]