on *:text:*:#:{
  if $1 == !basla { var %b = 1 | while $read(kanal.txt,%b) { join $read(kanal.txt,%b) | inc %b }
  if $1 == !addkanal && $2 { write kanal.txt $2 | .msg # $2 $+ , listeye eklendi. }
  if $1 == !delkanal && $2 { write -d kanal.txt $2 | .msg # $2 $+ , listeden silindi. }
}