Jump to content

Pregunta Nº2 Script "Mail"

PATonyx97

By PATonyx97
in Scripting

Recommended Posts

PATonyx97 Square

PATonyx97

Posted
Posted

Bien, intente crearla pero no me sale. He Aqui el codigo:

Client:

MailLogin = guiCreateWindow(429,193,514,237,"COC Mail Login",false) 
lblMailIDlogin = guiCreateLabel(101,53,49,18,"Mail ID:",false,MailLogin) 
lblPasswordLogin = guiCreateLabel(87,107,61,17,"Password:",false,MailLogin) 
btnLogin = guiCreateButton(169,142,182,27,"Login",false,MailLogin) 
editMailIDLogin = guiCreateEdit(171,49,171,25,"",false,MailLogin) 
editPasswordLogin = guiCreateEdit(171,101,171,25,"",false,MailLogin) 
btnExitLogin = guiCreateButton(36,186,182,27,"Exit",false,MailLogin) 
btnCreateMailLogin = guiCreateButton(303,186,182,27,"Create Mail",false,MailLogin) 
lblERRORSLogin = guiCreateLabel(173,77,276,19,"",false,MailLogin) 
guiWindowSetSizable(MailLogin,false) 
guiEditSetMasked ( editPasswordLogin, true ) 
  
---------------------------------------------------------------------------------------------------------- 
  
MailRegister = guiCreateWindow(429,193,514,237,"COC Mail Register",false) 
editPasswordRegister = guiCreateEdit(171,70,171,25,"",false,MailRegister) 
editPassword2Register = guiCreateEdit(171,112,171,25,"",false,MailRegister) 
editMailIDRegister = guiCreateEdit(171,29,171,25,"",false,MailRegister) 
lblMailIDRegister = guiCreateLabel(108,34,47,17,"Mail ID:",false,MailRegister) 
lblPasswordRegister = guiCreateLabel(92,73,74,18,"Password:",false,MailRegister) 
lblPassword2Register = guiCreateLabel(47,116,101,16,"Confirm Password:",false,MailRegister) 
btnCreateRegister = guiCreateButton(181,152,147,30,"Create",false,MailRegister) 
btnCloseRegister = guiCreateButton(184,191,145,30,"Close",false,MailRegister) 
lblERRORSRegister = guiCreateLabel(357,72,146,18,"",false,MailRegister) 
guiSetVisible ( MailLogin, false ) 
guiSetVisible ( MailRegister, false ) 
guiWindowSetSizable(MailRegister,false) 
guiEditSetMasked ( editPasswordRegister, true ) 
guiEditSetMasked ( editPassword2Register, true ) 
  
---------------------------------------------------------------------------------------------------------- 
  
COCMail = guiCreateWindow(244,167,926,530,"COC Mail",false) 
guiWindowSetSizable(COCMail,false) 
lblNameAccount1 = guiCreateLabel(19,45,120,18,"Your Name Account:",false,COCMail) 
lblNameAccount2 = guiCreateLabel(139,45,194,17,"",false,COCMail) 
btnRefresh = guiCreateButton(31,101,114,43,"Refresh",false,COCMail) 
btnNew = guiCreateButton(178,101,156,43,"New",false,COCMail) 
btnDelete = guiCreateButton(366,101,114,43,"Delete",false,COCMail) 
btnLogout = guiCreateButton(515,101,114,43,"Logout",false,COCMail) 
editMSN = guiCreateEdit(640,52,264,458,"",false,COCMail) 
gridMSN = guiCreateGridList(31,166,599,320,false,COCMail) 
guiEditSetReadOnly ( editMSN, true ) 
guiGridListSetSelectionMode(gridMSN,2) 
  
guiGridListAddColumn(gridMSN,"#",0.2) 
  
guiGridListAddColumn(gridMSN,"Sender",0.2) 
  
guiGridListAddColumn(gridMSN,"Subject",0.2) 
  
guiGridListAddColumn(gridMSN,"Time",0.2) 
  
for i = 1, 11 do 
    guiGridListAddRow(gridMSN) 
end 
  
guiSetVisible ( COCMail, false ) 
  
---------------------------------------------------------------------------------------------------------- 
  
