offline
Опыт:
410
Активность:
|
Nerevar, спасибо еще раз (:
вопросов вроде больше нет - всё работает.
тему можно закрывать.
для поисковика в будущем:
» работоспособность кода
function test_Func001A takes nothing returns nothing
local real array r
local integer h = LoadInteger(udg_hash, 80, 1)
local unit u = LoadUnitHandle(udg_hash, h, 1)
local unit c1 = LoadUnitHandle(udg_hash, 52, 1)
local unit c2 = LoadUnitHandle(udg_hash, 52, 2)
local unit c3 = LoadUnitHandle(udg_hash, 52, 3)
local unit c4 = LoadUnitHandle(udg_hash, 52, 4)
local location locu = GetUnitLoc(u)
local location locc1 = GetUnitLoc(c1)
local location locc2 = GetUnitLoc(c2)
local location locc3 = GetUnitLoc(c3)
local location locc4 = GetUnitLoc(c4)
local effect e
local integer array n
local integer i=1
local integer ii=21
if(GetEnumUnit()!=c1)and(GetEnumUnit()!=c2)and(GetEnumUnit()!=c3)and(GetEnumUnit()!=c4)and(GetEnumUnit()!=u) then
set r[1] = RAbsBJ(AngleBetweenPoints(locu, GetUnitLoc(GetEnumUnit())))
set r[11] = RAbsBJ(AngleBetweenPoints(locu, locc1))
set r[31] = RAbsBJ(AngleBetweenPoints(locc1,locu))
set r[41] = DistanceBetweenPoints(locc1, locu)
set r[12] = RAbsBJ(AngleBetweenPoints(locu, locc2))
set r[32] = RAbsBJ(AngleBetweenPoints(locc2, GetUnitLoc(GetEnumUnit())))
set r[42] = DistanceBetweenPoints(locc2, locu)
set r[13] = RAbsBJ(AngleBetweenPoints(locu, locc3))
set r[33] = RAbsBJ(AngleBetweenPoints(locc3, GetUnitLoc(GetEnumUnit())))
set r[43] = DistanceBetweenPoints(locc3, locu)
set r[14] = RAbsBJ(AngleBetweenPoints(locu, locc4))
set r[34] = RAbsBJ(AngleBetweenPoints(locc4, GetUnitLoc(GetEnumUnit())))
set r[44] = DistanceBetweenPoints(locc4, locu)
if (((AngleBetweenPoints(locu,locc1)-AngleBetweenPoints(locu,GetUnitLoc(GetEnumUnit())))<=5.)and((AngleBetweenPoints(locu,locc1)-AngleBetweenPoints(locu,GetUnitLoc(GetEnumUnit())))>=-5.))and(DistanceBetweenPoints(GetUnitLoc(GetEnumUnit()),locu)<=DistanceBetweenPoints(locc1,locu))then
set e = AddSpecialEffectTargetUnitBJ("origin", GetEnumUnit(), "Abilities\\Spells\\Human\\Thunderclap\\ThunderClapCaster.mdl")
elseif (((AngleBetweenPoints(locu,locc2)-AngleBetweenPoints(locu,GetUnitLoc(GetEnumUnit())))<=5.)and((AngleBetweenPoints(locu,locc2)-AngleBetweenPoints(locu,GetUnitLoc(GetEnumUnit())))>=-5.))and(DistanceBetweenPoints(GetUnitLoc(GetEnumUnit()),locu)<=DistanceBetweenPoints(locc2,locu))then
set e = AddSpecialEffectTargetUnitBJ("origin", GetEnumUnit(), "Abilities\\Spells\\Demon\\DarkPortal\\DarkPortalTarget.mdl")
elseif (((AngleBetweenPoints(locu,locc3)-AngleBetweenPoints(locu,GetUnitLoc(GetEnumUnit())))<=5.)and((AngleBetweenPoints(locu,locc3)-AngleBetweenPoints(locu,GetUnitLoc(GetEnumUnit())))>=-5.))and(DistanceBetweenPoints(GetUnitLoc(GetEnumUnit()),locu)<=DistanceBetweenPoints(locc3,locu))then
set e = AddSpecialEffectTargetUnitBJ("origin", GetEnumUnit(), "Abilities\\Spells\\Items\\AIsm\\AIsmTarget.mdl")
elseif (((AngleBetweenPoints(locu,locc4)-AngleBetweenPoints(locu,GetUnitLoc(GetEnumUnit())))<=5.)and((AngleBetweenPoints(locu,locc4)-AngleBetweenPoints(locu,GetUnitLoc(GetEnumUnit())))>=-5.))and(DistanceBetweenPoints(GetUnitLoc(GetEnumUnit()),locu)<=DistanceBetweenPoints(locc4,locu))then
set e = AddSpecialEffectTargetUnitBJ("origin", GetEnumUnit(), "Abilities\\Spells\\Human\\MassTeleport\\MassTeleportTarget.mdl")
call DestroyEffect(e)
set e = null
endif
endif
set u = null
set c1 = null
set c2 = null
set c3 = null
set c4 = null
call RemoveLocation(locu)
set locu = null
call RemoveLocation(locc1)
set locc1 = null
call RemoveLocation(locc2)
set locc2 = null
call RemoveLocation(locc3)
set locc3 = null
call RemoveLocation(locc4)
set locc4 = null
endfunction
function test_Move takes nothing returns nothing
local timer t = GetExpiredTimer()
local integer h = GetHandleId(t)
local unit u = LoadUnitHandle(udg_hash, h, 1)
local unit c = GetEnumUnit()
local real a = LoadReal(udg_hash, GetHandleId(c), 4) + 0.024906584
local location locc
local location locc2 = GetUnitLoc(u)
local integer idh = h
call SaveInteger(udg_hash, 80, 1, idh)
call SetUnitX(c, GetUnitX(u) + 580. * Cos(a))
call SetUnitY(c, GetUnitY(u) + 580. * Sin(a))
call SaveReal(udg_hash, GetHandleId(c), 4, a)
set locc = GetUnitLoc(GetEnumUnit())
call MoveLightningEx(LoadLightningHandle(udg_hash, 53, GetHandleId(GetEnumUnit())), true, GetLocationX(locc), GetLocationY(locc), GetLocationZ(locc), GetLocationX(locc2), GetLocationY(locc2), GetLocationZ(locc2))
set c = null
set u = null
set t = null
call RemoveLocation(locc)
set locc = null
call RemoveLocation(locc2)
set locc2 = null
endfunction
//function test_RemoveUnits takes nothing returns nothing
//local unit c=GetEnumUnit()
//call FlushChildHashtable(udg_hash,GetHandleId(c))
//call FlushChildHashtable(udg_hash,52)
//call FlushChildHashtable(udg_hash,53)
//call RemoveUnit(c)
//set c=null
//endfunction
function test_Group_Actions takes nothing returns nothing
local timer t = GetExpiredTimer()
local integer h = GetHandleId(t)
local group g = LoadGroupHandle(udg_hash, h, 2)
local integer i = LoadInteger(udg_hash, h, 3)
local unit u = LoadUnitHandle(udg_hash, h, 1)
local location loc = GetUnitLoc(u)
call ForGroup(g, function test_Move)
call ForGroup(GetUnitsInRangeOfLocAll(600., loc), function test_Func001A)
//потом когда надо будет удалить всё это
//
//if LoadBoolean(udg_hash,h,4)==true then
// call PauseTimer(t)
// call FlushChildHashtable(udg_hash,h)
// call DestroyTimer(t)
// call ForGroup(g,function test_RemoveUnits)
// call DestroyGroup(g)
//endif
set t = null
set g = null
set u = null
call RemoveLocation(loc)
set loc = null
endfunction
function Trig_test_Action takes nothing returns nothing
local real centrx = GetRectCenterX(gg_rct_test_rect)
local real centery = GetRectCenterY(gg_rct_test_rect)
local unit u = CreateUnit(Player(0), 'hspt', centrx, centery, 0.)
local timer t = CreateTimer()
local unit c
local real x = GetUnitX(u)
local real y = GetUnitY(u)
local group g = CreateGroup()
local integer h = GetHandleId(t)
local location locu = GetUnitLoc(u)
local location locc
local location locc2 = GetUnitLoc(u)
local lightning lig
local string array s
local integer i = 1
loop
set c = CreateUnit(Player(0), 'hfoo', x, y, 0.)
call SaveUnitHandle(udg_hash, 52, i, c)
call SetUnitX(c, x + 580. * Cos(i * 1.57079628))
call SetUnitY(c, y + 580. * Sin(i * 1.57079628))
call SaveReal(udg_hash, GetHandleId(c), 4, i * 1.57079628)
call GroupAddUnit(g, c)
exitwhen(i==4)
set i = i + 1
endloop
set s[1] = "HWSB"
set s[2] = "DRAL"
set s[3] = "DRAM"
set s[4] = "AFOD"
set i = 1
loop
set locc = GetUnitLoc(LoadUnitHandle(udg_hash, 52, i))
set lig = AddLightningLoc(s[i], locc, locc2)
call SaveLightningHandle(udg_hash, 53, GetHandleId(LoadUnitHandle(udg_hash, 52, i)), lig)
call MoveLightningLoc(lig, locc, locc2)
call RemoveLocation(locc)
set locc = null
set lig = null
exitwhen(i==4)
set i = i + 1
endloop
call SaveUnitHandle(udg_hash, h, 1, u)
call SaveGroupHandle(udg_hash, h, 2, g)
call SaveInteger(udg_hash, h, 3, 0)
call SaveBoolean(udg_hash, h, 4, false)
call TimerStart(t, 0.03, true, function test_Group_Actions)
set c = null
set u = null
set t = null
call RemoveLocation(locu)
set locu = null
call RemoveLocation(locc2)
set locc2 = null
endfunction
function InitTrig_test takes nothing returns nothing
local trigger trg = CreateTrigger()
call TriggerRegisterTimerEventSingle(trg, 1.)
call TriggerAddAction(trg, function Trig_test_Action)
set trg = null
endfunction
Отредактировано CKrab, 27.01.2012 в 12:46.
|
26.01.2012, 19:59
