First Jass Spell

function Trig_Rebellion_Condtions takes nothing returns boolean
    return GetSpellAbilityId() == 'A000' // - checks the spell is the right one
endfunction

//=========================================================

function Trig_Rebellion_Actions takes nothing returns nothing
    local unit c = GetTriggerUnit() // - caster
    local unit x = GetSpellTargetUnit() // - target
    local player p = GetOwningPlayer(x) // - sets p to the owner of the target
    local integer d = 20 + (GetUnitAbilityLevel (c, 'A000') * 5) // - duration
    local unit r // - dummy caster
    local integer b = GetUnitAbilityLevel (x, 'B000') // - sets b to the level of the buff on the target unit
    local timer t = CreateTimer() // - creates the timer
    local real e // - elapsed time of timer
    
    if b == 0 then // - checks the unit is not already affected by the spell
    set r = CreateUnitAtLoc (GetOwningPlayer(r), 'H003', GetUnitLoc (x), 1) // - creates the dummy caster next to the target
    call UnitApplyTimedLife(r, 'B001', 5)
    call SetUnitVertexColor (r, 0, 0, 0, 0) // - makes the dummy caster more invisible
    call IssueTargetOrder (r, "charm", x) // - orders the dummy caster to cast charm
    call TimerStart(t, d, false, null) // - starts the timer for the duration of the "rebellion"
    loop // - loops until the timer has elapsed
        exitwhen e == d
        call TriggerSleepAction(0.1) 
        set e = TimerGetElapsed(t)
        endloop
    set r = CreateUnitAtLoc (GetOwningPlayer(r), 'H003', GetUnitLoc (x), 1) // - same triggers as above,                    // - puts the unit back under control
    call SetUnitVertexColor (r, 0, 0, 0, 0)                               // - puts the unit back under control
    call IssueTargetOrder (r, "charm", x)                                   // - of its original owner
    call UnitApplyTimedLife(r, 'B001', 5)            
    endif
    call PauseTimer(t)
    call DestroyTimer(t)
    set c = null
    set x = null
    set p = null
    set r = null
    set t = null
endfunction

//=========================================================

function InitTrig_Rebellion takes nothing returns nothing
    set gg_trg_Rebellion = CreateTrigger()
    call TriggerRegisterAnyUnitEventBJ( gg_trg_Rebellion, EVENT_PLAYER_UNIT_SPELL_EFFECT )
    call TriggerAddCondition( gg_trg_Rebellion, Condition( function Trig_Rebellion_Conditions ) )
    call TriggerAddAction( gg_trg_Rebellion, function Trig_Rebellion_Actions )
endfunction