Unnamed

alias classificacao {
  Sockclose classificacao
  sockopen classificacao www.esportes.terra.com.br 80
}

on *:sockopen:classificacao:{
  if (!$sockerr) {
    sockwrite -tn $sockname GET /futebol/brasileiro2007/classificacao/0,,EI8817,00.html HTTP/1.1
    sockwrite -tn $sockname Host: esportes.terra.com.br
    sockwrite -tn $sockname $crlf
  }
}

on *:sockread:classificacao:{
  sockread 800 %io.data
  tokenize 13 %io.data
  var %x 1
  while ( %x <= $0 ) {
    if ( $remove( $eval( $+( $chr(36), %x), 3), $chr(9)) == <table width="100%" border="0" cellspacing="1" cellpadding="1"> ) {
      set %classifi.activar on    
    }
    if ( $remove( $eval( $+( $chr(36), %x), 3), $chr(9)) == </table> ) {
      set %classifi.activar off
    }
    if ( %classifi.activar == on ) {
      set %classificacao.line $remove( $eval( $+( $chr(36), %x), 3), $chr(9))
      ;echo -s %classificacao.line
      if ( $wildtok( %classificacao.line, *>*<*, 0, 34) > 0 ) {
        if ( td isin %classificacao.line ) {
          var %classificacao.espaco $wildtok( %classificacao.line, *>*<*, 0, 34)
          if ( %classificacao.espaco != 0 ) {
            set %classificacao.text %classificacao.text $remove( $wildtok( %classificacao.line, *>*<*, %classificacao.espaco, 34), /td, <, >)
          }
        }
      }
      if ( tr isin %classificacao.line ) && ( %classificacao.text != $null ) {
        centrar $replace(%classificacao.text,&ccedil;,ç,&atilde;,ã,&ordm;,º,&nbsp;,----, São Paulo, S.Paulo)
        unset %classificacao.text
      }
    }
    inc %x
  }
}

on *:sockclose:classificacao:{

}

alias centrar {
  if ($1 != Colocação) {
    var %x = $gettok($1-,0,32)
    var %y = 1
    while (%x >= %y) {
      var %z = $len($gettok($1-,2,32))
      if (%y == 2) {
        set %centrar.text $instok($1-,$str($chr(160),13),2,32) 
      }
      elseif (%y == 3) {
        set %centrar.text $instok(%centrar.text,$str($chr(160),$calc(20 - %z)),13,32) 
      }
      elseif (%y == 4) {
        set %centrar.text $instok(%centrar.text,$str($chr(160),$calc(20 - %z)),4,32) 
      }
      inc %y
    }
    echo -a %centrar.text 
  }
  ;else {
  ;var %x = $gettok($1-,0,32)
  ;var %y = 1
  ;var %centrar.text = $1-
  ;while (%x >= %y) {
  ;  set %centrar.text $instok(%centrar.text,$str($chr(160),13),%y,32) | inc %y
  ;}  
  ;echo -a $instok($1-,$chr(160),2,32)
  ;}
}