menu status {
  Alarm: { dialog -lvmd alarm alarm }
}
 
dialog alarm {
  title "Alarm"
  size -1 -1 88 78
  option dbu
  text "Current Time:", 1, 0 0 66 10
  edit $time, 2, 35 0 30 10, read center
  button "Set Alarm On", 3, 2 12 70 10
  button "Set Alarm Off", 4, 2 24 70 10
  text "Alarm Notice1:", 5, 2 36 36 10
  text "Alarm Notice2:", 6, 2 47 36 10
  edit %ntc1, 7, 40 36 27 10, read center
  edit %ntc2, 8, 40 47 26 10, read center
  button "Done", 9, 28 60 26 13, ok
}
 
on 1:DIALOG:alarm:sclick:*: {
  if ( $did == 3 ) { alarmon }
  if ( $did == 4 ) { alarmoff }
}
 
alias alarmon {
  set -e %ntc1 $$?="Ti wra 8es na xtupisei to ksupnhtiri sou?"
  set -e %ntc2 $$?="Ti wra 8es na xtupisei to deutero ksipnitiri sou?"
  inc -e %alarm 1
  .timer300 %ntc1 1 1 /alarm 
  .timer301 %ntc2 1 1 /alarm 
  echo -s 02The alarm has been set 00on02.
}
 
alias alarmoff {
  if (%alarm == $null) { echo -s 02The alarm has not been set yet. | .splay stop | halt }
}
elseif (%alarm >=2) {
  .timer300 off
  .timer301 off 
  echo -s 02The alarm has been set 00off02. 
  /splay stop
  unset %alarm
  unset %ntc1
  unset %ntc2
}
 
 
alias alarm {
  inc -e %alarm 1
  if (%alarm == 3) {
    echo -s 02The time is 00(02 $+ $time $+ 00).Alarm notice 00(04 $+ 2 $+ 00). 
    /splay alarm1.mp3 
    unset %alarm
    unset %ntc1
    unset %ntc2
  }
  elseif (%alarm == 2) {
    echo -s 02The time is 00(02 $+ $time $+ 00).Alarm notice 00(04 $+ 1 $+ 00).
    /splay alarm1.mp3 
  }  
}
 

Commenting Options