SYSTEME AWAY

; Systeme Away Version 1.0 
; Par BaNzaI -
; Http://www.cronic.fr.st 

alias saway {
  dialog -m away away
}
dialog AwaY {
  title "Systeme Away"
  size -1 -1 126 96
  option dbu
  box "Raison", 1, 1 2 124 42
  radio "Radio Button", 2, 7 11 8 10
  radio "Radio Button", 3, 7 19 8 10
  radio "Radio Button", 4, 7 28 8 10
  text "Away", 5, 15 12 25 8
  text "Oqp", 6, 15 20 25 8
  text "Dodo", 7, 15 29 25 8
  button "Partir", 8, 1 82 30 12, ok
  radio "Radio Button", 9, 43 11 8 10
  radio "Radio Button", 10, 43 19 7 10
  radio "Radio Button", 11, 43 28 8 10
  text "Joue", 12, 50 12 25 8
  text "Mange", 13, 50 20 25 8
  text "Autre", 14, 51 29 25 8
  edit %raison, 15, 76 28 47 10
  box "Le dire..", 16, 1 45 44 36
  check "Check Box", 17, 7 53 8 10
  text "AMSG", 18, 16 54 16 8
  check "Check Box", 19, 7 64 8 10
  text "AME", 20, 16 65 11 8
  box "Pseudo", 21, 46 45 78 36
  text "Pseudo:", 22, 48 60 21 8
  edit %awaynick, 23, 67 59 54 10
  button "Revenir", 24, 31 82 31 12
  text "Systeme AwaY Par BaNzaI", 25, 63 84 62 8
}
ON *:dialog:away:sclick:2:{
  if $did(2).state == 1 { set %raison Away }
}
ON *:dialog:away:sclick:3:{
  if $did(3).state == 1 { set %raison Oqp }
}
ON *:dialog:away:sclick:4:{
  if $did(4).state == 1 { set %raison Dodo }
}
ON *:dialog:away:sclick:9:{
  if $did(9).state == 1 { set %raison Joue }
}
ON *:dialog:away:sclick:10:{
  if $did(10).state == 1 { set %raison Mange }
}
ON *:dialog:away:edit:23:{
  set %awaynick $did(23)
}
ON *:dialog:away:EDIT:15:{
  set %raison $did(15)
}
ON *:dialog:away:sclick:8:{
  amsg 4(9AwaY Systeme4)14 »»Je suis Away Pour »» 4-8(11Raison: %raison 8)-8(11Heure: $time 8)-2(7CronicScript2) 
  set %time $time
  set %back $me
  //away %raison
  //nick %awaynick
}
ON *:dialog:away:sclick:24:{
  amsg 4(9AwaY Systeme4)14 »»Je suis De Retour D' Away Pour »»  4-8(11Raison: %raison 8)- 14J'etait Partis à 8(9 %time 8)
  /away
  //nick %back
}