Code:

bind pub - junge state:wcproc state:wc {nick uhost hand chan arg} { global wordcount if {![info exists wordcount(junge)]} { set wordcount(junge) 0 } puthelp "privmsg $chan :junge Nr. [incr wordcount(junge)]"}

Statistics: Posted by Sir_Fz — Sun Jan 29, 2006 9:08 pm

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 [open scripts/wordcount.txt w]   foreach {w c} [array get wordcount] {    puts $f "$w $c"   }   close $f  }  proc state:wc {nick uhost hand chan arg} {  if {[string match -nocase *junge* $arg]} {  global wordcount   set word [string tolower [lindex [split $arg] 0]]   if {![info exists wordcount($word)]} { set wordcount($word) 0 }   puthelp "privmsg $chan :$word Nr. [incr wordcount($word)]"  } }

Statistics: Posted by Cardinal — Sun Jan 29, 2006 6:42 am

Statistics: Posted by Cardinal — Sun Jan 29, 2006 6:15 am

Code:

# read words with count from fileif {[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  } }}# save words to file every 10 minutebind time ?0* save:wcbind pubm - * state:wcproc save:wc args { global wordcount set f [open scripts/wordcount.txt w] foreach {w c} [array get wordcount] {  puts $f "$w $c" } close $f}proc state:wc {nick uhost hand chan arg} { global wordcount set word [string tolower [lindex [split $arg] 0]] if {![info exists wordcount($word)]} { set wordcount($word) 0 } puthelp "privmsg $chan :$word Nr. [incr wordcount($word)]"}

Statistics: Posted by Sir_Fz — Sat Jan 28, 2006 6:56 pm

Statistics: Posted by Cardinal — Sat Jan 28, 2006 4:40 am

Statistics: Posted by Sir_Fz — Fri Jan 27, 2006 6:23 pm

Code:

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] set counter [lindex [gets $file] 0] close $file incr counter set $file [open counter.txt w] puts $file $counter close $file putserv "privmsg $chan :Junge $counter" }

Statistics: Posted by Cardinal — Fri Jan 27, 2006 2:18 pm

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]-$t > 60 || $o > 3} { set o 1 }  putserv "privmsg $chan :HalloNr$o"  set halloreply($chan) [list [unixtime] [incr o]] }

Statistics: Posted by Cardinal — Fri Jan 27, 2006 12:56 pm

Code:

foreach {t o} $halloreply {break}

foreach {t o} $halloreply($chan) {break}

Statistics: Posted by Sir_Fz — Thu Jan 26, 2006 5:08 pm

Statistics: Posted by Cardinal — Thu Jan 26, 2006 2:00 pm

Code:

bind pub - hallo! hallo:replyproc hallo:reply {nick uhost hand chan arg} { global halloreply if {![info exists halloreply([set chan [string tolower $chan]])]} {  set halloreply($chan) [list [unixtime] 0] } set replies {"Hallo" "Hi" "Hidiho"} foreach {t o} $halloreply {break} if {[unixtime]-$t > 60 || $o > 3} { set o 0 } putserv "privmsg $chan :[lindex $replies $o]" set halloreply($chan) [list [unixtime] [incr o]]}

Statistics: Posted by Sir_Fz — Wed Jan 25, 2006 7:29 pm

Statistics: Posted by Cardinal — Wed Jan 25, 2006 2:01 am

Code:

bind pub - hallo! hallo:replyproc 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 {break} if {[unixtime]-$t > 60 || $o > 3} { set o 1 } putserv "privmsg $chan :HalloNr$o" set halloreply($chan) [list [unixtime] [incr o]]}

Statistics: Posted by Sir_Fz — Tue Jan 24, 2006 8:54 pm