function SB_massive takes integer i, integer r returns nothing
    local string s
    loop
        set s = GetObjectName(i)
        if s != "Default string" then
            if SubString(s, 0, 1) == "Z" then
                set udg_Z_Ability[S2I(SubString(s, 1, 5))] = i
            endif
        endif
        set i = i + 1
        if (i * 0x01000000) / 0x01000000 == 0x5B then
            set i = i + 0xD5  // 0xD5 = 213
        endif
        exitwhen i > r
    endloop
    set s = null
endfunction

    call SB_massive('A000', 'A0ZZ')
    call SB_massive('A100', 'A1ZZ')