Random Jokes Plus Facts

[chain]

This work below is yet another forum request that I've decided to submit as a part of my snippet collection. For those who find this snippet useful, It's for the bot client, and the trigger is either !facts, @facts, .facts or !jokes, @jokes, .jokes.

 

on $*:text:/^[!@.](fact|joke)s$/iS:#:{
  if (!%f) { 
    inc -u3 %f
    var %s = $+(rjf,$str($ticks,2),$site)
    if ($sock(%s)) sockclose $v1
    sockopen %s www.randomfunfacts.com 80
    sockmark %s .msg # $regml(1)
  }
}
on *:sockclose:rjf*:{
  tokenize 32 $sock($sockname).mark
  var %s = $+(rjf,$str($ticks,2),$site)
  if ($sock(%s)) sockclose $v1
  sockopen %s www.jokesclean.com 80
  sockmark %s $1-2
}
on *:sockopen:rjf*:{
  tokenize 32 $sock($sockname).mark
  if ($sockerr) {
    $1-2 Error: Connection Issue...
    sockclose $sockname
  }
  else {
    if ($3 == fact) {
      var %rjf = sockwrite -nt $sockname
      %rjf GET / HTTP/1.1
      %rjf Connection: close
      %rjf Host: $+($sock($sockname).addr,$str($crlf,2))
    }
    else {
      var %rjf = sockwrite -nt $sockname
      %rjf GET /OneLiner/Random/ HTTP/1.0
      %rjf Host: $+($sock($sockname).addr,$str($crlf,2))
    }
  }
}
on *:sockread:rjf*:{
  tokenize 32 $sock($sockname).mark
  if ($sockerr) {
    $1-2 Error: Issues in Reading...
    sockclose $sockname
    halt
  }
  goto $iif($3 == fact,fact,joke)
  :fact
  sockread &rjf
  var %info = $regsubex($bvar(&rjf,1-).text,/<[^>]*>|\t$&
    $+ RLOpenInNewWindow|"1";|var RLRepeatKeywords/g,$chr(32))
  if ($gettok($replace(%info,&nbsp;,$chr(94)),2,94)) {
    $1-2 $remove($gettok($v1,11-,32),24c6)
    sockclose $sockname | halt
    :joke
    var %jokes
    sockread %jokes
    if ($regex(%jokes,/(.*)<\/font><\/p>/)) {
      $sock($sockname).mark $replace($gettok($regml(1),3-,62),&nbsp;,$chr(32))
      sockclose $sockname
    }
    halt
  }
}