BallonKiller - SourceCode freigegeben... :)

[sniper_w]

Hier ist scourcecode von BallonKiller. Das Projekt befindet sich in einer "Pause". Weiterentwicklung und Vorschläge sind erwünscht. Ich übernehme keine Haftung für den Code, macht ihr was ihr wollt.

UPDATE:
Also hier ist ein kleines Update of Sources...Es ist jetzt kleiner geworden, weil ich auf VCL verziechtet habe. Es ist also puer Win32 API. Dabei musste ich folgendes selbst implementieren:
TMyStringList
TMyTimer
StrToInt
IntToStr
ExtractFilePath
CurrentDateToString
BoolToStr

Noch was: Im Code gibt es meinerseits keine globale Variable.

Quellcode VCL (150 KB)

[turboPASCAL]

Fehler beim compilieren

...Datei nicht gefunden 'ast.inc'
...Datei nicht gefunden 'ScreenMenager.pas'

Kannst Du die Files bitte noch mit einpacken ?

[sniper_w]

Aber natürlich...

[turboPASCAL]

:thumb: Danke.

[Rastaman]

Die Anwendung konnte nicht gestartet werden, da fmod.dll nicht gefunden wurde :gruebel:

[turboPASCAL]

Folge dem Link BallonKiller dort das File Downloaden und du erhälltst die ben. Textures, Sounds und auch die fmod.dll.

[sniper_w]

Eine kleine Anmerkung, die Units "glUserinterface.pas, glMenu.pas" können aus dem Projekt entfernt werden, sie werden sowieso nicht gebraucht.

[turboPASCAL]

@sniper_w :thumb: dolle Sache das ...

[Rastaman]

Das ja ma n digges Ding :thumb:
Auch wenn ich nich weiß wer durch den source noch durchsteigen soll :lol:

[sniper_w]

Ich kann´s noch immer, aber sehr schwer... :zwinker:

[mimi]

ich finde der qullcode sieht garnicht so schnlecht aus, wenn ich wollte müste ich sehr schnell die funktionen finden die ich suche, habe mir ja schon häufiger solche qullcode angeschaut... selten sind da so "aufgeräumte" bei :-D

(das spiel macht auch spaß)

[sniper_w]

Zitat:

selten sind da so "aufgeräumte" bei

Ich habe mich was 100% an da StyleGuid von jemandem gehalten, weil a) ich kann mich leicht zu recht finden, b) wollte es auch veröffentlichen.

Ich warte noch immer auf Verbesserungsvorschläge, das Projek habe ich nicht aufgegeben. :wink:

[turboPASCAL]

Zitat:

Zitat von sniper_w

Ich warte noch immer auf Verbesserungsvorschläge, das Projek habe ich nicht aufgegeben. :wink:

Schön zu hören. :thumb:

Verbesserungsvorschläge:
- die Menues bzw. Dialoge beim Programmstart sind Transparent, das stört wen diese Dialoge übereinander liegen
> versetzen oder den darunter liegenden abdunkeln

- habe eine kleine Ewigkeit gebraucht um zu verstehen dass man die Dialoge auch verschieben kann
> Titelleiste wäre nett

- die An- und Abwahlmöglichkeiten sind mit einem Kreutz markiert, das ist nicht geschickt da man erst denkt diese wären nicht aktiv
> Häkchen verwenden oder anders verständlicher machen

im Spiel:
- den Punktezähler wurde ich grösser machen und in die linke obere Ecke setzen
- die Raketen etwas grösser machen
- die Leiste unten ganz weglassen
- Schildanzeige etwas grösser bzw. breiter

...und ich wünsche mir dass wen nman auf der Tastatur Cursor Down drückt das UFO bremst.

nice game

[sniper_w]

Zitat:

habe eine kleine Ewigkeit gebraucht um zu verstehen dass man die Dialoge auch verschieben kann

Hast du das im Code entdeckt oder zufällig im Speil ? :wink:

[turboPASCAL]

Im Spiel (mit den Einstellungen kam ich nicht gleich klar...), den Code hab ich nur mal durchgeschaut. :mrgreen:

[mimi]

achaj wo du das jetzt so schreibst: die items fliegen finde ich zu schnell die können kaum eingesammelt werden :(

[sniper_w]

Delphi-Quellcode:

constructor TPowerUp.Create(AOwner:TActorList);
begin
  FAOwner := AOwner;
  FAOwner.Add(Self);
  IsDead := False;
  Parent := nil;
  FDirectionAngle := Random(360);
  FRotZ := Random(360);
  FRadius := AdjustValueS(sqrt(2*sqr(32))/4);
  FSpeed := AdjustValueS(100 + Random(300));
  FActorType := atPoweUP;
end;

Du hast Source, Luke ;). Ändere FSpeed...

[sniper_w]

UPDATE: Bitte ersten Beitrag lesen...