egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2008-10-09T18:09:35-04:00 https://forum.eggheads.org/app.php/feed/topic/16224 2008-10-09T18:09:35-04:00 2008-10-09T18:09:35-04:00 https://forum.eggheads.org/viewtopic.php?p=85484#p85484 <![CDATA[Public command for !gbanlist]]>

Statistics: Posted by DaRkOoO — Thu Oct 09, 2008 6:09 pm

]]> 2008-10-08T11:27:39-04:00 2008-10-08T11:27:39-04:00 https://forum.eggheads.org/viewtopic.php?p=85464#p85464 <![CDATA[RE: Public command for !gbanlist]]>

Code: 

bind pub -|- !gbanlist gbanlist:pubproc gbanlist:pub {nick host handle channel text} { if {([llength [banlist]] == 0)} {  puthelp "NOTICE $nick :Global ban list is empty."   return 0 } else {  set count 0   foreach b [banlist] {    set count [expr $count +1]     if {([lindex $b 4] != 0) && ([lindex $b 2] != 0)} {      puthelp "PRIVMSG $nick :\[$count\] [lindex $b 0] ([lindex $b 1]) [join [ctime [lindex $b 4]]]"      puthelp "PRIVMSG $nick :Set By [lindex $b 5] on [join [ctime [lindex $b 3]]]. (expires [join [ctime [lindex $b 2]]])"     }      if {([lindex $b 4] != 0) && ([lindex $b 2] == 0)} {       puthelp "PRIVMSG $nick :\[$count\] [lindex $b 0] ([lindex $b 1]) [join [ctime [lindex $b 4]]]"       puthelp "PRIVMSG $nick :Set By [lindex $b 5] on [join [ctime [lindex $b 3]]]. (perm)"      }       if {([lindex $b 4] == 0) && ([lindex $b 2] != 0)} {        puthelp "PRIVMSG $nick :\[$count\] [lindex $b 0] ([lindex $b 1]) never used."        puthelp "PRIVMSG $nick :Set By [lindex $b 5] on [join [ctime [lindex $b 3]]]. (expires [join [ctime [lindex $b 2]]])"       }        if {([lindex $b 4] == 0) && ([lindex $b 2] == 0)} {         puthelp "PRIVMSG $nick :\[$count\] [lindex $b 0] ([lindex $b 1]) never used."         puthelp "PRIVMSG $nick :Set By [lindex $b 5] on [join [ctime [lindex $b 3]]]. (perm)"        }   };  puthelp "PRIVMSG $nick :$count Global bans."; return 1 }}
This is not tested, and the default is to output it to PM of the nickname that used the trigger '!gbanlist'. Unless there are no global bans, then it will notice the nickname this. To change this, to output it to notice the notice the banlist change ALL

Code: 

PRIVMSG $nick
to

Code: 

NOTICE $nick
-OR- to get output it to the channel where the command was used change ALL

Code: 

PRIVMSG $nick
to

Code: 

PRIVMSG $channel
. Also it currently allows anyone to use the command '!gbanlist' to change this you will need to add flags to the

Code: 

bind pub -|- !gbanlist gbanlist:pub
part. Example: if you wanted Global Ops to be able to use this command and no one else. Use:

Code: 

bind pub o|- !gbanlist gbanlist:pub
See Here for flags. And its in the form of <global flag>|<channel flag> :)

Statistics: Posted by TCL_no_TK — Wed Oct 08, 2008 11:27 am

]]> 2008-10-04T12:38:16-04:00 2008-10-04T12:38:16-04:00 https://forum.eggheads.org/viewtopic.php?p=85396#p85396 <![CDATA[Public command for !gbanlist]]> It should say his global bans,from userfile..

Statistics: Posted by DaRkOoO — Sat Oct 04, 2008 12:38 pm

]]>