//===========================================================================
// Display a text message to a Player Group with an accompanying sound,
// portrait, speech indicator, and all that good stuff.
//   - Query duration of sound
//   - Play sound
//   - Display text message for duration
//   - Display animating portrait for duration
//   - Display a speech indicator for the unit
//   - Ping the minimap
//
function TransmissionFromUnitWithNameBJ takes force toForce, unit whichUnit, string unitName, sound soundHandle, string message, integer timeType, real timeVal, boolean wait returns nothing
     call TryInitCinematicBehaviorBJ()

     // Ensure that the time value is non-negative.
     set timeVal = RMaxBJ(timeVal, 0)

     set bj_lastTransmissionDuration = GetTransmissionDuration(soundHandle, timeType, timeVal)
     set bj_lastPlayedSound = soundHandle

     if (IsPlayerInForce(GetLocalPlayer(), toForce)) then
         // Use only local code (no net traffic) within this block to avoid desyncs.

         if (whichUnit == null) then
             // If the unit reference is invalid, send the transmission from the center of the map with no portrait.
             call DoTransmissionBasicsXYBJ(0, PLAYER_COLOR_RED, 0, 0, soundHandle, unitName, message, bj_lastTransmissionDuration)
         else
             call DoTransmissionBasicsXYBJ(GetUnitTypeId(whichUnit), GetPlayerColor(GetOwningPlayer(whichUnit)), GetUnitX(whichUnit), GetUnitY(whichUnit), soundHandle, unitName, message, bj_lastTransmissionDuration)
             if (not IsUnitHidden(whichUnit)) then
                 call UnitAddIndicator(whichUnit, bj_TRANSMISSION_IND_RED, bj_TRANSMISSION_IND_BLUE, bj_TRANSMISSION_IND_GREEN, bj_TRANSMISSION_IND_ALPHA)
             endif
         endif
     endif

     if wait and (bj_lastTransmissionDuration > 0) then
         // call TriggerSleepAction(bj_lastTransmissionDuration)
         call WaitTransmissionDuration(soundHandle, timeType, timeVal)
     endif

endfunction

//===========================================================================
function WaitTransmissionDuration takes sound soundHandle, integer timeType, real timeVal returns nothing
     if (timeType == bj_TIMETYPE_SET) then
         // If we have a static duration wait, just perform the wait.
         call TriggerSleepAction(timeVal)

     elseif (soundHandle == null) then
         // If the sound does not exist, perform a default length wait.
         call TriggerSleepAction(bj_NOTHING_SOUND_DURATION)

     elseif (timeType == bj_TIMETYPE_SUB) then
         // If the transmission is cutting off the sound, wait for the sound
         // to be mostly finished.
         call WaitForSoundBJ(soundHandle, timeVal)

     elseif (timeType == bj_TIMETYPE_ADD) then
         // If the transmission is extending beyond the sound's length, wait
         // for it to finish, and then wait the additional time.
         call WaitForSoundBJ(soundHandle, 0)
         call TriggerSleepAction(timeVal)

     else
         // Unrecognized timeType - ignore.
     endif
endfunction

globals
integer INT_UNIT = 0
integer INT_TEN = 1
integer INT_HUNDRED = 2
integer INT_THOUSAND = 3
endglobals

function mod takes integer x, integer y returns integer
     local integer z = x - (x / y) * y
     if z < 0 then
     set z = z + y
     endif
     return z
endfunction

function GetUBN takes integer IsIntValue, integer IsIntModal, integer Value returns integer
local integer Result = 0
//Из десятки по числу
if IsIntModal == INT_TEN then
if IsIntValue == INT_UNIT then
set Result = mod(Value, 10)
elseif (IsIntValue == INT_TEN) then
set Result = (Value - mod(Value, 10)) / 10
endif
endif
//Из сотки по числу
if IsIntModal == INT_HUNDRED then
if IsIntValue == INT_UNIT then
set Result = mod(mod(Value, 100), 10)
elseif (IsIntValue == INT_TEN) then
set Result = mod(Value, 100) / 10
elseif (IsIntValue == INT_HUNDRED) then
set Result = Value / 100
endif
endif
//Из тысячи по числу
if IsIntModal == INT_THOUSAND then
if IsIntValue == INT_UNIT then
set Result = mod(mod(mod(Value, 1000),100),10)
elseif (IsIntValue == INT_TEN) then
set Result = mod(mod(Value, 1000),100) / 10
elseif (IsIntValue == INT_HUNDRED) then
set Result = mod(Value, 1000) / 100
elseif (IsIntValue == INT_THOUSAND) then
set Result = Value / 1000  
endif
endif
return Result
endfunction

function SetUnitDamageBonus takes unit u, integer BonusDamage returns nothing

if (BonusDamage < 9 and BonusDamage >= 0) then

call SetUnitAbilityLevel( u, 'A00M', BonusDamage  +1 )
call SetUnitAbilityLevel( u, 'A01Q', 0)
call SetUnitAbilityLevel( u, 'A01P', 0)
call SetUnitAbilityLevel( u, 'A00N', 0)

elseif( BonusDamage > 9  and BonusDamage <= 99) then

call SetUnitAbilityLevel( u, 'A00M', GetUBN( INT_UNIT, INT_TEN, BonusDamage) +1)
call SetUnitAbilityLevel( u, 'A01Q', GetUBN( INT_TEN, INT_TEN, BonusDamage) +1)
call SetUnitAbilityLevel( u, 'A01P', 0)
call SetUnitAbilityLevel( u, 'A00N', 0)

elseif( BonusDamage > 99  and BonusDamage <= 999 ) then

call SetUnitAbilityLevel( u, 'A00M', GetUBN( INT_UNIT, INT_HUNDRED, BonusDamage) +1)
call SetUnitAbilityLevel( u, 'A01Q', GetUBN( INT_TEN, INT_HUNDRED, BonusDamage) +1)
call SetUnitAbilityLevel( u, 'A01P', GetUBN( INT_HUNDRED, INT_HUNDRED, BonusDamage) +1 )
call SetUnitAbilityLevel( u, 'A00N', 0)

elseif( BonusDamage > 999  and BonusDamage <= 9999 ) then

call SetUnitAbilityLevel( u, 'A00M', GetUBN( INT_UNIT, INT_THOUSAND, BonusDamage) +1)
call SetUnitAbilityLevel( u, 'A01Q', GetUBN( INT_TEN, INT_THOUSAND, BonusDamage) +1)
call SetUnitAbilityLevel( u, 'A01P', GetUBN( INT_HUNDRED, INT_THOUSAND, BonusDamage) +1)
call SetUnitAbilityLevel( u, 'A00N', GetUBN( INT_THOUSAND, INT_THOUSAND, BonusDamage) +1)
endif

endfunction