DelphiX Frage für Spiel

[tmode00]

Hi, bei der Entwicklung eines Spiels

siehe: Spiel- Thread

bin ich auf ein Problem gestoßen:

In Typ deklerations Bereich habe ich einen typ bauen deklariert:

Delphi-Quellcode:

Type
  Bauen = record
  Feld:Array[1..999]  of byte;
  x:integer;
  y:integer;
  test:byte;
  arraylaufer:integer;
  end;

...dann habe ich vor dem Implementations- Bereich Variablen dieses Types deklariert:

Delphi-Quellcode:

var
  Lager:Bauen;
  Bau:Bauen;

implementation

...dann habe ich einen DxTimer und ein DxDraw Object, sowie eine DxImageList stationiert

...die Bilder für die ImageList habe ich im Bereich OnCreate (des Forms) zugewiesen um
Ladezeit zu sparen:

DXImageList1.Items[1].Picture.Bitmap.LoadFromFile('.\Bilder\Bauen\Lager.bmp'); ...so, nun beinhaltet meine ImageList als erstes Objekt Lager.bmp

...In der OnTimer Przedur--->

procedure TSpielfenster.DXTimer1Timer(Sender: TObject; LagCount: Integer);
begin
DxDraw1.surface.fill(0);
DXImageList.Items[1].Draw(DXDraw1.Surface,0,0,0);
DxDraw1.flip;

//Das Bild 1 an Position 0,0,[patternIndex] auf DXDraw1.surface zeichnen!

end;

Problem:
Ich möchte nun ein PopupMenü Machen, indem man z.B. Kollonisationsschiff anklicken kann und das dann ein -meinetwegen schon oben (onCreate) vorgeladenes- Bild genau wie Lager.bmp auf dem Surface angezeigt wird. Problem ist dass ich es ja nicht einfach in die Timer Routine einbinden kann, da es ja dann immer da währe! Wenn ich das versuche mit Variablen zu Umgehen (if a=1 then zeichne; a:=0; end da es dann nur Blinken würde weil der Videospeicher ja immerwieder geleert wird (oben). Ich brauche also dringend Rat!!

Ps. --> Bitte nicht an kleinigkeiten (wenn mal DxDraw1 oder DxDraw dasteht) hochziehen, ich denke ihr wisst was ich meine!

Tmode00

[tmode00]

Antwort wäre gut!

[Aenogym]

hi,

ich habe keine antwort auf dein problem, aber ich möchte dir einen guten tipp geben:
nutze möglichst wenig records und arrays und möglichst keine globalen variablen!

dein bauen-typ ist an sich schon unglücklich gewählt. ich habe vor einiger zeit mal angefangen, eine kleine echtzeitstrategiespiel-engine zu programmieren (wegen zeitmangel arbeite ich grad nicht dran).
ich schlage dir vor, dass du dir eine klassenstruktur aufbaust. dazu musst du erst einmal überlegen, aus welchen teilen dein spiel bestehen soll.


standardmäßig wären das:

• Der eigentliche Spieler (Mensch bzw. CPU)
• Die Objekte des Spielers:
  • Einheiten
  • Gebäude
• Die Forschungsobjekte
• Die Map

für jedes dieser teile entwickelst du am besten eine eigene klasse. das ganze sollte hierarchisch aufgebaut sein, d.h., die objekte-klasse enthält eine TList, welche referenzen zu den bislang gebauten gebäuden des spielers enthält. eine weitere liste enthält die einheiten, eine liste enthält alle forschungsobjekte usw.
die forschungsobjekte enthalten dann zB noch einen status, ob der spielers sie bereits erforscht hat. in die einheiten und gebäuden wird gespeichert, wie viele hitpoints sie noch haben und wieviele sie maximal haben können...

wenn du eine klare struktur hast, kannst du zB von den parent-klassen der gebäude neue klassen ableiten, die die einzelnen gebäude repräsentieren (also von TChurch über THouse bis THuntingLodge - das ist ja vollkommen dir überlassen). du musst den neuen klassen dann nur noch spezielle eigenschaften geben, da sie allgemeine informationen wie bauzeit oder hitpoints ja von der parent-klasse geerbt haben.

ach, und

Zitat:

Antwort wäre gut!

hört sich nicht ganz so nett an. jeder fragesteller möchte gern eine antwort. und mit einem netteren ton kommt man oft schneller an antworten

viel erfolg,
aenogym

[tmode00]

Entschuldigung für meinen Streng gewählten ton! Aber erstmal vielen vielen Dank, das bringt mich (denke ich) schon viel weiter. Wenn man solche anstöße bekommt, dann weis man auch wie man ambesten eine Lösung für solche Probleme bekommt.
Ich denke ich sollte alles nochmal streng überarbeiten, so von Grund auf
eben alles etwas in Richtung Klassen umstrukturieren. Mein Problem ist
nämlich, das ich am Anfang eigendlich immer recht gut voran komme und dann durch meinen ,,Spaghetticode" durcheinander komme! Fürweitere Hilfen und Konzepte, Anregungen....bin ich trotzdem sehr verbunden!

Ps.: Danke nochmal!

[Aenogym]

Zitat von tmode00:

Entschuldigung für meinen Streng gewählten ton! Aber erstmal vielen vielen Dank, das bringt mich (denke ich) schon viel weiter. Wenn man solche anstöße bekommt, dann weis man auch wie man ambesten eine Lösung für solche Probleme bekommt.
Ich denke ich sollte alles nochmal streng überarbeiten, so von Grund auf
eben alles etwas in Richtung Klassen umstrukturieren. Mein Problem ist
nämlich, das ich am Anfang eigendlich immer recht gut voran komme und dann durch meinen ,,Spaghetticode" durcheinander komme! Fürweitere Hilfen und Konzepte, Anregungen....bin ich trotzdem sehr verbunden!

Ps.: Danke nochmal!

die selben probleme hat wohl jeder anfangs - nur nicht aufgeben

[sniper_w]

Was heir Aenogym schon vorgeschlagen hat, ist zu unterstützen. Denn je weiter du dein Projekt entwickelst, desto schwirieger es sein wird, mit Records klar zu kommen. Also Objekten + Hierarchie = Erfolg .
Ich kann nur von glück reden, dass ich in meinem Projekt(BallonKiller) Objekten benutze.

[Master_RC]

hi leutz!

ich stehe zur zeit auf dem gleichen problem und habe auch diese antwort schon x mal bekommen, nur...

wie geht das mit den klassen?
kann mir da mal jemand ein biespiel geben?

also z.b. wenn man ein Grunditem hat und dann eben eine unterklasse, die meinetwegen die option "extraoption" bekommt, etc.

und wie frage ich dann ab, ob das *ding* dann auch diese eigenschaft hat, etc...

bitte euch um hilfe

[tigerman33]

Hi Master_RC

wenn ich dich richtig verstanden hab willst du halt wissen ob das *ding* (ich denk mal das soll wohl irgendwie ne Variable darstellen ja? ) die Option besitzt.

Mit dem Schlüsselwort is kannst Du abchecken ob eine Variable von einem bestimmten Typ ist. Funktioniert aber nur mit Objekten.

Delphi-Quellcode:

type TGrundoption = class
       ...
     end;
     TExtraOption = class(TGrundoption)
       ...
     end;

function Test(Option: TGrundoption): boolean;
begin
  Result := (Option is TExtraoption);
end;

Die Funktion Test gibt jetzt true zurück wenn der übergebene Parameter vom Typ TExtraOption (oder einem Nachfahrtyp) ist.

Keep it up

[DGL-luke]

und der operator as macht dann dein TGrundobjekt zum Textraobjekt:

Delphi-Quellcode:

if (test(grundobjekt)) then
 (grundobjekt as Textraobjekt).extraoption := 'Extrawurst';

die Variante

TExtraObkejt(Grundobjekt).extraoption existiert auch, arbeitet jedoch ohne Fehlerüberprüfung und wird deswegen nicht empfohlen.

Terminologisch heisst das Verfahren Typecast, das zweite wäre der "harte Typecast".

[Die Muhkuh]

Hi,

wenn du aber schon das schreibst

if (test(grundobjekt)) then dann kannst du auch das drunter schreiben:

TExtraObkejt(Grundobjekt).extraoption da du ja schon den Test gemacht hast.