меню

[Djels]

Что-то с этим подсчетом не совсем получается =( не пойму куда в программе поставить подсчет и с каким условием?

[Sazary]

не пойму куда в программе поставить подсчет и с каким условием?

В процедуру down (если опускание блока произошло успешно).

[Djels]

Sazary, Вы уж простите, но не могли бы Вы более подробно написать, как и чего делается по обоим вопросам. Пытался и то, и другое сделать - криво

[Sazary]

Просто объявите глобальную переменную для количества ходов.
В начале игры присваивайте ей ноль.
Потом в процедуре down увеличивайте ее, если блок успешно положился (в случае неудачи у вас там Error выводится).

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

Про время.
В начале игры записываете данные, полученные из getdate и gettime (о параметрах функций почитайте в каком-нибудь учебнике). Пакуете в переменную типа longint с помощью PackTime. Потом считываете в конце игры. Тоже пакуете. Находите разность - это будет время в секундах.

Вот для примера:

uses crt,dos;
var
D : datetime;
start,finish,rez : longint;
DOW,SS : word;

begin
clrscr;
getdate(D.Year,D.Month,D.Day,DOW); // читаем данные в начале
gettime(d.Hour,D.Min,D.Sec,SS);
PackTime(D,start);  // пакуем

// подождем секунд 5 и нажмем клавишу для выхода из цикла
while not keypressed do
 begin
 end;

getdate(D.Year,D.Month,D.Day,DOW);
gettime(D.Hour,D.Min,D.Sec,SS); // читаем данные в конце

PackTime(D,finish); // пакуем
rez := finish-start; // находим разность

writeln(rez);

readln;
end.

[Djels]

Sazary, Помоги пожалуйста.. очень прошу!
1)Тут что-то не получается, куда не впихну - не считает ни время, ни счет ходов.
2)Ещё нужно чтобы во время игры вылезала подсказка(Procedure GameHelp) на управление курсором (я её наполовину сделал, то есть нажав на F1 подсказка вылазит, а как сделать, чтобы она стиралась на эту же кнопку, а потом опять появлялась, если нужно - не знаю как это реализовать).
3)И последнее - Как сделать, чтобы выбор количества дисков в начале игры был немного веселей что-ли. Короче, чтобы хотя бы количество выбираемых дисков было видно на экране.

Sazary, очень прошу помочь. Заранее благодарствую.

Sazary.rar

[Sazary]

Вывод времени и ходов в процедуре победы.
Подсчет количества повесил на процедуру Down. Собственно, это самое примитивное, что можно было сделать. Если нужно, усложните.

Хэлп теперь убирается.

3)И последнее - Как сделать, чтобы выбор количества дисков в начале игры был немного веселей что-ли. Короче, чтобы хотя бы количество выбираемых дисков было видно на экране.

Ну это уже сами. По мне - и так нормально.

[Djels]

Sazary один вопрос, почему-то время считает некорректно.
В реале посчитал - 34 секунды, а пишет 19.

[Sazary]

Сообщение от Djels

один вопрос, почему-то время считает некорректно.
В реале посчитал - 34 секунды, а пишет 19.

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

Может, лучше просто выводить время начала и конца игры?

[Djels]

Да вот, надо бы сделать общее потраченое время...

[Sazary]

Сообщение от Djels

Да вот, надо бы сделать общее потраченое время...

Ну тогда вам придется повозиться над этой функцией. Можете поискать готовые решения в нете.