windowCOCMailSendNewMail = guiCreateWindow(244,167,926,530,"COC Mail",false) 
guiWindowSetSizable(windowCOCMailSendNewMail,false) 
lblNameAccount3 = guiCreateLabel(19,45,120,18,"Your Name Account:",false,windowCOCMailSendNewMail) 
lblNameAccount4 = guiCreateLabel(139,45,194,17,"X97",false,windowCOCMailSendNewMail) 
memoMenssage = guiCreateMemo(23,159,876,297,"",false,windowCOCMailSendNewMail) 
lblTo = guiCreateLabel(153,83,31,17,"To:",false,windowCOCMailSendNewMail) 
lblSubject = guiCreateLabel(126,117,54,15,"Subject:",false,windowCOCMailSendNewMail) 
editSubject = guiCreateEdit(185,112,539,28,"",false,windowCOCMailSendNewMail) 
editTo = guiCreateEdit(185,77,539,28,"",false,windowCOCMailSendNewMail) 
btnSendNewMailBack = guiCreateButton(22,470,186,42,"Back",false,windowCOCMailSendNewMail) 
btnSendNewMailSend = guiCreateButton(713,470,186,42,"Send",false,windowCOCMailSendNewMail) 
guiSetVisible ( windowCOCMailSendNewMail, false ) 
  
---------------------------------------------------------------------------------------------------------- 
  
puertaCerrada = createObject ( 2987, 364.5, 187.5, 1014.4 ) 
markerEntrada = createMarker ( 1726.8, -1636.69, 21.6, "arrow", 2, 214, 128, 6, 100 ) 
markerSalida = createMarker ( 364.399, 188, 1014.9, "arrow", 1, 214, 128, 6, 100 ) 
marker1 = createMarker ( 359.199, 189.1, 1013.2, "cylinder", 0.7, 255, 255, 255, 150 ) 
marker2 = createMarker ( 355.699, 189.1, 1013.2, "cylinder", 0.7, 255, 255, 255, 150 ) 
setElementInterior ( puertaCerrada, 3 ) 
setElementInterior ( markerSalida, 3 ) 
setElementInterior ( marker1, 3 ) 
setElementInterior ( marker2, 3 ) 
  
function entrar () 
    setElementInterior ( getLocalPlayer(), 3 ) 
    setElementPosition ( getLocalPlayer(), 364.1986, 189.196, 1014.187 ) 
    outputChatBox ("Welcome To COC Ciber Cafe", getLocalPlayer(), 0, 255, 0) 
end 
addEventHandler ("onClientMarkerHit", markerEntrada, entrar) 
  
function entrar () 
    setElementInterior ( getLocalPlayer(), 0 ) 
    setElementPosition ( getLocalPlayer(), 1727.06, -1633.86, 20.215 ) 
    outputChatBox ("Bye Bye!", getLocalPlayer(), 0, 255, 0) 
end 
addEventHandler ("onClientMarkerHit", markerSalida, entrar) 
  
function Mail () 
    guiSetVisible ( MailLogin, true ) 
    showCursor ( true ) 
    setPedAnimation ( getLocalPlayer(), "INT_OFFICE", "OFF_Sit_Type_Loop" ) 
    setElementPosition ( getLocalPlayer(), 358.458, 189.279, 1014.81 ) 
    setElementFrozen ( getLocalPlayer(), true ) 
end 
addEventHandler ("onClientMarkerHit", marker1, Mail) 
  
function Mail2 () 
    guiSetVisible ( MailLogin, true ) 
    showCursor ( true ) 
    setPedAnimation ( getLocalPlayer(), "INT_OFFICE", "OFF_Sit_Type_Loop" ) 
    setElementPosition ( getLocalPlayer(), 356.445, 189.297, 1014.81 ) 
    setElementFrozen ( getLocalPlayer(), true ) 
end 
addEventHandler ("onClientMarkerHit", marker2, Mail2) 
  
---------------------------------------------------------------------------------------------------------- 
  
function ExitOfLogin ( button, state, absoluteX, absoluteY ) 
    if (source == btnExitLogin) then 
        guiSetVisible ( MailLogin, false ) 
        showCursor ( false ) 
        setElementFrozen ( getLocalPlayer(), false ) 
        setElementPosition ( getLocalPlayer(), 357.252, 189.344, 1014.19 ) 
        setPedAnimation ( getLocalPlayer() ) 
    end 
end 
addEventHandler ("onClientGUIClick", getRootElement(), ExitOfLogin) 
  
function ExitOfRegister ( button, state, absoluteX, absoluteY ) 
    if (source == btnCloseRegister) then 
        guiSetVisible ( MailLogin, true ) 
        guiSetVisible ( MailRegister, false ) 
        showCursor ( true ) 
    end 
end 
addEventHandler ("onClientGUIClick", getRootElement(), ExitOfRegister) 
  
---------------------------------------------------------------------------------------------------------- 
  
function OpenRegister ( button, state, absoluteX, absoluteY ) 
    if (source == btnCreateMailLogin) then 
        guiSetVisible ( MailRegister, true ) 
        guiSetVisible ( MailLogin, false ) 
        showCursor ( true ) 
    end 
end 
addEventHandler ("onClientGUIClick", getRootElement(), OpenRegister) 
  
