Игра "Змейка" на Delphi

[xrob]

Перебор сегментов змейки сделать в цикле - и проверять, куда попало случайное число, при попадании в змейку заново генерировать и проверять в цикле

при такой логике есть шанс, хоть и ничтожно малый, что подходящая клетка будет искаться вечно. я бы не рискнул делать так в своей проге.

по-моему, наилучшее решение - это взять множество ВСЕХ клеток,
исключить из него множество клеток, в которых находится змейка,
и нужную клетку выбирать из оставшихся клеток.

[Slin]

xrob, Вы правы на счет первого варианта, поэтому я и реализовал второй.

[phomm]

Забыл отписать, позавчера сел порефакторить в педагогических целях код, вот выкладываю. Там, кстати, реализован этот второй способ - без перебора "пока не попал в пустую клетку", а именно взятием случайного числа(номера клетки в наборе) из набора гарантированно пустых клеток.

Что хочу сказать. Для начала - хорошо, что пошли правильным путём и начали с малого - со змейки, причём на готовых элементах - шейпах, имейджах и т.п.
Я советую продолжать дальше и поизучать "важные" темы из этого раздела (раздела игр) - там очень много учебной информации - как раз по написанию игровых составляющих на дельфи.
В первую очередь, хочу посоветовать направить усилия на кодирование графики "руками" - т.е. без шейпов, имейджей и т.п. - хотя бы чисто на канвасе. Можно более универсально работать над вводом - от мыши и клавиатуры. Начать работать с файлами - для динамической подгрузки контента (а то, что в имейджах лежит - оно прикомпилируется в экзешник и менять малореально без той же дельфи и тем более исходных кодов) и выгрузки игровых данных типа сейвов, карт, таблиц рекордов.
Ещё надо направить усилия на большее структурирование и алгоритмизирование кода - выделение структур, подпрограмм, массивов, методов обработки всего этого, возможно подступиться к динамическому программированию(на указателях). Потом можно перейти к классам (ооп) и /или движкам и сложным системам.
В этих вопросах, в приницпе, можете всецело рассчитывать на мою помощь и консультацию.

[Slin]

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

без шейпов, имейджей и т.п.

Именно этим я сейчас и занят, думал, что это тяжело, без шейпов-то, имейджов, а нет, нужно было просто освоиться.
Начал писать "стратегию" накидал имейджов штук 10-это были только кнопки меню, сразу понял, что так дело не пойдет, поудалял все, начал писасть заново на канве - совсем другое дело, смотришь, и глаз радуется, на форме пустота, только один таймер красуется. (Просто у меня через Paint, который у формы, не получилось выводить изображение ). А вообще, канва- это вещь! Пока что вопросов у меня не возникло. Хотя есть один: как указать, какой цвет будет прозрачным у битмапа? Если писать так:

all_tex[i].Transparent:= true

То получается, что цвет задает - левый нижний пиксель?
А как левый верхний пиксель? Пробовал так - не получилось:

all_tex[i].TransparentColor:=all_tex[i].Canvas.Pixels[0,0];

Не подскажете?

[EridorBlade]

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

как указать, какой цвет будет прозрачным у битмапа?

<...>
var
   AnimPers:array[1..8,1..1200] of Tbitmap;
<...>
    AnimPers[DirectionCount,VariationCount].TransparentColor:= ClBlack;
    AnimPers[DirectionCount,VariationCount].Transparent:=true
<...>

Для выводимых спрайтов прозрачность использую, на данный момент, в таком виде. Все спрайты имеют только оттенки черного, а черный цвет используется как фон для спрайта.

[EridorBlade]

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

Не подскажете?

У вас ошибки где-то в другом месте. Я тут по быстрому наваял используя ваш метод и у меня все заработало. Эта команда действительно берет левый верхний пиксель.
1prj.zip
Там по кнопкам посмотрите. Один вариант простая отрисовка. Другой вариант с использованием прозрачности по левому верхнему пикселю.
Чтобы было понятно, я создал массив, похожий на ваш. Если что-то непонятно, то задавайте вопросы. Тупо скопированный код пользы не принесет.

Единственный момент, что в моем коде небольшой недочет. Если нажимать в первую очередь на кнопку DrawWithTransparent, то из-за того что Transparent:=True;, вторая кнопка Draw нарисует тоже с прозрачностью. Поэтому для наглядности сначала нажимайте кнопку Draw, потом DrawWithTransparent. Но главный ответ на вопросы в коде

[Slin]

EridorBlade, спасибо за содействие. Оказалось, это из-за меня прозрачность не работала!
После этого:

  all_tex[1].TransparentColor:=all_tex[1].Canvas.Pixels[0,0];

Я не писал это:

all_tex[1].Transparent:=True;

Все, спасибо, вопрос решен!

[Slin]

Доброе время суток, дорогие форумчане!
У меня опять возник небольшой вопрос, как можно реализовать чтение из txt файла? Т.е. имеется поле 16*16, при размещении на него какого-либо объекта, n-ной ячейке в текстовом документе присваивается номер объекта, пустые ячейки соответственно заполняются 0, записать - записал, а прочитать и подгрузить из файла не могу, в голову мысли не лезут. Вот пример текстового файла:

1 0 0 0 0 21 0 0 1 0 0 0 0 27 0 0 
0 0 0 0 21 0 0 0 0 0 0 0 0 0 0 0 
0 0 27 0 0 21 0 0 27 0 0 0 0 0 0 0 
0 0 0 0 0 0 0 0 0 0 0 0 27 0 0 0 
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 
0 0 0 0 0 26 0 0 0 0 0 0 0 0 0 0 
0 0 0 0 0 0 0 0 0 0 0 0 27 0 21 0 
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 
27 0 0 0 26 0 0 0 0 0 0 0 0 0 0 0 
0 0 0 0 0 0 0 0 0 14 14 14 14 14 14 14 
0 27 0 0 0 26 0 0 0 14 14 14 14 14 14 14 
0 0 0 0 21 0 0 0 0 0 0 27 0 0 0 0 
0 0 0 0 0 21 0 0 0 0 0 0 0 0 0 0 
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 
0 0 0 0 0 0 0 0 0 0 0 21 0 0 0 0 
1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0

Помогите, пожалуйста!

[phomm]

В виде байтов не проще писать и читать будет ? или надо пока что без редактора, исправлять всё в текстовом виде ?
Если именно текстовый, то можно читать в строковую переменную посимвольно, а когда найден пробел/конец строки, преобразовывать полученное в число и записывать в массив для карты в памяти программы.

[Beermonza]

Slin, текстовые редакторы очень часто не показывают "левые" символы, которые могут мешать чтению из файла, а если встретится технический символ "конца файла" данные обрежутся на пол пути.

Следует использовать тип File Of Byte. Просматривать данные можно в Hex Editor. Вначале лучше изучить работу потоков, ...потом, создав MemoryStream просто заливаешь в него файл, и работаешь с ним в потоке, считывая по одному байту. Можно так же перегнать из потока в динамический массив и гонять в произвольном режиме доступа.

Показать пример, или не нужно сложностей? ...это эффективнее.