Forum: Programmieren allgemein
Delphi
by Premaider,
17. Mai 2012
Ich habe nichts bekommen :O
Sieht inzwischen so aus:
procedure TForm1.Timer1Timer(Sender: TObject);
var
r: Trect;
imgGegner: Array of TBitMap;
Gegner: Array of TGegner;
begin
If Player.left+Player.width>=Form1.ClientWidth-2 Then Verlohren;
Forum: Programmieren allgemein
Delphi
by Premaider,
17. Mai 2012
Das ist ja eigendlich das Problem.
Es müsste so sein
begin
x:=x+1;
MyBitmapV := BitMap
BitMapH.create;
end;
x: Integer; <-Global
x:=0; <-Form1.create
Forum: Programmieren allgemein
Delphi
by Premaider,
17. Mai 2012
Mhh, schade. Bis jetzt ist ja garnichts neues da :(
Forum: Programmieren allgemein
Delphi
by Premaider,
17. Mai 2012
Weiter weiß ich jetzt auch garnicht, ich gehe jetzt ersteinmal schlafen, und hoffe, dass bis morgen eine Lösung da ist ;D
Und danke schonmal für die ganze Hilfe bis jetzt
Bis morgen dann
Forum: Programmieren allgemein
Delphi
by Premaider,
16. Mai 2012
Okay werde ich :S
Ich bin ja selbst im Moment ganz verwirrt, da ich noch nie Bitmaps verwendet habe.
Mir würde es im Moment am meisten helfen wenn ihr meinen Code anschaut und mit
sagt was ich ändern sollte :S
Forum: Programmieren allgemein
Delphi
by Premaider,
16. Mai 2012
So, ich bin jetzt ganzschön verwirrt :?
Ich habs mal so weit gemacht, wie ichs begriffen hab
if intersectRect(r, Player.BoundsRect, Ziel.BoundsRect) then
begin
Score:=Score+1;
Ziel.Top:=10+Random(Form1.ClientHeight-10);
Ziel.left:=10+Random(Form1.ClientWidth-10);
MyBitmap := BitMap.create;
MyBitmap := BitMap.create;
Forum: Programmieren allgemein
Delphi
by Premaider,
16. Mai 2012
Ist mir egal ob es langsam ist, es soll erstmal nur funktionieren ;D
Forum: Programmieren allgemein
Delphi
by Premaider,
16. Mai 2012
Und wenn ich TBitMap benutze nicht ?
€: Ich habe jetzt mal alles kleiner gemacht, jetzt sollte ich auch mit 100 Gegnern locker hinkommen.
Hier nochmal mein jetziger Code
if intersectRect(r, Player.BoundsRect, Ziel.BoundsRect) then
begin
Score:=Score+1;
Ziel.Top:=10+Random(Form1.ClientHeight-10);
Ziel.left:=10+Random(Form1.ClientWidth-10);
imgGegner.create(nil);
...
Forum: Programmieren allgemein
Delphi
by Premaider,
16. Mai 2012
Haben damit in der Schule gearbeitet, habe mich daran gewöhnt
Mir ist egal was ich benutzte, hauptsache es funktioniert, habe halt noch nie mit TBitMap gearbeitet.
Ich habe immernoch das Problem bei .create
Forum: Programmieren allgemein
Delphi
by Premaider,
16. Mai 2012
Sieht jetzt so aus:
if intersectRect(r, Player.BoundsRect, Ziel.BoundsRect) then
begin
Score:=Score+1;
Ziel.Top:=10+Random(Form1.ClientHeight-10);
Ziel.left:=10+Random(Form1.ClientWidth-10);
imgGegner.create(nil);
imgGegner.Create(nil);
imgGegner.picture.LoadFromFile('Gegner.jpg');
imgGegner.picture.LoadFromFile('Gegner.jpg');
Forum: Programmieren allgemein
Delphi
by Premaider,
16. Mai 2012
150 wären horizontal ausgerichtet und bewegen sich auch so und 150 vertikal.
Ich verstehe nur nicht wieso ich keine 300 Images brauche, sind ja insgesammt 300 Bilder (Gegner) die sich bewegen ??
x: Array of TPoint;
Kann ich denn dann auch so anwenden wie ich wollte ?
Forum: Programmieren allgemein
Delphi
by Premaider,
16. Mai 2012
Hey Leute ich versuche grade das Spiel
Aspirin nachzuscripten, doch an einer Sache scheiter ich.
Die Gegner werden pro Ziel, das man erreicht einer mehr.
Es sollen am Ende so 300 Stück (300 Images!!!) sein. (nur 5x15 Pixel ;D)
Player = TImage;
Ziel = TImage;
Gegner = TImage;
Ich bräuchte jetzt etwas um immer ein neues TImage (Gegner) aufzurufen, wenn Player Ziel berührt .