Advertisement
Guest User

Untitled

a guest
Jan 14th, 2017
144
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 6.73 KB | None | 0 0
  1. include('shared.lua')
  2.  
  3. function ENT:Draw()
  4. self:DrawModel()
  5. end
  6.  
  7. // Realised by HamsterOh
  8.  
  9.  
  10. surface.CreateFont( "Username", {
  11. font = "Arial",
  12. extended = false,
  13. size = 25,
  14. weight = 500,
  15. blursize = 0,
  16. scanlines = 0,
  17. antialias = true,
  18. underline = false,
  19. italic = false,
  20. strikeout = false,
  21. symbol = false,
  22. rotary = false,
  23. shadow = false,
  24. additive = false,
  25. outline = false,
  26. } )
  27.  
  28. surface.CreateFont( "Password", {
  29. font = "Arial",
  30. extended = false,
  31. size = 40,
  32. weight = 500,
  33. blursize = 0,
  34. scanlines = 0,
  35. antialias = true,
  36. underline = false,
  37. italic = false,
  38. strikeout = false,
  39. symbol = false,
  40. rotary = false,
  41. shadow = false,
  42. additive = false,
  43. outline = false,
  44. } )
  45.  
  46. surface.CreateFont( "Connect", {
  47. font = "Arial",
  48. extended = false,
  49. size = 25,
  50. weight = 500,
  51. blursize = 0,
  52. scanlines = 0,
  53. antialias = true,
  54. underline = false,
  55. italic = false,
  56. strikeout = false,
  57. symbol = false,
  58. rotary = false,
  59. shadow = false,
  60. additive = false,
  61. outline = false,
  62. } )
  63.  
  64. surface.CreateFont( "Info", {
  65. font = "Arial",
  66. extended = false,
  67. size = 20,
  68. weight = 500,
  69. blursize = 0,
  70. scanlines = 0,
  71. antialias = true,
  72. underline = false,
  73. italic = false,
  74. strikeout = false,
  75. symbol = false,
  76. rotary = false,
  77. shadow = false,
  78. additive = false,
  79. outline = false,
  80. } )
  81.  
  82. function ComputerPanel ()
  83.  
  84.  
  85. local LS_invisiblebackground = vgui.Create("DFrame") // Don't delete this frame !
  86. LS_invisiblebackground:SetTitle("")
  87. LS_invisiblebackground:SetZPos(2)
  88. LS_invisiblebackground:SetPos(ScrW()/2-400, ScrH()/2-300)
  89. LS_invisiblebackground:SetSize(800,600)
  90. LS_invisiblebackground:SetVisible(true)
  91. LS_invisiblebackground:SetDraggable(false)
  92. LS_invisiblebackground:ShowCloseButton(false)
  93. LS_invisiblebackground:MakePopup()
  94. LS_invisiblebackground:SetDeleteOnClose(true)
  95. LS_invisiblebackground:SetScreenLock(true)
  96. LS_invisiblebackground.Paint = function(s , w , h)
  97. draw.RoundedBox(0,0,0,w,h,Color(0, 144, 255, 0))
  98. surface.SetDrawColor( Color( 0, 0, 0, 255 ) )
  99. surface.DrawOutlinedRect( 0, 0, 800, 600 )
  100. end
  101.  
  102. local LS_usernamebar = vgui.Create("DPanel", LS_invisiblebackground)
  103. LS_usernamebar:SetZPos(3)
  104. LS_usernamebar:SetPos(300, 300)
  105. LS_usernamebar:SetSize(250,25)
  106. LS_usernamebar:SetVisible(true)
  107.  
  108. LS_usernamebar.Paint = function(s , w , h)
  109. draw.RoundedBox(0,0,0,w,h,Color(255,255,255,255))
  110. surface.SetDrawColor( Color( 0, 0, 0, 255 ) )
  111. surface.DrawOutlinedRect( 0, 0, 800, 600 )
  112. end
  113.  
  114. local LS_passwordbar = vgui.Create("DPanel", LS_invisiblebackground)
  115. LS_passwordbar:SetZPos(3)
  116. LS_passwordbar:SetPos(300, 260)
  117. LS_passwordbar:SetSize(250,25)
  118. LS_passwordbar:SetVisible(true)
  119. LS_passwordbar.Paint = function(s , w , h)
  120. draw.RoundedBox(0,0,0,w,h,Color(255,255,255,255))
  121. surface.SetDrawColor( Color( 0, 0, 0, 255 ) )
  122. surface.DrawOutlinedRect( 0, 0, 800, 600 )
  123. end
  124.  
  125. local LS_imageframe = vgui.Create("DPanel", LS_invisiblebackground)
  126. LS_imageframe:SetZPos(3)
  127. LS_imageframe:SetPos(345, 95)
  128. LS_imageframe:SetSize(145,145)
  129. LS_imageframe:SetVisible(true)
  130. LS_imageframe.Paint = function(s , w , h)
  131. draw.RoundedBox(0,0,0,w,h,Color(80, 168, 216, 255))
  132. end
  133.  
  134. local LS_username = vgui.Create("DLabel", LS_invisiblebackground)
  135. LS_username:SetZPos(4)
  136. LS_username:SetFont("Username")
  137. LS_username:SetText("Marius Feno")
  138. LS_username:SetPos(310, 260)
  139. LS_username:SetVisible(true)
  140. LS_username:SizeToContents()
  141. LS_username:SetTextColor( Color( 0, 0, 0, 255 ) )
  142.  
  143. local LS_password = vgui.Create("DLabel", LS_invisiblebackground)
  144. LS_password:SetZPos(4)
  145. LS_password:SetFont("Password")
  146. LS_password:SetText("************")
  147. LS_password:SetPos(310, 300)
  148. LS_password:SetVisible(true)
  149. LS_password:SizeToContents()
  150. LS_password:SetTextColor( Color( 0, 0, 0, 255 ) )
  151.  
  152. local LS_info = vgui.Create("DLabel", LS_invisiblebackground)
  153. LS_info:SetZPos(4)
  154. LS_info:SetFont("Info")
  155. LS_info:SetText("Rndows 7 Entreprise (64-bits)")
  156. LS_info:SetPos(550, 575)
  157. LS_info:SetVisible(true)
  158. LS_info:SizeToContents()
  159. LS_info:SetTextColor( Color( 0, 0, 0, 255 ) )
  160.  
  161. local LS_closebutton = vgui.Create("DButton", LS_invisiblebackground)
  162. LS_closebutton:SetZPos(3)
  163. LS_closebutton:SetFont("Connect")
  164. LS_closebutton:SetText("X")
  165. LS_closebutton:SetPos(780,0)
  166. LS_closebutton:SetSize(20,20)
  167. LS_closebutton.DoClick = function()
  168. LS_invisiblebackground:Close()
  169. end
  170.  
  171. local LS_connectbutton = vgui.Create("DButton", LS_invisiblebackground)
  172. LS_connectbutton:SetText("")
  173. LS_connectbutton:SetFont("Connect")
  174. LS_connectbutton:SetPos(560, 300)
  175. LS_connectbutton:SetSize(25,25)
  176. LS_connectbutton:SetZPos(4)
  177. LS_connectbutton.DoClick = function()
  178. LS_invisiblebackground:Close()
  179. WLS_invisiblebackground:SetVisible(true)
  180. end
  181. LS_connectbutton.Paint = function(s , w , h)
  182. draw.RoundedBox(0,0,0,w,h,Color(0, 148, 255,0))
  183. end
  184.  
  185.  
  186. local LS_userimage = vgui.Create( "AvatarImage", LS_invisiblebackground)
  187. LS_userimage:SetSize( 135, 135 )
  188. LS_userimage:SetZPos(4)
  189. LS_userimage:SetPos( 350, 100 )
  190. LS_userimage:SetPlayer( LocalPlayer(), 64 )
  191.  
  192. local LS_background = vgui.Create( "DImage", LS_invisiblebackground )
  193. LS_background:SetPos( 0, 0 )
  194. LS_background:SetZPos(1)
  195. LS_background:SetSize( 800, 600 )
  196. LS_background:SetImage( "addons/rnlife_computer/sessionbg.jpg" )
  197.  
  198. local LS_nextbuttonimage = vgui.Create( "DImage", LS_invisiblebackground )
  199. LS_nextbuttonimage:SetPos( 560, 300 )
  200. LS_nextbuttonimage:SetZPos(3)
  201. LS_nextbuttonimage:SetSize( 25, 25 )
  202. LS_nextbuttonimage:SetImage( "addons/rnlife_computer/nextbutton.png" )
  203.  
  204. local LS_windowslogo = vgui.Create( "DImage", LS_invisiblebackground )
  205. LS_windowslogo:SetPos( 520, 570 )
  206. LS_windowslogo:SetZPos(3)
  207. LS_windowslogo:SetSize( 25, 25 )
  208. LS_windowslogo:SetImage( "addons/rnlife_computer/Windows-logo.png" )
  209.  
  210.  
  211. local WLS_invisiblebackground = vgui.Create("DFrame")
  212. WLS_invisiblebackground:SetTitle("")
  213. WLS_invisiblebackground:SetZPos(2)
  214. WLS_invisiblebackground:SetPos(ScrW()/2-400, ScrH()/2-300)
  215. WLS_invisiblebackground:SetSize(800,600)
  216. WLS_invisiblebackground:SetVisible(false)
  217. WLS_invisiblebackground:MakePopup()
  218. WLS_invisiblebackground:SetDraggable(false)
  219. WLS_invisiblebackground:ShowCloseButton(true)
  220. WLS_invisiblebackground:SetDeleteOnClose(true)
  221. WLS_invisiblebackground:SetScreenLock(true)
  222. WLS_invisiblebackground.Paint = function(s , w , h)
  223. draw.RoundedBox(0,0,0,w,h,Color(0, 144, 255, 0))
  224. surface.SetDrawColor( Color( 0, 0, 0, 255 ) )
  225. surface.DrawOutlinedRect( 0, 0, 800, 600 )
  226. end
  227.  
  228. end
  229.  
  230. usermessage.Hook("ComputerPanel", ComputerPanel)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement