string  SET = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
function CharID takes string S returns integer
    local integer I = 0
    loop

        if S == SubString(SET,I,I+1) then
            return I
        endif
    
        if I >= 25 then
            return -1
        endif
        
        set I = I + 1
    endloop

    return -1
endfunction

function SeqID takes string S returns integer

    local integer Lenght        = StringLength(S)-1
    local integer CurrentID     = 0
    local integer Loop          = 0
    local integer InternalLoop  = 0
    local integer Output        = 0
    
    if Lenght > 11 then
        return -1
    endif
    
    loop
        set CurrentID = CharID(SubString(S,Loop,Loop+1))
        if CurrentID == -1 then
            return -1
        endif

        set InternalLoop = Loop
        
            loop
                set CurrentID = CurrentID * 17 + 1
                exitwhen InternalLoop == 0
                set InternalLoop = InternalLoop -1
            endloop

        set Output = Output + CurrentID
        exitwhen Loop == Lenght
        set Loop = Loop + 1
    endloop
    return ModuloInteger(Output,512)
endfunction

function spellbus_add takes string S, code C returns boolean
    local integer TEST = SeqID(S)
    
    if hash_link[TEST] != 0 then
        //hash collision resolution code not yet implemented
        //it expected to have up to 15 hash collisions per each ID without any issues
        return false
    endif
    
    set raw_id[TEST]        = S
    set linked_object[TEST] = Condition(C)
    return true
endfunction

function Trig_spellbus_Actions takes nothing returns nothing
    
    local integer ID = 0
    local triggercondition F

    if hash_link[GetSpellAbilityId()-'A000'] == -1 then
        return
    endif
    
    if hash_link[GetSpellAbilityId()-'A000'] == 0 then
        set ID = SeqID(GetAbilityEffectById(GetSpellAbilityId(),EFFECT_TYPE_SPECIAL, 0))
        if ID == -1 then
            set hash_link[GetSpellAbilityId()-'A000'] = -1
            return
        endif
        if linked_object[ID] != null then
            set hash_link[GetSpellAbilityId()-'A000'] = ID
        else
            set hash_link[GetSpellAbilityId()-'A000'] = -1
            return
        endif
    endif
    
    set F = TriggerAddCondition(execf,linked_object[hash_link[GetSpellAbilityId()-'A000']])
    call TriggerEvaluate(execf)
    call TriggerRemoveCondition(execf,F)
endfunction

globals
    hashtable HASH = InitHashtable()
    trigger   EXEC = CreateTrigger()
    integer   HC_SPELLBUS_RAW = 146
    integer   HC_SPELLBUS_IDS = 147
    
    conditionfunc   array SPELLS
    integer           SPELLSLINK = 0
endglobals

function RegisterSpell takes string Name, code Method returns nothing
    set SPELLSLINK = SPELLSLINK + 1
    set SPELLS[SPELLSLINK] = Condition(Method)
    call SaveInteger(HASH,HC_SPELLBUS_RAW,StringHash(Name),SPELLSLINK)
endfunction

function Trig_spellbus_Actions takes nothing returns nothing
    
    local integer ID = LoadInteger(HASH,HC_SPELLBUS_IDS,GetSpellAbilityId())
    if ID == -1 then
        return
    endif
    
    if ID == 0 then
        set ID = LoadInteger(HASH,HC_SPELLBUS_RAW,StringHash(GetAbilityEffectById(GetSpellAbilityId(),EFFECT_TYPE_SPE​CIAL, 0)))
        if ID == 0 then
            call SaveInteger(HASH,HC_SPELLBUS_IDS,GetSpellAbilityId(),-1)
            return
        else
            call SaveInteger(HASH,HC_SPELLBUS_IDS,GetSpellAbilityId(),ID)
        endif
    endif
    
    call TriggerAddCondition(EXEC,SPELLS[ID])
    call TriggerEvaluate(EXEC)
    call TriggerClearConditions(EXEC)
endfunction

function firebolt takes nothing returns boolean
    call DisplayTextToPlayer(Player(0),0,0,"Firebolt!")
    return false
endfunction

//===========================================================================
function InitTrig_spellbus takes nothing returns nothing
    set gg_trg_spellbus = CreateTrigger(  )
    call TriggerRegisterAnyUnitEventBJ( gg_trg_spellbus, EVENT_PLAYER_UNIT_SPELL_EFFECT )
    call TriggerAddAction( gg_trg_spellbus, function Trig_spellbus_Actions )
    
    call RegisterSpell("FIREBALL",function firebolt)
    
endfunction

callback onUnitSpellCast ('A000') { // Может быть макроопределение (define), константа, переменная, даже функция
    BJDebugMsg ("A000");
}

function SPL_SpellRun takes nothing returns nothing
    local integer i=GetSpellAbilityId()
    local unit u=GetTriggerUnit()
    
    // 'C000'
    if i >= 0x43000000 and i <= 0x43ffffff then
        call ExecuteFunc("s" + I2S(i))
    endif
    
    set u = null
endfunction

function s1127231541 takes nothing returns nothing
    // ...
endfunction

#include "lib//MySuperSpell.j" (id = 'A000', manacost = 50)