Xd, con respecto a los gráficos, no hay problema :P estoy haciendo todo en 3D y capturando desde una cámara los Fotogramas y limpio las animaciones en el photoshop :P

emmm... ya entendi de forma variable lo de la lista... :P

es similar a los ListView... emmm... lo q no entendi bien es como meter...

Call PJ_Run.Draw(320, 240, 0, 0, True, , -2)

dentro de... listaObjetos(0)

:P

sep, un rpg :P...

hice unos juegos en 3D con otros motores xD, pero siempre quise hacer un juego asi re simple al estilo...
. . O
- - | - -
. . /\

xDD




y we... lo empese hace un año con esta libreria xD!... pero ahora tengo tiempo para terminarlo xD!

ahora estoy buscando info en la web, aver q onda con lo de List<T> y Dictionary<K, T> :P


Edit: mmmm hasta ahora lo q encontré, no lo entendí xD!.. sigo buscando :P

she, estoy con mi proyecto game... (q original el titulo xD)...

mmm la onda del juego es, q sea online... y we... lo mas logico es q me estanque en la parte del Spawn :P

lo q logre hasta ahora, es tener otra aplicacion que hace de servidor, y el cliente q al conectarse, pide las coordenadas de las demas personas en el mapa...

hastá ahi todo bien :P

recibe todos los datos con coordenadas y sus respectivos ID :P

ahora mmm... como hago para q se clonen por ejemplo... pero de forma dinamica? osea, sin tener q declara 20 Personajes... xD me suena a array... xD

si, intenté meter con 0.5 pero no me funcionó.... (Cosa  de brujas xD)

y we...  hice rapidito esa modificación que funciona de < ó > a 0 xD

osea... si metes -2 va a disminuir la mitad de su tamaño... si pones 2, agranda el doble de su dimensión.

Acabo de hacer una mejoria con respecto al Zoom + Centrar el eje como habia dicho antes xD, y quiero compartirlo ^^ xD

normalmente para dibujar el objeto animado, se usa esta funcion...

Draw(PosX As Long, PosY As Long, Z As Long, Optional Angulo As Single,  Optional Transparencia As Long, Optional Zoom As Long)

La funcion despues de la modificación quedaria así...

Por supuesto me manejo en VB .Net :P

Draw(ByVal PosX As Long, ByVal Posy As Long, ByVal Z As Long, Optional ByVal Angulo As Long = 0, Optional ByVal Center As Boolean = False, Optional ByVal Transparencia As Long = 0, Optional ByVal Zoom As Long = 1)

La manera en que se maneja el zoom, es poniendole 1 o superior para la ampliación, con la siguiente modificación se podra no solo agrandar si no tambien achicar la imagen ingresando un valor menor a 0. xD

mando la funcion completa, x q ni da explicar xD... si hay dudas preguntar xD

Código [Seleccionar] Expand

    Public Sub Draw(ByVal PosX As Long, ByVal Posy As Long, ByVal Z As Long, Optional ByVal Angulo As Long = 0, Optional ByVal Center As Boolean = False, Optional ByVal Transparencia As Long = 0, Optional ByVal Zoom As Long = 1)
        Dim indiceframe As Integer
        Dim indiceAnim As Integer
        Dim Color As Long

        indiceAnim = CtrlAnim.PasoAnim + Animaciones(CtrlAnim.AnimCurso).PasoInicio
        indiceframe = PasosAnim(indiceAnim).IDframe
        Color = p_gfx.ARGB_Set(255 - Transparencia, 255, 255, 255)

        Dim X_Zoom = Frames(indiceframe).info.Width
        Dim Y_Zoom = Frames(indiceframe).info.Height

        If Zoom > 0 Then
            X_Zoom = Int(Frames(indiceframe).info.Width * Zoom)
            Y_Zoom = Int(Frames(indiceframe).info.Height * Zoom)
        ElseIf Zoom < 0 Then
            X_Zoom = Int(Frames(indiceframe).info.Width / Math.Abs(Zoom))
            Y_Zoom = Int(Frames(indiceframe).info.Height / Math.Abs(Zoom))
        End If

        Call p_gfx.MAP_SetRegion(Frames(indiceframe).FrameSetImg, Frames(indiceframe).info)
        Call p_gfx.DRAW_MapEx(Frames(indiceframe).FrameSetImg, PosX + PasosAnim(indiceAnim).OffX, Posy + PasosAnim(indiceAnim).OffY, Z, X_Zoom, Y_Zoom, Angulo, dx_lib32.Blit_Alpha.Blendop_Color, Color, Mirror, dx_lib32.Blit_Filter.Filter_None, Center)

        CtrlAnim.DuracionPaso = CtrlAnim.DuracionPaso + 1
        If CtrlAnim.DuracionPaso > PasosAnim(indiceAnim).iStep Then
            CtrlAnim.DuracionPaso = 0
            CtrlAnim.PasoAnim = CtrlAnim.PasoAnim + 1
            If CtrlAnim.PasoAnim + Animaciones(CtrlAnim.AnimCurso).PasoInicio > Animaciones(CtrlAnim.AnimCurso).PasoFinal Then
                CtrlAnim.PasoAnim = 0
                If CtrlAnim.Repetir = False Then
                    pLastAnim = CtrlAnim.AnimCurso
                    CtrlAnim.AnimCurso = CtrlAnim.AnimDefecto
                End If
                RaiseEvent StopAnim()
            End If
        End If

    End Sub

