Freaky1510

  set %color.name 9
  ; Colore di default:
  set %color.default $color(notice)

  set %doline 1
  set %color.skillname $remove(%color.skillname,) | set %color.rank $remove(%color.rank,) | set %color.level $remove(%color.level,) | set %color.exp $remove(%color.exp,) | set %color.name $remove(%color.name,) | set %color.default $remove(%color.default,)
}
alias -l striptags { var %x,%y = $regsub($1-,/(<[^>]+>)/g,$null,%x) | return %x }
ALIAS rs {
  if (!$1) { set %searchname $$?="Utente da ricercare?" }
  else { set %searchname $1- }
  set %searchname $replace(%searchname,$chr(32),$chr(43))
  inc %rsstatssockval 1
  sockopen $+(rsstats,%rsstatssockval) hiscore.runescape.com 80
}
on *:sockopen:rsstats* {
  .timertimeout $+ $sockname 1 10 timeout $sockname
  unset %line
  sockwrite -n $sockname GET /aff/runescape/hiscorepersonal.cgi?username= $+ %searchname HTTP/1.0
  sockwrite -n $sockname Host: hiscore.runescape.com $+ $crlf $+ $crlf
  setvariables
  echo %color.default -a Ricerca delle statistiche per $+ %color.name $replace($upper(%searchname),$chr(43),$chr(32)) $+ ...
}
on *:sockread:rsstats* {
  if ($sockerr) { echo %color.default -a Errore. $sockerr | halt }
  else {
    var %temptext | sockread %temptext
    if (does not currently appear isin %temptext) {
      echo %color.default -a  $+ %color.name $replace(%searchname,$chr(43),$chr(32)) non presente!
      .timertimeout $+ $sockname off
      sockclose $sockname
      halt
    }
    if (RuneScape isin %temptext) { halt }
    if (*class=c>* iswm %temptext) {
      if (%doline) {
        unset %doline
        echo %color.default -a      SKILL    |   RANK  | LEVEL | EXPERIENCE 
        echo %color.default -a --------------+---------+-------+------------
      }
      set %skillline %skillline $+(,%color.skillname, ,$str( ,$calc(12 - $len($striptags(%temptext)))),$striptags(%temptext), ,,$chr(124),,%color.rank))
    }
    if (<td align="right">*</td><td align="right"> iswm %temptext) { set %skillline %skillline $+($str( ,$calc(7 - $len($striptags(%temptext)))),$striptags(%temptext), ,,$chr(124),,%color.level) | set %line 1 | halt }
    if (%line == 1) && ($striptags(%temptext)) { unset %line | set %skillline %skillline $+($str( ,$calc(5 - $len($striptags(%temptext)))),$striptags(%temptext), ,,$chr(124),,%color.exp) }
    if (%temptext == </td><td align="right">) { set %line 2 }
    if (%line == 2) && ($striptags(%temptext)) { set %skillline %skillline $+($striptags(%temptext), ,) | unset %line | finishline }
  }
}
on *:sockclose:rsstats* { .timertimeout $+ $sockname off }
ALIAS -l finishline { echo %color.default -a %skillline | unset %line | unset %skillline }
alias -l timeout { echo %color.default -a The socket timed out. Please try again. | sockclose $1 }