Public paste
Qbot chanlev
By: mike | Date: Aug 30 2006 14:46 | Format: None | Expires: never | Size: 1.64 KB | Hits: 1472

  1. on *:text:chanlev*:?:{
  2.   if ($chr(35) isin $2) {
  3.     if (!$3) {
  4.       if ($owner1) {
  5.         .notice $nick Chanlev for channel $2
  6.         var %i = 1
  7.         while (%i <= $ini(database/channels.ini,$2,0)) {
  8.           .notice $nick  $+ $ini(database/channels.ini,$2,%i) Modes: + $+ $readini(database/channels.ini,$2,$ini(database/channels.ini,$2,%i))
  9.           inc %i
  10.         }
  11.         .notice $nick End of list.
  12.         .notice $nick Total: $ini(database/channels.ini,$2,0)
  13.         close -m $nick
  14.         halt
  15.       }
  16.       elseif (!$readini(database/hosts.ini,users,$address($nick,2))) {
  17.         .notice $nick You are not authed.
  18.         close -m $nick
  19.         halt
  20.       }
  21.       else {
  22.         if (!$readini(database/channels.ini,$2,$readini(database/hosts.ini,users,$address($nick,2)))) {
  23.           .notice $nick You are not known or banned on this channel.
  24.           close -m $nick
  25.           halt
  26.         }
  27.         elseif (b isin $readini(database/channels.ini,$2,$readini(database/hosts.ini,users,$address($nick,2)))) {
  28.           .notice $nick You are not known or banned on this channel.
  29.           close -m $nick
  30.           halt
  31.         }
  32.         else {
  33.           .notice $nick Chanlev for channel $2
  34.           var %i = 1
  35.           while (%i <= $ini(database/channels.ini,$2,0)) {
  36.             .notice $nick  $+ $ini(database/channels.ini,$2,%i) Modes: + $+ $readini(database/channels.ini,$2,$ini(database/channels.ini,$2,%i))
  37.             inc %i
  38.           }
  39.           .notice $nick End of list.
  40.           .notice $nick Total: $ini(database/channels.ini,$2,0)
  41.           close -m $nick
  42.           halt
  43.         }
  44.       }
  45.     }
  46.   }
  47. }