Пара моих игр на делфи под OpenGL

[GoodDA]

Выкладываю пару игр с исходниками на делфи 7. Графика на OpenGL.
Может кому пригодятся.


скачать - Танк против жуков


Скачать - Бильярд



Скачать-Пинбол

[_PROGRAMM_]

Скажите, пожалуйста как реализовывались столкновения в пинболе? С удовольствием гляну исходники, но сейчас нет среды и подходящей ОС. Хотя, узнав алгоритм, интереснее будет самому реализовать.

[GoodDA]

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

//проверка пересечения шара и линии под номером N
procedure TForm1.Intersect(n: Integer);
var
  a, b, y, c: Extended;
begin
  if IntersectCircleLine(ball.x + ball.dx, ball.y + ball.dy, Diam / 2,
    lines[n].x1, lines[n].y1, lines[n].x2, lines[n].y2) then //если пересекаются то...
  begin
    a := GetAngle(0, 0, ball.dx, ball.dy);  //считаем  угол между шаром и осью ОХ
    b := GetAngle(lines[n].x1, lines[n].y1, lines[n].x2, lines[n].y2);  //считаем  угол линии  к  оси ОХ
    y := 2 * b - a + lines[n].ugol;  //считаем  угол отражения
    c := Sqrt(Sqr(ball.dx) + sqr(ball.dy)) + lines[n].power;  //получаем  энергию  и плюсуем  к  ней  энергию линии

    if c > max_speed then  //если  больше  максимальной то уменьшаем
      c := max_speed;
    if c < max_speed / 28 then  //а  это чтоб бесконечно недергался, если  меньше  то  останавливаем  шар
      c := 0;

    ball.dx := c * cos(y * pi / 180);  //высчитываем  приращения  для  движения
    ball.dy := c * sin(y * pi / 180);
    ball.x := ball.x + ball.dx;  //и сразу  двигаем  шар
    ball.y := ball.y + ball.dy;
//*******************************************
end;

//проверка пересечения линии и шара
function IntersectCircleLine(centerx, centery, radius, p1x, p1y, p2x, p2y:Extended): Boolean;
var  dx, dy, a, b, c, x01, x02, y01, y02: Extended;
begin
  radius := radius * 1.1;
  x01 := p1x - centerx;
  y01 := p1y - centery;
  x02 := p2x - centerx;
  y02 := p2y - centery;
  dx := x02 - x01;
  dy := y02 - y01;
  a := dx * dx + dy * dy;
  b := 2.0 * (x01 * dx + y01 * dy);
  c := x01 * x01 + y01 * y01 - radius * radius;
  if (-b < 0) then
    Result := (c < 0)
  else if (-b < (2.0 * a)) then
    Result := (4.0 * a * c - b * b < 0)
  else
    Result := (a + b + c < 0);
end;

//получение угла  между точками
function GetAngle(x1, y1, x2, y2: single): single;
begin
  GetAngle := (ArcTan2(y2 - y1, x2 - x1)) * 180 / pi;
end;

[GoodDA]

Добавил машинку, лего и нарды

http://teleprog.net/index.php/downlo...---opengl.html
http://teleprog.net/index.php/downlo...hi-opengl.html
http://teleprog.net/index.php/downlo...---delphi.html

[intmain]

Танк у тебя крутой получился.
Только, я ни как жуков убить не смог, пару раз раздавил и взорвался(

[GoodDA]

Жуков из далека надо расстреливать,
когда близко подьезжаешь к ним, они в защитный режим типа уходят

[MooNDeaR]

А детальки от лего сам делал? И кстати, было бы супер, если бы можно было камеру приближать и отдалять.

[GoodDA]

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

[intmain]

они в защитный режим типа уходят

Это ты баг на фичу перекурил?
Я по кругу стрелял все целы стоят, поехал давить.

[GoodDA]

Да нет, это так и задумывалось, чтоб игрок по дальним жукам стрелял, меткость развивал)