Advertisement
Guest User

Untitled

a guest
Jan 19th, 2020
131
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 3.16 KB | None | 0 0
  1. if SERVER then
  2. util.AddNetworkString("FirstNet")
  3.  
  4. function Value(value)
  5.  
  6. end
  7.  
  8. net.Receive("FirstNet", function( lenght, ply )
  9. namebool = net.ReadBool()
  10. return namebool
  11. end)
  12.  
  13. end
  14.  
  15. if CLIENT then
  16.  
  17.  
  18. surface.CreateFont( "NinjeFontss", {
  19. font = "Arial",
  20. extended = false,
  21. size = 20,
  22. weight = 1200,
  23. blursize = 0,
  24. scanlines = 0,
  25. antialias = false,
  26. underline = false,
  27. italic = false,
  28. strikeout = false,
  29. symbol = false,
  30. rotary = false,
  31. shadow = false,
  32. additive = false,
  33. outline = false,
  34. } )
  35.  
  36. surface.CreateFont( "NinjeFont", {
  37. font = "Bold",
  38. extended = false,
  39. size = 75,
  40. weight = 500,
  41. blursize = 0,
  42. scanlines = 0,
  43. antialias = true,
  44. underline = false,
  45. italic = false,
  46. strikeout = false,
  47. symbol = false,
  48. rotary = false,
  49. shadow = false,
  50. additive = false,
  51. outline = false,
  52. } )
  53.  
  54. hook.Add( "OnPlayerChat", "MeetingCommand", function ( ply, strText, bTeam, bDead)
  55. if ( ply != LocalPlayer() ) then return end
  56.  
  57. strText = string.lower( strText )
  58.  
  59. if ( strText == "!meeting" ) then
  60. local frames = vgui.Create("DFrame")
  61. frames:SetSize(600, 500)
  62. frames:Center()
  63. frames:ShowCloseButton(true)
  64. frames:MakePopup()
  65. frames.Paint = function( self, w, h )
  66. draw.RoundedBox(0, 0, 0, w, h, Color(0,0,0))
  67. draw.RoundedBox(0, 0, 0, w, h, Color(60,60,60))
  68. end
  69.  
  70.  
  71. local DComboBox = vgui.Create( "DComboBox", frames )
  72. DComboBox:SetPos( 220, 30 )
  73. DComboBox:SetSize(150, 40)
  74. DComboBox:SetValue( "Meeting Type" )
  75. DComboBox:AddChoice( "Police" )
  76. DComboBox:AddChoice( "Noonans" )
  77. DComboBox:AddChoice( "NHS" )
  78. DComboBox:AddChoice( "CID" )
  79. DComboBox:AddChoice( "SCO19" )
  80. DComboBox:AddChoice( "CTSFO" )
  81. DComboBox.OnSelect = function( self, index, value )
  82. TextInMeeting = value .." Meeting"
  83. end
  84.  
  85. local button = vgui.Create("DButton", frames, "ButtonName")
  86. button:SetSize(180, 80)
  87. button:SetPos(110, 360)
  88. button:SetText("Start Meeting")
  89. button:SetFont("NinjeFontss")
  90. button.Paint = function(self, w, h)
  91. draw.RoundedBox(0, 5, 5, w, h, Color(168,0,0))
  92. draw.RoundedBox(0, -5, -5, w, h, Color(255,0,0))
  93. end
  94. button.DoClick = ( function()
  95. net.Start("FirstNet")
  96. net.WriteBool(true)
  97. net.SendToServer()
  98. end )
  99.  
  100. local buttons = vgui.Create("DButton", frames, "ButtonNames")
  101. buttons:SetSize(180, 80)
  102. buttons:SetPos(300,360)
  103. buttons:SetText("Meeting Over")
  104. buttons:SetFont("NinjeFontss")
  105. buttons.Paint = function(self, w, h)
  106. draw.RoundedBox(0, 5, 5, w, h, Color(168,0,0))
  107. draw.RoundedBox(0, -5, -5, w, h, Color(255,0,0))
  108. end
  109. buttons.DoClick = function()
  110. net.Start("FirstNet")
  111. net.WriteBool(false)
  112. net.SendToServer()
  113. end
  114. end
  115. end )
  116. end
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement