VPF::[Delphi] Арканойд. - Форум программистов

MotokoK

Дата 23.3.2010, 01:07 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 23
Регистрация: 28.10.2009

Репутация: нет
Всего: нет

Уничтожение кирпичей не работает =(

Код


...
procedure TForm1.Timer1Timer(Sender: TObject);//Процедура движения шарика и рекошетов от всего
begin
ballmove;//процедурка шарик двигается
if InterSectRect(overlay,player.BoundsRect,ball.BoundsRect) then //Простой отскок шарика от игрока
begin
ball.spdy:=-ball.spdy;
ball.spdx:=-ball.spdx+random(2);
end;
for i:= 1 to 5 do   //Простой отскок шарика от кирпича(кирпичей 5 пока)
if InterSectRect(overlay,wall[i].BoundsRect,ball.BoundsRect) then
if wall[i]<>nil then
begin
ball.spdy:=-ball.spdy;
ball.spdx:=ball.spdx;
wall[i].Free;
wall[i]:=nil;
useri.score:=useri.score+9;
  with label2 do
  caption:=inttostr(useri.score);
  end
  else
end;
...

ошибка памяти

ИванМ

Дата 23.3.2010, 15:22 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1260
Регистрация: 19.6.2006
Где: СПб

Репутация: 13
Всего: 23

Цитата(MotokoK @ 23.3.2010, 01:07

)

if InterSectRect(overlay,wall[i].BoundsRect,ball.BoundsRect) then

В этой строке идет обращение к wall, без проверки на nil.

MotokoK

Дата 26.3.2010, 02:12 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 23
Регистрация: 28.10.2009

Репутация: нет
Всего: нет

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

Код


...
if bonus <> nil then if InterSectRect(overlay,player.BoundsRect,bonus.BoundsRect)then
begin
bonus.bonuseffect; //Вызавается процедура эффектра бонуса
bonus.Free; //А сам бонус стирается
bonus:=nil;
...

и бонус эффект например такой

Код


...
procedure TBonus.bonuseffect;
begin
player.Width:=player.Width+20;//Увеличивает платформу на 20
beffect:=true; //Переменная показывает что бонус активен
end;
...

А вот как написать отключение бонуса по прошествию времени я не знаю.

И с этим канечно проблема с этим.

"arccos((x-0.5l)/0.5l), где l - общая длина платформы, а x - расстояние от левого края платформы до точки удара шарика."

Можете подсказать как вычислять Х и к чему приравнивать эту формулу.Шарику нужно ввести переменную хранащую угол падения?

ИванМ

Дата 28.3.2010, 14:45 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1260
Регистрация: 19.6.2006
Где: СПб

Репутация: 13
Всего: 23

Цитата(MotokoK @ 26.3.2010, 02:12

)

как написать отключение бонуса по прошествию времени

Создаешь новый таймер и ставишь ему интервал = времени работы бонуса. Когда бонус начинается, включаешь таймер и переменную, связанную с бонусом. Когда возникает событие таймера, отключаешь таймер и переменную, связанную с бонусом.
Можно вообще эту переменную не использовать, а в программе проверять, включен таймер или нет. Если да, то работаем с бонусом, если нет - то не работаем. Это конечно по-лаймерски, зато просто.

Цитата(MotokoK @ 26.3.2010, 02:12

)

"arccos((x-0.5l)/0.5l), где l - общая длина платформы, а x - расстояние от левого края платформы до точки удара шарика."
Можете подсказать как вычислять Х и к чему приравнивать эту формулу.Шарику нужно ввести переменную хранащую угол падения?

Из этой формуле нельзя вычислить x, потому что эта формула ничему не равна. Должен быть знак =.

Это сообщение отредактировал(а) ИванМ - 28.3.2010, 14:48

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »