Игра TRON

TTronUser=class
public
  color:TColor;// цвет, которым будем рисовать этого юзера
  v:Tpoint; // вектор скорости
  Pts:array of TPoint; // массив точек ломаной
  ptCount:integer; // количество точек сейчас
  function CurP:TPoint; // точка где юзер сейчас. (последняя занесенная в массив точка)
  function NextP:TPoint; // следующая точка = CurP + V
  procedure AddPoint(P:TPoint);
  constructor Create;
  destructor Destroy; override;
end;
 
constructor TTronUser.Create;
begin
  inherited Create;
  setLength(pts,1000);
end;
 
destructor TTronUser.Destroy;
begin
  setLength(pts,0);
  inherited;
end;
 
procedure TTronUser.AddPoint(p:TPoint);
begin
  if ptCount=length(pts) then
    setLength(pts,length(pts)+100);
  pts[ptCount] := p;
  inc(ptCount);
end;
 
function TTronUser.CurP:TPoint;
begin
  if (ptCount>0) then
    result := pts[ptCount-1]
  else
    result:=point(0,0);
end;
 
function TTronUser.NextP:TPoint;
var p:TPoint;
begin
  p:=CurP;
  result.x:=P.x+V.x;
  result.y:=P.y+V.y;
end;

TForm1=class(TForm)
...
  pb1:TPointBox;
...
  user:array[0..1] of TTronUser;
  boom:TPoint; // точка пересечения
  GameOver:boolean;
end;
 
procedure TForm1.FormCreate(Sender:TObject);
begin
  user[0]:=TTronUserCreate;
  user[0].AddP(point(50,50));
  user[0].color := clRed;
  user[1]:=TTronUserCreate;
  user[1].AddP(point(70,50));
  user[1].color := clBlue;
end;
procedure TForm1.FormDestroy(Sender:TObject);
begin
  user[0].free;
  user[1].free;
end;
 
procedure TForm1.DrawUser(u:TTronUser);
var p:TPoint;
begin
  pb1.canvas.pen.color:=u.color;
  pb1.canvas.brush.color:=u.color;
  pb1.canvas.polyline(u.pts); // след
  p:=user.CurP;
  pb1.canvas.ellipse(p.x-2, p.y-2, p.x+2, p.y+2); // тек. положение
end;
 
procedure TForm1.pb1Paint(Sender:TObject);
var i:integer;
begin
  for i:=0 to 1 do
    drawUser(i);
 if (boom.x<>0)and(boom.y<>0) then
 begin
   //нарисовать бум в точке Boom
 end;
end;
 
function TForm1.LineIntersect(u1,u2:TTronUser; var p:TPoint):boolean;
begin
  // тут проверяется пересечение последнего отрезка юзера 1 со всеми отрезками юзера2
  // если есть, найденная точка передается в P
  // result =true/false - найдено или нет
end;
 
procedure TForm1. processNewStep;
begin
 
  if LineIntersect(user[0],user[1], boom) then
  begin
    // проиграл User[0]
     GameOver := true;
  end;
  if LineIntersect(user[1],user[0], boom) then
  begin
    // проиграл User[1]
     GameOver := true;
  end;
 
end;
 
procedure TForm1.checkKeyboard();
begin
  // чисто например...
  if GetAsyncKeyState(...) then
     user[0].v.y:=5;
  // прочитать про использование GetAsyncKeyState
end;
 
procedure TForm1.TimerTimer(Sender:TObject);
begin
  if not GameOver then
  begin
    checkKeyboard(); // здесь может измениться вектор скорости в зависимости от нажатых клавиш
    processNewStep(); // расчет след. шага
  end;
  pb1.invalidate;
end;