Space Invaders WE Projekt

[six1]

..weil ich Space Invaders schon immer cool fand, habe ich ein paar freie Stunden genutzt, etwas ähnliches zusammenzuhämmern.
Ist nichts Beonderes, das ganze Spiel wird über einen 40ms Timer verarbeitet.
Also bitte nichts perfektes, großartiges, große Programmierkunst oder ähnliches erwarten... Quick & Dirty
Ich habe 9 Level eingebaut, wobei in die Einstellungen der Level keine große Zeit eingeflossen ist.
Es handelt sich bei den Level Einstellungen um eine Liste Parameter (im Programm leicht erweiterbar!), welche Einfluß auf die Anzahl Defens (Bunker), Anzahl Aliens,
Anzahl Schüße, Geschwindigkeiten der Gun und des Alien Mutterschiff haben usw.
Bisschen kommentiert habe ich es... kleines bisschen

Cursor "<" und ">" für GUN Steuerung
Leertaste zum Feuern (oder Cursor UP, falls die Leertaste durch ist )

STRG-S schaltet den Sound ab
STRG-P hält den Spielverlauf an (Pause)
STRG-? Cheat Mode, wobei es NICHT das "?" ist!
ESC beendet Level und auch das Spiel

Zusätzlich kann man das Programm sich automatisch an anderen Programmen positionieren lassen, falls man es als Easteregg verwenden möchte.
Hierzu in der Variable "ExternesProgramm" die Caption des externen Programm angeben und evtl. die Positionen zu diesem Programm anpassen.
Man sollte dann aber den FormStyle auf fsSystemStayOnTop verwenden!

Einfach mal so alles abballern unter WIN
Edit: Mittlerweile habe ich Compilerschalter eingebaut und es erfolgreich für Linux i386, ARM Hardfp und Win i386 kompiliert. Läuft also auch auf einem Raspi

Ich habe die Komponente "UniqueInstance" und DCPCrypt verwendet! Lässt sich über OnlinePackageManager installieren.
ShapeCorner, ein TShape mit "runden Ecken", wobei die Rundung einstellbar ist.

ShapeCorner.zip

(70.21 KiB) 186-mal heruntergeladen

Ansonsten alles von der Stange; Lazarus default. Es muss allerdings FPC >= 3.2 sein, da ich DELETE für Arrays einsetze.

Falls ihr es mögt, hinterlasst eine Nachricht und vielleicht hat jemand Lust bekommen, sich an einem Horizontal Scroll Spiel zu versuchen?

(Copyright Datei BASS liegt bei, Pictures und Music frei verfügbar)

Update: 23.12.2021
Sourcen jetzt auf GIT

https://github.com/six1/SpaceInvaders.git

Image25.png (596.72 KiB) 7572 mal betrachtet

[af0815]

+1

Ev. Github oä. für die Sourcen?

[theo]

Geht das auf Linux?
Wo gibt es Package NewShape bzw. Unit ShapeCorner? Kann ich nicht finden.
Danke.

[six1]

Ahhgrrr.. NewShape habe ich mal selbst gezimmert... normales Shape mit abgerundeten Ecken (Rundung einstellbar)...
Habe es oben eingefügt.

Ich denke, es sollte auf Linux laufen, wenn du die BASS Librarys ins /usr/lib legst. Musst du dir auf der BASS Seite runterladen
https://www.un4seen.com/

[theo]

OK, Danke.

Kompiliert so direkt leider nicht auf Linux (uses Windows).
FindWindow etc..

[six1]

Ok, es liegt bestimmt daran:

kommentiere Windows in den Uses aus

Nimm die ganze Routine raus:
procedure TForm1.PositionWindow;

Kommentiere folgendes aus:
MessageBox(0,'An incorrect version of BASS.DLL was loaded',nil,MB_ICONERROR);

[theo]

Ja,. hab's soweit hingekriegt.
Allerdings gab es in der lpr noch "jwawinGDI" und AddFontResourceEx. Habe ich ersatzlos gestrichen.
BASS_Init mit Nil statt "Handle".
In die uses noch LCLIntf, LCLType dann läuft's.
MessageBox kann man drin lassen.
Danke!

EDIT: Die "Assets" muss man sich bei der Source Zip noch holen vom Program Zip und die Pfade (Backslashes) noch anpassen, damit es tönt:

Code: Alles auswählen

 f := PChar(extractfilepath(application.exename)+'Assets/Audio/01-opening-theme.mp3');  

EDIT2: Yes, ist fast wie früher....

[siro]

C O O L . . . mit Sounds

mir gefällt es sehr, erinnert mich an alte Zeiten.

Siro

[HobbyProgrammer]

Ok, es liegt bestimmt daran:

kommentiere Windows in den Uses aus

Nimm die ganze Routine raus:
procedure TForm1.PositionWindow;

Kommentiere folgendes aus:
MessageBox(0,'An incorrect version of BASS.DLL was loaded',nil,MB_ICONERROR);

Wenn Du bedingte Kompilierung verwendest

Code: Alles auswählen

{$ifdef LINUX}
{$else}
{$endif}

kannst Du die jeweiligen Plattformen direkt im Quellcode entsprechend richtig behandeln.

[six1]

...schon klar... bin gerade dabei das für Linux i386 und Arm zu fixen.
War ja ursprünglich nur für Win10 gedacht

[six1]

Ok, ich habe die Bedingungen alle drin und Binaries für Linux ARM (RASPI HardFloat), Linux i386 und Windows 32 Bit gleich dazu gepackt.

Bei der RASPI ARM Version einfach aus beiliegendem Verzeichnis BASSArm unter HardFP die Dateien in /usr/lib kopieren (sudo!)
Sind wie üblich ein paar graphische Anpassungen zu tätigen... aber läuft auf Raspi

Der obige Souren Link enthält alles, incl. Binaries...

Edit: und die Slashes habe ich nun auch korrigiert

[Winni]

Hi!

Wenn das man erlaubt ist. Das macht süchtig!

Und dann kam der Atari ST und mit ihm ein neues Universum:

Starglider

Mit guter Graphik und sehr gutem Sound.
Man wollte zeigen was der Atari so kann.
Überall in den Büros waren sie dabei, das Universum zu retten!

Winni

[Winni]

Hi!

Leerer String beim Eintrag in die Hall of Fame ergibt ne Exception.

Winni

[six1]

ups... kann ich leider nicht nachvollziehen...
wäre gut, wenn du das heraus bekommst, woran es liegt.
Falls ja, teile mir bitte mit, woran es lag, damit ich es einpflege.

[sstvmaster]

Danke für das Spiel.

Da mein Laptop auf 125% Anzeige steht habe ich erst nix gesehen von den Invaders.
Bei 100% funktioniert aber Tadellos.