RÉVEIL

menu menubar,channel {
  [RéveiL]:/dialog -m reveil reveil
}

Dialog reveil {
  Title "Réveil By _NicX_"
  size 250 160 260 140
  text "Heure", 1, 5 10 30 30
  edit "" , 2,40 10 85 20,autohs
  text "Raison", 3,5 40 110 15
  edit "" , 4,40 40 200 22,autohs
  text "Son", 5,5 70 190 15
  button "Choix", 6,40 70 50 20
  button "On", 7,5 105 75 25,ok
  button "Fermer", 8,180 105 75 25,ok
  button "Off", 9,95 105 75 25,cancel
}

on *:dialog:reveil:sclick:7:{
  /set %reveil $did(reveil,2) | /set %rev.raison $did(reveil,4) | /timer1 %reveil 1 1 //run %choixRev | timer2 %reveil 1 1 echo -a 9,1[ * Réveil  * ] [ * Raison * ]7,1 %Rev.raison 9,1[ * Heure * ]7,1 %reveil |  echo -a 9,1[ * Réveil 7,1 Activé 9,1 * ] [ * Raison * ]7,1 %Rev.raison 9,1[ * Heure * ]7,1 %reveil  
  if ($did(reveil,2) == $null) { echo -a 9,1[ * Heure non spécifiée * ] | halt }
  if ($did(reveil,4) == $null) { set %reveil $did(reveil,2) | /set %Rev.raison Non spécifiée | timer3 %reveil 1 1 //run %choixRev | timer4 %reveil 1 1 echo -a 9,1[ * Réveil  * ] [ * Raison * ]7,1 %Rev.raison 9,1[ * Heure * ]7,1 %reveil |  echo -a 9,1[ * Réveil 7,1 Activé 9,1 * ] [ * Raison * ]7,1 %Rev.raison 9,1[ * Heure * ]7,1 %reveil | halt }  
  halt 
}

on *:dialog:reveil:sclick:6:{
  set %choixRev $sfile(C:,Choisissez le son à jouer,oktext)
}

on *:dialog:reveil:sclick:9:{
  /timer1 off | /timer2 off | /timer3 off | /timer4 off
  echo -a 9,1[ * Réveil 7,1Désactivé9,1 * ]
}