Версия для печати темы

Автор: Wait 19.05.2005 2:37

Проверьте, пожалуйста, почему в игре (кусач, надо срочно) не работает процедура gettime и вообще, она глючит... уже не знаю, что и делать... опыта не хватает. Помогите мне с этим, исправьте ошибки, очень прошу.
Я хотел сделать там меню - сделал, но сам экшн игры сделал процедурой, из-за этого начались глюки. Также присоединяю исходную игру (без особых глюков, но там нет такого меню...)
исходная - bizn.zip
глючная - bizness.pas
Объясните мне, как сделать, чобы при выборе пункта START THE GAME прога переходила на эту игру...
Заранее благодарен


Прикрепленные файлы
 bizn.zip ( 33.17 килобайт ) Кол-во скачиваний: 237
 BIZNESS.PAS ( 30.53 килобайт ) Кол-во скачиваний: 278

Автор: volvo 19.05.2005 2:48

И ты хочешь чтобы это сработало?

gettime(a,a,c1,a);

Вот описание процедуры GetTime:

procedure GetTime(var Hour, Minute, Second, Sec100: Word);

То есть ты должен передавать в нее 4 разных переменных типа Word, ты же передаешь одну переменную 3 раза, будут глюки. (То что тебя интересуют только секунды - это твоя проблема, но никак не GetTime, ты должен получить все 4 параметра, и потом использовать только то, что тебе нужно...)

Автор: Wait 19.05.2005 3:08

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

Автор: volvo 19.05.2005 3:39

Все просто:

var Hour, Minute, Sec100: Word; { это - добавить к списку переменных }
...
{ и заменить вызов GetTime на такой: }
gettime(Hour, Minute, c1, Sec100);

Автор: Jaxx 19.05.2005 16:42

Volvo, а что за Sec100 ? Я пользуюсь Hund, есть ли какая-нибуль разница?

Автор: volvo 19.05.2005 16:45

А какая разница? Я просто из Help-а скопировал описание, как там было, так и сюда запостил. Имена-то любые можешь поставить. Но 4 разных переменных, в этом был смысл поста...

Автор: Wait 20.05.2005 23:11

Скажите, пожалуйста, еще, почему в моей проге (я вылаживал) на экране чета постоянно мигает? Отчего это? И как избавиться?

Автор: Дож 21.05.2005 1:17

Я прогу серьезно не изучал, но могу кое-что сказать:

1. Ты пользуешься процедурой CLRSCR. Текст воводится долго, потому и мигание...
   
2. Спрячь текст. курсор, он обычно много чего портит. Прочитай об этом в FAQе...

Больше ничего не вижу.

Автор: Дож 22.05.2005 16:40

СТОП!!! Где- то я эту игру уже встречал! Wait, ты ее написал???

Автор: Shura 24.05.2005 21:12

Ну та что "Исходная" - это я ещё давно с сайта, что в About указан скачивал.
А "Глючная"?.. Wait, ты чужую программу переделываешь?

Автор: Дож 24.05.2005 23:57

Ага, только его уже давно нет на форуме... ;)