Huhu ich bins nochmal, ich bin mit meinem kleinen Programm jetzt soweit das ich ne karte erzeuge, die problemlos scrollen kann, auch Gebäude können gebaut werden und diese scrollen auch mit.
ABER:
Wenn ich am Rand der Karte angelangt bin scrollen die Häuser immer um ein Feld weiter
Hier mal ein Ausschnitt aus der Scrollprozedur:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
| procedure TForm1.oben;
begin
detaily := detaily - scrollspeed;
if detaily < 1 then
begin
detaily := 40;
dec(standy);
if standy < 1 then begin
standy := 1;
detaily := 0;
end;
end;
IF standy > 1 Then
Begin
IF complete_Haus1 = true THEN completeY_Haus1:=completeY_Haus1+2;
IF complete_Haus2 = true THEN completeY_Haus2:=completeY_Haus2+2;
End;
end; |
Habt ihr ne Idee was ich da verändern könnte / muss?
Variablenerklärung:
detaily : Erzeugt das Stufenlose scrollen
standy : 1 Feld aus der Karte (Array)
complete_Haus2 : Kontrollvariable ob Gebäude gebaut
completeY_Haus2 : y-Koordinate des Hauses
)
Tino