Suporte ao desenvolvimento de jogos!


    [Help] Transformar sub dx8 em sub dx7

    Compartilhe
    avatar
    GalaxyHells
    Ocasional
    Ocasional

    Mensagens : 179
    Créditos : 10

    Ficha do personagem
    Nível: 1
    Vida:
    30/30  (30/30)
    Energia:
    0/0  (0/0)

    [Help] Transformar sub dx8 em sub dx7

    Mensagem por GalaxyHells em Qua Ago 29, 2018 4:21 am

    Ér... eu tava ponhando esse sistema aqui na minha engine
    (http://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! '-'


    _________________
    avatar
    DragonicK
    Experiente
    Experiente

    Mensagens : 448
    Créditos : 61

    Re: [Help] Transformar sub dx8 em sub dx7

    Mensagem por DragonicK em Qua Ago 29, 2018 5: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: Ter Dez 11, 2018 7:19 pm