# IR Codes for Austar "Omega" STB (manufacturer: Advanced Digital Broadcast)

source /tvlib/tcl/tv/mfslib.tcl

proc setIr { irObj field irSequence } {
    
    set savedInitial 0

    foreach irPart $irSequence {

        if {$savedInitial == 0} {
            set savedInitial 1
            dbobj $irObj set $field $irPart
        } else {
            dbobj $irObj add $field $irPart
        }

    }
}


proc omega {} {

    set db [dbopen]

    puts "Setting Austar Omega codes for TiVo 30001..."

    RetryTransaction {

        set tivoir [db $db open /Component/Ir/TivoFormat/30001]

        setIr $tivoir "Dig0" "0 51 44 0 517 250 38 25 40 24 38 26 38 89 38 27 38 26 39 25 38 26 38 25 40 24 38 27 38 25 39 26 38 90 39 89 39 89 39 26 38 89 38 90 39 89 39 89 39 89 39 89 38 89 38 89 40 89 38 25 39 25 38 27 38 25 39 25 38 27 38 24 40 25 38 89 39 89 38 89 39 89 40 89 38 89 38 89 40 89 38 1301"
        setIr $tivoir "Dig1" "0 51 44 0 518 249 39 24 40 24 38 27 38 89 38 26 39 24 40 24 39 26 39 24 40 24 39 26 38 24 40 24 39 89 40 89 39 89 38 26 38 89 39 89 40 89 38 89 38 89 40 89 39 88 39 89 40 89 39 89 39 26 39 24 40 24 39 26 38 25 40 24 38 26 39 24 40 89 39 89 39 89 40 89 39 89 39 88 40 89 39 1301"
        setIr $tivoir "Dig2" "0 51 44 0 517 251 37 26 39 26 38 27 38 90 37 28 36 26 39 26 37 27 37 26 39 26 38 27 38 26 39 26 37 90 39 90 37 90 38 27 38 90 38 90 39 90 38 90 38 90 39 90 37 90 37 90 39 90 37 26 39 90 37 26 38 26 37 27 38 26 39 26 38 27 37 90 37 27 37 90 38 90 39 90 38 90 37 90 39 90 37 1301"
        setIr $tivoir "Dig3" "0 51 44 0 516 251 36 27 38 27 36 28 36 91 37 28 37 26 39 26 36 28 36 27 38 27 36 28 37 26 38 27 36 91 38 90 36 91 36 28 36 91 36 91 38 90 37 90 36 91 39 90 37 90 37 90 38 91 36 91 37 90 38 26 37 28 36 26 38 27 36 28 36 27 38 26 37 27 37 90 37 91 38 91 36 91 37 90 38 91 36 1301"
        setIr $tivoir "Dig4" "0 51 44 0 516 251 37 26 38 26 37 28 36 91 36 28 36 27 38 26 37 28 36 26 39 26 36 28 36 27 38 27 36 91 38 91 37 90 37 27 36 91 36 91 38 91 37 90 37 90 38 91 36 91 36 91 38 90 37 26 38 26 36 91 38 27 36 28 37 26 38 26 37 28 36 91 36 91 38 27 36 91 38 91 36 91 36 91 38 91 37 1301"
        setIr $tivoir "Dig5" "0 51 44 0 515 253 35 28 36 28 35 29 35 92 35 30 35 28 36 28 35 30 35 28 36 28 35 29 35 28 37 27 35 93 36 93 35 93 35 30 35 93 35 93 36 93 35 92 35 92 37 92 35 93 35 93 36 93 35 92 35 29 35 93 35 30 35 28 36 28 35 30 35 28 36 28 35 93 36 28 35 93 36 93 35 92 35 92 36 93 35 1301"
        setIr $tivoir "Dig6" "0 51 44 0 515 252 35 28 37 27 36 29 35 92 36 28 36 27 37 27 35 29 35 28 37 27 36 29 35 27 38 27 36 91 37 92 35 92 35 29 35 92 36 91 37 92 35 92 35 92 37 91 36 91 36 91 37 92 36 27 37 91 36 91 36 29 35 28 36 28 35 29 36 27 37 92 35 27 37 28 35 92 37 91 36 91 36 91 37 92 35 1301"
        setIr $tivoir "Dig7" "0 51 44 0 516 252 36 27 38 27 36 28 36 91 36 28 36 27 38 27 36 28 36 27 38 27 36 28 36 27 38 27 36 91 38 91 36 91 36 28 36 91 36 91 38 91 36 91 36 91 38 91 36 91 36 91 38 91 36 91 36 91 38 91 36 27 38 26 36 28 36 26 38 27 36 28 36 27 38 27 36 91 38 91 36 91 36 91 38 91 36 1301"
        setIr $tivoir "Dig8" "0 51 44 0 515 252 36 27 38 27 36 28 36 91 36 28 36 27 38 27 36 28 36 27 38 27 36 28 36 27 38 27 36 91 38 91 36 91 36 28 36 91 36 91 38 91 37 90 36 91 38 91 36 91 36 91 38 91 36 27 37 27 36 28 36 91 36 28 36 27 38 27 36 28 36 91 36 91 38 91 36 26 38 91 36 91 36 91 38 91 36 1301"
        setIr $tivoir "Dig9" "0 51 44 0 515 252 36 26 38 27 36 28 36 91 36 28 36 27 38 27 36 28 36 27 38 27 36 28 36 27 37 27 36 91 38 91 36 91 36 28 36 91 36 91 38 91 36 91 36 91 38 91 36 91 36 91 38 91 36 91 36 28 36 27 38 91 36 27 38 27 36 28 36 27 38 27 36 91 38 91 36 27 38 91 36 91 36 91 38 91 36 1301"
    }

    puts "Finished! Reboot your TiVo for the new codes to take effect."

    dbclose $db

}