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),&quot;,") | sockclose pickup } 
}