Registriert seit: 12. Dez 2004
Ort: Wien, Österriech
893 Beiträge
Delphi 6 Enterprise
|
Re: - JAVA - Tetris - volle Reihen entfernen...
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.
|