egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2008-06-28T09:54:59-04:00 https://forum.eggheads.org/app.php/feed/topic/15845 2008-06-28T09:54:59-04:00 2008-06-28T09:54:59-04:00 https://forum.eggheads.org/viewtopic.php?p=83774#p83774 <![CDATA[Blacklist Script]]>

Code: 

bind pub o|o .ban pub:banbind pub o|o .unban pub:ubproc pub:ban {nick uhost hand chan text} {   if {[string length $text] > 0} {      set tnick [lindex [split $text] 0]      if {[onchan $tnick $chan]} {         if {[llength [split $text]] == 1} { set reason banned } else { set reason [join [lrange [split $text] 1 end]] }         putserv "privmsg x :ban $chan $tnick 1 100 $reason"      } else { puthelp "notice $nick :I cannot ask X to ban $tnick. They are not on $chan." }   } else { puthelp "notice $nick :Please use proper format. Usage .ban <nick> \[<reason>\]" }}proc pub:ub {nick uhost hand chan text} {   if {[string length $text] > 0} {      set tnick [lindex [split $text] 0]      putserv "privmsg x :unban $chan $tnick"   } else { puthelp "notice $nick :Please use proper format. Usage .ban <nick> \[<reason>\]" }}
Norton goofed, he has it check ( if [botisop $chan] == 0 ) and then perform the banning or unbanning. Problem is, that equation will only be true when the bot is NOT opped, and will cry to X to do the banning when it isn't opped. If the bot is opped, this script will do absolutely nothing (except message you "algo falla" (aka, something went wrong)), not quite what you had in mind. This check is NOT necessary since using X the bot can be opped or unopped and it will work. This is how the code above is written, without needless checks. Also corrected norton's flawed string/list manipulations which will cause problems for you with nicknames/reasons containing special characters. This is a very simple script, I've removed the part where eggdrop tries to add bans to it's internal ban list and have it only set these via X (so if opped your eggdrop won't fight with X to kick/ban people). You might have a problem when removing bans, because the script doesn't check just asks X to remove the ban. There are better X manipulation scripts available, this is just something to show you how to fish correctly. You can give a man a fish, and feed him for a day. Or you can teach a man to fish, and feed him for a lifetime. Tcl is alot like fishing to me...The forum is akin to a very big lake filled with vast varieties of fish. This attracts many talented fisherman. The advice given by these fisherman is second to none, there is much you can learn from them. A script is a fish. Anyone can ask for a fish, it takes a true talented fisherman to bring one safely onto the shore without hooking it through the eye, or the gills or any other mangling of the fish.

Keep in mind to use this, you bot must have access level high enough to ban and be known and identified through X.

Statistics: Posted by speechles — Sat Jun 28, 2008 9:54 am

]]> 2008-06-28T08:11:50-04:00 2008-06-28T08:11:50-04:00 https://forum.eggheads.org/viewtopic.php?p=83766#p83766 <![CDATA[Blacklist Script]]>
TRY!!

Code: 

bind pub o|o .ban pub:banbind pub o|o .unban pub:ubproc pub:ban {nick uhost hand chan text} {  if {[botisop $chan] == 0} {    if {[string length $text] > 0} {      set tnick [lindex $text 0]      if {[onchan $tnick $chan]} {        if {[string length [lindex $text 1]] == 0} { set reason banned } else { set reason [lrange $text 1 end] }      set maska *!*@[lindex [split [getchanhost $tnick $chan] @] 1]        putserv "PRIVMSG X :ban $chan $maska 1 100 $reason"        newchanban $chan *!*@[lindex [split [getchanhost $tnick $chan] @] 1] $nick $reason 0      } else { puthelp "notice $nick :no such nick on channel!" }    } else { puthelp "NOTICE $nick :usage .ban <nick> reason" }  } else { puthelp "NOTICE $nick :algo falla" }}proc pub:ub {nick uhost hand chan text} {  if {[botisop $chan] == 0} {    if {[string length $text] > 0} {      set tnick [lindex $text 0]putserv "PRIVMSG X :unban $chan $tnick"      if {[ischanban $tnick $chan]} { killchanban $chan $tnick } else { puthelp "NOTICE $nick :no such ban on $chan" }    } else { puthelp "NOTICE $nick :usa .ub <nick!user@host>" }  } else { puthelp "NOTICE $nick :Quitame el @" }}
I t doesn't work

[15:10:16] <user> .ban user test
[15:10:18] -botnick- algo falla

Statistics: Posted by Danik — Sat Jun 28, 2008 8:11 am

]]> 2008-06-27T17:57:33-04:00 2008-06-27T17:57:33-04:00 https://forum.eggheads.org/viewtopic.php?p=83757#p83757 <![CDATA[Blacklist Script]]>

Code: 

bind pub o|o .ban pub:banbind pub o|o .unban pub:ubproc pub:ban {nick uhost hand chan text} {  if {[botisop $chan] == 0} {    if {[string length $text] > 0} {      set tnick [lindex $text 0]      if {[onchan $tnick $chan]} {        if {[string length [lindex $text 1]] == 0} { set reason banned } else { set reason [lrange $text 1 end] }      set maska *!*@[lindex [split [getchanhost $tnick $chan] @] 1]        putserv "PRIVMSG X :ban $chan $maska 1 100 $reason"        newchanban $chan *!*@[lindex [split [getchanhost $tnick $chan] @] 1] $nick $reason 0      } else { puthelp "notice $nick :no such nick on channel!" }    } else { puthelp "NOTICE $nick :usage .ban <nick> reason" }  } else { puthelp "NOTICE $nick :algo falla" }}proc pub:ub {nick uhost hand chan text} {  if {[botisop $chan] == 0} {    if {[string length $text] > 0} {      set tnick [lindex $text 0]putserv "PRIVMSG X :unban $chan $tnick"      if {[ischanban $tnick $chan]} { killchanban $chan $tnick } else { puthelp "NOTICE $nick :no such ban on $chan" }    } else { puthelp "NOTICE $nick :usa .ub <nick!user@host>" }  } else { puthelp "NOTICE $nick :Quitame el @" }}

Statistics: Posted by Nor7on — Fri Jun 27, 2008 5:57 pm

]]> 2008-06-27T17:06:34-04:00 2008-06-27T17:06:34-04:00 https://forum.eggheads.org/viewtopic.php?p=83756#p83756 <![CDATA[Blacklist Script]]> I need (ban & unban public command script))

Statistics: Posted by Danik — Fri Jun 27, 2008 5:06 pm

]]> 2008-06-27T16:56:23-04:00 2008-06-27T16:56:23-04:00 https://forum.eggheads.org/viewtopic.php?p=83755#p83755 <![CDATA[Blacklist Script]]> http://forum.egghelp.org/viewtopic.php? ... ight=unban

U should search in the forum before send a post.

Statistics: Posted by Nor7on — Fri Jun 27, 2008 4:56 pm

]]> 2008-06-27T16:10:30-04:00 2008-06-27T16:10:30-04:00 https://forum.eggheads.org/viewtopic.php?p=83753#p83753 <![CDATA[Blacklist Script]]>

Code: 

bind KICK - * CService:kick:by:X:revenge proc CService:kick:by:X:revenge { nick host hand chan target reason } {   global botnick   if {$hand == "X" && ([isbotnick $target] || [matchattr [nick2hand $target $chan] mo|mo $chan])} {    set temp1 [lindex [split [lindex [split $reason] 0] "("] 1]    set username [lindex [split [lindex [split $temp1] 0] ")"] 0]    putserv "PRIVMSG X :SUSPEND $chan $username 5 D"    putserv "PRIVMSG X :UNBAN $chan $botnick"    puthelp "PRIVMSG X :INVITE $chan"   } }
the blacklist witch use X undernet to ban works now perfectly :)
But does anybody know a public command, to add and remove bans from this list ?

