Alias TableInfo {
clear
SendInfo <td colspan="8"><font class=FontConteudos><b><img src='/imagens/bandeiras/italia.gif' width=15 height=10 border=0> Itália: Serie B</b></font></td>
SendInfo <td width="70"><font class="FontConteudos">29-09-2008</font></td>
SendInfo <td width="40"><font class="FontConteudos">18:00</font></td>
SendInfo <td align="right"><font class="FontConteudosAzul">Frosinone</font></td>
SendInfo <font class="FontConteudos">- </font><br>
SendInfo <td align="left"><font class="FontConteudosAzul">Ancona</font></td>
SendInfo <td width="70"><font class="FontConteudos">29-09-2008</font></td>
SendInfo <td width="40"><font class="FontConteudos">20:00</font></td>
SendInfo <td align="right"><font class="FontConteudosAzul">Brescia</font></td>
SendInfo <font class="FontConteudos">- </font><br>
SendInfo <td align="left"><font class="FontConteudosAzul">Parma</font></td>
}
alias SendInfo {
if ( $regex( NovaLiga, $1-, /.+\<font class=FontConteudos\>.+\>(/?[^\<]+)\</g) == 1 ) {
unset %Futebol*
set %FutebolInfoRequest On
echo -s $regml( NovaLiga, 1) 4 New lig information
}
if ( %FutebolInfoRequest == On ) {
if ( $regex( TabelaInfo, $1-, /.+\<font class=.FontConteudos.+\>(/?[^\<]+)\</g) == 1 ) {
If ( $regex( DataJogo ,$regml( TabelaInfo, 1), (\d{2}-\d{2}-\d{4})) == 1 ) {
echo -s $regml( DataJogo, 1) 3 Game futeball date
}
ElseIf ( $regex( HoraJogo, $regml( TabelaInfo, 1), (\d{2}:\d{2})) == 1 ) {
echo -s $regml( HoraJogo, 1) 2 Game futeball time
}
ElseIf ( $regex( VsJogo, $regml( TabelaInfo, 1), ^(- )$) == 1 ) {
echo -s $replace( $regml( VsJogo, 1), $chr(45), VS) 13 This was a "- " and was substitute with the "VS"
}
ElseIf ( $regex( ResultadoJogo, $regml( TabelaInfo, 1), (\d* - \d*)) == 1 ) {
echo -s $regml( ResultadoJogo, 1) 9 Game futeball result
}
ElseIf ( $regex( TempoJogo, $regml( TabelaInfo, 1), ^\d*$) == 1 ) {
echo -s $regml( TempoJogo, 1) 5 Game futeball Time
}
ElseIf ( $regex( $+( NomeEquipa, $FutebolTeam( new)) ,$remove( $regml( TabelaInfo, 1), $chr(32)), /([A-Za-záàéèíìóòúù\.]+)/g) == 1 ) {
echo -s $regml( TabelaInfo, 1) 7 Game futeball $iif( $FutebolTeam == 1, firts, second) team name
if ( $FutebolTeam == 2 ) {
FutebolFinal
unset %FutebolEquipaConta
}
}
Else {
echo -s $regml( TabelaInfo, 1) 4 Something else
}
}
}
}
alias FutebolFinal {
echo -s $regml( DataJogo, 1) <-> $regml( HoraJogo, 1) <-> $regml( ResultadoJogo, 1) <-> $regml( TempoJogo, 1) <-> $regml( NomeEquipa1, 1) <-> $regml( VsJogo, 1) <-> $regml( NomeEquipa2, 1)
}
alias FutebolTeam {
if ( $1 == new ) {
inc %FutebolEquipaConta
}
return %FutebolEquipaConta
}