Música(Dx8)

Todo en el Cliente


Primero que nada, hay a usar el componente: Windows Media Player.
Lo que primero que hay que hacer es:

Ir a: Proyecto > Componentes (o simplemente teclear: Control + T)
Ahora, de la lista que aparece, tildar el componente: Windows Media Player, que es uno de los últimos.
Ahora apretar en aceptar.

Como notarán, en el cuadro de herramientas, aparecio un nuevo componente.

Ahora, hacer un nuevo formulario con el Nombre: frmMusica (sin acento en la U)
En la propiedad BorderStyle del nuevo formulario, poner: 0 - None

Agregar en ese formulario, el componente: Windows Media Player, y cambiar su nombre por: Musica (sin acento en la U)
Ahora, en las propiedades del formulario, poner: Height: 0, y Width: 0

Con ese formulario abierto, (no se va a ver, devido a su Height: 0, y Width: 0) se va a reproducir la música.

Ahora, en el modulo General, abajo de todo, agregar esta funcion:

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

1. Public Function ReproducirMusica(NumMusica As Integer)
2. 'Reproducir Musica
3. '************************************
4. '/////By Thusing/////
5. '************************************
6.
7. If RepMusica = 0 Then Exit Function
8. If NumReproduciendo = NumMusica Then Exit Function
9.
10. frmMusica.Musica.URL = App.Path & "/Midi/" & NumMusica & ".mid"
11.
12. NumReproduciendo = NumMusica
13. End Function


Con esta funcion se reproduce la música.

Reemplazar el Case "TM" por este:
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

1. Case "TM"
2. Rdata = Right$(Rdata, Len(Rdata) - 2)
3. If Val(ReadField(1, Rdata, 45)) <> 0 Then
4. CurMidi = Val(ReadField(1, Rdata, 45)) & ".mid"
5. Call ReproducirMusica(Val(ReadField(1, Rdata, 45)))
6. 'LoopMidi = Val(ReadField(2, Rdata, 45))
7. Call Audio.PlayMIDI(App.Path & "\Midi" & CurMidi)
8. End If
9. Exit Sub


Con esto, se reproduce la musica del juego, al cambiar de mapa.

En la parte del código del frmPres, al final de todo, poner:
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

1. Private Sub Form_Load()
2. Call ReproducirMusica(25)
3. End Sub


Con esto, la musica del frmPres

En el frmConnect buscar:
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

1. Private Sub Form_Load()



Y antes del End Sub poner:
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

1. Call ReproducirMusica(6)


Con esto, la musica del frmConnect

En el frmCrearPersonaje, buscar:
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

1. Private Sub boton_Click(Index As Integer)



Y antes del End Select poner:
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

1. Call ReproducirMusica(6)


(Con esto, al presionar volver, vuelve con la musica del frmConnect, ya que este no se cierra)

En el mismo formulario (frmCrearPersonaje), buscar:
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

1. Private Sub Form_Load()



Y abajo poner:
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

1. Call ReproducirMusica(7)


(Aqui, se pone la música al crear el personaje)

Ahora, declarar la variable que contiene el numero de midi que se está reproduciendo, y si hay que reproducir o no

En el modulo Declaraciones, abajo del Option Explicit, poner:
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

1. Public NumReproduciendo As Integer
2. Public RepMusica as Byte



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

1. NoRes = Val(GetVar(App.Path & "/Init/Opciones.opc", "CONFIG", "ModoVentana"))



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

1. RepMusica = Val(GetVar(App.Path & "/Init/Opciones.opc", "CONFIG", "Musica"))



Ahora, ir a la Carpeta Init, y abrir el archivo: Opciones.opc, con el Block de Notas.

Buscar:

ModoVentana=0



Y abajo poner:

Musica=1



Ahora, volviendo al codigo del cliente, en el FrmIntro, buscar:
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

1. Private Sub Form_Load()



Y abajo poner:
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

1. frmMusica.Show



Ahora, en el mismo formulario (FrmIntro), buscar:
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

1. Private Sub Image6_Click()



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

1. Unload Me



Por:

1. End



Listo, eso es todo.

Se agrego una opcion para elegir entre Desactivar / Activar la música, desde el Opciones.opc, de la carpeta Init, cambiando el valor de: Musica=, por 1 (activada), o 0 (desactivada)

Agregado tambien para que si se está escuchando una musica, y cambias de mapa con la misma, no se repita. Ejemplo: De Ullathorpe Este a Ullathorpe Oeste sigue la misma musica, no empiesa nuevamente.


^{Fuente:Gs-Zone
Creditos:Thusing}

Lo vi asi rapido, esta bien el codigo pero ¿no te laguea?.
Igual muy buen aporte

No creo, pero si te laguea no va hacer la musica.

Esta bueno igual, no creo que laguee mucho entonces