Universo Games
Ola , Convidado

Nome ao passar o mouse Logo1110

Você ainda não e cadastrado então cadastre-se e veja todas as atualizações no Mundo RPG!!!
Universo Games
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.
Universo Games

Suporte e Desenvolvimento só no Universo Games
 
InícioInício  PortalPortal  EventosEventos  PublicaçõesPublicações  Últimas imagensÚltimas imagens  RegistarRegistar  EntrarEntrar  
Ola Convidado, Seja Bem vindo a equipe lhe deseja boa sorte no seu projeto!

 

 Nome ao passar o mouse

Ir para baixo 
AutorMensagem
Convidado
Convidado
Anonymous



Nome ao passar o mouse Empty
MensagemAssunto: Nome ao passar o mouse   Nome ao passar o mouse EmptySáb 25 Jun 2011, 11:40

Começando

Cliente


Procure por:

Código:
            ' Draw Player Names
            If Val(GetVar(App.Path & "\config.ini", "CONFIG", "PlayerName")) = 1 Then
                For i = 1 To MAX_PLAYERS
                    If IsPlaying(i) And GetPlayerMap(i) = GetPlayerMap(MyIndex) Then
                        Call BltPlayerGuildName(i)
                        Call BltPlayerName(i)
                        If Player(i).Pet.Alive = YES And Player(i).Pet.Map = GetPlayerMap(MyIndex) Then
                            Call BltPetName(i)
                        End If
                    End If
                Next i
            End If

Mude para:

Código:
            ' Draw Player Names
            If Val(GetVar(App.Path & "\config.ini", "CONFIG", "PlayerName")) = 1 Then
                For I = 1 To MAX_PLAYERS
                    If IsPlaying(I) And GetPlayerMap(I) = GetPlayerMap(MyIndex) Then
                        If MouseX = GetPlayerX(I) And MouseY = GetPlayerY(I) Then
                            Call BltPlayerGuildName(I)
                            Call BltPlayerName(I)
                        End If
                       
                        If Player(I).Pet.Alive = YES And Player(I).Pet.Map = GetPlayerMap(MyIndex) Then
                            Call BltPetName(I)
                        End If
                    End If
                Next I
            End If

Procure por:

Código:
Private Sub picScreen_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
    If (Button = 1 Or Button = 2) And InEditor = True Then
        Call EditorMouseDown(Button, Shift, (x + (NewPlayerX * PIC_X)), (y + (NewPlayerY * PIC_Y)))
    End If
   
    If InEditor Then
        MouseX = Int(x / PIC_X) * PIC_X
        MouseY = Int(y / PIC_Y) * PIC_Y
    End If
   
    frmMapEditor.Caption = "Map Editor - " & "X: " & Int((x + (NewPlayerX * PIC_X)) / PIC_X) & " Y: " & Int((y + (NewPlayerY * PIC_Y)) / PIC_Y)
End Sub

Mude para:

Código:
Private Sub picScreen_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
    MouseX = Int((x + (NewPlayerX * PIC_X)) / PIC_X)
    MouseY = Int((y + (NewPlayerY * PIC_Y)) / PIC_Y)
   
    If (Button = 1 Or Button = 2) And InEditor = True Then
        Call EditorMouseDown(Button, Shift, (x + (NewPlayerX * PIC_X)), (y + (NewPlayerY * PIC_Y)))
    End If
   
    If InEditor Then
        MouseX = Int(x / PIC_X) * PIC_X
        MouseY = Int(y / PIC_Y) * PIC_Y
    End If
   
    frmMapEditor.Caption = "Map Editor - " & "X: " & Int((x + (NewPlayerX * PIC_X)) / PIC_X) & " Y: " & Int((y + (NewPlayerY * PIC_Y)) / PIC_Y)
End Sub

Creditos:

Lenon
Prodev
Ir para o topo Ir para baixo
 
Nome ao passar o mouse
Ir para o topo 
Página 1 de 1
 Tópicos semelhantes
-
» Passar mensagem de 30 em 30 segundos
» andar com o mouse
» Adicionando pontos automaticamente ao passar de level
»  Andando com o Mouse
» Aluem pode me passar uma engine com tudo menos gui e mapas por favor ajuda aew

Permissões neste sub-fórumNão podes responder a tópicos
Universo Games :: Criação de Jogos :: Elysium Diamond :: Tutoriais-
Ir para: