hello teens

awAcc · Post by **awAcc** » Tue Sep 16, 2003 3:47 am

hi. I want my bot to kick messages with /me (msg) ..
How ?

Post by **Sir_Fz** » Tue Sep 16, 2003 8:40 am

bind msg o|o kick kick:user

proc kick:user {nick uhost hand arg} {
set user [lindex [split $arg] 0] ; set chan [lindex [split $arg] 1] ; set reason [lrange [split $arg] 2 end]
 if {[onchan $user $chan]} {
 putquick "KICK $chan $nick :$reason"
 puthelp "NOTICE $nick :kicked $user from $chan"
 }
}

this would kick the user from the channel when you /msg bot kick channel reason

Post by **caesar** » Tue Sep 16, 2003 11:26 am

As far as I can see he wanted an *action* thingie not a msg one. Do a lil forum search.

Post by **Sir_Fz** » Tue Sep 16, 2003 2:14 pm

oh yeah, I just saw the (msg) ..missleaded me

well the same but yes a CTCP bind (ACTION), set the kick command to [lindex [split $arg] 0] and the others should be ok (just increase the 0 to 1 and the 1 to 2...etc)

Post by **caesar** » Tue Sep 16, 2003 2:20 pm

Again no, he wants his eggy to kick people who use channel actions not to use an channel action to make the eggy kick someone in the channel.

Code: Select all

set myreason "Your default reason goes here!"

bind ctcp * ACTION my:actions

proc my:actions {nick uhost hand dest keyword text} {
  if {![botisop $dest] || $nick == $::botnick || [matchattr $hand of|fo $dest]} { return }
  putquick "KICK $chan $nick :$::myreason"
}

Post by **Sir_Fz** » Tue Sep 16, 2003 2:46 pm

damn, right again