[APORTE2] Hechizo teletransportador.

Ir abajo

[APORTE2] Hechizo teletransportador.

Mensaje por Toyz el 8/1/2016, 3:16 am

Buscar

Código:
RemueveInvisibilidadParcial As Byte


Código:
Teletransporta As Byte


Buscar

Código:
.RemueveInvisibilidadParcial = val(Leer.GetValue("Hechizo" & Hechizo, "RemueveInvisibilidadParcial"))


Código:
.Teletransporta = val(Leer.GetValue("Hechizo" & Hechizo, "Teletransporta"))



Buscar en Sub HechizoTerrenoEstado(ByVal UserIndex As Integer, ByRef b As Boolean)

y reemplazar por esto

Código:
Sub HechizoTerrenoEstado(ByVal UserIndex As Integer, ByRef b As Boolean)
'***************************************************
'Author: Unknown
'Last Modification: -
'
'***************************************************

    Dim PosCasteadaX As Integer
    Dim PosCasteadaY As Integer
    Dim PosCasteadaM As Integer
    Dim H As Integer
    Dim TempX As Integer
    Dim TempY As Integer

    With UserList(UserIndex)
        PosCasteadaX = .flags.TargetX
        PosCasteadaY = .flags.TargetY
        PosCasteadaM = .flags.TargetMap

        H = .flags.Hechizo

        If Hechizos(H).RemueveInvisibilidadParcial = 1 Then
            b = True
            For TempX = PosCasteadaX - 8 To PosCasteadaX + 8
                For TempY = PosCasteadaY - 8 To PosCasteadaY + 8
                    If InMapBounds(PosCasteadaM, TempX, TempY) Then
                        If MapData(PosCasteadaM, TempX, TempY).UserIndex > 0 Then
                            'hay un user
                            If UserList(MapData(PosCasteadaM, TempX, TempY).UserIndex).flags.invisible = 1 And UserList(MapData(PosCasteadaM, TempX, TempY).UserIndex).flags.AdminInvisible = 0 Then
                                Call SendData(SendTarget.ToPCArea, UserIndex, PrepareMessageCreateFX(UserList(MapData(PosCasteadaM, TempX, TempY).UserIndex).Char.CharIndex, Hechizos(H).FXgrh, Hechizos(H).loops))
                            End If
                        End If
                    End If
                Next TempY
            Next TempX

            Call InfoHechizo(UserIndex)
        End If

        If Hechizos(H).Teletransporta = 1 Then
            If Distance(.Pos.X, .Pos.Y, PosCasteadaX, PosCasteadaY) <= 5 And _
               InMapBounds(.Pos.Map, PosCasteadaX, PosCasteadaY) Then
                Call WarpUserChar(UserIndex, .Pos.Map, PosCasteadaX, PosCasteadaY, False)
Call InfoHechizo(UserIndex)
  b = True
            Else
                Call WriteConsoleMsg(UserIndex, "Rango maximo 5 tiles.", FontTypeNames.FONTTYPE_INFO)
            End If
        End If


    End With
End Sub

Dateo:

[HECHIZO1000]
Nombre=Teletransportacion
Desc=Teletransportate hasta 5 tiles
PalabrasMagicas=www.servers-argentum.org
HechizeroMsg=
TargetMsg=
PropioMsg=Te teletransportaste wachin!
Tipo=2
WAV=16
FXgrh=3
Loops=6
MinSkill=100
ManaRequerido=0
StaRequerido=500
Target=4
Teletransporta=1


Última edición por G Toyz el 2/2/2016, 1:16 am, editado 1 vez


_______________

Como saben yo aporto bastante en Servers-Argentum y les quiero decir que todos tienen derecho de usar y de aportar en otra comunidad mis aportes pero sólo con un requisito y es tan simple que dejar los créditos. Gracias.
Si conocen otra comunidad y en esa misma mis aportes no están aportados, si tenés tiempo y ganas, aportalo! A mucha gente le puede servir. No te olvides del requisito Razz

MIS MEJORES APORTES:

Compra/venta de personajes:
https://goo.gl/A44Av0

Juegos del Hambre:
https://goo.gl/u6aNUG

Deathmatch automático:
https://goo.gl/GQF4fK

Sistema de retos vía MMR con búsqueda, emparejamiento, etc:
https://goo.gl/40uP0f

Sistemas de eventos automáticos de 1vs1 hasta 10vs10:
https://goo.gl/XYKygc

1VS1 - AIM - MELEE - Gana Sigue (Se liberan cupos)
https://goo.gl/qq83wx

