heres a fast random slap socket

 menu nicklist {
  .SLAP!!:{
    if ($sock(slap)) sockclose slap
    sockopen slap www.seventhsanctum.com 80
    sockmark slap describe # slaps $$1 around a bit with a
  }
}
on *:sockopen:slap: {
  sockwrite -nt $sockname GET $+(/generate.php?Genname=,$gettok(magicitem|sftool|gadgetnamer,$r(1,3),124)) HTTP/1.1
  sockwrite -nt $sockname Host: $+(www.seventhsanctum.com,$str($crlf,2))
}
on *:sockread:slap: {
  var %slap | sockread %slap
  if ($regex(%slap,/\t{3}(.+)<BR>/)) { $sock(slap).mark $regml(1) | sockclose slap }
}