Right-click warping

[Braydok]

Code:

Private Sub picScreen_MouseDown(button As Integer, shift As Integer, x As Single, y As Single)
    Call EditorMouseDown(button, shift, x, y)
    Call PlayerSearch(button, shift, x, y)
    If Player(MyIndex).Access >= 4 Then
  If button = 2 Then
    Dim Packet As String
    Packet = "RIGHTWARP" & SEP_CHAR & x & SEP_CHAR & y & END_CHAR
        Call SendData(Packet)
  End If
End If
    
End Sub
Private Sub picScreen_MouseMove(button As Integer, shift As Integer, x As Single, y As Single)
    Call EditorMouseDown(button, shift, x, y)
End Sub

map: 1 X: 274 Y: 215