GS-Zone
Facebook Twitter

Prohibir Montar en el mar 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

7
Este tema se encuentra cerrado.

Nota » 06 Ene 2012 20:58

Chicos, ando intentando prohibir que se pueda montar en el mar, es que ta medio solucionado pero aun asi pasa lo siguiente, si me pongo en el mar y desequipo la barca y me pongo en montura no me deja mover, pero si toy con la barca y enseguida equipo la montura me deja ir paseando con el caballito por el mar xDDD y en el do equita queria poner que no se pueda meditar mientras estamos montando xD creo que todo esto va en DoEquita y DoNavega en UseinvItem, asi que os dejo el codigo de esa parte, si es en otro lado que esta el error avisenme cual porfis que intento yo primero solucionar y traigo el aporte caso logre :P

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Case eOBJType.otMonturas
  2.             If UserList(UserIndex).flags.Muerto = 1 Then
  3.                 Call WriteConsoleMsg(1, UserIndex, "¡¡Estas muerto!! Los muertos no dominan los animales. ", FontTypeNames.FONTTYPE_INFO)
  4.                 Exit Sub
  5.             End If
  6.             Call DoEquita(UserIndex, ObjIndex, Slot)
  7.            
  8.     Case eOBJType.otBarcos
  9.         If ((LegalPos(.Pos.map, .Pos.X - 1, .Pos.Y, True, False) _
  10.                 Or LegalPos(.Pos.map, .Pos.X, .Pos.Y - 1, True, False) _
  11.                 Or LegalPos(.Pos.map, .Pos.X + 1, .Pos.Y, True, False) _
  12.                 Or LegalPos(.Pos.map, .Pos.X, .Pos.Y + 1, True, False)) _
  13.                 And .flags.Navegando = 0) _
  14.                 Or .flags.Navegando = 1 Then
  15.             Call DoNavega(UserIndex, Obj, Slot)
  16.         Else
  17.             Call WriteConsoleMsg(1, UserIndex, "¡Debes aproximarte al agua para usar el barco!", FontTypeNames.FONTTYPE_INFO)
  18.         End If


En la montura por lo que parece solo pone que no deje usarla si esta muerto el personaje xD

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:22

que raro razov , yo recuerdo que en el IAO clon QUe yo tenia no se podia montar en el mar Revisa bn depronto modificaste algo que alterava ese block

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

Nota » 09 Ene 2012 19:25

es que si tas en barca y te pones normal y luego montas , no te deja caminar, pero montar si, pero si tas en barca y enseguida pones la montura y te mueves, vas con el caballito por el mar xD ya ire al otmontura a leer bien el codigo que ahora tengo un poco mas de time :P

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 19:38

ZoLTaR escribió:es que si tas en barca y te pones normal y luego montas , no te deja caminar, pero montar si, pero si tas en barca y enseguida pones la montura y te mueves, vas con el caballito por el mar xD ya ire al otmontura a leer bien el codigo que ahora tengo un poco mas de time :P

venga machote , avisa si pudiste solucionarlo suerte wilson!

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

Nota » 10 Ene 2012 13:22

busca
Or .flags.Navegando = 1 Then
Call DoNavega(UserIndex, Obj, Slot)

Cambialo por

Or .flags.Navegando = 0 Then
Call DoNavega(UserIndex, Obj, Slot)

y contame lo que pasa, si no pasa nada cambialo a 1 y busca

Or LegalPos(.Pos.map, .Pos.X, .Pos.Y + 1, True, False)) _
And .flags.Navegando = 0)
y cambialo por

Or LegalPos(.Pos.map, .Pos.X, .Pos.Y + 1, True, False)) _
And .flags.Navegando = 1)

Si no es esto, que no creo que sea , le falta una parte al codigo
Última edición por Gary el 10 Ene 2012 17:41, editado 1 vez en total

Imagen

"Una persona no se ofrece de programador para que lo EXPLOTEN haciendo un ao fruta con un director el cual no trabaja para nada y para eso usa al programador que se ofreció"
Gary
Usuario Registrado
106
Newbie [2]
Registrado: Octubre 2011
Mensajes: 53
Arriba

