alias image {
  set %d $1 $2
  sockopen image $gettok(%d,1,32) 80
}
on *:SOCKOPEN:image:{
  sockwrite -nt $sockname GET $gettok(%d,2,32) HTTP/1.1
  sockwrite -nt $sockname Host: $gettok(%d,1,32)
  sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:image:{
  inc %c
  if ($sockerr) halt
  if ($exists(pngs. $+ $right(%d,3))) {
    sockread &tpng
    bwrite pngs. $+ $right(%d,3)) -1 -1 &tpng
  }
  else {
    sockread %tpng
    if ($regex(%tpng,/(‰png|BM6)/)) {
      echo -a d %tpng
      bwrite pngs. $+ $right(%d,3) -1 -1 %tpng $+ $iif(‰png* iswm $regml(1),$crlf)
    }
  }
}
on *:SOCKCLOSE:image:{
  window -Cpkd0 @Image 0 0 $calc($pic(pngs. $+ $right(%d,3)).width + 10) $calc($pic(pngs. $+ $right(%d,3)).height + 35)
  drawpic @Image 0 0 pngs. $+ $right(%d,3)
  ;.timer 1 1 .remove pngs. $+ $right(%d,3)
}