Someone

Alias Drawswitch {
  if ($hget(drawbut)) { hfree drawbut }
  drawrect -fr $1 $rgb(236,233,216) 1 1 219 400 30
  drawline -r $1 $rgb(255,255,255) 1 1 218 $window($1).w 218
  drawline -r $1 $rgb(172,168,153) 1 1 241 $window($1).w 241
  if ($sock(mezsock)) {
    set %sbut 3
    var %h 1
    while (%h <= $hget(mswitch,0).item) {
      drawbut $1 $rgb(206,206,195) $rgb(244,244,238) %sbut 223 $hget(mswitch,%h).item $rgb(0,0,0)
      drawline -r $1 $rgb(172,168,153) 1 $calc($gettok($hget(drawbut,$hget(drawbut,$hget(mswitch,%h).item).item).data,3,32) + 5) 222 $calc($gettok($hget(drawbut,$hget(drawbut,$hget(mswitch,%h).item).item).data,3,32) + 5) 239
      var %c 1
      while (%c <= $numtok($hget(mswitch,%h).data,32)) {
        drawbut $1 $rgb(206,206,195) $rgb(244,244,238) %sbut 223 $gettok($hget(mswitch,%h).data,%c,32) $rgb(0,0,0)
        inc %c
      }
      inc %h
    }
  }
  elseif (!$sock(mezsock)) {
    drawbut $1 $rgb(206,206,195) $rgb(244,244,238) 3 223 Disconnected $rgb(0,0,0)
    drawline -r $1 $rgb(172,168,153) 1 $calc($gettok($hget(drawbut,$hget(drawbut,disconnected).item).data,3,32) + 5) 222 $calc($gettok($hget(drawbut,$hget(drawbut,disconnected).item).data,3,32) + 5) 239
  }
  drawpic $1
}