Trabajando en el Editor de Sectores del Mapa

[Snaked]

Aqui estoy de nuevo

Estoy trabajando en un Editor/Tool para diseñar SECTORES con Rutas para lo del mapeado del juego....de momento va todo viento en popa y pronto publicaré una version funcional para que todos la probéis y veamos si podemos ir expandiendo el universo_base del juego

Un saludo

[Snaked]

Hola, entre ayer y hoy he estado ahi liado con el editor de Sectores del mapa...... aqui os dejo el codigo fuente por si veis algo que seguro se podrá mejorar......

Unit1.hpp
//---------------------------------------------------------------------------

#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <System.Classes.hpp>
#include <Vcl.Controls.hpp>
#include <Vcl.StdCtrls.hpp>
#include <Vcl.Forms.hpp>
#include <Vcl.ExtCtrls.hpp>
#include <Vcl.Buttons.hpp>
#include <Vcl.Menus.hpp>
#include <Vcl.Graphics.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published: // IDE-managed Components
TImage *tablero;
TBitBtn *BitBtn1;
TBitBtn *BitBtn3;
TScrollBar *ScrollBar;
TLabel *Label1;
TPopupMenu *PopupMenu1;
TMenuItem *InsertarInicioRuta1;
TMenuItem *InsertarFinRuta1;
TMenuItem *InsertarSpaceStation1;
TMenuItem *Coriolis11;
TMenuItem *MendellMedical1;
TMenuItem *Odissey11;
TMenuItem *InsertarAsteroidFields1;
TMenuItem *InsertarI1;
TMenuItem *Factory11;
TMenuItem *StoringContainers1;
TMenuItem *CancelLastInsert1;
TMenuItem *InsertTradeStation1;
TMenuItem *Goods1;
TMenuItem *Chemicals1;
TMenuItem *MetalsandMinnery1;
TMenuItem *BactaandPharmaceuticalGoods1;
TMenuItem *MilitaryEquipmentandDefense1;
TMenuItem *ISSInternationaSpaceStation1;
TMenuItem *NewAcheronMilitaryBase1;
TMainMenu *MainMenu1;
TMenuItem *SECTOR1;
TMenuItem *EstoesunCaosquieroempezardenuevo1;
TMenuItem *MegustacomovaquedandoQuieroGuardaresteSector1;
TMenuItem *SectorFinalizadoSbeloalSERVIDORCENTRAL1;
TLabel *Label_X;
TLabel *Label_Y;
TLabel *Label4;
TLabel *Label5;
TEdit *Edit1;
TTimer *Timer1;
TImage *Image1;
TImage *Image2;
TImage *Image3;
TImage *Image4;
TImage *Image5;
TImage *Image6;
TImage *Image7;
TImage *Image8;
TImage *Image9;
TImage *Image10;
TImage *Image11;
TImage *Image12;
TImage *Image13;
TImage *Image14;
TGroupBox *GroupBox1;
TRadioButton *RadioButton1;
TRadioButton *RadioButton2;
TRadioButton *RadioButton3;
TRadioButton *RadioButton4;
TRadioButton *RadioButton5;
TRadioButton *RadioButton6;
TRadioButton *RadioButton7;
TRadioButton *RadioButton8;
TRadioButton *RadioButton9;
TRadioButton *RadioButton10;
TRadioButton *RadioButton11;
TRadioButton *RadioButton12;
TRadioButton *RadioButton13;
TRadioButton *RadioButton14;
TRadioButton *RadioButton15;
TRadioButton *RadioButton16;
TMenuItem *InsertObjectPlanet1;
TGroupBox *GroupBox2;
TEdit *Edit2;
TEdit *Edit3;
TComboBox *ComboBox1;
TButton *Button1;
TCheckBox *CheckBox1;
TEdit *Edit4;
TEdit *Edit5;
TEdit *Edit6;
TEdit *Edit7;
TComboBox *ComboBox2;
TButton *Button2;
TCheckBox *CheckBox2;
void __fastcall BitBtn1Click(TObject *Sender);
void __fastcall BitBtn3Click(TObject *Sender);
void __fastcall Timer1Timer(TObject *Sender);
void __fastcall InsertarInicioRuta1Click(TObject *Sender);
void __fastcall InsertarFinRuta1Click(TObject *Sender);
void __fastcall InsertObjectPlanet1Click(TObject *Sender);
void __fastcall CheckBox1Click(TObject *Sender);
void __fastcall CheckBox2Click(TObject *Sender);
void __fastcall EstoesunCaosquieroempezardenuevo1Click(TObject *Sender);

private: // User declarations
public: // User declarations
TGraphic *g;
TGraphic *g1;
TGraphic *g2;
__fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif


Unit1.cpp
//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
#include "Unit2.h"
//---------------------------------------------------------------------------

#pragma package(smart_init)
#pragma resource "*.dfm"

TForm1 *Form1;

TPoint mouse_pos;
int current_route = 0;
int current_object = 0;
struct mapp {
AnsiString Nombre_Sector;
int objetos[15];
int coordX_objeto[15];
int coordY_objeto[15];
int total_objetos;
int rutas_inicio_X[15];
int rutas_fin_X[15];
int rutas_inicio_Y[15];
int rutas_fin_Y[15];
int total_rutas;
} mapita;

bool SALIR = false;
bool rejilla = false;
bool muestra_rutas = false;
bool muestra_objetos = true;
int ini_rutaX = 0; int ini_rutaY = 0;
int fin_rutaX = 0; int fin_rutaY = 0;
void SECTOR_VEGA(void);
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
Form1->DoubleBuffered = true;
}

//--------------------------------------------------------------------------
void Muestra_Mapa(void)
{

SECTOR_VEGA();

Form1->tablero->Repaint();
Application->ProcessMessages();

}
//---------------------------------------------------------------------------

void SECTOR_VEGA(void)
{
Form1->g = 0;

//Dibujamos fondo grafico
Form1->g2 = 0;
Form1->g2 = Form2->Image12->Picture->Graphic;
Form1->tablero->Canvas->Draw(0, 0, Form1->g2);


for(int cont=0; cont<=current_route; cont++)
{
if(muestra_rutas)
{
Form1->tablero->Canvas->MoveTo(mapita.rutas_inicio_X[cont],mapita.rutas_inicio_Y[cont]);
Form1->tablero->Canvas->Pen->Color = clLime;
if(mapita.rutas_fin_X[cont] != 0 && mapita.rutas_fin_Y[cont] != 0)
Form1->tablero->Canvas->LineTo(mapita.rutas_fin_X[cont], mapita.rutas_fin_Y[cont]);
}

}

for(int cont=0; cont<=current_object; cont++)
{
if(muestra_objetos)
{

if(mapita.objetos[cont] != 0)
{
Form1->g2 = 0;
switch(mapita.objetos[cont])
{
case 1:
Form1->g2 = Form2->Image12->Picture->Graphic;
Form1->tablero->Canvas->Draw(0, 0, Form1->g2); break;

case 2:
Form1->g2 = Form2->Image12->Picture->Graphic;
Form1->tablero->Canvas->Draw(0, 0, Form1->g2); break;

case 3:
Form1->g2 = Form2->Image12->Picture->Graphic;
Form1->tablero->Canvas->Draw(0, 0, Form1->g2); break;

}
}
}

}
}


void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{
int cont = 0;
SALIR = false;


for(cont = 0; cont < 20000; cont++)
{

Muestra_Mapa();
Label1->Caption = cont;
if(SALIR == true) break;
}
}
//---------------------------------------------------------------------------


void __fastcall TForm1::BitBtn3Click(TObject *Sender)
{
SALIR = true;
}
//---------------------------------------------------------------------------



void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
mouse_pos = Mouse->CursorPos;
if(mouse_pos.X <= 4) mouse_pos.X = 1;
if(mouse_pos.Y <= 42) mouse_pos.Y = 1;
Label_X->Caption = mouse_pos.X; Label_X->Refresh();
Label_Y->Caption = mouse_pos.Y;Label_Y->Refresh();

}
//---------------------------------------------------------------------------

