Jump and Run Game [Andora 2D Engine]

[OSIcreate]

nö die sollte eich da sein

Delphi-Quellcode:

//------------------------------------------------------------------------------
//                       2d Engien Erzeugen
//------------------------------------------------------------------------------
procedure TFrmMain.grafikEngineCreate;
begin
  AdDraw := TAdDraw.Create(self);
  AdDraw.DllName := 'AndorraOGL.dll';
  AdPerCounter := TAdPerformanceCounter.Create;
  adSpriteEngine := TSpriteEngine.Create(nil);
  adSpriteEngine.Surface := adDraw;
end;
//______________________________________________________________________________

Aufruf der Procedure

Delphi-Quellcode:

//------------------------------------------------------------------------------
//                       On Create
//------------------------------------------------------------------------------
procedure TFrmMain.FormCreate(Sender: TObject);
begin
  //------ 2D Engine wird erzeugt -----
  grafikEngineCreate;

  if AdDraw.Initialize then
  begin

    //------ Spieldaten werden geladen -----
    dat := TData.Create(adDraw);
    dat.dataload;

    //------ Spielfeld wird geladen ----
    feld := TFeld.create(54,50);     

  end
  else
  begin
    Application.MessageBox('Fehler beim Laden der Grafik Engine!','ERROR',MB_OK +MB_ICONERROR);
    Close;
  end;
end;
//______________________________________________________________________________

mfg