Alice - künstliche Intelligenz

[TimerTim]

Hallo!

Ich habe gerade meine erste Consolen-Anwendung fertiggestellt.
Vielleicht war zufällig schon mal jemand von euch im HNF (Heinz Nixdorf-Museumsforum) in Paderborn, dem größten Computermuseum der Welt.
Dort gibt es das Programm "Alice - künstliche Intelligenz", und das habe ich nachprogrammiert.
Man kann sich bei diesem Programm mit Alice unterhalten.
Dieses Programm habe ich auch schon mit PureBasic programmiet, denn mit dieser Programmiersprache kann ich auch schon ein bisschen programmieren, aber viel weniger als mit Delphi.

[TurboMartin]

Wenn "Alice" etwas fragt, antwortet er immer mit "aha"
Vielleicht bringst du ihm auch das antworten bei, denn man kann ihn nichts fragen - zumindest gab es bei mir nie eine Antwort von ihr/m.
Sonst sehr gut
ach so: häufigste Frage war, ob ich Fußball mag

[fLaSh11]

Is noch nciht so ausgareift, oder?^^
(etwas komische fragen und antworten... vom thema ablenkend )

[Namenloser]

Erinnert mich irgendwie an den "Seelenklempner" aus "Delphi für Kids"
Naja, also Intelligenz ist wohl etwas zu viel versprochen...

[halinchen]

Code:

   >>sag mal was
  ich bin nicht sicher...
  >>nein nicht das
  nur die ruhe!
  >>ich bin die Ruhe selbst
  du bist die ruhe selbs? kommst du dabei mit vielen menschen in kontakt?
  >>

Ich find es lustig. Auch wenn man es nicht unbedingt "Intelligenz" nennen kann.

Vielleicht könnte er/sie noch auf Fragen antworten.

[TurboMartin]

Übrigens erinnerte mich der Theardname direkt an ein Programm, mit dem man auch online Chatten kann (siehe K&T).
Das hieß auch Alice

[Namenloser]

Lol, das ist auch lustig:

Zitat:

>>ich bin eine papaya :)
du bist eine papaya :? wie gefaellt dir deine arbeit als eine papaya :?

Fragt bitte nicht, wie ich darauf gekommen bin, das einzugeben :oops:

/edit: eine frage: wieso hängt das Programm an manche Fragen immer "an einem ort, den wir realitaet nennen" an?

[TimerTim]

Zitat von TurboMartin:

Wenn "Alice" etwas fragt, antwortet er immer mit "aha"
Vielleicht bringst du ihm auch das antworten bei, denn man kann ihn nichts fragen - zumindest gab es bei mir nie eine Antwort von ihr/m.
Sonst sehr gut
ach so: häufigste Frage war, ob ich Fußball mag

Alice antwortet nicht immer mit "aha":

Delphi-Quellcode:

  rnd := Random(9)+1;
  If rnd = 1 Then rndtxt := '  interessierst du dich fuer fussball?';
  If rnd = 2 Then rndtxt := '  wer ist dein liebster science fiction-autor?';
  If rnd = 3 Then rndtxt := '  glaubst du, das kuenstliche intelligenzen irgendwann einmal anwaelte ersetzen koennen?';
  If rnd = 4 Then rndtxt := '  wer ist dein idol?';
  If rnd = 5 Then rndtxt := '  wie alt bist du?';
  If rnd = 7 Then rndtxt := '  wie hast du von alice erfahren?';
  If rnd = 8 Then rndtxt := '  wo wohnst du?';
  If rnd = 9 Then rndtxt := '  bist du maennlich oder weiblich?';
  Writeln(rndtxt);
  rnd2 := Random(3)+1;
  If rnd = 2 Then rnd2 := 1;
  If rnd = 6 Then rnd2 := 1;
  If rnd = 8 Then rnd2 := 1;
  If rnd = 9 Then rnd2 := 1;
  If rnd2 = 3 Then Writeln('  an einem ort, den wir realitaet nennen.');

  
  If rnd = 1 Then Writeln('  aha.');
  If rnd = 2 Then Writeln('  wer ist das?');
  If rnd = 3 Then Writeln('  aha.');
  If rnd = 4 Then Writeln('  wer ist das?.');
  If rnd = 5 Then
  begin
  rnd2 := Random(3)+1;
  If rnd2 = 1 Then Writeln('  ich haette dich ein Jahr aelter geschaetzt.');
  If rnd2 = 2 Then Writeln('  ich haette dich ein Jahr juenger geschaetzt.');
  If rnd2 = 3 Then Writeln('  aha.');
  end;
  If rnd = 6 Then Writeln('  aha.');
  If rnd = 7 Then Writeln('  aha.');
  If rnd = 8 Then
  begin
  If (LeftStr(txt, 3) = 'in ') And (RightStr(txt, 1) = '.') Or (RightStr(txt, 1) = '!') Then Writeln('  erzaehle mir ein wenig     ueber',Copy(txt, 3, Length(txt) - 3),'.')
  Else
  Writeln('  aha.');
  end;
  If rnd = 9 Then If (txt = 'weiblich.') Or (txt = 'ich bin weiblich.') Then Writeln('  cool, ich auch. schoen, auch mal wieder eine frau zu treffen.')
  Else
  Writeln('  aha.');

Aber ich sollte vielleich wirklich ein paar mehr Antworten programmieren.

Alice gibt schon meistens eine Antwort (die Warscheinlichkeit ist 80%):

Delphi-Quellcode:

  rnd := Random(5)+1;
  If rnd = 5 Then
  begin
  //Fragen
  ...
  end;

Alice aus dem HNF ist auch nicht gerade schlauer (siehe angehängtes Bild).

Zitat von NamenLozer:

Lol, das ist auch lustig:

Zitat:

>>ich bin eine papaya
du bist eine papaya wie gefaellt dir deine arbeit als eine papaya

Fragt bitte nicht, wie ich darauf gekommen bin, das einzugeben

/edit: eine frage: wieso hängt das Programm an manche Fragen immer "an einem ort, den wir realitaet nennen" an?

Alice im HNF hängt manchmal auch an die Fragen diesen Satz an, und mein Programm wollte ich ungefähr genauso programmieren.

[GimbaR]

Sorry, wenn ich jezz folgende Frage stelle, aber hast du selber eine "KI" geschrieben und die Alice genannt oder basiert dein Programm auf dem AliceBot-Projekt

[Meflin]

Zitat von TimerTim:

Alice aus dem HNF ist auch nicht gerade schlauer (siehe angehängtes Bild).

Bei den ganzen !!!!!!1111einseinself muss man ja verrückt werden

Zitat von GimbaR:

Sorry, wenn ich jezz folgende Frage stelle, aber hast du selber eine KI geschrieben und die Alice genannt oder basiert dein Programm auf dem AliceBot-Projekt

Ich glaube es gibt keine echte KI schau dir den Code doch an...