GS-Zone
Facebook Twitter

Mapa que no sale NO sale 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 » 31 Ene 2012 17:49

Hola ya pude arreglar lo de /salir ahora mi problema es este.
Ejemplo no se puede relogear en desafio.
Bueno yo pongo /salir o en la X y me dice no puedes relogear en desafios todo lo mas bien pero me abre el cosito de las cuentas igual :S.
Y me deja logear :S.

Alguna ayuda?.
AngelDsm
Zhepelin Ao
135
Aprendiz [4]
Registrado: Años de membresía
Ubicación: San Martin
Mensajes: 339
Arriba

Nota » 31 Ene 2012 20:29

te falto exit sub antes de end if xD
No podemos hacer magia si no posteas el codigo amigo...

Imagen
Dylan.-
Zaphir AO Staff - dylanalan
755
Dragon Ancestral [2]
Registrado: Años de membresíaAños de membresía
Ubicación: Pehuajó
Mensajes: 2823
Aportes: 27
Arriba

Nota » 01 Feb 2012 14:11

Dylan.- escribió:te falto exit sub antes de end if xD
No podemos hacer magia si no posteas el codigo amigo...



En el cliente tengo esto:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. ElseIf UCase$(stxtbuffer) = "/SALIR" Then
  2.                 Call SendData("/CLOSED")
  3.                 Account.Show vbModeless, Me
  4.                 stxtbuffer = ""
  5.                 SendTxt.Text = ""
  6.                 KeyCode = 0
  7.                 SendTxt.Visible = False



En el boton de la X:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Private Sub cmdSalee_Click()
  2.     Call Audio.PlayWave(SND_CLICK)
  3.     If MsgBox("¿Estás seguro que deseas salir?", vbYesNo + vbQuestion, "Zhepelin Ao") = vbYes Then
  4.     Call SendData("/CLOSED")
  5.     Account.Show
  6.     End If
  7.     End Sub


