raw 366:*: {
  .set %chan $2
  echo -a $2 4------------------------------------------------------------------------------- Kanal Bilgisi --------------------------------------------------------------------
  var %op = $nick($2,0,@), %vop = $nick($2,0,+), %hop = $nick($2,0,%), %founder = $nick($2,0,~), %kullan?c? = $nick($2,0), %artakalan $calc(%kullan?c? - ($nick($2,0,&) + %hop + %vop + %founder + %op)) 
  if (%op != 0) { echo -a $2 : 5[ 2 Kanal Op'u                        +o] (4 $nick($2,0,@) 2) 4,1 $+ $str(|, $calc(%op * 50 / %kullan?c?)) $+ 12,1 $+ $str(|, $calc(50 - $calc(%op * 50 / %kullan?c?)))  2(4 $+($chr(37),$left($calc(%op * 100 / %kullan?c?),4)) 2 $+ ) $- 5] 4Nickler: $opnicki(%chan) }
  if (%hop != 0) { echo -a $2 :  5[ 2 Yard?mc? Op                     +h] (4 $nick($2,0,%) 2) 4,1 $+ $str(|, $calc(%hop * 50 / %kullan?c?)) $+ 12,1 $+ $str(|, $calc(50 - $calc(%hop * 50 / %kullan?c?)))  2(4 $+($chr(37),$left($calc(%hop * 100 / %kullan?c?),4)) 2 $+ ) $- 5] 4Nickler: $hopnicki(%chan) }
  if (%vop != 0) { echo -a $2 :  5[ 2 Kanalda Ses Yetkisi Olan  +v] (4 $nick($2,0,+) 2) 4,1 $+ $str(|, $calc(%vop * 50 / %kullan?c?)) $+ 12,1 $+ $str(|, $calc(50 - $calc(%vop * 50 / %kullan?c?)))  2(4 $+($chr(37),$left($calc(%vop * 100 / %kullan?c?),4)) 2 $+ ) $- 5] 4Nickler: $vopnicki(%chan) }
  if (%founder != 0) { echo -a $2 :  5[ 2 Kanal Sahibi               +q] (4 $nick($2,0,~) 2) 4,1 $+ $str(|, $calc(%founder * 50 / %kullan?c?)) $+ 12,1 $+ $str(|, $calc(50 - $calc(%founder * 50 / %kullan?c?)))  2(4 $+($chr(37),$left($calc(%founder * 100 / %kullan?c?),4)) 2 $+ ) $- 5] 4Nickler: $fopnicki(%chan) }
  if ($nick($2,0,&) != 0) { echo -a $2 :  5[ 2 Kanal Süper Op'u  +a] 2(4 $nick($2,0,&) 2) 4,1 $+ $str(|, $calc($nick($2,0,&) * 50 / %kullan?c?)) $+ 12,1 $+ $str(|, $calc(50 - $calc($nick($2,0,&) * 50 / %kullan?c?))) 2(4 $+($chr(37),$left($calc($nick($2,0,&) * 100 / %kullan?c?),4)) 2 $+ ) $- 5] 4Nickler: $sopnicki(%chan) }
  if (%artakalan != 0) { echo -a $2  : 5[      2 Normal Kullan?c? User] 2(4 $calc($nick($2,0) - (%op + $nick($2,0,&) + %hop + %vop + %founder)) $+ 2) 4,1 $+ $str(|, $calc(%artakalan * 50 / %kullan?c?)) $+ 12,1 $+ $str(|, $calc(50 - $calc(%artakalan * 50 / %kullan?c?)))  2(4 $+($chr(37),$left($calc(%artakalan * 100 / %kullan?c?),4)) 2 $+ ) $- 5] }
  echo -a $2 4--------------------------------------------------------------------------   Kanal Bilgisi Sonu  -----------------------------------------------------------------
  halt
}  
alias opnicki { unset %opnick | var %i 1 | while %i <= $nick($1,0,@) { set %opnick %opnick $nick($1,%i,@) | inc %i } | .return %opnick }
alias hopnicki { unset %hopnick | var %i 1 | while %i <= $nick($1,0,%) { set %hopnick %hopnick $nick($1,%i,%) | inc %i } | .return %hopnick }
alias vopnicki { unset %vopnick | var %i 1 | while %i <= $nick($1,0,+) { set %vopnick %vopnick $nick($1,%i,+) | inc %i } | .return %vopnick }
alias fopnicki { unset %fopnick | var %i 1 | while %i <= $nick($1,0,~) { set %fopnick %fopnick $nick($1,%i,~) | inc %i } | .return %fopnick }
alias sopnicki { unset %sopnick | var %i 1 | while %i <= $nick($1,0,&) { set %sopnick %sopnick $nick($1,%i,&) | inc %i } | .return %sopnick }