[Aportes indexados] Sistema de grh/caminata 12.X IAO - PDC

Estado
Cerrado para nuevas respuestas.

Siameze

Pina colada boy
El 3er aporte del dia ^^
aver si rompo mi record xD creo q era de 4 o 5 :p
aunque, para q cuenten me los tienen q indexar :?:

empecemos:

primero quiero aclarar q me baso en el cliente dx8 liberado x thusing y darktester creo... el de caminata normal, no fps libres :p

en fin, empecemos ^^

buscamos:

Código:
Public timerTicksPerFrame As Double
y lo reemplazamos por:

Código:
Public timerTicksPerFrame As Single
buscamos:

Código:
Public ScrollPixelsPerFrame As Integer
y lo reemplazamos por

Código:
Public ScrollPixelsPerFrame As Single
Buscamos:

Código:
 ScrollPixelsPerFrame = 8
y lo borramos

ahora buscan

Código:
Dim OffsetCounterX As Single
Dim OffsetCounterY As Single
Dim ulttick As Long, esttick As Long
Dim timers(1 To 5) As Long
Dim loopc As Long
y abajo de eso ponen esto:

Código:
 ScrollPixelsPerFrame = 4.5
buscamos:

Código:
        If UserMoving Then
            '****** Move screen Left and Right if needed ******
            If AddtoUserPos.X <> 0 Then
                OffsetCounterX = OffsetCounterX - ScrollPixelsPerFrame * AddtoUserPos.X * timerTicksPerFrame
                If Abs(OffsetCounterX) >= Abs(32 * AddtoUserPos.X) Then
                    OffsetCounterX = 0
                    AddtoUserPos.X = 0
                    UserMoving = False
                End If
            End If
            
            '****** Move screen Up and Down if needed ******
            If AddtoUserPos.Y <> 0 Then
                OffsetCounterY = OffsetCounterY - ScrollPixelsPerFrame * AddtoUserPos.Y * timerTicksPerFrame
                If Abs(OffsetCounterY) >= Abs(32 * AddtoUserPos.Y) Then
                    OffsetCounterY = 0
                    AddtoUserPos.Y = 0
                    UserMoving = False
                End If
            End If
        End If
y lo reemplazamos por esto:

Código:
             If AddtoUserPos.X <> 0 Then
                OffsetCounterX = OffsetCounterX - ScrollPixelsPerFrame * AddtoUserPos.X * timerElapsedTime * engineBaseSpeed
                If Abs(OffsetCounterX) >= Abs(32 * AddtoUserPos.X) Then
                    OffsetCounterX = 0
                    AddtoUserPos.X = 0
                    UserMoving = False
                End If
            End If
     
            '****** Move screen Up and Down if needed ******
            If AddtoUserPos.Y <> 0 Then
               OffsetCounterY = OffsetCounterY - ScrollPixelsPerFrame * AddtoUserPos.Y * timerElapsedTime * engineBaseSpeed
                If Abs(OffsetCounterY) >= Abs(32 * AddtoUserPos.Y) Then
                    OffsetCounterY = 0
                    AddtoUserPos.Y = 0
                    UserMoving = False
                End If
            End If
buscamos:

Código:
engineBaseSpeed = 0.018
y lo reemplazamos por:

Código:
engineBaseSpeed = 0.029
buscan esto:

Código:
    While (GetTickCount - lFrameTimer) \ 30 < FramesPerSecCounter
    Sleep 5
    Wend
y lo achuran

ahora, reemplazasan su sub loadgrhdata x estos:


Código:
Sub LoadGrhData()
On Error GoTo ErrorHandler
 
Dim grh As Integer
Dim Frame As Integer
Dim tempint As Integer
 
 
ReDim GrhData(1 To 32000) As GrhData
 
Open IniPath & "Graficos.ind" For Binary Access Read As #1
Seek #1, 1
 
Get #1, , MiCabecera
Get #1, , tempint
Get #1, , tempint
Get #1, , tempint
Get #1, , tempint
Get #1, , tempint
 
Get #1, , grh
 
