[Snippet] TerrainCheck

[Nestharus]

For maze maps.

library TerrainCheck /* v1.0.0.0
*************************************************************************************
*
*   */ uses /*
*
*       */ Tt       /*hiveworkshop.com/forums/jass-resources-412/system-timer-tools-201165/
*
************************************************************************************
*
*   struct TerrainCheck extends array
*       method register takes unit whichUnit returns nothing
*           -   Registers unit to be killed when it is on terrain
*           -   call TerrainCheck[terrainType].register(whichUnit)
*
*       method unregister takes unit whichUnit returns nothing
*           -   Unregisters unit from terrain (will no longer die on that terrain)
*           -   call TerrainCheck[terrainType].unregister(whichUnit)
*
************************************************************************************/
    globals
        private constant real RADIUS = 16
        private hashtable table = InitHashtable()
    endglobals
    
    private struct Check extends array
        private static constant real TIMEOUT = .03
        
        unit c
        integer t
        implement CTTC
            local unit u
            local real x
            local real y
            local integer m
        implement CTTCExpire
            set u = this.c
            set x = GetUnitX(u)
            set y = GetUnitY(u)
            set m = t
            
            if (GetTerrainType(x+RADIUS,y) == m and GetTerrainType(x-RADIUS, y) == m and GetTerrainType(x, y+RADIUS) == m and GetTerrainType(x, y-RADIUS) == m and /*
            */ GetTerrainType(x+RADIUS, y+RADIUS) == m and GetTerrainType(x+RADIUS, y-RADIUS) == m and GetTerrainType(x-RADIUS, y+RADIUS) == m and GetTerrainType(x-RADIUS, y-RADIUS) == m) then
                call KillUnit(u)
            endif
        implement CTTCNull
            set u = null
        implement CTTCEnd
    endstruct
    
    struct TerrainCheck extends array
        method register takes unit u returns nothing
            local Check check =  Check.create()
            call SaveInteger(table, check, GetHandleId(u), check)
            set check.c = u
            set check.t = this
        endmethod
        method unregister takes unit u returns nothing
            local integer h = GetHandleId(u)
            local Check c
            if (HaveSavedInteger(table, this, h)) then
                set c = LoadInteger(table, this, h)
                call RemoveSavedInteger(table, this, h)
                set c.c = null
                call c.destroy()
            endif
        endmethod
    endstruct
endlibrary

 

[Bribe]

"set m = t" such an evil implicit this -_-

For maze maps it has its uses, but your description is nowhere to be found and the API is horribly unintuitive. You should promote your stuff better, for me writing about what a resource is and why it is useful is a fun process.

 

[Magtheridon96]

I think it's better to have a module API for this because hard-coding the KillUnit call is a terrible idea D: (With your standards anyway)

Graveyarding after: 1 week.

 

[Bribe]

Or this should be renamed to "Deadly Terrain" or at least a name more to the point of "this resource is intended to kill a unit depending on the terrain type"

 

[Nestharus]

This sort of terrain check is very standard in maze maps on wc3, which is why it was initially written, but it should be modified to do different things based on terrain, like sliding, another common thing in maze maps.