egghelp/eggheads community

private message kick

2002-02-25T00:19:00-04:00

Try this (it also won't kick users who msg the bot for ops):

Code:

# Ban the users also?set msgkick_setting(ban) 0# Set the kick message here.set msgkick_setting(kickmsg) "Do not message me."# Set the ban type here:# 1 - *!*@host.domain# 2 - *!user@host.domain# 3 - nick!*@host.domain# 4 - nick!user@host.domain# 5 - *!?user@*.host.domainset msgkick_setting(bantype) "1"bind msgm - * msgm:msgkickproc msgkick_maskban {nick uhost} {  global msgkick_setting  switch -- $msgkick_setting(bantype) {    1 { set ban "*!*@[lindex [split $uhost @] 1]" }    2 { set ban "*!$uhost" }    3 { set ban "$nick!*@[lindex [split $uhost @] 1]" }    4 { set ban "$nick!$uhost" }    5 { set ban "[maskhost $uhost]" }    default { set ban "*!*@[lindex [split $uhost @] 1]" }  }  return $ban}proc msgm:msgkick {nick uhost hand text} {  global msgkick_setting  if {[validuser $hand]} { return }  foreach chan [channels] {    if {![botonchan $chan] || ![onchan $nick $chan]} { continue }    if {$msgkick_setting(ban)} { putserv "MODE $chan +b [msgkick_maskban $nick $uhost]" }    putserv "KICK $chan $nick :$msgkick_setting(kickmsg)"  }}

[ This Message was edited by: Wcc on 2002-02-24 21:23 ]

Statistics: Posted by Wcc — Mon Feb 25, 2002 12:19 am

private message kick

2002-02-24T13:12:00-04:00

Thank you Peterson, and thank you TrIpPen. egghead did find/write a nice little code that works just great. Oh, and thanks a BUNCH again egghead.

Statistics: Posted by DrTongue — Sun Feb 24, 2002 1:12 pm

private message kick

2002-02-24T12:59:00-04:00

that code is incorrect. wrong number of args declared for the proc, the arg definitions you have declared are wrong anyway (no channel is given in msgm) and invalid use of KICK (ie no channel given to kick from).

Statistics: Posted by Petersen — Sun Feb 24, 2002 12:59 pm

private message kick

2002-02-24T03:59:00-04:00

bind msgm - * do_msg_kick

proc do_msg_kick {nick hand chan} {
putserv "KICK $nick on't msg the bot!"
}

Sorry i hate them face things.. they are a waste of time and coding..

Kissmine

Statistics: Posted by Guest — Sun Feb 24, 2002 3:59 am

private message kick

2002-02-24T03:58:00-04:00

Try this

bind msgm - * do_msg_kick

proc do_msg_kick {nick hand chan} {
putserv "KICK $nick :razz:lz don't msg the bot!"
}

It is that easy.. you can edit to make the bot do more

Statistics: Posted by Guest — Sun Feb 24, 2002 3:58 am

private message kick

2002-02-17T09:29:00-04:00

Is there a .tcl that can make the bot kick and/or ban someone if they private message the bot?

Statistics: Posted by DrTongue — Sun Feb 17, 2002 9:29 am