Do Until grh <= 0
    
    Get #1, , GrhData(grh).NumFrames
    If GrhData(grh).NumFrames <= 0 Then GoTo ErrorHandler
    
    If GrhData(grh).NumFrames > 1 Then
    
        
        For Frame = 1 To GrhData(grh).NumFrames
        
            Get #1, , GrhData(grh).Frames(Frame)
            If GrhData(grh).Frames(Frame) <= 0 Or GrhData(grh).Frames(Frame) > 32000 Then
                GoTo ErrorHandler
            End If
        
        Next Frame
    Dim A As Integer
    
        Get #1, , A
        
        GrhData(grh).Speed = A
        
        ñoñal grh
        
        
        If GrhData(grh).Speed <= 0 Then GoTo ErrorHandler
        
        
        GrhData(grh).pixelHeight = GrhData(GrhData(grh).Frames(1)).pixelHeight
        If GrhData(grh).pixelHeight <= 0 Then GoTo ErrorHandler
        
        GrhData(grh).pixelWidth = GrhData(GrhData(grh).Frames(1)).pixelWidth
        If GrhData(grh).pixelWidth <= 0 Then GoTo ErrorHandler
        
        GrhData(grh).TileWidth = GrhData(GrhData(grh).Frames(1)).TileWidth
        If GrhData(grh).TileWidth <= 0 Then GoTo ErrorHandler
        
        GrhData(grh).TileHeight = GrhData(GrhData(grh).Frames(1)).TileHeight
        If GrhData(grh).TileHeight <= 0 Then GoTo ErrorHandler
    
    Else
    
        
        Get #1, , GrhData(grh).FileNum
        If GrhData(grh).FileNum <= 0 Then GoTo ErrorHandler
        
        Get #1, , GrhData(grh).sX
        If GrhData(grh).sX < 0 Then GoTo ErrorHandler
        
        Get #1, , GrhData(grh).sY
        If GrhData(grh).sY < 0 Then GoTo ErrorHandler
            
        Get #1, , GrhData(grh).pixelWidth
        If GrhData(grh).pixelWidth <= 0 Then GoTo ErrorHandler
        
        Get #1, , GrhData(grh).pixelHeight
        If GrhData(grh).pixelHeight <= 0 Then GoTo ErrorHandler
        
        
        GrhData(grh).TileWidth = GrhData(grh).pixelWidth / TilePixelHeight
        GrhData(grh).TileHeight = GrhData(grh).pixelHeight / TilePixelWidth
        
        GrhData(grh).Frames(1) = grh
            
    End If
    
    
    Get #1, , grh
    
 
Loop
 
 
Close #1
 
 
Exit Sub
 
ErrorHandler:
Close #1
MsgBox "Error while loading the Grh.dat! Stopped at GRH number: " & grh
 
End Sub
 
Sub ñoñal(grh As Integer)
 
GrhData(grh).Speed = ((GrhData(grh).Speed * 1000) / 18)
 
End Sub
reemplazan el type grh y el grhdata por estos:

Código:
Public Type GrhData
    sX          As Integer
    sY          As Integer
    FileNum     As Integer
    pixelWidth  As Integer
    pixelHeight As Integer
    TileWidth   As Single
    TileHeight  As Single
    
    NumFrames       As Integer
    Frames(1 To 25) As Integer
    speed           As Single
End Type
 
Public Type grh
    Loops        As Integer
    grhindex     As Integer
    FrameCounter As Single
    SpeedCounter As Single
    Started      As Byte
End Type
buscan esto:

