Buenos dias a todos,

inicialmente no mandaria este mensaje aqui, sino al foro de NGL, pero dado
que el movimiento inicial fue en la lista creo que es una buena razon para
indicar aqui la direccion del primer video DEMO con NGL, en la actual
version Alfa, y que todos lo puedan ver.

http://www.youtube.com/watch?v=ShVM51abkqA

Se trata de una simple ventana en la que vemos aparecer 3 cuadrados de
distintos colores, a modo de "naves". Las coordenadas X e Y de cada cuadrado
son aleatorias. Se que no es mucho (recordemos, es una version ALFA), pero
ilustra un poco que se puede hacer.

Dado que no me he aclarado aun en como poner la web en sourceforge, os pongo
aqui el codigo fuente (espero que no moleste, no es muy largo). He accedido
via FTP y subido unos archivos HTML a modo de prueba, pero por lo visto no
los pongo en el sitio correcto porque la web por defecto de sourceforge no
cambia.

#include "Nautilus.h"

int
main( int argc, char* args[] )
{
    unsigned char pulsacion;
    int Salir;
    int Resultado;

    unsigned int Nave1; // Azul
    unsigned int Nave2; // Roja
    unsigned int Nave3; // Verde

    set_mode=2;
    create_screen();

    Nave1=create_entity();
    Nave2=create_entity();
    Nave3=create_entity();
    load_image(Nave1,"cuadrado_azul.png");
    load_image(Nave2,"cuadrado_rojo.png");
    load_image(Nave3,"cuadrado_verde.png");

    zone_screen.x=100;
    zone_screen.y=100;
    zone_screen.w=640;
    zone_screen.h=480;

    Salir=0;
    while (Salir<1)
    {
        // Nave azul
        pulsacion=0;
        pulsacion=key(_a);
        if (pulsacion>0) {
            entity_setx(Nave1, rand(1,640));
            entity_sety(Nave1, rand(1,480));
            map_to_screen(Nave1,2);
            frame();
        }

        // Nave roja
        pulsacion=0;
        pulsacion=key(_s);
        if (pulsacion>0) {
            entity_setx(Nave2, rand(1,640));
            entity_sety(Nave2, rand(1,480));
            map_to_screen(Nave2,2);
            frame();
        }

        // Nave verde
        pulsacion=0;
        pulsacion=key(_d);
        if (pulsacion>0) {

            entity_setx(Nave3, rand(1,640));
            entity_sety(Nave3, rand(1,480));
            map_to_screen(Nave3,2);
            frame();
        }

        // Salir
        pulsacion=0;
        pulsacion=key(_q);
        if (pulsacion>0)
            Salir=1;
    }

    unload_image(Nave1);
    unload_image(Nave2);
    unload_image(Nave3);

    delete_entity(Nave1);
    delete_entity(Nave2);
    delete_entity(Nave3);

    printf("\n");
    SDL_Quit();

    return 0;
}

Responder a