Скачать Pentix Auto Player

21.10.1992
Скачать файл (19,09 Кб)

   Я очень люблю играть в PENTIX, но через некоторое время стал
замечать,  что стоит мне закрыть глаза и передо мной появляются
падающие фигуры. При чтении стал мысленно загонять фигуры между
строк и абзацев.   Кроме того,  сколько бы я не играл,   больше
15244 мне набрать не удается.

   В результате пришлось написать программу,  которая запускает
PENTIX,   в нужный момент считывает с экрана общую обстановку и
появившуюся фигуру, тупо перебирает  все варианты броска  и по
нескольким критериям выбирает лучший.  Затем прикидывает, какие
клавиши нужно нажать,  и запихивает нажатия в буфер клавиатуры.

   Теперь мне остается только смотреть, как она набирает 20, 30
тысяч... (до 32767 - далее переполняются целые, появляется неч-
то подобное "/*)-*[" и результат в таблицу не записывается). Но
APENTIXу, как и человеку бывает везет, бывает - нет.

   Для запуска просто наберите: APENTIX. В одном каталоге с ним
должен быть файл PENTIX.OVL - так подправленный PENTIX, что при
появлении новой фигуры вызывается INT 65h,   изнутри которого и
работает APENTIX. Далее нажмите "9" и смотрите. Буфер клавиату-
ры не стирается,  поэтому можно в некоторой степени вмешиваться
в игру.  Выход - "2".

   Вес каждого критерия можно изменить (см. исходный текст -
apentix.pas) и посмотреть,что из этого получится.   После того,
как несколько раз переполнились целые, я перестал совершенство-
вать алгоритм.   APENTIX не умеет "забрасывать" фигуры в дырки,
слишком рискует, часто броском закрывает следующий ход. Но ког-
да хороший ход есть, он его находит.