Código:
            If TempChar.MoveOffset.X <> 0 Then
                TempChar.Body.Walk(TempChar.Heading).Started = 1
                TempChar.arma.WeaponWalk(TempChar.Heading).Started = 1
                TempChar.escudo.ShieldWalk(TempChar.Heading).Started = 1
                PixelOffsetXTemp = PixelOffsetXTemp + TempChar.MoveOffset.X
                TempChar.MoveOffset.X = TempChar.MoveOffset.X - ScrollPixelsPerFrame * Sgn(TempChar.MoveOffset.X)
                Moved = True
            End If
 
            If TempChar.MoveOffset.Y <> 0 Then
                TempChar.Body.Walk(TempChar.Heading).Started = 1
                TempChar.arma.WeaponWalk(TempChar.Heading).Started = 1
                TempChar.escudo.ShieldWalk(TempChar.Heading).Started = 1
                PixelOffsetYTemp = PixelOffsetYTemp + TempChar.MoveOffset.Y
                TempChar.MoveOffset.Y = TempChar.MoveOffset.Y - ScrollPixelsPerFrame * Sgn(TempChar.MoveOffset.Y)
                Moved = True
            End If
 
 
 
            If Moved = 0 And TempChar.Moving = 1 Then
                TempChar.Moving = 0
                TempChar.Body.Walk(TempChar.Heading).FrameCounter = 1
                TempChar.Body.Walk(TempChar.Heading).Started = 0
                TempChar.arma.WeaponWalk(TempChar.Heading).FrameCounter = 1
                TempChar.arma.WeaponWalk(TempChar.Heading).Started = 0
                TempChar.escudo.ShieldWalk(TempChar.Heading).FrameCounter = 1
                TempChar.escudo.ShieldWalk(TempChar.Heading).Started = 0
                TempChar.haciendoataque = 0
            End If
            
            If TempChar.haciendoataque = 0 And TempChar.MoveOffset.X = 0 And TempChar.MoveOffset.Y = 0 Then
                TempChar.arma.WeaponWalk(TempChar.Heading).Started = 0
                TempChar.arma.WeaponWalk(TempChar.Heading).FrameCounter = 1
                End If
            If TempChar.haciendoataque = 1 Then
                TempChar.arma.WeaponWalk(TempChar.Heading).Started = 1
                TempChar.haciendoataque = 0
            End If
y lo reemplazan por esto:

Código:
  With TempChar
            'If needed, move left and right
            If TempChar.scrollDirectionX <> 0 Then
 
                .MoveOffset.X = .MoveOffset.X + ScrollPixelsPerFrame * Sgn(.scrollDirectionX) * timerElapsedTime * enginebasespeed
                 
                If .Body.Walk(.Heading).SpeedCounter > 0 Then _
                .Body.Walk(.Heading).Started = 1
                .arma.WeaponWalk(TempChar.Heading).Started = 1
                .escudo.ShieldWalk(TempChar.Heading).Started = 1
 
                Moved = 1
               
                'Check if we already got there
                If (Sgn(.scrollDirectionX) = 1 And .MoveOffset.X >= 0) Or _
                        (Sgn(.scrollDirectionX) = -1 And .MoveOffset.X <= 0) Then
                    .MoveOffset.X = 0
                    .scrollDirectionX = 0
                End If
            End If
 
            'If needed, move up and down
            If TempChar.scrollDirectionY <> 0 Then
                
 
                TempChar.MoveOffset.Y = TempChar.MoveOffset.Y + ScrollPixelsPerFrame * Sgn(.scrollDirectionY) * timerElapsedTime * enginebasespeed
 
                
                
                If .Body.Walk(.Heading).SpeedCounter > 0 Then _
                .Body.Walk(.Heading).Started = 1
                TempChar.arma.WeaponWalk(TempChar.Heading).Started = 1
                TempChar.escudo.ShieldWalk(TempChar.Heading).Started = 1
                
                Moved = 1
                
                If (Sgn(TempChar.scrollDirectionY) = 1 And TempChar.MoveOffset.Y >= 0) Or _
                        (Sgn(TempChar.scrollDirectionY) = -1 And TempChar.MoveOffset.Y <= 0) Then
                    .MoveOffset.Y = 0
                    .scrollDirectionY = 0
                End If
            
                
            End If
 
            If .Heading = 0 Then .Heading = 3
 
            If Moved = 0 Then
                .Body.Walk(.Heading).Started = 0
                .Body.Walk(.Heading).FrameCounter = 1
                
                .arma.WeaponWalk(.Heading).Started = 0
                .arma.WeaponWalk(.Heading).FrameCounter = 1
                
                .escudo.ShieldWalk(.Heading).Started = 0
                .escudo.ShieldWalk(.Heading).FrameCounter = 1
                
                .Moving = 0
            End If
            
            If TempChar.haciendoataque = 0 And .MoveOffset.X = 0 And .MoveOffset.Y = 0 Then
                .arma.WeaponWalk(.Heading).Started = 0
                '.arma.WeaponWalk(.Heading).FrameCounter = 1
                .escudo.ShieldWalk(.Heading).Started = 0
                
                End If
                
            If TempChar.haciendoataque = 1 Then
                .arma.WeaponWalk(.Heading).Started = 1
                .escudo.ShieldWalk(.Heading).Started = 1
                .haciendoataque = 0
            End If
            
    End With
    PixelOffsetXTemp = PixelOffsetXTemp + TempChar.MoveOffset.X
    PixelOffsetYTemp = PixelOffsetYTemp + TempChar.MoveOffset.Y

