egghelp/eggheads community

Script for public command !banlist and for # ban

2008-09-27T11:45:43-04:00

I tried tons of them, but no one works like i want.They usually works for all chanells and i need it just for few chanells which i can add and remove.

[EDIT] - Okey,I made this from few tcl scripts :

Code:

bind pubm -* "*#*" badchar:pub# Define the channel where u want the kickbans to work:set bchan "#botchan"proc badchar:pub {nick uhost hand chan arg} {    global bchan if {$chan == "#botchan"} {     if {[botisop $bchan]} {    putquick "MODE $bchan +b *!*@[lindex [split $uhost @] 1]"    putserv "KICK $bchan $nick :Bad Character"    }           }}

Now..I need to have an option that will protect channel ops (will not kick @'s even if they say # on some channel) ..But I need to can put 1 ( protect @'s) ,and 2 (don't protect ops)..And I wanna to can add more channels..

Statistics: Posted by DaRkOoO — Sat Sep 27, 2008 11:45 am

Script for public command !banlist and for # ban

2008-09-27T11:20:08-04:00

This should display the channel-bans after requesting !banlist (feel free to modify it).

Code:

bind pub - !banlist proc:banlistproc proc:banlist {nick uhost hand chan arg} { foreach b [chanbans $chan] {  puthelp "privmsg $chan :[lindex $b 0] by [lindex $b 1]" }}

As for the second request, there are tons of anti-advertising/bad words scripts in the Tcl archive.

Statistics: Posted by Sir_Fz — Sat Sep 27, 2008 11:20 am

Script for public command !banlist and for # ban

2008-09-27T07:40:37-04:00

Hey guys,can somebody write me tcl which will reacts when I type "!banlist" in some channel,and then he will say all bans in that channel..also public..I tried to edit code that I find in manager.tcl :

Code:

# Usage: !banlistproc pub:banlist {nick host hand chan arg} {global botnickputserv PRIVMSG $chan "\002Global bans:\002"if {[banlist] == ""} {putserv "PRIVMSG $chan :None."} else {foreach ig [banlist] {set what [lindex $ig 0]set by [lindex $ig 5]set comment [lindex $ig 1]putserv "PRIVMSG $chan : "$what - by $by, Reason: $comment"}}putserv "PRIVMSG $chan : Bans for $chan:"if {[banlist $chan] == ""} {putserv "PRIVMSG $chan :None."} else {foreach b [banlist $chan] {set what [lindex $b 0]set by [lindex $b 5]set comment [lindex $b 1]putserv "PRIVMSG $chan : $what - by #4$by#, Reason: $comment"}}putserv "PRIVMSG $chan : End Of Banlist."putcmdlog "<<$nick>> !$hand! banlist $chan"}

And second tcl..I need script that will ban anyone who writes *#* in channel #bla..And I wanna to add more channels,2 or 3 ,but not all channels bot is on..

Statistics: Posted by DaRkOoO — Sat Sep 27, 2008 7:40 am