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


2 participantes

    [Help] Transformar sub dx8 em sub dx7

    GalaxyHells
    GalaxyHells
    Ocasional
    Ocasional


    Mensagens : 196
    Créditos : 22

    Ficha do personagem
    Nível: 1
    Experiência:
    [Help] Transformar sub dx8 em sub dx7 Left_bar_bleue0/0[Help] Transformar sub dx8 em sub dx7 Empty_bar_bleue  (0/0)
    Vida:
    [Help] Transformar sub dx8 em sub dx7 Left_bar_bleue30/30[Help] Transformar sub dx8 em sub dx7 Empty_bar_bleue  (30/30)

    [Help] Transformar sub dx8 em sub dx7 Empty [Help] Transformar sub dx8 em sub dx7

    Mensagem por GalaxyHells Ter Ago 28, 2018 11:21 pm

    Ér... eu tava ponhando esse sistema aqui na minha engine
    (https://www.aldeiarpg.com/t13668p10-eo3-0aprimoramento-de-equipamentos)
    Porém ele é pra EO 3.0 (DX8) e quero usar ele em uma engine minha EO 2.0 (DX7)
    Porém não sei converter essa sub pra dx7 ;c, então queria a ajuda d voceis ;D
    Se alguem puder me ajudar a converter essa sub eu agradeceria mt <3

    Sub:

    Código:
    Sub DrawBlacksmith()
    Dim Rec As RECT, Rec_Pos As RECT, srcRect As D3DRECT, destRect As D3DRECT

        ' If debug mode, handle error then exit out
        If Options.Debug = 1 Then On Error GoTo errorhandler

        If BS_Item.num > 0 Then
           With srcRect
               .X1 = 136
               .x2 = 32 + .X1
               .Y1 = 103
               .y2 = 32 + .Y1
           End With
        
           Direct3D_Device.Clear 0, ByVal 0, D3DCLEAR_TARGET, D3DColorRGBA(219, 240, 255, 255), 1#, 0
           Direct3D_Device.BeginScene
        
           RenderTexture Tex_Item(Item(BS_Item.num).Pic), 136, 103, 0, 0, 32, 32, 32, 32
        
           Direct3D_Device.EndScene
           Direct3D_Device.Present srcRect, srcRect, frmMain.picBlacksmith.hWnd, ByVal (0)
        End If
        
        If BS_Precious > 0 Then
           With srcRect
               .X1 = 136
               .x2 = 32 + .X1
               .Y1 = 30
               .y2 = 32 + .Y1
           End With
        
           Direct3D_Device.Clear 0, ByVal 0, D3DCLEAR_TARGET, D3DColorRGBA(219, 240, 255, 255), 1#, 0
           Direct3D_Device.BeginScene
        
           RenderTexture Tex_Item(Item(BS_Precious).Pic), 136, 30, 0, 0, 32, 32, 32, 32
        
           Direct3D_Device.EndScene
           Direct3D_Device.Present srcRect, srcRect, frmMain.picBlacksmith.hWnd, ByVal (0)
        End If
        
        If BS_Stone1 > 0 Then
           With srcRect
               .X1 = 75
               .x2 = 32 + .X1
               .Y1 = 103
               .y2 = 32 + .Y1
           End With
        
           Direct3D_Device.Clear 0, ByVal 0, D3DCLEAR_TARGET, D3DColorRGBA(219, 240, 255, 255), 1#, 0
           Direct3D_Device.BeginScene
        
           If BS_Stone1 > 0 Then RenderTexture Tex_Item(Item(BS_Stone1).Pic), 75, 103, 0, 0, 32, 32, 32, 32
        
           Direct3D_Device.EndScene
           Direct3D_Device.Present srcRect, srcRect, frmMain.picBlacksmith.hWnd, ByVal (0)
        End If
        
        If BS_Stone2 > 0 Then
           With srcRect
               .X1 = 197
               .x2 = 32 + .X1
               .Y1 = 103
               .y2 = 32 + .Y1
           End With
        
           Direct3D_Device.Clear 0, ByVal 0, D3DCLEAR_TARGET, D3DColorRGBA(219, 240, 255, 255), 1#, 0
           Direct3D_Device.BeginScene
        
           If BS_Stone2 > 0 Then RenderTexture Tex_Item(Item(BS_Stone2).Pic), 197, 103, 0, 0, 32, 32, 32, 32
        
           Direct3D_Device.EndScene
           Direct3D_Device.Present srcRect, srcRect, frmMain.picBlacksmith.hWnd, ByVal (0)
        End If
        
        If BS_Stone3 > 0 Then
           With srcRect
               .X1 = 136
               .x2 = 32 + .X1
               .Y1 = 164
               .y2 = 32 + .Y1
           End With
        
           Direct3D_Device.Clear 0, ByVal 0, D3DCLEAR_TARGET, D3DColorRGBA(219, 240, 255, 255), 1#, 0
           Direct3D_Device.BeginScene
           
           If BS_Stone3 > 0 Then RenderTexture Tex_Item(Item(BS_Stone3).Pic), 136, 164, 0, 0, 32, 32, 32, 32
        
           Direct3D_Device.EndScene
           Direct3D_Device.Present srcRect, srcRect, frmMain.picBlacksmith.hWnd, ByVal (0)
        End If
        
        ' Error handler
        Exit Sub
    errorhandler:
        HandleError "DrawBlacksmith", "modGraphics", Err.Number, Err.Description, Err.Source, Err.HelpContext
        Err.Clear
        Exit Sub
    End Sub



    Alguem helpa eu ai pelamordedeus! '-'


    _________________
    [Help] Transformar sub dx8 em sub dx7 90yel0
    DragonicK
    DragonicK
    Experiente
    Experiente


    Mensagens : 542
    Créditos : 81

    Ficha do personagem
    Nível: 1
    Experiência:
    [Help] Transformar sub dx8 em sub dx7 Left_bar_bleue0/0[Help] Transformar sub dx8 em sub dx7 Empty_bar_bleue  (0/0)
    Vida:
    [Help] Transformar sub dx8 em sub dx7 Left_bar_bleue30/30[Help] Transformar sub dx8 em sub dx7 Empty_bar_bleue  (30/30)

    [Help] Transformar sub dx8 em sub dx7 Empty Re: [Help] Transformar sub dx8 em sub dx7

    Mensagem por DragonicK Qua Ago 29, 2018 12:59 am

    No caso do EO 2.0, você terá que fazer a janela por formulários e controles. E refazer / adpatar todo o sistema pra engine.

      Data/hora atual: Qui Mar 28, 2024 6:29 am