MMORPG Brasil
Ola, visitante! Agradecemos sua visita, para ter acesso a todo nosso conteúdo recomendamos que faça um cadastro no fórum, com ele você pode participar de tópicos e ter acesso a todas áreas da comunidade!

Participe do fórum, é rápido e fácil

MMORPG Brasil
Ola, visitante! Agradecemos sua visita, para ter acesso a todo nosso conteúdo recomendamos que faça um cadastro no fórum, com ele você pode participar de tópicos e ter acesso a todas áreas da comunidade!
MMORPG Brasil
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

[EE][ES]Aumentando a tela do map no VB (picscreen)

+9
maykel
St4rk
Gustavo santos Diniz
Ramonxxd
Lucas Lôpo
klinton-1234
Karlos
DshFox
Noah
13 participantes

Ir para baixo

[EE][ES]Aumentando a tela do map no VB (picscreen) Empty [EE][ES]Aumentando a tela do map no VB (picscreen)

Mensagem por Noah Sáb 02 Jan 2010, 04:34

Antes de começar a seguir esse tutorial faça um backup de sua source por segurança.

1- Abra o seu projeto "Eclipse.vbp"

2- no ModGameLogic procure por:

Código:
         
                NewX = 10
                NewY = 7

                NewPlayerY = Player(MyIndex).y - NewY
                NewPlayerX = Player(MyIndex).X - NewX

                NewX = NewX * PIC_X
                NewY = NewY * PIC_Y

                NewXOffset = Player(MyIndex).xOffset
                NewYOffset = Player(MyIndex).yOffset

                If Player(MyIndex).y - 7 < 1 Then
                    NewY = Player(MyIndex).y * PIC_Y + Player(MyIndex).yOffset
                    NewYOffset = 0
                    NewPlayerY = 0
                    If Player(MyIndex).y = 7 And Player(MyIndex).Dir = DIR_UP Then
                        NewPlayerY = Player(MyIndex).y - 7
                        NewY = 7 * PIC_Y
                        NewYOffset = Player(MyIndex).yOffset
                    End If
                ElseIf Player(MyIndex).y + 9 > MAX_MAPY + 1 Then
                    NewY = (Player(MyIndex).y - (MAX_MAPY - 14)) * PIC_Y + Player(MyIndex).yOffset
                    NewYOffset = 0
                    NewPlayerY = MAX_MAPY - 14
                    If Player(MyIndex).y = MAX_MAPY - 7 And Player(MyIndex).Dir = DIR_DOWN Then
                        NewPlayerY = Player(MyIndex).y - 7
                        NewY = 7 * PIC_Y
                        NewYOffset = Player(MyIndex).yOffset
                    End If
                End If

                If Player(MyIndex).X - 10 < 1 Then
                    NewX = Player(MyIndex).X * PIC_X + Player(MyIndex).xOffset
                    NewXOffset = 0
                    NewPlayerX = 0
                    If Player(MyIndex).X = 10 And Player(MyIndex).Dir = DIR_LEFT Then
                        NewPlayerX = Player(MyIndex).X - 10
                        NewX = 10 * PIC_X
                        NewXOffset = Player(MyIndex).xOffset
                    End If
                ElseIf Player(MyIndex).X + 11 > MAX_MAPX + 1 Then
                    NewX = (Player(MyIndex).X - (MAX_MAPX - 19)) * PIC_X + Player(MyIndex).xOffset
                    NewXOffset = 0
                    NewPlayerX = MAX_MAPX - 19
                    If Player(MyIndex).X = MAX_MAPX - 9 And Player(MyIndex).Dir = DIR_RIGHT Then
                        NewPlayerX = Player(MyIndex).X - 10
                        NewX = 10 * PIC_X
                        NewXOffset = Player(MyIndex).xOffset
                    End If
                End If

                ScreenX = GetScreenLeft(MyIndex)
                ScreenY = GetScreenTop(MyIndex)
                ScreenX2 = GetScreenRight(MyIndex)
                ScreenY2 = GetScreenBottom(MyIndex)

                If ScreenX < 0 Then
                    ScreenX = 0
                    ScreenX2 = 20
                ElseIf ScreenX2 > MAX_MAPX Then
                    ScreenX2 = MAX_MAPX
                    ScreenX = MAX_MAPX - 20
                End If
           
                If ScreenY < 0 Then
                    ScreenY = 0
                    ScreenY2 = 15
                ElseIf ScreenY2 > MAX_MAPY Then
                    ScreenY2 = MAX_MAPY
                    ScreenY = MAX_MAPY - 15
                End If   
      

