doc/src-html/modelo/ov/Meteorito.pas

   1 <HTML><HEAD>\r
   2 <TITLE>File: meteorito.pas </TITLE>\r
   3 <META NAME="GENERATOR" CONTENT="PasToHTML(Bystricky Vladimir)">\r
   4 </HEAD>\r
   5 <BODY BGCOLOR="#FFFFFF">\r
   6 <A NAME=meteorito.pas><CENTER><H3>meteorito.pas</H3></A><I> from <A HREF=/proyecto/doc/src-html/AlgoWars.html> Project: AlgoWars.dpr</A></I></CENTER>\r
   7 <HR>\r
   8 <PRE>\r
   9 <I><FONT COLOR="Navy">{** Representa un objeto volador básico. Tiene una velocidad constante.<br> \r
  10     <i>Cambios:</i> \r
  11     <PRE> \r
  12     01/12/00: Se cambiaron las dimensiones por defecto para que los disparos sean mas "jugables". \r
  13     </PRE>}</FONT></I> \r
  14 <B>unit</B> Meteorito; \r
  15  \r
  16 <B>interface</B> \r
  17  \r
  18 <B>uses</B> \r
  19   ObjetoVolador, \r
  20   Tipos, \r
  21   Vectores; \r
  22  \r
  23 <B>type</B> \r
  24   <I><FONT COLOR="Navy">{** Representa un objeto volador básico. Tiene una velocidad constante.}</FONT></I> \r
  25   cMeteorito = <B>class</B>( cObjetoVolador ) \r
  26     <B>public</B> \r
  27       <I><FONT COLOR="Navy">{** Constructor}</FONT></I> \r
  28       <B>constructor</B> create( pos: cVector = <B>nil</B>; vel: cVector = <B>nil</B>; dim: tLongitud = 5; pot: tEnergia = 5; ene: tEnergia = 20 ); overload; \r
  29       <I><FONT COLOR="Navy">{** Método para dibujar el meteorito (todavía no implementado)}</FONT></I> \r
  30       <B>function</B> <A HREF="#cMeteorito.mDibujar">mDibujar</A>: tObjetosVoladores; <B>override</B>; \r
  31   <B>end</B>; \r
  32  \r
  33 <B>implementation</B> \r
  34  \r
  35 <I><FONT COLOR="Navy">{ cMeteorito }</FONT></I> \r
  36  \r
  37 <I><FONT COLOR="Navy">{** Constructor \r
  38     @param pos Posicion inicial \r
  39     @param vel Velocidad inicial \r
  40     @param dim Dimensión del objeto volador (radio, en metros) \r
  41     @param pot Potencia del objeto volador (cantidad de daño que hace por intervalode tiempo) \r
  42     @param ene Energía del objeto volador(cantidad de daño que soporta antes de ser destruido)}</FONT></I> \r
  43 <B>constructor</B> cMeteorito.create(pos, vel: cVector; dim: tLongitud; pot, \r
  44   ene: tEnergia); \r
  45 <B>begin</B> \r
  46   <B>inherited</B> create( pos, vel, dim, pot, ene ); \r
  47 <B>end</B>; \r
  48  \r
  49 <I><FONT COLOR="Navy">{** Método para dibujar el meteorito (todavía no implementado)}</FONT></I> \r
  50 <B>function</B> <A NAME=cMeteorito.mDibujar>cMeteorito.mDibujar</A>: tObjetosVoladores; \r
  51 <B>begin</B> \r
  52   result := OV_METEORITO; \r
  53 <B>end</B>; \r
  54  \r
  55 <B>end</B>. \r
  56 </PRE>\r
  57 </BODY>\r
  58 </HTML>\r