src/auxiliares/Tipos.pas

   1 {** En esta unidad se definen todos los tipos que usaremos en el proyecto\r
   2     Decidimos mantener los tipos por separado por el caso de que sea\r
   3     necesario un cambio de implementacion.}\r
   4 unit Tipos;\r
   5 \r
   6 interface\r
   7 \r
   8 type\r
   9   tLongitud = extended;  // en metros\r
  10   tTiempo   = extended;  // en milisegundos\r
  11   tEnergia  = integer;\r
  12   tAngulo   = extended;  // en radianes\r
  13   tMaxMisil = 0..10;\r
  14   tMaxMisilDirigido = 0..5;\r
  15   {$IFDEF DebugAlgoWars}\r
  16   tDebugInfo = ( DI_MINI, DI_NORMAL, DI_MAXI ); // Cantidad de Informacion a presentar\r
  17   {$ENDIF}\r
  18   // Tipos de objetos voladores\r
  19   tObjetosVoladores = ( OV_NAVEPESADA, OV_NAVELIVIANA, OV_NAVEESPIA, OV_NAVESUICIDA,\r
  20                         OV_METEORITO, OV_NAVEPROPIA, OV_LASER, OV_MISIL, OV_MISDIR );\r
  21   // Tipos de armas\r
  22   tArma = OV_LASER..OV_MISDIR; // Tipo de arma Seleccionada (subrango de tObjetosVoladores)\r
  23   //Tipos de camaras\r
  24   tCamaras = ( CAMARA_FRONTAL, CAMARA_LATDER, CAMARA_LATIZQ, CAMARA_TRASERA,\r
  25                CAMARA_ARRIBA, CAMARA_ABAJO, CAMARA_MAPA, CAMARA_ARMA );\r
  26 \r
  27 implementation\r
  28 \r
  29 end.\r