//var %a 1 | while %a <= $chan(0) { cs topic $chan(%a) MESAJIN | inc %a }

alias _getusr {
  var %xc = $hget(chlist,0).data | unset %chlist
  while (%xc) { set %chlist $addtok(%chlist,$hget(chlist,%xc).data,46) | dec %xc }
  var %sira = $sorttok(%chlist,46,nr)
  var %1 = 1,%2 = 1,%3 = 1,%4 = 1,%5 = 1,%6 = 1,%7 = 1,%8 = 1,%9 = 1,%10 = 1,%11 = 1,%jk = 1
  %1 = $fazlaise($gettok(%sira,1,46)) | %2 = $fazlaise($gettok(%sira,2,46)) | %3 = $fazlaise($gettok(%sira,3,46)) | %4 = $fazlaise($gettok(%sira,4,46)) | %5 = $fazlaise($gettok(%sira,5,46)) | %6 = $fazlaise($gettok(%sira,6,46)) | %7 = $fazlaise($gettok(%sira,7,46)) | %8 = $fazlaise($gettok(%sira,8,46)) | %9 = $fazlaise($gettok(%sira,9,46)) | %10 = $fazlaise($gettok(%sira,10,46))
  %11 = %1 %2 %3 %4 %5 %6 %7 %8 %9 %10
  while (%jk <= $numtok(%11,32)) {
    ;topic komutu
    chanserv set topic $gettok(%11,%jk,32) %topicm
    inc %jk 1
  }
  unset %w %y %topicm
  .disable #topic10
}
alias -l fazlaise {
  unset %y | unset %w 
  var %i = $hfind(chlist,$1,0,w).data
  while (%i) { %y = $hfind(chlist,$1,%i,w).data | %w = %y %w | dec %i }
  return $replace($sorttok(%w,32,a),$chr(32),$chr(44))
}
#topic10 off
raw 322:*:{
  if (!$hget(chlist)) { hmake chlist }
  hadd chlist $2 $3
}
raw 323:*:{ _getusr }
#topic10 end
alias mtopic {
  set %topicm $1-
  .enable #topic10
  list
}