Someone

on *:SOCKREAD:sebay:{
  if (!$hget($sockname,done)) {
    while ($sock($sockname).rq) {
      var %sebay
      sockread %sebay
      if (!%sebay) {
        hadd -m $sockname done Yar!
        break
      }
    }
  }
  while ($sock($sockname).rq) {
    sockread &sebay
    bwrite $qt($nopath($hget(epic,pic))) -1 -1 &sebay
  }
}