begin
If Self.EstasConAlguienAhoraMismo Then
begin
MiraPaOtroLao;
end
Else
If Chica.Horrorosa <> False Then
begin
Ignorar;
end
Else If Chica.Inteligente = True Then
begin
If Chica.BuenaGente = True Then
begin
If Chica.NoTeIgnora = True Then
begin
MeteEnLaListaDePosibles;
end
Else SoloAmiga;
end;
Else Ignorar;
end;
Else Ignorar;
end;