Шашки, Проблема с ходом черных Опции

[Denc2005]

Здравствуйте Уважаемые Форумчани!
Я делаю курсовую «Шашки». У меня возникла одна проблема: ход белыми совершается по всем правилам, а вот черные совсем не ходят (функция не разрешает ходить, а все вроде сделано, так же как и для белых). Я отметил место, в коде, где возникает ошибка, помогите исправить

[Lapp]

Denc2005, ну ты там наворотил..
Если сам сделал - уважаю твое усердие, но только так программировать не надо. Зачем делать два набора практически одинаковых процедур? Зачем доску делать в два раза больше?.. Как ты сам там не путаешься - ума не приложу..

Теперь по делу. В отмеченной тобой строке ты вызываешь MoveFrom2 с параметром Player, и это правильно. Но дальше во всех процедурах по цепочке ты почему-то передаешь Player2 (непонятно, зачем он вообще нужен). Я исправил все вызовы и смог поиграть даже (интерфейс красивый, респект! ) - сходил, съел пару белых..

Вот исправленный код, на всяк случай. Форматирование в нем не ахти, но спасибо, что хоть такое есть, иначе бы я вообще утоп.. . И еще одно: для циклов используй локальные переменные.
Успехов тебе!
ps
а почему называется "крестики"?

 checkers.pas ( 29.48 килобайт ) Кол-во скачиваний: 994

М

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