Snakes

Недавно отец, готовясь к рыбалке, уронил открытую банку с опарышами на пол. Это меня вдохновило на создание такой программы. Позвольте сначала представиться:
Mysterious Light Creative — Noone needed inventions
Управление программой: при запуске сразу вводите число (предлагаю варианты «10» и «50», можно «5») и много раз нажимаете по формочке.
Язык: Delphi 7.0. Исходные коды: открытые (стучитесь в ЛС — дам, там я пытался немного с ООП покрутить, поэтому в целом змейку можно пристроить к любому проекту как визуальное супер-дизайнерское дополнение )

P.S. вроде правильный раздел форума выбрал.

Вложения

snakes.rar (168.3 Кб, 34 просмотров)

0

При перерисовки моргает TImage. Попробуй написать это на OpenGl или DirectX. Сделай червей разноцветных, придумай фон и вот тебе готовый скринсейвер

0

Хороша идея, Граф, на счет скринсейвера.
Кстати, Имиджа там нет За базу взята Канва формы. Хотя в принципе червям всё равно какую канву грызть )

P.S. была идея добавить объект «яблочко» и сделать автоматически управляемую игру «змейка».

0

лучше используй OpenGL или DirectX - избавишься с проблемой прорисовки... Мигать ничего не будет... под дельфаи есть даже либа DelphiX - там есть компонента TDXDraw (вроде бы) с ней работаешь почти как с обычной канвой, но при прорисовки миганий не будет. (конечно для серьезных проектов TDelphiX не годится, но для скринсейвера самое оно)

0

Сообщение от Mysterious Light ... канву грызть...

Неплохая мысль, кстати. Можно сделать ещё чтоб за каждым червём след оставался. Серый, например (clSilver в Delphi).
Также можно прилепить таймер на форму и в событии таймера увеличивать базовое число (чтоб черви росли).

0