游戏引擎

开发平台：

Delphi

GameCore.pas：源码内容

							{$Include GDefines}
{$Include C2Defines}
unit GameCore;
interface
uses
  {$IFDEF LOGGING} TextFile, {$ENDIF}
  Basics, BaseCont, Base3D, Collisions, Props,
  BaseClasses, C2Res, C2Particle, C2Core;
const
// Commands
  cmdGameEnd = 650;
  Tension = 0.001;
  CollisionDamageK = 0.003;
  CollisionDeformK = 9;
  DamageDeformK = 0.14;
// Panel sliding modes
  slNone = 0; slShow = 1; slHide = 2; slRolledOut = 3;
  EndGameTimeOut = 30*3;
type
  TBaseGameWorld = class(TCore)
    constructor Create; override;
    procedure ProcessWorld(ProcessClass: Integer; DeltaTime: Float); override;
  protected
    GameEndCounter: Integer;
    TotalShips: Integer;
  end;
var
  World: TBaseGameWorld;
implementation
{ TBaseGameWorld }
constructor TBaseGameWorld.Create;
begin
  World := Self;
  inherited;  
end;
procedure TBaseGameWorld.ProcessWorld(ProcessClass: Integer; DeltaTime: Float);
begin
  if ProcessClass <> 0 then Exit;
end;
end.

						