![]() |
Autorennen Spiel (mein 2 Projekt)
Liste der Anhänge anzeigen (Anzahl: 4)
Autorenne
Hab jetzt mal mein 2. Anfänger Programm fertiggestellt, naja ist zwar ein Spiel und kein Programm aber egal :wink:. Das Spiel ist eine kleines Autorennen Spiel, man Steuert das blaue Auto und muss den entgegen kommenden Autos ausweichen. So das Spielprinzip ist schon mal ganz einfach genau wie die Steuerung, wenn man das Spiel gestartet hat drückt man entweder auf die Leertaste um das Spiel zu starten oder die F1 Taste um sich die Highscoreliste an zugucken. Das Auto kann man mit den Pfeiltasten links und rechts Steuern. Wenn man die 3 Leben verbraucht hat kann man sich aussuchen ob man es noch mal spielen will oder das Spiel jetzt beenden will, danach kann man sich in die Highscoreliste eintragen. Noch was zur Steuerung, wenn man in eine Richtung gelenkt hat kann man so lange nicht zurück lenken bis der Wagen auf der anderen Spur zum stehen gekommen ist, das hab ich extra so gemacht, weil es sonst zu leicht währe. Während der Startcountdown runter zählt kann man das Auto noch gar nicht Lenken, erste wen der Countdown weg ist. Das Spiel gibt es jetzt in zwei verschiedenen Versionen einmal eine OpenGL Version für die einen OpenGL 1.1 fähige 3D Grafikkarte benötigt wird und einmal eine Version ohne OpenGL. Systemanforderungen für die normale Version: :arrow: Windows 98 – XP :arrow: 1 Ghz CPU Zum kompilieren aus dem Sourcecode, für die normale Version, wird noch ![]() Systemanforderungen für die OpenGL Version: :arrow: 3D Grafikkarte mit Unterstützung für mindestens OpenGL 1.1 :arrow: 800 Mhz CPU :arrow: Windows 98 - XP Um den Sourcecode der OpenGL Version zu kompilieren braucht ihr ![]() Ich empfehle euch die OpenGL Version, da diese viel flüssiger als die normale Version läuft. |
Re: Autorennen Spiel (mein 2 Projekt)
Hi!
Sieht schon mal ganz lustig aus... ;) Aber die Steuerung musst du noch überarbeiten. Wenn man aus versehen zu früh die Straßenseite wechselt, rasselt das Auto gnadenlos in die anderen, obwohl man (verzweifelt) versucht, zurück zu lenken... Das macht mich... :freak: Chris |
Re: Autorennen Spiel (mein 2 Projekt)
Zitat:
|
Re: Autorennen Spiel (mein 2 Projekt)
:hi:
Finde es gut gelungen. Auch die Steuerung ist einleuchtend, weil es sonst wohl zu einfach wäre. Du solltest nochmal drüberlesen. Es sind ein paar seltsame Formulierungen und Rechtschreibfehler (Vertipper?) zu sehen. Ansonsten :thumb: Edit: Es wäre gut, wenn man während das Spiel läuft nicht F1 drücken kann, sonst läufts im Hintergrund weiter, das ist quasi schlecht ^^ - Eine Pause-Funktion wäre auch nicht schlecht, falls mal der Chef reinkommt ;) Edit2: Du könntest das Spiel pausieren lassen, wenn das Hauptfenster den Fokus verliert. |
Re: Autorennen Spiel (mein 2 Projekt)
Zitat:
|
Re: Autorennen Spiel (mein 2 Projekt)
Wenn die Steuerung so gewollt ist, dann ist's gut gelungen... ;)
Ich hab' schon über 700 Punkte gesammelt *sucht* Viele Grüße, CyK |
Re: Autorennen Spiel (mein 2 Projekt)
1525 punkte :-D
|
Re: Autorennen Spiel (mein 2 Projekt)
Hi
Ich habe gerade ein Problem dabei die Pause procedure zu schreiben also mein Code schaut so aus
Delphi-Quellcode:
Bevor ich die Timer deaktiviere Speicher ich den Status ob sie zur Zeit aktiv oder nicht aktiv sind in den variablen, aber wenn ich dann die variablen wieder zu den Timer setzten will passiert nichts dann ist zB. FahrtTimer.Enabel immer noch auf Flase. Hat das vielleicht was damit zu tuen das in der variablen anstatt True und False nur -1 und 0 gespeichert werden. Oder gibt es vielleicht irgendein befehl mit dem man das ganze Fenster Pausieren kann?
procedure TForm1.Pause;
var ft, lt, l, r, st: Boolean; begin ft:= FahrtTimer.Enabled; lt:= LevelTimer.Enabled; l:= Links.Enabled; r:= Rechts.Enabled; st:= StartTimer.Enabled; if BolPause = False then begin BolPause:= True; FahrtTimer.Enabled:= False; LevelTimer.Enabled:= False; Links.Enabled:= False; Rechts.Enabled:= False; StartTimer.Enabled:= False; end else begin BolPause:= True; FahrtTimer.Enabled:= ft; LevelTimer.Enabled:= lt; Links.Enabled:= l; Rechts.Enabled:= r; StartTimer.Enabled:= st; end; end; :wall: Hab den Fehler entdeckt muss die Variablen las globale deklarieren :-D |
Re: Autorennen Spiel (mein 2 Projekt)
Nettes kleines Ding :thumb:
Währe allerdings nett, wenn er sich beim weiterspielen den Highscore merken könnte. Also nicht alle sondern nur den Höchsten Score... evtl. einfach per max(a,b) |
Re: Autorennen Spiel (mein 2 Projekt)
Wie wär's, wenn man auf ein anderes Auto drauffährt, dass dann so Bremsgeräusche kommen und dann so Unfallkrach. :mrgreen:
|
Re: Autorennen Spiel (mein 2 Projekt)
Zitat:
|
Re: Autorennen Spiel (mein 2 Projekt)
Vllt hast du ja ne kleine Schwester, die schafft das sicher :)...
Wenn nicht mal Googlen... ich schau auch mal! :zwinker: |
Re: Autorennen Spiel (mein 2 Projekt)
Schau mal
![]() |
Re: Autorennen Spiel (mein 2 Projekt)
Liste der Anhänge anzeigen (Anzahl: 1)
Hi Blink,
ich finde dein Spiel echt klasse! Macht irgendwie schon süchtig ;-) allerdings hab ich da so ein kleines Problem mit den Autos - Schau dir einfach mal das Bild im Anhang an... Mein Internetrechner ist halt nur nen Win98SE *G* Und man merkt ganz schön wenn nen anderes Programm grad Startet oder so - dann geht die Geschwindigkeit richtig in den Keller ;-) und dein Programm kommt nicht damit klar wenn man Cheatet und die ini von Hand abändert und dann z.B.
Delphi-Quellcode:
da draus macht - per F1 zeigt er es auch an - aber wehe man spielt und will sich dann eintragen -
[1]
Name= Light Punkte=2232 [2] Name=Light Punkte=9999 [3] Name=Light Punkte=02 [4] Name=Name Punkte=0 ... dann gibts plötzlich unerklärliche Zugriffsverletzungen :duck: vielleicht würde da ein Try Finally Blog oder so was helfen *g* Leuchtende Grüße Stefan |
Re: Autorennen Spiel (mein 2 Projekt)
Wer nicht cheaten will, muss nicht cheaten :mrgreen:
P.S.: Die Autos sind schon stylisch |
Re: Autorennen Spiel (mein 2 Projekt)
Zitat:
|
Re: Autorennen Spiel (mein 2 Projekt)
Hi Blink,
also habs grad nochmal ausprobiert - es liegt wahrscheinlich gar nicht an der veränderten INI sondern an einem 0-Problem: Wenn du einfach drei mal direkt an das jeweils erste Auto fährst - also absolut 0punkte hast - dann weiß er nix damit anzufangen^^ Und noch eine kleine Bitte: - in dem Edit Feld für den Namen die Entertaste abfragen und damit den OK-Button betätigen - ich bin ein Tastatur mensch - und sonst muss ich immer erst zur Maus greifen^^ Wieso diese Fehler in den Bildern auftauchen weiß ich auch nicht! was sind das für Bilder? und wo holst du diese her? vielleicht liegt es daran irgendwie... Leuchtende Grüße Stefan |
Re: Autorennen Spiel (mein 2 Projekt)
Zitat:
zu den Grafiken die mach ich selbst :mrgreen: und die Grafiken von den Autos sind 256 Farbe Bitmaps; |
Re: Autorennen Spiel (mein 2 Projekt)
So, habe jetzt mal die Grafiken gegen PNGs ersetzt. Sag mir bitte bescheid ob es Unter Win 98 jetzt ohne Grafikfehler klappt.
|
Re: Autorennen Spiel (mein 2 Projekt)
Hallo Blink
find das spiel ziemlich gut, mich würde nur interresieren ob die anderen Autos alle stehen sollen?? also der Hintergrund bewegt sich genausoschnell wie die Autos. Ich finde irgendwie das die anderen Autos auch fahren sollten, aber angsamer als das was man steuert. Grüße Max |
Re: Autorennen Spiel (mein 2 Projekt)
Zitat:
|
Re: Autorennen Spiel (mein 2 Projekt)
Liste der Anhänge anzeigen (Anzahl: 1)
Hi,
ich hab 'nen Grafikbug entdeckt (bei "Große Schhriftarten" Einstellung von Windows). Fix: Einfach im Objektinspektor bei "Scaled" false eintragen. Ansonsten gelingt es mir nicht, zwischen zwei nebeneinander fahrenden Autos durchzufahren. Hinter ihnen halten geht auch nicht. Was soll ich nur tun? Kann man einen davon irgendwie eliminieren? Mfg FAlter |
Re: Autorennen Spiel (mein 2 Projekt)
Hi Ihr,
ja es funktioniert jetzt ohne Probleme! Die Autos sind jetzt auch unter Win98 richtig ;-) Und der Sound ist auch klasse ;-) @Falter ich tippe mal das es eigentlich nie passieren dürfte das zwei Autos nebeneinander stehen^^ - --> eigentlich halt..... Leuchtende Grüße Stefan |
Re: Autorennen Spiel (mein 2 Projekt)
@Falter Kannst du das mit dem Scaled noch mal genauer erklären finde ich nämlich nicht ist das vielleicht das selbe wie Auto Size? und mit den 2 Autos die neben einander stehen Hmm... das dürfte eigentlich überhaupt nicht passieren das sich die Autos alle mit gleicher Geschwindigkeit bewegen, also unmöglich ausehr es kommtne Fehlermeldung.
@Light Danke fürs Testen :), Ja und der Sound, naja ist nur einer wollte eigentlich auch noch Fahrtgeräusche nur hab ich kein plan wie ich das in einer dauer schleife dann abspielen lassen kann. Mit
Delphi-Quellcode:
hält dann das ganze Spiel an oder gibts noch eine andere Möglichkeit Ressourcen schonend Sounds abzuspielen?
sndPlaySound(PChar('Sound.wav'),SND_LOOP);
|
Re: Autorennen Spiel (mein 2 Projekt)
Liste der Anhänge anzeigen (Anzahl: 1)
Hallo,
zum Anfang war dein Auto gar nicht zu beherrschen. Entweder lenkte es gar nicht oder es fuhr immer von einer Seite zur anderen. Der Timer für Links und für Rechts sind ja fast immer zusammen an. Ich habe noch folgenden Code hinzugefügt:
Delphi-Quellcode:
Danach konnte man das Auto ganz gut lenken. Aber dann war es wohl schon zu einfach, denn dann konnte man immer ganz locker auf dem Mittelstreifen unfallfrei fahren. :)
procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState); begin if Key = VK_Left then Links.Enabled:= false; if Key = VK_Right then Rechts.Enabled:= false; end; Wenn ich dein Programm unter Win98 beendete, kam immer eine Fehlermeldung.(siehe Anhang) EDIT: mit den ganzen Timern funktioniert das irgendwie nicht richtig. Wenn man lenkt wird das Auto gleich langsamer. Ich habe die beiden Timer für Links und rechts runter geschmissen und bei FahrtTimer folgendes hinzugefügt:
Delphi-Quellcode:
Jetzt lief bei mir alles problemlos.
procedure TForm1.FahrtTimerTimer(Sender: TObject);
begin if (ASpieler.Left < 128) and (GetAsyncKeyState(VK_RIGHT)< 0) then ASpieler.Left:= ASpieler.Left + ges; if (ASpieler.Left > 40) and (GetAsyncKeyState(VK_LEFT)< 0) then ASpieler.Left:= ASpieler.Left - ges; // Bewegt die Strasse |
Re: Autorennen Spiel (mein 2 Projekt)
Zitat:
Zitat:
Zitat:
|
Re: Autorennen Spiel (mein 2 Projekt)
Hi
Habe jetzt mal ein paar Verbesserungen durchgeführt un ich hoffe mal das ich jetzt auch den Fehler unter Windows 98 behoben habe (kommt eine Fehlermeldung wenn man das Spiel beendet), währe froh wenn mir jemand berichten könnte ob der Fehler weg ist. |
Re: Autorennen Spiel (mein 2 Projekt)
:hi:
hübsch :mrgreen: Zwei kleine Anmerkungen: "Spiel starten" ist besser als "Spielstarten", wenn das überhaupt richtig ist ^^ In dem MsgDlg in dem Du nach dem, Eintragen in die Highscore bzw. nach einem neuen Spiel fragst, steht ein "dann" mit nur einem 'n' |
Re: Autorennen Spiel (mein 2 Projekt)
[OT]
Zitat:
[OT] |
Re: Autorennen Spiel (mein 2 Projekt)
Zitat:
Delphi-Quellcode:
denn wenn ich es so mache, dann kommt am Ende kein Fehler mehr.
procedure TForm1.FormCreate(Sender: TObject);
var ini: TIniFile; dpath: string; begin DoubleBuffered:=True; Randomize; dpath:= ExtractFilePath(ParamStr(0)); BolPause:= False; // Grafiken laden try (* Strasse1.Picture.LoadFromFile(dpath + 'Grafik\st.png'); Strasse2.Picture.LoadFromFile(dpath + 'Grafik\st.png'); AGelb.Picture.LoadFromFile(dpath + 'Grafik\age.png'); AGelb2.Picture.LoadFromFile(dpath + 'Grafik\age.png'); ARot.Picture.LoadFromFile(dpath + 'Grafik\ar.png'); ARot2.Picture.LoadFromFile(dpath + 'Grafik\ar.png'); AGrun.Picture.LoadFromFile(dpath + 'Grafik\agr.png'); ASpieler.Picture.LoadFromFile(dpath + 'Grafik\ab.png'); *) except Selbst wenn ich nur ein Bild lade, kommt am Ende die Fehlermeldung. Kann ja auch sein, dass es nur bei mir so ist. Auf jeden Fall lenkt das Auto in der neuen Version bei mir praktisch überhaupt nicht. Höchstens wenn ein paar mal application.ProcessMessages aufgerufen wurde ging es so einiger massen. |
Re: Autorennen Spiel (mein 2 Projekt)
Zitat:
|
Re: Autorennen Spiel (mein 2 Projekt)
Zitat:
Zitat:
|
Re: Autorennen Spiel (mein 2 Projekt)
Hi,
Zitat:
Zitat:
Delphi-Quellcode:
Mfg
sndPlaySound(PChar('Sound.wav'), SND_LOOP or SND_ASYNC);
FAlter |
Re: Autorennen Spiel (mein 2 Projekt)
Zitat:
|
Re: Autorennen Spiel (mein 2 Projekt)
Hi
Habe jetzt mal die Grafiken und den Sound in die EXE Datei integriert, womit ich auch hoffe das jetzt keine Fehlermeldung mehr bei Win 98 kommt, da die Grafiken jetzt anders geladen werden. Währe froh wenn das mal einer Testen könnte, habe leider mein Windows 98 CD nicht finden können und somit kann ich es nicht selbst Testen. |
Re: Autorennen Spiel (mein 2 Projekt)
Liste der Anhänge anzeigen (Anzahl: 1)
Bei der neuen Version gibt es einen Fehler:
Wenn man in eine Richtung, also lnks oder rechts fährt und während dem fahren in die andere Richtung lenkt bleibt er in der Mitte dort stehen und wakelt hin und her (siehe Anhang) Grüße Max |
Re: Autorennen Spiel (mein 2 Projekt)
Zitat:
|
Re: Autorennen Spiel (mein 2 Projekt)
Liste der Anhänge anzeigen (Anzahl: 1)
Zitat:
der Fehler ist zumindest bei mir immer noch da, ich habe aber herausbekommen, wo er herkommt. Der Fehler entsteht in der pngimage.pas ein Bild davon habe ich angehängt. |
Re: Autorennen Spiel (mein 2 Projekt)
Vergesst Counter Strike und Battlefield jetzt wird Rennen gespielt. :-D
Dein 2 Projekt? Respekt... :thumb: :thumb: :thumb: |
Re: Autorennen Spiel (mein 2 Projekt)
Zitat:
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 13:41 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz