Crear personaje directo del frmcrearpj

» 24 Mar 2011 21:42

Empezemos, todo en el cliente.

En el frmcrearpersonaje creamos 3 labels.

1 con el nombre: txtCorreo
2 con el nombre: txtPasswd
3 con el nombre: txtPasswdCheck

En el frmcrearpersonaje buscamos el sub:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

Private Sub boton_Click(index As Integer)

Y reemplazamos ese sub por este:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

Private Sub boton_Click(index As Integer)
    Call Audio.PlayWave(SND_CLICK)
    
    Select Case index
        Case 0
            
            Dim i As Integer
            Dim k As Object
            i = 1
            For Each k In Skill
                UserSkills(i) = k.Caption
                i = i + 1
            Next
            
            UserName = txtNombre.Text
            
            If Right$(UserName, 1) = " " Then
                UserName = RTrim$(UserName)
                MsgBox "Nombre invalido, se han removido los espacios al final del nombre"
            End If
            
            UserRaza = lstRaza.ListIndex + 1
            UserSexo = lstGenero.ListIndex + 1
            UserClase = lstProfesion.ListIndex + 1
            
            UserAtributos(1) = Val(lbFuerza.Caption)
            UserAtributos(2) = Val(lbInteligencia.Caption)
            UserAtributos(3) = Val(lbAgilidad.Caption)
            UserAtributos(4) = Val(lbCarisma.Caption)
            UserAtributos(5) = Val(lbConstitucion.Caption)
            
            UserHogar = lstHogar.ListIndex + 1
            
    If Not CheckData Then Exit Sub
    
#If SeguridadAlkon Then
    UserPassword = md5.GetMD5String(txtPasswd.Text)
    Call md5.MD5Reset
#Else
    UserPassword = txtPasswd.Text
#End If
    UserEmail = txtCorreo.Text
    
    If Not CheckMailString(UserEmail) Then
        MsgBox "Direccion de mail invalida."
        Exit Sub
    End If
    
#If UsarWrench = 1 Then
    frmMain.Socket1.HostName = CurServerIp
    frmMain.Socket1.RemotePort = CurServerPort
#End If
    
    EstadoLogin = E_MODO.CrearNuevoPj
    
#If UsarWrench = 1 Then
    If Not frmMain.Socket1.Connected Then
#Else
    If frmMain.Winsock1.State <> sckConnected Then
#End If
        MsgBox "Error: Se ha perdido la conexion con el servidor"
        Unload Me
            
            End If
        Case 1
            Call Audio.PlayMIDI("2.mid")
            
            frmConnect.FONDO.Picture = LoadPicture(App.path & "\Graficos\conectar.jpg")
            Unload Me
            
            
        Case 2
            Call Audio.PlayWave(SND_DICE)
            Call TirarDados
            End Select
 
        Call Login
    
    
End Sub
 

Y listo.. Muy simple

..

Lo probe en la 12.3 y andubo perfecto.

Ha que me refiero a conectar directo del frmcrearpj?.. Digamosle algo como en la 13.0, poner passw, msn todo ahi, y no poner en SEGUIR, y te sale otro frm.. que tenias que poner, passw, y msn.

» 24 Mar 2011 22:34

ah. no entendía hasta que leí lo de abajo

Ya está aportado creo.

» 24 Mar 2011 22:52

Fedoh escribió:ah. no entendía hasta que leí lo de abajo

Ya está aportado creo.

Jajaj

..

La verdad que ni idea si estara aportado para la 12.x, si lo encontras pasalo asi lo veo :p

Saludos.

» 25 Mar 2011 11:10

Buen code, segui asi!

» 25 Mar 2011 22:45

Esta bueno a la vista pero es feo porque te lo enanean todo al servidor

» 26 Mar 2011 00:20

EH?! DEJA DE INVENTAR PALABRAS FRANEG.

¿Qué es eso?

» 26 Mar 2011 00:25

Llenar de bots el servidor, en si se dice enanear porque el único bot que crearon lo creó "El Enanero" . Pero en realidad no se dice enanear jaja

Muy lindo aporte por cierto.

» 26 Mar 2011 01:21

Dunkan escribió:Llenar de bots el servidor, en si se dice enanear porque el único bot que crearon lo creó "El Enanero" . Pero en realidad no se dice enanear jaja

Muy lindo aporte por cierto.

Ja, linda explicacion eso de enanear, no lo sabia cuando lei..

Y gracias jeje

. igual a este code, lo habia echo cuando cerre mi ao bieckert, y lo estaba por abrir, pero decidi no abrirlo, asi que libere esto, ya que por ahi esta lindo el code

Crear personaje directo del frmcrearpj

¿Quién está conectado?