//==================AddSpeedLib v.1.00================
/*
Функция: AddUnitSpeed(unit u,real speed):
Добавляет скорость указанному юниту, возвращает добавленную ему скорость.

Функция: RemoveSpeed(unit u):
Удаляет ускорение у юнита,возвращает true, при успехе или false, если он небыл ускорен.
*/

library AddMoveSpeed {

define {
private MaxSpeed=2500.00 //Менять не советуется тк могут быть баги(это максимальная скорость)
private PI=3.14159 //PI и E стандартные бж константы
private E=2.71828
private il=0.693147
private Form(i)=SquareRoot((((((i/PI)/E)/E)/E)*il)*1.10) //формула взята с потолка =§
//================================================================================  ===
private void=nothing
private ifloop=exitwhen
private H2I(h)=GetHandleId(h)
}

globals
private integer C=0
private unit array Unit[1001]
private real array StartSpeed[1001],AddSpeed[1001],X[1001],Y[1001]
private timer Timer=CreateTimer()
private hashtable Hash=InitHashtable()
endglobals

private real GetSpeedAdd(real speed,real as,unit u) {
real sp=speed+as,sp2=522.00-speed,sp3=0.00
if speed<522.00 and sp>522.00
       SetUnitMoveSpeed(u,speed+sp2)
       sp3=as-sp2
     return Form(sp3)
else
if as>522.00
       SetUnitMoveSpeed(u,522.00)
endif
     return Form(sp)
endif
     return 0.00
}

private void Remove(integer i) {
       SetUnitMoveSpeed(Unit[i],StartSpeed[i])
       RemoveSavedInteger(Hash,H2I(Unit[i]),H2I(Unit[i]))
       FlushChildHashtable(Hash,H2I(Unit[i]))
if i!=C
       Unit[i]=Unit[C]
       AddSpeed[i]=AddSpeed[C]
       X[i]=X[C]
       Y[i]=Y[C]
       StartSpeed[i]=StartSpeed[C]
endif
C--
}

private void PerMove() {
integer i=1
loop
if GetWidgetLife(Unit[i])>0.450 {
if X[i]!=GetUnitX(Unit[i]) or Y[i]!=GetUnitY(Unit[i])
if SquareRoot((GetUnitX(Unit[i])-X[i])*(GetUnitX(Unit[i])-X[i])+(GetUnitY(Unit[i])-Y[i])*(GetUnitY(Unit[i])-Y[i]))>AddSpeed[i] {
real x=GetUnitX(Unit[i])+AddSpeed[i]*Cos(GetUnitFacing(Unit[i])*bj_DEGTORAD)
real y=GetUnitY(Unit[i])+AddSpeed[i]*Sin(GetUnitFacing(Unit[i])*bj_DEGTORAD)
    SetUnitX(Unit[i],x)
    SetUnitY(Unit[i],y)
    X[i]=GetUnitX(Unit[i])
    Y[i]=GetUnitY(Unit[i])
     }
endif
else
     Remove(i)
}
i++
if C==0
   PauseTimer(Timer)
endif
ifloop i>C
endloop
}

//Удаляет ускорение у юнита,возвращает тру при успехе или фолс если он небыл ускорен.
boolean RemoveSpeed(unit u) {
if HaveSavedInteger(Hash,H2I(u),H2I(u))==true
Remove(LoadInteger(Hash,H2I(u),H2I(u)))
return true
else
return false
endif
}

//Добавляет юниту скорость
real AddUnitSpeed(unit u,real speed) {
if HaveSavedInteger(Hash,H2I(u),H2I(u))==true
DisplayTextToPlayer(GetOwningPlayer(u),0.00,0.00,"Чтобы добавить новую скорость к юниту,сначала удалите старую.")
endif
if C<=1000 and HaveSavedInteger(Hash,H2I(u),H2I(u))==false and IsUnitType(u,UNIT_TYPE_STRUCTURE)==false
if(speed>MaxSpeed){speed=MaxSpeed}
    C++
     SaveInteger(Hash,H2I(u),H2I(u),C)
    Unit[C]=u
     StartSpeed[C]=GetUnitDefaultMoveSpeed(u)
    AddSpeed[C]=GetSpeedAdd(GetUnitMoveSpeed(u),speed,u)
     X[C]=GetUnitX(u)
    Y[C]=GetUnitY(u)
if C==1
TimerStart(Timer,0.000914159,true,function PerMove) //Этот периуд выбран чтобы отслеживать
     endif                                          //каждое движение юнита
endif
if C==1001
DisplayTextToPlayer(GetOwningPlayer(u),0.00,0.00,"Количество ускореных юнитов, превысело допустимое число!")
endif
return AddSpeed[C]
}

}

/*
Вызывать функцию стана: BashUnit(unit u,real time)
*/
library BASH initializer Init {
define {
private Hash=HashBASH
private void=nothing
private H2I(h)=GetHandleId(h)
private KillId(k)=FlushChildHashtable(Hash,k)
}

globals
private integer C=0
private unit array Unit
private real array Time,RealTime,TimeBuff
private timer Timer=CreateTimer()
public hashtable HashBASH=InitHashtable()
endglobals

private void Per() {
integer i=1
loop
if RealTime[i]<=Time[i] and GetWidgetLife(Unit[i])>0.450 {
      IssueImmediateOrderById(Unit[i],851972)
      RealTime[i]=RealTime[i]+0.001
      TimeBuff[i]=TimeBuff[i]+0.001
if TimeBuff[i]>=0.43 //Время анимации стана
      DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Human\\Thunderclap\\ThunderclapTarget.mdl",Unit[i],"overhead"))
      TimeBuff[i]=0.00
endif
else
      RemoveSavedInteger(Hash,H2I(Unit[i]),H2I(Unit[i]))
      KillId(H2I(Unit[i]))
if i!=C {
      Unit[i]=Unit[C]
      RealTime[i]=RealTime[C]
      Time[i]=Time[C]
      TimeBuff[i]=TimeBuff[C]
        }
C--
}
if C==0 {
PauseTimer(Timer)
}
i++
exitwhen i>C
endloop
 }

void BashUnit(unit u,real time) {
real tim=0.00
if HaveSavedInteger(Hash,H2I(u),H2I(u))==false
       C++
       Unit[C]=u
       SaveInteger(Hash,H2I(u),H2I(u),C)
if(time<0.001){tim=0.001}else{tim=time}
       Time[C]=tim
       RealTime[C]=0.00
       TimeBuff[C]=0.00
       DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Human\\Thunderclap\\ThunderclapTarget.mdl",Unit[C],"overhead"))
if C==1
       TimerStart(Timer,0.001,true,function Per)
endif
     endif
}

private void Init() {
    Preloader("Abilities\\Spells\\Human\\Thunderclap\\ThunderclapTarget.mdl")
}

}