[Trigger] Detect no movement

[Just_Spectating]

how do i detect if a unit is not moving for a certain amount of time?

 

[aznricepuff]

After a certain amount of time, check to see if unit's coordinates are the same as they were before. While it is possible that the the unit could have moved and went back to the EXACT same place, it's highly unlikely since wc3 distance units are really small and reals float to like 6 decimals or something in wc3 (or was it 4...i honestly don't remember).

 

[Just_Spectating]

so... "as they were before" how could i check their coordinates before without having to use variables because this has to be very MUI.

 

[DragoonZombie]

• Conditions
  • (Current order of (Triggering unit)) Equal to (Order(stop))

Channeling units won't be affected though.

 

[redmarine]

You could try to check if they had the same position, order and if they face the same way every 1 second.

 

[GhostWolf]

You could use this script to check what are the distances between points of any Mechanical unit in the game every 0.2 seconds.

If you want it to be changed to whatever unit/unit type/unit whatever you want, just ask (and you know JASS... no ?).

Warning! This script requires Kattana's Local Handle Vars and a little script I made in your header (I put the little script down).

// This will reduce the mana of any mechanical unit on the map upon moving.
// The actual value is the distance that unit moves within 0.2 seconds.
// If you want to change that value, see the comment in 13 lines.

function mechanicCon takes nothing returns boolean
    return IsUnitType(GetFilterUnit(),UNIT_TYPE_MECHANICAL) == true    
endfunction
function mecahnictimer takes nothing returns nothing
    local timer t = GetExpiredTimer()
    local unit whichUnit = GetHandleUnit(t, "whichUnit")
    local real x = GetHandleReal(t, "x")
    local real y = GetHandleReal(t, "y")
    local real distance = DistanceBetweenPointsXY(x, y, GetUnitX(whichUnit), GetUnitY(whichUnit))
    local real mana = GetUnitState(whichUnit, UNIT_STATE_MANA )
    if distance > 0 then
        call SetUnitState(whichUnit, UNIT_STATE_MANA, mana-distance/20) // if you want to reduce or raise the value, just make it something like "mana-distance*20" or "mana-distance/20"
    endif 
    call FlushHandleLocals(t)
    call DestroyTimer(t) 
    set t = null
    set whichUnit = null
endfunction
function mechanic takes nothing returns nothing
    local timer t = CreateTimer()
    local group g = CreateGroup()
    local unit whichUnit
    local real x
    local real y
    call GroupEnumUnitsInRect(g, bj_mapInitialPlayableArea, Condition(function mechanicCon)) 
    loop
        set t = null
        set whichUnit = FirstOfGroup(g)
        exitwhen whichUnit == null
        call GroupRemoveUnit(g, whichUnit)
        set t = CreateTimer()
        call SetHandleReal(t, "x", GetUnitX(whichUnit))
        call SetHandleReal(t, "y", GetUnitY(whichUnit))
        call SetHandleHandle(t, "whichUnit", whichUnit)
        call TimerStart(t, 0.2, false, function mecahnictimer)
    endloop
    call DestroyGroup(g)
    set g = null
    set whichUnit = null 
endfunction

//==== Init Trigger NewTrigger ====
function InitTrig_NewTrigger takes nothing returns nothing
    set gg_trg_NewTrigger = CreateTrigger()
    call TriggerRegisterTimerEventPeriodic( gg_trg_NewTrigger, 0.20 )
    call TriggerAddAction(gg_trg_NewTrigger, function mechanic)
endfunction

//  --------------PUT ME IN YOUR HEADER-------------------
//****************************************************************************************
//               Distance between two points using coordinates
// call DistanceBetweenPointsXY(real x1, real y1, real x2, real y2)

function DistanceBetweenPointsXY takes real x1, real y1, real x2, real y2 returns real
    local real dx = oldx - x
    local real dy = oldy - y
    return SquareRoot(dx * dx + dy * dy)
endfunction

 

[Eleandor]

the header won't work. Replace it with

function DistanceBetweenPointsXY takes real x1, real y1, real x2, real y2 returns real  
    local real dx = x1 - x2 
    local real dy = y1 - y2 
    return SquareRoot(dx * dx + dy * dy) 
endfunction

 

[GhostWolf]

LOL ! Forgot to change the variables name x.X

 

[Just_Spectating]

what i want is if a certain type of unit isnt moving for a certain amount of time (say 1 second) then explode the unit.

 

[GhostWolf]

I think something like this should work.

Change the 'h000' to you unit type rawcode.

function onesecondCon takes nothing returns boolean
    return GetUnitTypeId(GetFilterUnit()) == 'h000'    
endfunction
function onesecondtimer takes nothing returns nothing
    local timer t = GetExpiredTimer()
    local unit whichUnit = GetHandleUnit(t, "whichUnit")
    local real x = GetHandleReal(t, "x")
    local real y = GetHandleReal(t, "y")
    local real distance = DistanceBetweenPointsXY(x, y, GetUnitX(whichUnit), GetUnitY(whichUnit))
    if distance == 0 then
        call KillUnit(whichUnit)
    endif
    call FlushHandleLocals(t)
    call DestroyTimer(t)
    set t = null
    set whichUnit = null
endfunction
function onesecond takes nothing returns nothing
    local timer t = CreateTimer()
    local group g = CreateGroup()
    local unit whichUnit
    local real x
    local real y
    call GroupEnumUnitsInRect(g, bj_mapInitialPlayableArea, Condition(function onesecondCon)) 
    loop
        set t = null
        set whichUnit = FirstOfGroup(g)
        exitwhen whichUnit == null
        call GroupRemoveUnit(g, whichUnit)
        set t = CreateTimer()
        call SetHandleReal(t, "x", GetUnitX(whichUnit))
        call SetHandleReal(t, "y", GetUnitY(whichUnit))
        call SetHandleHandle(t, "whichUnit", whichUnit)
        call TimerStart(t, 1, false, function onesecondtimer)
    endloop
    call DestroyGroup(g)
    set g = null
    set whichUnit = null 
endfunction

//==== Init Trigger NewTrigger ====
function InitTrig_NewTrigger takes nothing returns nothing
    set gg_trg_NewTrigger = CreateTrigger()
    call TriggerRegisterTimerEventPeriodic( gg_trg_NewTrigger, 0.20 )
    call TriggerAddAction(gg_trg_NewTrigger, function onesecond)
endfunction

It still requires that little code I put before and Kattana's local handle vars.

 

[Just_Spectating]

ok now im confused...

which scripts to i put in the header

and which scripts do i put in a trigger?

 

[wd40bomber7]

I hate to break it to you, but this is the GUI section. Oh and using handle vars is very slow. I try to avoid them at almost all times.

 

[Just_Spectating]

well my bad, not like i knew it could only be in jass

 

[GhostWolf]

I hate to break it to you, but this is the GUI section. Oh and using handle vars is very slow. I try to avoid them at almost all times.

Can't make it with GUI.
And how exacly can you make it without handle vars ? x.X

ok now im confused...

which scripts to i put in the header

and which scripts do i put in a trigger?

The code itself you put inside a trigger called "NewTrigger", then you can call it whatever you want.

Now in your header, put this script

function DistanceBetweenPointsXY takes real x1, real y1, real x2, real y2 returns real
    local real dx = x1 - x2
    local real dy = y1 - y2
    return SquareRoot(dx * dx + dy * dy)
endfunction

And put in your header also Kattana's local handle vars if you havn't already.

 

[Eleandor]

Try making 3 arrays: unit array, LocX array and LocY array ( reals ). Then constantly check whether the X and Y position of every unit in the array is still the same as the corresponding LocX and LocY values. If this is false, the unit has moved thus you need to set LocX and LocY to the new coordinates and do your other actions...

Which would also be possible in GUI... more or less...

 

[GhostWolf]

I thought about doing that, but its just too annoying lol.

 

[wd40bomber7]

And how exacly can you make it without handle vars ? x.X

You do the reverse of handle vars. Instead of attaching the struct to the unit, you attach the unit to the struct. Then periodiclly you cycle through all the structs. (Instead of cylcing through the units) Of course there are times when this is neither practical nor smart, but I've used it many many times.

 

[Blue_Jeans]

call TimerStart(t, 1, false, function mecahnictimer)

mecahnictimer? No such function exists, mate. I think you forgot to update the name when you renamed the functions from your first example.

 

[Just_Spectating]

ok so what exactly does this code even do...

function mechanicCon takes nothing returns boolean
  return IsUnitType(GetFilterUnit(),UNIT_TYPE_MECHANICAL) == true
endfunction
function mecahnictimer takes nothing returns nothing
  local timer t = GetExpiredTimer()
  local unit whichUnit = GetHandleUnit(t, "whichUnit")
  local real x = GetHandleReal(t, "x")
  local real y = GetHandleReal(t, "y")
  local real distance = DistanceBetweenPointsXY(x, y, GetUnitX(whichUnit), GetUnitY(whichUnit))  local real mana = GetUnitState(whichUnit, UNIT_STATE_MANA )  if distance > 0 then
    call SetUnitState(whichUnit, UNIT_STATE_MANA, mana-distance/20)
  endif
  call FlushHandleLocals(t)
  call DestroyTimer(t)
  set t = null
  set whichUnit = null
endfunction
function mechanic takes nothing returns nothing
  local timer t = CreateTimer()
  local group g = CreateGroup()
  local unit whichUnit local real x local real y
  call GroupEnumUnitsInRect(g, bj_mapInitialPlayableArea, Condition(function mechanicCon))
  loop
    set t = null
    set whichUnit = FirstOfGroup(g)
    exitwhen whichUnit == null
    call GroupRemoveUnit(g, whichUnit)
    set t = CreateTimer()
    call SetHandleReal(t, "x", GetUnitX(whichUnit))
    call SetHandleReal(t, "y", GetUnitY(whichUnit))
    call SetHandleHandle(t, "whichUnit", whichUnit)
    call TimerStart(t, 0.2, false, function mecahnictimer)
  endloop
  call DestroyGroup(g)
  set g = null
  set whichUnit = null
endfunction
//==== Init Trigger NewTrigger ====
function InitTrig_NewTrigger takes nothing returns nothing
  set gg_trg_NewTrigger = CreateTrigger()
  call TriggerRegisterTimerEventPeriodic( gg_trg_NewTrigger, 0.20 )
  call TriggerAddAction(gg_trg_NewTrigger, function mechanic)
endfunction

 

[GhostWolf]

Forget that one, use the second one I gave you.

The first one wasn't what you needed but I thought you know Jass so I gave you to customize for your needs, the second one is what you need.

 

[Just_Spectating]

Im getting 6 errors. maybe something is wrong with the script.

 

[GhostWolf]

The second one shouldn't have any problems with it.

Do you have Kattana's local handle vars script and the little script I gave you in your header ?

 

[Just_Spectating]

yes i do. usually if kattana's isnt there and something requires it the whole WE crashes on my comp. i fixed 2 of the errors, but still have 4 more.

 

[GhostWolf]

I don't know why you are getting any errors as I got 0.

By the way, I just tested it and it worked.

Incase there are errors in the previous script (though there shouldn't be any), ill post it here.

Make sure to name your trigger "NewTrigger", copy the code into it, and only then change the name to whatever you want.

function onesecondCon takes nothing returns boolean
    return GetUnitTypeId(GetFilterUnit()) == 'h000'    
endfunction
function onesecondtimer takes nothing returns nothing
    local timer t = GetExpiredTimer()
    local unit whichUnit = GetHandleUnit(t, "whichUnit")
    local real x = GetHandleReal(t, "x")
    local real y = GetHandleReal(t, "y")
    local real distance = DistanceBetweenPointsXY(x, y, GetUnitX(whichUnit), GetUnitY(whichUnit))
    if distance == 0 then
        call KillUnit(whichUnit)
    endif
    call FlushHandleLocals(t)
    call DestroyTimer(t)
    set t = null
    set whichUnit = null
endfunction
function onesecond takes nothing returns nothing
    local timer t = CreateTimer()
    local group g = CreateGroup()
    local unit whichUnit
    local real x
    local real y
    call GroupEnumUnitsInRect(g, bj_mapInitialPlayableArea, Condition(function onesecondCon)) 
    loop
        set t = null
        set whichUnit = FirstOfGroup(g)
        exitwhen whichUnit == null
        call GroupRemoveUnit(g, whichUnit)
        set t = CreateTimer()
        call SetHandleReal(t, "x", GetUnitX(whichUnit))
        call SetHandleReal(t, "y", GetUnitY(whichUnit))
        call SetHandleHandle(t, "whichUnit", whichUnit)
        call TimerStart(t, 1, false, function onesecondtimer)
    endloop
    call DestroyGroup(g)
    set g = null
    set whichUnit = null 
endfunction

//==== Init Trigger NewTrigger ====
function InitTrig_NewTrigger takes nothing returns nothing
    set gg_trg_NewTrigger = CreateTrigger()
    call TriggerRegisterTimerEventPeriodic( gg_trg_NewTrigger, 0.20 )
    call TriggerAddAction(gg_trg_NewTrigger, function onesecond)
endfunction

 

[Just_Spectating]

found the problem.. the first script u gave me still had "mecahnictimer" instead of the "onesecondtimer" of the line "call TimerStart(t, 1, false, function onesecondtimer)" or for somereason my code had that.





EDIT: well the trigger is working (i think..) but nothing is happening

 

[Just_Spectating]

still nothing happening...

 

[GhostWolf]

Its a problem with you implanting the code since I checked it and it worked.
Did you change the rawcode in the second line ?

return GetUnitTypeId(GetFilterUnit()) == '[COLOR="Red"]h000[/COLOR]'

Change the red part to your unit type rawcode.

 

[Just_Spectating]

of course i changed it......

 

[GhostWolf]

Can you upload your map/send it to me please ?