Помощь - Поиск - Пользователи - Календарь
Полная версия: Заставка "снег"
Форум «Всё о Паскале» > Pascal, Object Pascal > Написание игр
AlienEmperor
Привет всем! Тут недавно человек просил помочь с написанием проги с "градом". Я от нечего делать написал быстренько свою версию (у меня, правда, не град, а снег). По-моему, получилось прикольно. Выложу сюда rar с exe-шником (выложил бы pas, да он много юнитов использует). Как модератор заявляю: код безвреден, написан на "чистом" турбо паскале. Если понравится и будет кому-нибудь надо, то выложу и исходник (правда, написано очень не оптимально, зато за 40 минут...).
Archon
Класс! good.gif Мне это напомнило тетрис rolleyes.gif smile.gif .
Malice
Тоже когда-то что-то подобное писал в качестве заставки. Правда сейчас слишком быстро работает, но все равно прикольно smile.gif ps вирусов, троянов и прочего тоже нет, тоже на пасе.
Shpion
Блин, народ, хоть бы исходники выложили... Или человеку в соседней теме ответили...
А то сделали, выложили.. Объясните, хоть, как зафиксить уровень наклонной крыши... dry.gif
AlienEmperor
Я же написал: через проверку допустимого цвета: в проге видел небо везде одного цвета ? Вот - раз небо - значит "проходит", если любой другой цвет - все, останов. Даже круче можно сделать - можно и задний фон создать не одноцветный, а проверять по другому "шаблону"... Ладно, исходник выложу чуть позже...
AlienEmperor
Вот исходник. Говорю сразу: использовал старые версии модулей для VGA, об оптимизации не думал вообще. Выкладываю все три модуля. Основной файл Snow.pas
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.