library ChainFrost

globals
	private integer count=0
	private unit target=null
	private unit dummy=null
	private group unnamed=CreateGroup()
endglobals

private function getTarget takes nothing returns boolean
	if IsUnitEnemy(GetFilterUnit(), GetOwningPlayer(dummy)) and not(IsUnitType(GetFilterUnit(),UNIT_TYPE_STRUCTURE)) then
        set target=GetFilterUnit()
	endif
	return false
endfunction

private function moveNova takes nothing returns nothing
	local real dummyX=GetUnitX(dummy)
	local real dummyY=GetUnitY(dummy)
	local real targetX=GetUnitX(dummy)
	local real targetY=GetUnitY(dummy)
	local real angle=0
	local integer radius=0
	if SquareRoot((dummyX-targetX)*(dummyX-targetX)+(dummyY-targetY)*(dummyY-targetY))>30 then
		set angle=Atan2(targetY-dummyY,targetX-dummyX)
		call SetUnitX(dummy,dummyX+10*Cos(angle))
		call SetUnitY(dummy,dummyY+10*Sin(angle))
	else
		call UnitDamageTarget(dummy,target,250,true,false,ATTACK_TYPE_CHAOS,DAMAGE_TYPE_UNIVERSAL,WEAPON_TYPE_WHO​KNOWS)
        set count=count+1
		if count<=10 then
			set target=null
			loop
				exitwhen target!=null
				call GroupEnumUnitsInRange(unnamed,dummyX,dummyY,radius,Filter(function getTarget))
				set radius=radius+10
			endloop
		endif
	endif
endfunction

//Ну эта типо через TriggerAddAction вешается на триггер, что при касте срабатывает.
private function cast takes nothing returns nothing
	set target=GetSpellTargetUnit()
	set dummy=CreateUnit(GetTriggerPlayer(),<dummy rawcode>,GetUnitX(GetSpellAbilityUnit()),GetUnitY(GetSpellAbilityUnit()),0)
	call TimerStart(CreateTimer(),0.01,true,function moveNova)
endfunction

endlibrary