Retos 3vs3 - [Items, 2 rounds, múltiples arenas, oro]
https://goo.gl/x8SMnV

Eliminar sistema de Skill (COMPLETO)
https://goo.gl/mKxHzC
avatar
Toyz
Administrador
Administrador

¿BANEADO? : No.
Premios :
[1er puesto] Usuario del año 2016
Cantidad de envíos : 5046
Edad : 17
Localización : Global.
Fecha de inscripción : 28/09/2014

Ver perfil de usuario

Volver arriba Ir abajo

Re: [APORTE2] Hechizo teletransportador.

Mensaje por Sativa el 8/1/2016, 5:23 am

Lindo código , pero no crea un portal no ?
avatar
Sativa
Retirado
Retirado

¿BANEADO? : No.
Premios : Ninguno.
Cantidad de envíos : 2871
Fecha de inscripción : 26/05/2010

Ver perfil de usuario

Volver arriba Ir abajo

Re: [APORTE2] Hechizo teletransportador.

Mensaje por Toyz el 8/1/2016, 10:04 am

@Sativa escribió:Lindo código , pero no crea un portal no ?
Gracias y no, no lo crea, no me acuerdo en que AO lo vi, pero queda bueno (mi punto de vista)


_______________

Como saben yo aporto bastante en Servers-Argentum y les quiero decir que todos tienen derecho de usar y de aportar en otra comunidad mis aportes pero sólo con un requisito y es tan simple que dejar los créditos. Gracias.
Si conocen otra comunidad y en esa misma mis aportes no están aportados, si tenés tiempo y ganas, aportalo! A mucha gente le puede servir. No te olvides del requisito Razz

MIS MEJORES APORTES:

Compra/venta de personajes:
https://goo.gl/A44Av0

Juegos del Hambre:
https://goo.gl/u6aNUG

Deathmatch automático:
https://goo.gl/GQF4fK

Sistema de retos vía MMR con búsqueda, emparejamiento, etc:
https://goo.gl/40uP0f

Sistemas de eventos automáticos de 1vs1 hasta 10vs10:
https://goo.gl/XYKygc

1VS1 - AIM - MELEE - Gana Sigue (Se liberan cupos)
https://goo.gl/qq83wx

Retos 3vs3 - [Items, 2 rounds, múltiples arenas, oro]
https://goo.gl/x8SMnV

Eliminar sistema de Skill (COMPLETO)
https://goo.gl/mKxHzC
avatar
Toyz
Administrador
Administrador

¿BANEADO? : No.
Premios :
[1er puesto] Usuario del año 2016
Cantidad de envíos : 5046
Edad : 17
Localización : Global.
Fecha de inscripción : 28/09/2014

Ver perfil de usuario

Volver arriba Ir abajo

Re: [APORTE2] Hechizo teletransportador.

Mensaje por Sativa el 9/1/2016, 3:54 am

G Toyz escribió:
@Sativa escribió:Lindo código , pero no crea un portal no ?
Gracias y no, no lo crea, no me acuerdo en que AO lo vi, pero queda bueno (mi punto de vista)

Si queda bueno y esta bueno el code, pero estaria mejor si creara un portal queda mas lindo
avatar
Sativa
Retirado
Retirado

¿BANEADO? : No.
Premios : Ninguno.
Cantidad de envíos : 2871
Fecha de inscripción : 26/05/2010

Ver perfil de usuario

Volver arriba Ir abajo

Re: [APORTE2] Hechizo teletransportador.

Mensaje por Toyz el 2/2/2016, 1:14 am

Recién acabo de releer el código y está mal.
Ahí lo arregle, la variable está de más, borrenla.:
Código:
LastTelepor As Long
-
En el Sub HechizoTerrenoEstado, eliminen esto, también está de más.
Código:
Dim actual As Long
    actual = GetTickCount() / 1000



Y reemplazan esta linea:


Código:
.Teletransporta = val(Leer.GetValue("Hechizo" & Hechizo, "Teletransporta "))


Por esta:

Código:
.Teletransporta = val(Leer.GetValue("Hechizo" & Hechizo, "Teletransporta"))


Perdón por los errores, ahora si, testeado y funcional.
PD: Editado en thread principal. 


_______________

Como saben yo aporto bastante en Servers-Argentum y les quiero decir que todos tienen derecho de usar y de aportar en otra comunidad mis aportes pero sólo con un requisito y es tan simple que dejar los créditos. Gracias.
Si conocen otra comunidad y en esa misma mis aportes no están aportados, si tenés tiempo y ganas, aportalo! A mucha gente le puede servir. No te olvides del requisito Razz