Gracias :P

si supuse q habia pasado eso xD... por eso puse la version q me aparecia xD!...

emmm... ahora cuando vuelva a intentarlo lo bajo xD

ea... gracias ^^ xD

ya funciona mejor :P

aun q tengo una duda... vi en el video

http://www.youtube.com/watch?v=oeT0GbX-ERA

q apenas agregas la imagen-0 te la carga en la parte izquierda... ami me aparece todo rosa cuadriculado xD... pero si selecciono un cuadro, puedo aplicarlo a la derecha...



segun el acerca de... es la 0.2.1, q es la q acabo de descargar xD

Hola, perdón por revivir el tema :P pero tengo un problema con el programa xD

al abrir un archivo para editarlo... no me aparecen las imagenes... si nó, q todo rosado y cuadriculado xD



y... cuando apenas abro el programa, me aparece mas grande la ventana q la resolucion de mi pantalla, y corrida hacia la izquierda...
xD

trabaja a 1440*900 mi monitor xD

una duda.... en 'CPU de Destino' si se marca any... no te lo hace compatible para las 2 tipos de procesador?

le falto la L xD!

http://dxlib32.se32.com/desc.html

ahhhhh pillin y yo haciendo cuentas para centrarlo... xD!!!!... voy a verlo cuando me cambie... toy recien bañado y en bata xD


EDIT:

bueno bueno xD! tonce la modificación de la clase quedaria así ...

Call Piernas_Anim.Draw(320, 240, 0, Angle, True)
Call Piernas_Anim.Draw(posición X, Posición Y, Z, Valor Angulo, Centrado "por defecto false")

los valores angulo y centrado son opcionales...



en la cls en la parte de

Public Sub Draw(ByVal PosX As Long, ByVal Posy As Long, ByVal Z As Long, Optional ByVal Transparencia As Long = 0, Optional ByVal Zoom As Long = 1)

lo cambié por

Public Sub Draw(ByVal PosX As Long, ByVal Posy As Long, ByVal Z As Long, Optional ByVal Angulo As Long = 0, Optional ByVal Center As Boolean = False, Optional ByVal Transparencia As Long = 0, Optional ByVal Zoom As Long = 1)

q tiene como valor perdeterminado Angulo en 0 y Center en False, de lo contrario cambiarlo en la llamada, "Son valores opcionales"



y en donde dibuja el sprite...

Call p_gfx.DRAW_MapEx(Frames(indiceframe).FrameSetImg, PosX + PasosAnim(indiceAnim).OffX, Posy + PasosAnim(indiceAnim).OffY, Z, Frames(indiceframe).info.Width * Zoom, Frames(indiceframe).info.Height * Zoom, 0, dx_lib32.Blit_Alpha.Blendop_Color, Color, Mirror, dx_lib32.Blit_Filter.Filter_None, false)

se lo cambia por

