Pelimoottori Castle Game Engine

Pitäis mielenkiinnosta kokeilla. Tuli vähän mieleen vanha DelphiX -pelintekokirjasto Delphille, sillä tuli väsästtyä pari 2D-tasohyppely peliä aikoinaan 2000-luvun alussa, porukat pelaili niitä ihan innossaan :)

Tein vielä siihen oman laajennoksen että sai Direct3D -rajapinnan efektit käyttöön, esim. läpinäkyvät savuefektit toimi nopeesti, kun ne renderöitiin näytönohjaimella eikä läpinäkyvyyttä laskettu prossulla.

Yksinkertainen 3D-kuvien katselu onnistuu niin että aloitetaan
Lazaruksessa uusi projekti. Tuodaan lomakkeelle TCastleControl
(se on "näyttäytyy" ikkunana missä on 3D-kuva), lisäksi
painike joka avaa tiedostojen selausdialogin ja kyseinen dialogi.

-------8<------------------

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
CastleControl, CastleDialogs,CastleSceneCore;

type

{ TForm1 }

TForm1 = class(TForm)
Button1: TButton;
CastleControl1: TCastleControl;
CastleOpen3DDialog1: TCastleOpen3DDialog;
procedure Button1Click(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
begin
if CastleOpen3DDialog1.Execute then
begin
CastleControl1.Load(CastleOpen3DDialog1.FileName);
CastleControl1.MainScene.Spatial := [ssRendering, ssDynamicCollisions];
CastleControl1.MainScene.ProcessEvents := true;
end;
end;

end.

Castle Game Engine 6.2 on julkistettu!

Se mitä ominaisuuksia siinä yleisesti on näkyy esim. tästä videosta:
https://www.youtube.com/watch?v=o5q7guVkYVo