Forum: Programmieren allgemein
by Bambennos,
9. Apr 2011
Da soll Delphi schauen, ob ich die Taste gedrückt halte - wenn ja, dann soll er die Distanz wieder auf 5 setzen.
*edit:
DANKE
Dank dir hab ich meinen Fehler erkannt :}
kann geclosed werden *.*
Forum: Programmieren allgemein
by Bambennos,
9. Apr 2011
// Wenn er aus der Karte herausgeht, dann
if Spieler.FXposTile >= 26 then //rechts
begin
Spieler.MapVerlassen := true;
Spieler.FXposTile := 0;
MapTeilX := MapTeilX + 1;
Map.Start;
end;
if Spieler.FYposTile > 20 then //unten
Forum: Programmieren allgemein
by Bambennos,
9. Apr 2011
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #27 then
Close
else if (Key in ) and (Spieler.IsIdle) and not (Spieler.MapVerlassen) then
begin
Spieler.FDistance := 40;
Spieler.IsMoving := true;
case Key of
'a': Spieler.RRichtung := Links;
Forum: Programmieren allgemein
by Bambennos,
9. Apr 2011
Ok Danke, das gekürtzte funktioniert prima ;D :thumb:
Was soll das Application.ProcessMessages bewirken? - Falls das mein Problem lösen sollte - nein leider nicht :(
Forum: Programmieren allgemein
by Bambennos,
9. Apr 2011
Vorweg: Ich arbeite an einem 2D Spiel und verwende Andorra 2D...
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #27 then Close;
if (Key = 'a') and (Spieler.IsIdle) then
begin
Spieler.FDistance := 40;
Spieler.RRichtung := Links;
Forum: Programmieren allgemein
by Bambennos,
9. Apr 2011
Hallo erstmal :thumb:
Zuallererst: ich weiß nicht, ob hier der richtige Ort ist, aber ich geh mal davon aus ;D
Zu meinem Problem:
Ich schreibe derzeit an einer Steuerung einer Figur auf einem Feld. - An sich funktioniert auch alles:
Es soll, sobald die Figur den Bildschirmrand erreicht hat, ein neuer Hintergrund aufgebaut und die Figur auf die entgegengesetzte Seite gesetzt werden - soweit...