alias thelp {
  set %_thelp $1
  .enable #thelp
  $iif($hget(thelp),hfree thelp)
  var %. 1
  while $chan(%.) {
    .topic $v1
    inc %.
  }
}
#thelp off
raw *:*: {
  if $numeric = 332 {
    inc %_thelpinc 1
    if $regex($2,$strip($3-),/\b $+ %_thelp $+ \b/gi) {
      hadd -m thelp $2 $v1
    }
  }
  if $numeric = 333 {
    if %_thelpinc = $chan(0) {
      unset %_thelpinc
      var %1 1
      while ($hget(thelp,%1).item) {
        echo -aec info *** Kanal: $v1 - %_thelp kelimesi toplam: $hget(thelp,$v1)
        inc %1
      }
      .disable #thelp
    }
  }
}
#thelp end