lol yeah
here is one that i made to pull diff kinds of pick up lines.

<~napa182> @ppl
<&Sick0> Pokemon Pick-up Lines! #40: I just want to stick it in your wooper.

<~napa182> @hpl
<&Sick0> Harry Potter Pick-up Lines! #4: I know we're not in Professor Flitwick's class, but you still are charming.

<~napa182> @cpl
<&Sick0> Computer Geek Pick-up Lines! #16: Isn't your e-mail address beautifulgirl@mydreams.com?

<~napa182> @rpl
<&Sick0> Crude, Suggestive Pick-up Lines! (18+) #23: Your breasts remind me of Mount Rushmore....my face should be among them.

<~napa182> @dpl
<&Sick0> Dog Pick-up Lines! #4: Whoa! Look at THOSE puppies!!

<~napa182> @bpl
<&Sick0> Biology and Chemistry Pick-up Lines! #15: If I were a neurotransmitter, I would be dopamine so I could activate your reward pathway.

<~napa182> @upl
<&Sick0> Model United Nations (U.N.) Pick-up Lines! #14: Can I put missiles in your country?

<~napa182> @mpl
<&Sick0> Medieval, Middle Ages Pick-up Lines! #8: If I were a horse, I'd rather you mounted me without the saddle.

<~napa182> @npl
<&Sick0> Pick-up Lines for Math Geeks and Nerds! #9: Since distance equals velocity times time, let's let velocity and time approach infinity, because I want to go all the way with you.

<~napa182> @spl
<&Sick0> SAT Preparation Pick-up Lines! #15: I commiserate with all the other girls in the room because they have to compete with someone as beautiful as you!

on $*:text:/^@([snpdbumchr])pl$/iS:#: {
  if (!$hget(pil,c)) {
    if ($sock(pil)) sockclose pil
    sockopen pil www.pickuplinesgalore.com 80
    sockmark pil $iif($regml(1) = r,crude $r(1,176),$&
      $iif($regml(1) = c,computer $r(1,35),$&
      $iif($regml(1) = h,harrypotter $r(1,28),$&
      $iif($regml(1) = m,medieval $r(1,22),$&
      $iif($regml(1) = u,modelun $r(1,29),$&
      $iif($regml(1) = b,biochem $r(1,46),$&
      $iif($regml(1) = d,dog $r(1,13),$&
      $iif($regml(1) = p,pokemon $r(1,124),$&
      $iif($regml(1) = s,satprep $r(1,25),$&
      $iif($regml(1) = n,math $r(1,38))))))))))) msg #
  }
}
on *:sockopen:pil: {
  sockwrite -nt $sockname GET $+(/,$gettok($sock(pil).mark,1,32),.html) HTTP/1.1
  sockwrite -nt $sockname Host: $+(www.pickuplinesgalore.com,$str($crlf,2))
}
on *:sockread:pil: {
  var %pil | sockread %pil
  if ($regex(%pil,/<h1>(.+?)(<\/h1>|<br>)/)) { hadd -mu5 pil s $regml(1) }
  if ($regex(%pil,/<td><span class=.+>(.+)<\/span><\/td>/)) {
    hinc -mu5 pil c 1
    if ($hget(pil,c) = $gettok($sock(pil).mark,2,32)) {
      $gettok($sock(pil).mark,3-,32) $hget(pil,s) $+($chr(35),$v1,:) $&
        $replace($regml(1),&quot;,",&rsquo;,')
      sockclose pil
    }
  }
}