src/test/AlgoWars.test_objeto_volador.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 \r
  14 const\r
  15   MAX = 7;\r
  16 \r
  17 var\r
  18   o:   array [1..MAX] of cObjetoVolador;\r
  19   i:   byte;\r
  20 //  tmp: string;\r
  21   fo:  text;\r
  22 \r
  23 begin\r
  24   assignFile( fo, 'log.txt' );\r
  25   rewrite( fo );\r
  26   o[1] := cObjetoVolador.create;\r
  27   o[2] := cObjetoVolador.create( cVector.createXYZ( 3, 3, 3 ) );\r
  28   o[3] := cObjetoVolador.create( cVector.createXYZ( 4, -3, 1 ),\r
  29                                  cVector.create( 2, pi / 2, 0 ) );\r
  30   o[4] := cObjetoVolador.create( cVector.createXYZ( 4, -3, 1 ),\r
  31                                  cVector.create( 2, 3 * pi / 2, 10 ),\r
  32                                  30 );\r
  33   o[5] := cObjetoVolador.create( cVector.createXYZ( 4,-3,1 ),\r
  34                                  cVector.create( 2, 3 * pi / 2, 10 ),\r
  35                                  30,\r
  36                                  500 );\r
  37   o[6] := cObjetoVolador.create( cVector.createXYZ( -15, -3, 91 ),\r
  38                                  cVector.createXYZ( 2, 3, 10 ),\r
  39                                  30,\r
  40                                  50,\r
  41                                  10 );\r
  42   o[7] := cObjetoVolador.create( o[6] );\r
  43   o[7].mMover( 10 );\r
  44   o[7].mRestarEnergia( 20 );\r
  45   writeln ( fo, o[7].mGetPosicion.mGetDistanciaA( o[6].mGetPosicion ): 8: 2 );\r
  46   for i := 1 to MAX do begin\r
  47     writeln( fo, 'OBJETO ' + IntToStr( i ) + ': ' + #13 + #10 +\r
  48                  o[i].mGetDebugInfo + #13 + #10 );\r
  49     o[i].free;\r
  50     end;\r
  51   closeFile( fo );\r
  52 end.\r