void ConfigfileAddSection(char *sectionName)
{
if (Configfile.config != NULL)
{
al_add_config_section(Configfile.config, (const char *)sectionName);
}
}
static mrb_value
config_add_section(mrb_state *mrb, mrb_value self)
{
ALLEGRO_CONFIG *cfg;
char *name;
Check_Destroyed(mrb, self, config, cfg);
mrb_get_args(mrb, "z", &name);
al_add_config_section(cfg, name);
return mrb_nil_value();
}
bool setar_configuracao(const char *conf_key, const char *conf_value, const char *section, ALLEGRO_CONFIG *config) {
const char *value;
al_add_config_section(config, section);
//Setar item de configuracao.
al_set_config_value(config, section, conf_key, conf_value);
value = al_get_config_value(config, section, conf_key);
if(strcmp(value, conf_value)){
return TRUE;
}
return FALSE;
}
int main(void)
{
int X_ROOMS=13;
int Y_ROOMS=16;
int X_ROOM_SIZE=256;
int Y_ROOM_SIZE=128;
int SCALE_FACTOR=4;
int X_TILE_SIZE=8;
int Y_TILE_SIZE=8;
int LAST_OBJECT=0;
int actid=0;
int error=0;
ALLEGRO_CONFIG *cfg;
ALLEGRO_BITMAP *bmp,*virt,*tmp=NULL;
ALLEGRO_DISPLAY *display;
ALLEGRO_KEYBOARD_STATE key;
ALLEGRO_FONT *font;
signed int xcursor=0;
signed int ycursor=0;
signed char x=0;
signed char y=0;
signed char finex=0;
signed char finey=0;
char finish=0;
ALLEGRO_COLOR black,white,red,color;
int scale_cursor_x=0;
int scale_cursor_y=0;
int i=0;
int a=0;
unsigned char r,g,b=0;
char pngfilename[20];
char *tmpbuf;
char buf[5];
char buf2[5];
/* Iniciar el rollo */
tmpbuf=(char *)malloc(sizeof(char)*X_ROOM_SIZE*Y_ROOM_SIZE);
memset(tmpbuf,0,sizeof(char)*X_ROOM_SIZE*Y_ROOM_SIZE);
al_init();
al_init_image_addon();
al_init_primitives_addon();
al_init_font_addon();
al_init_ttf_addon();
cfg=al_load_config_file("sacagraf.cfg");
if (cfg==NULL)
{
cfg=al_create_config();
al_add_config_section(cfg,"Ajustes");
al_add_config_section(cfg,"Objetos");
al_set_config_value(cfg,"Ajustes","Habitaciones en horizontal","13");
al_set_config_value(cfg,"Ajustes","Habitaciones en vertical","16");
al_set_config_value(cfg,"Ajustes","Ancho de la habitacion original en pixels","256");
al_set_config_value(cfg,"Ajustes","Alto de la habitacion original en pixels","128");
al_set_config_value(cfg,"Ajustes","Ancho minimo del caracter original","8");
al_set_config_value(cfg,"Ajustes","Alto minimo del caracter original","8");
al_set_config_value(cfg,"Ajustes","Factor de escalado","4");
al_set_config_value(cfg,"Objetos","Ultimo","0");
al_save_config_file("sacagraf.cfg",cfg);
}
X_ROOMS=atoi(al_get_config_value(cfg,"Ajustes","Habitaciones en horizontal"));
Y_ROOMS=atoi(al_get_config_value(cfg,"Ajustes","Habitaciones en vertical"));
X_ROOM_SIZE=atoi(al_get_config_value(cfg,"Ajustes","Ancho de la habitacion original en pixels"));
Y_ROOM_SIZE=atoi(al_get_config_value(cfg,"Ajustes","Alto de la habitacion original en pixels"));
SCALE_FACTOR=atoi(al_get_config_value(cfg,"Ajustes","Factor de escalado"));
X_TILE_SIZE=atoi(al_get_config_value(cfg,"Ajustes","Alto minimo del caracter original"));
Y_TILE_SIZE=atoi(al_get_config_value(cfg,"Ajustes","Ancho minimo del caracter original"));
LAST_OBJECT=atoi(al_get_config_value(cfg,"Objetos","Ultimo"));
actid=LAST_OBJECT;
al_set_new_display_flags(ALLEGRO_OPENGL | ALLEGRO_WINDOWED);
display=al_create_display(X_ROOM_SIZE*SCALE_FACTOR,192*SCALE_FACTOR);
bmp=al_load_bitmap("map.png");
virt=al_create_bitmap(X_ROOM_SIZE*SCALE_FACTOR,Y_ROOM_SIZE*SCALE_FACTOR);
font=al_load_ttf_font("proggy.ttf",6*SCALE_FACTOR,0);
al_install_keyboard();
black=al_map_rgb(0,0,0);
white=al_map_rgba_f(1,1,1,1);
red=al_map_rgba_f(1,0,0,0.7);
/* Que empiece la fiesta */
while(!finish)
{
al_get_keyboard_state(&key);
if (al_key_down(&key,ALLEGRO_KEY_ESCAPE))
{
finish=1;
}
if (al_key_down(&key,ALLEGRO_KEY_LCTRL))
{
finex=0;
finey=0;
if (al_key_down(&key,ALLEGRO_KEY_RIGHT))
{
x++;
if (x==X_ROOMS) x=X_ROOMS-1;
}
if (al_key_down(&key,ALLEGRO_KEY_LEFT))
{
x--;
if (x<0) x=0;
}
if (al_key_down(&key,ALLEGRO_KEY_UP))
{
y--;
if (y<0) y=0;
}
if (al_key_down(&key,ALLEGRO_KEY_DOWN))
{
y++;
if (y>Y_ROOMS-1) y=Y_ROOMS-1;
}
}
else if (al_key_down(&key,ALLEGRO_KEY_LSHIFT))
{
if (al_key_down(&key,ALLEGRO_KEY_RIGHT))
{
finex++;
if (finex>X_TILE_SIZE) finex=X_TILE_SIZE;
}
if (al_key_down(&key,ALLEGRO_KEY_LEFT))
{
finex--;
if (finex<-X_TILE_SIZE) finex=-X_TILE_SIZE;
}
if (al_key_down(&key,ALLEGRO_KEY_UP))
{
finey--;
if (finey<-Y_TILE_SIZE) finey=-Y_TILE_SIZE;
}
if (al_key_down(&key,ALLEGRO_KEY_DOWN))
{
finey++;
if (finey>Y_TILE_SIZE) finey=Y_TILE_SIZE;
}
}
else if (al_key_down(&key,ALLEGRO_KEY_ALT))
{
if (al_key_down(&key,ALLEGRO_KEY_RIGHT))
{
scale_cursor_x++;
//if (finex>8) finex=8;
}
if (al_key_down(&key,ALLEGRO_KEY_LEFT))
{
scale_cursor_x--;
//if (finex<0) finex=0;
}
if (al_key_down(&key,ALLEGRO_KEY_UP))
{
scale_cursor_y--;
//if (finey<0) finey=0;
}
if (al_key_down(&key,ALLEGRO_KEY_DOWN))
{
scale_cursor_y++;
//if (finey>8) finey=8;
}
}
else
{
if (al_key_down(&key,ALLEGRO_KEY_RIGHT))
{
xcursor+=X_TILE_SIZE*SCALE_FACTOR;
}
if (al_key_down(&key,ALLEGRO_KEY_LEFT))
{
xcursor-=X_TILE_SIZE*SCALE_FACTOR;
}
if (al_key_down(&key,ALLEGRO_KEY_UP))
{
ycursor-=Y_TILE_SIZE*SCALE_FACTOR;
}
if (al_key_down(&key,ALLEGRO_KEY_DOWN))
{
ycursor+=Y_TILE_SIZE*SCALE_FACTOR;
}
}
al_clear_to_color(black);
al_set_target_bitmap(virt);
//al_set_blender(ALLEGRO_ALPHA,ALLEGRO_INVERSE_ALPHA,white);
al_draw_bitmap_region(bmp,0+(x*X_ROOM_SIZE)+finex,0+(y*Y_ROOM_SIZE)+finey,X_ROOM_SIZE,Y_ROOM_SIZE,0,0,0);
al_set_target_bitmap(al_get_backbuffer(display));
al_draw_scaled_bitmap(virt,0,0,X_ROOM_SIZE,Y_ROOM_SIZE,0,0,X_ROOM_SIZE*SCALE_FACTOR,Y_ROOM_SIZE*SCALE_FACTOR,0);
al_draw_line(0,512,1024,512,white,0);
al_draw_textf(font,al_map_rgba(200,200,200,200),0,520,0,"mapa x: %d mapa y: %d habitacion nº: %d ajuste fino x: %d ajuste fijo y: %d",x,y,x+(y*13),finex,finey);
if (error)
{
al_draw_textf(font,al_map_rgba(200,200,200,200),0,540,0,"Patron repetido");
al_flip_display();
al_rest(1);
error=0;
}
if (al_key_down(&key,ALLEGRO_KEY_ENTER))
{
tmp=al_create_bitmap((X_TILE_SIZE*SCALE_FACTOR)+(X_TILE_SIZE*SCALE_FACTOR*scale_cursor_x),(Y_TILE_SIZE*SCALE_FACTOR)+(Y_TILE_SIZE*SCALE_FACTOR*scale_cursor_y));
al_set_target_bitmap(tmp);
al_draw_bitmap_region(al_get_backbuffer(display),xcursor,ycursor,(X_TILE_SIZE*SCALE_FACTOR*scale_cursor_x)+(X_TILE_SIZE*SCALE_FACTOR),(Y_TILE_SIZE*SCALE_FACTOR*scale_cursor_y)+(Y_TILE_SIZE*SCALE_FACTOR),0,0,0);
memset(tmpbuf,0,sizeof(char)*X_ROOM_SIZE*Y_ROOM_SIZE);
memset(buf,0,5);
for (i=0;i<(Y_TILE_SIZE*scale_cursor_y*SCALE_FACTOR)+(Y_TILE_SIZE*SCALE_FACTOR);i+=SCALE_FACTOR)
{
for (a=0;a<(X_TILE_SIZE*scale_cursor_x*SCALE_FACTOR)+(X_TILE_SIZE*SCALE_FACTOR);a+=SCALE_FACTOR)
{
color=al_get_pixel(tmp,a,i);
al_unmap_rgb(color,&r,&g,&b);
if (!r && !g && !b)
{
strcat(tmpbuf,"0");
}
else
{
strcat(tmpbuf,"1");
}
}
}
/* Ya está la secuencia del gráfico en tmpbuf, examinamos todas las secuencias anteriores */
error=0;
for (i=0;i<actid;i++)
{
memset(buf2,0,5);
sprintf(buf2,"%d",i);
if (!strcmp(al_get_config_value(cfg,"Objetos",buf2),tmpbuf))
{
error=i;
}
}
/* Si no hay secuencias repetidas lo grabamos */
if (!error)
{
sprintf(buf,"%d",actid);
al_set_config_value(cfg,"Objetos",buf,tmpbuf);
memset(pngfilename,0,20);
sprintf(pngfilename,"dec%d.png",actid);
al_save_bitmap(pngfilename,tmp);
actid++;
}
al_destroy_bitmap(tmp);
}
al_set_target_bitmap(al_get_backbuffer(display));
//al_set_blender(ALLEGRO_ALPHA,ALLEGRO_INVERSE_ALPHA,red);
al_draw_filled_rectangle(xcursor,ycursor,xcursor+((X_TILE_SIZE*SCALE_FACTOR)+(X_TILE_SIZE*SCALE_FACTOR*scale_cursor_x)),ycursor+((Y_TILE_SIZE*SCALE_FACTOR)+(Y_TILE_SIZE*SCALE_FACTOR*scale_cursor_y)),red);
al_flip_display();
al_rest(0.1);
}
memset(buf,0,5);
sprintf(buf,"%d",actid);
al_set_config_value(cfg,"Objetos","Ultimo",buf);
al_save_config_file("sacagraf.cfg",cfg);
al_destroy_font(font);
al_uninstall_keyboard();
al_destroy_bitmap(bmp);
al_destroy_bitmap(virt);
al_destroy_display(display);
al_destroy_config(cfg);
al_shutdown_ttf_addon();
al_shutdown_font_addon();
al_shutdown_image_addon();
al_shutdown_primitives_addon();
free(tmpbuf);
return 0;
}
