[Offtopic] desenvolvendo motor

3 participantes

BGames :: Área livre :: Discussões Gerais

[Offtopic] desenvolvendo motorDom 21 Abr 2013 - 20:50

Eu fiz um motor atoa brincando de programasaum,
tá ai algumas IBAGENS.

O motor aberto.
[Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem]

Form do jogo fechado.
[Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem]

Usando uma magia
[Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem]

Sistemas básicos:
Movimentação
Magia
Passar sob um objeto
Passar Sobre um Objeto
FPS
Status - HP , MP , Level, Experiência
Chat
Itens

Re: [Offtopic] desenvolvendo motorDom 21 Abr 2013 - 23:46

Cara eu nao comprendo nada disto adoraria saber se poder me pasa algo amei pareçe mei que o jogo "Ragnarog" mas ta ficano bacana '--' so nao do rep+ por que nao posso ainda desculpe se for flod

Re: [Offtopic] desenvolvendo motorSeg 22 Abr 2013 - 6:54

Nossa cara, fez isso brincando, perdão ae kkkkkk Ta muito loco, vai terminar?

Re: [Offtopic] desenvolvendo motorSeg 22 Abr 2013 - 10:45

xxxneonaipxxx , depois eu faço umas video aulas..

Ultimate,
é o seguinte, eu até pensei em dar continuidade mais me desanima ao pensar
em fazer por exemplo o sistema de Mapeamento, porque eu to colocando cada objeto
no mapa por código veja só

Código:

        Dim ScreenRect As Rectangle
        Dim ImageRect As Rectangle

        'Pilar 1
        ImageRect = New Rectangle(32, 0, 32, 64)
        ScreenRect = New Rectangle(50, 50, 32, 64)
        DesenharImagem(Tile, ScreenRect, ImageRect)

        'Pilar 2
        ImageRect = New Rectangle(32, 0, 32, 64)
        ScreenRect = New Rectangle(150, 50, 32, 64)
        DesenharImagem(Tile, ScreenRect, ImageRect)

        'Cristal 
        ImageRect = New Rectangle(192, 0, 32, 64)
        ScreenRect = New Rectangle(102, 53, 32, 64)
        DesenharImagem(Tile, ScreenRect, ImageRect)

        'Arvore 1
        ImageRect = New Rectangle(256, 224, 64, 64)
        ScreenRect = New Rectangle(-330, 105, 64, 64)
        DesenharImagem(Tile, ScreenRect, ImageRect)

        'Arvore 2
        ImageRect = New Rectangle(256, 224, 64, 64)
        ScreenRect = New Rectangle(225, 105, 64, 64)
        DesenharImagem(Tile, ScreenRect, ImageRect)

        'Arvore 3
        ImageRect = New Rectangle(256, 224, 64, 64)
        ScreenRect = New Rectangle(125, 105, 64, 64)
        DesenharImagem(Tile, ScreenRect, ImageRect)

        'Arvore 4
        ImageRect = New Rectangle(256, 224, 64, 64)
        ScreenRect = New Rectangle(255, 105, 64, 64)
        DesenharImagem(Tile, ScreenRect, ImageRect)

        'Arvore 5 
        ImageRect = New Rectangle(256, 224, 64, 64)
        ScreenRect = New Rectangle(375, 106, 64, 64)
        DesenharImagem(Tile, ScreenRect, ImageRect)

        'Arvore 6 
        ImageRect = New Rectangle(256, 224, 64, 64)
        ScreenRect = New Rectangle(475, 136, 64, 64)
        DesenharImagem(Tile, ScreenRect, ImageRect)

        'Arvore 7 
        ImageRect = New Rectangle(256, 224, 64, 64)
        ScreenRect = New Rectangle(575, 136, 64, 64)
        DesenharImagem(Tile, ScreenRect, ImageRect)
        'Arvore 8 
        ImageRect = New Rectangle(256, 224, 64, 64)
        ScreenRect = New Rectangle(675, 136, 64, 64)
        DesenharImagem(Tile, ScreenRect, ImageRect)
        'Arvore 9 
        ImageRect = New Rectangle(256, 224, 64, 64)
        ScreenRect = New Rectangle(125, 116, 64, 64)
        DesenharImagem(Tile, ScreenRect, ImageRect)

        'Arvore 10
        ImageRect = New Rectangle(256, 224, 64, 64)
        ScreenRect = New Rectangle(225, 116, 64, 64)
        DesenharImagem(Tile, ScreenRect, ImageRect)