Show Names on Hover - Printable Version

Show Names on Hover - Printable Version

+- Mirage Source (https://mirage-engine.uk/forums)
+-- Forum: Mirage Source (Nostalgia) (https://mirage-engine.uk/forums/forumdisplay.php?fid=61)
+--- Forum: Archive (2006-2011) (https://mirage-engine.uk/forums/forumdisplay.php?fid=18)
+---- Forum: Resources (https://mirage-engine.uk/forums/forumdisplay.php?fid=49)
+---- Thread: Show Names on Hover (/showthread.php?tid=39)

Show Names on Hover - Tutorial Bot - 01-06-2006

Author: Dark Dragon
Difficulty: 1/5

By adding this tutorial, player names will not be displayed unless you hover your mouse over them.

In frmMirage, change Private Sub picScreen_MouseMove to:

Code:
Private Sub picScreen_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)

    Call EditorMouseDown(Button, Shift, x, y)

        CurX = Int(x / PIC_X)

        CurY = Int(y / PIC_Y)

End Sub

This change sets the CurX and CurY values (which will be added in a little bit) to the tile you are hovering over.

In modGameLogic, under:

Code:
' Game fps

Public GameFPS As Long

Add:

Code:
'Loc of pointer

Public CurX As Integer

Public CurY As Integer

This sets the CurX and CurY variables.

Now, in Sub Gameloop, change:

Code:
' Lock the backbuffer so we can draw text and names

        TexthDC = DD_BackBuffer.GetDC

        For I = 1 To MAX_PLAYERS

              If IsPlaying(I) And GetPlayerMap(I) = GetPlayerMap(MyIndex) Then

                  Call BltPlayerName(I)

              End If

        Next I

To:

Code:
' Lock the backbuffer so we can draw text and names

        TexthDC = DD_BackBuffer.GetDC

        For I = 1 To MAX_PLAYERS

              If IsPlaying(I) And GetPlayerMap(I) = GetPlayerMap(MyIndex) Then

                  If Player(I).x = CurX And Player(I).y = CurY Then

                      Call BltPlayerName(I)

                  End If

              End If

        Next I

All done!