ok, aber macht euch auf was gefasst, der code ist echt schlimm
Delphi-Quellcode:
procedure linksgehen;
begin
imagesverstecken; //von mir gemachte procedure, hidet erstmal alle images (sind inzwischen 9)
Richtungrechts := false; // sagt anderen proceduren, dass sich nach links bewegt wird
if nr = 1 then begin // die nummern sind dazu da dass sich 2 images beim angezeigt werden abwechseln damits besser aussieht
form1.image4.left := form1.image1.left -20;
form1.image1.Left := form1.image4.left;
form1.image4.show; // hier wird es dann angezeigt
nr := nr +1; // damit beim nächsten durchlauf der else zweig abgearbeitet wird (ich weiß bool würde reichen)
end else begin
form1.image3.left := form1.image1.left - 20;
form1.image1.Left := form1.image3.left;
form1.image3.show;
nr := nr - 1;
end;
end;
das war die procedure linksgehen, die von onkeypress aufgerufen wird:
Delphi-Quellcode:
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char); // hab keinen plan was es mit sender: tobject auf sich hat
begin
if key = 'a' then begin // ich weiß begin - end eigentlich irrelevant hier aber man weiß ja nie :)
linksgehen;
end;
if key = 'd' then begin
rechtsgehen;
end;
if key = 's' then begin // da bückt sich die figur
runtergehen;
end;
if key = ' ' then begin // naja das springen ist noch nicht ganz ausgereift, wollte es eig. nach physikalischen gesetzen springen lassen aber
// habe mich nun dagegen entschieden, weil zu schwer
springen;
end;
end;
joa.. ich erklärs euch gerne noch genauer, frag einfach
