Перемещение тела в GraphABC по клику мыши

@EzEtoRIc · Регистрация: 29.03.2018

Студворк — интернет-сервис помощи студентам

Имеется персонаж, который перемещается по клику правой кнопки мыши. При постановки множества целей, куда должен пройти персонаж, он идет последовательно (повторное нажатие правой кнопки мыши не прерывает его ход). Нужно чтобы персонаж при повторном клике шел на новый пункт назначения, а не последовательно на старый и потом уже на новый пункт.
Код ниже.

Кликните здесь для просмотра всего текста

Pascal

uses graphabc, abcobjects, events;
 
var
  /// координаты персонажа
  cx, cy: integer;
  /// координаты нажатия кнопки мыши
  mbx, mby: integer;
  /// тело гл. персонажа
  body: circleabc;
 
procedure characterProrisovka;
begin
  body.MoveTo(cx - trunc(windowheight / 20), cy - trunc(windowheight / 20));
end;
 
procedure MouseDown(mbx, mby, mb: integer);
begin
  MoveTo(mbx, mby);
  if mb = 2 then 
  begin
    /// перемещение по диагоналям
    if (mbx > cx) and (mby > cy) then while (mbx - trunc(windowheight / 49) > cx) and (mby - trunc(windowheight / 49) > cy) do begin sleep(22);cx += trunc(windowheight / 50);cy += trunc(windowheight / 50);characterProrisovka; end;
    if (mbx > cx) and (mby < cy) then while (mbx - trunc(windowheight / 49) > cx) and (mby + trunc(windowheight / 49) < cy) do begin sleep(22);cx += trunc(windowheight / 50);cy -= trunc(windowheight / 50);characterProrisovka; end;
    if (mbx < cx) and (mby > cy) then while (mbx + trunc(windowheight / 49) < cx) and (mby - trunc(windowheight / 49) > cy) do begin sleep(22);cx -= trunc(windowheight / 50);cy += trunc(windowheight / 50);characterProrisovka; end;
    if (mbx < cx) and (mby < cy) then while (mbx + trunc(windowheight / 49) < cx) and (mby + trunc(windowheight / 49) < cy) do begin sleep(22);cx -= trunc(windowheight / 50);cy -= trunc(windowheight / 50);characterProrisovka; end;
    
    /// перемещение по горизонтали и вертикали соответственно
    if (mbx > cx) then while (mbx - trunc(windowheight / 49) > cx) do begin sleep(22);cx += trunc(windowheight / 50);characterProrisovka; end;
    if (mbx < cx) then while (mbx + trunc(windowheight / 49) < cx) do begin sleep(22);cx -= trunc(windowheight / 50);characterProrisovka; end;
    if (mby > cy) then while (mby - trunc(windowheight / 49) > cy) do begin sleep(22);cy += trunc(windowheight / 50);characterProrisovka; end;
    if (mby < cy) then while (mby + trunc(windowheight / 49) < cy) do begin sleep(22);cy -= trunc(windowheight / 50);characterProrisovka; end;
  end;
end;
 
begin
  cx := 500;
  cy := 500;
  window.SetSize(1000,700);
  window.CenterOnScreen;
  body := new CircleABC(cx, cy, 30, clgreen);
  body.BorderWidth := 3;
  onmousedown := MouseDown;
end.

P.S. скорость перемещения персонажа завязано на высоту окна

@JuriiMW · 30.03.2018, 06:51

Pascal

uses GraphABC, Timers;
 
type
  tAnime = class
    x, y : Real; /// Координаты центра и радиус, а так же размер шага при движении
    r, stepSize : Integer; /// Радиус и размер шага при движении
    nx, ny : Real; /// Координаты, к которым движемся
    dx, dy : Real; /// Приращение, на которое изменяются координаты при каждом шаге
    toGo : Integer; /// Количество оставшихся шагов 
    bw : Integer; /// Толщина границы
    clr, bclr : Color; /// Цвет заполнения и границы
    
    constructor (x_, y_, r_, s_, bw_ : Integer; clr_, bclr_ : Color);
    begin
      x := x_; y := y_; r := r_; stepSize := s_; bw := bw_; clr := clr_; bclr := bclr_;
    end;
    
    procedure Show;
    begin
      Pen.Color := bclr; Pen.Width := bw; Brush.Color := clr;
      Circle(Round(x), Round(y), r);
    end;
    
    procedure MoveTo(x_, y_ : Integer);
    begin
      nx := x_; ny := y_;
      var steps := sqrt((x-nx)*(x-nx)+(y-ny)*(y-ny))/stepSize;
      (dx,dy,toGo) := ((nx-x)/steps,(ny-y)/steps,Trunc(steps));
    end;
    
    procedure Move;
    begin
      if abs(x-nx) + abs(y-ny) = 0 then Exit; // Уже пришли
      toGo -= 1;
      if toGo = 0 then // Последний шаг. Просто становимся в координаты цели.
        (x,y) := (nx,ny)
      else
        (x,y) := (x+dx,y+dy);
    end;
  end;
 
var
  body : tAnime;
  
procedure tickTimer;
begin
  Window.Clear;
  body.Move;
  body.Show;
  Redraw;
end;
 
procedure MouseDown(x, y, m : integer);
begin
  body.MoveTo(x, y);
end;
 
var
  timer := new Timer(5, tickTimer);
 
begin
  window.SetSize(1000,700);
  window.CenterOnScreen;
  LockDrawing;
 
  OnMouseDown := MouseDown;
 
  body := new tAnime(500, 500, 30, 7, 2, clGreen, clDarkGreen);
 
  timer.Enabled := True;
end.

Опции темы