2much4Us

Untitled

Apr 26th, 2018
108
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.75 KB | None | 0 0
  1.  
  2. local Popup = vgui.Create("DFrame")
  3. Popup:SetSize( ScrW(), ScrH() )
  4. Popup:SetPos( 0,0 )
  5. Popup:SetVisible( true )
  6. Popup:SetDraggable( false )
  7. Popup:SetTitle( "" )
  8. Popup:MakePopup()
  9. Popup:ShowCloseButton( false )
  10. Popup.Paint = function(s,w,h)
  11. surface.SetDrawColor( Color(0,0,0,200) )
  12. surface.DrawRect( 0,0, w,h )
  13. surface.SetDrawColor( Color(math.random(0,25),math.random(0,25),math.random(0,25)))
  14. surface.DrawRect( 0, w/2-Popup:GetTall()/1.520, ScrW(), ScrH()/4 )
  15. surface.SetTextColor(255,255,255)
  16. surface.SetTextPos(w/2.10, h/2.40)
  17. surface.SetFont("Guillaume")
  18. surface.SetTextPos(w/6.10, h/3.800)
  19. surface.DrawText("Server got hacked")
  20. surface.SetFont("Erreurmdr")
  21. surface.SetTextPos(w/40, h/2.70)
  22. surface.DrawText( "1337" )
  23. surface.SetTextPos(w/40, h/2.50)
  24. surface.DrawText( "Hax M8" )
  25. surface.SetTextPos(w/40, h/2.30)
  26. surface.DrawText("BattleyeTM")
  27. end
  28. button = vgui.Create("DButton", Popup)
  29. button:SetSize(110,32.5)
  30. button:SetPos(Popup:GetWide()/2+Popup:GetWide()/10, Popup:GetTall()/2.050)
  31. button:SetText("")
  32. button.Paint = function(s,w,h)
  33. surface.SetDrawColor( Color(0,0,0) )
  34. surface.DrawRect( 0,0, w,h )
  35. surface.SetDrawColor( Color(90,0,0) )
  36. surface.DrawRect( 0+3,0+3, w-6,h-6 )
  37. surface.SetTextColor(255,255,255)
  38. surface.SetFont("PopupFont")
  39. surface.SetTextPos(24,5.5)
  40. surface.DrawText( "Continuer" )
  41. end
  42. button.DoClick = function(s,w,h)
  43. Popup:Close()
  44. end
  45.  
  46. end)
Advertisement
Add Comment
Please, Sign In to add comment