Aldeia RPG

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Suporte ao desenvolvimento de jogos


3 participantes

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

    Zeus
    Zeus
    Novato
    Novato


    Mensagens : 17
    Créditos : 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 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 =(

    Valentine
    Valentine
    Administrador
    Administrador


    Medalhas : Dúvidas em relação a criação de chars ZgLkiRU
    Mensagens : 5336
    Créditos : 1163

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

    Mensagem por Valentine 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
    Zeus
    Zeus
    Novato
    Novato


    Mensagens : 17
    Créditos : 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 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
    Colaborador
    Colaborador


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

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

    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 Qui Jun 28, 2012 10:23 pm

    Aee deu certo !! Valeu =)
    Dooolly
    Dooolly
    Colaborador
    Colaborador


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

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

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


    Medalhas : Dúvidas em relação a criação de chars ZgLkiRU
    Mensagens : 5336
    Créditos : 1163

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

    Mensagem por Valentine Qui Jun 28, 2012 10:55 pm

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

    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: Qui Mar 28, 2024 8:06 am