UT2D - 2D-Shooter mit UTStyle

[Nuclear-Ping]

Was Grafiken angeht:
Vielleicht kennst du jmd. in deinem Freundeskreis, der gut zeichnen kann?
Wenn der motiviert wäre, kann der ja paar Figuren in paar Stellungen zeichnen, die scannst du ein, bearbeitest sie am Computer nach und schon haste was. ;)

[CK_CK]

Hi!
Ich hab' einige Links zum Thema Spiele&Grafiken gesammelt:
> http://www.isogames.de/
> http://www.spriters-resource.com/
> http://reinerstileset.4players.de/deutsch.html
> http://www.texturenwelt.de/

Vielleicht helfen die dir auch weiter ;)

Chris

[olee]

Danke für die Tipps.

Doch leider war bei den Links nich das dabei, was ich brauche.

Die Bilder die ich zur Vorlage hochgeladen habe, waren bisher besser.

Ich hab die mit einem Screenshoot aus UT GOTY genommen,
wo ich den Player duckend von der Seite sehen konnte.

Weiß jmd. vllt., wo ich einen ModelViewer für UT Models finde?
Das wäre sehr hilfreich und ich könnte innerhalb von 1-2 Tagen
Animationen im Spiel haben.

Momentan arbeite ich an Effekten (Explosionen, usw.), HUD, und mehr Waffen.

[olee]

So mal wieder ein Update!

- Das lagging wurde NOCHMALS reduziert.
- Eine neue CTF Map wurde hinzugefügt.
- Sound der Waffen wird nun als "3D" Sound abgespielt (Distanz und Richtung zwischen Spieler und Soundquelle)
- Update zum download im ersten Post.

Also bitte mal schön testen, damit ich ein paar verbesserungsvorschläge hörne kann.
(Selbstverständliche Sachen wie "Zu wenig Waffen" und "Keine Animationen" aber bitte dann nur posten, wenns wichtig ist)

MFG an alle Delphi Fans :dp:

Björn Zeutzheim aus dem schönen Boppard XD

[Namenloser]

Hallo, olee!

Lagging wurde reduziert?
Also bei mir kriecht es jetzt mit 15-20 fps dahin... vorher lief es mit 28-34. An meine Grafikkarte (8800GT) sowie meinem prozessor (Q6600, 2.4 Ghz Quad) würfte es wohl nicht liegen. Du solltest dir ernsthaft Gedanken über deine grafische Darstellung machen. Aktuelle 3d-Spiele laufen schneller...

Ich könnte mir vorstellen, das dein Problem damit zusammenhängt, dass du das ganze Level als ein großes Bitmap abspeicherst (das dann auch jedes mal komplett gezeichnet wird). Ich habe vor Jahren auf diese Weise ein Jump'n'run zu programmieren versucht und musste das ganze hinterher auch aus Performancegründen einstellen. Denk dir lieber eine alternative Methode aus, z.B. ein 2d-Array mit Kacheln drin, oder setze alles aus Rechtecken zusammen etc... davon werden dann nur die benötigten, sprich: sichtbaren, Teile gezeichnet. Damit kannst du dann z.B. auch schneller auf Kollisionen prüfen. Das ganze hätte nebenbei noch den Effekt, dass du weniger Platz für die Levels brauchst.

[olee]

Das hab ich auch bemerkt!

Und genau was du gesagt hast hab ich mir sogar schon überlegt!
(so ein Zufall)

Das ruckeln ist aber trotzdem schwächer, wenn du nur die kleine Map spielst, im Vergleich zu vorher.

[busybyte]

Dafür gibts doch einen eigenen Typ in DelphiX //<-Edit

Delphi-Quellcode:

TBackground = class(TBackgroundSprite)
private
public 
//Bauplan:TBauplan; //<-edit eigenes Zeugs
end;

mal ein Beispiel von mir, das aber nicht copypaste-fähig ist und uralter Kot (ca. 2Jahre) ist. (Bsp. es fehlt der try except Block und und und...)

Delphi-Quellcode:

Procedure CreateBckGrnd(Bauplan_:TBauplan);
begin
while not CheckPicName(Bauplan_) do  exit;

   with TBackGround.Create(Grafikengine.DXSpriteEngine1.Engine) do
   begin
   Bauplan:=Bauplan_;
   //TestI:=BauPlan.BplImageDatas.IMIndex;
   Image :=Grafikengine.DXImageList1.Items.items[BauPlan.BplImageDatas.IMIndex];
   x:=Bauplan.Position.x;
   y:=Bauplan.Position.y;
   z:=round(Bauplan.Position.z); //<-wichtig 
   visible:=true;
  Image.Transparent:=true;
 //  MapWidth:=8;
 //  MApHeight:=8;
//   tile:=Bauplan_.Tile;
Pre_Skal8(Bauplan.BplImageDatas.IMWidth,
            Bauplan.BplImageDatas.IMHeight,
            Bauplan.BplImageDatas.IMPic);
TestI:=BauPlan.BplImageDatas.IMIndex;
Grafikengine.DXImageList1.Items.Items[BauPlan.BplImageDatas.IMIndex].Picture:=Pre_Skal_ResultPic;

SetMapSize(Bauplan.BplImageDatas.IMMapWidth,Bauplan.BplImageDatas.IMMapHeight);
Image.Restore;
   end;
end;

//edit
die Kollision kann in deinem Fall aber nicht mit TBackground gemacht werden,
sondern die Wände sollten vom Typ TImagesprite sein, da soweit ich in Erinnerung habe,
die beiden Typen nicht kollidieren.

[igel457]

Hallo,

schau dir (wie schon weiter oben gesagt) mal mein Spiel "CrashPoint" an. Das habe ich vor 2 Jahren auch mit DelphiX geschrieben und läut mit ca. 80 FPS. Zudem lade ich Karten von der Größe 10000x2000 Pixel - Du solltest an deinem Verfahren wirklich etwas ändern:
http://crashpoint.cvs.sourceforge.ne...as?view=markup

Außerdem habe ich in deinem Quellcode gesehen, das du oft die Canvas-Eigenschaft des TDXDraw verwendest. Du solltest versuche dies so oft wie möglich zu vermeiden, denn dieses verwendet direkt die GDI und die ist recht gemütlich in ihrer Arbeitsgeschwindigkeit. Wenn du das zur Grafikausgabe nimmst, dann brauchst du DelphiX eigentlich gar nicht.
Vielleicht könnte dich auch meine 2D Engine Andorra 2D interessieren - diese ist in gewissem Maße DelphiX nachempfunden, ist durch Verwendung der 3D-Hardeware aber um einiges schneller. Zudem kannst du damit einfach Partikeleffekte (z.B. für Blut oder Explosionen) erstellen. Allerdings läuft das nicht mit Delphi 3. Allerdings gibt es ja "Turbo Delphi Explorer" bzw. "Lazarus" zum kostenlosen Download.

[olee]

Nun ja ich möchte aber jetzt ungern auf etwas anderes umsteigen.

Immerhin kommt noch was an Code hinzu, was das beschleunigen wird.

Das mit den Partikeln möchte ich aber ganz alleine realisieren, da ich so etwas eh schon mal gemacht habe, und das hat gut funktioniert.

Trotzdem VIELEN DANK!

MFG

[busybyte]

Zitat:

Immerhin kommt noch was an Code hinzu, was das beschleunigen wird.

Da wäre an erster Stelle Deine Kollisionsabfrage,
Du willst unbedingt die Cpu damit belasten,
indem Du pixelweise den Bildschirm abtastest,//edit
aber ist ja nur bei jeder Bewegung. :wall: .

Delphi-Quellcode:

TObj=class(TImageSprite)
public
//Bauplan:TBauplan;
//procedure DoMove(MoveCount: Integer); override;
procedure DoCollision(Sprite: TSprite; var Done: Boolean); override;  //<---
end;

procedure TObj.DoCollision(Sprite: TSprite; var Done: Boolean);
begin
inherited DoCollision(Sprite,Done);
//.
//MeinCode
//.

end;

Bitmap: 2.25MB