Cita:
Empezado por Delphius
Pues es muy fácil, cuando sientes que toda tu vida es un simple REPEAT UNTIL que tiene una falla de diseño, quedandose en un ciclo infinito. Y repites dentro de este ciclo, una y otra vez combinaciones de IFs y CASEs, y alguna que otra sentencia de asignación.
Código Delphi [-]repeat Hora := GetHora(Now); CASE Hora of 0: if Delphius.Despierto
then Delphius.AbrirMessenger
else Delphius.Despertar
...
end;
if Delphius.OlerMal
then Delphius.Ducharse
...
until ConseguirVida = TRUE
Saludos,
|
Jajaja, esa estuvo buena, no sé cómo se te ocurren esas cosas.