Dúvidas em relação a criação de chars

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.