By `Dean on Feb 07, 2010Ok, well I made this snippet from a base of a quote script. :)
You can do .addpline .delpline # .searchpline <text/#> .pline .lastpline
You need to create pickup.txt before using, this is my first published snippet, so thanks if you use it! Rate/hate ! :P
;;made by `Dean;;
You can find me here
server: godirc.com:6667
Thanks, if any problems encountered, please show, I will be happy to help.
Add your own pickup lines! Hehe!
pickup.txt:
You ain't the HOTTEST guy here tonight, but beauty is only a light-switch away!
So ya wanta put your pickle in my juicy jar!!!
Is your dad a terrorist? Cuz you da bomb!
Lets play Pearl Harber, I lay down and you blow me to heaven
Is that dress felt ? Would you like it to be.
What's a big girl like you doing in a small town like this.
Lets play house, you be the screandoor and i'll bang you all night long.
Sure its a needle but it moves like a sewing machine
You wanna come over to my house and play battleship. I can show you my destroyer.
Will you play army men with me.. so I can blow the hell out of you !
Your daddy must have been a baker, 'cause you've got a nice set of buns.
Is it cold in here, or are you just happy to see me.
Do you sleep on your stomach? No. Can I?
Wow! Are those real?
There must be a keg in your pants, cuz I want to tap that ass.
I want to melt in your mouth, not in your hand.
Excuse me, miss, do you give head to strangers? No. Well, then, allow me to introduce myself.
True, there are a lot of fish in the sea.
Why do I have a pierced tongue? You'll soon find out.
Hey baby, will you be my love buffet so I can lay you on the table and take what I want?
How about you sit on my lap and we'll see what pops up?
I'd like to kiss you passionately on the lips, then move up to your belly button.
You must work at Subway, 'cause you just gave me a footlong
I've lost my teddy bear, can I sleep with you?
Grab your coat love, your pulled ;)
Here's a quarter...Call your roommate and tell her you won't be coming home tonight!, 14Added by Dean I'll cook you dinner if you cook me breakfast!, 14Added byDean
Roses are daft, Violets are silly, Grease up those flaps, 'Cause here comes my willy., 14Added by `Dean
on *:LOAD: { set %pickup.list }
on *:TEXT:*:#: {
if ($1 == .pline) {
if ($2) {
if ($2 isnum) {
if ($read(pickup.txt,$2) != $null) { msg $chan (2Pickup lines1) 14» $chr(35) $+ $2 $+ : $read(pickup.txt,$2) }
else { msg # (2Pickup lines1) 14» 2Line doesn't exist }
}
else { msg # (2Pickup lines1) 14» 2Please provide a number }
}
else {
set %lines $rand(1,$lines(pickup.txt))
msg $chan (2Pickup lines1) 14» $chr(35) $+ %lines $+ : $read(pickup.txt,%lines)
}
}
if ($1 == .addpline) {
if ($address($nick,1) isin %pickup.ban) { msg # You are banned from adding pickup lines! }
else {
if ($2) {
if ($chr(36) isin $2-) { msg # Invalid Characters! }
else {
write pickup.txt $2- $+ , 14Added by $nick
msg # (2Pickup lines1) 14» 2 Pickup line Added!
}
}
}
}
if ($1 == .delpline) {
if ($nick isin %pickup.list) {
if ($2) {
if ($read(pickup.txt,$2) != $null) {
write -dl $2 pickup.txt
msg # (2Pickup lines1) 14» 2Line deleted
}
else { msg # (2Pickup lines1) 14» 2Line doesn't exist }
}
}
}
if ($1 == .searchpline) {
if ($2) {
if ($read(pickup.txt,w,* $+ $2 $+ *) != $null) {
msg # (2Pickup lines1) 14» $read(pickup.txt,w,* $+ $2 $+ *)
}
else { msg # (2Pickup lines1) 14» 2No results found }
}
}
if ($1 == .lastpline) {
set %lines $lines(pickup.txt)
msg # Pickup Line $chr(35) $+ %lines $+ : $read(pickup.txt,%lines)
}
}
i made 2 sockets along time ago that do pickup lines one is just a random pickup line the other does suggestive pickup lines
<~napa182> @spickup
<&Sick0> [Suggestive Pickup Lines] I'm going outside to make out... care to join me?<~napa182> @pickup
<&Sick0> [Random Pick Up Line] I miss my teddy bear. Would you sleep with me?
here they are if anyone wants them
on $*:text:/^@spickup$/iS:#: {
if ($sock(spickup) || $hget(spick)) { sockclose spickup | .hfree spick }
sockopen spickup www.gotlines.com 80
sockmark spickup $r(1,67) # $+([,Suggestive Pickup Lines,])
}
on *:load: {
echo 12 -a You Have Just Loaded Napa182's Suggestive Pickup Lines
echo 12 -a A Script0rs Inc. Production
echo -a 14,1(14,1¯15,1¯0,1¯0,1º $+($chr(171),$chr(164),$chr(88),$chr(167),$chr(199),$chr(174), $&
$chr(238),$chr(254),$chr(116),$chr(48),$chr(174),$chr(167),$chr(88),$chr(164),$chr(187)) º0,1¯15,1¯14,1¯) $+ $chr(153)
}
on *:sockopen:spickup: {
sockwrite -nt $sockname GET /lines/suggestive.php HTTP/1.1
sockwrite -nt $sockname Host: $+(www.gotlines.com,$str($crlf,2))
}
on *:sockread:spickup: {
var %spickup | sockread %spickup
if ($regex(%spickup,/\t{3}<TD><a href='/line/.+>(.+)<\/a><\/TD>/)) { .hinc -m spick up 1 | sockmark spickup $gettok($sock(spickup).mark,1-5,32) $regml(1) }
if ($hget(spick,up) == $gettok($sock(spickup).mark,1,32)) { msg $gettok($sock(spickup).mark,2-,32) | .hfree spick | sockclose spickup }
}
on $*:text:/^@pickup$/iS:#: {
if ($sock(pickup)) sockclose pickup
sockopen pickup www.pickuplinegen.com 80
sockmark pickup msg # $+([,Random Pick Up Line,])
}
on *:load: {
echo 12 -a You Have Just Loaded Napa182's Random Pickup Lines
echo 12 -a A Script0rs Inc. Production
echo -a 14,1(14,1¯15,1¯0,1¯0,1º $+($chr(171),$chr(164),$chr(88),$chr(167),$chr(199),$chr(174), $&
$chr(238),$chr(254),$chr(116),$chr(48),$chr(174),$chr(167),$chr(88),$chr(164),$chr(187)) º0,1¯15,1¯14,1¯) $+ $chr(153)
}
on *:sockopen:pickup: {
sockwrite -nt $sockname GET / HTTP/1.1
sockwrite -nt $sockname Host: $+(www.pickuplinegen.com,$str($crlf,2))
}
on *:sockread:pickup: {
var %pickup | sockread %pickup
if ($regex(%pickup,/<h2>(.+)<\/h2>/)) { $sock(pickup).mark $replace($regml(1),",") | sockclose pickup }
}
