frmWarp

[Dr. Spoon]

Here's an easy fix.

In the client, go to the code.

Search for where it says...

Code:

Sub WarpTo(ByVal MapNum As Long)
Dim Packet As String
    
    Packet = "WARPTO" & SEP_CHAR & MapNum & SEP_CHAR & END_CHAR
    Call SendData(Packet)
End Sub

Add this one

Code:

Sub WarpTo2(ByVal MapNum As Long, x As Long, y As Long)
Dim Packet As String
    
    Packet = "WARPTO2" & SEP_CHAR & MapNum & SEP_CHAR & x & SEP_CHAR & y & SEP_CHAR & END_CHAR
    Call SendData(Packet)
End Sub

that bit you still need to do