@sir thormberry: hä?
Delphi-Quellcode:
food[feld[ax[a,vo]-1,ay[a,vo]-1]-4]:=food[feld[ax[a,vo]-1,ay[a,vo]-1]-4]-round(random(anz[vo]*8));
food[vo]:=food[vo]-round(random(anz[feld[ax[a,vo]-1,ay[a,vo]-1]-4]*5));
das ist die einzige Stelle, die in Frage kommt, da der bau sich in etwa so verändert, wie sich das Futter vermindern sollte