1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

//------------------------Metall Minen Bonus------------------------------------
  if RMetMine=true  then
  begin
    RessProd:=Trunc(RessProd*MBonus)*Trunc((Stufe+1)*Power(1.5,Stufe+1))+RessProd;
    RessProdStr:=floattostr(RessProd);
    MProd.Text:=MProd.Text+RessProdStr+#13#10;
  end;
//------------------------Kristall Minen Bonus----------------------------------
  if RKrisMine=true then
  begin
    RessProd:=Trunc(RessProd*KBonus)*Trunc((Stufe+1)*Power(1.5,Stufe+1))+RessProd;
    RessProdStr:=floattostr(RessProd);
    MProd.Text:=MProd.Text+RessProdStr+#13#10;
  end;
//------------------------Antimaterie Minen Bonus-------------------------------
  if RAntiFabrik=true then
  begin
    RessProd:=Trunc(RessProd*ABonus)*Trunc((Stufe+1)*Power(1.5,Stufe+1))+RessProd;
    RessProdStr:=floattostr(RessProd);
    MProd.Text:=MProd.Text+RessProdStr+#13#10;
  end;
//------------------------------------------------------------------------------