游戏引擎

开发平台：

Delphi

DLooter.dpr：源码内容

							(*
 Dungeon Looter
 (C) 2007 George "Mirage" Bakhtadze
 A Pascal Game Development Competition 2007 entry
*)
{$I GDefines.inc}
{$I C2Defines.inc}
program DLooter;
uses DLMain, AppsInit, SysUtils;
var DLStarter: TTrayAppStarter;
begin
  DLStarter := TTrayAppStarter.Create('Dungeon Looter', nil, [soSingleUser]);      // Window creation and other startup tasks
  App := TDLApp.Create('DLooter', DLStarter);                                      // Application creation
  if not DLStarter.Terminated then begin
    App.Init;                                                                      // Application initialization
    while not App.Starter.Terminated do App.Process;                               // Main process cycle
    App.UpdateHighScores;                                                          // Update high scores file
  end;
  FreeAndNil(App);                                                                 // Shutdown
  FreeAndNil(DLStarter);
end.

						