Главная | Регистрация | Вход | RSSВоскресенье, 19.05.2024, 09:42

Портфолио STUDENTA

Основное меню
Категории раздела
Программирование в Delphi 6 [15]
Прогноз погоды
Переход

Каталог статей

Главная » Статьи » Программирование » Программирование в Delphi 6

Игра: бильярд

Разработчик: Басков Сергей Вадимович.

http://www.baskov.spb.ru

e-mail: news4me@mail.ru

Россия, г.Москва 
октябрь-ноябрь 2002г.

Описание
--------
Играют двое: человек и компьютер. Первым делает ход человек. Ход передаётся другому игроку, если текщий игрок не забил в лузы ни одного шара.
Случай, если биток(шар которым производится удар по другим шарам) не коснулся ни одного шара - я не рассматривал, хотя это несложно (достаточно добавить пару строк).
Сила удара зависит от расстояния в данный момент кия от битка

Управление:
-----------
Курсоры:
  вверх-вниз - вращение кия
  влево-вправо - переключение с одного шара на другой
"пробел" - удар кием
"H", "h" - подсказка для человека (как на его месте сделал бы ход человек)
"I", "i" - включение/выключение нумерации шаров (кстати, неплохо было бы реализовать ведение счёта)
"S", "s" - включение/выключение линии прицеливания

Известные баги:
---------------
1. При сильном ударе кием вблизи шаров скорости разлетевшихся шаров становятся бешеными некоторое время.
2. При окончании игры битком становится один из шаров в пирамиде.
3. Если в конце игры выбрать отказ от продолжения игры, то игра всё равно продолжится ;)
4. Размеры шара и лузы в случае попадания первого в лузу не учитываются.

Описание файла конфигурации settings.ini:
-----------------------------------------
ballSize=10 - размер шаров
PocketSize=20 - размер лузы
MaxEnergy=20 - максимальная сила удара
CueLength=200 - длина кия
Friction=0,97 - коэффициент трения (строго меньше 1)
PyramidHeight=5 - количество уровней в пирамиде с шарами
AngleStep=0,03 - шаг поворота кия вокруг шара
MovementLimit=0,1 = предел вектора скорости, после которого движение шара считается приостановленным.
TimeInterval=20 - время между кадрами перерисовки (в миллисекундах)

---
Право на доработку программы я оставляю вам.
Единственная просьба - в случае коммерческого использования - меня проинформировать.

Скачать....
Категория: Программирование в Delphi 6 | Добавил: ADMIN (24.12.2012)
Просмотров: 2749 | Комментарии: 2 | Рейтинг: 0.0/0
Всего комментариев: 2
2 Алексей  
0
А как бота отключить? Хочу с другом поиграть))

1 Алексей  
0
Класс ты молодец!

Главное правило сайта:"if помогло? then оставь комментарий! else оставь отзыв!"
Имя *:
Email:
Код *:
Статистика

Онлайн всего: 1
Гостей: 1
Пользователей: 0
Форма входа
Поиск
Друзья сайта
  • Официальный блог
  • Сообщество uCoz
  • FAQ по системе
  • Инструкции для uCoz

  • Copyright MyCorp © 2024
    Конструктор сайтов - uCoz