Harry Potter Pickup Lines

By MichaelA on Jun 21, 2010

This script i just threw together as a little something for my bot. Got most of the pickup lines from Facebook, but will add more when i can think of some :P

on *:TEXT:!HPlines:#: {
  set %HPlines $rand(1,24)
  if (%HPlines == 1) msg $chan Harry Potter pick up line: If you were a dementor, i would turn criminal just to get your kiss.
  if (%HPlines == 2) msg $chan Harry Potter pick up line: Being without you, is like being under the Cruciatus Curse.
  if (%HPlines == 3) msg $chan Harry Potter pick up line: I may not be Mad-Eye Moody, but i do have a mad eye for you.
  if (%HPlines == 4) msg $chan Harry Potter pick up line: Even if i lived in a cupboard under the stairs. i'd still make room for you.
  if (%HPlines == 5) msg $chan Harry Potter pick up line: We may not be in Professor Flitwick's class, but you're still charming.
  if (%HPlines == 6) msg $chan Harry Potter pick up line: You don't even have to say "Lumos Maxima" to turn me on!
  if (%HPlines == 7) msg $chan Harry Potter pick up line: The Sorting Hat has spoken and it says I belong with you.
  if (%HPlines == 8) msg $chan Harry Potter pick up line: If you were a quaffle and I was a chaser during a Quidditch match, I'd score with you.
  if (%HPlines == 9) msg $chan Harry Potter pick up line: Ooh baby, you taste so good. Bertie Bott is naming a bean after you.
  if (%HPlines == 10) msg $chan Harry Potter pick up line: You know, when I said, "Accio hottie," I didn't expect it to work!
  if (%HPlines == 11) msg $chan Harry Potter pick up line: I'm not an Animagus but sometimes I can be real animal.
  if (%HPlines == 12) msg $chan Harry Potter pick up line: Are you a dementor? Because you just took my breath away.
  if (%HPlines == 13) msg $chan Harry Potter pick up line: Are you using the Confundus charm or are you just naturally mind blowing?
  if (%HPlines == 6) msg $chan Harry Potter pick up line: You know, the Sorting Hat placed me in Gryffindor. I think it's because like Godric Gryffindor himself, I too have an impressive sword.
  if (%HPlines == 15) msg $chan Harry Potter pick up line: I'm just like Oliver Wood, baby... i'm a KEEPER.
  if (%HPlines == 16) msg $chan Harry Potter pick up line: Without you I feel like I'm in Azkaban and dementors are sucking away my soul.
  if (%HPlines == 17) msg $chan Harry Potter pick up line: One night with me and they'll be calling you MOANING Myrtle.
  if (%HPlines == 18) msg $chan Harry Potter pick up line: Did you survive Avada Kedavra? 'Cause you're drop dead gorgeous.
  if (%HPlines == 19) msg $chan Harry Potter pick up line: Have you been using the Petrificus Totalus spell? Because you've made me stiff.
  if (%HPlines == 20) msg $chan Harry Potter pick up line: Cho Chang? More like Cha-Ching! Cause I just hit the jackpot.
  if (%HPlines == 21) msg $chan Harry Potter pick up line: My name may not be Luna, but I sure know how to Lovegood!
  if (%HPlines == 22) msg $chan Harry Potter pick up line: Interested in making some magic together? My wand is at the ready
  if (%HPlines == 23) msg $chan Harry Potter pick up line: Is that a wand in your pocket, or are you just happy to see me?
  if (%HPlines == 24) msg $chan Harry Potter pick up line: I'd like to get my basilisk into your chamber of secrets!
}

Comments

Sign in to comment.
hxck   -  May 18, 2011

Person you can't trigger it yourself, it has to go into a bot client or be turned into an alias.

 Respond  
Person   -  May 18, 2011

I copied and pasted this to 'Remotes' yet i see no result :s

 Respond  
Jethro   -  Jun 21, 2010

Post your socket question in the form under mIRC scripting. You get more suggestions from other people, not just me. The benefit of asking questions in the open forum is that other folks who have the same or similar questions can get answers they've been trying to seek. :-) Not only are you helping yourself, you're also helping others.

 Respond  
MichaelA   -  Jun 21, 2010

thanks for the replies everyone ^_^ great to have feedback and learn new things :)

@Jethro_ may i please ask for your help on a script with sockets i'm trying to make?

 Respond  
Jethro   -  Jun 21, 2010

try my harry potter dm botlol Oh my.

 Respond  
Ghost-writer   -  Jun 21, 2010

I'd like to get my basilisk into your chamber of secrets!

This is sick ;) 10/10 from me, try my harry potter dm bot :P.

 Respond  
napa182   -  Jun 21, 2010

napa, when you have the host opened, you can use $sock(pil).addr, especially for a long address, to return the site address

I know i can ;x

It's shorter, ain't it? :P
lol not by much =P

 Respond  
Jethro   -  Jun 21, 2010

napa, when you have the host opened, you can use $sock(pil).addr, especially for a long address, to return the site address:

$+(www.pickuplinesgalore.com,$str($crlf,2))
$+($sock(pil).addr,$str($crlf,2))

It's shorter, ain't it? :P

 Respond  
napa182   -  Jun 21, 2010

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
    }
  }
}
 Respond  
Jethro   -  Jun 21, 2010

I knew napa would "socket up" something like this...lol

Yes, Michael, using a socket is so much better than having to enter all the pickup lines in your script remote. Why the hard work when you can pull the pickup lines from a website?

 Respond  
napa182   -  Jun 21, 2010

using a socket would be better
here is a fast mock up...

on $*:text:/^@HPlines$/iS:#: {
  if (!$hget(HP,C)) {
    if ($sock(HPlines)) sockclose HPlines
    sockopen HPlines www.pickuplinesgalore.com 80
    sockmark HPlines $r(1,28) msg # Harry Potter pick up line
  }
}
on *:sockopen:HPlines: {
  sockwrite -nt $sockname GET /harrypotter.html HTTP/1.1
  sockwrite -nt $sockname Host: $+(www.pickuplinesgalore.com,$str($crlf,2))
}
on *:sockread:HPlines: {
  var %HPlines | sockread %HPlines
  if ($regex(%HPlines,/<td><span class=.+>(.+)<\/span><\/td>/)) {
    hinc -mu5 HP C 1
    if ($hget(HP,C) = $gettok($sock(HPlines).mark,1,32)) {
      $gettok($sock(HPlines).mark,2-,32) $+($chr(35),$v1,:) $&
        $replace($regml(1),&quot;,")
      sockclose HPlines
    }
  }
}
 Respond  
Are you sure you want to unfollow this person?
Are you sure you want to delete this?
Click "Unsubscribe" to stop receiving notices pertaining to this post.
Click "Subscribe" to resume notices pertaining to this post.