egghelp/eggheads community

Botadmin Channel Commands

2014-01-31T23:43:17-04:00

Thanks SpiKe^^ that was a lot of help, I got mine working now

Statistics: Posted by play4free2 — Fri Jan 31, 2014 11:43 pm

Botadmin Channel Commands

2014-01-26T01:40:41-04:00

Try looking at this forum post....

http://forum.egghelp.org/viewtopic.php? ... ight=gline

Statistics: Posted by SpiKe^^ — Sun Jan 26, 2014 1:40 am

Botadmin Channel Commands

2014-01-25T23:25:20-04:00

Update: I got a code to put the action and messages to different channels.

Code:

proc act_func {nick uhost hand chan arg} {  if {[lsearch -exact [channel info $chan] +adminchan] != -1} {    set cmd [string tolower [lindex $arg 0]]    if {$cmd == ""} {      puthelp "NOTICE $nick :.act <#channel>  - Sends an action to any channel the bot is in."      return 0      } else {      set chan [lindex [split $arg] 0]      set arg [join [lrange [split $arg] 1 end]]      putserv "PRIVMSG $chan :\001ACTION $arg\001"      return 0    }  }}proc say_func {nick uhost hand chan arg} {  if {[lsearch -exact [channel info $chan] +adminchan] != -1} {    set cmd [string tolower [lindex $arg 0]]    if {$cmd == ""} {      puthelp "NOTICE $nick :.say <#channel>  - Sends a message to any channel the bot is in."      return 0      } else {      set chan [lindex [split $arg] 0]      set arg [join [lrange [split $arg] 1 end]]      putserv "PRIVMSG $chan :$arg"      return 0    }  }}

But I am still looking to add the channel commands !gline and !delgline

Thanks

Statistics: Posted by play4free2 — Sat Jan 25, 2014 11:25 pm

Botadmin Channel Commands

2014-01-17T20:35:12-04:00

I know there are a lot of oper.tcl commands.tcl etc. I am working on one that has just the commands I want. The part I can't find in the Archives or written anywhere I have looked. Is one that will have the bot do via channel command .say #channel and .act #channel

I have found this which is what I want but I also want it to message or put an action to a channel I chose too.

Code:

proc actall_func {nick uhost hand chan text} {  if {[lsearch -exact [channel info $chan] +admin] != -1} {    if {[string length $text] > 0} {      set text [string trim $text "{}"]      foreach n [channels] { putserv "PRIVMSG $n :\001ACTION $text \001" }    } else { puthelp "NOTICE $nick :.actall  - Sends an action to all channels the bot is in." }  }}proc sayall_func {nick uhost hand chan text} {  if {[lsearch -exact [channel info $chan] +admin] != -1} {    if {[string length $text] > 0} {      set text [string trim $text "{}"]      foreach n [channels] { putserv "PRIVMSG $n :$text" }    } else { puthelp "NOTICE $nick :.sayall  - Sends a message to all channels the bot is in." }  }}

I would also like to add the channel commands .gline and .glinedel

Examples:
.gline [time]
.glinedel

If I missed these somewhere please point me in the correct direction.

Thanks for any help

Statistics: Posted by play4free2 — Fri Jan 17, 2014 8:35 pm