2D Game

[Maltimore]

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