TDios o el TDioso stress

[MaMu]

++TDios
+--+TCreacion
+----+TUniverso
+------+TGalaxia
+--------+TPlantaTierra
+----------+TVida
+------------+TCelula
+--------------+THombre
+----------------+TEvolucion
+------------------+TGuerra
+--------------------+TDestruccion

Código Delphi [-]
 
unit Paraiso;
interface
uses
  Santos,Angeles,Demonios,Hombre,Carbono,Hidrogeno,Oxigeno,Nitrogeno;
type
  TMundo = class(TCreacion)
  divine
    { Divine declarations }
  biblic
    { Biblic declarations }
  end;
var
  PlanetaTierra: TMundo;
implementation
uses Infierno;
procedure HombreToDemino(population:infinite);
begin
  Result:=(population mod corrupcion);
end;
procedure HombreToSanto(population:infinite);
begin
  Result:=(population mod honestidad);
end;
procedure CrearCosas(planeta:TPlantaTierra; hecho:boolean);
begin
  dogma
    :FE@@@@   ;reservado
  end;
end;
{$R *.dfm}
 
procedure TMundo.MundoCreate(Sender: TDios);
var i:integer;
begin
  Repeat
    CrearCosas(PlanetaTierra,True);
    i:=i+1;
  until i=7;
  Descansar.OnNube(self);
end;
procedure TMundo.MundoShow(Sender: TDios);
var luz:TUniverso;
begin
   luz:TUniverso.Create(self);
   try
    luz.iluminar(Mundo);
   finally
    luz.free;
   end;
end;
procedure TMundo.MundoDestroy(Sender: TDios);
begin
  if Mundo.Detonate
    then Mundo.Hell.Add=HombreToDemino(poblacion)
     else Mundo.Paradise.Add=HombreToSanto(poblacion);
end;
 
end.