Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- include('shared.lua')
- function ENT:Draw()
- self:DrawModel()
- end
- // Realised by HamsterOh
- surface.CreateFont( "Username", {
- font = "Arial",
- extended = false,
- size = 25,
- weight = 500,
- blursize = 0,
- scanlines = 0,
- antialias = true,
- underline = false,
- italic = false,
- strikeout = false,
- symbol = false,
- rotary = false,
- shadow = false,
- additive = false,
- outline = false,
- } )
- surface.CreateFont( "Password", {
- font = "Arial",
- extended = false,
- size = 40,
- weight = 500,
- blursize = 0,
- scanlines = 0,
- antialias = true,
- underline = false,
- italic = false,
- strikeout = false,
- symbol = false,
- rotary = false,
- shadow = false,
- additive = false,
- outline = false,
- } )
- surface.CreateFont( "Connect", {
- font = "Arial",
- extended = false,
- size = 25,
- weight = 500,
- blursize = 0,
- scanlines = 0,
- antialias = true,
- underline = false,
- italic = false,
- strikeout = false,
- symbol = false,
- rotary = false,
- shadow = false,
- additive = false,
- outline = false,
- } )
- surface.CreateFont( "Info", {
- font = "Arial",
- extended = false,
- size = 20,
- weight = 500,
- blursize = 0,
- scanlines = 0,
- antialias = true,
- underline = false,
- italic = false,
- strikeout = false,
- symbol = false,
- rotary = false,
- shadow = false,
- additive = false,
- outline = false,
- } )
- function ComputerPanel ()
- local LS_invisiblebackground = vgui.Create("DFrame") // Don't delete this frame !
- LS_invisiblebackground:SetTitle("")
- LS_invisiblebackground:SetZPos(2)
- LS_invisiblebackground:SetPos(ScrW()/2-400, ScrH()/2-300)
- LS_invisiblebackground:SetSize(800,600)
- LS_invisiblebackground:SetVisible(true)
- LS_invisiblebackground:SetDraggable(false)
- LS_invisiblebackground:ShowCloseButton(false)
- LS_invisiblebackground:MakePopup()
- LS_invisiblebackground:SetDeleteOnClose(true)
- LS_invisiblebackground:SetScreenLock(true)
- LS_invisiblebackground.Paint = function(s , w , h)
- draw.RoundedBox(0,0,0,w,h,Color(0, 144, 255, 0))
- surface.SetDrawColor( Color( 0, 0, 0, 255 ) )
- surface.DrawOutlinedRect( 0, 0, 800, 600 )
- end
- local LS_usernamebar = vgui.Create("DPanel", LS_invisiblebackground)
- LS_usernamebar:SetZPos(3)
- LS_usernamebar:SetPos(300, 300)
- LS_usernamebar:SetSize(250,25)
- LS_usernamebar:SetVisible(true)
- LS_usernamebar.Paint = function(s , w , h)
- draw.RoundedBox(0,0,0,w,h,Color(255,255,255,255))
- surface.SetDrawColor( Color( 0, 0, 0, 255 ) )
- surface.DrawOutlinedRect( 0, 0, 800, 600 )
- end
- local LS_passwordbar = vgui.Create("DPanel", LS_invisiblebackground)
- LS_passwordbar:SetZPos(3)
- LS_passwordbar:SetPos(300, 260)
- LS_passwordbar:SetSize(250,25)
- LS_passwordbar:SetVisible(true)
- LS_passwordbar.Paint = function(s , w , h)
- draw.RoundedBox(0,0,0,w,h,Color(255,255,255,255))
- surface.SetDrawColor( Color( 0, 0, 0, 255 ) )
- surface.DrawOutlinedRect( 0, 0, 800, 600 )
- end
- local LS_imageframe = vgui.Create("DPanel", LS_invisiblebackground)
- LS_imageframe:SetZPos(3)
- LS_imageframe:SetPos(345, 95)
- LS_imageframe:SetSize(145,145)
- LS_imageframe:SetVisible(true)
- LS_imageframe.Paint = function(s , w , h)
- draw.RoundedBox(0,0,0,w,h,Color(80, 168, 216, 255))
- end
- local LS_username = vgui.Create("DLabel", LS_invisiblebackground)
- LS_username:SetZPos(4)
- LS_username:SetFont("Username")
- LS_username:SetText("Marius Feno")
- LS_username:SetPos(310, 260)
- LS_username:SetVisible(true)
- LS_username:SizeToContents()
- LS_username:SetTextColor( Color( 0, 0, 0, 255 ) )
- local LS_password = vgui.Create("DLabel", LS_invisiblebackground)
- LS_password:SetZPos(4)
- LS_password:SetFont("Password")
- LS_password:SetText("************")
- LS_password:SetPos(310, 300)
- LS_password:SetVisible(true)
- LS_password:SizeToContents()
- LS_password:SetTextColor( Color( 0, 0, 0, 255 ) )
- local LS_info = vgui.Create("DLabel", LS_invisiblebackground)
- LS_info:SetZPos(4)
- LS_info:SetFont("Info")
- LS_info:SetText("Rndows 7 Entreprise (64-bits)")
- LS_info:SetPos(550, 575)
- LS_info:SetVisible(true)
- LS_info:SizeToContents()
- LS_info:SetTextColor( Color( 0, 0, 0, 255 ) )
- local LS_closebutton = vgui.Create("DButton", LS_invisiblebackground)
- LS_closebutton:SetZPos(3)
- LS_closebutton:SetFont("Connect")
- LS_closebutton:SetText("X")
- LS_closebutton:SetPos(780,0)
- LS_closebutton:SetSize(20,20)
- LS_closebutton.DoClick = function()
- LS_invisiblebackground:Close()
- end
- local LS_connectbutton = vgui.Create("DButton", LS_invisiblebackground)
- LS_connectbutton:SetText("")
- LS_connectbutton:SetFont("Connect")
- LS_connectbutton:SetPos(560, 300)
- LS_connectbutton:SetSize(25,25)
- LS_connectbutton:SetZPos(4)
- LS_connectbutton.DoClick = function()
- LS_invisiblebackground:Close()
- WLS_invisiblebackground:SetVisible(true)
- end
- LS_connectbutton.Paint = function(s , w , h)
- draw.RoundedBox(0,0,0,w,h,Color(0, 148, 255,0))
- end
- local LS_userimage = vgui.Create( "AvatarImage", LS_invisiblebackground)
- LS_userimage:SetSize( 135, 135 )
- LS_userimage:SetZPos(4)
- LS_userimage:SetPos( 350, 100 )
- LS_userimage:SetPlayer( LocalPlayer(), 64 )
- local LS_background = vgui.Create( "DImage", LS_invisiblebackground )
- LS_background:SetPos( 0, 0 )
- LS_background:SetZPos(1)
- LS_background:SetSize( 800, 600 )
- LS_background:SetImage( "addons/rnlife_computer/sessionbg.jpg" )
- local LS_nextbuttonimage = vgui.Create( "DImage", LS_invisiblebackground )
- LS_nextbuttonimage:SetPos( 560, 300 )
- LS_nextbuttonimage:SetZPos(3)
- LS_nextbuttonimage:SetSize( 25, 25 )
- LS_nextbuttonimage:SetImage( "addons/rnlife_computer/nextbutton.png" )
- local LS_windowslogo = vgui.Create( "DImage", LS_invisiblebackground )
- LS_windowslogo:SetPos( 520, 570 )
- LS_windowslogo:SetZPos(3)
- LS_windowslogo:SetSize( 25, 25 )
- LS_windowslogo:SetImage( "addons/rnlife_computer/Windows-logo.png" )
- local WLS_invisiblebackground = vgui.Create("DFrame")
- WLS_invisiblebackground:SetTitle("")
- WLS_invisiblebackground:SetZPos(2)
- WLS_invisiblebackground:SetPos(ScrW()/2-400, ScrH()/2-300)
- WLS_invisiblebackground:SetSize(800,600)
- WLS_invisiblebackground:SetVisible(false)
- WLS_invisiblebackground:MakePopup()
- WLS_invisiblebackground:SetDraggable(false)
- WLS_invisiblebackground:ShowCloseButton(true)
- WLS_invisiblebackground:SetDeleteOnClose(true)
- WLS_invisiblebackground:SetScreenLock(true)
- WLS_invisiblebackground.Paint = function(s , w , h)
- draw.RoundedBox(0,0,0,w,h,Color(0, 144, 255, 0))
- surface.SetDrawColor( Color( 0, 0, 0, 255 ) )
- surface.DrawOutlinedRect( 0, 0, 800, 600 )
- end
- end
- usermessage.Hook("ComputerPanel", ComputerPanel)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement