AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Problem mit Vier Gewinnt Gewinnabfrage

Ein Thema von phppeter · begonnen am 29. Mär 2006 · letzter Beitrag vom 29. Mär 2006
 
Flare

Registriert seit: 26. Jan 2006
Ort: Leipzig
529 Beiträge
 
Delphi 7 Professional
 
#2

Re: Problem mit Vier Gewinnt Gewinnabfrage

  Alt 29. Mär 2006, 16:11
Also, ich wüsste jetzt nicht wo man in deiner Funktion einen Rückgabeparameter findet der beinhaltet ob er nun gewonnen hat oder nicht, du überprüfst immer nur das Feld, machst dann aber nix damit. Ich versuche mal deinen Code umzuschreiben.


Flare

//Edit: habs gerade gefunden dass du doch mitzählst...egal, ich gucks mir trotzdem nochmal genauer an

Ich habe es mal umgeschrieben, es ist ungetestet, da ich keine Lust hatte dazu noch den ganzen Rest zu programmieren
und ich hoffe ich habe es nicht nur vereinfacht oder verschlimmbessert...

Delphi-Quellcode:
function Tform1.gewonnendiagonal(xwert, ywert, richtung: integer): boolean;
var
  Count: integer;
begin
  Result := false;
  Count := 1;
  if richtung = 1 then //unten links nach oben rechts
  begin
    while spielfeld[xwert-1, ywert-1] = anderreihe do //ans letzte Steinchen setzen
    begin
      Dec(xwert);
      Dec(ywert);
    end;
    while spielfeld[xwert, ywert] = anderreihe do //und dann in nur eine Richtung rechnen lassen
    begin
      Inc(Count);
      Inc(xwert);
      Inc(ywert);
    end;
  end;

  if richtung = 2 then //unten links nach oben links
  begin
    while spielfeld[xwert-1, ywert+1] = anderreihe do //ans letzte Steinchen setzen
    begin
      Dec(xwert);
      Inc(ywert);
    end;
    while spielfeld[xwert, ywert] = anderreihe do //und dann in nur eine Richtung rechnen lassen
    begin
      Inc(Count);
      Inc(xwert);
      Dec(ywert);
    end;
  end;
  if (Count >= 4) then Result := True;
end;
Willy Scheibel
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 04:55 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz