src/test/AlgoWars.test_persecusion.dpr

   1 program AlgoWars;\r
   2 {$APPTYPE CONSOLE}\r
   3 {%ToDo 'AlgoWars.todo'}\r
   4 \r
   5 uses\r
   6   SysUtils,\r
   7   ObjetoVolador in 'ObjetoVolador.pas',\r
   8   Vectores in 'Vectores.pas',\r
   9   Objeto in 'Objeto.pas',\r
  10   Tipos in 'Tipos.pas',\r
  11   Meteorito in 'Meteorito.pas',\r
  12   Armas in 'Armas.pas',\r
  13   Nave in 'Nave.pas',\r
  14   Espacio in 'Espacio.pas',\r
  15   NaveEnemiga in 'NaveEnemiga.pas',\r
  16   NavePropia in 'NavePropia.pas';\r
  17 \r
  18 const\r
  19   MAX = 3;\r
  20 \r
  21 var\r
  22 //  l:   array [1..MAX] of cLaser;\r
  23   i:   byte;\r
  24   n:   cNave;\r
  25   m:  cMisilDirigido;\r
  26 //  tmp: string;\r
  27   fo:  text;\r
  28 \r
  29 begin\r
  30   assignFile( fo, 'log.txt' );\r
  31   rewrite( fo );\r
  32 //  l[1] := cLaser.create;\r
  33 //  l[2] := cLaser.create( cVector.createXYZ( 3, 3, 3 ) );\r
  34 //  l[3] := cLaser.create( cVector.createXYZ( 1, 0, 0 ),\r
  35 //                         cVector.createXYZ( 1, 1, 1 ) );\r
  36   n := cNave.create( cVector.create( 0, 0, 0 ),\r
  37                      cVector.create( 0.25, 0, 0 ) );\r
  38   m := cMisilDirigido.create( n, cVector.create( -5, 10, 10 ) );\r
  39   writeln( fo, 'NAVE: ' + #13 + #10 +\r
  40                n.mGetDebugInfo( DI_MAXI ) + #13 + #10 );\r
  41   writeln( fo, 'MISIL: ' + #13 + #10 +\r
  42                m.mGetDebugInfo( DI_MAXI ) + #13 + #10 );\r
  43   for i := 1 to 50 do begin\r
  44     m.mMover( 500 );\r
  45     n.mMover( 500 );\r
  46     writeln( fo, i, '-------------------------------------' );\r
  47     writeln( fo, 'NAVE: ' + #13 + #10 +\r
  48                  n.mGetDebugInfo( DI_MAXI ) + #13 + #10 );\r
  49     writeln( fo, 'MISIL: ' + #13 + #10 +\r
  50                  m.mGetDebugInfo( DI_MAXI ) + #13 + #10 );\r
  51 {    if not m.mActivo then begin\r
  52       writeln( fo, 'Murio el misil!!!!' );\r
  53       m.free;\r
  54       break;\r
  55     end;}\r
  56   end;\r
  57 //  for i := 1 to MAX do begin\r
  58 //    writeln( fo, 'OBJETO ' + IntToStr( i ) + ': ' + #13 + #10 +\r
  59 //                 o[i].mGetDebugInfo + #13 + #10 );\r
  60 //    o[i].free;\r
  61 //    end;\r
  62   closeFile( fo );\r
  63 end.\r