[Help] Transformar sub dx8 em sub dx7

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

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.