Sans titre

;******************************************************************************************
;*                                                                                        *
;*                          (¯`·._(¯`·._DaMsSCrIpT_.·´¯)_.·´¯)                            *
;*                                                                                        *
;*                                                                                        *
;*                                                                                        *
;*              L'ajout d'addons risquerait fortement de provoquer des bugs               *
;*                                                                                        *
;*                                                                                        *
;*                                                                                        *
;******************************************************************************************





dialog away {
  title "                      (°°-==AwAy==-°°)"
  size -1 -1 332 253
  option pixels
  icon Images\images\ids.ico, 0
  box "Pseudo", 1, 3 94 322 67
  combo 2, 6 111 314 100, size drop
  button "Ajouter", 3, 7 136 155 20, flat multi ok
  button "Supprimer", 4, 165 136 155 20, flat multi
  box "Raison", 5, 3 40 319 47
  text "Pour quelle raison pars-tu ?", 6, 78 49 150 50, center
  edit %raison, 7, 5 62 313 20, autohs
  button "Partir", 8, 8 167 322 21, flat multi
  button "Revenir", 9, 8 196 322 21, flat multi
  button "Ok", 10, 8 224 322 21, flat multi ok
  icon 11, -1 -1 340 37,  $shortfn($mircdir\Images\images\ds3.bmp), 0
}
On *:DialoG:away:*:*:{ 
  if ($devent == init) { 
    did -ra $dname 7 %raison 
    if $exists(away.txt) { loadbuf -o away 2 away.txt } 
  } 
  if ($devent == edit) { 
    if ($did == 7) { set %raison $did(7) } 
  } 
  if ($devent == sclick) { 
    if ($did == 3) { var %newpseudo $$?="Entrez le pseudo à ajouter :" | did -a away 2 %newpseudo | write away.txt | .timer 1 1 savebuf -o away 2 away.txt } 
    if ($did == 4) { did -d away 2 $did(2).sel | savebuf -o away 2 away.txt } 
    if ($did == 8) { set %nicknormal $me | set %nickaway $did(2).seltext | amsg 9« 10Attention MoDe AwaY  :9 %raison $+ 10. @+++ :)9 » %logo | away « %raison » | .timer 1 1 /tnick %nickaway } 
    if ($did == 9) { amsg 9« 10Re KiKOoOOo. Raison9 %raison  10pendant9 $duration($awaytime) $+ 10. Mode Away terminé :)9 » %logo | away | .timer 1 1 /nick %nicknormal }