Monopoly-Simulator

[Gravitar]

Nachdem ich letztens mit meinem Sohn so ein Spiel rund um das Kaufen von Immobilien gespielt habe, kam die Frage auf, welche Straßen mann eigentlich vorrangig kaufen sollte.

Also ran an Delphi und einen Simulator gebaut. Dieser betrachtet das Brett inkl. aller Ereignis- und Gemeinschaftskarten und würfelt sich so durch die Runden. Je Feld wird ein Zähler erhöht, sobald die Spielfigur dieses Feld erreicht. Wenn durch eine Karte ein anderes Ziel angesteuert werden muss, werden auch die Zähler für Ziel Nr. 1 (Ereignis- oder Gemeinschaftskarte) und Ziel Nr. 2 (z.B. gehe 3 Felder zurück) hochgezählt.

Als Ergebnis kommt dann eine Top-Down-Liste aller kaufbaren Felder heraus. Die %-Werte zeigen an, wie weit sich das jeweilige Feld vom statistischen Mittel entfernt hat.

Mal sehen, ob mir diese Erkenntnisse beim nächsten Spiel helfen

Die Datei enthält die EXE und die Sourcen. EXE einfach irgendwohin kopieren. Läuft ohne Installation.

Update Version 2:

Hier ein Update mit folgenden Erweiterungen:

- Farben der Felder werden jetzt in den Ergebnissen angezeigt
- Die Simulationsergebnisse können jetzt zusätzlich nach "Farben" gruppiert werden. Dadurch kann man erkennen, wie Wahrscheinlich das Landen auf mindestens einem der zusammengehörigen Felder ist.
- Die Bezeichnung der Felder und die Farben sind in 2 CSV-Dateien ausgelagert, die bei Systemstart eingelesen werden.

Fehlerbereinigung:
- Das Feld "Los" wurde in der alten Version falsch gezählt.

Viel Spass beim testen/ausprobieren/anwenden (Weihnachtszeit ist ja auch immer Spielzeit!)

[Bernhard Geyer]

Ich an deiner Stelle würde das Programm (und auch ein paar Elemente im Spiel) umbenennen.
Außer dich stört es nicht eine saftige Abmahnung zu bekommen.

[Natcree]

Bernhard hat recht. Aber nettes tool.

[Gravitar]

Zitat von Bernhard Geyer:

Ich an deiner Stelle würde das Programm (und auch ein paar Elemente im Spiel) umbenennen.
Außer dich stört es nicht eine saftige Abmahnung zu bekommen.

Echt? Obwohl hier nicht das Spiel programmiert wurde, sondern nur der Ablauf simuliert wurde?

[himitsu]

Der Name "Monopoly" wurde geschützt und das nicht nur für Spiele, die so ähnlich sind.

[Bernhard Geyer]

Zitat von Gravitar:

Echt? Obwohl hier nicht das Spiel programmiert wurde, sondern nur der Ablauf simuliert wurde?

Du kannst es ja darauf ankommen lassen und versuchen den Richter zu überzeugen ...

[WoGe]

Hallo
wie geschützt ist der Nameeigentlich wirklich noch?

Zitat:

1983: in den Vereinigten Staaten hat sich der Produktname so „verselbstständigt“, dass er seinen Markenzeichenschutz verlor: das Oberste US-Bundesgericht bestätigte den Urteilsspruch einer vorgelagerten Instanz, wonach ein Markenzeichen dann seinen Schutz verliert, wenn es zum „allgemeinen Gattungsbegriff“ geworden ist.

Würde mich wirklich interessieren

Grüße
wo

[himitsu]

Zitat von WoGe:

wie geschützt ist der Nameeigentlich wirklich noch?

Ein Apfel (in Bild, Wort und Schrift) ist auch "allgemein" und dennoch verklagt der vergammelte Apfel ständig alle möglichen (selbst ein Restaurant ist vor denen nicht sicher > Apfelkind).
Die schafften es sogar ein Patent für en "rechteckiges Gerät mit abgerundeten Ecken" zu bekommen.

Nja, wenn er kein Geld damit verdiehnt (auch nicht durch Werbeeinnahmen und Co) und er gleich auf die erste Abmahnung schnell reagiert, sollten die sich doch mal beschweren ..... dann dürfte es wenigstens nicht teuer werden.

[Gravitar]

Hier das Update auf die Version 2 (sh. Beitrag #1)

[Horst_]

Hallo,

Zitat:

Die Simulationsergebnisse können jetzt zusätzlich nach "Farben" gruppiert werden. Dadurch kann man erkennen, wie Wahrscheinlich das Landen auf mindestens einem der zusammengehörigen Felder ist.

ich dachte man macht eine Simulation und kann zwischen den beiden Ansichten auswählen, da die Daten ja vorhanden, nur anders zusammengefasst werden müssen.

Das Mischen ist immer noch seltsam.Es werden jetzt n-fach per Zufallsindex
benachbarte Karten getauscht.
Aus http://www.delphipraxis.net/1018077-post1.html

Delphi-Quellcode:

// Mischen nach Fisher-Yates
   for i := Low(FNumberList) to High(FNumberList) do begin
     j := i + Random(Length(FNumberList) - i);
     tmp := FNumberList[j];
     FNumberList[j] := FNumberList[i];
     FNumberList[i] := tmp;
   end;

Das Bunte kommt gut

Gruß Horst