|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
|||
|
|||
создание лабиринта
прошу помощи! задали написать игру. выбрал лабиринт. но проблема в том, что не знаю как это сделать через массив. то есть проставил все значения, где 1 там стена, где 0 - проход. но как сделать так, чтобы персонаж не проходил через стены? и как мне вывести этот лабиринт, чтобы я его смог увидеть и сделать под него графику? пытался через ListView и StringGrid - не выходит…
|
#2
|
|||
|
|||
И чего не выходит?
Просто вывести, что бы посмотреть: Код:
var Labirinth : Array [0..9,0..9] Of Integer; // 10x10 ... var I ,J : Integer; begin For I := 0 To 9 Do For J := 0 To 9 Do StringGrid1.Cells[I,J] := Labirinth[I,J]; end; Но это просто посмотреть. С выводим что бы было красиво - надо выводить (рисовать) либо на TImage, либо на TPaintBox... |
#3
|
|||
|
|||
Готовый вариант работы программы по вашему запросу.
|