heres always a fun way ;x

alias slap {
  if ($1) { 
    if ($sock(slap)) sockclose slap
    sockopen slap www.seventhsanctum.com 80
    sockmark slap describe $active slaps $1 around a bit with a
  }
  else { echo 07 -a Please enter a nick }
}
on *:sockopen:slap: {
  sockwrite -n slap GET /generate.php?Genname=jokegadget HTTP/1.1
  sockwrite -n slap Host: $+($sock(slap).addr,$str($crlf,2))
}
on *:sockread:slap: {
  var %slap | sockread %slap
  if ($regex(%slap,/\t{3}(.+)<BR>/)) { 
    $sock(slap).mark $regml(1) 
    sockclose slap
  }
}