GS-Zone
Facebook Twitter

Sonidos de Ciudades stylo IAO para 0.11.2 Ir al Indice

Reglas del Foro
* Por favor, lee las reglas de los foros de Programación antes de hacer un nuevo tema!

Moderadores: Moderadores de Argentum, Especialistas de Argentum, Especialistas de Programación

9

Nota » 12 Sep 2009 15:22

[CLIENTE]
Buscamos

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Case "CM"              ' >>>>> Cargar Mapa :: CM
  2.             Rdata = Right$(Rdata, Len(Rdata) - 2)
  3.             UserMap = ReadField(1, Rdata, 44)
  4.              
  5.             'Obtiene la version del mapa


Y abajo de esto colocamos:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. If UserMap = 1 Then            ' Mapa donde queres los sonidos
  2.            Call frmMain.Play("135.wav", True) 'Conversaciones de Ulla de IAO CAMBIAR 135.WAV por el nuetro!
  3.  ElseIf UserMap = 164 Then ' Mapa donde queremos los sonidos!
  4.  Call frmMain.Play("126.wav", True) ' Cambiar Wav
  5.  
  6. Else
  7. Call frmMain.StopSound
  8.                                 frmMain.IsPlaying = plNone
  9.                         End If



Tendría que quedar:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Case "CM"              ' >>>>> Cargar Mapa :: CM
  2.             Rdata = Right$(Rdata, Len(Rdata) - 2)
  3.             UserMap = ReadField(1, Rdata, 44)
  4.              
  5.             'Obtiene la version del mapa
  6. If UserMap = 1 Then            ' Mapa donde queres los sonidos
  7.            Call frmMain.Play("135.wav", True) 'Conversaciones de Ulla de IAO CAMBIAR 135.WAV por el nuetro!
  8.  ElseIf UserMap = 164 Then ' Mapa donde queremos los sonidos!
  9.  Call frmMain.Play("126.wav", True) ' Cambiar Wav
  10.  
  11. Else
  12. Call frmMain.StopSound
  13.                                 frmMain.IsPlaying = plNone
  14.                         End If
  15. Call InitMI    
  16.             If FileExist(DirMapas & "Mapa" & UserMap & ".map", vbNormal) Then
  17.                 Open DirMapas & "Mapa" & UserMap & ".map" For Binary As #1
  18.                 Seek #1, 1
  19.                 Get #1, , tempint
  20.                 Close #1
  21.                 If tempint = Val(ReadField(2, Rdata, 44)) Then
  22.                     'Si es la vers correcta cambiamos el mapa
  23.                     Call SwitchMap(UserMap)
  24.                     If bLluvia(UserMap) = 0 Then
  25.                         If bRain Then
  26.                             'Call StopSound("lluviain.MP3")
  27.                             'Call StopSound("lluviaout.MP3")
  28.                             '[CODE 001]:MatuX'
  29.                                 frmMain.StopSound
  30.                                 frmMain.IsPlaying = plNone
  31.                             '[END]'
  32.                         End If
  33.                     End If
  34.                 Else
  35.                     'vers incorrecta
  36.                     MsgBox "Hay errores en este mapa, puede ser que hallan sido modificados."
  37.                     Call LiberarObjetosDX
  38.                     Call UnloadAllForms
  39.                     End
  40.                 End If
  41.             Else
  42.                 'no encontramos el mapa en el hd
  43.                 MsgBox "Hay errores en este mapa, puede ser que hallan sido modificados."
  44.                 Call LiberarObjetosDX
  45.                 Call UnloadAllForms
  46.                 Call EscribirGameIni(Config_Inicio)
  47.                 End
  48.             End If
  49.             Exit Sub

EverQues-Ao Staff
Director de Proyecto


Imagen
^[GS]^ escribió: volve a leer, esta bien el código, pero, por tu seguridad consultaría un oculista.
Enojado: Mode On (?)

xD
__________________
Beledrian
Usuario Registrado
17
Aprendiz [7]
Registrado: 5 Años de membresía!
Mensajes: 454
Aportes: 5
Arriba

Nota » 12 Sep 2009 18:14

Buen aporte ^^ adaptaste creo que los de la 11.5 :P muy bien...



Saludos...

Director del Proyecto IndeX - AO
Mannakia escribió:Closed moderhipocradores , tema ya solucionado, jesus me ilumino en un sueño, y programamos junto, la verdad un genio, sabe lenguaje V** (V Multiply Multiply) que es sobre como programaron las primeras microcelulas.

Dunkan escribió:Chiters?, Pero esto no tenía la "Samke Security" ?

Imagen
Imagen
Lord Fers
Programador
361
Dragon Ancestral [6]
Registrado: Años de membresíaAños de membresíaAños de membresíaAños de membresía
Mensajes: 4553
Aportes: 46
Premios: 2
Usuario superado (2)
Arriba

Nota » 13 Sep 2009 01:52

sep.. me base en ellos, y adapte a la 0.11.2.
Porque la 0.11.5 y la 0.11.5 tienen diferente engine de sonido, y las variables y funciones no son iguales :)

Suerte!

EverQues-Ao Staff
Director de Proyecto


Imagen
^[GS]^ escribió: volve a leer, esta bien el código, pero, por tu seguridad consultaría un oculista.
Enojado: Mode On (?)

xD
__________________
Beledrian
Usuario Registrado
17
Aprendiz [7]
Registrado: 5 Años de membresía!
Mensajes: 454
Aportes: 5
Arriba

Nota » 25 Sep 2009 08:40

Esto ya no estaba aportado?. :mrgreen:

Imagen
    Adelantos del sv:
http://www.youtube.com/watch?v=IcTKFoyg9Yc
ImagenImagen

xd
SPOILER

XD




::.Nico.::
Cesarious
Usuario Registrado
Destructor de Mentes [2]
Registrado: Años de membresíaAños de membresíaAños de membresía
Ubicación: Capital Federal
Mensajes: 586
Aportes: 4
Premios: 1
Embajador (1)
Arriba

Nota » 26 Sep 2009 14:42

no.. :idea:

Estaba pero para 0.11.5, pero a diferencia de 0.11.2, el motor de sonido no es el mismo. :)

Esa es la diferencia.

EverQues-Ao Staff
Director de Proyecto


Imagen
^[GS]^ escribió: volve a leer, esta bien el código, pero, por tu seguridad consultaría un oculista.
Enojado: Mode On (?)

xD
__________________
Beledrian
Usuario Registrado
17
Aprendiz [7]
Registrado: 5 Años de membresía!
Mensajes: 454
Aportes: 5
Arriba

Nota » 08 Oct 2009 23:53

hola soy nueva en esto de la programación hice algo que no se si esta bien mi idea era cargar los sonidos de la carpeta init dejo el codigo

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Case "CM"              ' >>>>> Cargar Mapa :: CM
  2. Dim MaySonido As Integer
  3.             Rdata = Right$(Rdata, Len(Rdata) - 2)
  4.             UserMap = ReadField(1, Rdata, 44)
  5. MaySonido = Val(GetVar(IniPath & "Maps.dat", "Mapa", "Sonido" & UserMap))
  6. If Not MaySonido = "" Then
  7. Call FrmMain.Play(MaySonido & ".wav", True)
  8. Else
  9. Call FrmMain.StopSound
  10. FrmMain.IsPlaying = plNone
  11. End If
  12. Call InitMI
  13.             If FileExist(DirMapas & "Mapa" & UserMap & ".map", vbNormal) Then
  14.                 Open DirMapas & "Mapa" & UserMap & ".map" For Binary As #1
  15.                 Seek #1, 1
  16.                 Get #1, , tempint
  17.                 Close #1
  18.                 If tempint = Val(ReadField(2, Rdata, 44)) Then
  19.                     'Si es la vers correcta cambiamos el mapa
  20.                     Call SwitchMap(UserMap)
  21.                     If bLluvia(UserMap) = 0 Then
  22.                         If bRain Then
  23.                                 FrmMain.StopSound
  24.                                 FrmMain.IsPlaying = plNone
  25.                             '[END]'
  26.                         End If
  27.                     End If
  28.                 Else
  29.                     'vers incorrecta
  30.                     MsgBox "Hay errores en este mapa, puede ser que hallan sido modificados."
  31.                     Call LiberarObjetosDX
  32.                     Call UnloadAllForms
  33.                     End
  34.                 End If
  35.             Else
  36.                 'no encontramos el mapa en el hd
  37.                 MsgBox "Hay errores en este mapa, puede ser que hallan sido modificados."
  38.                 Call LiberarObjetosDX
  39.                 Call UnloadAllForms
  40.                 Call EscribirGameIni(Config_Inicio)
  41.                 End
  42.             End If
  43.             Exit Sub

entonses en el init ponen un archivo llamado Maps.dat y dentro
[MAPA]
Sonido1=numero del wav
Sonido34=numero del wav

ACLARO los numeros despues de Sonido tiene que ser el numero de mapa Ejemplo el Sonido34 es Nix Sonido1 es Ullathorpe
May
Usuario Registrado
Newbie [1]
Registrado: Años de membresíaAños de membresía
Ubicación: Capital Federal (Colegiales)
Mensajes: 4
Arriba

Nota » 09 Oct 2009 19:40

Que bien que lo adaptaste. May me fije bien lo que decis cuando valla a la otra PC veo que onda. Nose si conviene pero debe de ser igual.

Nos vemos ^^

Imagen
Mithrandir
<Lider Ghulrut AO>
391
Destructor de Mentes [7]
Registrado: Años de membresíaAños de membresía
Mensajes: 817
Aportes: 44
Arriba

Nota » 10 Oct 2009 11:41

para mi el metodo que ise es mejor xq no cargas tantas lineas de codigos creo.
May
Usuario Registrado
Newbie [1]
Registrado: Años de membresíaAños de membresía
Ubicación: Capital Federal (Colegiales)
Mensajes: 4
Arriba

Nota » 20 Oct 2009 22:25

Jaja si me di cuenta te basaste en la 11.5
Igual te felicito Muy bueno.

* Paciente: ¿Qué es eso?
* House: Analgésicos.
* Paciente: Ah, para usted, por la pierna.
* House: No, es que soy yonqui. Imagen
Dr. House
Aprendiz [5]
Registrado: Años de membresíaAños de membresía
Mensajes: 382
Aportes: 3
Arriba

Volver a AO 0.11.2 / AOReady

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 0 invitados