Advertisement
Guest User

Untitled

a guest
Feb 12th, 2016
58
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 2.62 KB | None | 0 0
  1. function LawsTab()
  2. local Laws = vgui.Create("DPanelList")
  3. Laws:EnableHorizontal(false)
  4. Laws:EnableVerticalScrollbar(true)
  5. function Laws:Update()
  6. self:Clear(true)
  7.  
  8. local DefaultLaws = vgui.Create("DCollapsibleCategory")
  9. DefaultLaws:SetLabel("Default Laws:")
  10. DefaultLaws:SetSkin("DarkRP")
  11.  
  12. local DefaultLawsPanel = vgui.Create("DListLayout")
  13. DefaultLawsPanel:SetSkin("DarkRP")
  14.  
  15. local DefaultLawsText = DefaultLawsPanel:Add("DLabel")
  16.  
  17. DefaultLawsText:SetText(" The laws listed here are always in effect.\n\n 1. Money Printers are illegal.\n 2. Drug labs, including the drugs from it, are illegal.\n 3. Lockpicking and Keypad cracking are illegal.\n 4. Police disrespect.\n 5. Black Market items.")
  18. DefaultLawsText:SetFont("DarkRPHUD2")
  19. DefaultLawsText:SizeToContents()
  20. DefaultLawsText:SetTextColor(Color(240,240,240))
  21.  
  22. DefaultLaws:SetContents(DefaultLawsPanel)
  23. Laws:AddItem(DefaultLaws)
  24.  
  25. local theLaws = vgui.Create("DCollapsibleCategory")
  26. theLaws:SetLabel("Mayor's Laws:")
  27. local LawsPanel = vgui.Create("DListLayout")
  28.  
  29. local LawsText = LawsPanel:Add("DLabel")
  30. LawsText:SetTextColor(Color(240,240,240))
  31. local strLaws;
  32. StoredLaws = StoredLaws or ""
  33. if team.NumPlayers(TEAM_MAYOR) > 0 then
  34. if StoredLaws == "" then
  35. strLaws = " The mayor has not put any laws into effect yet."
  36. else
  37. strLaws = " " .. string.gsub(string.gsub(StoredLaws, "//", "\n "), "\\n", "\n ")
  38. end
  39. else
  40. strLaws = " No mayor currently."
  41. end
  42.  
  43. LawsText:SetText(strLaws)
  44. LawsText:SetFont("DarkRPHUD2")
  45. LawsText:SizeToContents()
  46. LawsPanel:SizeToContents()
  47. theLaws:SetContents(LawsPanel)
  48. theLaws:SizeToContents()
  49. Laws:AddItem(theLaws)
  50.  
  51. if LocalPlayer():Team() == TEAM_MAYOR then
  52. local MayorLaws = vgui.Create("DCollapsibleCategory")
  53. MayorLaws:SetLabel("Mayor Options")
  54. local SetLaws = vgui.Create("DListLayout")
  55. SetLaws:SetSkin("DarkRP")
  56. SetLaws:SetSize(740, 60)
  57.  
  58. local lawsEntry = SetLaws:Add("DButton")
  59. lawsEntry:SetText("Click here to update laws")
  60. lawsEntry:SetSize(740, 100)
  61. lawsEntry.DoClick = function(self)
  62. LocalPlayer():ConCommand("lawsmenu")
  63. end
  64.  
  65. MayorLaws:SetContents(SetLaws)
  66. Laws:AddItem(MayorLaws)
  67.  
  68. theLaws:SetSkin("DarkRP")
  69. Laws:SetSkin("DarkRP")
  70. end
  71.  
  72. local LawsButton = LawsPanel:Add("DButton")
  73. LawsButton:SetText("Toggle Laws Window")
  74. LawsButton.DoClick = function()
  75. if GetConVarNumber("rp_laws") == 1 then LocalPlayer():ConCommand("rp_laws 0") else LocalPlayer():ConCommand("rp_laws 1") end
  76. end
  77. end
  78. Laws:Update()
  79. return Laws
  80. end
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement