STAT D'UN CANAL , LOL

--------------------------------------------------------------------------------------
********************************** by abdoulax ***************************************
--------------------------------------------------------------------------------------

menu menubar,nicklist {
  stat:/statcanal
}

dialog statcanal {
  title "stat"
  size -1 -1 106 64
  option dbu
  button "fermer" ,1, 82 46 20 10 , ok
  link "by abdoulax" , 2, 4 56 30 10
  text "nombre op :" , 3, 4 4 50 10
  text " nombre voice :" , 4 , 4 18 50 10
  text "nombre normal :" , 5, 4 32 50 10
  text "nombre total :" , 6, 4 46 50 10
  edit "" ,7, 58 4 20 10,read,center
  edit "" ,8, 58 18 20 10,read,center
  edit "" ,9, 58 32 20 10,read,center
  edit "" ,10, 58 46 20 10,read,center
  edit "" ,11, 82 4 20 10,read,center
  edit "" ,12, 82 18 20 10,read,center
  edit "" ,13, 82 32 20 10,read,center
}
on *:dialog:statcanal:init:0:{
  did -a statcanal 10 $nick(%statchan,0,a)
  did -a statcanal 7 $nick(%statchan,0,o)
  did -a statcanal 8 $nick(%statchan,0,v,o)
  did -a statcanal 9 $nick(%statchan,0,r,ohv)
  did -a statcanal 11 $calc(100 * $nick(%statchan,0,o) / $nick(%statchan,0,a) ) %
  did -a statcanal 12 $calc(100 * $nick(%statchan,0,v,o) / $nick(%statchan,0,a) ) %
  did -a statcanal 13 $calc(100 * $nick(%statchan,0,r,ohv) / $nick(%statchan,0,a) ) %
}
alias statchan {
  set %statchan $chan
  dialog -dm statcanal statcanal
}