Tutorial Bomberman1 - Versionsgeschichte

Mathias: /* Zeichnen der Szene (TForm1.ApplicationEvents1Idle) */

2018-07-15T21:18:32Z

‎Zeichnen der Szene (TForm1.ApplicationEvents1Idle)

2018-07-15T21:18:05Z

‎Spielfelder mittels des Mauszeigers auswählen (aka Selection)

2018-07-15T21:16:02Z

‎OpenGL initialisieren (TForm1.FormCreate)

2018-07-15T21:15:20Z

‎OpenGL initialisieren (TForm1.FormCreate)

2012-03-21T14:59:18Z

Ausser -> Außer

2009-05-17T09:01:46Z

Der Ausdruck ''\{\{DateiLink\|'' wurde ersetzt mit ''{{ArchivLink|''.

2009-05-03T09:09:22Z

Abschnitt "Dateien" hinzugefügt.

2009-03-10T18:11:38Z

Der Ausdruck ''<pascal>(.*?)</pascal>'' wurde ersetzt mit ''<source lang="pascal">$1</source>''.

2007-05-24T22:20:05Z

‎Schlusswort

2005-12-22T14:43:52Z

‎Einen Texturenmanager (TTextureManager)

@@ Zeile 282: / Zeile 282: @@
 <source lang="pascal">if MouseLeft then
- if Assigned(SelField) then
+  if Assigned(SelField) then
    begin
-  SelField^.Texture := Form2.TextureCombo.Items[Form2.TextureCombo.ItemIndex];
+    SelField^.Texture := Form2.TextureCombo.Items[Form2.TextureCombo.ItemIndex];
-  SelField^.FType   := Form2.FieldTypeCombo.ItemIndex;
+    SelField^.FType   := Form2.FieldTypeCombo.ItemIndex;
    end;</source>
@@ Zeile 303: / Zeile 303: @@
 ::Rechte Maustaste : Kontextmenü mit Spezialfeldern aufrufen
 ::+/- : Spielfeld rotieren
 ==Schlusswort==

@@ Zeile 254: / Zeile 254: @@
 Die erste Zeile schaltet jetzt wieder in den normalen Rendermodus. Allerdings liefert uns OpenGL jetzt (da wir uns vorher im Selectmodus befanden) die Anzahl der getroffenen Objekte zurück. Die zwei nachfolgenden Zeilen initialisieren die Variablen vor, mit deren Hilfe wir später herausfinden welches Objekt dem Mauszeiger am nächsten liegt.
-<source lang="pascal">for i := 0 to Hits-1 do
+<source lang="pascal">for i := 0 to Hits - 1 do
- if SelectBuffer[(i*4)+1] < HitZValue then
+  if SelectBuffer[i * 4 + 1] < HitZValue then
    begin
-  Hit       := SelectBuffer[(i*4)+3];
+    Hit       := SelectBuffer[i * 4 + 3];
-  HitZValue := SelectBuffer[(i*4)+1];
+    HitZValue := SelectBuffer[i * 4 + 1];
    end;
 Result := Hit;</source>

@@ Zeile 187: / Zeile 187: @@
 <source lang="pascal">TextureManager.AddTexturesInDir('textures', '*.tga');
-for i := 0 to TextureManager.TextureName.Count-1 do
+for i := 0 to TextureManager.TextureName.Count - 1 do
    Form2.TextureCombo.Items.Add(TextureManager.TextureName[i]);
 ChDir(ExtractFilePath(Application.ExeName));
@@ Zeile 194: / Zeile 194: @@
 for i := Low(SpecialTexName) to High(SpecialTexName) do
 begin
-   SpecialTex[i] := TglBMP.Create('textures\special\'+SpecialTexName[i]);
+   SpecialTex[i] := TglBMP.Create('textures\special\' + SpecialTexName[i]);
    SpecialTex[i].GenTexture(False, False);
 end;</source>

@@ Zeile 188: / Zeile 188: @@
 <source lang="pascal">TextureManager.AddTexturesInDir('textures', '*.tga');
 for i := 0 to TextureManager.TextureName.Count-1 do
- Form2.TextureCombo.Items.Add(TextureManager.TextureName[i]);
+  Form2.TextureCombo.Items.Add(TextureManager.TextureName[i]);
 ChDir(ExtractFilePath(Application.ExeName));
 SetLength(SpecialTex, Length(SpecialTexName));
 for i := Low(SpecialTexName) to High(SpecialTexName) do
- begin
+begin
- SpecialTex[i] := TglBMP.Create('textures\special\'+SpecialTexName[i]);
+  SpecialTex[i] := TglBMP.Create('textures\special\'+SpecialTexName[i]);
- SpecialTex[i].GenTexture(False, False);
+  SpecialTex[i].GenTexture(False, False);
- end;</source>
+end;</source>
 Im ersten Block sagen wir dem Texturenmanager das er alle TGA-Dateien im Unterordner {{INLINE_CODE|textures}} in den Texturenpool laden soll. Ich verwende das TGA-Format deshalb, da es eines der wenigen Formate (neben PNG) ist, das einen Alphakanal unterstützt. Mehr zu diesem Alphakanal und seiner Anwendung gibts ineinem späteren Tutorial (Kleiner Hinweis : Alphamasking). Gleichzeitig fügen wir noch alle Texturennamen in die ComboBox im Toolfenster ein, damit wir diese später bequem zuweisen können.

@@ Zeile 88: / Zeile 88: @@
 ===Das Spielfeld (TMap)===
-Der nächste Baustein unserer Codebasis repräsentiert das Spielfeld auf dem die Aktion stattfindet. Viel zu bieten hat diese Klasse momentan, ausser einer Zeichenprozedur und einige Editorprozeduren noch nicht viel, was sich aber in naher Zukunft noch ändern wird.
+Der nächste Baustein unserer Codebasis repräsentiert das Spielfeld auf dem die Aktion stattfindet. Viel zu bieten hat diese Klasse momentan, außer einer Zeichenprozedur und einige Editorprozeduren noch nicht viel, was sich aber in naher Zukunft noch ändern wird.
 Hier also Prozeduren und Variablen des Spielfelds :

@@ Zeile 314: / Zeile 314: @@
 == Dateien ==
-* {{DateiLink|file=tut_NapalmBomber1_vcl‎|text=Quelltext des Editors mit Windows Binaries}}
+* {{ArchivLink|file=tut_NapalmBomber1_vcl‎|text=Quelltext des Editors mit Windows Binaries}}
 {{TUTORIAL_NAVIGATION| - | [[Tutorial_Bomberman2]]}}
 [[Kategorie:Tutorial|Bomberman1]]

@@ Zeile 311: / Zeile 311: @@
 Euer
-:'''Sascha Willems'''(webmaster@delphigl.de)
+:'''Sascha Willems'''
 <br><br>

@@ Zeile 57: / Zeile 57: @@
 Deshalb schreiben wir uns einen kleinen aber sehr nützlichen Texturenmanager, mit dessen Hilfe wir alle Texturen in einem Verzeichnis zur Laufzeit in den Texturenpool laden können, und der Texturen nicht anhand ihrer Position im array bindet, sondern auf diese mit einer Stringlist über deren Namen zugreift. So wird z.b. aus dem {{INLINE_CODE|glBindTexture(GL_TEXTURE_2D, Textur[3])}} ein einfaches und leichter durchschaubares {{INLINE_CODE|TextureManager.BindTexture('steinwand1.tga')}}.
-Um uns nicht mit dem Laden verschiedener Formate herumschlagen zu müssen, benutzen wir zum Umwandeln der Texturen die '''glBMP-Bibliothek''' von [http://delphigl.cfxweb.net|http://delphigl.cfxweb.net] in einer von mir um einige nützliche Dinge erweiterten Variante (ist im Download zu diesem Tutorial natürlich enthalten).
+Um uns nicht mit dem Laden verschiedener Formate herumschlagen zu müssen, benutzen wir zum Umwandeln der Texturen die '''glBMP-Bibliothek''' von [http://delphigl.cfxweb.net http://delphigl.cfxweb.net] in einer von mir um einige nützliche Dinge erweiterten Variante (ist im Download zu diesem Tutorial natürlich enthalten).
 Unser Texturmanager besteht aus folgenden Prozeduren und Variablen: