Div GO : Div Games Online

Haz clic para obtener el control del teclado

// Div GO example
// by J. Manuel Habas

PROGRAM example_set_delete_clear_points;

GLOBAL
    file1;
    point=1;
    x_point;
    y_point;

BEGIN
	set_mode(m320x200, 2);
    file1=load_fpg("resources/fpgs/help");
    
    text_size = 45;
    write(0, 80, 10, 3, "[ENTER] create points");
    write(0, 80, 20, 3, "[ESC] remove all points");
    write(0, 80, 30, 3, "[1-9] delete points from 1 to 9");
        
	create_points();
    
    put_screen(file1, 7);
    
    graph=101;
    file=file1;
    size=70;
    Z=10;
        
    LOOP
    	if (key_in(_enter)) create_points(); end
    	if (key_in(_esc)) clear_points(file1, 7); end
    	if (key_in(_1)) delete_point(file1, 7, 1); end
    	if (key_in(_2)) delete_point(file1, 7, 2); end
        if (key_in(_3)) delete_point(file1, 7, 3); end
        if (key_in(_4)) delete_point(file1, 7, 4); end
        if (key_in(_5)) delete_point(file1, 7, 5); end
        if (key_in(_6)) delete_point(file1, 7, 6); end
        if (key_in(_7)) delete_point(file1, 7, 7); end
        if (key_in(_8)) delete_point(file1, 7, 8); end
        if (key_in(_9)) delete_point(file1, 7, 9); end
    
        IF (fget_dist(x, y, x_point, y_point)<6)
            IF (point++==14) point=1; END
            mark(x_point, y_point);
        END

get_point(file1, 7, point, offset x_point, offset y_point);

angle=fget_angle(x, y, x_point, y_point);
        advance(6);
        FRAME;
    END
END

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

FUNCTION create_points()
BEGIN
    // A route is created by marking different points on the map
    // set_point(file, graph, number, x, y);
    set_point(file1, 7, 1,  8,   18);
    set_point(file1, 7, 2,  63,  18);
    set_point(file1, 7, 3,  94,  71);
    set_point(file1, 7, 4,  127, 102);
    set_point(file1, 7, 5,  196, 102);
    set_point(file1, 7, 6,  246, 20);
    set_point(file1, 7, 7,  288, 20);
    set_point(file1, 7, 8,  312, 98);
    set_point(file1, 7, 9,  200, 113);
    set_point(file1, 7, 10, 163, 193);
    set_point(file1, 7, 11, 112, 193);
    set_point(file1, 7, 12, 90,  107);
    set_point(file1, 7, 13, 5,   94);
    set_point(file1, 7, 14, 4,   57);
END

Tamaño Código:

HTML5 Game engine

Entorno de desarrollo de juegos online en HTML5