Bom, olá galera, eu estou com algumas dúvidas. Primeiramente, eu gostaria de saber como faço pra ao inves de aparecer os sprites na criação de char aparecer as faces, por exemplo :

Eu seleciono a classe guerreiro, e ao invez do sprite aparecer uma img de guerreiro.

Essa é fácil mas eu não sei como fazer =(

No Cliente, em modDirectDraw7, procure por:

Código:

Public Sub NewCharacterBltSprite()

Substitua TODO o sub por:

Código:

Public Sub NewCharacterBltSprite()
Dim Sprite As Long
Dim sRECT As DxVBLib.RECT
Dim dRECT As DxVBLib.RECT
Dim width As Long, height As Long
   
    ' If debug mode, handle error then exit out
    If Options.Debug = 1 Then On Error GoTo errorhandler

    If frmMenu.cmbClass.ListIndex = -1 Then Exit Sub
   
    If frmMenu.optMale.Value = True Then
        Sprite = Class(frmMenu.cmbClass.ListIndex + 1).MaleSprite(newCharSprite)
    Else
        Sprite = Class(frmMenu.cmbClass.ListIndex + 1).FemaleSprite(newCharSprite)
    End If
   
    If Sprite < 1 Or Sprite > NumCharacters Then
        frmMenu.picSprite.Cls
        Exit Sub
    End If
   
    FaceTimer(Sprite) = GetTickCount + SurfaceTimerMax

    If DDS_Face(Sprite) Is Nothing Then
        Call InitDDSurf("faces\" & Sprite, DDSD_Face(Sprite), DDS_Face(Sprite))
    End If
   
    width = DDSD_Face(Sprite).lWidth / 4
    height = DDSD_Face(Sprite).lHeight / 4
   
    frmMenu.picSprite.width = width
    frmMenu.picSprite.height = height
   
    sRECT.top = 0
    sRECT.Bottom = sRECT.top + height
    sRECT.Left = 0
    sRECT.Right = sRECT.Left + width
   
    dRECT.top = 0
    dRECT.Bottom = height
    dRECT.Left = 0
    dRECT.Right = width
   
    Call Engine_BltToDC(DDS_Face(Sprite), sRECT, dRECT, frmMenu.picSprite)
   
    ' Error handler
    Exit Sub
errorhandler:
    HandleError "NewCharacterBltSprite", "modDirectDraw7", Err.Number, Err.Description, Err.Source, Err.HelpContext
    Err.Clear
    Exit Sub
End Sub

Nao deu certo, olha o resultado

faça a mesma coisa q o marlos só q

subistitua a sub por essa

Código:

Public Sub NewCharacterBltSprite()
Dim Sprite As Long
Dim sRECT As DxVBLib.RECT
Dim dRECT As DxVBLib.RECT
Dim width As Long, height As Long
 
    ' If debug mode, handle error then exit out
    If Options.Debug = 1 Then On Error GoTo errorhandler

    If frmMenu.cmbClass.ListIndex = -1 Then Exit Sub
 
    If frmMenu.optMale.Value = True Then
        Sprite = Class(frmMenu.cmbClass.ListIndex + 1).MaleSprite(newCharSprite)
    Else
        Sprite = Class(frmMenu.cmbClass.ListIndex + 1).FemaleSprite(newCharSprite)
    End If
 
    If Sprite < 1 Or Sprite > NumCharacters Then
        frmMenu.picSprite.Cls
        Exit Sub
    End If
 
    FaceTimer(Sprite) = GetTickCount + SurfaceTimerMax

    If DDS_Face(Sprite) Is Nothing Then
        Call InitDDSurf("faces\" & Sprite, DDSD_Face(Sprite), DDS_Face(Sprite))
    End If
 
    width = DDSD_Face(Sprite).lWidth
    height = DDSD_Face(Sprite).lHeight
 
    frmMenu.picSprite.width = width
    frmMenu.picSprite.height = height
 
    sRECT.top = 0
    sRECT.Bottom = sRECT.top + height
    sRECT.Left = 0
    sRECT.Right = sRECT.Left + width
 
    dRECT.top = 0
    dRECT.Bottom = height
    dRECT.Left = 0
    dRECT.Right = width
 
    Call Engine_BltToDC(DDS_Face(Sprite), sRECT, dRECT, frmMenu.picSprite)
 
    ' Error handler
    Exit Sub
errorhandler:
    HandleError "NewCharacterBltSprite", "modDirectDraw7", Err.Number, Err.Description, Err.Source, Err.HelpContext
    Err.Clear
    Exit Sub
End Sub

pq o marlos esqueceu de tirar a divisão da img ai ficou mostrando só 1/4 dela

Aee deu certo !! Valeu =)

Viu marlos eu acerto e vc n vc é um Valentine Lixo
Da os cred ai pra nois

Tenho outra dúvida, só que é no sistema de spell que copia o sprite, ela não copia direito, ou não copia nenhum, ou copia um unico sprite pra todos os outros.. como resolver ?

Sobre isso você tem que perguntar ao autor que criou esse sistema.