Forum: Programmieren allgemein
by netscanner,
22. Jun 2006
hat sich erledigt...eine andere prozedur die mit timer in verbindung war hat sich selbst aufgerufen...
Forum: Programmieren allgemein
by netscanner,
21. Jun 2006
procedure Kill; // Gegner tot
begin
If ((InGame1.iSp1.Top + InGame1.iSp1.Height) > (InGame1.iEnemy1.Top)) and //kollision von oben
((InGame1.iSp1.Top + InGame1.iSp1.Height) < (InGame1.iEnemy1.Top + InGame1.iEnemy1.Height)) then
begin
InGame1.iSp1.Top := InGame1.iFloor.Top - InGame1.iSp1.Height;
...
Forum: Programmieren allgemein
by netscanner,
21. Jun 2006
procedure SStop; // Sprung (stop)
begin
If ((InGame1.iSp1.Top + InGame1.iSp1.Height) >= InGame1.iFloor.Top) // Stop durch Boden
or (InGame1.iSp1.Top <= InGame1.Top) then // Stop durch Decke
begin
tCount := 0;
InGame1.S.Enabled := false;
InGame1.iSp1.Top :=...