Thread Rating:
  • 0 Vote(s) - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Right Click Menu
#1
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
Reply


Messages In This Thread

Forum Jump:


Users browsing this thread: 1 Guest(s)