Der Beitrag über mir scheint logisch zu sein, ich habs jedoch anderst gelöst. Hier z.B. die verschiedenen Miet-Beiträge:
Delphi-Quellcode:
If (Gekauft[aktFeld1].Visible) then
If (aktFeld1=1)or(aktFeld1=2)or(aktFeld1=3)or(aktFeld1=4)or(aktFeld1=5) then
begin
showmessage('schon vergeben -50');
aktBetrag1:= aktBetrag1 - 50;
FEGeld1.Value:= aktBetrag1;
aktBetrag2:= aktBetrag2 + 50;
FEGeld2.Value:= aktBetrag2;
end
else
If (aktFeld1=6)or(aktFeld1=7)or(aktFeld1=8)or(aktFeld1=9) then
begin
showmessage('schon vergeben -100');
aktBetrag1:= aktBetrag1 - 100;
FEGeld1.Value:= aktBetrag1;
aktBetrag2:= aktBetrag2 + 100;
FEGeld2.Value:= aktBetrag2;
end
else
If (aktFeld1=10)or(aktFeld1=11)or(aktFeld1=12)or(aktFeld1=13)or(aktFeld1=14) then
begin
showmessage('schon vergeben -150');
aktBetrag1:= aktBetrag1 - 150;
FEGeld1.Value:= aktBetrag1;
aktBetrag2:= aktBetrag2 + 150;
FEGeld2.Value:= aktBetrag2;
end
else
If (aktFeld1=15)or(aktFeld1=16)or(aktFeld1=17)or(aktFeld1=18) then
begin
showmessage('schon vergeben -200');
aktBetrag1:= aktBetrag1 - 200;
FEGeld1.Value:= aktBetrag1;
aktBetrag2:= aktBetrag2 + 200;
FEGeld2.Value:= aktBetrag2;
end;
Sieht auch für mich nach relativ viel Text aus - Kann man das irgendwie kürzen?
Ich hab jetzt auch einen zweiten Spieler eingeführt (sieht man auch an den verschiedenen Bezeichnungen), aber jetzt stehe ich vor dem Problem, dass ja nur einer Miete zahlen soll, wenn er auf das bereits gekaufte Feld kommt; nämlich der, der es nicht gekauft hat - der Mieter eben
Der, der es gekauft hat, muss momentan bei mir auch Miete zahlen, was ja dem Spielprinzip nicht entgegenkommt
Wie kann ich das nun einem bestimmten Spieler zuweisen?