Periodic Events

[Tyman2007]

These aren't working the way I want them AT ALL.

This is REDICULOUSLY painful.

function HATE takes integer i returns real
    local real r
    local real R
    
    set r = i - ((i / 80) * 80)
    set R = 5 - (r * 0.06)
    
    return R
endfunction

function Trig_Send_Ghouls_Actions takes nothing returns nothing
    set bj_forLoopAIndex = 1
    set bj_forLoopAIndexEnd = ( ( udg_Income + 80 ) / 80 )
    call BJDebugMsg(R2S(HATE(udg_Income)))
    loop
        exitwhen bj_forLoopAIndex > bj_forLoopAIndexEnd
        set udg_l = GetRectCenter(gg_rct_Enemy_1)
        call CreateNUnitsAtLoc( 1, 'ugho', Player(1), udg_l, bj_UNIT_FACING )
        call RemoveLocation(udg_l)
        set udg_l = GetRectCenter(gg_rct_Enemy_2)
        call IssuePointOrderLoc( GetLastCreatedUnit(), "attack", udg_l )
        call RemoveLocation(udg_l)
        set bj_forLoopAIndex = bj_forLoopAIndex + 1
    endloop
endfunction

//===========================================================================
function InitTrig_Send_Ghouls takes nothing returns nothing
    set gg_trg_Send_Ghouls = CreateTrigger(  )
    call TriggerRegisterTimerEventPeriodic( gg_trg_Send_Ghouls, HATE(udg_Income) )
    call TriggerAddAction( gg_trg_Send_Ghouls, function Trig_Send_Ghouls_Actions )
endfunction

The way I have this set up.

My function HATE always keeps the integer inputted below 80, then the integer is multiplied by .06 and then that value is subtracted from 5 and then returned. It works PERFECTLY after an agonizing hour of trying different methods, but wasted because I was doing everything right for that.

The periodic event is supposed to run every X seconds, where X is the value returned. The value inputted being income. The timer does not run like I want it to. Is the timer constant? If so then how do I work around this...

PS: I don't care 1 bit for optimization.. Not at all... I can do that in my sleep...

I just need help for the periodic event.

 

[hgkjfhfdsj]

periodic events have to have a constant timeout (i think)
you can try a one-shot timer which calls back itself (not sure if this is efficient tho..)

function Trig_Send_Ghouls_Actions takes nothing returns nothing
    set bj_forLoopAIndex = 1
    set bj_forLoopAIndexEnd = ( ( udg_Income + 80 ) / 80 )
    call BJDebugMsg(R2S(HATE(udg_Income)))
    loop
        exitwhen bj_forLoopAIndex > bj_forLoopAIndexEnd
        set udg_l = GetRectCenter(gg_rct_Enemy_1)
        call CreateNUnitsAtLoc( 1, 'ugho', Player(1), udg_l, bj_UNIT_FACING )
        call RemoveLocation(udg_l)
        set udg_l = GetRectCenter(gg_rct_Enemy_2)
        call IssuePointOrderLoc( GetLastCreatedUnit(), "attack", udg_l )
        call RemoveLocation(udg_l)
        set bj_forLoopAIndex = bj_forLoopAIndex + 1
    endloop
    call TimerStart(GetExpiredTimer(), HATE(udg_Income), false, function Trig_Send_Ghouls_Actions)  //<--
endfunction

//===========================================================================
function InitTrig_Send_Ghouls takes nothing returns nothing
    //set gg_trg_Send_Ghouls = CreateTrigger(  )
    //call TriggerRegisterTimerEventPeriodic( gg_trg_Send_Ghouls, HATE(udg_Income) )
    //call TriggerAddAction( gg_trg_Send_Ghouls, function Trig_Send_Ghouls_Actions )
    call TimerStart(CreateTimer(), HATE(udg_Income), false, function Trig_Send_Ghouls_Actions) //<--
endfunction

 

[Tyman2007]

hmm, I knew it would be something like that!

Thanks! I'll check back in a second to see if it works.

I can take care of the optimization though.

 

[Bribe]

You may get a "function does not exist" error, or may not. Don't do that with something like "ForGroup" as that will cause a huge error XD

Or you can try where the trigger doesn't demand a specific timeout, like this:

function expire takes nothing returns boolean
    // ... actions
    call TimerStart(GetExpiredTimer(), HATE(udg_Income), false, null)
    return false
endfunction
// ....
function init takes nothing returns nothing
    local timer tim
    call TriggerRegisterTimerExpireEvent(t, tim)
    call TriggerAddCondition(t, Condition(function expire))
    call TimerStart(tim, HATE(udg_Income), false, null)
endfunction

 

[Tyrande_ma3x]

^ You can do this with an uninitialized timer?

 

[Bribe]

freehanded, baby

Initialize it, of course

 

[Tyrande_ma3x]

Since I'm at it, why is the need for a trigger event in there? Couldn't you use the callback function in the timer startup?

 

[Bribe]

1. Breaks precedence, so you cant callback a function below it.

2. It may not be possible to have a callback that calls back the same function, but I could be mistaken.

I'm just filling the guy in that there is another way to do it that guarantees that function will be called when that timer expires.

 

[Tyrande_ma3x]

Okay, just wanted to inform myself.
Btw, would it be possible to add multiple callback functions on one timer? Like:

private function Init takes nothing returns nothing
    local timer tim = CreateTimer()
    local trigger trig = CreateTrigger()
    call TriggerRegisterTimerExpireEvent(trig, tim)
    call TriggerAddCondition(trig, Condition(function funcSpam1))
    call TriggerAddCondition(trig, Condition(function funcSpam2))
    call TriggerAddCondition(trig, Condition(function funcSpam2))
    call TimerStart(tim, 1., false, null)
endfunction

Just for the sake of possibility, don't know who'd find a use for this.

 

[hgkjfhfdsj]

would it be possible to add multiple callback functions on one timer?
possible
i think t32 does that anyways..

private static method onInit takes nothing returns nothing
    call TriggerAddCondition(Trig,Condition(function thistype.PeriodicLoop))
endmethod