Advertisement
H4MZ4

Cl_timerscript.lua

Oct 11th, 2016
109
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Lua 2.70 KB | None | 0 0
  1. hook.Add("Initialize","frame")
  2.  
  3.  
  4. local frame = vgui.Create("DFrame")
  5. frame:SetSize(500,500)
  6. frame:SetPos(12,12)
  7. frame:SetVisible(false)
  8. frame:MakePopup()
  9. frame:SetTitle("AutoULXCleaner - Derma Test Window")
  10. frame:ShowCloseButton(false)
  11. frame.Paint = function(s , w , h)
  12.  
  13.     draw.RoundedBox(5,0,0,w , h,Color(91,155,9))
  14.  
  15. end
  16.  
  17. local iconimage = vgui.Create( "DImage", frame )
  18. iconimage:SetPos( 1, 25 )
  19. iconimage:SetSize( 498, 475 )
  20. iconimage:SetImage( "materials/icon", "materials/icon.png" )
  21.  
  22. local buttonon = vgui.Create("DButton" , frame)
  23. buttonon:SetPos(60,100)
  24. buttonon:SetSize(110,45)
  25. buttonon:SetText('Enable Auto Cleanup')
  26. buttonon.DoClick = function()
  27.     net.Start("enableclean")
  28.         net.WriteString( "enableclean" )
  29.     net.SendToServer()
  30. end
  31.  
  32. local buttonoff = vgui.Create("DButton" , frame)
  33. buttonoff:SetPos(330,100)
  34. buttonoff:SetSize(110,45)
  35. buttonoff:SetText('Disable Auto Cleanup')
  36. buttonoff.DoClick = function()
  37.     net.Start("disableclean")
  38.         net.WriteString( "disableclean" )
  39.     net.SendToServer()
  40. end
  41.  
  42. local buttonclose = vgui.Create("DButton" , frame)
  43. buttonclose:SetPos(453,468)
  44. buttonclose:SetSize(45,30)
  45. buttonclose:SetText('Close')
  46. buttonclose.DoClick = function()
  47.     print( "AutoULXCleaner Menu Closed!" )
  48.     frame_close()
  49.     frame:SetVisible(false)
  50. end
  51.  
  52.  
  53. local timebox = vgui.Create( "DComboBox" , frame )
  54. timebox:SetPos( 200, 242 )
  55. timebox:SetSize( 100, 20 )
  56. timebox:SetValue( "Select Time" )
  57. timebox:AddChoice( "10 Seconds" ) -- 1
  58. timebox:AddChoice( "1 Minute" ) -- 2
  59. timebox:AddChoice( "5 Minutes" ) -- 3
  60. timebox:AddChoice( "10 Minutes" ) -- 4
  61. timebox:AddChoice( "15 Minutes" ) -- 5
  62. timebox:AddChoice( "30 Minutes" ) -- 6
  63. timebox:AddChoice( "1 Hour" ) -- 7
  64. timebox.OnSelect = function( panel, index, value )
  65.     if timebox:GetSelectedID() == 1 then
  66.         net.Start("dropdownis1")
  67.         net.SendToServer()
  68.     end
  69.     if timebox:GetSelectedID() == 2 then
  70.         net.Start("dropdownis2")
  71.         net.SendToServer()
  72.     end
  73.     if timebox:GetSelectedID() == 3 then
  74.         net.Start("dropdownis3")
  75.         net.SendToServer()
  76.     end
  77.     if timebox:GetSelectedID() == 4 then
  78.         net.Start("dropdownis4")
  79.         net.SendToServer()
  80.     end
  81.     if timebox:GetSelectedID() == 5 then
  82.         net.Start("dropdownis5")
  83.         net.SendToServer()
  84.     end
  85.     if timebox:GetSelectedID() == 6 then
  86.         net.Start("dropdownis6")
  87.         net.SendToServer()
  88.     end
  89.     if timebox:GetSelectedID() == 7 then
  90.         net.Start("dropdownis7")
  91.         net.SendToServer()
  92.     end
  93. end
  94.  
  95.  
  96. local everylabel = vgui.Create("DLabel" , frame)
  97. everylabel:SetPos( 120, 242)
  98. everylabel:SetText("Clean Every")
  99.  
  100.  
  101. function frame_open()
  102.     frame:SetVisible(true)
  103. end
  104.  
  105. function frame_close()
  106.     frame:SetVisible(false)
  107. end
  108.  
  109. concommand.Add("-AutoMenu",frame_close)
  110. concommand.Add("AutoULXMenu",frame_open)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement