Помогите пожалуйста дописать элементарную игрушку на Delphi
Пользователи, просматривающие топик: none
|
Зашли как: Guest
|
Имя  |
| Сообщение |
<< Старые топики Новые топики >> |
|
|
Помогите пожалуйста дописать элементарную игрушку на Delphi - 2009-04-25 23:45:36.520000
|
|
|
Aligarch2009
Сообщений: 2
Оценки: 0
Присоединился: 2009-01-04 11:37:39.263333
|
Помогите пожалуйста дописать элементарную игру крестики-нолики..просто при нажатии на чужой шарик, он перекрашивается в другой цвет, а мне нужно чтобы он не перекрашивался. Работу нужно мне уже завтра сдать.=( Помогите пожалуйста, добрые люди! Заранее благодарен! Выкладываю исходник!
Исходник
|
|
|
|
|
RE: Помогите пожалуйста дописать элементарную игрушку на Delphi - 2009-04-26 12:50:30.360000
|
|
|
Login_hochu
Сообщений: 1471
Оценки: 0
Присоединился: 2007-07-15 14:19:23.423333
|
Ну сделай проверку, в твоей главной процедуре TForm1.FormMouseUp, не занята ли клетка, у тебя ведь в массиве все есть. Кстати программа тоже перекрашивает клетки игрока.
+ Не вижу проверки выигрыша программы (впрочем с таким random алгоритмом надо еще посстараться, что бы программа выиграла.). (Кстати искать по всему полю не обязательно, достаточно только +-4клетки от последнего хода.)
+зачем нужен if a[i,j]= random (26) then ShowMessage('Error'); ???
+Правила игры почитай.
+еще куча недочетов
|
|
|
|
|
|
