-
Forum: Multimedia
by Bartuc,
8. Dez 2006
Danke, tolle Idee. hat geklappt.
-
Forum: Multimedia
by Bartuc,
7. Dez 2006
hm... das Problem ist nur wenn ich sagen das, wenn mein bild von der seite an das shape kommt, das mein bild stehenbleiben soll, kann ich nicht mehr auf das shape springen weil der alle y koordianten dann sperrt.
Also bin da so in einer Zwickmühle.
versuche halt beides zum laufen zu kriegen, aber es will einfach nicht.
-
Forum: Multimedia
by Bartuc,
7. Dez 2006
So hab es immerhin jetzt geschafft das ich auf ein höher gelegenes Shape springen kann
Allerdings kann ich seitlich in das Shape reingehen.... Wie kann ich das verhindern?
procedure TForm1.Timer3Timer(Sender: TObject);
begin
if IsCollision (Imgcartman.BoundsRect, S_2.BoundsRect) then
timer2.enabled := false ;
end;
-
Forum: Multimedia
by Bartuc,
5. Dez 2006
Das funktioniert nicht da Timer2 für das "runterkommen" beim sprung verantwortlich ist.
Und Timer1 für das "hochspringen"
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if imgcartman.Top = 234 then begin
timer2.enabled := true;
timer1.Enabled := false;
end
-
Forum: Multimedia
by Bartuc,
5. Dez 2006
cool danke..... klappt schon fast....
es gibt nur noch 2 probleme :angel2:
das 1. ist...
wenn ich mit dem bild von der Seite an das Shape komme läuft mein bild trotzdem noch hinein.
wie kann ich der kollisionsabfrage sagen das das bild dann vor dem shape stehen bleibt?
das 2. ist...
-
Forum: Multimedia
by Bartuc,
5. Dez 2006
hm.... bei mir bleibt das bild in der Luft stehen.
hab aber bissl rumprobiert und jetzt "springt" mein bild.
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if imgcartman.Top = 234 then begin
timer2.enabled := true;
timer1.Enabled := false;
end
-
Forum: Multimedia
by Bartuc,
5. Dez 2006
ok hab ich gerade auch gesehen :?
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if imgcartman.Top = -100 then begin
timer2.enabled := true;
timer1.Enabled := false;
end
else begin
-
Forum: Multimedia
by Bartuc,
5. Dez 2006
Irgendwie blick ich da nicht so ganz durch mit den mehreren Units.
Habs mal mit nem Timer versucht.
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if imgcartman.Top = imgcartman.Top -100 then begin
timer1.Enabled := false;
timer2.enabled := true;
-
Forum: Multimedia
by Bartuc,
4. Dez 2006
das 2. end; hab ich vergessen einzufügen :wink:
aber das scheint irgendwie nicht zu klappen... sonst noch einer eine idee?
-
Forum: Multimedia
by Bartuc,
4. Dez 2006
if Key = VK_SPACE then begin
if Unit2.IstAufDemBoden(image1.TCanvas) then begin
ImgCartman.YSpeed := -20;
end;
Unit1.pas(154): E2066 Missing operator or semicolon
-
Forum: Multimedia
by Bartuc,
3. Dez 2006
SysUtils stand schon unter Uses drin. =(
Woran kanns sonst liegen?
Was meintest du mit "in einer anderen Unit implementiert" ?
bzw "Dann musst du in der Aufrufenden Unit die Unit einbinden"?
-
Forum: Multimedia
by Bartuc,
2. Dez 2006
Danke das hat geklappt,
aber jetzt gibts wieder ein problem... eigentlich genauso wie von vorher aber ich weiß nicht was ich jetzt machen soll:
if Key = VK_SPACE then
if ImgCartman.IstAufDemBoden(ImSchwarzWeiss.Canvas) then
Imgcartman.YSpeed := -20;
-
Forum: Multimedia
by Bartuc,
2. Dez 2006
Habs mir jetzt nochmal durchgelesen.Verstehen tue ich aber nicht viel :(
hab ne neue Unit für die Klasse erstellt.
aber beim starten tritt diesmal dieser Fehler auf
Ich weiß nicht was ich falsch gemacht habe.
-
Forum: Multimedia
by Bartuc,
2. Dez 2006
Klappt bei mir nicht so ganz.....
wenn ich starten will kommt dieser Fehler:
TFigur = class
Unit1.pas(51): ',' or ':' expected but '=' found
was heißt das genau?
oder muss man den Teil an einer bestimmten stelle einfügen?
-
Forum: Multimedia
by Bartuc,
1. Dez 2006
Bei den Tutorials habe ich nur was für 3D gelesen. Möchte es aber 2D machen.
und kannst du mir die Abfrage vielleicht was genauer erklären?
-
Forum: Multimedia
by Bartuc,
1. Dez 2006
Was meinst du mit der Geschwindigkeit (in x und y)?
und wo geb ich das an?
Wofür steht Vy = 20 ?
und wie schreibe ich eine Kollisionsabfrage?
Danke schonmal für die Erläuterungen.
-
Forum: Multimedia
by Bartuc,
30. Nov 2006
Cool danke... klappt soweit....
Nur gibt es jetzt noch ein kleines Problemschen.
wenn ich 2xmal die Leertaste drücke bleibt das bild weiter oben stehen.
gibt es ein befehl der das bild beim sprung immer auf eine "Grundlinie" bringt?
-
Forum: Multimedia
by Bartuc,
29. Nov 2006
Danke schonmal für die Tipps...
Also flüssig springen tut er jetzt schon, aber jetzt gibt es eine andere sache.
Wenn ich nach links oder nach rechts gehe, fängt der auch an zu springen.
Wie kann ich denn den Befehl "springen" auf die Leertaste belegen?
-
Forum: Multimedia
by Bartuc,
29. Nov 2006
Eigentlich brauche ich Hilfe um das Spiel zu programmieren.
Muss das für die Schule machen.
Hab auch noch nicht so viel Delphikenntnisse
Welche Möglickeiten gibt es denn sonst noch um "Figuren" springen zu lassen?
-
Forum: Multimedia
by Bartuc,
28. Nov 2006
also das ist ein auszug des quelltextes
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
case Key of
VK_LEFT: begin
ImgCartman.Left := ImgCartman.Left - 10;
Key := 0;
end;
-
Forum: Multimedia
by Bartuc,
28. Nov 2006
Hi zusammen
Wollte ein Jump and Run Spiel programmieren.
Geht soweit gut voran, allerdings hab ich probleme bei der Steuerung.
Habe ein Bild eingefügt das sich bewegt wenn man die Pfeiltasten drückt. (links/rechts)
Nun will ich das aber noch zum "Springen" bringen durch drücken der Leertaste.
Wie klappt das genau. Am besten ohne großen hänger.
