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,