src/modelo/ov/Meteorito.pas

   1 {** Representa un objeto volador básico. Tiene una velocidad constante.<br>\r
   2     <i>Cambios:</i>\r
   3     <PRE>\r
   4     01/12/00: Se cambiaron las dimensiones por defecto para que los disparos sean mas "jugables".\r
   5     </PRE>}\r
   6 unit Meteorito;\r
   7 \r
   8 interface\r
   9 \r
  10 uses\r
  11   ObjetoVolador,\r
  12   Tipos,\r
  13   Vectores;\r
  14 \r
  15 type\r
  16   {** Representa un objeto volador básico. Tiene una velocidad constante.}\r
  17   cMeteorito = class( cObjetoVolador )\r
  18     public\r
  19       {** Constructor}\r
  20       constructor create( pos: cVector = nil; vel: cVector = nil; dim: tLongitud = 5; pot: tEnergia = 5; ene: tEnergia = 20 ); overload;\r
  21       {** Método para dibujar el meteorito (todavía no implementado)}\r
  22       function mDibujar: tObjetosVoladores; override;\r
  23   end;\r
  24 \r
  25 implementation\r
  26 \r
  27 { cMeteorito }\r
  28 \r
  29 {** Constructor\r
  30     @param pos Posicion inicial\r
  31     @param vel Velocidad inicial\r
  32     @param dim Dimensión del objeto volador (radio, en metros)\r
  33     @param pot Potencia del objeto volador (cantidad de daño que hace por intervalode tiempo)\r
  34     @param ene Energía del objeto volador(cantidad de daño que soporta antes de ser destruido)}\r
  35 constructor cMeteorito.create(pos, vel: cVector; dim: tLongitud; pot,\r
  36   ene: tEnergia);\r
  37 begin\r
  38   inherited create( pos, vel, dim, pot, ene );\r
  39 end;\r
  40 \r
  41 {** Método para dibujar el meteorito (todavía no implementado)}\r
  42 function cMeteorito.mDibujar: tObjetosVoladores;\r
  43 begin\r
  44   result := OV_METEORITO;\r
  45 end;\r
  46 \r
  47 end.\r