Note Script help

[m4dh4x0r]

having problems with this script..

Code: Select all

bind msg nm .sendnote sb_sendnote
proc sb_sendnote { nick uhost hand chan text } {
  if { [lindex [split $text] 0] == " " } {
    putserv "privmsg $nick :Please specify the following\: .sendnote <to> <msg>"
  } else {
    storenote $nick [lindex $text 0] [lrange [split $text] 1 end] -1]
    putserv "privmsg $nick :You have just sent [lindex $text 0] the following note\: [lrange [split $text] 1 end]"
  }
}

[]Kami[]

What mistake is given, when you try to use it ?