void __fastcall TForm1::InsertarInicioRuta1Click(TObject *Sender)
{
ini_rutaX = mouse_pos.X - 4;
ini_rutaY = mouse_pos.Y - 42;
if(current_route <= 14)
{
mapita.rutas_inicio_X[current_route] = ini_rutaX;
mapita.rutas_inicio_Y[current_route] = ini_rutaY;
}

else ShowMessage("You reach MAX routes Allowed");
}
//---------------------------------------------------------------------------

void __fastcall TForm1::InsertarFinRuta1Click(TObject *Sender)
{
fin_rutaX = mouse_pos.X - 4;
fin_rutaY = mouse_pos.Y - 42;
if(current_route <= 14)
{
mapita.rutas_fin_X[current_route] = fin_rutaX;
mapita.rutas_fin_Y[current_route] = fin_rutaY;

if(Application->MessageBox(L"Do you want to SAVE this ROUTE (Keep on map):",
L"Look", MB_OKCANCEL) == ID_OK)
{ //save the current route line
ShowMessage("You Choose SAVE the Route");
current_route++;
}
else {
ShowMessage("Canceled: Route Deleted");
mapita.rutas_fin_X[current_route] = 0;
mapita.rutas_fin_Y[current_route] = 0;

}

}

else ShowMessage("You reach MAX routes Allowed");

}
//---------------------------------------------------------------------------

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

if(current_object > 14) {
ShowMessage("MAX Objects reached!! Can't add more on this map.");
return;
}

if(RadioButton3->Checked == true)
{
mapita.coordX_objeto[current_object] = mouse_pos.x;
mapita.coordY_objeto[current_object] = mouse_pos.y;
mapita.objetos[current_object] = 1;
current_object++;
}

if(RadioButton4->Checked == true)
{
mapita.coordX_objeto[current_object] = mouse_pos.x;
mapita.coordY_objeto[current_object] = mouse_pos.y;
mapita.objetos[current_object] = 2;
current_object++;
}

if(RadioButton5->Checked == true)
{
mapita.coordX_objeto[current_object] = mouse_pos.x;
mapita.coordY_objeto[current_object] = mouse_pos.y;
mapita.objetos[current_object] = 3;
current_object++;
}

if(RadioButton6->Checked == true)
{
mapita.coordX_objeto[current_object] = mouse_pos.x;
mapita.coordY_objeto[current_object] = mouse_pos.y;
mapita.objetos[current_object] = 4;
current_object++;
}


if(RadioButton7->Checked == true)
{
mapita.coordX_objeto[current_object] = mouse_pos.x;
mapita.coordY_objeto[current_object] = mouse_pos.y;
mapita.objetos[current_object] = 5;
current_object++;
}

if(RadioButton8->Checked == true)
{
mapita.coordX_objeto[current_object] = mouse_pos.x;
mapita.coordY_objeto[current_object] = mouse_pos.y;
mapita.objetos[current_object] = 6;
current_object++;
}

if(RadioButton9->Checked == true)
{
mapita.coordX_objeto[current_object] = mouse_pos.x;
mapita.coordY_objeto[current_object] = mouse_pos.y;
mapita.objetos[current_object] = 7;
current_object++;
}


if(RadioButton10->Checked == true)
{
mapita.coordX_objeto[current_object] = mouse_pos.x;
mapita.coordY_objeto[current_object] = mouse_pos.y;
mapita.objetos[current_object] = 8;
current_object++;
}


if(RadioButton11->Checked == true)
{
mapita.coordX_objeto[current_object] = mouse_pos.x;
mapita.coordY_objeto[current_object] = mouse_pos.y;
mapita.objetos[current_object] = 9;
current_object++;
}


if(RadioButton12->Checked == true)
{
mapita.coordX_objeto[current_object] = mouse_pos.x;
mapita.coordY_objeto[current_object] = mouse_pos.y;
mapita.objetos[current_object] = 10;
current_object++;
}


if(RadioButton13->Checked == true)
{
mapita.coordX_objeto[current_object] = mouse_pos.x;
mapita.coordY_objeto[current_object] = mouse_pos.y;
mapita.objetos[current_object] = 11;
current_object++;
}


if(RadioButton14->Checked == true)
{
mapita.coordX_objeto[current_object] = mouse_pos.x;
mapita.coordY_objeto[current_object] = mouse_pos.y;
mapita.objetos[current_object] = 12;
current_object++;
}


}
//---------------------------------------------------------------------------



