on me:*:quit: .timerrandom off
on me:*:part:#: .timerrandom off
on me:*:join:#: .timerrandom 0 1800 random
alias -l random {
sockclose random
sockopen random randommessages.com 80
}
on *:sockopen:random:{
sockwrite -n $sockname GET / HTTP/1.1
sockwrite -n $sockname Host: randommessages.com $+ $str($crlf ,2)
}
on *:sockread:random:{
if ($sockerr) { halt }
else {
var %sockreader
sockread %sockreader
if (<h1> isin %sockreader) {
msg #dj-serv $remove($v2,<h1>,</h1>)
sockclose random
}
}
}