NEW! JASS function pack, please contribute

DisableAbilityForPlayerForDuration(abilityId, duration)

AddAbilityLifeTimer(whichUnit, abilityId, duration)

AddItemLifeTimer(itemId, duration)

AddDoodadLifeTimer(whichDoodad, duration)

RespawnItemAfterPickup(item whichItem, real waittime, boolean repeating)

CreatePermDeformationWithTimer

2DArrayIndex(element1, element2, 2dsize)

SlowUnit(unit whichUnit, real percent, real duration)

Avatar(whichUnit) //Reproduces exact default effect

GrowUnit(whichUnit, growamount, growperiod)

AttachAOEDamageToUnit(whichUnit, damage, radius, ff, duration)

AttachLineDamageToUnit(... integer degreeOffset) //Degree offset is +/- relative to unit facing

CountPlayersInLeaderboard

CountPlayersInMultiboard

GetPlayerInMultiboardPosition(integer position, multiboard lb)

MakeUnitUnselectable(unit whichUnit) //Would give locust ability and generate triggers to remove from selection if selected (just in case)

StunUnit(unit whichUnit, real duration) //Would create the stun special effect and manually disable the unit

MoveUnitInstantlyOverTime(whichunit, loc1, loc2, duration)

MoveUnitInstantlyOverTimeCheckCliff(whichunit, loc1, loc2, duration, cliffheight)

KnockbackUnitNoDrop(caster, whichunit, magnitude) //Won't knock back to lower heights

KnockbackUnitDrop(caster, whichunit, magnitude) //Will

//These would make a group of units circle a target unit
//either by giving move orders or by instantly moving them
//the rotateunit boolean determines whether they also
//actually move in a circle around the target. The onmove
//boolean is ignored if rotating is set to false. It determines
//whether the rotating only occurs if the unit is moving
//The facing booleans are similar but for the circling units
//rotating their facing.
MakeGroupCircleUnitOrder(whichGroup, whichUnit, radius, boolean rotateunit, boolean unitonmove, boolean rotatefacing, boolean facingonmove)

MakeGroupCircleUnitInstant(whichGroup, whichUnit, radius, boolean rotateunit, boolean unitonmove, boolean rotatefacing, boolean facingonmove)

//Would return a point on a spiral. Using dotindex could have
//inside a for loop to make spirals.
GetSpiralPoint(location center, real radius, numcirc, numdots, dotindex)

GetRectArea(rect)

OrderUnitToPatrolCircle(unit whichUnit, location center, real radius) //Would generate trigger to detect another order being given and delete itself

-GetLineTargets(distance, angle, radius)
-GetLineExpandingRadiusTargets(distance, angle, radius, growrate, finalradius)

-ForForceWithWaits
-ForGroupWithWaits

//Simple emulation of real healing for use in JASS spells
function TargetHeal takes unit whichUnit, real healAmount returns nothing
    call SetUnitLifeBJ( whichUnit, ( GetUnitStateSwap(UNIT_STATE_LIFE, whichUnit) + healAmount ))
    call AddSpecialEffectTargetUnitWithTimer( "origin", whichUnit, "Abilities\\Spells\\Human\\Heal\\HealTarget.mdl", 1.8 )
endfunction

//AOE extension of above function
//Notice suffix "simple", a "complex" suffix would indicate that it
//does partial/quarter/etc healing
function AOEHealSimple takes unit whichUnit, real healAmount, real radius, boolean friendlyfire returns nothing
    local integer i = 1
    local unit temp_iterateunit = null
    local group tempgroup = CreateGroup()

    //Todo: add alive check
    set tempgroup = GetUnitsInRangeOfLocMatching(radius, GetUnitLoc(whichUnit))

    loop
        exitwhen i > CountUnitsInGroup(tempgroup)
        set temp_iterateunit = IterateGroup(tempgroup, i)
        if( IsUnitAlly(temp_iterateunit, GetOwningPlayer(whichUnit)) == true or friendlyfire == true ) then
            call TargetHeal(temp_iterateunit, healAmount)
        endif  
        set i = i + 1
    endloop
endfunction

//Works the same way as the blizzard.j function, but works with 0-based slot indices
//Returns the 0-based slot index of the specified item type
//Are there more than 1 items of this type it returns the slot index of the first item it finds
//(= the one with the lower slot index)
//Returns -1, if it can't find an item of that type
function GetInventoryIndexOfItemType takes unit whichUnit, integer itemId returns integer
    local integer index
    local item    indexItem

    set index = -1
    loop
        set indexItem = UnitItemInSlot(whichUnit, index)
        if (indexItem != null) and (GetItemTypeId(indexItem) == itemId) then
            return index
        endif

        set index = index +1
        exitwhen index >= bj_MAX_INVENTORY
    endloop
    return -1
endfunction

//Drops all items of the specified type to the position, where the unit resides
//Returns the number of dropped items
function UnitRemoveItemsById takes unit whichUnit, integer itemId returns integer
    local integer removed = 0
    local integer itemSlot
    loop
        set itemSlot = GetInventoryIndexOfItemType(whichUnit,itemId)
        exitwhen itemSlot == -1
        call UnitRemoveItemFromSlot(whichUnit, itemSlot)
        set removed = removed + 1
    endloop
    return removed
endfunction

//Removes all items of the specified type from the specified unit
//Returns the number of dropped items
function RemoveItemsFromUnitById takes unit whichUnit, integer itemId returns integer
    local integer removed = 0
    local integer itemSlot
    loop
        set itemSlot = GetInventoryIndexOfItemType(whichUnit,itemId)
        exitwhen itemSlot == -1
        call RemoveItem(UnitRemoveItemFromSlot(whichUnit, itemSlot))
        set removed = removed + 1
    endloop
    return removed
endfunction

native RemoveRect               takes rect whichRect returns nothing
native RemoveRegion             takes region whichRegion returns nothing
native RemoveLocation           takes location whichLocation returns nothing

function IsPrime takes integer i returns boolean 
   local integer c = 2 
   if ModuloInteger(i,2) == 0 and i != 2 then 
       set i = 0 
   else 
     loop 
        exitwhen c > R2I(SquareRoot(I2R(i))) 
        if ModuloInteger(i,c) == 0 then 
           set c = i 
           set i = 0 
        endif 
        set c = c  + 1 
     endloop 
   endif 
    
   if( i != 0 )
      return true
   endif
  
   return false
endfunction

function ByteToHex takes integer b returns string
    local string charmap = "0123456789abcdef"
    local integer c1 = ModuloInteger( b, 16 )
    local integer c2 = b / 16
    return SubString( charmap, c2, c2 + 1 ) + SubString( charmap, c1, c1 + 1 )
endfunction

function ColorToStringFraction takes real alpha, real red, real green, real blue returns string
    return ByteToHex( alpha * 255 ) + ByteToHex( red * 255 ) + ByteToHex( green * 255 ) + ByteToHex( blue * 255 ) 
endfunction

function ColorToStringFraction takes real alpha, real red, real green, real blue returns string
    return ByteToHex( R2I(alpha * 255) ) + ByteToHex( R2I(red * 255) ) + ByteToHex( R2I(green * 255) ) + ByteToHex( R2I(blue * 255) ) 
endfunction

function DistanceBetweenUnits takes unit unitA, unit unitB returns real
    local real dx = GetUnitX(unitB) - GetUnitX(unitA)
    local real dy = GetUnitY(unitB) - GetUnitY(unitA)
    return SquareRoot(dx * dx + dy * dy)
endfunction