Suporte no desenvolvimento de jogos


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

    Zeus
    Zeus
    Novato
    Novato

    Mensagens : 17
    Créditos : 0
    Cash : 0

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

    Mensagem por Zeus em Qua Jun 27, 2012 11:01 am

    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 =(

    Blast
    Blast
    Administrador
    Administrador

    Medalhas : Dúvidas em relação a criação de chars 94JxvDúvidas em relação a criação de chars ZgLkiRU
    Mensagens : 4995
    Créditos : 1105
    Cash : 0

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

    Mensagem por Blast em Qua Jun 27, 2012 7:24 pm

    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


    _________________
    Dúvidas em relação a criação de chars AIymW
    Zeus
    Zeus
    Novato
    Novato

    Mensagens : 17
    Créditos : 0
    Cash : 0

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

    Mensagem por Zeus em Qui Jun 28, 2012 7:35 pm

    Nao deu certo, olha o resultado
    Dúvidas em relação a criação de chars Scaled.php?server=513&filename=semttulosrh
    Dooolly
    Dooolly
    Moderador Global
    Moderador Global

    Medalhas : Dúvidas em relação a criação de chars Trophy12
    Mensagens : 1227
    Créditos : 149
    Cash : 0

    Ficha do personagem
    Nível: 1
    Experiência:
    Dúvidas em relação a criação de chars Left_bar_bleue0/0Dúvidas em relação a criação de chars Empty_bar_bleue  (0/0)
    Vida:
    Dúvidas em relação a criação de chars Left_bar_bleue30/30Dúvidas em relação a criação de chars Empty_bar_bleue  (30/30)

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

    Mensagem por Dooolly em Qui Jun 28, 2012 8:13 pm

    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 Razz
    Zeus
    Zeus
    Novato
    Novato

    Mensagens : 17
    Créditos : 0
    Cash : 0

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

    Mensagem por Zeus em Qui Jun 28, 2012 10:23 pm

    Aee deu certo !! Valeu =)
    Dooolly
    Dooolly
    Moderador Global
    Moderador Global

    Medalhas : Dúvidas em relação a criação de chars Trophy12
    Mensagens : 1227
    Créditos : 149
    Cash : 0

    Ficha do personagem
    Nível: 1
    Experiência:
    Dúvidas em relação a criação de chars Left_bar_bleue0/0Dúvidas em relação a criação de chars Empty_bar_bleue  (0/0)
    Vida:
    Dúvidas em relação a criação de chars Left_bar_bleue30/30Dúvidas em relação a criação de chars Empty_bar_bleue  (30/30)

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

    Mensagem por Dooolly em Qui Jun 28, 2012 10:24 pm

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

    Mensagens : 17
    Créditos : 0
    Cash : 0

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

    Mensagem por Zeus em Qui Jun 28, 2012 10:37 pm

    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 ?
    Blast
    Blast
    Administrador
    Administrador

    Medalhas : Dúvidas em relação a criação de chars 94JxvDúvidas em relação a criação de chars ZgLkiRU
    Mensagens : 4995
    Créditos : 1105
    Cash : 0

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

    Mensagem por Blast em Qui Jun 28, 2012 10:55 pm

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


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

    Conteúdo patrocinado

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

    Mensagem por Conteúdo patrocinado


      Data/hora atual: Sab Ago 24, 2019 2:18 am