routline portugal euro2004

while( !Fim(match(Grecia,Espanha)) )
Rezar(EMPATE);
ResultGreciaEspanha=match(Grecia,Espanha);
wait(19h45);

while( !Fim(match(Portugal,Russia)) )
Rezar(VITORIA);
Result=drand48(Portugal,Russia); // Roleta russa

switch(Result)
{
case VITORIA:
Somos(OsMaiores);
ScolariE(Bestial);
MadailE(Bestial);
if( !BandeiraNaVaranda )
PenduraBandeira(Varanda);
if( !BandeiraNoCarro )
PenduraBandeira(Carro);
if( !CachecolNoCao )
PenduraCachecol(Cao);
Celebrar();
break;

case EMPATE:
Apuramento=CalcularChancesApuramento(Result, ResultGreciaEspanha);
if( Apuramento<33 )
{
char **BodeExpiatorio;
ScolariE(Burro);
MadailE(Burro);
SeleccaoE(Burro);
Responsavel(BodeExpiatorio);
Criticar(BodeExpiatorio);
RemoverBandeiras(ALL);
RemoverCachecois(ALL);
}
else if( Apuramento<=66 )
{
ScolariE(Morcao);
MadailE(Morcao);
Seleccao(CambadaDeNabos);
Rezar(APURAMENTO);
Criticar(Scolari);
}
else
{
// Impossivel - em caso de empate, Apuramento e sempre <=66
printf("\nProbabilidade impossivel, soprar ao balao e repetir sse
<0,5g/l sangue");
}
break;

case DERROTA:
char **BodeExpiatorio;
Divorcio(Adeptos,Seleccao);
ScolariE(Burro+Morcao+Besta);
MadailE(Burro+Morcao+Besta);
SeleccaoE(Burro+Morcao+Besta+CambadaDeNabos+Peseteiros);
Responsavel(BodeExpiatorio);
Enforcar(BodeExpiatorio);
QueimarBandeiras(ALL);
QueimarCachecois(ALL);
DesligarTV();
IgnorarEuro();
Instalar(Depressao);
Instalar(Recessao);
break;
}