Advertisement
Roite

gdgtrd

Feb 7th, 2016
76
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 2.08 KB | None | 0 0
  1. AddCSLuaFile()
  2. if CLIENT then
  3. surface.CreateFont("TEST", {
  4. font = "Roboto",
  5. size = 30,
  6. weight = 5000,
  7. blursize = 0,
  8. scanlines = 0,
  9. antialias = true,
  10. })
  11. if IsValid(Cool) then
  12. Cool:Remove()
  13. end
  14. local DPanel = vgui.Create( "DPanel" )
  15. Cool = DPanel
  16. DPanel:SetPos( ScrW() /2 -250 , ScrH() /2 -300 )
  17. DPanel:SetSize( 500, 500 )
  18. DPanel:SetBackgroundColor(Color(187, 210, 225))
  19. local DBar = vgui.Create( "DPanel" , DPanel )
  20. DBar:SetPos( 0 , 0 )
  21. DBar:SetSize( 500, 40 )
  22. DBar:SetBackgroundColor(Color(20, 50, 118))
  23. local DLabel = vgui.Create( "DLabel", DBar )
  24. DLabel:SetPos( 210, 10 )
  25. DLabel:SetText( "Close" )
  26. DLabel:SetTextColor( Color( 255, 0, 0, 255 ) )
  27. DLabel:SetFont( "TEST" )
  28. local DButton = vgui.Create( "DButton" , DBar)
  29. DButton:SetPos( 0 , 0 )
  30. function DButton:Paint( w, h )
  31. draw.RoundedBox( 8, 0, 0, w, h, Color( 31, 40, 175, 0) ) end
  32. DButton:SetText( "" )
  33. DButton:SetTextColor( Color( 255, 0, 0, 175 ) )
  34. DButton:SetSize( 500, 40 )
  35. DButton.DoClick = function() DPanel:Remove() end
  36. local DMain = vgui.Create( "DScrollPanel" , DPanel )
  37. DMain:SetPos( 0 , 40 )
  38. DMain:SetSize( 500, 460 )
  39. DMain:SetBackgroundColor(Color(245, 245, 220))
  40. DMain:Dock(TOP)
  41. DMain:DockMargin(0, 40, 0,0)
  42. for i = 0, 5 do
  43. local DPanl = vgui.Create( "DPanel" , DMain)
  44. DPanl:Dock(TOP)
  45. DPanl:SetPos( 10, 30 ) -- Set the position of the panel
  46. DPanl:SetSize( 500, 40 ) -- Set the size of the panel
  47. DPanl:SetBackgroundColor(Color(24, 62, 147))
  48. local Dlabel = vgui.Create("DLabel", DPanl)
  49. Dlabel:Dock(FILL)
  50. Dlabel:SetText("Test")
  51. Dlabel:SetTextColor(Color(0,10,42))
  52. Dlabel:SetFont("TEST")
  53. local DButto = vgui.Create( "DButton" , DPanl)
  54. DButto:SetPos( 400 , 0 )
  55. function DButto:Paint( w, h )
  56. draw.RoundedBox( 8, 0, 0, w, h, Color( 200, 0, 0) ) end
  57. DButto:SetText( "BUY" )
  58. DButto:SetTextColor( Color( 255, 255, 255 ) )
  59. DButto:SetSize( 50, 30 )
  60. DButto.DoClick = function() ply:ConCommand( '"gm_spawnsent" "spawned models"' )end
  61. end
  62.  
  63.  
  64. end
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement