Da ich lieder keine Zeit mehr für Erklärungen habe hier mal nur der Quelltext:
Damit konnte ich zumindest 2 Diamanten einsammeln
Delphi-Quellcode:
procedure TForm1.EngineTimer(Sender: TObject);
var
Index: word;
begin
if not Spiel.rPause then
form1.Caption := 'Aspirin' + ' ' + 'Punkte: ' + inttostr(Spiel.rPunkte);
if Spiel.rPause then
form1.Caption := 'Aspirin' + ' ' + 'Pause';
if Spiel.rPunkte > 0 then
begin
if t1 = 1 then
begin
//showmessage('Jetzt') ;
for index := 0 to Spiel.anzahl-1 do //<----- hier lag der Fehler
begin
label1.Caption := inttostr(Spiel.anzahl);
Spiel.shpos[index].Bewegung();
//Spiel.sh[index].Top := Spiel.shpos[index].rpunkt.Y;
// sh2[index].Bewegung;
end;
end;
end;
end;