Моя первая игра на Pascal

[Gapro]

Я там коды вставил на проверку уровней: надо вводить на 1 уровне p на 3 уровень, o - на 4, i - на 5, u - на 6.

[Gapro]

Shadow_1329

Спасибо за найденную ошибку, я её исправил вот исправленная версия.

Еще мне кажется что 6 уровень слишком сложный, я думаю его поменять с 4-тым. Как вы думаете?

[Вадим Буренков]

У меня шарик игрока что-то слишком сильно мигает. Ты его из примитивов рисуешь и заливаешь или готовишь спрайт в памяти?

[Gapro]

Рисую из примитивов и заливаю.

[Вадим Буренков]

Для увеличения скорости вывода графики в паскале лучше использовать спрайты. О их использовании можешь почитать в интернете, ну или я могу пример скинуть. А быстрее работают они поскольку при обычном рисовании происходят рассчеты изображения (например нужно рассчитать точки из которых состоит окружность), а для спрайтов они рассчитываются 1 раз. Также для ускорения графики можно использовать 'виртуальные страницы'.

[Gapro]

Да я как бы планировал уже переходить на Delphi, но без анлима его достать трудновато

[Gapro]

Но про спрайты скинь, если не сложно, почитаю

[Вадим Буренков]

Я уже давно не работал с паскалем но спрайты делаются как-то так ( наришу только код так как pascal не установлен).
Этапы:
1)Сначала рисуем на экране нужное изображение из примитивов
2)Сохраняем в памяти как спрайт
3)Можем рисовать везде где хочем (уже из памяти)
4)Перед выходом удаляем из памяти
Спрайт будет хранится в глобальной переменной типа поинтер:

//спрайт
Spr:Pointer;                 
//размер спрайта
SprSize:Word;

Вот пример сохранения:

//1)Рисование
SetColor(red);                           
FillEllipse(60, 110, 10, 10);
SetFillStyle(7,green);
FloodFill(62,112,red);
2)Сохраняем  в памяти как спрайт
SprSize:=ImageSize(48,98,72,122);
GetMem(Spr, SprSize);
GetImage(48, 98, 72, 122, Spr^);
//спрайт сохранен, можем очистить экран
ClearDevice;

Вот рисование:

PutImage(x, y, Spr^, XORput);

XORput-тип вывода спрайта. О них инфу найдешь сам если надо.
Пдюс XORput в том, что если вывести спрайт один раз то он рисуется как положено, а если вывести спрайт в те же координаты второй раз то он исчезнет! Если на экране много объектов а движентся тольео малая часть то по скорости это быстрее чем очищать экран и выводить все заново.

А вот очищение спрайта:

FreeMem(Spr,SprSize);

Если надо конкретный пример то можешь посмотреть (в архиве есть исходники) мою первую игру на pascal, там используются спрайты (правда код там ужасный )

[pro100-delphi]

С учётом того, что писалась она на Pascal работа отличная. Но как я не раз говорил Pascal язык учебный, нормальных игр не напишеш. С твоим талантом можно было бы делать норм игры на Delphi с использованием OpenGL ))