Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- hook.Add("Initialize","frame")
- local frame = vgui.Create("DFrame")
- frame:SetSize(500,500)
- frame:SetPos(12,12)
- frame:SetVisible(false)
- frame:MakePopup()
- frame:SetTitle("AutoULXCleaner - Derma Test Window")
- frame:ShowCloseButton(false)
- frame.Paint = function(s , w , h)
- draw.RoundedBox(5,0,0,w , h,Color(91,155,9))
- end
- local iconimage = vgui.Create( "DImage", frame )
- iconimage:SetPos( 1, 25 )
- iconimage:SetSize( 498, 475 )
- iconimage:SetImage( "materials/icon", "materials/icon.png" )
- local buttonon = vgui.Create("DButton" , frame)
- buttonon:SetPos(60,100)
- buttonon:SetSize(110,45)
- buttonon:SetText('Enable Auto Cleanup')
- buttonon.DoClick = function()
- net.Start("enableclean")
- net.WriteString( "enableclean" )
- net.SendToServer()
- end
- local buttonoff = vgui.Create("DButton" , frame)
- buttonoff:SetPos(330,100)
- buttonoff:SetSize(110,45)
- buttonoff:SetText('Disable Auto Cleanup')
- buttonoff.DoClick = function()
- net.Start("disableclean")
- net.WriteString( "disableclean" )
- net.SendToServer()
- end
- local buttonclose = vgui.Create("DButton" , frame)
- buttonclose:SetPos(453,468)
- buttonclose:SetSize(45,30)
- buttonclose:SetText('Close')
- buttonclose.DoClick = function()
- print( "AutoULXCleaner Menu Closed!" )
- frame_close()
- frame:SetVisible(false)
- end
- local timebox = vgui.Create( "DComboBox" , frame )
- timebox:SetPos( 200, 242 )
- timebox:SetSize( 100, 20 )
- timebox:SetValue( "Select Time" )
- timebox:AddChoice( "10 Seconds" ) -- 1
- timebox:AddChoice( "1 Minute" ) -- 2
- timebox:AddChoice( "5 Minutes" ) -- 3
- timebox:AddChoice( "10 Minutes" ) -- 4
- timebox:AddChoice( "15 Minutes" ) -- 5
- timebox:AddChoice( "30 Minutes" ) -- 6
- timebox:AddChoice( "1 Hour" ) -- 7
- timebox.OnSelect = function( panel, index, value )
- if timebox:GetSelectedID() == 1 then
- net.Start("dropdownis1")
- net.SendToServer()
- end
- if timebox:GetSelectedID() == 2 then
- net.Start("dropdownis2")
- net.SendToServer()
- end
- if timebox:GetSelectedID() == 3 then
- net.Start("dropdownis3")
- net.SendToServer()
- end
- if timebox:GetSelectedID() == 4 then
- net.Start("dropdownis4")
- net.SendToServer()
- end
- if timebox:GetSelectedID() == 5 then
- net.Start("dropdownis5")
- net.SendToServer()
- end
- if timebox:GetSelectedID() == 6 then
- net.Start("dropdownis6")
- net.SendToServer()
- end
- if timebox:GetSelectedID() == 7 then
- net.Start("dropdownis7")
- net.SendToServer()
- end
- end
- local everylabel = vgui.Create("DLabel" , frame)
- everylabel:SetPos( 120, 242)
- everylabel:SetText("Clean Every")
- function frame_open()
- frame:SetVisible(true)
- end
- function frame_close()
- frame:SetVisible(false)
- end
- concommand.Add("-AutoMenu",frame_close)
- concommand.Add("AutoULXMenu",frame_open)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement