Einzelnen Beitrag anzeigen

Benutzerbild von sniper_w
sniper_w

Registriert seit: 12. Dez 2004
Ort: Wien, Österriech
893 Beiträge
 
Delphi 6 Enterprise
 
#2

Re: - JAVA - Tetris - volle Reihen entfernen...

  Alt 16. Mär 2005, 12:35
Jedes mal wenn ein Block runterfählt, merkst du das in einem Feld (10*Hoche) (2d array). Danach überprüfst du ob eine ganze Reie voll "besetz" ist.
z.B. so ungefähr
Delphi-Quellcode:
const Hoche : integer = 20; // das kannst du ändern

var Field:array[0..9] of array[0..Hoche] of Boolean;

// ANNAHME -> Wenn Field[x,y]=TRUE dann ist das besetzt, sonst frei

function ReieVoll(reie:integer):Boolean;
 var i:integer;
begin
 result := True;
 for i:=0 to 9 do
   if Field[i,reie] then
    begin
     Result := False;
     Exit;
    end;
end;
....
 for a:=0 to Hoche-1 do
  if ReieVoll(a) then
   begin
      // heir machst du was du schon willst
   end;
Katura Haris
Es (ein gutes Wort) ist wie ein guter Baum, dessen Wurzel fest ist und dessen Zweige in den Himmel reichen.
  Mit Zitat antworten Zitat