On *:Text:*:#kanal:{
  if $regex($1-,/()/) && !$var($+(%,,$nick)) {
    msg $chan  Kanal Soz                   
    .set -u05 $+(%,Dj,$nick)
  }
}

on x:text:*:#radyo:msg # SabitSöz

alias arkadas {
  if $1 == $null { echo -a Arkadas listenize eklemek icin ekle/sil parametresi belirtiniz. Örn: /arkadas ekle $nick | return }
  if $2 == $null { echo -a Nick belirtiniz. | return }
  if $1 == ekle { auser arkadas $2 | echo -a $2 nicki arkadas listenize eklendi. }
  if $1 == sil { ruser arkadas $2 | echo -a $2 nicki arkadas listenizden silindi. }
}

on arkadas:join:#sohbet: {
  if !%arkadas { set %arkadas 1 }
  if %arkadas == $calc($lines(arkadas.txt) + 1) { set %arkadas 1 }
  msg $chan $nick : $read(arkadas.txt,%arkadas)
  inc %arkadas
}

alias arkadas {
  if $1 == $null { echo -a Arkadas listenize eklemek icin ekle/sil parametresi belirtiniz. Örn: /arkadas ekle $nick mesaj | return }
  if $2 == $null { echo -a Nick belirtiniz. | return }
  if $1 == ekle && $3 {  write arkadas.txt $2 $+ $chr(11) $+ $3- | echo -a $2 nicki arkadas listenize eklendi. Giris mesaji: $3- }
  if $1 == sil { if $read(arkadas.txt,w,$2 $+ *) { .write -dl $+ $readn arkadas.txt | echo -a $2 nicki arkadas listenizden silindi. } }
}

on *:join:#sohbet: {
if $read(arkadas.txt,w,$+($nick,$chr(11),*)) { msg $chan $nick : $gettok($read(arkadas.txt,w,$nick $+ *),2,11)
}