Code:

ON *:TEXT:*:#DJ-Serv:{
if $1 == .random {
  timer 1 1 sockclose random 
  timer 1 1 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>*</h1>* iswm %sockreader) {
      tokenize 32 %sockreader
      msg #dj-serv $remove($1-,<h1>,</h1>) 
      sockclose random
    }
  }
}



I've got it, it works, just maybe not as it should be, but it does.

Maybe any ideas to improve it? I'm a beginner

Squee whenever a squee squee's. Squee whenever a squee does not squee.