void __fastcall TForm1::CheckBox1Click(TObject *Sender)
{
if(CheckBox1->Checked == true) muestra_rutas = true;
else muestra_rutas = false;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::CheckBox2Click(TObject *Sender)
{
if(CheckBox2->Checked == true) muestra_objetos = true;
else muestra_objetos = false;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::EstoesunCaosquieroempezardenuevo1Click(TObject *Sender)
{
// Inicializamos todo a cero.
int contador = 0;
current_route = 0;
current_object = 0;

for(contador = 0; contador <= 14; contador++)
{
mapita.coordX_objeto[contador] = 0;
mapita.coordY_objeto[contador] = 0;
mapita.rutas_fin_X[contador] = 0;
mapita.rutas_fin_Y[contador] = 0;
mapita.rutas_inicio_X[contador] = 0;
mapita.rutas_inicio_Y[contador] = 0;
mapita.objetos[contador] = 0;
}

mapita.total_objetos = 0;
mapita.total_rutas = 0;
}
//---------------------------------------------------------------------------




y este es el aspecto visual que presenta el programa

http://www.qualinost.tk/proyectos/stardust/captures/capture_editor1.png

[Snaked]

bueno,....con pequeños bugs pero funciona..... mirad.... en hacer esto he tardado 5 segundos

http://www.qualinost.tk/proyectos/stardust/captures/capture_editor2.png

[AgustinOrtu]

Solo 5 segundos? :D

[Snaked]

jajajaja, si Agustin....5 o menos!!! :DDD

mirad, este es el nuevo aspecto que tiene el Editor..... ya falta poco para sacarlo del horno

Interface Azulado
http://www.qualinost.tk/proyectos/stardust/captures/capture_editor3.png


Interface Esmeralda
http://www.qualinost.tk/proyectos/stardust/captures/capture_editor4.png

[Snaked]

Hey!! aqui va el codigo con algunas correcciones de ultima hora

//---------------------------------------------------------------------------

#include <vcl.h>
#include <stdio.h>
#pragma hdrstop

#include "Unit1.h"
#include "Unit2.h"

//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"

TForm1 *Form1;

TPoint mouse_pos;
TPoint mouse_pos2;
int current_route = 0;
int current_object = 0;
struct mapp {
AnsiString Nombre_Sector;
int objetos[30];
int coordX_objeto[30];
int coordY_objeto[30];
int total_objetos;
int rutas_inicio_X[30];
int rutas_fin_X[30];
int rutas_inicio_Y[30];
int rutas_fin_Y[30];
int total_rutas;
} mapita;

int cont_redraw = 0;
bool SALIR = false;
bool rejilla = false;
bool muestra_rutas = false;
bool muestra_objetos = true;
int ini_rutaX = 0; int ini_rutaY = 0;
int fin_rutaX = 0; int fin_rutaY = 0;
void SECTOR_VEGA(void);
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
Form1->DoubleBuffered = true;
}

//---------------------------------------------------------------------------
void Muestra_Mapa(void)
{

SECTOR_VEGA();

if(rejilla) Muestra_Rejilla();


Form1->tablero->Repaint();
Application->ProcessMessages();

}
//---------------------------------------------------------------------------

void SECTOR_VEGA(void)
{
Form1->g2 = 0;
Form1->g2 = Form2->Image12->Picture->Graphic;
Form1->tablero->Canvas->Draw(0, 0, Form1->g2);

for(int cont=0; cont<=current_route; cont++)
{
if(muestra_rutas)
{
Form1->tablero->Canvas->MoveTo(mapita.rutas_inicio_X[cont],mapita.rutas_inicio_Y[cont]);
Form1->tablero->Canvas->Pen->Color = clLime;
if(mapita.rutas_fin_X[cont] != 0 && mapita.rutas_fin_Y[cont] != 0)
Form1->tablero->Canvas->LineTo(mapita.rutas_fin_X[cont], mapita.rutas_fin_Y[cont]);
}

}

for(int cont=0; cont<=current_object; cont++)
{
if(muestra_objetos)
{

if(mapita.objetos[cont] != 0)
{
Form1->g2 = 0;
switch(mapita.objetos[cont])
{
case 1:
Form1->g2 = Form2->Image9->Picture->Graphic;
Form1->tablero->Canvas->Draw(mapita.coordX_objeto[cont], mapita.coordY_objeto[cont], Form1->g2); break;

case 2:
Form1->g2 = Form2->Image3->Picture->Graphic;
Form1->tablero->Canvas->Draw(mapita.coordX_objeto[cont], mapita.coordY_objeto[cont], Form1->g2); break;

case 3:
Form1->g2 = Form2->Image_jupiter->Picture->Graphic;
Form1->tablero->Canvas->Draw(mapita.coordX_objeto[cont], mapita.coordY_objeto[cont], Form1->g2); break;

}
}
}

}

}





void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
mouse_pos = Mouse->CursorPos;
mouse_pos.X = mouse_pos.X - Form1->Top;
mouse_pos.Y = mouse_pos.Y - Form1->Left;
if(mouse_pos.X <= 4) mouse_pos.X = 1;
if(mouse_pos.Y <= 42) mouse_pos.Y = 1;
Label_X->Caption = mouse_pos.X; Label_X->Refresh();
Label_Y->Caption = mouse_pos.Y;Label_Y->Refresh();

}
//---------------------------------------------------------------------------

