egghelp/eggheads community

Need to port over a script from mirc to tcl

2006-02-16T12:51:53-04:00

You are awesome.

Thanks so much.

Statistics: Posted by janipewter — Thu Feb 16, 2006 12:51 pm

Need to port over a script from mirc to tcl

2006-02-16T12:49:13-04:00

add

Code:

if {![string equal -nocase #cows $chan]} {return 0}

to the procs.

Statistics: Posted by Sir_Fz — Thu Feb 16, 2006 12:49 pm

Need to port over a script from mirc to tcl

2006-02-16T12:43:42-04:00

Thanks very much

What about making it only work on #cows for example?

Statistics: Posted by janipewter — Thu Feb 16, 2006 12:43 pm

Need to port over a script from mirc to tcl

2006-02-16T12:34:14-04:00

Code:

set news "no news set"bind pub - !news newsbind pub - !setnews setnewsproc news {nick uhost hand chan arg} { puthelp "privmsg $chan :News: $::news"}proc setnews {nick uhost hand chan arg} { if {[isop $nick $chan]} {  set ::news [join [lrange [split $arg] 0 end]] }}

Statistics: Posted by Sir_Fz — Thu Feb 16, 2006 12:34 pm

Need to port over a script from mirc to tcl

2006-02-16T12:20:10-04:00

Currently I've got a kind-of news script being run from a mirc bot, but I wanted to put it on my eggdrop instead. Anyone know the equivelant in tcl language?

Code:

on *:text:!news:#: { /msg $chan News: %news }on *:TEXT:!setnews*:#:if ($nick isop $chan)  { /set %news $2- }

Bascially an op can do !setnews and the bot remembers it, and then anyone can do !news and it will relay News:

Thanks, Jani.

Statistics: Posted by janipewter — Thu Feb 16, 2006 12:20 pm