egghelp/eggheads community

how to to make it works to all channel that bot entry?

2007-05-05T13:18:43-04:00

how to make it work automatically to all channel that bot entry?
example :
we are stay in #chan-b
than command in #chan-b !chaninfo #chan-a
the bot will display information at #chan-b about #chan-a
I need additional info for how many users there, how many banned mask, how many ops, and how many +v are in chan-a.

thx

Statistics: Posted by KEMA — Sat May 05, 2007 1:18 pm

NICK/CHAN INFO script (SOLVED)

2007-05-02T03:38:09-04:00

thanks for the fast replies and for the help. i learn a lot on this one ^_^ m closing the topic.

Statistics: Posted by masheen — Wed May 02, 2007 3:38 am

NICK/CHAN INFO script (SOLVED)

2007-04-30T21:39:27-04:00

Code:

set mychannel "#Channel"bind pub -|- !whois script:whoisproc script:whois { nick host handle chan text } {global userset text [split $text]set user [lindex $text 0]if {$user == ""} {puthelp "NOTICE $nick :You need to supply a nickname."; return}putquick "WHOIS $user"}bind raw - "311" script:whois1bind raw - "312" script:whois1bind raw - "318" script:whois1bind raw - "319" script:whois1bind raw - "401" script:whois1bind raw - "301" script:whois1bind raw - "313" script:whois1bind raw - "330" script:whois1bind raw - "317" script:whois1proc script:whois1 {from key text} {global mychannel userset text [split $text " "]set topaste [join [lrange $text 1 end] " "]set nickname [lindex $text 1]if {![info exists user] || [string compare -nocase $nickname $user]} {return 0}putserv "PRIVMSG $mychannel :$topaste"}putlog "!whois script loaded by iamdeath."

yay! Thanks alot nml, that was really very usefull.. Thanks alot, I understand it now, earlier it was'nt clear to me. Now it's in my brain like drilled .. you rock man... by the way, did we just wasted our time, we already had a tcl like this in TCL archive LOL
WHOIS TCL
anyway got to learn many things from this posts and yeah I have updated more raw so that all the replies can be seen in the channel.

enjoy masheen and many thanks to nml

Statistics: Posted by iamdeath — Mon Apr 30, 2007 9:39 pm

NICK/CHAN INFO script (SOLVED)

2007-04-30T21:23:06-04:00

Try something like this:

Code:

if {![info exists user] || [string compare -nocase $nickname $user]} {

The trick is that tcl uses "lazy" operators, that is, in the case of "test1 || test2", if the first test is true, there is no need to evaluate the second one, since it cannot alter the resulting condition. So in the above case, if the variable does'nt exist, there is'nt any use for testing it against "nickname".

Statistics: Posted by nml375 — Mon Apr 30, 2007 9:23 pm

NICK/CHAN INFO script (SOLVED)

2007-04-30T21:10:29-04:00

thanks alot nml.. the 2nd tip I am using and I got rid of regsub issues thanks alot for the tip.. but the first tip.. I can't get it done, can you help me how to solve that issue?.. I've tried all the possible ways.

Statistics: Posted by iamdeath — Mon Apr 30, 2007 9:10 pm

NICK/CHAN INFO script (SOLVED)

2007-04-30T19:39:28-04:00

@iamdeath:
Try adding some tests wether user has been set before you actually read it (in script:whois1), and you'll get rid of those errors.

Also, change the name of the argument "args" to something else (anything but "args"), also "join" the output from "lrange", and you can drop all those regsubs (alot faster, and proper).
ie:

Code:

proc script:whois1 {from key text} {...set text [split $text " "]...set topaste [join [lrange $text 1 end] " "]

Statistics: Posted by nml375 — Mon Apr 30, 2007 7:39 pm

NICK/CHAN INFO script (SOLVED)

2007-04-30T15:21:26-04:00

Code:

set mychannel "#channel"bind pub -|- !whois script:whoisproc script:whois { nick host handle chan text } {global userset text [split $text]set user [lindex $text 0]if {$user == ""} {puthelp "NOTICE $nick :You need to supply a nickname."; return}putquick "WHOIS $user"}bind raw - "311" script:whois1bind raw - "312" script:whois1bind raw - "318" script:whois1bind raw - "319" script:whois1bind raw - "401" script:whois1proc script:whois1 {from key args} {global mychannel userset text [split $args]set nickname [lindex $text 1]if {[string tolower $nickname] != [string tolower $user]}  {return 0}set topaste [lrange $text 1 end]regsub -all {\{} $topaste "" topasteregsub -all {\}} $topaste "" topasteregsub -all {\\} $topaste "" topasteputserv "PRIVMSG $mychannel :$topaste"}putlog "!whois script loaded by iamdeath."

Now it should not occur the problem, I just tested it and yeah ignore this msg in DCC.

Code:

Tcl error [script:whois1]: can't read "user": no such variableTcl error [script:whois1]: can't read "user": no such variableTcl error [script:whois1]: can't read "user": no such variableTcl error [script:whois1]: can't read "user": no such variable

This will come when you restart the bot, once you perform the !whois command that msg will stop coming. Hey excuse me please, I aint a good TCL programmer, I am in learning stage.

Statistics: Posted by iamdeath — Mon Apr 30, 2007 3:21 pm

NICK/CHAN INFO script (SOLVED)

2007-04-30T14:39:18-04:00

Thanks for point it out masheen, to me the bot is showing on it's whois when it's reconnecting or being restarted. It is not showing all the users in the channel. I guess the tcl badchan.tcl you're using is causing the problem, that tcl must be scanning hosts for all the users in the channel. Try to stop it and then restart the bot you will find out yourself, yet I am reading more about it and if I get something helpfull i'll revise my script.

Statistics: Posted by iamdeath — Mon Apr 30, 2007 2:39 pm

NICK/CHAN INFO script (SOLVED)

2007-04-30T14:07:48-04:00

Actually, the code written by iamdeath will dump the information from any WHOIS to the channel specified - including the ones done by the eggdrop core itself.. You'd probably need some request-tracking, so that output is only produced when a whois is requested using this script. The queueing system in my previous post might be a something to get started with.

Also, it does not use "args" properly within the script:whois1, as this is already a list of arguments. Changing the name to something different than "args" should solve that problem however.

Statistics: Posted by nml375 — Mon Apr 30, 2007 2:07 pm

NICK/CHAN INFO script (SOLVED)

2007-04-30T13:59:57-04:00

thanks to the bot of you... i believe the !chaninfo and !nickinfo is ok now... the problem now is the !who the one u made iamdeath seems to be working, but comes with a little bug dat i simply could not see in ur code... the problem is that when i restart the bot with the new !whois script... it starts displaying all the whois infor of all the nicks from the channel even when no one including me initiated a !whois command yet. dya guys think its being triggered by another script badchan.tcl maybe? i duno... pls help ^_^ again thanks to the both of u.

Statistics: Posted by masheen — Mon Apr 30, 2007 1:59 pm

NICK/CHAN INFO script (SOLVED)

2007-04-30T13:41:09-04:00

It's not that hard, you simply has to make yourself one with the code

Actually, it's a matter of practice and experience.. Keep at it, and you'll be there sooner or later

Statistics: Posted by nml375 — Mon Apr 30, 2007 1:41 pm

NICK/CHAN INFO script (SOLVED)

2007-04-30T13:33:11-04:00

Code:

set mychannel "#channel"bind pub -|- !whois script:whoisproc script:whois { nick host handle chan text } {set text [split $text]set user [lindex $text 0]if {$user == ""} {puthelp "NOTICE $nick :You need to supply a nickname."; return}putquick "WHOIS $user"}bind raw - "311" script:whois1bind raw - "312" script:whois1bind raw - "318" script:whois1bind raw - "319" script:whois1bind raw - "401" script:whois1proc script:whois1 {from key args} {global mychannelset text [split $args]set topaste [lrange $text 1 end]regsub -all {\{} $topaste "" topasteregsub -all {\}} $topaste "" topasteregsub -all {\\} $topaste "" topasteputserv "PRIVMSG $mychannel :$topaste"}putlog "!whois script loaded by iamdeath."

Enjoy your whois script, tested and working fine on Undernet.

nml awsome work, wish we could write codes like that too
Good job

Statistics: Posted by iamdeath — Mon Apr 30, 2007 1:33 pm

NICK/CHAN INFO script (SOLVED)

2007-04-30T13:38:16-04:00

A slightly updated version reducing repeated code:

Code:

proc get_ns {nick host hand text {dest ""}} { global get_ns if {[info exists get_ns(target)] && ![string equal $get_ns(target) ""]} {return 0} puthelp "NOTICE $get_ns(target) :$text" if {[string match "*End of Info*" $text]} {  unset get_ns(target)  if {[info exists get_ns(queue)] && [llength $get_ns(queue)] > 0} {   set next [lindex $get_ns(queue) 0]   set get_ns(queue) [lreplace $get_ns(queue) 1 end]   set get_ns(target) [lindex $next 0]   putserv "PRIVMSG [lindex $next 1] :info [lindex $next 2]"  } }}proc request_ns {nick host hand chan text} { global get_ns lastbind if {[string lenght $text] <= 0} {  puthelp "NOTICE $nick :You must supply a nickname."  return 1 } switch -- $lastbind {  "!nickinfo" {set target nickserv@services.dal.net}  "!chaninfo" {set target chanserv@services.dal.net}  default {return} } if {![info exists get_ns(target)] || [string equal $get_ns(target) ""]} {  puthelp "NOTICE $nick :There is already a request in progress. Your request has been queued."  lappend get_ns(queue) [list $nick $target [lindex [split $text] 0]"] } else {  set get_ns(target) $nick  putserv "PRIVMSG $target :info [lindex [split $text] 0]"  puthelp "NOTICE $nick :Request sent." }}bind pub -|- !nickinfo request_nsbind pub -|- !chaninfo request_nsbind notc -|- "*Info for *" get_nsbind notc -|- "*For extra info*" get_nsbind notc -|- "*Last seen address*" get_nsbind notc -|- "*Last seen time*" get_nsbind notc -|- "*Time registered*" get_nsbind notc -|- "*Time now*" get_nsbind notc -|- "*URL*" get_nsbind notc -|- "*Options*" get_nsbind notc -|- "*Founder*" get_nsbind notc -|- "*Mode Lock*" get_nsbind notc -|- "*Last Topic*" get_nsbind notc -|- "*Description:*" get_nsbind notc -|- "*Memo Level*" get_nsbind notc -|- "*Registered*" get_nsbind notc -|- "*Last opping*" get_nsbind notc -|- "*End of Info*" get_ns

Edit: Slight logical error fixed, that would render the script actionless (would only enqueue new request without actually processing the queue).
Edit: Forgot to make lastbind global.

Statistics: Posted by nml375 — Mon Apr 30, 2007 1:28 pm

NICK/CHAN INFO script (SOLVED)

2007-04-30T13:31:23-04:00

The problem here, is that $nick would be NS (since NS is the one triggering this binding), rather than the nick originally requesting this information. This would require that you keep track of the original requester for the duration of the request.

I believe this code should do the trick, while also using proper queues, and not breaking the rfc that much (yes, we do respond to NOTICE's, but atleast we don't respond with PRIVMSG's). List of bindings taken from previous post by iamdeath.

Code has not been tested, but feel free to dig for bugs, flaws, etc :p

Code:

proc get_ns {nick host hand text {dest ""}} { global get_ns if {![info exists get_ns(target)] || [string equal $get_ns(target) ""]} {return 0} puthelp "NOTICE $get_ns(target) :$text" if {[string match "*End of Info*" $text]} {  unset get_ns(target)  if {[info exists get_ns(queue)] && [llength $get_ns(queue)] > 0} {   set next [lindex $get_ns(queue) 0]   set get_ns(queue) [lreplace $get_ns(queue) 1 end]   set get_ns(target) [lindex $next 0]   putserv "PRIVMSG [lindex $next 1] :info [lindex $next 2]"  } }}proc request_ns {nick host hand chan text} { global get_ns if {[string lenght $text] <= 0} {  puthelp "NOTICE $nick :You must supply a nickname."  return 1 } if {[info exists get_ns(target)] && ![string equal $get_ns(target) ""]} {  puthelp "NOTICE $nick :There is already a request in progress. Your request has been queued."  lappend get_ns(queue) [list $nick "nickserv@services.dal.net" [lindex [split $text] 0]"] } else {  set get_ns(target) $nick  putserv "PRIVMSG nickserv@services.dal.net :info [lindex [split $text] 0]"  puthelp "NOTICE $nick :Request sent." }}proc request_cs {nick host hand chan text} { global get_ns if {[string lenght $text] <= 0} {  puthelp "NOTICE $nick :You must supply a nickname."  return 1 } if {[info exists get_ns(target)] && [string equal $get_ns(target) ""]} {  puthelp "NOTICE $nick :There is already a request in progress. Your request has been queued."  lappend get_ns(queue) [list $nick "chanserv@services.dal.net" [lindex [split $text] 0]"] } else {  set get_ns(target) $nick  putserv "PRIVMSG chanserv@services.dal.net :info [lindex [split $text] 0]"  puthelp "NOTICE $nick :Request sent." }}bind pub -|- !nickinfo request_nsbind pub -|- !chaninfo request_csbind notc -|- "*Info for *" get_nsbind notc -|- "*For extra info*" get_nsbind notc -|- "*Last seen address*" get_nsbind notc -|- "*Last seen time*" get_nsbind notc -|- "*Time registered*" get_nsbind notc -|- "*Time now*" get_nsbind notc -|- "*URL*" get_nsbind notc -|- "*Options*" get_nsbind notc -|- "*Founder*" get_nsbind notc -|- "*Mode Lock*" get_nsbind notc -|- "*Last Topic*" get_nsbind notc -|- "*Description:*" get_nsbind notc -|- "*Memo Level*" get_nsbind notc -|- "*Registered*" get_nsbind notc -|- "*Last opping*" get_nsbind notc -|- "*End of Info*" get_ns

Edit: Slight logical error fixed, that would render the script actionless (would only enqueue new request without actually processing the queue)

Statistics: Posted by nml375 — Mon Apr 30, 2007 1:14 pm

NICK/CHAN INFO script (SOLVED)

2007-04-30T12:54:02-04:00

bind pub -|- !nickinfo script:text1
bind pub -|- !chaninfo script:text2
bind notc -|- "*Info for *" script:notices1
bind notc -|- "*For extra info*" script:notices1
bind notc -|- "*Last seen address*" script:notices1
bind notc -|- "*Last seen time*" script:notices1
bind notc -|- "*Time registered*" script:notices1
bind notc -|- "*Time now*" script:notices1
bind notc -|- "*URL*" script:notices1
bind notc -|- "*Options*" script:notices1
bind notc -|- "*Founder*" script:notices1
bind notc -|- "*Mode Lock*" script:notices1
bind notc -|- "*Last Topic*" script:notices1
bind notc -|- "*Description:*" script:notices1
bind notc -|- "*Memo Level*" script:notices1
bind notc -|- "*Registered*" script:notices1
bind notc -|- "*Last opping*" script:notices1
bind notc -|- "*End of Info*" script:notices1

proc script:text1 { nick host handle chan text } {
global towhom
set text [split $text]
set text [lindex $text 0]
set towhom "$nick"
if {$text == ""} {puthelp "NOTICE $nick :You need to supply a nickname."; return}
putserv "PRIVMSG nickserv@services.dal.net :info $text"
}

proc script:text2 { nick host handle chan text } {
global towhom
set text [split $text]
set text [lindex $text 0]
set towhom "$nick"
if {$text == ""} {puthelp "NOTICE $nick :You need to supply a channel name."; return}
putserv "PRIVMSG chanserv@services.dal.net :info $text"
}

proc script:notices1 {nick uhost hand text dest} {
global towhom
putquick "PRIVMSG $towhom :$text"
}

putlog "!nickinfo and !chaninfo script loaded by iamdeath."

I think it should now msg nickname, try it out and let me know. As far as /whois I don't know about it I will read it understand it and then if I get it I will write on it

Statistics: Posted by iamdeath — Mon Apr 30, 2007 12:54 pm