[AYUDA]0.12.0 dados

Dagercho · 08-nov-2008, 18:20

Nose que pasa que cuando pongo crear pj
los dados estan en "0" y cuadno clikeo de nuevo para tirar dados siguen en "0"
uu
siempre uqe clikeo siguen en 0:S
(el mod es mio= pero me pone los dados en 0"

Azmodan · 09-nov-2008, 10:24

Anda al modulo protocol.bas:

Reemplaza el Sub HandleThrowDices por este:

Código:

Private Sub HandleThrowDices(ByVal UserIndex As Integer)
 
    Call UserList(UserIndex).incomingData.ReadByte
    
    With UserList(UserIndex).Stats
        .UserAtributos(eAtributos.Fuerza) = 18
        .UserAtributos(eAtributos.Agilidad) = 18
        .UserAtributos(eAtributos.Inteligencia) = 18
        .UserAtributos(eAtributos.Carisma) = 18
        .UserAtributos(eAtributos.Constitucion) = 18
    End With
    
    Call WriteDiceRoll(UserIndex)
End Sub

Adios.!

Dagercho · 09-nov-2008, 10:56

sigue sin funcionar :S.S::SS clikeo y me pone 0" .:S:S lo hise en el servidor los codigos

Azmodan · 09-nov-2008, 13:58

Posteado originalmente por Parra:

CLIENTE:

busca estas tres funciones:
Public Function CurServerPasRecPort() As Integer
Public Function CurServerIp() As String
Public Function CurServerPort() As Integer

Reemplazalas todas por esto:

Código:

Public Function CurServerPasRecPort() As Integer
        CurServerPasRecPort = 7667
End Function
 
Public Function CurServerIp() As String
        CurServerIp = "127.0.0.1"
End Function
 
Public Function CurServerPort() As Integer
        CurServerPort = 7666
End Function

Anda al frmConnect, y donde estan los images y eso.. borralo TODO menos Image1(1) y Image1(0), despues ve al code, borralo todo también y pega este:

Código:

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 27 Then
        prgRun = False
    End If
End Sub
Private Sub Form_Load()
 
EngineRun = False
Me.Picture = LoadPicture(App.path & "\Graficos\Conectar.jpg")
 
End Sub
Private Sub Image1_Click(index As Integer)
 
Call Audio.PlayWave(SND_CLICK)
 
Select Case index
    Case 0
        Call Audio.PlayMIDI("7.mid")
        
        EstadoLogin = E_MODO.Dados
        If frmMain.Socket1.Connected Then
            frmMain.Socket1.Disconnect
            frmMain.Socket1.Cleanup
            DoEvents
        End If
        frmMain.Socket1.HostName = CurServerIp
        frmMain.Socket1.RemotePort = CurServerPort
        frmMain.Socket1.Connect
 
    Case 1
    
        frmOldPersonaje.Show vbModal
End Select
Exit Sub
End Sub

Adios, fijate si te anda.

Luque · 09-nov-2008, 22:57

Cita:

UserList(UserIndex).Stats.UserAtributos(eAtributos .Fuerza) = 18
UserList(UserIndex).Stats.UserAtributos(eAtributos .Agilidad) = 18
UserList(UserIndex).Stats.UserAtributos(eAtributos .Inteligencia) = 18
UserList(UserIndex).Stats.UserAtributos(eAtributos .Carisma) = 18
UserList(UserIndex).Stats.UserAtributos(eAtributos .Constitucion) = 18

Cambialo por este sino descargate el cliente de nuevo porq debe ser un problema del clinte porq esta es la solucion para que te deje de tirar "0"

Herramientas
Mostrar Versión Imprimible Enviar por Correo
Desplegado
Mode Lineal Cambiar a Modo Hibrido Cambiar a Modo Hilado

Remove advertisements Sponsored links

Secciones de Interés