function AddGold takes nothing returns boolean
    local unit f = GetFilterUnit()

    if GetUnitTypeId(f) == 'e00D' then
        if GetResourceAmount(f) == 10 then
            call KillUnit(f)
            call BJDebugMsg("Kill!")
        elseif GetResourceAmount(f) >= 10 and IsUnitDeadBJ(f) == false then
            call AddResourceAmount(f, -10)
            call SetPlayerState(GetOwningPlayer(f), PLAYER_STATE_RESOURCE_GOLD, GetPlayerState(GetOwningPlayer(f), PLAYER_STATE_RESOURCE_GOLD) + 10)
            call CreateGoldTextTag(0, GetUnitX(f), GetUnitY(f), "+10")
        endif
    endif

    set f = null

    return false
endfunction

function Trig_Gold_Actions takes nothing returns nothing
    local group g = CreateGroup()

    call GroupEnumUnitsInRect(g, GetWorldBounds(), function GoldEnumFunc)
    call AddGold()
endfunction

//===========================================================================
function InitTrig_Gold takes nothing returns nothing
    set gg_trg_Gold = CreateTrigger()
    call TriggerAddAction(gg_trg_Gold, function Trig_Gold_Actions)
    call TimerStart(CreateTimer(), 2., true, function Trig_Gold_Actions)
endfunction

IntelliJASS

Находит ошибки синтаксиса без смс и регистрации