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