ahora, en el type char, buscan esto:

Código:
    MoveOffset As Position
y lo reemplazan por esto:

Código:
    scrollDirectionX As Integer
    scrollDirectionY As Integer
    MoveOffset As position2
arriba de

Código:
Public Type Char
ponen:

Código:
Type position2
    X As Single
    Y As Single
End Type
ahora van a borrar los siguientes subs:

MoveCharByHead
MoveCharByPosAndHead
MoveCharByPos
MoveCharByPosConHeading
listo, en el modulo generalmodcharfunctions o como se llame, al final de todo van a agregar esto:


Código:
Sub MoveCharByPosAndHead(CharIndex As Integer, nX As Integer, nY As Integer, nheading As Byte)
 
On Error Resume Next
 
Dim X As Integer
Dim Y As Integer
Dim addX As Integer
Dim addY As Integer
 
 
 
X = CharList(CharIndex).POS.X
Y = CharList(CharIndex).POS.Y
 
MapData(X, Y).CharIndex = 0
 
addX = nX - X
addY = nY - Y
 
MapData(nX, nY).CharIndex = CharIndex
 
CharList(CharIndex).POS.X = nX
CharList(CharIndex).POS.Y = nY
 
CharList(CharIndex).MoveOffset.X = -1 * (TilePixelWidth * addX)
CharList(CharIndex).MoveOffset.Y = -1 * (TilePixelHeight * addY)
 
CharList(CharIndex).Moving = 1
CharList(CharIndex).Heading = nheading
 
CharList(CharIndex).scrollDirectionX = Sgn(addX)
CharList(CharIndex).scrollDirectionY = Sgn(addY)
 
'.MoveOffset.X = -1 * (32 * addX)
'.MoveOffset.Y = -1 * (32 * addY)
 
'.Moving = 1
'.Heading = nheading
 
'.scrollDirectionX = addX
'.scrollDirectionY = addY
 
 
End Sub
Sub MoveCharByPos(CharIndex As Integer, nX As Integer, nY As Integer)
On Error Resume Next
 
Dim X As Integer
Dim Y As Integer
Dim addX As Integer
Dim addY As Integer
Dim nheading As Byte
 
X = CharList(CharIndex).POS.X
Y = CharList(CharIndex).POS.Y
 
'MapData(X, y).CharIndex = 0
 
addX = nX - X
addY = nY - Y
 
If Sgn(addX) = -1 Then nheading = WEST
If Sgn(addX) = 1 Then nheading = EAST
 
If Sgn(addY) = -1 Then nheading = NORTH
If Sgn(addY) = 1 Then nheading = SOUTH
 
'MapData(nX, nY).CharIndex = CharIndex
 
'CharList(CharIndex).POS.X = nX
'CharList(CharIndex).POS.y = nY
 
'CharList(CharIndex).MoveOffset.X = -1 * (TilePixelWidth * addX)
'CharList(CharIndex).MoveOffset.y = -1 * (TilePixelHeight * addY)
 
'CharList(CharIndex).Moving = 1
'CharList(CharIndex).Heading = nheading
 
'CharList(CharIndex).scrollDirectionX = Sgn(addX)
'CharList(CharIndex).scrollDirectionY = Sgn(addY)
 
