Need to port over a script from mirc to tcl

[janipewter]

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: Select all

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

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

Thanks, Jani.

[Sir_Fz]

Code: Select all

set news "no news set"

bind pub - !news news
bind pub - !setnews setnews

proc 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]]
 }
}

[janipewter]

Thanks very much

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

[Sir_Fz]

add

Code: Select all

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

to the procs.

[janipewter]

You are awesome.

Thanks so much.