Blowfish

proc echo:addpre {nick uhost hand chan arg} {
        if {[string match $chan $::chan(add)]!=0 && [string match $nick $::echo(add)]!=0} {
                set rls [lindex $arg 0]
                set section [lindex $arg 1]
                                if { [check_cee $rls] !="1"} {
                        foreach chanas $::chan(all) {
                                        annonce:speed $chanas $::skin(pre) "PRE" "$section" "$rls" "" "" "" ""
                                                                                                                                        }
                        foreach chanas $::chan(fr) {
                                                                if { [check_fr $rls] =="1" } {
                                        annonce:speed $chanas $::skin(pre) "PRE" "$section" "$rls" "" "" "" ""
                                                                                                                        }
                                                                                                                        }
                                                                                 }
}
}