Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- local localPlayer = getLocalPlayer()
- local localPlayerName = getPlayerName(localPlayer)
- local localRootElement = getRootElement()
- local newUser
- local passwordAttempts = 0
- function CreateLoginWindow()
- wdwLogin = guiCreateWindow(226,146,372,233,"[Admin Login System]",false)
- guiWindowSetMovable(wdwLogin,false)
- guiWindowSetSizable(wdwLogin,false)
- tabpanel = guiCreateTabPanel(0.0242,0.0858,0.9489,0.8755,true,wdwLogin)
- tab1 = guiCreateTab("Login",tabpanel)
- login = guiCreateButton(0.1000,0.8611,0.2436,0.1167,"Login",true,tab1)
- username = guiCreateLabel(0.0113,0.1167,0.3768,0.15,"UserName:",true,tab1)
- guiLabelSetColor(username,255,255,255)
- guiLabelSetVerticalAlign(username,"top")
- guiLabelSetHorizontalAlign(username,"left",false)
- guiSetFont(username,"default-bold-small")
- password = guiCreateLabel(0.0113,0.2889,0.3768,0.15,"Password:",true,tab1)
- guiLabelSetColor(password,255,255,255)
- guiLabelSetVerticalAlign(password,"top")
- guiLabelSetHorizontalAlign(password,"left",false)
- guiSetFont(password,"default-bold-small")
- username = guiCreateEdit(0.2266,0.1,0.3598,0.1389,localPlayerName,true,tab1)
- password = guiCreateEdit(0.2266,0.2611,0.3598,0.1389,"",true,tab1)
- Canel = guiCreateButton( 0.4, 0.85, 0.20, 0.15, "Cancel", true,tab1 )
- guiEditSetMasked(password,true)
- tab2 = guiCreateTab("Info",tabpanel)
- guiSetVisible(wdwLogin,false)
- addEventHandler("onClientGUIClick", Canel, closeWindow)
- end
- function Binds()
- bindKey( "F2", "down", CreateLoginWindow )
- addEventHandler("onResourceStart", getRootElement(), Binds)
- function closeWindow()
- guiSetVisible(wdwLogin, false)
- showCursor( false )
- end
- addEventHandler("onClientResourceStart", getResourceRootElement(getThisResource()),
- function()
- CreateLoginWindow()
- lblDisplayArea = guiCreateLabel(0.100,0.800,0.800,0.100,"",true)
- guiLabelSetHorizontalAlign(lblDisplayArea,"center",true)
- addEventHandler("onClientGUIClick",login,clientSubmitLogin,false)
- addEventHandler("onClientGUIClick",register,clientSubmitCreate,false)
- addEventHandler("onClientGUIAccepted",password,clientEnterLogin,false)
- triggerServerEvent ("checkValidAct",localPlayer,localPlayerName)
- end
- )
- function clientNewUserHandler() --Called when no account exists for this players name...
- newUser = true
- guiSetText(lblDisplayArea,"")
- if(tab2) then
- guiSetVisible(wdwLogin,true)
- guiBringToFront(edtPass) --Puts the cursor into the password box for typing...
- end
- showCursor(true)
- guiSetInputEnabled(true)
- end
- addEvent("clientNewUser",true)
- addEventHandler("clientNewUser",localRootElement,clientNewUserHandler)
- function clientReturningUserHandler() --Called when there is an existing account for this player's name...
- newUser = false
- guiSetText(lblDisplayArea,"You are using a registered nickname - please enter your password.")
- if(wdwLogin) then
- guiSetVisible(wdwLogin,true)
- guiBringToFront(edtPass) --Puts the cursor into the password box for typing...
- end
- showCursor(true)
- guiSetInputEnabled(true)
- end
- addEvent("clientReturningUser",true)
- addEventHandler("clientReturningUser",localRootElement,clientReturningUserHandler)
- function clientEnterLogin()
- if(newUser) then
- triggerServerEvent("SubmitCreate",localRootElement,guiGetText(edtUser),guiGetText(edtPass))
- else
- triggerServerEvent("SubmitLogin",localRootElement,guiGetText(edtUser),guiGetText(edtPass))
- end
- end
- function clientSubmitLogin(button)
- if(button == "left") then
- if(newUser) then
- triggerServerEvent("SubmitCreate",localRootElement,guiGetText(edtUser),guiGetText(edtPass))
- else
- triggerServerEvent("SubmitLogin",localRootElement,guiGetText(edtUser),guiGetText(edtPass))
- end
- end
- end
- function clientDisplayAreaHandler(theMessage)
- guiSetText(lblDisplayArea,theMessage)
- end
- addEvent("clientDisplayArea",true)
- addEventHandler("clientDisplayArea",localRootElement,clientDisplayAreaHandler)
- function clientWrongPasswordHandler(theMessage)
- passwordAttempts = passwordAttempts + 1
- if(passwordAttempts > 3) then
- guiSetText(lblDisplayArea,"Too many incorrect password attempts. Please disconnect.")
- destroyElement(wdwLogin)
- triggerServerEvent("removePlayer",localPlayer)
- end
- end
- addEvent("clientWrongPassword",true)
- addEventHandler("clientWrongPassword",localRootElement,clientWrongPasswordHandler)
- function clientLoginSuccessHandler()
- guiSetInputEnabled(false)
- destroyElement(wdwLogin)
- destroyElement(lblDisplayArea)
- wdwLogin = nil
- newUser = nil
- lblDisplayArea = nil
- passwordAttempts = nil
- localPlayer = nil
- localPlayerName = nil
- localRootElement = nil
- showCursor(false)
- end
- addEvent("clientLoginSuccess",true)
- addEventHandler("clientLoginSuccess",localRootElement,clientLoginSuccessHandler)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement