GS-Zone
Facebook Twitter

IAO Clon (Guardar y Salir no funciona)Sonido deshabilitado y teclas no se graban... 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

5

Nota » 22 Dic 2011 21:06

Buenas noches comunidad, habeis ayudado y mucho en la construccion de mi server y siempre que me vi casi impossibilitado de lograr la correccion de algun error este foro me salvo :P pero ahora el problema es muy grave xd (para mi no que ni uso sonido al jugar pero los demas miembros del staff probaron y detectaron este fallo :P ) pues eso, que no hay sonido, mire el codigo y si vi materia de sound en el codigo.. pero yo creo que el fallo aqui es el siguiente...
En el Main, en la pestaña de menu y opciones de cambiar teclas ,etc ta el control de volumen, deshabilitado.. y aunque habilitemos y le pongamos al maximo no deja... creo que esto es porque el boton guardar y cerrar no esta bien codeado... ya que ni las teclas guarda, osea damos guardar y salir y al clikear ta deshabilitado el sonido y las teclas como antes otra vez... teneis alguna idea para el sonido y para que se guarden las opciones? Creo que arreglando lo de guardar y salir se solucionaria todo ;)

Aqui os dejo lo que ya pensaba yo... el command button2 del frm.Opciones que contiene el texto "Guardar y salir" pues.. mas vacio impossible su codigo, solo necessito saber como ahora en el codigo de ese c.b. Guardar y salir puedo poner un codigo que guarde, tanto la musica activada o no y tambien las teclas editadas. Aqui os dejo el codigo del Guardar y salir , y el codigo del frm entero, y "mi teoria de lo que me gustaria que hiziese(talvez es lo que hace el guardar y salir de otro juego que sea xd)

Codigo del Guardar y salir:
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Private Sub Command2_Click()
  2.     Unload Me
  3.     frmMain.SetFocus
  4. End Sub


Codigo de todo el frm.opciones:
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Option Explicit
  2.  
  3. Private loading As Boolean
  4.  
  5. Private Sub Check1_Click(Index As Integer)
  6.     If Not loading And Sounder Then _
  7.         Call Audio.PlayWave(SND_CLICK)
  8.    
  9.     Select Case Index
  10.         Case 0
  11.             If Check1(0).value = vbUnchecked Then
  12.                 Music = 0
  13.                 Audio.MusicActivated = False
  14.                 Slider1(0).Enabled = False
  15.             ElseIf Not Audio.MusicActivated Then  'Prevent the music from reloading
  16.                 Music = 1
  17.                 Audio.MusicActivated = True
  18.                 Slider1(0).Enabled = True
  19.                 Slider1(0).value = Audio.MusicVolume
  20.             End If
  21.        
  22.         Case 1
  23.             If Check1(1).value = vbUnchecked Then
  24.                 Sound = 0
  25.                 Audio.SoundActivated = False
  26.                 RainBufferIndex = 0
  27.                 frmMain.IsPlaying = PlayLoop.plnone
  28.                 Slider1(1).Enabled = False
  29.             Else
  30.                 Sound = 1
  31.                 Audio.SoundActivated = True
  32.                 Slider1(1).Enabled = True
  33.                 Slider1(1).value = Audio.SoundVolume
  34.             End If
  35.            
  36.         Case 2
  37.             If Check1(2).value = vbUnchecked Then
  38.                 EffectSound = 0
  39.                 Audio.SoundEffectsActivated = False
  40.             Else
  41.                 EffectSound = 1
  42.                 Audio.SoundEffectsActivated = True
  43.             End If
  44.     End Select
  45. End Sub
  46.  
  47. Private Sub cmdCustomKeys_Click()
  48.     If Not loading And Sounder Then _
  49.         Call Audio.PlayWave(SND_CLICK)
  50.     Call frmCustomKeys.Show(vbModal, Me)
  51. End Sub
  52.  
  53. Private Sub cmdManual_Click()
  54.     If Not loading And Sounder Then _
  55.         Call Audio.PlayWave(SND_CLICK)
  56.     Call ShellExecute(0, "Open", "http://ao.alkon.com.ar/aomanual/", "", App.Path, 0)
  57. End Sub
  58.  
  59. Private Sub cmdChangePassword_Click()
  60.     Call frmNewPassword.Show(vbModal, Me)
  61. End Sub
  62.  
  63.  
  64. Private Sub Command2_Click()
  65.     Unload Me
  66.     frmMain.SetFocus
  67. End Sub
  68.  
  69.  
  70.  
  71.  
  72. Private Sub Form_Load()
  73.     loading = True      'Prevent sounds when setting check's values
  74.    
  75.     Slider1(0).min = -5000
  76.     Slider1(0).max = 5000
  77.    
  78.     Slider1(1).min = 0
  79.     Slider1(1).max = 100
  80.  
  81.     loading = False     'Enable sounds when setting check's values
  82.    
  83.    
  84. End Sub
  85.  
  86. Private Sub Slider1_Change(Index As Integer)
  87.    
  88.     Select Case Index
  89.         Case 0
  90.             Audio.MusicVolume = Slider1(0).value
  91.             VolumeMusic = Audio.MusicVolume
  92.         Case 1
  93.             Audio.SoundVolume = Slider1(1).value
  94.             VolumeSound = Audio.SoundVolume
  95.     End Select
  96. End Sub
  97.  
  98. Private Sub Slider1_Scroll(Index As Integer)
  99.     Select Case Index
  100.         Case 0
  101.             Audio.MusicVolume = Slider1(0).value
  102.             VolumeMusic = Audio.MusicVolume
  103.         Case 1
  104.             Audio.SoundVolume = Slider1(1).value
  105.             VolumeSound = Audio.SoundVolume
  106.     End Select
  107. End Sub
  108.  




Lo que me gustaria poner:
antes de unloadme que se ponga algo como, if realizocambios(esto esta en lo de estadisticas cuando le damos a guardar los skills asignados) en los anteriores private-subs, guardar todo y Unload ME (salir xD)
Alguien me sabe dar una mano en este mini-code porfis es que no quiero meter mas bugs de los que ya hay xd

EDIT:
Verifique que en la edicion de teclas tambien hay un guardar y salir, asi que seria talvez mas facil, en el caso anterior quedaria " if realizocambios en private-subs Sub Check1_Click o en el sub slider1_change o en el subslider1_scroll, esos se graban. Unload Me.

y dentro de este form de las teclas, en el guardar y salir, que actualmente sale:
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Private Sub Command2_Click()
  2.  
  3. Dim i As Long
  4.  
  5. For i = 1 To CustomKeys.count
  6.     If LenB(Text1(i).Text) = 0 Then
  7.         Call MsgBox("Hay una o mas teclas no validas, por favor verifique.", vbCritical Or vbOKOnly Or vbApplicationModal Or vbDefaultButton1, "Argentum Online")
  8.         Exit Sub
  9.     End If
  10. Next i
  11.  
  12. Unload Me
  13. End Sub


agregamos lo mismo, if realizocambios then, las custumkeys.count se mantendran :P como pongo esto?
Espero que ya puedan entender el problema y lo que me falta (un corto codigo pero que no logro aun encajar las " frases" :(

Administrador de CruzNegrAO (Servidor Mundial Style IAO Pero Mas Desarrollado...)
http://www.cruznegrao.webs.com
ZoLTaR
RaZoV - lLider de CruzNegra|
454
Aprendiz [2]
Registrado: Diciembre 2011
Ubicación: Portugal
Mensajes: 259
Aportes: 2
Arriba

Nota » 09 Ene 2012 14:37

Una cosa Wilson , Ese AO esta muy buguiado pero si queres seguir con el adelante respecto a los macros es configuracion de intervalo de macros en el cliente o el server donde esta macros.dat algo asi suerte!

Imagen
-.AnDy.-
Tribal Peliculas
545
Oraculo [3]
Registrado: Años de membresíaAños de membresía
Ubicación: Colombia
Mensajes: 1554
Aportes: 4
Arriba

Nota » 09 Ene 2012 17:57

Agarra los de un 0.13 normal. No cambia nada.
Franeg95
Aguante River Plate ! ! !
909
Moderador
Registrado: Años de membresíaAños de membresíaAños de membresía
Ubicación: Villa adelina, Vicente Lopez.
Mensajes: 14428
Aportes: 305
Premios: 10
Señor Moderador (3) Señor Reglamento (1) Aportes (2) Embajador (3) Detector de Bugs (1)
Arriba

Nota » 09 Ene 2012 18:17

Franeg95 escribió:Agarra los de un 0.13 normal. No cambia nada.

No habia pensado en eso lo testiare Gracias Franeg Saludos!

Imagen
-.AnDy.-
Tribal Peliculas
545
Oraculo [3]
Registrado: Años de membresíaAños de membresía
Ubicación: Colombia
Mensajes: 1554
Aportes: 4
Arriba

Nota » 09 Ene 2012 19:22

Gracias campeon ahi lo testeo.. No era que habias dejado el IAO Clon Andy? como cambias de dedicision tan rapidamente.. en vez de hacer uno entra al staff del mio y todos juntos montaremos un buen AO mundial.. pero si queres seguir a solas respeto totalmente :)

Administrador de CruzNegrAO (Servidor Mundial Style IAO Pero Mas Desarrollado...)
http://www.cruznegrao.webs.com
ZoLTaR
RaZoV - lLider de CruzNegra|
454
Aprendiz [2]
Registrado: Diciembre 2011
Ubicación: Portugal
Mensajes: 259
Aportes: 2
Arriba

Volver a Otras versiones

¿Quién está conectado?

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