on *:TEXT:?name *:#:{
  set %name.username $2- 
  set %name.display $iif($left($1,1) == @,msg $chan,.notice $nick)
  sockopen namecheck create.runescape.com 80
}
on *:SOCKOPEN:namecheck:{
  sockwrite -nt $sockname GET $+(/lang/en/add/runescape/chooseusername.ws?username=,%name.username) HTTP/1.1
  sockwrite -nt $sockname Host: create.runescape.com
  sockwrite -nt $sockname $crlf
}

on *:SOCKREAD:namecheck:{
  if ($sockerr) {
    echo -a 08,01Socket Error
  }
  else {
    var %read
    while (1) {
      sockread -f %read
      if (!$sockbr) { break }
      echo -a rec %read
      if (*<td align="center">Sorry, that username is no longer available.</td>* iswm %read) {
        %name.display Name %username is not available
        unset %name.*
        halt
      }
      elseif (*<p>The username <span style="color: #FFBB22;">*</span> is currently available. To sign up to an account you must agree to our Terms and Conditions:</p>* iswm %read) {
        %name.display Name %username is available
        unset %name.*
        halt
      }
    }
  }
}