Untitled

on *:TEXT:!spelers*:#:{ if ($2 == $null) { notice $nick van welke wereld wil je de spelers checken?
  halt }
  if ($2 < 1) || ($2 == 49) || ($2 == 60) || ($2 == 122) || ($2 == 123) || ($2 == 139) || ($2 == 140) || ($2 > 144) { notice $nick ongeldige wereld, ik doe ook geen duitsen werelden 
  halt }
  set %world $2
  sockclose wcheck
  sockopen wcheck http://www.runescape.com 80
} 
on *:sockopen:wcheck:{   
  Sockwrite -nt $sockname GET /detail.ws HTTP/1.1
  sockwrite -nt $sockname Host: www.runescape.com
  sockwrite -nt $sockname $crlf
}
on *:sockread:wcheck:{ 
  if ($sockerr) { 
    notice $me a sock err
    sockclose $sockname
    halt
  }
  else {
    var %wcheck
    sockread %wcheck
    tokenize 32 $htmlfree(%wcheck)
    if (World %world isin %wcheck) { notice $nick $1- }
    else { notice $nick wereld niet gevonden 
    halt }
  }
}on *:TEXT:!spelers*:#:{ if ($2 == $null) { notice $nick van welke wereld wil je de spelers checken?
  halt }
  if ($2 < 1) || ($2 == 49) || ($2 == 60) || ($2 == 122) || ($2 == 123) || ($2 == 139) || ($2 == 140) || ($2 > 144) { notice $nick ongeldige wereld, ik doe ook geen duitsen werelden 
  halt }
  set %world $2
  sockclose wcheck
  sockopen wcheck http://www.runescape.com 80
} 
on *:sockopen:wcheck:{   
  Sockwrite -nt $sockname GET /detail.ws HTTP/1.1
  sockwrite -nt $sockname Host: www.runescape.com
  sockwrite -nt $sockname $crlf
}
on *:sockread:wcheck:{ 
  if ($sockerr) { 
    notice $me a sock err
    sockclose $sockname
    halt
  }
  else {
    var %wcheck
    sockread %wcheck
    tokenize 32 $htmlfree(%wcheck)
    if (World %world isin %wcheck) { notice $nick $1- }
    else { notice $nick wereld niet gevonden 
    halt }
  }
}