need little help.

[crux]

Code: Select all

#Make the bot KICK someone...

bind msg n|n .kick kick
proc kick {nick host handle channel testes} {
set who [lindex $testes 0]
set why [lrange $testes 1 end]
if {$who == ""} {
putserv "NOTICE $nick :Usage: .KICK <nick> <reason>"
return 1
}
putserv "KICK $who :$why"
putserv "NOTICE $nick :Done: KICKED $who with: $why"
return 1
}
#end of kick

this code doesn't work. I think I need sth.. please help me if you know..

thanks you.

[r0t3n]

Try:

Code: Select all

#Make the bot KICK someone...

bind msg n|n .kick kick
proc kick {nick host handle channel testes} {
set who [lindex $testes 0]
set why [lrange $testes 1 end]
if {$who == ""} {
  putserv "NOTICE $nick :Usage: .KICK <nick> <reason>"
} elseif {![onchan $who $channel]} {
  putserv "NOTICE $nick :$who not on $channel."
} else {
  if {$why == ""} {
    putserv "KICK $channel $who :Requested by $nick"
  } else {
    putserv "KICK $channel $who :$why"
  }
}
#end of kick

Not Tested

[crux]

Thanks you much, I'll test..

[nml375]

You might wanna keep in mind there's no "channel" argument on a msg-binding...
Also, please considder "splitting" strings into lists before using list-operations such as lindex, lrange, etc. Especially when it comes from an untrusted source (in this case, untrusted means anything that might generate an improper list-structure)

[crux]

Try:

Code: Select all

#Make the bot KICK someone...

bind msg n|n .kick kick
proc kick {nick host handle channel testes} {
set who [lindex $testes 0]
set why [lrange $testes 1 end]
if {$who == ""} {
  putserv "NOTICE $nick :Usage: .KICK <nick> <reason>"
} elseif {![onchan $who $channel]} {
  putserv "NOTICE $nick :$who not on $channel."
} else {
  if {$why == ""} {
    putserv "KICK $channel $who :Requested by $nick"
  } else {
    putserv "KICK $channel $who :$why"
  }
}
#end of kick

Not Tested

donesn't work

i got this error:

Code: Select all

[20:55] Tcl error [kick]: wrong # args: should be "kick nick host handle channel testes"

[Sir_Fz]

You might wanna keep in mind there's no "channel" argument on a msg-binding...
Also, please considder "splitting" strings into lists before using list-operations such as lindex, lrange, etc. Especially when it comes from an untrusted source (in this case, untrusted means anything that might generate an improper list-structure)

i.e.

Code: Select all

bind msg n|n .kick kick

proc kick {nick host hand arg} {
 if {[scan $arg "%s %s" who chan] != 2} {
  puthelp "notice $nick :Usage: .kick <chan> <nick> \[reason\]"
  return 0
 }
 set why [join [lrange [split $arg] 2 end]]
 if {![onchan $who $chan]} {
  puthelp "NOTICE $nick :$who not on $chan."
 } {
  if {$why == ""} {
   putserv "KICK $chan $who :Requested by $nick"
  } {
   putserv "KICK $chan $who :$why"
  }
 }
}

[crux]

thanks you
it's working now