BUenas a todos otra vez, esta vez os escribo para consultaros sobre un problema de rendering que tiene mi cliente. Al ir al borde de los mapas (cambios de mapa) o sitios muy cargados de grhs diferentes y angostos el cliente se relentiza mucho en la creacion de grh, haciendo que los persoanjes se muevan 10 veces mas lento. Un amigo estuvo averiguando y la contestacion que recibio fue la siguiente:

El problema es más o menos sencillo. La función de rendering, ni me
acuerdo a esta altura del nombre, pero es fácil encontrarla, tira
errores al caminar por los bordes. Estos errores son por referenciar
posiciones de los arreglos y listas inexistentes (por debajo del 1 o por
encima del 100). Lo que agrava el problema, es que el error se ignora,
porque la función tiene un:
On Error Resume Next
o similar, que hace que se continue con la siguiente linea.

En VB6, cuando se genera un error, se crean una instancia con la
información del error, para poder tomar una acción correctiva. NUNCA
debe usarse 'On Error Resume Next', porque no solo relantece la
ejecución del programa, sino que el programa puede terminar haciendo
cualquier cosa. Por suerte, con el rendering no pasa nada grave, salvo
que el proceso (que necesita ser rapidísimo) se relantece en varios
ordenes de magnitud.

El cambio pasa por hacer 2 cosas:

(1) primero eliminar ese desafortunado 'on error resume next', para que
SALTEN los errores, y entonces poder corregirlos. Corre el Argentum Online desde el
IDE, para ver dónde y porqué saltan los errores, y

(2) seguro vas a encontrar que falta comprobar los límites del mapa al
momento de renderizarlo. Debe ser cuestión de agregar algún:
AND x >=1 AND x <= 100 AND Y >=1 AND Y <= 100
o algo parecido en 1 o 2 IFs. Con ese poquito, se arregla todo. Y nunca
más funcionará lento el rendering :)



Aqui dejo el code de mi renderscreen, quizas a alguno se le ocurra como mejorar el rendimiento y arreglar este gran errror:

Código [Seleccionar] Expand

Sub RenderScreen(tilex As Integer, tiley As Integer, PixelOffsetX As Integer, PixelOffsetY As Integer)


On Error Resume Next

If UserCiego Then Exit Sub

Dim Y        As Integer 'Keeps track of where on map we are
Dim X        As Integer 'Keeps track of where on map we are
Dim minY     As Integer 'Start Y pos on current map
Dim maxY     As Integer 'End Y pos on current map
Dim minX     As Integer 'Start X pos on current map
Dim maxX     As Integer 'End X pos on current map
Dim ScreenX  As Integer 'Keeps track of where to place tile on screen
Dim ScreenY  As Integer 'Keeps track of where to place tile on screen
Dim Moved    As Byte
Dim Grh      As Grh     'Temp Grh for show tile and blocked
Dim TempChar As Char
Dim TextX    As Integer
Dim TextY    As Integer
Dim iPPx     As Integer 'Usado en el Layer de Chars
Dim iPPy     As Integer 'Usado en el Layer de Chars
Dim rSourceRect      As RECT    'Usado en el Layer 1
Dim iGrhIndex        As Integer 'Usado en el Layer 1
Dim PixelOffsetXTemp As Integer 'For centering grhs
Dim PixelOffsetYTemp As Integer 'For centering grhs

'Figure out Ends and Starts of screen
' Hardcodeado para speed!
minY = (tiley - 15)
maxY = (tiley + 15)
minX = (tilex - 17)
maxX = (tilex + 17)

'Draw floor layer
ScreenY = 8 + RenderMod.iImageSize
For Y = (minY + 8) + RenderMod.iImageSize To (maxY - 8) - RenderMod.iImageSize
   ScreenX = 8 + RenderMod.iImageSize
   For X = (minX + 8) + RenderMod.iImageSize To (maxX - 8) - RenderMod.iImageSize
       If X > 100 Or Y < 1 Then Exit For
       'Layer 1 **********************************
       With MapData(X, Y).Graphic(1)
           If (.Started = 1) Then
               If (.SpeedCounter > 0) Then
                   .SpeedCounter = .SpeedCounter - 1
                   If (.SpeedCounter = 0) Then
                       .SpeedCounter = GrhData(.GrhIndex).Speed
                       .FrameCounter = .FrameCounter + 1
                       If (.FrameCounter > GrhData(.GrhIndex).NumFrames) Then _
                           .FrameCounter = 1
                   End If
               End If
           End If

           'Figure out what frame to draw (always 1 if not animated)
           iGrhIndex = GrhData(.GrhIndex).Frames(.FrameCounter)
       End With

       rSourceRect.Left = GrhData(iGrhIndex).sX
       rSourceRect.Top = GrhData(iGrhIndex).sY
       rSourceRect.Right = rSourceRect.Left + GrhData(iGrhIndex).pixelWidth
       rSourceRect.Bottom = rSourceRect.Top + GrhData(iGrhIndex).pixelHeight

       'El width fue hardcodeado para speed!
       Call BackBufferSurface.BltFast( _
               ((32 * ScreenX) - 32) + PixelOffsetX, _
               ((32 * ScreenY) - 32) + PixelOffsetY, _
               SurfaceDB.GetBMP(GrhData(iGrhIndex).FileNum), _
               rSourceRect, _
               DDBLTFAST_WAIT)
       '******************************************
       If Not RenderMod.bNoCostas Then
           'Layer 2 **********************************
           If MapData(X, Y).Graphic(2).GrhIndex <> 0 Then
               Call DDrawTransGrhtoSurface( _
                       BackBufferSurface, _
                       MapData(X, Y).Graphic(2), _
                       ((32 * ScreenX) - 32) + PixelOffsetX, _
                       ((32 * ScreenY) - 32) + PixelOffsetY, _
                       1, _
                       1)
           End If
           '******************************************
       End If
       ScreenX = ScreenX + 1
   Next X
   ScreenY = ScreenY + 1
   If Y > 100 Then Exit For
