This is a uber leet alarm, pretty sure theres some bugs like w/e...easy to fix but yea,it only retrives from the mIRC folder so put your alarm music/sound in it....have fun? YAY! o yeah, and i didnt finish the events i dont think, in fact, i didnt even really finish it but it workds fine

menu menubar,channel {
  Alarm {
    /dialog -dm alarmwin alarmwin
  }
}

dialog alarmwin {
  title "Alarm"
  size -1 -1 148 63
  option dbu
  box "Events", 1, 1 3 146 21
  button "Set Alarm", 3, 54 29 40 29, default
  button "Sound", 4, 4 30 41 12
  button "Stop", 5, 4 46 41 12
  box "", 7, 100 23 47 38
  box "", 8, 51 23 46 38
  button "Close", 10, 103 46 41 12
  box "", 9, 1 23 47 38
  button "", 11, 103 30 40 12, flat
  text "", 2, 7 12 133 8, center
}
on *:dialog:alarmwin:sclick:3:{
  /set %temp $asctime($ctime($date $?),HH:nn) 
  $asctime($ctime($date $temp),HH:nn)
  /timeralarm %temp 0 2 /splay %temp1
  /timerstop 0 60 /timeralarm off
  did -a alarmwin 2 -Time has been set for %temp $+ -
  /timerclear 0 4 /did -r alarmwin 2
}
on *:dialog:alarmwin:sclick:5:{
  /splay stop  
  /timeralarm off
  did -a alarmwin 2 -Alarm has been stopped ( $+ %temp $+ )-
  /timerclear 0 4 /did -r alarmwin 2
}
on *:dialog:alarmwin:sclick:10:{
  close -m
  dialog -x $dname $dname
  /timerclock off
  /timerclear off
}
on *:dialog:alarmwin:sclick:11:{
  /dialog -dm datewin datewin
}
dialog datewin {
  title "Date"
  size -1 -1 62 30
  option dbu
  button "", 2, 4 5 53 21, disable flat multi ok
  button "", 4, 1 2 59 27, disable group result
}
on *:dialog:datewin:sclick:2:{
  /timerdate off
}
dialog listwin {
  title "List"
  size -1 -1 200 91
  option dbu
  list 1, 5 6 190 59, size hsbar vsbar
  box "", 2, 2 0 196 68
  box "", 3, 1 68 197 21
  button "OK", 4, 76 74 37 11, ok
  button "Apply", 5, 116 74 37 11
  button "Cancel", 6, 156 74 37 11, cancel
}
on *:dialog:alarmwin:sclick:4:{
  /dialog -dm listwin listwin
  /did -z listwin 1
}
on *:dialog:listwin:init:0: {
  echo -q $findfile($mircdir,*.mp3,0,did -a listwin 1 $nopath($1-))
  echo -q $findfile($mircdir,*.wav,0,did -a listwin 1 $nopath($1-))
}
on *:dialog:listwin:dclick:1: {
  /splay $did(listwin,1).seltext
}
on *:dialog:listwin:sclick:4: {
  /set %temp1 $did(listwin,1).seltext
}
on *:dialog:listwin:sclick:5: {
  /set %temp1 $did(listwin,1).seltext
}
on *:dialog:alarmwin:init:*: /timerclock -m 0 500 did -o alarmwin 11 1 $!asctime(h:nn tt)
on *:dialog:datewin:init:*: did -o datewin 2 1 $!asctime(mmmm dd yyyy       h:nn:ss tt) | /timerdate -m 0 500 did -o datewin 2 1 $!asctime(mmmm dd yyyy       h:nn:ss tt)