MoveCharByHead CharIndex, nheading
 
 
 
End Sub
Sub MoveCharByPosConHeading(CharIndex As Integer, nX As Integer, nY As Integer, nheading As Byte)
On Error Resume Next
 
If InMapBounds(CharList(CharIndex).POS.X, CharList(CharIndex).POS.Y) Then MapData(CharList(CharIndex).POS.X, CharList(CharIndex).POS.Y).CharIndex = 0
 
MapData(nX, nY).CharIndex = CharIndex
 
CharList(CharIndex).POS.X = nX
CharList(CharIndex).POS.Y = nY
 
CharList(CharIndex).Moving = 0
CharList(CharIndex).MoveOffset.X = 0
CharList(CharIndex).MoveOffset.Y = 0
 
CharList(CharIndex).Heading = nheading
 
End Sub
 
Sub MoveCharByHead(CharIndex As Integer, nheading As Byte)
 
Dim addX As Integer
Dim addY As Integer
Dim X As Integer
Dim Y As Integer
Dim nX As Integer
Dim nY As Integer
 
With CharList(CharIndex)
X = .POS.X
Y = .POS.Y
 
 
Select Case nheading
 
    Case NORTH
        addY = -1
 
    Case EAST
        addX = 1
 
    Case SOUTH
        addY = 1
    
    Case WEST
        addX = -1
        
End Select
 
nX = X + addX
nY = Y + addY
 
MapData(nX, nY).CharIndex = CharIndex
.POS.X = nX
.POS.Y = nY
MapData(X, Y).CharIndex = 0
 
.MoveOffset.X = -1 * (32 * addX)
.MoveOffset.Y = -1 * (32 * addY)
 
.Moving = 1
.Heading = nheading
 
.scrollDirectionX = addX
.scrollDirectionY = addY
 
If UserEstado <> True Then Call DoPasosFx(CharIndex)
 
 
End With
 
End Sub
buscan en el sub DDrawTransGrhtoSurface

Código:
If Animate Then
    If grh.Started = 1 Then
        If grh.SpeedCounter > 0 Then
            grh.SpeedCounter = grh.SpeedCounter - 1
            If grh.SpeedCounter = 0 Then
                grh.SpeedCounter = GrhData(grh.grhindex).speed
                grh.FrameCounter = grh.FrameCounter + 1
                If grh.FrameCounter > GrhData(grh.grhindex).NumFrames Then
                    grh.FrameCounter = 1
                    If KillAnim Then
                        If CharList(KillAnim).FxLoopTimes <> LoopAdEternum Then
                            
                            If CharList(KillAnim).FxLoopTimes > 0 Then CharList(KillAnim).FxLoopTimes = CharList(KillAnim).FxLoopTimes - 1
                            If CharList(KillAnim).FxLoopTimes < 1 Then
                                CharList(KillAnim).FX = 0
                                Exit Sub
                            End If
                            
                        End If
                    End If
               End If
            End If
        End If
    End If
End If
y lo reemplazan por esto:

Código:
If Animate Then
    If grh.Started = 1 Then
        
        grh.FrameCounter = grh.FrameCounter + ((timerElapsedTime * 0.1) * GrhData(grh.grhindex).NumFrames / grh.SpeedCounter)
            If grh.FrameCounter > GrhData(grh.grhindex).NumFrames Then
                
                grh.FrameCounter = (grh.FrameCounter Mod GrhData(grh.grhindex).NumFrames) + 1
                    
                If KillAnim <> 0 Then
                If CharList(KillAnim).FX > 0 Then
                    If CharList(KillAnim).FxLoopTimes <> LoopAdEternum Then
                          CharList(KillAnim).FxLoopTimes = CharList(KillAnim).FxLoopTimes - 1
                            If CharList(KillAnim).FxLoopTimes <= 0 Then CharList(KillAnim).FX = 0: Exit Sub
                        End If
                    End If
                End If
                End If
    End If
End If
bueno, y con eso terminamos =D

espero q les alla gustado ^^

