Code:

[15:58] Tcl error [afk_pubm]: couldn't compile regular expression pattern: quantifier operand invalid

Code:

bind pub - !afk afk_setbind pub - !back afk_back#bind pub - afk afk_set#bind pub - back afk_backbind pubm - * afk_pubmvariable afkarrayvariable whoarrayproc afk_back {nick host handle channel text} { global afkarray whoarray if {[info exists afkarray($nick)]} {    unset afkarray($nick)    afk_notc $nick "Du bist nicht länger \"!afk\"."    if {[info exists whoarray($nick)]} {       #this needs to be changed in case more than one person has been looking for you       afk_notc $nick "$whoarray($nick) hat/haben Dich in Deiner Abwesenheit gesucht."       unset whoarray($nick)    } } else {   afk_notc $nick "Du warst nicht \"!afk\"." }}proc afk_set {nick host handle channel text} { global afkarray whoarray if {$text == ""} {    set text "." } else {   set text ": \002$text\002" } if {![info exists afkarray($nick)]} {    set afkarray($nick) $text } else {   set entry $afkarray($nick)   set afkarray($nick) $text } afk_notc $nick "Du bist auf \002away from keyboard\002 gesetzt. Grund${text}. Zurück setzt Du Dich mit \002!back\002."}proc afk_pubm {nick host handle channel text} { global afkarray whoarray if {$text=="^"||$text=="^^"||$text=="^^^"||$text=="*"} {    return } foreach name [array names afkarray] { regsub -all {\(} $text "" text regsub -all {\)} $text "" text regsub -all {\{} $text "" text regsub -all {\}} $text "" text regsub -all {\[} $text "" text regsub -all {\]} $text "" text         if {[regexp -nocase -- $text $name]} {            set afkmsg "$name ist away from keyboard"            afk_notc $nick "${afkmsg}. Grund$afkarray($name). Eine eigene away-Nachricht setzt Du Dir mit !away <text>."            regsub -all {\|} $nick {} whonick            if {[info exists whoarray($name)]} {               set who $whoarray($name)               set entry $whoarray($name)               set whoarray($name) "$who and $whonick"            } else {              set whoarray($name) $whonick            }            #break         } }}proc afk_say {channel text} { putquick "PRIVMSG $channel :$text"}proc afk_notc {nick text} { putquick "NOTICE $nick :$text"}