Facebook
From aseq, 5 Years ago, written in Plain Text.
Embed
Download Paste or View Raw
Hits: 230
  1. DGS = exports.dgs
  2. local loginedit = DGS:dgsCreateEdit(596, 280, 220, 51,"Wpisz swój login",false, nil, tocolor(255,255,255,255),1,1,nil,00000000)
  3. local hasloedit = DGS:dgsCreateEdit(596, 335, 220, 51,"Wpisz swoje hasło",false, nil, tocolor(255,255,255,255),1,1,nil,tocolor(0,0,0,0))
  4.  
  5. local loginbutton = DGS:dgsCreateButton(575, 438, 217, 41, "Zaloguj się", false,nil, tocolor(255,255,255,255),1,1,nil,nil,nil,tocolor(255,255,255,0),tocolor(255,255,255,0),tocolor(255,255,255,0))
  6. local register = DGS:dgsCreateButton(575, 494, 217, 41, "Zarejestruj się", false,nil, tocolor(255,255,255,255),1,1,nil,nil,nil,tocolor(255,255,255,0),tocolor(255,255,255,0),tocolor(255,255,255,0))
  7.  
  8. local back = dxCreateTexture("images/background.png")
  9. local loginimg = dxCreateTexture("images/login.png")
  10.  
  11. local image =  DGS:dgsCreateImage ( 0, 0, 1366, 768, loginimg, false)
  12. local background = DGS:dgsCreateImage ( 0, 0, 1366, 768, back, false)
  13. DGS:dgsSetVisible(loginedit,false)
  14. DGS:dgsSetVisible(hasloedit,false)
  15. DGS:dgsSetVisible(loginbutton,false)
  16. DGS:dgsSetVisible(register,false)
  17. DGS:dgsSetVisible(image,false)
  18. DGS:dgsSetVisible(background,false)
  19.  
  20.         function showLoginPanel()
  21.                 DGS:dgsSetVisible(loginedit,true)
  22.                 DGS:dgsSetVisible(hasloedit,true)
  23.                 DGS:dgsSetVisible(loginbutton,true)
  24.                 DGS:dgsSetVisible(register,true)
  25.                 DGS:dgsSetVisible(image,true)
  26.                 DGS:dgsSetVisible(background,true)
  27.                         DGS:dgsSetAlpha(image,0)
  28.                         DGS:dgsAlphaTo(image,170,false,"Linear",2000)
  29.                         DGS:dgsSetAlpha(loginedit,0)
  30.                         DGS:dgsAlphaTo(loginedit,170,false,"Linear",2000)
  31.                         DGS:dgsSetAlpha(hasloedit,0)
  32.                         DGS:dgsAlphaTo(hasloedit,170,false,"Linear",2000)
  33.                                 setTimer(function()
  34.                                         showCursor(true)
  35.                                 end,2000,1)
  36.         end
  37.         addEventHandler("onClientResourceStart",root,showLoginPanel)
  38.        
  39.         function hideLoginPanel()
  40.                 DGS:dgsAlphaTo(image,0,false,"Linear",2000)
  41.                 DGS:dgsAlphaTo(background,0,false,"Linear",2000)
  42.                 DGS:dgsAlphaTo(loginedit,0,false,"Linear",2000)
  43.                 DGS:dgsAlphaTo(hasloedit,0,false,"Linear",2000)
  44.                         setTimer(function()
  45.                                 showCursor(false)
  46.                                 outputChatBox("pomyślnie się zalogowałeś")
  47.                                 DGS:dgsSetVisible(loginedit,false)
  48.                                 DGS:dgsSetVisible(hasloedit,false)
  49.                                 DGS:dgsSetVisible(loginbutton,false)
  50.                                 DGS:dgsSetVisible(register,false)
  51.                                 DGS:dgsSetVisible(image,false)
  52.                                 DGS:dgsSetVisible(background,false)
  53.                         end,2000,1)
  54.         end
  55.         addCommandHandler("wylacz",hideLoginPanel)
  56.        
  57.         function submitLogin(login,pass)
  58.        
  59.         end
  60.        
  61.         function submitRegister(login,pass)
  62.        
  63.         end
  64.  
  65.         function dgsFocus()
  66.                 if source == loginedit and DGS:dgsGetText(loginedit) == "Wpisz swój login" then
  67.                         DGS:dgsSetText(loginedit,"")
  68.                 elseif source == hasloedit and DGS:dgsGetText(hasloedit) == "Wpisz swoje hasło" then
  69.                         DGS:dgsSetText(hasloedit,"")
  70.                 end    
  71.         end
  72.         addEventHandler("onDgsFocus", root, dgsFocus, true)
  73.         function dgsBlur()
  74.                 if source == loginedit and DGS:dgsGetText(loginedit) == "" then
  75.                         DGS:dgsSetText(loginedit,"Wpisz swój login")
  76.                 elseif source == hasloedit and DGS:dgsGetText(hasloedit) == "" then
  77.                         DGS:dgsSetText(hasloedit,"Wpisz swoje hasło")
  78.                 end    
  79.         end
  80.         addEventHandler("onDgsBlur", root, dgsBlur, true)
  81.