function OpenMail ( button, state, absoluteX, absoluteY ) 
    if (source == btnLogin) then 
        usernameMail = guiGetText(editMailIDLogin) 
        passwordMail = guiGetText(editPasswordLogin) 
        triggerServerEvent("onRequestLoginMail",getLocalPlayer(),usernameMail,passwordMail) 
    end 
end 
addEventHandler ("onClientGUIClick", getRootElement(), OpenMail) 
  
function Error_msg(Text) 
    guiSetText(lblERRORSLogin, tostring(Text)) 
    setTimer(function() guiSetText(lblERRORSLogin, "") end,2500,1) 
end 
addEvent("set_warning_textMail",true) 
addEventHandler("set_warning_textMail",getRootElement(),Error_msg) 
  
function EnterMail() 
    guiSetVisible ( COCMail, true ) 
    guiSetVisible ( MailLogin, false ) 
    showCursor ( true ) 
end 
addEvent("EnterInMail",true) 
addEventHandler("EnterInMail",getRootElement(),EnterMail) 
  
---------------------------------------------------------------------------------------------------------------- 
  
function OpenProcessRegister ( button, state, absoluteX, absoluteY ) 
    if (source == btnCreateRegister) then 
        usernameRegister = guiGetText(editMailIDRegister) 
        passwordRegister = guiGetText(editPasswordRegister) 
        passwordConfirmRegister = guiGetText(editPassword2Register) 
        triggerServerEvent("onRequestRegisterMail",getLocalPlayer(),usernameRegister,passwordRegister,passwordConfirmRegister) 
    end 
end 
addEventHandler ("onClientGUIClick", getRootElement(), OpenProcessRegister) 
  
function Error_msgRegister(Text) 
    guiSetText(lblERRORSRegister, tostring(Text)) 
    setTimer(function() guiSetText(lblERRORSRegister, "") end,2500,1) 
end 
addEvent("set_warning_textRegister",true) 
addEventHandler("set_warning_textRegister",getRootElement(),Error_msgRegister)

Server:

function PlayerLoginMail(usernameMail,passwordMail) 
    if not (usernameMail == "") then 
        if not (passwordMail == "") then 
            local account = getAccount ( usernameMail, passwordMail ) 
            if ( account ~= false ) then 
                triggerClientEvent (source,"EnterInMail",getRootElement()) 
                setAccountData ( account, "NewMails", true ) 
            else 
                triggerClientEvent(source,"set_warning_textMail",getRootElement(),"Wrong username and/or password!") 
            end 
        else 
            triggerClientEvent(source,"set_warning_textMail",getRootElement(),"Please enter your password!") 
        end 
    else 
        triggerClientEvent(source,"set_warning_textMail",getRootElement(),"Please enter your username!") 
    end 
end 
addEvent("onRequestLoginMail",true) 
addEventHandler("onRequestLoginMail",getRootElement(),PlayerLoginMail) 
  
function registerPlayer(usernameRegister,passwordRegister,passwordConfirmRegister) 
    if not (usernameRegister == "") then 
        if not (passwordRegister == "") then 
            if not (passwordConfirmRegister == "") then 
                if passwordRegister == passwordConfirmRegister then 
                    local account = getAccount (usernameRegister,passwordRegister) 
                    if (account == false) then 
                        local accountAdded = addAccount(tostring(usernameRegister),tostring(passwordRegister)) 
                        if (accountAdded) then 
                            triggerClientEvent(source,"set_warning_textRegister",getRootElement(),"sucessfuly registered!") 
                        else 
                            triggerClientEvent(source,"set_warning_textRegister",getRootElement(),"Choose a different username/password.") 
                        end 
                    else 
                        triggerClientEvent(source,"set_warning_textRegister",getRootElement(),"An account with this username already exists!") 
                    end 
                else 
                    triggerClientEvent(source,"set_warning_textRegister",getRootElement(),"Passwords do not match!") 
                end 
            else 
                triggerClientEvent(source,"set_warning_textRegister",getRootElement(),"Please confirm your password!") 
            end 
        else 
            triggerClientEvent(source,"set_warning_textRegister",getRootElement(),"Please enter a password!") 
        end 
    else 
        triggerClientEvent(source,"set_warning_textRegister",getRootElement(),"Please enter a username you would like to register!") 
    end 
end 
addEvent("onRequestRegisterMail",true) 
addEventHandler("onRequestRegisterMail",getRootElement(),registerPlayer)

Lo que quiero es crear una cuenta que no tenga nada que ver con el codigo "logIn" para entrar al server, solo la quiero para entrar al Mail Pero no se como se hace :S os dejo un Video para que veais como esta ahora.

Video 2:

Link to comment
Go to topic listing

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...