whois script

[metroid]

Code: Select all

## Binds
bind raw - 311 Public:whois
bind raw - 319 Public:whois
bind raw - 312 Public:whois
bind raw - 330 Public:whois
bind raw - 318 Public:whois
bind pub o|o !whois Public:whois
## Procs
proc 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: Select all

[20:53:27] <Q13> [20:53] Tcl error [Public:whois]: wrong # args: should be "Public:whois nick uhost hand chan text"
[20:53:27] <Q13> [20:53] Tcl error [Public:whois]: wrong # args: should be "Public:whois nick uhost hand chan text"
[20:53:27] <Q13> [20:53] Tcl error [Public:whois]: wrong # args: should be "Public:whois nick uhost hand chan text"
[20:53:27] <Q13> [20:53] Tcl error [Public:whois]: wrong # args: should be "Public:whois nick uhost hand chan text"
[20:53:27] <Q13> [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

[dollar]

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

[awyeah]

Blah.

It should be:

Code: Select all

bind pub n "!whois" my:proc

proc 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.

[metroid]

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

[caesar]

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"

[awyeah]

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.