Call p_gfx.DRAW_MapEx(Frames(indiceframe).FrameSetImg, PosX + PasosAnim(indiceAnim).OffX, Posy + PasosAnim(indiceAnim).OffY, Z, Frames(indiceframe).info.Width * Zoom, Frames(indiceframe).info.Height * Zoom, Angulo, dx_lib32.Blit_Alpha.Blendop_Color, Color, Mirror, dx_lib32.Blit_Filter.Filter_None, Center)

q aplicaria los valores Center y Angulo

muchas gracias lo tendré en cuenta...

con respecto a las dimenciones del mapa, no ahi problema xD!!... lo divido ya q lo tengo por partes y lo junte todo xD...

me surgio una duda con respecto al dibujo final q hace en el juego...

la pregunta seria... ¿es posible rotar por angulo una animación?... por q yo usaba el MapEx q viene un lugarcito para poner el angulo Y...

y como pase todo a esta clase para hacerlo mas pro.. xD!... me faltó ese detalle de rotación... ¿o tengo q hacer otra animacion las rotaciones?



Edit: le estuve metiendo mano a la clase haber si lo podia hacer xD!!... mas o menos lo hice así...

se lo llama asi a la animación...

Call Piernas_Anim.Draw(287, 128, 0, Angulo) ' en angulo iria el valor en grados...

y en la cls...

modifique la linea

   Public Sub Draw(ByVal PosX As Long, ByVal Posy As Long, ByVal Z As Long, Optional ByVal Transparencia As Long = 0, Optional ByVal Zoom As Long = 1)

por

Public Sub Draw(ByVal PosX As Long, ByVal Posy As Long, ByVal Z As Long, Optional ByVal Angulo As Long = 1, Optional ByVal Transparencia As Long = 0, Optional ByVal Zoom As Long = 1)

lo q guardaria el valor en una variable "Angulo" dentro de la clase...

y en la parte donde genera la imagen

Call p_gfx.DRAW_MapEx(Frames(indiceframe).FrameSetImg, PosX + PasosAnim(indiceAnim).OffX, Posy + PasosAnim(indiceAnim).OffY, Z, Frames(indiceframe).info.Width * Zoom, Frames(indiceframe).info.Height * Zoom,  0, dx_lib32.Blit_Alpha.Blendop_Color, Color, Mirror, dx_lib32.Blit_Filter.Filter_None, False)

lo cambié por

Call p_gfx.DRAW_MapEx(Frames(indiceframe).FrameSetImg, PosX + PasosAnim(indiceAnim).OffX, Posy + PasosAnim(indiceAnim).OffY, Z, Frames(indiceframe).info.Width * Zoom, Frames(indiceframe).info.Height * Zoom, Angulo, dx_lib32.Blit_Alpha.Blendop_Color, Color, Mirror, dx_lib32.Blit_Filter.Filter_None, False)

q utiliza el valor angulo en la función...

ahora la cosa es así... la imagen rota con el origen en la parte superior izquierda... osea... no gira desde su eje... si no que "El eje Y lo tendria en la parte superior izquierda..."

eso es lo q tengo hasta ahora xD!!...



una solución seria... capturar el ancho y alto de la imagen, dividirlo por 2, y sumar o restar a las coordenadas para q se mantenga en el centro xD!!...




quiero mi 10!! xD

ah... piola entonces... es q el fucsia se lo distingue mucho en los juegos 3d como transparente... un ejemplo es en el motor Genesis3D... como en el motor Sierra q seria un azul...

pero bueno... estaré esperando con ansias esta cls ^^

Buenisimo... la verdad es q le estas dando con todo xD!!..

me permitis una sugerencia???.. en ves de q detecte el rosa como transparente... podrias aprovechar los canales alpha de los targa xD!!.... no se si lo admitira dx_lib32, "creo q si".....

es muy bueno ya q podes crear un canal parte y q detecte ese segundo canal en las sonas oscuras como transparente y las sonas blancas como solidos... como tambien se pueden hacer semi transparentes agregando un color r128 g128 b128 "gris"

Salu2!...

la verdad q me sorprendiste con el editor de niveles ^^... espero q lo termines pronto y sin interrupciones problematicas q tiene todo programador xD!