void __fastcall TForm1::InsertarInicioRuta1Click(TObject *Sender)
{
ini_rutaX = mouse_pos2.X - 4;
ini_rutaY = mouse_pos2.Y - 42;
if(current_route <= 14)
{
mapita.rutas_inicio_X[current_route] = ini_rutaX;
mapita.rutas_inicio_Y[current_route] = ini_rutaY;
}

else ShowMessage("You reach MAX routes Allowed");
}
//---------------------------------------------------------------------------

void __fastcall TForm1::InsertarFinRuta1Click(TObject *Sender)
{
fin_rutaX = mouse_pos2.X - 4;
fin_rutaY = mouse_pos2.Y - 42;
if(current_route <= 30)
{
mapita.rutas_fin_X[current_route] = fin_rutaX;
mapita.rutas_fin_Y[current_route] = fin_rutaY;

if(Application->MessageBox(L"Do you want to SAVE this ROUTE (Keep on map):",
L"Look", MB_OKCANCEL) == ID_OK)
{ //save the current route line
ShowMessage("You Choose SAVE the Route");
current_route++;
}
else {
ShowMessage("Canceled: Route Deleted");
mapita.rutas_fin_X[current_route] = 0;
mapita.rutas_fin_Y[current_route] = 0;

}

}

else ShowMessage("You reach MAX routes Allowed");

}
//---------------------------------------------------------------------------

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

if(current_object > 30) {
ShowMessage("MAX Objects reached!! Can't add more on this map.");
return;
}

if(RadioButton3->Checked == true)
{
mapita.coordX_objeto[current_object] = mouse_pos2.X-4;
mapita.coordY_objeto[current_object] = mouse_pos2.Y-42;
mapita.objetos[current_object] = 1;
current_object++;
}

if(RadioButton4->Checked == true)
{
mapita.coordX_objeto[current_object] = mouse_pos2.X-4;
mapita.coordY_objeto[current_object] = mouse_pos2.Y-42;
mapita.objetos[current_object] = 2;
current_object++;
}

if(RadioButton5->Checked == true)
{
mapita.coordX_objeto[current_object] = mouse_pos2.X-4;
mapita.coordY_objeto[current_object] = mouse_pos2.Y-42;
mapita.objetos[current_object] = 3;
current_object++;
}

if(RadioButton6->Checked == true)
{
mapita.coordX_objeto[current_object] = mouse_pos2.X-4;
mapita.coordY_objeto[current_object] = mouse_pos2.Y-42;
mapita.objetos[current_object] = 4;
current_object++;
}


if(RadioButton7->Checked == true)
{
mapita.coordX_objeto[current_object] = mouse_pos2.X-4;
mapita.coordY_objeto[current_object] = mouse_pos2.Y-42;
mapita.objetos[current_object] = 5;
current_object++;
}

