on $*:text:/^@riddle$/iS:#: {
  if (!$timer(riddle)) {
    if ($sock(riddle)) sockclose riddle
    sockopen riddle www.randomriddles.com 80
    sockmark riddle msg # 09
  }
}
on *:sockopen:riddle: {
  sockwrite -nt $sockname GET / HTTP/1.1
  sockwrite -nt $sockname Host: $+($sock(riddle).addr,$str($crlf,2))
}
on *:sockread:riddle: {
  var %riddle | sockread %riddle
  if ($regex(%riddle,/<i>(.+)<a.+alert\50(.+)\51.+<\/i>/)) {
    $sock(riddle).mark $regml(1) [04Solution in 10 seconds09]
    .timerriddle 1 10 $sock(riddle).mark [04Solution09] $regml(2)
    sockclose riddle
  }
}

on $*:text:/^@(p|g)$/iS:#: {
  if ($sock(pg)) sockclose pg
  sockopen pg gangstaname.com 80
  sockmark pg $+(/quotes/,$iif($regml(1) = p,pirate,gangsta)) msg #
}
on *:sockopen:pg: {
  sockwrite -nt $sockname GET $gettok($sock(pg).mark,1,32) HTTP/1.1
  sockwrite -nt $sockname Host: $+($sock(pg).addr,$str($crlf,2))
}
on *:sockread:pg: {
  var %pg | sockread %pg
  if ($regex(%pg,/<p>Your new (.+):<\/p><h2>(.+)<\/h2>/)) {
    $gettok($sock(pg).mark,2-,32) $+([04,$regml(1),]) $replace($regml(2),&mdash;,-)
    sockclose pg
  }
}