mIRC Çalar Saat – Alarm Clock İletişim
Şuanda verilecek kod gerçek hali ingilizcedir, kodu türkçeye ceviren arkadaşa teşekkürler..
iletişim ALR {
başlığı “Çalar Saat”
size -1 -1 128 91
option dbu
kutusu “Saati Ayarla”, 1, 2 2 43 30
edit “”, 2, 4 10 38 9, merkez
“Uygula” düğmesi, 3, 4 20 38 10, düz
kutu “Aç / Kapa”, 4, 2 33 43 18
radyo “Aç”, 5, 4 41 18 9
radyo “Kapa”, 6, 22 41 21 9
kutusu “Ses sec”, 7, 47 2 79 19
“Bip”, 8, 49 10 23 9 kontrol
“Müzik”, 9, 72 10 24 9 kontrol
kontrol “Highlite”, 10, 97 10 28 9
kutu “Müzik / Ses”, 11, 47 22 79 48
12 49 31 75 37 listesi, boyut hsbar vsbar
kutu “Ses / Müzik sec”, 13, 2 71 124 18
“metnini, 14, 4 78 120 8, merkez
kutu “su Anki Zaman”, 15, 2 52 43 18
“metnini, 16, 4 60 39 8, merkez
}
iletişim alr2 {
başlığı “Sesler”
size -1 -1 132 70
option dbu
kutu “Çalar Saat Sesi sec”, 1, 2 2 128 66
düğmesi At “Göz”, 2, 4 56 31 10, düz
“Kapat” düğmesine, 3, 97 56 31 10, düz iptal
button “Sil”, 4, 35 56 31 10, düz
5, 4 11 124 44 listesi, boyut hsbar vsbar
düğmesi “Ön İzleme”, 6, 66 56 31 10, düz
}
*: load: {
echo 12-Just Napa182 Çalar Saat Yüklü mı
eko 12-A Script0rs A.Ş. Üretim
echo-a? 14,1 (14,1 ¯? 15,1 ¯? 0,1 ¯ 0,1 º º? 0,1 ¯? 15,1 ¯? 14,1 ¯) $ + $ chr (153)
}
alias-l sound.check1 {did-r alr2 5 | var% x = 1 | while (% x <= $ lines (sasound.txt)) {did-tr nopath alr2 5 $ ($ read (sasound.txt% x)) | inc% x}}
alias-l sound.check2 {did-r ALR 12 | var% x = 1 | iken (% x <= $ lines (sasound.txt)) {did-za ALR nopath 12 $ read ($ (sasound.txt% x)) | inc% x}}
alias-l findsound {iletişim $ iif ($ dialog (alr2)-v,-mied) alr2 alr2}
alias-l alarm.m {if (% a.time == zaman $ (HH: nn)) {salt şevli $ (sasound.txt,% saound)}}
alias-l alarm.b {if (% a.time == zaman $ (HH: nn)) {bip 500 900}}
alias-l alarm.h {if (% a.time == zaman $ (HH: nn)) {pencere @ | echo $ r (1,12) @ Zaman!!! Şimdi $ time (h: nntt) Yani Ur Ass FFS Kapalı alın!! | Bip}}
alias-l regtime {did-ra ALR 16 $ time (HH: nn.s)}
on *: dialog: alr2: init: 0: {$ sound.check1}
on *: dialog: ALR: close: 0: {timer.regtime off}
on *: dialog: alr2: sclick: *: {
($ == 2 yaptım) {sasound.txt yazmak sfile $ (C: \ Dizin Seç) | $ sound.check2 | $ sound.check1}
(! $ (5) sel) (! Silinecek sesi sn, uwo, Hata) | else {write-dl $ + $ did (5) {if {noop $ girdi} ($ did == 4) sel sasound.txt | $ sound.check2 | $ sound.check1}}
{if ($ == 6 yaptım) {noop $ girdi} ($ did (5) sel!) (Hızlı Ön İzleme İçin Ses sn, uwo, Hata!) | else {şevli $ read (sasound.txt $ (5) sel) |. timer.preview 1 30 şevli durdurmak}}
}
menü menubar, channel {
Çalar Saat: {iletişim $ iif ($ dialog (ALR), v, mied) alr ALR}
}
on *: dialog: alr: init: 0: {
did-a mahsus $ dname 16 $ (SS: nn.s)
Timer.regtime 0 1 regtime
$ Iif (% a.time,-a $ dname 2% a.time, bir yoktu $ dname 2 Not Set)
$ Gettok (% alarm did-c $ dname 5 did-c $ dname 6)
$ Iif (!% Asound, did-a $ dname 14 YOK did-a $ dname 14% asound)
$ Iif (% a.beep did-c $ dname 8, $ iif (% a.music did-c $ dname 9, $ iif (% a.high did-c $ dname 10)))
$ Iif (% a.beep did-b $ dname $ + (12 $ chr (44), 14), $ iif (% a.high did-b $ dname $ + (12 $ chr (44) , 14), $ iif (% a.music, did-e $ dname $ + (12 $ chr (44), 14))))
ABD doları sound.check2
}
on *: dialog: ALR: sclick: *: {
if ($ did == 3) {if (sol $ ($ did (2) metin, 1) isnum!) {noop $ input (Lütfen 24 saat olarak giriniz, uwo, Hata!) | did-r $ dname 2} | else {set% a.time $}} (2) metin yaptı
did-c $ dname 8 | | did-u $ dname 9,10 | set% a.beep | {unset% a.music% a.high ($ == 8 yaptım) did-b $ dname 12,14 }
if ($ did == 9) {unset% a.beep% a.high | did-c $ dname 9 | | did-u $ dname 8,10 | $ findsound | did-e $ dname set% a.music 12,14}
did-c $ dname 10 | | did-u $ dname 8,9 | did-b $ dname 12,14 set% a.high | {unset% a.beep% a.music ($ == 10 yaptı) }
{| $ did set% saound (12) sel | did-ra $ dname 14% asound set% asound $ did (12) seltext} ($ == 12 yaptı)
{if ($ == 5 yaptım) if ($ did (12) seltext | |!% a.time) {noop $ iif ($ did (12) seltext, $ input (Lütfen Ses Seçin, uwo!! Hata), $ iif)) (% a.time, $ input (Lütfen 24 saat olarak giriniz, uwo, Hata!!) | did-u $ dname 5 | did-c $ dname 6} | else {set % alarm | if (% a.music) {timer.asound% a.time 1 1 alarm.m.} | if (% a.beep) {timer.abeep% a.time 1 1 alarm.b.} | Eğer (% a.high) {timer.ahighlite% a.time 40 1 alarm.h}}}
($ == 6 yaptım) {unset% alarm | timer.a * off | Şevli durağı | bip sesi stop}
}

Сподели: