recorrer una linea creada en un canvas

[aguml]

Ecfisa eso último ¿sería un componente? SI no es asi ¿que le faltaría ya para serlo? Lo digo porque tiene propiedades y métodos al igual que un componente.

[Snaked]

gracias ecfisa, voy a ver si lo analizo esta tarde ese codigo para enterarme bien como funciona y a ver si lo puedo implementar en el codigo para unas cuantas naves

Lo ideal seria que soportase un numero ilimitado de naves o por ejemplo maximo 100 naves (que creo que ya es bastante) y en una parte del programa que sea cuando construyes Nueva_Nave la crease...... de todas formas es muy interesante lo que me has dado.....asi avanzaré mas rápido en el juego

Sabes? yo aprendi C normal primero y luego algunas cosas de C++ pero el principal problema lo tengo con el tema de las Clases y la encapsulacion, que no acabo de dominarlo ....tendré que repasar algun tutorial de C++ esos conceptos y ver mas ejemplos de codigo basico

Otra cosa son el tema de las estructuras de datos para el asunto de Comerciar con bienes, obtencion de creditos (dinero) y todo lo que supone el nucleo del motor de comercio y minería del juego.....pero ahi creo que puedo ir tirando de momento sin ayuda.....aunque si se te ocurre algo para ir empezando te quedaré agradecido como siempre

[aguml]

Puedes usar un TList y crear tantos como desees añadiéndoles al TList.

[aguml]

La idea es algo así aunque si tuviese la propiedad nombre podrías poner nombre a cada uno y usar su nombre para trabajar con ellos.

Código PHP:

void __fastcall TForm1::FormCreate(TObject *Sender)
{
 TList *lista=new TList;
 Ship* s;
 for (int i=0;i <100;i++){
    s = new Ship( this, Point(10,100), Point( 240,200) );
    s->Timer->Interval = 10;
    lista->Add (s);
 }
 lista->Items [0]->Image->Picture->LoadFromFile("face-smile.jpg");
 lista->Items [1]->Image->Picture->LoadFromFile("face-sad.jpg");
 lista->Items [2]->Image->Picture->LoadFromFile("face-monkey.jpg");
 ...
 ...
 ...
} 


Y seria mejor creo yo crear el objeto simplemente indicándole el parent y luego otro método para inicializar las coordenadas y no hacer eso en el constructor.

[Snaked]

eso del Tlist que ha puesto Agum es correcto Ecfisa??? podria declarar un array Tlist de 100 naves ?

o bien un TList donde ir añadiendo segun vaya creando flota el Jugador dinamicamente las naves emplazadas en diversas coordenadas?

[ecfisa]

Hola Snaked.

Si, es totalmente correcto. Podes ir almacenando las naves en una lista a medida que las creas y luego referirte a cada nave mediante la lista.

Ejemplo sobre el código anterior:

Código PHP:

TList* lst;
Ship* s1;

void __fastcall TForm1::FormCreate( TObject *Sender )
{

  lst = new TList;

  s1 = new Ship( this, Point(10,100), Point( 240,200) );
  s1->Image->Picture->LoadFromFile( "face-smile.jpg" );
  s1->Timer->Interval = 10;
  lst->Add(s1);

  s1 = new Ship( this, Point(  50,  50 ), Point( 150, 300 ) );
  s1->Image->Picture->LoadFromFile( "face-sad.jpg" );
  s1->Timer->Interval = 10;
  lst->Add(s1);

  s1 = new Ship( this, Point(  80, 90 ), Point(  220, 100 ) );
  s1->Image->Picture->LoadFromFile( "face-monkey.jpg" );
  s1->Timer->Interval = 10;
  lst->Add (s1 );

 //... mas naves
}

void __fastcall TForm1::btnStartClick( TObject *Sender )
{
  for  (int i = 0; i < lst->Count; i++ )
     static_cast<Ship*>( lst->Items[i] )->Timer->Enabled = true; // (*)
}

void __fastcall TForm1::FormDestroy( TObject *Sender )
{
  for (int i = 0; i < lst->Count; i++)
    delete lst->Items[i];
  lst->Free();
} 


(*) Te podes referir a cada nave de la lista cambiando el índice de la propiedad vectorial Items.

Saludos

[Snaked]

hola de nuevo Ecfisa.... he implementado el codigo del mensaje IDEA ENCAPSULADA y UN POCO MEJOR ORGANIZADA y la verdad es que compilar compila, incluso dibuja las naves bien y tal recorriendo la ruta, el caso es que si le pongo las coordeenadas que utilizo para dibujar las RUTAS (rayitas verdes) que tienen este formato

Código PHP:

      if(muestra_rutas)
   {
     Form1->tablero->Canvas->MoveTo(40 + Form2->Image2->Picture->Graphic->Width/2,40 + Form2->Image2->Picture->Graphic->Height/2);
     Form1->tablero->Canvas->Pen->Color = clLime;
     Form1->tablero->Canvas->LineTo(240 + Form2->Image3->Picture->Graphic->Width/2, 410 + Form2->Image3->Picture->Graphic->Height/2);
     Form1->tablero->Canvas->LineTo(480 + Form2->Image4->Picture->Graphic->Width/2, 100 + Form2->Image4->Picture->Graphic->Height/2);
     Form1->tablero->Canvas->MoveTo(240 + Form2->Image3->Picture->Graphic->Width/2, 410 + Form2->Image3->Picture->Graphic->Height/2);
     Form1->tablero->Canvas->LineTo(600 + Form2->Image11->Picture->Graphic->Width/2, 350 + Form2->Image11->Picture->Graphic->Height/2);
     Form1->tablero->Canvas->MoveTo(600 + Form2->Image6->Picture->Graphic->Width/2, 240 + Form2->Image6->Picture->Graphic->Height/2);
     Form1->tablero->Canvas->LineTo(920 + Form2->Image5->Picture->Graphic->Width/2, 220 + Form2->Image5->Picture->Graphic->Height/2);
     Form1->tablero->Canvas->MoveTo(600 + Form2->Image11->Picture->Graphic->Width/2, 350 + Form2->Image11->Picture->Graphic->Height/2);
     Form1->tablero->Canvas->LineTo(600 + Form2->Image6->Picture->Graphic->Width/2, 240 + Form2->Image6->Picture->Graphic->Height/2);
   } 


el caso es que las naves salen como con un desplazamiento horizontal en la coordenada X (quiero decir que recorren bien las rutas pero en vez de ir por las lineas van como mas a la derecha un cacho)

porque puede producirse ese desplazamiento de coordenadas???

he probado a quitarle el Width/2 y el Height/2 que le aplico para que halle el centro ya que estas coordeenadas que te acabo de poner en el codigo php corresponden a los sprites de los planetas

bueno, te adjunto un video para que veas la salida

https://youtu.be/j362Dr9l7zg