Hallo!
Ich bin verzweifelt:
Ich bin beim MasterMind Spiel und komme nicht mehr weiter.
ich habe zwei arrays mit farben:
spieler-array[]
spiel-array[]
nun muss ich den spieler-array mit dem array des spiels vergleichen und auswerten.
wieviele farben sind am richtigen ort,
welche vorhanden aber am falschen ort.
das ist ja einfach, aber im spieler-array können zwei gleiche farben vorkommen, und im spiel-array auch.
mein ansatz:
Delphi-Quellcode:
procedure TMainForm.btnTipClick(Sender: TObject);
var
treffer, halbtreffer, iloop,loop:Integer;
begin
treffer:=0;//farbe am richtigen ort
halbtreffer:=0; //farbe vorhanden aber am falschen ort
anz:=0
for loop := 0 to level do begin
if playerColors[loop] = gameColors[loop] then begin
inc(treffer);
Continue;
end;
for iloop:=0 to level do begin
if (playerColors[loop] = gameColors[iloop]) then
inc(halbtreffer);
end;
end;
addTipLabels;
if treffer = level+1 then
ShowMessage('JUPPI, gewonnen! Mit '+#13+IntToStr(versuche)+' Versuchen!');
end;
kann mir jemand denkanstöße verpassen, wie ich das regeln könnte?
vielen dank,
Florian