Next Y

'Draw Transparent Layers  (Layer 2, 3)
ScreenY = 8 + RenderMod.iImageSize
For Y = (minY + 8) + RenderMod.iImageSize To (maxY - 1) - RenderMod.iImageSize
   ScreenX = 5 + RenderMod.iImageSize
   For X = (minX + 5) + RenderMod.iImageSize To (maxX - 5) - RenderMod.iImageSize
       If X > 100 Or X < -3 Then Exit For
       iPPx = ((32 * ScreenX) - 32) + PixelOffsetX
       iPPy = ((32 * ScreenY) - 32) + PixelOffsetY

       'Object Layer **********************************
       If MapData(X, Y).ObjGrh.GrhIndex <> 0 Then
           Call DDrawTransGrhtoSurface( _
                   BackBufferSurface, _
                   MapData(X, Y).ObjGrh, _
                   iPPx, iPPy, 1, 1)
       End If
       '***********************************************
       'Char layer ************************************
       If MapData(X, Y).CharIndex <> 0 Then
           TempChar = CharList(MapData(X, Y).CharIndex)
           PixelOffsetXTemp = PixelOffsetX
           PixelOffsetYTemp = PixelOffsetY

           Moved = 0
           'If needed, move left and right
           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 - (8 * Sgn(TempChar.MoveOffset.X))
               Moved = 1
           End If
           'If needed, move up and down
           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 - (8 * Sgn(TempChar.MoveOffset.Y))
               Moved = 1
           End If
           'If done moving stop animation
           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
           End If

           'Dibuja solamente players
           iPPx = ((32 * ScreenX) - 32) + PixelOffsetXTemp
           iPPy = ((32 * ScreenY) - 32) + PixelOffsetYTemp
           If TempChar.Head.Head(TempChar.Heading).GrhIndex <> 0 Then
               If Not CharList(MapData(X, Y).CharIndex).invisible Then
                   '[CUERPO]'
                      If (TempChar.macreando = 1) Then
                       Call Dialogos.DrawText(iPPx - 20, iPPy + 50, "<MACREANDO>", RGB(RandomNumber(0, 255), RandomNumber(0, 255), RandomNumber(0, 255)))
                      End If

                       Call DDrawTransGrhtoSurface(BackBufferSurface, TempChar.Body.Walk(TempChar.Heading), _
                               (((32 * ScreenX) - 32) + PixelOffsetXTemp), _
                               (((32 * ScreenY) - 32) + PixelOffsetYTemp), _
                               1, 1)
'no posteo la parte de los chars, la veo innecesaria, mas abajo esta lo siguiente:
       '************************************************
       ScreenX = ScreenX + 1
   Next X
   ScreenY = ScreenY + 1
   If Y >= 100 Or Y < 1 Then Exit For
Next Y


PD: Aun soy muy novato en programacion, por lo que no entiendo alguna de las expreciones que empleo el que me aconsejo lo del  "on error resume", de ser posible y si conoceis la respuesta agradeceria que lo hagais de la forma menos compleja que se puada, muchisimas gracias de antemano.

Hola a todos! Primero que nada me presento, me llamo Surion y estoy programando un servidor de Argentum Online.

Bien, el caso es el siguiente:

Hace unos dias recibi el codigo de un cliente / servidor para encargarme de el, he compilado el servidor de forma satisfactoria, ahora bien, he intentado compilar el cliente y sale el tipico error de "compile error, cant find project or librery" por lo cual me dirije a la ventana de "referencias", en este caso el fail MISSING tieene que ver con dx_lib32 para ser exacto me marca dx_system, he instalado el paquete dxlib actualizado de la web pero sigue sin funcionar, he instalado el paquete y seleccionado el mismo desde la opcion "explorar" pero el programa sigue sin compilar, tambien he probado registrando la libreria desde regsvr32 pero mas de lo mismo..

Aun estoy aprendiendo y estoy muy verde en esto, por ahora me he ido haciendo con la informacion necesaria para programar el servidor mirando paginas, pero no he encontrado practicamente nada mas relativo a este tema.

Edit: Cuelgo SS


¿Podria alguien ayudarme por favor?

PD: Al solucionar este tema tengo otra dudita sobre el empaquetado de graficos con estas librerias.

Muchas gracias de antemano.