Marlingaming

Orders writer

Mar 14th, 2022 (edited)
82
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.51 KB | None | 0 0
  1. local OX, OY, OZ = nil
  2. local Channel = 0
  3. local Tag = nil
  4. local Sender = nil
  5. local Heading = LocalPlayer()[1]:Entity.GetAimVector()
  6. local Cords = {LocalPlayer():GetShootPos()}
  7.  
  8. local Frame = vgui.Create( "DFrame" )
  9. Frame:SetTitle( "Orders" )
  10. Frame:SetSize( 300,300 )
  11. Frame:Center()
  12. Frame:MakePopup()
  13. Frame.Paint = function( self, w, h ) -- 'function Frame:Paint( w, h )' works too
  14. draw.RoundedBox( 0, 0, 0, w, h, Color( 231, 76, 60, 150 ) )
  15. draw.DrawText(Heading,"DermaDefault",0,15,color_white,"TEXT_ALIGN_LEFT")
  16.  
  17. draw.DrawText(Cords,"DermaDefault",0,20,color_white,"TEXT_ALIGN_LEFT")
  18.  
  19. end
  20.  
  21. local B1 = vgui.Create("DButton", Frame)
  22. B1:SetText( "Create Orders" )
  23. B1:SetTextColor( Color(255,255,255) )
  24. B1:SetPos( 100, 250 )
  25. B1:SetSize( 100, 30 )
  26. B1.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. local XEntry = vgui.Create( "DTextEntry", Frame )
  31. XEntry:SetPos( 25, 25 )
  32. XEntry:SetSize( 75, 85 )
  33. XEntry:SetText( "XCords" )
  34. XEntry.OnEnter = function( self )
  35. OX = self:GetValue()
  36. end
  37.  
  38. local YEntry = vgui.Create( "DTextEntry", Frame )
  39. YEntry:SetPos( 25, 30 )
  40. YEntry:SetSize( 75, 85 )
  41. YEntry:SetText( "YCords" )
  42. YEntry.OnEnter = function( self )
  43. OY = self:GetValue()
  44. end
  45.  
  46. local ZEntry = vgui.Create( "DTextEntry", Frame )
  47. ZEntry:SetPos( 25, 35 )
  48. ZEntry:SetSize( 75, 85 )
  49. ZEntry:SetText( "ZCords" )
  50. ZEntry.OnEnter = function( self )
  51. OZ = self:GetValue()
  52. end
  53.  
  54. B1.DoClick = function()
  55. print( "I was clicked!" )
  56. end
Add Comment
Please, Sign In to add comment