Div GO : Div Games Online

Entorno de desarrollo de juegos online en HTML5

Haz clic para obtener el control del teclado

PROGRAM ejemplo_path_find;
GLOBAL
    num_puntos;
    STRUCT puntos[100]
		x,y;
    END
    índice;
    
    fichero;

BEGIN
	set_mode(m320x200, 2);
    screen_smooth(false);
    
    fichero=load_fpg("resources/fpgs/help");
    
    put_screen(fichero, 7);
    
    graph=200;
    file=fichero;
    
    mouse.graph=200;
    mouse.file=fichero;
    
    LOOP
        // Obtiene la ruta hasta las coordenadas del ratón
        num_puntos=path_find(0,fichero,201,2,mouse.x,mouse.y,OFFSET puntos,sizeof(puntos));

// Si se obtuvo una ruta, se muestra y se avanza hasta el destino
        IF (num_puntos>0)
            FOR (índice=0;índice<num_puntos-2;índice++)
                draw(1,cc_yellow,15,0,puntos[índice].x,puntos[índice].y,puntos[índice+1].x,puntos[índice+1].y);
            END
            IF (fget_dist(x,y,puntos[0].x,puntos[0].y)>4)
                xadvance(fget_angle(x,y,puntos[0].x,puntos[0].y),4);
            ELSE
                x=puntos[0].x;
                y=puntos[0].y;
            END
            draw(1,cc_yellow,15,0,x,y,puntos[0].x,puntos[0].y);
        END

FRAME;
        delete_draw(all_drawing);
    END
END

Tamaño Código:

HTML5 Game engine

Entorno de desarrollo de juegos online en HTML5