Y en el Case Salir del SERVIDOR:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Case "/CLOSED"
  2.            
  3.             If UserList(UserIndex).flags.EnCvc = True Then
  4.                 SendData SendTarget.toindex, UserIndex, 0, "||No puedes salir estando en una guerra de clanes." & FONTTYPE_INFO
  5.             Exit Sub
  6.             End If
  7.             If UserList(UserIndex).Pos.Map = 9 Then
  8.                 Call SendData(SendTarget.toindex, UserIndex, 0, "||No Puedes salir en Castillos." & FONTTYPE_INFO)
  9.             Exit Sub
  10.             End If
  11.             If UserList(UserIndex).Pos.Map = 10 Then
  12.                 Call SendData(SendTarget.toindex, UserIndex, 0, "||No Puedes salir en Castillos." & FONTTYPE_INFO)
  13.             Exit Sub
  14.             End If
  15.             If UserList(UserIndex).Pos.Map = 11 Then
  16.                 Call SendData(SendTarget.toindex, UserIndex, 0, "||No Puedes salir en Castillos." & FONTTYPE_INFO)
  17.             Exit Sub
  18.             End If
  19.             If UserList(UserIndex).Pos.Map = 12 Then
  20.                 Call SendData(SendTarget.toindex, UserIndex, 0, "||No Puedes salir en Castillos." & FONTTYPE_INFO)
  21.             Exit Sub
  22.             End If
  23.             If UserList(UserIndex).flags.EnSubasta = True Then
  24.                 Call SendData(SendTarget.toindex, UserIndex, 0, "||No puedes salir mientras participas de una subasta." & FONTTYPE_WARNING)
  25.             Exit Sub
  26.             End If
  27.             If UserList(UserIndex).flags.EnOferta = True Then
  28.                 Call SendData(SendTarget.toindex, UserIndex, 0, "||No puedes salir mientras participas de una subasta." & FONTTYPE_WARNING)
  29.             Exit Sub
  30.             End If
  31.             If UserList(UserIndex).flags.EnPareja = True Then
  32.                 Call SendData(SendTarget.toindex, UserIndex, 0, "||No puedes salir estando en duelo de parejas, puedes cancelar el duelo tipeando '/SALIRPAREJA'." & FONTTYPE_INFO)
  33.             Exit Sub
  34.             End If
  35.             If UserList(UserIndex).flags.EnDuelo = True Then
  36.                 Call SendData(SendTarget.toindex, UserIndex, 0, "||No puedes salir estando en duelo, puedes cancelarlo tipeando '/SALIRDUELO'." & FONTTYPE_WARNING)
  37.             Exit Sub
  38.             End If
  39.             If UserList(UserIndex).flags.EnDesafio = True Then
  40.                 Call SendData(SendTarget.toindex, UserIndex, 0, "||No puedes salir estando en desafio, puedes cancelarlo tipeando '/SALIRDESAFIO' o si eres el creador del mismo '/CANCELARDESAFIO'." & FONTTYPE_INFO)
  41.             Exit Sub
  42.             End If
  43.             If UserList(UserIndex).flags.Paralizado = 1 Then
  44.                 Call SendData(SendTarget.toindex, UserIndex, 0, "||No puedes salir estando paralizado." & FONTTYPE_WARNING)
  45.             Exit Sub
  46.             End If
  47.                
  48.                 If UserList(UserIndex).ComUsu.DestUsu > 0 Then
  49.                     If UserList(UserList(UserIndex).ComUsu.DestUsu).flags.UserLogged Then
  50.                         If UserList(UserList(UserIndex).ComUsu.DestUsu).ComUsu.DestUsu = UserIndex Then
  51.                             Call SendData(SendTarget.toindex, UserList(UserIndex).ComUsu.DestUsu, 0, "||Comercio cancelado por el otro usuario" & FONTTYPE_TALK)
  52.                             Call FinComerciarUsu(UserList(UserIndex).ComUsu.DestUsu)
  53.                         End If
  54.                     End If
  55.                     Call SendData(SendTarget.toindex, UserIndex, 0, "||Comercio cancelado. " & FONTTYPE_TALK)
  56.                     Call FinComerciarUsu(UserIndex)
  57.                 End If
  58.                 Call Cerrar_Usuario(UserIndex)
  59.                 Exit Sub
AngelDsm
Zhepelin Ao
135
Aprendiz [4]
Registrado: Años de membresía
Ubicación: San Martin
Mensajes: 339
Arriba

Nota » 01 Feb 2012 14:37

pone
If UserList(UserIndex).flags.EnDesafio = True Then
Call SendData(SendTarget.toindex, UserIndex, 0, "||No puedes salir estando en desafio, puedes cancelarlo tipeando '/SALIRDESAFIO' o si eres el creador del mismo '/CANCELARDESAFIO'." & FONTTYPE_INFO)
Exit Sub
End If

En el sub close_socket o Cerrar_Usuario

Imagen
Dylan.-
Zaphir AO Staff - dylanalan
755
Dragon Ancestral [2]
Registrado: Años de membresíaAños de membresía
Ubicación: Pehuajó
Mensajes: 2823
Aportes: 27
Arriba

Nota » 01 Feb 2012 14:42

Dylan.- escribió:pone
If UserList(UserIndex).flags.EnDesafio = True Then
Call SendData(SendTarget.toindex, UserIndex, 0, "||No puedes salir estando en desafio, puedes cancelarlo tipeando '/SALIRDESAFIO' o si eres el creador del mismo '/CANCELARDESAFIO'." & FONTTYPE_INFO)
Exit Sub
End If

En el sub close_socket o Cerrar_Usuario


Osea me aparece eso ya cuando pongo /SALIR pero la cagada es que me abre igual el Account.Show entendes?.
Entonces tengo el juego abierto + el Account entonces me deja logear otra cosa y se me relogea el otro :S.
AngelDsm
Zhepelin Ao
135
Aprendiz [4]
Registrado: Años de membresía
Ubicación: San Martin
Mensajes: 339
Arriba

Volver a AO 0.11.5

¿Quién está conectado?

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