alias /openmuck {
  sockopen FRConnect $1 $2
  /window -ek[0] +best @MUCKWindow /muck
  aline @MUCKWindow 9,1Remember to close your connection with /closemuck when you are finished.
}

on *:sockread:FRConnect:{
  :LINESTART
  sockread %words
  if (%words == $null) { goto LINEEND }
  :WORDLOOP
  if ($len(%words) >= 500) {
    if (%words != $chr(10) $+ $chr(13)) aline -p @MUCKWindow $left(%words,500)
    set %words $mid(%words,498)
    goto WORDLOOP
  }
  if (%words != $chr(10) $+ $chr(13)) aline -p @MUCKWindow %words
  goto LINESTART
  :LINEEND
}

on *:sockopen:FRConnect:{
  aline @MUCKWindow 4Connected! Waiting for reply...
}

alias /closemuck sockclose FRConnect
alias /muck sockwrite FRConnect $1- $+ $chr(10) $+ $chr(13)