Advertisement
Guest User

Untitled

a guest
May 4th, 2017
129
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Lua 4.44 KB | None | 0 0
  1. local localPlayer = getLocalPlayer()
  2. local localPlayerName = getPlayerName(localPlayer)
  3. local localRootElement = getRootElement()
  4. local newUser
  5. local passwordAttempts = 0
  6.  
  7. addEventHandler("onClientGUIClick", Canel, closeWindow)
  8. function CreateLoginWindow()
  9. wdwLogin = guiCreateWindow(226,146,372,233,"[Admin Login System]",false)
  10. guiWindowSetMovable(wdwLogin,false)
  11. guiWindowSetSizable(wdwLogin,false)
  12. tabpanel = guiCreateTabPanel(0.0242,0.0858,0.9489,0.8755,true,wdwLogin)
  13. tab1 = guiCreateTab("Login",tabpanel)
  14. login = guiCreateButton(0.1000,0.8611,0.2436,0.1167,"Login",true,tab1)
  15. username = guiCreateLabel(0.0113,0.1167,0.3768,0.15,"UserName:",true,tab1)
  16. guiLabelSetColor(username,255,255,255)
  17. guiLabelSetVerticalAlign(username,"top")
  18. guiLabelSetHorizontalAlign(username,"left",false)
  19. guiSetFont(username,"default-bold-small")
  20. password = guiCreateLabel(0.0113,0.2889,0.3768,0.15,"Password:",true,tab1)
  21. guiLabelSetColor(password,255,255,255)
  22. guiLabelSetVerticalAlign(password,"top")
  23. guiLabelSetHorizontalAlign(password,"left",false)
  24. guiSetFont(password,"default-bold-small")
  25. username = guiCreateEdit(0.2266,0.1,0.3598,0.1389,localPlayerName,true,tab1)
  26. password = guiCreateEdit(0.2266,0.2611,0.3598,0.1389,"",true,tab1)
  27. Canel = guiCreateButton( 0.4, 0.85, 0.20, 0.15, "Cancel", true,tab1 )
  28. guiEditSetMasked(password,true)
  29.  
  30. tab2 = guiCreateTab("Info",tabpanel)
  31.  
  32.  
  33. guiSetVisible(wdwLogin,false)
  34.  
  35. end
  36. function closeWindow()
  37. guiSetVisible(wdwLogin, false)
  38. end
  39.  
  40. addEventHandler("onClientResourceStart", getResourceRootElement(getThisResource()),
  41. function()
  42. CreateLoginWindow()
  43. lblDisplayArea = guiCreateLabel(0.100,0.800,0.800,0.100,"",true)
  44. guiLabelSetHorizontalAlign(lblDisplayArea,"center",true)
  45.  
  46. addEventHandler("onClientGUIClick",login,clientSubmitLogin,false)
  47. addEventHandler("onClientGUIClick",register,clientSubmitCreate,false)
  48. addEventHandler("onClientGUIAccepted",password,clientEnterLogin,false)
  49.  
  50. triggerServerEvent ("checkValidAct",localPlayer,localPlayerName)
  51. end
  52. )
  53.  
  54. function clientNewUserHandler() --Called when no account exists for this players name...
  55. newUser = true
  56. guiSetText(lblDisplayArea,"")
  57. if(tab2) then
  58. guiSetVisible(wdwLogin,true)
  59. guiBringToFront(edtPass) --Puts the cursor into the password box for typing...
  60. end
  61. showCursor(true)
  62. guiSetInputEnabled(true)
  63. end
  64. addEvent("clientNewUser",true)
  65. addEventHandler("clientNewUser",localRootElement,clientNewUserHandler)
  66.  
  67. function clientReturningUserHandler() --Called when there is an existing account for this player's name...
  68. newUser = false
  69. guiSetText(lblDisplayArea,"You are using a registered nickname - please enter your password.")
  70. if(wdwLogin) then
  71. guiSetVisible(wdwLogin,true)
  72. guiBringToFront(edtPass) --Puts the cursor into the password box for typing...
  73. end
  74. showCursor(true)
  75. guiSetInputEnabled(true)
  76. end
  77. addEvent("clientReturningUser",true)
  78. addEventHandler("clientReturningUser",localRootElement,clientReturningUserHandler)
  79.  
  80. function clientEnterLogin()
  81. if(newUser) then
  82. triggerServerEvent("SubmitCreate",localRootElement,guiGetText(edtUser),guiGetText(edtPass))
  83. else
  84. triggerServerEvent("SubmitLogin",localRootElement,guiGetText(edtUser),guiGetText(edtPass))
  85. end
  86. end
  87.  
  88. function clientSubmitLogin(button)
  89. if(button == "left") then
  90. if(newUser) then
  91. triggerServerEvent("SubmitCreate",localRootElement,guiGetText(edtUser),guiGetText(edtPass))
  92. else
  93. triggerServerEvent("SubmitLogin",localRootElement,guiGetText(edtUser),guiGetText(edtPass))
  94. end
  95. end
  96. end
  97.  
  98. function clientDisplayAreaHandler(theMessage)
  99. guiSetText(lblDisplayArea,theMessage)
  100. end
  101. addEvent("clientDisplayArea",true)
  102. addEventHandler("clientDisplayArea",localRootElement,clientDisplayAreaHandler)
  103.  
  104. function clientWrongPasswordHandler(theMessage)
  105. passwordAttempts = passwordAttempts + 1
  106. if(passwordAttempts > 3) then
  107. guiSetText(lblDisplayArea,"Too many incorrect password attempts. Please disconnect.")
  108. destroyElement(wdwLogin)
  109. triggerServerEvent("removePlayer",localPlayer)
  110. end
  111. end
  112. addEvent("clientWrongPassword",true)
  113. addEventHandler("clientWrongPassword",localRootElement,clientWrongPasswordHandler)
  114.  
  115. function clientLoginSuccessHandler()
  116. guiSetInputEnabled(false)
  117. destroyElement(wdwLogin)
  118. destroyElement(lblDisplayArea)
  119. wdwLogin = nil
  120. newUser = nil
  121. lblDisplayArea = nil
  122. passwordAttempts = nil
  123. localPlayer = nil
  124. localPlayerName = nil
  125. localRootElement = nil
  126. showCursor(false)
  127. end
  128. addEvent("clientLoginSuccess",true)
  129. addEventHandler("clientLoginSuccess",localRootElement,clientLoginSuccessHandler)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement