Mine

on $*:text:/^[!@]server */Si:#: { 
  if ($2 !isnum) { msg $chan 4 Please Enter a Real/Valid Server Number!  | return } 
  if ($2 == $null) { msg $chan 4 Please try entering an item first!  | return } 
  /set %target $iif($left($1-,1) == @,msg $chan,.notice $nick)
  /set %serv $2 
  /set %chan $chan 
  /set %nick $nick 
  if $sock(server) { sockclose server } 
  /sockopen server thexx.6te.net 80 
} 
on *:SOCKOPEN:server:{ 
  //sockwrite -nt $sockname GET /sparse.php HTTP/1.1 
  //sockwrite -nt $sockname Host: thexx.6te.net 
  //sockwrite -nt $sockname 
} 
on *:SOCKREAD:server:{ 
  if $sockerr { 
    %target Socket error: $sockerr $+ , while looking up %item 

    /unset %chan 
    /unset %nick 

  } 
  else { 
    /sockread %read 
    if (*World %serv * iswm %read) { 
      /var %x $len(%serv) 
      %target  12 World %serv $+(,:,) 4 $right(%read, - $+ $calc(6 + %x)) 
      /unset %chan | unset %read | unset %nick | unset %serv 
      /sockclose server 
      /* Made by TheXX (RAM) Http://thexx.Co.Nr | thexx@army.com 
      Server: Irc.SwiftIRC.net | User: XX/TheXX | Chan: #ram */ 

    } 
  } 
} 
alias -l htm { var %x,%y = $regsub($1-,/(<[^>]+>)/g,$null,%x) | return %x }