Помогите доделать теннис с примерами

[nanobond]

Сообщение от DeKot

Классика... Клиника...
Да никто тебе /Вам не поможет окромя себя.
Попробуй вот такой метод - 1.запустил код, откомпилровал. посмотрел.
2. Изменил одну переменную ( одну), выполнил п.1.
3. Проанализируй, что же изменилось.
4.Вернул все в обрат и убедился , что работает по прежнему.
5.Изменил другую переменную - п.1, 3, 4.
И так далее.
Если не получается - " парашютный спорт не для Вас".

Предлагаешь методом тыка ? Так я уже пробовал написать так пока ничего не получается тут с головой подходить надо ...

[Вадим Буренков]

тут с головой подходить надо ...

Вот именно что с головой. И вообще что сложного сделать отлетание шарика от доски? Когда я делал свою первую игру арканойд меня никто не учил и интернета не было.
Идея коллизии(столкновения обьектов) в том, что если координаты обьекта 1 заходят в координаты обьекта 2 то произошло столкновение. Вот процедура обработки столкновений 2 прямоугольных объектов которая вызывается в таймере:

Function CoordsCollision(X1,X2,Xpix:integer;Y1,Y2,Xpix2:integer):integer;
{Параметры:
X1,Y1 - координаты квадрата 1
X2,Y2 - координаты квадрата 2
Xpix - ширина квадрата 1
Xpix2 - ширина квадрата 2
Возвращаемые значения:
1 - пересечение по X
2 - пересечение по Y
3 - пересечения по X и Y (столкновение)
0 - нет пересечкний и столкновений}
begin
Result:=0;
if (X1+Xpix>X2) and (X1<X2+Xpix) then Result:=2;
if (Y1+Xpix2>Y2) and (Y1<Y2+Xpix2) then Result:=1;
if (X1+Xpix>X2) and (X1<X2+Xpix) and (Y1+Xpix2>Y2) and (Y1<Y2+Xpix2)  then Result:=3;
end;

[nanobond]

Сообщение от Вадим Буренков

Вот именно что с головой. И вообще что сложного сделать отлетание шарика от доски? Когда я делал свою первую игру арканойд меня никто не учил и интернета не было.
Идея коллизии(столкновения обьектов) в том, что если координаты обьекта 1 заходят в координаты обьекта 2 то произошло столкновение. Вот процедура обработки столкновений 2 прямоугольных объектов которая вызывается в таймере:

Function CoordsCollision(X1,X2,Xpix:integer;Y1,Y2,Xpix2:integer):integer;
{Параметры:
X1,Y1 - координаты квадрата 1
X2,Y2 - координаты квадрата 2
Xpix - ширина квадрата 1
Xpix2 - ширина квадрата 2
Возвращаемые значения:
1 - пересечение по X
2 - пересечение по Y
3 - пересечения по X и Y (столкновение)
0 - нет пересечкний и столкновений}
begin
Result:=0;
if (X1+Xpix>X2) and (X1<X2+Xpix) then Result:=2;
if (Y1+Xpix2>Y2) and (Y1<Y2+Xpix2) then Result:=1;
if (X1+Xpix>X2) and (X1<X2+Xpix) and (Y1+Xpix2>Y2) and (Y1<Y2+Xpix2)  then Result:=3;
end;

Вроде бы половина понял половина нет. x1 и y1 какие именно координаты тоесть на что их менять? Если xpix ширина то это допустим image1.width так ? А далее оперировать с значением Result .

[Вадим Буренков]

Вообще когда делаешь игровой обьект (в твоей игре шарик и палка) то ты должен знать его размеры и положение в системе координат. К примеру есть изображение Image c разрешением 50x50 пикселей. Тогда в системе координат оно выглядит так как на рисунке и его вершины в координатах равны
1)X,Y
2)X+50,Y
3)X+50,Y+50
4)X+Y+50
Данная функция по этим координатам высчитывает (алгебра средних классов, координатная плоскость) находится ли объект 1 с координатами X1 и Y1 и сторонами Xpix (на примере Xpix=50).
Конкретно использовать ее очень легко. Нужно найти координаты объектов и ихширину а дальше подставить в функцию. Если она возвращает 3 то объекты пересеклись.

[nanobond]

Сообщение от Вадим Буренков

Вообще когда делаешь игровой обьект (в твоей игре шарик и палка) то ты должен знать его размеры и положение в системе координат. К примеру есть изображение Image c разрешением 50x50 пикселей. Тогда в системе координат оно выглядит так как на рисунке и его вершины в координатах равны
1)X,Y
2)X+50,Y
3)X+50,Y+50
4)X+Y+50
Данная функция по этим координатам высчитывает (алгебра средних классов, координатная плоскость) находится ли объект 1 с координатами X1 и Y1 и сторонами Xpix (на примере Xpix=50).
Конкретно использовать ее очень легко. Нужно найти координаты объектов и ихширину а дальше подставить в функцию. Если она возвращает 3 то объекты пересеклись.

А показать на примере моего кода можете? Просто без примера мне очень трудно разобраться.

[mutabor]

nanobond, Давали же ссылку на тему с теннисом, там два простейших исходника, мой и Декота, с пояснениями, неужели мало?

[nanobond]

Сообщение от mutabor

nanobond, Давали же ссылку на тему с теннисом, там два простейших исходника, мой и Декота, с пояснениями, неужели мало?

Не смог с ним разобраться ...

[mutabor]

Сообщение от nanobond

Не смог с ним разобраться ...

С чьим именно?

[nanobond]

Сообщение от mutabor

С чьим именно?

Можно опять ссылки дать ? Хотя я уверен что ничего не пойму.

[Вадим Буренков]

Уже публиковали на первой странице:

В атаче в добавок сам проект.
Вложения
Тип файла: rar TENNIS.rar (5.6 Кб, 3 просмотров)