Форум программистов, компьютерный форум, киберфорум
Delphi
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.85/13: Рейтинг темы: голосов - 13, средняя оценка - 4.85
2 / 2 / 1
Регистрация: 18.12.2009
Сообщений: 117
1

Игра "Гонки"

06.03.2011, 15:06. Просмотров 2334. Ответов 3
Метки нет (Все метки)

Здраствуйте.

Вообщем задание курсовой написать игру гонки. Возникла проблема :

Как видно, гейм овер наступает не в нужный момент. Работает если сталкиваются в лоб, но так же срабатывает если я перестраиваюсь на соседнюю полосу.
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
procedure TForm1.Timer2Timer(Sender: TObject);
begin
  image7.Top:=image7.Top+ 15;
 if (image7.Top+image7.Height)>(image5.Top) then
   if (image7.Left+1<=image5.Left) and (image5.Left<=(image7.Left+image7.Width-1))
    then GameOver;
 if (image7.Top+image7.Height)>(image5.Top) then
   if (image7.Left+1<=(image5.Left+image5.Width)) and ((image5.Left+image5.Width)<=(image7.Left+image7.Width-1))
       then GameOver;
 If  image7.Height>=(Form1.ClientHeight) then
 begin
        image7.Hide;
       image7.Top:=1;
        repeat
         image7.Left:=PositionCar;
        until (image7.Left>10);
        image7.Show;
 end;
end;
где image7 - это встречный автомобиль, а image5 - автомобиль игрока. Подскажите что не так?
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
06.03.2011, 15:06
Ответы с готовыми решениями:

Курсовая работа "Игра "Конструктор"
Добрый день, сейчас попробую изложить свою мысль. Суть моей программы - игра, нужно сложить...

Игра "Поле чудес" переделать из CBuilder в Delphi 7
Нужно переделать игру написанную на CBuilder в Delphi 7. Скачать исходник в CBuilder

Программа: игра "2 лисы и 20 кур"
Скрин задачи:

Игра "ЛОГИКА" (в Delphi)
И так появилась у меня идея написать на Delphi игру &quot;Логика&quot; (мне кажетса она толко на МСХ...

3
2 / 2 / 1
Регистрация: 18.12.2009
Сообщений: 117
09.03.2011, 13:35  [ТС] 2
никто не знает?)
0
128 / 86 / 10
Регистрация: 03.02.2011
Сообщений: 477
15.03.2011, 19:46 3
HalSaw, ты не подумай, мы не жадные и не плохие, я просто не вижу ошибки тут, может с файлом бы и получилось разобраться. Как только тема появилась, слежу за ней, самому интересно в чем ошибка. Может, если скинешь саму прогу - найдут быстрее...
0
2 / 2 / 1
Регистрация: 18.12.2009
Сообщений: 117
16.03.2011, 13:38  [ТС] 4
Вот исправленное :

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
procedure TForm1.Timer2Timer(Sender: TObject);
begin
  image7.Top:=image7.Top+ 15;
 if ((image7.Top + image7.Height) >= image5.Top) and
    (image7.Top <= (image5.Top + image5.Height))and
    ((image7.Left + image7.Width) >= image5.Left) and
    (image7.Left <= image5.Left + image5.Width)
 then GameOver;
 If  image7.Height>=(Form1.ClientHeight) then
 begin
        image7.Hide;
       image7.Top:=1;
        repeat
         image7.Left:=PositionCar;
        until (image7.Left>10);
        image7.Show;
 end;
end;
2
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
16.03.2011, 13:38

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

игра "крестики-нолики"
здравствуйте! у меня такой вопрос: у меня есть готовая игра &quot;крестики-нолики&quot;, вы сможете по этой...

Игра "крестики-нолики"
Зделала игру крестики-нолики для двух игроков.Подскажите ,пожалуйста, как зделать эту игру для...

Игра "Лабиринт"
Доброго врмени суток. В общем, недавно начал изучать Delphi понемногу и взялся сделать...

Игра "Сапер"
При вызове процедуры MakeButtons выдает ошибку &quot;not enough actual parameters&quot;. Не пойму, какие еще...

Игра "Виселица"
пожалуйста напишите код, чтобы загаданное слово отображалось &quot;------&quot;!!!!плиззз!!!!

Программа для накрутки "мне нравиться" "подписчиков""
Народ привет тут увидал прогу называеться FVCheat она накручивает ВК подписчиков сердечек (мне...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.