Информационный сервер для программистов: Исходники со всего света. Паскальные исходники со всего света
  Powered by Поисковый сервер Яndex: Найдется ВСЁ!
На Главную Pascal Форум Информер Страны мира
   Графические Игры    >>    apentix
   
 
 Pentix Auto Player  Дмитрий Пархотик 21.10.1992

Программа запускает PENTIX и играет в него автоматически сама без участия человека.



18k 
 

APENTIX Я очень люблю играть в PENTIX, но через некоторое время стал замечать, что стоит мне закрыть глаза и передо мной появляются падающие фигуры. При чтении стал мысленно загонять фигуры между строк и абзацев. Кроме того, сколько бы я не играл, больше 15244 мне набрать не удается. В результате пришлось написать программу, которая запускает PENTIX, в нужный момент считывает с экрана общую обстановку и появившуюся фигуру, тупо перебирает все варианты броска и по нескольким критериям выбирает лучший. Затем прикидывает, какие клавиши нужно нажать, и запихивает нажатия в буфер клавиатуры. Теперь мне остается только смотреть, как она набирает 20, 30 тысяч... (до 32767 - далее переполняются целые, появляется неч- то подобное "/*)-*[" и результат в таблицу не записывается). Но APENTIXу, как и человеку бывает везет, бывает - нет. Для запуска просто наберите: APENTIX. В одном каталоге с ним должен быть файл PENTIX.OVL - так подправленный PENTIX, что при появлении новой фигуры вызывается INT 65h, изнутри которого и работает APENTIX. Далее нажмите "9" и смотрите. Буфер клавиату- ры не стирается, поэтому можно в некоторой степени вмешиваться в игру. Выход - "2". Вес каждого критерия можно изменить (см. исходный текст - apentix.pas) и посмотреть,что из этого получится. После того, как несколько раз переполнились целые, я перестал совершенство- вать алгоритм. APENTIX не умеет "забрасывать" фигуры в дырки, слишком рискует, часто броском закрывает следующий ход. Но ког- да хороший ход есть, он его находит. Пархотик Д.И.