Рабочий проект. 
Разработка компьютерной игры "Змейка"

Модули и объекты интерфейса пользователя

Пользовательский интерфейс включает в себя следующие объекты:

• — Набор кнопок управления;
• — Игровое поле.

Модуль

Проект состоит из 3 модулей:

• 1) core. pas: основной модуль игры, содержит основную форму и процедуру;
• 2) Snake. pas: центральный связующий модуль;
• 3) Help. pas: модуль с окном справки;

Так же в проекте имеется файл ресурсов (snake.res), в нем хранятся битовые образы (bmp), необходимые для анимации.

Описание функций модуля

Реализация движения змейки.

Для реализации данного принципа движения нам необходимо написать две процедуры: удаление элемента из хвоста списка (DelFromTail) и добавление элемента в голову списка (InsertToHead). Для того чтобы стирать звено змейки воспользуемся процедурой DrawSegment, но в качестве цвета отображения звена зададим цвет фона канвы, по умолчанию.

Для проверки цвета точки необходимо использовать свойство канвы — Pixels[x, y], которое возвращает и задает цвет точки канвы с координатами (x, y).

Компонент TTimer под именем ShakeTimer — этот таймер по истечению определенного времени будет перерисовывать змейку и заставлять её постоянно двигаться в определенном направлении, заданным пользователем. Для перерисовки змейки требуется некоторое время и иногда это время превышает интервал времени таймера (все зависит от скорости работы конкретного компьютера). С этой целью мы вводим глобальную логическую переменную BreakToReadKey, при которой если она истинна, то змейка перерисовывается. Перерисовку питона также выделим в отдельную процедуру. При этом на характер перерисовки питона будет влиять также направление его движения, т. е. код клавиши курсора, который нажал пользователь. В связи с этим назовем нашу процедуру ReadShakeKey, она имеет параметр Image: TImage, где рисовать змейку, также зависит от глобальной переменной WhatKeyPressed, хранящей код нажатой клавиши пользователем на форме во время движения змейки.