Denc2005, ну ты там наворотил..
Если сам сделал - уважаю твое усердие, но только
так программировать не надо. Зачем делать два набора практически одинаковых процедур? Зачем доску делать в два раза больше?.. Как ты сам там не путаешься - ума не приложу..
Теперь по делу. В отмеченной тобой строке ты вызываешь MoveFrom2 с параметром Player, и это правильно. Но дальше во всех процедурах по цепочке ты почему-то передаешь Player2 (непонятно, зачем он вообще нужен). Я исправил все вызовы и смог поиграть даже (интерфейс красивый, респект!
) - сходил, съел пару белых..
Вот исправленный код, на всяк случай. Форматирование в нем не ахти, но спасибо, что хоть такое есть, иначе бы я вообще утоп..
. И еще одно: для циклов используй локальные переменные.
Успехов тебе!
ps
а почему называется "крестики"?
checkers.pas ( 29.48 килобайт )
Кол-во скачиваний: 1307
М |
|
Прикрепляю программу отдельным файлом. Слишком большой программный текст непосредственно в сообщении вызывает слишком большую задержку при просмотре сообщения, особенно на не очень сильных компьютерах. Lapp
|