Игра охотник-жертва: Жертва убегает от охотника, а охотник выбирает кратчайший путь до жертвы

@PhYsicS77 · Регистрация: 14.06.2012

Студворк — интернет-сервис помощи студентам

Есть 2 точки: одна - охотник, другая - жертва. Жертва убегает от охотника, а охотник выбирает кратчайший путь до жертвы. Когда координаты совпадают, игра заканчивается.

PS. Буду очень благодарен, так как эта программа очень нужна, а сам я вообще не шарю.

@oxpannik · 15.06.2012, 00:34

Вот формула которая "сечёт" объект:

Visual Basic
1
2
If Abs(x_Jertva - imgOxotnik.Left - ((Razmer_Oxotnik - Razmer_Jertva) \ 2)) < Radius And _
Abs(y_Jertva - imgOxotnik.Top - ((Razmer_Oxotnik - Razmer_Jertva) \ 2)) < Radius Then Poymano=True

Балуйся с переменными: подставь какие нравятся значения
x как ты понял это расположение по горизонтали у-соответственно по вертикали.
А что касается вычисление расстояния не скажу, мне кажется что там что-то с теоремой Пифагора.

@PhYsicS77 · 15.06.2012, 17:59 **[ТС]**

Спасибо, постараюсь разобраться

@Pro_grammer · 15.06.2012, 18:12

Расстояние между охотником и жертвой определяется так

@oxpannik · 15.06.2012, 18:21

А как ему перемещать охотника по этому кратчайшему пути.

Добавлено через 2 минуты
То есть по гипотенузе

morgann55 · 15.06.2012, 23:33

Через тригонометрию ВСЁ прекрасно делается....
Узнаёшь азимут и намечаешь направление движения Охотника...

@PhYsicS77 · 15.06.2012, 23:43 **[ТС]**

Сообщение от morgann55

Через тригонометрию ВСЁ прекрасно делается....
Узнаёшь азимут и намечаешь направление движения Охотника...

К сожалению, в нашем курсе математики не давали азимутов.

morgann55 · 16.06.2012, 00:13

Сообщение от PhYsicS77

К сожалению, в нашем курсе математики не давали азимутов.

Азимут - угол, относительно направления на север (12 часов по циферблату).... Если надо двигаться на восток (3 часа), то азимут=90, если на юг (6 часов), то 180 градусов....

Если хочешь, то могу поискать в своих архивах код (делал когда-то подобную игрушку).

@PhYsicS77 · 16.06.2012, 00:19 **[ТС]**

Сообщение от morgann55

Азимут - угол, относительно направления на север (12 часов по циферблату).... Если надо двигаться на восток (3 часа), то азимут=90, если на юг (6 часов), то 180 градусов....

Если хочешь, то могу поискать в своих архивах код (делал когда-то подобную игрушку).

Буду очень благодарен.

morgann55 · 16.06.2012, 01:35

Нашёл, но я делал ЕЁ 3 года назад (уже и не помню что к чему). Там у меня куча персонажей и у них ещё по несколько функций - аж самому страшно стало... Сейчас в голове покер и ЕВРО 2012 - с наскока не разобраться (((( Может кто скинет простое решение, подождём... Не скинут - будем разбираться

SoftIce · 16.06.2012, 07:20

Есть такой проект. Красная точка убегает от зелёной или догоняет её.
С клавиатуры управляется зелёная точка, красной точкой управляет комп.

@Pro_grammer · 16.06.2012, 08:08

Если без геометрии, то можно простым сложением к координатам.
Положить на форму в разных углах два Shape ( первый жертва, второй охотник), и кнопку Пуск.
код такой

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
Private Sub Command1_Click()
 
Do While Sqr((Shape1.Left - Shape2.Left) ^ 2 + (Shape1.Top - Shape2.Top) ^ 2) > 1
  If Shape1.Left > Shape2.Left Then Shape2.Left = Shape2.Left + 1
  If Shape1.Left < Shape2.Left Then Shape2.Left = Shape2.Left - 1
  If Shape1.Top > Shape2.Top Then Shape2.Top = Shape2.Top + 1
  If Shape1.Top < Shape2.Top Then Shape2.Top = Shape2.Top - 1
  DoEvents
  Loop
 
End Sub

@PhYsicS77 · 16.06.2012, 09:34 **[ТС]**

Сообщение от SoftIce

Есть такой проект. Красная точка убегает от зелёной или догоняет её.
С клавиатуры управляется зелёная точка, красной точкой управляет комп.

Пытался перенести в VB 6.0, но некоторые вещи не могу понять, такие как прорисовка точек внутри PictureBox. (какой код)

Application.DoEvents вообще не знаю на что заменить.

Добавлено через 19 минут

Visual Basic
1
2
 PictureBox1.CreateGraphics.DrawRectangle(System.Drawing.Pens.Red, ex, ey, 1, 1)
 PictureBox1.CreateGraphics.DrawRectangle(System.Drawing.Pens.Green, px, py, 1, 1)

Вот такое VB 6.0 НЕ воспринимает.

morgann55 · 17.06.2012, 01:40

Вот, посмотри - выбор направления через соотношение гипотенуз и катетов (вроде это оптимально)...

@Pro_grammer · 17.06.2012, 09:57

Сообщение от morgann55

выбор направления через соотношение гипотенуз и катетов

Нет кода в архиве!

morgann55 · 17.06.2012, 13:49

Сообщение от Pro_grammer

Нет кода в архиве!

Как так ??!! Я сохранил проект на РабСтол и там его зарарил... Может надо как-то по другому - подскажите !!
Проверил: разрарил, кликнул мульку проекта, запустился редактор, кликнул папку в браузере проекта - есть код....

@Pro_grammer · 17.06.2012, 14:07

Сообщение от morgann55

разрарил,

Код находиться в файле D:\Disk_D\VB98\Азимут.frm твоего компа. Потому этот проект работает только на твоем компе. Добавь этот файл в архив и будет всем счастье!

morgann55 · 17.06.2012, 14:24

Добавил все файлы (какие-то даже лишние)...

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .

@PhYsicS77 0 / 0 / 0 Регистрация: 14.06.2012 Сообщений: 5

	Игра охотник-жертва: Жертва убегает от охотника, а охотник выбирает кратчайший путь до жертвы 14.06.2012, 23:52. Показов 3039. Ответов 17 Метки нет (Все метки) Есть 2 точки: одна - охотник, другая - жертва. Жертва убегает от охотника, а охотник выбирает кратчайший путь до жертвы. Когда координаты совпадают, игра заканчивается. PS. Буду очень благодарен, так как эта программа очень нужна, а сам я вообще не шарю. 0

@PhYsicS77 0 / 0 / 0 Регистрация: 14.06.2012 Сообщений: 5
	15.06.2012, 17:59 [ТС]
	Спасибо, постараюсь разобраться 0

@Pro_grammer 6807 / 2839 / 527 Регистрация: 24.04.2011 Сообщений: 5,308 Записей в блоге: 10
	15.06.2012, 18:12
	Расстояние между охотником и жертвой определяется так 1

@oxpannik 10 / 10 / 0 Регистрация: 28.05.2012 Сообщений: 69
	15.06.2012, 18:21
	А как ему перемещать охотника по этому кратчайшему пути. Добавлено через 2 минуты То есть по гипотенузе 0

morgann55 1365 / 207 / 37 Регистрация: 09.02.2012 Сообщений: 745
	15.06.2012, 23:33
	Через тригонометрию ВСЁ прекрасно делается.... Узнаёшь азимут и намечаешь направление движения Охотника... 0

morgann55 1365 / 207 / 37 Регистрация: 09.02.2012 Сообщений: 745
	16.06.2012, 01:35
	Нашёл, но я делал ЕЁ 3 года назад (уже и не помню что к чему). Там у меня куча персонажей и у них ещё по несколько функций - аж самому страшно стало... Сейчас в голове покер и ЕВРО 2012 - с наскока не разобраться (((( Может кто скинет простое решение, подождём... Не скинут - будем разбираться 0