Code:

bind PUBM -|- * mondgesichtparserset mond(sprueche1) {    "WAHNSINN! Ein Punkt! Was soll ich denn jetz damit? Oder wird das mal ein Mondgesicht? "    "Punkt Punkt Punkt... Ach so! Mondgesicht soll das werden! Dann mach ma jemand hier weiter! "    "Soll dieser Punkt jetzt das Ende eines Satzes darstellen oder den Anfang von einem Mondgesichts? "    "So Loidde, es geht wieder ma rund! Ein Mondgesicht wurde angefangen... Gibt mir wer nen zweiten Punkt? "    "Noch 'n Punkt, sonst wird das kein Mondgesicht! "    "Oben komme Haare dran und Ohren, dass er hören kann! "    "Hals und Bauch hat er auch, Arme noch und Beine dran, fertig ist der kleine Mann! "}set mond(sprueche2) {    "Hmm.. Noch ein Punkt! Jetzt wird's ernst! Macht ma' das Mondgesicht hier fertig! "    "Das wird ja immer doller hier! Jetzt haben wir schon zwei Punkte! "    "NOCH EIN PUNKT! Unglaublich dass ihr es so weit bringt! Jetzt müsst ihr ein KOMMA machen, Info vom Bot für Mensch! "    "Wird's heute noch was? Jetzt noch ein Komma und 'n Strich und wir sind alle glücklich! "    "Ein Hals wie eine Flasche, ein Bauch wie eine Tasche! Den Rest packt ihr auch noch! "}set mond(sprueche3) {    "So... und nun? Jetzt noch nen STRICH bitte, dann wird hier endlich nich mehr gespamt... "    "Ein KOMMA! Ganz richtig! Und jetzt noch nen Strich und fertig ist der ganze Mann. "    "Und nu?? Wo bleibt der STRICH? "    "LOS LOS! Nur noch ein STRICH und die Sache hier is endlich gegessen! "    "Glückwunsch dass ihr es so weit gebracht habt... Jetzt, was fehlt noch? Hm? Nachdenken! - DER STRICH! "    "Knöpfchen, Knöpfchen, Knopf. Hütchen auf den Kopf. Aber Strich fehlt trotzdem immernoch! " }setudef flag mondgesichtsetudef str  mondgesicht_countproc mondgesichtparser { nickname hostname handle channel arguments } {    if { ![channel get $channel mondgesicht] } { return 0 }    if { [info exists ::mond(flood,$channel)] } { return 0 }    if { ![info exists ::mond(hosts,$channel)] } {        set ::mond(hosts,$channel) ""    }    if { [string match "*$hostname*" $::mond(hosts,$channel)] } { return 0 }    if { ![info exists ::mond(status,$channel)] && $arguments == "." } {        set ::mond(anfang) [clock seconds]        set spruch [lindex $::mond(sprueche1) [rand [expr [llength $::mond(sprueche1)] - 1]]]        putquick "privmsg $channel :$spruch ($nickname)"        set ::mond(status,$channel) 2        lappend ::mond(hosts,$channel) $hostname        lappend ::mond(nicks,$channel) $nickname        return 0    }    if { [info exists ::mond(status,$channel)] && $arguments == "." && $::mond(status,$channel) == 2 } {        set spruch [lindex $::mond(sprueche2) [rand [expr [llength $::mond(sprueche2)] - 1]]]        putquick "privmsg $channel :$spruch ($nickname)"        set ::mond(status,$channel) 3        lappend ::mond(hosts,$channel) $hostname        lappend ::mond(nicks,$channel) $nickname        return 0    }    if { [info exists ::mond(status,$channel)] && $arguments == "," && $::mond(status,$channel) == 3 } {        set spruch [lindex $::mond(sprueche3) [rand [expr [llength $::mond(sprueche3)] - 1]]]        putquick "privmsg $channel :$spruch ($nickname)"        set ::mond(status,$channel) 4        lappend ::mond(hosts,$channel) $hostname        lappend ::mond(nicks,$channel) $nickname        return 0    }    if { [info exists ::mond(status,$channel)] && $arguments == "-" && $::mond(status,$channel) == 4 } {        set ende [clock seconds]        set time [expr $ende - $::mond(anfang)]        lappend ::mond(nicks,$channel) $nickname        set count [expr [channel get $channel mondgesicht_count] + 1]        if { $count == "" } {            set count 1        }        channel set $channel mondgesicht_count $count        putquick "privmsg $channel : Ritze-ratze, ritze-ratze,fertig ist die Miezekatze. \\o/ - das hat $time Sekunden gedauert - Hände in die Luft!"#Punkt Punkt Komma Strich - fertig ist das MoOnGESICHT \\o/ - das hat $time Sekunden lang gedauert - Ihr seid mir Schlafmützen!"        putquick "privmsg $channel :Das Mondgesicht Nr. $count wurde von den Superusern [join $::mond(nicks,$channel) ", "] gemalt!"        set ::mond(flood,$channel) 1        timer 1 [list unset ::mond(flood,$channel)]        unset ::mond(hosts,$channel)        unset ::mond(nicks,$channel)        unset ::mond(status,$channel)    }}putlog "Mondgesicht.loaded"