Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Text-Adventures mit VB
Autor: DerMichael
Datum: 06.05.06 11:55
Servus Ich hab folgendes Problem. Ich würde gerne ein kleines Textadventure mit VB schreiben, aber ich scheitere schon am ersten Gespräch mit einer Person. Das ganze soll so funktionieren: Es gibt ein Label in dem der Ort steht an dem man ist. Ein Label für die Personen welche an dem Ort sind, ein Label für die Orte an die man von seinem Standpunkt aus gelangen kann, eins für Gespräche und eines für Gesprächsoptionen. Dann gibt es noch ein Feld für die Texteingabe (Man gibt also Ort, Person oder Gesprächsoption ein und das Programm soll dementsprechend reagieren) Das ganze sieht dann (zwar ein wenig trist, aber egal) so aus (Ich hab mal das Ultima-Universum für mein Beispiel missbraucht ;) ): http://img226.imageshack.us/img226/3384/uploadausgang2ol.jpg Ich hab mal folgenden Code eingegeben.... Private Sub Texteingabe_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Texteingabe.KeyPress Dim KeyAscii As Short = Asc(e.KeyChar) If KeyAscii = 13 Then If Texteingabe.Text = "Bürger" Then Gespräch.Text = "Bürger: Grüße mein Freund, wie kann ich euch helfen" Optionen.Text = "- Name - Beruf - Auf Bald -" Texteingabe.Text = "" Select Case Bürger Case Texteingabe.Text = "Name" Gespräch.Text = "Bürger: Mein Name ist Sowieso. Immer zu Diensten." Texteingabe.Text = "" Case Texteingabe.Text = "Beruf" Gespräch.Text = "Bürger: Ich bin der örtliche Nachtwächter" Texteingabe.Text = "" Case Texteingabe.Text = "Auf Bald" Gespräch.Text = "Bürger: Auf Bald mein Freund!" Texteingabe.Text = "" Optionen.Text = "" End Select End If If Texteingabe.Text = "Schmiede" Then Ortsangabe.Text = "Britain - Schmiede" Gespräch.Text = "Ihr seid nun in der Schmiede." Personen.Text = "- Schmied" Orte.Text = "- Straßen von Britain" End If End If End Sub Das Problem ist nun, wenn ich in der Texteingabe "Bürger" eingebe, steht zwar im Gesprächslabel "Bürger: Grüße mein Freund, wie kann ich euch helfen" und in den Gesprächsoptionen "- Name - Beruf - Auf Bald -" aber wenn ich nun eine Gesprächsoption eingebe komme ich nicht weiter (Das Gesprächslabel bleibt gleich). Ich kann also das Gespräch nicht fortführen. Ich hoffe jemand kann mir bei dem Problem helfen MfG DerMichael

Text-Adventures mit VB	818	DerMichael	06.05.06 11:55
Re: Text-Adventures mit VB	460	DerMichael	06.05.06 13:07

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen