Universo Games
Ola , Convidado



Você ainda não e cadastrado então cadastre-se e veja todas as atualizações no mundo rpg!!!
Universo Games

Suporte e Desenvolvimento só no Universo Games

Ola Convidado, Seja Bem vindo a equipe lhe deseja boa sorte no seu projeto!

Você não está conectado. Conecte-se ou registre-se

Nome ao passar o mouse

Ver o tópico anterior Ver o tópico seguinte Ir em baixo  Mensagem [Página 1 de 1]

1Tutorial Nome ao passar o mouse em Sab 25 Jun 2011, 10:40

RicardoxD


Membro
Membro
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

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo  Mensagem [Página 1 de 1]

Permissão deste fórum:
Você não pode responder aos tópicos neste fórum