Логотип игрового форума RF-Cheats.ru    
Новости онлайн игр Правила форума Чёрный рынок Реклама и привилегии Гаранты Арбитраж

Регистрация Бан-лист Сообщество ПОПУЛЯРНОЕ
Вернуться   RF-Cheats.ru - форум читеров и ботоводов > > >

Установка и поддержка RFO сервера

: Обсуждение RFO серверов, их установки, конфигурации, устранения ошибок, а также поддержке. Уголок Администратора.
Читы и обход фроста для RF Online без хайдаБоты и читы для Perfect World бесплатно без хайдаМоды и читы для World of Tanks (WoT) бесплатно без хайдаМоды и читы для Armored Warfare бесплатно без хайдаБоты и читы для DOTA 2 бесплатно без хайдаБоты и читы для Black Desert Online бесплатно без хайдаЧиты на ArcheAge бесплатно без хайдаЧиты для Warface бесплатно без хайдаВзлом ВКонтакте и ОдноклассниковСписок разделов со всеми играмиЧиты для онлайн игр




Ответ
 
Опции темы
Старый 01.04.2025, 17:40   #1
HiranoKohta
Нуб
Аватар для HiranoKohta
OFFLINE
Регистрация: 23.05.2024
Сообщений: 0
Благодарностей:
4 всего
Репутация: 13

Перевод координат


Как перевести мировые координаты, те что показывают по Ctrl+F5 в координаты карты клиента?
 
Ответить с цитированием


Старый 01.04.2025, 19:46   #2
DungeonKeeper
Старичок форума
Аватар для DungeonKeeper
OFFLINE
Регистрация: 01.08.2008
Возраст: 45
Сообщений: 639
Благодарностей:
1,866 всего
Мнения: + 1587
Репутация: 5599

Который миникарта? Чисто методом профессионального тыка.
Без визуального редактор лезть туда дело гиблое.

lolz i dont remember i ever said pidaras in normal chat
 
Ответить с цитированием
Старый 09.04.2025, 14:21   #3
HiranoKohta
Нуб
Аватар для HiranoKohta
OFFLINE
Регистрация: 23.05.2024
Сообщений: 0
Благодарностей:
4 всего
Репутация: 13

Вопрос решил методом научного тыка:

