Triggers

//TESH.scrollpos=63
//TESH.alwaysfold=0
globals
real array GLOBAL_BACKSTAB
location array p
integer VAMP
group SA = CreateGroup()
integer ROL = 0
endglobals


function Func_SA takes unit who, unit to, real many, real del returns nothing
local unit x = who
local unit y = to
local real count = many
local real t = del
local real t2 = 0.50
local texttag text
local real pos = 150
local location xp = GetUnitLoc(y)
if IsUnitInGroup(y , SA) == false then
call PauseUnit(y , true)
call SetUnitTimeScalePercent( y, 0 )
call GroupAddUnit(SA, y)
set text = CreateTextTagLocBJ("Darkness!", xp, pos, 12, 1.00, 1.00, 1.00, 0 )
        call SetTextTagVelocityBJ( text, 75.00, 90 )
        call SetTextTagPermanentBJ( text, false )
        call SetTextTagLifespanBJ( text, 5)
        call SetTextTagFadepointBJ( text, 2.5)
        
else
return
endif
loop
exitwhen count <= 0
set count = count - 1
call TriggerSleepAction(t)
endloop
call TriggerSleepAction(t2)
call PauseUnit(y , false)
call SetUnitTimeScalePercent( y, 100 )
call GroupRemoveUnit(SA , y)
call DestroyTextTag(text)
call RemoveLocation(xp)
set x = null
set y = null
endfunction





library SimError initializer init
//**************************************************************************************************
//*
//*  SimError
//*
//*     Mimic an interface error message
//*       call SimError(ForPlayer, msg)
//*         ForPlayer : The player to show the error
//*         msg       : The error
//*    
//*     To implement this function, copy this trigger and paste it in your map.
//* Unless of course you are actually reading the library from wc3c's scripts section, then just
//* paste the contents into some custom text trigger in your map.
//*
//**************************************************************************************************

//==================================================================================================
    globals
        private sound error
    endglobals
    //====================================================================================================

    function Error takes player ForPlayer, string msg returns nothing
        set msg="\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n|cffffcc00"+msg+"|r"
        if (GetLocalPlayer() == ForPlayer) then
            call ClearTextMessages()
            call DisplayTimedTextToPlayer( ForPlayer, 0.52, 0.96, 2.00, msg )
            call StartSound( error )
        endif
    endfunction

    private function init takes nothing returns nothing
         set error=CreateSoundFromLabel("InterfaceError",false,false,false,10,10)
         //call StartSound( error ) //apparently the bug in which you play a sound for the first time
                                    //and it doesn't work is not there anymore in patch 1.22
    endfunction

endlibrary