Jethro commented on a Page, Boring, Senseless Random Messages  -  Jul 08, 2012

My mistake. I forgot to edit the variables. Here is it:

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!
  }
}
 Respond  
Are you sure you want to unfollow this person?
Are you sure you want to delete this?
Click "Unsubscribe" to stop receiving notices pertaining to this post.
Click "Subscribe" to resume notices pertaining to this post.