PasteBIN
תגיות
התחבר
הרשמה
למה מירק?
עמוד ראשי
5678 הודעות
3399 נושאים
4465 רשומים
213 מחוברים כרגע
יוצר: KaryoS
גירסא: 1.1
תיאור: שעון מעורר למירק
הפעלה: נכנסים לדיאלוג מגדירים זמן וצלצול שרוצים ולוחצים Start
תמונה:
קוד: בחר הכל
menu * {
Alarmclock: { .dialog -m Alarmclock Alarmclock }
}
alias StartTime {
if (%ACTime == $gettok($time,1-2,58)) || (%ACTime == $+($abs($calc($gettok($time,1,58) -12)),:,$gettok($time,2,58))) { .splay %ACSound | .showmirc -r | .timer 1 1 flash | .timerst off | .echo -ast Alarmclock offline now. }
}
dialog Alarmclock {
title "Alarmclock"
size -1 -1 65 36
option dbu
edit "", 1, 26 2 38 8, center
text "Set Time:", 2, 2 2 24 8
button "...", 3, 52 26 11 8
edit "Select Sound", 5, 1 25 51 10, read autohs
button "Start", 8, 2 12 28 12
button "Stop", 9, 35 12 28 12
}
On *:Dialog:Alarmclock:sclick:*: {
if ($did == 3) { set %ACSound $sfile($mircdir $+ *.mp3,Select a Sound File) | if (%ACSound) did -ra $dname 5 %ACSound }
if ($did == 8) {
set %ACTime $did(1) {
if ($regex($did(1),/^\d\d:\d\d$/) == 0) { noop $$input(Error! Invalid Hour!,ho,Error) | goto END }
}
if (!%ACSound) { noop $$input(Error! You must Select a Sound File!,ho,Error) | halt }
if (!%ACTime) { noop $$input(Error! You must Select Time!,ho,Error) | halt }
.timerst 0 1 StartTime
.echo -ast Alarmclock started now.
}
if ($did == 9) { .timerst off | .splay stop | .echo -ast Alarmclock offline now. | unset %ACSound | unset %ACTime }
:END
}
on *:dialog:Alarmclock:init:*: {
if (%ACTime) did -ra $dname 1 %ACTime
if (%ACSound) did -ra $dname 5 %ACSound
}
אם יש מה לתקן תגידו
