Monopoly-Simulator

[Horst_]

Hallo,

Das mit den Bahnhöfen habe ich jetzt mal geändert:

Delphi-Quellcode:

    -2 : begin
             Inhalt := (Pos+5)DIV 10;
             IF Inhalt > 3 then
             begin
               Inhalt:=0;
               inc(Geld,UeberLos);
             end;
             Pos := Inhalt*10+5;
             inc(feldstat[Pos]);
          end;

Los muss doch häufiger sein, wenn 1/14.5 der Karten "Rücke vor bis auf Los" und es 6 Felder Ereignis/Gemeinschaftsfelder pro Runde gibt.

Gruß Horst
Edit:
Durch das Verbleiben im Gefängnis, wenn man nicht einen Pasch gewürfelt oder dreimal ausgesetzt hat, sinkt die Anzahl der zusätzlichen Bewegungen von 8% auf 1.8%

Code:

 10 Gefängnis        594569   133,58%
 24 Opernplatz        295732    16,18%
  0 Los        290022    13,94%
 18 Wiener Straße        283764    11,48%
 19 Berliner Straße        280244    10,10%
 20 Frei Parken        279403     9,76%
...
Gesammtanzahl      10181887 statt 10000000