Код VB.NET
Код:
    Private Maps() As Map

    Private Structure Map
        Public MapCode As String
        Public MapName As String
        Public Start As Point
        Public Scale As PointF
    End Structure

    Private Sub MapsInit()
        MapsAdd("NeutralA", "ГШ Акретов", -14969, 15581, 294.35, 294.6133)
        MapsAdd("NeutralAS1", "Застава 213", -9868, 10164, 205.4, 205.4875)
        MapsAdd("NeutralAS2", "Застава 117", -12180, 11986, 252.5625, 252.6375)
        MapsAdd("NeutralB", "ГШ Беллато", -10790, 11633, 226.725, 226.4125)
        MapsAdd("NeutralBS1", "Солус", -13151, 12204, 257.2875, 257.925)
        MapsAdd("NeutralBS2", "Анакаде", -9977, 9177, 189.4625, 189.425)
        MapsAdd("NeutralC", "ГШ Кор", -12112, 13038, 242.9625, 242.7625)
        MapsAdd("NeutralCS1", "Харам", -16872, 12425, 309.0125, 308.625)
        MapsAdd("NeutralCS2", "Нумерус", -11642, 18115, 248.75, 248.1111)
        MapsAdd("Resources", "Краговы Шахты", -15610, 14739, 255.7125, 255.75)
        MapsAdd("Sette", "Сеттова Пустыня", -6312, 6437, 131.075, 131.5125)
        MapsAdd("Platform01", "Этер", -12520, 13315, 263.575, 263.3875)
        MapsAdd("Medicallab", "Лаборатория Картела (1)", -9813, 4204, 111.6875, 65.3875)
        MapsAdd("Medicallab2", "Лаборатория Картела (2)", -9813, 4204, 111.6875, 65.3875)
        MapsAdd("Elan", "Элан", -8106, 7096, 161.6875, 161.675)
        MapsAdd("Cauldron01", "Вулкан Котёл", -5604, 6554, 118.5375, 118.375)
        MapsAdd("Exile_Land", "Земли изгнанников", -10149, 12150, 199.9875, 200.0127)
        MapsAdd("Mountain_Beast", "Горы Чудовищ", -10150, 10149, 200, 199.9875)
        MapsAdd("Cora", "Земля Эльфов")
        LastMapIndex = Maps.Length - 1
    End Sub

    Private Function WorldToMap(ByVal MapCode As String, ByVal WorldPoint As Point) As Point
        Dim X As Single = 1, Y As Single = 1
        For Each Map In Maps
            If Map.MapCode = MapCode Then
                X = Int(4 * (WorldPoint.X - Map.Start.X) / Map.Scale.X)
                Y = Int(4 * (Map.Start.Y - WorldPoint.Y) / Map.Scale.Y)
            End If
        Next
        Return New Point(X, Y)
    End Function

    Private Sub MapsAdd(ByVal MapCode As String, ByVal MapName As String, Optional ByVal X As Integer = 0, Optional ByVal Y As Integer = 0, Optional ByVal SX As Single = 1, Optional ByVal SY As Single = 1)
        Dim I As Integer
        For I = 0 To Maps.Length - 1
            If Maps(I).MapCode = MapCode Then
                Exit For
            End If
        Next I
        If I = Maps.Length Then
            ReDim Preserve Maps(I)
            With Maps(I)
                .MapCode = MapCode
                .MapName = MapName
                .Start.X = X
                .Start.Y = Y
                .Scale.X = SX
                .Scale.Y = SY
            End With
        End If
    End Sub
 
Ответить с цитированием
Сказали спасибо:
Diantro (17.04.2025), DungeonKeeper (09.04.2025)
Старый 17.04.2025, 01:50   #4
HiranoKohta
Нуб
Аватар для HiranoKohta
OFFLINE
Регистрация: 23.05.2024
Сообщений: 0
Благодарностей:
4 всего
Репутация: 13

Цитата:
Сообщение от HiranoKohta Посмотреть сообщение
Код:
                X = Int(4 * (WorldPoint.X - Map.Start.X) / Map.Scale.X)
                Y = Int(4 * (Map.Start.Y - WorldPoint.Y) / Map.Scale.Y)

Немного поясню этот кусок кода, в частности почему там стоит множитель 4.
Просто разрешение миникарт в ресурсах 400х400 пикселей (мне нужно было получить координаты на изображении миникарты), если нужно чтобы координаты выводились в пределах 0 - 100, нужно просто убрать множитель 4.
 
Ответить с цитированием
Сказали спасибо:
DungeonKeeper (18.04.2025)
Ответ



Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
[Не работает] [Program] Конвертор координат undefo Подполье читеров ArcheAge 10 27.05.2015 23:02
[0.9.4] изменение координат автоприцела Вискарик Архив читов и багов World of Tanks 13 10.02.2015 14:21
Изменение координат Автоприцела [0.9.5] xxxdimonxxx Архив читов и багов World of Tanks 3 13.01.2015 17:03
[0.9.2] Изменение координат автоприцела makskl27 Архив читов и багов World of Tanks 14 08.11.2014 18:32
[0.9.3] ИЗМЕНЕНИЕ КООРДИНАТ АВТОПРИЦЕЛА ckfdbr Архив читов и багов World of Tanks 25 08.11.2014 13:41

Мир танков | Проект "Армата" | ArcheAge | Black Desert | РФ Онлайн | Айон | Майнкрафт | Браузерные игры
Элдер скролс | Р2 Онлайн | Реквием Онлайн | ПУБГ | Роял Квест | ГТА Санадреас | Контра | Дота 2
Мир кораблей | Лост Арк | Arma2 DayZ mod | The War Z | Карос: Начало | Tera Online
Читы для всех Онлайн-игр