program AlgoWars;
{$APPTYPE CONSOLE}
{%ToDo 'AlgoWars.todo'}

uses
  SysUtils,
  ObjetoVolador in 'ObjetoVolador.pas',
  Vectores in 'Vectores.pas',
  Objeto in 'Objeto.pas',
  Tipos in 'Tipos.pas',
  Meteorito in 'Meteorito.pas',
  Armas in 'Armas.pas',
  Nave in 'Nave.pas',
  Espacio in 'Espacio.pas',
  NaveEnemiga in 'NaveEnemiga.pas',
  NavePropia in 'NavePropia.pas',
  Coordenadas in 'Coordenadas.pas';

var
  oEspacio:    cEspacio;
  oNavePropia: cNavePropia;

begin
  oEspacio := cEspacio.create;
  oNavePropia := oEspacio.mGetNavePropia;
  oEspacio.mAgregarObjeto( cMisilDirigido.create( oNavePropia, cVector.create( 30, -15, -50 ) ) );
  oEspacio.mAgregarObjeto( cMisilDirigido.create( oNavePropia, cVector.create( -15, 40, 50 ) ) );
  oEspacio.mAgregarObjeto( cLaser.create( cVector.create( 30, 0, 0 ), cVector.create( -1, 0, 0 ) ) );
  oEspacio.mAgregarObjeto( cLaser.create( cVector.create( 50, 0, 0 ), cVector.create( -1, 0, 0 ) ) );
  oEspacio.mAgregarObjeto( cLaser.create( cVector.create( 100, 0, 0 ), cVector.create( -1, 0, 0 ) ) );
  oEspacio.mAgregarObjeto( cLaser.create( cVector.create( 130, 0, 0 ), cVector.create( -1, 0, 0 ) ) );
  oEspacio.mAgregarObjeto( cLaser.create( cVector.create( 160, 0, 0 ), cVector.create( -1, 0, 0 ) ) );
  oEspacio.mAgregarObjeto( cMisil.create( cVector.create( 40, 0, 0 ), cVector.create( -1, 0, 0 ) ) );
  oEspacio.mAgregarObjeto( cMisil.create( cVector.create( 170, 0, 0 ), cVector.create( -1, 0, 0 ) ) );
  oEspacio.mIniciar;
end.