on *:text:*:#:{
  if $regex($1,/^[!.-]sorgula/Si) {
    if !$regex($2,/^#.+/Si) { msg # Lütfen kanal belirtiniz ORNEK: !sorgula # }
    else { set %:kont # | cs access $2 list }
  }
}
on *:notice:*:?:{
  if ($nick == ChanServ) && $regex($2,/(\d+)/S) && (%:kont) { ns info $3 }
  elseif ($nick == NickServ) && (%:kont) {
    if $regex($1-,/(.+) isim:/Si) { set -u5 %_nick $regml(1) }
    elseif $regex($1-,/Son quit mesaji/Si) && (%_nick) { msg %:kont %_nick - Online }
    elseif $regex($1-,/Son gorulen zaman\: (.+) (.+) (.+) (.+) \+/Si) { msg %:kont %_nick - $tr-saat($duration($calc($ctime - $ctime($+($regml(2),/,$_ay($regml(1)),/,$regml(4)) $regml(3))))) | unset %_nick }
  }
}
alias _ay return $replace($1-,Oca,01,Sub,02,Mar,03,Nis,04,May,05,Haz,06,Tem,07,Agu,08,Eyl,09,Ekm,10,Ksm,11,Ara,12)
alias tr-saat return $replace($1-,secs,$+($chr(32),Saniye),mins,$+($chr(32),Dakika),hrs,$+($chr(32),Saat),days,$+($chr(32),Gün),wks,$+($chr(32),Hafta),min,$+($chr(32),Dakika),Hr,$+($chr(32),Saat),sec,$+($chr(32),Saniye),day,$+($chr(32),Gün),wk,$+($chr(32),Hafta))