renderizado de textos cliente midraks v3 optimizado

» 13 Ene 2012 03:35

Bueno tengo un problema quiero poner codigos por ejemplo dibujar nombre del staff que aca esta el codigo:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

                   If Nombres Then
                        If Len(.Nombre) > 0 Then
                            Pos = InStr(.Nombre, "<")
                            If Pos = 0 Then Pos = Len(.Nombre) + 2
                           
                            If .priv = 0 Then
                               If .Criminal Then
                                    color = D3DColorXRGB(255, 0, 0)
                                    colorclan = D3DColorXRGB(255, 0, 0)
                                Else
                                    color = D3DColorXRGB(40, 40, 255)
                                    colorclan = D3DColorXRGB(40, 40, 255)
                              End If
                            Else
                                color = D3DColorXRGB(0, 100, 0)
                                colorclan = D3DColorXRGB(ColoresPJ(50).r, ColoresPJ(50).g, ColoresPJ(50).B)
                                Call Engine_Text_Render("<AO Staff>" & line, PixelOffsetX - 43, PixelOffsetY + 45, D3DColorXRGB(0, 100, 0))
                            End If
                           
                            'Nick
                            line = Left$(.Nombre, Pos - 2)
                            Call Engine_Text_Render(line, PixelOffsetX - 8, PixelOffsetY + 30, color)
                           
                            'Clan
                            line = mid$(.Nombre, Pos)
                            Call Engine_Text_Render(line, PixelOffsetX - 18, PixelOffsetY + 45, color)
                        End If
                    End If
                End If

y

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

Dim colorclan As Long

el tema es que este cliente tiene otro tipo de codigo que en ves de ser call engine_text_render es dibujartexto y aparte los valores son diferentes y no entiendo mucho de programacion ni basica tambien no logro centrar los dialogos y mi nombre ni el del clan si alguien me puede ayudar se agradeceria

Saludos y perdonen por mi ignorancia

por sierto este es mi codigo de nombres

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

     If Nombres Then
                    If Len(.Nombre) > 0 Then
                        Pos = InStr(.Nombre, "<")
 
                        If Pos = 0 Then Pos = Len(.Nombre) + 2
                            
                        If .priv = 0 Then
                            If .Criminal Then
                                color = D3DColorXRGB(ColoresPJ(50).r, ColoresPJ(50).g, ColoresPJ(50).B)
                            Else
                                color = D3DColorXRGB(ColoresPJ(49).r, ColoresPJ(49).g, ColoresPJ(49).B)
                            End If
 
                        Else
                            color = D3DColorXRGB(ColoresPJ(.priv).r, ColoresPJ(.priv).g, ColoresPJ(.priv).B)
                        End If
                            
                        'Nick
                        line = Left$(.Nombre, Pos - 2)
                        Call DibujarTexto(line, PixelOffsetY + 30, PixelOffsetX - 10, 1, color)
                            
                        'Clan
                        line = mid$(.Nombre, Pos)
                        Call DibujarTexto(line, PixelOffsetY + 45, PixelOffsetX - 22, 1, color)
                    End If
                End If
            End If

» 13 Ene 2012 03:45

Em primero que nada estas usando al vercion 3 de midraks no ?
Postea su codigo no el del ao común

ya que ese cliente usa las askerosas letras por grh (Como las odio feas feas feas feas feas feas re feas )
2 : Cambia el titulo a renderizado de textos así es mas comprensible para otros usuarios

3 : Postea esa linea y el Public Sub Render() que se encuentra en el modulo de clase clsdialogs.bas eso es todo antes que te vallas a dormir te los centro y fue

» 13 Ene 2012 04:01

Jajajja si es verdad ami mucho no me gustan pero por lo que lei te ahorra muchos fps enfin aca lo tenes y gracias

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

Public Sub Render()
 
    '**************************************************************
    'Author: Juan Martín Sotuyo Dodero
    'Last Modification: 08/29/07 by Rapsodius
    'Changed the way it gets rid of older dialogs.
    '**************************************************************
    Dim i              As Long
 
    Dim j              As Long
 
    Dim offset         As Integer
 
    Dim removedDialogs As Long
   
    For i = 0 To dialogCount - 1
 
        'Decrease index to prevent jumping over a dialog
        'Crappy VB will cache the limit of the For loop, so even if it changed, it won't matter
        With dialogs(i - removedDialogs)
        
       If .lifeTime >= 292 Then
           If .Sube > 0 Then _
           .Sube = .Sube - 1
           If .Sube > 0 Then .y = .y + .Sube
        End If
 
            If (GetTickCount() - .startTime) >= .lifeTime Then
                Call RemoveDialog(.CharIndex)
               
                removedDialogs = removedDialogs + 1
            ElseIf .renderable Then
                offset = -(usedFont.Size + 2) * UBound(.textLine())
               
                'Render it
                For j = 0 To UBound(.textLine())
                    Call DibujarTexto(.textLine(j), .y + offset, .x + 170)
                    offset = offset + usedFont.Size + 5
                Next j
               
                'Won't render it unless it's updated in next frmae
                .renderable = False
            End If
 
        End With
 
    Next i
 
End Sub

» 13 Ene 2012 04:20

PAra que los textos cuando hablas se centren o queden a tu gusto

es aca
Call DibujarTexto(.textLine(j), .y + offset, .x + 170 < vas modificando restandole al 170

Y aca los nombre sy el clan

'Nick
line = Left$(.Nombre, Pos - 2)
Call DibujarTexto(line, PixelOffsetY + 30, PixelOffsetX - 10, 1, color) < aca es el 30 le vas restando o sumando

'Clan
line = mid$(.Nombre, Pos)
Call DibujarTexto(line, PixelOffsetY + 45, PixelOffsetX - 22, 1, color) < aca es el 45 restas o sumas

» 13 Ene 2012 04:38

gracias ya lo pude acomodar el tema ahora es lo primero que postie lo del <staff ao> que no se adaptarlo a los codigos que ya los deje desde ya gracias

» 13 Ene 2012 04:47

Crea otro th para eso

renderizado de textos cliente midraks v3 optimizado

¿Quién está conectado?