no se si es como IAO, capas q por un tema de graficos, pero asi lo tiene en su engine xD

testeado y funcional =D

3° Code PDC!

Saluda: Siameze.-
 

Dr. GoDKeR

El Rey y el As
Miembro del equipo
Administrador
Developer
Moderador de RRPP
Moderador de AO
Moderador de Tecnología
Moderador de Entretenimiento
Moderador de Diseño
Especialista de RRPP
Especialista de Entretenimiento
Especialista de Tecnología
Especialista de Argentum
Especialista de Diseño
y vamos x el 3º (?) xD

para implementar esto hace falta cambiar los init?

EDIT: mira lo acabo de implementar y tiene un pekeño problemita:
cuando logeo, no hace el efecto de logear, osea se qeda en el 1º tile el efecto, y cuando camino no hace el efecto de moverse el pj, osea no mueve los brazos ni nada, seran por los fps?
me tira 530 fps
 

Siameze

Pina colada boy
GoDKeR dijo:
y vamos x el 3º (?) xD

para implementar esto hace falta cambiar los init?

EDIT: mira lo acabo de implementar y tiene un pekeño problemita:
cuando logeo, no hace el efecto de logear, osea se qeda en el 1º tile el efecto, y cuando camino no hace el efecto de moverse el pj, osea no mueve los brazos ni nada, seran por los fps?
me tira 530 fps
no, deve ser por q cambiaste mal algo, fijate de tener bien el ultimo paso, por q esa linea esta en todos lados xD

osea, en cualquier lugar q tengas algo como esto:

Código:
If Animate Then
    If grh.Started = 1 Then
        If grh.SpeedCounter > 0 Then
            grh.SpeedCounter = grh.SpeedCounter - 1
            If grh.SpeedCounter = 0 Then
                grh.SpeedCounter = GrhData(grh.grhindex).speed
                grh.FrameCounter = grh.FrameCounter + 1
                If grh.FrameCounter > GrhData(grh.grhindex).NumFrames Then
                    grh.FrameCounter = 1
                    If KillAnim Then
                        If CharList(KillAnim).FxLoopTimes <> LoopAdEternum Then
                            
                            If CharList(KillAnim).FxLoopTimes > 0 Then CharList(KillAnim).FxLoopTimes = CharList(KillAnim).FxLoopTimes - 1
                            If CharList(KillAnim).FxLoopTimes < 1 Then
                                CharList(KillAnim).FX = 0
                                Exit Sub
                            End If
                            
                        End If
                    End If
               End If
            End If
        End If
    End If
End If
lo tenes q reemplazar por esto:


Código:
If Animate Then
    If grh.Started = 1 Then
        
        grh.FrameCounter = grh.FrameCounter + ((timerElapsedTime * 0.1) * GrhData(grh.grhindex).NumFrames / grh.SpeedCounter)
            If grh.FrameCounter > GrhData(grh.grhindex).NumFrames Then
                
                grh.FrameCounter = (grh.FrameCounter Mod GrhData(grh.grhindex).NumFrames) + 1
                    
                If KillAnim <> 0 Then
                If CharList(KillAnim).FX > 0 Then
                    If CharList(KillAnim).FxLoopTimes <> LoopAdEternum Then
                          CharList(KillAnim).FxLoopTimes = CharList(KillAnim).FxLoopTimes - 1
                            If CharList(KillAnim).FxLoopTimes <= 0 Then CharList(KillAnim).FX = 0: Exit Sub
                        End If
                    End If
                End If
                End If
    End If
End If
y no, no tenes q cambiar los inits ^^

Saluda: Siameze.-
 

Dr. GoDKeR

El Rey y el As
Miembro del equipo
Administrador
Developer
Moderador de RRPP
Moderador de AO
Moderador de Tecnología
Moderador de Entretenimiento
Moderador de Diseño
Especialista de RRPP
Especialista de Entretenimiento
Especialista de Tecnología
Especialista de Argentum
Especialista de Diseño
hay ta xD, ahora si andan bien :p

una cosita mas...

si le limito los fps a unos 65 andaria mal la caminata?

