egghelp/eggheads community

Help with kick/ban proc

2002-11-26T04:02:42-04:00

Thanks ill play around with that and see what happens.

*enter bot dying over and over*

Statistics: Posted by Gothic-Angel — Tue Nov 26, 2002 4:02 am

Help with kick/ban proc

2002-11-26T02:34:27-04:00

Well, you allways can have a look on another tcl and you may inspire from it or you can try to understand things in it.

Code:

bind msg * kickban hide:kickban # kickban proc hide:kickban {nick host hand arg} { global botnick hide if {![validchan $hide(chan)] || ![isop $nick $hide(chan)] || ![botisop $hide(chan)]} { return } if {[llength $arg] < 1} { putserv "PRIVMSG $nick :\002Usage\002: kickban  \[reason\]" putserv "PRIVMSG $nick :Notice that this works only for the $hide(chan) channel." return } set vict [lindex $arg 0] set reas [lrange $arg 1 end] if {$reas == "" } { set reas "request" } if {$vict == $botnick} { return } if {![onchan $vict $hide(chan)]} { putserv "PRIVMSG $nick :$vict is not on $hide(chan)." return } set ban "*!*[string trimleft [getchanhost [lindex $arg 0] $hide(chan)] ~]" putserv "MODE $hide(chan) +b $ban" putkick $hide(chan) $vict $reas return }

You can also have a look on some TCL guide pages. Look around and you will find the solution of your problems.

Statistics: Posted by caesar — Tue Nov 26, 2002 2:34 am

Help with kick/ban proc

2002-11-26T01:13:44-04:00

Well I started learning tcl today, I'v got a nice public commands tcl that I'm working on. Can do everything an op can do with the exception of banning.

I have no idea where to start with this proc. Im getting kinda frustrated its the final proc and I can't find a tcl that isn't to complicated to help me learn where to start.

Someone mind helping me out here?

Statistics: Posted by Gothic-Angel — Tue Nov 26, 2002 1:13 am