a very nice alarm system

;---------------;
;  Alarm System ;
;  By The`Reaper;
;---------------;

alias alarm {
  /set %wake.time $?="Enter time in format HH:mm (ex. 13:25)"
  if (%wake.time == $null) { /echo -a 4Please enter time!!! | halt }
  /set %wake.msg $?="Enter Message or leave blank:"
  //.timeralarm %wake.time 30 1 /wakeup
  /set %sounds on
  /echo -a 4Alarm set to: %wake.time
}
alias wakeup {
  /alarm-wake
  //.splay sounds\kuku.wav
  //.timerwakeup 0 120 /wakeup
}
dialog alarm-wake {
  title "ALARM!!!"
  icon data\alarm.ico
  size 120 150 193 35
  option dbu
  button "STOP!", 10, 27 17 137 11, cancel,
  text "", 20, 6 5 181 6, center,
}
alias alarm-wake { if ($dialog(alarm-wake) == $null) { /dialog -m alarm-wake alarm-wake } }
on *:dialog:alarm-wake:init:*:{
  if (%wake.msg !== $null) { /did -a alarm-wake 20 %wake.msg }
}
on *:dialog:alarm-wake:sclick:10:{
  /splay off
  //.timerwakeup off
  //.timeralarm off
  //.unset %wake.*
  //.echo -a 8,0`%0,8%,7,8`%8,7%,4,7`%7,4%,5,4`%4,5%'1,5`%0,1 ALARM OFF! 1,5%4,5`%5,4%,7,4`%4,7%'8,7`%7,8%,0,8`%8,0%,
  //.echo -a 15,0`%0,15%,11,15`%15,11%,12,11`%11,12%,2,12`%12,2%'1,2`%2,1% 0,1 13 $+ $time 2,1`%1,2%12,2`%2,12%,11,12`%12,11%'15,11`%11,15%,0,15`%
menu menubar,channel,query,status,nicklist {
-<| Alarm |>-:/alarm