dialog wake_dialog { 
  size -1 -1 292 222 
  title "שעון מעורר" 
  text ,1,12 13 100 21 
  text Today: $date,2,12 35 100 20 
  text "   Alarm Clock",3,210 6 70 19 
  text "      By",4,224 21 50 17 
  text "GodBless",5,228 39 50 17 
  button "בטל",6,7 180 60 30, cancel 
  button "שעה",7,7 140 60 30 
  button "תאריך",8,73 140 60 30 
  button "אישור",9,74 180 60 30, ok 
  button "הפעל",15,220 160 60 30 
  button "בחר שיר",22,150 160 60 30 
  button "מצב",19,180 80 60 30 
  link "www.mircx.co.il",10,205 55 83 17 
  check "שיר\צליל",11,8 53 70 19 
  check "הודעה",12,8 73 70 20 
  check "נוטיס",13,8 93 70 20 
  list 14,-7 114 303 14, size 
} 

on *:dialog:wake_dialog:init:*:{ 
  if (%click11) { did -c wake_dialog 11 } 
  if (%click12) { did -c wake_dialog 12 } 
  if (%click13) { did -c wake_dialog 13 } 
  .timerdialogd 0 1 did -o wake_dialog 1 1 The Time: $($time,0) 
} 
on *:dialog:wake_dialog:sclick:11:{ 
  if (%click11) && (%WakeON! != ON) { unset %click11 | set %Askmusic 0 | set %check off | setmsg } 
  else { set %click11 1 | set %check on | set %Askmusic 1 | setmsg } 
} 

on *:dialog:wake_dialog:sclick:12:{ 
  if (%click12) && (%WakeON! != ON) { unset %click12 | set %Askmsg 0 | setmsg | set %wakemsg Not defined yet } 
  else { set %click12 1 | set %Askmsg 1 | set %wakemsg $$?"Set msg here" | setmsg } 
} 

on *:dialog:wake_dialog:sclick:13:{ 
  if (%click13) && (%WakeON! != ON) { unset %click13 | set %AskNotice 0 | setmsg } 
  else { set %click13 1 | set %AskNotice 1 | setmsg } 
} 

on *:dialog:wake_dialog:sclick:19:{ 
  if (%WakeON! == ON) { echo -a %colorao1 1The alarm clock is 3ON1 for date: %datewake Time: %timewake $+ . 1Status: Notice: %notice? $+ , MSG %MSG? $+ , Music: %Music? $+ . %colorao2 } 
  if (%WakeON! == OFF) { echo -a %colorao1 1The alarm clock is 4OFF %colorao2 } 
} 
on *:dialog:wake_dialog:sclick:22:{ 
  echo -a %colorao1 -------------------------------------- %colorao2 
  echo -a %colorao1 -------------------------------------- %colorao2 
  echo -a %colorao1 Select your Song that you wanna hear!!. %colorao2 
  echo -a %colorao1 -------------------------------------- %colorao2 
  echo -a %colorao1 -------------------------------------- %colorao2 
  //set %asong $sfile(D:) 
  echo -a %colorao1 The song is: %asong %colorao2 
} 
on *:dialog:wake_dialog:sclick:9:{ 
  if (%WakeON! == OFF) { set %timewake Not defined yet | set %datewake Not defined yet | .timers off | set %check off | .timerdialogd off | set %12click 1 | set %11click 1 | set %13click 1 | setmsgOFF } 
  .timerdialogd off | set %12click 1 | set %11click 1 | set %13click 1 
} 
on *:dialog:wake_dialog:sclick:6:{ set %WakeON! OFF | unset %click13 | unset %click12 | unset %click11 | set %timewake Not defined yet | set %datewake Not defined yet | .timers off | set %check off | .timerdialogd off | set %12click 1 | set %11click 1 | set %13click 1 | setmsgOFF } 
on *:dialog:wake_dialog:sclick:7: { set %timewake $$?"Set here the time to wake for example $time $+ " } 
on *:dialog:wake_dialog:sclick:8: { 
  if (*:* iswm %timewake) { 
    set %datewake $$?"Set here the date of the day for example $date $+ , if the day is today type: today" | today 
  } 
  if (*:* !iswm %timewake) { 
    echo -a %colorao1 1Set first the time. %colorao2 
  } 
} 
on *:dialog:wake_dialog:sclick:15: { 
  if (%WakeON! == OFF) { 
    if (*/* iswm %datewake) { 
      .timer 1 1 set %WakeON! ON      
    echo -a %colorao1 1The alarm clock is 3ON1 for date: %datewake Time: %timewake $+ . 1Status: Notice: %notice? $+ , MSG %MSG? $+ , Music: %Music? $+ . %colorao2 | timerdialog } 
    if (*/* !iswm %datewake) { 
    echo -a %colorao1 1The alarm clock is 4OFF1 set the Date and the Time first. %colorao2 } 
  } 
  if (%WakeON! == ON) { echo -a %colorao1 1The alarm clock is already 3ON!!!1 %colorao2 } 
} 
alias timerdialog { 
  timer 0 1 timercheak 
} 
alias setmsg { 
  if (%Askmsg == 1) { set %MSG? 3ON1 } 
  if (%AskNotice == 1) { set %notice? 3ON1 } 
  if (%Askmusic == 1) { set %music? 3ON1 } 
  if (%Askmusic == 0) { set %music? 4OFF1 } 
  if (%AskNotice == 0) { set %notice? 4OFF1 } 
  if (%Askmsg == 0) { set %MSG? 4OFF1 } 
} 
alias setmsgOFF { 
  set %MSG? 4OFF1 
  set %notice? 4OFF1 
  set %music? 4OFF1 
} 
alias timercheak { 
  set %timer $time 
  if ($time == %timewake) && ($date == %datewake) { 
    set %timerstop 1 
    echo -a %colorao1 12Time to wake up3!!!. 12The time is3:4 $fulldate 12Type: 3!12stop to stop the music3. %colorao2 
    if (%Askmsg == 1) { msg $me %colorao1 %wakemsg %colorao2 }  
    if (%Asknotice == 1) { 
      notice $me %colorao1 Wake UP!! %colorao2 
      notice $me %colorao1 Wake UP!! %colorao2 
      notice $me %colorao1 Wake UP!! %colorao2 
    } 
    if (%timerstop == 1) && (%Askmusic == 1) { splay %asong } 
    timers off 
    set %datewake Not defined yet 
    set %timewake Not defined yet 
    set %WakeON! OFF 
    unset %click13 
    unset %click12 
    unset %click11  
  } 
} 
on *:input:?:{ 
  if (%timerstop == 1) { 
    if ($1 == !stop) { splay stop | echo -a %colorao1 12The music is 4stoped3. %colorao2 } 
    set %timerstop 0 
  } 
} 
alias Colorao { 
  set %colorao1 «14GoD1» 
  set %colorao2 «14GoD1» 
} 
menu * { 
  .Alarm Clock:{ dialog -m wake_dialog wake_dialog | Colorao } 
} 
alias today {  
  if (%datewake == today) { set %datewake $date } 
}