alias tarihs { 
  if $istok(00 30,$gettok($time,2,58),32) { 
    var %:tarih $replace($day,monday,Pazartesi,tuesday,Salı,wednesday,Çarşamba,thursday,Perşembe,friday,Cuma,saturday,Cumartesi,sunday,Pazar) 
    if !%:ame {
      var %:t = 1
      while %:t <= $chan(0) {
        describe $chan(%:t) $_durum($gettok($time,1,58)) Message Free %:tarih messages $time
        inc %:t
      }
      set -u70 %:ame nanosuit!
    }
  }
}
alias _durum {
  if $istok(21 22 23 24 00 01 02 03 04,$1,32) { return messages ones }
  if $istok(05 06 07 08 09 10 11,$1,32) { return messages twos }
  if $istok(12 13 14 15,$1,32) { return messages threes }
  if $istok(16 17 18 19 20,$1,32) { return messages fours  }
}
on *:connect:$iif($server == irc.ırcforumları.net,$+(.timer,tarihs) 0 15 tarihs)