Mine

on *:text:!disable:#heart:{
  if ($nick isop #heart) || ($nick ishop #heart) { disable #icnscript }
  msg #heart Disabled.
}
on *:text:!enable:#heart:{
  if ($nick isop #heart) || ($nick ishop #heart) { enable #icnscript }
  msg #heart Enabled.
}
#icnscript on
on *:join:#heart:{
  if (* $+ $nick $+ * iswm %whitelist) { halt }
  else {  sockopen rsncheck. $+ $nick www.rscript.org 80 }
}
on *:sockopen:rsncheck.*:{
  set %rsnreal $+ $gettok($sockname,2,46) yes
  sockwrite -nt $sockname GET /statpage.php?user= $+ $gettok($sockname,2,46) HTTP/1.0 
  sockwrite -nt $sockname User-Agent: RuneScript Public (Crawler Bot; rscript.org;)
  sockwrite -nt $sockname Host: rscript.org $+ $crlf $+ $crlf 
}
on *:sockread:rsncheck.*:{
  .sockread % [ $+ [ $gettok($sockname,2,46) ] ]
  ;  :omfg
  ; echo @asdf % [ $+ [ $gettok($sockname,2,46) ] ]
  if (*does* iswm % [ $+ [ $gettok($sockname,2,46) ] ]) { set %rsnreal $+ $gettok($sockname,2,46) no }
  else { halt }
  ;  goto omfg
}

on *:sockclose:rsncheck.*:{
  if (%rsnreal [ $+ [ $gettok($sockname,2,46) ] ] == yes) { unset %rsnreal [ $+ [ $gettok($sockname,2,46) ] ]   }  
  elseif (%rsnreal [ $+ [ $gettok($sockname,2,46) ] ] == no) {  mode #heart +b $address($gettok($sockname,2,46),2) | kick #heart $gettok($sockname,2,46) RSN not found in highscores. Please use your RSN in #heart (2 minute ban) | timer $+ $gettok($sockname,2,46) 1 120 mode #heart -b $address($gettok($sockname,2,46),2) | unset %rsnreal [ $+ [ $gettok($sockname,2,46) ] ] }
  ;  unset %rsnreal [ $+ [ %gettok($sockname,2,46) ] ]
  ;  unset % [ $+ [ $gettok($sockname,2,46) ] ]  
  unset % [ $+ [ $gettok($sockname,2,46) ] ]  
}
#icnscript end
on *:text:!except*:#heart:{
  set %lol %whitelist 
  if ($nick isop #heart) { set %whitelist %whitelist $+ $2 }
  else { halt }
}