Boring, Senseless Random Messages

[chain]

This script will send a boring, random message to the active channel when the irc server pings you. (You must have your client looking at the active channel window) It's useful when your nickname idles in a quiet channel, where activity is scarce and that you're away from keyboard every so often.

Below are some random ones emitted when you get pinged by the server:

I'm in Illinois hello hello! Is there evrybody some there see ya Hola desde España Holy Sh*t!! I feel like such a spy...if your really live...grab your head.. Are you workin' hard or hardly workin'? CATS MEOW MEOW MEOW**Usage:** right-click on your nick list or channel to toggle the script on and off.

 

on me:*:part:#:{
  if (%random) {
    $+(.timer,$network) off 
    set -e %randommsg 1
  }
}
on *:quit:{
  if ($nick == $me) && (%random) {
    $+(.timer,$network) off
    set -e %randommsg 1
  }
}
on *:disconnect:{
  if (%random) $+(.timer,$network) off 
  set -e %randommsg 1
}
on me:*:join:#:{
  if (%randommsg) {
    notice $me Random Message has been toggled off. $&
      Right-click on the nicklist or channel to toggle it on. 
    unset %random*
  }
}
on *:kick:#:{
  if ($knick == $me) && (%random) $+(.timer,$network) off
  set -e %randommsg 1
}
on *:sockread:rm:{
  var %rm 
  sockread %rm 
  if ($regex(%rm,/<h1>(.*)<\/h1>/)) { 
    [ [ $sock(rm).mark ] ] 
    sockclose rm 
  }
}
alias -l randommsg {
  if ($sock(rm)) sockclose $v1 
  sockopen rm www.randommessages.com 80
  sockmark rm amsg $!regml(1)
}
on *:sockopen:rm:{ 
  tokenize 94 $left($str(sockwrite -nt rm^,2),-1) 
  var %- 1, %` GET / HTTP/1.1^Host: $!+($sock(rm).addr,$str($crlf,2))
  while $gettok(%`,%-,94) { 
    [ [ $+($,%-,$chr(32),$v1) ] ] 
    inc %- 
  } 
}
menu channel,nicklist {
  Random Message
  .ON {
    if (!%random) {
      set -e %random $$?"Input the trigger time in seconds:"
      $+(.timer,$network) 0 %random randommsg
      echo 2 # * Time Interval in Seconds: $+($chr(2),%random)
      if (%randommsg) unset $v1
    }
    else echo 4 # * Random Message is Already Switched On!
  }
  .OFF { 
    if (%random) {
      $+(.timer,$network) off 
      echo 2 * Random Message Has Been Turned Off!
      unset %random*
    }
    else echo 4 # * Random Message is Already Switched Off!
  }
}