[[enecumene]]

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.