Right Click Menu

[addy]

Ive had a code for a right click menu for awhile now. its pretty easy to make and all just i wanted to give to you since idt ill be programming for awhile now. So here it is lol

In frmMirage make a picturebox called "picRightClick". Set its visible to false.

In ModGlobals add this line anywhere:

Code:

Public RclickIndex as Long

.

In frmMirage's code replace the code "picScreen_MouseDown" with this:

Code:

Dim i As Long

    If Button = 2 Then
        For i = 1 To MAX_PLAYERS
            If GetPlayerMap(i) = GetPlayerMap(MyIndex) Then
                If GetPlayerX(i) * 32 = x Or x + 32 Then
                    If GetPlayerY(i) * 32 = y Or y + 32 Then
                        frmMirage.picRightClick.Visible = True
                    End If
                End If
            End If
        Next i
    End If
    
    If Button = 1 Then
        Call EditorMouseDown(Button, Shift, x, y)
        Call PlayerSearch(Button, Shift, x, y)
    End If

There it is. I hope it works for all of you