Someone

on *:SOCKREAD:tvrank*: { 
  if ($sockerr) { %tvclanlook [ $+ [ $right($sockname,6) ] ] error occured, please try again. | halt }
  else {
    var %sockreader
    sockread %sockreader
    if ($regex(%sockreader,/<p>Member or Clan not Found<\/p>/)) {
      tokenize 32 %sockreader 
      %tvclanlook [ $+ [ $right($sockname,6) ] ] %lookupname [ $+ [ $right($sockname,6) ] ] was not found on our clans runehead 
      unset %tvclanlook [ $+ [ $right($sockname,6) ] ]
      close $sockname  
      if (*style='color: $chr(35) $+ FFFFFF;'></a> $+ %lookupskill [ $+ [ $right($sockname,6) ] ] $+ </td>* iswm %sockreader) {
        sockread %sockreader | <td>*</td>  
        %tvclanlook [ $+ [ $right($sockname,6) ] ] %lookupname [ $+ [ $right($sockname,6) ] ] still to do this bit 
        unset %tvclanlook [ $+ [ $right($sockname,6) ] ]
      close $sockname }
    } 
  } 
}