((код jass

scope CreepRespawnSystem initializer InitCreps

====================================================================
private struct UnitData структуру нетронять не в коем случаи...
real CreepX
real CreepY
real CreepA
real ResTime
integer LevelOrType
boolean UseAltrnateTimer = false
endstruct
=====================================================================
globals// вот тут все настройки
boolean bj_DESTROY_CORPSE = true удалять трупы умерших крипов.
boolean bj_SHOW_DEATH_EFFECT = true показать спецэффект при смерте крипа
boolean bj_SHOW_RESPAWN_EFFECT = true показать спецэфект при респауне
boolean bj_RANDOM_CREEP_TYPE = true респаунить каждый раз разных крипов но одного и того же уровня
boolean bj_CHECK_REPAWN_POS = false// проверять видит ли игрок точку респауна, и если видит пропустить респаун
string bj_DEATH_EFFECT = "Abilities\\Spells\\Orc\\FeralSpirit\\feralspiritdone.mdl" спецэффект при смерти крипа
string bj_RESPAWN_EFFECT = "Abilities\\Spells\\Human\\Resurrect\\ResurrectTarget.mdl" спецэффект при респауне крипа
real bj_CREEP_SAVE_INTERVAL = 0.20 задержка перед работой системы... Необходимо в тех картах где создание крипов просиходит во время игры.
real bj_RESP_TIMEOUT = 1.00 время чеерез которую возродится крип... В данном случае умножвется на его уровень.
private constant player bj_PLAYER_NEUTRAL_AGGRESSIVE = Player( 12 ) Нетрально враждебный, если в вашей крате вы использует другоuо игрока то введите его номер в Player( № )
вспомогательные переменные системы
не рекомендуется их изменение
private unit bj_Neutral_Creep
private timer bj_RespawnTimer
private UnitData bj_UnitData
private location bl_TempPoint
endglobals

private function bj_creepRespTimeout takes nothing returns real задержка перед респауном крипа можно вести конкретное время или выражение
return bj_RESP_TIMEOUT * GetUnitLevel( GetDyingUnit( ) ) в данном случие врмя респауна равно уровень крипа умнноженный на bj_RESP_TIMEOUT ( 2 сек )
endfunction

private function Bolexp_UnitFiler_Conditions takes nothing returns boolean фильтр сохраннения нетрально враждебынх юнитов
return GetOwningPlayer( GetFilterUnit( ) ) == bj_PLAYER_NEUTRAL_AGGRESSIVE в данном случее проходят все юниты подконтрольные игроку bj_PLAYER_NEUTRAL_AGGRESSIVE
endfunction через and можно добавить дополнительыне критерии отбора.

далее вмешательство в код настоятельно не рекомендуется...
**************************************************************************************************​********************************************
**************************************************************************************************​********************************************

function CreateCreepOfType takes integer CreepType, real SX, real SY, real SA, real timeout returns unit
set bj_UnitData = UnitData.create( )
set bj_lastCreatedUnit = CreateUnit( bj_PLAYER_NEUTRAL_AGGRESSIVE, CreepType, SX, SY, SA )
set bj_UnitData.CreepX = SX
set bj_UnitData.CreepY = SY
set bj_UnitData.CreepA = SA
set bj_UnitData.ResTime = timeout
set bj_UnitData.UseAltrnateTimer = true

if bj_RANDOM_CREEP_TYPE then
set bj_UnitData.LevelOrType = GetUnitLevel( bj_lastCreatedUnit )
else
set bj_UnitData.LevelOrType = 3
endif

call SetDataBX( bj_lastCreatedUnit, bj_UnitData )
return bj_lastCreatedUnit
endfunction

function RemoveCreep takes unit fp_uCreep returns nothing
set bj_UnitData = GetDataBX( fp_uCreep )
call bj_UnitData.destroy( )
call RemoveDataBX( fp_uCreep )
call RemoveUnit( fp_uCreep )
set fp_uCreep = null
endfunction

private function Group_SaveCrepsPos_Actions takes nothing returns nothing
set bj_Neutral_Creep = GetEnumUnit( )
set bj_UnitData = UnitData.create( )
set bj_UnitData.CreepX = GetUnitX( bj_Neutral_Creep )
set bj_UnitData.CreepY = GetUnitY( bj_Neutral_Creep )
set bj_UnitData.CreepA = GetUnitFacing( bj_Neutral_Creep )
set bj_UnitData.ResTime = 0.00

if bj_RANDOM_CREEP_TYPE then
set bj_UnitData.LevelOrType = GetUnitLevel( bj_Neutral_Creep )
else
set bj_UnitData.LevelOrType = GetUnitTypeId( bj_Neutral_Creep )
endif

call SetDataBX( bj_Neutral_Creep, bj_UnitData )
endfunction

private function AddSpecialEffectZ takes string path, real x, real y, real z returns effect
set bl_TempPoint = Location( x, y )
set z = z + GetLocationZ( bl_TempPoint ) + 10.00
call RemoveLocation( bl_TempPoint )
set bj_lastCreatedDestructable = CreateDestructableZ( 'OTip', x, y, z, 0.00, 1, 0 )
set bj_lastCreatedEffect = AddSpecialEffect( path, x, y )
call RemoveDestructable( bj_lastCreatedDestructable )
return bj_lastCreatedEffect
endfunction


private function IsSpawnPosVisibly_Conditions takes real PX, real PY returns boolean
local integer nIndex = 0
if not bj_CHECK_REPAWN_POS then
return true
endif
loop
exitwhen nIndex > bj_MAX_PLAYER_SLOTS
if ( IsVisibleToPlayer( PX, PY, Player( nIndex ) ) ) then
return false
endif
set nIndex = nIndex + 1
endloop
return true
endfunction

private function Timer_Creep_Respawn_Actions takes nothing returns nothing
set bj_RespawnTimer = GetExpiredTimer( )
set bj_UnitData = GetDataBX( bj_RespawnTimer )

if IsSpawnPosVisibly_Conditions( bj_UnitData.CreepX, bj_UnitData.CreepY ) then
if bj_RANDOM_CREEP_TYPE then
call DisplayTextToPlayer( Player( 0 ), 0, 0, "Сработало" )
call DisplayTextToPlayer( Player( 0 ), 0, 0, I2S(bj_UnitData.LevelOrType) )
call DisplayTextToPlayer( Player( 0 ), 0, 0, R2S(bj_UnitData.CreepX) )
call DisplayTextToPlayer( Player( 0 ), 0, 0, R2S(bj_UnitData.CreepY) )
set bj_Neutral_Creep = CreateUnit( bj_PLAYER_NEUTRAL_AGGRESSIVE, ChooseRandomCreep( bj_UnitData.LevelOrType ), bj_UnitData.CreepX, bj_UnitData.CreepY, bj_UnitData.CreepA )
else
call DisplayTextToPlayer( Player( 0 ), 0, 0, "Сработало 2" )
set bj_Neutral_Creep = CreateUnit( bj_PLAYER_NEUTRAL_AGGRESSIVE, bj_UnitData.LevelOrType, bj_UnitData.CreepX, bj_UnitData.CreepY, bj_UnitData.CreepA )
endif

if bj_SHOW_RESPAWN_EFFECT then
call DestroyEffect( AddSpecialEffectTarget( bj_RESPAWN_EFFECT, bj_Neutral_Creep, "origin" ) )
endif

call SetDataBX( bj_Neutral_Creep, bj_UnitData )
call RemoveDataBX( bj_RespawnTimer )

call PauseTimer( bj_RespawnTimer )
call DestroyTimer( bj_RespawnTimer )
endif

endfunction

private function Trig_Creep_Resp_Actions takes nothing returns nothing
set bj_RespawnTimer = CreateTimer( )
set bj_Neutral_Creep = GetDyingUnit( )
set bj_UnitData = GetDataBX( bj_Neutral_Creep )

call SetDataBX( bj_RespawnTimer, bj_UnitData )
call RemoveDataBX( bj_Neutral_Creep )


if ( bj_SHOW_DEATH_EFFECT and bj_DESTROY_CORPSE and IsUnitType( bj_Neutral_Creep, UNIT_TYPE_FLYING ) ) then
call DestroyEffect( AddSpecialEffectZ( bj_DEATH_EFFECT, GetUnitX( bj_Neutral_Creep ), GetUnitY( bj_Neutral_Creep ), GetUnitFlyHeight( bj_Neutral_Creep ) ) )
elseif bj_SHOW_DEATH_EFFECT then
call DestroyEffect( AddSpecialEffect( bj_DEATH_EFFECT, GetUnitX( bj_Neutral_Creep ), GetUnitY( bj_Neutral_Creep ) ) )
endif

if ( bj_DESTROY_CORPSE ) then
call RemoveUnit( bj_Neutral_Creep )
endif

if bj_UnitData.UseAltrnateTimer then
call TimerStart( bj_RespawnTimer, bj_UnitData.ResTime, true, function Timer_Creep_Respawn_Actions )
else
call TimerStart( bj_RespawnTimer, bj_creepRespTimeout( ), true, function Timer_Creep_Respawn_Actions )
endif

endfunction

private function SaveCreepRespPos takes nothing returns nothing
local group grp = CreateGroup( )
local boolexpr NeutralFilter = Condition( function Bolexp_UnitFiler_Conditions )
local trigger trg = CreateTrigger( )
call TriggerRegisterPlayerUnitEvent( trg, bj_PLAYER_NEUTRAL_AGGRESSIVE, EVENT_PLAYER_UNIT_DEATH, null )
call TriggerAddAction( trg, function Trig_Creep_Resp_Actions )
call DestroyTimer( GetExpiredTimer( ) )
call GroupEnumUnitsInRect( grp, bj_mapInitialPlayableArea, NeutralFilter )
call ForGroup( grp, function Group_SaveCrepsPos_Actions )
call DestroyGroup( grp )
call DestroyBoolExpr( NeutralFilter )
set NeutralFilter = null
set trg = null
set grp = null
endfunction

private function InitCreps takes nothing returns nothing
set bj_lastCreatedHashtable = InitHashtable( )
call TimerStart( CreateTimer( ), bj_CREEP_SAVE_INTERVAL, false, function SaveCreepRespPos )
endfunction

endscope
))