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

MotokoK

Дата 12.3.2010, 18:28 (ссылка)

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

Загрузка ...

Новичок

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

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

Добрый вечер. Я только начала изучать делфи после Паскаля и сейчас пишу на нем курсовую, тема Арканойд.Без каких либо графических наворотов,просто игра прямо на форме.Столкнулась с многими сложнастями например с такой. Вот кусочек кода из самого начала.

Код


...
type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu; //Меню
    N1: TMenuItem;
    N2: TMenuItem;//Новая игра

    procedure N2Click(Sender: TObject);
    procedure Edit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
Type
 TPlayer = class //класс игрок
  bspd:integer;//Скорость Биты Игрока
  bcor:integer;//Координата Биты Игрока
  PScore:integer;//Очки
  PName:String;//Имя
  bat:TShape;//Бита
 end;

 var
  Form1: TForm1;
  Player:TPlayer;
    Edit1:TEdit;
  Label1:TLabel;


implementation

{$R *.dfm}

procedure TForm1.N2Click(Sender: TObject);//Нажимаем новая игра...
begin
label1:=Tlabel.Create(self);//Появляется запрос
With label1 do begin
Parent:=Form1;
Visible:=True;
left:=50;
top:=50;
Caption:='Введите имя игрока';
end;
edit1:=TEdit.Create(self);//И поле ввода
with edit1 do begin
Parent:=Form1;
left:=50;
top:=100;
end;
end;

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);//Вводим ,нажимаем Enter и ничего не происходит =(
begin
if key=vk_return then begin
Player.PName:=edit1.Text;
Player.PScore:=0;
Label1.Destroy;
Edit1.Destroy;
end;
end;
end.

В задумке по нажатие "Новая игра" у пользователя спрашивают имя,а послее ввода и нажатия на Enter
запрос и поле ввода уничтожаются.Вот только вобще ничего не проиходит.

ИванМ

Дата 12.3.2010, 20:23 (ссылка)

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

Загрузка ...

Эксперт

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

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

откуда взялась процедура Edit1KeyDown если Edit1 создается динамически?

Frees

Дата 14.3.2010, 00:13 (ссылка)

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

Загрузка ...

Эксперт

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

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

http://www.delphisources.ru/pages/faq/faq_...tQuery.php.html

--------------------

Кольцов Виктор Владимирович

MotokoK

Дата 14.3.2010, 14:01 (ссылка)

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

Загрузка ...

Новичок

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

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

ИванМ
Эм процедуру сама руками написала...

ИванМ

Дата 14.3.2010, 15:25 (ссылка)

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

Загрузка ...

Эксперт

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

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

MotokoK, а связать ее с объектом?

Код


edit1:=TEdit.Create(self);
with edit1 do begin
Parent:=Form1;
OnKeyDown:=Edit1KeyDown;
left:=50;
top:=100;
end;

MotokoK

Дата 14.3.2010, 20:29 (ссылка)

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

Загрузка ...

Новичок

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

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

ИванМ
Спасибо большое,теперь умею связывать денамически созданые объекты с процедурами.
Вот только не знаю как правильно их разрушать,потому что от edit1.destroy Ошибка.
Подскажите пожалуйста как удалять обекты.

Но в этом случае наверно InputQuery больше подходит.Но теперь еще больше вопросов.Задам попорядку.

Код