MIS MEJORES APORTES:

Compra/venta de personajes:
https://goo.gl/A44Av0

Juegos del Hambre:
https://goo.gl/u6aNUG

Deathmatch automático:
https://goo.gl/GQF4fK

Sistema de retos vía MMR con búsqueda, emparejamiento, etc:
https://goo.gl/40uP0f

Sistemas de eventos automáticos de 1vs1 hasta 10vs10:
https://goo.gl/XYKygc

1VS1 - AIM - MELEE - Gana Sigue (Se liberan cupos)
https://goo.gl/qq83wx

Retos 3vs3 - [Items, 2 rounds, múltiples arenas, oro]
https://goo.gl/x8SMnV

Eliminar sistema de Skill (COMPLETO)
https://goo.gl/mKxHzC
avatar
Toyz
Administrador
Administrador

¿BANEADO? : No.
Premios :
[1er puesto] Usuario del año 2016
Cantidad de envíos : 5046
Edad : 17
Localización : Global.
Fecha de inscripción : 28/09/2014

Ver perfil de usuario

Volver arriba Ir abajo

Re: [APORTE2] Hechizo teletransportador.

Mensaje por Axters el 2/2/2016, 2:20 am

Este no era de fermin?

.Teletransporta = val(Leer.GetValue("Hechizo" & Hechizo, "Teletransporta"))

no todos usuarios usan with bla bla bla.

Axters
Nivel 10
Nivel 10

¿BANEADO? : No.
Premios : Ninguno.
Cantidad de envíos : 1102
Edad : 18
Localización : Adrogue
Fecha de inscripción : 19/05/2012

Ver perfil de usuario

Volver arriba Ir abajo

Re: [APORTE2] Hechizo teletransportador.

Mensaje por Toyz el 2/2/2016, 4:02 am

Fermin?
Se leé así, es para datear eso. 


_______________

Como saben yo aporto bastante en Servers-Argentum y les quiero decir que todos tienen derecho de usar y de aportar en otra comunidad mis aportes pero sólo con un requisito y es tan simple que dejar los créditos. Gracias.
Si conocen otra comunidad y en esa misma mis aportes no están aportados, si tenés tiempo y ganas, aportalo! A mucha gente le puede servir. No te olvides del requisito Razz

MIS MEJORES APORTES:

Compra/venta de personajes:
https://goo.gl/A44Av0

Juegos del Hambre:
https://goo.gl/u6aNUG

Deathmatch automático:
https://goo.gl/GQF4fK

Sistema de retos vía MMR con búsqueda, emparejamiento, etc:
https://goo.gl/40uP0f

Sistemas de eventos automáticos de 1vs1 hasta 10vs10:
https://goo.gl/XYKygc

1VS1 - AIM - MELEE - Gana Sigue (Se liberan cupos)
https://goo.gl/qq83wx

Retos 3vs3 - [Items, 2 rounds, múltiples arenas, oro]
https://goo.gl/x8SMnV

Eliminar sistema de Skill (COMPLETO)
https://goo.gl/mKxHzC
avatar
Toyz
Administrador
Administrador

¿BANEADO? : No.
Premios :
[1er puesto] Usuario del año 2016
Cantidad de envíos : 5046
Edad : 17
Localización : Global.
Fecha de inscripción : 28/09/2014

Ver perfil de usuario

Volver arriba Ir abajo

Re: [APORTE2] Hechizo teletransportador.

Mensaje por Rodrigo131100 el 2/7/2016, 12:32 am

Hola una consulta no encuentro el Dim actual As Long
actual = GetTickCount() / 1000 para remplazarlo

y tampoco encuentro .Teletransporta = val(Leer.GetValue("Hechizo" & Hechizo, "Teletransporta"))

Rodrigo131100
Nivel 1
Nivel 1

¿BANEADO? : No.
Premios : Ninguno.
Cantidad de envíos : 12
Localización : buenos aires
Fecha de inscripción : 01/02/2016

Ver perfil de usuario

Volver arriba Ir abajo

Re: [APORTE2] Hechizo teletransportador.

Mensaje por Toyz el 2/7/2016, 2:14 am

Este código es sólo funcional para la versión 13.0.


_______________

Como saben yo aporto bastante en Servers-Argentum y les quiero decir que todos tienen derecho de usar y de aportar en otra comunidad mis aportes pero sólo con un requisito y es tan simple que dejar los créditos. Gracias.
Si conocen otra comunidad y en esa misma mis aportes no están aportados, si tenés tiempo y ganas, aportalo! A mucha gente le puede servir. No te olvides del requisito Razz

MIS MEJORES APORTES:

Compra/venta de personajes:
https://goo.gl/A44Av0

Juegos del Hambre:
https://goo.gl/u6aNUG

Deathmatch automático:
https://goo.gl/GQF4fK

Sistema de retos vía MMR con búsqueda, emparejamiento, etc:
https://goo.gl/40uP0f

Sistemas de eventos automáticos de 1vs1 hasta 10vs10:
https://goo.gl/XYKygc

1VS1 - AIM - MELEE - Gana Sigue (Se liberan cupos)
https://goo.gl/qq83wx

Retos 3vs3 - [Items, 2 rounds, múltiples arenas, oro]
https://goo.gl/x8SMnV

Eliminar sistema de Skill (COMPLETO)
https://goo.gl/mKxHzC
avatar
Toyz
Administrador
Administrador

¿BANEADO? : No.
Premios :
[1er puesto] Usuario del año 2016
Cantidad de envíos : 5046
Edad : 17
Localización : Global.
Fecha de inscripción : 28/09/2014

Ver perfil de usuario

Volver arriba Ir abajo

Re: [APORTE2] Hechizo teletransportador.

Mensaje por Rodrigo131100 el 2/7/2016, 6:30 pm

Tengo la version de ao seventh 13.3 meparece sirve?

Rodrigo131100
Nivel 1
Nivel 1

¿BANEADO? : No.
Premios : Ninguno.
Cantidad de envíos : 12
Localización : buenos aires
Fecha de inscripción : 01/02/2016

Ver perfil de usuario

Volver arriba Ir abajo

Re: [APORTE2] Hechizo teletransportador.

Mensaje por Toyz el 2/7/2016, 7:05 pm

El post sirve, lo que yo había posteado después, era para los que ya habían usado el código.
Borrá todo el código que implementaste e implementá sólo el del thread.


_______________

Como saben yo aporto bastante en Servers-Argentum y les quiero decir que todos tienen derecho de usar y de aportar en otra comunidad mis aportes pero sólo con un requisito y es tan simple que dejar los créditos. Gracias.
Si conocen otra comunidad y en esa misma mis aportes no están aportados, si tenés tiempo y ganas, aportalo! A mucha gente le puede servir. No te olvides del requisito Razz

MIS MEJORES APORTES:

Compra/venta de personajes:
https://goo.gl/A44Av0

Juegos del Hambre:
https://goo.gl/u6aNUG

Deathmatch automático:
https://goo.gl/GQF4fK

Sistema de retos vía MMR con búsqueda, emparejamiento, etc:
https://goo.gl/40uP0f

Sistemas de eventos automáticos de 1vs1 hasta 10vs10:
https://goo.gl/XYKygc

1VS1 - AIM - MELEE - Gana Sigue (Se liberan cupos)
https://goo.gl/qq83wx

Retos 3vs3 - [Items, 2 rounds, múltiples arenas, oro]
https://goo.gl/x8SMnV

Eliminar sistema de Skill (COMPLETO)
https://goo.gl/mKxHzC
avatar
Toyz
Administrador
Administrador

¿BANEADO? : No.
Premios :
[1er puesto] Usuario del año 2016
Cantidad de envíos : 5046
Edad : 17
Localización : Global.
Fecha de inscripción : 28/09/2014

Ver perfil de usuario

Volver arriba Ir abajo

Re: [APORTE2] Hechizo teletransportador.

Mensaje por Rodrigo131100 el 2/7/2016, 7:15 pm

Muchisimas gracias amigo, ahora te digo los resultados

Rodrigo131100
Nivel 1
Nivel 1

¿BANEADO? : No.
Premios : Ninguno.
Cantidad de envíos : 12
Localización : buenos aires
Fecha de inscripción : 01/02/2016

Ver perfil de usuario

Volver arriba Ir abajo

Re: [APORTE2] Hechizo teletransportador.

Mensaje por Rodrigo131100 el 2/7/2016, 7:49 pm

Hola perro justiciero hice todo ya y cuando quiero entrar no me loguea

Rodrigo131100
Nivel 1
Nivel 1

¿BANEADO? : No.
Premios : Ninguno.
Cantidad de envíos : 12
Localización : buenos aires
Fecha de inscripción : 01/02/2016

Ver perfil de usuario

Volver arriba Ir abajo

Re: [APORTE2] Hechizo teletransportador.

Mensaje por Larper el 3/7/2016, 1:13 am

Está bueno para tirarles el TP a un usuario (no prohibe si hay una objetivo en las coordenadas) para que se teletransporte a las coordenadas predeterminadas, las cuales son 0; 0; 0, porque no se declaran u especifican valores numericos Razz.

