alias kanalkayit {
  if !$1 { echo -a -> Kanal belirtmediniz. | halt }
  else {
    if $regex($2,/^(off)$/i) {
      unset %. [ $+ [ $remove($1,$chr(35)) ] ]
      echo -a -> Kanal kayit islemi $1 icin iptal edildi.
      halt
    }
    set %. [ $+ [ $remove($1,$chr(35)) ] ] on
    echo -a -> Kanal kayit islemi $1 icin basladi.
  }
}
on *:join:#:{
  if %. [ $+ [ $chan ] ] == on {
    if $read($+($remove($chan,$chr(35)),$chr(46),txt),w,$nick) { halt }
    else {
      write $+($remove($chan,$chr(35)),$chr(46),txt) $nick
    }
  }
}