on !*:join:#Kanal: { set -u2 %Entnick $nick | cs info $chan }
on *:notice:*:?: {
  if $nick == ChanServ {
    if (*Kanal Sahibi:* iswm $1-) { notice %Entnick  $1- }
    if (*Aciklama:* iswm $1-) { notice %Entnick  $1- }
    if (*Kayit zamani:* iswm $1-) { notice %Entnick  $gettok($1-,1-6,32) }
    if (*Son Kullanim:* iswm $1-) { notice %Entnick  $1- }
  }
}

on *:notice:*:?:{
  if $nick == ChanServ {
    if $regex($strip($1-),/(kanal(i|ı) kay(i|ı)tl(i|ı) de(g|ğ)(i|ı)l)/) { 
      msg %nick  $strip($1) kanalı kayıtlı değildir. 
    }
    else {
      $iif($regex($1-,/(Kanal(i|ı) Bilgisi)/),set %kanal $strip($1))
      $iif($regex($1-,/(Kanal Sahibi:)/),set %sahibi- [ $+ [ %kanal ] ] $3)
      $iif($regex($1-,/(Kay(i|ı)t zaman(i|ı))/),set %tarihi- [ $+ [ %kanal ] ] $3-6)
      $iif(*son kullan* iswm $1-,unset %kanal)
      unset %nick
    }
  }
}
on *:join:#:{ 
  inc %giren- $+ [ [ # ] ]
  if %sahibi- [ $+ [ # ] ] {
    if %giren- [ $+ [ # ] ] >= 100 { 
      cekgonder # $nick on
    }
    else {
      cekgonder # $nick
    }
  }
  else {
    cekgonder # $nick on
  }
}
alias cekgonder {
  if !$3 {
    bilgigonder $1 $2 
  }
  else {
    unset $+(%giren-,#)
    set %nick $2
    chanserv info $1
    $+(timer,$2) 1 3 bilgigonder $1 $2
  }
}

alias bilgigonder {
  msg $2  $1 kanalı bilgileri:
  msg $2 ------------------------------
  msg $2 $1 kanal sahibi; %sahibi- [ $+ [ $1 ] ]
  msg $2 $1 kanal kayıt tarihi; %tarihi- [ $+ [ $1 ] ]
  msg $2 ------------------------------
}