-

Yazılış amacı: Aslında, sahibi olduğum IRC ağırlıklı forum üzerinde bir kullanıcının “Saat başı uyarı yapan bir addon arıyorum?” sorusuna cevap niteliğinde, yazmaya başlamıştım. Piyasada bulunan, fix olarak yirmi dört satırlık timer’ı barındıran ve her saat için ayrı bir satıra gereksinim duyulan kodlardan bunaldığım için sıfırdan, daha hoş bir kod ortaya çıkarmak düşüncesiyle başladım yazmaya. Sonra bir de baktım, yardım etmek amacıyla yazılmış bir koddan çok; güzel bir snippet hâline geldi ve ben de çalışmalarımın arasına ekleyerek bulunduğum sitelerde yayınlamak istedim. Bir nevi, kodun fikir babası olduğu için yardımı isteyen arkadaşımıza (CtrL) teşekkür ederim.

Açıklama: Dakikası sıfır olan (00) saat başlarında, bulunduğunuz tüm kanallara toplu ileti yollayarak (/ame), saati bildirir.

Kullanım: Status penceresinden, mouseunuzun sağ klik tuşuyla açtığınız popups menülerindeki “Saat Başı Uyarı” çekmesinde addonun durumuna göre “Aç” ya da “Kapat” seçenekleri mevcut olacaktır. İşlemin aktif hâle gelip gelmemesini buradan ayarlayabilirsiniz.

İşte kod:

#saat on
on *:start:saat
#saat end
alias -l zmn if $regex($time,$1) && $regml(1) == 00 { ame 7Şu anda saat: $+(4,$time(HH:nn),7.) | $iif($timer(st),.timerst 1 $calc(59 * 60) saat) }
alias -l saat if $regex($time,/(?(?=2)2[0-4]|[0-1][0-9]):([0-5][0-9]):([0-5][0-9])) { if $regml(1) > 0 && $regml(1) < 58 { .timerst 1 $calc(59 - $regml(1)) saat } | elseif $regml(1) == 59 { .timerst 0 1 zmn /(?(?=2)2[0-4]|[0-1][0-9]):([0-5][0-9]):([0-5][0-9]) } | else .timerst 0 1 zmn /(?(?=2)2[0-4]|[0-1][0-9]):([0-5][0-9]):([0-5][0-9]) }

menu menubar,status {
Saat Başı Uyarı
  .$iif($group(#saat) == off,Aç,Kapat):$iif($group(#saat) == off,.enable #saat,.disable #saat) | echo Saat başı uyarı, $iif($group(#saat) == on,açıldı.,kapatıldı.)

}