Statistics: Posted by Danik — Fri Jun 27, 2008 4:10 pm

]]> 2008-06-18T09:51:39-04:00 2008-06-18T09:51:39-04:00 https://forum.eggheads.org/viewtopic.php?p=83619#p83619 <![CDATA[Blacklist Script]]> Statistics: Posted by Nor7on — Wed Jun 18, 2008 9:51 am

]]> 2008-06-18T09:02:54-04:00 2008-06-18T09:02:54-04:00 https://forum.eggheads.org/viewtopic.php?p=83618#p83618 <![CDATA[Blacklist Script]]>
Don't think so, if so.. the bot need to have access to add bans in X

the egg has access to X Undernet but it doesn't have OP (@)

NOOP flag is active on the channel

Statistics: Posted by Danik — Wed Jun 18, 2008 9:02 am

]]> 2008-06-18T08:34:43-04:00 2008-06-18T08:34:43-04:00 https://forum.eggheads.org/viewtopic.php?p=83616#p83616 <![CDATA[Blacklist Script]]> Statistics: Posted by ztian299 — Wed Jun 18, 2008 8:34 am

]]> 2008-06-18T02:29:57-04:00 2008-06-18T02:29:57-04:00 https://forum.eggheads.org/viewtopic.php?p=83605#p83605 <![CDATA[Blacklist Script]]>
use lol.tcl

!ban *!*@host.domain time reason - !banmask *!*@host.domain time reason

0 = perm

when un user join and have ban, ur eggdrop put ban via X.
Does this work even if the eggdrop doesn't have op (@) on the chan ?

Statistics: Posted by Danik — Wed Jun 18, 2008 2:29 am

]]> 2008-06-17T18:24:13-04:00 2008-06-17T18:24:13-04:00 https://forum.eggheads.org/viewtopic.php?p=83602#p83602 <![CDATA[Blacklist Script]]>
!ban *!*@host.domain time reason - !banmask *!*@host.domain time reason

0 = perm

when un user join and have ban, ur eggdrop put ban via X.

Statistics: Posted by Nor7on — Tue Jun 17, 2008 6:24 pm

]]> 2008-06-17T17:17:07-04:00 2008-06-17T17:17:07-04:00 https://forum.eggheads.org/viewtopic.php?p=83601#p83601 <![CDATA[Blacklist Script]]>
http://forum.egghelp.org/viewtopic.php? ... ht=autoban
I added the script to the eggdrop but I can't figure out how to insert bans in it

Statistics: Posted by Danik — Tue Jun 17, 2008 5:17 pm

]]> 2008-06-17T16:35:23-04:00 2008-06-17T16:35:23-04:00 https://forum.eggheads.org/viewtopic.php?p=83599#p83599 <![CDATA[Blacklist Script]]> http://forum.egghelp.org/viewtopic.php? ... ht=autoban

Statistics: Posted by Nor7on — Tue Jun 17, 2008 4:35 pm

]]> 2008-06-17T16:07:41-04:00 2008-06-17T16:07:41-04:00 https://forum.eggheads.org/viewtopic.php?p=83598#p83598 <![CDATA[Blacklist Script]]>
http://forum.egghelp.org/viewtopic.php? ... =blacklist

and add the line that ur need.
Once again ... I need the eggdrop to use its access to X Undernet to ban users that are in the blacklist

Statistics: Posted by Danik — Tue Jun 17, 2008 4:07 pm

]]> 2008-06-17T16:02:21-04:00 2008-06-17T16:02:21-04:00 https://forum.eggheads.org/viewtopic.php?p=83597#p83597 <![CDATA[Blacklist Script]]> http://forum.egghelp.org/viewtopic.php? ... =blacklist

and add the line that ur need.

Statistics: Posted by Nor7on — Tue Jun 17, 2008 4:02 pm

]]>