Altere por:

Código:
         
                NewX = 12
                NewY = 9

                NewPlayerY = Player(MyIndex).y - NewY
                NewPlayerX = Player(MyIndex).x - NewX

                NewX = NewX * PIC_X
                NewY = NewY * PIC_Y

                NewXOffset = Player(MyIndex).xOffset
                NewYOffset = Player(MyIndex).yOffset

                If Player(MyIndex).y - 9 < 1 Then
                    NewY = Player(MyIndex).y * PIC_Y + Player(MyIndex).yOffset
                    NewYOffset = 0
                    NewPlayerY = 0
                    If Player(MyIndex).y = 9 And Player(MyIndex).Dir = DIR_UP Then
                        NewPlayerY = Player(MyIndex).y - 9
                        NewY = 9 * PIC_Y
                        NewYOffset = Player(MyIndex).yOffset
                    End If
                ElseIf Player(MyIndex).y + 11 > MAX_MAPY + 1 Then
                    NewY = (Player(MyIndex).y - (MAX_MAPY - 18)) * PIC_Y + Player(MyIndex).yOffset
                    NewYOffset = 0
                    NewPlayerY = MAX_MAPY - 18
                    If Player(MyIndex).y = MAX_MAPY - 9 And Player(MyIndex).Dir = DIR_DOWN Then
                        NewPlayerY = Player(MyIndex).y - 9
                        NewY = 9 * PIC_Y
                        NewYOffset = Player(MyIndex).yOffset
                    End If
                End If

                If Player(MyIndex).x - 12 < 1 Then
                    NewX = Player(MyIndex).x * PIC_X + Player(MyIndex).xOffset
                    NewXOffset = 0
                    NewPlayerX = 0
                    If Player(MyIndex).x = 12 And Player(MyIndex).Dir = DIR_LEFT Then
                        NewPlayerX = Player(MyIndex).x - 12
                        NewX = 12 * PIC_X
                        NewXOffset = Player(MyIndex).xOffset
                    End If
                ElseIf Player(MyIndex).x + 14 > MAX_MAPX + 1 Then
                    NewX = (Player(MyIndex).x - (MAX_MAPX - 24)) * PIC_X + Player(MyIndex).xOffset
                    NewXOffset = 0
                    NewPlayerX = MAX_MAPX - 24
                    If Player(MyIndex).x = MAX_MAPX - 12 And Player(MyIndex).Dir = DIR_RIGHT Then
                        NewPlayerX = Player(MyIndex).x - 12
                        NewX = 12 * PIC_X
                        NewXOffset = Player(MyIndex).xOffset
                    End If
                End If

                ScreenX = GetScreenLeft(MyIndex)
                ScreenY = GetScreenTop(MyIndex)
                ScreenX2 = GetScreenRight(MyIndex)
                ScreenY2 = GetScreenBottom(MyIndex)

                If ScreenX < 0 Then
                    ScreenX = 0
                    ScreenX2 = 25
                ElseIf ScreenX2 > MAX_MAPX Then
                    ScreenX2 = MAX_MAPX
                    ScreenX = MAX_MAPX - 25
                End If
         
                If ScreenY < 0 Then
                    ScreenY = 0
                    ScreenY2 = 19
                ElseIf ScreenY2 > MAX_MAPY Then
                    ScreenY2 = MAX_MAPY
                    ScreenY = MAX_MAPY - 19
                End If   
      

3- no ModDirectX procure por:

Código:
         
Public Function GetScreenLeft(ByVal Index As Long) As Long
    GetScreenLeft = GetPlayerX(Index) - 11
End Function

Public Function GetScreenTop(ByVal Index As Long) As Long
    GetScreenTop = GetPlayerY(Index) - 8
End Function

Public Function GetScreenRight(ByVal Index As Long) As Long
    GetScreenRight = GetPlayerX(Index) + 10
End Function

Public Function GetScreenBottom(ByVal Index As Long) As Long
    GetScreenBottom = GetPlayerY(Index) + 8
End Function   
      

Altere por:

Código:
         
Public Function GetScreenLeft(ByVal Index As Long) As Long
    GetScreenLeft = GetPlayerX(Index) - 12
End Function

Public Function GetScreenTop(ByVal Index As Long) As Long
    GetScreenTop = GetPlayerY(Index) - 9
End Function

Public Function GetScreenRight(ByVal Index As Long) As Long
    GetScreenRight = GetPlayerX(Index) + 12
End Function

Public Function GetScreenBottom(ByVal Index As Long) As Long
    GetScreenBottom = GetPlayerY(Index) + 9
End Function

Nesse tutorial a tela fica no tamanho 800x608 mas Você pode modificar o "-#" e "+#" ao seu gosto, alterando o tamanha da tela.
Teste antes de modificar algo no scprit.


[EE][ES]Aumentando a tela do map no VB (picscreen) Forumzeon
Ainda está lendo o banner? Não espere, entra la!
Noah
Noah
Novato
Novato

Mensagens : 24

http://www.noaa.com.br/zeon

Ir para o topo Ir para baixo

[EE][ES]Aumentando a tela do map no VB (picscreen) Empty Re: [EE][ES]Aumentando a tela do map no VB (picscreen)

Mensagem por DshFox Sáb 02 Jan 2010, 18:36

nice Very Happy
DshFox
DshFox
Membro Vitalicio
Membro Vitalicio

Mensagens : 614

Ir para o topo Ir para baixo

[EE][ES]Aumentando a tela do map no VB (picscreen) Empty Re: [EE][ES]Aumentando a tela do map no VB (picscreen)

Mensagem por Karlos Dom 24 Jan 2010, 14:49

cara te devo a minha vida.
Karlos
Karlos
Membro Veterano
Membro Veterano

Mensagens : 2851

http://www.talack.com.br

Ir para o topo Ir para baixo

[EE][ES]Aumentando a tela do map no VB (picscreen) Empty Re: [EE][ES]Aumentando a tela do map no VB (picscreen)

Mensagem por klinton-1234 Dom 24 Jan 2010, 17:00

que pena que isso nao funciona no chaos engine
avatar
klinton-1234
Membro
Membro

Mensagens : 220

Ir para o topo Ir para baixo

[EE][ES]Aumentando a tela do map no VB (picscreen) Empty Re: [EE][ES]Aumentando a tela do map no VB (picscreen)

Mensagem por Lucas Lôpo Ter 26 Jan 2010, 18:12

Parabens Noah^^
Lucas Lôpo
Lucas Lôpo
Membro Veterano
Membro Veterano

Mensagens : 833

Ir para o topo Ir para baixo

[EE][ES]Aumentando a tela do map no VB (picscreen) Empty Re: [EE][ES]Aumentando a tela do map no VB (picscreen)

Mensagem por Ramonxxd Dom 28 Mar 2010, 22:08

tem Como Criar 1 Pra Elysium ?
Ramonxxd
Ramonxxd
Membro Sênior
Membro Sênior

Mensagens : 334

http://dbzfirewave.webnode.com.br

Ir para o topo Ir para baixo

[EE][ES]Aumentando a tela do map no VB (picscreen) Empty Re: [EE][ES]Aumentando a tela do map no VB (picscreen)

Mensagem por Lucas Lôpo Dom 28 Mar 2010, 22:45

Tem sim a mesma coisa praticamente '-'
Lucas Lôpo
Lucas Lôpo
Membro Veterano
Membro Veterano

Mensagens : 833

Ir para o topo Ir para baixo

[EE][ES]Aumentando a tela do map no VB (picscreen) Empty Re: [EE][ES]Aumentando a tela do map no VB (picscreen)

Mensagem por Ramonxxd Seg 29 Mar 2010, 14:31

aguem pode criar 1 pra elysium eu n achei 1 primeiro codigo ae
xD
Ramonxxd
Ramonxxd
Membro Sênior
Membro Sênior

Mensagens : 334

http://dbzfirewave.webnode.com.br

Ir para o topo Ir para baixo

[EE][ES]Aumentando a tela do map no VB (picscreen) Empty Re: [EE][ES]Aumentando a tela do map no VB (picscreen)

Mensagem por Gustavo santos Diniz Seg 29 Mar 2010, 22:06

Não é a mesma coisa praticamente...
Gustavo santos Diniz
Gustavo santos Diniz
Membro
Membro

Mensagens : 145

Ir para o topo Ir para baixo

[EE][ES]Aumentando a tela do map no VB (picscreen) Empty Re: [EE][ES]Aumentando a tela do map no VB (picscreen)

Mensagem por St4rk Ter 30 Mar 2010, 11:39

Boa Noha ^^ Parabens
St4rk
St4rk
Membro de Honra
Membro de Honra

Mensagens : 2251

http://mylittledev.wordpress.com

Ir para o topo Ir para baixo

[EE][ES]Aumentando a tela do map no VB (picscreen) Empty Re: [EE][ES]Aumentando a tela do map no VB (picscreen)

Mensagem por maykel Sáb 28 Ago 2010, 20:53

cria ae pra elysium plx
maykel
maykel
Membro
Membro

Mensagens : 133

Ir para o topo Ir para baixo

[EE][ES]Aumentando a tela do map no VB (picscreen) Empty e o full screen

Mensagem por Raicon Sex 08 Out 2010, 19:30

como seria um full screen 1024x768?
Raicon
Raicon
Banido
Banido

Mensagens : 365

Ir para o topo Ir para baixo

[EE][ES]Aumentando a tela do map no VB (picscreen) Empty Re: [EE][ES]Aumentando a tela do map no VB (picscreen)

Mensagem por Rio Absolut Sex 08 Out 2010, 21:54

Alguem ja testo ??
Rio Absolut
Rio Absolut
Membro Vitalicio
Membro Vitalicio

Mensagens : 655

Ir para o topo Ir para baixo

[EE][ES]Aumentando a tela do map no VB (picscreen) Empty Re: [EE][ES]Aumentando a tela do map no VB (picscreen)

Mensagem por Raicon Ter 02 Nov 2010, 06:51

Sim, muito bom! +1 credito
Raicon
Raicon
Banido
Banido

Mensagens : 365

Ir para o topo Ir para baixo

[EE][ES]Aumentando a tela do map no VB (picscreen) Empty Re: [EE][ES]Aumentando a tela do map no VB (picscreen)

Mensagem por esmilofay Dom 19 Dez 2010, 22:33

pra Elysium de Boa
esmilofay
esmilofay
Novato
Novato

Mensagens : 37

Ir para o topo Ir para baixo

[EE][ES]Aumentando a tela do map no VB (picscreen) Empty Re: [EE][ES]Aumentando a tela do map no VB (picscreen)

Mensagem por Darkpeople196 Seg 20 Dez 2010, 01:08

aff depois que eu aprendi com uma dica do tiu skynet, tinha este tuto --'
obs: preguiça de procurar pelos topics
Darkpeople196
Darkpeople196
Membro Vitalicio
Membro Vitalicio

Mensagens : 612

Ir para o topo Ir para baixo

[EE][ES]Aumentando a tela do map no VB (picscreen) Empty Re: [EE][ES]Aumentando a tela do map no VB (picscreen)

Mensagem por Conteúdo patrocinado


Conteúdo patrocinado


Ir para o topo Ir para baixo

Ir para o topo

- Tópicos semelhantes

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