Spieleideen für ein lustiges Spiel für die Schule ...

[Lun]

Also setzte deine highscore:Integer Variable hier hin.

Delphi-Quellcode:

var
  Form1: TForm1;
  vx, vy: integer;
  Counter_Sec: Integer = 0;
  StopTimer: boolean = false; 
  highscore : Integer = 0;

dahin die funktion

Delphi-Quellcode:

    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClick(Sender: TObject);
    procedure sethighscore(Sender : TObject);

  private
    { Private-Deklarationen }

die definition

Delphi-Quellcode:

implementation

procedure Tform1.setHighscore(Sender : Tobject)
begin
  highscore := highscore + 10;
end;

Aufruf:

ich denke mal hier fängst du die Fee

Delphi-Quellcode:

procedure TForm1.FormClick(Sender: TObject);
begin

  StopTimer := true;
  ImFee1.Visible := false;
  setHighscore();

end;

So in etwa ist jetzt aus dem steh greif da ich nicht so viel zeit habe, hoffe das es so deutlicher ist.


greetz Lun

P.S: Für die Ausgabe, ein Label auf das form und dann Label1.Text := IntToStr(highscore);

Aber würde mir an deiner stelle auch mal ein paar Tutorials angucken.