спрайты на Image-ах - Pac Man код в теме Delphi7 / как сделать игровое поле так, чтобы не столкнуться с преградами. Делфи - Общие вопросы Delphi - Страница 2

tonya3 · 05.05.2021, 08:12

Arigato, Огромное Вам спасибо)

tonya3 · 05.05.2021, 08:13

Alar, Спасибо)

Kronos913 · 05.05.2021, 19:48

Как-то давно делал такую игру

Так у меня все стенки НЕ являются изображениями. Создал массив TLabel, и когда строится трасса - границы являются TLabel с фиксированными размерами толщиной 1 пиксель

И 3 трассы в игре

NetSpace · 05.05.2021, 20:55

рисуй лабиринт массивом. 0 - нет преграды. 1 - есть преграда.
вот тебе пустое поле 10x7:

Код:

pole: array[1..7,1..10]of Byte=(
(11111111111),
(1000000001)
(1000000001)
(1000000001)
(1000000001)
(1000000001)
(11111111111));

а потом где-то в программе проверяешь условие:

Код:

твоя позиция X,Y;
if pole[Y,X+1]=0 then X:=X+1;//идём вправо
if pole[Y,X+1]=1 then X:=X;//стоим на месте

tonya3 · 06.05.2021, 07:14

NetSpace, То есть мне нужно под свои размеры написать это? (0 и 1)
Просто я вообще не понимаю.

tonya3 · 06.05.2021, 08:16

NetSpace, Просто я написала 0 и 1 в текстовом документе, но как это вставить в саму программу я не знаю.

tonya3 · 06.05.2021, 08:44

Kronos913, Выглядит сложно..хэх

NetSpace · 11.05.2021, 07:58

глянь тут на игрушку. там как раз тот принцип, про который я говорил.
https://www.programmersforum.ru/showthread.php?t=338740

05.05.2021, 20:55	#14
NetSpace Участник клуба Регистрация: 03.06.2009 Сообщений: 1,814	рисуй лабиринт массивом. 0 - нет преграды. 1 - есть преграда. вот тебе пустое поле 10x7: Код: `pole: array[1..7,1..10]of Byte=( (11111111111), (1000000001) (1000000001) (1000000001) (1000000001) (1000000001) (11111111111));` а потом где-то в программе проверяешь условие: Код: `твоя позиция X,Y; if pole[Y,X+1]=0 then X:=X+1;//идём вправо if pole[Y,X+1]=1 then X:=X;//стоим на месте` Программирование - это единственный способ заставить компьютер делать то, что тебе хочется, а не то, что приходится.

11.05.2021, 07:58	#18
NetSpace Участник клуба Регистрация: 03.06.2009 Сообщений: 1,814	глянь тут на игрушку. там как раз тот принцип, про который я говорил. https://www.programmersforum.ru/showthread.php?t=338740 Программирование - это единственный способ заставить компьютер делать то, что тебе хочется, а не то, что приходится.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Помогите, пожалуйста. Код заменяет русские буквы на английские, как сделать, чтобы и наоборот так же делал?	КотикБегемотик	C# (си шарп)	1	24.02.2021 12:20
Вызов процедуры в массиве. делфи. Как правильно вызвать процедуру и сделать так, чтобы результаты вписывались в memo1.Lines.	vallera	Помощь студентам	1	30.05.2017 22:45
как сделать так чтобы при нажатии на ComboBox выводилось поле из таблицы DBGrid?	jawa250t	БД в Delphi	4	21.04.2012 21:57
мой фотошоп - Как сделать так чтобы image принимал размеры той картинки которую я загружаю?	bill	Мультимедиа в Delphi	9	26.05.2007 23:17

05.05.2021, 08:12	#11
tonya3 Регистрация: 02.05.2021 Сообщений: 8	Arigato, Огромное Вам спасибо)

05.05.2021, 08:13	#12
tonya3 Регистрация: 02.05.2021 Сообщений: 8	Alar, Спасибо)

06.05.2021, 07:14	#15
tonya3 Регистрация: 02.05.2021 Сообщений: 8	NetSpace, То есть мне нужно под свои размеры написать это? (0 и 1) Просто я вообще не понимаю.

06.05.2021, 08:16	#16
tonya3 Регистрация: 02.05.2021 Сообщений: 8	NetSpace, Просто я написала 0 и 1 в текстовом документе, но как это вставить в саму программу я не знаю.

06.05.2021, 08:44	#17
tonya3 Регистрация: 02.05.2021 Сообщений: 8	Kronos913, Выглядит сложно..хэх