if(RadioButton8->Checked == true)
{
mapita.coordX_objeto[current_object] = mouse_pos2.X-4;
mapita.coordY_objeto[current_object] = mouse_pos2.Y-42;
mapita.objetos[current_object] = 6;
current_object++;
}

if(RadioButton9->Checked == true)
{
mapita.coordX_objeto[current_object] = mouse_pos2.X-4;
mapita.coordY_objeto[current_object] = mouse_pos2.Y-42;
mapita.objetos[current_object] = 7;
current_object++;
}


if(RadioButton10->Checked == true)
{
mapita.coordX_objeto[current_object] = mouse_pos2.X-4;
mapita.coordY_objeto[current_object] = mouse_pos2.Y-42;
mapita.objetos[current_object] = 8;
current_object++;
}


if(RadioButton11->Checked == true)
{
mapita.coordX_objeto[current_object] = mouse_pos2.X-4;
mapita.coordY_objeto[current_object] = mouse_pos2.Y-42;
mapita.objetos[current_object] = 9;
current_object++;
}


if(RadioButton12->Checked == true)
{
mapita.coordX_objeto[current_object] = mouse_pos2.X-4;
mapita.coordY_objeto[current_object] = mouse_pos2.Y-42;
mapita.objetos[current_object] = 10;
current_object++;
}


if(RadioButton13->Checked == true)
{
mapita.coordX_objeto[current_object] = mouse_pos2.X-4;
mapita.coordY_objeto[current_object] = mouse_pos2.Y-42;
mapita.objetos[current_object] = 11;
current_object++;
}


if(RadioButton14->Checked == true)
{
mapita.coordX_objeto[current_object] = mouse_pos2.X-4;
mapita.coordY_objeto[current_object] = mouse_pos2.Y-42;
mapita.objetos[current_object] = 12;
current_object++;
}


}
//---------------------------------------------------------------------------



void __fastcall TForm1::CheckBox1Click(TObject *Sender)
{
if(CheckBox1->Checked == true) muestra_rutas = true;
else muestra_rutas = false;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::CheckBox2Click(TObject *Sender)
{
if(CheckBox2->Checked == true) muestra_objetos = true;
else muestra_objetos = false;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::EstoesunCaosquieroempezardenuevo1Click(TObject *Sender)
{
// Inicializamos todo a cero.
int contador = 0;
current_route = 0;
current_object = 0;

for(contador = 0; contador <= 14; contador++)
{
mapita.coordX_objeto[contador] = 0;
mapita.coordY_objeto[contador] = 0;
mapita.rutas_fin_X[contador] = 0;
mapita.rutas_fin_Y[contador] = 0;
mapita.rutas_inicio_X[contador] = 0;
mapita.rutas_inicio_Y[contador] = 0;
mapita.objetos[contador] = 0;
}

mapita.total_objetos = 0;
mapita.total_rutas = 0;
}
//---------------------------------------------------------------------------



void __fastcall TForm1::PopupMenu1Popup(TObject *Sender)
{
mouse_pos2 = Mouse->CursorPos;
mouse_pos2.X = mouse_pos.X - Form1->Top;
mouse_pos2.Y = mouse_pos.Y - Form1->Left;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Timer2Timer(TObject *Sender)
{
Label1->Caption = cont_redraw;

Label1->Refresh();
cont_redraw = 0;

}
//---------------------------------------------------------------------------

void __fastcall TForm1::sButton1Click(TObject *Sender)
{
SALIR = false;


for(;;)
{
cont_redraw++;
Muestra_Mapa();
if(SALIR == true) break;
}
}
//---------------------------------------------------------------------------

void __fastcall TForm1::sButton2Click(TObject *Sender)
{
SALIR = true;
}
//---------------------------------------------------------------------------

[Snaked]

http://www.qualinost.tk/proyectos/stardust/captures/capture_editor5.png

[Snaked]

Aqui una captura nueva con algunos arreglos en las paletas de Planetas y Estaciones Orbitales

http://www.qualinost.tk/proyectos/stardust/captures/capture_editor6.png





http://www.qualinost.tk/proyectos/stardust/captures/capture_editor6b.png

[aguml]

Te está quedando muy chulo.