library MoveSys

endlibrary

library MoveSys

struct vector
    real x
    real y 
    real z
endstruct

endlibrary

library MoveSys

struct vector
    real x
    real y 
    real z
    // В метод передается еще переменная this, которая позволяет обращаться к собственным переменным
    // пример this.x = 0 
    // Если поставить перед методом "static", то в метод не передастся переменная this
    static method GetFrom2Locs takes real ax,real ay,real az,real bx,real by,real bz returns vector
        local vector v = vector.create() // таким образом создается вектор
            // заполняем переменные, созданного вектора
            set v.x = bx-ax
            set v.y = by-ay
            set v.z = bz-az
            // Возращаем вектор, теперь, чтобы создать вектор можно написать vector.GetFrom2Locs(...)
            return v
    endmethod
    // Сумма векторов, допустим у вас есть 2 вектора - a.Summ(b,1) сложит их
    method Summ takes vector a returns nothing
        set this.x = this.x + a.x
        set this.y = this.y + a.y
        set this.z = this.z + a.z
    endmethod  
    // умножает вектор на число
    // пример a.Multiply(2) умножит вектор а на 2
    method Multiply takes real k returns nothing
        set this.x = k*this.x
        set this.y = k*this.y 
        set this.z = k*this.z 
    endmethod
    // Вычисляет длину вектора
    method Module takes nothing returns real
        return SquareRoot(this.x*this.x+this.y*this.y+this.z*this.z)
    endmethod
    // Нормирование ветора
    method Norm takes nothing returns nothing
    local real m = SquareRoot(this.x*this.x+this.y*this.y+this.z*this.z)
        set this.x = this.x/m
        set this.y = this.y/m
        set this.z = this.z/m
    endmethod
endstruct

endlibrary

// Обзовем новую структуру "телом"
struct body
    unit u // Его будем двигать
    real m // масса юнита
    vector v // вектор скорость
    vector a // ускорение
    vector f // сила, приложенная к телу
    // метод создания тела с инициализированием переменных
    // пример создания тела: local body b = body.Create(unit,mass)
    // не путай с  body.create() это разные функции
    static method Create takes unit u, real mass returns body
        local body b = body.create()
            set b.u = u
            set b.m = mass
            set b.v = vector.create()
            set b.a = vector.create()
            set b.f = vector.create()
            // Это нужно для изменения координаты z
            call UnitAddAbility(u,'Amrf')
            call UnitRemoveAbility(u,'Amrf')  
        return b
    endmethod
    // уничтожение тела, когда оно больше не нужно
    method Destroy takes nothing returns nothing
        call this.v.destroy()
        call this.a.destroy()
        call this.f.destroy()
        call this.destroy()
    endmethod
endstruct

Основная часть движка

set x = …
set y = …
set z = …
call SetUnitX(u,x)
call SetUnitY(u,y)
call SetUnitFlyHeight(u,z,0)

call SetUnitX(u,GetUnitX(u)+dx)
call SetUnitY(u, GetUnitY(u)+dy)
call SetUnitFlyHeight(u, GetUnitFlyHeight(u)+dz,0)

globals
    body array mvs_Sb [1000]
    integer mvs_si = -1 // при первой записи, элемент запишется в ячейку 0
endglobals

library MoveSys initializer IniMove // Здесь объявляется функция-инициализатор

…

private function Engine takes nothing returns nothing

endfunction

function IniMove takes nothing returns nothing
        // нам таймер в глобалку сохранять незачем, так как он работает всю игру
        // период 0.025 выбран в результате практики, при 0.05 видны "рывки"
        call TimerStart(CreateTimer(), 0.025, true, function Engine)
endfunction

endlibrary

private function Engine takes nothing returns nothing
    local integer i = 0
    local body b
    loop
        exitwhen i > mvs_si
            if mvs_Sb__ != 0 then
                set b = mvs_Sb__ // для читаемости кода
                // 
                // Считаем ускорение тела и обнуляем силу, чтобы она не накапливалась
		if b.m > 0 then  //  для защиты системы от деления на нуль
                	set b.a.x = b.f.x/b.m
			set b.a.y = b.f.y/b.m
                	set b.a.z = b.f.z/b.m
		endif
                set b.f.x = 0
                set b.f.y = 0
                set b.f.z = 0
                // Теперь считаем скорость и перерасчитываем ее при изменении координат в точка/с
                set b.v.x = b.v.x + b.a.x
                set b.v.y = b.v.y + b.a.y
                set b.v.z = b.v.z + b.a.z
                // Финальная часть - передвигаем юнит
                call SetUnitX(b.u, GetUnitX(b.u) + b.v.x*0.025)
                call SetUnitY(b.u, GetUnitY(b.u) + b.v.y*0.025)
                call SetUnitFlyHeight(b.u, GetUnitFlyHeight(b.u) + b.v.z*0.025,0)
            else // Опа! Нашли удаленный с помощью body.Remove() элемент массива. Приговор: удалить и закрыть дырку последним элементом.
                set mvs_Sb__ = mvs_Sb[mvs_si]
                set mvs_Sb[mvs_si] = 0
                set mvs_si = mvs_si - 1
                set i = i - 1 // иначе тело, которым мы заткнули дырку, не обработается за это прохождение
				//  цикла, то есть пропустит квант времени
            endif
        set i = i + 1
    endloop
endfunction