I need an little help with mondgesicht.tcl
This script is building a moon face by users like ..,- what means
I searched the internet for a long time and found a script.
But the script is not working.
I am a noob @ tcl -.-
the script should react on . , - in my channel
I uploaded the script an loaded it, nothing happend
I hope someone can help me with that.
Have I to start the script somehow? Found nothing in the script for that.
I also miss the option for the channel.
I want that script to work only in one of my channels.
I would appreciate your help a lot!!!
Code: Select all
## HoLGI development
## ..,- mondgesicht
## -> www.ircscript.de
bind PUBM -|- * mondgesichtparser
set 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 Leude, es geht wieder ma rund! Ein Mondgesicht wurde angefangen... Gibt mir wer nen zweiten Punkt? "
"Noch 'n Punkt, sonst wird das kein Mondgesicht! "
}
set mond(sprueche2) {
"Hmm.. Noch ein Punkt! Jetzt wird's ernst! Macht ma das Mondgesicht hier fertig! "
"Das wird ja immer bunter hier! Jetzt haben wir schon zwei Punkte! "
"NOCH EIN PUNKT! Unglaublich dass ihr es so weit bringt! Jetzt müsst ihr ein KOMMA machen, nur so als Info! "
"Wird's heute noch was? Jetzt noch ein Komma und 'n Strich und wir sind alle glücklich! "
}
set mond(sprueche3) {
"So... und nun? Jetzt noch nen STRICH bitte, dann wird hier endlich nich mehr genervt... "
"Ein KOMMA! Ganz richtig! Und jetzt noch nen Strich und ich bin in der Glückseligkeit (: "
"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! "
}
setudef flag mondgesicht
setudef str mondgesicht_count
proc 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 :Punkt Punkt Komma Strich - Fertig ist das MONDGESICHT \\o/ - das hat $time Sekunden lang gedauert - Ihr braucht immer... Wir Bots sind viel schneller (:!"
putquick "privmsg $channel :Das Mondgesicht Nr. $count hier im Chan wurde von [join $::mond(nicks,$channel) ", "] erstellt!"
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"
