egghelp/eggheads community

whois script

2004-10-03T12:48:28-04:00

Yeah well that was a typing error, I guess he has some common sense to understand that. Well to halt it, I would recommend you use the return command.

Statistics: Posted by awyeah — Sun Oct 03, 2004 12:48 pm

whois script

2004-10-03T08:42:26-04:00

I belive it should be "my:proc" not "myproc" and don't add "return 0" just to be there just in case like you usualy do with the "global botnick"

Statistics: Posted by caesar — Sun Oct 03, 2004 8:42 am

whois script

2004-10-03T07:03:46-04:00

Well i didnt write it
Someone else did and he asked me to fix it and seeing as i didnt know how, i asked here

Statistics: Posted by metroid — Sun Oct 03, 2004 7:03 am

whois script

2004-10-02T08:06:03-04:00

Blah.

It should be:

Code:

bind pub n "!whois" my:procproc myproc {nick uhost hand chan text} { putserv "WHOIS [lindex $text 0]" return 0}

Then bind raw's will automatically trigger your main proc, the long one which you showed! Use arguments {from keyword arg}.

Note: Do not 'return 0'. For all procs binding to "RAW" use 'return 1' that is better.

Statistics: Posted by awyeah — Sat Oct 02, 2004 8:06 am

whois script

2004-10-01T15:14:44-04:00

Read the docs... (bind raw doesn't need the same args as pub does....)

Statistics: Posted by dollar — Fri Oct 01, 2004 3:14 pm

whois script

2004-10-01T14:52:47-04:00

Code:

## Bindsbind raw - 311 Public:whoisbind raw - 319 Public:whoisbind raw - 312 Public:whoisbind raw - 330 Public:whoisbind raw - 318 Public:whoisbind pub o|o !whois Public:whois## Procsproc Public:whois {nick uhost hand chan text} {  set person [lindex [split $text] 0]  putserv "PRIVMSG $chan :4»» Whoise $person ..."  putserv "WHOIS $person"  if {[string match -nocase "*No such nickname*" $text]} {    putserv "PRIVMSG $chan :4»» Unbekannte Person."    return  }  if {[string match -nocase "*Whois*" $text]} {    putserv "PRIVMSG $chan :4»» Whois: [lindex [split $text] 0] [lindex [split $text] 1] [lindex [split $text] 2]"    return  }  if {[string match -nocase "*Server*" $text]} {    putserv "PRIVMSG $chan :4»» Server: [lindex [split $text] 0]"    return  }  if {[string match -nocase "*is authed as" $text]} {    putserv "PRIVMSG $chan :4»» $person is authed as [lindex [split $text] 0]."    return 0  }}

I get the errormessages:

Code:

[20:53:27]  [20:53] Tcl error [Public:whois]: wrong # args: should be "Public:whois nick uhost hand chan text"[20:53:27]  [20:53] Tcl error [Public:whois]: wrong # args: should be "Public:whois nick uhost hand chan text"[20:53:27]  [20:53] Tcl error [Public:whois]: wrong # args: should be "Public:whois nick uhost hand chan text"[20:53:27]  [20:53] Tcl error [Public:whois]: wrong # args: should be "Public:whois nick uhost hand chan text"[20:53:27]  [20:53] Tcl error [Public:whois]: wrong # args: should be "Public:whois nick uhost hand chan text"

I don't understand how to fix it though

Statistics: Posted by metroid — Fri Oct 01, 2004 2:52 pm