XGM Forum - Ближайший юнит

Код:

globals
    group GG = CreateGroup()
    //
    filterfunc NearestUnitFilter
    real NearestX
    real NearestY
    unit NearestUnit = null
    real NearestDistance
    unit NearestIgnor
endglobals

function GetNearestUnit_Filter takes nothing returns boolean
    local unit u = GetFilterUnit()
    local real x = GetUnitX(u)-NearestX
    local real y = GetUnitY(u)-NearestY
    local real dis = x*x+y*y
    if dis < NearestDistance and u != NearestIgnor then
        set NearestUnit = u
        set NearestDistance = dis
    endif
    set u = null
    return false
endfunction

function GetNearestUnit takes real x, real y, real maxradius, unit ignor returns unit
    set NearestX = x
    set NearestY = Y
    set NearestDistance = maxradius*maxradius
    set NearestIgnor = ignor
    set NearestUnit = null
    call GroupEnumUnitsInRange(GG, x, y, maxradius, NearestUnitFilter)
    return NearestUnit
endfunction

function Init takes nothing returns nothing
    set NearestUnitFilter = Filter(function GetNearestUnit_Filter)
endfunction

Jon добавил:
если игнор-юнит точно расположен по указаному x и y, то попробуй так

» code

Код:

globals
    group GG = CreateGroup()
    //
    filterfunc NearestUnitFilter
    real NearestX
    real NearestY
    unit NearestUnit = null
    real NearestDistance
endglobals

function GetNearestUnit_Filter takes nothing returns boolean
    local unit u = GetFilterUnit()
    local real x = GetUnitX(u)-NearestX
    local real y = GetUnitY(u)-NearestY
    local real dis = x*x+y*y
    if dis < NearestDistance and dis != 0 then
        set NearestUnit = u
        set NearestDistance = dis
    endif
    set u = null
    return false
endfunction

function GetNearestUnit takes real x, real y, real maxradius returns unit
    set NearestX = x
    set NearestY = Y
    set NearestDistance = maxradius*maxradius
    call GroupEnumUnitsInRange(GG, x, y, maxradius, NearestUnitFilter)
    return NearestUnit
endfunction

function Init takes nothing returns nothing
    set NearestUnitFilter = Filter(function GetNearestUnit_Filter)
endfunction

если не получится юзай что написал выше

Ваши права в разделе

Вы не можете создавать темы

Вы не можете отвечать на сообщения

Вы не можете прикреплять файлы

Вы можете скачивать файлы

BB-коды Вкл.

Смайлики Вкл.

[IMG] код Вкл.

HTML код Выкл.

Лось offline Опыт: 7,223 Активность:	В РБ возвращяется в первом ретурне, а второй чтобы WE не ругался, он некогда не выполняется.
26.10.2008, 17:30	#21 +0/−0 Профиль \| Приват \| Поиск \| Цитата \| IP: Записан

zer0ne offline Опыт: 11,219 Активность:	я воспользовался функцией Jonа, но у меня GetNearestUnit принимает x и y одного юнита, который кастует заклинание, как мне сделать, что бы на этого юнита функция не распространялась?
29.10.2008, 20:02	#22 +0/−0 Профиль \| Приват \| Поиск \| Цитата \| IP: Записан

zer0ne offline Опыт: 11,219 Активность:	Jon, спасибо, а можно еще сделать что бы распространялось только на мертвых юнитов?
29.10.2008, 21:23	#24 +0/−0 Профиль \| Приват \| Поиск \| Цитата \| IP: Записан

J expert offline Опыт: 48,447 Активность:	Код: `if dis < NearestDistance and u != NearestIgnor then` вот в этй строчку добовляй все условия через and, над юнитом u
29.10.2008, 21:24	#25 +0/−0 Профиль \| Приват \| Поиск \| Цитата \| IP: Записан

zer0ne offline Опыт: 11,219 Активность:	ага понял, все спасибо!
29.10.2008, 21:26	#26 +0/−0 Профиль \| Приват \| Поиск \| Цитата \| IP: Записан

Опции темы	Поиск в этой теме
Версия для печати	Поиск в этой теме: Расширенный поиск