Monopoly-Simulator

[Horst_]

Hallo,

nur eine kleine Anmerkung auf die Schnelle.
Die Eisenstraße kenne ich nicht. Es ist wohl die Elisenstrasse gemeint.
Aber Namen sind wie Schall und Rauch, na jedenfalls fast.
Die Prozedur Mischen ist etwas unglücklich gewählt, Fisher-Yates wäre angebrachter.

Delphi-Quellcode:

Procedure Mischen(var a: array of integer);
var
  x: integer;
begin
  for x := high(a) downto 1 do
    swap(a[x],a[random(x+1)]);
end;

das Würfeln könnte man mit nur einmal random minimal beschleunigen.

Delphi-Quellcode:

// Wuerfelsumme vorbelegen, kann ein konstantes Feld sein
       For w1 := 0 to 5 do
          For w2 := 0 to 5 do
            WSum[w1*6+w2] := w1+w2+2;//w1+1 +w2+1;

{statt:
  w1 := RandomRange(1,7);
  w2 := RandomRange(1,7);
  w := w1+w2;
nun:}
  w := wSum[random(36)];

Ich habe mich schon gefragt, ob da auch gekauft wird, aber Geld spielt bisher keine Rolle, der Spielstein macht "nur" 10^8 Züge.
Vielleicht hätte man die Anzahl der Besuche für Ereignis und Gemeinschaftsfelder aufführen können.
Ich habe schon immer geahnt, das der Opernplatz der Schlüssel zum Erfolg ist
Eine komplette Spielsimulation scheint ja geplant zu sein, da bin ich gespannt.

Gruß Horst