[Help] Transformar sub dx8 em sub dx7 Hitskin_logo Hitskin.com

Isto é uma pré-visualização de um tema em Hitskin.com
Instalar o tema • Voltar para a ficha do tema

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

Suporte ao desenvolvimento de jogos


[Help] Transformar sub dx8 em sub dx7

2 participantes

Aldeia RPG :: Eclipse Origins e Crystalshire :: Central de ajuda :: Dúvidas e pedidos

Ir para baixo

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

Ir para o topo Ir para baixo

[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.
DragonicK
DragonicK
Experiente
Experiente

Mensagens : 543
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)

Ir para o topo Ir para baixo

Ir para o topo

- Tópicos semelhantes

Aldeia RPG :: Eclipse Origins e Crystalshire :: Central de ajuda :: Dúvidas e pedidos

 
Permissões neste sub-fórum
Não podes responder a tópicos