создаю игру в Delphi кто может помогайте

[Ghennadiy]

это AS3 но может поможет

function moveTowards(pX, pY):void {
var dir:int = Math.atan2(pY - y,pX - x) * 180 / Math.PI;
if (Math.sqrt(Math.pow(x - pX, 2) + Math.pow(y - pY, 2)) > iSpeed) {
x += Math.round(Math.cos(dir * Math.PI/180) * iSpeed);
y += Math.round(Math.sin(dir * Math.PI/180) * iSpeed);
} else {
x = pX;
y = pY;
}
}

[Ponkole]

Получается тоже самое только Pi/180 входит в квадрате...из за этого персонаж передвигается медленно

[Ghennadiy]

в чем суть проблемы? скорость движения объекта?

[Asker13]

Ponkole, извини, я перепутал, перевод в радианы не нужен, то есть можно смело убирать * Pi / 180, потому как ArcTan2 сразу в радианах значение возвращает...

[Ponkole]

Ну ладно ниче сейчас подругому попробую.

[Asker13]

Нет, нет. Код, приведённый мной, работает, только убери Pi / 180

[Ponkole]

Неа не работает
(переделанный чуть чуть исходник от Beermonza)

[Ponkole]

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

[Ponkole]

Еще вопросы


Собрался вроде как написать бродилку, тут возникла проблемка: не поиму как лучше организовать данные - я желаю чтобы персонажи поварачивались примерно каждые 10* (т. е. примерно 36 картинокесли каждое изображение хранить отдельно) или все таки в этом случпе применить работу с 3 д графикой.

[ImmortalAlexSan]

Ponkole, прохождение игры заключается в том, чтобы кликнуть по кнопке новая игра, моя змейка пробежит, мне выкинет два сообщения с текстом "2" и "player is winner" и больше я не смогу сыграть, не перезапустив игру, я автоматически выигрываю и игрального поля не появляется. Исправляйте