a cuanto los tendria q limitar mas o menos, asi las particulas no se renderizen tan rapido
 

Siameze

Pina colada boy
GoDKeR dijo:
hay ta xD, ahora si andan bien :p

una cosita mas...

si le limito los fps a unos 65 andaria mal la caminata?

a cuanto los tendria q limitar mas o menos, asi las particulas no se renderizen tan rapido
podes limitarlos a los que quieras, se va a ver siempre igual :p

igual, 64 creo q es un buen numero =)

Saluda: Siameze.-
 

JhundieL

Oráculo Lvl 1
Buenisimo Siameze!
Ahora cuando tenga tiempo me bajo algun fenix y la pruevo ! :)
PD: La hiciste de 0? O la sacaste del cliente de iao?

Saludos.
 

Franco77

THUSING

Te fuiste a la mierda alan jaja, muy buen aporte!!!
Voy a provarlo ahora.
No lo lei muy bien estoy muy pajoso xD
Lo voy a provar.
Osea,, a los 17 FPS, ya anda bien?
Y osea, los fps le dan hasta lo q llega la PC?
O masomenos va caminando bien a los 60-70?

Saludos!
 

Siameze

Pina colada boy
Franco77 dijo:

Te fuiste a la mierda alan jaja, muy buen aporte!!!
Voy a provarlo ahora.
No lo lei muy bien estoy muy pajoso xD
Lo voy a provar.
Osea,, a los 17 FPS, ya anda bien?
Y osea, los fps le dan hasta lo q llega la PC?
O masomenos va caminando bien a los 60-70?

Saludos!
va a caminar bien, pero si qres q te funque mas lindo, metele 60 fps, x q de ai para abajo ya va empeorando :p
pero, asta cn 18 fps t das cuenta q es mejor q la caminata clasica de fenix :p

Saluda: Siameze.-
 

Dr. Lord Fers

Legendario Inmortal Lvl 5
Miembro del equipo
Moderador
Moderador de Tecnología
Siameze dijo:
Franco77 dijo:

Te fuiste a la mierda alan jaja, muy buen aporte!!!
Voy a provarlo ahora.
No lo lei muy bien estoy muy pajoso xD
Lo voy a provar.
Osea,, a los 17 FPS, ya anda bien?
Y osea, los fps le dan hasta lo q llega la PC?
O masomenos va caminando bien a los 60-70?

Saludos!
va a caminar bien, pero si qres q te funque mas lindo, metele 60 fps, x q de ai para abajo ya va empeorando :p
pero, asta cn 18 fps t das cuenta q es mejor q la caminata clasica de fenix :p

Saluda: Siameze.-
Cof cof, que onda con el Graficos.ind? se parece mucho al de iao, y dijiste que no había que agregar nada de IAO u.u...

Va creo, porque IAO utiliza unas cosas que vi ahí... Pero puede que me confunda con 12.1...

Buen aporte :p...



Pero sigo esperando para cargar Particulas en Conectar :D...
 

Siameze

Pina colada boy
Lord Fers dijo:
Siameze dijo:
Franco77 dijo:

Te fuiste a la mierda alan jaja, muy buen aporte!!!
Voy a provarlo ahora.
No lo lei muy bien estoy muy pajoso xD
Lo voy a provar.
Osea,, a los 17 FPS, ya anda bien?
Y osea, los fps le dan hasta lo q llega la PC?
O masomenos va caminando bien a los 60-70?

Saludos!
va a caminar bien, pero si qres q te funque mas lindo, metele 60 fps, x q de ai para abajo ya va empeorando :p
pero, asta cn 18 fps t das cuenta q es mejor q la caminata clasica de fenix :p

Saluda: Siameze.-
Cof cof, que onda con el Graficos.ind? se parece mucho al de iao, y dijiste que no había que agregar nada de IAO u.u...

Va creo, porque IAO utiliza unas cosas que vi ahí... Pero puede que me confunda con 12.1...

Buen aporte :p...



Pero sigo esperando para cargar Particulas en Conectar :D...
:| de q estas hablando, si nunca cambio nada de los recursos....

