egghelp/eggheads community

A Short Joke Script

2006-05-07T02:58:35-04:00

why not simply use 'lappend joke [gets $jokefile]' and '[lindex $joke $w)]' instead of those arrays? If the file ends with an empty line, this will also be included, but could be removed with an lreplace or even more simple, lower i by 1, so it cannot be chosen (should be considered for a bigger file to lower memory usage).

Statistics: Posted by De Kus — Sun May 07, 2006 2:58 am

A Short Joke Script

2006-05-06T17:47:01-04:00

it's because your incr before setting it.

Place the incr after it and it should work fine

Statistics: Posted by metroid — Sat May 06, 2006 5:47 pm

A Short Joke Script

2006-05-06T17:31:56-04:00

Tcl error [pub:joke]: can't read "joke(0)": no such element in array

Statistics: Posted by EVRAMP — Sat May 06, 2006 5:31 pm

A Short Joke Script

2006-05-03T10:35:13-04:00

post the information from

Code:

.set errorInfo

you need to show the error(s) you get

Statistics: Posted by DragnLord — Wed May 03, 2006 10:35 am

A Short Joke Script

2006-05-03T09:21:30-04:00

the one and only error is that it doesnt work. bot doesnt send a joke to channel x|

Statistics: Posted by EVRAMP — Wed May 03, 2006 9:21 am

A Short Joke Script

2006-05-02T11:40:03-04:00

What's the error then?

Statistics: Posted by metroid — Tue May 02, 2006 11:40 am

A Short Joke Script

2006-04-28T09:54:03-04:00

Hi,
i made script which sends jokes to channel form file joke.txt, but it doesnt work.
Here is source:

Code:

bind pub - !joke pub:jokebind pub w !addjoke pub:addjokeproc pub:addjoke { nick uhost handle channel arg } {if { $arg == "" } {putserv "NOTICE $nick :USAGE: !addjoke "return 0}set joke [open "joke.txt" a]puts $joke "$arg"close $jokeputserv "NOTICE $nick :joke added"}proc pub:joke { nick uhost handle channel arg } {set jokefile [open "joke.txt" r]set i 0while { [eof $jokefile] != 1 } {incr i 1set joke($i) [gets $jokefile]}set w [rand $i]set outjoke $joke($w)putserv "PRIVMSG $channel :$outjoke"}putlog "joke.tcl successfully loaded"

Please can you help me where i did mistake? Thx!

Statistics: Posted by EVRAMP — Fri Apr 28, 2006 9:54 am