egghelp/eggheads community

Ich habe mal versucht das selber zu fixen, aber ich steige bei dem ID System von Wetter.com schon überhaupt nicht durch :s

Würde mich freuen wenn De Kus da nochmal Zeit und Lust für findet.

Nobody who can help me?

Hello,
im searching for an TCL Script which could save a lot of Bad Words in a txt file and give it out on this way:

Mike: .abuse tom
<botnick>: Mike thinks tom is a <random word>

Could you help me? =)

Its the same Problem.

The Script allows to add Quotes and give an notice.

But it dont give out an Quote in the Channel.

Fixed!

Thx, i will test it

Im using the Quote Script by Steinsky, since a short time the Bot gives no Output to the "!quote command. If i configure the script to give out the quotes in a private notice it still works. Also the bot add quotes with the "addquote" command in channel. It Just dont give out Quotes t...

Im searching for a "seen" Script which can tell when the requested Person said somethink the last time (and what he said?). A lot of chatters are using an bouncer so the most seen Scripts -such as bseen and the others in the egghelp archive- are not very usefull for me when the Requested p...

Done! if {[file exists scripts/wordcount.txt]} { foreach {word count} [split [read [set infile [open scripts/wordcount.txt]]][close $infile] \n] { if {$word != ""} { set wordcount($word) $count } } } bind time ?0* save:wc bind pubm - * state:wc proc save:wc args { global wordcount set f [o...

Well this Script is only known by german users i think ;) so i write this Request in german. Ich suche ein Mondgesicht Script. Die Leute von SI behalten ihr Scipt (entgegen der GPL?) für sich. Ich habe zwar eines gefunden http://j0o.de/xela/thread.php?threadid=134&sid= Jedoch gibt es damit ein P...

I replaced the * on bind pubm with "Junge" because the script should just count the word "junge", not every word

But thats not working...

Thank you anyway for the patience![/code]

The Script should count how often the word hello was used in the channel, and always give out the count if its used.
So the script must save the number in a file to keep it on a reboot.

i.e:
Chan: Junge
Bot: Junge Nr. 5982

Chan: Junge
Bot: Junge Nr. 5983

...

if {![file exists counter.txt]} { close [open counter.txt a+] } bind pub - junge junge:reply proc junge:reply {nick uhost hand chan arg} { global jungereply if {![info exists jungereply([set chan [string tolower $chan]])]} { set jungereply($chan) [list [unixtime] 1] } set file [open counter.txt r] ...

Im sure im going on your nerves... but bind pub - hallo! hallo:reply proc hallo:reply {nick uhost hand chan arg} { global halloreply if {![info exists halloreply([set chan [string tolower $chan]])]} { set halloreply($chan) [list [unixtime] 1] } foreach {t o} $halloreply($chan) {break} if {[unixtime]...

thx again! Its working

Both scripts are not working:

Tcl error [hallo:reply]: can't read "halloreply": variable is array