Stuff

lias chuck {
  sockopen chuck. [ $+ [ $me ] ] 4q.cc 80
  set %target. [ $+ [ $me ] ] echo -ea
}
on $*:TEXT:/^[!@`~.]chuck\s?(norris)?$/Si:#:{
  sockopen chuck. [ $+ [ $nick ] ] 4q.cc 80
  set %target. [ $+ [ $nick ] ] $iif($left($1,1) == @ || $left($1,1) == ~,msg $chan,notice $nick)
}
on *:SOCKOPEN:chuck.*:{
  sockwrite -nt $sockname GET /index.php?pid=fact&person=chuck HTTP/1.0
  sockwrite -nt $sockname Host: 4q.cc
  sockwrite -nt $sockname
}
on *:SOCKREAD:chuck.*:{
  var %chuck. [ $+ [ $right($sockname,-6) ] ] | sockread -f %chuck. [ $+ [ $right($sockname,-6) ] ]
  if ($gettok($striphtml(%chuck. [ $+ [ $right($sockname,-6) ] ]),1-3,32) == And now a) {
    sockread -f %chuck. [ $+ [ $right($sockname,-6) ] ]
    %target. [ $+ [ $right($sockname,-6) ] ] $replace($striphtml(%chuck. [ $+ [ $right($sockname,-6) ] ]),",")
    unset %target. [ $+ [ $right($sockname,-6) ] ]
  }
}
alias striphtml {
  var %x,%y = $regsub($1-,/(<[^>]+>)/g,$null,%x)
  return %x 
}