the script dont work so good for me..
it's errors out 4 times out of 5 trys.
maybe work on that

<~napa182> !mlia
<&Sick0> Life is pretty normal today.
<~napa182> !mlia
<&Sick0>

Best Today
<~napa182> !mlia
<&Sick0> Life is pretty normal today.
<~napa182> !mlia
<&Sick0> Today I discovered you can make sims 'play' in a bath tub. They act like a pirate. Best discovery of my life. MLIA
<~napa182> !mlia
<&Sick0> Best Today

you can do it like this as well

on $*:text:/^!mlia$/iS:#: {
  if (!$hget(mlia,c)) {
    if ($sock(mlia)) .sockclose mlia
    sockopen mlia mylifeisaverage.com 80
    sockmark mlia $r(1,3) $+(/,$r(2,1000)) msg #
  }
}
on *:sockopen:mlia: { 
  sockwrite -nt mlia GET $gettok($sock(mlia).mark,2,32) HTTP/1.1 
  sockwrite -nt mlia Host: $+($sock(mlia).addr,$str($crlf,2)) 
}
on *:sockread:mlia: {
  var %mlia | sockread %mlia
  if ($regex(%mlia,/(Today.+MLIA)/)) { 
    hinc -mu4 mlia c  
    if ($hget(mlia,c) = $gettok($sock(mlia).mark,1,32)) { 
      $gettok($sock(mlia).mark,3-,32) $regml(1)
      sockclose mlia
    }
  }
}