on $*:TEXT:/^[.!@](geupdate|gu)$/Si:*: {
  if ($me == [Elit3-Bot]) {
    var %gu $+(gu.,$right($ticks,6))
    hadd -m %gu msg $iif($left($1,1) == @,msg $chan,notice $nick)
    sockopen %gu rscript.org 80
  }
}
  on *:SOCKOPEN:Gu.*: {
    sockwrite -nt $sockname GET /lookup.php?type=geupdate HTTP/1.1
    sockwrite -nt $sockname Host: rscript.org
    sockwrite -nt $sockname $crlf
  }
  on *:sockread:gu.*: {
    var %read
    sockread %read
    tokenize 32 %read
    if (updatetime:* iswm %read) {
    hadd $sockname last $duration($calc($ctime - $2 )) }
    if (UPDATELENGTH:* iswm %read) {
      hadd $sockname lastupdate $duration($2)
    }
    if (NEXTWILLOCCURBEFORE:* iswm %read) {
      hadd $sockname next $duration($2)
      $hget($sockname,msg) *** [ 7GU ] 5Last update detected: $+ 7 $hget($sockname,last) ago. $chr(124) 5It will update within: $+ 7 $hget($sockname,next) $chr(124) 5The last update took: $+ 7 $hget($sockname,lastupdate)
      hfree $sockname
      sockclose $sockname
    }
  }