Saluda: Siameze.-
 

juliancarrera

Destructor Lvl 3
Che yo tengo tu sistema de Dx8 Virgen con cuentas, y ya viene con los fps modificados, nose como ponerlo sin qe se me bugee :( jajaja necesitaria ayuda :D

GRacias!
 

Siameze

Pina colada boy
juliancarrera dijo:
Che yo tengo tu sistema de Dx8 Virgen con cuentas, y ya viene con los fps modificados, nose como ponerlo sin qe se me bugee :( jajaja necesitaria ayuda :D

GRacias!
el que tiene mi cliente es al pedo que aga esto ¬¬


Siame, yo uso el fenix dx8 con ore de Thusing (Franco77) y muchas cosas no encuentro
Que hago?
q es lo q no encontras?

aver si te ayudo...

Saluda: Siameze.-
 

Shalvaid

Aprendiz Lvl 3
Disculpa, pero no termino de entender el proposito de este code. Hasta donde yo había revisado el engine de iao, con direct input registraba cuando se presionaba una tecla y cuando se levantaba. Y el engine solamente registra cuando se empieza y cuando se termina de caminar. A diferencia del de ao que camina por paso, dibuja un paso, termina de caminar, asi sucesivamente.

Nose si me expliqué bien, de todas formas gracias por el aporte a muchos le servirá :p
 

Siameze

Pina colada boy
Shalvaid dijo:
Disculpa, pero no termino de entender el proposito de este code. Hasta donde yo había revisado el engine de iao, con direct input registraba cuando se presionaba una tecla y cuando se levantaba. Y el engine solamente registra cuando se empieza y cuando se termina de caminar. A diferencia del de ao que camina por paso, dibuja un paso, termina de caminar, asi sucesivamente.

Nose si me expliqué bien, de todas formas gracias por el aporte a muchos le servirá :p
lo de dximput lo entiendo, y no es la gran cosa, ahora, lo otro no tengo la mas palida idea, no me lo imagino =/
q quisiste decir?? xD

pero visualizando un poco...
si utilizaramos ese metodo q vs estas hablando me parece que un parsonaje podria pararse en medio de 2 tiles tranquilamente.. cosa q no se puede hacer...

edit: che, yo me fije en un cliente IAO( no se cual vercion) y estaba asi =/

si alguien me pasa la ultima vercion de algun cliente liberado se lo agradesco :)

Saluda: Siameze.-
 
El cliente que tenes es el mismo q tenemos todos pq hasta donde yo se es el unico q liberaron.
Suerte!
 

Franeg95

CARP
Ex-Staff
Shalvaid dijo:
. Y el engine solamente registra cuando se empieza y cuando se termina de caminar. A diferencia del de ao
que camina por paso, dibuja un paso, termina de caminar, asi sucesivamente.
Podrias redactar mejor esa parte?

Por lo que decis el cliente de Iao esta a la espera de que se suelte la tecla para resien dibujar? O se mueve mientras la tecla esta pulsada?
 

Siameze

Pina colada boy
Franeg95 dijo:
Shalvaid dijo:
. Y el engine solamente registra cuando se empieza y cuando se termina de caminar. A diferencia del de ao
que camina por paso, dibuja un paso, termina de caminar, asi sucesivamente.
Podrias redactar mejor esa parte?

Por lo que decis el cliente de Iao esta a la espera de que se suelte la tecla para resien dibujar? O se mueve mientras la tecla esta pulsada?
creo q todos los Aos hacen eso, mientras q vs pulsas la tecla, camina xD
capas q tiene alguna forma diferente de hacerlos caminar.. q se yo, y no rejistra cuando terminaste un tile, y te pone un offset re grande xD

me parece q no, por que los datos hay q mandarlos cada tile, igual, se puede hacer pero no le veo la utilidad :p

Saluda: Siameze.-
 

Lonthar

Oráculo Lvl 4
Siame, no funca para el cliente de Thusing que subio de Ore 1.0 :S No es que no funca, no encuentra algunas cosas..
 
Estado
Cerrado para nuevas respuestas.
Arriba