MODERATEUR V1.B UPTADE

alias m { dialog -m mod mod }
dialog mod {
  title "                     -=- Modérateur V.A -=-"
  size -1 -1 175 136
  option dbu
  list 1, 6 25 74 93, size
  box "Liste des présents :", 2, 2 17 82 118
  button "Voicer", 3, 90 27 37 12, flat
  button "Dévoicer", 4, 131 27 37 12, flat
  button "Oper", 5, 90 44 37 12, flat
  button "Déopper", 6, 131 44 37 12, flat
  button "Déhalfop", 7, 131 61 37 12, flat
  button "Halfop", 8, 90 61 37 12, flat
  button "Kicker", 9, 90 78 37 12, flat
  button "Bannir", 10, 90 94 37 12, flat
  button "Kickbanner", 11, 131 78 37 12, flat
  button "Débannir", 12, 131 94 37 12, flat
  box "Commandes d'Opérateurs :", 13, 87 17 85 94
  text "Salon :", 16, 2 5 25 8, center
  edit "", 17, 27 3 52 10, read, center
  text "Total :", 18, 5 123 25 8, center
  edit "", 19, 32 122 46 10, read
  button "Plus d'infos", 20, 80 3 35 10
  button "Topic", 21, 115 3 20 10
  button "Fermer", 22, 90 115 78 18, ok
}
on *:DIALOG:mod:init:*:{
  did -ra $dname 17 $active
  did -ra $dname 19 $nick($active,0)
  yahoo $active
  dll mdx.dll SetMircVersion $version 
  dll mdx.dll MarkDialog $dname
  dll mdx.dll SetBorderStyle $dname 3,4,5,6,7,8,9, staticedge
  dll mdx.dll SetFont $dname 3,4,5,6,7,8,9,10,11,12,16,17,18,19,20,21,22, +a 15 300 comic sans ms
  dll mdx.dll SetDialog $dname bgcolor $rgb(000,000,000)
  dll mdx.dll SetColor $dname 
}
alias yahoo { if (!$1) { halt } | var %a = 0, %aa = $nick($1,0) | while (%aa > %a) { inc %a 1 | did -a mod 1 $nick($1,%a) } }
On *:DIALOG:mod:sclick:*:{
  if ($did == 3) { mode $active +v $did(mod,1).seltext }
  if ($did == 4) { mode $active -v $did(mod,1).seltext }
  if ($did == 5) { mode $active +o $did(mod,1).seltext }
  if ($did == 6) { mode $active -o $did(mod,1).seltext }
  if ($did == 7) { mode $active -h $did(mod,1).seltext }
  if ($did == 8) { mode $active +h $did(mod,1).seltext }
  if ($did == 9) { inc %nbrk 1 | kick $active $did(mod,1).seltext 4Requested By 12 $+ $me $+ . 4 $+ Nombre De Kick 12 $+ %nbrk }
  if ($did == 10) { mode $active +b $did(mod,1).seltext }
  if ($did == 11) { inc %nbrkb 1 | kick $active $did(mod,1).seltext 4Requested By 12 $+ $me $+ . 4 $+ Nombre De Kick 12 $+ %nbrkb | mode $active +b $did(mod,1).seltext }
  if ($did == 12) { set %nickunban $?="Quel nick?" | mode $active -b %nickunban }
  if ($did == 20) { dialog -m mod2 mod2 }
  if ($did == 21) { dialog -m topic topic }
}
dialog mod2 {
  title "   -=- Moderator V.A -=-"
  size -1 -1 145 80
  option dbu
  box "Mes Infos", 1, 1 1 140 75
  text "Pseudo:", 2, 5 10 30 7
  edit "",3, 27 09 35 10, read autohs disable
  text "Server:", 4, 65 10 20 7
  edit "", 5, 85 10 45 10, read autohs disable
  text "Uptime:", 6, 3 22 20 7
  edit "", 7, 22 21 52 10, read autohs disable
  text "Ip:", 8, 76 23 15 7
  edit "", 9, 86 21 50 10, disable
  text "Résolution:", 10, 5 33 40 7
  edit "", 11, 33 33 71 10, disable
  text "Votre Ram:", 12, 5 45 30 7
  edit "", 13, 33 45 78 10, disable
  text "Espace Disque:", 14, 5 60 60 7
  edit "", 15, 43 60 75 10, disable
}
On *:DIALOG:mod2:init:*:{
  did -ra $dname 3 $me
  did -ra $dname 5 $network
  did -ra $dname 7 $Duration($calc($ticks / 1000))
  did -ra $dname 9 $ip
  did -ra $dname 11 $dll($mircdirmoo.dll,gfxinfo,_) - $window(-1).w $+ x $+ $window(-1).h
  did -ra $dname 13 $dll($mircdirmoo.dll,meminfo,_)
  did -ra $dname 15 $round($calc(($disk(c:).size + $disk(d:).size + $disk(e:).size + $disk(f:).size) / 1024 / 1024 / 1024),2) Go au total - $round($calc(($disk(c:).free + $disk(d:).free + $disk(e:).free + $disk(f:).free) / 1024 / 1024 / 1024),2) $+ Go libres
  dll mdx.dll SetMircVersion $version 
  dll mdx.dll MarkDialog $dname
  dll mdx.dll SetBorderStyle $dname 3,4,5,6,7, staticedge
  dll mdx.dll SetFont $dname 2,3,4,5,6,7,8,9,10,11,12,13,14,15, +a 15 300 comic sans ms
  dll mdx.dll SetDialog $dname bgcolor $rgb(000,000,000)
  dll mdx.dll SetColor $dname 
}