Div GO : Div Games Online

Haz clic para obtener el control del teclado

// Ejemplo de Div GO
// by J. Manuel Habas

PROGRAM ejemplo_set_delete_clear_points;

GLOBAL
    fichero1;
    punto=1;
    x_punto;
    y_punto;

BEGIN
	set_mode(m320x200, 2);
    fichero1=load_fpg("resources/fpgs/help");
    
    text_size = 45;
    write(0, 80, 10, 3, "[ENTER] crea puntos");
    write(0, 80, 20, 3, "[ESC] elimina todos los puntos");
    write(0, 80, 30, 3, "[1-9] elimina puntos del 1 al 9");
        
	crea_puntos();
    
    put_screen(fichero1, 7);
    
    graph=101;
    file=fichero1;
    size=70;
    Z=10;
        
    LOOP
    	if (key_in(_enter)) crea_puntos(); end
    	if (key_in(_esc)) clear_points(fichero1, 7); end
    	if (key_in(_1)) delete_point(fichero1, 7, 1); end
    	if (key_in(_2)) delete_point(fichero1, 7, 2); end
        if (key_in(_3)) delete_point(fichero1, 7, 3); end
        if (key_in(_4)) delete_point(fichero1, 7, 4); end
        if (key_in(_5)) delete_point(fichero1, 7, 5); end
        if (key_in(_6)) delete_point(fichero1, 7, 6); end
        if (key_in(_7)) delete_point(fichero1, 7, 7); end
        if (key_in(_8)) delete_point(fichero1, 7, 8); end
        if (key_in(_9)) delete_point(fichero1, 7, 9); end
    
        IF (fget_dist(x, y, x_punto, y_punto)<6)
            IF (punto++==14) punto=1; END
            marcar(x_punto, y_punto);
        END

// Cogemos el punto de control
        get_point(fichero1, 7, punto, offset x_punto, offset y_punto);

angle=fget_angle(x, y, x_punto, y_punto);
        advance(6);
        FRAME;
    END
END

PROCESS marcar(x, y)
BEGIN
	graph=200;
    file=fichero1;
    Z=20;
    
	LOOP
    	alpha -= 2; IF (alpha < 10) BREAK; END
        
    	FRAME;
    END
END

FUNCTION crea_puntos()
BEGIN
    //creamos recorrido marcando distintos puntos en el mapa
    //set_point(fichero, gráfico, número, x, y);
    set_point(fichero1, 7, 1,  8,   18);
    set_point(fichero1, 7, 2,  63,  18);
    set_point(fichero1, 7, 3,  94,  71);
    set_point(fichero1, 7, 4,  127, 102);
    set_point(fichero1, 7, 5,  196, 102);
    set_point(fichero1, 7, 6,  246, 20);
    set_point(fichero1, 7, 7,  288, 20);
    set_point(fichero1, 7, 8,  312, 98);
    set_point(fichero1, 7, 9,  200, 113);
    set_point(fichero1, 7, 10, 163, 193);
    set_point(fichero1, 7, 11, 112, 193);
    set_point(fichero1, 7, 12, 90,  107);
    set_point(fichero1, 7, 13, 5,   94);
    set_point(fichero1, 7, 14, 4,   57);
END

Tamaño Código:

HTML5 Game engine

Entorno de desarrollo de juegos online en HTML5