Mirage Source

 '// Mapper Admin Commands //

            ' Map Editor
            If LCase$(Mid$(MyText, 1, 10)) = "/mapeditor" Then
                frmMirage.Width = 14175
                Call SendRequestEditMap
                MyText = vbNullString
                frmMirage.txtMyChat.Text = vbNullString
                Exit Sub
            End If

            ' Warping
            If LCase$(Mid$(MyText, 1, 5)) = "/warp" Then
                If IsNumeric(Mid$(MyText, 6, Len(MyText) - 5)) Then
                    MyText = Mid$(MyText, 6, Len(MyText) - 5)
                    n = Val(MyText)
                    ' Check to make sure its a valid map #
                    If n > 0 And n <= MAX_MAPS Then
                        Call WarpTo(n)
                    Else
                        Call AddText("Invalid map number.", Red)
                    End If
                Else
                    Call WarpMeTo(Mid$(MyText, 6, Len(MyText) - 5))
                End If
                MyText = vbNullString
                frmMirage.txtMyChat.Text = vbNullString
                Exit Sub
            End If

If shift = true then
warprequest(x, y)
end if