проверьте игру, плиз, чета глючит Опции

[Wait]

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

[volvo]

Проверьте, пожалуйста, почему в игре (кусач, надо срочно) не работает процедура gettime

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

gettime(a,a,c1,a);

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

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

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