PD: Qué escázo está el foro de programación :S
avatar
Larper
Nivel 28
Nivel 28

¿BANEADO? : No.
Premios : Ninguno.
Cantidad de envíos : 4783
Edad : 22
Localización : Vivo por hay xD
Fecha de inscripción : 08/09/2011

Ver perfil de usuario http://www.blomiao.foroactivo.com.es

Volver arriba Ir abajo

Re: [APORTE2] Hechizo teletransportador.

Mensaje por Nethird el 3/7/2016, 3:35 pm

A lo que yo entendí transporta a quien lanza el hechizo sin crear un portal, y a un lugar cercano, ¿verdad?



Spoiler:

Spoiler:
[/color]
Escuchalo:
Spoiler:



¡Escuchá la radio acá!
Spoiler:




[/i]
avatar
Nethird
Administrador
Administrador

¿BANEADO? : No.
Premios : Ninguno.
Cantidad de envíos : 9848
Edad : 21
Localización : Entre 4 paredes
Fecha de inscripción : 25/12/2009

Ver perfil de usuario http://www.ao-sender.com.ar

Volver arriba Ir abajo

Re: [APORTE2] Hechizo teletransportador.

Mensaje por Larper el 3/7/2016, 4:18 pm

@Nethird escribió:A lo que yo entendí transporta a quien lanza el hechizo sin crear un portal, y a un lugar cercano, ¿verdad?

Ahhh pero si tenes razón Neth, también puede usarse de ese modo, como no lo pensé. Pero sería como un GM, alta ventaja.
avatar
Larper
Nivel 28
Nivel 28

¿BANEADO? : No.
Premios : Ninguno.
Cantidad de envíos : 4783
Edad : 22
Localización : Vivo por hay xD
Fecha de inscripción : 08/09/2011

Ver perfil de usuario http://www.blomiao.foroactivo.com.es

Volver arriba Ir abajo

Re: [APORTE2] Hechizo teletransportador.

Mensaje por Rodrigo131100 el 3/7/2016, 7:54 pm

Alguien sabe lo quise hacer lo hice todo bien y no me deja entrar al juego

Rodrigo131100
Nivel 1
Nivel 1

¿BANEADO? : No.
Premios : Ninguno.
Cantidad de envíos : 12
Localización : buenos aires
Fecha de inscripción : 01/02/2016

Ver perfil de usuario

Volver arriba Ir abajo

Re: [APORTE2] Hechizo teletransportador.

Mensaje por Toyz el 3/7/2016, 8:04 pm

Rodrigo131100, estás haciendo doble post, leé el reglamento, esta vez te la dejo pasar, pero la próxima va infracción.

-
Lo que dice Larper es que pueden lanzar a bloqueos etc, son unas simples condicionales, ese laburito se los dejo a ustedes.

Rodrigo, decime que te muestra en los logs.


_______________

Como saben yo aporto bastante en Servers-Argentum y les quiero decir que todos tienen derecho de usar y de aportar en otra comunidad mis aportes pero sólo con un requisito y es tan simple que dejar los créditos. Gracias.
Si conocen otra comunidad y en esa misma mis aportes no están aportados, si tenés tiempo y ganas, aportalo! A mucha gente le puede servir. No te olvides del requisito Razz

MIS MEJORES APORTES:

Compra/venta de personajes:
https://goo.gl/A44Av0

Juegos del Hambre:
https://goo.gl/u6aNUG

Deathmatch automático:
https://goo.gl/GQF4fK

Sistema de retos vía MMR con búsqueda, emparejamiento, etc:
https://goo.gl/40uP0f

Sistemas de eventos automáticos de 1vs1 hasta 10vs10:
https://goo.gl/XYKygc

1VS1 - AIM - MELEE - Gana Sigue (Se liberan cupos)
https://goo.gl/qq83wx

Retos 3vs3 - [Items, 2 rounds, múltiples arenas, oro]
https://goo.gl/x8SMnV

Eliminar sistema de Skill (COMPLETO)
https://goo.gl/mKxHzC
avatar
Toyz
Administrador
Administrador

¿BANEADO? : No.
Premios :
[1er puesto] Usuario del año 2016
Cantidad de envíos : 5046
Edad : 17
Localización : Global.
Fecha de inscripción : 28/09/2014

Ver perfil de usuario

Volver arriba Ir abajo

Re: [APORTE2] Hechizo teletransportador.

Mensaje por Contenido patrocinado


Contenido patrocinado


Volver arriba Ir abajo

Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.