Spiel Programmieren mit BCB 6
-
Micha ich versteh deine Aufgabe nicht ganz
So ???
//--------------------------------------------------------------------------- #include <vcl.h> #pragma hdrstop #include "jpeg.hpp" #include "Unit1.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma resource "*.dfm" TForm1 *Form1; int backpos=0,shipX=320,shipY=400; bool gegnerda[15]; int gegnerbold = 0; bool GameOver = false; long Punkte = 0; bool fire = false; int firecount = 0; int energy = 100; //--------------------------------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { } //--------------------------------------------------------------------------- void __fastcall TForm1::Button1Click(TObject *Sender) { Form1->Close(); } //--------------------------------------------------------------------------- void __fastcall TForm1::Button2Click(TObject *Sender) { GameOver = false; //Buttons unsichtbar Button1->Visible = false; Button2->Visible = false; Form1->Cursor = crSizeAll; //Bitmaps erstellen Graphics::TBitmap *puffer = new Graphics::TBitmap(); Graphics::TBitmap *backpic = new Graphics::TBitmap(); Graphics::TBitmap *ship = new Graphics::TBitmap(); Graphics::TBitmap *gegnerA = new Graphics::TBitmap(); Graphics::TBitmap *gegnerB = new Graphics::TBitmap(); puffer->Width = 640; puffer->Height = 480; //Grafiken in die Bitmaps laden TJPEGImage *jtemp = new TJPEGImage(); jtemp->LoadFromFile(ExtractFilePath(ParamStr(0))+"back.jpg"); backpic->Assign(jtemp); delete jtemp; ship->LoadFromFile(ExtractFilePath(ParamStr(0))+"ship.bmp"); gegnerA->LoadFromFile(ExtractFilePath(ParamStr(0))+"gegnerA.bmp"); gegnerB->LoadFromFile(ExtractFilePath(ParamStr(0))+"gegnerB.bmp"); //Transparents Einstellung für Schiff und Gegner ship->TransparentColor = clBlack; ship->Transparent = true; gegnerA->TransparentColor = clBlack; gegnerA->Transparent = true; gegnerB->TransparentColor = clBlack; gegnerB->Transparent = true; //Alle Gegner aktivieren for (int w=0;w<16;w++) { gegnerda[w] = true; } DWORD idleTime; bool alleweg; bool treffer = false; int gpos; //Spiel Schleife while (!GameOver) { //Zeit setzten idleTime = GetTickCount() + 50; //Programm Messages abarbeiten Application->ProcessMessages(); //Hintergrund in Puffer zeichnen puffer->Canvas->CopyRect(Rect(0,0,640,480),backpic->Canvas,Rect(0,960-backpos,640,1440-backpos)); backpos++; puffer->Canvas->Brush->Style = bsClear; puffer->Canvas->Font->Color = clYellow; puffer->Canvas->Font->Name = "Arial"; puffer->Canvas->Font->Size = 16; puffer->Canvas->Font->Style << fsBold; puffer->Canvas->TextOutA(20,420,"Idle Time: "+IntToStr(idleTime)); if (backpos == 960) { backpos = 1; } // Shiff reinzeichnen puffer->Canvas->Draw(shipX,shipY,ship); //Laserstrahl wenn fire = true if (fire && firecount<4) { firecount++; puffer->Canvas->Pen->Color = clAqua; puffer->Canvas->PenPos = Point(shipX+39,shipY); puffer->Canvas->LineTo(shipX+39,0); energy = energy - 2; } else if (firecount >=4 && firecount < 20) { firecount++; } else { treffer = false; firecount = 0; } if (!fire) { firecount = 0; if (energy<100) energy++; } //Energie Balken zeichnen puffer->Canvas->Rectangle(20,460,122,470); puffer->Canvas->Brush->Color = clYellow; puffer->Canvas->FillRect(Rect(21,461,21+energy,469)); if (energy <= 0) GameOver = true; //nun kommen noch die Gegner alleweg = true; gpos = 20; gegnerbold++; if (gegnerbold >=30) gegnerbold = 0; for (int r=8;r<16;r++) { if (gegnerda[r]) { alleweg = false; if (firecount > 0 && firecount < 5) { if (shipX+39>=gpos && shipX+39<=gpos+60 && !treffer) { Punkte = Punkte + 10; gegnerda[r] = false; treffer = true; } else { if (gegnerbold<=15) { puffer->Canvas->Draw(gpos,80,gegnerA); } else { puffer->Canvas->Draw(gpos,80,gegnerB); } } } else { if (gegnerbold<=15) { puffer->Canvas->Draw(gpos,80,gegnerA); } else { puffer->Canvas->Draw(gpos,80,gegnerB); } } } gpos = gpos + 70; } gpos = 20; for (int i=0;i<8;i++) { if (gegnerda[i]) { alleweg = false; if (firecount > 0 && firecount < 5) { if (shipX+39>=gpos && shipX+39<=gpos+60 && !gegnerda[i+8] && !treffer) { Punkte = Punkte + 10; gegnerda[i] = false; treffer = true; } else { if (gegnerbold<=15) { puffer->Canvas->Draw(gpos,10,gegnerA); } else { puffer->Canvas->Draw(gpos,10,gegnerB); } } } else { if (gegnerbold<=15) { puffer->Canvas->Draw(gpos,10,gegnerA); } else { puffer->Canvas->Draw(gpos,10,gegnerB); } } } gpos = gpos + 70; } if (alleweg) { for (int i=0;i<16;i++) { gegnerda[i] = true; } } //Punkte Reinschreiben puffer->Canvas->Brush->Style = bsClear; puffer->Canvas->Font->Color = clYellow; puffer->Canvas->Font->Name = "Arial"; puffer->Canvas->Font->Size = 16; puffer->Canvas->Font->Style << fsBold; puffer->Canvas->TextOutA(20,10,"Score: "+IntToStr(Punkte)); //so Spielende bei 640 Punkte mal festlegen if (Punkte >= 640) { GameOver = true; } //Zeit abwarten while (GetTickCount() < idleTime) { Application->ProcessMessages(); } //Puffer auf Form kopieren Form1->Canvas->CopyRect(Rect(0,0,640,480),puffer->Canvas,Rect(0,0,640,480)); } //Speicher Aufräumen delete puffer; delete backpic; delete ship; delete gegnerA; delete gegnerB; //Form wieder ihr Standart Face geben Form1->Canvas->Brush->Color = clBtnFace; Form1->Canvas->FillRect(Rect(0,0,640,480)); //Buttons sichtbar Button1->Visible = true; Button2->Visible = true; Form1->Cursor = crDefault; Punkte = 0; } //--------------------------------------------------------------------------- void __fastcall TForm1::FormKeyDown(TObject *Sender, WORD &Key, TShiftState Shift) { //Wenn q Taste gedrückt, dann Spiel verlassen if (char(Key) == 'Q') GameOver = true; } //--------------------------------------------------------------------------- void __fastcall TForm1::FormMouseMove(TObject *Sender, TShiftState Shift, int X, int Y) { //Schiff position mit MausCursor koordinieren if (X<640 && X>0) shipX = X-39; if (Y>150 && Y<410) shipY = Y-30; } //--------------------------------------------------------------------------- void __fastcall TForm1::FormMouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y) { //Laser an fire = true; } //--------------------------------------------------------------------------- void __fastcall TForm1::FormMouseUp(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y) { //Laser aus fire = false; } //--------------------------------------------------------------------------- void __fastcall TForm1::FormCreate(TObject *Sender) { //Fenster-Buttons deaktivieren, da Exit per Button DeleteMenu(GetSystemMenu(Handle, false), SC_CLOSE, MF_BYCOMMAND); DeleteMenu(GetSystemMenu(Handle, false), SC_MINIMIZE, MF_BYCOMMAND); DeleteMenu(GetSystemMenu(Handle, false), SC_MAXIMIZE, MF_BYCOMMAND); } //---------------------------------------------------------------------------
-
Ag3nt schrieb:
Also was bewirkt folgende Anweisung:
Application->ProcessMessages();Das bewirkt, dass das Programm an dieser Zeile erstmal stehenbleibt und alle Messages, die für das Fenster (die Form) anstehen, abgearbeitet werden. Wenn das für dich wie chinesisch klingt, schau dir mal in den FAQs das Thema "Windows Messages" an.
-
Ahso
Ich dachte BCB macht das von alleine naja auch gut man lernt immer dazu
-
Ag3nt schrieb:
Ich dachte BCB macht das von alleine
Klar. Der schreibt dir auch dein Programm von ganz alleine. Du musst ihm nur deine Wünsche leise und zärtlich zuflüstern.
-
schön wäre es
-
Ag3nt schrieb:
Ahso
Ich dachte BCB macht das von alleine naja auch gut man lernt immer dazu
Ich habe schon mal erwähnt das der BCB eine Entwicklungsumgebung ist und
nichts macht, dein Programm muß dafür sorgen das alles gut läuft.Schaue dir diesen Thread mal an, da habe ich es mal ironisch beschrieben
wie es mit Messages ist:
http://www.c-plusplus.net/forum/viewtopic.php?t=67718Spielgrafiken: Die habe ich mit Bordmitteln von Photo-Impact erstellt.
Die Aufgabe: du sollst die Millisekunden messen, die von der CopyRect
Routine verbraucht wird:
puffer->Canvas->CopyRect(Rect(0,0,640,480),backpic->Canvas,Rect(0,960-backpos,640,1440-backpos));wie man Millisekunden messen kann, erkennt man an der Schleife, bissel
Logic mit rein und du bekommst es hin!gruß Micha
-
Schaue dir diesen Thread mal an, da habe ich es mal ironisch beschrieben
wie es mit Messages ist:
http://www.c-plusplus.net/forum/viewtopic.php?t=67718Ich denke ich habs nun durch den Schnullertest kapiert
Ich glaube ich habs:
while (!GameOver) { //Zeit setzten idleTime = GetTickCount() + 50; //Programm Messages abarbeiten Application->ProcessMessages(); //Hintergrund in Puffer zeichnen puffer->Canvas->CopyRect(Rect(0,0,640,480),backpic->Canvas,Rect(0,960-backpos,640,1440-backpos)); backpos++; puffer->Canvas->Brush->Style = bsClear; puffer->Canvas->Font->Color = clYellow; puffer->Canvas->Font->Name = "Arial"; puffer->Canvas->Font->Size = 16; puffer->Canvas->Font->Style << fsBold; puffer->Canvas->TextOutA(20,420,"Idle Time: "+IntToStr(idleTime)); .....Oder soll es ohne +50 geschehen ???
Mal ne andere Frage: Wo ist die Kolisionsabfrage ???
-
Ich gieb es auf
Die Änderung ist in so fern schon richtig, aber damit erhälst du den Wert
von "int idleTime" dieser Wert ist für die Schleife, der sagt dir aber nicht
die Zeit die diese Funktion benötigt, man macht also:int ZeitMessung; // Neue Variable while (!GameOver) { //Zeit setzten idleTime = GetTickCount() + 50; //Programm Messages abarbeiten Application->ProcessMessages(); //Hintergrund in Puffer zeichnen ZeitMessung = GetTickCount(); //Aktuelle Millisek. Zeit puffer->Canvas->CopyRect(Rect(0,0,640,480),backpic->Canvas,Rect(0,960-backpos,640,1440-backpos)); ZeitMessung = GetTickCount() - ZeitMessung; // Hier Mathe backpos++; ....etc. .....->textOutA(420,10,IntToStr(ZeitMessung)); // Hier schreibenUnd schon hast du den Wert, probiere das mal für den ganzen Schleifenblock.
Und überlege dann was für eine CPU du hast, und wie es wohl auf einen kleineren
hinkommt mit dem Timing!gruß Micha
-
Achso meinst du das
Ich muß dir echt danken. Durch dein Tutorial erstell ich mir grad einen Shooter.
Kannst du mir vielleicht erklären wie man eine simple Kolisionsabfrage macht, wie in deinem Beispielcode ???
Denn das versteh ich immer noch nicht.
Die Bewegung ist klar die Variablen auch sowie die Schleife und die Punkte nur jedoch die Kollisionsabfrage beschäftigt mich
-
Was mach ich hier falsch ???
//--------------------------------------------------------------------------- #include <vcl.h> #pragma hdrstop #include "Unit1.h" #include "jpeg.hpp" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma resource "*.dfm" TForm1 *Form1; // Public Variablen int backpos=0,shipX=300,shipY=400; bool GameOver=false,Fire=false; long Punkte=0; //--------------------------------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { } //--------------------------------------------------------------------------- void __fastcall TForm1::FormKeyDown(TObject *Sender, WORD &Key, TShiftState Shift) { if (char(Key) == 'Q') GameOver = true; } //--------------------------------------------------------------------------- void __fastcall TForm1::Button1Click(TObject *Sender) { Button1->Visible=False; // erstelle Puffer Bilder Graphics::TBitmap *puffer = new Graphics::TBitmap(); Graphics::TBitmap *backpic = new Graphics::TBitmap(); Graphics::TBitmap *ship = new Graphics::TBitmap(); // erstellt Hintergrund backpic->Width=640; backpic->Height=480; TJPEGImage *jtemp = new TJPEGImage(); jtemp->LoadFromFile(ExtractFilePath(ParamStr(0))+"bg.jpg"); backpic->Assign(jtemp); delete jtemp; // erstellt das Shiff ship->LoadFromFile(ExtractFilePath(ParamStr(0))+"ship1.bmp"); DWORD idleTime; // Schleife für das Spiel while (!GameOver) { //Zeit setzten idleTime = GetTickCount() + 50; //Programm Messages abarbeiten Application->ProcessMessages(); // Zeichnet Hintergrund puffer->Canvas->CopyRect(Rect(0,0,640,480),backpic->Canvas,Rect(0,960-backpos,640,1440-backpos)); backpos++; } } //---------------------------------------------------------------------------[C++ Warnung] Unit1.cpp(78): W8004 'idleTime' wurde ein Wert zugewiesen, der nie verwendet wird
-
Du erstellst das backpic (Hintergrund-Welt) mit 640x480, so groß wie das Fenster.
Aber das Fenster (puffer) soll diese Werte erhalten, deine Hintergrundwelt
muß größer sein sonst kann man sie nicht scrollen.
Ich habe ein Bild erstellt mit 640x(2x480) also 640x960 (960 erkennst du den wert)
damit ein flüssiger übergang kommt am ende des bildes, habe ich den unteren Teil
des Bildes nochmals oben dranngesetzt im Grafikprogramm, somit ist das
Ausgangsbild 640x1440 groß.Schaue dir mal in der Hilfe die Funktion Canvas->CopyRect() genauer an, und
auch TRect, welche mit Rect(x1,y1,x2,y2) benutzt werden kann.Kollisionsabfrage:
Schreibe dazu eine eigene Routine, die überprüft ob sich eine X,Y Koordinate
innerhalb eines TRect befindet / und eine die Überprüft ob sich 2 TRect´s
überschneiden. Ist eigentlich sau einfach.Ich habe dazu keine Routinen geschrieben, da ich wie ich sagte das mal so
ebend gecoded habe und für diese Einfachheit es ausreichte.Bevor aber die ganzen Anfänger Fragen wieder kommen:
Aufruf IstTrefferInRect(TRect* quadrat,int X, int Y);
Rückgabe: bool true/false;bool IstTrefferInRect(TRect* quadrat, int X, int Y) { bool treffer = false; if (X >= quadrat.Left && X <= quadrat.Right) { if (Y >= quadrat.Top && Y <= quadrat.Bottom) { treffer = true; } } return treffer; }Nun versuche diese Funktion zum Vergleichen zweier TRects selbst zu schreiben!
gruß Micha
-
Ahso so geht das also.
Besten dank
-
Also ich hab nun 4 Stunden programmiert und foldendes ist Dabei rausgekommen:
http://ag3nt.funpic.de/myProjects/ StarShooter.rar
Bitte wählt manuell StarSooter.rar aus.
Aus Platzgründen konnte ich nicht alle Dateien mit anhängen. Ich hoffe es läuft jedoch auch so bei euch.
Danke nochmals an deinen Coolen Quellcode @promicha schau dir mal meinen an. Ich hoffe ich hab alles richtig gemacht
Das meiste stammt eh von dir Nur der blöde Background will nicht scrolen
Spielanleitung:
Scheißt mit eurem Shiff die Gegner ab
Dafür bekommt ihr 10 Punkte Mit der Maus lenkt ihr euer Shiff und schießen könnt ihr über die erste Maustaste Puh war das heute ein C++ Kurs
Ich geh mal pennen und werd dann naher weiter progen sonst erschießt mich noch meine Freundin *g*Aber sagt mal was ihr davon haltet