...
type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    Timer1: TTimer;
    procedure N2Click(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure CreatePlayer;
    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure createball;
    procedure ballmove;
    procedure Timer1Timer(Sender: TObject);


  private
    { Private declarations }
  public
    { Public declarations }
  end;
Type
 TPlayer = class(TShape)
 Public
  pspd:integer;
  pcor:integer;
 end;


type
 users = record
 name:string;
 score:integer;
 end;

 Type
 TBall = class(TShape)
 Public
  spdx:integer;
  spdy:integer;
 end;


 var
  Form1: TForm1;
  Player:TPlayer;
  Edit1:TEdit;
  Label1:TLabel;
  useri:users;
  Ball:Tball;
  overlay:trect;
implementation


{$R *.dfm}

procedure TForm1.createball;
begin
Ball:=TBall.create(self);
with ball do begin
parent:=form1;
shape:=stCircle;
width:=15;
height:=15;
spdx:=3;
spdy:=3;
left:=Player.Left+Player.width div(2);
top:=player.Top-15;
end;
end;

procedure TForm1.N2Click(Sender: TObject);
begin
 begin
  // Продолжаем спрашивать у полльзователя его имя
  InputQuery('Преставтесь', 'Пожалуйста, укажите своё имя',useri.name);

  // Показ его имени
  ShowMessage('Добро пожаловать '+useri.name+' Ваш счет ='+inttostr(useri.score));
  CreatePlayer;
  createball;
  timer1.Enabled:=true;
end;
end;


procedure TForm1.FormDestroy(Sender: TObject);
begin
Useri.name:='';
Useri.score:=0;
end;

procedure TForm1.CreatePlayer;
begin
Player:=TPlayer.Create(self);
With Player do begin
Parent:=Form1;
width:=50;
height:=15;
top:=300;
left:=50;
player.pcor:=50;
player.pspd:=5;
end;
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
if player.parent=form1 then Player.Left:=Mouse.CursorPos.X-Form1.ClientOrigin.X;
end;


procedure TForm1.ballmove;
begin
ball.left:=ball.Left+ball.spdx;
ball.Top:=ball.top+ball.spdy;
if ball.Top+ball.Height > clientheight then ball.spdy:=-ball.spdy;
if ball.Left < 0 then ball.spdx:=-ball.spdx;
if ball.Left+ball.width+ball.spdx > clientwidth then ball.spdx:=-ball.spdx;
if ball.Top < 0 then ball.spdy:=-ball.spdy;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
ballmove;
if InterSectRect(overlay,player.BoundsRect,ball.BoundsRect) then
begin
ball.spdy:=-ball.spdy;
ball.spdx:=-ball.spdx;
end;
end;

end.

Вобщем вопросы.
Во-первых

Код


...
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
if player.parent=form1 then Player.Left:=Mouse.CursorPos.X-Form1.ClientOrigin.X;
end;
...

Как сделать чтобы
1:Не выдавало ошибку при ведение мишки по форме до начала новой игры.А то ошибка потому что player еще не создан.
2:Убрать курсор мыши.
3:Привязать скорость к перемешению мыши.Т.е чтобы пластика двигалась с заданой скоростью.
4:Чтобы не выезжала за правый край формы.

и вот тут чуть посложнее

Код


...
procedure TForm1.Timer1Timer(Sender: TObject);
begin
ballmove;
if InterSectRect(overlay,player.BoundsRect,ball.BoundsRect) then
begin
ball.spdy:=-ball.spdy;
ball.spdx:=-ball.spdx;
end;
end;
...

Это очень упрошенный способ рекашета шарика от платформы,но существует формула
arccos((x-0.5l)/0.5l), где l - общая длина платформы, а x - расстояние от левого края платформы до точки удара шарика. Но я немогупонять к чему прировнять arccos((x-0.5l)/0.5l). Получается нужно добавлять в класс шара переменную угла его отражения, и как тогда узнать х при столкновение.

Очень прошу ответить на все вопросы.Думаю уже неделю на ними совсем ничего не выходит.

ИванМ

Дата 14.3.2010, 22:12 (ссылка)

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

Загрузка ...

Эксперт

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

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

Цитата(MotokoK @ 14.3.2010, 20:29

)

Не выдавало ошибку при ведение мишки по форме до начала новой игры.А то ошибка потому что player еще не создан.

Код


if (player<>nil) and (player.parent=form1) then Player.Left:=Mouse.CursorPos.X-Form1.ClientOrigin.X;

Цитата(MotokoK @ 14.3.2010, 20:29

)

Убрать курсор мыши.

Код


ShowCursor(FALSE);

Цитата(MotokoK @ 14.3.2010, 20:29

)

3:Привязать скорость к перемешению мыши.Т.е чтобы пластика двигалась с заданой скоростью.

Проверить два последних события OnMouseMove и высчитать разницу в координатах. В зависимости от нее создавать нужную скорость.

Цитата(MotokoK @ 14.3.2010, 20:29

)

4:Чтобы не выезжала за правый край формы.

с помощью условий if (здесь вообще не понятно в чем сложность)

MotokoK

Дата 14.3.2010, 22:30 (ссылка)

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

Загрузка ...

Новичок

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

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

Цитата

можно пример?

Цитата

с помощью условий if (здесь вообще не понятно в чем сложность)

Понятно что с помощью if,я думала так

Код


if Mouse.CursPos > ClientWidth then Mouse.CursPos=ClientWidth+Player.Width.

или

Код


if player.left+Player.Width > clientwidth then Player.Left+player.width=ClientWidth;

Но это не подходит.

ИванМ

Дата 14.3.2010, 23:08 (ссылка)

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

Загрузка ...

Эксперт

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

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

Если чуть перефразировать

Код


if player.left+Player.Width > clientwidth then Player.Left+player.width=ClientWidth;

на такое:

Код


if player.left+Player.Width > clientwidth then Player.Left:=ClientWidth-player.width;

то должно подойти.

Это сообщение отредактировал(а) ИванМ - 14.3.2010, 23:10

MotokoK

Дата 17.3.2010, 21:53 (ссылка)

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

Загрузка ...

Новичок

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

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

Спасибо,так сработало.

Вот еще 2 вопроса.

Как сделать так чтобы курсор не выходил за форму во время игры?

И второй это про разрушения.

У меня неполучается динамически удалять обекты.Например в момент проигрыша или при попадании шарика в кирпич.Как реализовать разрушение объектов?

ИванМ

Дата 17.3.2010, 23:02 (ссылка)

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

Загрузка ...

Эксперт

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

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

Цитата(MotokoK @ 17.3.2010, 21:53

)

Как сделать так чтобы курсор не выходил за форму во время игры?

Код


var
  rect: TRect;
begin
  GetWindowRect(Handle, rect);
  ClipCursor(@rect);
end;

Цитата(MotokoK @ 17.3.2010, 21:53

)

У меня неполучается динамически удалять обекты.Например в момент проигрыша или при попадании шарика в кирпич.Как реализовать разрушение объектов?

Покажи свой код.

MotokoK

Дата 18.3.2010, 08:38 (ссылка)

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

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 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;
end;
for i:= 1 to 5 do   //Простой отскок шарика от кирпича(кирпичей 5 пока)
if InterSectRect(overlay,wall[i].BoundsRect,ball.BoundsRect) then
begin
ball.spdy:=-ball.spdy;
ball.spdx:=ball.spdx;
//тут шарик отскачил уже,wall[i] уничтожается,а игроку +N очков
//я думала что то вроде wall[i].destroy или через free но так не работает
end;
end;

Я думаю это ошибка сзвязаня с тем что это массив и обрабатывается в цикле потоу что уничтажение шарика у меня получилось и все работает

Код


...
if ball.Top+ball.Height+ball.spdy > clientheight then
begin
timer1.Enabled:=false;
ball.free;
createball;
timer1.Enabled:=true;
...
end;

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

Это сообщение отредактировал(а) MotokoK - 18.3.2010, 21:12

ИванМ

Дата 18.3.2010, 23:25 (ссылка)

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

Загрузка ...

Эксперт

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

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

MotokoK, как мне представляется, ошибка происходит из-за того, что после уничтожении элемента массива к этому массиву снова идет обращение в цикле, и в т.ч. к тому элементу, который уже удален. Поэтому самый простой способ это после удаления элемента присвоить ему значение nil, а потом в цикле проверять, равен ли он nil или нет, и в зависимости от этого работать с ним или нет.

Что касается правой части экрана, то можно, например, сделать ограничение курсора не до правого края формы, а отнять от этого значения еще длину игрока. Это не очень, конечно, грамотный подход, но зато самый простой.

Это сообщение отредактировал(а) ИванМ - 18.3.2010, 23:29

MotokoK

Дата 20.3.2010, 17:05 (ссылка)

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

Загрузка ...

Новичок

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

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

Цитата

Что касается правой части экрана, то можно, например, сделать ограничение курсора не до правого края формы, а отнять от этого значения еще длину игрока. Это не очень, конечно, грамотный подход, но зато самый простой.

Если имеется в виду вычитать ширину отсюда

Код


...
GetWindowRect(Handle, rect);
ClipCursor(@rect);
...

то я не понимаю как это сделать,не совпадают же типы.

А с этим

Код


...
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
...

что делать после else т.е если wall[i]=nil

Это сообщение отредактировал(а) MotokoK - 20.3.2010, 17:08

ИванМ

Дата 20.3.2010, 23:44 (ссылка)

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

Загрузка ...

Эксперт

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

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

Цитата(MotokoK @ 20.3.2010, 17:05

)

то я не понимаю как это сделать,не совпадают же типы.

Код


GetWindowRect(Handle, rect);
dec(rect.Right, width); //вместо width нужное значение
ClipCursor(@rect);

Цитата(MotokoK @ 20.3.2010, 17:05

)

что делать после else т.е если wall[i]=nil

Видимо ничего не делать

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 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »