Adventure Game[gelöst]

[McCry]

Hi, ich möchte mal ein kleines Adventure Game (Textbasierend) mit Lazarus/Pascal programmieren.
Um das möglich zu machen, muss sich der Text eines Labels/Checkbuttons verändern.
Man drückt auf "Weiter" und aus "1.Frage" wird z.B. "Hallo".
Jetzt weiss ich natürlich nicht, wie das geht.
Hoffe einer hier weiss es.
Danke schonmal
McCry

[Bauer321]

Das Projekt haben ich vor Jahren mal gemacht, wenn du noch Anfänger bist hilft es vielleicht weiter allerdings ist es (ich habe es eben nochmal angeguckt) vom Aufbau her sehr umständlich gemacht. Wie man halt ganz am Anfang so programmiert^^

edit: Anhänge entfernt da unnötiger Speicherverbrauch und schlechter Code

[McCry]

Ok, erstma Danke.
Nur Leider steig ich da net so durch.

[Bauer321]

aber sowas in der art willst du machen?

[McCry]

Ja, so in der Art.
Da soll dann z.B stehen:
"Es gibt zwei türen. links oder rechts"
Man wählt links und der Text ändert sich in "DAs war der Falsche Weg, du bist TOT".
So in der Art.

[Bauer321]

Ja dann mach das doch in etwa so:

Ein Label, zwei Radiobuttons und ein Button.

edit: mit RadioButtonX.Caption := 'Text'; kannst du auch den Text der Radiobuttons ändern

[McCry]

@Bauer321 Es klappt jetzt. Danke
Jetzt hab ich aber noch 2 Fragen:
1. Wie füge ich jetzt mehrere Fragen als nur 3 ein?
2. Wie hast du es gemacht, dass sich am ende eine 2.Form öffnet?

Danke schonmal
McCry

[Bauer321]

also weitere Fragen einfach nach dem bisherigen muster statt end; ein end else if ... (Zeile 76 in meinem Beispiel) und dann nach dem schema einfach weiter

wenn du ne nachricht anzeigen willst nimm ShowMessage('Dein Text');

ne neue Form machst du über Datei -> neues Formular, dann oben unter uses den namen eintragen. Danach kannst du einfach Form2.Show; bzw .Hide aufrufen

[camper3000]

Dazu würd ich einfach ne Mehrfachauswahl nehmen, mal gecodet:

Code: Alles auswählen

//Unter FormCreate       zaehler ist global, typ: integer
zaehler:=1; //Zähler rücksetzen
 
//auf dem Bestätigen button
zaehler:=zaehler+1;
case zaehler of
  2: lab_frage.caption:='Frage 2'  //Frage 1 steht von Anfang an drinne
  3: lab_frage.caption:='Frage 3' //Frage in abhängigkeit vom Zähler ändern
  4: lab_frage.caption:='Frage 4'
  5: lab_frage.caption:='Frage 5'
  .
  .
  .
  else begin
    lab_frage.caption:='Dein Zähler hat keine Frage'
  end;
end;

so ungefähr, ist natürlich noch nicht in den feinheiten.
(Falls du case-of-end noch nicht verwendet hast, schau dir einfach mal n tutorial an)

Hoffe konnte helfen
mfg camper3000

[Bauer321]

Dazu würd ich einfach ne Mehrfachauswahl nehmen, mal gecodet:

Code: Alles auswählen

//Unter FormCreate       zaehler ist global, typ: integer
zaehler:=1; //Zähler rücksetzen
 
//auf dem Bestätigen button
zaehler:=zaehler+1;
case zaehler of
  2: lab_frage.caption:='Frage 2'  //Frage 1 steht von Anfang an drinne
  3: lab_frage.caption:='Frage 3' //Frage in abhängigkeit vom Zähler ändern
  4: lab_frage.caption:='Frage 4'
  5: lab_frage.caption:='Frage 5'
  .
  .
  .
  else begin
    lab_frage.caption:='Dein Zähler hat keine Frage'
  end;
end;

so ungefähr, ist natürlich noch nicht in den feinheiten.
(Falls du case-of-end noch nicht verwendet hast, schau dir einfach mal n tutorial an)

Hoffe konnte helfen
mfg camper3000

auch ne möglichkeit, ich hatte eine gepostet die die antwort überprüft und wenn sie richtig ist die nächste frage anzeigt und sonst wieder Frage1

[camper3000]

jupp, geht auch.
find ich aber persönlich unübersichtlicher

[McCry]

Hab das mit der 2. Form geschafft.
Nur hab ich jetzt alles nochmal etwas "schöner" gemacht.
Jetzt kommt da aber ein Fehler:

Code: Alles auswählen

unit Unit_credits;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
  Unit_start ; //hier ist der Fehler
 
type
 
  { Tform_credits }
 
  Tform_credits = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end; 
 
var
  form_credits: Tform_credits;
 
implementation
 
{$R *.lfm}
 
{ Tform_credits }
 
procedure Tform_credits.Button1Click(Sender: TObject);
begin
  form_start.show;
  form_credits.close;
end;
 
end.

Code: Alles auswählen

unit Unit_start;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
  ExtCtrls, Unit_credits;
 
type
 
  { Tform_start }
 
  Tform_start = class(TForm)
    ab_but: TButton;
    credits_but: TButton;
    Image1: TImage;
    Label1: TLabel;
    Label2: TLabel;
    procedure credits_butClick(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end; 
 
var
  form_start: Tform_start;
 
implementation
 
{$R *.lfm}
 
{ Tform_start }
 
procedure Tform_start.credits_butClick(Sender: TObject);
begin
  form_credits.show;
  form_start.close;
end;
 
end.

Ich hoffe ihr könnt mir da helfen.
LG McCry

[mse]

Code: Alles auswählen

unit Unit_credits;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;
//  Unit_start ; //hier ist der Fehler
[...] 
var
  form_credits: Tform_credits;
 
implementation
uses
 Unit_start;  
 
 

Code: Alles auswählen

unit Unit_start;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
  ExtCtrls{, Unit_credits};
[...]
implementation
uses
 Unit_credits;

[McCry]

DANKEEEEEEEEEEEEEEE.
ES FUNKTIONIERT.