Редактор объектов

Кастом код

globals
location L = Location(0.00,0.00)
hashtable HT = InitHashtable()
group G = CreateGroup()
endglobals

function GetLocZ takes real x, real y returns real
    call MoveLocation(L,x,y)
    return GetLocationZ(L)
endfunction

function Boom takes unit u returns nothing
    local real dmg = GetUnitDefaultMoveSpeed(u)
    //Высчитываем урон
    call GroupRemoveUnit(G,u)
    call FlushChildHashtable(HT,GetHandleId(u))
    //Тут должна быть функция по нанесению урона
    call KillUnit(u)
endfunction

function MoveUnit takes unit u, real x, real y, real z returns nothing
    if x != 0.00 then
    call SetUnitX(u,x)
    endif
    if y != 0.00 then
    call SetUnitY(u,y)
    endif
    if z != 0.00 then
    call SetUnitFlyHeight(u,z,0.00)
    endif
endfunction

Создание дамми юнита

function Trig_CreateRocket_Conditions takes nothing returns boolean
    return GetUnitTypeId(GetTriggerUnit()) == 'Hpal'
endfunction

function Trig_CreateRocket_Actions takes nothing returns nothing

endfunction

function InitTrig_RocketCreate takes nothing returns nothing
    set gg_trg_RocketCreate = CreateTrigger(  )
    call TriggerRegisterAnyUnitEventBJ( gg_trg_RocketCreate, EVENT_PLAYER_UNIT_ISSUED_TARGET_ORDER )
    call TriggerRegisterAnyUnitEventBJ( gg_trg_RocketCreate, EVENT_PLAYER_UNIT_ISSUED_POINT_ORDER )
    call TriggerRegisterAnyUnitEventBJ( gg_trg_RocketCreate, EVENT_PLAYER_UNIT_ISSUED_ORDER )
    call TriggerAddCondition( gg_trg_RocketCreate, Condition( function Trig_CreateRocket_Conditions ) )
    call TriggerAddAction( gg_trg_RocketCreate, function Trig_CreateRocket_Actions )
endfunction

    local real xu = GetUnitX(GetTriggerUnit())
    local real yu = GetUnitY(GetTriggerUnit())
    local real zu = GetLocZ(xu,yu)

    local real xt = GetLocationX(GetOrderPointLoc())
    local real yt = GetLocationY(GetOrderPointLoc())
    local real zt = GetLocZ(xt,yt)
    //Вот мы имеет координаты точки в пространстве
    local real a  = Atan2(yt-yu,xt-xu)
    //Направление
    local real xr = xu+50.00*Cos(a)
    local real yr = yu+50.00*Sin(a)
    local real zr = ((zu-GetLocZ(xr,yr))+60.00)+GetLocZ(xr,yr)

    local real d  = SquareRoot(((xt-xr)*(xt-xr))+((yt-yr)*(yt-yr))+((zt-zr)*(zt-zr)))

    local real xs = xu-(xu+50.00*Cos(a))
    local real ys = yu-(yu+50.00*Sin(a))
    local real zs = (zr-zt)/(d/50.00)

    local unit r  = CreateUnit(GetTriggerPlayer(),'u000',xr,yr,bj_RADTODEG*a)

    call SetUnitFlyHeight(r,zr-GetLocZ(xr,yr),0.00)
    call GroupAddUnit(G,r)
    call SaveReal(HT,GetHandleId(r),1,xs)
    call SaveReal(HT,GetHandleId(r),2,ys)
    call SaveReal(HT,GetHandleId(r),3,zs)
    set r = null

Передвижение

function Bull_Move_G takes nothing returns nothing

endfunction

function Bull_move takes nothing returns nothing
    call ForGroup(G,function Bull_Move_G)
endfunction

function InitTrig_BullMove takes nothing returns nothing
    local trigger t = CreateTrigger()
    call TriggerRegisterTimerEvent(t,0.025,true)
    call TriggerAddAction(t,function Bull_move)
    set t = null
endfunction

    local unit u   = GetEnumUnit()
    local real xu  = GetUnitX(u)
    local real yu  = GetUnitY(u)
    local real zu  = GetUnitFlyHeight(u)+GetLocZ(xu,yu)
    //Координаты юнита в пространстве
    local real xs  = LoadReal(HT,GetHandleId(u),1)
    local real ys  = LoadReal(HT,GetHandleId(u),2)
    local real zs  = LoadReal(HT,GetHandleId(u),3)
    //Шаги юнита в пространстве

    local real xun = xu-xs
    local real yun = yu-ys
    local real zun = ((zu-zs)-GetLocZ(xun,yun))
    //Вычесляем положение юнита по осям X и Y, и динамически вычесляем следущее положение по оси Z

    if zun <= 0.00 then
        call Boom(u)
    else
        call MoveUnit(u,xun,yun,zun)
    endif
    set u = null