Как узнать угол для движения обьекта по координатам мышки

[Armageddets]

Добрый день, Уважаемые эксперты. Возникла необходимость создать игру, наподобие agar.io. Задача игры состоит в том. Что у нас есть круг (шар). Мы ним удолжны управлять в пространстве мышкой. В зависимости от тго где стоит мышь относительно шара, туда шар и движется. Я пробовал сделать чтобы шар просто сдвигался по координатам икс и игрек пока не достигнет координат мыши. Но в таком случае шар может двигаться только по вертикали, горизонтали или диагоналям.

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

Последнее к чему я пришел было следующим:

Angle:=Arctan ( ((Ball.X-MX) - (Mouse.CursorPos.X-Form1.Left)) div ((Ball.Y-MY) - (Mouse.CursorPos.Y-Form1.Top-25)) );

  Ball.Y:=round(Ball.Y+Sin(DegToRad(Angle ))*5);
  Ball.X:=round(Ball.X-Cos(DegToRad(Angle ))*5);

То есть сначала мы должны узнать угол. Но делфи выдает ошибку на Arctan, мол ем должны передаваться данные типа Extended. У меня же целые числа. Хотя я пробовал сделать переменные типа Real. В этом случае ошиба уже была из за перевода градусов DegToRad.

Ball.X, Ball.Y - координаты шара
MX, MY - это скроллинг карты (на него можно не обращать внимание).

Помогите советом, как найти угол? Или как по другому может можно реализовать подобное управление? Заранее спасибо всем откливнушимся.

[type_Oleg]

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

... Но делфи выдает ошибку на Arctan, мол ем должны передаваться данные типа Extended. ..

Ничего подобного
PS : Height, Width - высота и ширина формы Form1. Тоже целые.

[evg_m]

пройти из т. (x0,y0) в т.(x1,y1) по диагонали за N шагов.
положение на шаге k (x,y) при k<N

x:=x0 +trunc((x1-x0)/N*k);
y:=y0 +trunc((y1-y0)/N*k);

при k=N x:=x1; y:=y1;// чтобы не промахнуться на всякий случай

число шагов (время) требуемое для прохождения пути (расстояние между двумя точками) с заданной скоростью L (расстояние проходимое за один шаг).

N :=trunc(SQRT((x1-x0)*(x1-x0)+(y1-y0)*(y1-y0))/L)+ 1{на всякий случай будем идти чуть-чуть медленней} ;

[Armageddets]

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

В таймере код у меня получился такой:

N :=trunc(SQRT(((Mouse.CursorPos.X-Form1.Left)-Ball.X)*((Mouse.CursorPos.X-Form1.Left)-Ball.X)+((Mouse.CursorPos.Y-Form1.Top-25)-Ball.Y)*((Mouse.CursorPos.Y-Form1.Top-25)-Ball.Y))/5)+ 1;
Ball.X:=(Ball.X) +trunc( ((Mouse.CursorPos.X-Form1.Left) - (Ball.X)) /N*5) -MX;
Ball.Y:=(Ball.Y) +trunc( ((Mouse.CursorPos.Y-Form1.Top-25) - (Ball.Y)) /N*5) -MY;

А вот весь проект:
Заготовка для игры

[phomm]

Виталий Armageddets, я гляжу предусмотрительно запоролили архив, чтобы посекурнее было ))
Вообще, стоит прочитать и понять статью http://habrahabr.ru/post/131931/
да и научиться уже получше код писать, даже если это тестовый проект, почему области все жёсткие (меджики) и привязаны к форм1 ? Где декомпозиция ?

[Armageddets]

Ой извиняюсь. Пароль 1. Просто без пароля на архив фалообменик считал мою программу вирусов из за екзе файла. Уровень программирования у меня не высок в плане классов, декомпозиций и так далее. Все стараюсь по простому делать.