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!
}
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.
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),",",’,')
sockclose pil
}
}
}
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),",")
sockclose HPlines
}
}
}