dialog rho {
  title "<< IK Away >>"
  size -1 -1 95 56
  option dbu
  text "Pseudo :", 1, 4 6 25 8, center
  combo 2, 31 4 61 160, size drop
  text "Raison :", 3, 4 20 25 8, center
  edit "", 4, 31 18 61 10, autohs
  button "Partir ", 5, 3 31 41 10
  button "Revenir", 6, 51 31 41 10, disable
  button "OK/Fermer", 7, 3 42 89 10, ok
}

dialog tute {
  title "Rapport"
  size -1 -1 147 24
  option dbu
  text "Temps d'absence", 1, 3 2 52 8, center
  text $duration($calc($ctime - %ctime)), 2, 58 2 87 8, center
  button "Fermer", 3, 3 12 142 10, ok
}

on *:dialog:rho:init:*:{
  dll dll/mdx.dll SetMircVersion $version
  dll dll/mdx.dll MarkDialog rho
  dll dll/mdx.dll SetDialog rho bgcolor $rgb(90,110,120)
  dll dll/mdx.dll SetColor rho 3 background $rgb(90,110,120)
  dll dll/mdx.dll SetColor rho 3 textbg $rgb(90,110,120)
  dll dll/mdx.dll SetColor rho 3 text $rgb(255,255,255)
  dll dll/mdx.dll SetColor rho 1 background $rgb(90,110,120)
  dll dll/mdx.dll SetColor rho 1 textbg $rgb(90,110,120)
  dll dll/mdx.dll SetColor rho 1 text $rgb(255,255,255)
  dll dll/mdx.dll SetColor rho 2 background $rgb(0,0,0)
  dll dll/mdx.dll SetColor rho 2 textbg $rgb(0,0,0)
  dll dll/mdx.dll SetColor rho 2 text $rgb(110,230,250)
  dll dll/mdx.dll SetColor rho 4 background $rgb(0,0,0)
  dll dll/mdx.dll SetColor rho 4 textbg $rgb(0,0,0)
  dll dll/mdx.dll SetColor rho 4 text $rgb(110,230,250)
  dll dll/mdx.dll SetBorderStyle 4 clientedge
  dll dll/mdx.dll SetColor rho 5 background $rgb(0,0,0)
  dll dll/mdx.dll SetColor rho 5 textbg $rgb(0,0,0)
  dll dll/mdx.dll SetColor rho 5 text $rgb(255,0,0)
  dll dll/mdx.dll SetColor rho 6 background $rgb(0,0,0)
  dll dll/mdx.dll SetColor rho 6 textbg $rgb(0,0,0)
  dll dll/mdx.dll SetColor rho 6 text $rgb(255,0,0)
  dll dll/mdx.dll SetColor rho 7 background $rgb(0,0,0)
  dll dll/mdx.dll SetColor rho 7 textbg $rgb(0,0,0)
  dll dll/mdx.dll SetColor rho 7 text $rgb(255,0,0)

  if ( %away == on ) {
    did -b rho 5
    did -e rho 6
    did -b rho 7
    did -b rho 2
    did -b rho 4
  }

  did -r rho 2 0,1,2,3,4,5,6,7,8,10,11,12,13
  did -i rho 2 1 $me $+ `Away
  did -i rho 2 2 $me $+ `OQP
  did -i rho 2 3 $me $+ `Code
  did -i rho 2 4 $me $+ `Toshop
  did -i rho 2 5 $me $+ `Travail
  did -i rho 2 6 $me $+ `Miam
  did -i rho 2 7 $me $+ `Play
  did -i rho 2 8 $me $+ `Ecole
  did -i rho 2 9 $me $+ `Film
  did -i rho 2 10 $me $+ `Courses
  did -i rho 2 11 $me $+ `Ménage
  did -i rho 2 12 $me $+ `Douche
  did -i rho 2 13 $me $+ `Calin
  did -i rho 2 14 $me $+ `ZzZzZ
  did -c rho 2 1
  did -ra rho 4 %whyaw
}

on *:dialog:rho:sclick:12:{ did -e rho 10 | set %repetaw 1 }
on *:dialog:rho:sclick:13:{ did -b rho 10 | set %repetaw 0 }
on *:dialog:rho:sclick:5:{
  did -b rho 5
  did -e rho 6
  did -b rho 7
  did -b rho 2
  did -b rho 4
  %whyaw = $did(4)
  if ($did(rho,2,1).sel == 1) set %nickaw $me $+ `Away
  if ($did(rho,2,1).sel == 2) set %nickaw $me $+ `OQP
  if ($did(rho,2,1).sel == 3) set %nickaw $me $+ `Code
  if ($did(rho,2,1).sel == 4) set %nickaw $me $+ `Toshop
  if ($did(rho,2,1).sel == 5) set %nickaw $me $+ `Travail
  if ($did(rho,2,1).sel == 6) set %nickaw $me $+ `MiAM
  if ($did(rho,2,1).sel == 7) set %nickaw $me $+ `Play
  if ($did(rho,2,1).sel == 8) set %nickaw $me $+ `Ecole
  if ($did(rho,2,1).sel == 9) set %nickaw $me $+ `Film
  if ($did(rho,2,1).sel == 10) set %nickaw $me $+ `Courses
  if ($did(rho,2,1).sel == 11) set %nickaw $me $+ `Menage
  if ($did(rho,2,1).sel == 12) set %nickaw $me $+ `Douche
  if ($did(rho,2,1).sel == 13) set %nickaw $me $+ `Calin
  if ($did(rho,2,1).sel == 14) set %nickaw $me $+ `ZzZzZz
  set %origine $me
  set %time $time
  ame 14,1 est [0 Away 14] 14 à [0 %time 14]  14 Raison [0 %whyaw 14] | set %ctime $ctime
  tnick %nickaw
  /set %away on
}

on *:dialog:rho:sclick:6:{
  did -b rho 6
  did -e rho 5
  did -e rho 7
  did -e rho 2
  did -e rho 4
  ame 14,1 n'est plus [0 Away 14] 14 Parti à [00 %time 14] 14 Retour à [0 $time 14] 14 Temps D'absence [0 $duration($calc($ctime - %ctime)) 14] 14 La raison [0 %whyaw 14]
  tnick %origine
  dialog -m tute tute
  set %away off
}

On *:dialog:rho:edit:*:{
  if ( $did == 4 ) { set %whyaw $did(rho,4).text }
}

on *:open:?: {
  if ( %away == on ) { /msg $nick ABSENT:  4Je suis 10A14wa10Y 7 $nick , 10raison : 4[3 %whyaw 4] | set %ctime $ctime }
}

On *:text:*:#: {
  If ( %away == on ) && ($me isin $strip($1-)) { .notice $nick 4Oui $nick ? Tu m'appèles ?... Ben tu parles dans le vide car je suis 7Away }
}

alias aw { dialog -m rho rho }