Another one of these sites: http://www.givesmehope.com/
"Like FMyLife, but for optimists"

triggor is !gmh :>

on *:TEXT:!gmh:#: {
  sockopen givesmehope www.givesmehope.com 80
  set %givesmehopechan $chan
  set %givesmehopecondition class="fmllink">
} 

on *:sockopen:givesmehope: {
  sockwrite -n $sockname GET /random HTTP/2.0
  sockwrite -n $sockname Host: www.givesmehope.com
  sockwrite -n $sockname Connection: close
  sockwrite -n $sockname $crtlf
} 

on *:sockread:givesmehope: {
  sockread %givesmehopepage
  if (%givesmehopecondition isin %givesmehopepage) {
    set %givesmehopequote $remove($nohtml(%givesmehopepage),        )
} }

on *:sockclose:givesmehope: {
  msg %givesmehopechan 14[ 4Gives Me Hope 14] %givesmehopequote
}

alias nohtml {
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;)
  return %x
}