Timer / Bomberman

[eif]

hallo... ich soll für schule (info-projekt) ein 2-player bomberman programmieren... meine frage: wie kann ich die bomben zeitverzögert explodieren lassen?`

bin relativer anfänger in delphi.. würde mich über ne ausführliche antwort freuen... danke schon mal... der eif

[DGL-luke]

hallo,

ich würd da einen game-loop aufbauen:

Delphi-Quellcode:

while Running do
begin
  CheckBombs;  //schauen ob eine Bombe explodieren muss
  CheckKeyStates; //schauen ob ein Key gedrückt ist und du einen Player laufen lassen musst
  Render; //neu malen
end;

zum Bomben checken:

Delphi-Quellcode:

for i := Bombs.Count-1 downto 0  do
begin
  if Bombs[i].ExplosionStamp < GetTickCount then
  begin
    DoExplosion(Bombs[i]);
    Bombs.Delete(i);
  end;
end;

Für die Bomben kannst du eine einfache Liste benutzen, z.B. TList, und einen Typ wie den:

Delphi-Quellcode:

type
  PBomb: ^TBomb;
  TBomb = record
    Strength: Integer;
    ExplosionStamp: Cardinal;
  end;

Wenn die Bombe gelegt wird, musst du Explosionstamp natürlich setzen:

Delphi-Quellcode:

var NewBomb: PBomb;

New(NewBomb);
Bombs.Add(NewBomb);
NewBomb.Strength := x;
NewBomb.ExplosionStamp := GetTickCount + BombTimer; //BombTimer: Cardinal, Millisekunden

Sonst noch irgendwo probleme?

Du kannst natürlcih auch mit TTimer arbeiten.

[eif]

joa... danke erstmal... werd mal guggn was ich damit anfangen kann.. wie gesagt... bin ein anfänger ;) ... ich probiers einfach mal...

danke... der eif

[DGL-luke]

no Problem.

btw: deine Bomben sollten vielleicht noch ein "IsExploded"-Flag (Boolean-Feld) bekommen, denn wenn es Kettenreaktionen etc. gibt, könntest du in deiner for-schleife auf Index-Probleme stoßen.

Sprich:

Delphi-Quellcode:

for i := Bombs.Count-1 downto 0  do
begin
  if Bombs[i].IsExploded then
    Bombs.Delete[i]
  else
  if Bombs[i].ExplosionStamp < GetTickCount then
  begin
    DoExplosion(Bombs[i]);
    Bombs.Delete(i);
  end;
end;

Im "DoExplosion" würdest du dann verbundene Bomben gleich mit explodieren lassen und nur das "IsExploded"-Flag setzen.