Advertisement
Guest User

Untitled

a guest
Dec 9th, 2019
111
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 2.09 KB | None | 0 0
  1. include("shared.lua")
  2.  
  3. function ENT:Draw()
  4. self:DrawModel()
  5. end
  6.  
  7. net.Receive("1level1", function()
  8. local FrameMain = vgui.Create("DFrame")
  9. FrameMain:SetSize(ScrW(), ScrH())
  10. FrameMain:Center()
  11. FrameMain:MakePopup()
  12. local mat = Material("directory/cis_info.png", "noclamp smooth")
  13.  
  14. FrameMain.Paint = function(self, w, h)
  15. surface.SetDrawColor(255, 255, 255)
  16. surface.SetMaterial(mat)
  17. surface.DrawTexturedRect(0, 0, w * 1, h * 1)
  18. end
  19.  
  20. local FirstButton = vgui.Create("DButton", FrameMain)
  21. FirstButton:SetText("Page 2")
  22. FirstButton:SetTextColor(Color(255, 255, 255))
  23. FirstButton:SetPos(1400, 920)
  24. FirstButton:SetSize(35, 25)
  25.  
  26. FirstButton.Paint = function(self, w, h)
  27. draw.RoundedBox(0, 0, 0, w, h, Color(41, 128, 185, 250)) -- Draw a blue button
  28. end
  29.  
  30. FirstButton.DoClick = function()
  31. local SecFrame = vgui.Create("DFrame")
  32. SecFrame:SetSize(ScrW(), ScrH())
  33. SecFrame:Center()
  34. SecFrame:MakePopup()
  35. local mat = Material("directory/crystals.png", "noclamp smooth")
  36.  
  37. SecFrame.Paint = function(self, w, h)
  38. surface.SetDrawColor(255, 255, 255)
  39. surface.SetMaterial(mat)
  40. surface.DrawTexturedRect(0, 0, w * 1, h * 1)
  41. end
  42. end
  43.  
  44. local SecButton = vgui.Create("DButton", FrameMain)
  45. SecButton:SetText("Page 3")
  46. SecButton:SetTextColor(Color(255, 255, 255))
  47. SecButton:SetPos(1500, 920)
  48. SecButton:SetSize(35, 25)
  49.  
  50. SecButton.Paint = function(self, w, h)
  51. draw.RoundedBox(0, 0, 0, w, h, Color(41, 128, 185, 250)) -- Draw a blue button
  52. end
  53.  
  54. SecButton.DoClick = function()
  55. local ThirdFrame = vgui.Create("DFrame")
  56. ThirdFrame:SetSize(ScrW(), ScrH())
  57. ThirdFrame:Center()
  58. ThirdFrame:MakePopup()
  59. local mat = Material("directory/masters.png", "noclamp smooth")
  60.  
  61. ThirdFrame.Paint = function(self, w, h)
  62. surface.SetDrawColor(255, 255, 255)
  63. surface.SetMaterial(mat)
  64. surface.DrawTexturedRect(0, 0, w * 1, h * 1)
  65. end
  66. end
  67.  
  68. end)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement