egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2006-03-21T13:14:15-04:00 https://forum.eggheads.org/app.php/feed/topic/11546 2006-03-21T13:14:15-04:00 2006-03-21T13:14:15-04:00 https://forum.eggheads.org/viewtopic.php?p=61245#p61245 <![CDATA[help news]]>
pilouuu you can do something like this:

Code: 

set mynews [split [read [set newsf [open news]]][close $newf] \n][unset newsf]bind pub - .news do_newsbind pub m|m .setnews do_makenewsproc do_news {nick userhost handle channel args} { set gotnews 0 foreach news $::mynews {  if {[string equal -nocase $channel [lindex [split $news] 0]]} {   putserv "privmsg $channel :News: [join [lrange [split $news] 1 end]]"   putlog "(**Command: news by '$nick' on '$channel'**)"   set gotnews 1 ; break  } } if {!$gotnews} {  putserv "privmsg $channel :No news for this channel." }}proc do_makenews {nick userhost handle channel test} { global mynews set test [string tolower $test] set chan [string tolower $channel] if {[set ci [lsearch -glob $mynews "$channel *"]] != -1} {  set mynews [lreplace $mynews $ci $ci] } lappend mynews "$chan $test" set newsf [open news w] foreach news $mynews {  if {$news != ""} {   puts $newsf $news  } } close $newsf putserv "NOTICE $channel :Done.: $test"  putlog "(**Command: setnews by '$nick' on '$channel'**)"}

Statistics: Posted by Sir_Fz — Tue Mar 21, 2006 1:14 pm

]]> 2006-03-21T11:34:49-04:00 2006-03-21T11:34:49-04:00 https://forum.eggheads.org/viewtopic.php?p=61239#p61239 <![CDATA[help news]]> thx u for infos et redirection :)

Statistics: Posted by pilouuu — Tue Mar 21, 2006 11:34 am

]]> 2006-03-21T09:10:51-04:00 2006-03-21T09:10:51-04:00 https://forum.eggheads.org/viewtopic.php?p=61232#p61232 <![CDATA[help news]]> Scripting Help forum; you have been helped. You have implied you wrote that Tcl code; that being the case then you should understand my post and code accordingly.

Statistics: Posted by Alchera — Tue Mar 21, 2006 9:10 am

]]> 2006-03-21T09:00:19-04:00 2006-03-21T09:00:19-04:00 https://forum.eggheads.org/viewtopic.php?p=61231#p61231 <![CDATA[...]]>
thx

Statistics: Posted by pilouuu — Tue Mar 21, 2006 9:00 am

]]> 2006-03-20T22:48:42-04:00 2006-03-20T22:48:42-04:00 https://forum.eggheads.org/viewtopic.php?p=61226#p61226 <![CDATA[help news]]>

Code: 

  setudef <flag/int/str> <name>    Description: initializes a user defined channel flag, string or integer      setting. You can use it like any other flag/setting. IMPORTANT: Don't      forget to reinitialize your flags/settings after a restart, or it'll be      lost.    Returns: nothing    Module: channels

Statistics: Posted by Alchera — Mon Mar 20, 2006 10:48 pm

]]> 2006-03-20T17:45:28-04:00 2006-03-20T17:45:28-04:00 https://forum.eggheads.org/viewtopic.php?p=61225#p61225 <![CDATA[help news]]>
My code

Code: 

bind pub - .news do_newsbind pub m|m .setnews do_makenewsproc do_news {nick userhost handle channel args} {   set newsfile [open "news" r]   set news [gets $newsfile]     putserv "privmsg $channel :News: $news"     putlog "(**Command: news by '$nick' on '$channel'**)"}proc do_makenews {nick userhost handle channel test} {    set newsfile [open "news" w]    puts $newsfile $test     putserv "NOTICE $channel :Done.: $test"    close $newsfile     putlog "(**Command: setnews by '$nick' on '$channel'**)"}
types: .setnews bla bla

<nick>.news
<bot> News: bla bla

code it good for 1 chan. Possible to add multi-chan? ( all chan bot is oN )

expl:

#chan1

.setnews bla bla

<nick chan1>.news
<bot> News: bla bla


#chan2
.setnews iop iop
<nick chan2>.news
<bot> News: iop iop

Thx for all help

Statistics: Posted by pilouuu — Mon Mar 20, 2006 5:45 pm

]]>