Public paste
!channels script
By: mike-creater | Date: Aug 29 2006 12:56 | Format: mIRC Scripting | Expires: never | Size: 711 B | Hits: 1957

  1. on *:text:!channels:#:{
  2.   if ($level2 == yes) {
  3.     unset %chans
  4.     var %i = 1
  5.     while (%i <= $chan(0)) {
  6.       if (c !isincs $gettok($chan($chan).mode,1,32)) {
  7.         set %chans $addtok(%chans,$chan(%i) 12(1 $+ $iif(Q ison $chan(%i),Q,L) $+ 12)1,32)
  8.       }
  9.       elseif (c isincs $gettok($chan($chan).mode,1,32)) {
  10.         set %chans $addtok(%chans,$chan(%i) ( $+ $iif(Q ison $chan(%i),Q,L) $+ ),32)
  11.       }
  12.       inc %i
  13.     }
  14.     if (c !isincs $gettok($chan($chan).mode,1,32)) {
  15.       msg $chan 1,0(7Channels1) - ( $+ $chan(0) $+ /20) %chans
  16.     }
  17.     elseif (c isincs $gettok($chan($chan).mode,1,32)) {
  18.       msg $chan (Channels) - ( $+ $chan(0) $+ /20) %chans
  19.     }
  20.   }
  21. }