this Snippet is voice and/or half-op and/or op and/or ban list on chan.
to use him write:
!listops - for opers list
!listhops - for half-opers list
!listvops - for voices list
!listbans - for ban list
its sand the informaion in notice
my first snippet.
i will shere more Snippet
;opers list
on *:TEXT:!listops:#:{
if (!$nick($chan,1,o)) {
notice $nick 4 * There is no opers in the channel $2 $+ .
halt
}
else {
notice $nick 4 * Listing Ops on #
set %i 1
:next
set %nick $nick(#,%i)
if %nick isop # notice $nick 3 %nick is an Op!
elseif %nick == $null goto done
inc %i
goto next
:done
notice $nick 4 * End of Ops list
unset %i
unset %nick
}
}
;half-opers list
on *:TEXT:!listhops:#:{
if (!$nick($chan,1,h)) {
notice $nick 4 * There is no half-opers in the channel $2 $+ .
halt
}
else {
notice $nick 4 * Listing Hops on #
set %i1 1
:next
set %nick1 $nick(#,%i1)
if %nick1 ishop # notice $nick 3 %nick1 is an Hop!
elseif %nick == $null goto done
inc %i1
goto next
:done
notice $nick 4 * End of Hops list
unset %i1
unset %nick1
}
}
;voice list
on *:TEXT:!listvops:#:{
if (!$nick($chan,1,v)) {
notice $nick 4 * There is no voice in the channel $2 $+ .
halt
}
else {
notice $nick 4 * Listing voice on $chan
set %i2 1
:next
set %nick2 $nick(#,%i2)
if %nick2 isvoice # notice $nick 3 %nick2 have a voice!
elseif %nick2 == $null goto done
inc %i2
goto next
:done
notice $nick 4 * End of voice list
unset %i2
unset %nick2
}
}
;ban list
on *:TEXT:!listbans:#:{
if ($ibl($chan,0) == 0) {
notice $nick 4 * There is no bans in the channel $2 $+ .
halt
}
else {
var %n 1
notice $nick 4 * Listing bans on $chan
:banlist
if (!$ibl($chan,%n)) { goto done }
else {
var %banick $ibl($chan,%n)
notice $nick 4 %n $+ . %banick have ban in this chan - $chan
inc %n
goto banlist
}
:done
notice $nick 4 * End of ban list
}
}