Nota » 10 Ene 2012 14:08

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Case eOBJType.otMonturas
  2.             If UserList(UserIndex).flags.Muerto = 1 Then
  3.                 Call WriteConsoleMsg(1, UserIndex, "¡¡Estas muerto!! Los muertos no dominan los animales. ", FontTypeNames.FONTTYPE_INFO)
  4.                 Exit Sub
  5.             End If
  6.  If UserList(UserIndex).flags.Muerto = 1 Then
  7.                 Call WriteConsoleMsg(1, UserIndex, "¡¡Estas muerto!! Los muertos no dominan los animales. ", FontTypeNames.FONTTYPE_INFO)
  8.                 Exit Sub
  9.             End If
  10.  If not ((LegalPos(.Pos.map, .Pos.X - 1, .Pos.Y, True, False) _
  11.                 Or LegalPos(.Pos.map, .Pos.X, .Pos.Y - 1, True, False) _
  12.                 Or LegalPos(.Pos.map, .Pos.X + 1, .Pos.Y, True, False) _
  13.                 Or LegalPos(.Pos.map, .Pos.X, .Pos.Y + 1, True, False)) _
  14.                 And .flags.Navegando = 0)
  15.                      Call WriteConsoleMsg(1, UserIndex, "No puedes montar en el mar.", FontTypeNames.FONTTYPE_INFO)
  16.    exit sub
  17. end if
  18.             Call DoEquita(UserIndex, ObjIndex, Slot)
  19.            
  20.     Case eOBJType.otBarcos
  21.         If ((LegalPos(.Pos.map, .Pos.X - 1, .Pos.Y, True, False) _
  22.                 Or LegalPos(.Pos.map, .Pos.X, .Pos.Y - 1, True, False) _
  23.                 Or LegalPos(.Pos.map, .Pos.X + 1, .Pos.Y, True, False) _
  24.                 Or LegalPos(.Pos.map, .Pos.X, .Pos.Y + 1, True, False)) _
  25.                 And .flags.Navegando = 0) _
  26.                 Or .flags.Navegando = 1 Then
  27.             Call DoNavega(UserIndex, Obj, Slot)
  28.         Else
  29.             Call WriteConsoleMsg(1, UserIndex, "¡Debes aproximarte al agua para usar el barco!", FontTypeNames.FONTTYPE_INFO)
  30.         End If

mica.khalem@gmail.com

•Parra escribió:Pf que locura xD ...
Que has hecho? xD


Imagen


FAN DE BLIZZARD
Khalem
God is gay
363
Administrador
Registrado: 5 Años de membresía!
Ubicación: Capital Federal
Mensajes: 3012
Aportes: 19
Premios: 1
Mister Programador AO (1)
Arriba

Nota » 10 Ene 2012 20:08

Gran Khalem funco de 10 xD ni de coña lograria yo hacer esa parte intermedia del codigo de las coordenadas xD con razon :P
Solo hubo un pequeño detalle que te olvidaste un then , pero igual 10/10 xD te quize mandar monedas y no me dejo no se que onda xD
solo falto el then este :P (lo pongo completo por si algun quiere copy/paste pa su server xD

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Case eOBJType.otMonturas
  2.                 If UserList(UserIndex).flags.Muerto = 1 Then
  3.                     Call WriteConsoleMsg(1, UserIndex, "¡¡Estas muerto!! Los muertos no dominan los animales. ", FontTypeNames.FONTTYPE_INFO)
  4.                     Exit Sub
  5.                 End If
  6.      If UserList(UserIndex).flags.Muerto = 1 Then
  7.                     Call WriteConsoleMsg(1, UserIndex, "¡¡Estas muerto!! Los muertos no dominan los animales. ", FontTypeNames.FONTTYPE_INFO)
  8.                     Exit Sub
  9.                 End If
  10.      If Not ((LegalPos(.Pos.map, .Pos.X - 1, .Pos.Y, True, False) _
  11.                     Or LegalPos(.Pos.map, .Pos.X, .Pos.Y - 1, True, False) _
  12.                     Or LegalPos(.Pos.map, .Pos.X + 1, .Pos.Y, True, False) _
  13.                     Or LegalPos(.Pos.map, .Pos.X, .Pos.Y + 1, True, False)) _
  14.                     And .flags.Navegando = 0) [b]Then[/b]
  15.                          Call WriteConsoleMsg(1, UserIndex, "No puedes montar en el mar.", FontTypeNames.FONTTYPE_INFO)
  16.        Exit Sub
  17.     End If
  18.                 Call DoEquita(UserIndex, ObjIndex, Slot)



 ! Nota del moderador Khalem :
Jah, otro problema solucionado por la gran khalem (?)

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
Este tema se encuentra cerrado.

Volver a Otras versiones

¿Quién está conectado?

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